diff options
Diffstat (limited to 'Master/tlpkg/tlperl.old/lib/auto/POSIX')
157 files changed, 2293 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/POSIX.bs b/Master/tlpkg/tlperl.old/lib/auto/POSIX/POSIX.bs new file mode 100644 index 00000000000..e69de29bb2d --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/POSIX.bs diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/POSIX.dll b/Master/tlpkg/tlperl.old/lib/auto/POSIX/POSIX.dll Binary files differnew file mode 100755 index 00000000000..49bdaee0917 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/POSIX.dll diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/flags.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/flags.al new file mode 100644 index 00000000000..800cdd9a2b2 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/flags.al @@ -0,0 +1,9 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX::SigAction; + +#line 964 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\flags.al)" +sub flags { $_[0]->{FLAGS} = $_[1] if @_ > 1; $_[0]->{FLAGS} }; +# end of POSIX::SigAction::flags +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/handler.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/handler.al new file mode 100644 index 00000000000..f2a3994bdf0 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/handler.al @@ -0,0 +1,11 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX::SigAction; + +#line 960 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\handler.al)" +package POSIX::SigAction; + +sub handler { $_[0]->{HANDLER} = $_[1] if @_ > 1; $_[0]->{HANDLER} }; +# end of POSIX::SigAction::handler +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/mask.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/mask.al new file mode 100644 index 00000000000..e5c240eea1b --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/mask.al @@ -0,0 +1,9 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX::SigAction; + +#line 963 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\mask.al)" +sub mask { $_[0]->{MASK} = $_[1] if @_ > 1; $_[0]->{MASK} }; +# end of POSIX::SigAction::mask +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/safe.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/safe.al new file mode 100644 index 00000000000..bb27883beae --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/safe.al @@ -0,0 +1,9 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX::SigAction; + +#line 965 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\safe.al)" +sub safe { $_[0]->{SAFE} = $_[1] if @_ > 1; $_[0]->{SAFE} }; +1; +# end of POSIX::SigAction::safe diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/abs.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/abs.al new file mode 100644 index 00000000000..89999433d53 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/abs.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 398 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\abs.al)" +sub abs { + usage "abs(x)" if @_ != 1; + CORE::abs($_[0]); +} + +# end of POSIX::abs +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/alarm.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/alarm.al new file mode 100644 index 00000000000..e1c864ed8e0 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/alarm.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 615 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\alarm.al)" +sub alarm { + usage "alarm(seconds)" if @_ != 1; + CORE::alarm($_[0]); +} + +# end of POSIX::alarm +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/assert.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/assert.al new file mode 100644 index 00000000000..b3bce100406 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/assert.al @@ -0,0 +1,15 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 80 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\assert.al)" +sub assert { + usage "assert(expr)" if @_ != 1; + if (!$_[0]) { + croak "Assertion failed"; + } +} + +# end of POSIX::assert +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/atan2.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/atan2.al new file mode 100644 index 00000000000..9482e3cff23 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/atan2.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 145 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atan2.al)" +sub atan2 { + usage "atan2(x,y)" if @_ != 2; + CORE::atan2($_[0], $_[1]); +} + +# end of POSIX::atan2 +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/atexit.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/atexit.al new file mode 100644 index 00000000000..b0fdf7e97cf --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/atexit.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 403 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atexit.al)" +sub atexit { + unimpl "atexit() is C-specific: use END {} instead"; +} + +# end of POSIX::atexit +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/atof.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/atof.al new file mode 100644 index 00000000000..fc1d1cef431 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/atof.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 407 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atof.al)" +sub atof { + unimpl "atof() is C-specific, stopped"; +} + +# end of POSIX::atof +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/atoi.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/atoi.al new file mode 100644 index 00000000000..5eef246231b --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/atoi.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 411 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atoi.al)" +sub atoi { + unimpl "atoi() is C-specific, stopped"; +} + +# end of POSIX::atoi +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/atol.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/atol.al new file mode 100644 index 00000000000..e6fc6869a1a --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/atol.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 415 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atol.al)" +sub atol { + unimpl "atol() is C-specific, stopped"; +} + +# end of POSIX::atol +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/POSIX/autosplit.ix new file mode 100644 index 00000000000..8ecf455bb80 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/autosplit.ix @@ -0,0 +1,159 @@ +# Index created by AutoSplit for ..\..\lib\POSIX.pm +# (file acts as timestamp) +package POSIX; +sub usage ; +sub redef ; +sub unimpl ; +sub assert ; +sub tolower ; +sub toupper ; +sub closedir ; +sub opendir ; +sub readdir ; +sub rewinddir ; +sub errno ; +sub creat ; +sub fcntl ; +sub getgrgid ; +sub getgrnam ; +sub atan2 ; +sub cos ; +sub exp ; +sub fabs ; +sub log ; +sub pow ; +sub sin ; +sub sqrt ; +sub getpwnam ; +sub getpwuid ; +sub longjmp ; +sub setjmp ; +sub siglongjmp ; +sub sigsetjmp ; +sub kill ; +sub raise ; +sub offsetof ; +sub clearerr ; +sub fclose ; +sub fdopen ; +sub feof ; +sub fgetc ; +sub fgets ; +sub fileno ; +sub fopen ; +sub fprintf ; +sub fputc ; +sub fputs ; +sub fread ; +sub freopen ; +sub fscanf ; +sub fseek ; +sub fsync ; +sub ferror ; +sub fflush ; +sub fgetpos ; +sub fsetpos ; +sub ftell ; +sub fwrite ; +sub getc ; +sub getchar ; +sub gets ; +sub perror ; +sub printf ; +sub putc ; +sub putchar ; +sub puts ; +sub remove ; +sub rename ; +sub rewind ; +sub scanf ; +sub sprintf ; +sub sscanf ; +sub tmpfile ; +sub ungetc ; +sub vfprintf ; +sub vprintf ; +sub vsprintf ; +sub abs ; +sub atexit ; +sub atof ; +sub atoi ; +sub atol ; +sub bsearch ; +sub calloc ; +sub div ; +sub exit ; +sub free ; +sub getenv ; +sub labs ; +sub ldiv ; +sub malloc ; +sub qsort ; +sub rand ; +sub realloc ; +sub srand ; +sub system ; +sub memchr ; +sub memcmp ; +sub memcpy ; +sub memmove ; +sub memset ; +sub strcat ; +sub strchr ; +sub strcmp ; +sub strcpy ; +sub strcspn ; +sub strerror ; +sub strlen ; +sub strncat ; +sub strncmp ; +sub strncpy ; +sub strpbrk ; +sub strrchr ; +sub strspn ; +sub strstr ; +sub strtok ; +sub chmod ; +sub fstat ; +sub mkdir ; +sub stat ; +sub umask ; +sub wait ; +sub waitpid ; +sub gmtime ; +sub localtime ; +sub time ; +sub alarm ; +sub chdir ; +sub chown ; +sub execl ; +sub execle ; +sub execlp ; +sub execv ; +sub execve ; +sub execvp ; +sub fork ; +sub getegid ; +sub geteuid ; +sub getgid ; +sub getgroups ; +sub getlogin ; +sub getpgrp ; +sub getpid ; +sub getppid ; +sub getuid ; +sub isatty ; +sub link ; +sub rmdir ; +sub setbuf ; +sub setvbuf ; +sub sleep ; +sub unlink ; +sub utime ; +sub load_imports ; +package POSIX::SigAction; +sub handler ; +sub mask ; +sub flags ; +sub safe ; +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/bsearch.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/bsearch.al new file mode 100644 index 00000000000..4acc59b5a7d --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/bsearch.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 419 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\bsearch.al)" +sub bsearch { + unimpl "bsearch() not supplied"; +} + +# end of POSIX::bsearch +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/calloc.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/calloc.al new file mode 100644 index 00000000000..776029eff29 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/calloc.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 423 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\calloc.al)" +sub calloc { + unimpl "calloc() is C-specific, stopped"; +} + +# end of POSIX::calloc +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/chdir.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/chdir.al new file mode 100644 index 00000000000..1bddab213d6 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/chdir.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 620 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\chdir.al)" +sub chdir { + usage "chdir(directory)" if @_ != 1; + CORE::chdir($_[0]); +} + +# end of POSIX::chdir +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/chmod.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/chmod.al new file mode 100644 index 00000000000..8fc0d5a5e0b --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/chmod.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 561 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\chmod.al)" +sub chmod { + usage "chmod(mode, filename)" if @_ != 2; + CORE::chmod($_[0], $_[1]); +} + +# end of POSIX::chmod +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/chown.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/chown.al new file mode 100644 index 00000000000..ca945bd855d --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/chown.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 625 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\chown.al)" +sub chown { + usage "chown(uid, gid, filename)" if @_ != 3; + CORE::chown($_[0], $_[1], $_[2]); +} + +# end of POSIX::chown +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/clearerr.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/clearerr.al new file mode 100644 index 00000000000..c360043abf9 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/clearerr.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 225 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\clearerr.al)" +sub clearerr { + redef "IO::Handle::clearerr()"; +} + +# end of POSIX::clearerr +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/closedir.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/closedir.al new file mode 100644 index 00000000000..16ae1cd4f76 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/closedir.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 97 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\closedir.al)" +sub closedir { + usage "closedir(dirhandle)" if @_ != 1; + CORE::closedir($_[0]); +} + +# end of POSIX::closedir +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/cos.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/cos.al new file mode 100644 index 00000000000..ee01c091b27 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/cos.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 150 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\cos.al)" +sub cos { + usage "cos(x)" if @_ != 1; + CORE::cos($_[0]); +} + +# end of POSIX::cos +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/creat.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/creat.al new file mode 100644 index 00000000000..2d1cfb7d55d --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/creat.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 125 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\creat.al)" +sub creat { + usage "creat(filename, mode)" if @_ != 2; + &open($_[0], &O_WRONLY | &O_CREAT | &O_TRUNC, $_[1]); +} + +# end of POSIX::creat +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/div.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/div.al new file mode 100644 index 00000000000..4c751314da0 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/div.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 427 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\div.al)" +sub div { + unimpl "div() is C-specific, use /, % and int instead"; +} + +# end of POSIX::div +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/errno.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/errno.al new file mode 100644 index 00000000000..c57abdc4c3b --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/errno.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 120 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\errno.al)" +sub errno { + usage "errno()" if @_ != 0; + $! + 0; +} + +# end of POSIX::errno +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/execl.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/execl.al new file mode 100644 index 00000000000..3ffc4f5a671 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/execl.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 630 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execl.al)" +sub execl { + unimpl "execl() is C-specific, stopped"; +} + +# end of POSIX::execl +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/execle.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/execle.al new file mode 100644 index 00000000000..ec7e12da909 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/execle.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 634 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execle.al)" +sub execle { + unimpl "execle() is C-specific, stopped"; +} + +# end of POSIX::execle +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/execlp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/execlp.al new file mode 100644 index 00000000000..a9e32524839 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/execlp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 638 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execlp.al)" +sub execlp { + unimpl "execlp() is C-specific, stopped"; +} + +# end of POSIX::execlp +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/execv.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/execv.al new file mode 100644 index 00000000000..1e6f20bba77 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/execv.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 642 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execv.al)" +sub execv { + unimpl "execv() is C-specific, stopped"; +} + +# end of POSIX::execv +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/execve.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/execve.al new file mode 100644 index 00000000000..ae23c53ea77 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/execve.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 646 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execve.al)" +sub execve { + unimpl "execve() is C-specific, stopped"; +} + +# end of POSIX::execve +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/execvp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/execvp.al new file mode 100644 index 00000000000..88d5dd6764e --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/execvp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 650 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execvp.al)" +sub execvp { + unimpl "execvp() is C-specific, stopped"; +} + +# end of POSIX::execvp +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/exit.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/exit.al new file mode 100644 index 00000000000..d7806b3f4db --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/exit.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 431 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\exit.al)" +sub exit { + usage "exit(status)" if @_ != 1; + CORE::exit($_[0]); +} + +# end of POSIX::exit +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/exp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/exp.al new file mode 100644 index 00000000000..251dc740eaf --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/exp.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 155 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\exp.al)" +sub exp { + usage "exp(x)" if @_ != 1; + CORE::exp($_[0]); +} + +# end of POSIX::exp +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fabs.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fabs.al new file mode 100644 index 00000000000..ebe714729c2 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fabs.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 160 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fabs.al)" +sub fabs { + usage "fabs(x)" if @_ != 1; + CORE::abs($_[0]); +} + +# end of POSIX::fabs +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fclose.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fclose.al new file mode 100644 index 00000000000..f662ef7cda6 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fclose.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 229 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fclose.al)" +sub fclose { + redef "IO::Handle::close()"; +} + +# end of POSIX::fclose +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fcntl.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fcntl.al new file mode 100644 index 00000000000..bf6ec04fb4c --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fcntl.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 130 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fcntl.al)" +sub fcntl { + usage "fcntl(filehandle, cmd, arg)" if @_ != 3; + CORE::fcntl($_[0], $_[1], $_[2]); +} + +# end of POSIX::fcntl +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fdopen.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fdopen.al new file mode 100644 index 00000000000..392f8e27fbf --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fdopen.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 233 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fdopen.al)" +sub fdopen { + redef "IO::Handle::new_from_fd()"; +} + +# end of POSIX::fdopen +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/feof.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/feof.al new file mode 100644 index 00000000000..4c8b5ea37af --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/feof.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 237 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\feof.al)" +sub feof { + redef "IO::Handle::eof()"; +} + +# end of POSIX::feof +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/ferror.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/ferror.al new file mode 100644 index 00000000000..6ec8cccb11b --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/ferror.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 289 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ferror.al)" +sub ferror { + redef "IO::Handle::error()"; +} + +# end of POSIX::ferror +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fflush.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fflush.al new file mode 100644 index 00000000000..0ba6d1416f0 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fflush.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 293 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fflush.al)" +sub fflush { + redef "IO::Handle::flush()"; +} + +# end of POSIX::fflush +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fgetc.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fgetc.al new file mode 100644 index 00000000000..f89a6f86334 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fgetc.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 241 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fgetc.al)" +sub fgetc { + redef "IO::Handle::getc()"; +} + +# end of POSIX::fgetc +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fgetpos.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fgetpos.al new file mode 100644 index 00000000000..7583bbf3da6 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fgetpos.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 297 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fgetpos.al)" +sub fgetpos { + redef "IO::Seekable::getpos()"; +} + +# end of POSIX::fgetpos +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fgets.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fgets.al new file mode 100644 index 00000000000..7edcffdd192 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fgets.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 245 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fgets.al)" +sub fgets { + redef "IO::Handle::gets()"; +} + +# end of POSIX::fgets +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fileno.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fileno.al new file mode 100644 index 00000000000..45f0908329c --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fileno.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 249 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fileno.al)" +sub fileno { + redef "IO::Handle::fileno()"; +} + +# end of POSIX::fileno +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fopen.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fopen.al new file mode 100644 index 00000000000..795f272b2bb --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fopen.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 253 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fopen.al)" +sub fopen { + redef "IO::File::open()"; +} + +# end of POSIX::fopen +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fork.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fork.al new file mode 100644 index 00000000000..cb0ee7aaf13 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fork.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 654 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fork.al)" +sub fork { + usage "fork()" if @_ != 0; + CORE::fork; +} + +# end of POSIX::fork +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fprintf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fprintf.al new file mode 100644 index 00000000000..6ac5cb6a065 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fprintf.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 257 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fprintf.al)" +sub fprintf { + unimpl "fprintf() is C-specific--use printf instead"; +} + +# end of POSIX::fprintf +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fputc.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fputc.al new file mode 100644 index 00000000000..71a3b2307bb --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fputc.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 261 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fputc.al)" +sub fputc { + unimpl "fputc() is C-specific--use print instead"; +} + +# end of POSIX::fputc +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fputs.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fputs.al new file mode 100644 index 00000000000..5cc9cdc175b --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fputs.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 265 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fputs.al)" +sub fputs { + unimpl "fputs() is C-specific--use print instead"; +} + +# end of POSIX::fputs +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fread.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fread.al new file mode 100644 index 00000000000..a2f731a784c --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fread.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 269 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fread.al)" +sub fread { + unimpl "fread() is C-specific--use read instead"; +} + +# end of POSIX::fread +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/free.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/free.al new file mode 100644 index 00000000000..71eff3059c3 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/free.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 436 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\free.al)" +sub free { + unimpl "free() is C-specific, stopped"; +} + +# end of POSIX::free +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/freopen.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/freopen.al new file mode 100644 index 00000000000..31e08a2a889 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/freopen.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 273 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\freopen.al)" +sub freopen { + unimpl "freopen() is C-specific--use open instead"; +} + +# end of POSIX::freopen +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fscanf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fscanf.al new file mode 100644 index 00000000000..c5a5e08217b --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fscanf.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 277 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fscanf.al)" +sub fscanf { + unimpl "fscanf() is C-specific--use <> and regular expressions instead"; +} + +# end of POSIX::fscanf +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fseek.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fseek.al new file mode 100644 index 00000000000..0a591cca259 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fseek.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 281 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fseek.al)" +sub fseek { + redef "IO::Seekable::seek()"; +} + +# end of POSIX::fseek +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fsetpos.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fsetpos.al new file mode 100644 index 00000000000..311027b54ea --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fsetpos.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 301 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fsetpos.al)" +sub fsetpos { + redef "IO::Seekable::setpos()"; +} + +# end of POSIX::fsetpos +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fstat.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fstat.al new file mode 100644 index 00000000000..084979716d0 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fstat.al @@ -0,0 +1,17 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 566 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fstat.al)" +sub fstat { + usage "fstat(fd)" if @_ != 1; + local *TMP; + CORE::open(TMP, "<&$_[0]"); # Gross. + my @l = CORE::stat(TMP); + CORE::close(TMP); + @l; +} + +# end of POSIX::fstat +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fsync.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fsync.al new file mode 100644 index 00000000000..c8038d1d350 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fsync.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 285 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fsync.al)" +sub fsync { + redef "IO::Handle::sync()"; +} + +# end of POSIX::fsync +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/ftell.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/ftell.al new file mode 100644 index 00000000000..1d3490c6033 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/ftell.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 305 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ftell.al)" +sub ftell { + redef "IO::Seekable::tell()"; +} + +# end of POSIX::ftell +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fwrite.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fwrite.al new file mode 100644 index 00000000000..1099587edbd --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fwrite.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 309 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fwrite.al)" +sub fwrite { + unimpl "fwrite() is C-specific--use print instead"; +} + +# end of POSIX::fwrite +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getc.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getc.al new file mode 100644 index 00000000000..2ccc28cdf43 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getc.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 313 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getc.al)" +sub getc { + usage "getc(handle)" if @_ != 1; + CORE::getc($_[0]); +} + +# end of POSIX::getc +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getchar.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getchar.al new file mode 100644 index 00000000000..930386f6827 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getchar.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 318 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getchar.al)" +sub getchar { + usage "getchar()" if @_ != 0; + CORE::getc(STDIN); +} + +# end of POSIX::getchar +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getegid.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getegid.al new file mode 100644 index 00000000000..61c0942023f --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getegid.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 659 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getegid.al)" +sub getegid { + usage "getegid()" if @_ != 0; + $) + 0; +} + +# end of POSIX::getegid +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getenv.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getenv.al new file mode 100644 index 00000000000..c6fec0ca34b --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getenv.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 440 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getenv.al)" +sub getenv { + usage "getenv(name)" if @_ != 1; + $ENV{$_[0]}; +} + +# end of POSIX::getenv +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/geteuid.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/geteuid.al new file mode 100644 index 00000000000..710491ebcc3 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/geteuid.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 664 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\geteuid.al)" +sub geteuid { + usage "geteuid()" if @_ != 0; + $> + 0; +} + +# end of POSIX::geteuid +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgid.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgid.al new file mode 100644 index 00000000000..7cd6164fb43 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgid.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 669 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgid.al)" +sub getgid { + usage "getgid()" if @_ != 0; + $( + 0; +} + +# end of POSIX::getgid +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgrgid.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgrgid.al new file mode 100644 index 00000000000..550e75a69f3 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgrgid.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 135 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgrgid.al)" +sub getgrgid { + usage "getgrgid(gid)" if @_ != 1; + CORE::getgrgid($_[0]); +} + +# end of POSIX::getgrgid +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgrnam.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgrnam.al new file mode 100644 index 00000000000..a480731586c --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgrnam.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 140 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgrnam.al)" +sub getgrnam { + usage "getgrnam(name)" if @_ != 1; + CORE::getgrnam($_[0]); +} + +# end of POSIX::getgrnam +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgroups.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgroups.al new file mode 100644 index 00000000000..5fd0d9d3aea --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgroups.al @@ -0,0 +1,14 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 674 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgroups.al)" +sub getgroups { + usage "getgroups()" if @_ != 0; + my %seen; + grep(!$seen{$_}++, split(' ', $) )); +} + +# end of POSIX::getgroups +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getlogin.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getlogin.al new file mode 100644 index 00000000000..55bcb4ee9fb --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getlogin.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 680 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getlogin.al)" +sub getlogin { + usage "getlogin()" if @_ != 0; + CORE::getlogin(); +} + +# end of POSIX::getlogin +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpgrp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpgrp.al new file mode 100644 index 00000000000..ef0425b7b7f --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpgrp.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 685 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpgrp.al)" +sub getpgrp { + usage "getpgrp()" if @_ != 0; + CORE::getpgrp; +} + +# end of POSIX::getpgrp +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpid.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpid.al new file mode 100644 index 00000000000..9aeaa25b63e --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpid.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 690 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpid.al)" +sub getpid { + usage "getpid()" if @_ != 0; + $$; +} + +# end of POSIX::getpid +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getppid.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getppid.al new file mode 100644 index 00000000000..4951623eb04 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getppid.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 695 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getppid.al)" +sub getppid { + usage "getppid()" if @_ != 0; + CORE::getppid; +} + +# end of POSIX::getppid +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpwnam.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpwnam.al new file mode 100644 index 00000000000..296b87f28ef --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpwnam.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 185 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpwnam.al)" +sub getpwnam { + usage "getpwnam(name)" if @_ != 1; + CORE::getpwnam($_[0]); +} + +# end of POSIX::getpwnam +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpwuid.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpwuid.al new file mode 100644 index 00000000000..5616a6daa2c --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpwuid.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 190 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpwuid.al)" +sub getpwuid { + usage "getpwuid(uid)" if @_ != 1; + CORE::getpwuid($_[0]); +} + +# end of POSIX::getpwuid +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/gets.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/gets.al new file mode 100644 index 00000000000..34667890e6e --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/gets.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 323 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\gets.al)" +sub gets { + usage "gets()" if @_ != 0; + scalar <STDIN>; +} + +# end of POSIX::gets +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getuid.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getuid.al new file mode 100644 index 00000000000..5a326ec67f0 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getuid.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 700 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getuid.al)" +sub getuid { + usage "getuid()" if @_ != 0; + $<; +} + +# end of POSIX::getuid +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/gmtime.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/gmtime.al new file mode 100644 index 00000000000..6bbf4fc6fef --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/gmtime.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 600 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\gmtime.al)" +sub gmtime { + usage "gmtime(time)" if @_ != 1; + CORE::gmtime($_[0]); +} + +# end of POSIX::gmtime +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/isatty.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/isatty.al new file mode 100644 index 00000000000..9ab71b3c2a0 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/isatty.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 705 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\isatty.al)" +sub isatty { + usage "isatty(filehandle)" if @_ != 1; + -t $_[0]; +} + +# end of POSIX::isatty +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/kill.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/kill.al new file mode 100644 index 00000000000..12f5276f5f8 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/kill.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 211 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\kill.al)" +sub kill { + usage "kill(pid, sig)" if @_ != 2; + CORE::kill $_[1], $_[0]; +} + +# end of POSIX::kill +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/labs.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/labs.al new file mode 100644 index 00000000000..581a1897d73 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/labs.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 445 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\labs.al)" +sub labs { + unimpl "labs() is C-specific, use abs instead"; +} + +# end of POSIX::labs +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/ldiv.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/ldiv.al new file mode 100644 index 00000000000..1b704c1fad4 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/ldiv.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 449 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ldiv.al)" +sub ldiv { + unimpl "ldiv() is C-specific, use /, % and int instead"; +} + +# end of POSIX::ldiv +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/link.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/link.al new file mode 100644 index 00000000000..e78401a321d --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/link.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 710 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\link.al)" +sub link { + usage "link(oldfilename, newfilename)" if @_ != 2; + CORE::link($_[0], $_[1]); +} + +# end of POSIX::link +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/load_imports.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/load_imports.al new file mode 100644 index 00000000000..6c2ff0ad2ac --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/load_imports.al @@ -0,0 +1,225 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 743 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\load_imports.al)" +sub load_imports { +%EXPORT_TAGS = ( + + assert_h => [qw(assert NDEBUG)], + + ctype_h => [qw(isalnum isalpha iscntrl isdigit isgraph islower + isprint ispunct isspace isupper isxdigit tolower toupper)], + + dirent_h => [], + + errno_h => [qw(E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT + EAGAIN EALREADY EBADF EBUSY ECHILD ECONNABORTED + ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDQUOT + EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EINPROGRESS + EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK + EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH + ENFILE ENOBUFS ENODEV ENOENT ENOEXEC ENOLCK ENOMEM + ENOPROTOOPT ENOSPC ENOSYS ENOTBLK ENOTCONN ENOTDIR + ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM + EPFNOSUPPORT EPIPE EPROCLIM EPROTONOSUPPORT EPROTOTYPE + ERANGE EREMOTE ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT + ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS ETXTBSY + EUSERS EWOULDBLOCK EXDEV errno)], + + fcntl_h => [qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK + F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK + O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK + O_RDONLY O_RDWR O_TRUNC O_WRONLY + creat + SEEK_CUR SEEK_END SEEK_SET + S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU + S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG S_ISUID + S_IWGRP S_IWOTH S_IWUSR)], + + float_h => [qw(DBL_DIG DBL_EPSILON DBL_MANT_DIG + DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP + DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP + FLT_DIG FLT_EPSILON FLT_MANT_DIG + FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP + FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP + FLT_RADIX FLT_ROUNDS + LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG + LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP + LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP)], + + grp_h => [], + + limits_h => [qw( ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX + INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON + MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX + PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN + SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX + ULONG_MAX USHRT_MAX _POSIX_ARG_MAX _POSIX_CHILD_MAX + _POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT + _POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_OPEN_MAX + _POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SSIZE_MAX + _POSIX_STREAM_MAX _POSIX_TZNAME_MAX)], + + locale_h => [qw(LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES + LC_MONETARY LC_NUMERIC LC_TIME NULL + localeconv setlocale)], + + math_h => [qw(HUGE_VAL acos asin atan ceil cosh fabs floor fmod + frexp ldexp log10 modf pow sinh tan tanh)], + + pwd_h => [], + + setjmp_h => [qw(longjmp setjmp siglongjmp sigsetjmp)], + + signal_h => [qw(SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK + SA_RESETHAND SA_RESTART SA_SIGINFO SIGABRT SIGALRM + SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT SIGKILL + SIGPIPE SIGQUIT SIGSEGV SIGSTOP SIGTERM SIGTSTP SIGTTIN + SIGTTOU SIGUSR1 SIGUSR2 SIG_BLOCK SIG_DFL SIG_ERR + SIG_IGN SIG_SETMASK SIG_UNBLOCK raise sigaction signal + sigpending sigprocmask sigsuspend)], + + stdarg_h => [], + + stddef_h => [qw(NULL offsetof)], + + stdio_h => [qw(BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid + L_tmpname NULL SEEK_CUR SEEK_END SEEK_SET + STREAM_MAX TMP_MAX stderr stdin stdout + clearerr fclose fdopen feof ferror fflush fgetc fgetpos + fgets fopen fprintf fputc fputs fread freopen + fscanf fseek fsetpos ftell fwrite getchar gets + perror putc putchar puts remove rewind + scanf setbuf setvbuf sscanf tmpfile tmpnam + ungetc vfprintf vprintf vsprintf)], + + stdlib_h => [qw(EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX NULL RAND_MAX + abort atexit atof atoi atol bsearch calloc div + free getenv labs ldiv malloc mblen mbstowcs mbtowc + qsort realloc strtod strtol strtoul wcstombs wctomb)], + + string_h => [qw(NULL memchr memcmp memcpy memmove memset strcat + strchr strcmp strcoll strcpy strcspn strerror strlen + strncat strncmp strncpy strpbrk strrchr strspn strstr + strtok strxfrm)], + + sys_stat_h => [qw(S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU + S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG + S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR + fstat mkfifo)], + + sys_times_h => [], + + sys_types_h => [], + + sys_utsname_h => [qw(uname)], + + sys_wait_h => [qw(WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED + WNOHANG WSTOPSIG WTERMSIG WUNTRACED)], + + termios_h => [qw( B0 B110 B1200 B134 B150 B1800 B19200 B200 B2400 + B300 B38400 B4800 B50 B600 B75 B9600 BRKINT CLOCAL + CREAD CS5 CS6 CS7 CS8 CSIZE CSTOPB ECHO ECHOE ECHOK + ECHONL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR + INLCR INPCK ISIG ISTRIP IXOFF IXON NCCS NOFLSH OPOST + PARENB PARMRK PARODD TCIFLUSH TCIOFF TCIOFLUSH TCION + TCOFLUSH TCOOFF TCOON TCSADRAIN TCSAFLUSH TCSANOW + TOSTOP VEOF VEOL VERASE VINTR VKILL VMIN VQUIT VSTART + VSTOP VSUSP VTIME + cfgetispeed cfgetospeed cfsetispeed cfsetospeed tcdrain + tcflow tcflush tcgetattr tcsendbreak tcsetattr )], + + time_h => [qw(CLK_TCK CLOCKS_PER_SEC NULL asctime clock ctime + difftime mktime strftime tzset tzname)], + + unistd_h => [qw(F_OK NULL R_OK SEEK_CUR SEEK_END SEEK_SET + STDERR_FILENO STDIN_FILENO STDOUT_FILENO W_OK X_OK + _PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON + _PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX + _PC_PIPE_BUF _PC_VDISABLE _POSIX_CHOWN_RESTRICTED + _POSIX_JOB_CONTROL _POSIX_NO_TRUNC _POSIX_SAVED_IDS + _POSIX_VDISABLE _POSIX_VERSION _SC_ARG_MAX + _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL + _SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS + _SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION + _exit access ctermid cuserid + dup2 dup execl execle execlp execv execve execvp + fpathconf fsync getcwd getegid geteuid getgid getgroups + getpid getuid isatty lseek pathconf pause setgid setpgid + setsid setuid sysconf tcgetpgrp tcsetpgrp ttyname)], + + utime_h => [], + +); + +# Exporter::export_tags(); +for (values %EXPORT_TAGS) { + push @EXPORT, @$_; +} + +@EXPORT_OK = qw( + abs + alarm + atan2 + chdir + chmod + chown + close + closedir + cos + exit + exp + fcntl + fileno + fork + getc + getgrgid + getgrnam + getlogin + getpgrp + getppid + getpwnam + getpwuid + gmtime + isatty + kill + lchown + link + localtime + log + mkdir + nice + open + opendir + pipe + printf + rand + read + readdir + rename + rewinddir + rmdir + sin + sleep + sprintf + sqrt + srand + stat + system + time + times + umask + unlink + utime + wait + waitpid + write +); + +require Exporter; +} + +# end of POSIX::SigAction::load_imports +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/localtime.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/localtime.al new file mode 100644 index 00000000000..dde4f5769ef --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/localtime.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 605 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\localtime.al)" +sub localtime { + usage "localtime(time)" if @_ != 1; + CORE::localtime($_[0]); +} + +# end of POSIX::localtime +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/log.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/log.al new file mode 100644 index 00000000000..6e400f25866 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/log.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 165 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\log.al)" +sub log { + usage "log(x)" if @_ != 1; + CORE::log($_[0]); +} + +# end of POSIX::log +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/longjmp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/longjmp.al new file mode 100644 index 00000000000..f3dd3263086 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/longjmp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 195 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\longjmp.al)" +sub longjmp { + unimpl "longjmp() is C-specific: use die instead"; +} + +# end of POSIX::longjmp +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/malloc.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/malloc.al new file mode 100644 index 00000000000..2f50c6da70a --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/malloc.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 453 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\malloc.al)" +sub malloc { + unimpl "malloc() is C-specific, stopped"; +} + +# end of POSIX::malloc +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/memchr.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/memchr.al new file mode 100644 index 00000000000..bcdfac6200b --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/memchr.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 478 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memchr.al)" +sub memchr { + unimpl "memchr() is C-specific, use index() instead"; +} + +# end of POSIX::memchr +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/memcmp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/memcmp.al new file mode 100644 index 00000000000..e01575259d4 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/memcmp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 482 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memcmp.al)" +sub memcmp { + unimpl "memcmp() is C-specific, use eq instead"; +} + +# end of POSIX::memcmp +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/memcpy.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/memcpy.al new file mode 100644 index 00000000000..b096a059be9 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/memcpy.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 486 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memcpy.al)" +sub memcpy { + unimpl "memcpy() is C-specific, use = instead"; +} + +# end of POSIX::memcpy +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/memmove.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/memmove.al new file mode 100644 index 00000000000..dd29e805f70 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/memmove.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 490 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memmove.al)" +sub memmove { + unimpl "memmove() is C-specific, use = instead"; +} + +# end of POSIX::memmove +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/memset.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/memset.al new file mode 100644 index 00000000000..407980dd938 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/memset.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 494 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memset.al)" +sub memset { + unimpl "memset() is C-specific, use x instead"; +} + +# end of POSIX::memset +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/mkdir.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/mkdir.al new file mode 100644 index 00000000000..edb004a11e8 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/mkdir.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 575 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\mkdir.al)" +sub mkdir { + usage "mkdir(directoryname, mode)" if @_ != 2; + CORE::mkdir($_[0], $_[1]); +} + +# end of POSIX::mkdir +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/offsetof.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/offsetof.al new file mode 100644 index 00000000000..83c2df0e521 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/offsetof.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 221 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\offsetof.al)" +sub offsetof { + unimpl "offsetof() is C-specific, stopped"; +} + +# end of POSIX::offsetof +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/opendir.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/opendir.al new file mode 100644 index 00000000000..9c508b64371 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/opendir.al @@ -0,0 +1,16 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 102 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\opendir.al)" +sub opendir { + usage "opendir(directory)" if @_ != 1; + my $dirhandle; + CORE::opendir($dirhandle, $_[0]) + ? $dirhandle + : undef; +} + +# end of POSIX::opendir +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/perror.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/perror.al new file mode 100644 index 00000000000..df53df18eff --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/perror.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 328 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\perror.al)" +sub perror { + print STDERR "@_: " if @_; + print STDERR $!,"\n"; +} + +# end of POSIX::perror +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/pow.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/pow.al new file mode 100644 index 00000000000..9f1ac2fc14f --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/pow.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 170 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\pow.al)" +sub pow { + usage "pow(x,exponent)" if @_ != 2; + $_[0] ** $_[1]; +} + +# end of POSIX::pow +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/printf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/printf.al new file mode 100644 index 00000000000..28b07d21cd1 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/printf.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 333 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\printf.al)" +sub printf { + usage "printf(pattern, args...)" if @_ < 1; + CORE::printf STDOUT @_; +} + +# end of POSIX::printf +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/putc.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/putc.al new file mode 100644 index 00000000000..484984bcd9f --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/putc.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 338 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\putc.al)" +sub putc { + unimpl "putc() is C-specific--use print instead"; +} + +# end of POSIX::putc +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/putchar.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/putchar.al new file mode 100644 index 00000000000..a85a0d79b36 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/putchar.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 342 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\putchar.al)" +sub putchar { + unimpl "putchar() is C-specific--use print instead"; +} + +# end of POSIX::putchar +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/puts.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/puts.al new file mode 100644 index 00000000000..0bd3f4f3b3c --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/puts.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 346 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\puts.al)" +sub puts { + unimpl "puts() is C-specific--use print instead"; +} + +# end of POSIX::puts +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/qsort.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/qsort.al new file mode 100644 index 00000000000..1621e6db521 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/qsort.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 457 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\qsort.al)" +sub qsort { + unimpl "qsort() is C-specific, use sort instead"; +} + +# end of POSIX::qsort +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/raise.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/raise.al new file mode 100644 index 00000000000..3d078d08f35 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/raise.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 216 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\raise.al)" +sub raise { + usage "raise(sig)" if @_ != 1; + CORE::kill $_[0], $$; # Is this good enough? +} + +# end of POSIX::raise +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/rand.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/rand.al new file mode 100644 index 00000000000..78d16fe53cc --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/rand.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 461 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rand.al)" +sub rand { + unimpl "rand() is non-portable, use Perl's rand instead"; +} + +# end of POSIX::rand +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/readdir.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/readdir.al new file mode 100644 index 00000000000..395379abb86 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/readdir.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 110 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\readdir.al)" +sub readdir { + usage "readdir(dirhandle)" if @_ != 1; + CORE::readdir($_[0]); +} + +# end of POSIX::readdir +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/realloc.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/realloc.al new file mode 100644 index 00000000000..949c4fc3b77 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/realloc.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 465 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\realloc.al)" +sub realloc { + unimpl "realloc() is C-specific, stopped"; +} + +# end of POSIX::realloc +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/redef.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/redef.al new file mode 100644 index 00000000000..d667327d6b4 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/redef.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 69 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\redef.al)" +sub redef { + my ($mess) = @_; + croak "Use method $mess instead"; +} + +# end of POSIX::redef +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/remove.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/remove.al new file mode 100644 index 00000000000..e29b4531d68 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/remove.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 350 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\remove.al)" +sub remove { + usage "remove(filename)" if @_ != 1; + CORE::unlink($_[0]); +} + +# end of POSIX::remove +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/rename.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/rename.al new file mode 100644 index 00000000000..6087fefa798 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/rename.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 355 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rename.al)" +sub rename { + usage "rename(oldfilename, newfilename)" if @_ != 2; + CORE::rename($_[0], $_[1]); +} + +# end of POSIX::rename +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/rewind.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/rewind.al new file mode 100644 index 00000000000..a07216f1c51 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/rewind.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 360 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rewind.al)" +sub rewind { + usage "rewind(filehandle)" if @_ != 1; + CORE::seek($_[0],0,0); +} + +# end of POSIX::rewind +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/rewinddir.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/rewinddir.al new file mode 100644 index 00000000000..c01271a33d8 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/rewinddir.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 115 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rewinddir.al)" +sub rewinddir { + usage "rewinddir(dirhandle)" if @_ != 1; + CORE::rewinddir($_[0]); +} + +# end of POSIX::rewinddir +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/rmdir.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/rmdir.al new file mode 100644 index 00000000000..b94bdf166ee --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/rmdir.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 715 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rmdir.al)" +sub rmdir { + usage "rmdir(directoryname)" if @_ != 1; + CORE::rmdir($_[0]); +} + +# end of POSIX::rmdir +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/scanf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/scanf.al new file mode 100644 index 00000000000..2d4ff839328 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/scanf.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 365 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\scanf.al)" +sub scanf { + unimpl "scanf() is C-specific--use <> and regular expressions instead"; +} + +# end of POSIX::scanf +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/setbuf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/setbuf.al new file mode 100644 index 00000000000..a7de25518fa --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/setbuf.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 720 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\setbuf.al)" +sub setbuf { + redef "IO::Handle::setbuf()"; +} + +# end of POSIX::setbuf +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/setjmp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/setjmp.al new file mode 100644 index 00000000000..780deb31940 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/setjmp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 199 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\setjmp.al)" +sub setjmp { + unimpl "setjmp() is C-specific: use eval {} instead"; +} + +# end of POSIX::setjmp +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/setvbuf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/setvbuf.al new file mode 100644 index 00000000000..b134e52528d --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/setvbuf.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 724 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\setvbuf.al)" +sub setvbuf { + redef "IO::Handle::setvbuf()"; +} + +# end of POSIX::setvbuf +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/siglongjmp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/siglongjmp.al new file mode 100644 index 00000000000..ab46fac02b6 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/siglongjmp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 203 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\siglongjmp.al)" +sub siglongjmp { + unimpl "siglongjmp() is C-specific: use die instead"; +} + +# end of POSIX::siglongjmp +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/sigsetjmp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/sigsetjmp.al new file mode 100644 index 00000000000..31e563c6f4f --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/sigsetjmp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 207 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sigsetjmp.al)" +sub sigsetjmp { + unimpl "sigsetjmp() is C-specific: use eval {} instead"; +} + +# end of POSIX::sigsetjmp +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/sin.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/sin.al new file mode 100644 index 00000000000..9464a28bfea --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/sin.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 175 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sin.al)" +sub sin { + usage "sin(x)" if @_ != 1; + CORE::sin($_[0]); +} + +# end of POSIX::sin +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/sleep.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/sleep.al new file mode 100644 index 00000000000..e58de4d5602 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/sleep.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 728 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sleep.al)" +sub sleep { + usage "sleep(seconds)" if @_ != 1; + $_[0] - CORE::sleep($_[0]); +} + +# end of POSIX::sleep +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/sprintf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/sprintf.al new file mode 100644 index 00000000000..75e6bc5e277 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/sprintf.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 369 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sprintf.al)" +sub sprintf { + usage "sprintf(pattern,args)" if @_ == 0; + CORE::sprintf(shift,@_); +} + +# end of POSIX::sprintf +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/sqrt.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/sqrt.al new file mode 100644 index 00000000000..54a2976e2da --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/sqrt.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 180 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sqrt.al)" +sub sqrt { + usage "sqrt(x)" if @_ != 1; + CORE::sqrt($_[0]); +} + +# end of POSIX::sqrt +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/srand.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/srand.al new file mode 100644 index 00000000000..b85fd14c60b --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/srand.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 469 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\srand.al)" +sub srand { + unimpl "srand()"; +} + +# end of POSIX::srand +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/sscanf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/sscanf.al new file mode 100644 index 00000000000..b6869491e5d --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/sscanf.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 374 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sscanf.al)" +sub sscanf { + unimpl "sscanf() is C-specific--use regular expressions instead"; +} + +# end of POSIX::sscanf +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/stat.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/stat.al new file mode 100644 index 00000000000..4016c0e88ab --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/stat.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 580 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\stat.al)" +sub stat { + usage "stat(filename)" if @_ != 1; + CORE::stat($_[0]); +} + +# end of POSIX::stat +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcat.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcat.al new file mode 100644 index 00000000000..6b9602b93c6 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcat.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 498 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcat.al)" +sub strcat { + unimpl "strcat() is C-specific, use .= instead"; +} + +# end of POSIX::strcat +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strchr.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strchr.al new file mode 100644 index 00000000000..36a59233340 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strchr.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 502 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strchr.al)" +sub strchr { + unimpl "strchr() is C-specific, use index() instead"; +} + +# end of POSIX::strchr +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcmp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcmp.al new file mode 100644 index 00000000000..b0447b9f1db --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcmp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 506 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcmp.al)" +sub strcmp { + unimpl "strcmp() is C-specific, use eq instead"; +} + +# end of POSIX::strcmp +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcpy.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcpy.al new file mode 100644 index 00000000000..5660760b81d --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcpy.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 510 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcpy.al)" +sub strcpy { + unimpl "strcpy() is C-specific, use = instead"; +} + +# end of POSIX::strcpy +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcspn.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcspn.al new file mode 100644 index 00000000000..4a46be8baaa --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcspn.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 514 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcspn.al)" +sub strcspn { + unimpl "strcspn() is C-specific, use regular expressions instead"; +} + +# end of POSIX::strcspn +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strerror.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strerror.al new file mode 100644 index 00000000000..cc4c86dbae4 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strerror.al @@ -0,0 +1,14 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 518 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strerror.al)" +sub strerror { + usage "strerror(errno)" if @_ != 1; + local $! = $_[0]; + $! . ""; +} + +# end of POSIX::strerror +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strlen.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strlen.al new file mode 100644 index 00000000000..9cc9df2d315 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strlen.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 524 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strlen.al)" +sub strlen { + unimpl "strlen() is C-specific, use length instead"; +} + +# end of POSIX::strlen +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strncat.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strncat.al new file mode 100644 index 00000000000..4f09a52c298 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strncat.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 528 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strncat.al)" +sub strncat { + unimpl "strncat() is C-specific, use .= instead"; +} + +# end of POSIX::strncat +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strncmp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strncmp.al new file mode 100644 index 00000000000..b4dfc9ab0b4 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strncmp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 532 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strncmp.al)" +sub strncmp { + unimpl "strncmp() is C-specific, use eq instead"; +} + +# end of POSIX::strncmp +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strncpy.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strncpy.al new file mode 100644 index 00000000000..98b3c081e68 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strncpy.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 536 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strncpy.al)" +sub strncpy { + unimpl "strncpy() is C-specific, use = instead"; +} + +# end of POSIX::strncpy +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strpbrk.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strpbrk.al new file mode 100644 index 00000000000..227c00d76cc --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strpbrk.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 540 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strpbrk.al)" +sub strpbrk { + unimpl "strpbrk() is C-specific, stopped"; +} + +# end of POSIX::strpbrk +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strrchr.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strrchr.al new file mode 100644 index 00000000000..1dd2a6ebf04 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strrchr.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 544 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strrchr.al)" +sub strrchr { + unimpl "strrchr() is C-specific, use rindex() instead"; +} + +# end of POSIX::strrchr +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strspn.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strspn.al new file mode 100644 index 00000000000..3bd65863563 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strspn.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 548 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strspn.al)" +sub strspn { + unimpl "strspn() is C-specific, stopped"; +} + +# end of POSIX::strspn +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strstr.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strstr.al new file mode 100644 index 00000000000..f755459b68f --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strstr.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 552 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strstr.al)" +sub strstr { + usage "strstr(big, little)" if @_ != 2; + CORE::index($_[0], $_[1]); +} + +# end of POSIX::strstr +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strtok.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strtok.al new file mode 100644 index 00000000000..bae94c9282a --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strtok.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 557 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strtok.al)" +sub strtok { + unimpl "strtok() is C-specific, stopped"; +} + +# end of POSIX::strtok +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/system.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/system.al new file mode 100644 index 00000000000..1b51e8f5209 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/system.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 473 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\system.al)" +sub system { + usage "system(command)" if @_ != 1; + CORE::system($_[0]); +} + +# end of POSIX::system +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/time.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/time.al new file mode 100644 index 00000000000..6b404400fd4 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/time.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 610 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\time.al)" +sub time { + usage "time()" if @_ != 0; + CORE::time; +} + +# end of POSIX::time +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/tmpfile.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/tmpfile.al new file mode 100644 index 00000000000..aa223d6a27c --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/tmpfile.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 378 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\tmpfile.al)" +sub tmpfile { + redef "IO::File::new_tmpfile()"; +} + +# end of POSIX::tmpfile +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/tolower.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/tolower.al new file mode 100644 index 00000000000..57937313fc9 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/tolower.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 87 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\tolower.al)" +sub tolower { + usage "tolower(string)" if @_ != 1; + lc($_[0]); +} + +# end of POSIX::tolower +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/toupper.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/toupper.al new file mode 100644 index 00000000000..a5484a70aa6 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/toupper.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 92 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\toupper.al)" +sub toupper { + usage "toupper(string)" if @_ != 1; + uc($_[0]); +} + +# end of POSIX::toupper +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/umask.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/umask.al new file mode 100644 index 00000000000..8bf64ae7f0e --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/umask.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 585 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\umask.al)" +sub umask { + usage "umask(mask)" if @_ != 1; + CORE::umask($_[0]); +} + +# end of POSIX::umask +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/ungetc.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/ungetc.al new file mode 100644 index 00000000000..874e4416f71 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/ungetc.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 382 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ungetc.al)" +sub ungetc { + redef "IO::Handle::ungetc()"; +} + +# end of POSIX::ungetc +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/unimpl.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/unimpl.al new file mode 100644 index 00000000000..e1c36c60f85 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/unimpl.al @@ -0,0 +1,14 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 74 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\unimpl.al)" +sub unimpl { + my ($mess) = @_; + $mess =~ s/xxx//; + croak "Unimplemented: POSIX::$mess"; +} + +# end of POSIX::unimpl +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/unlink.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/unlink.al new file mode 100644 index 00000000000..c8f58ab9836 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/unlink.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 733 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\unlink.al)" +sub unlink { + usage "unlink(filename)" if @_ != 1; + CORE::unlink($_[0]); +} + +# end of POSIX::unlink +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/usage.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/usage.al new file mode 100644 index 00000000000..0b2b0bd6115 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/usage.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 64 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\usage.al)" +sub usage { + my ($mess) = @_; + croak "Usage: POSIX::$mess"; +} + +# end of POSIX::usage +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/utime.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/utime.al new file mode 100644 index 00000000000..68008e7e110 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/utime.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 738 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\utime.al)" +sub utime { + usage "utime(filename, atime, mtime)" if @_ != 3; + CORE::utime($_[1], $_[2], $_[0]); +} + +# end of POSIX::utime +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/vfprintf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/vfprintf.al new file mode 100644 index 00000000000..fb502afc761 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/vfprintf.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 386 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\vfprintf.al)" +sub vfprintf { + unimpl "vfprintf() is C-specific"; +} + +# end of POSIX::vfprintf +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/vprintf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/vprintf.al new file mode 100644 index 00000000000..28108face71 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/vprintf.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 390 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\vprintf.al)" +sub vprintf { + unimpl "vprintf() is C-specific"; +} + +# end of POSIX::vprintf +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/vsprintf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/vsprintf.al new file mode 100644 index 00000000000..9d4f008ebbc --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/vsprintf.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 394 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\vsprintf.al)" +sub vsprintf { + unimpl "vsprintf() is C-specific"; +} + +# end of POSIX::vsprintf +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/wait.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/wait.al new file mode 100644 index 00000000000..57d9701f4ff --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/wait.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 590 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\wait.al)" +sub wait { + usage "wait()" if @_ != 0; + CORE::wait(); +} + +# end of POSIX::wait +1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/waitpid.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/waitpid.al new file mode 100644 index 00000000000..6cd31c21009 --- /dev/null +++ b/Master/tlpkg/tlperl.old/lib/auto/POSIX/waitpid.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 595 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\waitpid.al)" +sub waitpid { + usage "waitpid(pid, options)" if @_ != 2; + CORE::waitpid($_[0], $_[1]); +} + +# end of POSIX::waitpid +1; |