diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 15:54:37 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 15:54:37 +0000 |
| commit | 9d55a4cf517a832c74e85179eac4239f9be8d2e7 (patch) | |
| tree | 822f43e201b5fe5f20d07c831a0042b7280f85c5 /Master/tlpkg | |
| parent | 2acf4c9396e980e00adbdc02f5a70eefc7122b55 (diff) | |
New tlperl part VII
git-svn-id: svn://tug.org/texlive/trunk@21429 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
258 files changed, 3228 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/B/B.dll b/Master/tlpkg/tlperl/lib/auto/B/B.dll Binary files differnew file mode 100755 index 00000000000..a373e10f033 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/B/B.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Bzip2/Bzip2.dll b/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Bzip2/Bzip2.dll Binary files differnew file mode 100755 index 00000000000..2809523c9d5 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Bzip2/Bzip2.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Bzip2/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Bzip2/autosplit.ix new file mode 100644 index 00000000000..17233b991a1 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Bzip2/autosplit.ix @@ -0,0 +1,3 @@ +# Index created by AutoSplit for ..\..\lib\Compress\Raw\Bzip2.pm +# (file acts as timestamp) +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Zlib/Zlib.dll b/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Zlib/Zlib.dll Binary files differnew file mode 100755 index 00000000000..d6d5664847a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Zlib/Zlib.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Zlib/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Zlib/autosplit.ix new file mode 100644 index 00000000000..6e672a0f1d8 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Zlib/autosplit.ix @@ -0,0 +1,3 @@ +# Index created by AutoSplit for ..\..\lib\Compress\Raw\Zlib.pm +# (file acts as timestamp) +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/Zlib/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Compress/Zlib/autosplit.ix new file mode 100644 index 00000000000..749ea80299c --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Compress/Zlib/autosplit.ix @@ -0,0 +1,3 @@ +# Index created by AutoSplit for ..\..\lib\Compress\Zlib.pm +# (file acts as timestamp) +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Cwd/Cwd.dll b/Master/tlpkg/tlperl/lib/auto/Cwd/Cwd.dll Binary files differnew file mode 100755 index 00000000000..1ad2d4e633c --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Cwd/Cwd.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Data/Dumper/Dumper.dll b/Master/tlpkg/tlperl/lib/auto/Data/Dumper/Dumper.dll Binary files differnew file mode 100755 index 00000000000..db95fb70c3e --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Data/Dumper/Dumper.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Devel/DProf/DProf.dll b/Master/tlpkg/tlperl/lib/auto/Devel/DProf/DProf.dll Binary files differnew file mode 100755 index 00000000000..14865374cbc --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Devel/DProf/DProf.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Devel/PPPort/PPPort.dll b/Master/tlpkg/tlperl/lib/auto/Devel/PPPort/PPPort.dll Binary files differnew file mode 100755 index 00000000000..74b38a7fb32 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Devel/PPPort/PPPort.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Devel/Peek/Peek.dll b/Master/tlpkg/tlperl/lib/auto/Devel/Peek/Peek.dll Binary files differnew file mode 100755 index 00000000000..7de9fcd6765 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Devel/Peek/Peek.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Digest/MD5/MD5.dll b/Master/tlpkg/tlperl/lib/auto/Digest/MD5/MD5.dll Binary files differnew file mode 100755 index 00000000000..c0e69cb91df --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Digest/MD5/MD5.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Digest/SHA/SHA.dll b/Master/tlpkg/tlperl/lib/auto/Digest/SHA/SHA.dll Binary files differnew file mode 100755 index 00000000000..5db0a86a782 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Digest/SHA/SHA.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Digest/SHA1/.packlist b/Master/tlpkg/tlperl/lib/auto/Digest/SHA1/.packlist new file mode 100644 index 00000000000..703d853dc4a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Digest/SHA1/.packlist @@ -0,0 +1,3 @@ +X:\perlnew\site\lib\Digest\SHA1.pm
+X:\perlnew\site\lib\auto\Digest\SHA1\SHA1.bs
+X:\perlnew\site\lib\auto\Digest\SHA1\SHA1.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Digest/SHA1/SHA1.bs b/Master/tlpkg/tlperl/lib/auto/Digest/SHA1/SHA1.bs new file mode 100644 index 00000000000..e69de29bb2d --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Digest/SHA1/SHA1.bs diff --git a/Master/tlpkg/tlperl/lib/auto/Digest/SHA1/SHA1.dll b/Master/tlpkg/tlperl/lib/auto/Digest/SHA1/SHA1.dll Binary files differnew file mode 100755 index 00000000000..701780d1845 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Digest/SHA1/SHA1.dll diff --git a/Master/tlpkg/tlperl/lib/auto/DynaLoader/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/DynaLoader/autosplit.ix new file mode 100644 index 00000000000..8bc9c18f2f7 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/DynaLoader/autosplit.ix @@ -0,0 +1,8 @@ +# Index created by AutoSplit for ..\..\lib/DynaLoader.pm +# (file acts as timestamp) +package DynaLoader; +sub dl_findfile ; +sub dl_expandspec ; +sub dl_find_symbol_anywhere +; +1; diff --git a/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_expandspec.al b/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_expandspec.al new file mode 100644 index 00000000000..f4b70fb0d6d --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_expandspec.al @@ -0,0 +1,31 @@ +# NOTE: Derived from ..\..\lib/DynaLoader.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package DynaLoader; + +#line 318 "..\..\lib/DynaLoader.pm (autosplit into ..\..\lib\auto\DynaLoader\dl_expandspec.al)" +sub dl_expandspec { + my($spec) = @_; + # Optional function invoked if DynaLoader.pm sets $do_expand. + # Most systems do not require or use this function. + # Some systems may implement it in the dl_*.xs file in which case + # this autoload version will not be called but is harmless. + + # This function is designed to deal with systems which treat some + # 'filenames' in a special way. For example VMS 'Logical Names' + # (something like unix environment variables - but different). + # This function should recognise such names and expand them into + # full file paths. + # Must return undef if $spec is invalid or file does not exist. + + my $file = $spec; # default output to input + + + return undef unless -f $file; + + print STDERR "dl_expandspec($spec) => $file\n" if $dl_debug; + $file; +} + +# end of DynaLoader::dl_expandspec +1; diff --git a/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_find_symbol_anywhere.al b/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_find_symbol_anywhere.al new file mode 100644 index 00000000000..644499d8501 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_find_symbol_anywhere.al @@ -0,0 +1,19 @@ +# NOTE: Derived from ..\..\lib/DynaLoader.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package DynaLoader; + +#line 341 "..\..\lib/DynaLoader.pm (autosplit into ..\..\lib\auto\DynaLoader\dl_find_symbol_anywhere.al)" +sub dl_find_symbol_anywhere +{ + my $sym = shift; + my $libref; + foreach $libref (@dl_librefs) { + my $symref = dl_find_symbol($libref,$sym); + return $symref if $symref; + } + return undef; +} + +1; +# end of DynaLoader::dl_find_symbol_anywhere diff --git a/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_findfile.al b/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_findfile.al new file mode 100644 index 00000000000..812ace84ab2 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_findfile.al @@ -0,0 +1,86 @@ +# NOTE: Derived from ..\..\lib/DynaLoader.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package DynaLoader; + +#line 239 "..\..\lib/DynaLoader.pm (autosplit into ..\..\lib\auto\DynaLoader\dl_findfile.al)" +sub dl_findfile { + # Read ext/DynaLoader/DynaLoader.doc for detailed information. + # This function does not automatically consider the architecture + # or the perl library auto directories. + my (@args) = @_; + my (@dirs, $dir); # which directories to search + my (@found); # full paths to real files we have found + #my $dl_ext= 'dll'; # $Config::Config{'dlext'} suffix for perl extensions + #my $dl_so = 'dll'; # $Config::Config{'so'} suffix for shared libraries + + print STDERR "dl_findfile(@args)\n" if $dl_debug; + + # accumulate directories but process files as they appear + arg: foreach(@args) { + # Special fast case: full filepath requires no search + + + + if (m:/: && -f $_) { + push(@found,$_); + last arg unless wantarray; + next; + } + + + # Deal with directories first: + # Using a -L prefix is the preferred option (faster and more robust) + if (m:^-L:) { s/^-L//; push(@dirs, $_); next; } + + + + # Otherwise we try to try to spot directories by a heuristic + # (this is a more complicated issue than it first appears) + if (m:/: && -d $_) { push(@dirs, $_); next; } + + + + # Only files should get this far... + my(@names, $name); # what filenames to look for + if (m:-l: ) { # convert -lname to appropriate library name + s/-l//; + push(@names,"lib$_.$dl_so"); + push(@names,"lib$_.a"); + } else { # Umm, a bare name. Try various alternatives: + # these should be ordered with the most likely first + push(@names,"$_.$dl_dlext") unless m/\.$dl_dlext$/o; + push(@names,"$_.$dl_so") unless m/\.$dl_so$/o; + push(@names,"lib$_.$dl_so") unless m:/:; + push(@names,"$_.a") if !m/\.a$/ and $dlsrc eq "dl_dld.xs"; + push(@names, $_); + } + my $dirsep = '/'; + + foreach $dir (@dirs, @dl_library_path) { + next unless -d $dir; + + foreach $name (@names) { + my($file) = "$dir$dirsep$name"; + print STDERR " checking in $dir for $name\n" if $dl_debug; + $file = ($do_expand) ? dl_expandspec($file) : (-f $file && $file); + #$file = _check_file($file); + if ($file) { + push(@found, $file); + next arg; # no need to look any further + } + } + } + } + if ($dl_debug) { + foreach(@dirs) { + print STDERR " dl_findfile ignored non-existent directory: $_\n" unless -d $_; + } + print STDERR "dl_findfile found: @found\n"; + } + return $found[0] unless wantarray; + @found; +} + +# end of DynaLoader::dl_findfile +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Fcntl/Fcntl.dll b/Master/tlpkg/tlperl/lib/auto/Fcntl/Fcntl.dll Binary files differnew file mode 100755 index 00000000000..bffd0668b85 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Fcntl/Fcntl.dll diff --git a/Master/tlpkg/tlperl/lib/auto/File/Glob/Glob.dll b/Master/tlpkg/tlperl/lib/auto/File/Glob/Glob.dll Binary files differnew file mode 100755 index 00000000000..e0e3e657ef9 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/File/Glob/Glob.dll diff --git a/Master/tlpkg/tlperl/lib/auto/File/Which/.packlist b/Master/tlpkg/tlperl/lib/auto/File/Which/.packlist new file mode 100644 index 00000000000..08856d20753 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/File/Which/.packlist @@ -0,0 +1,3 @@ +X:\perlnew\bin\pwhich
+X:\perlnew\bin\pwhich.bat
+X:\perlnew\site\lib\File\Which.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Filter/Util/Call/Call.dll b/Master/tlpkg/tlperl/lib/auto/Filter/Util/Call/Call.dll Binary files differnew file mode 100755 index 00000000000..8f254f56db4 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Filter/Util/Call/Call.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Hash/Util/FieldHash/FieldHash.dll b/Master/tlpkg/tlperl/lib/auto/Hash/Util/FieldHash/FieldHash.dll Binary files differnew file mode 100755 index 00000000000..770827b9477 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Hash/Util/FieldHash/FieldHash.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Hash/Util/Util.dll b/Master/tlpkg/tlperl/lib/auto/Hash/Util/Util.dll Binary files differnew file mode 100755 index 00000000000..740119a2648 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Hash/Util/Util.dll diff --git a/Master/tlpkg/tlperl/lib/auto/IO/IO.dll b/Master/tlpkg/tlperl/lib/auto/IO/IO.dll Binary files differnew file mode 100755 index 00000000000..0c7b2888217 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/IO/IO.dll diff --git a/Master/tlpkg/tlperl/lib/auto/List/Util/Util.dll b/Master/tlpkg/tlperl/lib/auto/List/Util/Util.dll Binary files differnew file mode 100755 index 00000000000..da591618b02 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/List/Util/Util.dll diff --git a/Master/tlpkg/tlperl/lib/auto/MIME/Base64/Base64.dll b/Master/tlpkg/tlperl/lib/auto/MIME/Base64/Base64.dll Binary files differnew file mode 100755 index 00000000000..b5176ac06f4 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/MIME/Base64/Base64.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Math/BigInt/FastCalc/FastCalc.dll b/Master/tlpkg/tlperl/lib/auto/Math/BigInt/FastCalc/FastCalc.dll Binary files differnew file mode 100755 index 00000000000..9b44f612896 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Math/BigInt/FastCalc/FastCalc.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Opcode/Opcode.dll b/Master/tlpkg/tlperl/lib/auto/Opcode/Opcode.dll Binary files differnew file mode 100755 index 00000000000..bb013ad75a2 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Opcode/Opcode.dll diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/POSIX.dll b/Master/tlpkg/tlperl/lib/auto/POSIX/POSIX.dll Binary files differnew file mode 100755 index 00000000000..38ff832bf2a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/POSIX.dll diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/flags.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/flags.al new file mode 100644 index 00000000000..7cbdb7bb920 --- /dev/null +++ b/Master/tlpkg/tlperl/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 986 "..\..\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/lib/auto/POSIX/SigAction/handler.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/handler.al new file mode 100644 index 00000000000..3d03d1c9a99 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/handler.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 984 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\handler.al)" +sub handler { $_[0]->{HANDLER} = $_[1] if @_ > 1; $_[0]->{HANDLER} }; +# end of POSIX::SigAction::handler +1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/mask.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/mask.al new file mode 100644 index 00000000000..bc8bd31e8c0 --- /dev/null +++ b/Master/tlpkg/tlperl/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 985 "..\..\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/lib/auto/POSIX/SigAction/new.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/new.al new file mode 100644 index 00000000000..b74b2d4a4de --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/new.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 981 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\new.al)" +package POSIX::SigAction; + +sub new { bless {HANDLER => $_[1], MASK => $_[2], FLAGS => $_[3] || 0, SAFE => 0}, $_[0] } +# end of POSIX::SigAction::new +1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/safe.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/safe.al new file mode 100644 index 00000000000..a9f21cc5f18 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/safe.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::SigAction; + +#line 987 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\safe.al)" +sub safe { $_[0]->{SAFE} = $_[1] if @_ > 1; $_[0]->{SAFE} }; + +package POSIX::SigRt; + + +# end of POSIX::SigRt::safe +1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/CLEAR.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/CLEAR.al new file mode 100644 index 00000000000..78d3d5bb622 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/CLEAR.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::SigRt; + +#line 1041 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\CLEAR.al)" +sub CLEAR { &_exist; delete @SIG{ &POSIX::SIGRTMIN .. &POSIX::SIGRTMAX } } +# end of POSIX::SigRt::CLEAR +1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/DELETE.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/DELETE.al new file mode 100644 index 00000000000..6bac474d05b --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/DELETE.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::SigRt; + +#line 1040 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\DELETE.al)" +sub DELETE { delete $SIG{ &_check } } +# end of POSIX::SigRt::DELETE +1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/EXISTS.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/EXISTS.al new file mode 100644 index 00000000000..2f2c73d94a8 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/EXISTS.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::SigRt; + +#line 1034 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\EXISTS.al)" +sub EXISTS { &_exist } +# end of POSIX::SigRt::EXISTS +1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/FETCH.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/FETCH.al new file mode 100644 index 00000000000..ed18ab0d9b6 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/FETCH.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::SigRt; + +#line 1035 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\FETCH.al)" +sub FETCH { my $rtsig = &_check; + my $oa = POSIX::SigAction->new(); + POSIX::sigaction($rtsig, undef, $oa); + return $oa->{HANDLER} } +# end of POSIX::SigRt::FETCH +1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/SCALAR.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/SCALAR.al new file mode 100644 index 00000000000..feec293431c --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/SCALAR.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::SigRt; + +#line 1042 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\SCALAR.al)" +sub SCALAR { &_croak; $_sigrtn + 1 } +1; +# end of POSIX::SigRt::SCALAR diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/STORE.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/STORE.al new file mode 100644 index 00000000000..f4c6466a06b --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/STORE.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::SigRt; + +#line 1039 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\STORE.al)" +sub STORE { my $rtsig = &_check; new($rtsig, $_[2], $SIGACTION_FLAGS) } +# end of POSIX::SigRt::STORE +1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_check.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_check.al new file mode 100644 index 00000000000..c1a46c3e6c3 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_check.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::SigRt; + +#line 1018 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_check.al)" +sub _check { + my ($rtsig, $ok) = &_exist; + die "No POSIX::SigRt signal $_[1] (valid range SIGRTMIN..SIGRTMAX, or $_SIGRTMIN..$_SIGRTMAX)" + unless $ok; + return $rtsig; +} + +# end of POSIX::SigRt::_check +1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_croak.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_croak.al new file mode 100644 index 00000000000..742d4e9cd46 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_croak.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::SigRt; + +#line 998 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_croak.al)" +sub _croak { + &_init unless defined $_sigrtn; + die "POSIX::SigRt not available" unless defined $_sigrtn && $_sigrtn > 0; +} + +# end of POSIX::SigRt::_croak +1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_exist.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_exist.al new file mode 100644 index 00000000000..075bbed6ab8 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_exist.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::SigRt; + +#line 1012 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_exist.al)" +sub _exist { + my $rtsig = _getsig($_[1]); + my $ok = $rtsig >= $_SIGRTMIN && $rtsig <= $_SIGRTMAX; + ($rtsig, $ok); +} + +# end of POSIX::SigRt::_exist +1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_getsig.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_getsig.al new file mode 100644 index 00000000000..1cdbfaaf197 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_getsig.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::SigRt; + +#line 1003 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_getsig.al)" +sub _getsig { + &_croak; + my $rtsig = $_[0]; + # Allow (SIGRT)?MIN( + n)?, a common idiom when doing these things in C. + $rtsig = $_SIGRTMIN + ($1 || 0) + if $rtsig =~ /^(?:(?:SIG)?RT)?MIN(\s*\+\s*(\d+))?$/; + return $rtsig; +} + +# end of POSIX::SigRt::_getsig +1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_init.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_init.al new file mode 100644 index 00000000000..8ac96299ec6 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_init.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::SigRt; + +#line 992 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_init.al)" +sub _init { + $_SIGRTMIN = &POSIX::SIGRTMIN; + $_SIGRTMAX = &POSIX::SIGRTMAX; + $_sigrtn = $_SIGRTMAX - $_SIGRTMIN; +} + +# end of POSIX::SigRt::_init +1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/new.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/new.al new file mode 100644 index 00000000000..30b6100a634 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/new.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::SigRt; + +#line 1025 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\new.al)" +sub new { + my ($rtsig, $handler, $flags) = @_; + my $sigset = POSIX::SigSet->new($rtsig); + my $sigact = POSIX::SigAction->new($handler, + $sigset, + $flags); + POSIX::sigaction($rtsig, $sigact); +} + +# end of POSIX::SigRt::new +1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/abs.al b/Master/tlpkg/tlperl/lib/auto/POSIX/abs.al new file mode 100644 index 00000000000..a882e5a0309 --- /dev/null +++ b/Master/tlpkg/tlperl/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 414 "..\..\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/lib/auto/POSIX/alarm.al b/Master/tlpkg/tlperl/lib/auto/POSIX/alarm.al new file mode 100644 index 00000000000..2bf97977aeb --- /dev/null +++ b/Master/tlpkg/tlperl/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 631 "..\..\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/lib/auto/POSIX/assert.al b/Master/tlpkg/tlperl/lib/auto/POSIX/assert.al new file mode 100644 index 00000000000..fbeefa8583c --- /dev/null +++ b/Master/tlpkg/tlperl/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 96 "..\..\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/lib/auto/POSIX/atan2.al b/Master/tlpkg/tlperl/lib/auto/POSIX/atan2.al new file mode 100644 index 00000000000..41b71fab8e4 --- /dev/null +++ b/Master/tlpkg/tlperl/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 161 "..\..\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/lib/auto/POSIX/atexit.al b/Master/tlpkg/tlperl/lib/auto/POSIX/atexit.al new file mode 100644 index 00000000000..7df942dfda6 --- /dev/null +++ b/Master/tlpkg/tlperl/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 419 "..\..\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/lib/auto/POSIX/atof.al b/Master/tlpkg/tlperl/lib/auto/POSIX/atof.al new file mode 100644 index 00000000000..5f4d2c51bbb --- /dev/null +++ b/Master/tlpkg/tlperl/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 423 "..\..\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/lib/auto/POSIX/atoi.al b/Master/tlpkg/tlperl/lib/auto/POSIX/atoi.al new file mode 100644 index 00000000000..57b26c01896 --- /dev/null +++ b/Master/tlpkg/tlperl/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 427 "..\..\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/lib/auto/POSIX/atol.al b/Master/tlpkg/tlperl/lib/auto/POSIX/atol.al new file mode 100644 index 00000000000..f5784993845 --- /dev/null +++ b/Master/tlpkg/tlperl/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 431 "..\..\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/lib/auto/POSIX/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/POSIX/autosplit.ix new file mode 100644 index 00000000000..cc56f9ada79 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/autosplit.ix @@ -0,0 +1,173 @@ +# 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 new ; +sub handler ; +sub mask ; +sub flags ; +sub safe ; +package POSIX::SigRt; +sub _init ; +sub _croak ; +sub _getsig ; +sub _exist ; +sub _check ; +sub new ; +sub EXISTS ; +sub FETCH ; +sub STORE ; +sub DELETE ; +sub CLEAR ; +sub SCALAR ; +1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/bsearch.al b/Master/tlpkg/tlperl/lib/auto/POSIX/bsearch.al new file mode 100644 index 00000000000..617c37ee740 --- /dev/null +++ b/Master/tlpkg/tlperl/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 435 "..\..\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/lib/auto/POSIX/calloc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/calloc.al new file mode 100644 index 00000000000..01b6db33ae8 --- /dev/null +++ b/Master/tlpkg/tlperl/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 439 "..\..\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/lib/auto/POSIX/chdir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/chdir.al new file mode 100644 index 00000000000..9b6b663387d --- /dev/null +++ b/Master/tlpkg/tlperl/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 636 "..\..\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/lib/auto/POSIX/chmod.al b/Master/tlpkg/tlperl/lib/auto/POSIX/chmod.al new file mode 100644 index 00000000000..86721b2ae61 --- /dev/null +++ b/Master/tlpkg/tlperl/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 577 "..\..\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/lib/auto/POSIX/chown.al b/Master/tlpkg/tlperl/lib/auto/POSIX/chown.al new file mode 100644 index 00000000000..9c12a41fa04 --- /dev/null +++ b/Master/tlpkg/tlperl/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 641 "..\..\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/lib/auto/POSIX/clearerr.al b/Master/tlpkg/tlperl/lib/auto/POSIX/clearerr.al new file mode 100644 index 00000000000..bae5e4f2f1d --- /dev/null +++ b/Master/tlpkg/tlperl/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 241 "..\..\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/lib/auto/POSIX/closedir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/closedir.al new file mode 100644 index 00000000000..425cbd44126 --- /dev/null +++ b/Master/tlpkg/tlperl/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 113 "..\..\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/lib/auto/POSIX/cos.al b/Master/tlpkg/tlperl/lib/auto/POSIX/cos.al new file mode 100644 index 00000000000..890ef0c2354 --- /dev/null +++ b/Master/tlpkg/tlperl/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 166 "..\..\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/lib/auto/POSIX/creat.al b/Master/tlpkg/tlperl/lib/auto/POSIX/creat.al new file mode 100644 index 00000000000..5ed2f6eee46 --- /dev/null +++ b/Master/tlpkg/tlperl/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 141 "..\..\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/lib/auto/POSIX/div.al b/Master/tlpkg/tlperl/lib/auto/POSIX/div.al new file mode 100644 index 00000000000..5871ee1b0de --- /dev/null +++ b/Master/tlpkg/tlperl/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 443 "..\..\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/lib/auto/POSIX/errno.al b/Master/tlpkg/tlperl/lib/auto/POSIX/errno.al new file mode 100644 index 00000000000..e7362909f46 --- /dev/null +++ b/Master/tlpkg/tlperl/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 136 "..\..\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/lib/auto/POSIX/execl.al b/Master/tlpkg/tlperl/lib/auto/POSIX/execl.al new file mode 100644 index 00000000000..33e650902bc --- /dev/null +++ b/Master/tlpkg/tlperl/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 646 "..\..\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/lib/auto/POSIX/execle.al b/Master/tlpkg/tlperl/lib/auto/POSIX/execle.al new file mode 100644 index 00000000000..43d56a3bda1 --- /dev/null +++ b/Master/tlpkg/tlperl/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 650 "..\..\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/lib/auto/POSIX/execlp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/execlp.al new file mode 100644 index 00000000000..093719d84bf --- /dev/null +++ b/Master/tlpkg/tlperl/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 654 "..\..\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/lib/auto/POSIX/execv.al b/Master/tlpkg/tlperl/lib/auto/POSIX/execv.al new file mode 100644 index 00000000000..76273074eb4 --- /dev/null +++ b/Master/tlpkg/tlperl/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 658 "..\..\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/lib/auto/POSIX/execve.al b/Master/tlpkg/tlperl/lib/auto/POSIX/execve.al new file mode 100644 index 00000000000..33105ccd6fb --- /dev/null +++ b/Master/tlpkg/tlperl/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 662 "..\..\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/lib/auto/POSIX/execvp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/execvp.al new file mode 100644 index 00000000000..4a17521841e --- /dev/null +++ b/Master/tlpkg/tlperl/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 666 "..\..\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/lib/auto/POSIX/exit.al b/Master/tlpkg/tlperl/lib/auto/POSIX/exit.al new file mode 100644 index 00000000000..559dd68b1e2 --- /dev/null +++ b/Master/tlpkg/tlperl/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 447 "..\..\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/lib/auto/POSIX/exp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/exp.al new file mode 100644 index 00000000000..6c278f38250 --- /dev/null +++ b/Master/tlpkg/tlperl/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 171 "..\..\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/lib/auto/POSIX/fabs.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fabs.al new file mode 100644 index 00000000000..7813dc843b5 --- /dev/null +++ b/Master/tlpkg/tlperl/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 176 "..\..\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/lib/auto/POSIX/fclose.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fclose.al new file mode 100644 index 00000000000..1312109c813 --- /dev/null +++ b/Master/tlpkg/tlperl/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 245 "..\..\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/lib/auto/POSIX/fcntl.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fcntl.al new file mode 100644 index 00000000000..4ee8654751c --- /dev/null +++ b/Master/tlpkg/tlperl/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 146 "..\..\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/lib/auto/POSIX/fdopen.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fdopen.al new file mode 100644 index 00000000000..d700c0d834a --- /dev/null +++ b/Master/tlpkg/tlperl/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 249 "..\..\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/lib/auto/POSIX/feof.al b/Master/tlpkg/tlperl/lib/auto/POSIX/feof.al new file mode 100644 index 00000000000..917afb91354 --- /dev/null +++ b/Master/tlpkg/tlperl/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 253 "..\..\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/lib/auto/POSIX/ferror.al b/Master/tlpkg/tlperl/lib/auto/POSIX/ferror.al new file mode 100644 index 00000000000..f253b1b7741 --- /dev/null +++ b/Master/tlpkg/tlperl/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 305 "..\..\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/lib/auto/POSIX/fflush.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fflush.al new file mode 100644 index 00000000000..1f874ceaf89 --- /dev/null +++ b/Master/tlpkg/tlperl/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 309 "..\..\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/lib/auto/POSIX/fgetc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fgetc.al new file mode 100644 index 00000000000..6832ce432af --- /dev/null +++ b/Master/tlpkg/tlperl/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 257 "..\..\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/lib/auto/POSIX/fgetpos.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fgetpos.al new file mode 100644 index 00000000000..02294ca2b39 --- /dev/null +++ b/Master/tlpkg/tlperl/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 313 "..\..\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/lib/auto/POSIX/fgets.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fgets.al new file mode 100644 index 00000000000..c845912c726 --- /dev/null +++ b/Master/tlpkg/tlperl/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 261 "..\..\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/lib/auto/POSIX/fileno.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fileno.al new file mode 100644 index 00000000000..31dc7db13ab --- /dev/null +++ b/Master/tlpkg/tlperl/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 265 "..\..\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/lib/auto/POSIX/fopen.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fopen.al new file mode 100644 index 00000000000..da5d546422c --- /dev/null +++ b/Master/tlpkg/tlperl/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 269 "..\..\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/lib/auto/POSIX/fork.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fork.al new file mode 100644 index 00000000000..5596e03901d --- /dev/null +++ b/Master/tlpkg/tlperl/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 670 "..\..\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/lib/auto/POSIX/fprintf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fprintf.al new file mode 100644 index 00000000000..8a10db84339 --- /dev/null +++ b/Master/tlpkg/tlperl/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 273 "..\..\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/lib/auto/POSIX/fputc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fputc.al new file mode 100644 index 00000000000..37e5c79fe9d --- /dev/null +++ b/Master/tlpkg/tlperl/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 277 "..\..\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/lib/auto/POSIX/fputs.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fputs.al new file mode 100644 index 00000000000..6aeb04ee678 --- /dev/null +++ b/Master/tlpkg/tlperl/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 281 "..\..\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/lib/auto/POSIX/fread.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fread.al new file mode 100644 index 00000000000..f2f56c48f5e --- /dev/null +++ b/Master/tlpkg/tlperl/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 285 "..\..\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/lib/auto/POSIX/free.al b/Master/tlpkg/tlperl/lib/auto/POSIX/free.al new file mode 100644 index 00000000000..1fc25d909e2 --- /dev/null +++ b/Master/tlpkg/tlperl/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 452 "..\..\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/lib/auto/POSIX/freopen.al b/Master/tlpkg/tlperl/lib/auto/POSIX/freopen.al new file mode 100644 index 00000000000..867307d33f3 --- /dev/null +++ b/Master/tlpkg/tlperl/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 289 "..\..\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/lib/auto/POSIX/fscanf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fscanf.al new file mode 100644 index 00000000000..4b07b50d257 --- /dev/null +++ b/Master/tlpkg/tlperl/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 293 "..\..\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/lib/auto/POSIX/fseek.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fseek.al new file mode 100644 index 00000000000..5f65bd0e29a --- /dev/null +++ b/Master/tlpkg/tlperl/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 297 "..\..\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/lib/auto/POSIX/fsetpos.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fsetpos.al new file mode 100644 index 00000000000..e865a66d01c --- /dev/null +++ b/Master/tlpkg/tlperl/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 317 "..\..\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/lib/auto/POSIX/fstat.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fstat.al new file mode 100644 index 00000000000..c02f89a3f2f --- /dev/null +++ b/Master/tlpkg/tlperl/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 582 "..\..\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/lib/auto/POSIX/fsync.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fsync.al new file mode 100644 index 00000000000..357f178623d --- /dev/null +++ b/Master/tlpkg/tlperl/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 301 "..\..\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/lib/auto/POSIX/ftell.al b/Master/tlpkg/tlperl/lib/auto/POSIX/ftell.al new file mode 100644 index 00000000000..f1f1754637c --- /dev/null +++ b/Master/tlpkg/tlperl/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 321 "..\..\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/lib/auto/POSIX/fwrite.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fwrite.al new file mode 100644 index 00000000000..825f8d7e154 --- /dev/null +++ b/Master/tlpkg/tlperl/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 325 "..\..\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/lib/auto/POSIX/getc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getc.al new file mode 100644 index 00000000000..6dc4bbe38e7 --- /dev/null +++ b/Master/tlpkg/tlperl/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 329 "..\..\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/lib/auto/POSIX/getchar.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getchar.al new file mode 100644 index 00000000000..b03a3a30708 --- /dev/null +++ b/Master/tlpkg/tlperl/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 334 "..\..\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/lib/auto/POSIX/getegid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getegid.al new file mode 100644 index 00000000000..9d9a7404bcc --- /dev/null +++ b/Master/tlpkg/tlperl/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 675 "..\..\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/lib/auto/POSIX/getenv.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getenv.al new file mode 100644 index 00000000000..db932eacaff --- /dev/null +++ b/Master/tlpkg/tlperl/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 456 "..\..\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/lib/auto/POSIX/geteuid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/geteuid.al new file mode 100644 index 00000000000..ab000a972c9 --- /dev/null +++ b/Master/tlpkg/tlperl/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 680 "..\..\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/lib/auto/POSIX/getgid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getgid.al new file mode 100644 index 00000000000..484d13bffb3 --- /dev/null +++ b/Master/tlpkg/tlperl/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 685 "..\..\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/lib/auto/POSIX/getgrgid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getgrgid.al new file mode 100644 index 00000000000..3afd5b121a8 --- /dev/null +++ b/Master/tlpkg/tlperl/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 151 "..\..\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/lib/auto/POSIX/getgrnam.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getgrnam.al new file mode 100644 index 00000000000..8dcc0fb9eb5 --- /dev/null +++ b/Master/tlpkg/tlperl/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 156 "..\..\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/lib/auto/POSIX/getgroups.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getgroups.al new file mode 100644 index 00000000000..95dca454d01 --- /dev/null +++ b/Master/tlpkg/tlperl/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 690 "..\..\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/lib/auto/POSIX/getlogin.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getlogin.al new file mode 100644 index 00000000000..3fd23d795d0 --- /dev/null +++ b/Master/tlpkg/tlperl/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 696 "..\..\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/lib/auto/POSIX/getpgrp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getpgrp.al new file mode 100644 index 00000000000..4f204a60e60 --- /dev/null +++ b/Master/tlpkg/tlperl/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 701 "..\..\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/lib/auto/POSIX/getpid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getpid.al new file mode 100644 index 00000000000..fe5c3c351cf --- /dev/null +++ b/Master/tlpkg/tlperl/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 706 "..\..\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/lib/auto/POSIX/getppid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getppid.al new file mode 100644 index 00000000000..583ada5edba --- /dev/null +++ b/Master/tlpkg/tlperl/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 711 "..\..\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/lib/auto/POSIX/getpwnam.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getpwnam.al new file mode 100644 index 00000000000..00c3c6a7fda --- /dev/null +++ b/Master/tlpkg/tlperl/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 201 "..\..\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/lib/auto/POSIX/getpwuid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getpwuid.al new file mode 100644 index 00000000000..488bc594a04 --- /dev/null +++ b/Master/tlpkg/tlperl/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 206 "..\..\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/lib/auto/POSIX/gets.al b/Master/tlpkg/tlperl/lib/auto/POSIX/gets.al new file mode 100644 index 00000000000..e703a86f8fb --- /dev/null +++ b/Master/tlpkg/tlperl/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 339 "..\..\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/lib/auto/POSIX/getuid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getuid.al new file mode 100644 index 00000000000..8702cbf6bc5 --- /dev/null +++ b/Master/tlpkg/tlperl/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 716 "..\..\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/lib/auto/POSIX/gmtime.al b/Master/tlpkg/tlperl/lib/auto/POSIX/gmtime.al new file mode 100644 index 00000000000..b976b322410 --- /dev/null +++ b/Master/tlpkg/tlperl/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 616 "..\..\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/lib/auto/POSIX/isatty.al b/Master/tlpkg/tlperl/lib/auto/POSIX/isatty.al new file mode 100644 index 00000000000..a5511b672a0 --- /dev/null +++ b/Master/tlpkg/tlperl/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 721 "..\..\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/lib/auto/POSIX/kill.al b/Master/tlpkg/tlperl/lib/auto/POSIX/kill.al new file mode 100644 index 00000000000..193d93e845e --- /dev/null +++ b/Master/tlpkg/tlperl/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 227 "..\..\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/lib/auto/POSIX/labs.al b/Master/tlpkg/tlperl/lib/auto/POSIX/labs.al new file mode 100644 index 00000000000..04133e79244 --- /dev/null +++ b/Master/tlpkg/tlperl/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 461 "..\..\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/lib/auto/POSIX/ldiv.al b/Master/tlpkg/tlperl/lib/auto/POSIX/ldiv.al new file mode 100644 index 00000000000..c6679286485 --- /dev/null +++ b/Master/tlpkg/tlperl/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 465 "..\..\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/lib/auto/POSIX/link.al b/Master/tlpkg/tlperl/lib/auto/POSIX/link.al new file mode 100644 index 00000000000..d68d80dcff6 --- /dev/null +++ b/Master/tlpkg/tlperl/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 726 "..\..\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/lib/auto/POSIX/load_imports.al b/Master/tlpkg/tlperl/lib/auto/POSIX/load_imports.al new file mode 100644 index 00000000000..cf692f646ae --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/load_imports.al @@ -0,0 +1,230 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 759 "..\..\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 %SIGRT SIGRTMIN SIGRTMAX 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(); +{ + # De-duplicate the export list: + my %export; + @export{map {@$_} values %EXPORT_TAGS} = (); + # Doing the de-dup with a temporary hash has the advantage that the SVs in + # @EXPORT are actually shared hash key sacalars, which will save some memory. + push @EXPORT, keys %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/lib/auto/POSIX/localtime.al b/Master/tlpkg/tlperl/lib/auto/POSIX/localtime.al new file mode 100644 index 00000000000..c2d15ad16ae --- /dev/null +++ b/Master/tlpkg/tlperl/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 621 "..\..\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/lib/auto/POSIX/log.al b/Master/tlpkg/tlperl/lib/auto/POSIX/log.al new file mode 100644 index 00000000000..682dea9598f --- /dev/null +++ b/Master/tlpkg/tlperl/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 181 "..\..\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/lib/auto/POSIX/longjmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/longjmp.al new file mode 100644 index 00000000000..b62bd3c94c2 --- /dev/null +++ b/Master/tlpkg/tlperl/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 211 "..\..\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/lib/auto/POSIX/malloc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/malloc.al new file mode 100644 index 00000000000..0922d0174b5 --- /dev/null +++ b/Master/tlpkg/tlperl/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 469 "..\..\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/lib/auto/POSIX/memchr.al b/Master/tlpkg/tlperl/lib/auto/POSIX/memchr.al new file mode 100644 index 00000000000..7344db15757 --- /dev/null +++ b/Master/tlpkg/tlperl/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 494 "..\..\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/lib/auto/POSIX/memcmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/memcmp.al new file mode 100644 index 00000000000..a5c9844ea0d --- /dev/null +++ b/Master/tlpkg/tlperl/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 498 "..\..\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/lib/auto/POSIX/memcpy.al b/Master/tlpkg/tlperl/lib/auto/POSIX/memcpy.al new file mode 100644 index 00000000000..53c62d6bb4e --- /dev/null +++ b/Master/tlpkg/tlperl/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 502 "..\..\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/lib/auto/POSIX/memmove.al b/Master/tlpkg/tlperl/lib/auto/POSIX/memmove.al new file mode 100644 index 00000000000..a3cb8905083 --- /dev/null +++ b/Master/tlpkg/tlperl/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 506 "..\..\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/lib/auto/POSIX/memset.al b/Master/tlpkg/tlperl/lib/auto/POSIX/memset.al new file mode 100644 index 00000000000..b71c7b65ed3 --- /dev/null +++ b/Master/tlpkg/tlperl/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 510 "..\..\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/lib/auto/POSIX/mkdir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/mkdir.al new file mode 100644 index 00000000000..290a5df0c80 --- /dev/null +++ b/Master/tlpkg/tlperl/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 591 "..\..\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/lib/auto/POSIX/offsetof.al b/Master/tlpkg/tlperl/lib/auto/POSIX/offsetof.al new file mode 100644 index 00000000000..94fb579e749 --- /dev/null +++ b/Master/tlpkg/tlperl/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 237 "..\..\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/lib/auto/POSIX/opendir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/opendir.al new file mode 100644 index 00000000000..1112e2eaeb5 --- /dev/null +++ b/Master/tlpkg/tlperl/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 118 "..\..\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/lib/auto/POSIX/perror.al b/Master/tlpkg/tlperl/lib/auto/POSIX/perror.al new file mode 100644 index 00000000000..c35baf5a47b --- /dev/null +++ b/Master/tlpkg/tlperl/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 344 "..\..\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/lib/auto/POSIX/pow.al b/Master/tlpkg/tlperl/lib/auto/POSIX/pow.al new file mode 100644 index 00000000000..5cc8fb73a39 --- /dev/null +++ b/Master/tlpkg/tlperl/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 186 "..\..\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/lib/auto/POSIX/printf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/printf.al new file mode 100644 index 00000000000..3c0e704371e --- /dev/null +++ b/Master/tlpkg/tlperl/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 349 "..\..\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/lib/auto/POSIX/putc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/putc.al new file mode 100644 index 00000000000..561218c6e7c --- /dev/null +++ b/Master/tlpkg/tlperl/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 354 "..\..\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/lib/auto/POSIX/putchar.al b/Master/tlpkg/tlperl/lib/auto/POSIX/putchar.al new file mode 100644 index 00000000000..90edc4f1dde --- /dev/null +++ b/Master/tlpkg/tlperl/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 358 "..\..\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/lib/auto/POSIX/puts.al b/Master/tlpkg/tlperl/lib/auto/POSIX/puts.al new file mode 100644 index 00000000000..b35380c91b2 --- /dev/null +++ b/Master/tlpkg/tlperl/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 362 "..\..\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/lib/auto/POSIX/qsort.al b/Master/tlpkg/tlperl/lib/auto/POSIX/qsort.al new file mode 100644 index 00000000000..e0e8438d51e --- /dev/null +++ b/Master/tlpkg/tlperl/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 473 "..\..\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/lib/auto/POSIX/raise.al b/Master/tlpkg/tlperl/lib/auto/POSIX/raise.al new file mode 100644 index 00000000000..25998d61b6c --- /dev/null +++ b/Master/tlpkg/tlperl/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 232 "..\..\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/lib/auto/POSIX/rand.al b/Master/tlpkg/tlperl/lib/auto/POSIX/rand.al new file mode 100644 index 00000000000..ea6457f00d5 --- /dev/null +++ b/Master/tlpkg/tlperl/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 477 "..\..\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/lib/auto/POSIX/readdir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/readdir.al new file mode 100644 index 00000000000..458c7cda637 --- /dev/null +++ b/Master/tlpkg/tlperl/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 126 "..\..\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/lib/auto/POSIX/realloc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/realloc.al new file mode 100644 index 00000000000..a7332965b92 --- /dev/null +++ b/Master/tlpkg/tlperl/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 481 "..\..\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/lib/auto/POSIX/redef.al b/Master/tlpkg/tlperl/lib/auto/POSIX/redef.al new file mode 100644 index 00000000000..1d6197f7dc3 --- /dev/null +++ b/Master/tlpkg/tlperl/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 85 "..\..\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/lib/auto/POSIX/remove.al b/Master/tlpkg/tlperl/lib/auto/POSIX/remove.al new file mode 100644 index 00000000000..32665fa8ea8 --- /dev/null +++ b/Master/tlpkg/tlperl/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 366 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\remove.al)" +sub remove { + usage "remove(filename)" if @_ != 1; + (-d $_[0]) ? CORE::rmdir($_[0]) : CORE::unlink($_[0]); +} + +# end of POSIX::remove +1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/rename.al b/Master/tlpkg/tlperl/lib/auto/POSIX/rename.al new file mode 100644 index 00000000000..6d04ef039a8 --- /dev/null +++ b/Master/tlpkg/tlperl/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 371 "..\..\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/lib/auto/POSIX/rewind.al b/Master/tlpkg/tlperl/lib/auto/POSIX/rewind.al new file mode 100644 index 00000000000..0f97af8f961 --- /dev/null +++ b/Master/tlpkg/tlperl/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 376 "..\..\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/lib/auto/POSIX/rewinddir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/rewinddir.al new file mode 100644 index 00000000000..1c960662ea9 --- /dev/null +++ b/Master/tlpkg/tlperl/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 131 "..\..\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/lib/auto/POSIX/rmdir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/rmdir.al new file mode 100644 index 00000000000..54af051f17e --- /dev/null +++ b/Master/tlpkg/tlperl/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 731 "..\..\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/lib/auto/POSIX/scanf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/scanf.al new file mode 100644 index 00000000000..7b0784b3831 --- /dev/null +++ b/Master/tlpkg/tlperl/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 381 "..\..\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/lib/auto/POSIX/setbuf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/setbuf.al new file mode 100644 index 00000000000..4b56a02e221 --- /dev/null +++ b/Master/tlpkg/tlperl/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 736 "..\..\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/lib/auto/POSIX/setjmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/setjmp.al new file mode 100644 index 00000000000..6154bbf8a44 --- /dev/null +++ b/Master/tlpkg/tlperl/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 215 "..\..\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/lib/auto/POSIX/setvbuf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/setvbuf.al new file mode 100644 index 00000000000..bc45457297a --- /dev/null +++ b/Master/tlpkg/tlperl/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 740 "..\..\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/lib/auto/POSIX/siglongjmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/siglongjmp.al new file mode 100644 index 00000000000..46abe2bdb96 --- /dev/null +++ b/Master/tlpkg/tlperl/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 219 "..\..\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/lib/auto/POSIX/sigsetjmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/sigsetjmp.al new file mode 100644 index 00000000000..3ba63224a31 --- /dev/null +++ b/Master/tlpkg/tlperl/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 223 "..\..\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/lib/auto/POSIX/sin.al b/Master/tlpkg/tlperl/lib/auto/POSIX/sin.al new file mode 100644 index 00000000000..d9079ba09c4 --- /dev/null +++ b/Master/tlpkg/tlperl/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 191 "..\..\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/lib/auto/POSIX/sleep.al b/Master/tlpkg/tlperl/lib/auto/POSIX/sleep.al new file mode 100644 index 00000000000..05cba00f359 --- /dev/null +++ b/Master/tlpkg/tlperl/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 744 "..\..\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/lib/auto/POSIX/sprintf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/sprintf.al new file mode 100644 index 00000000000..e32b6749d0f --- /dev/null +++ b/Master/tlpkg/tlperl/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 385 "..\..\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/lib/auto/POSIX/sqrt.al b/Master/tlpkg/tlperl/lib/auto/POSIX/sqrt.al new file mode 100644 index 00000000000..ea41719f675 --- /dev/null +++ b/Master/tlpkg/tlperl/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 196 "..\..\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/lib/auto/POSIX/srand.al b/Master/tlpkg/tlperl/lib/auto/POSIX/srand.al new file mode 100644 index 00000000000..9c8cd65ad95 --- /dev/null +++ b/Master/tlpkg/tlperl/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 485 "..\..\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/lib/auto/POSIX/sscanf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/sscanf.al new file mode 100644 index 00000000000..a9f418536fd --- /dev/null +++ b/Master/tlpkg/tlperl/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 390 "..\..\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/lib/auto/POSIX/stat.al b/Master/tlpkg/tlperl/lib/auto/POSIX/stat.al new file mode 100644 index 00000000000..23373a26950 --- /dev/null +++ b/Master/tlpkg/tlperl/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 596 "..\..\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/lib/auto/POSIX/strcat.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strcat.al new file mode 100644 index 00000000000..112037d7bb9 --- /dev/null +++ b/Master/tlpkg/tlperl/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 514 "..\..\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/lib/auto/POSIX/strchr.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strchr.al new file mode 100644 index 00000000000..0e4d59d4d22 --- /dev/null +++ b/Master/tlpkg/tlperl/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 518 "..\..\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/lib/auto/POSIX/strcmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strcmp.al new file mode 100644 index 00000000000..026444d1aa0 --- /dev/null +++ b/Master/tlpkg/tlperl/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 522 "..\..\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/lib/auto/POSIX/strcpy.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strcpy.al new file mode 100644 index 00000000000..41895d60428 --- /dev/null +++ b/Master/tlpkg/tlperl/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 526 "..\..\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/lib/auto/POSIX/strcspn.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strcspn.al new file mode 100644 index 00000000000..e3979bf3673 --- /dev/null +++ b/Master/tlpkg/tlperl/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 530 "..\..\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/lib/auto/POSIX/strerror.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strerror.al new file mode 100644 index 00000000000..4364eb48fec --- /dev/null +++ b/Master/tlpkg/tlperl/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 534 "..\..\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/lib/auto/POSIX/strlen.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strlen.al new file mode 100644 index 00000000000..2f9ee7bf0a2 --- /dev/null +++ b/Master/tlpkg/tlperl/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 540 "..\..\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/lib/auto/POSIX/strncat.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strncat.al new file mode 100644 index 00000000000..b909bd27c25 --- /dev/null +++ b/Master/tlpkg/tlperl/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 544 "..\..\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/lib/auto/POSIX/strncmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strncmp.al new file mode 100644 index 00000000000..dde452e3628 --- /dev/null +++ b/Master/tlpkg/tlperl/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 548 "..\..\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/lib/auto/POSIX/strncpy.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strncpy.al new file mode 100644 index 00000000000..6b2d97f8202 --- /dev/null +++ b/Master/tlpkg/tlperl/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 552 "..\..\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/lib/auto/POSIX/strpbrk.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strpbrk.al new file mode 100644 index 00000000000..b3a1f91897b --- /dev/null +++ b/Master/tlpkg/tlperl/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 556 "..\..\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/lib/auto/POSIX/strrchr.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strrchr.al new file mode 100644 index 00000000000..8b11901a304 --- /dev/null +++ b/Master/tlpkg/tlperl/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 560 "..\..\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/lib/auto/POSIX/strspn.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strspn.al new file mode 100644 index 00000000000..098bf697de1 --- /dev/null +++ b/Master/tlpkg/tlperl/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 564 "..\..\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/lib/auto/POSIX/strstr.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strstr.al new file mode 100644 index 00000000000..ecc94a24f2c --- /dev/null +++ b/Master/tlpkg/tlperl/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 568 "..\..\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/lib/auto/POSIX/strtok.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strtok.al new file mode 100644 index 00000000000..f065d58b27c --- /dev/null +++ b/Master/tlpkg/tlperl/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 573 "..\..\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/lib/auto/POSIX/system.al b/Master/tlpkg/tlperl/lib/auto/POSIX/system.al new file mode 100644 index 00000000000..17d9b552290 --- /dev/null +++ b/Master/tlpkg/tlperl/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 489 "..\..\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/lib/auto/POSIX/time.al b/Master/tlpkg/tlperl/lib/auto/POSIX/time.al new file mode 100644 index 00000000000..f588c89117f --- /dev/null +++ b/Master/tlpkg/tlperl/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 626 "..\..\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/lib/auto/POSIX/tmpfile.al b/Master/tlpkg/tlperl/lib/auto/POSIX/tmpfile.al new file mode 100644 index 00000000000..ebc5850baf8 --- /dev/null +++ b/Master/tlpkg/tlperl/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 394 "..\..\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/lib/auto/POSIX/tolower.al b/Master/tlpkg/tlperl/lib/auto/POSIX/tolower.al new file mode 100644 index 00000000000..35a40ad5026 --- /dev/null +++ b/Master/tlpkg/tlperl/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 103 "..\..\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/lib/auto/POSIX/toupper.al b/Master/tlpkg/tlperl/lib/auto/POSIX/toupper.al new file mode 100644 index 00000000000..47f12bd4932 --- /dev/null +++ b/Master/tlpkg/tlperl/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 108 "..\..\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/lib/auto/POSIX/umask.al b/Master/tlpkg/tlperl/lib/auto/POSIX/umask.al new file mode 100644 index 00000000000..e1c107c8f44 --- /dev/null +++ b/Master/tlpkg/tlperl/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 601 "..\..\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/lib/auto/POSIX/ungetc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/ungetc.al new file mode 100644 index 00000000000..ea27e327c46 --- /dev/null +++ b/Master/tlpkg/tlperl/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 398 "..\..\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/lib/auto/POSIX/unimpl.al b/Master/tlpkg/tlperl/lib/auto/POSIX/unimpl.al new file mode 100644 index 00000000000..bc48d9b3023 --- /dev/null +++ b/Master/tlpkg/tlperl/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 90 "..\..\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/lib/auto/POSIX/unlink.al b/Master/tlpkg/tlperl/lib/auto/POSIX/unlink.al new file mode 100644 index 00000000000..9a9a0b668b6 --- /dev/null +++ b/Master/tlpkg/tlperl/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 749 "..\..\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/lib/auto/POSIX/usage.al b/Master/tlpkg/tlperl/lib/auto/POSIX/usage.al new file mode 100644 index 00000000000..83c0cdf9e8a --- /dev/null +++ b/Master/tlpkg/tlperl/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 80 "..\..\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/lib/auto/POSIX/utime.al b/Master/tlpkg/tlperl/lib/auto/POSIX/utime.al new file mode 100644 index 00000000000..07d84838ab3 --- /dev/null +++ b/Master/tlpkg/tlperl/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 754 "..\..\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/lib/auto/POSIX/vfprintf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/vfprintf.al new file mode 100644 index 00000000000..461a48fd006 --- /dev/null +++ b/Master/tlpkg/tlperl/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 402 "..\..\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/lib/auto/POSIX/vprintf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/vprintf.al new file mode 100644 index 00000000000..a0d2bd202fd --- /dev/null +++ b/Master/tlpkg/tlperl/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 406 "..\..\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/lib/auto/POSIX/vsprintf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/vsprintf.al new file mode 100644 index 00000000000..835cf3de11c --- /dev/null +++ b/Master/tlpkg/tlperl/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 410 "..\..\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/lib/auto/POSIX/wait.al b/Master/tlpkg/tlperl/lib/auto/POSIX/wait.al new file mode 100644 index 00000000000..fb68d776372 --- /dev/null +++ b/Master/tlpkg/tlperl/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 606 "..\..\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/lib/auto/POSIX/waitpid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/waitpid.al new file mode 100644 index 00000000000..a211a453aa0 --- /dev/null +++ b/Master/tlpkg/tlperl/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 611 "..\..\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; diff --git a/Master/tlpkg/tlperl/lib/auto/PerlIO/encoding/encoding.dll b/Master/tlpkg/tlperl/lib/auto/PerlIO/encoding/encoding.dll Binary files differnew file mode 100755 index 00000000000..783f7c5fe33 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/PerlIO/encoding/encoding.dll diff --git a/Master/tlpkg/tlperl/lib/auto/PerlIO/scalar/scalar.dll b/Master/tlpkg/tlperl/lib/auto/PerlIO/scalar/scalar.dll Binary files differnew file mode 100755 index 00000000000..19727fcaaae --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/PerlIO/scalar/scalar.dll diff --git a/Master/tlpkg/tlperl/lib/auto/PerlIO/via/via.dll b/Master/tlpkg/tlperl/lib/auto/PerlIO/via/via.dll Binary files differnew file mode 100755 index 00000000000..bc1ec921a9c --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/PerlIO/via/via.dll diff --git a/Master/tlpkg/tlperl/lib/auto/SDBM_File/SDBM_File.dll b/Master/tlpkg/tlperl/lib/auto/SDBM_File/SDBM_File.dll Binary files differnew file mode 100755 index 00000000000..cae78d38726 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/SDBM_File/SDBM_File.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Socket/Socket.dll b/Master/tlpkg/tlperl/lib/auto/Socket/Socket.dll Binary files differnew file mode 100755 index 00000000000..751ce2f31b7 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Socket/Socket.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/BIN_VERSION_NV.al b/Master/tlpkg/tlperl/lib/auto/Storable/BIN_VERSION_NV.al new file mode 100644 index 00000000000..add6a1d678b --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/BIN_VERSION_NV.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 192 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\BIN_VERSION_NV.al)" +sub BIN_VERSION_NV { + sprintf "%d.%03d", BIN_MAJOR(), BIN_MINOR(); +} + +# end of Storable::BIN_VERSION_NV +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/BIN_WRITE_VERSION_NV.al b/Master/tlpkg/tlperl/lib/auto/Storable/BIN_WRITE_VERSION_NV.al new file mode 100644 index 00000000000..e17ce4d2c3a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/BIN_WRITE_VERSION_NV.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 196 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\BIN_WRITE_VERSION_NV.al)" +sub BIN_WRITE_VERSION_NV { + sprintf "%d.%03d", BIN_MAJOR(), BIN_WRITE_MINOR(); +} + +# end of Storable::BIN_WRITE_VERSION_NV +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/CAN_FLOCK.al b/Master/tlpkg/tlperl/lib/auto/Storable/CAN_FLOCK.al new file mode 100644 index 00000000000..c0df84b654f --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/CAN_FLOCK.al @@ -0,0 +1,21 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 83 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\CAN_FLOCK.al)" +# +# Determine whether locking is possible, but only when needed. +# + +sub CAN_FLOCK; my $CAN_FLOCK; sub CAN_FLOCK { + return $CAN_FLOCK if defined $CAN_FLOCK; + require Config; import Config; + return $CAN_FLOCK = + $Config{'d_flock'} || + $Config{'d_fcntl_can_lock'} || + $Config{'d_lockf'}; +} + +# end of Storable::CAN_FLOCK +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/Storable.dll b/Master/tlpkg/tlperl/lib/auto/Storable/Storable.dll Binary files differnew file mode 100755 index 00000000000..419c2877140 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/Storable.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/_freeze.al b/Master/tlpkg/tlperl/lib/auto/Storable/_freeze.al new file mode 100644 index 00000000000..5e1ea07846a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/_freeze.al @@ -0,0 +1,23 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 330 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\_freeze.al)" +# Internal freeze routine +sub _freeze { + my $xsptr = shift; + my $self = shift; + logcroak "not a reference" unless ref($self); + logcroak "too many arguments" unless @_ == 0; # No @foo in arglist + my $da = $@; # Don't mess if called from exception handler + my $ret; + # Call C routine mstore or net_mstore, depending on network order + eval { $ret = &$xsptr($self) }; + logcroak $@ if $@ =~ s/\.?\n$/,/; + $@ = $da; + return $ret ? $ret : undef; +} + +# end of Storable::_freeze +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/_retrieve.al b/Master/tlpkg/tlperl/lib/auto/Storable/_retrieve.al new file mode 100644 index 00000000000..f16abc56b2a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/_retrieve.al @@ -0,0 +1,31 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 364 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\_retrieve.al)" +# Internal retrieve routine +sub _retrieve { + my ($file, $use_locking) = @_; + local *FILE; + open(FILE, $file) || logcroak "can't open $file: $!"; + binmode FILE; # Archaic systems... + my $self; + my $da = $@; # Could be from exception handler + if ($use_locking) { + unless (&CAN_FLOCK) { + logcarp "Storable::lock_store: fcntl/flock emulation broken on $^O"; + return undef; + } + flock(FILE, LOCK_SH) || logcroak "can't get shared lock on $file: $!"; + # Unlocking will happen when FILE is closed + } + eval { $self = pretrieve(*FILE) }; # Call C routine + close(FILE); + logcroak $@ if $@ =~ s/\.?\n$/,/; + $@ = $da; + return $self; +} + +# end of Storable::_retrieve +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/_store.al b/Master/tlpkg/tlperl/lib/auto/Storable/_store.al new file mode 100644 index 00000000000..19ed0287800 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/_store.al @@ -0,0 +1,41 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 239 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\_store.al)" +# Internal store to file routine +sub _store { + my $xsptr = shift; + my $self = shift; + my ($file, $use_locking) = @_; + logcroak "not a reference" unless ref($self); + logcroak "wrong argument number" unless @_ == 2; # No @foo in arglist + local *FILE; + if ($use_locking) { + open(FILE, ">>$file") || logcroak "can't write into $file: $!"; + unless (&CAN_FLOCK) { + logcarp "Storable::lock_store: fcntl/flock emulation broken on $^O"; + return undef; + } + flock(FILE, LOCK_EX) || + logcroak "can't get exclusive lock on $file: $!"; + truncate FILE, 0; + # Unlocking will happen when FILE is closed + } else { + open(FILE, ">$file") || logcroak "can't create $file: $!"; + } + binmode FILE; # Archaic systems... + my $da = $@; # Don't mess if called from exception handler + my $ret; + # Call C routine nstore or pstore, depending on network order + eval { $ret = &$xsptr(*FILE, $self) }; + close(FILE) or $ret = undef; + unlink($file) or warn "Can't unlink $file: $!\n" if $@ || !defined $ret; + logcroak $@ if $@ =~ s/\.?\n$/,/; + $@ = $da; + return $ret ? $ret : undef; +} + +# end of Storable::_store +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/_store_fd.al b/Master/tlpkg/tlperl/lib/auto/Storable/_store_fd.al new file mode 100644 index 00000000000..ad88105864a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/_store_fd.al @@ -0,0 +1,27 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 292 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\_store_fd.al)" +# Internal store routine on opened file descriptor +sub _store_fd { + my $xsptr = shift; + my $self = shift; + my ($file) = @_; + logcroak "not a reference" unless ref($self); + logcroak "too many arguments" unless @_ == 1; # No @foo in arglist + my $fd = fileno($file); + logcroak "not a valid file descriptor" unless defined $fd; + my $da = $@; # Don't mess if called from exception handler + my $ret; + # Call C routine nstore or pstore, depending on network order + eval { $ret = &$xsptr($file, $self) }; + logcroak $@ if $@ =~ s/\.?\n$/,/; + local $\; print $file ''; # Autoflush the file if wanted + $@ = $da; + return $ret ? $ret : undef; +} + +# end of Storable::_store_fd +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Storable/autosplit.ix new file mode 100644 index 00000000000..f68bf3f340d --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/autosplit.ix @@ -0,0 +1,28 @@ +# Index created by AutoSplit for ..\..\lib\Storable.pm +# (file acts as timestamp) +package Storable; +sub logcroak ; +sub logcarp ; +sub CAN_FLOCK ; +sub show_file_magic ; +sub file_magic ; +sub read_magic ; +sub BIN_VERSION_NV ; +sub BIN_WRITE_VERSION_NV ; +sub store ; +sub nstore ; +sub lock_store ; +sub lock_nstore ; +sub _store ; +sub store_fd ; +sub nstore_fd ; +sub _store_fd ; +sub freeze ; +sub nfreeze ; +sub _freeze ; +sub retrieve ; +sub lock_retrieve ; +sub _retrieve ; +sub fd_retrieve ; +sub thaw ; +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/fd_retrieve.al b/Master/tlpkg/tlperl/lib/auto/Storable/fd_retrieve.al new file mode 100644 index 00000000000..b25d7b009c3 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/fd_retrieve.al @@ -0,0 +1,25 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 387 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\fd_retrieve.al)" +# +# fd_retrieve +# +# Same as retrieve, but perform from an already opened file descriptor instead. +# +sub fd_retrieve { + my ($file) = @_; + my $fd = fileno($file); + logcroak "not a valid file descriptor" unless defined $fd; + my $self; + my $da = $@; # Could be from exception handler + eval { $self = pretrieve($file) }; # Call C routine + logcroak $@ if $@ =~ s/\.?\n$/,/; + $@ = $da; + return $self; +} + +# end of Storable::fd_retrieve +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al b/Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al new file mode 100644 index 00000000000..1bce16c051c --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al @@ -0,0 +1,21 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 118 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\file_magic.al)" +sub file_magic { + my $file = shift; + my $fh = new FileHandle; + open($fh, "<". $file) || die "Can't open '$file': $!"; + binmode($fh); + defined(sysread($fh, my $buf, 32)) || die "Can't read from '$file': $!"; + close($fh); + + $file = "./$file" unless $file; # ensure TRUE value + + return read_magic($buf, $file); +} + +# end of Storable::file_magic +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/freeze.al b/Master/tlpkg/tlperl/lib/auto/Storable/freeze.al new file mode 100644 index 00000000000..7e1a45687b2 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/freeze.al @@ -0,0 +1,18 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 311 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\freeze.al)" +# +# freeze +# +# Store oject and its hierarchy in memory and return a scalar +# containing the result. +# +sub freeze { + _freeze(\&mstore, @_); +} + +# end of Storable::freeze +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/lock_nstore.al b/Master/tlpkg/tlperl/lib/auto/Storable/lock_nstore.al new file mode 100644 index 00000000000..2c5d9950595 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/lock_nstore.al @@ -0,0 +1,17 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 230 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\lock_nstore.al)" +# +# lock_nstore +# +# Same as nstore, but flock the file first (advisory locking). +# +sub lock_nstore { + return _store(\&net_pstore, @_, 1); +} + +# end of Storable::lock_nstore +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/lock_retrieve.al b/Master/tlpkg/tlperl/lib/auto/Storable/lock_retrieve.al new file mode 100644 index 00000000000..1e2879fc48a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/lock_retrieve.al @@ -0,0 +1,17 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 355 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\lock_retrieve.al)" +# +# lock_retrieve +# +# Same as retrieve, but with advisory locking. +# +sub lock_retrieve { + _retrieve($_[0], 1); +} + +# end of Storable::lock_retrieve +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/lock_store.al b/Master/tlpkg/tlperl/lib/auto/Storable/lock_store.al new file mode 100644 index 00000000000..4a863b15a97 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/lock_store.al @@ -0,0 +1,17 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 221 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\lock_store.al)" +# +# lock_store +# +# Same as store, but flock the file first (advisory locking). +# +sub lock_store { + return _store(\&pstore, @_, 1); +} + +# end of Storable::lock_store +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/logcarp.al b/Master/tlpkg/tlperl/lib/auto/Storable/logcarp.al new file mode 100644 index 00000000000..bbdd382ff31 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/logcarp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 79 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\logcarp.al)" +sub logcarp { + Carp::carp(@_); +} + +# end of Storable::logcarp +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/logcroak.al b/Master/tlpkg/tlperl/lib/auto/Storable/logcroak.al new file mode 100644 index 00000000000..9c8daff7dae --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/logcroak.al @@ -0,0 +1,17 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 70 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\logcroak.al)" +# +# Use of Log::Agent is optional. If it hasn't imported these subs then +# Autoloader will kindly supply our fallback implementation. +# + +sub logcroak { + Carp::croak(@_); +} + +# end of Storable::logcroak +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/nfreeze.al b/Master/tlpkg/tlperl/lib/auto/Storable/nfreeze.al new file mode 100644 index 00000000000..92f4641d461 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/nfreeze.al @@ -0,0 +1,17 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 321 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\nfreeze.al)" +# +# nfreeze +# +# Same as freeze but in network order. +# +sub nfreeze { + _freeze(\&net_mstore, @_); +} + +# end of Storable::nfreeze +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/nstore.al b/Master/tlpkg/tlperl/lib/auto/Storable/nstore.al new file mode 100644 index 00000000000..d865716dd5c --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/nstore.al @@ -0,0 +1,17 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 212 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\nstore.al)" +# +# nstore +# +# Same as store, but in network order. +# +sub nstore { + return _store(\&net_pstore, @_, 0); +} + +# end of Storable::nstore +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/nstore_fd.al b/Master/tlpkg/tlperl/lib/auto/Storable/nstore_fd.al new file mode 100644 index 00000000000..5979b873150 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/nstore_fd.al @@ -0,0 +1,18 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 282 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\nstore_fd.al)" +# +# nstore_fd +# +# Same as store_fd, but in network order. +# +sub nstore_fd { + my ($self, $file) = @_; + return _store_fd(\&net_pstore, @_); +} + +# end of Storable::nstore_fd +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/read_magic.al b/Master/tlpkg/tlperl/lib/auto/Storable/read_magic.al new file mode 100644 index 00000000000..40b54af7556 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/read_magic.al @@ -0,0 +1,69 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 131 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\read_magic.al)" +sub read_magic { + my($buf, $file) = @_; + my %info; + + my $buflen = length($buf); + my $magic; + if ($buf =~ s/^(pst0|perl-store)//) { + $magic = $1; + $info{file} = $file || 1; + } + else { + return undef if $file; + $magic = ""; + } + + return undef unless length($buf); + + my $net_order; + if ($magic eq "perl-store" && ord(substr($buf, 0, 1)) > 1) { + $info{version} = -1; + $net_order = 0; + } + else { + $net_order = ord(substr($buf, 0, 1, "")); + my $major = $net_order >> 1; + return undef if $major > 4; # sanity (assuming we never go that high) + $info{major} = $major; + $net_order &= 0x01; + if ($major > 1) { + return undef unless length($buf); + my $minor = ord(substr($buf, 0, 1, "")); + $info{minor} = $minor; + $info{version} = "$major.$minor"; + $info{version_nv} = sprintf "%d.%03d", $major, $minor; + } + else { + $info{version} = $major; + } + } + $info{version_nv} ||= $info{version}; + $info{netorder} = $net_order; + + unless ($net_order) { + return undef unless length($buf); + my $len = ord(substr($buf, 0, 1, "")); + return undef unless length($buf) >= $len; + return undef unless $len == 4 || $len == 8; # sanity + $info{byteorder} = substr($buf, 0, $len, ""); + $info{intsize} = ord(substr($buf, 0, 1, "")); + $info{longsize} = ord(substr($buf, 0, 1, "")); + $info{ptrsize} = ord(substr($buf, 0, 1, "")); + if ($info{version_nv} >= 2.002) { + return undef unless length($buf); + $info{nvsize} = ord(substr($buf, 0, 1, "")); + } + } + $info{hdrsize} = $buflen - length($buf); + + return \%info; +} + +# end of Storable::read_magic +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/retrieve.al b/Master/tlpkg/tlperl/lib/auto/Storable/retrieve.al new file mode 100644 index 00000000000..b996685671a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/retrieve.al @@ -0,0 +1,18 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 345 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\retrieve.al)" +# +# retrieve +# +# Retrieve object hierarchy from disk, returning a reference to the root +# object of that tree. +# +sub retrieve { + _retrieve($_[0], 0); +} + +# end of Storable::retrieve +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/show_file_magic.al b/Master/tlpkg/tlperl/lib/auto/Storable/show_file_magic.al new file mode 100644 index 00000000000..c7422c6648a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/show_file_magic.al @@ -0,0 +1,30 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 96 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\show_file_magic.al)" +sub show_file_magic { + print <<EOM; +# +# To recognize the data files of the Perl module Storable, +# the following lines need to be added to the local magic(5) file, +# usually either /usr/share/misc/magic or /etc/magic. +# +0 string perl-store perl Storable(v0.6) data +>4 byte >0 (net-order %d) +>>4 byte &01 (network-ordered) +>>4 byte =3 (major 1) +>>4 byte =2 (major 1) + +0 string pst0 perl Storable(v0.7) data +>4 byte >0 +>>4 byte &01 (network-ordered) +>>4 byte =5 (major 2) +>>4 byte =4 (major 2) +>>5 byte >0 (minor %d) +EOM +} + +# end of Storable::show_file_magic +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/store.al b/Master/tlpkg/tlperl/lib/auto/Storable/store.al new file mode 100644 index 00000000000..c9cee55076e --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/store.al @@ -0,0 +1,20 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 200 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\store.al)" +# +# store +# +# Store target object hierarchy, identified by a reference to its root. +# The stored object tree may later be retrieved to memory via retrieve. +# Returns undef if an I/O error occurred, in which case the file is +# removed. +# +sub store { + return _store(\&pstore, @_, 0); +} + +# end of Storable::store +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/store_fd.al b/Master/tlpkg/tlperl/lib/auto/Storable/store_fd.al new file mode 100644 index 00000000000..8e3b72c1199 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/store_fd.al @@ -0,0 +1,18 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 272 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\store_fd.al)" +# +# store_fd +# +# Same as store, but perform on an already opened file descriptor instead. +# Returns undef if an I/O error occurred. +# +sub store_fd { + return _store_fd(\&pstore, @_); +} + +# end of Storable::store_fd +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/thaw.al b/Master/tlpkg/tlperl/lib/auto/Storable/thaw.al new file mode 100644 index 00000000000..495a71769eb --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/thaw.al @@ -0,0 +1,28 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 404 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\thaw.al)" +# +# thaw +# +# Recreate objects in memory from an existing frozen image created +# by freeze. If the frozen image passed is undef, return undef. +# +sub thaw { + my ($frozen) = @_; + return undef unless defined $frozen; + my $self; + my $da = $@; # Could be from exception handler + eval { $self = mretrieve($frozen) }; # Call C routine + logcroak $@ if $@ =~ s/\.?\n$/,/; + $@ = $da; + return $self; +} + +1; +__END__ + +1; +# end of Storable::thaw diff --git a/Master/tlpkg/tlperl/lib/auto/Sys/Hostname/Hostname.dll b/Master/tlpkg/tlperl/lib/auto/Sys/Hostname/Hostname.dll Binary files differnew file mode 100755 index 00000000000..4e4f3859b55 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Sys/Hostname/Hostname.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Sys/Hostname/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Sys/Hostname/autosplit.ix new file mode 100644 index 00000000000..f7014ea8d84 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Sys/Hostname/autosplit.ix @@ -0,0 +1,3 @@ +# Index created by AutoSplit for ..\..\lib\Sys\Hostname.pm +# (file acts as timestamp) +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Text/Soundex/Soundex.dll b/Master/tlpkg/tlperl/lib/auto/Text/Soundex/Soundex.dll Binary files differnew file mode 100755 index 00000000000..ee1d5e9970b --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Text/Soundex/Soundex.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Time/HiRes/HiRes.dll b/Master/tlpkg/tlperl/lib/auto/Time/HiRes/HiRes.dll Binary files differnew file mode 100755 index 00000000000..9a549ae594c --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Time/HiRes/HiRes.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Time/Piece/Piece.dll b/Master/tlpkg/tlperl/lib/auto/Time/Piece/Piece.dll Binary files differnew file mode 100755 index 00000000000..c9bfce54a81 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Time/Piece/Piece.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Unicode/Normalize/Normalize.dll b/Master/tlpkg/tlperl/lib/auto/Unicode/Normalize/Normalize.dll Binary files differnew file mode 100755 index 00000000000..b8fb454452c --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Unicode/Normalize/Normalize.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/API/.packlist b/Master/tlpkg/tlperl/lib/auto/Win32/API/.packlist new file mode 100644 index 00000000000..0283a696d1e --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Win32/API/.packlist @@ -0,0 +1,9 @@ +X:\perlnew\site\lib\Win32\API.pm
+X:\perlnew\site\lib\Win32\API\Callback.pm
+X:\perlnew\site\lib\Win32\API\Struct.pm
+X:\perlnew\site\lib\Win32\API\Test.pm
+X:\perlnew\site\lib\Win32\API\Type.pm
+X:\perlnew\site\lib\auto\Win32\API\API.bs
+X:\perlnew\site\lib\auto\Win32\API\API.dll
+X:\perlnew\site\lib\auto\Win32\API\Callback\Callback.bs
+X:\perlnew\site\lib\auto\Win32\API\Callback\Callback.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/API/API.bs b/Master/tlpkg/tlperl/lib/auto/Win32/API/API.bs new file mode 100644 index 00000000000..e69de29bb2d --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Win32/API/API.bs diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/API/API.dll b/Master/tlpkg/tlperl/lib/auto/Win32/API/API.dll Binary files differnew file mode 100755 index 00000000000..b755fb402b1 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Win32/API/API.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/API/Callback/Callback.bs b/Master/tlpkg/tlperl/lib/auto/Win32/API/Callback/Callback.bs new file mode 100644 index 00000000000..e69de29bb2d --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Win32/API/Callback/Callback.bs diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/API/Callback/Callback.dll b/Master/tlpkg/tlperl/lib/auto/Win32/API/Callback/Callback.dll Binary files differnew file mode 100755 index 00000000000..28143b6348d --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Win32/API/Callback/Callback.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/Shortcut/.packlist b/Master/tlpkg/tlperl/lib/auto/Win32/Shortcut/.packlist new file mode 100644 index 00000000000..20661b48cb6 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Win32/Shortcut/.packlist @@ -0,0 +1,3 @@ +X:\perlnew\site\lib\Win32\Shortcut.pm
+X:\perlnew\site\lib\auto\Win32\Shortcut\Shortcut.bs
+X:\perlnew\site\lib\auto\Win32\Shortcut\Shortcut.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/Shortcut/Shortcut.bs b/Master/tlpkg/tlperl/lib/auto/Win32/Shortcut/Shortcut.bs new file mode 100644 index 00000000000..e69de29bb2d --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Win32/Shortcut/Shortcut.bs diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/Shortcut/Shortcut.dll b/Master/tlpkg/tlperl/lib/auto/Win32/Shortcut/Shortcut.dll Binary files differnew file mode 100755 index 00000000000..8107bfdff5f --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Win32/Shortcut/Shortcut.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/TieRegistry/.packlist b/Master/tlpkg/tlperl/lib/auto/Win32/TieRegistry/.packlist new file mode 100644 index 00000000000..720c2930230 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Win32/TieRegistry/.packlist @@ -0,0 +1,2 @@ +X:\perlnew\site\lib\Tie\Registry.pm
+X:\perlnew\site\lib\Win32\TieRegistry.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/Win32.dll b/Master/tlpkg/tlperl/lib/auto/Win32/Win32.dll Binary files differnew file mode 100755 index 00000000000..45e45a8753e --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Win32/Win32.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Win32API/File/File.dll b/Master/tlpkg/tlperl/lib/auto/Win32API/File/File.dll Binary files differnew file mode 100755 index 00000000000..ea376422272 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Win32API/File/File.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Win32API/Registry/.packlist b/Master/tlpkg/tlperl/lib/auto/Win32API/Registry/.packlist new file mode 100644 index 00000000000..aaffac8aea5 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Win32API/Registry/.packlist @@ -0,0 +1,4 @@ +X:\perlnew\site\lib\Win32API\Registry.pm
+X:\perlnew\site\lib\Win32API\Registry\cRegistry.pc
+X:\perlnew\site\lib\auto\Win32API\Registry\Registry.bs
+X:\perlnew\site\lib\auto\Win32API\Registry\Registry.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Win32API/Registry/Registry.bs b/Master/tlpkg/tlperl/lib/auto/Win32API/Registry/Registry.bs new file mode 100644 index 00000000000..e69de29bb2d --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Win32API/Registry/Registry.bs diff --git a/Master/tlpkg/tlperl/lib/auto/Win32API/Registry/Registry.dll b/Master/tlpkg/tlperl/lib/auto/Win32API/Registry/Registry.dll Binary files differnew file mode 100755 index 00000000000..ed8da26c1a4 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Win32API/Registry/Registry.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Win32CORE/extralibs.ld b/Master/tlpkg/tlperl/lib/auto/Win32CORE/extralibs.ld new file mode 100644 index 00000000000..8b137891791 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Win32CORE/extralibs.ld @@ -0,0 +1 @@ + diff --git a/Master/tlpkg/tlperl/lib/auto/attributes/attributes.dll b/Master/tlpkg/tlperl/lib/auto/attributes/attributes.dll Binary files differnew file mode 100755 index 00000000000..db7eaa33d5a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/attributes/attributes.dll diff --git a/Master/tlpkg/tlperl/lib/auto/mro/mro.dll b/Master/tlpkg/tlperl/lib/auto/mro/mro.dll Binary files differnew file mode 100755 index 00000000000..3245317862c --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/mro/mro.dll diff --git a/Master/tlpkg/tlperl/lib/auto/re/re.dll b/Master/tlpkg/tlperl/lib/auto/re/re.dll Binary files differnew file mode 100755 index 00000000000..73891369038 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/re/re.dll diff --git a/Master/tlpkg/tlperl/lib/auto/sdbm/extralibs.ld b/Master/tlpkg/tlperl/lib/auto/sdbm/extralibs.ld new file mode 100644 index 00000000000..8b137891791 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/sdbm/extralibs.ld @@ -0,0 +1 @@ + diff --git a/Master/tlpkg/tlperl/lib/auto/threads/shared/shared.dll b/Master/tlpkg/tlperl/lib/auto/threads/shared/shared.dll Binary files differnew file mode 100755 index 00000000000..cf4bf7303f6 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/threads/shared/shared.dll diff --git a/Master/tlpkg/tlperl/lib/auto/threads/threads.dll b/Master/tlpkg/tlperl/lib/auto/threads/threads.dll Binary files differnew file mode 100755 index 00000000000..cb643ef2dca --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/threads/threads.dll |