summaryrefslogtreecommitdiffstats
path: root/perl-install/c/stuff.xs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-02-14 13:53:43 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-02-14 13:53:43 +0000
commitb665d3c80aa66b6f440ead49ac606e0702ffefd9 (patch)
treef9d2f8565a2aae01502b65760d91adf10c73a6fa /perl-install/c/stuff.xs.pm
parent625c6a2b2ad64ea930f2c444bed180b106732985 (diff)
downloaddrakx-backup-do-not-use-b665d3c80aa66b6f440ead49ac606e0702ffefd9.tar
drakx-backup-do-not-use-b665d3c80aa66b6f440ead49ac606e0702ffefd9.tar.gz
drakx-backup-do-not-use-b665d3c80aa66b6f440ead49ac606e0702ffefd9.tar.bz2
drakx-backup-do-not-use-b665d3c80aa66b6f440ead49ac606e0702ffefd9.tar.xz
drakx-backup-do-not-use-b665d3c80aa66b6f440ead49ac606e0702ffefd9.zip
no_comment
Diffstat (limited to 'perl-install/c/stuff.xs.pm')
-rw-r--r--perl-install/c/stuff.xs.pm12
1 files changed, 12 insertions, 0 deletions
diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm
index 69e7f2d78..fbdc8bf09 100644
--- a/perl-install/c/stuff.xs.pm
+++ b/perl-install/c/stuff.xs.pm
@@ -96,6 +96,18 @@ lseek_sector(fd, sector, offset)
OUTPUT:
RETVAL
+unsigned int
+total_sectors(fd)
+ int fd
+ CODE:
+ {
+ struct hd_driveid s;
+ ioctl(fd, HDIO_GET_IDENTITY, &s);
+ RETVAL = s.lba_capacity;
+ }
+ OUTPUT:
+ RETVAL
+
void
openlog(ident)
char *ident