summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-02-23 13:06:27 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-02-23 13:06:27 +0000
commit54052b5bbce88566da97769138c97b397204c1d6 (patch)
tree32a896e5a317b736eee87d504aed6da659703f3a /perl-install
parent4de05bb2b24d0b71c358c200569ac0ff7d93e785 (diff)
downloaddrakx-54052b5bbce88566da97769138c97b397204c1d6.tar
drakx-54052b5bbce88566da97769138c97b397204c1d6.tar.gz
drakx-54052b5bbce88566da97769138c97b397204c1d6.tar.bz2
drakx-54052b5bbce88566da97769138c97b397204c1d6.tar.xz
drakx-54052b5bbce88566da97769138c97b397204c1d6.zip
use C_DRAKX
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/c/Makefile.PL3
-rw-r--r--perl-install/c/stuff.xs.pm37
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: