summaryrefslogtreecommitdiffstats
path: root/x11vnc/misc
diff options
context:
space:
mode:
Diffstat (limited to 'x11vnc/misc')
-rw-r--r--x11vnc/misc/Makefile.am2
-rw-r--r--x11vnc/misc/README4
-rwxr-xr-xx11vnc/misc/qt_tslib_inject.pl1064
-rwxr-xr-xx11vnc/misc/uinput.pl946
4 files changed, 2015 insertions, 1 deletions
diff --git a/x11vnc/misc/Makefile.am b/x11vnc/misc/Makefile.am
index 98a7511..e6a50aa 100644
--- a/x11vnc/misc/Makefile.am
+++ b/x11vnc/misc/Makefile.am
@@ -1,3 +1,3 @@
SUBDIRS = turbovnc
DIST_SUBDIRS = turbovnc
-EXTRA_DIST=README blockdpy.c dtVncPopup rx11vnc rx11vnc.pl shm_clear ranfb.pl slide.pl vcinject.pl x11vnc_loop Xdummy ultravnc_repeater.pl connect_switch panner.pl desktop.cgi inet6to4
+EXTRA_DIST=README blockdpy.c dtVncPopup rx11vnc rx11vnc.pl shm_clear ranfb.pl slide.pl vcinject.pl x11vnc_loop Xdummy ultravnc_repeater.pl connect_switch panner.pl desktop.cgi inet6to4 uinput.pl qt_tslib_inject.pl
diff --git a/x11vnc/misc/README b/x11vnc/misc/README
index f38616e..2ed1dff 100644
--- a/x11vnc/misc/README
+++ b/x11vnc/misc/README
@@ -26,6 +26,10 @@ x11vnc -pipeinput/-rawfb utilities:
slide.pl amusing example using x11vnc -rawfb for jpeg slideshow.
ranfb.pl example -rawfb setup:./ranfb.pl to set up a framebuffer.
+ uinput.pl test perl script for Linux uinput injection.
+
+ qt_tslib_inject.pl touchscreen -pipeinput helper for tslib on qtmoko.
+
Misc. scripts:
shm_clear list or remove orphaned shm slots from hard x11vnc crashes.
diff --git a/x11vnc/misc/qt_tslib_inject.pl b/x11vnc/misc/qt_tslib_inject.pl
new file mode 100755
index 0000000..d69d174
--- /dev/null
+++ b/x11vnc/misc/qt_tslib_inject.pl
@@ -0,0 +1,1064 @@
+#!/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;
+
+}
diff --git a/x11vnc/misc/uinput.pl b/x11vnc/misc/uinput.pl
new file mode 100755
index 0000000..9620140
--- /dev/null
+++ b/x11vnc/misc/uinput.pl
@@ -0,0 +1,946 @@
+#!/usr/bin/perl
+
+# This is a test injection script for Linux uinput.
+# It can be handy working out / troubleshooting Linux uinput injection on a new device.
+
+#
+# Copyright (c) 2010 by Karl J. Runge <runge@karlrunge.com>
+#
+# uinput.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.
+#
+# uinput.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 uinput.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();
+
+# options for what injection to handle:
+$rel = 1;
+$abs = 1;
+$touch = 1;
+$allkeys = 1;
+
+# these can be set via env:
+
+$WIDTH = $ENV{WIDTH};
+$WIDTH = 480 unless $WIDTH;
+$HEIGHT = $ENV{HEIGHT};
+$HEIGHT = 640 unless $HEIGHT;
+$DEV = $ENV{DEV};
+$DEV = "/dev/input/uinput" unless $DEV;
+
+# this fills in name and input type part of uinput_user_dev struct:
+
+$udev = "uinput.pl";
+$n = 80 - length($udev);
+$udev .= "\0" x $n;
+
+$udev .= "\0" x 2; # bus
+$udev .= "\0" x 2; # vendor
+$udev .= "\0" x 2; # product
+$udev .= "\0" x 2; # version
+
+$udev .= "\0" x 4; # ff_effects_max
+
+# this fills in the abs arrays:
+#
+foreach $type (qw(absmax absmin absfuzz absflat)) {
+ $n = $ABS_MAX + 1;
+ for ($j = 0; $j < $n; $j++) {
+ if ($abs && $type eq 'absmax' && $j == $ABS_X) {
+ $udev .= pack("i", $WIDTH-1);
+ } elsif ($abs && $type eq 'absmax' && $j == $ABS_Y) {
+ $udev .= pack("i", $HEIGHT-1);
+ } else {
+ $udev .= "\0" x 4;
+ }
+ }
+}
+
+print "udev: ", length($udev) . " '$udev'\n";
+
+$modes = $O_RDWR;
+$modes = $O_WRONLY | $O_NDELAY;
+printf("open modes: 0x%x\n", $modes);
+
+sysopen(FD, $DEV, $modes) || die "$DEV: $!";
+
+if ($rel) {
+ io_ctl($UI_SET_EVBIT, $EV_REL);
+ io_ctl($UI_SET_RELBIT, $REL_X);
+ io_ctl($UI_SET_RELBIT, $REL_Y);
+}
+
+io_ctl($UI_SET_EVBIT, $EV_KEY);
+
+io_ctl($UI_SET_EVBIT, $EV_SYN);
+
+for ($i=0; $i < 256; $i++) {
+ last unless $allkeys;
+ io_ctl($UI_SET_KEYBIT, $i);
+}
+
+io_ctl($UI_SET_KEYBIT, $BTN_MOUSE);
+io_ctl($UI_SET_KEYBIT, $BTN_LEFT);
+io_ctl($UI_SET_KEYBIT, $BTN_MIDDLE);
+io_ctl($UI_SET_KEYBIT, $BTN_RIGHT);
+io_ctl($UI_SET_KEYBIT, $BTN_FORWARD);
+io_ctl($UI_SET_KEYBIT, $BTN_BACK);
+
+if ($abs) {
+ io_ctl($UI_SET_KEYBIT, $BTN_TOUCH) if $touch;
+ io_ctl($UI_SET_EVBIT, $EV_ABS);
+ io_ctl($UI_SET_ABSBIT, $ABS_X);
+ io_ctl($UI_SET_ABSBIT, $ABS_Y);
+}
+
+$ret = syswrite(FD, $udev, length($udev));
+print "syswrite: $ret\n";
+
+io_ctl($UI_DEV_CREATE);
+fsleep(0.25);
+
+# this should show our new virtual device:
+#
+system("cat /proc/bus/input/devices 1>&2");
+print STDERR "\n";
+
+#################################################
+# put in your various test injection events here:
+
+#do_key($KEY_A, 1, 0.1);
+#do_key($KEY_A, 0, 0.1);
+
+#do_key($KEY_POWER, 1, 0.1);
+#do_key($KEY_POWER, 0, 0.1);
+
+do_abs(118, 452, 0, 0.1);
+
+do_abs(110, 572, 1, 0.1);
+
+do_btn($BTN_TOUCH, 1, 0.1);
+do_btn($BTN_TOUCH, 0, 0.1);
+
+do_btn($BTN_MOUSE, 1, 0.1);
+do_btn($BTN_MOUSE, 0, 0.1);
+#################################################
+
+fsleep(0.25);
+io_ctl($UI_DEV_DESTROY);
+
+close(FD);
+
+exit(0);
+
+sub io_ctl {
+ my ($cmd, $val) = @_;
+ if (defined $val) {
+ my $ret = syscall($linux_ioctl_syscall, fileno(FD), $cmd, $val);
+ my $err = $!; $err = '' if $ret == 0;
+ print STDERR "io_ctl(FD, $cmd, $val) = $ret $err\n";
+ } else {
+ my $ret = syscall($linux_ioctl_syscall, fileno(FD), $cmd);
+ my $err = $!; $err = '' if $ret == 0;
+ print STDERR "io_ctl(FD, $cmd) = $ret $err\n";
+ }
+}
+
+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";
+ my $ret = syswrite(FD, $ev, length($ev));
+ if (!defined $ret) {
+ print STDERR "do_syn: $!\n";
+ }
+}
+
+sub do_key {
+ my ($key, $down, $sleep) = @_;
+ my $ev = gtod();
+ $ev .= pack("S", $EV_KEY);
+ $ev .= pack("S", $key);
+ $ev .= pack("i", $down);
+ print STDERR "do_key $key $down\n";
+ my $ret = syswrite(FD, $ev, length($ev));
+ if (!defined $ret) {
+ print STDERR "do_key: $!\n";
+ }
+ do_syn();
+ fsleep($sleep);
+ print STDERR "\n";
+}
+
+sub do_btn {
+ my ($button, $down, $sleep) = @_;
+ my $ev = gtod();
+ $ev .= pack("S", $EV_KEY);
+ $ev .= pack("S", $button);
+ $ev .= pack("i", $down);
+ print STDERR "do_btn $button $down\n";
+ my $ret = syswrite(FD, $ev, length($ev));
+ if (!defined $ret) {
+ print STDERR "do_btn: $!\n";
+ }
+ do_syn();
+ fsleep($sleep);
+ print STDERR "\n";
+}
+
+sub do_abs {
+ my ($x, $y, $p, $sleep) = @_;
+ my $ev = gtod();
+ $ev .= pack("S", $EV_ABS);
+ $ev .= pack("S", $ABS_Y);
+ $ev .= pack("i", $y);
+ print STDERR "do_abs y=$y\n";
+ 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";
+ $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";
+ $ret = syswrite(FD, $ev, length($ev));
+ if (!defined $ret) {
+ print STDERR "do_abs: $!\n";
+ }
+ do_syn();
+ fsleep($sleep);
+ print STDERR "\n";
+}
+
+sub do_rel {
+ my ($dx, $dy, $sleep) = @_;
+ my $ev = gtod();
+ $ev .= pack("S", $EV_REL);
+ $ev .= pack("S", $REL_Y);
+ $ev .= pack("i", $dy);
+ print STDERR "do_rel dy=$dy\n";
+ 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();
+ fsleep($sleep);
+ print STDERR "\n";
+}
+
+sub gtod {
+ $tv = ("\0" x 4) x 2; # assumes long is 4 bytes. FIXME: use pack.
+ $tz = ("\0" x 4) x 2;
+ syscall($linux_gettimeofday_syscall, $tv, $tz);
+ return $tv;
+}
+
+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;
+
+}
generated by cgit v1.2.1 (git 2.18.0) at 2024-12-25 01:23:16 +0000