diff options
| author | Karl Berry <karl@freefriends.org> | 2010-06-01 23:29:11 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2010-06-01 23:29:11 +0000 |
| commit | da1a001044f9e87559e32a4ad7a0d5f44d72810c (patch) | |
| tree | bf2f21508e4220dff99189e03845c5b73e2f9da9 /Master/tlpkg/tlperl.old/lib/auto | |
| parent | 550c8d37fab593519a4984e62b0a8aaaf405c9a8 (diff) | |
looks like we are going with new perl
git-svn-id: svn://tug.org/texlive/trunk@18687 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl.old/lib/auto')
417 files changed, 0 insertions, 5914 deletions
diff --git a/Master/tlpkg/tlperl.old/lib/auto/B/B.bs b/Master/tlpkg/tlperl.old/lib/auto/B/B.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/B/B.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/B/B.dll b/Master/tlpkg/tlperl.old/lib/auto/B/B.dll Binary files differdeleted file mode 100755 index 02ecf851c22..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/B/B.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/B/C/C.bs b/Master/tlpkg/tlperl.old/lib/auto/B/C/C.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/B/C/C.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/B/C/C.dll b/Master/tlpkg/tlperl.old/lib/auto/B/C/C.dll Binary files differdeleted file mode 100755 index 0de9e53ba33..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/B/C/C.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Cwd/Cwd.bs b/Master/tlpkg/tlperl.old/lib/auto/Cwd/Cwd.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Cwd/Cwd.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Cwd/Cwd.dll b/Master/tlpkg/tlperl.old/lib/auto/Cwd/Cwd.dll Binary files differdeleted file mode 100755 index 67f6d7baa57..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Cwd/Cwd.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Data/Dumper/Dumper.bs b/Master/tlpkg/tlperl.old/lib/auto/Data/Dumper/Dumper.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Data/Dumper/Dumper.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Data/Dumper/Dumper.dll b/Master/tlpkg/tlperl.old/lib/auto/Data/Dumper/Dumper.dll Binary files differdeleted file mode 100755 index 9b99b3c3568..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Data/Dumper/Dumper.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Digest/MD5/MD5.bs b/Master/tlpkg/tlperl.old/lib/auto/Digest/MD5/MD5.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Digest/MD5/MD5.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Digest/MD5/MD5.dll b/Master/tlpkg/tlperl.old/lib/auto/Digest/MD5/MD5.dll Binary files differdeleted file mode 100755 index 72ba4df2758..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Digest/MD5/MD5.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/DynaLoader/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/DynaLoader/autosplit.ix deleted file mode 100644 index d7605efa074..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/DynaLoader/autosplit.ix +++ /dev/null @@ -1,8 +0,0 @@ -# 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.old/lib/auto/DynaLoader/dl_expandspec.al b/Master/tlpkg/tlperl.old/lib/auto/DynaLoader/dl_expandspec.al deleted file mode 100644 index 0bea19a3e4d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/DynaLoader/dl_expandspec.al +++ /dev/null @@ -1,34 +0,0 @@ -# NOTE: Derived from ../LIB\DynaLoader.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package DynaLoader; - -#line 377 "../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 - - if ($Is_VMS) { # dl_expandspec should be defined in dl_vms.xs - require Carp; - Carp::croak("dl_expandspec: should be defined in XS file!\n"); - } else { - 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.old/lib/auto/DynaLoader/dl_find_symbol_anywhere.al b/Master/tlpkg/tlperl.old/lib/auto/DynaLoader/dl_find_symbol_anywhere.al deleted file mode 100644 index 2232454ba69..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/DynaLoader/dl_find_symbol_anywhere.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from ../LIB\DynaLoader.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package DynaLoader; - -#line 403 "../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.old/lib/auto/DynaLoader/dl_findfile.al b/Master/tlpkg/tlperl.old/lib/auto/DynaLoader/dl_findfile.al deleted file mode 100644 index 9f8df39d00c..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/DynaLoader/dl_findfile.al +++ /dev/null @@ -1,115 +0,0 @@ -# NOTE: Derived from ../LIB\DynaLoader.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package DynaLoader; - -#line 269 "../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 ($Is_VMS && m%[:>/\]]% && -f $_) { - push(@found,dl_expandspec(VMS::Filespec::vmsify($_))); - last arg unless wantarray; - next; - } - elsif ($Is_MacOS) { - if (m/:/ && -f $_) { - push(@found,$_); - last arg unless wantarray; - } - } - elsif (m:/: && -f $_ && !$do_expand) { - 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; } - - if ($Is_MacOS) { - # 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 - s/^-l//; - push(@names, $_); - foreach $dir (@dirs, @dl_library_path) { - next unless -d $dir; - $dir =~ s/^([^:]+)$/:$1/; - $dir =~ s/:$//; - foreach $name (@names) { - my($file) = "$dir:$name"; - print STDERR " checking in $dir for $name\n" if $dl_debug; - if (-f $file) { - push(@found, $file); - next arg; # no need to look any further - } - } - } - 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; } - - # VMS: we may be using native VMS directory syntax instead of - # Unix emulation, so check this as well - if ($Is_VMS && /[:>\]]/ && -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_ext") unless m/\.$dl_ext$/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, $_); - } - foreach $dir (@dirs, @dl_library_path) { - next unless -d $dir; - chop($dir = VMS::Filespec::unixpath($dir)) if $Is_VMS; - foreach $name (@names) { - my($file) = "$dir/$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.old/lib/auto/Encode/Byte/Byte.bs b/Master/tlpkg/tlperl.old/lib/auto/Encode/Byte/Byte.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Encode/Byte/Byte.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Encode/Byte/Byte.dll b/Master/tlpkg/tlperl.old/lib/auto/Encode/Byte/Byte.dll Binary files differdeleted file mode 100755 index 88474ccb046..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Encode/Byte/Byte.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Encode/Encode.bs b/Master/tlpkg/tlperl.old/lib/auto/Encode/Encode.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Encode/Encode.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Encode/Encode.dll b/Master/tlpkg/tlperl.old/lib/auto/Encode/Encode.dll Binary files differdeleted file mode 100755 index 69c8ebf8acb..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Encode/Encode.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Encode/Symbol/Symbol.bs b/Master/tlpkg/tlperl.old/lib/auto/Encode/Symbol/Symbol.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Encode/Symbol/Symbol.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Encode/Symbol/Symbol.dll b/Master/tlpkg/tlperl.old/lib/auto/Encode/Symbol/Symbol.dll Binary files differdeleted file mode 100755 index 64df4071134..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Encode/Symbol/Symbol.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Encode/Unicode/Unicode.bs b/Master/tlpkg/tlperl.old/lib/auto/Encode/Unicode/Unicode.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Encode/Unicode/Unicode.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Encode/Unicode/Unicode.dll b/Master/tlpkg/tlperl.old/lib/auto/Encode/Unicode/Unicode.dll Binary files differdeleted file mode 100755 index 71a757a6b64..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Encode/Unicode/Unicode.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Fcntl/Fcntl.bs b/Master/tlpkg/tlperl.old/lib/auto/Fcntl/Fcntl.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Fcntl/Fcntl.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Fcntl/Fcntl.dll b/Master/tlpkg/tlperl.old/lib/auto/Fcntl/Fcntl.dll Binary files differdeleted file mode 100755 index d053a295a71..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Fcntl/Fcntl.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/File/Glob/Glob.bs b/Master/tlpkg/tlperl.old/lib/auto/File/Glob/Glob.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/File/Glob/Glob.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/File/Glob/Glob.dll b/Master/tlpkg/tlperl.old/lib/auto/File/Glob/Glob.dll Binary files differdeleted file mode 100755 index 9cd3d822949..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/File/Glob/Glob.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/IO/IO.bs b/Master/tlpkg/tlperl.old/lib/auto/IO/IO.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/IO/IO.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/IO/IO.dll b/Master/tlpkg/tlperl.old/lib/auto/IO/IO.dll Binary files differdeleted file mode 100755 index 86276c177d9..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/IO/IO.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/List/Util/Util.bs b/Master/tlpkg/tlperl.old/lib/auto/List/Util/Util.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/List/Util/Util.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/List/Util/Util.dll b/Master/tlpkg/tlperl.old/lib/auto/List/Util/Util.dll Binary files differdeleted file mode 100755 index 238b1648bea..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/List/Util/Util.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Opcode/Opcode.bs b/Master/tlpkg/tlperl.old/lib/auto/Opcode/Opcode.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Opcode/Opcode.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Opcode/Opcode.dll b/Master/tlpkg/tlperl.old/lib/auto/Opcode/Opcode.dll Binary files differdeleted file mode 100755 index d44ff0069b8..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Opcode/Opcode.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/POSIX.bs b/Master/tlpkg/tlperl.old/lib/auto/POSIX/POSIX.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/POSIX.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/POSIX.dll b/Master/tlpkg/tlperl.old/lib/auto/POSIX/POSIX.dll Binary files differdeleted file mode 100755 index 49bdaee0917..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/POSIX.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/flags.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/flags.al deleted file mode 100644 index 800cdd9a2b2..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/flags.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigAction; - -#line 964 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\flags.al)" -sub flags { $_[0]->{FLAGS} = $_[1] if @_ > 1; $_[0]->{FLAGS} }; -# end of POSIX::SigAction::flags -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/handler.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/handler.al deleted file mode 100644 index f2a3994bdf0..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/handler.al +++ /dev/null @@ -1,11 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigAction; - -#line 960 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\handler.al)" -package POSIX::SigAction; - -sub handler { $_[0]->{HANDLER} = $_[1] if @_ > 1; $_[0]->{HANDLER} }; -# end of POSIX::SigAction::handler -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/mask.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/mask.al deleted file mode 100644 index e5c240eea1b..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/mask.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigAction; - -#line 963 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\mask.al)" -sub mask { $_[0]->{MASK} = $_[1] if @_ > 1; $_[0]->{MASK} }; -# end of POSIX::SigAction::mask -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/safe.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/safe.al deleted file mode 100644 index bb27883beae..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/SigAction/safe.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigAction; - -#line 965 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\safe.al)" -sub safe { $_[0]->{SAFE} = $_[1] if @_ > 1; $_[0]->{SAFE} }; -1; -# end of POSIX::SigAction::safe diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/abs.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/abs.al deleted file mode 100644 index 89999433d53..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/abs.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 398 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\abs.al)" -sub abs { - usage "abs(x)" if @_ != 1; - CORE::abs($_[0]); -} - -# end of POSIX::abs -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/alarm.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/alarm.al deleted file mode 100644 index e1c864ed8e0..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/alarm.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 615 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\alarm.al)" -sub alarm { - usage "alarm(seconds)" if @_ != 1; - CORE::alarm($_[0]); -} - -# end of POSIX::alarm -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/assert.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/assert.al deleted file mode 100644 index b3bce100406..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/assert.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 80 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\assert.al)" -sub assert { - usage "assert(expr)" if @_ != 1; - if (!$_[0]) { - croak "Assertion failed"; - } -} - -# end of POSIX::assert -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/atan2.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/atan2.al deleted file mode 100644 index 9482e3cff23..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/atan2.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 145 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atan2.al)" -sub atan2 { - usage "atan2(x,y)" if @_ != 2; - CORE::atan2($_[0], $_[1]); -} - -# end of POSIX::atan2 -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/atexit.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/atexit.al deleted file mode 100644 index b0fdf7e97cf..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/atexit.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 403 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atexit.al)" -sub atexit { - unimpl "atexit() is C-specific: use END {} instead"; -} - -# end of POSIX::atexit -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/atof.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/atof.al deleted file mode 100644 index fc1d1cef431..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/atof.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 407 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atof.al)" -sub atof { - unimpl "atof() is C-specific, stopped"; -} - -# end of POSIX::atof -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/atoi.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/atoi.al deleted file mode 100644 index 5eef246231b..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/atoi.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 411 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atoi.al)" -sub atoi { - unimpl "atoi() is C-specific, stopped"; -} - -# end of POSIX::atoi -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/atol.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/atol.al deleted file mode 100644 index e6fc6869a1a..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/atol.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 415 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atol.al)" -sub atol { - unimpl "atol() is C-specific, stopped"; -} - -# end of POSIX::atol -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/POSIX/autosplit.ix deleted file mode 100644 index 8ecf455bb80..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/autosplit.ix +++ /dev/null @@ -1,159 +0,0 @@ -# Index created by AutoSplit for ..\..\lib\POSIX.pm -# (file acts as timestamp) -package POSIX; -sub usage ; -sub redef ; -sub unimpl ; -sub assert ; -sub tolower ; -sub toupper ; -sub closedir ; -sub opendir ; -sub readdir ; -sub rewinddir ; -sub errno ; -sub creat ; -sub fcntl ; -sub getgrgid ; -sub getgrnam ; -sub atan2 ; -sub cos ; -sub exp ; -sub fabs ; -sub log ; -sub pow ; -sub sin ; -sub sqrt ; -sub getpwnam ; -sub getpwuid ; -sub longjmp ; -sub setjmp ; -sub siglongjmp ; -sub sigsetjmp ; -sub kill ; -sub raise ; -sub offsetof ; -sub clearerr ; -sub fclose ; -sub fdopen ; -sub feof ; -sub fgetc ; -sub fgets ; -sub fileno ; -sub fopen ; -sub fprintf ; -sub fputc ; -sub fputs ; -sub fread ; -sub freopen ; -sub fscanf ; -sub fseek ; -sub fsync ; -sub ferror ; -sub fflush ; -sub fgetpos ; -sub fsetpos ; -sub ftell ; -sub fwrite ; -sub getc ; -sub getchar ; -sub gets ; -sub perror ; -sub printf ; -sub putc ; -sub putchar ; -sub puts ; -sub remove ; -sub rename ; -sub rewind ; -sub scanf ; -sub sprintf ; -sub sscanf ; -sub tmpfile ; -sub ungetc ; -sub vfprintf ; -sub vprintf ; -sub vsprintf ; -sub abs ; -sub atexit ; -sub atof ; -sub atoi ; -sub atol ; -sub bsearch ; -sub calloc ; -sub div ; -sub exit ; -sub free ; -sub getenv ; -sub labs ; -sub ldiv ; -sub malloc ; -sub qsort ; -sub rand ; -sub realloc ; -sub srand ; -sub system ; -sub memchr ; -sub memcmp ; -sub memcpy ; -sub memmove ; -sub memset ; -sub strcat ; -sub strchr ; -sub strcmp ; -sub strcpy ; -sub strcspn ; -sub strerror ; -sub strlen ; -sub strncat ; -sub strncmp ; -sub strncpy ; -sub strpbrk ; -sub strrchr ; -sub strspn ; -sub strstr ; -sub strtok ; -sub chmod ; -sub fstat ; -sub mkdir ; -sub stat ; -sub umask ; -sub wait ; -sub waitpid ; -sub gmtime ; -sub localtime ; -sub time ; -sub alarm ; -sub chdir ; -sub chown ; -sub execl ; -sub execle ; -sub execlp ; -sub execv ; -sub execve ; -sub execvp ; -sub fork ; -sub getegid ; -sub geteuid ; -sub getgid ; -sub getgroups ; -sub getlogin ; -sub getpgrp ; -sub getpid ; -sub getppid ; -sub getuid ; -sub isatty ; -sub link ; -sub rmdir ; -sub setbuf ; -sub setvbuf ; -sub sleep ; -sub unlink ; -sub utime ; -sub load_imports ; -package POSIX::SigAction; -sub handler ; -sub mask ; -sub flags ; -sub safe ; -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/bsearch.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/bsearch.al deleted file mode 100644 index 4acc59b5a7d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/bsearch.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 419 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\bsearch.al)" -sub bsearch { - unimpl "bsearch() not supplied"; -} - -# end of POSIX::bsearch -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/calloc.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/calloc.al deleted file mode 100644 index 776029eff29..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/calloc.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 423 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\calloc.al)" -sub calloc { - unimpl "calloc() is C-specific, stopped"; -} - -# end of POSIX::calloc -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/chdir.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/chdir.al deleted file mode 100644 index 1bddab213d6..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/chdir.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 620 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\chdir.al)" -sub chdir { - usage "chdir(directory)" if @_ != 1; - CORE::chdir($_[0]); -} - -# end of POSIX::chdir -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/chmod.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/chmod.al deleted file mode 100644 index 8fc0d5a5e0b..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/chmod.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 561 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\chmod.al)" -sub chmod { - usage "chmod(mode, filename)" if @_ != 2; - CORE::chmod($_[0], $_[1]); -} - -# end of POSIX::chmod -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/chown.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/chown.al deleted file mode 100644 index ca945bd855d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/chown.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 625 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\chown.al)" -sub chown { - usage "chown(uid, gid, filename)" if @_ != 3; - CORE::chown($_[0], $_[1], $_[2]); -} - -# end of POSIX::chown -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/clearerr.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/clearerr.al deleted file mode 100644 index c360043abf9..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/clearerr.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 225 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\clearerr.al)" -sub clearerr { - redef "IO::Handle::clearerr()"; -} - -# end of POSIX::clearerr -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/closedir.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/closedir.al deleted file mode 100644 index 16ae1cd4f76..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/closedir.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 97 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\closedir.al)" -sub closedir { - usage "closedir(dirhandle)" if @_ != 1; - CORE::closedir($_[0]); -} - -# end of POSIX::closedir -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/cos.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/cos.al deleted file mode 100644 index ee01c091b27..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/cos.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 150 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\cos.al)" -sub cos { - usage "cos(x)" if @_ != 1; - CORE::cos($_[0]); -} - -# end of POSIX::cos -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/creat.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/creat.al deleted file mode 100644 index 2d1cfb7d55d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/creat.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 125 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\creat.al)" -sub creat { - usage "creat(filename, mode)" if @_ != 2; - &open($_[0], &O_WRONLY | &O_CREAT | &O_TRUNC, $_[1]); -} - -# end of POSIX::creat -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/div.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/div.al deleted file mode 100644 index 4c751314da0..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/div.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 427 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\div.al)" -sub div { - unimpl "div() is C-specific, use /, % and int instead"; -} - -# end of POSIX::div -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/errno.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/errno.al deleted file mode 100644 index c57abdc4c3b..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/errno.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 120 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\errno.al)" -sub errno { - usage "errno()" if @_ != 0; - $! + 0; -} - -# end of POSIX::errno -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/execl.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/execl.al deleted file mode 100644 index 3ffc4f5a671..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/execl.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 630 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execl.al)" -sub execl { - unimpl "execl() is C-specific, stopped"; -} - -# end of POSIX::execl -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/execle.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/execle.al deleted file mode 100644 index ec7e12da909..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/execle.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 634 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execle.al)" -sub execle { - unimpl "execle() is C-specific, stopped"; -} - -# end of POSIX::execle -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/execlp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/execlp.al deleted file mode 100644 index a9e32524839..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/execlp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 638 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execlp.al)" -sub execlp { - unimpl "execlp() is C-specific, stopped"; -} - -# end of POSIX::execlp -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/execv.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/execv.al deleted file mode 100644 index 1e6f20bba77..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/execv.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 642 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execv.al)" -sub execv { - unimpl "execv() is C-specific, stopped"; -} - -# end of POSIX::execv -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/execve.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/execve.al deleted file mode 100644 index ae23c53ea77..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/execve.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 646 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execve.al)" -sub execve { - unimpl "execve() is C-specific, stopped"; -} - -# end of POSIX::execve -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/execvp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/execvp.al deleted file mode 100644 index 88d5dd6764e..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/execvp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 650 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execvp.al)" -sub execvp { - unimpl "execvp() is C-specific, stopped"; -} - -# end of POSIX::execvp -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/exit.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/exit.al deleted file mode 100644 index d7806b3f4db..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/exit.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 431 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\exit.al)" -sub exit { - usage "exit(status)" if @_ != 1; - CORE::exit($_[0]); -} - -# end of POSIX::exit -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/exp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/exp.al deleted file mode 100644 index 251dc740eaf..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/exp.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 155 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\exp.al)" -sub exp { - usage "exp(x)" if @_ != 1; - CORE::exp($_[0]); -} - -# end of POSIX::exp -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fabs.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fabs.al deleted file mode 100644 index ebe714729c2..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fabs.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 160 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fabs.al)" -sub fabs { - usage "fabs(x)" if @_ != 1; - CORE::abs($_[0]); -} - -# end of POSIX::fabs -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fclose.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fclose.al deleted file mode 100644 index f662ef7cda6..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fclose.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 229 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fclose.al)" -sub fclose { - redef "IO::Handle::close()"; -} - -# end of POSIX::fclose -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fcntl.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fcntl.al deleted file mode 100644 index bf6ec04fb4c..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fcntl.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 130 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fcntl.al)" -sub fcntl { - usage "fcntl(filehandle, cmd, arg)" if @_ != 3; - CORE::fcntl($_[0], $_[1], $_[2]); -} - -# end of POSIX::fcntl -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fdopen.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fdopen.al deleted file mode 100644 index 392f8e27fbf..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fdopen.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 233 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fdopen.al)" -sub fdopen { - redef "IO::Handle::new_from_fd()"; -} - -# end of POSIX::fdopen -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/feof.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/feof.al deleted file mode 100644 index 4c8b5ea37af..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/feof.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 237 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\feof.al)" -sub feof { - redef "IO::Handle::eof()"; -} - -# end of POSIX::feof -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/ferror.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/ferror.al deleted file mode 100644 index 6ec8cccb11b..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/ferror.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 289 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ferror.al)" -sub ferror { - redef "IO::Handle::error()"; -} - -# end of POSIX::ferror -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fflush.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fflush.al deleted file mode 100644 index 0ba6d1416f0..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fflush.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 293 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fflush.al)" -sub fflush { - redef "IO::Handle::flush()"; -} - -# end of POSIX::fflush -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fgetc.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fgetc.al deleted file mode 100644 index f89a6f86334..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fgetc.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 241 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fgetc.al)" -sub fgetc { - redef "IO::Handle::getc()"; -} - -# end of POSIX::fgetc -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fgetpos.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fgetpos.al deleted file mode 100644 index 7583bbf3da6..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fgetpos.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 297 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fgetpos.al)" -sub fgetpos { - redef "IO::Seekable::getpos()"; -} - -# end of POSIX::fgetpos -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fgets.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fgets.al deleted file mode 100644 index 7edcffdd192..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fgets.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 245 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fgets.al)" -sub fgets { - redef "IO::Handle::gets()"; -} - -# end of POSIX::fgets -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fileno.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fileno.al deleted file mode 100644 index 45f0908329c..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fileno.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 249 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fileno.al)" -sub fileno { - redef "IO::Handle::fileno()"; -} - -# end of POSIX::fileno -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fopen.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fopen.al deleted file mode 100644 index 795f272b2bb..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fopen.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 253 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fopen.al)" -sub fopen { - redef "IO::File::open()"; -} - -# end of POSIX::fopen -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fork.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fork.al deleted file mode 100644 index cb0ee7aaf13..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fork.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 654 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fork.al)" -sub fork { - usage "fork()" if @_ != 0; - CORE::fork; -} - -# end of POSIX::fork -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fprintf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fprintf.al deleted file mode 100644 index 6ac5cb6a065..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fprintf.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 257 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fprintf.al)" -sub fprintf { - unimpl "fprintf() is C-specific--use printf instead"; -} - -# end of POSIX::fprintf -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fputc.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fputc.al deleted file mode 100644 index 71a3b2307bb..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fputc.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 261 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fputc.al)" -sub fputc { - unimpl "fputc() is C-specific--use print instead"; -} - -# end of POSIX::fputc -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fputs.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fputs.al deleted file mode 100644 index 5cc9cdc175b..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fputs.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 265 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fputs.al)" -sub fputs { - unimpl "fputs() is C-specific--use print instead"; -} - -# end of POSIX::fputs -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fread.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fread.al deleted file mode 100644 index a2f731a784c..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fread.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 269 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fread.al)" -sub fread { - unimpl "fread() is C-specific--use read instead"; -} - -# end of POSIX::fread -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/free.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/free.al deleted file mode 100644 index 71eff3059c3..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/free.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 436 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\free.al)" -sub free { - unimpl "free() is C-specific, stopped"; -} - -# end of POSIX::free -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/freopen.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/freopen.al deleted file mode 100644 index 31e08a2a889..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/freopen.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 273 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\freopen.al)" -sub freopen { - unimpl "freopen() is C-specific--use open instead"; -} - -# end of POSIX::freopen -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fscanf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fscanf.al deleted file mode 100644 index c5a5e08217b..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fscanf.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 277 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fscanf.al)" -sub fscanf { - unimpl "fscanf() is C-specific--use <> and regular expressions instead"; -} - -# end of POSIX::fscanf -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fseek.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fseek.al deleted file mode 100644 index 0a591cca259..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fseek.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 281 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fseek.al)" -sub fseek { - redef "IO::Seekable::seek()"; -} - -# end of POSIX::fseek -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fsetpos.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fsetpos.al deleted file mode 100644 index 311027b54ea..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fsetpos.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 301 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fsetpos.al)" -sub fsetpos { - redef "IO::Seekable::setpos()"; -} - -# end of POSIX::fsetpos -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fstat.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fstat.al deleted file mode 100644 index 084979716d0..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fstat.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 566 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fstat.al)" -sub fstat { - usage "fstat(fd)" if @_ != 1; - local *TMP; - CORE::open(TMP, "<&$_[0]"); # Gross. - my @l = CORE::stat(TMP); - CORE::close(TMP); - @l; -} - -# end of POSIX::fstat -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fsync.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fsync.al deleted file mode 100644 index c8038d1d350..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fsync.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 285 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fsync.al)" -sub fsync { - redef "IO::Handle::sync()"; -} - -# end of POSIX::fsync -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/ftell.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/ftell.al deleted file mode 100644 index 1d3490c6033..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/ftell.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 305 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ftell.al)" -sub ftell { - redef "IO::Seekable::tell()"; -} - -# end of POSIX::ftell -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fwrite.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/fwrite.al deleted file mode 100644 index 1099587edbd..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/fwrite.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 309 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fwrite.al)" -sub fwrite { - unimpl "fwrite() is C-specific--use print instead"; -} - -# end of POSIX::fwrite -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getc.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getc.al deleted file mode 100644 index 2ccc28cdf43..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getc.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 313 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getc.al)" -sub getc { - usage "getc(handle)" if @_ != 1; - CORE::getc($_[0]); -} - -# end of POSIX::getc -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getchar.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getchar.al deleted file mode 100644 index 930386f6827..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getchar.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 318 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getchar.al)" -sub getchar { - usage "getchar()" if @_ != 0; - CORE::getc(STDIN); -} - -# end of POSIX::getchar -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getegid.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getegid.al deleted file mode 100644 index 61c0942023f..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getegid.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 659 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getegid.al)" -sub getegid { - usage "getegid()" if @_ != 0; - $) + 0; -} - -# end of POSIX::getegid -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getenv.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getenv.al deleted file mode 100644 index c6fec0ca34b..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getenv.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 440 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getenv.al)" -sub getenv { - usage "getenv(name)" if @_ != 1; - $ENV{$_[0]}; -} - -# end of POSIX::getenv -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/geteuid.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/geteuid.al deleted file mode 100644 index 710491ebcc3..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/geteuid.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 664 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\geteuid.al)" -sub geteuid { - usage "geteuid()" if @_ != 0; - $> + 0; -} - -# end of POSIX::geteuid -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgid.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgid.al deleted file mode 100644 index 7cd6164fb43..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgid.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 669 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgid.al)" -sub getgid { - usage "getgid()" if @_ != 0; - $( + 0; -} - -# end of POSIX::getgid -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgrgid.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgrgid.al deleted file mode 100644 index 550e75a69f3..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgrgid.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 135 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgrgid.al)" -sub getgrgid { - usage "getgrgid(gid)" if @_ != 1; - CORE::getgrgid($_[0]); -} - -# end of POSIX::getgrgid -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgrnam.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgrnam.al deleted file mode 100644 index a480731586c..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgrnam.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 140 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgrnam.al)" -sub getgrnam { - usage "getgrnam(name)" if @_ != 1; - CORE::getgrnam($_[0]); -} - -# end of POSIX::getgrnam -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgroups.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgroups.al deleted file mode 100644 index 5fd0d9d3aea..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getgroups.al +++ /dev/null @@ -1,14 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 674 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgroups.al)" -sub getgroups { - usage "getgroups()" if @_ != 0; - my %seen; - grep(!$seen{$_}++, split(' ', $) )); -} - -# end of POSIX::getgroups -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getlogin.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getlogin.al deleted file mode 100644 index 55bcb4ee9fb..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getlogin.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 680 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getlogin.al)" -sub getlogin { - usage "getlogin()" if @_ != 0; - CORE::getlogin(); -} - -# end of POSIX::getlogin -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpgrp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpgrp.al deleted file mode 100644 index ef0425b7b7f..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpgrp.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 685 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpgrp.al)" -sub getpgrp { - usage "getpgrp()" if @_ != 0; - CORE::getpgrp; -} - -# end of POSIX::getpgrp -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpid.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpid.al deleted file mode 100644 index 9aeaa25b63e..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpid.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 690 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpid.al)" -sub getpid { - usage "getpid()" if @_ != 0; - $$; -} - -# end of POSIX::getpid -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getppid.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getppid.al deleted file mode 100644 index 4951623eb04..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getppid.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 695 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getppid.al)" -sub getppid { - usage "getppid()" if @_ != 0; - CORE::getppid; -} - -# end of POSIX::getppid -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpwnam.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpwnam.al deleted file mode 100644 index 296b87f28ef..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpwnam.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 185 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpwnam.al)" -sub getpwnam { - usage "getpwnam(name)" if @_ != 1; - CORE::getpwnam($_[0]); -} - -# end of POSIX::getpwnam -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpwuid.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpwuid.al deleted file mode 100644 index 5616a6daa2c..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getpwuid.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 190 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpwuid.al)" -sub getpwuid { - usage "getpwuid(uid)" if @_ != 1; - CORE::getpwuid($_[0]); -} - -# end of POSIX::getpwuid -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/gets.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/gets.al deleted file mode 100644 index 34667890e6e..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/gets.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 323 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\gets.al)" -sub gets { - usage "gets()" if @_ != 0; - scalar <STDIN>; -} - -# end of POSIX::gets -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getuid.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/getuid.al deleted file mode 100644 index 5a326ec67f0..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/getuid.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 700 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getuid.al)" -sub getuid { - usage "getuid()" if @_ != 0; - $<; -} - -# end of POSIX::getuid -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/gmtime.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/gmtime.al deleted file mode 100644 index 6bbf4fc6fef..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/gmtime.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 600 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\gmtime.al)" -sub gmtime { - usage "gmtime(time)" if @_ != 1; - CORE::gmtime($_[0]); -} - -# end of POSIX::gmtime -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/isatty.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/isatty.al deleted file mode 100644 index 9ab71b3c2a0..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/isatty.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 705 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\isatty.al)" -sub isatty { - usage "isatty(filehandle)" if @_ != 1; - -t $_[0]; -} - -# end of POSIX::isatty -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/kill.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/kill.al deleted file mode 100644 index 12f5276f5f8..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/kill.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 211 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\kill.al)" -sub kill { - usage "kill(pid, sig)" if @_ != 2; - CORE::kill $_[1], $_[0]; -} - -# end of POSIX::kill -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/labs.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/labs.al deleted file mode 100644 index 581a1897d73..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/labs.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 445 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\labs.al)" -sub labs { - unimpl "labs() is C-specific, use abs instead"; -} - -# end of POSIX::labs -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/ldiv.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/ldiv.al deleted file mode 100644 index 1b704c1fad4..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/ldiv.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 449 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ldiv.al)" -sub ldiv { - unimpl "ldiv() is C-specific, use /, % and int instead"; -} - -# end of POSIX::ldiv -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/link.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/link.al deleted file mode 100644 index e78401a321d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/link.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 710 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\link.al)" -sub link { - usage "link(oldfilename, newfilename)" if @_ != 2; - CORE::link($_[0], $_[1]); -} - -# end of POSIX::link -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/load_imports.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/load_imports.al deleted file mode 100644 index 6c2ff0ad2ac..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/load_imports.al +++ /dev/null @@ -1,225 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 743 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\load_imports.al)" -sub load_imports { -%EXPORT_TAGS = ( - - assert_h => [qw(assert NDEBUG)], - - ctype_h => [qw(isalnum isalpha iscntrl isdigit isgraph islower - isprint ispunct isspace isupper isxdigit tolower toupper)], - - dirent_h => [], - - errno_h => [qw(E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT - EAGAIN EALREADY EBADF EBUSY ECHILD ECONNABORTED - ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDQUOT - EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EINPROGRESS - EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK - EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH - ENFILE ENOBUFS ENODEV ENOENT ENOEXEC ENOLCK ENOMEM - ENOPROTOOPT ENOSPC ENOSYS ENOTBLK ENOTCONN ENOTDIR - ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM - EPFNOSUPPORT EPIPE EPROCLIM EPROTONOSUPPORT EPROTOTYPE - ERANGE EREMOTE ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT - ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS ETXTBSY - EUSERS EWOULDBLOCK EXDEV errno)], - - fcntl_h => [qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK - F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK - O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK - O_RDONLY O_RDWR O_TRUNC O_WRONLY - creat - SEEK_CUR SEEK_END SEEK_SET - S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU - S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG S_ISUID - S_IWGRP S_IWOTH S_IWUSR)], - - float_h => [qw(DBL_DIG DBL_EPSILON DBL_MANT_DIG - DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP - DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP - FLT_DIG FLT_EPSILON FLT_MANT_DIG - FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP - FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP - FLT_RADIX FLT_ROUNDS - LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG - LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP - LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP)], - - grp_h => [], - - limits_h => [qw( ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX - INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON - MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX - PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN - SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX - ULONG_MAX USHRT_MAX _POSIX_ARG_MAX _POSIX_CHILD_MAX - _POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT - _POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_OPEN_MAX - _POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SSIZE_MAX - _POSIX_STREAM_MAX _POSIX_TZNAME_MAX)], - - locale_h => [qw(LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES - LC_MONETARY LC_NUMERIC LC_TIME NULL - localeconv setlocale)], - - math_h => [qw(HUGE_VAL acos asin atan ceil cosh fabs floor fmod - frexp ldexp log10 modf pow sinh tan tanh)], - - pwd_h => [], - - setjmp_h => [qw(longjmp setjmp siglongjmp sigsetjmp)], - - signal_h => [qw(SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK - SA_RESETHAND SA_RESTART SA_SIGINFO SIGABRT SIGALRM - SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT SIGKILL - SIGPIPE SIGQUIT SIGSEGV SIGSTOP SIGTERM SIGTSTP SIGTTIN - SIGTTOU SIGUSR1 SIGUSR2 SIG_BLOCK SIG_DFL SIG_ERR - SIG_IGN SIG_SETMASK SIG_UNBLOCK raise sigaction signal - sigpending sigprocmask sigsuspend)], - - stdarg_h => [], - - stddef_h => [qw(NULL offsetof)], - - stdio_h => [qw(BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid - L_tmpname NULL SEEK_CUR SEEK_END SEEK_SET - STREAM_MAX TMP_MAX stderr stdin stdout - clearerr fclose fdopen feof ferror fflush fgetc fgetpos - fgets fopen fprintf fputc fputs fread freopen - fscanf fseek fsetpos ftell fwrite getchar gets - perror putc putchar puts remove rewind - scanf setbuf setvbuf sscanf tmpfile tmpnam - ungetc vfprintf vprintf vsprintf)], - - stdlib_h => [qw(EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX NULL RAND_MAX - abort atexit atof atoi atol bsearch calloc div - free getenv labs ldiv malloc mblen mbstowcs mbtowc - qsort realloc strtod strtol strtoul wcstombs wctomb)], - - string_h => [qw(NULL memchr memcmp memcpy memmove memset strcat - strchr strcmp strcoll strcpy strcspn strerror strlen - strncat strncmp strncpy strpbrk strrchr strspn strstr - strtok strxfrm)], - - sys_stat_h => [qw(S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU - S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG - S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR - fstat mkfifo)], - - sys_times_h => [], - - sys_types_h => [], - - sys_utsname_h => [qw(uname)], - - sys_wait_h => [qw(WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED - WNOHANG WSTOPSIG WTERMSIG WUNTRACED)], - - termios_h => [qw( B0 B110 B1200 B134 B150 B1800 B19200 B200 B2400 - B300 B38400 B4800 B50 B600 B75 B9600 BRKINT CLOCAL - CREAD CS5 CS6 CS7 CS8 CSIZE CSTOPB ECHO ECHOE ECHOK - ECHONL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR - INLCR INPCK ISIG ISTRIP IXOFF IXON NCCS NOFLSH OPOST - PARENB PARMRK PARODD TCIFLUSH TCIOFF TCIOFLUSH TCION - TCOFLUSH TCOOFF TCOON TCSADRAIN TCSAFLUSH TCSANOW - TOSTOP VEOF VEOL VERASE VINTR VKILL VMIN VQUIT VSTART - VSTOP VSUSP VTIME - cfgetispeed cfgetospeed cfsetispeed cfsetospeed tcdrain - tcflow tcflush tcgetattr tcsendbreak tcsetattr )], - - time_h => [qw(CLK_TCK CLOCKS_PER_SEC NULL asctime clock ctime - difftime mktime strftime tzset tzname)], - - unistd_h => [qw(F_OK NULL R_OK SEEK_CUR SEEK_END SEEK_SET - STDERR_FILENO STDIN_FILENO STDOUT_FILENO W_OK X_OK - _PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON - _PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX - _PC_PIPE_BUF _PC_VDISABLE _POSIX_CHOWN_RESTRICTED - _POSIX_JOB_CONTROL _POSIX_NO_TRUNC _POSIX_SAVED_IDS - _POSIX_VDISABLE _POSIX_VERSION _SC_ARG_MAX - _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL - _SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS - _SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION - _exit access ctermid cuserid - dup2 dup execl execle execlp execv execve execvp - fpathconf fsync getcwd getegid geteuid getgid getgroups - getpid getuid isatty lseek pathconf pause setgid setpgid - setsid setuid sysconf tcgetpgrp tcsetpgrp ttyname)], - - utime_h => [], - -); - -# Exporter::export_tags(); -for (values %EXPORT_TAGS) { - push @EXPORT, @$_; -} - -@EXPORT_OK = qw( - abs - alarm - atan2 - chdir - chmod - chown - close - closedir - cos - exit - exp - fcntl - fileno - fork - getc - getgrgid - getgrnam - getlogin - getpgrp - getppid - getpwnam - getpwuid - gmtime - isatty - kill - lchown - link - localtime - log - mkdir - nice - open - opendir - pipe - printf - rand - read - readdir - rename - rewinddir - rmdir - sin - sleep - sprintf - sqrt - srand - stat - system - time - times - umask - unlink - utime - wait - waitpid - write -); - -require Exporter; -} - -# end of POSIX::SigAction::load_imports -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/localtime.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/localtime.al deleted file mode 100644 index dde4f5769ef..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/localtime.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 605 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\localtime.al)" -sub localtime { - usage "localtime(time)" if @_ != 1; - CORE::localtime($_[0]); -} - -# end of POSIX::localtime -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/log.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/log.al deleted file mode 100644 index 6e400f25866..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/log.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 165 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\log.al)" -sub log { - usage "log(x)" if @_ != 1; - CORE::log($_[0]); -} - -# end of POSIX::log -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/longjmp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/longjmp.al deleted file mode 100644 index f3dd3263086..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/longjmp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 195 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\longjmp.al)" -sub longjmp { - unimpl "longjmp() is C-specific: use die instead"; -} - -# end of POSIX::longjmp -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/malloc.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/malloc.al deleted file mode 100644 index 2f50c6da70a..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/malloc.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 453 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\malloc.al)" -sub malloc { - unimpl "malloc() is C-specific, stopped"; -} - -# end of POSIX::malloc -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/memchr.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/memchr.al deleted file mode 100644 index bcdfac6200b..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/memchr.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 478 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memchr.al)" -sub memchr { - unimpl "memchr() is C-specific, use index() instead"; -} - -# end of POSIX::memchr -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/memcmp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/memcmp.al deleted file mode 100644 index e01575259d4..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/memcmp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 482 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memcmp.al)" -sub memcmp { - unimpl "memcmp() is C-specific, use eq instead"; -} - -# end of POSIX::memcmp -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/memcpy.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/memcpy.al deleted file mode 100644 index b096a059be9..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/memcpy.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 486 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memcpy.al)" -sub memcpy { - unimpl "memcpy() is C-specific, use = instead"; -} - -# end of POSIX::memcpy -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/memmove.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/memmove.al deleted file mode 100644 index dd29e805f70..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/memmove.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 490 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memmove.al)" -sub memmove { - unimpl "memmove() is C-specific, use = instead"; -} - -# end of POSIX::memmove -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/memset.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/memset.al deleted file mode 100644 index 407980dd938..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/memset.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 494 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memset.al)" -sub memset { - unimpl "memset() is C-specific, use x instead"; -} - -# end of POSIX::memset -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/mkdir.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/mkdir.al deleted file mode 100644 index edb004a11e8..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/mkdir.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 575 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\mkdir.al)" -sub mkdir { - usage "mkdir(directoryname, mode)" if @_ != 2; - CORE::mkdir($_[0], $_[1]); -} - -# end of POSIX::mkdir -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/offsetof.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/offsetof.al deleted file mode 100644 index 83c2df0e521..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/offsetof.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 221 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\offsetof.al)" -sub offsetof { - unimpl "offsetof() is C-specific, stopped"; -} - -# end of POSIX::offsetof -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/opendir.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/opendir.al deleted file mode 100644 index 9c508b64371..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/opendir.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 102 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\opendir.al)" -sub opendir { - usage "opendir(directory)" if @_ != 1; - my $dirhandle; - CORE::opendir($dirhandle, $_[0]) - ? $dirhandle - : undef; -} - -# end of POSIX::opendir -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/perror.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/perror.al deleted file mode 100644 index df53df18eff..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/perror.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 328 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\perror.al)" -sub perror { - print STDERR "@_: " if @_; - print STDERR $!,"\n"; -} - -# end of POSIX::perror -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/pow.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/pow.al deleted file mode 100644 index 9f1ac2fc14f..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/pow.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 170 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\pow.al)" -sub pow { - usage "pow(x,exponent)" if @_ != 2; - $_[0] ** $_[1]; -} - -# end of POSIX::pow -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/printf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/printf.al deleted file mode 100644 index 28b07d21cd1..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/printf.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 333 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\printf.al)" -sub printf { - usage "printf(pattern, args...)" if @_ < 1; - CORE::printf STDOUT @_; -} - -# end of POSIX::printf -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/putc.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/putc.al deleted file mode 100644 index 484984bcd9f..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/putc.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 338 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\putc.al)" -sub putc { - unimpl "putc() is C-specific--use print instead"; -} - -# end of POSIX::putc -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/putchar.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/putchar.al deleted file mode 100644 index a85a0d79b36..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/putchar.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 342 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\putchar.al)" -sub putchar { - unimpl "putchar() is C-specific--use print instead"; -} - -# end of POSIX::putchar -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/puts.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/puts.al deleted file mode 100644 index 0bd3f4f3b3c..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/puts.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 346 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\puts.al)" -sub puts { - unimpl "puts() is C-specific--use print instead"; -} - -# end of POSIX::puts -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/qsort.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/qsort.al deleted file mode 100644 index 1621e6db521..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/qsort.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 457 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\qsort.al)" -sub qsort { - unimpl "qsort() is C-specific, use sort instead"; -} - -# end of POSIX::qsort -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/raise.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/raise.al deleted file mode 100644 index 3d078d08f35..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/raise.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 216 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\raise.al)" -sub raise { - usage "raise(sig)" if @_ != 1; - CORE::kill $_[0], $$; # Is this good enough? -} - -# end of POSIX::raise -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/rand.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/rand.al deleted file mode 100644 index 78d16fe53cc..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/rand.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 461 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rand.al)" -sub rand { - unimpl "rand() is non-portable, use Perl's rand instead"; -} - -# end of POSIX::rand -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/readdir.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/readdir.al deleted file mode 100644 index 395379abb86..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/readdir.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 110 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\readdir.al)" -sub readdir { - usage "readdir(dirhandle)" if @_ != 1; - CORE::readdir($_[0]); -} - -# end of POSIX::readdir -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/realloc.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/realloc.al deleted file mode 100644 index 949c4fc3b77..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/realloc.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 465 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\realloc.al)" -sub realloc { - unimpl "realloc() is C-specific, stopped"; -} - -# end of POSIX::realloc -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/redef.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/redef.al deleted file mode 100644 index d667327d6b4..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/redef.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 69 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\redef.al)" -sub redef { - my ($mess) = @_; - croak "Use method $mess instead"; -} - -# end of POSIX::redef -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/remove.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/remove.al deleted file mode 100644 index e29b4531d68..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/remove.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 350 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\remove.al)" -sub remove { - usage "remove(filename)" if @_ != 1; - CORE::unlink($_[0]); -} - -# end of POSIX::remove -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/rename.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/rename.al deleted file mode 100644 index 6087fefa798..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/rename.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 355 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rename.al)" -sub rename { - usage "rename(oldfilename, newfilename)" if @_ != 2; - CORE::rename($_[0], $_[1]); -} - -# end of POSIX::rename -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/rewind.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/rewind.al deleted file mode 100644 index a07216f1c51..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/rewind.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 360 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rewind.al)" -sub rewind { - usage "rewind(filehandle)" if @_ != 1; - CORE::seek($_[0],0,0); -} - -# end of POSIX::rewind -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/rewinddir.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/rewinddir.al deleted file mode 100644 index c01271a33d8..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/rewinddir.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 115 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rewinddir.al)" -sub rewinddir { - usage "rewinddir(dirhandle)" if @_ != 1; - CORE::rewinddir($_[0]); -} - -# end of POSIX::rewinddir -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/rmdir.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/rmdir.al deleted file mode 100644 index b94bdf166ee..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/rmdir.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 715 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rmdir.al)" -sub rmdir { - usage "rmdir(directoryname)" if @_ != 1; - CORE::rmdir($_[0]); -} - -# end of POSIX::rmdir -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/scanf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/scanf.al deleted file mode 100644 index 2d4ff839328..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/scanf.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 365 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\scanf.al)" -sub scanf { - unimpl "scanf() is C-specific--use <> and regular expressions instead"; -} - -# end of POSIX::scanf -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/setbuf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/setbuf.al deleted file mode 100644 index a7de25518fa..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/setbuf.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 720 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\setbuf.al)" -sub setbuf { - redef "IO::Handle::setbuf()"; -} - -# end of POSIX::setbuf -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/setjmp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/setjmp.al deleted file mode 100644 index 780deb31940..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/setjmp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 199 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\setjmp.al)" -sub setjmp { - unimpl "setjmp() is C-specific: use eval {} instead"; -} - -# end of POSIX::setjmp -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/setvbuf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/setvbuf.al deleted file mode 100644 index b134e52528d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/setvbuf.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 724 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\setvbuf.al)" -sub setvbuf { - redef "IO::Handle::setvbuf()"; -} - -# end of POSIX::setvbuf -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/siglongjmp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/siglongjmp.al deleted file mode 100644 index ab46fac02b6..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/siglongjmp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 203 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\siglongjmp.al)" -sub siglongjmp { - unimpl "siglongjmp() is C-specific: use die instead"; -} - -# end of POSIX::siglongjmp -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/sigsetjmp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/sigsetjmp.al deleted file mode 100644 index 31e563c6f4f..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/sigsetjmp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 207 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sigsetjmp.al)" -sub sigsetjmp { - unimpl "sigsetjmp() is C-specific: use eval {} instead"; -} - -# end of POSIX::sigsetjmp -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/sin.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/sin.al deleted file mode 100644 index 9464a28bfea..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/sin.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 175 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sin.al)" -sub sin { - usage "sin(x)" if @_ != 1; - CORE::sin($_[0]); -} - -# end of POSIX::sin -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/sleep.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/sleep.al deleted file mode 100644 index e58de4d5602..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/sleep.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 728 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sleep.al)" -sub sleep { - usage "sleep(seconds)" if @_ != 1; - $_[0] - CORE::sleep($_[0]); -} - -# end of POSIX::sleep -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/sprintf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/sprintf.al deleted file mode 100644 index 75e6bc5e277..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/sprintf.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 369 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sprintf.al)" -sub sprintf { - usage "sprintf(pattern,args)" if @_ == 0; - CORE::sprintf(shift,@_); -} - -# end of POSIX::sprintf -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/sqrt.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/sqrt.al deleted file mode 100644 index 54a2976e2da..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/sqrt.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 180 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sqrt.al)" -sub sqrt { - usage "sqrt(x)" if @_ != 1; - CORE::sqrt($_[0]); -} - -# end of POSIX::sqrt -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/srand.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/srand.al deleted file mode 100644 index b85fd14c60b..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/srand.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 469 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\srand.al)" -sub srand { - unimpl "srand()"; -} - -# end of POSIX::srand -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/sscanf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/sscanf.al deleted file mode 100644 index b6869491e5d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/sscanf.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 374 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sscanf.al)" -sub sscanf { - unimpl "sscanf() is C-specific--use regular expressions instead"; -} - -# end of POSIX::sscanf -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/stat.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/stat.al deleted file mode 100644 index 4016c0e88ab..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/stat.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 580 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\stat.al)" -sub stat { - usage "stat(filename)" if @_ != 1; - CORE::stat($_[0]); -} - -# end of POSIX::stat -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcat.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcat.al deleted file mode 100644 index 6b9602b93c6..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcat.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 498 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcat.al)" -sub strcat { - unimpl "strcat() is C-specific, use .= instead"; -} - -# end of POSIX::strcat -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strchr.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strchr.al deleted file mode 100644 index 36a59233340..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strchr.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 502 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strchr.al)" -sub strchr { - unimpl "strchr() is C-specific, use index() instead"; -} - -# end of POSIX::strchr -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcmp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcmp.al deleted file mode 100644 index b0447b9f1db..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcmp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 506 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcmp.al)" -sub strcmp { - unimpl "strcmp() is C-specific, use eq instead"; -} - -# end of POSIX::strcmp -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcpy.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcpy.al deleted file mode 100644 index 5660760b81d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcpy.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 510 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcpy.al)" -sub strcpy { - unimpl "strcpy() is C-specific, use = instead"; -} - -# end of POSIX::strcpy -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcspn.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcspn.al deleted file mode 100644 index 4a46be8baaa..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strcspn.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 514 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcspn.al)" -sub strcspn { - unimpl "strcspn() is C-specific, use regular expressions instead"; -} - -# end of POSIX::strcspn -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strerror.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strerror.al deleted file mode 100644 index cc4c86dbae4..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strerror.al +++ /dev/null @@ -1,14 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 518 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strerror.al)" -sub strerror { - usage "strerror(errno)" if @_ != 1; - local $! = $_[0]; - $! . ""; -} - -# end of POSIX::strerror -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strlen.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strlen.al deleted file mode 100644 index 9cc9df2d315..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strlen.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 524 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strlen.al)" -sub strlen { - unimpl "strlen() is C-specific, use length instead"; -} - -# end of POSIX::strlen -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strncat.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strncat.al deleted file mode 100644 index 4f09a52c298..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strncat.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 528 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strncat.al)" -sub strncat { - unimpl "strncat() is C-specific, use .= instead"; -} - -# end of POSIX::strncat -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strncmp.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strncmp.al deleted file mode 100644 index b4dfc9ab0b4..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strncmp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 532 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strncmp.al)" -sub strncmp { - unimpl "strncmp() is C-specific, use eq instead"; -} - -# end of POSIX::strncmp -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strncpy.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strncpy.al deleted file mode 100644 index 98b3c081e68..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strncpy.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 536 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strncpy.al)" -sub strncpy { - unimpl "strncpy() is C-specific, use = instead"; -} - -# end of POSIX::strncpy -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strpbrk.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strpbrk.al deleted file mode 100644 index 227c00d76cc..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strpbrk.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 540 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strpbrk.al)" -sub strpbrk { - unimpl "strpbrk() is C-specific, stopped"; -} - -# end of POSIX::strpbrk -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strrchr.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strrchr.al deleted file mode 100644 index 1dd2a6ebf04..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strrchr.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 544 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strrchr.al)" -sub strrchr { - unimpl "strrchr() is C-specific, use rindex() instead"; -} - -# end of POSIX::strrchr -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strspn.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strspn.al deleted file mode 100644 index 3bd65863563..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strspn.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 548 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strspn.al)" -sub strspn { - unimpl "strspn() is C-specific, stopped"; -} - -# end of POSIX::strspn -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strstr.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strstr.al deleted file mode 100644 index f755459b68f..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strstr.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 552 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strstr.al)" -sub strstr { - usage "strstr(big, little)" if @_ != 2; - CORE::index($_[0], $_[1]); -} - -# end of POSIX::strstr -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strtok.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/strtok.al deleted file mode 100644 index bae94c9282a..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/strtok.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 557 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strtok.al)" -sub strtok { - unimpl "strtok() is C-specific, stopped"; -} - -# end of POSIX::strtok -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/system.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/system.al deleted file mode 100644 index 1b51e8f5209..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/system.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 473 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\system.al)" -sub system { - usage "system(command)" if @_ != 1; - CORE::system($_[0]); -} - -# end of POSIX::system -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/time.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/time.al deleted file mode 100644 index 6b404400fd4..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/time.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 610 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\time.al)" -sub time { - usage "time()" if @_ != 0; - CORE::time; -} - -# end of POSIX::time -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/tmpfile.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/tmpfile.al deleted file mode 100644 index aa223d6a27c..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/tmpfile.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 378 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\tmpfile.al)" -sub tmpfile { - redef "IO::File::new_tmpfile()"; -} - -# end of POSIX::tmpfile -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/tolower.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/tolower.al deleted file mode 100644 index 57937313fc9..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/tolower.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 87 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\tolower.al)" -sub tolower { - usage "tolower(string)" if @_ != 1; - lc($_[0]); -} - -# end of POSIX::tolower -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/toupper.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/toupper.al deleted file mode 100644 index a5484a70aa6..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/toupper.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 92 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\toupper.al)" -sub toupper { - usage "toupper(string)" if @_ != 1; - uc($_[0]); -} - -# end of POSIX::toupper -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/umask.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/umask.al deleted file mode 100644 index 8bf64ae7f0e..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/umask.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 585 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\umask.al)" -sub umask { - usage "umask(mask)" if @_ != 1; - CORE::umask($_[0]); -} - -# end of POSIX::umask -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/ungetc.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/ungetc.al deleted file mode 100644 index 874e4416f71..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/ungetc.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 382 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ungetc.al)" -sub ungetc { - redef "IO::Handle::ungetc()"; -} - -# end of POSIX::ungetc -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/unimpl.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/unimpl.al deleted file mode 100644 index e1c36c60f85..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/unimpl.al +++ /dev/null @@ -1,14 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 74 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\unimpl.al)" -sub unimpl { - my ($mess) = @_; - $mess =~ s/xxx//; - croak "Unimplemented: POSIX::$mess"; -} - -# end of POSIX::unimpl -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/unlink.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/unlink.al deleted file mode 100644 index c8f58ab9836..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/unlink.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 733 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\unlink.al)" -sub unlink { - usage "unlink(filename)" if @_ != 1; - CORE::unlink($_[0]); -} - -# end of POSIX::unlink -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/usage.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/usage.al deleted file mode 100644 index 0b2b0bd6115..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/usage.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 64 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\usage.al)" -sub usage { - my ($mess) = @_; - croak "Usage: POSIX::$mess"; -} - -# end of POSIX::usage -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/utime.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/utime.al deleted file mode 100644 index 68008e7e110..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/utime.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 738 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\utime.al)" -sub utime { - usage "utime(filename, atime, mtime)" if @_ != 3; - CORE::utime($_[1], $_[2], $_[0]); -} - -# end of POSIX::utime -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/vfprintf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/vfprintf.al deleted file mode 100644 index fb502afc761..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/vfprintf.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 386 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\vfprintf.al)" -sub vfprintf { - unimpl "vfprintf() is C-specific"; -} - -# end of POSIX::vfprintf -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/vprintf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/vprintf.al deleted file mode 100644 index 28108face71..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/vprintf.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 390 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\vprintf.al)" -sub vprintf { - unimpl "vprintf() is C-specific"; -} - -# end of POSIX::vprintf -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/vsprintf.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/vsprintf.al deleted file mode 100644 index 9d4f008ebbc..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/vsprintf.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 394 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\vsprintf.al)" -sub vsprintf { - unimpl "vsprintf() is C-specific"; -} - -# end of POSIX::vsprintf -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/wait.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/wait.al deleted file mode 100644 index 57d9701f4ff..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/wait.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 590 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\wait.al)" -sub wait { - usage "wait()" if @_ != 0; - CORE::wait(); -} - -# end of POSIX::wait -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/POSIX/waitpid.al b/Master/tlpkg/tlperl.old/lib/auto/POSIX/waitpid.al deleted file mode 100644 index 6cd31c21009..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/POSIX/waitpid.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 595 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\waitpid.al)" -sub waitpid { - usage "waitpid(pid, options)" if @_ != 2; - CORE::waitpid($_[0], $_[1]); -} - -# end of POSIX::waitpid -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/SDBM_File/SDBM_File.bs b/Master/tlpkg/tlperl.old/lib/auto/SDBM_File/SDBM_File.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/SDBM_File/SDBM_File.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/SDBM_File/SDBM_File.dll b/Master/tlpkg/tlperl.old/lib/auto/SDBM_File/SDBM_File.dll Binary files differdeleted file mode 100755 index 59f6b5ad9f4..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/SDBM_File/SDBM_File.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Time/HiRes/HiRes.bs b/Master/tlpkg/tlperl.old/lib/auto/Time/HiRes/HiRes.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Time/HiRes/HiRes.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Time/HiRes/HiRes.dll b/Master/tlpkg/tlperl.old/lib/auto/Time/HiRes/HiRes.dll Binary files differdeleted file mode 100755 index 5303bcfb0a8..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Time/HiRes/HiRes.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/CancelRepeat.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/CancelRepeat.al deleted file mode 100644 index d0d6bb1b2a3..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/CancelRepeat.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 491 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\CancelRepeat.al)" -sub CancelRepeat -{ - my $w = shift->MainWindow; - my $id = delete $w->{_afterId_}; - $w->after('cancel',$id) if (defined $id); -} - -# end of Tk::CancelRepeat -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Canvas/Canvas.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/Canvas/Canvas.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Canvas/Canvas.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Canvas/Canvas.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/Canvas/Canvas.dll Binary files differdeleted file mode 100755 index 85fdb8e0f02..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Canvas/Canvas.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Clipboard/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/Tk/Clipboard/autosplit.ix deleted file mode 100644 index 9831f74facb..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Clipboard/autosplit.ix +++ /dev/null @@ -1,6 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk\Clipboard.pm -# (file acts as timestamp) -package Tk::Clipboard; -sub getSelected -; -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Clipboard/getSelected.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Clipboard/getSelected.al deleted file mode 100644 index 44ba7b74bf0..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Clipboard/getSelected.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Clipboard.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Clipboard; - -#line 115 "blib\lib\Tk\Clipboard.pm (autosplit into blib\lib\auto\Tk\Clipboard\getSelected.al)" -sub getSelected -{ - my $w = shift; - my $val = Tk::catch { $w->get('sel.first','sel.last') }; - return $val; -} - -1; -# end of Tk::Clipboard::getSelected diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Compound/Compound.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/Compound/Compound.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Compound/Compound.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Compound/Compound.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/Compound/Compound.dll Binary files differdeleted file mode 100755 index 321f56a0d24..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Compound/Compound.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/DragDrop/Win32Site/Win32Site.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/DragDrop/Win32Site/Win32Site.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/DragDrop/Win32Site/Win32Site.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/DragDrop/Win32Site/Win32Site.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/DragDrop/Win32Site/Win32Site.dll Binary files differdeleted file mode 100755 index 468d9d71d05..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/DragDrop/Win32Site/Win32Site.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/EnterFocus.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/EnterFocus.al deleted file mode 100644 index 6b2b5b171a1..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/EnterFocus.al +++ /dev/null @@ -1,27 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 657 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\EnterFocus.al)" -# focusFollowsMouse -# -# If this procedure is invoked, Tk will enter "focus-follows-mouse" -# mode, where the focus is always on whatever window contains the -# mouse. If this procedure isn't invoked, then the user typically -# has to click on a window to give it the focus. -# -# Arguments: -# None. - -sub EnterFocus -{ - my $w = shift; - return unless $w; - my $Ev = $w->XEvent; - my $d = $Ev->d; - $w->Tk::focus() if ($d eq 'NotifyAncestor' || $d eq 'NotifyNonlinear' || $d eq 'NotifyInferior'); -} - -# end of Tk::EnterFocus -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Entry/Entry.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/Entry/Entry.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Entry/Entry.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Entry/Entry.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/Entry/Entry.dll Binary files differdeleted file mode 100755 index 9b1c07a7792..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Entry/Entry.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Error.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Error.al deleted file mode 100644 index 7efe2c7043d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Error.al +++ /dev/null @@ -1,20 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 479 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\Error.al)" -sub Error -{my $w = shift; - my $error = shift; - if (Exists($w)) - { - my $grab = $w->grab('current'); - $grab->Unbusy if (defined $grab); - } - chomp($error); - warn "Tk::Error: $error\n " . join("\n ",@_)."\n"; -} - -# end of Tk::Error -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Event/Event.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/Event/Event.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Event/Event.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Event/Event.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/Event/Event.dll Binary files differdeleted file mode 100755 index 5a9706cb92e..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Event/Event.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/FirstMenu.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/FirstMenu.al deleted file mode 100644 index 9ae95c2b311..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/FirstMenu.al +++ /dev/null @@ -1,21 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 705 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\FirstMenu.al)" -# tkFirstMenu -- -# This procedure traverses to the first menubutton in the toplevel -# for a given window, and posts that menubutton's menu. -# -# Arguments: -# w - Name of a window. Selects which toplevel -# to search for menubuttons. -sub FirstMenu -{ - my $w = shift; - $w = $w->toplevel->FindMenu(''); -} - -# end of Tk::FirstMenu -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/FocusChildren.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/FocusChildren.al deleted file mode 100644 index 816e29d5ce3..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/FocusChildren.al +++ /dev/null @@ -1,35 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 508 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\FocusChildren.al)" -#---------------------------------------------------------------------------- -# focus.tcl -- -# -# This file defines several procedures for managing the input -# focus. -# -# @(#) focus.tcl 1.6 94/12/19 17:06:46 -# -# Copyright (c) 1994 Sun Microsystems, Inc. -# -# See the file "license.terms" for information on usage and redistribution -# of this file, and for a DISCLAIMER OF ALL WARRANTIES. - -sub FocusChildren { shift->children } - -# -# focusNext -- -# This procedure is invoked to move the input focus to the next window -# after a given one. "Next" is defined in terms of the window -# stacking order, with all the windows underneath a given top-level -# (no matter how deeply nested in the hierarchy) considered except -# for frames and toplevels. -# -# Arguments: -# w - Name of a window: the procedure will set the focus -# to the next window after this one in the traversal -# order. -# end of Tk::FocusChildren -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/FocusOK.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/FocusOK.al deleted file mode 100644 index 2bcfe3ebf82..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/FocusOK.al +++ /dev/null @@ -1,36 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 628 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\FocusOK.al)" -sub FocusOK -{ - my $w = shift; - my $value; - catch { $value = $w->cget('-takefocus') }; - if (!$@ && defined($value)) - { - return 0 if ($value eq '0'); - return $w->viewable if ($value eq '1'); - if ($value) - { - $value = $w->$value(); - return $value if (defined $value); - } - } - if (!$w->viewable) - { - return 0; - } - catch { $value = $w->cget('-state') } ; - if (!$@ && defined($value) && $value eq 'disabled') - { - return 0; - } - $value = grep(/Key|Focus/,$w->Tk::bind(),$w->Tk::bind(ref($w))); - return $value; -} - -# end of Tk::FocusOK -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/AddScrollbars.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/AddScrollbars.al deleted file mode 100644 index aa12259f675..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/AddScrollbars.al +++ /dev/null @@ -1,52 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 225 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\AddScrollbars.al)" -sub AddScrollbars -{ - require Tk::Scrollbar; - my ($cw,$w) = @_; - my $def = ''; - my ($x,$y) = ('',''); - my $s = 0; - my $c; - $cw->freeze_on_map; - foreach $c ($w->configure) - { - my $opt = $c->[0]; - if ($opt eq '-yscrollcommand') - { - my $slice = Tk::Frame->new($cw,Name => 'ysbslice'); - my $ysb = Tk::Scrollbar->new($slice,-orient => 'vertical', -command => [ 'yview', $w ]); - my $size = $ysb->cget('-width'); - my $corner = Tk::Frame->new($slice,Name=>'corner','-relief' => 'raised', - '-width' => $size, '-height' => $size); - $ysb->pack(-side => 'left', -fill => 'y'); - $cw->Advertise('yscrollbar' => $ysb); - $cw->Advertise('corner' => $corner); - $cw->Advertise('ysbslice' => $slice); - $corner->{'before'} = $ysb->PathName; - $slice->{'before'} = $w->PathName; - $y = 'w'; - $s = 1; - } - elsif ($opt eq '-xscrollcommand') - { - my $xsb = Tk::Scrollbar->new($cw,-orient => 'horizontal', -command => [ 'xview', $w ]); - $cw->Advertise('xscrollbar' => $xsb); - $xsb->{'before'} = $w->PathName; - $x = 's'; - $s = 1; - } - } - if ($s) - { - $cw->Advertise('scrolled' => $w); - $cw->ConfigSpecs('-scrollbars' => ['METHOD','scrollbars','Scrollbars',$x.$y]); - } -} - -# end of Tk::Frame::AddScrollbars -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/FindMenu.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/FindMenu.al deleted file mode 100644 index 66e71c29b21..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/FindMenu.al +++ /dev/null @@ -1,22 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 363 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\FindMenu.al)" -sub FindMenu -{ - my ($w,$char) = @_; - my $child; - my $match; - foreach $child ($w->children) - { - next unless (ref $child); - $match = $child->FindMenu($char); - return $match if (defined $match); - } - return undef; -} - -1; -# end of Tk::Frame::FindMenu diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/autosplit.ix deleted file mode 100644 index 6e5b939fce1..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/autosplit.ix +++ /dev/null @@ -1,24 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk\Frame.pm -# (file acts as timestamp) -package Tk::Frame; -sub labelPack -; -sub labelVariable -; -sub label -; -sub queuePack -; -sub sbset -; -sub freeze_on_map -; -sub AddScrollbars -; -sub packscrollbars -; -sub scrollbars -; -sub FindMenu -; -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/freeze_on_map.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/freeze_on_map.al deleted file mode 100644 index 6a8b8a4f96e..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/freeze_on_map.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 215 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\freeze_on_map.al)" -sub freeze_on_map -{ - my ($w) = @_; - unless ($w->Tk::bind('Freeze','<Map>')) - { - $w->Tk::bind('Freeze','<Map>',['packPropagate' => 0]) - } - $w->AddBindTag('Freeze'); -} - -# end of Tk::Frame::freeze_on_map -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/label.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/label.al deleted file mode 100644 index 83ec70ed803..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/label.al +++ /dev/null @@ -1,24 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 182 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\label.al)" -sub label -{ - my ($cw,$val) = @_; - my $var = $cw->cget('-labelVariable'); - if (@_ > 1 && defined $val) - { - if (!defined $var) - { - $var = \$cw->{Configure}{'-label'}; - $cw->labelVariable($var); - } - $$var = $val; - } - return (defined $var) ? $$var : undef;; -} - -# end of Tk::Frame::label -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/labelPack.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/labelPack.al deleted file mode 100644 index 0cfa8631c24..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/labelPack.al +++ /dev/null @@ -1,50 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 121 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\labelPack.al)" -sub labelPack -{ - my ($cw,$val) = @_; - my $w = $cw->Subwidget('label'); - my @result = (); - if (@_ > 1) - { - if (defined($w) && !defined($val)) - { - $w->packForget; - } - elsif (defined($val) && !defined ($w)) - { - require Tk::Label; - $w = Tk::Label->new($cw,-textvariable => $cw->labelVariable); - $cw->Advertise('label' => $w); - $cw->ConfigDelegate('label',qw(-text -textvariable)); - } - if (defined($val) && defined($w)) - { - my %pack = @$val; - unless (exists $pack{-side}) - { - $pack{-side} = 'top' unless (exists $pack{-side}); - } - unless (exists $pack{-fill}) - { - $pack{-fill} = 'x' if ($pack{-side} =~ /(top|bottom)/); - $pack{-fill} = 'y' if ($pack{-side} =~ /(left|right)/); - } - unless (exists($pack{'-before'}) || exists($pack{'-after'})) - { - my $before = ($cw->packSlaves)[0]; - $pack{'-before'} = $before if (defined $before); - } - $w->pack(%pack); - } - } - @result = $w->packInfo if (defined $w); - return (wantarray) ? @result : \@result; -} - -# end of Tk::Frame::labelPack -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/labelVariable.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/labelVariable.al deleted file mode 100644 index ca60cff1288..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/labelVariable.al +++ /dev/null @@ -1,27 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 163 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\labelVariable.al)" -sub labelVariable -{ - my ($cw,$val) = @_; - my $var = \$cw->{Configure}{'-labelVariable'}; - if (@_ > 1 && defined $val) - { - $$var = $val; - $$val = '' unless (defined $$val); - my $w = $cw->Subwidget('label'); - unless (defined $w) - { - $cw->labelPack([]); - $w = $cw->Subwidget('label'); - } - $w->configure(-textvariable => $val); - } - return $$var; -} - -# end of Tk::Frame::labelVariable -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/packscrollbars.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/packscrollbars.al deleted file mode 100644 index 9990eb67b13..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/packscrollbars.al +++ /dev/null @@ -1,86 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 269 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\packscrollbars.al)" -sub packscrollbars -{ - my ($cw) = @_; - my $opt = $cw->cget('-scrollbars'); - my $slice = $cw->Subwidget('ysbslice'); - my $xsb = $cw->Subwidget('xscrollbar'); - my $corner = $cw->Subwidget('corner'); - my $w = $cw->Subwidget('scrolled'); - my $xside = (($opt =~ /n/) ? 'top' : 'bottom'); - my $havex = 0; - my $havey = 0; - $opt =~ s/r//; - $cw->{'pack_pending'} = 0; - if (defined $slice) - { - my $reqy; - my $ysb = $cw->Subwidget('yscrollbar'); - if ($opt =~ /(o)?[we]/ && (($reqy = !defined($1)) || $ysb->Needed)) - { - my $yside = (($opt =~ /w/) ? 'left' : 'right'); - $slice->pack(-side => $yside, -fill => 'y',-before => $slice->{'before'}); - $havey = 1; - if ($reqy) - { - $w->configure(-yscrollcommand => ['set', $ysb]); - } - else - { - $w->configure(-yscrollcommand => ['sbset', $cw, $ysb, \$cw->{'packysb'}]); - } - } - else - { - $w->configure(-yscrollcommand => undef) unless $opt =~ s/[we]//; - $slice->packForget; - } - $cw->{'packysb'} = $havey; - } - if (defined $xsb) - { - my $reqx; - if ($opt =~ /(o)?[ns]/ && (($reqx = !defined($1)) || $xsb->Needed)) - { - $xsb->pack(-side => $xside, -fill => 'x',-before => $xsb->{'before'}); - $havex = 1; - if ($reqx) - { - $w->configure(-xscrollcommand => ['set', $xsb]); - } - else - { - $w->configure(-xscrollcommand => ['sbset', $cw, $xsb, \$cw->{'packxsb'}]); - } - } - else - { - $w->configure(-xscrollcommand => undef) unless $opt =~ s/[ns]//; - $xsb->packForget; - } - $cw->{'packxsb'} = $havex; - } - if (defined $corner) - { - if ($havex && $havey && defined $corner->{'before'}) - { - my $anchor = $opt; - $anchor =~ s/o//g; - $corner->configure(-height => $xsb->ReqHeight); - $corner->pack(-before => $corner->{'before'}, -side => $xside, - -anchor => $anchor, -fill => 'x'); - } - else - { - $corner->packForget; - } - } -} - -# end of Tk::Frame::packscrollbars -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/queuePack.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/queuePack.al deleted file mode 100644 index 59fe3ee4de0..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/queuePack.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 198 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\queuePack.al)" -sub queuePack -{ - my ($cw) = @_; - unless ($cw->{'pack_pending'}) - { - $cw->{'pack_pending'} = 1; - $cw->afterIdle([$cw,'packscrollbars']); - } -} - -# end of Tk::Frame::queuePack -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/sbset.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/sbset.al deleted file mode 100644 index cca4f0d642a..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/sbset.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 208 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\sbset.al)" -sub sbset -{ - my ($cw,$sb,$ref,@args) = @_; - $sb->set(@args); - $cw->queuePack if (@args == 2 && $sb->Needed != $$ref); -} - -# end of Tk::Frame::sbset -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/scrollbars.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/scrollbars.al deleted file mode 100644 index 21eeb53d2b9..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Frame/scrollbars.al +++ /dev/null @@ -1,24 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 347 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\scrollbars.al)" -sub scrollbars -{ - my ($cw,$opt) = @_; - my $var = \$cw->{'-scrollbars'}; - if (@_ > 1) - { - my $old = $$var; - if (!defined $old || $old ne $opt) - { - $$var = $opt; - $cw->queuePack; - } - } - return $$var; -} - -# end of Tk::Frame::scrollbars -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/HList/HList.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/HList/HList.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/HList/HList.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/HList/HList.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/HList/HList.dll Binary files differdeleted file mode 100755 index aeb0f6bcf38..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/HList/HList.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/IO/IO.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/IO/IO.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/IO/IO.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/IO/IO.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/IO/IO.dll Binary files differdeleted file mode 100755 index 472f34c8f64..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/IO/IO.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/ImageNames.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/ImageNames.al deleted file mode 100644 index 46176b8a4c5..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/ImageNames.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 757 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\ImageNames.al)" -sub ImageNames -{ - image('names'); -} - -# end of Tk::ImageNames -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/ImageTypes.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/ImageTypes.al deleted file mode 100644 index 59fcf95b7d0..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/ImageTypes.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 762 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\ImageTypes.al)" -sub ImageTypes -{ - image('types'); -} - -# end of Tk::ImageTypes -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/JPEG/JPEG.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/JPEG/JPEG.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/JPEG/JPEG.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/JPEG/JPEG.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/JPEG/JPEG.dll Binary files differdeleted file mode 100755 index b30740e14b4..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/JPEG/JPEG.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/AutoScan.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/AutoScan.al deleted file mode 100644 index 89bda0179c6..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/AutoScan.al +++ /dev/null @@ -1,49 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 676 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\AutoScan.al)" -# AutoScan -- -# This procedure is invoked when the mouse leaves an entry window -# with button 1 down. It scrolls the window up, down, left, or -# right, depending on where the mouse left the window, and reschedules -# itself as an "after" command so that the window continues to scroll until -# the mouse moves back into the window or the mouse button is released. -# -# Arguments: -# w - The entry window. -# x - The x-coordinate of the mouse when it left the window. -# y - The y-coordinate of the mouse when it left the window. -sub AutoScan -{ - my $w = shift; - return if !Tk::Exists($w); - my $x = shift; - my $y = shift; - if ($y >= $w->height) - { - $w->yview('scroll',1,'units') - } - elsif ($y < 0) - { - $w->yview('scroll',-1,'units') - } - elsif ($x >= $w->width) - { - $w->xview('scroll',2,'units') - } - elsif ($x < 0) - { - $w->xview('scroll',-2,'units') - } - else - { - return; - } - $w->Motion($w->index("@" . $x . ',' . $y)); - $w->RepeatId($w->after(50,'AutoScan',$w,$x,$y)); -} - -# end of Tk::Listbox::AutoScan -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/BeginExtend.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/BeginExtend.al deleted file mode 100644 index afd8f0e9fda..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/BeginExtend.al +++ /dev/null @@ -1,34 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 620 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\BeginExtend.al)" -# BeginExtend -- -# -# This procedure is typically invoked on shift-button-1 presses. It -# begins the process of extending a selection in the listbox. Its -# exact behavior depends on the selection mode currently in effect -# for the listbox; see the Motif documentation for details. -# -# Arguments: -# w - The listbox widget. -# el - The element for the selection operation (typically the -# one under the pointer). Must be in numerical form. -sub BeginExtend -{ - my $w = shift; - my $el = shift; - if ($w->cget('-selectmode') eq 'extended' && $w->selectionIncludes('anchor')) - { - $w->Motion($el) - } - else - { - # No selection yet; simulate the begin-select operation. - $w->BeginSelect($el); - } -} - -# end of Tk::Listbox::BeginExtend -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/BeginSelect.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/BeginSelect.al deleted file mode 100644 index 304a0afe1e1..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/BeginSelect.al +++ /dev/null @@ -1,46 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 515 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\BeginSelect.al)" -# BeginSelect -- -# -# This procedure is typically invoked on button-1 presses. It begins -# the process of making a selection in the listbox. Its exact behavior -# depends on the selection mode currently in effect for the listbox; -# see the Motif documentation for details. -# -# Arguments: -# w - The listbox widget. -# el - The element for the selection operation (typically the -# one under the pointer). Must be in numerical form. -sub BeginSelect -{ - my $w = shift; - my $el = shift; - if ($w->cget('-selectmode') eq 'multiple') - { - if ($w->selectionIncludes($el)) - { - $w->selectionClear($el) - } - else - { - $w->selectionSet($el) - } - } - else - { - $w->selectionClear(0,'end'); - $w->selectionSet($el); - $w->selectionAnchor($el); - @Selection = (); - $Prev = $el - } - $w->focus if ($w->cget('-takefocus')); - $w->eventGenerate("<<ListboxSelect>>"); -} - -# end of Tk::Listbox::BeginSelect -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/BeginToggle.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/BeginToggle.al deleted file mode 100644 index 6c70e35d75a..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/BeginToggle.al +++ /dev/null @@ -1,40 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 645 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\BeginToggle.al)" -# BeginToggle -- -# -# This procedure is typically invoked on control-button-1 presses. It -# begins the process of toggling a selection in the listbox. Its -# exact behavior depends on the selection mode currently in effect -# for the listbox; see the Motif documentation for details. -# -# Arguments: -# w - The listbox widget. -# el - The element for the selection operation (typically the -# one under the pointer). Must be in numerical form. -sub BeginToggle -{ - my $w = shift; - my $el = shift; - if ($w->cget('-selectmode') eq 'extended') - { - @Selection = $w->curselection(); - $Prev = $el; - $w->selectionAnchor($el); - if ($w->selectionIncludes($el)) - { - $w->selectionClear($el) - } - else - { - $w->selectionSet($el) - } - $w->eventGenerate("<<ListboxSelect>>"); - } -} - -# end of Tk::Listbox::BeginToggle -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/ButtonRelease_1.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/ButtonRelease_1.al deleted file mode 100644 index ec8fa789fb9..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/ButtonRelease_1.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 471 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\ButtonRelease_1.al)" -sub ButtonRelease_1 -{ - my $w = shift; - my $Ev = $w->XEvent; - $w->CancelRepeat; - $w->activate($Ev->xy); -} - -# end of Tk::Listbox::ButtonRelease_1 -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/CLEAR.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/CLEAR.al deleted file mode 100644 index 8ed6feba4b5..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/CLEAR.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 304 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\CLEAR.al)" -# CLEAR -# ----- -# Empty the Listbox of contents if tied to an array -sub CLEAR { - my $class = shift; - ${$class->{OBJECT}}->delete(0, 'end'); -} - -# end of Tk::Listbox::CLEAR -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Cancel.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Cancel.al deleted file mode 100644 index 7ff924756f8..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Cancel.al +++ /dev/null @@ -1,42 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 805 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\Cancel.al)" -# Cancel -# -# This procedure is invoked to cancel an extended selection in -# progress. If there is an extended selection in progress, it -# restores all of the items between the active one and the anchor -# to their previous selection state. -# -# Arguments: -# w - The listbox widget. -sub Cancel -{ - my $w = shift; - if ($w->cget('-selectmode') ne 'extended' || !defined $Prev) - { - return; - } - my $first = $w->index('anchor'); - my $last = $Prev; - if ($first > $last) - { - ($first, $last) = ($last, $first); - } - $w->selectionClear($first,$last); - while ($first <= $last) - { - if (Tk::lsearch(\@Selection,$first) >= 0) - { - $w->selectionSet($first) - } - $first++ - } - $w->eventGenerate("<<ListboxSelect>>"); -} - -# end of Tk::Listbox::Cancel -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Cntrl_End.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Cntrl_End.al deleted file mode 100644 index dad5a4bc0d1..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Cntrl_End.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 492 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\Cntrl_End.al)" -sub Cntrl_End -{ - my $w = shift; - my $Ev = $w->XEvent; - $w->activate('end'); - $w->see('end'); - $w->selectionClear(0,'end'); - $w->selectionSet('end'); - $w->eventGenerate("<<ListboxSelect>>"); -} - -# end of Tk::Listbox::Cntrl_End -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Cntrl_Home.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Cntrl_Home.al deleted file mode 100644 index 08131896da1..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Cntrl_Home.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 480 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\Cntrl_Home.al)" -sub Cntrl_Home -{ - my $w = shift; - my $Ev = $w->XEvent; - $w->activate(0); - $w->see(0); - $w->selectionClear(0,'end'); - $w->selectionSet(0); - $w->eventGenerate("<<ListboxSelect>>"); -} - -# end of Tk::Listbox::Cntrl_Home -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Cntrl_backslash.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Cntrl_backslash.al deleted file mode 100644 index 402426261a7..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Cntrl_backslash.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 504 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\Cntrl_backslash.al)" -sub Cntrl_backslash -{ - my $w = shift; - my $Ev = $w->XEvent; - if ($w->cget('-selectmode') ne 'browse') - { - $w->selectionClear(0,'end'); - $w->eventGenerate("<<ListboxSelect>>"); - } -} - -# end of Tk::Listbox::Cntrl_backslash -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/DELETE.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/DELETE.al deleted file mode 100644 index 3dd81ad40fd..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/DELETE.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 355 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\DELETE.al)" -# DELETE -# ------ -# Delete element at specified index -sub DELETE { - my ( $class, @list ) = @_; - - my $value = ${$class->{OBJECT}}->get(@list); - ${$class->{OBJECT}}->delete(@list); - return $value; -} - -# end of Tk::Listbox::DELETE -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/DataExtend.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/DataExtend.al deleted file mode 100644 index 4240300aa68..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/DataExtend.al +++ /dev/null @@ -1,39 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 775 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\DataExtend.al)" -# DataExtend -# -# This procedure is called for key-presses such as Shift-KEndData. -# If the selection mode isn't multiple or extend then it does nothing. -# Otherwise it moves the active element to el and, if we're in -# extended mode, extends the selection to that point. -# -# Arguments: -# w - The listbox widget. -# el - An integer element number. -sub DataExtend -{ - my $w = shift; - my $el = shift; - my $mode = $w->cget('-selectmode'); - if ($mode eq 'extended') - { - $w->activate($el); - $w->see($el); - if ($w->selectionIncludes('anchor')) - { - $w->Motion($el) - } - } - elsif ($mode eq 'multiple') - { - $w->activate($el); - $w->see($el) - } -} - -# end of Tk::Listbox::DataExtend -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/EXISTS.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/EXISTS.al deleted file mode 100644 index ae1ed1bc5e6..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/EXISTS.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 366 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\EXISTS.al)" -# EXISTS -# ------ -# Returns true if the index exist, and undef if not -sub EXISTS { - my ( $class, $index ) = @_; - return undef unless ${$class->{OBJECT}}->get($index); -} - -# end of Tk::Listbox::EXISTS -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/EXTEND.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/EXTEND.al deleted file mode 100644 index 2a483ea08c1..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/EXTEND.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 312 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\EXTEND.al)" -# EXTEND -# ------ -# Do nothing and be happy about it -sub EXTEND { } - -# PUSH -# ---- -# Append elements onto the Listbox contents -# end of Tk::Listbox::EXTEND -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/ExtendUpDown.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/ExtendUpDown.al deleted file mode 100644 index 9b72250ea41..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/ExtendUpDown.al +++ /dev/null @@ -1,36 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 748 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\ExtendUpDown.al)" -# ExtendUpDown -- -# -# Does nothing unless we're in extended selection mode; in this -# case it moves the location cursor (active element) up or down by -# one element, and extends the selection to that point. -# -# Arguments: -# w - The listbox widget. -# amount - +1 to move down one item, -1 to move back one item. -sub ExtendUpDown -{ - my $w = shift; - my $amount = shift; - if ($w->cget('-selectmode') ne 'extended') - { - return; - } - my $active = $w->index('active'); - if (!@Selection) - { - $w->selectionSet($active); - @Selection = $w->curselection; - } - $w->activate($active + $amount); - $w->see('active'); - $w->Motion($w->index('active')) -} - -# end of Tk::Listbox::ExtendUpDown -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/FETCH.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/FETCH.al deleted file mode 100644 index fbbe7a3ce9a..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/FETCH.al +++ /dev/null @@ -1,56 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 176 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\FETCH.al)" -# FETCH -# ----- -# Return either the full contents or only the selected items in the -# box depending on whether we tied it to an array or scalar respectively -sub FETCH { - my $class = shift; - - my $self = ${$class->{OBJECT}}; - my %options = %{$class->{OPTION}} if defined $class->{OPTION};; - - # Define the return variable - my $result; - - # Check whether we are have a tied array or scalar quantity - if ( @_ ) { - my $i = shift; - # The Tk:: Listbox has been tied to an array, we are returning - # an array list of the current items in the Listbox - $result = $self->get($i); - } else { - # The Tk::Listbox has been tied to a scalar, we are returning a - # reference to an array or hash containing the currently selected items - my ( @array, %hash ); - - if ( defined $options{ReturnType} ) { - - # THREE-WAY SWITCH - if ( $options{ReturnType} eq "index" ) { - $result = [$self->curselection]; - } elsif ( $options{ReturnType} eq "element" ) { - foreach my $selection ( $self->curselection ) { - push(@array,$self->get($selection)); } - $result = \@array; - } elsif ( $options{ReturnType} eq "both" ) { - foreach my $selection ( $self->curselection ) { - %hash = ( %hash, $selection => $self->get($selection)); } - $result = \%hash; - } - } else { - # return elements (default) - foreach my $selection ( $self->curselection ) { - push(@array,$self->get($selection)); } - $result = \@array; - } - } - return $result; -} - -# end of Tk::Listbox::FETCH -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/FETCHSIZE.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/FETCHSIZE.al deleted file mode 100644 index 13b612a26f5..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/FETCHSIZE.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 224 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\FETCHSIZE.al)" -# FETCHSIZE -# --------- -# Return the number of elements in the Listbox when tied to an array -sub FETCHSIZE { - my $class = shift; - return ${$class->{OBJECT}}->size(); -} - -# end of Tk::Listbox::FETCHSIZE -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Listbox.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Listbox.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Listbox.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Listbox.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Listbox.dll Binary files differdeleted file mode 100755 index bb2c6c89f70..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Listbox.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Motion.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Motion.al deleted file mode 100644 index c1c3cbd978b..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/Motion.al +++ /dev/null @@ -1,77 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 552 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\Motion.al)" -# Motion -- -# -# This procedure is called to process mouse motion events while -# button 1 is down. It may move or extend the selection, depending -# on the listbox's selection mode. -# -# Arguments: -# w - The listbox widget. -# el - The element under the pointer (must be a number). -sub Motion -{ - my $w = shift; - my $el = shift; - if (defined($Prev) && $el == $Prev) - { - return; - } - my $anchor = $w->index('anchor'); - my $mode = $w->cget('-selectmode'); - if ($mode eq 'browse') - { - $w->selectionClear(0,'end'); - $w->selectionSet($el); - $Prev = $el; - $w->eventGenerate("<<ListboxSelect>>"); - } - elsif ($mode eq 'extended') - { - my $i = $Prev; - if (!defined $i || $i eq '') - { - $i = $el; - $w->selectionSet($el); - } - if ($w->selectionIncludes('anchor')) - { - $w->selectionClear($i,$el); - $w->selectionSet('anchor',$el) - } - else - { - $w->selectionClear($i,$el); - $w->selectionClear('anchor',$el) - } - if (!@Selection) - { - @Selection = $w->curselection; - } - while ($i < $el && $i < $anchor) - { - if (Tk::lsearch(\@Selection,$i) >= 0) - { - $w->selectionSet($i) - } - $i++ - } - while ($i > $el && $i > $anchor) - { - if (Tk::lsearch(\@Selection,$i) >= 0) - { - $w->selectionSet($i) - } - $i-- - } - $Prev = $el; - $w->eventGenerate("<<ListboxSelect>>"); - } -} - -# end of Tk::Listbox::Motion -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/POP.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/POP.al deleted file mode 100644 index db469652447..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/POP.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 325 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\POP.al)" -# POP -# --- -# Remove last element of the array and return it -sub POP { - my $class = shift; - - my $value = ${$class->{OBJECT}}->get('end'); - ${$class->{OBJECT}}->delete('end'); - return $value; -} - -# end of Tk::Listbox::POP -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/PUSH.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/PUSH.al deleted file mode 100644 index f2168ef46d9..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/PUSH.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 320 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\PUSH.al)" -sub PUSH { - my ( $class, @list ) = @_; - ${$class->{OBJECT}}->insert('end', @list); -} - -# end of Tk::Listbox::PUSH -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/SHIFT.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/SHIFT.al deleted file mode 100644 index 96a41f7d79c..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/SHIFT.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 336 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\SHIFT.al)" -# SHIFT -# ----- -# Removes the first element and returns it -sub SHIFT { - my $class = shift; - - my $value = ${$class->{OBJECT}}->get(0); - ${$class->{OBJECT}}->delete(0); - return $value -} - -# end of Tk::Listbox::SHIFT -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/SPLICE.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/SPLICE.al deleted file mode 100644 index aeddea8196a..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/SPLICE.al +++ /dev/null @@ -1,84 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 374 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\SPLICE.al)" -# SPLICE -# ------ -# Performs equivalent of splice on the listbox contents -sub SPLICE { - my $class = shift; - - my $self = ${$class->{OBJECT}}; - - # check for arguments - my @elements; - if ( scalar(@_) == 0 ) { - # none - @elements = $self->get(0,'end'); - $self->delete(0,'end'); - return wantarray ? @elements : $elements[scalar(@elements)-1];; - - } elsif ( scalar(@_) == 1 ) { - # $offset - my ( $offset ) = @_; - if ( $offset < 0 ) { - my $start = $self->size() + $offset; - if ( $start > 0 ) { - @elements = $self->get($start,'end'); - $self->delete($start,'end'); - return wantarray ? @elements : $elements[scalar(@elements)-1]; - } else { - return undef; - } - } else { - @elements = $self->get($offset,'end'); - $self->delete($offset,'end'); - return wantarray ? @elements : $elements[scalar(@elements)-1]; - } - - } elsif ( scalar(@_) == 2 ) { - # $offset and $length - my ( $offset, $length ) = @_; - if ( $offset < 0 ) { - my $start = $self->size() + $offset; - my $end = $self->size() + $offset + $length - 1; - if ( $start > 0 ) { - @elements = $self->get($start,$end); - $self->delete($start,$end); - return wantarray ? @elements : $elements[scalar(@elements)-1]; - } else { - return undef; - } - } else { - @elements = $self->get($offset,$offset+$length-1); - $self->delete($offset,$offset+$length-1); - return wantarray ? @elements : $elements[scalar(@elements)-1]; - } - - } else { - # $offset, $length and @list - my ( $offset, $length, @list ) = @_; - if ( $offset < 0 ) { - my $start = $self->size() + $offset; - my $end = $self->size() + $offset + $length - 1; - if ( $start > 0 ) { - @elements = $self->get($start,$end); - $self->delete($start,$end); - $self->insert($start,@list); - return wantarray ? @elements : $elements[scalar(@elements)-1]; - } else { - return undef; - } - } else { - @elements = $self->get($offset,$offset+$length-1); - $self->delete($offset,$offset+$length-1); - $self->insert($offset,@list); - return wantarray ? @elements : $elements[scalar(@elements)-1]; - } - } -} - -# end of Tk::Listbox::SPLICE -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/STORE.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/STORE.al deleted file mode 100644 index 492c32ccc1e..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/STORE.al +++ /dev/null @@ -1,80 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 232 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\STORE.al)" -# STORE -# ----- -# If tied to an array we will modify the Listbox contents, while if tied -# to a scalar we will select and clear elements. -sub STORE { - - if ( scalar(@_) == 2 ) { - # we have a tied scalar - my ( $class, $selected ) = @_; - my $self = ${$class->{OBJECT}}; - my %options = %{$class->{OPTION}} if defined $class->{OPTION};; - - # clear currently selected elements - $self->selectionClear(0,'end'); - - # set selected elements - if ( defined $options{ReturnType} ) { - - # THREE-WAY SWITCH - if ( $options{ReturnType} eq "index" ) { - for ( my $i=0; $i < scalar(@$selected) ; $i++ ) { - for ( my $j=0; $j < $self->size() ; $j++ ) { - if( $j == $$selected[$i] ) { - $self->selectionSet($j); last; } - } - } - } elsif ( $options{ReturnType} eq "element" ) { - for ( my $k=0; $k < scalar(@$selected) ; $k++ ) { - for ( my $l=0; $l < $self->size() ; $l++ ) { - if( $self->get($l) eq $$selected[$k] ) { - $self->selectionSet($l); last; } - } - } - } elsif ( $options{ReturnType} eq "both" ) { - foreach my $key ( keys %$selected ) { - $self->selectionSet($key) - if $$selected{$key} eq $self->get($key); - } - } - } else { - # return elements (default) - for ( my $k=0; $k < scalar(@$selected) ; $k++ ) { - for ( my $l=0; $l < $self->size() ; $l++ ) { - if( $self->get($l) eq $$selected[$k] ) { - $self->selectionSet($l); last; } - } - } - } - - } else { - # we have a tied array - my ( $class, $index, $value ) = @_; - my $self = ${$class->{OBJECT}}; - - # check size of current contents list - my $sizeof = $self->size(); - - if ( $index <= $sizeof ) { - # Change a current listbox entry - $self->delete($index); - $self->insert($index, $value); - } else { - # Add a new value - if ( defined $index ) { - $self->insert($index, $value); - } else { - $self->insert("end", $value); - } - } - } -} - -# end of Tk::Listbox::STORE -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/SelectAll.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/SelectAll.al deleted file mode 100644 index 50569afbe50..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/SelectAll.al +++ /dev/null @@ -1,32 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 838 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\SelectAll.al)" -# SelectAll -# -# This procedure is invoked to handle the "select all" operation. -# For single and browse mode, it just selects the active element. -# Otherwise it selects everything in the widget. -# -# Arguments: -# w - The listbox widget. -sub SelectAll -{ - my $w = shift; - my $mode = $w->cget('-selectmode'); - if ($mode eq 'single' || $mode eq 'browse') - { - $w->selectionClear(0,'end'); - $w->selectionSet('active') - } - else - { - $w->selectionSet(0,'end') - } - $w->eventGenerate("<<ListboxSelect>>"); -} - -# end of Tk::Listbox::SelectAll -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/SetList.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/SetList.al deleted file mode 100644 index 25e4f596592..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/SetList.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 862 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\SetList.al)" -# Perl/Tk extensions: -sub SetList -{ - my $w = shift; - $w->delete(0,'end'); - $w->insert('end',@_); -} - -# end of Tk::Listbox::SetList -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/TIEARRAY.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/TIEARRAY.al deleted file mode 100644 index 8c147e8eac8..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/TIEARRAY.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 160 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\TIEARRAY.al)" -sub TIEARRAY { - my ( $class, $obj, %options ) = @_; - return bless { - OBJECT => \$obj, - OPTION => \%options }, $class; -} - -# end of Tk::Listbox::TIEARRAY -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/TIESCALAR.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/TIESCALAR.al deleted file mode 100644 index 9cedf047c7f..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/TIESCALAR.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 169 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\TIESCALAR.al)" -sub TIESCALAR { - my ( $class, $obj, %options ) = @_; - return bless { - OBJECT => \$obj, - OPTION => \%options }, $class; -} - -# end of Tk::Listbox::TIESCALAR -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/UNSHIFT.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/UNSHIFT.al deleted file mode 100644 index 10d6bae86ec..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/UNSHIFT.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 347 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\UNSHIFT.al)" -# UNSHIFT -# ------- -# Insert elements at the beginning of the Listbox -sub UNSHIFT { - my ( $class, @list ) = @_; - ${$class->{OBJECT}}->insert(0, @list); -} - -# end of Tk::Listbox::UNSHIFT -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/UpDown.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/UpDown.al deleted file mode 100644 index 7ffbfebf4e1..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/UpDown.al +++ /dev/null @@ -1,41 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 716 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\UpDown.al)" -# UpDown -- -# -# Moves the location cursor (active element) up or down by one element, -# and changes the selection if we're in browse or extended selection -# mode. -# -# Arguments: -# w - The listbox widget. -# amount - +1 to move down one item, -1 to move back one item. -sub UpDown -{ - my $w = shift; - my $amount = shift; - $w->activate($w->index('active')+$amount); - $w->see('active'); - my $mode = $w->cget('-selectmode'); - if ($mode eq 'browse') - { - $w->selectionClear(0,'end'); - $w->selectionSet('active'); - $w->eventGenerate("<<ListboxSelect>>"); - } - elsif ($mode eq 'extended') - { - $w->selectionClear(0,'end'); - $w->selectionSet('active'); - $w->selectionAnchor('active'); - $Prev = $w->index('active'); - @Selection = (); - $w->eventGenerate("<<ListboxSelect>>"); - } -} - -# end of Tk::Listbox::UpDown -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/autosplit.ix deleted file mode 100644 index 0cd2e67037c..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/autosplit.ix +++ /dev/null @@ -1,56 +0,0 @@ -# Index created by AutoSplit for ..\blib\lib\Tk\Listbox.pm -# (file acts as timestamp) -package Tk::Listbox; -sub TIEARRAY ; -sub TIESCALAR ; -sub FETCH ; -sub FETCHSIZE ; -sub STORE ; -sub CLEAR ; -sub EXTEND ; -sub PUSH ; -sub POP ; -sub SHIFT ; -sub UNSHIFT ; -sub DELETE ; -sub EXISTS ; -sub SPLICE ; -sub xyIndex -; -sub ButtonRelease_1 -; -sub Cntrl_Home -; -sub Cntrl_End -; -sub Cntrl_backslash -; -sub BeginSelect -; -sub Motion -; -sub BeginExtend -; -sub BeginToggle -; -sub AutoScan -; -sub UpDown -; -sub ExtendUpDown -; -sub DataExtend -; -sub Cancel -; -sub SelectAll -; -sub SetList -; -sub deleteSelected -; -sub clipboardPaste -; -sub getSelected -; -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/clipboardPaste.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/clipboardPaste.al deleted file mode 100644 index 28f0bd731de..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/clipboardPaste.al +++ /dev/null @@ -1,21 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 880 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\clipboardPaste.al)" -sub clipboardPaste -{ - my $w = shift; - my $index = $w->index('active') || $w->index($w->XEvent->xy); - my $str; - eval {local $SIG{__DIE__}; $str = $w->clipboardGet }; - return if $@; - foreach (split("\n",$str)) - { - $w->insert($index++,$_); - } -} - -# end of Tk::Listbox::clipboardPaste -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/deleteSelected.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/deleteSelected.al deleted file mode 100644 index 45bdfe73221..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/deleteSelected.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 870 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\deleteSelected.al)" -sub deleteSelected -{ - my $w = shift; - my $i; - foreach $i (reverse $w->curselection) - { - $w->delete($i); - } -} - -# end of Tk::Listbox::deleteSelected -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/getSelected.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/getSelected.al deleted file mode 100644 index a729a713d3e..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/getSelected.al +++ /dev/null @@ -1,24 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 893 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\getSelected.al)" -sub getSelected -{ - my ($w) = @_; - my $i; - my (@result) = (); - foreach $i ($w->curselection) - { - push(@result,$w->get($i)); - } - return (wantarray) ? @result : $result[0]; -} - -1; -__END__ - - -1; -# end of Tk::Listbox::getSelected diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/xyIndex.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/xyIndex.al deleted file mode 100644 index 5689afdb6ef..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Listbox/xyIndex.al +++ /dev/null @@ -1,29 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 450 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\xyIndex.al)" -# ---- - -# -# Bind -- -# This procedure is invoked the first time the mouse enters a listbox -# widget or a listbox widget receives the input focus. It creates -# all of the class bindings for listboxes. -# -# Arguments: -# event - Indicates which event caused the procedure to be invoked -# (Enter or FocusIn). It is used so that we can carry out -# the functions of that event in addition to setting up -# bindings. - -sub xyIndex -{ - my $w = shift; - my $Ev = $w->XEvent; - return $w->index($Ev->xy); -} - -# end of Tk::Listbox::xyIndex -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Menubutton/Menubutton.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/Menubutton/Menubutton.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Menubutton/Menubutton.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Menubutton/Menubutton.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/Menubutton/Menubutton.dll Binary files differdeleted file mode 100755 index 594c0bdadd3..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Menubutton/Menubutton.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/NBFrame/NBFrame.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/NBFrame/NBFrame.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/NBFrame/NBFrame.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/NBFrame/NBFrame.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/NBFrame/NBFrame.dll Binary files differdeleted file mode 100755 index 8678ec8c7af..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/NBFrame/NBFrame.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/PNG/PNG.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/PNG/PNG.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/PNG/PNG.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/PNG/PNG.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/PNG/PNG.dll Binary files differdeleted file mode 100755 index 08bbbed4fcc..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/PNG/PNG.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Pixmap/Pixmap.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/Pixmap/Pixmap.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Pixmap/Pixmap.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Pixmap/Pixmap.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/Pixmap/Pixmap.dll Binary files differdeleted file mode 100755 index c3adb205b3d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Pixmap/Pixmap.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Receive.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Receive.al deleted file mode 100644 index 7cae1fc380b..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Receive.al +++ /dev/null @@ -1,23 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 728 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\Receive.al)" -# If we have sub Clipboard in Tk then use base qw(Tk::Clipboard ....) -# calls it when it does its eval "require $base" -#sub Clipboard -#{my $w = shift; -# my $cmd = shift; -# croak "Use clipboard\u$cmd()"; -#} - -sub Receive -{ - my $w = shift; - warn 'Receive(' . join(',',@_) .')'; - die 'Tk rejects send(' . join(',',@_) .")\n"; -} - -# end of Tk::Receive -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/RepeatId.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/RepeatId.al deleted file mode 100644 index e71d2a337a0..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/RepeatId.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 498 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\RepeatId.al)" -sub RepeatId -{ - my ($w,$id) = @_; - $w = $w->MainWindow; - $w->CancelRepeat; - $w->{_afterId_} = $id; -} - -# end of Tk::RepeatId -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Activate.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Activate.al deleted file mode 100644 index 500358c8e0e..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Activate.al +++ /dev/null @@ -1,33 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scale; - -#line 86 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Activate.al)" -# Activate -- -# This procedure is invoked to check a given x-y position in the -# scale and activate the slider if the x-y position falls within -# the slider. -# -# Arguments: -# w - The scale widget. -# x, y - Mouse coordinates. -sub Activate -{ - my $w = shift; - my $x = shift; - my $y = shift; - return if ($w->cget('-state') eq 'disabled'); - my $ident = $w->identify($x,$y); - if (defined($ident) && $ident eq 'slider') - { - $w->configure(-state => 'active') - } - else - { - $w->configure(-state => 'normal') - } -} - -# end of Tk::Scale::Activate -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/ButtonDown.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/ButtonDown.al deleted file mode 100644 index 61ed6f32c11..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/ButtonDown.al +++ /dev/null @@ -1,40 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scale; - -#line 138 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\ButtonDown.al)" -# ButtonDown -- -# This procedure is invoked when a button is pressed in a scale. It -# takes different actions depending on where the button was pressed. -# -# Arguments: -# w - The scale widget. -# x, y - Mouse coordinates of button press. -sub ButtonDown -{ - my $w = shift; - my $x = shift; - my $y = shift; - $Tk::dragging = 0; - $el = $w->identify($x,$y); - return unless ($el); - if ($el eq 'trough1') - { - $w->Increment('up','little','initial') - } - elsif ($el eq 'trough2') - { - $w->Increment('down','little','initial') - } - elsif ($el eq 'slider') - { - $Tk::dragging = 1; - my @coords = $w->coords(); - $Tk::deltaX = $x-$coords[0]; - $Tk::deltaY = $y-$coords[1]; - } -} - -# end of Tk::Scale::ButtonDown -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/ButtonUp.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/ButtonUp.al deleted file mode 100644 index d5a22a77a46..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/ButtonUp.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scale; - -#line 129 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\ButtonUp.al)" -sub ButtonUp -{ - my ($w,$x,$y) = @_; - $w->CancelRepeat(); - $w->EndDrag(); - $w->Activate($x,$y) -} - -# end of Tk::Scale::ButtonUp -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/ControlPress.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/ControlPress.al deleted file mode 100644 index 50d7ad8b447..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/ControlPress.al +++ /dev/null @@ -1,31 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scale; - -#line 255 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\ControlPress.al)" -# ControlPress -- -# This procedure handles button presses that are made with the Control -# key down. Depending on the mouse position, it adjusts the scale -# value to one end of the range or the other. -# -# Arguments: -# w - The scale widget. -# x, y - Mouse coordinates where the button was pressed. -sub ControlPress -{ - my ($w,$x,$y) = @_; - my $el = $w->identify($x,$y); - return unless ($el); - if ($el eq 'trough1') - { - $w->set($w->cget('-from')) - } - elsif ($el eq 'trough2') - { - $w->set($w->cget('-to')) - } -} - -1; -# end of Tk::Scale::ControlPress diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Drag.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Drag.al deleted file mode 100644 index 0bc63b12879..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Drag.al +++ /dev/null @@ -1,29 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scale; - -#line 169 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Drag.al)" -# Drag -- -# This procedure is called when the mouse is dragged with -# mouse button 1 down. If the drag started inside the slider -# (i.e. the scale is active) then the scale's value is adjusted -# to reflect the mouse's position. -# -# Arguments: -# w - The scale widget. -# x, y - Mouse coordinates. -sub Drag -{ - my $w = shift; - my $x = shift; - my $y = shift; - if (!$Tk::dragging) - { - return; - } - $w->set($w->get($x-$Tk::deltaX,$y-$Tk::deltaY)) -} - -# end of Tk::Scale::Drag -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/EndDrag.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/EndDrag.al deleted file mode 100644 index 86037b86d92..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/EndDrag.al +++ /dev/null @@ -1,23 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scale; - -#line 189 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\EndDrag.al)" -# EndDrag -- -# This procedure is called to end an interactive drag of the -# slider. It just marks the drag as over. -# Arguments: -# w - The scale widget. -sub EndDrag -{ - my $w = shift; - if (!$Tk::dragging) - { - return; - } - $Tk::dragging = 0; -} - -# end of Tk::Scale::EndDrag -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Enter.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Enter.al deleted file mode 100644 index 1326a5ed9a0..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Enter.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scale; - -#line 118 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Enter.al)" -sub Enter -{ - my ($w,$x,$y) = @_; - if ($Tk::strictMotif) - { - $w->{'activeBg'} = $w->cget('-activebackground'); - $w->configure('-activebackground',$w->cget('-background')); - } - $w->Activate($x,$y); -} - -# end of Tk::Scale::Enter -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Increment.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Increment.al deleted file mode 100644 index 76432eeaf40..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Increment.al +++ /dev/null @@ -1,61 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scale; - -#line 203 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Increment.al)" -# Increment -- -# This procedure is invoked to increment the value of a scale and -# to set up auto-repeating of the action if that is desired. The -# way the value is incremented depends on the "dir" and "big" -# arguments. -# -# Arguments: -# w - The scale widget. -# dir - "up" means move value towards -from, "down" means -# move towards -to. -# big - Size of increments: "big" or "little". -# repeat - Whether and how to auto-repeat the action: "noRepeat" -# means don't auto-repeat, "initial" means this is the -# first action in an auto-repeat sequence, and "again" -# means this is the second repetition or later. -sub Increment -{ - my $w = shift; - my $dir = shift; - my $big = shift; - my $repeat = shift; - my $inc; - if ($big eq 'big') - { - $inc = $w->cget('-bigincrement'); - if ($inc == 0) - { - $inc = abs(($w->cget('-to')-$w->cget('-from')))/10.0 - } - if ($inc < $w->cget('-resolution')) - { - $inc = $w->cget('-resolution') - } - } - else - { - $inc = $w->cget('-resolution') - } - if (($w->cget('-from') > $w->cget('-to')) ^ ($dir eq 'up')) - { - $inc = -$inc - } - $w->set($w->get()+$inc); - if ($repeat eq 'again') - { - $w->RepeatId($w->after($w->cget('-repeatinterval'),'Increment',$w,$dir,$big,'again')); - } - elsif ($repeat eq 'initial') - { - $w->RepeatId($w->after($w->cget('-repeatdelay'),'Increment',$w,$dir,$big,'again')); - } -} - -# end of Tk::Scale::Increment -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Leave.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Leave.al deleted file mode 100644 index eb6f7b69f89..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Leave.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scale; - -#line 111 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Leave.al)" -sub Leave -{ - my ($w) = @_; - $w->configure('-activebackground',$w->{'activeBg'}) if ($Tk::strictMotif); - $w->configure('-state','normal') if ($w->cget('-state') eq 'active'); -} - -# end of Tk::Scale::Leave -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Scale.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Scale.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Scale.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Scale.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Scale.dll Binary files differdeleted file mode 100755 index a63ac1d0213..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/Scale.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/autosplit.ix deleted file mode 100644 index a5c5d2292f2..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scale/autosplit.ix +++ /dev/null @@ -1,22 +0,0 @@ -# Index created by AutoSplit for ..\blib\lib\Tk\Scale.pm -# (file acts as timestamp) -package Tk::Scale; -sub Activate -; -sub Leave -; -sub Enter -; -sub ButtonUp -; -sub ButtonDown -; -sub Drag -; -sub EndDrag -; -sub Increment -; -sub ControlPress -; -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ButtonDown.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ButtonDown.al deleted file mode 100644 index d80e2217abc..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ButtonDown.al +++ /dev/null @@ -1,55 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 116 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ButtonDown.al)" -# tkScrollButtonDown -- -# This procedure is invoked when a button is pressed in a scrollbar. -# It changes the way the scrollbar is displayed and takes actions -# depending on where the mouse is. -# -# Arguments: -# w - The scrollbar widget. -# x, y - Mouse coordinates. - -sub ButtonDown -{my $w = shift; - my $e = $w->XEvent; - my $element = $w->identify($e->x,$e->y); - $w->configure('-activerelief' => 'sunken'); - if ($e->b == 1 and - (defined($element) && $element eq 'slider')) - { - $w->StartDrag($e->x,$e->y); - } - elsif ($e->b == 2 and - (defined($element) && $element =~ /^(trough[12]|slider)$/o)) - { - my $pos = $w->fraction($e->x, $e->y); - my($head, $tail) = $w->get; - my $len = $tail - $head; - - $head = $pos - $len/2; - $tail = $pos + $len/2; - if ($head < 0) { - $head = 0; - $tail = $len; - } - elsif ($tail > 1) { - $head = 1 - $len; - $tail = 1; - } - $w->ScrlToPos($head); - $w->set($head, $tail); - - $w->StartDrag($e->x,$e->y); - } - else - { - $w->Select($element,'initial'); - } -} - -# end of Tk::Scrollbar::ButtonDown -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ButtonUp.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ButtonUp.al deleted file mode 100644 index 68857548755..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ButtonUp.al +++ /dev/null @@ -1,26 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 163 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ButtonUp.al)" -# tkScrollButtonUp -- -# This procedure is invoked when a button is released in a scrollbar. -# It cancels scans and auto-repeats that were in progress, and restores -# the way the active element is displayed. -# -# Arguments: -# w - The scrollbar widget. -# x, y - Mouse coordinates. - -sub ButtonUp -{my $w = shift; - my $e = $w->XEvent; - $w->CancelRepeat; - $w->configure('-activerelief' => 'raised'); - $w->EndDrag($e->x,$e->y); - $w->activate($w->identify($e->x,$e->y)); -} - -# end of Tk::Scrollbar::ButtonUp -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Drag.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Drag.al deleted file mode 100644 index 988f9d4a3ef..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Drag.al +++ /dev/null @@ -1,43 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 262 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\Drag.al)" -# tkScrollDrag -- -# This procedure is called for each mouse motion even when the slider -# is being dragged. It notifies the associated widget if we're not -# jump scrolling, and it just updates the scrollbar if we are jump -# scrolling. -# -# Arguments: -# w - The scrollbar widget. -# x, y - The current mouse position. - -sub Drag -{ - my($w,$x,$y) = @_; - return if !defined $initPos; - my $delta = $w->delta($x-$pressX, $y-$pressY); - if ($w->cget('-jump')) - { - if (@initValues == 2) - { - $w->set($initValues[0]+$delta, $initValues[1]+$delta); - } - else - { - $delta = sprintf "%d", $delta * $initValues[0]; # round() - $initValues[2] += $delta; - $initValues[3] += $delta; - $w->set(@initValues[2,3]); - } - } - else - { - $w->ScrlToPos($initPos+$delta); - } -} - -# end of Tk::Scrollbar::Drag -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/EndDrag.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/EndDrag.al deleted file mode 100644 index 8c401b6fc31..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/EndDrag.al +++ /dev/null @@ -1,28 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 297 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\EndDrag.al)" -# tkScrollEndDrag -- -# This procedure is called to end an interactive drag of the slider. -# It scrolls the window if we're in jump mode, otherwise it does nothing. -# -# Arguments: -# w - The scrollbar widget. -# x, y - The mouse position at the end of the drag operation. - -sub EndDrag -{ - my($w,$x,$y) = @_; - return if (!defined $initPos); - if ($w->cget('-jump')) - { - my $delta = $w->delta($x-$pressX, $y-$pressY); - $w->ScrlToPos($initPos+$delta); - } - undef $initPos; -} - -# end of Tk::Scrollbar::EndDrag -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Enter.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Enter.al deleted file mode 100644 index 9584a7fa34c..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Enter.al +++ /dev/null @@ -1,21 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 86 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\Enter.al)" -sub Enter -{ - my $w = shift; - my $e = $w->XEvent; - if ($Tk::strictMotif) - { - my $bg = $w->cget('-background'); - $activeBg = $w->cget('-activebackground'); - $w->configure('-activebackground' => $bg); - } - $w->activate($w->identify($e->x,$e->y)); -} - -# end of Tk::Scrollbar::Enter -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Leave.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Leave.al deleted file mode 100644 index a6c5e89d91e..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Leave.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 99 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\Leave.al)" -sub Leave -{ - my $w = shift; - if ($Tk::strictMotif) - { - $w->configure('-activebackground' => $activeBg) if (defined $activeBg) ; - } - $w->activate(''); -} - -# end of Tk::Scrollbar::Leave -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Motion.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Motion.al deleted file mode 100644 index 46aac656c70..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Motion.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 109 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\Motion.al)" -sub Motion -{ - my $w = shift; - my $e = $w->XEvent; - $w->activate($w->identify($e->x,$e->y)); -} - -# end of Tk::Scrollbar::Motion -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ScrlByPages.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ScrlByPages.al deleted file mode 100644 index 9d4018e9128..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ScrlByPages.al +++ /dev/null @@ -1,38 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 346 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ScrlByPages.al)" -# tkScrlByPages -- -# This procedure tells the scrollbar's associated widget to scroll up -# or down by a given number of screenfuls. It notifies the associated -# widget in different ways for old and new command syntaxes. -# -# Arguments: -# w - The scrollbar widget. -# orient - Which kinds of scrollbars this applies to: "h" for -# horizontal, "v" for vertical, "hv" for both. -# amount - How many screens to scroll: typically 1 or -1. - -sub ScrlByPages -{ - my $w = shift; - my $orient = shift; - my $amount = shift; - my $cmd = $w->cget('-command'); - return unless (defined $cmd); - return if (index($orient,substr($w->cget('-orient'),0,1)) < 0); - my @info = $w->get; - if (@info == 2) - { - $cmd->Call('scroll',$amount,'pages'); - } - else - { - $cmd->Call($info[2]+$amount*($info[1]-1)); - } -} - -# end of Tk::Scrollbar::ScrlByPages -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ScrlByUnits.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ScrlByUnits.al deleted file mode 100644 index a364b3e52ce..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ScrlByUnits.al +++ /dev/null @@ -1,37 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 317 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ScrlByUnits.al)" -# tkScrlByUnits -- -# This procedure tells the scrollbar's associated widget to scroll up -# or down by a given number of units. It notifies the associated widget -# in different ways for old and new command syntaxes. -# -# Arguments: -# w - The scrollbar widget. -# orient - Which kinds of scrollbars this applies to: "h" for -# horizontal, "v" for vertical, "hv" for both. -# amount - How many units to scroll: typically 1 or -1. - -sub ScrlByUnits -{my $w = shift; - my $orient = shift; - my $amount = shift; - my $cmd = $w->cget('-command'); - return unless (defined $cmd); - return if (index($orient,substr($w->cget('-orient'),0,1)) < 0); - my @info = $w->get; - if (@info == 2) - { - $cmd->Call('scroll',$amount,'units'); - } - else - { - $cmd->Call($info[2]+$amount); - } -} - -# end of Tk::Scrollbar::ScrlByUnits -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ScrlToPos.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ScrlToPos.al deleted file mode 100644 index e277237953e..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ScrlToPos.al +++ /dev/null @@ -1,35 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 376 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ScrlToPos.al)" -# tkScrlToPos -- -# This procedure tells the scrollbar's associated widget to scroll to -# a particular location, given by a fraction between 0 and 1. It notifies -# the associated widget in different ways for old and new command syntaxes. -# -# Arguments: -# w - The scrollbar widget. -# pos - A fraction between 0 and 1 indicating a desired position -# in the document. - -sub ScrlToPos -{ - my $w = shift; - my $pos = shift; - my $cmd = $w->cget('-command'); - return unless (defined $cmd); - my @info = $w->get; - if (@info == 2) - { - $cmd->Call('moveto',$pos); - } - else - { - $cmd->Call(int($info[0]*$pos)); - } -} - -# end of Tk::Scrollbar::ScrlToPos -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ScrlTopBottom.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ScrlTopBottom.al deleted file mode 100644 index 7a00efe616f..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ScrlTopBottom.al +++ /dev/null @@ -1,32 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 403 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ScrlTopBottom.al)" -# tkScrlTopBottom -# Scroll to the top or bottom of the document, depending on the mouse -# position. -# -# Arguments: -# w - The scrollbar widget. -# x, y - Mouse coordinates within the widget. - -sub ScrlTopBottom -{ - my $w = shift; - my $e = $w->XEvent; - my $element = $w->identify($e->x,$e->y); - return unless ($element); - if ($element =~ /1$/) - { - $w->ScrlToPos(0); - } - elsif ($element =~ /2$/) - { - $w->ScrlToPos(1); - } -} - -1; -# end of Tk::Scrollbar::ScrlTopBottom diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Scrollbar.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Scrollbar.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Scrollbar.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Scrollbar.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Scrollbar.dll Binary files differdeleted file mode 100755 index e8caf25b628..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Scrollbar.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Select.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Select.al deleted file mode 100644 index 0da50da443b..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/Select.al +++ /dev/null @@ -1,59 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 181 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\Select.al)" -# tkScrollSelect -- -# This procedure is invoked when button 1 is pressed over the scrollbar. -# It invokes one of several scrolling actions depending on where in -# the scrollbar the button was pressed. -# -# Arguments: -# w - The scrollbar widget. -# element - The element of the scrollbar that was selected, such -# as "arrow1" or "trough2". Shouldn't be "slider". -# repeat - Whether and how to auto-repeat the action: "noRepeat" -# means don't auto-repeat, "initial" means this is the -# first action in an auto-repeat sequence, and "again" -# means this is the second repetition or later. - -sub Select -{ - my $w = shift; - my $element = shift; - my $repeat = shift; - return unless defined ($element); - if ($element eq 'arrow1') - { - $w->ScrlByUnits('hv',-1); - } - elsif ($element eq 'trough1') - { - $w->ScrlByPages('hv',-1); - } - elsif ($element eq 'trough2') - { - $w->ScrlByPages('hv', 1); - } - elsif ($element eq 'arrow2') - { - $w->ScrlByUnits('hv', 1); - } - else - { - return; - } - - if ($repeat eq 'again') - { - $w->RepeatId($w->after($w->cget('-repeatinterval'),['Select',$w,$element,'again'])); - } - elsif ($repeat eq 'initial') - { - $w->RepeatId($w->after($w->cget('-repeatdelay'),['Select',$w,$element,'again'])); - } -} - -# end of Tk::Scrollbar::Select -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/StartDrag.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/StartDrag.al deleted file mode 100644 index 32edbfdef24..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/StartDrag.al +++ /dev/null @@ -1,38 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 232 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\StartDrag.al)" -# tkScrollStartDrag -- -# This procedure is called to initiate a drag of the slider. It just -# remembers the starting position of the slider. -# -# Arguments: -# w - The scrollbar widget. -# x, y - The mouse position at the start of the drag operation. - -sub StartDrag -{ - my($w,$x,$y) = @_; - return unless (defined ($w->cget('-command'))); - $pressX = $x; - $pressY = $y; - @initValues = $w->get; - my $iv0 = $initValues[0]; - if (@initValues == 2) - { - $initPos = $iv0; - } - elsif ($iv0 == 0) - { - $initPos = 0; - } - else - { - $initPos = $initValues[2]/$initValues[0]; - } -} - -# end of Tk::Scrollbar::StartDrag -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/autosplit.ix deleted file mode 100644 index 293d1322dd4..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/autosplit.ix +++ /dev/null @@ -1,30 +0,0 @@ -# Index created by AutoSplit for ..\blib\lib\Tk\Scrollbar.pm -# (file acts as timestamp) -package Tk::Scrollbar; -sub Enter -; -sub Leave -; -sub Motion -; -sub ButtonDown -; -sub ButtonUp -; -sub Select -; -sub StartDrag -; -sub Drag -; -sub EndDrag -; -sub ScrlByUnits -; -sub ScrlByPages -; -sub ScrlToPos -; -sub ScrlTopBottom -; -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Selection.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Selection.al deleted file mode 100644 index 965dae3cc22..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Selection.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 718 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\Selection.al)" -# These wrappers don't use method syntax so need to live -# in same package as raw Tk routines are newXS'ed into. - -sub Selection -{my $widget = shift; - my $cmd = shift; - croak 'Use SelectionOwn/SelectionOwner' if ($cmd eq 'own'); - croak "Use Selection\u$cmd()"; -} - -# end of Tk::Selection -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/TList/TList.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/TList/TList.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/TList/TList.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/TList/TList.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/TList/TList.dll Binary files differdeleted file mode 100755 index 24c8e9ceb5a..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/TList/TList.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Table/Create.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Table/Create.al deleted file mode 100644 index 7900531ad3f..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Table/Create.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Table.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Table; - -#line 533 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\Create.al)" -sub Create -{ - my $t = shift; - my $r = shift; - my $c = shift; - my $kind = shift; - $t->put($r,$c,$t->$kind(@_)); -} - -# end of Tk::Table::Create -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Table/Posn.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Table/Posn.al deleted file mode 100644 index b625efe8212..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Table/Posn.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Table.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Table; - -#line 552 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\Posn.al)" -sub Posn -{ - my ($t,$s) = @_; - my $info = $t->{Slave}{$s->PathName}; - return (wantarray) ? @$info : $info; -} - -# end of Tk::Table::Posn -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Table/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/Tk/Table/autosplit.ix deleted file mode 100644 index 1616ae28e83..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Table/autosplit.ix +++ /dev/null @@ -1,14 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk\Table.pm -# (file acts as timestamp) -package Tk::Table; -sub Create -; -sub totalColumns -; -sub totalRows -; -sub Posn -; -sub see -; -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Table/see.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Table/see.al deleted file mode 100644 index 38841a76552..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Table/see.al +++ /dev/null @@ -1,46 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Table.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Table; - -#line 559 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\see.al)" -sub see -{ - my $t = shift; - my ($row,$col) = (@_ == 2) ? @_ : @{$t->{Slave}{$_[0]->PathName}}; - my $see = 1; - if (($row -= $t->cget('-fixedrows')) >= 0) - { - if ($row < $t->{Top}) - { - $t->{Top} = $row; - $t->QueueLayout(_ViewChange); - $see = 0; - } - elsif ($row >= $t->{Bottom}) - { - $t->{Top} += ($row - $t->{Bottom}+1); - $t->QueueLayout(_ViewChange); - $see = 0; - } - } - if (($col -= $t->cget('-fixedcolumns')) >= 0) - { - if ($col < $t->{Left}) - { - $t->{Left} = $col; - $t->QueueLayout(_ViewChange); - $see = 0; - } - elsif ($col >= $t->{Right}) - { - $t->{Left} += ($col - $t->{Right}+1); - $t->QueueLayout(_ViewChange); - $see = 0; - } - } - return $see; -} - -1; -# end of Tk::Table::see diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Table/totalColumns.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Table/totalColumns.al deleted file mode 100644 index bee111bbe80..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Table/totalColumns.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Table.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Table; - -#line 542 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\totalColumns.al)" -sub totalColumns -{ - scalar @{shift->{'Width'}}; -} - -# end of Tk::Table::totalColumns -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Table/totalRows.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Table/totalRows.al deleted file mode 100644 index 88591cc7cab..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Table/totalRows.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Table.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Table; - -#line 547 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\totalRows.al)" -sub totalRows -{ - scalar @{shift->{'Height'}}; -} - -# end of Tk::Table::totalRows -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Text/Text.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/Text/Text.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Text/Text.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Text/Text.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/Text/Text.dll Binary files differdeleted file mode 100755 index 2b0235a8221..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Text/Text.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Text/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/Tk/Text/autosplit.ix deleted file mode 100644 index 48a5455c34a..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Text/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for ..\blib\lib\Tk\Text.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/TextEdit/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/Tk/TextEdit/autosplit.ix deleted file mode 100644 index d7c2cbff9ec..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/TextEdit/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk\TextEdit.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/TextUndo/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/Tk/TextUndo/autosplit.ix deleted file mode 100644 index 3aef3c081a4..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/TextUndo/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk\TextUndo.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/TixGrid/TixGrid.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/TixGrid/TixGrid.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/TixGrid/TixGrid.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/TixGrid/TixGrid.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/TixGrid/TixGrid.dll Binary files differdeleted file mode 100755 index 7261f4fd948..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/TixGrid/TixGrid.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Tk.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/Tk.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Tk.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Tk.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/Tk.dll Binary files differdeleted file mode 100755 index 8d80944808d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Tk.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/FG_BindIn.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/FG_BindIn.al deleted file mode 100644 index 8a0a0a6c911..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/FG_BindIn.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Toplevel.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Toplevel; - -#line 128 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_BindIn.al)" -# tkFocusGroup_BindIn -- -# -# Add a widget into the "FocusIn" list of the focus group. The $cmd will be -# called when the widget is focused on by the user. -# -sub FG_BindIn { - my($t, $w, $cmd) = @_; - $t->Error("focus group \"$t\" doesn't exist") unless (exists $t->{'_fg'}); - $t->{'_FocusIn'}{$w} = Tk::Callback->new($cmd); -} - -# end of Tk::Toplevel::FG_BindIn -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/FG_BindOut.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/FG_BindOut.al deleted file mode 100644 index d7fb14d40dc..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/FG_BindOut.al +++ /dev/null @@ -1,20 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Toplevel.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Toplevel; - -#line 139 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_BindOut.al)" -# tkFocusGroup_BindOut -- -# -# Add a widget into the "FocusOut" list of the focus group. The -# $cmd will be called when the widget loses the focus (User -# types Tab or click on another widget). -# -sub FG_BindOut { - my($t, $w, $cmd) = @_; - $t->Error("focus group \"$t\" doesn't exist") unless (exists $t->{'_fg'}); - $t->{'_FocusOut'}{$w} = Tk::Callback->new($cmd); -} - -# end of Tk::Toplevel::FG_BindOut -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/FG_Create.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/FG_Create.al deleted file mode 100644 index 34bb933cfa0..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/FG_Create.al +++ /dev/null @@ -1,56 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Toplevel.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Toplevel; - -#line 80 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_Create.al)" -#---------------------------------------------------------------------- -# -# Focus Group -# -# Focus groups are used to handle the user's focusing actions inside a -# toplevel. -# -# One example of using focus groups is: when the user focuses on an -# entry, the text in the entry is highlighted and the cursor is put to -# the end of the text. When the user changes focus to another widget, -# the text in the previously focused entry is validated. -# - -#---------------------------------------------------------------------- -# tkFocusGroup_Create -- -# -# Create a focus group. All the widgets in a focus group must be -# within the same focus toplevel. Each toplevel can have only -# one focus group, which is identified by the name of the -# toplevel widget. -# -sub FG_Create { - my $t = shift; - unless (exists $t->{'_fg'}) { - $t->{'_fg'} = 1; - $t->bind('<FocusIn>', sub { - my $w = shift; - my $Ev = $w->XEvent; - $t->FG_In($w, $Ev->d); - } - ); - $t->bind('<FocusOut>', sub { - my $w = shift; - my $Ev = $w->XEvent; - $t->FG_Out($w, $Ev->d); - } - ); - $t->bind('<Destroy>', sub { - my $w = shift; - my $Ev = $w->XEvent; - $t->FG_Destroy($w); - } - ); - # <Destroy> is not sufficient to break loops if never mapped. - $t->OnDestroy([$t,'FG_Destroy']); - } -} - -# end of Tk::Toplevel::FG_Create -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/FG_Destroy.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/FG_Destroy.al deleted file mode 100644 index e0af457799f..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/FG_Destroy.al +++ /dev/null @@ -1,29 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Toplevel.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Toplevel; - -#line 151 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_Destroy.al)" -# tkFocusGroup_Destroy -- -# -# Cleans up when members of the focus group is deleted, or when the -# toplevel itself gets deleted. -# -sub FG_Destroy { - my($t, $w) = @_; - if (!defined($w) || $t == $w) { - delete $t->{'_fg'}; - delete $t->{'_focus'}; - delete $t->{'_FocusOut'}; - delete $t->{'_FocusIn'}; - } else { - if (exists $t->{'_focus'}) { - delete $t->{'_focus'} if ($t->{'_focus'} == $w); - } - delete $t->{'_FocusIn'}{$w}; - delete $t->{'_FocusOut'}{$w}; - } -} - -# end of Tk::Toplevel::FG_Destroy -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/FG_In.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/FG_In.al deleted file mode 100644 index 74cf18b9b9d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/FG_In.al +++ /dev/null @@ -1,24 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Toplevel.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Toplevel; - -#line 172 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_In.al)" -# tkFocusGroup_In -- -# -# Handles the <FocusIn> event. Calls the FocusIn command for the newly -# focused widget in the focus group. -# -sub FG_In { - my($t, $w, $detail) = @_; - if (defined $t->{'_focus'} and $t->{'_focus'} eq $w) { - # This is already in focus - return; - } else { - $t->{'_focus'} = $w; - $t->{'_FocusIn'}{$w}->Call if exists $t->{'_FocusIn'}{$w}; - } -} - -# end of Tk::Toplevel::FG_In -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/FG_Out.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/FG_Out.al deleted file mode 100644 index 9dfaffe9d2e..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/FG_Out.al +++ /dev/null @@ -1,32 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Toplevel.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Toplevel; - -#line 188 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_Out.al)" -# tkFocusGroup_Out -- -# -# Handles the <FocusOut> event. Checks if this is really a lose -# focus event, not one generated by the mouse moving out of the -# toplevel window. Calls the FocusOut command for the widget -# who loses its focus. -# -sub FG_Out { - my($t, $w, $detail) = @_; - if ($detail ne 'NotifyNonlinear' and $detail ne 'NotifyNonlinearVirtual') { - # This is caused by mouse moving out of the window - return; - } - unless (exists $t->{'_FocusOut'}{$w}) { - return; - } else { - $t->{'_FocusOut'}{$w}->Call; - delete $t->{'_focus'}; - } -} - -1; - -__END__ -1; -# end of Tk::Toplevel::FG_Out diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/autosplit.ix deleted file mode 100644 index 859b90d9a40..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Toplevel/autosplit.ix +++ /dev/null @@ -1,10 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk\Toplevel.pm -# (file acts as timestamp) -package Tk::Toplevel; -sub FG_Create ; -sub FG_BindIn ; -sub FG_BindOut ; -sub FG_Destroy ; -sub FG_In ; -sub FG_Out ; -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/TraverseToMenu.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/TraverseToMenu.al deleted file mode 100644 index 2fdfc38b631..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/TraverseToMenu.al +++ /dev/null @@ -1,27 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 687 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\TraverseToMenu.al)" -# tkTraverseToMenu -- -# This procedure implements keyboard traversal of menus. Given an -# ASCII character "char", it looks for a menubutton with that character -# underlined. If one is found, it posts the menubutton's menu -# -# Arguments: -# w - Window in which the key was typed (selects -# a toplevel window). -# char - Character that selects a menu. The case -# is ignored. If an empty string, nothing -# happens. -sub TraverseToMenu -{ - my $w = shift; - my $char = shift; - return unless(defined $char && $char ne ''); - $w = $w->toplevel->FindMenu($char); -} - -# end of Tk::TraverseToMenu -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Widget/ASkludge.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Widget/ASkludge.al deleted file mode 100644 index 1c19caf235f..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Widget/ASkludge.al +++ /dev/null @@ -1,30 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Widget.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Widget; - -#line 1438 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\ASkludge.al)" -sub ASkludge -{ - my ($hash,$sense) = @_; - foreach my $key (%$hash) - { - if ($key =~ /-.*variable/ && ref($hash->{$key}) eq 'SCALAR') - { - if ($sense) - { - my $val = ${$hash->{$key}}; - require Tie::Scalar; - tie ${$hash->{$key}},'Tie::StdScalar'; - ${$hash->{$key}} = $val; - } - else - { - untie ${$hash->{$key}}; - } - } - } -} - -# end of Tk::Widget::ASkludge -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Widget/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/Tk/Widget/autosplit.ix deleted file mode 100644 index b610773d4dc..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Widget/autosplit.ix +++ /dev/null @@ -1,11 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk\Widget.pm -# (file acts as timestamp) -package Tk::Widget; -sub bindDump ; -sub ASkludge -; -sub clipboardKeysyms -; -sub pathname -; -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Widget/bindDump.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Widget/bindDump.al deleted file mode 100644 index cafaeececde..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Widget/bindDump.al +++ /dev/null @@ -1,87 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Widget.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Widget; - -#line 1358 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\bindDump.al)" -sub bindDump { - - # Dump lots of good binding information. This pretty-print subroutine - # is, essentially, the following code in disguise: - # - # print "Binding information for $w\n"; - # foreach my $tag ($w->bindtags) { - # printf "\n Binding tag '$tag' has these bindings:\n"; - # foreach my $binding ($w->bind($tag)) { - # printf " $binding\n"; - # } - # } - - my ($w) = @_; - - my (@bindtags) = $w->bindtags; - my $digits = length( scalar @bindtags ); - my ($spc1, $spc2) = ($digits + 33, $digits + 35); - my $format1 = "%${digits}d."; - my $format2 = ' ' x ($digits + 2); - my $n = 0; - - my @out; - push @out, sprintf( "\n## Binding information for '%s', %s ##", $w->PathName, $w ); - - foreach my $tag (@bindtags) { - my (@bindings) = $w->bind($tag); - $n++; # count this bindtag - - if ($#bindings == -1) { - push @out, sprintf( "\n$format1 Binding tag '$tag' has no bindings.\n", $n ); - } else { - push @out, sprintf( "\n$format1 Binding tag '$tag' has these bindings:\n", $n ); - - foreach my $binding ( @bindings ) { - my $callback = $w->bind($tag, $binding); - push @out, sprintf( "$format2%27s : %-40s\n", $binding, $callback ); - - if ($callback =~ /SCALAR/) { - if (ref $$callback) { - push @out, sprintf( "%s %s\n", ' ' x $spc1, $$callback ); - } else { - push @out, sprintf( "%s '%s'\n", ' ' x $spc1, $$callback ); - } - } elsif ($callback =~ /ARRAY/) { - if (ref $callback->[0]) { - push @out, sprintf( "%s %s\n", ' ' x $spc1, $callback->[0], "\n" ); - } else { - push @out, sprintf( "%s '%s'\n", ' ' x $spc1, $callback->[0], "\n" ); - } - foreach my $arg (@$callback[1 .. $#{@$callback}]) { - if (ref $arg) { - push @out, sprintf( "%s %-40s", ' ' x $spc2, $arg ); - } else { - push @out, sprintf( "%s '%s'", ' ' x $spc2, $arg ); - } - - if (ref $arg eq 'Tk::Ev') { - if ($arg =~ /SCALAR/) { - push @out, sprintf( ": '$$arg'" ); - } else { - push @out, sprintf( ": '%s'", join("' '", @$arg) ); - } - } - - push @out, sprintf( "\n" ); - } # forend callback arguments - } # ifend callback - - } # forend all bindings for one tag - - } # ifend have bindings - - } # forend all tags - push @out, sprintf( "\n" ); - return @out; - -} # end bindDump - -# end of Tk::Widget::bindDump -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Widget/clipboardKeysyms.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Widget/clipboardKeysyms.al deleted file mode 100644 index a5e488a7053..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Widget/clipboardKeysyms.al +++ /dev/null @@ -1,51 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Widget.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Widget; - -#line 1462 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\clipboardKeysyms.al)" -# clipboardKeysyms -- -# This procedure is invoked to identify the keys that correspond to -# the "copy", "cut", and "paste" functions for the clipboard. -# -# Arguments: -# copy - Name of the key (keysym name plus modifiers, if any, -# such as "Meta-y") used for the copy operation. -# cut - Name of the key used for the cut operation. -# paste - Name of the key used for the paste operation. -# -# This method is obsolete use clipboardOperations and abstract -# event types instead. See Clipboard.pm and Mainwindow.pm - -sub clipboardKeysyms -{ - my @class = (); - my $mw = shift; - if (ref $mw) - { - $mw = $mw->DelegateFor('bind'); - } - else - { - push(@class,$mw); - $mw = shift; - } - if (@_) - { - my $copy = shift; - $mw->Tk::bind(@class,"<$copy>",'clipboardCopy') if (defined $copy); - } - if (@_) - { - my $cut = shift; - $mw->Tk::bind(@class,"<$cut>",'clipboardCut') if (defined $cut); - } - if (@_) - { - my $paste = shift; - $mw->Tk::bind(@class,"<$paste>",'clipboardPaste') if (defined $paste); - } -} - -# end of Tk::Widget::clipboardKeysyms -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Widget/pathname.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Widget/pathname.al deleted file mode 100644 index 9b725dc26d0..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Widget/pathname.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Widget.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Widget; - -#line 1505 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\pathname.al)" -sub pathname -{ - my ($w,$id) = @_; - my $x = $w->winfo('pathname',-displayof => oct($id)); - return $x->PathName; -} - -1; -# end of Tk::Widget::pathname diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Wm/AnchorAdjust.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Wm/AnchorAdjust.al deleted file mode 100644 index 538612878ed..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Wm/AnchorAdjust.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Wm.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Wm; - -#line 87 "blib\lib\Tk\Wm.pm (autosplit into blib\lib\auto\Tk\Wm\AnchorAdjust.al)" -sub AnchorAdjust -{ - my ($anchor,$X,$Y,$w,$h) = @_; - $anchor = 'c' unless (defined $anchor); - $Y += ($anchor =~ /s/) ? $h : ($anchor =~ /n/) ? 0 : $h/2; - $X += ($anchor =~ /e/) ? $w : ($anchor =~ /w/) ? 0 : $w/2; - return ($X,$Y); -} - -# end of Tk::Wm::AnchorAdjust -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Wm/FullScreen.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Wm/FullScreen.al deleted file mode 100644 index 4d5702cc60d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Wm/FullScreen.al +++ /dev/null @@ -1,29 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Wm.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Wm; - -#line 138 "blib\lib\Tk\Wm.pm (autosplit into blib\lib\auto\Tk\Wm\FullScreen.al)" -sub FullScreen -{ - my $w = shift; - my $over = (@_) ? shift : 0; - my $width = $w->screenwidth; - my $height = $w->screenheight; - $w->GeometryRequest($width,$height); - $w->overrideredirect($over & 1); - $w->Post(0,0); - $w->update; - if ($over & 2) - { - my $x = $w->rootx; - my $y = $w->rooty; - $width -= 2*$x; - $height -= $x + $y; - $w->GeometryRequest($width,$height); - $w->update; - } -} - -# end of Tk::Wm::FullScreen -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Wm/Popup.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Wm/Popup.al deleted file mode 100644 index 3f460c5bac6..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Wm/Popup.al +++ /dev/null @@ -1,50 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Wm.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Wm; - -#line 96 "blib\lib\Tk\Wm.pm (autosplit into blib\lib\auto\Tk\Wm\Popup.al)" -sub Popup -{ - my $w = shift; - $w->configure(@_) if @_; - $w->idletasks; - my ($mw,$mh) = ($w->reqwidth,$w->reqheight); - my ($rx,$ry,$rw,$rh) = (0,0,0,0); - my $base = $w->cget('-popover'); - my $outside = 0; - if (defined $base) - { - if ($base eq 'cursor') - { - ($rx,$ry) = $w->pointerxy; - } - else - { - $rx = $base->rootx; - $ry = $base->rooty; - $rw = $base->Width; - $rh = $base->Height; - } - } - else - { - my $sc = ($w->parent) ? $w->parent->toplevel : $w; - $rx = -$sc->vrootx; - $ry = -$sc->vrooty; - $rw = $w->screenwidth; - $rh = $w->screenheight; - } - my ($X,$Y) = AnchorAdjust($w->cget('-overanchor'),$rx,$ry,$rw,$rh); - ($X,$Y) = AnchorAdjust($w->cget('-popanchor'),$X,$Y,-$mw,-$mh); - # adjust to not cross screen borders - if ($X < 0) { $X = 0 } - if ($Y < 0) { $Y = 0 } - if ($mw > $w->screenwidth) { $X = 0 } - if ($mh > $w->screenheight) { $Y = 0 } - $w->Post($X,$Y); - $w->waitVisibility; -} - -# end of Tk::Wm::Popup -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Wm/Post.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Wm/Post.al deleted file mode 100644 index f3f5c8e3e08..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Wm/Post.al +++ /dev/null @@ -1,20 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Wm.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Wm; - -#line 75 "blib\lib\Tk\Wm.pm (autosplit into blib\lib\auto\Tk\Wm\Post.al)" -sub Post -{ - my ($w,$X,$Y) = @_; - $X = int($X); - $Y = int($Y); - $w->positionfrom('user'); - $w->geometry("+$X+$Y"); - # $w->MoveToplevelWindow($X,$Y); - $w->deiconify; - $w->raise; -} - -# end of Tk::Wm::Post -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Wm/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/Tk/Wm/autosplit.ix deleted file mode 100644 index 201dbe8ba99..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Wm/autosplit.ix +++ /dev/null @@ -1,14 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk\Wm.pm -# (file acts as timestamp) -package Tk::Wm; -sub Post -; -sub AnchorAdjust -; -sub Popup -; -sub FullScreen -; -sub iconposition -; -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Wm/iconposition.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Wm/iconposition.al deleted file mode 100644 index 9254968f61c..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Wm/iconposition.al +++ /dev/null @@ -1,24 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Wm.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Wm; - -#line 159 "blib\lib\Tk\Wm.pm (autosplit into blib\lib\auto\Tk\Wm\iconposition.al)" -sub iconposition -{ - my $w = shift; - if (@_ == 1) - { - return $w->wm('iconposition',$1,$2) if $_[0] =~ /^(\d+),(\d+)$/; - if ($_[0] =~ /^([+-])(\d+)([+-])(\d+)$/) - { - my $x = ($1 eq '-') ? $w->screenwidth-$2 : $2; - my $y = ($3 eq '-') ? $w->screenheight-$4 : $4; - return $w->wm('iconposition',$x,$y); - } - } - $w->wm('iconposition',@_); -} - -1; -# end of Tk::Wm::iconposition diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/X/X.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/X/X.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/X/X.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/X/X.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/X/X.dll Binary files differdeleted file mode 100755 index cbddac849e0..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/X/X.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/X/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/Tk/X/autosplit.ix deleted file mode 100644 index e63dbf19b00..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/X/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for ..\..\blib\lib\Tk\X.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Xlib/Xlib.bs b/Master/tlpkg/tlperl.old/lib/auto/Tk/Xlib/Xlib.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Xlib/Xlib.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Xlib/Xlib.dll b/Master/tlpkg/tlperl.old/lib/auto/Tk/Xlib/Xlib.dll Binary files differdeleted file mode 100755 index aa4ebe56447..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Xlib/Xlib.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/Tk/autosplit.ix deleted file mode 100644 index 7bd25b78a9a..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/autosplit.ix +++ /dev/null @@ -1,45 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk.pm -# (file acts as timestamp) -package Tk; -sub Error -; -sub CancelRepeat -; -sub RepeatId -; -sub FocusChildren ; -sub focusNext -; -sub focusPrev -; -sub FocusOK -; -sub EnterFocus -; -sub tabFocus -; -sub focusFollowsMouse -; -sub TraverseToMenu -; -sub FirstMenu -; -sub Selection -; -sub Receive -; -sub break -; -sub updateWidgets -; -sub ImageNames -; -sub ImageTypes -; -sub interps -; -sub lsearch -; -sub getEncoding -; -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/break.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/break.al deleted file mode 100644 index 98ff783f190..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/break.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 743 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\break.al)" -sub break -{ - die "_TK_BREAK_\n"; -} - -# end of Tk::break -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/focusFollowsMouse.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/focusFollowsMouse.al deleted file mode 100644 index 4a26198d323..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/focusFollowsMouse.al +++ /dev/null @@ -1,14 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 681 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\focusFollowsMouse.al)" -sub focusFollowsMouse -{ - my $widget = shift; - $widget->bind('all','<Enter>','EnterFocus'); -} - -# end of Tk::focusFollowsMouse -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/focusNext.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/focusNext.al deleted file mode 100644 index 18eece41cd6..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/focusNext.al +++ /dev/null @@ -1,45 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 535 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\focusNext.al)" -sub focusNext -{ - my $w = shift; - my $cur = $w; - while (1) - { - # Descend to just before the first child of the current widget. - my $parent = $cur; - my @children = $cur->FocusChildren(); - my $i = -1; - # Look for the next sibling that isn't a top-level. - while (1) - { - $i += 1; - if ($i < @children) - { - $cur = $children[$i]; - next if ($cur->toplevel == $cur); - last - } - # No more siblings, so go to the current widget's parent. - # If it's a top-level, break out of the loop, otherwise - # look for its next sibling. - $cur = $parent; - last if ($cur->toplevel() == $cur); - $parent = $parent->parent(); - @children = $parent->FocusChildren(); - $i = lsearch(\@children,$cur); - } - if ($cur == $w || $cur->FocusOK) - { - $cur->tabFocus; - return; - } - } -} - -# end of Tk::focusNext -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/focusPrev.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/focusPrev.al deleted file mode 100644 index 340feab598f..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/focusPrev.al +++ /dev/null @@ -1,65 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 571 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\focusPrev.al)" -# focusPrev -- -# This procedure is invoked to move the input focus to the previous -# window before a given one. "Previous" is defined in terms of the -# window stacking order, with all the windows underneath a given -# top-level (no matter how deeply nested in the hierarchy) considered. -# -# Arguments: -# w - Name of a window: the procedure will set the focus -# to the previous window before this one in the traversal -# order. -sub focusPrev -{ - my $w = shift; - my $cur = $w; - my @children; - my $i; - my $parent; - while (1) - { - # Collect information about the current window's position - # among its siblings. Also, if the window is a top-level, - # then reposition to just after the last child of the window. - if ($cur->toplevel() == $cur) - { - $parent = $cur; - @children = $cur->FocusChildren(); - $i = @children; - } - else - { - $parent = $cur->parent(); - @children = $parent->FocusChildren(); - $i = lsearch(\@children,$cur); - } - # Go to the previous sibling, then descend to its last descendant - # (highest in stacking order. While doing this, ignore top-levels - # and their descendants. When we run out of descendants, go up - # one level to the parent. - while ($i > 0) - { - $i--; - $cur = $children[$i]; - next if ($cur->toplevel() == $cur); - $parent = $cur; - @children = $parent->FocusChildren(); - $i = @children; - } - $cur = $parent; - if ($cur == $w || $cur->FocusOK) - { - $cur->tabFocus; - return; - } - } - -} - -# end of Tk::focusPrev -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/getEncoding.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/getEncoding.al deleted file mode 100644 index b9e230edbf1..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/getEncoding.al +++ /dev/null @@ -1,43 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 785 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\getEncoding.al)" -sub getEncoding -{ - my ($class,$name) = @_; - eval { require Encode }; - if ($@) - { - require Tk::DummyEncode; - return Tk::DummyEncode->getEncoding($name); - } - $name = $Tk::font_encoding{$name} if exists $Tk::font_encoding{$name}; - my $enc = Encode::find_encoding($name); - - unless ($enc) - { - $enc = Encode::find_encoding($name) if ($name =~ s/[-_]\d+$//) - } -# if ($enc) -# { -# print STDERR "Lookup '$name' => ".$enc->name."\n"; -# } -# else -# { -# print STDERR "Failed '$name'\n"; -# } - unless ($enc) - { - if ($name eq 'X11ControlChars') - { - require Tk::DummyEncode; - $Encode::encoding{$name} = $enc = Tk::DummyEncode->getEncoding($name); - } - } - return $enc; -} - -1; -# end of Tk::getEncoding diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/interps.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/interps.al deleted file mode 100644 index 9298fe95b5c..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/interps.al +++ /dev/null @@ -1,14 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 767 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\interps.al)" -sub interps -{ - my $w = shift; - return $w->winfo('interps','-displayof'); -} - -# end of Tk::interps -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/lsearch.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/lsearch.al deleted file mode 100644 index 7fa5d5839de..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/lsearch.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 773 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\lsearch.al)" -sub lsearch -{my $ar = shift; - my $x = shift; - my $i; - for ($i = 0; $i < scalar @$ar; $i++) - { - return $i if ($$ar[$i] eq $x); - } - return -1; -} - -# end of Tk::lsearch -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/pTk/extralibs.ld b/Master/tlpkg/tlperl.old/lib/auto/Tk/pTk/extralibs.ld deleted file mode 100644 index 9f42bd72dec..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/pTk/extralibs.ld +++ /dev/null @@ -1 +0,0 @@ -x:\msys\mingw\lib\libcomdlg32.a x:\msys\mingw\lib\libgdi32.a x:\msys\mingw\lib\libmsvcrt.a x:\msys\mingw\lib\libmoldname.a x:\msys\mingw\lib\libkernel32.a x:\msys\mingw\lib\libuser32.a x:\msys\mingw\lib\libgdi32.a x:\msys\mingw\lib\libwinspool.a x:\msys\mingw\lib\libcomdlg32.a x:\msys\mingw\lib\libadvapi32.a x:\msys\mingw\lib\libshell32.a x:\msys\mingw\lib\libole32.a x:\msys\mingw\lib\liboleaut32.a x:\msys\mingw\lib\libnetapi32.a x:\msys\mingw\lib\libuuid.a x:\msys\mingw\lib\libws2_32.a x:\msys\mingw\lib\libmpr.a x:\msys\mingw\lib\libwinmm.a x:\msys\mingw\lib\libversion.a x:\msys\mingw\lib\libodbc32.a x:\msys\mingw\lib\libodbccp32.a diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/tabFocus.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/tabFocus.al deleted file mode 100644 index 7a4ffdf80f0..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/tabFocus.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 676 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\tabFocus.al)" -sub tabFocus -{ - shift->Tk::focus; -} - -# end of Tk::tabFocus -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/updateWidgets.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/updateWidgets.al deleted file mode 100644 index 5b1bf866ead..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/updateWidgets.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 748 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\updateWidgets.al)" -sub updateWidgets -{ - my ($w) = @_; - while ($w->DoOneEvent(DONT_WAIT|IDLE_EVENTS|WINDOW_EVENTS)) - { - } - $w; -} - -# end of Tk::updateWidgets -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/API/API.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/API/API.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/API/API.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/API/API.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/API/API.dll Binary files differdeleted file mode 100755 index 3a7efc0adca..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/API/API.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/API/Callback/Callback.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/API/Callback/Callback.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/API/Callback/Callback.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/API/Callback/Callback.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/API/Callback/Callback.dll Binary files differdeleted file mode 100755 index 147c679d576..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/API/Callback/Callback.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/ChangeNotify/ChangeNotify.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/ChangeNotify/ChangeNotify.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/ChangeNotify/ChangeNotify.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/ChangeNotify/ChangeNotify.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/ChangeNotify/ChangeNotify.dll Binary files differdeleted file mode 100755 index d2aea9dad9b..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/ChangeNotify/ChangeNotify.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Clipboard/Clipboard.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/Clipboard/Clipboard.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Clipboard/Clipboard.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Clipboard/Clipboard.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/Clipboard/Clipboard.dll Binary files differdeleted file mode 100755 index d278ab5a424..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Clipboard/Clipboard.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Console/Console.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/Console/Console.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Console/Console.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Console/Console.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/Console/Console.dll Binary files differdeleted file mode 100755 index 1063d12ed68..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Console/Console.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Event/Event.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/Event/Event.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Event/Event.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Event/Event.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/Event/Event.dll Binary files differdeleted file mode 100755 index 60b2bebca01..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Event/Event.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/EventLog/EventLog.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/EventLog/EventLog.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/EventLog/EventLog.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/EventLog/EventLog.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/EventLog/EventLog.dll Binary files differdeleted file mode 100755 index 61e6c54c3ef..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/EventLog/EventLog.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/File/File.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/File/File.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/File/File.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/File/File.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/File/File.dll Binary files differdeleted file mode 100755 index 70f4a8f8849..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/File/File.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/FileSecurity/FileSecurity.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/FileSecurity/FileSecurity.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/FileSecurity/FileSecurity.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/FileSecurity/FileSecurity.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/FileSecurity/FileSecurity.dll Binary files differdeleted file mode 100755 index 402775123a1..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/FileSecurity/FileSecurity.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/IPC/IPC.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/IPC/IPC.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/IPC/IPC.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/IPC/IPC.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/IPC/IPC.dll Binary files differdeleted file mode 100755 index e12f04c7c0a..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/IPC/IPC.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Internet/Internet.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/Internet/Internet.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Internet/Internet.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Internet/Internet.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/Internet/Internet.dll Binary files differdeleted file mode 100755 index ae5b15e9cd3..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Internet/Internet.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Job/Job.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/Job/Job.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Job/Job.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Job/Job.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/Job/Job.dll Binary files differdeleted file mode 100755 index 46db0b6a335..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Job/Job.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Mutex/Mutex.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/Mutex/Mutex.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Mutex/Mutex.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Mutex/Mutex.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/Mutex/Mutex.dll Binary files differdeleted file mode 100755 index db311a4b229..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Mutex/Mutex.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/NetAdmin/NetAdmin.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/NetAdmin/NetAdmin.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/NetAdmin/NetAdmin.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/NetAdmin/NetAdmin.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/NetAdmin/NetAdmin.dll Binary files differdeleted file mode 100755 index c9c353b1624..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/NetAdmin/NetAdmin.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/NetResource/NetResource.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/NetResource/NetResource.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/NetResource/NetResource.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/NetResource/NetResource.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/NetResource/NetResource.dll Binary files differdeleted file mode 100755 index e28382b65b9..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/NetResource/NetResource.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/NetResource/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/Win32/NetResource/autosplit.ix deleted file mode 100644 index 5a940127951..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/NetResource/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for ..\blib\lib\Win32\NetResource.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/ODBC/ODBC.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/ODBC/ODBC.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/ODBC/ODBC.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/ODBC/ODBC.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/ODBC/ODBC.dll Binary files differdeleted file mode 100755 index c3a55ff68f4..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/ODBC/ODBC.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/OLE/OLE.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/OLE/OLE.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/OLE/OLE.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/OLE/OLE.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/OLE/OLE.dll Binary files differdeleted file mode 100755 index a8bb4eb0097..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/OLE/OLE.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/PerfLib/PerfLib.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/PerfLib/PerfLib.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/PerfLib/PerfLib.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/PerfLib/PerfLib.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/PerfLib/PerfLib.dll Binary files differdeleted file mode 100755 index c0aa61962ae..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/PerfLib/PerfLib.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/PerfLib/autosplit.ix b/Master/tlpkg/tlperl.old/lib/auto/Win32/PerfLib/autosplit.ix deleted file mode 100644 index e8fc6693cb5..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/PerfLib/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for ..\blib\lib\Win32\PerfLib.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Pipe/Pipe.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/Pipe/Pipe.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Pipe/Pipe.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Pipe/Pipe.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/Pipe/Pipe.dll Binary files differdeleted file mode 100755 index d6db3893029..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Pipe/Pipe.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Process/Process.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/Process/Process.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Process/Process.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Process/Process.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/Process/Process.dll Binary files differdeleted file mode 100755 index d5d417912da..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Process/Process.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Registry/Registry.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/Registry/Registry.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Registry/Registry.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Registry/Registry.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/Registry/Registry.dll Binary files differdeleted file mode 100755 index b1dfb36fd34..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Registry/Registry.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Semaphore/Semaphore.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/Semaphore/Semaphore.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Semaphore/Semaphore.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Semaphore/Semaphore.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/Semaphore/Semaphore.dll Binary files differdeleted file mode 100755 index 3ab2f6f4850..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Semaphore/Semaphore.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Service/Service.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/Service/Service.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Service/Service.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Service/Service.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/Service/Service.dll Binary files differdeleted file mode 100755 index 7a6be008842..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Service/Service.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Shortcut/Shortcut.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/Shortcut/Shortcut.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Shortcut/Shortcut.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Shortcut/Shortcut.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/Shortcut/Shortcut.dll Binary files differdeleted file mode 100755 index 17889059886..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Shortcut/Shortcut.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Sound/Sound.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/Sound/Sound.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Sound/Sound.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Sound/Sound.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/Sound/Sound.dll Binary files differdeleted file mode 100755 index 6dd86ff29f8..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Sound/Sound.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Win32.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/Win32.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Win32.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/Win32.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/Win32.dll Binary files differdeleted file mode 100755 index ad5bc6b0082..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/Win32.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/WinError/WinError.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32/WinError/WinError.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/WinError/WinError.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32/WinError/WinError.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32/WinError/WinError.dll Binary files differdeleted file mode 100755 index d63300a7405..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32/WinError/WinError.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32API/Registry/Registry.bs b/Master/tlpkg/tlperl.old/lib/auto/Win32API/Registry/Registry.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32API/Registry/Registry.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/Win32API/Registry/Registry.dll b/Master/tlpkg/tlperl.old/lib/auto/Win32API/Registry/Registry.dll Binary files differdeleted file mode 100755 index 45b7bc0688a..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Win32API/Registry/Registry.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/re/re.bs b/Master/tlpkg/tlperl.old/lib/auto/re/re.bs deleted file mode 100644 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/re/re.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl.old/lib/auto/re/re.dll b/Master/tlpkg/tlperl.old/lib/auto/re/re.dll Binary files differdeleted file mode 100755 index d2c1852db63..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/re/re.dll +++ /dev/null |