From b54d7ae174b72b4a39d892320b42c6b5564f4fd0 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 17 Aug 2001 23:41:48 +0000 Subject: is_ext3 is needed in standalone Xtest not needed in standalone --- perl-install/c/stuff.xs.pm | 58 ++++++++++++++++++++++++---------------------- 1 file changed, 30 insertions(+), 28 deletions(-) (limited to 'perl-install') diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm index 58952e66a..a34824b1f 100644 --- a/perl-install/c/stuff.xs.pm +++ b/perl-install/c/stuff.xs.pm @@ -31,6 +31,10 @@ print ' #include #include +/* for is_ext3 */ +#include +#include + #include #include #include @@ -78,9 +82,6 @@ void rpmError_callback(void) { $ENV{C_DRAKX} and print ' -#include -#include - #include void initIMPS2() { @@ -106,6 +107,15 @@ print ' MODULE = c::stuff PACKAGE = c::stuff +'; + +$ENV{C_DRAKX} && $Config{archname} =~ /i.86/ and print ' +char * +pcmcia_probe() +'; + +$ENV{C_DRAKX} and print ' + int Xtest(display) char *display @@ -122,31 +132,6 @@ Xtest(display) waitpid(pid, &RETVAL, 0); OUTPUT: RETVAL -'; - -$ENV{C_DRAKX} && $Config{archname} =~ /i.86/ and print ' -char * -pcmcia_probe() -'; - -$ENV{C_DRAKX} and print ' - -int -is_ext3(device_name) - char * device_name - CODE: - { - ext2_filsys fs; - int retval = ext2fs_open (device_name, 0, 0, 0, unix_io_manager, &fs); - if (retval) { - RETVAL = 0; - } else { - RETVAL = fs->super->s_feature_compat & EXT3_FEATURE_COMPAT_HAS_JOURNAL; - ext2fs_close(fs); - } - } - OUTPUT: - RETVAL void setMouseLive(display, type, emulate3buttons) @@ -172,6 +157,23 @@ setMouseLive(display, type, emulate3buttons) print ' +int +is_ext3(device_name) + char * device_name + CODE: + { + ext2_filsys fs; + int retval = ext2fs_open (device_name, 0, 0, 0, unix_io_manager, &fs); + if (retval) { + RETVAL = 0; + } else { + RETVAL = fs->super->s_feature_compat & EXT3_FEATURE_COMPAT_HAS_JOURNAL; + ext2fs_close(fs); + } + } + OUTPUT: + RETVAL + void setlocale() CODE: -- cgit v1.2.1