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.pm15
1 files changed, 15 insertions, 0 deletions
diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm
index f6e63a85d..563c97013 100644
--- a/perl-install/c/stuff.xs.pm
+++ b/perl-install/c/stuff.xs.pm
@@ -26,6 +26,7 @@ print '
#include <linux/kd.h>
#include <linux/hdreg.h>
#include <linux/vt.h>
+#include <linux/fd.h>
#include <linux/cdrom.h>
#include <linux/loop.h>
#include <net/if.h>
@@ -236,6 +237,20 @@ isDvdDrive(fd)
OUTPUT:
RETVAL
+char *
+floppy_info(name)
+ char * name
+ CODE:
+ int fd = open(name, O_RDONLY | O_NONBLOCK);
+ RETVAL = NULL;
+ if (fd != -1) {
+ char drivtyp[17];
+ ioctl(fd, FDGETDRVTYP, (void *)drivtyp);
+ RETVAL = drivtyp;
+ }
+ OUTPUT:
+ RETVAL
+
unsigned int
total_sectors(fd)
int fd