diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-02-23 13:06:27 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-02-23 13:06:27 +0000 |
| commit | 54052b5bbce88566da97769138c97b397204c1d6 (patch) | |
| tree | 32a896e5a317b736eee87d504aed6da659703f3a /perl-install/c | |
| parent | 4de05bb2b24d0b71c358c200569ac0ff7d93e785 (diff) | |
| download | drakx-backup-do-not-use-54052b5bbce88566da97769138c97b397204c1d6.tar drakx-backup-do-not-use-54052b5bbce88566da97769138c97b397204c1d6.tar.gz drakx-backup-do-not-use-54052b5bbce88566da97769138c97b397204c1d6.tar.bz2 drakx-backup-do-not-use-54052b5bbce88566da97769138c97b397204c1d6.tar.xz drakx-backup-do-not-use-54052b5bbce88566da97769138c97b397204c1d6.zip | |
use C_DRAKX
Diffstat (limited to 'perl-install/c')
| -rw-r--r-- | perl-install/c/Makefile.PL | 3 | ||||
| -rw-r--r-- | perl-install/c/stuff.xs.pm | 37 |
2 files changed, 10 insertions, 30 deletions
diff --git a/perl-install/c/Makefile.PL b/perl-install/c/Makefile.PL index ef43d80b9..5a54af70b 100644 --- a/perl-install/c/Makefile.PL +++ b/perl-install/c/Makefile.PL @@ -2,7 +2,8 @@ use ExtUtils::MakeMaker; # See lib/ExtUtils/MakeMaker.pm for details of how to influence # the contents of the Makefile that is written. -my $libs = '-L/usr/X11R6/lib -lX11 -lgdk -lXxf86misc -lldetect'; +my $libs = '-lldetect'; +$libs .= ' -L/usr/X11R6/lib -lX11 -lgdk -lXxf86misc' if $ENV{C_DRAKX}; $libs .= ' -lrpm -lrpmio -lz' if $ENV{C_RPM}; WriteMakefile( diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm index 94f19ac63..e952986e3 100644 --- a/perl-install/c/stuff.xs.pm +++ b/perl-install/c/stuff.xs.pm @@ -30,7 +30,6 @@ print ' #include <net/route.h> #include <libldetect.h> -#include <gdk/gdkx.h> #include <X11/Xlib.h> #include <X11/extensions/xf86misc.h> #include <term.h> @@ -56,7 +55,8 @@ void rpmError_callback(void) { '; -print ' +$ENV{C_DRAKX} and print ' +#include <gdk/gdkx.h> void initIMPS2() { unsigned char imps2_s1[] = { 243, 200, 243, 100, 243, 80, }; @@ -72,7 +72,9 @@ void initIMPS2() { tcflush (fd, TCIFLUSH); tcdrain(fd); } +'; +print ' long long llseek(int fd, long long offset, int whence); MODULE = c::stuff PACKAGE = c::stuff @@ -93,7 +95,9 @@ Xtest(display) waitpid(pid, &RETVAL, 0); OUTPUT: RETVAL +'; +$ENV{C_DRAKX} and print ' void setMouseLive(display, type, emulate3buttons) char *display @@ -120,7 +124,9 @@ XSetInputFocus(window) int window CODE: XSetInputFocus(GDK_DISPLAY(), window, RevertToParent, CurrentTime); +'; +print ' int KTYP(x) int x @@ -239,33 +245,6 @@ unsigned int getpagesize() int -loadFont(fontFile) - char *fontFile - CODE: - char font[8192]; - unsigned short map[E_TABSZ]; - struct unimapdesc d; - struct unimapinit u; - struct unipair desc[2048]; - int rc = 0; - - int fd = open(fontFile, O_RDONLY); - read(fd, font, sizeof(font)); - read(fd, map, sizeof(map)); - read(fd, &d.entry_ct, sizeof(d.entry_ct)); - d.entries = desc; - read(fd, desc, d.entry_ct * sizeof(desc[0])); - close(fd); - - rc = ioctl(1, PIO_FONT, font); - rc = ioctl(1, PIO_UNIMAPCLR, &u) || rc; - rc = ioctl(1, PIO_UNIMAP, &d) || rc; - rc = ioctl(1, PIO_UNISCRNMAP, map) || rc; - RETVAL = rc == 0; - OUTPUT: - RETVAL - -int hasNetDevice(device) char * device CODE: |