diff options
Diffstat (limited to 'perl-install/xf86misc')
| -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 | 73 | 
5 files changed, 0 insertions, 115 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 4dc1d8ade..000000000 --- a/perl-install/xf86misc/main.xs +++ /dev/null @@ -1,73 +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 - -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(); -      } -    } -  } | 
