Last change
on this file since 752 was 30, checked in by bcornec, 19 years ago |
Id property added on files to allow for better conf. management
|
-
Property svn:keywords
set to
Id
|
File size:
574 bytes
|
Line | |
---|
1 | #include "EXTERN.h"
|
---|
2 | #include "perl.h"
|
---|
3 | #include "XSUB.h"
|
---|
4 |
|
---|
5 | #include "lib/DiskSize.h"
|
---|
6 |
|
---|
7 | static int
|
---|
8 | not_here(char *s)
|
---|
9 | {
|
---|
10 | croak("%s not implemented on this architecture", s);
|
---|
11 | return -1;
|
---|
12 | }
|
---|
13 |
|
---|
14 | static double
|
---|
15 | constant(char *name, int len, int arg)
|
---|
16 | {
|
---|
17 | errno = EINVAL;
|
---|
18 | return 0;
|
---|
19 | }
|
---|
20 |
|
---|
21 | MODULE = Mindi::DiskSize PACKAGE = Mindi::DiskSize
|
---|
22 |
|
---|
23 |
|
---|
24 | double
|
---|
25 | constant(sv,arg)
|
---|
26 | PREINIT:
|
---|
27 | STRLEN len;
|
---|
28 | INPUT:
|
---|
29 | SV * sv
|
---|
30 | char * s = SvPV(sv, len);
|
---|
31 | int arg
|
---|
32 | CODE:
|
---|
33 | RETVAL = constant(s,len,arg);
|
---|
34 | OUTPUT:
|
---|
35 | RETVAL
|
---|
36 |
|
---|
37 | long
|
---|
38 | get_size_of_disk(disk)
|
---|
39 | const char * disk
|
---|
40 | OUTPUT:
|
---|
41 | RETVAL
|
---|
Note:
See
TracBrowser
for help on using the repository browser.