summaryrefslogtreecommitdiffstats
path: root/perl-install/xf86misc/main.xs
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/xf86misc/main.xs')
-rw-r--r--perl-install/xf86misc/main.xs76
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();
- }
- }
- }