1 | package POSIX;
|
---|
2 |
|
---|
3 | our(@ISA, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD) = ();
|
---|
4 |
|
---|
5 | our $VERSION = "1.09";
|
---|
6 |
|
---|
7 | use AutoLoader;
|
---|
8 |
|
---|
9 | use XSLoader ();
|
---|
10 |
|
---|
11 | # Grandfather old foo_h form to new :foo_h form
|
---|
12 | my $loaded;
|
---|
13 |
|
---|
14 | sub import {
|
---|
15 | load_imports() unless $loaded++;
|
---|
16 | my $this = shift;
|
---|
17 | my @list = map { m/^\w+_h$/ ? ":$_" : $_ } @_;
|
---|
18 | local $Exporter::ExportLevel = 1;
|
---|
19 | Exporter::import($this,@list);
|
---|
20 | }
|
---|
21 |
|
---|
22 | sub croak { require Carp; goto &Carp::croak }
|
---|
23 | # declare usage to assist AutoLoad
|
---|
24 | sub usage;
|
---|
25 |
|
---|
26 | XSLoader::load 'POSIX', $VERSION;
|
---|
27 |
|
---|
28 | my %NON_CONSTS = (map {($_,1)}
|
---|
29 | qw(S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG WEXITSTATUS
|
---|
30 | WIFEXITED WIFSIGNALED WIFSTOPPED WSTOPSIG WTERMSIG));
|
---|
31 |
|
---|
32 | sub AUTOLOAD {
|
---|
33 | if ($AUTOLOAD =~ /::(_?[a-z])/) {
|
---|
34 | # require AutoLoader;
|
---|
35 | $AutoLoader::AUTOLOAD = $AUTOLOAD;
|
---|
36 | goto &AutoLoader::AUTOLOAD
|
---|
37 | }
|
---|
38 | local $! = 0;
|
---|
39 | my $constname = $AUTOLOAD;
|
---|
40 | $constname =~ s/.*:://;
|
---|
41 | if ($NON_CONSTS{$constname}) {
|
---|
42 | my ($val, $error) = &int_macro_int($constname, $_[0]);
|
---|
43 | croak $error if $error;
|
---|
44 | *$AUTOLOAD = sub { &int_macro_int($constname, $_[0]) };
|
---|
45 | } else {
|
---|
46 | my ($error, $val) = constant($constname);
|
---|
47 | croak $error if $error;
|
---|
48 | *$AUTOLOAD = sub { $val };
|
---|
49 | }
|
---|
50 |
|
---|
51 | goto &$AUTOLOAD;
|
---|
52 | }
|
---|
53 |
|
---|
54 | package POSIX::SigAction;
|
---|
55 |
|
---|
56 | use AutoLoader 'AUTOLOAD';
|
---|
57 | sub new { bless {HANDLER => $_[1], MASK => $_[2], FLAGS => $_[3] || 0, SAFE => 0}, $_[0] }
|
---|
58 |
|
---|
59 | package POSIX;
|
---|
60 |
|
---|
61 | 1;
|
---|
62 | __END__
|
---|
63 |
|
---|
64 | sub usage {
|
---|
65 | my ($mess) = @_;
|
---|
66 | croak "Usage: POSIX::$mess";
|
---|
67 | }
|
---|
68 |
|
---|
69 | sub redef {
|
---|
70 | my ($mess) = @_;
|
---|
71 | croak "Use method $mess instead";
|
---|
72 | }
|
---|
73 |
|
---|
74 | sub unimpl {
|
---|
75 | my ($mess) = @_;
|
---|
76 | $mess =~ s/xxx//;
|
---|
77 | croak "Unimplemented: POSIX::$mess";
|
---|
78 | }
|
---|
79 |
|
---|
80 | sub assert {
|
---|
81 | usage "assert(expr)" if @_ != 1;
|
---|
82 | if (!$_[0]) {
|
---|
83 | croak "Assertion failed";
|
---|
84 | }
|
---|
85 | }
|
---|
86 |
|
---|
87 | sub tolower {
|
---|
88 | usage "tolower(string)" if @_ != 1;
|
---|
89 | lc($_[0]);
|
---|
90 | }
|
---|
91 |
|
---|
92 | sub toupper {
|
---|
93 | usage "toupper(string)" if @_ != 1;
|
---|
94 | uc($_[0]);
|
---|
95 | }
|
---|
96 |
|
---|
97 | sub closedir {
|
---|
98 | usage "closedir(dirhandle)" if @_ != 1;
|
---|
99 | CORE::closedir($_[0]);
|
---|
100 | }
|
---|
101 |
|
---|
102 | sub opendir {
|
---|
103 | usage "opendir(directory)" if @_ != 1;
|
---|
104 | my $dirhandle;
|
---|
105 | CORE::opendir($dirhandle, $_[0])
|
---|
106 | ? $dirhandle
|
---|
107 | : undef;
|
---|
108 | }
|
---|
109 |
|
---|
110 | sub readdir {
|
---|
111 | usage "readdir(dirhandle)" if @_ != 1;
|
---|
112 | CORE::readdir($_[0]);
|
---|
113 | }
|
---|
114 |
|
---|
115 | sub rewinddir {
|
---|
116 | usage "rewinddir(dirhandle)" if @_ != 1;
|
---|
117 | CORE::rewinddir($_[0]);
|
---|
118 | }
|
---|
119 |
|
---|
120 | sub errno {
|
---|
121 | usage "errno()" if @_ != 0;
|
---|
122 | $! + 0;
|
---|
123 | }
|
---|
124 |
|
---|
125 | sub creat {
|
---|
126 | usage "creat(filename, mode)" if @_ != 2;
|
---|
127 | &open($_[0], &O_WRONLY | &O_CREAT | &O_TRUNC, $_[1]);
|
---|
128 | }
|
---|
129 |
|
---|
130 | sub fcntl {
|
---|
131 | usage "fcntl(filehandle, cmd, arg)" if @_ != 3;
|
---|
132 | CORE::fcntl($_[0], $_[1], $_[2]);
|
---|
133 | }
|
---|
134 |
|
---|
135 | sub getgrgid {
|
---|
136 | usage "getgrgid(gid)" if @_ != 1;
|
---|
137 | CORE::getgrgid($_[0]);
|
---|
138 | }
|
---|
139 |
|
---|
140 | sub getgrnam {
|
---|
141 | usage "getgrnam(name)" if @_ != 1;
|
---|
142 | CORE::getgrnam($_[0]);
|
---|
143 | }
|
---|
144 |
|
---|
145 | sub atan2 {
|
---|
146 | usage "atan2(x,y)" if @_ != 2;
|
---|
147 | CORE::atan2($_[0], $_[1]);
|
---|
148 | }
|
---|
149 |
|
---|
150 | sub cos {
|
---|
151 | usage "cos(x)" if @_ != 1;
|
---|
152 | CORE::cos($_[0]);
|
---|
153 | }
|
---|
154 |
|
---|
155 | sub exp {
|
---|
156 | usage "exp(x)" if @_ != 1;
|
---|
157 | CORE::exp($_[0]);
|
---|
158 | }
|
---|
159 |
|
---|
160 | sub fabs {
|
---|
161 | usage "fabs(x)" if @_ != 1;
|
---|
162 | CORE::abs($_[0]);
|
---|
163 | }
|
---|
164 |
|
---|
165 | sub log {
|
---|
166 | usage "log(x)" if @_ != 1;
|
---|
167 | CORE::log($_[0]);
|
---|
168 | }
|
---|
169 |
|
---|
170 | sub pow {
|
---|
171 | usage "pow(x,exponent)" if @_ != 2;
|
---|
172 | $_[0] ** $_[1];
|
---|
173 | }
|
---|
174 |
|
---|
175 | sub sin {
|
---|
176 | usage "sin(x)" if @_ != 1;
|
---|
177 | CORE::sin($_[0]);
|
---|
178 | }
|
---|
179 |
|
---|
180 | sub sqrt {
|
---|
181 | usage "sqrt(x)" if @_ != 1;
|
---|
182 | CORE::sqrt($_[0]);
|
---|
183 | }
|
---|
184 |
|
---|
185 | sub getpwnam {
|
---|
186 | usage "getpwnam(name)" if @_ != 1;
|
---|
187 | CORE::getpwnam($_[0]);
|
---|
188 | }
|
---|
189 |
|
---|
190 | sub getpwuid {
|
---|
191 | usage "getpwuid(uid)" if @_ != 1;
|
---|
192 | CORE::getpwuid($_[0]);
|
---|
193 | }
|
---|
194 |
|
---|
195 | sub longjmp {
|
---|
196 | unimpl "longjmp() is C-specific: use die instead";
|
---|
197 | }
|
---|
198 |
|
---|
199 | sub setjmp {
|
---|
200 | unimpl "setjmp() is C-specific: use eval {} instead";
|
---|
201 | }
|
---|
202 |
|
---|
203 | sub siglongjmp {
|
---|
204 | unimpl "siglongjmp() is C-specific: use die instead";
|
---|
205 | }
|
---|
206 |
|
---|
207 | sub sigsetjmp {
|
---|
208 | unimpl "sigsetjmp() is C-specific: use eval {} instead";
|
---|
209 | }
|
---|
210 |
|
---|
211 | sub kill {
|
---|
212 | usage "kill(pid, sig)" if @_ != 2;
|
---|
213 | CORE::kill $_[1], $_[0];
|
---|
214 | }
|
---|
215 |
|
---|
216 | sub raise {
|
---|
217 | usage "raise(sig)" if @_ != 1;
|
---|
218 | CORE::kill $_[0], $$; # Is this good enough?
|
---|
219 | }
|
---|
220 |
|
---|
221 | sub offsetof {
|
---|
222 | unimpl "offsetof() is C-specific, stopped";
|
---|
223 | }
|
---|
224 |
|
---|
225 | sub clearerr {
|
---|
226 | redef "IO::Handle::clearerr()";
|
---|
227 | }
|
---|
228 |
|
---|
229 | sub fclose {
|
---|
230 | redef "IO::Handle::close()";
|
---|
231 | }
|
---|
232 |
|
---|
233 | sub fdopen {
|
---|
234 | redef "IO::Handle::new_from_fd()";
|
---|
235 | }
|
---|
236 |
|
---|
237 | sub feof {
|
---|
238 | redef "IO::Handle::eof()";
|
---|
239 | }
|
---|
240 |
|
---|
241 | sub fgetc {
|
---|
242 | redef "IO::Handle::getc()";
|
---|
243 | }
|
---|
244 |
|
---|
245 | sub fgets {
|
---|
246 | redef "IO::Handle::gets()";
|
---|
247 | }
|
---|
248 |
|
---|
249 | sub fileno {
|
---|
250 | redef "IO::Handle::fileno()";
|
---|
251 | }
|
---|
252 |
|
---|
253 | sub fopen {
|
---|
254 | redef "IO::File::open()";
|
---|
255 | }
|
---|
256 |
|
---|
257 | sub fprintf {
|
---|
258 | unimpl "fprintf() is C-specific--use printf instead";
|
---|
259 | }
|
---|
260 |
|
---|
261 | sub fputc {
|
---|
262 | unimpl "fputc() is C-specific--use print instead";
|
---|
263 | }
|
---|
264 |
|
---|
265 | sub fputs {
|
---|
266 | unimpl "fputs() is C-specific--use print instead";
|
---|
267 | }
|
---|
268 |
|
---|
269 | sub fread {
|
---|
270 | unimpl "fread() is C-specific--use read instead";
|
---|
271 | }
|
---|
272 |
|
---|
273 | sub freopen {
|
---|
274 | unimpl "freopen() is C-specific--use open instead";
|
---|
275 | }
|
---|
276 |
|
---|
277 | sub fscanf {
|
---|
278 | unimpl "fscanf() is C-specific--use <> and regular expressions instead";
|
---|
279 | }
|
---|
280 |
|
---|
281 | sub fseek {
|
---|
282 | redef "IO::Seekable::seek()";
|
---|
283 | }
|
---|
284 |
|
---|
285 | sub fsync {
|
---|
286 | redef "IO::Handle::sync()";
|
---|
287 | }
|
---|
288 |
|
---|
289 | sub ferror {
|
---|
290 | redef "IO::Handle::error()";
|
---|
291 | }
|
---|
292 |
|
---|
293 | sub fflush {
|
---|
294 | redef "IO::Handle::flush()";
|
---|
295 | }
|
---|
296 |
|
---|
297 | sub fgetpos {
|
---|
298 | redef "IO::Seekable::getpos()";
|
---|
299 | }
|
---|
300 |
|
---|
301 | sub fsetpos {
|
---|
302 | redef "IO::Seekable::setpos()";
|
---|
303 | }
|
---|
304 |
|
---|
305 | sub ftell {
|
---|
306 | redef "IO::Seekable::tell()";
|
---|
307 | }
|
---|
308 |
|
---|
309 | sub fwrite {
|
---|
310 | unimpl "fwrite() is C-specific--use print instead";
|
---|
311 | }
|
---|
312 |
|
---|
313 | sub getc {
|
---|
314 | usage "getc(handle)" if @_ != 1;
|
---|
315 | CORE::getc($_[0]);
|
---|
316 | }
|
---|
317 |
|
---|
318 | sub getchar {
|
---|
319 | usage "getchar()" if @_ != 0;
|
---|
320 | CORE::getc(STDIN);
|
---|
321 | }
|
---|
322 |
|
---|
323 | sub gets {
|
---|
324 | usage "gets()" if @_ != 0;
|
---|
325 | scalar <STDIN>;
|
---|
326 | }
|
---|
327 |
|
---|
328 | sub perror {
|
---|
329 | print STDERR "@_: " if @_;
|
---|
330 | print STDERR $!,"\n";
|
---|
331 | }
|
---|
332 |
|
---|
333 | sub printf {
|
---|
334 | usage "printf(pattern, args...)" if @_ < 1;
|
---|
335 | CORE::printf STDOUT @_;
|
---|
336 | }
|
---|
337 |
|
---|
338 | sub putc {
|
---|
339 | unimpl "putc() is C-specific--use print instead";
|
---|
340 | }
|
---|
341 |
|
---|
342 | sub putchar {
|
---|
343 | unimpl "putchar() is C-specific--use print instead";
|
---|
344 | }
|
---|
345 |
|
---|
346 | sub puts {
|
---|
347 | unimpl "puts() is C-specific--use print instead";
|
---|
348 | }
|
---|
349 |
|
---|
350 | sub remove {
|
---|
351 | usage "remove(filename)" if @_ != 1;
|
---|
352 | CORE::unlink($_[0]);
|
---|
353 | }
|
---|
354 |
|
---|
355 | sub rename {
|
---|
356 | usage "rename(oldfilename, newfilename)" if @_ != 2;
|
---|
357 | CORE::rename($_[0], $_[1]);
|
---|
358 | }
|
---|
359 |
|
---|
360 | sub rewind {
|
---|
361 | usage "rewind(filehandle)" if @_ != 1;
|
---|
362 | CORE::seek($_[0],0,0);
|
---|
363 | }
|
---|
364 |
|
---|
365 | sub scanf {
|
---|
366 | unimpl "scanf() is C-specific--use <> and regular expressions instead";
|
---|
367 | }
|
---|
368 |
|
---|
369 | sub sprintf {
|
---|
370 | usage "sprintf(pattern,args)" if @_ == 0;
|
---|
371 | CORE::sprintf(shift,@_);
|
---|
372 | }
|
---|
373 |
|
---|
374 | sub sscanf {
|
---|
375 | unimpl "sscanf() is C-specific--use regular expressions instead";
|
---|
376 | }
|
---|
377 |
|
---|
378 | sub tmpfile {
|
---|
379 | redef "IO::File::new_tmpfile()";
|
---|
380 | }
|
---|
381 |
|
---|
382 | sub ungetc {
|
---|
383 | redef "IO::Handle::ungetc()";
|
---|
384 | }
|
---|
385 |
|
---|
386 | sub vfprintf {
|
---|
387 | unimpl "vfprintf() is C-specific";
|
---|
388 | }
|
---|
389 |
|
---|
390 | sub vprintf {
|
---|
391 | unimpl "vprintf() is C-specific";
|
---|
392 | }
|
---|
393 |
|
---|
394 | sub vsprintf {
|
---|
395 | unimpl "vsprintf() is C-specific";
|
---|
396 | }
|
---|
397 |
|
---|
398 | sub abs {
|
---|
399 | usage "abs(x)" if @_ != 1;
|
---|
400 | CORE::abs($_[0]);
|
---|
401 | }
|
---|
402 |
|
---|
403 | sub atexit {
|
---|
404 | unimpl "atexit() is C-specific: use END {} instead";
|
---|
405 | }
|
---|
406 |
|
---|
407 | sub atof {
|
---|
408 | unimpl "atof() is C-specific, stopped";
|
---|
409 | }
|
---|
410 |
|
---|
411 | sub atoi {
|
---|
412 | unimpl "atoi() is C-specific, stopped";
|
---|
413 | }
|
---|
414 |
|
---|
415 | sub atol {
|
---|
416 | unimpl "atol() is C-specific, stopped";
|
---|
417 | }
|
---|
418 |
|
---|
419 | sub bsearch {
|
---|
420 | unimpl "bsearch() not supplied";
|
---|
421 | }
|
---|
422 |
|
---|
423 | sub calloc {
|
---|
424 | unimpl "calloc() is C-specific, stopped";
|
---|
425 | }
|
---|
426 |
|
---|
427 | sub div {
|
---|
428 | unimpl "div() is C-specific, use /, % and int instead";
|
---|
429 | }
|
---|
430 |
|
---|
431 | sub exit {
|
---|
432 | usage "exit(status)" if @_ != 1;
|
---|
433 | CORE::exit($_[0]);
|
---|
434 | }
|
---|
435 |
|
---|
436 | sub free {
|
---|
437 | unimpl "free() is C-specific, stopped";
|
---|
438 | }
|
---|
439 |
|
---|
440 | sub getenv {
|
---|
441 | usage "getenv(name)" if @_ != 1;
|
---|
442 | $ENV{$_[0]};
|
---|
443 | }
|
---|
444 |
|
---|
445 | sub labs {
|
---|
446 | unimpl "labs() is C-specific, use abs instead";
|
---|
447 | }
|
---|
448 |
|
---|
449 | sub ldiv {
|
---|
450 | unimpl "ldiv() is C-specific, use /, % and int instead";
|
---|
451 | }
|
---|
452 |
|
---|
453 | sub malloc {
|
---|
454 | unimpl "malloc() is C-specific, stopped";
|
---|
455 | }
|
---|
456 |
|
---|
457 | sub qsort {
|
---|
458 | unimpl "qsort() is C-specific, use sort instead";
|
---|
459 | }
|
---|
460 |
|
---|
461 | sub rand {
|
---|
462 | unimpl "rand() is non-portable, use Perl's rand instead";
|
---|
463 | }
|
---|
464 |
|
---|
465 | sub realloc {
|
---|
466 | unimpl "realloc() is C-specific, stopped";
|
---|
467 | }
|
---|
468 |
|
---|
469 | sub srand {
|
---|
470 | unimpl "srand()";
|
---|
471 | }
|
---|
472 |
|
---|
473 | sub system {
|
---|
474 | usage "system(command)" if @_ != 1;
|
---|
475 | CORE::system($_[0]);
|
---|
476 | }
|
---|
477 |
|
---|
478 | sub memchr {
|
---|
479 | unimpl "memchr() is C-specific, use index() instead";
|
---|
480 | }
|
---|
481 |
|
---|
482 | sub memcmp {
|
---|
483 | unimpl "memcmp() is C-specific, use eq instead";
|
---|
484 | }
|
---|
485 |
|
---|
486 | sub memcpy {
|
---|
487 | unimpl "memcpy() is C-specific, use = instead";
|
---|
488 | }
|
---|
489 |
|
---|
490 | sub memmove {
|
---|
491 | unimpl "memmove() is C-specific, use = instead";
|
---|
492 | }
|
---|
493 |
|
---|
494 | sub memset {
|
---|
495 | unimpl "memset() is C-specific, use x instead";
|
---|
496 | }
|
---|
497 |
|
---|
498 | sub strcat {
|
---|
499 | unimpl "strcat() is C-specific, use .= instead";
|
---|
500 | }
|
---|
501 |
|
---|
502 | sub strchr {
|
---|
503 | unimpl "strchr() is C-specific, use index() instead";
|
---|
504 | }
|
---|
505 |
|
---|
506 | sub strcmp {
|
---|
507 | unimpl "strcmp() is C-specific, use eq instead";
|
---|
508 | }
|
---|
509 |
|
---|
510 | sub strcpy {
|
---|
511 | unimpl "strcpy() is C-specific, use = instead";
|
---|
512 | }
|
---|
513 |
|
---|
514 | sub strcspn {
|
---|
515 | unimpl "strcspn() is C-specific, use regular expressions instead";
|
---|
516 | }
|
---|
517 |
|
---|
518 | sub strerror {
|
---|
519 | usage "strerror(errno)" if @_ != 1;
|
---|
520 | local $! = $_[0];
|
---|
521 | $! . "";
|
---|
522 | }
|
---|
523 |
|
---|
524 | sub strlen {
|
---|
525 | unimpl "strlen() is C-specific, use length instead";
|
---|
526 | }
|
---|
527 |
|
---|
528 | sub strncat {
|
---|
529 | unimpl "strncat() is C-specific, use .= instead";
|
---|
530 | }
|
---|
531 |
|
---|
532 | sub strncmp {
|
---|
533 | unimpl "strncmp() is C-specific, use eq instead";
|
---|
534 | }
|
---|
535 |
|
---|
536 | sub strncpy {
|
---|
537 | unimpl "strncpy() is C-specific, use = instead";
|
---|
538 | }
|
---|
539 |
|
---|
540 | sub strpbrk {
|
---|
541 | unimpl "strpbrk() is C-specific, stopped";
|
---|
542 | }
|
---|
543 |
|
---|
544 | sub strrchr {
|
---|
545 | unimpl "strrchr() is C-specific, use rindex() instead";
|
---|
546 | }
|
---|
547 |
|
---|
548 | sub strspn {
|
---|
549 | unimpl "strspn() is C-specific, stopped";
|
---|
550 | }
|
---|
551 |
|
---|
552 | sub strstr {
|
---|
553 | usage "strstr(big, little)" if @_ != 2;
|
---|
554 | CORE::index($_[0], $_[1]);
|
---|
555 | }
|
---|
556 |
|
---|
557 | sub strtok {
|
---|
558 | unimpl "strtok() is C-specific, stopped";
|
---|
559 | }
|
---|
560 |
|
---|
561 | sub chmod {
|
---|
562 | usage "chmod(mode, filename)" if @_ != 2;
|
---|
563 | CORE::chmod($_[0], $_[1]);
|
---|
564 | }
|
---|
565 |
|
---|
566 | sub fstat {
|
---|
567 | usage "fstat(fd)" if @_ != 1;
|
---|
568 | local *TMP;
|
---|
569 | CORE::open(TMP, "<&$_[0]"); # Gross.
|
---|
570 | my @l = CORE::stat(TMP);
|
---|
571 | CORE::close(TMP);
|
---|
572 | @l;
|
---|
573 | }
|
---|
574 |
|
---|
575 | sub mkdir {
|
---|
576 | usage "mkdir(directoryname, mode)" if @_ != 2;
|
---|
577 | CORE::mkdir($_[0], $_[1]);
|
---|
578 | }
|
---|
579 |
|
---|
580 | sub stat {
|
---|
581 | usage "stat(filename)" if @_ != 1;
|
---|
582 | CORE::stat($_[0]);
|
---|
583 | }
|
---|
584 |
|
---|
585 | sub umask {
|
---|
586 | usage "umask(mask)" if @_ != 1;
|
---|
587 | CORE::umask($_[0]);
|
---|
588 | }
|
---|
589 |
|
---|
590 | sub wait {
|
---|
591 | usage "wait()" if @_ != 0;
|
---|
592 | CORE::wait();
|
---|
593 | }
|
---|
594 |
|
---|
595 | sub waitpid {
|
---|
596 | usage "waitpid(pid, options)" if @_ != 2;
|
---|
597 | CORE::waitpid($_[0], $_[1]);
|
---|
598 | }
|
---|
599 |
|
---|
600 | sub gmtime {
|
---|
601 | usage "gmtime(time)" if @_ != 1;
|
---|
602 | CORE::gmtime($_[0]);
|
---|
603 | }
|
---|
604 |
|
---|
605 | sub localtime {
|
---|
606 | usage "localtime(time)" if @_ != 1;
|
---|
607 | CORE::localtime($_[0]);
|
---|
608 | }
|
---|
609 |
|
---|
610 | sub time {
|
---|
611 | usage "time()" if @_ != 0;
|
---|
612 | CORE::time;
|
---|
613 | }
|
---|
614 |
|
---|
615 | sub alarm {
|
---|
616 | usage "alarm(seconds)" if @_ != 1;
|
---|
617 | CORE::alarm($_[0]);
|
---|
618 | }
|
---|
619 |
|
---|
620 | sub chdir {
|
---|
621 | usage "chdir(directory)" if @_ != 1;
|
---|
622 | CORE::chdir($_[0]);
|
---|
623 | }
|
---|
624 |
|
---|
625 | sub chown {
|
---|
626 | usage "chown(uid, gid, filename)" if @_ != 3;
|
---|
627 | CORE::chown($_[0], $_[1], $_[2]);
|
---|
628 | }
|
---|
629 |
|
---|
630 | sub execl {
|
---|
631 | unimpl "execl() is C-specific, stopped";
|
---|
632 | }
|
---|
633 |
|
---|
634 | sub execle {
|
---|
635 | unimpl "execle() is C-specific, stopped";
|
---|
636 | }
|
---|
637 |
|
---|
638 | sub execlp {
|
---|
639 | unimpl "execlp() is C-specific, stopped";
|
---|
640 | }
|
---|
641 |
|
---|
642 | sub execv {
|
---|
643 | unimpl "execv() is C-specific, stopped";
|
---|
644 | }
|
---|
645 |
|
---|
646 | sub execve {
|
---|
647 | unimpl "execve() is C-specific, stopped";
|
---|
648 | }
|
---|
649 |
|
---|
650 | sub execvp {
|
---|
651 | unimpl "execvp() is C-specific, stopped";
|
---|
652 | }
|
---|
653 |
|
---|
654 | sub fork {
|
---|
655 | usage "fork()" if @_ != 0;
|
---|
656 | CORE::fork;
|
---|
657 | }
|
---|
658 |
|
---|
659 | sub getegid {
|
---|
660 | usage "getegid()" if @_ != 0;
|
---|
661 | $) + 0;
|
---|
662 | }
|
---|
663 |
|
---|
664 | sub geteuid {
|
---|
665 | usage "geteuid()" if @_ != 0;
|
---|
666 | $> + 0;
|
---|
667 | }
|
---|
668 |
|
---|
669 | sub getgid {
|
---|
670 | usage "getgid()" if @_ != 0;
|
---|
671 | $( + 0;
|
---|
672 | }
|
---|
673 |
|
---|
674 | sub getgroups {
|
---|
675 | usage "getgroups()" if @_ != 0;
|
---|
676 | my %seen;
|
---|
677 | grep(!$seen{$_}++, split(' ', $) ));
|
---|
678 | }
|
---|
679 |
|
---|
680 | sub getlogin {
|
---|
681 | usage "getlogin()" if @_ != 0;
|
---|
682 | CORE::getlogin();
|
---|
683 | }
|
---|
684 |
|
---|
685 | sub getpgrp {
|
---|
686 | usage "getpgrp()" if @_ != 0;
|
---|
687 | CORE::getpgrp;
|
---|
688 | }
|
---|
689 |
|
---|
690 | sub getpid {
|
---|
691 | usage "getpid()" if @_ != 0;
|
---|
692 | $$;
|
---|
693 | }
|
---|
694 |
|
---|
695 | sub getppid {
|
---|
696 | usage "getppid()" if @_ != 0;
|
---|
697 | CORE::getppid;
|
---|
698 | }
|
---|
699 |
|
---|
700 | sub getuid {
|
---|
701 | usage "getuid()" if @_ != 0;
|
---|
702 | $<;
|
---|
703 | }
|
---|
704 |
|
---|
705 | sub isatty {
|
---|
706 | usage "isatty(filehandle)" if @_ != 1;
|
---|
707 | -t $_[0];
|
---|
708 | }
|
---|
709 |
|
---|
710 | sub link {
|
---|
711 | usage "link(oldfilename, newfilename)" if @_ != 2;
|
---|
712 | CORE::link($_[0], $_[1]);
|
---|
713 | }
|
---|
714 |
|
---|
715 | sub rmdir {
|
---|
716 | usage "rmdir(directoryname)" if @_ != 1;
|
---|
717 | CORE::rmdir($_[0]);
|
---|
718 | }
|
---|
719 |
|
---|
720 | sub setbuf {
|
---|
721 | redef "IO::Handle::setbuf()";
|
---|
722 | }
|
---|
723 |
|
---|
724 | sub setvbuf {
|
---|
725 | redef "IO::Handle::setvbuf()";
|
---|
726 | }
|
---|
727 |
|
---|
728 | sub sleep {
|
---|
729 | usage "sleep(seconds)" if @_ != 1;
|
---|
730 | $_[0] - CORE::sleep($_[0]);
|
---|
731 | }
|
---|
732 |
|
---|
733 | sub unlink {
|
---|
734 | usage "unlink(filename)" if @_ != 1;
|
---|
735 | CORE::unlink($_[0]);
|
---|
736 | }
|
---|
737 |
|
---|
738 | sub utime {
|
---|
739 | usage "utime(filename, atime, mtime)" if @_ != 3;
|
---|
740 | CORE::utime($_[1], $_[2], $_[0]);
|
---|
741 | }
|
---|
742 |
|
---|
743 | sub load_imports {
|
---|
744 | %EXPORT_TAGS = (
|
---|
745 |
|
---|
746 | assert_h => [qw(assert NDEBUG)],
|
---|
747 |
|
---|
748 | ctype_h => [qw(isalnum isalpha iscntrl isdigit isgraph islower
|
---|
749 | isprint ispunct isspace isupper isxdigit tolower toupper)],
|
---|
750 |
|
---|
751 | dirent_h => [],
|
---|
752 |
|
---|
753 | errno_h => [qw(E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT
|
---|
754 | EAGAIN EALREADY EBADF EBUSY ECHILD ECONNABORTED
|
---|
755 | ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDQUOT
|
---|
756 | EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EINPROGRESS
|
---|
757 | EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK
|
---|
758 | EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH
|
---|
759 | ENFILE ENOBUFS ENODEV ENOENT ENOEXEC ENOLCK ENOMEM
|
---|
760 | ENOPROTOOPT ENOSPC ENOSYS ENOTBLK ENOTCONN ENOTDIR
|
---|
761 | ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM
|
---|
762 | EPFNOSUPPORT EPIPE EPROCLIM EPROTONOSUPPORT EPROTOTYPE
|
---|
763 | ERANGE EREMOTE ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT
|
---|
764 | ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS ETXTBSY
|
---|
765 | EUSERS EWOULDBLOCK EXDEV errno)],
|
---|
766 |
|
---|
767 | fcntl_h => [qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK
|
---|
768 | F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK
|
---|
769 | O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK
|
---|
770 | O_RDONLY O_RDWR O_TRUNC O_WRONLY
|
---|
771 | creat
|
---|
772 | SEEK_CUR SEEK_END SEEK_SET
|
---|
773 | S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU
|
---|
774 | S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG S_ISUID
|
---|
775 | S_IWGRP S_IWOTH S_IWUSR)],
|
---|
776 |
|
---|
777 | float_h => [qw(DBL_DIG DBL_EPSILON DBL_MANT_DIG
|
---|
778 | DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP
|
---|
779 | DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP
|
---|
780 | FLT_DIG FLT_EPSILON FLT_MANT_DIG
|
---|
781 | FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP
|
---|
782 | FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP
|
---|
783 | FLT_RADIX FLT_ROUNDS
|
---|
784 | LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG
|
---|
785 | LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP
|
---|
786 | LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP)],
|
---|
787 |
|
---|
788 | grp_h => [],
|
---|
789 |
|
---|
790 | limits_h => [qw( ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX
|
---|
791 | INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON
|
---|
792 | MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX
|
---|
793 | PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN
|
---|
794 | SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX
|
---|
795 | ULONG_MAX USHRT_MAX _POSIX_ARG_MAX _POSIX_CHILD_MAX
|
---|
796 | _POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT
|
---|
797 | _POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_OPEN_MAX
|
---|
798 | _POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SSIZE_MAX
|
---|
799 | _POSIX_STREAM_MAX _POSIX_TZNAME_MAX)],
|
---|
800 |
|
---|
801 | locale_h => [qw(LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES
|
---|
802 | LC_MONETARY LC_NUMERIC LC_TIME NULL
|
---|
803 | localeconv setlocale)],
|
---|
804 |
|
---|
805 | math_h => [qw(HUGE_VAL acos asin atan ceil cosh fabs floor fmod
|
---|
806 | frexp ldexp log10 modf pow sinh tan tanh)],
|
---|
807 |
|
---|
808 | pwd_h => [],
|
---|
809 |
|
---|
810 | setjmp_h => [qw(longjmp setjmp siglongjmp sigsetjmp)],
|
---|
811 |
|
---|
812 | signal_h => [qw(SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK
|
---|
813 | SA_RESETHAND SA_RESTART SA_SIGINFO SIGABRT SIGALRM
|
---|
814 | SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT SIGKILL
|
---|
815 | SIGPIPE SIGQUIT SIGSEGV SIGSTOP SIGTERM SIGTSTP SIGTTIN
|
---|
816 | SIGTTOU SIGUSR1 SIGUSR2 SIG_BLOCK SIG_DFL SIG_ERR
|
---|
817 | SIG_IGN SIG_SETMASK SIG_UNBLOCK raise sigaction signal
|
---|
818 | sigpending sigprocmask sigsuspend)],
|
---|
819 |
|
---|
820 | stdarg_h => [],
|
---|
821 |
|
---|
822 | stddef_h => [qw(NULL offsetof)],
|
---|
823 |
|
---|
824 | stdio_h => [qw(BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid
|
---|
825 | L_tmpname NULL SEEK_CUR SEEK_END SEEK_SET
|
---|
826 | STREAM_MAX TMP_MAX stderr stdin stdout
|
---|
827 | clearerr fclose fdopen feof ferror fflush fgetc fgetpos
|
---|
828 | fgets fopen fprintf fputc fputs fread freopen
|
---|
829 | fscanf fseek fsetpos ftell fwrite getchar gets
|
---|
830 | perror putc putchar puts remove rewind
|
---|
831 | scanf setbuf setvbuf sscanf tmpfile tmpnam
|
---|
832 | ungetc vfprintf vprintf vsprintf)],
|
---|
833 |
|
---|
834 | stdlib_h => [qw(EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX NULL RAND_MAX
|
---|
835 | abort atexit atof atoi atol bsearch calloc div
|
---|
836 | free getenv labs ldiv malloc mblen mbstowcs mbtowc
|
---|
837 | qsort realloc strtod strtol strtoul wcstombs wctomb)],
|
---|
838 |
|
---|
839 | string_h => [qw(NULL memchr memcmp memcpy memmove memset strcat
|
---|
840 | strchr strcmp strcoll strcpy strcspn strerror strlen
|
---|
841 | strncat strncmp strncpy strpbrk strrchr strspn strstr
|
---|
842 | strtok strxfrm)],
|
---|
843 |
|
---|
844 | sys_stat_h => [qw(S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU
|
---|
845 | S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG
|
---|
846 | S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR
|
---|
847 | fstat mkfifo)],
|
---|
848 |
|
---|
849 | sys_times_h => [],
|
---|
850 |
|
---|
851 | sys_types_h => [],
|
---|
852 |
|
---|
853 | sys_utsname_h => [qw(uname)],
|
---|
854 |
|
---|
855 | sys_wait_h => [qw(WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED
|
---|
856 | WNOHANG WSTOPSIG WTERMSIG WUNTRACED)],
|
---|
857 |
|
---|
858 | termios_h => [qw( B0 B110 B1200 B134 B150 B1800 B19200 B200 B2400
|
---|
859 | B300 B38400 B4800 B50 B600 B75 B9600 BRKINT CLOCAL
|
---|
860 | CREAD CS5 CS6 CS7 CS8 CSIZE CSTOPB ECHO ECHOE ECHOK
|
---|
861 | ECHONL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR
|
---|
862 | INLCR INPCK ISIG ISTRIP IXOFF IXON NCCS NOFLSH OPOST
|
---|
863 | PARENB PARMRK PARODD TCIFLUSH TCIOFF TCIOFLUSH TCION
|
---|
864 | TCOFLUSH TCOOFF TCOON TCSADRAIN TCSAFLUSH TCSANOW
|
---|
865 | TOSTOP VEOF VEOL VERASE VINTR VKILL VMIN VQUIT VSTART
|
---|
866 | VSTOP VSUSP VTIME
|
---|
867 | cfgetispeed cfgetospeed cfsetispeed cfsetospeed tcdrain
|
---|
868 | tcflow tcflush tcgetattr tcsendbreak tcsetattr )],
|
---|
869 |
|
---|
870 | time_h => [qw(CLK_TCK CLOCKS_PER_SEC NULL asctime clock ctime
|
---|
871 | difftime mktime strftime tzset tzname)],
|
---|
872 |
|
---|
873 | unistd_h => [qw(F_OK NULL R_OK SEEK_CUR SEEK_END SEEK_SET
|
---|
874 | STDERR_FILENO STDIN_FILENO STDOUT_FILENO W_OK X_OK
|
---|
875 | _PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON
|
---|
876 | _PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX
|
---|
877 | _PC_PIPE_BUF _PC_VDISABLE _POSIX_CHOWN_RESTRICTED
|
---|
878 | _POSIX_JOB_CONTROL _POSIX_NO_TRUNC _POSIX_SAVED_IDS
|
---|
879 | _POSIX_VDISABLE _POSIX_VERSION _SC_ARG_MAX
|
---|
880 | _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL
|
---|
881 | _SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS
|
---|
882 | _SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION
|
---|
883 | _exit access ctermid cuserid
|
---|
884 | dup2 dup execl execle execlp execv execve execvp
|
---|
885 | fpathconf fsync getcwd getegid geteuid getgid getgroups
|
---|
886 | getpid getuid isatty lseek pathconf pause setgid setpgid
|
---|
887 | setsid setuid sysconf tcgetpgrp tcsetpgrp ttyname)],
|
---|
888 |
|
---|
889 | utime_h => [],
|
---|
890 |
|
---|
891 | );
|
---|
892 |
|
---|
893 | # Exporter::export_tags();
|
---|
894 | for (values %EXPORT_TAGS) {
|
---|
895 | push @EXPORT, @$_;
|
---|
896 | }
|
---|
897 |
|
---|
898 | @EXPORT_OK = qw(
|
---|
899 | abs
|
---|
900 | alarm
|
---|
901 | atan2
|
---|
902 | chdir
|
---|
903 | chmod
|
---|
904 | chown
|
---|
905 | close
|
---|
906 | closedir
|
---|
907 | cos
|
---|
908 | exit
|
---|
909 | exp
|
---|
910 | fcntl
|
---|
911 | fileno
|
---|
912 | fork
|
---|
913 | getc
|
---|
914 | getgrgid
|
---|
915 | getgrnam
|
---|
916 | getlogin
|
---|
917 | getpgrp
|
---|
918 | getppid
|
---|
919 | getpwnam
|
---|
920 | getpwuid
|
---|
921 | gmtime
|
---|
922 | isatty
|
---|
923 | kill
|
---|
924 | lchown
|
---|
925 | link
|
---|
926 | localtime
|
---|
927 | log
|
---|
928 | mkdir
|
---|
929 | nice
|
---|
930 | open
|
---|
931 | opendir
|
---|
932 | pipe
|
---|
933 | printf
|
---|
934 | rand
|
---|
935 | read
|
---|
936 | readdir
|
---|
937 | rename
|
---|
938 | rewinddir
|
---|
939 | rmdir
|
---|
940 | sin
|
---|
941 | sleep
|
---|
942 | sprintf
|
---|
943 | sqrt
|
---|
944 | srand
|
---|
945 | stat
|
---|
946 | system
|
---|
947 | time
|
---|
948 | times
|
---|
949 | umask
|
---|
950 | unlink
|
---|
951 | utime
|
---|
952 | wait
|
---|
953 | waitpid
|
---|
954 | write
|
---|
955 | );
|
---|
956 |
|
---|
957 | require Exporter;
|
---|
958 | }
|
---|
959 |
|
---|
960 | package POSIX::SigAction;
|
---|
961 |
|
---|
962 | sub handler { $_[0]->{HANDLER} = $_[1] if @_ > 1; $_[0]->{HANDLER} };
|
---|
963 | sub mask { $_[0]->{MASK} = $_[1] if @_ > 1; $_[0]->{MASK} };
|
---|
964 | sub flags { $_[0]->{FLAGS} = $_[1] if @_ > 1; $_[0]->{FLAGS} };
|
---|
965 | sub safe { $_[0]->{SAFE} = $_[1] if @_ > 1; $_[0]->{SAFE} };
|
---|