move runtime tetex/ scripts to texlive/ , etc.

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

24 files changed, 532 insertions, 0 deletions

diff --git a/Master/texmf-dist/scripts/chktex/chkweb.sh b/Master/texmf-dist/scripts/chktex/chkweb.sh
new file mode 100755
index 00000000000..8d6361d1097
--- /dev/null
+++ b/Master/texmf-dist/scripts/chktex/chkweb.sh
@@ -0,0 +1,56 @@
+#! /bin/sh
+
+#  ChkWEB v1.0, runs the LaTeX parts of a CWEB file through ChkTeX.
+#  Copyright (C) 1996 Jens T. Berger Thielemann
+#
+#  This program is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License, or
+#  (at your option) any later version.
+#
+#  This program is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#  You should have received a copy of the GNU General Public License
+#  along with this program; if not, write to the Free Software
+#  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+#
+#  Contact the author at:
+#		Jens Berger
+#		Spektrumvn. 4
+#		N-0666 Oslo
+#		Norway
+#		E-mail: <jensthi@ifi.uio.no>
+
+
+params=
+
+for p
+do
+    case $p in
+    --) break
+	;;
+    -*) params="$params $p"
+	shift
+	;;
+    *) break
+	;;
+    esac
+done
+
+
+if test "$1" = ""; then
+    deweb | chktex -v3 $params
+else
+    for file
+    do
+	if test -f $file; then
+	    deweb $file | chktex -p $file -v3 $params
+	else
+	    deweb $file.w | chktex -p $file.w -v3 $params
+	fi
+    done
+fi
+
diff --git a/Master/texmf-dist/scripts/psutils/getafm.sh b/Master/texmf-dist/scripts/psutils/getafm.sh
new file mode 100755
index 00000000000..1c6cd21cf77
--- /dev/null
+++ b/Master/texmf-dist/scripts/psutils/getafm.sh
@@ -0,0 +1,358 @@
+#!/bin/sh
+
+if [ $# -ne 1 ]; then
+  echo "usage: $0 font-name | gsnd - >font-name.afm" >&2
+  exit 1
+fi
+
+cat << EOF
+%!
+% produce .afm for $1
+% (c) 1993 by Robert Joop <rj@rainbow.in-berlin.de>
+% inspired by two other versions of this theme which are
+%	getafm 1.00 (c) AJCD
+% and getafm.ps by an unknown author,
+%	modified by J. Daniel Smith <dsmith@mailhost.aa.cad.slb.com>
+
+% Metrics dictionary code added by AJCD, 7/6/93
+
+/getafmdict 100 dict dup begin
+
+  /buf 256 string def
+  /buf2 16 string def
+
+  /prany	% dict dictname printname -> dict
+  {
+    2 index 2 index cvn known
+    {
+      print % printname
+      ( ) print
+      1 index exch cvn get =
+    }
+    {
+      (Comment /FontInfo contains no /) print
+      2 copy eq
+      {
+        = % printname
+	pop % dictname
+      }
+      {
+	exch
+	print % dictname
+	(, therefore no ) print
+	= % printname
+      }
+      ifelse
+    }
+    ifelse
+  }
+  bind def
+
+  /printfontname
+  {
+    (FontName)dup prany
+  }
+  bind def
+
+  /printfontinfo
+  {
+    dup /FontInfo known
+    {
+      dup /FontInfo get
+	(FullName)dup prany
+	(FamilyName)dup prany
+	(Weight)dup prany
+	(ItalicAngle)dup prany
+	(isFixedPitch)(IsFixedPitch) prany
+	(UnderlinePosition)dup prany
+	(UnderlineThickness)dup prany
+	(Version)(version) prany
+	(Notice)dup prany
+      pop
+    }
+    {
+      (Comment Font lacks a /FontInfo!)=
+    }
+    ifelse
+  }
+  bind def
+
+  /prbbox % llx lly urx ury -> -
+  {
+    4 1 roll 3 1 roll exch % swap top 4 elements
+    4 { ( ) print buf cvs print } repeat
+  }
+  bind def
+
+  /getbbox % fontdict chardict character -> fontdict chardict llx lly urx ury
+  {
+    gsave
+      2 index setfont 0 0 moveto
+      false charpath flattenpath pathbbox
+    grestore
+  }
+  bind def
+
+  /printmiscinfo
+  {
+    dup /FontBBox known
+    {
+      (FontBBox) print
+      dup /FontBBox get aload pop prbbox ()=
+    }
+    {
+      (Comment missing required /FontBBox)=
+      quit
+    }
+    ifelse
+    2 copy exch get
+      dup /H known
+      1 index /x known and
+      1 index /d known and
+      1 index /p known and
+      dup /looksRoman exch def
+      {
+	(CapHeight ) print
+	(H) getbbox
+	ceiling cvi = pop pop pop
+	(XHeight ) print
+	(x) getbbox
+	ceiling cvi = pop pop pop
+	(Ascender ) print
+	(d) getbbox
+	ceiling cvi = pop pop pop
+	(Descender ) print
+	(p) getbbox
+	pop pop floor cvi = pop
+      }
+      {
+	(Comment font doesn't contain H, x, d and p; therefore no CapHeight, XHeight, Ascender and Descender)=
+      }
+      ifelse
+    pop
+    dup /Encoding get
+      [
+	[ (ISOLatin1Encoding) /ISOLatin1Encoding ]
+	[ (AdobeStandardEncoding) /StandardEncoding ]
+      ]
+      {
+	aload pop dup where
+	{
+	  exch get 2 index eq
+	  {
+	    (EncodingScheme ) print
+	    buf cvs =
+	  }
+	  {
+	    pop
+	  }
+	  ifelse
+	}
+	{
+	  pop pop
+	}
+	ifelse
+      }
+      forall
+    pop
+  }
+  bind def
+
+  /printcharmetric
+  {
+    % chardictname fontdict charnamedict encoding charindex charname
+
+    4 index dup length dict dup begin exch
+      {
+	1 index /FID ne
+	2 index /UniqueID ne
+	and
+	{
+	  1 index /Encoding eq { 256 array copy } if
+	  def
+	}
+	{ pop pop }
+	ifelse
+      }
+      forall
+    end
+    dup /Encoding get 32 3 index put
+    /f2 exch definefont
+    setfont
+
+    (C ) print
+    1 index buf cvs print
+
+    ( ; WX ) print
+% Metrics entries are:
+%       1 number:               which is the character width
+%       an array of 2 numbers:  which are the left sidebearing and width
+%       an array of 4 numbers:  x & y left sidebearing, width and height
+    dup 5 index         % /charname fontdict
+    dup /Metrics known {
+       /Metrics get exch 2 copy known {
+          get dup type /arraytype eq {
+             dup length 2 eq
+             {1 get} {2 get} ifelse
+          } if
+          round cvi buf cvs print
+       } {
+          pop pop ( ) stringwidth pop round cvi buf cvs print
+       } ifelse
+    } {
+       pop pop ( ) stringwidth pop round cvi buf cvs print
+    } ifelse
+
+    ( ; N ) print
+    dup buf cvs print
+
+    ( ; B) print
+    gsave
+      newpath 0 0 moveto
+      ( ) true charpath flattenpath pathbbox
+    grestore
+    2 { ceiling cvi 4 1 roll } repeat
+    2 { floor cvi 4 1 roll } repeat
+    prbbox
+
+    looksRoman
+    {
+      [
+	[ /f [ /i /f /l ] ]
+	[ /ff [ /i /l ] ]
+      ]
+      {
+	aload pop 1 index 3 index eq
+	{
+	  { 
+	    1 index buf cvs
+	    length
+	    1 index buf2 cvs dup length
+	    2 index add
+	    buf
+	    4 2 roll putinterval
+	    buf 0
+	    3 -1 roll getinterval
+	    dup cvn
+	    7 index
+	    exch known
+	    {
+	      exch
+	      ( ; L ) print
+	      buf2 cvs print
+	      ( ) print
+	      print
+	    }
+	    {
+	      pop pop
+	    }
+	    ifelse
+	  }
+	  forall
+	  pop 
+	}
+	{
+	  pop pop
+	}
+	ifelse
+      }
+      forall
+    }
+    if
+    pop
+
+    ( ;)=
+  }
+  bind def
+
+  /printcharmetrics
+  {
+    (StartCharMetrics ) print
+    2 copy exch get length 1 sub buf cvs =
+
+    256 dict dup begin
+      1 index /Encoding get
+      { null def }
+      forall
+    end
+    % chardictname fontdict charnamedict
+    1 index /Encoding get
+    0 1 255
+    {
+      % encoding index
+      2 copy get
+      dup /.notdef eq { pop } { printcharmetric } ifelse
+      pop % index
+    } for
+
+    -1
+    3 index 5 index get
+    {
+      pop
+      dup /.notdef eq
+      { pop }
+      {
+	% chardictname fontdict charnamedict encoding charindex charname
+	dup 4 index exch known
+	{ pop }
+	{ printcharmetric }
+	ifelse
+      }
+      ifelse
+    }
+    forall
+    % charnamedict encoding index
+    pop pop pop
+
+    (EndCharMetrics)=
+  }
+  bind def
+
+  /printfontmetrics
+  {
+    (StartFontMetrics 3.0)=
+    (Comment Produced by getafm 3.0 (which is by rj@rainbow.in-berlin.de))=
+
+    printfontname
+    printfontinfo
+    printmiscinfo
+    printcharmetrics
+
+    (EndFontMetrics)=
+  }
+  bind def
+
+end def
+
+/getafm
+{
+  getafmdict begin
+    save exch
+      findfont 1000 scalefont 
+
+      null
+      [ /CharDefs /CharData /CharProcs /CharStrings ]
+      {
+	2 index 1 index known { exch } if
+	pop
+      }
+      forall
+      dup null eq
+      {
+	(can't find dictionary with character data!)=
+	quit
+      }
+      if
+      exch % dictname fontdict
+
+      printfontmetrics
+
+      pop pop
+    restore
+  end
+}
+bind def
+
+/$1 getafm
+
+EOF
diff --git a/Master/texmf-dist/scripts/psutils/showchar.sh b/Master/texmf-dist/scripts/psutils/showchar.sh
new file mode 100755
index 00000000000..e685e99ae8c
--- /dev/null
+++ b/Master/texmf-dist/scripts/psutils/showchar.sh
@@ -0,0 +1,118 @@
+#!/bin/sh
+# showchar: show character with information
+# usage:
+#       showchar Font-Name Char-Name | lpr -Pprinter
+
+if [ $# != 2 ]; then
+        echo "Usage: `basename $0` Font-Name Char-Name" >&2
+        exit 1
+fi
+
+cat <<EOF
+%!
+% Get character metrics and bounding box for $1
+/ns 30 string def
+/fname /$1 def
+/cname /$2 def
+/fn fname findfont 1000 scalefont def
+/thin 0.7 def
+/reduction 2.0 def
+
+/sn { ns cvs show } def
+/sc { (\()show exch sn (,)show sn (\))show } def
+
+/Times-Roman findfont 10 scalefont setfont
+
+72 242 translate % one inch in, 3 1/2 inch up
+newpath 0 0 moveto
+gsave   % print character name
+   0 468 rmoveto
+   ($2 from font $1 displayed on `date` by `basename $0` 1.00 (C) AJCD 1991)
+   show 
+grestore
+
+gsave
+   thin setlinewidth  % cross hairs
+   -9 0 rmoveto 18 0 rlineto
+   -9 -9 rmoveto 0 18 rlineto
+   stroke  % position info
+   -9 -9 moveto ((0,0)) stringwidth pop neg 0 rmoveto
+   ((0,0)) show
+grestore
+
+% create encoding with a single character at all positions
+/MyEncoding 256 array def
+
+0 1 255 { % fill out with notdefs
+   MyEncoding exch cname put
+} for
+
+fn dup length dict begin
+  {1 index /FID ne {def} {pop pop} ifelse} forall
+  /Encoding MyEncoding def
+  currentdict
+end /newfont exch definefont
+/fn exch def
+/en MyEncoding def
+
+gsave  % draw character (enlarged)
+  .75 setgray
+  fn 1 reduction div scalefont setfont
+  (\000) show
+grestore
+
+% show character info
+fn /Metrics known {
+   dup fn /Metrics get exch get 
+   dup type /arraytype eq {
+      dup length 2 eq
+      {1 get 0} {dup 2 get exch 3 get} ifelse
+   } {
+      round 0
+   } ifelse
+} {
+   gsave
+      fn setfont (\000) stringwidth round exch round exch
+   grestore
+} ifelse
+gsave   % show width
+   thin setlinewidth
+   2 copy
+   reduction div exch reduction div exch rlineto
+   gsave
+      1 1 rmoveto sc
+   grestore
+   -4 -3 rlineto 0 6 rmoveto 4 -3 rlineto
+   stroke
+grestore
+
+gsave
+   gsave  % get bounding box
+      fn setfont
+      (\000) true charpath flattenpath pathbbox
+   grestore
+   thin setlinewidth
+   3 index reduction div  % put coords on top of stack
+   3 index reduction div
+   3 index reduction div
+   3 index reduction div
+   3 index 3 index moveto
+   gsave  % llx lly
+      0 -9 rmoveto 7 index 7 index sc
+   grestore
+   1 index 3 index lineto
+   gsave  % urx lly
+      0 -9 rmoveto 5 index 7 index sc
+   grestore
+   1 index 1 index lineto
+   gsave  % urx ury
+      0 9 rmoveto 5 index 5 index sc
+   grestore
+   3 index 1 index lineto
+   gsave  % llx ury
+      0 9 rmoveto 7 index 5 index sc
+   grestore
+   closepath stroke
+grestore
+showpage
+EOF
diff --git a/Master/texmf-dist/scripts/tetex/texdoctk.pl b/Master/texmf-dist/scripts/texdoctk/texdoctk.pl
index 36497183e3b..36497183e3b 100755
--- a/Master/texmf-dist/scripts/tetex/texdoctk.pl
+++ b/Master/texmf-dist/scripts/texdoctk/texdoctk.pl
diff --git a/Master/texmf-dist/scripts/tetex/allcm.sh b/Master/texmf-dist/scripts/texlive/allcm.sh
index 945c7c88457..945c7c88457 100755
--- a/Master/texmf-dist/scripts/tetex/allcm.sh
+++ b/Master/texmf-dist/scripts/texlive/allcm.sh
diff --git a/Master/texmf-dist/scripts/tetex/allneeded.sh b/Master/texmf-dist/scripts/texlive/allneeded.sh
index 15c62c84adb..15c62c84adb 100755
--- a/Master/texmf-dist/scripts/tetex/allneeded.sh
+++ b/Master/texmf-dist/scripts/texlive/allneeded.sh
diff --git a/Master/texmf-dist/scripts/tetex/dvi2fax.sh b/Master/texmf-dist/scripts/texlive/dvi2fax.sh
index fdfa83211eb..fdfa83211eb 100755
--- a/Master/texmf-dist/scripts/tetex/dvi2fax.sh
+++ b/Master/texmf-dist/scripts/texlive/dvi2fax.sh
diff --git a/Master/texmf-dist/scripts/tetex/dvired.sh b/Master/texmf-dist/scripts/texlive/dvired.sh
index 4eb3586119d..4eb3586119d 100755
--- a/Master/texmf-dist/scripts/tetex/dvired.sh
+++ b/Master/texmf-dist/scripts/texlive/dvired.sh
diff --git a/Master/texmf-dist/scripts/tetex/e2pall.pl b/Master/texmf-dist/scripts/texlive/e2pall.pl
index 2997f8b1102..2997f8b1102 100755
--- a/Master/texmf-dist/scripts/tetex/e2pall.pl
+++ b/Master/texmf-dist/scripts/texlive/e2pall.pl
diff --git a/Master/texmf-dist/scripts/tetex/fmtutil-sys.sh b/Master/texmf-dist/scripts/texlive/fmtutil-sys.sh
index bfb52f94e1f..bfb52f94e1f 100755
--- a/Master/texmf-dist/scripts/tetex/fmtutil-sys.sh
+++ b/Master/texmf-dist/scripts/texlive/fmtutil-sys.sh
diff --git a/Master/texmf-dist/scripts/tetex/fmtutil.sh b/Master/texmf-dist/scripts/texlive/fmtutil.sh
index 06ef11380b4..06ef11380b4 100755
--- a/Master/texmf-dist/scripts/tetex/fmtutil.sh
+++ b/Master/texmf-dist/scripts/texlive/fmtutil.sh
diff --git a/Master/texmf-dist/scripts/tetex/fontinst.sh b/Master/texmf-dist/scripts/texlive/fontinst.sh
index 7d1271517ad..7d1271517ad 100755
--- a/Master/texmf-dist/scripts/tetex/fontinst.sh
+++ b/Master/texmf-dist/scripts/texlive/fontinst.sh
diff --git a/Master/texmf-dist/scripts/tetex/kpsetool.sh b/Master/texmf-dist/scripts/texlive/kpsetool.sh
index 463097fd4a9..463097fd4a9 100755
--- a/Master/texmf-dist/scripts/tetex/kpsetool.sh
+++ b/Master/texmf-dist/scripts/texlive/kpsetool.sh
diff --git a/Master/texmf-dist/scripts/tetex/kpsewhere.sh b/Master/texmf-dist/scripts/texlive/kpsewhere.sh
index 51088ee80d6..51088ee80d6 100755
--- a/Master/texmf-dist/scripts/tetex/kpsewhere.sh
+++ b/Master/texmf-dist/scripts/texlive/kpsewhere.sh
diff --git a/Master/texmf-dist/scripts/tetex/ps2frag.sh b/Master/texmf-dist/scripts/texlive/ps2frag.sh
index b8e673be087..b8e673be087 100755
--- a/Master/texmf-dist/scripts/tetex/ps2frag.sh
+++ b/Master/texmf-dist/scripts/texlive/ps2frag.sh
diff --git a/Master/texmf-dist/scripts/tetex/pslatex.sh b/Master/texmf-dist/scripts/texlive/pslatex.sh
index 4badef0ec12..4badef0ec12 100755
--- a/Master/texmf-dist/scripts/tetex/pslatex.sh
+++ b/Master/texmf-dist/scripts/texlive/pslatex.sh
diff --git a/Master/texmf-dist/scripts/tetex/rubibtex.sh b/Master/texmf-dist/scripts/texlive/rubibtex.sh
index 373e6e1194d..373e6e1194d 100755
--- a/Master/texmf-dist/scripts/tetex/rubibtex.sh
+++ b/Master/texmf-dist/scripts/texlive/rubibtex.sh
diff --git a/Master/texmf-dist/scripts/tetex/rumakeindex.sh b/Master/texmf-dist/scripts/texlive/rumakeindex.sh
index b7b0c072729..b7b0c072729 100755
--- a/Master/texmf-dist/scripts/tetex/rumakeindex.sh
+++ b/Master/texmf-dist/scripts/texlive/rumakeindex.sh
diff --git a/Master/texmf-dist/scripts/tetex/texconfig-dialog.sh b/Master/texmf-dist/scripts/texlive/texconfig-dialog.sh
index e1868d91574..e1868d91574 100755
--- a/Master/texmf-dist/scripts/tetex/texconfig-dialog.sh
+++ b/Master/texmf-dist/scripts/texlive/texconfig-dialog.sh
diff --git a/Master/texmf-dist/scripts/tetex/texconfig-sys.sh b/Master/texmf-dist/scripts/texlive/texconfig-sys.sh
index ff549003ad2..ff549003ad2 100755
--- a/Master/texmf-dist/scripts/tetex/texconfig-sys.sh
+++ b/Master/texmf-dist/scripts/texlive/texconfig-sys.sh
diff --git a/Master/texmf-dist/scripts/tetex/texconfig.sh b/Master/texmf-dist/scripts/texlive/texconfig.sh
index c9cc73c8305..c9cc73c8305 100755
--- a/Master/texmf-dist/scripts/tetex/texconfig.sh
+++ b/Master/texmf-dist/scripts/texlive/texconfig.sh
diff --git a/Master/texmf-dist/scripts/tetex/texlinks.sh b/Master/texmf-dist/scripts/texlive/texlinks.sh
index 09b3488d263..09b3488d263 100755
--- a/Master/texmf-dist/scripts/tetex/texlinks.sh
+++ b/Master/texmf-dist/scripts/texlive/texlinks.sh
diff --git a/Master/texmf-dist/scripts/tetex/updmap-sys.sh b/Master/texmf-dist/scripts/texlive/updmap-sys.sh
index 6f3c8365658..6f3c8365658 100755
--- a/Master/texmf-dist/scripts/tetex/updmap-sys.sh
+++ b/Master/texmf-dist/scripts/texlive/updmap-sys.sh
diff --git a/Master/texmf-dist/scripts/tetex/updmap.pl b/Master/texmf-dist/scripts/texlive/updmap.pl
index c87e7d09b7f..c87e7d09b7f 100755
--- a/Master/texmf-dist/scripts/tetex/updmap.pl
+++ b/Master/texmf-dist/scripts/texlive/updmap.pl