LBROCARD / perl5.005_03-MAINT22178 / ext / Fcntl / Fcntl.pm 

            

              
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137

              
package Fcntl;
=head1 NAME
Fcntl - load the C Fcntl.h defines
=head1 SYNOPSIS
    use Fcntl;
    use Fcntl qw(:DEFAULT :flock);
=head1 DESCRIPTION
This module is just a translation of the C F<fnctl.h> file.
Unlike the old mechanism of requiring a translated F<fnctl.ph>
file, this uses the B<h2xs> program (see the Perl source distribution)
and your native C compiler.  This means that it has a 
far more likely chance of getting the numbers right.
=head1 NOTE
Only C<#define> symbols get translated; you must still correctly
pack up your own arguments to pass as args for locking functions, etc.
=head1 EXPORTED SYMBOLS
By default your system's F_* and O_* constants (eg, F_DUPFD and
O_CREAT) and the FD_CLOEXEC constant are exported into your namespace.
You can request that the flock() constants (LOCK_SH, LOCK_EX, LOCK_NB
and LOCK_UN) be provided by using the tag C<:flock>.  See L<Exporter>.
You can request that the old constants (FAPPEND, FASYNC, FCREAT,
FDEFER, FEXCL, FNDELAY, FNONBLOCK, FSYNC, FTRUNC) be provided for
compatibility reasons by using the tag C<:Fcompat>.  For new
applications the newer versions of these constants are suggested
(O_APPEND, O_ASYNC, O_CREAT, O_DEFER, O_EXCL, O_NDELAY, O_NONBLOCK,
O_SYNC, O_TRUNC).
Please refer to your native fcntl() and open() documentation to see
what constants are implemented in your system.
=cut
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $AUTOLOAD);
require Exporter;
require DynaLoader;
@ISA = qw(Exporter DynaLoader);
$VERSION = "1.03";
# Items to export into callers namespace by default
# (move infrequently used names to @EXPORT_OK below)
@EXPORT =
  qw(
        FD_CLOEXEC
        F_DUPFD
        F_EXLCK
        F_GETFD
        F_GETFL
        F_GETLK
        F_GETOWN
        F_POSIX
        F_RDLCK
        F_SETFD
        F_SETFL
        F_SETLK
        F_SETLKW
        F_SETOWN
        F_SHLCK
        F_UNLCK
        F_WRLCK
        O_ACCMODE
        O_APPEND
        O_ASYNC
        O_BINARY
        O_CREAT
        O_DEFER
        O_DSYNC
        O_EXCL
        O_EXLOCK
        O_NDELAY
        O_NOCTTY
        O_NONBLOCK
        O_RDONLY
        O_RDWR
        O_RSYNC
        O_SHLOCK
        O_SYNC
        O_TEXT
        O_TRUNC
        O_WRONLY
     );
# Other items we are prepared to export if requested
@EXPORT_OK = qw(
        FAPPEND
        FASYNC
        FCREAT
        FDEFER
        FEXCL
        FNDELAY
        FNONBLOCK
        FSYNC
        FTRUNC
        LOCK_EX
        LOCK_NB
        LOCK_SH
        LOCK_UN
);
# Named groups of exports
%EXPORT_TAGS = (
    'flock'   => [qw(LOCK_SH LOCK_EX LOCK_NB LOCK_UN)],
    'Fcompat' => [qw(FAPPEND FASYNC FCREAT FDEFER FEXCL
                     FNDELAY FNONBLOCK FSYNC FTRUNC)],
);
sub AUTOLOAD {
    (my $constname = $AUTOLOAD) =~ s/.*:://;
    my $val = constant($constname, 0);
    if ($! != 0) {
        if ($! =~ /Invalid/) {
            $AutoLoader::AUTOLOAD = $AUTOLOAD;
            goto &AutoLoader::AUTOLOAD;
        }
        else {
            my ($pack,$file,$line) = caller;
            die "Your vendor has not defined Fcntl macro $constname, used at $file line $line.
";
        }
    }
    *$AUTOLOAD = sub { $val };
    goto &$AUTOLOAD;
}
bootstrap Fcntl $VERSION;
1;