ext/POSIX/POSIX.pm

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