windows binaries

git-svn-id: svn://tug.org/texlive/trunk@69819 c570f23f-e606-0410-a88d-b1316a301751

21 files changed, 119 insertions, 2 deletions

diff --git a/Master/bin/windows/chkdvifont.exe b/Master/bin/windows/chkdvifont.exe
index eabc20aeafd..26391a2cfbf 100755
--- a/Master/bin/windows/chkdvifont.exe
+++ b/Master/bin/windows/chkdvifont.exe
diff --git a/Master/bin/windows/ctwill-proofsort.pl b/Master/bin/windows/ctwill-proofsort.pl
index 9dc8d9d9cc7..a6f08325af9 100644
--- a/Master/bin/windows/ctwill-proofsort.pl
+++ b/Master/bin/windows/ctwill-proofsort.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/env perl
-# $Id$
+# $Id: ctwill-proofsort 68690 2023-10-29 13:15:04Z ascherer $
 # Public domain.  Originally written by Andreas Scherer, 2023.
 
 use strict;
@@ -39,7 +39,7 @@ sub help_handler {
 }
 ## version()
 sub version {
-  return $progname.' $Revision$ $Date$'."\n";
+  return $progname.' $Revision: 68690 $ $Date: 2023-10-29 22:15:04 +0900 (日, 29 10 2023) $'."\n";
 }
 
 # Read input from the console and look for blocks like
