summaryrefslogtreecommitdiffstats
path: root/perl-install/c
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/c')
-rw-r--r--perl-install/c/stuff.xs.pm58
1 files changed, 30 insertions, 28 deletions
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 <net/if.h>
#include <net/route.h>
+/* for is_ext3 */
+#include <ext2fs/ext2_fs.h>
+#include <ext2fs/ext2fs.h>
+
#include <libldetect.h>
#include <X11/Xlib.h>
#include <X11/extensions/xf86misc.h>
@@ -78,9 +82,6 @@ void rpmError_callback(void) {
$ENV{C_DRAKX} and print '
-#include <ext2fs/ext2_fs.h>
-#include <ext2fs/ext2fs.h>
-
#include <gdk/gdkx.h>
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: