ext/POSIX/POSIX.pm

   1 package POSIX;
   2
   3 our(@ISA, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD) = ();
   4
   5 our $VERSION = "1.07";
   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(filename, uid, gid)" 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                 link
 925                 localtime
 926                 log
 927                 mkdir
 928                 nice
 929                 open
 930                 opendir
 931                 pipe
 932                 printf
 933                 rand
 934                 read
 935                 readdir
 936                 rename
 937                 rewinddir
 938                 rmdir
 939                 sin
 940                 sleep
 941                 sprintf
 942                 sqrt
 943                 srand
 944                 stat
 945                 system
 946                 time
 947                 times
 948                 umask
 949                 unlink
 950                 utime
 951                 wait
 952                 waitpid
 953                 write
 954 );
 955
 956 require Exporter;
 957 }
 958
 959 package POSIX::SigAction;
 960
 961 sub handler { $_[0]->{HANDLER} = $_[1] if @_ > 1; $_[0]->{HANDLER} };
 962 sub mask    { $_[0]->{MASK}    = $_[1] if @_ > 1; $_[0]->{MASK} };
 963 sub flags   { $_[0]->{FLAGS}   = $_[1] if @_ > 1; $_[0]->{FLAGS} };
 964 sub safe    { $_[0]->{SAFE}    = $_[1] if @_ > 1; $_[0]->{SAFE} };