diff --git a/Master/bin/windows/disdvi.exe b/Master/bin/windows/disdvi.exe
index 7105360d866..4db46c6586e 100755
--- a/Master/bin/windows/disdvi.exe
+++ b/Master/bin/windows/disdvi.exe
diff --git a/Master/bin/windows/dvi2tty.exe b/Master/bin/windows/dvi2tty.exe
index 7a6a5a7b6a2..343682b6e59 100755
--- a/Master/bin/windows/dvi2tty.exe
+++ b/Master/bin/windows/dvi2tty.exe
diff --git a/Master/bin/windows/dvispc.exe b/Master/bin/windows/dvispc.exe
index 77944c55006..6e6af2d7853 100755
--- a/Master/bin/windows/dvispc.exe
+++ b/Master/bin/windows/dvispc.exe
diff --git a/Master/bin/windows/euptex.dll b/Master/bin/windows/euptex.dll
index b1363a5db9f..e5b75f1978b 100755
--- a/Master/bin/windows/euptex.dll
+++ b/Master/bin/windows/euptex.dll
diff --git a/Master/bin/windows/makejvf.exe b/Master/bin/windows/makejvf.exe
index 68eac102aef..1c5946464e2 100755
--- a/Master/bin/windows/makejvf.exe
+++ b/Master/bin/windows/makejvf.exe
diff --git a/Master/bin/windows/mendex.exe b/Master/bin/windows/mendex.exe
index 7e2cafd5a8b..2f4b1c02c84 100755
--- a/Master/bin/windows/mendex.exe
+++ b/Master/bin/windows/mendex.exe
diff --git a/Master/bin/windows/pbibtex.exe b/Master/bin/windows/pbibtex.exe
index ea03ea1251b..987159020e7 100755
--- a/Master/bin/windows/pbibtex.exe
+++ b/Master/bin/windows/pbibtex.exe
diff --git a/Master/bin/windows/pdvitype.exe b/Master/bin/windows/pdvitype.exe
index c4bce9f5877..ab1cecf25fb 100755
--- a/Master/bin/windows/pdvitype.exe
+++ b/Master/bin/windows/pdvitype.exe
diff --git a/Master/bin/windows/pmpost.dll b/Master/bin/windows/pmpost.dll
index d90563e3a2b..764b2b98bb4 100755
--- a/Master/bin/windows/pmpost.dll
+++ b/Master/bin/windows/pmpost.dll
diff --git a/Master/bin/windows/ppltotf.exe b/Master/bin/windows/ppltotf.exe
index 30de6d51bdf..9a01451f7aa 100755
--- a/Master/bin/windows/ppltotf.exe
+++ b/Master/bin/windows/ppltotf.exe
diff --git a/Master/bin/windows/ptekf.exe b/Master/bin/windows/ptekf.exe
index 195fc73ee2a..743233487c4 100755
--- a/Master/bin/windows/ptekf.exe
+++ b/Master/bin/windows/ptekf.exe
diff --git a/Master/bin/windows/ptftopl.exe b/Master/bin/windows/ptftopl.exe
index f687e8b66bf..ee1e9c6b593 100755
--- a/Master/bin/windows/ptftopl.exe
+++ b/Master/bin/windows/ptftopl.exe
diff --git a/Master/bin/windows/twill-refsort.exe b/Master/bin/windows/twill-refsort.exe
new file mode 100755
index 00000000000..3332231b08c
--- /dev/null
+++ b/Master/bin/windows/twill-refsort.exe
diff --git a/Master/bin/windows/twill-refsort.pl b/Master/bin/windows/twill-refsort.pl
new file mode 100644
index 00000000000..7cf61fa511e
--- /dev/null
+++ b/Master/bin/windows/twill-refsort.pl
@@ -0,0 +1,117 @@
+#!/usr/bin/env perl
+# $Id: twill-refsort 69812 2024-02-11 23:09:24Z karl $
+# Public domain.  Originally written by Andreas Scherer, 2023.
+
+use strict;
+use warnings;
+
+use File::Basename;
+use Getopt::Long qw(:config no_ignore_case bundling);
+use Pod::Usage;
+
+my $progname;
+my $collator;
+
+BEGIN {
+  $progname = basename $0;
+  # Unicode::Collate has been around a long time,
+  # but it's not part of core Perl.
+  eval {
+    require Unicode::Collate;
+    $collator = Unicode::Collate->new();
+  };
+}
+
+my $usage = "Usage: $progname < foo.ref > foo.sref\n";
+
+# Standard options for TeX Live.
+Getopt::Long::GetOptions(
+  'help|?'  => \&help_handler,
+  'version' => sub { print version(); exit 0; }
+) or die $usage;
+## help_handler()
+sub help_handler {
+  open(my $pipe, '|-', $ENV{PAGER} || 'less -e') or exit 1;
+  pod2usage(-message => version(), -output => $pipe,
+    -verbose => 99, -sections => "SHORT DESCRIPTION|COPYRIGHT");
+  close $pipe;
+  exit 0;
+}
+## version()
+sub version {
+  return $progname.' $Revision: 69812 $ $Date: 2024-02-12 08:09:24 +0900 (月, 12 2 2024) $'."\n";
+}
+
+# Read input lines from the console and look for blocks like
+# !127
+# [+ KEY LOCATION TEXPART]*
+# and sort them alphabetically by the KEYs.
+#
+# Every KEY consists of a single PASCAL identifier (variable, type, function,
+# etc.) after an initial '+ ' marker. This marker is replaced with the '\['
+# macro (i.e., '\makeref') to help TeX format the mini-index.
+#
+# The page number in the '!\d+' indicator is appended as argument of the
+# '\donewithpage' macro.
+my %mini_index; # storage for index entries of a two-page spread
+my $donewithpage; # recto page number of a two-page spread
+foreach my $line (<STDIN>)
+{
+  if ($line =~ m/\!(\d+)/) { # start of a new two-page spread
+    if ($donewithpage) { # skip over first indicator line
+      foreach my $key ($collator ?
+        $collator->sort(keys %mini_index) :
+        sort {"\L$a" cmp "\L$b"} keys %mini_index) {
+        print $mini_index{$key};
+      }
+      %mini_index = (); # reset mini-index storage
+      print "\\donewithpage$donewithpage\n"; # done with current spread
+    }
+    $donewithpage = $1; # start of next spread
+  } else { # mini-index entry
+    my (undef,$key) = split / /, $line; # 2nd column is the key
+    $line =~ s/^\+ /\\\[/; # add \makeref macro
+    $mini_index{$key} = $line; # store index entry
+    next; # print later
+  }
+}
+
+print "\\donewithpage$donewithpage\n"; # done with current spread
+
+exit 0;
+
+=pod
+
+=encoding utf8
+
+=head1 NAME
+
+twill-refsort - Sort mini-indexes alphabetically
+
+=head1 SHORT DESCRIPTION
+
+This small Perl script 'twill-refsort' sorts the mini-indexes for each section
+in the '.ref' file created by 'twill foo' (twice) and 'tex foo' (first run).
+It reads its input from STDIN and writes its output to STDOUT.
+
+=over
+
+=item Run TWILL twice on your 'foo'.w, creating 'foo'.tex
+
+=item Invoke "tex 'foo'.tex", creating 'foo'.ref
+
+=item Invoke "twill-refsort < 'foo'.ref > 'foo'.sref"
+
+=item Run TeX on 'foo'.tex a second time
+
+=back
+
+See also "man twill" for more information on how to use the TWILL system.
+
+=head1 COPYRIGHT
+
+Public domain.  Originally written by Andreas Scherer, 2023.
+
+Contemporary development on https://github.com/ascherer/cwebbin.
+
+=cut
diff --git a/Master/bin/windows/upbibtex.exe b/Master/bin/windows/upbibtex.exe
index ea03ea1251b..987159020e7 100755
--- a/Master/bin/windows/upbibtex.exe
+++ b/Master/bin/windows/upbibtex.exe
diff --git a/Master/bin/windows/updvitype.exe b/Master/bin/windows/updvitype.exe
index c4bce9f5877..ab1cecf25fb 100755
--- a/Master/bin/windows/updvitype.exe
+++ b/Master/bin/windows/updvitype.exe
diff --git a/Master/bin/windows/upmpost.dll b/Master/bin/windows/upmpost.dll
index 54b88ed2411..bf3a809923e 100755
--- a/Master/bin/windows/upmpost.dll
+++ b/Master/bin/windows/upmpost.dll
diff --git a/Master/bin/windows/uppltotf.exe b/Master/bin/windows/uppltotf.exe
index 30de6d51bdf..9a01451f7aa 100755
--- a/Master/bin/windows/uppltotf.exe
+++ b/Master/bin/windows/uppltotf.exe
diff --git a/Master/bin/windows/uptftopl.exe b/Master/bin/windows/uptftopl.exe
index f687e8b66bf..ee1e9c6b593 100755
--- a/Master/bin/windows/uptftopl.exe
+++ b/Master/bin/windows/uptftopl.exe