summaryrefslogtreecommitdiff
path: root/Mknod.xs
blob: 263614e10eeff0e4ce55bb840ea2770f64db2b81 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
#ifdef __cplusplus
extern "C" {
#endif

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include <unistd.h>
#include <sys/types.h>

#ifdef HAS_SYSMKDEV
#include <sys/mkdev.h>
#endif
#ifdef HAS_SYSSYSMACROS
#include <sys/sysmacros.h>
#endif

#ifdef __cplusplus
}
#endif

MODULE = Unix::Mknod	PACKAGE = Unix::Mknod

dev_t
major(dev_t dev)
	PROTOTYPE: $

dev_t
minor(dev_t dev)
	PROTOTYPE: $

dev_t
makedev(dev_t major, dev_t minor)
	PROTOTYPE: $;$

int
mknod(filename, mode, dev)
     char *         filename
     mode_t         mode
     dev_t          dev
    CODE:
     TAINT_PROPER("mknod");
     RETVAL = mknod(filename, mode, dev);
    OUTPUT:
     RETVAL