diff options
Diffstat (limited to 'perl-install/xf86misc/main.xs')
-rw-r--r-- | perl-install/xf86misc/main.xs | 76 |
1 files changed, 0 insertions, 76 deletions
diff --git a/perl-install/xf86misc/main.xs b/perl-install/xf86misc/main.xs deleted file mode 100644 index 696f8dde8..000000000 --- a/perl-install/xf86misc/main.xs +++ /dev/null @@ -1,76 +0,0 @@ -#include "EXTERN.h" -#include "perl.h" -#include "XSUB.h" - -#include <X11/Xlib.h> -#include <X11/extensions/xf86misc.h> - -#include <term.h> -#undef max_colors - -void initIMPS2() { - unsigned char imps2_s1[] = { 243, 200, 243, 100, 243, 80, }; - unsigned char imps2_s2[] = { 246, 230, 244, 243, 100, 232, 3, }; - - int fd = open("/dev/mouse", O_WRONLY); - if (fd < 0) return; - - write (fd, imps2_s1, sizeof (imps2_s1)); - usleep (30000); - write (fd, imps2_s2, sizeof (imps2_s2)); - usleep (30000); - tcflush (fd, TCIFLUSH); - tcdrain(fd); -} - -MODULE = xf86misc::main PACKAGE = xf86misc::main - -PROTOTYPES: DISABLE - - -int -Xtest(display) - char *display - CODE: - int pid; - if ((pid = fork()) == 0) { - Display *d = XOpenDisplay(display); - if (d) { - int child; - /* keep a client until some window is created, otherwise X server blinks to hell */ - if ((child = fork()) == 0) { - XEvent event; - XSelectInput(d, DefaultRootWindow(d), SubstructureNotifyMask); - do { - XNextEvent(d, &event); - } while (event.type != CreateNotify); - XCloseDisplay(d); - exit(0); - } - } - _exit(d != NULL); - } - waitpid(pid, &RETVAL, 0); - OUTPUT: - RETVAL - -void -setMouseLive(display, type, emulate3buttons) - char *display - int type - int emulate3buttons - CODE: - { - XF86MiscMouseSettings mseinfo; - Display *d = XOpenDisplay(display); - if (d) { - if (XF86MiscGetMouseSettings(d, &mseinfo) == True) { - mseinfo.type = type; - mseinfo.flags |= MF_REOPEN; - mseinfo.emulate3buttons = emulate3buttons; - XF86MiscSetMouseSettings(d, &mseinfo); - XFlush(d); - if (type == MTYPE_IMPS2) initIMPS2(); - } - } - } |