patch for syslog
[p5sagit/p5-mst-13.2.git] / 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                 abs
893                 alarm
894                 atan2
895                 chdir
896                 chmod
897                 chown
898                 close
899                 closedir
900                 cos
901                 exit
902                 exp
903                 fcntl
904                 fileno
905                 fork
906                 getc
907                 getgrgid
908                 getgrnam
909                 getlogin
910                 getpgrp
911                 getppid
912                 getpwnam
913                 getpwuid
914                 gmtime
915                 isatty
916                 kill
917                 link
918                 localtime
919                 log
920                 mkdir
921                 nice
922                 open
923                 opendir
924                 pipe
925                 printf
926                 rand
927                 read
928                 readdir
929                 rename
930                 rewinddir
931                 rmdir
932                 sin
933                 sleep
934                 sprintf
935                 sqrt
936                 srand
937                 stat
938                 system
939                 time
940                 times
941                 umask
942                 unlink
943                 utime
944                 wait
945                 waitpid
946                 write
947 );
948
949 require Exporter;
950 }