| #!/usr/bin/perl |
| # |
| # qt_tslib_inject.pl: |
| # |
| # touch screen input injection tool for use with x11vnc. |
| # |
| # example usage: |
| # |
| # x11vnc ... -rawfb console -pipeinput ./qt_tslib_inject_input.pl -env INJECT_OPTIONS=cal=/etc/pointercal |
| # |
| # See options below. |
| # |
| # tested on qtmoko (neo freerunner) with tslib. |
| |
| # |
| # Copyright (c) 2010 by Karl J. Runge <runge@karlrunge.com> |
| # |
| # qt_tslib_inject.pl is free software; you can redistribute it and/or modify |
| # it under the terms of the GNU General Public License as published by |
| # the Free Software Foundation; either version 2 of the License, or (at |
| # your option) any later version. |
| # |
| # qt_tslib_inject.pl is distributed in the hope that it will be useful, |
| # but WITHOUT ANY WARRANTY; without even the implied warranty of |
| # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| # GNU General Public License for more details. |
| # |
| # You should have received a copy of the GNU General Public License |
| # along with qt_tslib_inject.pl; if not, write to the Free Software |
| # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA |
| # or see <http://www.gnu.org/licenses/>. |
| # |
| |
| set_constants(); |
| |
| # one can set these env. vars. before running: |
| |
| # the device file to inject the events into: |
| # |
| $dev = $ENV{INJECT_DEV}; |
| $dev = "/dev/input/event1" unless $dev; |
| |
| # options, see below. useful: cal=/etc/pointercal |
| # |
| $options = $ENV{INJECT_OPTIONS}; |
| $options = '' unless $options ne ''; |
| |
| $debug = 0; # enable debugging output: |
| $pressure = 1; # level of touch pad pressure for click. |
| $btn_touch = 0; # send BTN_TOUCH on clicks instead of pressure changes. |
| $absalways = 0; # send a zero pressure absolute position event whenever mouse moves. |
| $dragskip = 0; # how often to skip injecting motion event while dragging. |
| |
| $a_xform = ''; # tslib's calibration coefficients. |
| @a = (); |
| |
| %keycmds = (); # user defined hotkeys to run external commands. |
| |
| # separate the options by comma, e.g. pressure=5,cal=/etc/pointercal |
| |
| if ($options =~ /absalways/i) { |
| # set to always send a zero pressure ABS event when mouse moves |
| $absalways = 1; |
| } |
| if ($options =~ /btn_touch/i) { |
| # send BTN_TOUCH on clicks. |
| $btn_touch = 1; |
| } |
| if ($options =~ /pressure=(\d+)/i) { |
| # level of touchpad pressure to use on a touch. |
| $pressure = $1; |
| } |
| if ($options =~ /dragskip=(\d+)/i) { |
| # when dragging with pressure, skip this many events. |
| $dragskip = $1; |
| } |
| if ($options =~ /cal=([^,]+)/i) { |
| # tslib's /etc/pointercal linear transform: |
| $a_xform = $1; |
| if (-f $a_xform) { |
| $a_xform = `head -n 1 '$a_xform'`; |
| chomp $a_xform; |
| $a_xform =~ s/^\s*//; |
| $a_xform =~ s/\s*$//; |
| } |
| } |
| if ($options =~ /keycmds=([^,]+)/i) { |
| # format: keysym1:command1+keysym2:command2+... |
| # e.g.: keycmds=F6:date+F7:'./x11vnc-0.9.10 -connect ./ctl.txt -R reset' |
| my $str = $1; |
| if (-f $str && open(F, "<$str")) { |
| $str = ''; |
| while (<F>) { |
| chomp; |
| $_ =~ s/^\s*//; |
| $_ =~ s/\s*$//; |
| next if /^#/; |
| next if $_ eq ""; |
| $str .= '+' if $str ne ''; |
| $str .= $_; |
| } |
| close F; |
| } |
| foreach my $part (split(/\+/, $str)) { |
| my ($key, $cmd) = split(/:/, $part, 2); |
| if ($key !~ /^\s*$/) { |
| $keycmds{$key} = $cmd; |
| } |
| } |
| } |
| if ($options =~ /debug=(\d+)/i) { |
| # debug printout |
| $debug = $1; |
| } elsif ($options =~ /debug/i) { |
| $debug = 1; |
| } |
| |
| # end of the top part that user should read and understand |
| # for setting options, etc. |
| ###################################################################### |
| |
| $start = time(); |
| |
| # open the device for writing: |
| # |
| $modes = $O_WRONLY; |
| printf("open modes: 0x%x\n", $modes) if $debug; |
| |
| sysopen(FD, $dev, $modes) || die "$dev: $!"; |
| |
| my $curr_mask = 0; |
| my $curr_x = 0; |
| my $curr_y = 0; |
| my $down_count = 0; |
| |
| # read input events from x11vnc through STDIN: |
| # |
| while (<>) { |
| chomp; |
| if (/^Pointer/) { |
| my ($p, $client, $x, $y, $mask, $hint) = split(' ', $_, 6); |
| do_pointer($client, $x, $y, $mask, $hint); |
| } elsif (/^Keysym/) { |
| my ($k, $client, $down, $keysym, $name, $hint) = split(' ', $_, 6); |
| do_keysym($client, $down, $keysym, $name, $hint); |
| } |
| } |
| |
| close(FD); |
| |
| exit(0); |
| |
| sub do_keysym { |
| # qtmoko/neo does not support keystroke input. so these will be ignored. |
| # (one possibility would to be enable qtmoko to read from /dev/tty0. |
| # but the injection mechanism would need to be modified.) |
| my ($client, $down, $keysym, $name, $hint) = @_; |
| |
| $ENV{DO_KEYSYM} = "$client $down $keysym $name $hint"; |
| |
| # one could implement his own 'hot keys' here. |
| |
| # process any keycmds: |
| if (%keycmds && (exists $keycmds{$name} || exists $keycmds{ALL})) { |
| my $cmd = $keycmds{$name}; |
| if (!exists $keycmds{$name}) { |
| $cmd = $keycmds{ALL}; |
| print STDERR "keycmds: $name/ALL: running: $cmd\n"; |
| system("$cmd"); |
| } elsif ($down) { |
| print STDERR "keycmds: $name: running: $cmd\n"; |
| system("$cmd"); |
| } |
| return; |
| } |
| |
| $name = "XK_$name"; |
| my $nolookup = 0; |
| if (! exists $key_lookup{$name}) { |
| $nolookup = 1; |
| } elsif (! defined $key_lookup{$name}) { |
| $nolookup = 2; |
| } elsif ($key_lookup{$name} =~ /^\s*$/) { |
| $nolookup = 3; |
| } |
| if ($nolookup) { |
| print STDERR "do_keysym: key not implemented-$nolookup $down $keysym $name $hint.\n" if $debug; |
| return; |
| } |
| |
| print STDERR gettime() . " do_keysym: $name\n" if $debug; |
| do_key($key_lookup{$name}, $down); |
| } |
| |
| sub do_pointer { |
| my ($client, $x, $y, $mask, $hint) = @_; |
| my $x2 = $x; |
| my $y2 = $y; |
| if ($a_xform ne '') { |
| # this is tslib's /etc/pointercal format. |
| if (! @a) { |
| # -528 33408 -3417516 -44200 408 40292028 56541 |
| @a = split(' ', $a_xform); |
| foreach my $a (@a) { |
| $a += 0.0; |
| } |
| } |
| # this is the inverse of the tslib transformation: |
| # |
| $x2 = ( $a[4] * ($a[6] * $x - $a[2]) - $a[1] * ($a[6] * $y - $a[5]) ) |
| / ( $a[4] * $a[0] - $a[1] * $a[3]); |
| $y2 = ( $a[0] * ($a[6] * $y - $a[5]) - $a[3] * ($a[6] * $x - $a[2]) ) |
| / ( $a[4] * $a[0] - $a[1] * $a[3]); |
| $x2 = int($x2); |
| $y2 = int($y2); |
| } |
| |
| print STDERR gettime() . " do_pointer $x $y (=> $x2 $y2) $mask $hint.\n" if $debug; |
| |
| if (! $btn_touch) { |
| if ($curr_mask == 0 && $mask == 0) { |
| do_abs($x2, $y2, 0) if $absalways; |
| } elsif ($curr_mask == 0 && $mask != 0) { |
| do_abs($x2, $y2, $pressure); |
| $down_count = 0; |
| } elsif ($curr_mask != 0 && $mask == 0) { |
| do_abs($x2, $y2, 0); |
| } elsif ($curr_mask != 0 && $mask != 0) { |
| $down_count++; |
| if ($dragskip > 0) { |
| if ($down_count % $dragskip == 0) { |
| do_abs($x2, $y2, $pressure); |
| } else { |
| print STDERR "dragskip $down_count $dragskip\n" if $debug; |
| } |
| } else { |
| do_abs($x2, $y2, $pressure); |
| } |
| } |
| } else { |
| if ($curr_mask == 0 && $mask == 0) { |
| do_abs($x2, $y2, 0) if $absalways; |
| } elsif ($curr_mask == 0 && $mask != 0) { |
| do_abs($x2, $y2, 0); |
| do_btn($BTN_TOUCH, 1); |
| } elsif ($curr_mask != 0 && $mask == 0) { |
| do_abs($x2, $y2, 0); |
| do_btn($BTN_TOUCH, 0); |
| } elsif ($curr_mask != 0 && $mask != 0) { |
| ; |
| } |
| } |
| |
| $curr_mask = $mask; |
| $curr_x = $x2; |
| $curr_y = $y2; |
| } |
| |
| # struct input_event { |
| # struct timeval time; |
| # __u16 type; |
| # __u16 code; |
| # __s32 value; |
| # }; |
| |
| sub do_syn { |
| my $ev = gtod(); |
| $ev .= pack("S", $EV_SYN); |
| $ev .= pack("S", $SYN_REPORT); |
| $ev .= pack("i", 0); |
| print STDERR "do_syn EV_SYN\n" if $debug; |
| my $ret = syswrite(FD, $ev, length($ev)); |
| if (!defined $ret) { |
| print STDERR "do_syn: $!\n"; |
| } |
| } |
| |
| sub do_key { |
| # not supported by qtmoko |
| my ($key, $down) = @_; |
| my $ev = gtod(); |
| $ev .= pack("S", $EV_KEY); |
| $ev .= pack("S", $key); |
| $ev .= pack("i", $down); |
| print STDERR "do_key $key $down\n" if $debug; |
| my $ret = syswrite(FD, $ev, length($ev)); |
| if (!defined $ret) { |
| print STDERR "do_key: $!\n"; |
| } |
| do_syn(); |
| } |
| |
| sub do_btn { |
| # only BTN_TOUCH supported by qtmoko (but it seems to be ignored??) |
| my ($button, $down) = @_; |
| my $ev = gtod(); |
| $ev .= pack("S", $EV_KEY); |
| $ev .= pack("S", $button); |
| $ev .= pack("i", $down); |
| print STDERR "do_btn $button $down\n" if $debug; |
| my $ret = syswrite(FD, $ev, length($ev)); |
| if (!defined $ret) { |
| print STDERR "do_btn: $!\n"; |
| } |
| do_syn(); |
| } |
| |
| sub do_abs { |
| # absolute method is the workhorse for the touchscreen. |
| my ($x, $y, $p) = @_; |
| my $ev = gtod(); |
| $ev .= pack("S", $EV_ABS); |
| $ev .= pack("S", $ABS_Y); |
| $ev .= pack("i", $y); |
| print STDERR "do_abs y=$y\n" if $debug; |
| my $ret = syswrite(FD, $ev, length($ev)); |
| if (!defined $ret) { |
| print STDERR "do_abs: $!\n"; |
| } |
| $ev = gtod(); |
| $ev .= pack("S", $EV_ABS); |
| $ev .= pack("S", $ABS_X); |
| $ev .= pack("i", $x); |
| print STDERR "do_abs x=$x\n" if $debug; |
| $ret = syswrite(FD, $ev, length($ev)); |
| if (!defined $ret) { |
| print STDERR "do_abs: $!\n"; |
| } |
| $ev = gtod(); |
| $ev .= pack("S", $EV_ABS); |
| $ev .= pack("S", $ABS_PRESSURE); |
| $ev .= pack("i", $p); |
| print STDERR "do_abs p=$p\n" if $debug; |
| $ret = syswrite(FD, $ev, length($ev)); |
| if (!defined $ret) { |
| print STDERR "do_abs: $!\n"; |
| } |
| do_syn(); |
| } |
| |
| sub do_rel { |
| # not supported by qtmoko |
| my ($dx, $dy) = @_; |
| my $ev = gtod(); |
| $ev .= pack("S", $EV_REL); |
| $ev .= pack("S", $REL_Y); |
| $ev .= pack("i", $dy); |
| print STDERR "do_rel dy=$dy\n" if $debug; |
| my $ret = syswrite(FD, $ev, length($ev)); |
| if (!defined $ret) { |
| print STDERR "do_rel: $!\n"; |
| } |
| $ev = gtod(); |
| $ev .= pack("S", $EV_REL); |
| $ev .= pack("S", $REL_X); |
| $ev .= pack("i", $dx); |
| print STDERR "do_rel dx=$dx\n"; |
| $ret = syswrite(FD, $ev, length($ev)); |
| if (!defined $ret) { |
| print STDERR "do_rel: $!\n"; |
| } |
| do_syn(); |
| } |
| |
| sub gtod { |
| # 32 bit machines. TBD use perl module Time:HiRes. |
| $tv = ("\0" x 4) x 2; # assumes long is 4 bytes. should use pack. |
| $tz = ("\0" x 4) x 2; |
| syscall($linux_gettimeofday_syscall, $tv, $tz); |
| return $tv; |
| } |
| |
| sub gettime { |
| my $tv = gtod(); |
| my ($tv_sec, $tv_usec) = unpack("L2", $tv); |
| $tv_usec2 = sprintf("%8.6f", $tv_usec/1000000.0); |
| if ( $tv_usec2 =~ /^0\./ ) { |
| $tv_usec2 =~ s/^0\././; |
| $tv_sec = "$tv_sec$tv_usec2"; |
| } else { |
| $tv_sec = $tv_sec + ($tv_usec/1000000.0); |
| } |
| return sprintf("%.3f", $tv_sec - $start); |
| } |
| |
| sub fsleep { |
| my ($time) = @_; |
| select(undef, undef, undef, $time) if $time; |
| } |
| |
| sub set_constants { |
| |
| # from /usr/include/linux/uinput.h /usr/include/linux/input.h and x11vnc. |
| |
| # #define ABS_MAX 0x3f = 63 |
| # |
| # #define UINPUT_MAX_NAME_SIZE 80 |
| # |
| # struct input_id { |
| # __u16 bustype; |
| # __u16 vendor; |
| # __u16 product; |
| # __u16 version; |
| # }; |
| # |
| # struct uinput_user_dev { |
| # char name[UINPUT_MAX_NAME_SIZE]; |
| # struct input_id id; |
| # int ff_effects_max; |
| # int absmax[ABS_MAX + 1]; |
| # int absmin[ABS_MAX + 1]; |
| # int absfuzz[ABS_MAX + 1]; |
| # int absflat[ABS_MAX + 1]; |
| # }; |
| # #endif /* __UINPUT_H_ */ |
| |
| $EV_SYN = 0x00; |
| $EV_KEY = 0x01; |
| $EV_REL = 0x02; |
| $EV_ABS = 0x03; |
| $EV_MSC = 0x04; |
| $EV_SW = 0x05; |
| $EV_LED = 0x11; |
| $EV_SND = 0x12; |
| $EV_REP = 0x14; |
| $EV_FF = 0x15; |
| $EV_PWR = 0x16; |
| $EV_FF_STATUS = 0x17; |
| $EV_MAX = 0x1f; |
| |
| $ID_BUS = 0; |
| $ID_VENDOR = 1; |
| $ID_PRODUCT = 2; |
| $ID_VERSION = 3; |
| |
| $BUS_PCI = 0x01; |
| $BUS_ISAPNP = 0x02; |
| $BUS_USB = 0x03; |
| $BUS_HIL = 0x04; |
| $BUS_BLUETOOTH = 0x05; |
| $BUS_VIRTUAL = 0x06; |
| |
| $BUS_ISA = 0x10; |
| $BUS_I8042 = 0x11; |
| $BUS_XTKBD = 0x12; |
| $BUS_RS232 = 0x13; |
| $BUS_GAMEPORT = 0x14; |
| $BUS_PARPORT = 0x15; |
| $BUS_AMIGA = 0x16; |
| $BUS_ADB = 0x17; |
| $BUS_I2C = 0x18; |
| $BUS_HOST = 0x19; |
| $BUS_GSC = 0x1A; |
| $BUS_ATARI = 0x1B; |
| |
| $REL_X = 0x00; |
| $REL_Y = 0x01; |
| $REL_Z = 0x02; |
| $REL_RX = 0x03; |
| $REL_RY = 0x04; |
| $REL_RZ = 0x05; |
| $REL_HWHEEL = 0x06; |
| $REL_DIAL = 0x07; |
| $REL_WHEEL = 0x08; |
| $REL_MISC = 0x09; |
| |
| $ABS_X = 0x00; |
| $ABS_Y = 0x01; |
| $ABS_Z = 0x02; |
| $ABS_RX = 0x03; |
| $ABS_RY = 0x04; |
| $ABS_RZ = 0x05; |
| $ABS_THROTTLE = 0x06; |
| $ABS_RUDDER = 0x07; |
| $ABS_WHEEL = 0x08; |
| $ABS_GAS = 0x09; |
| $ABS_BRAKE = 0x0a; |
| $ABS_HAT0X = 0x10; |
| $ABS_HAT0Y = 0x11; |
| $ABS_HAT1X = 0x12; |
| $ABS_HAT1Y = 0x13; |
| $ABS_HAT2X = 0x14; |
| $ABS_HAT2Y = 0x15; |
| $ABS_HAT3X = 0x16; |
| $ABS_HAT3Y = 0x17; |
| $ABS_PRESSURE = 0x18; |
| $ABS_DISTANCE = 0x19; |
| $ABS_TILT_X = 0x1a; |
| $ABS_TILT_Y = 0x1b; |
| $ABS_TOOL_WIDTH = 0x1c; |
| $ABS_VOLUME = 0x20; |
| $ABS_MISC = 0x28; |
| $ABS_MT_TOUCH_MAJOR = 0x30; |
| $ABS_MT_TOUCH_MINOR = 0x31; |
| $ABS_MT_WIDTH_MAJOR = 0x32; |
| $ABS_MT_WIDTH_MINOR = 0x33; |
| $ABS_MT_ORIENTATION = 0x34; |
| $ABS_MT_POSITION_X = 0x35; |
| $ABS_MT_POSITION_Y = 0x36; |
| $ABS_MT_TOOL_TYPE = 0x37; |
| $ABS_MT_BLOB_ID = 0x38; |
| $ABS_MT_TRACKING_ID = 0x39; |
| #$ABS_MAX = 0x3f; |
| |
| |
| $BTN_MISC = 0x100; |
| $BTN_0 = 0x100; |
| $BTN_1 = 0x101; |
| $BTN_2 = 0x102; |
| $BTN_3 = 0x103; |
| $BTN_4 = 0x104; |
| $BTN_5 = 0x105; |
| $BTN_6 = 0x106; |
| $BTN_7 = 0x107; |
| $BTN_8 = 0x108; |
| $BTN_9 = 0x109; |
| |
| $BTN_MOUSE = 0x110; |
| $BTN_LEFT = 0x110; |
| $BTN_RIGHT = 0x111; |
| $BTN_MIDDLE = 0x112; |
| $BTN_SIDE = 0x113; |
| $BTN_EXTRA = 0x114; |
| $BTN_FORWARD = 0x115; |
| $BTN_BACK = 0x116; |
| $BTN_TASK = 0x117; |
| |
| $BTN_JOYSTICK = 0x120; |
| $BTN_TRIGGER = 0x120; |
| $BTN_THUMB = 0x121; |
| $BTN_THUMB2 = 0x122; |
| $BTN_TOP = 0x123; |
| $BTN_TOP2 = 0x124; |
| $BTN_PINKIE = 0x125; |
| $BTN_BASE = 0x126; |
| $BTN_BASE2 = 0x127; |
| $BTN_BASE3 = 0x128; |
| $BTN_BASE4 = 0x129; |
| $BTN_BASE5 = 0x12a; |
| $BTN_BASE6 = 0x12b; |
| $BTN_DEAD = 0x12f; |
| |
| $BTN_GAMEPAD = 0x130; |
| $BTN_A = 0x130; |
| $BTN_B = 0x131; |
| $BTN_C = 0x132; |
| $BTN_X = 0x133; |
| $BTN_Y = 0x134; |
| $BTN_Z = 0x135; |
| $BTN_TL = 0x136; |
| $BTN_TR = 0x137; |
| $BTN_TL2 = 0x138; |
| $BTN_TR2 = 0x139; |
| $BTN_SELECT = 0x13a; |
| $BTN_START = 0x13b; |
| $BTN_MODE = 0x13c; |
| $BTN_THUMBL = 0x13d; |
| $BTN_THUMBR = 0x13e; |
| |
| $BTN_DIGI = 0x140; |
| $BTN_TOOL_PEN = 0x140; |
| $BTN_TOOL_RUBBER = 0x141; |
| $BTN_TOOL_BRUSH = 0x142; |
| $BTN_TOOL_PENCIL = 0x143; |
| $BTN_TOOL_AIRBRUSH = 0x144; |
| $BTN_TOOL_FINGER = 0x145; |
| $BTN_TOOL_MOUSE = 0x146; |
| $BTN_TOOL_LENS = 0x147; |
| $BTN_TOUCH = 0x14a; |
| $BTN_STYLUS = 0x14b; |
| $BTN_STYLUS2 = 0x14c; |
| $BTN_TOOL_DOUBLETAP = 0x14d; |
| $BTN_TOOL_TRIPLETAP = 0x14e; |
| |
| $BTN_WHEEL = 0x150; |
| $BTN_GEAR_DOWN = 0x150; |
| $BTN_GEAR_UP = 0x151; |
| |
| $SYN_REPORT = 0; |
| $SYN_CONFIG = 1; |
| $SYN_MT_REPORT = 2; |
| |
| $KEY_RESERVED = 0; |
| $KEY_ESC = 1; |
| $KEY_1 = 2; |
| $KEY_2 = 3; |
| $KEY_3 = 4; |
| $KEY_4 = 5; |
| $KEY_5 = 6; |
| $KEY_6 = 7; |
| $KEY_7 = 8; |
| $KEY_8 = 9; |
| $KEY_9 = 10; |
| $KEY_0 = 11; |
| $KEY_MINUS = 12; |
| $KEY_EQUAL = 13; |
| $KEY_BACKSPACE = 14; |
| $KEY_TAB = 15; |
| $KEY_Q = 16; |
| $KEY_W = 17; |
| $KEY_E = 18; |
| $KEY_R = 19; |
| $KEY_T = 20; |
| $KEY_Y = 21; |
| $KEY_U = 22; |
| $KEY_I = 23; |
| $KEY_O = 24; |
| $KEY_P = 25; |
| $KEY_LEFTBRACE = 26; |
| $KEY_RIGHTBRACE = 27; |
| $KEY_ENTER = 28; |
| $KEY_LEFTCTRL = 29; |
| $KEY_A = 30; |
| $KEY_S = 31; |
| $KEY_D = 32; |
| $KEY_F = 33; |
| $KEY_G = 34; |
| $KEY_H = 35; |
| $KEY_J = 36; |
| $KEY_K = 37; |
| $KEY_L = 38; |
| $KEY_SEMICOLON = 39; |
| $KEY_APOSTROPHE = 40; |
| $KEY_GRAVE = 41; |
| $KEY_LEFTSHIFT = 42; |
| $KEY_BACKSLASH = 43; |
| $KEY_Z = 44; |
| $KEY_X = 45; |
| $KEY_C = 46; |
| $KEY_V = 47; |
| $KEY_B = 48; |
| $KEY_N = 49; |
| $KEY_M = 50; |
| $KEY_COMMA = 51; |
| $KEY_DOT = 52; |
| $KEY_SLASH = 53; |
| $KEY_RIGHTSHIFT = 54; |
| $KEY_KPASTERISK = 55; |
| $KEY_LEFTALT = 56; |
| $KEY_SPACE = 57; |
| $KEY_CAPSLOCK = 58; |
| $KEY_F1 = 59; |
| $KEY_F2 = 60; |
| $KEY_F3 = 61; |
| $KEY_F4 = 62; |
| $KEY_F5 = 63; |
| $KEY_F6 = 64; |
| $KEY_F7 = 65; |
| $KEY_F8 = 66; |
| $KEY_F9 = 67; |
| $KEY_F10 = 68; |
| $KEY_NUMLOCK = 69; |
| $KEY_SCROLLLOCK = 70; |
| $KEY_KP7 = 71; |
| $KEY_KP8 = 72; |
| $KEY_KP9 = 73; |
| $KEY_KPMINUS = 74; |
| $KEY_KP4 = 75; |
| $KEY_KP5 = 76; |
| $KEY_KP6 = 77; |
| $KEY_KPPLUS = 78; |
| $KEY_KP1 = 79; |
| $KEY_KP2 = 80; |
| $KEY_KP3 = 81; |
| $KEY_KP0 = 82; |
| $KEY_KPDOT = 83; |
| $KEY_103RD = 84; |
| $KEY_F13 = 85; |
| $KEY_102ND = 86; |
| $KEY_F11 = 87; |
| $KEY_F12 = 88; |
| $KEY_F14 = 89; |
| $KEY_F15 = 90; |
| $KEY_F16 = 91; |
| $KEY_F17 = 92; |
| $KEY_F18 = 93; |
| $KEY_F19 = 94; |
| $KEY_F20 = 95; |
| $KEY_KPENTER = 96; |
| $KEY_RIGHTCTRL = 97; |
| $KEY_KPSLASH = 98; |
| $KEY_SYSRQ = 99; |
| $KEY_RIGHTALT = 100; |
| $KEY_LINEFEED = 101; |
| $KEY_HOME = 102; |
| $KEY_UP = 103; |
| $KEY_PAGEUP = 104; |
| $KEY_LEFT = 105; |
| $KEY_RIGHT = 106; |
| $KEY_END = 107; |
| $KEY_DOWN = 108; |
| $KEY_PAGEDOWN = 109; |
| $KEY_INSERT = 110; |
| $KEY_DELETE = 111; |
| $KEY_MACRO = 112; |
| $KEY_MUTE = 113; |
| $KEY_VOLUMEDOWN = 114; |
| $KEY_VOLUMEUP = 115; |
| $KEY_POWER = 116; |
| $KEY_KPEQUAL = 117; |
| $KEY_KPPLUSMINUS = 118; |
| $KEY_PAUSE = 119; |
| $KEY_F21 = 120; |
| $KEY_F22 = 121; |
| $KEY_F23 = 122; |
| $KEY_F24 = 123; |
| $KEY_KPCOMMA = 124; |
| $KEY_LEFTMETA = 125; |
| $KEY_RIGHTMETA = 126; |
| $KEY_COMPOSE = 127; |
| $KEY_STOP = 128; |
| $KEY_AGAIN = 129; |
| $KEY_PROPS = 130; |
| $KEY_UNDO = 131; |
| $KEY_FRONT = 132; |
| $KEY_COPY = 133; |
| $KEY_OPEN = 134; |
| $KEY_PASTE = 135; |
| $KEY_FIND = 136; |
| $KEY_CUT = 137; |
| $KEY_HELP = 138; |
| $KEY_MENU = 139; |
| $KEY_CALC = 140; |
| $KEY_SETUP = 141; |
| $KEY_SLEEP = 142; |
| $KEY_WAKEUP = 143; |
| $KEY_FILE = 144; |
| $KEY_SENDFILE = 145; |
| $KEY_DELETEFILE = 146; |
| $KEY_XFER = 147; |
| $KEY_PROG1 = 148; |
| $KEY_PROG2 = 149; |
| $KEY_WWW = 150; |
| $KEY_MSDOS = 151; |
| $KEY_COFFEE = 152; |
| $KEY_DIRECTION = 153; |
| $KEY_CYCLEWINDOWS = 154; |
| $KEY_MAIL = 155; |
| $KEY_BOOKMARKS = 156; |
| $KEY_COMPUTER = 157; |
| $KEY_BACK = 158; |
| $KEY_FORWARD = 159; |
| $KEY_CLOSECD = 160; |
| $KEY_EJECTCD = 161; |
| $KEY_EJECTCLOSECD = 162; |
| $KEY_NEXTSONG = 163; |
| $KEY_PLAYPAUSE = 164; |
| $KEY_PREVIOUSSONG = 165; |
| $KEY_STOPCD = 166; |
| $KEY_RECORD = 167; |
| $KEY_REWIND = 168; |
| $KEY_PHONE = 169; |
| $KEY_ISO = 170; |
| $KEY_CONFIG = 171; |
| $KEY_HOMEPAGE = 172; |
| $KEY_REFRESH = 173; |
| $KEY_EXIT = 174; |
| $KEY_MOVE = 175; |
| $KEY_EDIT = 176; |
| $KEY_SCROLLUP = 177; |
| $KEY_SCROLLDOWN = 178; |
| $KEY_KPLEFTPAREN = 179; |
| $KEY_KPRIGHTPAREN = 180; |
| $KEY_INTL1 = 181; |
| $KEY_INTL2 = 182; |
| $KEY_INTL3 = 183; |
| $KEY_INTL4 = 184; |
| $KEY_INTL5 = 185; |
| $KEY_INTL6 = 186; |
| $KEY_INTL7 = 187; |
| $KEY_INTL8 = 188; |
| $KEY_INTL9 = 189; |
| $KEY_LANG1 = 190; |
| $KEY_LANG2 = 191; |
| $KEY_LANG3 = 192; |
| $KEY_LANG4 = 193; |
| $KEY_LANG5 = 194; |
| $KEY_LANG6 = 195; |
| $KEY_LANG7 = 196; |
| $KEY_LANG8 = 197; |
| $KEY_LANG9 = 198; |
| $KEY_PLAYCD = 200; |
| $KEY_PAUSECD = 201; |
| $KEY_PROG3 = 202; |
| $KEY_PROG4 = 203; |
| $KEY_SUSPEND = 205; |
| $KEY_CLOSE = 206; |
| $KEY_PLAY = 207; |
| $KEY_FASTFORWARD = 208; |
| $KEY_BASSBOOST = 209; |
| $KEY_PRINT = 210; |
| $KEY_HP = 211; |
| $KEY_CAMERA = 212; |
| $KEY_SOUND = 213; |
| $KEY_QUESTION = 214; |
| $KEY_EMAIL = 215; |
| $KEY_CHAT = 216; |
| $KEY_SEARCH = 217; |
| $KEY_CONNECT = 218; |
| $KEY_FINANCE = 219; |
| $KEY_SPORT = 220; |
| $KEY_SHOP = 221; |
| $KEY_ALTERASE = 222; |
| $KEY_CANCEL = 223; |
| $KEY_BRIGHTNESSDOWN = 224; |
| $KEY_BRIGHTNESSUP = 225; |
| $KEY_MEDIA = 226; |
| $KEY_UNKNOWN = 240; |
| $KEY_OK = 0x160; |
| $KEY_SELECT = 0x161; |
| $KEY_GOTO = 0x162; |
| $KEY_CLEAR = 0x163; |
| $KEY_POWER2 = 0x164; |
| $KEY_OPTION = 0x165; |
| $KEY_INFO = 0x166; |
| $KEY_TIME = 0x167; |
| $KEY_VENDOR = 0x168; |
| $KEY_ARCHIVE = 0x169; |
| $KEY_PROGRAM = 0x16a; |
| $KEY_CHANNEL = 0x16b; |
| $KEY_FAVORITES = 0x16c; |
| $KEY_EPG = 0x16d; |
| $KEY_PVR = 0x16e; |
| $KEY_MHP = 0x16f; |
| $KEY_LANGUAGE = 0x170; |
| $KEY_TITLE = 0x171; |
| $KEY_SUBTITLE = 0x172; |
| $KEY_ANGLE = 0x173; |
| $KEY_ZOOM = 0x174; |
| $KEY_MODE = 0x175; |
| $KEY_KEYBOARD = 0x176; |
| $KEY_SCREEN = 0x177; |
| $KEY_PC = 0x178; |
| $KEY_TV = 0x179; |
| $KEY_TV2 = 0x17a; |
| $KEY_VCR = 0x17b; |
| $KEY_VCR2 = 0x17c; |
| $KEY_SAT = 0x17d; |
| $KEY_SAT2 = 0x17e; |
| $KEY_CD = 0x17f; |
| $KEY_TAPE = 0x180; |
| $KEY_RADIO = 0x181; |
| $KEY_TUNER = 0x182; |
| $KEY_PLAYER = 0x183; |
| $KEY_TEXT = 0x184; |
| $KEY_DVD = 0x185; |
| $KEY_AUX = 0x186; |
| $KEY_MP3 = 0x187; |
| $KEY_AUDIO = 0x188; |
| $KEY_VIDEO = 0x189; |
| $KEY_DIRECTORY = 0x18a; |
| $KEY_LIST = 0x18b; |
| $KEY_MEMO = 0x18c; |
| $KEY_CALENDAR = 0x18d; |
| $KEY_RED = 0x18e; |
| $KEY_GREEN = 0x18f; |
| $KEY_YELLOW = 0x190; |
| $KEY_BLUE = 0x191; |
| $KEY_CHANNELUP = 0x192; |
| $KEY_CHANNELDOWN = 0x193; |
| $KEY_FIRST = 0x194; |
| $KEY_LAST = 0x195; |
| $KEY_AB = 0x196; |
| $KEY_NEXT = 0x197; |
| $KEY_RESTART = 0x198; |
| $KEY_SLOW = 0x199; |
| $KEY_SHUFFLE = 0x19a; |
| $KEY_BREAK = 0x19b; |
| $KEY_PREVIOUS = 0x19c; |
| $KEY_DIGITS = 0x19d; |
| $KEY_TEEN = 0x19e; |
| $KEY_TWEN = 0x19f; |
| $KEY_DEL_EOL = 0x1c0; |
| $KEY_DEL_EOS = 0x1c1; |
| $KEY_INS_LINE = 0x1c2; |
| $KEY_DEL_LINE = 0x1c3; |
| $KEY_MAX = 0x1ff; |
| |
| |
| $key_lookup{XK_Escape} = $KEY_ESC; |
| $key_lookup{XK_1} = $KEY_1; |
| $key_lookup{XK_2} = $KEY_2; |
| $key_lookup{XK_3} = $KEY_3; |
| $key_lookup{XK_4} = $KEY_4; |
| $key_lookup{XK_5} = $KEY_5; |
| $key_lookup{XK_6} = $KEY_6; |
| $key_lookup{XK_7} = $KEY_7; |
| $key_lookup{XK_8} = $KEY_8; |
| $key_lookup{XK_9} = $KEY_9; |
| $key_lookup{XK_0} = $KEY_0; |
| $key_lookup{XK_exclam} = $KEY_1; |
| $key_lookup{XK_at} = $KEY_2; |
| $key_lookup{XK_numbersign} = $KEY_3; |
| $key_lookup{XK_dollar} = $KEY_4; |
| $key_lookup{XK_percent} = $KEY_5; |
| $key_lookup{XK_asciicircum} = $KEY_6; |
| $key_lookup{XK_ampersand} = $KEY_7; |
| $key_lookup{XK_asterisk} = $KEY_8; |
| $key_lookup{XK_parenleft} = $KEY_9; |
| $key_lookup{XK_parenright} = $KEY_0; |
| $key_lookup{XK_minus} = $KEY_MINUS; |
| $key_lookup{XK_underscore} = $KEY_MINUS; |
| $key_lookup{XK_equal} = $KEY_EQUAL; |
| $key_lookup{XK_plus} = $KEY_EQUAL; |
| $key_lookup{XK_BackSpace} = $KEY_BACKSPACE; |
| $key_lookup{XK_Tab} = $KEY_TAB; |
| $key_lookup{XK_q} = $KEY_Q; |
| $key_lookup{XK_Q} = $KEY_Q; |
| $key_lookup{XK_w} = $KEY_W; |
| $key_lookup{XK_W} = $KEY_W; |
| $key_lookup{XK_e} = $KEY_E; |
| $key_lookup{XK_E} = $KEY_E; |
| $key_lookup{XK_r} = $KEY_R; |
| $key_lookup{XK_R} = $KEY_R; |
| $key_lookup{XK_t} = $KEY_T; |
| $key_lookup{XK_T} = $KEY_T; |
| $key_lookup{XK_y} = $KEY_Y; |
| $key_lookup{XK_Y} = $KEY_Y; |
| $key_lookup{XK_u} = $KEY_U; |
| $key_lookup{XK_U} = $KEY_U; |
| $key_lookup{XK_i} = $KEY_I; |
| $key_lookup{XK_I} = $KEY_I; |
| $key_lookup{XK_o} = $KEY_O; |
| $key_lookup{XK_O} = $KEY_O; |
| $key_lookup{XK_p} = $KEY_P; |
| $key_lookup{XK_P} = $KEY_P; |
| $key_lookup{XK_braceleft} = $KEY_LEFTBRACE; |
| $key_lookup{XK_braceright} = $KEY_RIGHTBRACE; |
| $key_lookup{XK_bracketleft} = $KEY_LEFTBRACE; |
| $key_lookup{XK_bracketright} = $KEY_RIGHTBRACE; |
| $key_lookup{XK_Return} = $KEY_ENTER; |
| $key_lookup{XK_Control_L} = $KEY_LEFTCTRL; |
| $key_lookup{XK_a} = $KEY_A; |
| $key_lookup{XK_A} = $KEY_A; |
| $key_lookup{XK_s} = $KEY_S; |
| $key_lookup{XK_S} = $KEY_S; |
| $key_lookup{XK_d} = $KEY_D; |
| $key_lookup{XK_D} = $KEY_D; |
| $key_lookup{XK_f} = $KEY_F; |
| $key_lookup{XK_F} = $KEY_F; |
| $key_lookup{XK_g} = $KEY_G; |
| $key_lookup{XK_G} = $KEY_G; |
| $key_lookup{XK_h} = $KEY_H; |
| $key_lookup{XK_H} = $KEY_H; |
| $key_lookup{XK_j} = $KEY_J; |
| $key_lookup{XK_J} = $KEY_J; |
| $key_lookup{XK_k} = $KEY_K; |
| $key_lookup{XK_K} = $KEY_K; |
| $key_lookup{XK_l} = $KEY_L; |
| $key_lookup{XK_L} = $KEY_L; |
| $key_lookup{XK_semicolon} = $KEY_SEMICOLON; |
| $key_lookup{XK_colon} = $KEY_SEMICOLON; |
| $key_lookup{XK_apostrophe} = $KEY_APOSTROPHE; |
| $key_lookup{XK_quotedbl} = $KEY_APOSTROPHE; |
| $key_lookup{XK_grave} = $KEY_GRAVE; |
| $key_lookup{XK_asciitilde} = $KEY_GRAVE; |
| $key_lookup{XK_Shift_L} = $KEY_LEFTSHIFT; |
| $key_lookup{XK_backslash} = $KEY_BACKSLASH; |
| $key_lookup{XK_bar} = $KEY_BACKSLASH; |
| $key_lookup{XK_z} = $KEY_Z; |
| $key_lookup{XK_Z} = $KEY_Z; |
| $key_lookup{XK_x} = $KEY_X; |
| $key_lookup{XK_X} = $KEY_X; |
| $key_lookup{XK_c} = $KEY_C; |
| $key_lookup{XK_C} = $KEY_C; |
| $key_lookup{XK_v} = $KEY_V; |
| $key_lookup{XK_V} = $KEY_V; |
| $key_lookup{XK_b} = $KEY_B; |
| $key_lookup{XK_B} = $KEY_B; |
| $key_lookup{XK_n} = $KEY_N; |
| $key_lookup{XK_N} = $KEY_N; |
| $key_lookup{XK_m} = $KEY_M; |
| $key_lookup{XK_M} = $KEY_M; |
| $key_lookup{XK_comma} = $KEY_COMMA; |
| $key_lookup{XK_less} = $KEY_COMMA; |
| $key_lookup{XK_period} = $KEY_DOT; |
| $key_lookup{XK_greater} = $KEY_DOT; |
| $key_lookup{XK_slash} = $KEY_SLASH; |
| $key_lookup{XK_question} = $KEY_SLASH; |
| $key_lookup{XK_Shift_R} = $KEY_RIGHTSHIFT; |
| $key_lookup{XK_KP_Multiply} = $KEY_KPASTERISK; |
| $key_lookup{XK_Alt_L} = $KEY_LEFTALT; |
| $key_lookup{XK_space} = $KEY_SPACE; |
| $key_lookup{XK_Caps_Lock} = $KEY_CAPSLOCK; |
| $key_lookup{XK_F1} = $KEY_F1; |
| $key_lookup{XK_F2} = $KEY_F2; |
| $key_lookup{XK_F3} = $KEY_F3; |
| $key_lookup{XK_F4} = $KEY_F4; |
| $key_lookup{XK_F5} = $KEY_F5; |
| $key_lookup{XK_F6} = $KEY_F6; |
| $key_lookup{XK_F7} = $KEY_F7; |
| $key_lookup{XK_F8} = $KEY_F8; |
| $key_lookup{XK_F9} = $KEY_F9; |
| $key_lookup{XK_F10} = $KEY_F10; |
| $key_lookup{XK_Num_Lock} = $KEY_NUMLOCK; |
| $key_lookup{XK_Scroll_Lock} = $KEY_SCROLLLOCK; |
| $key_lookup{XK_KP_7} = $KEY_KP7; |
| $key_lookup{XK_KP_8} = $KEY_KP8; |
| $key_lookup{XK_KP_9} = $KEY_KP9; |
| $key_lookup{XK_KP_Subtract} = $KEY_KPMINUS; |
| $key_lookup{XK_KP_4} = $KEY_KP4; |
| $key_lookup{XK_KP_5} = $KEY_KP5; |
| $key_lookup{XK_KP_6} = $KEY_KP6; |
| $key_lookup{XK_KP_Add} = $KEY_KPPLUS; |
| $key_lookup{XK_KP_1} = $KEY_KP1; |
| $key_lookup{XK_KP_2} = $KEY_KP2; |
| $key_lookup{XK_KP_3} = $KEY_KP3; |
| $key_lookup{XK_KP_0} = $KEY_KP0; |
| $key_lookup{XK_KP_Decimal} = $KEY_KPDOT; |
| $key_lookup{XK_F13} = $KEY_F13; |
| $key_lookup{XK_F11} = $KEY_F11; |
| $key_lookup{XK_F12} = $KEY_F12; |
| $key_lookup{XK_F14} = $KEY_F14; |
| $key_lookup{XK_F15} = $KEY_F15; |
| $key_lookup{XK_F16} = $KEY_F16; |
| $key_lookup{XK_F17} = $KEY_F17; |
| $key_lookup{XK_F18} = $KEY_F18; |
| $key_lookup{XK_F19} = $KEY_F19; |
| $key_lookup{XK_F20} = $KEY_F20; |
| $key_lookup{XK_KP_Enter} = $KEY_KPENTER; |
| $key_lookup{XK_Control_R} = $KEY_RIGHTCTRL; |
| $key_lookup{XK_KP_Divide} = $KEY_KPSLASH; |
| $key_lookup{XK_Sys_Req} = $KEY_SYSRQ; |
| $key_lookup{XK_Alt_R} = $KEY_RIGHTALT; |
| $key_lookup{XK_Linefeed} = $KEY_LINEFEED; |
| $key_lookup{XK_Home} = $KEY_HOME; |
| $key_lookup{XK_Up} = $KEY_UP; |
| $key_lookup{XK_Page_Up} = $KEY_PAGEUP; |
| $key_lookup{XK_Left} = $KEY_LEFT; |
| $key_lookup{XK_Right} = $KEY_RIGHT; |
| $key_lookup{XK_End} = $KEY_END; |
| $key_lookup{XK_Down} = $KEY_DOWN; |
| $key_lookup{XK_Page_Down} = $KEY_PAGEDOWN; |
| $key_lookup{XK_Insert} = $KEY_INSERT; |
| $key_lookup{XK_Delete} = $KEY_DELETE; |
| $key_lookup{XK_KP_Equal} = $KEY_KPEQUAL; |
| $key_lookup{XK_Pause} = $KEY_PAUSE; |
| $key_lookup{XK_F21} = $KEY_F21; |
| $key_lookup{XK_F22} = $KEY_F22; |
| $key_lookup{XK_F23} = $KEY_F23; |
| $key_lookup{XK_F24} = $KEY_F24; |
| $key_lookup{XK_KP_Separator} = $KEY_KPCOMMA; |
| $key_lookup{XK_Meta_L} = $KEY_LEFTMETA; |
| $key_lookup{XK_Meta_R} = $KEY_RIGHTMETA; |
| $key_lookup{XK_Multi_key} = $KEY_COMPOSE; |
| |
| $ABS_MAX = 63; |
| |
| $UI_DEV_CREATE = 0x5501; |
| $UI_DEV_DESTROY = 0x5502; |
| $UI_SET_EVBIT = 0x40045564; |
| $UI_SET_KEYBIT = 0x40045565; |
| $UI_SET_RELBIT = 0x40045566; |
| $UI_SET_ABSBIT = 0x40045567; |
| |
| # FIXME: time hires, etc. |
| $linux_gettimeofday_syscall = 78; |
| |
| $O_RDONLY = 00; |
| $O_WRONLY = 01; |
| $O_RDWR = 02; |
| $O_NDELAY = 04000; |
| |
| } |
