module Veewee
  module Util
    class Scancode

      def self.string_to_keycode(thestring)

        #http://www.win.tue.nl/~aeb/linux/kbd/scancodes-1.html

        k=Hash.new
        k['1'] = '02 82' ; k['2'] = '03 83' ; k['3'] = '04 84'; k['4']= '05 85' ;
        k['5']='06 86'; k['6'] = '07 87' ; k['7'] = '08 88'; k['8'] = '09 89'; k['9']= '0a 8a';
        k['0']='0b 8b'; k['-'] = '0c 8c'; k['='] = '0d 8d' ;
        k['Tab'] = '0f 8f';
        k['q']  = '10 90' ;       k['w']  = '11 91' ;       k['e']  = '12 92';
        k['r'] = '13 93'       ; k['t'] = '14 94'       ; k['y'] = '15 95';
        k['u']= '16 96'        ; k['i']='17 97';      k['o'] = '18 98'       ; k['p'] = '19 99' ;

        k['Q']  = '2a 10 aa' ; k['W']  = '2a 11 aa' ; k['E']  = '2a 12 aa'; k['R'] = '2a 13 aa' ; k['T'] = '2a 14 aa' ; k['Y'] = '2a 15 aa'; k['U']= '2a 16 aa' ; k['I']='2a 17 aa'; k['O'] = '2a 18 aa' ; k['P'] = '2a 19 aa' ;

        k['a'] = '1e 9e'; k['s']  = '1f 9f' ; k['d']  = '20 a0' ; k['f']  = '21 a1'; k['g'] = '22 a2' ; k['h'] = '23 a3' ; k['j'] = '24 a4';
        k['k']= '25 a5' ; k['l']='26 a6';
        k['A'] = '2a 1e aa 9e'; k['S']  = '2a 1f aa 9f' ; k['D']  = '2a 20 aa a0' ; k['F']  = '2a 21 aa a1';
        k['G'] = '2a 22 aa a2' ; k['H'] = '2a 23 aa a3' ; k['J'] = '2a 24 aa a4'; k['K']= '2a 25 aa a5' ; k['L']='2a 26 aa a6';

        k[';'] = '27 a7' ;k['"']='2a 28 aa a8';k['\'']='28 a8';

        k['\\'] = '2b ab';   k['|'] = '2a 2b aa 8b';

        k['[']='1a 9a'; k[']']='1b 9b';
        k['<']='2a 33 aa b3'; k['>']='2a 34 aa b4';
        k['$']='2a 05 aa 85';
        k['+']='2a 0d aa 8d';

        k['?']='2a 35 aa b5';
        k['z'] = '2c ac'; k['x']  = '2d ad' ; k['c']  = '2e ae' ; k['v']  = '2f af'; k['b'] = '30 b0' ; k['n'] = '31 b1' ;
        k['m'] = '32 b2';
        k['Z'] = '2a 2c aa ac'; k['X']  = '2a 2d aa ad' ; k['C']  = '2a 2e aa ae' ; k['V']  = '2a 2f aa af';
        k['B'] = '2a 30 aa b0' ; k['N'] = '2a 31 aa b1' ; k['M'] = '2a 32 aa b2';

        k[',']= '33 b3' ; k['.']='34 b4'; k['/'] = '35 b5' ;k[':'] = '2a 27 aa a7';
        k['%'] = '2a 06 aa 86';  k['_'] = '2a 0c aa 8c';
        k['&'] = '2a 08 aa 88';
        k['('] = '2a 0a aa 8a';
        k[')'] = '2a 0b aa 8b';


        special=Hash.new;
        special['<Enter>'] = '1c 9c';
        special['<Backspace>'] = '0e 8e';
        special['<Spacebar>'] = '39 b9';
        special['<Return>'] = '1c 9c'
        special['<Esc>'] = '01 81';
        special['<Tab>'] = '0f 8f';
        special['<KillX>'] = '1d 38 0e';
        special['<Wait>'] = 'wait';

        special['<Up>'] = '48 c8';
        special['<Down>'] = '50 d0';
        special['<PageUp>'] = '49 c9';
        special['<PageDown>'] = '51 d1';
        special['<End>'] = '4f cf';
        special['<Insert>'] = '52 d2';
        special['<Delete>'] = '53 d3';
        special['<Left>'] = '4b cb';
        special['<Right>'] = '4d cd';
        special['<Home>'] = '47 c7';

        special['<F1>'] = '3b';
        special['<F2>'] = '3c';
        special['<F3>'] = '3d';
        special['<F4>'] = '3e';
        special['<F5>'] = '3f';
        special['<F6>'] = '40';
        special['<F7>'] = '41';
        special['<F8>'] = '42';
        special['<F9>'] = '43';
        special['<F10>'] = '44';

        keycodes=''
        thestring.gsub!(/ /,"<Spacebar>")

        until thestring.length == 0
          nospecial=true;
          special.keys.each { |key|
            if thestring.start_with?(key)
              #take thestring
              #check if it starts with a special key + pop special string
              keycodes=keycodes+special[key]+' ';
              thestring=thestring.slice(key.length,thestring.length-key.length)
              nospecial=false;
              break;
            end
          }
          if nospecial
            code=k[thestring.slice(0,1)]
            if !code.nil?
              keycodes=keycodes+code+' '
            else
              env.ui.info "no scan code for #{thestring.slice(0,1)}"
            end
            #pop one
            thestring=thestring.slice(1,thestring.length-1)
          end
        end

        return keycodes
      end
    end #Class
  end #Module
end #Module