diff options
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/xf86misc/.cvsignore | 5 | ||||
-rw-r--r-- | perl-install/xf86misc/Makefile | 10 | ||||
-rw-r--r-- | perl-install/xf86misc/Makefile.PL | 15 | ||||
-rw-r--r-- | perl-install/xf86misc/main.pm | 12 | ||||
-rw-r--r-- | perl-install/xf86misc/main.xs | 76 |
5 files changed, 0 insertions, 118 deletions
diff --git a/perl-install/xf86misc/.cvsignore b/perl-install/xf86misc/.cvsignore deleted file mode 100644 index 83a662f9d..000000000 --- a/perl-install/xf86misc/.cvsignore +++ /dev/null @@ -1,5 +0,0 @@ -main.bs -main.c -pm_to_blib -blib -Makefile_c diff --git a/perl-install/xf86misc/Makefile b/perl-install/xf86misc/Makefile deleted file mode 100644 index 2d874b989..000000000 --- a/perl-install/xf86misc/Makefile +++ /dev/null @@ -1,10 +0,0 @@ -.PHONY: clean - -main: %: %.xs - test -e Makefile_c || perl Makefile.PL - $(MAKE) -f Makefile_c LD_RUN_PATH= || $(MAKE) -f Makefile_c LD_RUN_PATH= - rm -f ../auto/xf86misc ; ln -s ../xf86misc/blib/arch/auto ../auto/xf86misc - -clean: - test ! -e Makefile_c || $(MAKE) -f Makefile_c clean - rm -f *~ *.o diff --git a/perl-install/xf86misc/Makefile.PL b/perl-install/xf86misc/Makefile.PL deleted file mode 100644 index c0a1070cb..000000000 --- a/perl-install/xf86misc/Makefile.PL +++ /dev/null @@ -1,15 +0,0 @@ -use ExtUtils::MakeMaker; -use MDK::Common; -# See lib/ExtUtils/MakeMaker.pm for details of how to influence -# the contents of the Makefile that is written. - -my $lib = arch() =~ /x86_64/ ? 'lib64' : 'lib'; - -WriteMakefile( - 'NAME' => 'main', - 'MAKEFILE' => 'Makefile_c', - 'OPTIMIZE' => '-Os', - 'VERSION_FROM' => 'main.pm', # finds $VERSION - 'LIBS' => ["-L/usr/X11R6/$lib -lX11 -lXext -lXxf86misc"], - 'DEFINE' => '', # e.g., '-DHAVE_SOMETHING' -); diff --git a/perl-install/xf86misc/main.pm b/perl-install/xf86misc/main.pm deleted file mode 100644 index 300e1aba0..000000000 --- a/perl-install/xf86misc/main.pm +++ /dev/null @@ -1,12 +0,0 @@ -package xf86misc::main; # $Id$ - -use strict; -use vars qw($VERSION @ISA); -use DynaLoader; - -use vars qw($VERSION @ISA); -@ISA = qw(DynaLoader); -$VERSION = '0.01'; -xf86misc::main->bootstrap($VERSION); - -1; 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(); - } - } - } |