summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/bin/alpha-linux/a2ping2399
-rwxr-xr-xMaster/bin/alpha-linux/afm2plbin120848 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/afm2tfmbin187200 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/alephbin715776 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/allcm118
l---------Master/bin/alpha-linux/allec1
-rwxr-xr-xMaster/bin/alpha-linux/allneeded46
l---------Master/bin/alpha-linux/amstex1
l---------Master/bin/alpha-linux/bg5+latex1
l---------Master/bin/alpha-linux/bg5+pdflatex1
-rwxr-xr-xMaster/bin/alpha-linux/bg5convbin5416 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/bg5latex26
-rwxr-xr-xMaster/bin/alpha-linux/bg5pdflatex26
-rwxr-xr-xMaster/bin/alpha-linux/bibtexbin211280 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/bibtex8bin315608 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/cef5convbin7808 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/cef5latex26
-rwxr-xr-xMaster/bin/alpha-linux/cef5pdflatex26
-rwxr-xr-xMaster/bin/alpha-linux/cefconvbin7624 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/ceflatex26
-rwxr-xr-xMaster/bin/alpha-linux/cefpdflatex26
-rwxr-xr-xMaster/bin/alpha-linux/cefsconvbin7808 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/cefslatex26
-rwxr-xr-xMaster/bin/alpha-linux/cefspdflatex26
-rwxr-xr-xMaster/bin/alpha-linux/cfftot1bin505712 -> 0 bytes
l---------Master/bin/alpha-linux/cslatex1
l---------Master/bin/alpha-linux/csplain1
-rwxr-xr-xMaster/bin/alpha-linux/ctanglebin193552 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/ctiebin103352 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/cweavebin287264 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/detexbin112936 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/devnagbin100528 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/disdvibin15288 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/dmpbin116032 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/dt2dvbin43368 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/dv2dtbin15976 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/dvi2fax41
-rwxr-xr-xMaster/bin/alpha-linux/dvi2ttybin86408 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/dvibookbin33264 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/dviconcatbin88344 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/dvicopybin227296 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/dvidvibin86504 -> 0 bytes
l---------Master/bin/alpha-linux/dvigif1
-rwxr-xr-xMaster/bin/alpha-linux/dvihp130
-rwxr-xr-xMaster/bin/alpha-linux/dviljbin147136 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/dvilj2pbin147528 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/dvilj4bin155104 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/dvilj4lbin155104 -> 0 bytes
l---------Master/bin/alpha-linux/dvilj61
-rwxr-xr-xMaster/bin/alpha-linux/dvipdfmbin653592 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/dvipdfmxbin1168384 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/dvipdft130
-rwxr-xr-xMaster/bin/alpha-linux/dvipngbin832272 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/dvipsbin396704 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/dvired98
-rwxr-xr-xMaster/bin/alpha-linux/dviselectbin31640 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/dvitodvibin96912 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/dvitompbin194792 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/dvitypebin194784 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/e2pall89
-rwxr-xr-xMaster/bin/alpha-linux/ebbbin388296 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/ebong390
l---------Master/bin/alpha-linux/eplain1
-rwxr-xr-xMaster/bin/alpha-linux/epsffitbin13184 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/epstopdf406
l---------Master/bin/alpha-linux/etex1
-rwxr-xr-xMaster/bin/alpha-linux/extconvbin5416 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/extractres96
-rwxr-xr-xMaster/bin/alpha-linux/fixdlsrps54
-rwxr-xr-xMaster/bin/alpha-linux/fixfmps21
-rwxr-xr-xMaster/bin/alpha-linux/fixmacps95
-rwxr-xr-xMaster/bin/alpha-linux/fixpsditps25
-rwxr-xr-xMaster/bin/alpha-linux/fixpspps58
-rwxr-xr-xMaster/bin/alpha-linux/fixscribeps19
-rwxr-xr-xMaster/bin/alpha-linux/fixtpps28
-rwxr-xr-xMaster/bin/alpha-linux/fixwfwps33
-rwxr-xr-xMaster/bin/alpha-linux/fixwpps31
-rwxr-xr-xMaster/bin/alpha-linux/fixwwps20
-rwxr-xr-xMaster/bin/alpha-linux/fmtutil883
-rwxr-xr-xMaster/bin/alpha-linux/fmtutil-sys29
-rwxr-xr-xMaster/bin/alpha-linux/fontinst16
-rwxr-xr-xMaster/bin/alpha-linux/gbklatex26
-rwxr-xr-xMaster/bin/alpha-linux/gbkpdflatex26
-rwxr-xr-xMaster/bin/alpha-linux/getafm358
-rwxr-xr-xMaster/bin/alpha-linux/getnonfreefonts166
l---------Master/bin/alpha-linux/getnonfreefonts-sys1
-rwxr-xr-xMaster/bin/alpha-linux/gftodvibin151080 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/gftopkbin184920 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/gftypebin177104 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/giftopng4
-rwxr-xr-xMaster/bin/alpha-linux/gsftopkbin120032 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/hbf2gfbin193536 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/ht7
-rwxr-xr-xMaster/bin/alpha-linux/htcontext7
-rwxr-xr-xMaster/bin/alpha-linux/htlatex9
-rwxr-xr-xMaster/bin/alpha-linux/htmex9
-rwxr-xr-xMaster/bin/alpha-linux/httex9
-rwxr-xr-xMaster/bin/alpha-linux/httexi10
-rwxr-xr-xMaster/bin/alpha-linux/includeres46
-rwxr-xr-xMaster/bin/alpha-linux/infobin218192 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/infokeybin88200 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/install-infobin31600 -> 0 bytes
l---------Master/bin/alpha-linux/jadetex1
-rwxr-xr-xMaster/bin/alpha-linux/kpseaccessbin6480 -> 0 bytes
l---------Master/bin/alpha-linux/kpsepath1
-rwxr-xr-xMaster/bin/alpha-linux/kpsereadlinkbin6304 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/kpsestatbin7272 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/kpsetool118
-rwxr-xr-xMaster/bin/alpha-linux/kpsewhere63
-rwxr-xr-xMaster/bin/alpha-linux/kpsewhichbin104576 -> 0 bytes
l---------Master/bin/alpha-linux/kpsexpand1
-rwxr-xr-xMaster/bin/alpha-linux/lacheckbin61848 -> 0 bytes
l---------Master/bin/alpha-linux/lambda1
l---------Master/bin/alpha-linux/lamed1
l---------Master/bin/alpha-linux/latex1
-rwxr-xr-xMaster/bin/alpha-linux/magbin7304 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/makeindexbin238952 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/makeinfobin294296 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/makempx181
l---------Master/bin/alpha-linux/makempy1
l---------Master/bin/alpha-linux/mex1
-rwxr-xr-xMaster/bin/alpha-linux/mfbin496232 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/mf-nowinbin432320 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/mftbin258728 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/mk4ht153
-rwxr-xr-xMaster/bin/alpha-linux/mkindex39
-rwxr-xr-xMaster/bin/alpha-linux/mkocp6
-rwxr-xr-xMaster/bin/alpha-linux/mkofm3
l---------Master/bin/alpha-linux/mktexfmt1
-rwxr-xr-xMaster/bin/alpha-linux/mktexlsr150
-rwxr-xr-xMaster/bin/alpha-linux/mktexmf139
-rwxr-xr-xMaster/bin/alpha-linux/mktexpk264
-rwxr-xr-xMaster/bin/alpha-linux/mktextfm152
l---------Master/bin/alpha-linux/mllatex1
l---------Master/bin/alpha-linux/mltex1
-rwxr-xr-xMaster/bin/alpha-linux/mmafmbin384912 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/mmpfbbin496248 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/mpostbin439576 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/mptobin69120 -> 0 bytes
l---------Master/bin/alpha-linux/mptopdf1
-rwxr-xr-xMaster/bin/alpha-linux/musixflxbin20664 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/newerbin7304 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/odvicopybin174792 -> 0 bytes
l---------Master/bin/alpha-linux/odvips1
-rwxr-xr-xMaster/bin/alpha-linux/odvitypebin137656 -> 0 bytes
l---------Master/bin/alpha-linux/ofm2opl1
-rwxr-xr-xMaster/bin/alpha-linux/omegabin794184 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/omfontsbin229104 -> 0 bytes
l---------Master/bin/alpha-linux/opl2ofm1
-rwxr-xr-xMaster/bin/alpha-linux/otanglebin138824 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/otfinfobin730968 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/otftotfmbin1194392 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/otp2ocpbin121016 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/outocpbin96360 -> 0 bytes
l---------Master/bin/alpha-linux/ovf2ovp1
l---------Master/bin/alpha-linux/ovp2ovf1
l---------Master/bin/alpha-linux/oxdvi1
-rwxr-xr-xMaster/bin/alpha-linux/patgenbin122136 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/pdfclosebin68992 -> 0 bytes
l---------Master/bin/alpha-linux/pdfcrop1
l---------Master/bin/alpha-linux/pdfcslatex1
l---------Master/bin/alpha-linux/pdfcsplain1
-rwxr-xr-xMaster/bin/alpha-linux/pdfetexbin1796696 -> 0 bytes
l---------Master/bin/alpha-linux/pdfjadetex1
l---------Master/bin/alpha-linux/pdflatex1
l---------Master/bin/alpha-linux/pdfmex1
-rwxr-xr-xMaster/bin/alpha-linux/pdfopenbin69080 -> 0 bytes
l---------Master/bin/alpha-linux/pdfplatex1
l---------Master/bin/alpha-linux/pdftex1
-rwxr-xr-xMaster/bin/alpha-linux/pdfthumb29
l---------Master/bin/alpha-linux/pdfxmltex1
-rwxr-xr-xMaster/bin/alpha-linux/perltex375
-rwxr-xr-xMaster/bin/alpha-linux/pfb2pfabin10440 -> 0 bytes
l---------Master/bin/alpha-linux/physe1
l---------Master/bin/alpha-linux/phyzzx1
-rwxr-xr-xMaster/bin/alpha-linux/pk2bmbin14296 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/pkfix860
-rwxr-xr-xMaster/bin/alpha-linux/pktogfbin176648 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/pktypebin109032 -> 0 bytes
l---------Master/bin/alpha-linux/platex1
-rwxr-xr-xMaster/bin/alpha-linux/pltotfbin163968 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/pooltypebin96512 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/ppower427
-rwxr-xr-xMaster/bin/alpha-linux/ps2frag11
-rwxr-xr-xMaster/bin/alpha-linux/ps2pkbin318368 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/ps4pdf104
-rwxr-xr-xMaster/bin/alpha-linux/psbookbin16792 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/pslatex46
-rwxr-xr-xMaster/bin/alpha-linux/psmerge85
-rwxr-xr-xMaster/bin/alpha-linux/psnupbin26496 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/psresizebin24408 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/psselectbin18392 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/pstopsbin25216 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/rubibtex110
-rwxr-xr-xMaster/bin/alpha-linux/rumakeindex77
-rwxr-xr-xMaster/bin/alpha-linux/showchar118
-rwxr-xr-xMaster/bin/alpha-linux/simpdftex570
-rwxr-xr-xMaster/bin/alpha-linux/sjisconvbin5416 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/sjislatex26
-rwxr-xr-xMaster/bin/alpha-linux/sjispdflatex26
-rwxr-xr-xMaster/bin/alpha-linux/t1asciibin32640 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/t1asmbin40032 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/t1binarybin32032 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/t1disasmbin39968 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/t1dotlessjbin480504 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/t1lintbin340656 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/t1macbin103720 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/t1reencodebin419472 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/t1testpagebin387400 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/t1unmacbin39536 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/t4htbin184312 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/tanglebin146888 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/tcdialogbin265288 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/texbin454264 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/tex4htbin268520 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/texconfig1412
-rwxr-xr-xMaster/bin/alpha-linux/texconfig-dialog495
-rwxr-xr-xMaster/bin/alpha-linux/texconfig-sys30
-rwxr-xr-xMaster/bin/alpha-linux/texdoc206
-rwxr-xr-xMaster/bin/alpha-linux/texdoctk1794
-rwxr-xr-xMaster/bin/alpha-linux/texexec24
l---------Master/bin/alpha-linux/texfont1
l---------Master/bin/alpha-linux/texhash1
-rwxr-xr-xMaster/bin/alpha-linux/texi2dvi836
-rwxr-xr-xMaster/bin/alpha-linux/texi2html17536
-rwxr-xr-xMaster/bin/alpha-linux/texi2pdf19
-rwxr-xr-xMaster/bin/alpha-linux/texindexbin24952 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/texlinks290
l---------Master/bin/alpha-linux/texsis1
l---------Master/bin/alpha-linux/texutil1
-rwxr-xr-xMaster/bin/alpha-linux/tftoplbin193656 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/thumbpdf1562
-rwxr-xr-xMaster/bin/alpha-linux/tiebin16840 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/ttf2afmbin124456 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/ttf2pkbin402936 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/ttf2tfmbin430920 -> 0 bytes
l---------Master/bin/alpha-linux/uniqleaf1
-rwxr-xr-xMaster/bin/alpha-linux/updmap1383
-rwxr-xr-xMaster/bin/alpha-linux/updmap-sys30
l---------Master/bin/alpha-linux/utf8mex1
-rwxr-xr-xMaster/bin/alpha-linux/vftovpbin211080 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/vptovfbin125424 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/weavebin189592 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/xdvi46
-rwxr-xr-xMaster/bin/alpha-linux/xdvi-xaw.binbin1146088 -> 0 bytes
-rwxr-xr-xMaster/bin/alpha-linux/xdvizilla134
l---------Master/bin/alpha-linux/xmltex1
247 files changed, 0 insertions, 35717 deletions
diff --git a/Master/bin/alpha-linux/a2ping b/Master/bin/alpha-linux/a2ping
deleted file mode 100755
index 82d202b022e..00000000000
--- a/Master/bin/alpha-linux/a2ping
+++ /dev/null
@@ -1,2399 +0,0 @@
-#! /bin/sh
-eval '(exit $?0)' && eval 'PERL_BADLANG=x;export PERL_BADLANG;: \
-;exec perl -x -S -- "$0" ${1+"$@"};#'if 0;
-eval 'setenv PERL_BADLANG x;exec perl -x -S -- "$0" $argv:q;#'.q+
-#!perl -w
-package Htex::a2ping; $0=~/(.*)/s;unshift@INC,'.';do($1);die$@if$@;__END__+if !1;
-# This Perl script was generated by JustLib2 at Wed Apr 23 09:14:13 2003.
-# Don't touch/remove any lines above; http://www.inf.bme.hu/~pts/justlib
-#
-# This program is free software, licensed under the GNU GPL, >=2.0.
-# This software comes with absolutely NO WARRANTY. Use at your own risk!
-#
-package just; BEGIN{$INC{'just.pm'}='just.pm'}
-BEGIN{ $just::VERSION=2 }
-sub end(){1}
-sub main(){}
-
-BEGIN{$ INC{'strict.pm'}='strict.pm'} {
-package strict;
-use just;
-# by pts@fazekas.hu at Wed Jan 10 12:42:08 CET 2001
-require 5.002;
-sub bits {
- (grep{'refs'eq$_}@_ && 2)|
- (grep{'subs'eq$_}@_ && 0x200)|
- (grep{'vars'eq$_}@_ && 0x400)|
- ($@ || 0x602)
-}
-sub import { shift; $^H |= bits @_ }
-sub unimport { shift; $^H &= ~ bits @_ }
-just::end}
-
-BEGIN{$ INC{'integer.pm'}='integer.pm'} {
-package integer;
-use just;
-# by pts@fazekas.hu at Wed Jan 10 12:42:08 CET 2001
-sub import { $^H |= 1 }
-sub unimport { $^H &= ~1 }
-just::end}
-
-BEGIN{$ INC{'Pts/string.pm'}='Pts/string.pm'} {
-package Pts::string;
-# by pts@fazekas.hu at Sat Dec 21 21:32:18 CET 2002
-use just;
-use integer;
-use strict;
-
-#** @param $_[0] a string
-#** @param $_[1] index of first bit to return. Bit 128 of byte 0 is index 0.
-#** @param $_[2] number of bits to return (<=32)
-#** @return an integer (negative on overflow), bit at $_[1] is its MSB
-sub get_bits_msb($$$) {
- # assume: use integer;
- my $loop=$_[1];
- my $count=$_[2];
- my $ret=0;
- ($ret+=$ret+(1&(vec($_[0],$loop>>3,8)>>(7-($loop&7)))), $loop++) while $count--!=0;
- $ret
-}
-
-#** @param $_[0] a string
-#** @return value if $_[0] represents a floating point numeric constant
-#** in the C language (without the LU etc. modifiers) -- or undef. Returns
-#** undef for integer constants
-sub c_floatval($) {
- my $S=$_[0];
- no integer; # very important; has local scope
- return 0.0+$S if $S=~/\A[+-]?(?:[0-9]*\.[0-9]+|[0-9]+\.])(?:[eE][+-]?[0-9]+)?\Z(?!\n)/;
- undef
-}
-
-#** @param $_[0] a string
-#** @return value if $_[0] represents a floating point or integer numeric
-#** constant in the C language (without the LU etc. modifiers) -- or undef
-sub c_numval($) {
- my $S=$_[0];
- no integer; # very important; has local scope
- return 0+$S if $S=~/\A[+-]?(?:[0-9]*\.[0-9]+(?:[eE][+-]?[0-9]+)?|[0-9]+\.?)\Z(?!\n)/;
- undef
-}
-
-#** @param $_[0] a string
-#** @return the integer value of $_[0] in C -- or undef
-sub c_intval($) {
- my $S=$_[0];
- my $neg=1;
- $neg=-1 if $S=~s@\A([+-])@@ and '-'eq$1;
- return $neg*hex $1 if $S=~/\A0[xX]([0-9a-fA-F]+)\Z(?!\n)/;
- return $neg*oct $1 if $S=~/\A0([0-7]+)\Z(?!\n)/;
- return $neg*$1 if $S=~/\A([0-9]+)\Z(?!\n)/;
- undef
-}
-
-sub import {
- no strict 'refs';
- my $package = (caller())[0];
- shift; # my package
- for my $p (@_ ? @_ : qw{get_bits_msb c_floatval c_numval c_intval}) { *{$package."::$p"}=\&{$p} }
-}
-
-just::end}
-
-BEGIN{$ INC{'Htex/dimen.pm'}='Htex/dimen.pm'} {
-package Htex::dimen;
-# by pts@fazekas.hu at Sat Dec 21 21:26:15 CET 2002
-use just;
-use integer;
-use strict;
-use Pts::string qw(c_numval);
-
-my %bp_mul;
-{ no integer; %bp_mul=(
- 'bp'=>1, # 1 bp = 1 bp (big point)
- 'in'=>72, # 1 in = 72 bp (inch)
- 'pt'=>72/72.27, # 1 pt = 72/72.27 bp (point)
- 'pc'=>12*72/72.27, # 1 pc = 12*72/72.27 bp (pica)
- 'dd'=>1238/1157*72/72.27, # 1 dd = 1238/1157*72/72.27 bp (didot point) [about 1.06601110141206 bp]
- 'cc'=>12*1238/1157*72/72.27, # 1 cc = 12*1238/1157*72/72.27 bp (cicero)
- 'sp'=>72/72.27/65536, # 1 sp = 72/72.27/65536 bp (scaled point)
- 'cm'=>72/2.54, # 1 cm = 72/2.54 bp (centimeter)
- 'mm'=>7.2/2.54, # 1 mm = 7.2/2.54 bp (millimeter)
-) }
-
-#** @param $_[0] a (real or integer) number, optionally postfixed by a
-#** TeX dimension specifier (default=bp)
-#** @return the number in bp, or undef
-sub dimen2bp($) {
- no integer;
- my $S=$_[0];
- my $mul;
- $mul=$bp_mul{$1} if $S=~s/\s*([a-z][a-z0-9]+)\Z(?!\n)// and exists $bp_mul{$1};
- my $val=c_numval($S);
- $val*=$mul if defined $val and defined $mul;
- $val
-}
-
-just::end}
-
-BEGIN{$ INC{'Htex/papers.pm'}='Htex/papers.pm'} {
-package Htex::papers;
-# contains paper size information
-# by pts@fazekas.hu at Sun Dec 22 00:30:58 CET 2002
-use just;
-use integer;
-use strict;
-use Htex::dimen;
-
-my @papers=(
-#
-# paper.txt
-# by pts@fazekas.hu at Tue Jan 16 18:21:59 CET 2001
-# by pts@fazekas.hu at Tue Jan 16 19:13:16 CET 2001
-#
-# Examined: dvips, gs, libpaperg
-#
-# all units are measured in Big Points (bp)
-# 72 bp == 1 in
-# 2.54 cm == 1 in
-#
-# papername width height
-qw{Comm10 297 684},
-qw{Monarch 279 540},
-qw{halfexecutive 378 522},
-
-qw{Legal 612 1008},
-qw{Statement 396 612},
-qw{Tabloid 792 1224},
-qw{Ledger 1224 792},
-qw{Folio 612 936},
-qw{Quarto 610 780},
-qw{7x9 504 648},
-qw{9x11 648 792},
-qw{9x12 648 864},
-qw{10x13 720 936},
-qw{10x14 720 1008},
-qw{Executive 540 720},
-
-qw{ISOB0 2835 4008},
-qw{ISOB1 2004 2835},
-qw{ISOB2 1417 2004},
-qw{ISOB3 1001 1417},
-qw{ISOB4 709 1001},
-qw{ISOB5 499 709},
-qw{ISOB6 354 499},
-qw{ISOB7 249 354},
-qw{ISOB8 176 249},
-qw{ISOB9 125 176},
-qw{ISOB10 88 125},
-qw{jisb0 2916 4128},
-qw{jisb1 2064 2916},
-qw{jisb2 1458 2064},
-qw{jisb3 1032 1458},
-qw{jisb4 729 1032},
-qw{jisb5 516 729},
-qw{jisb6 363 516},
-
-qw{C7 230 323},
-qw{DL 312 624},
-
-qw{a3 842 1190}, # defined by Adobe
-qw{a4 595 842}, # defined by Adobe; must precede a4small
-
-# a4small should be a4 with an ImagingBBox of [25 25 570 817].},
-qw{a4small 595 842},
-qw{letter 612 792}, # must precede lettersmall
-# lettersmall should be letter with an ImagingBBox of [25 25 587 767].
-qw{lettersmall 612 792},
-# note should be letter (or some other size) with the ImagingBBox
-# shrunk by 25 units on all 4 sides.
-qw{note 612 792},
-qw{letterLand 792 612},
-# End of Adobe-defined page sizes
-
-qw{a0 2380 3368},
-qw{a1 1684 2380},
-qw{a2 1190 1684},
-qw{a5 421 595},
-qw{a6 297 421},
-qw{a7 210 297},
-qw{a8 148 210},
-qw{a9 105 148},
-qw{a10 74 105},
-qw{b0 2836 4008},
-qw{b1 2004 2836},
-qw{b2 1418 2004},
-qw{b3 1002 1418},
-qw{b4 709 1002},
-qw{b5 501 709}, # defined by Adobe
-
-qw{a0Land 3368 2380},
-qw{a1Land 2380 1684},
-qw{a2Land 1684 1190},
-qw{a3Land 1190 842},
-qw{a4Land 842 595},
-qw{a5Land 595 421},
-qw{a6Land 421 297},
-qw{a7Land 297 210},
-qw{a8Land 210 148},
-qw{a9Land 148 105},
-qw{a10Land 105 74},
-qw{b0Land 4008 2836},
-qw{b1Land 2836 2004},
-qw{b2Land 2004 1418},
-qw{b3Land 1418 1002},
-qw{b4Land 1002 709},
-qw{b5Land 709 501},
-
-qw{c0 2600 3677},
-qw{c1 1837 2600},
-qw{c2 1298 1837},
-qw{c3 918 1298},
-qw{c4 649 918},
-qw{c5 459 649},
-qw{c6 323 459},
-
-# vvv U.S. CAD standard paper sizes
-qw{archE 2592 3456},
-qw{archD 1728 2592},
-qw{archC 1296 1728},
-qw{archB 864 1296},
-qw{archA 648 864},
-
-qw{flsa 612 936}, # U.S. foolscap
-qw{flse 612 936}, # European foolscap
-qw{halfletter 396 612},
-qw{csheet 1224 1584}, # ANSI C 17x22
-qw{dsheet 1584 2448}, # ANSI D 22x34
-qw{esheet 2448 3168}, # ANSI E 34x44
-qw{17x22 1224 1584}, # ANSI C 17x22
-qw{22x34 1584 2448}, # ANSI D 22x34
-qw{34x44 2448 3168}, # ANSI E 34x44
-);
-
-#** Converts a numeric paper size to a well-defined paper name. Tolerance is
-#** 8.5bp
-#** @param $_[0] width, in bp
-#** @param $_[1] height, in bp
-#** @return () or ("papername", ret.paper.width.bp, ret.paper.height.bp)
-sub valid_bp($$;$$) {
- no integer;
- my ($W1,$H1)=(defined$_[2]?$_[2]:0,defined$_[3]?$_[3]:0);
- my ($WW,$HH)=(Htex::dimen::dimen2bp($_[0])-$W1, Htex::dimen::dimen2bp($_[1])-$H1);
- # Dat: 1mm == 720/254bp; 3mm =~ 8.5bp
- no integer;
- for (my $I=0; $I<@papers; $I+=3) {
- return @papers[$I,$I+1,$I+2] if abs($papers[$I+1]-$WW)<=8.5 and abs($papers[$I+2]-$HH)<=8.5;
- }
- ()
-}
-
-#** @param $_[0] (width width_unit "," height height_unit)
-#** @return () or ("papername", width.bp, height.bp)
-sub valid($) { # valid_papersize
- my $S=lc$_[0];
- $S=~/^\s*(\d+(\.\d+)?)\s*([a-z][a-z0-9]+)\s*,\s*(\d+(\.\d+)?)\s*([a-z][a-z0-9]+)\s*\Z(?!\n)/ ?
- valid_bp("$1$3","$4$6") : ();
-}
-
-#** @param $_[0] (width width_unit? ("," || "x") height height_unit?) || (papername)
-#** @return () or ("papername"?, width.bp, height.bp)
-sub any($) {
- my $S=lc$_[0];
- if ($S=~/\A[a-z]\w+\Z(?!\n)/) {
- for (my $I=0; $I<@papers; $I+=3) {
- return @papers[$I,$I+1,$I+2] if lc($papers[$I]) eq $S;
- }
- }
- return () if $S!~/^\s*(\d+(\.\d+)?)\s*((?:[a-z][a-z0-9]+)?)\s*[,xX]\s*(\d+(\.\d+)?)\s*((?:[a-z][a-z0-9]+)?)\s*\Z(?!\n)/;
- # ^^^ Dat: [xX] is xdvi-style, [,] is dvips-style spec
- my($w,$h)=($1.$3, $4.$6);
- my @L=valid_bp($w,$h);
- @L ? @L : (undef,Htex::dimen::dimen2bp($w),Htex::dimen::dimen2bp($h))
-}
-
-just::end}
-
-BEGIN{$ INC{'Htex/a2ping.pm'}='Htex/a2ping.pm'}
-
-package Htex::a2ping;
-# a2ping.pl -- convert between PS, EPS and PDF and other page description formats
-# by pts@fazekas.hu et al. at Wed Apr 16 14:54:13 CEST 2003
-# a2ping.pa created at Sun Apr 20 22:25:47 2003
-#
-# This file contains perldoc(1) documentation. Search for `=head1'.
-# See revision history at end of this file.
-#
-
-use just +1; # a JustLib application
-use strict;
-use integer;
-use Htex::papers;
-BEGIN { $Htex::a2ping::VERSION="2.77p" }
-
-# Imp: gs(704?!) sometimes finds too small bbox, see Univers.eps
-# Imp: respect bbox in METAPOST %! (not EPS), don't use Compute-GS T-
-# Imp: -sPDFPassword=...
-# Imp: `a2ping.pl -v jf.eps pdf1: t.pdf' PDF1: must be forced to have --below
-# Imp: option to `clip' an EPS to the specified bbox -- does file size decrease?
-# Imp: fix bug a2ping -v ~/a2ping_bug.ps a2ping_bug.pdf; running type1fix on
-# all fonts with dff.pl has fixed the problem
-# Imp: post-process PNG etc. written by sam2p
-# Imp: better help and docs
-# Imp: respect full /MediaBox for a PDF -> EPS|PDF1 conversion
-# Imp: --ll x,y command line option
-# Imp: Htex/a2ping.pa -v ../image/tuzv.ps t.pdf (1st and second page different)
-# Imp: also save+restore /pdfmark ??
-# Imp: fix /MediaBox an all PDF pages if !$ll_zero
-# Imp: PDF -> PDF1 conversion with gs -sDEVICE=pdfwrite
-# Imp: direct PDF to PCL5 conversion with gs
-# Imp: remove %%BeginDefaults | %%PageMedia: plain | %%EndDefaults (pdftops(1))
-# Imp: fix completely bogus margin and papersize handling:
-# ../justlib2/Htex/a2ping.pa --duplex=force-short -v -p:a3 -r force-unknown tuzv.ps t.pdf
-# Imp: careful distinction between PDF and PDF1
-# Imp: psnup support (-1 -2 -3 -4 ...)
-# Imp: idempotent PS -> PS, add other header
-# Imp: use convert(1) etc.
-# Imp: possibly disable compute-pipe
-# Imp: $header_remove_p ??
-# Imp: --leftright option instead of --below
-# Imp: pdfboxes.pl, get offset from gs
-# Imp: detect error messages from GS, abort...
-# Imp: use all pdftops + gs + acroread
-# Imp: possibly accept /PageSize from %%DocumentMedia
-# Imp: /DocumentMedia seems to screw up sub-pt placement in gv(1)
-#
-# Dat: example: a2ping.pl --extra=-c:ijg:50 -r86 nn1.eps nn1.jpg
-# Dat: calling ``showpage'' is not required for -sDEVICE=pdfwrite with gs 6.50,
-# but -sDEVICE=pgmraw depends on it
-# Dat: the functionality of pdfboxes.pl cannot be provided here with a shorter
-# implementation, because gs always outputs the content stream of the PDF
-# objects first
-# Dat: pdftops -eps writes negative bbox correctly
-# Dat: markedEPS: include pdfmarks
-# Dat: gs 7.04 gdevdjet.[ch], gdevdljm.[ch]
-# Dat: to be undeffed in setpagedevice: /.MarginsHWResolution /PageSize
-# /ImagingBBox /HWResolution /HWSize /.MediaSize (we undef all)
-
-### program identification
-my $program = "a2ping.pl";
-my $filedate="2004-04-28"; # my $filedate="2001/03/05";
-my $copyright = "Written by <pts\@fazekas.hu> from April 2003.
-This is free software, GNU GPL >=2.0. There is NO WARRANTY.
-(epstopdf 2.7 Copyright 1998-2001 by Sebastian Rahtz et al.)\n";
-# "Contains modifications by pts\@fazekas.hu";
-my $title = "$program $Htex::a2ping::VERSION, $filedate -- $copyright\n";
-
-### ghostscript command name
-my($quote,$GS)=("'","gs");
-($quote,$GS) = ("\"","gswin32c") if $^O eq 'MSWin32' or $^O =~ /cygwin/i;
-
-# --- help functions
-
-sub fnq($) {
- my $fn=$_[0];
- return $fn if $fn!~y@-a-zA-Z0-9/.+_@@c;
- $fn=~s@'@\\'@g if $quote eq "'";
- $quote.$fn.$quote
-}
-
-sub debug {
- print STDERR "* @_\n" if $::opt_verbose;
-}
-sub warning {
- print STDERR "$0: warning: @_\n";
-}
-sub error {
- my $s=$title; $title="";
- die "$s$0: @_\n";
-}
-
-# unlink temporary files?
-my $tmpunlink_p=1;
-my $tmpsig=1;
-my %tmpfiles;
-my $tmpdir=exists $ENV{TMPDIR} ? $ENV{TMPDIR} : '/tmp';
-$tmpdir="." if (!-d $tmpdir or !-w $tmpdir) and -w '.';
-sub cleanup() {
- unlink keys %tmpfiles;
- exit 125;
-}
-END { unlink keys %tmpfiles; }
-sub temp_unlink($) {
- if (exists $tmpfiles{$_[0]}) {
- unlink $_[0] if $tmpunlink_p;
- delete $tmpfiles{$_[0]};
- }
-}
-sub temp_prefix() {
- my $prog0=$program;
- $prog0=~y@a-zA-Z0-9@_@c;
- if ($tmpsig) {
- $tmpsig=0;
- $SIG{INT}=$SIG{TERM}=$SIG{HUP}=$SIG{QUIT}=\&cleanup;
- }
- return "$tmpdir/$prog0-$$-".int(rand(1<<30))."-"; # 30: nonnegative
-}
-
-#** @return arg rounded down to int
-sub floor($) {
- # Dat: Perl int() rounds towards zero
- no integer;
- $_[0] < 0 ? -int(-$_[0]) : int($_[0])
-}
-
-#** @return arg rounded up to int
-sub ceil($) {
- no integer;
- $_[0]==int($_[0]) ? $_[0] : 1+ ($_[0] < 0 ? -int(-$_[0]) : int($_[0]))
-}
-
-
-just::main;
-
-# ---
-
-sub FL_PAGE1_STOP(){1} # is file format single-page?
-sub FL_SET_PAGESIZE_OK(){2}
-sub FL_PDFMARK(){4}
-sub FL_NEED_SHOWPAGE(){8} # does gs -sDEVICE=... need showpage?
-sub FL_SAMPLED(){16} # is it a sampled (raster, pixel-based)
-sub FL_ANY_ORIGIN_OK(){32} # (llx,lly) may be anything, not just (0,0)
-sub FL_HAS_ANTIALIAS(){64}
-sub FL_VIA_SAM2P(){128} # sam2p(1) can convert PNM to such a format
-sub FL_OK_SAM2P(){256}
-
-my %fmts=( # Name=>[flags]
- 'EPS'=>[FL_PAGE1_STOP],
- 'markedEPS'=>[FL_PAGE1_STOP|FL_PDFMARK], # Imp: should we have FL_SET_PAGESIZE_OK?
- 'PDF1'=>[FL_PAGE1_STOP|FL_SET_PAGESIZE_OK|FL_PDFMARK],
- 'PDF'=>[FL_SET_PAGESIZE_OK|FL_PDFMARK|FL_ANY_ORIGIN_OK],
- 'PS'=>[FL_SET_PAGESIZE_OK|FL_ANY_ORIGIN_OK],
- 'markedPS'=>[FL_SET_PAGESIZE_OK|FL_PDFMARK|FL_ANY_ORIGIN_OK],
- 'PCL5'=>[FL_SET_PAGESIZE_OK|FL_ANY_ORIGIN_OK],
- # ^^^ Dat: no FL_HAS_ANTIALIAS -- would need lj5gray, which is loonger
- # ^^^ Dat: no FL_SAMPLED, because cannot set resolution
- 'PBM'=> [FL_PAGE1_STOP|FL_SET_PAGESIZE_OK|FL_NEED_SHOWPAGE|FL_SAMPLED|FL_OK_SAM2P], # Dat FL_HAS_ANTIALIAS produces obscure image
- 'PGM'=> [FL_PAGE1_STOP|FL_SET_PAGESIZE_OK|FL_NEED_SHOWPAGE|FL_SAMPLED|FL_HAS_ANTIALIAS|FL_OK_SAM2P],
- 'PPM'=> [FL_PAGE1_STOP|FL_SET_PAGESIZE_OK|FL_NEED_SHOWPAGE|FL_SAMPLED|FL_HAS_ANTIALIAS|FL_OK_SAM2P],
- # Now come the FileFormats supported via sam2p
- 'PNG'=> [FL_PAGE1_STOP|FL_SET_PAGESIZE_OK|FL_NEED_SHOWPAGE|FL_SAMPLED|FL_HAS_ANTIALIAS|FL_VIA_SAM2P],
- 'XWD'=> [FL_PAGE1_STOP|FL_SET_PAGESIZE_OK|FL_NEED_SHOWPAGE|FL_SAMPLED|FL_HAS_ANTIALIAS|FL_VIA_SAM2P],
- 'BMP'=> [FL_PAGE1_STOP|FL_SET_PAGESIZE_OK|FL_NEED_SHOWPAGE|FL_SAMPLED|FL_HAS_ANTIALIAS|FL_VIA_SAM2P],
- 'TIFF'=>[FL_PAGE1_STOP|FL_SET_PAGESIZE_OK|FL_NEED_SHOWPAGE|FL_SAMPLED|FL_HAS_ANTIALIAS|FL_VIA_SAM2P],
- 'JPEG'=>[FL_PAGE1_STOP|FL_SET_PAGESIZE_OK|FL_NEED_SHOWPAGE|FL_SAMPLED|FL_HAS_ANTIALIAS|FL_VIA_SAM2P],
- 'GIF'=> [FL_PAGE1_STOP|FL_SET_PAGESIZE_OK|FL_NEED_SHOWPAGE|FL_SAMPLED|FL_HAS_ANTIALIAS|FL_VIA_SAM2P], # Imp: disable antialias for few colors?
- 'XPM'=> [FL_PAGE1_STOP|FL_SET_PAGESIZE_OK|FL_NEED_SHOWPAGE|FL_SAMPLED|FL_HAS_ANTIALIAS|FL_VIA_SAM2P], # Imp: disable antialias for few colors?
-);
-my %fmt_aliases=qw(MARKEDPS markedPS MARKEDEPS markedEPS PCL PCL5
- UNMARKEDPS PS UNMARKEDEPS EPS EPDF PDF1 MEPS markedEPS);
-# Dat: .ps will be unmarked PS
-# Imp: sometimes markedEPS for .eps?
-my %fmt_exts=qw(eps EPS epsi EPS epsf EPS eps2 EPS ps PS ps2 PS
- pcl PCL5 pcl5 PCL5 pbm PBM pgm PGM pnm PPM ppm PPM pdf PDF png PNG
- xwd XWD bmp BMP rle BMP tif TIFF tiff TIFF jpg JPEG jpe JPEG
- jpg JPEG gif GIF xpm XPM);
-
-### usage
-# vvv deprecated options:
-# --outfile=<file>: write result to <file>
-# --debug: verbose debug informations (default: $bool[$::opt_verbose])
-# --(no)filter: d. read standard input (default: false)
-# --(no)gs d. run Ghostscript to create PDF
-my $usage=
-"${title}Usage: $program [options] <inputfile> [[<outformat>:] <outputfile>]
-Run with --doc to read documentation as a UNIX man(1) page.
-Options: --help print this help message
---(no)compress use compression (def: best)
---(no)hires scan HiResBoundingBox (def: yes)
---(no)exact scan ExactBoundingBox (def: no)
---(no)verbose verbose debug informations (def: no)
---(no)below allow below+left_from baseline (def: no)
---(no)tmpunlink unlink temporary files (def: yes)
---(no)antialias render shades at outlines (def: scale3no) (=scale3yes =no =yes)
---gs-cmd= path to Ghostscript (def: gs or gswin32c)
---gs-ccmd= path to Ghostscript, 4 bbox calc (def: gs or gswin32c)
---gsextra= extra arg to gs
---extra= extra arg to external prg (i.e pdftops)
---bboxfrom= adsc|compute-gs|pagesize (def: guess)
---papersize= unchanged|force-unknown|600bpx5cm (def: default) (bp)
---threshold= min color for 1 in 8->1 bit conv (def: 128)
-Possible input formats: PS EPS PDF JPEG GIF TIFF PNG PNM PCX BMP LBM XPM TGA
-Possible output formats: @{[sort keys %fmts]}
-Examples for producing 'test.pdf':
- * $program test.eps
- * produce postscript | $program -v - test.pdf
-Example: look for HiResBoundingBox and produce corrected PostScript:
- * $program -d --nogs -hires test.ps>testcorr.ps
-";
-sub errorUsage {
- die "$usage\U!\E!\U!\E Error: @_\n";
-}
-
-# --- @ARGV parsing
-
-### default option values
-my @extra=();
-my @gsextra=();
-#** Output file format (string)
-my $FileFormat=undef;
-$::opt_help=0;
-$::opt_verbose=0;
-my %vals_compression=map{$_=>1} qw(best none flate zip);
-$::opt_compression='best';
-#** Prefer %%HiResBoundingBox over %%BoundingBox, but emit both
-$::opt_hires=1;
-$::opt_exact=0;
-# $::opt_filter=0; # deprecated
-# $::opt_outputfile=undef; # deprecated
-$::opt_below=undef;
-$::opt_antialias=undef; # render shades at path outlines for better readability
-$::opt_gs_cmd=undef;
-$::opt_extra="";
-$::opt_duplex="default";
-$::opt_threshold=128;
-my %vals_antialias=map{$_=>1} qw(no yes scale3yes scale3no);
-my %vals_duplex=map{$_=>1} qw(force-unknown force-simplex force-long
- force-short unchanged default-simplex default-long default-short);
-# ^^^ short: duplex printing, will bind short edge of paper (ideal for
-# duplexing psnup -2)
-#** Dat: force-unknown is forced by /setpagedevice/load def
-$::opt_resolution="default"; # unchanged force-unknown 600x600 (DPI)
-$::opt_papersize="default"; # unchanged force-unknown 600bpx600cm (bp)
-#** --bboxfrom=adsc sets %%BoundingBox from the 1st page if no ADSC comment in non-EPS ps
-my %vals_bboxfrom=map{$_=>1} qw(adsc compute-gs guess pagesize);
-$::opt_bboxfrom="guess";
-my $InputFilename;
-my $OutputFilename;
-
-sub is_page1_stop() { 0!=($fmts{$FileFormat}[0]&FL_PAGE1_STOP) }
-sub is_set_pagesize_ok() { 0!=($fmts{$FileFormat}[0]&FL_SET_PAGESIZE_OK) }
-sub is_pdfmark() { 0!=($fmts{$FileFormat}[0]&FL_PDFMARK) }
-sub is_need_showpage() { 0!=($fmts{$FileFormat}[0]&FL_NEED_SHOWPAGE) }
-sub is_sampled() { 0!=($fmts{$FileFormat}[0]&FL_SAMPLED) }
-sub is_any_origin_ok() { 0!=($fmts{$FileFormat}[0]&FL_ANY_ORIGIN_OK) }
-sub is_has_antialias() { 0!=($fmts{$FileFormat}[0]&FL_HAS_ANTIALIAS) }
-sub is_via_sam2p() { 0!=($fmts{$FileFormat}[0]&FL_VIA_SAM2P) }
-sub is_ok_sam2p() { 0!=($fmts{$FileFormat}[0]&FL_OK_SAM2P) }
-
-# ---
-
-sub show_doc() {
- # run `pod2man __FILE__ | man -l -', same as `perldoc __FILE', but perldoc(1)
- # is missing from some Debian sites that have pod2man.
- my @path=split/:+/,$ENV{PATH};
- my $pod2man_='pod2man --center="a2ping: advanced PS, PDF, EPS converter" ';
- $pod2man_=q~perl -ne 'if($a>1){print}elsif($a&&/^=head1/){$a=2}else{$a=!/\S/}' ~
- if !grep { -x "$_/pod2man" } @path;
- my $pager='';
- for my $pageri ((defined $ENV{PAGER} ? $ENV{PAGER}: ''),'less','most','more','view - ','vim -R - ','vi - ','joe -rdonly -asis -','pager') {
- next if $pageri!~/^(\S+)/;
- my $pagert="/$1";
- if (grep { -x $_.$pagert } @path) { $pager=$pageri; last }
- }
- $pager=q~perl -pe 's@\010_@@g;s@.\010@@gs' | ~.$pager
- if substr($pager,-2)eq' ' or $pager=~/\A(?:view|vim?|joe|emacs|mcedit|nano|nano-tiny|ae)\b/;
- # ^^^ Dat: these cannot handle underline/bold backspace directly
- $ENV{PAGER}=$pager;
- my $man='';
- if (substr($pod2man_,0,5)ne 'perl ') {
- $man=' | man -l -'; # calls $PAGER
- if ((!grep { -x "$_/man" } @path) or qx(man -l 2>&1)=~/\binvalid option\b/) {
- $man=' | nroff -Tlatin1 -mandoc'; # Linux, no need for eqn(1), tbl(1) etc.
- if (!grep { -x "$_/nroff" } @path) { $man='' } # just write it
- }
- }
- my $cmd=$pod2man_.fnq(__FILE__).$man;
- if ($cmd!~/[|] man -l -\Z(?!\n)/) {
- if (!length $pager) {
- die unless open PIPE, "$cmd|";
- print while sysread PIPE, $_, 4096;
- die "$0: error showing doc\n" unless close PIPE;
- exit 0;
- }
- $cmd.=' | $PAGER';
- }
- ##die $cmd;
- $ENV{LESS}="" if !defined $ENV{LESS};
- $ENV{LESS}="$ENV{LESS}R"; # show ANSI escapes
- die "$0: exec ($cmd) failed: $!\n" if !exec $cmd;
-}
-
-die $usage if !@ARGV or (1==@ARGV and $ARGV[0] eq '-h' or $ARGV[0] eq '--help'
- or $ARGV[0] eq 'help');
-show_doc() if 1==@ARGV and $ARGV[0] eq '--doc' or $ARGV[0] eq 'doc';
-
-{ my($I,$optname,$optval);
- my %optmap=qw(o outputfile outfile outputfile r resolution h help
- f filter d verbose v verbose debug verbose p papersize
- c compression compress compression h hires b below e exact x extra);
- #** Options that have a mandatory argument
- my %argopt1=qw(outputfile 1 duplex 1 resolution 1 extra 1 compression 1 gs-cmd 1
- gs-ccmd 1
- papersize 1 paper 1 bboxfrom 1 antialias 1 gsextra 1 threshold 1); # 1 arg
- my %argnone=qw(help 1 verbose 1 noverbose 1 nocompress 1 noantialias 1); # 0 arg
- my %argmaybe=qw(); # 0 or 1 arg
- my %argbool=qw(hires 1 exact 1 below 1 gs 1 filter 1 tmpunlink 1
- approx 1); # boolean arg
- # Dat: --noverbose --nocompress
- my $opts_ok=1;
- for ($I=0; $I<@ARGV; $I++) {
- if ($ARGV[$I]eq '--') {
- $OutputFilename=$InputFilename if defined $InputFilename and
- !defined $OutputFilename and $opts_ok;
- $opts_ok=0;
- } elsif ($opts_ok and $ARGV[$I]=~/\A--+(\w[\w-]*)(?:[:=](.*))?\Z(?!\n)/s) {
- $optname=lc$1; $optval=$2;
- } elsif ($opts_ok and $ARGV[$I]=~/\A-(\w)(.*)\Z(?!\n)/s) {
- $optname=lc$1;
- if (length($2)==0) { $optval=undef }
- elsif (index(":=",substr($2,0,1))>=0) { $optval=substr($2,1) }
- else { $optval=$2 }
- } elsif ($opts_ok and !defined $FileFormat and defined $InputFilename and $ARGV[$I]=~s@\A(\w+):@@) {
- my $fmtag=uc$1;
- # errorUsage "invalid FileFormat tag: $fmtag" if $fmtag!~s@:\Z(?!\n)@@;
- if (exists $fmts{$fmtag}) { $FileFormat=$fmtag }
- elsif (exists $fmt_aliases{$fmtag}) { $FileFormat=$fmt_aliases{$fmtag} }
- else { errorUsage "Unknown FileFormat tag: $fmtag" }
- if (0!=length($ARGV[$I])) {
- errorUsage "Multiple output filenames" if defined $OutputFilename;
- $OutputFilename=$ARGV[$I];
- }
- next
- } elsif (!defined $InputFilename) { $InputFilename=$ARGV[$I]; next }
- elsif (!defined $OutputFilename) { $OutputFilename=$ARGV[$I]; next }
- else { errorUsage "Too many arguments (multiple input/output files?)" }
- $optname=$optmap{$optname} if exists $optmap{$optname};
- if (exists $argopt1{$optname} and !defined $optval) {
- errorUsage "Argument expected for --$optname" if $I==@ARGV;
- $optval=$ARGV[++$I];
- }
- # Dat: $optname and $optval are now correct
- errorUsage "No argument expected for --$optname=$optval" if exists $argnone{$optname} and defined $optval;
- if (substr($optname,0,2)eq"no" and exists $argbool{substr($optname,2)}) {
- $optname=substr($optname,2);
- errorUsage "No argument expected for no --no$optname=$optval" if defined $optval;
- $optval="no";
- }
- if (exists $argbool{$optname}) {
- # same as sam2p GenBuffer::parseBool, understands:
- # on true yes ja igen oui enable 1 true vrai? right sure allowed
- # off false no nein nem non disable 0 false faux? wrong nope disallowed
- $optval=(!defined($optval) or 0==length($optval)
- or $optval=~/\Ao[nu]/i or $optval!~/\A[fndw0]/i) ? 1 : 0;
- } elsif (!exists $argopt1{$optname} and !exists $argnone{$optname} and !exists $argmaybe{$optname}) {
- errorUsage "Unknown option --$optname, see --help"
- }
- # vvv application-specific
- if ($optname eq "help") { die $usage }
- elsif ($optname eq "help") { show_doc() }
- elsif ($optname eq "noverbose") { $::opt_verbose=0 }
- elsif ($optname eq "nocompress") { $::opt_compression='none' }
- elsif ($optname eq "verbose") { $::opt_verbose++ }
- elsif ($optname eq "hires") { $::opt_hires =$optval }
- elsif ($optname eq "exact") { $::opt_exact =$optval }
- elsif ($optname eq "below") { $::opt_below =$optval }
- elsif ($optname eq "approx") { $::opt_approx=$optval }
- elsif ($optname eq "threshold") { $::opt_threshold=$optval+0 } # Imp: accept only int 0..256
- elsif ($optname eq "filter") {
- # errorUsage "Multiple input filenames" if defined $InputFilename;
- # $InputFilename='-';
- errorUsage "Multiple output filenames" if defined $OutputFilename;
- $OutputFilename='-';
- } elsif ($optname eq "tmpunlink") { $tmpunlink_p=$optval }
- elsif ($optname eq "gs") { $FileFormat=$optval ? 'PDF1' : 'markedEPS' }
- elsif ($optname eq "compression") {
- errorUsage "--$optname expects one of: @{[keys%vals_compression]}" if !exists $vals_compression{$optval};
- $::opt_compression=$optval;
- $::opt_compression='zip' if $::opt_compression eq 'flate';
- } elsif ($optname eq "outputfile") {
- errorUsage "Multiple output filenames" if defined $OutputFilename;
- $OutputFilename=$optval;
- } elsif ($optname eq "gs-cmd") {
- errorUsage "Multiple --gs-cmd" if defined $::opt_gs_cmd;
- $::opt_gs_cmd=$optval;
- } elsif ($optname eq "gs-ccmd") {
- errorUsage "Multiple --gs-ccmd" if defined $::opt_gs_ccmd;
- $::opt_gs_ccmd=$optval;
- } elsif ($optname eq "extra") { push @extra, $optval }
- elsif ($optname eq "gsextra") { push @gsextra, $optval }
- elsif ($optname eq "duplex") {
- errorUsage "--$optname expects one of: @{[keys%vals_duplex]}" if !exists $vals_duplex{$optval};
- $::opt_duplex=$optval
- } elsif ($optname eq "bboxfrom") {
- errorUsage "--$optname expects one of: @{[keys%vals_bboxfrom]}" if !exists $vals_bboxfrom{$optval};
- $::opt_bboxfrom=$optval
- } elsif ($optname eq "noantialias") {
- $::opt_antialias='no'
- } elsif ($optname eq "antialias") {
- errorUsage "--$optname expects one of: @{[keys%vals_antialias]}" if !exists $vals_antialias{$optval};
- $::opt_antialias=$optval
- } elsif ($optname eq "resolution") {
- if ($optval eq "unchanged" or $optval eq "force-unknown") { }
- elsif ($optval=~/^(\d+(?:[.]\d+)?)\Z(?!\n)/) { $optval="$1x$1" }
- elsif ($optval=~/^(\d+(?:[.]\d+)?[x,]\d+(?:[.]\d+)?)\Z(?!\n)/) { }
- else { errorUsage "--Resultion expects unchanged | force-unknown | DPI | XDPIxYDPI" }
- $::opt_resolution=$optval
- } elsif ($optname eq "papersize" or $optname eq"paper") {
- if ($optval eq "unchanged" or $optval eq "force-unknown") { $::opt_papersize=$optval }
- else {
- my @L=Htex::papers::any($optval);
- errorUsage "invalid or unknown for --papersize" if !@L;
- $::opt_papersize="$L[1],$L[2]" # width, height
- }
- } else { die } # unreachable
- } # NEXT opt
- errorUsage "Too many arguments (multiple input/output files?)" if $I!=@ARGV;
- # splice @ARGV, 0, $I;
-}
-
-$GS=$::opt_gs_cmd if defined $::opt_gs_cmd;
-my $CGS=$GS;
-$CGS=$::opt_gs_ccmd if defined $::opt_gs_ccmd;
-$GS.= " -dSAFER"; # -dWRITESYSTEMDICT
-$CGS.=" -dSAFER"; # -dWRITESYSTEMDICT
-
-### get input and output filename
-if (!defined $InputFilename and defined $OutputFilename) { # --filter
- $InputFilename='-';
-} elsif (!defined $InputFilename) {
- errorUsage "Input filename missing"
-} elsif (!defined $OutputFilename) {
- $FileFormat='PDF1' if !defined $FileFormat;
- if ($FileFormat eq 'PDF1' or $FileFormat eq 'PDF') {
- if (($OutputFilename=$InputFilename) ne '-') {
- $OutputFilename =~ s/\.[^\.]*$//;
- $OutputFilename .= ".pdf";
- }
- } else {
- $OutputFilename = '-'; # standard output
- }
-}
-print STDERR $title if $::opt_verbose;
-$title="";
-
-# Dat: no more @ARGV
-errorUsage "please specify <outformat>" if
- !defined $FileFormat and ($OutputFilename!~m@[.]([^/.]+)\Z(?!\n)@ or
- !defined($FileFormat=$fmt_exts{lc$1}));
-$::opt_below=is_any_origin_ok() if !defined $::opt_below;
-error "--below=1 invalid for FileFormat $FileFormat" if $::opt_below and
- !is_any_origin_ok() and $FileFormat ne 'PDF1' and $FileFormat ne 'EPS' and
- $FileFormat ne 'markedEPS';
-error "--below=0 invalid for FileFormat $FileFormat" if !$::opt_below and
- is_any_origin_ok();
-$::opt_antialias=is_has_antialias() ?
- (is_sampled() ? 'scale3no' : 'yes') : 'no' if
- !defined $::opt_antialias;
-
-if ($FileFormat eq 'PBM' and ($::opt_antialias eq 'scale3yes' or
- $::opt_antialias eq 'scale3no')) {
-} elsif ($::opt_antialias ne 'no' and !is_has_antialias()) {
- $::opt_antialias='no';
- warning "--AntiAlias ignored for FileFormat $FileFormat"
-}
-if ($::opt_antialias eq 'scale3no' or $::opt_antialias eq 'scale3yes') {
- $::opt_resolution="72,72" if $::opt_resolution eq 'unchanged' or $::opt_resolution eq 'force-unknown' or $::opt_resolution eq 'default';
- # ^^^ GS raster default
- my @L=split/[,x]/,$::opt_resolution;
- @L=(@L,@L); # Imp: ..
- $L[0]*=3; $L[1]*=3;
- $::opt_resolution="$L[0],$L[0]";
-}
-
-### option compress
-my $GSOPTS=join(" ",map{fnq$_}@gsextra);
-# $GSOPTS.=" -r72 -sPAPERSIZE=a4 "; # default -- will be overridden by `setpagedevice'
-# ^^^ Dat: default does only harm; user should specify on command line
-
-### option BoundingBox types
-#**** pts ****
-# scan all of them and find the best
-{ my $BBprint = "%%BoundingBox:";
- $BBprint = "%%HiResBoundingBox:" if $::opt_hires;
- $BBprint = "%%ExactBoundingBox:" if $::opt_exact;
- debug "Strongest BoundingBox comment:", $BBprint;
-}
-my $BBregex='%%(Hi[Rr]es|Exact|)BoundingBox:';
-
-if (!is_set_pagesize_ok()) {
- if ($::opt_papersize ne'default' and $::opt_papersize ne'force-unknown') {
- error "Cannot set --PaperSize for FileFormat $FileFormat"
- } else { $::opt_papersize='force-unknown' }
-} elsif ($::opt_papersize eq'default') { $::opt_papersize='unchanged' }
-
-if ($::opt_resolution eq'default') { $::opt_resolution='force-unknown' }
-error "Cannot set --Resolution for FileFormat $FileFormat (must be markedPS or sampled)"
- if $FileFormat ne 'markedPS' and !is_sampled()
- and $::opt_resolution ne'force-unknown';
-error "Bad --Resolution=$::opt_resolution" if $::opt_resolution ne 'unchanged'
- and $::opt_resolution ne 'force-unknown' and $::opt_resolution!~/\A(\d+)+[,x](\d+)\Z(?!\n)/;
-
-if ($FileFormat ne 'markedPS' and $FileFormat ne 'PCL5') {
- if ($::opt_duplex ne'default' and $::opt_duplex ne'force-unknown') {
- error "Cannot set --Duplex for FileFormat $FileFormat (must be markedPS or PCL5)"
- } else { $::opt_duplex='force-unknown' }
-} elsif ($::opt_duplex eq'default') { $::opt_duplex='force-unknown' }
-
-debug "Doing --PaperSize $::opt_papersize" if $::opt_papersize ne 'force-unknown';
-debug "Doing --Duplex $::opt_duplex" if $::opt_duplex ne 'force-unknown';
-debug "Doing --Resolution $::opt_resolution" if $::opt_resolution ne 'force-unknown';
-debug "Doing --AntiAlias=$::opt_antialias" if $::opt_antialias ne 'no';
-
-### option outfile
-if ($OutputFilename eq '-') {
- debug "Output file: standard output";
-} else {
- debug "Output filename: $OutputFilename";
- #error "$OutputFilename: won't overwrite input file with itself"
- # if $OutputFilename eq $InputFilename;
-}
-
-### option gs
-debug "Output FileFormat: $FileFormat";
-$::opt_compression='zip' if $::opt_compression ne 'none';
-if ($FileFormat eq 'PDF' or $FileFormat eq 'PDF1') {
- debug "Ghostscript ps2pdf command: $GS $GSOPTS";
- debug "Compression: $::opt_compression";
-} elsif ($FileFormat eq 'PCL5') {
- debug "Ghostscript ps2ljet command: $GS $GSOPTS";
-} elsif (is_sampled()) {
- debug "Ghostscript ps2sampled command: $GS $GSOPTS";
-}
-
-#**** pts ****
-sub read_error() { error "read $InputFilename: $!" }
-my $bytes_left=-1; # -1==unlimited
-my $already_read=0;
-sub dem1($){defined$_[0]?$_[0]:-1}
-#** @param $_[0] number of bytes to read, or undef to read a line
-#** @return the string read
-sub readIN(;$) {
- my $S;
- ## return "" if $bytes_left==0;
- ## print STDERR "READ($_[0])\n";
- if (defined $_[0]) { read_error if 0>dem1 read IN, $S, $_[0] }
- else {
- $!=0; # clean up error code
- $S=<IN>;
- read_error if !defined($S) and $!;
- $S="" if !defined $S; # EOF
- }
- if ($bytes_left<0) { # unlimited
- } elsif (length($S)>=$bytes_left) {
- $S=substr($S, 0, $bytes_left);
- $bytes_left=0;
- } else { $bytes_left-=length($S) }
- $already_read+=length($S);
- $S
-}
-
-sub open_OUT() {
- error "Cannot write outfile '$OutputFilename'" unless
- open(OUT, $OutputFilename eq '-' ? ">-" : "> $OutputFilename")
-}
-
-#** @param $_[0] temp file extension (e.g ".img")
-#** @param $_[1] preprint
-#** @param $_[2] bool: force pipe even if seekable?
-sub fix_pipe_in($$$) {
- my $c="";
- if ($_[2] or (length($c=readIN(1))!=0 and !seek IN,-1,1)) { # we cannot seek back
- # Dat: ^^^ test seekability instead of $InputFilename eq '-'
- my($ext,$preprint)=@_;
- my $tifn;
- # $ext=$1 if $InputFilename=~/[.](\w+)\Z(?!\n)/; # never true
- $tifn=temp_prefix()."M$ext";
- error "Cannot open temp input: $tifn" unless open TI, "> $tifn";
- $tmpfiles{$tifn}=1;
- die unless print TI $preprint, $c;
- print TI or die while length($_=readIN 4096);
- die unless close TI;
- $InputFilename=$tifn;
- debug "Temp input file: $InputFilename";
- die unless open IN, "< $tifn";
- die unless seek IN, length($preprint), 0;
- $already_read=length($preprint);
- $bytes_left=-1; # unlimited, since readIN() has copied only part
- # $bytes_left++ if $bytes_left>=0; # ungetc($c)
- # temp_unlink $tifn; # do it later (at END{})
- } else {
- $already_read--; $bytes_left++ if $bytes_left>=0; # BUGFIX at Fri May 14 00:21:18 CEST 2004
- }
-}
-
-my $temp_out_fn;
-
-#** Does overwrite $temp_out_fn. Fine.
-sub fix_force_out($) {
- my($ext)=$_[0];
- # $ext=$1 if $InputFilename=~/[.](\w+)\Z(?!\n)/; # never true
- $temp_out_fn=temp_prefix()."O$ext";
- # error "Cannot save output: $!" unless open SAVEOUT, ">&OUT"; # always STDOUT; maybe not open yet
- error "Cannot open temp output: $temp_out_fn" unless open OUT, "> $temp_out_fn";
- $tmpfiles{$temp_out_fn}=1;
- # $OutputFilename=$temp_out_fn;
- debug "Temp output file: $temp_out_fn";
- # temp_unlink $temp_out_fn; # do it later (at END{})
- return $temp_out_fn;
-}
-
-#** @param $_[0] temp file extension (e.g ".img")
-#** @return new output filename
-sub fix_pipe_out($) {
- if (!defined $temp_out_fn) {
- return $OutputFilename if $OutputFilename ne '-';
- return fix_force_out($_[0]);
- }
- $temp_out_fn
-}
-sub fix_close_out() {
- # error "closing filter out: $? $!" unless close OUT;
- if (defined $temp_out_fn) {
- my $buf;
- die unless open FCO, "< $temp_out_fn";
- print STDOUT $buf while sysread FCO, $buf, 4096;
- die unless close FCO;
- temp_unlink $temp_out_fn;
- undef $temp_out_fn;
- }
-}
-
-sub do_system {
- my($progname)=splice@_,0,1;
- debug "Running: $progname @extra @_";
- error "prog $progname failed: $? $!"
- if 0!=system $progname, @extra, @_; # Dat: non-zero exit() or not found
-}
-
-sub do_exec {
- my($progname)=splice@_,0,1;
- if (scalar keys %tmpfiles) {
- # Cannot exec() right now, because we have to unlink some temporary files
- # later.
- do_system $progname, @_;
- } else {
- debug "Execing: $progname @extra @_";
- 1 if exec $progname, @extra, @_;
- # ^^^ Dat: $OutputFilename eq '-' should be OK
- error "exec failed: $!";
- }
- exit(0);
-}
-
-#sub shq($) {
-# my $S=$_[0];
-# return $S if $S!~y@A-Za-z0-9_,:./-@@c and length($S)>0;
-# $S=~s@'@'\\''@g;
-# return "'$S'"
-#}
-
-### open input file
-if ($InputFilename eq '-') {
- debug "Input file: standard input";
- open(IN, "<&STDIN") or error "cannot open standard input";
-} else {
- # -f $InputFilename or error "input file missing: $InputFilename"; # Imp: named pipe?
- open(IN,"< $InputFilename") or error "cannot open input file: $InputFilename";
- debug "Input filename:", $InputFilename;
- if ($InputFilename eq $OutputFilename) {
- # error "same input and output file: $InputFilename";
- my $ext=$InputFilename=~m@([.][^./]+)\Z(?!\n)@ ? $1 : "";
- binmode IN; $bytes_left=-1;
- fix_pipe_in($ext, "", 1); # Dat: defined later
- }
-}
-binmode IN;
-
-### scan first line, check for DOS EPSF (and remove DOS headers)
-my $header;
-{ SCAN_AGAIN:
- my $S;
- $_=$header="";
- read_error if 0>read IN, $S, 4;
- error "$InputFilename: empty file" if 0==length($S);
- $already_read+=length($S);
- ##print tell(IN)." bar=$already_read\n";
- my $iff="?"; # Input File Format
- # vvv be permissive, since we have only 4 chars
- if ($S eq "\211PNG") { $iff="PNG" }
- elsif ($S=~/\A(\377+\330)\377/) { $iff="JPEG" }
- elsif ($S eq "MM\000\052" or $S eq "II\052\000") { $iff="TIFF" }
- elsif ($S=~m@\AP([1-6])[\s#]@) { $iff="PNM" }
- elsif ($S=~/\ABM/) { $iff="BMP" }
- elsif ($S eq "GIF8") { $iff="GIF" }
- elsif ($S eq "FORM") { $iff="LBM" }
- elsif ($S eq "/* X" or $S eq "/*XP") { $iff="XPM" }
- elsif ($S=~/\A\12[\0-\005]\001[\001-\10]/) { $iff="PCX" }
- elsif ($S=~/\A[\36-\77](?:\001[\001\11]|\0[\002\12\003\13])\0/) { $iff="TGA" }
- elsif ($S eq "\305\320\323\306") { $iff="DOS-EPSF" }
- elsif ($S eq "\033%-1") { $iff="UEL" }
- elsif (substr($S,0,1)eq'%') { $iff="P" } # PS, EPS or PDF
-
- # PNG JPEG TIFF PNM BMP GIF LBM XPM PCX TGA
- if ($iff eq "DOS-EPSF") { # DOS EPSF header
- read_error if 30-4>read IN, $S, 30-4, 4;
- my ($eheader,$ps_ofs,$ps_len,$wmf_ofs,$wmf_len,$tif_ofs,$tif_len,$checksum)=
- unpack"A4VVVVVVv", $S;
- $already_read+=30-4;
- error "$InputFilename: bad DOS EPS" if $eheader ne "\305\320\323\306" or $ps_ofs<30;
- my($ps_end, $wmf_end, $tif_end)=($ps_ofs+$ps_len, $wmf_ofs+$wmf_len, $tif_ofs+$tif_len);
- $ps_ofs-=30;
- if (!seek IN, $ps_ofs, 1) {
- while ($ps_ofs>4096) { $ps_ofs-=4096; readIN 4096 }
- read_in $ps_ofs if $ps_ofs>0;
- }
- $bytes_left=($ps_end>$wmf_end and $ps_end>$tif_end) ? -1 : $ps_len;
- $S=readIN(1);
- } elsif ($iff eq "UEL") { # HP PJL UEL, untested
- $S.=readIN;
- $S=substr($S,1);
- error "$InputFilename: bad HP PJL UEL header: ".(~chomp($S)&&$S)
- if $S!~/\A%-12345X\@PJL ENTER LANGUAGE\s*=\s*POSTSCRIPT\s*\r?$/i;
- 1 while length($S=readIN())!=0 and substr($S,0,4)ne'%!PS';
- die "$InputFilename: premature HP PJL UEL header" if length($S)==0;
- } elsif ($iff eq "P") {
- # no-op yet, see later
- } elsif ($iff eq "?") {
- error "unknown input image format: $InputFilename";
- } else { # some vector graphics format
- # Imp: why isn't sam2p(1) PNG -> PNG idempotent?
- my $sfmt=$FileFormat eq'markedEPS' || $FileFormat eq 'EPS' ? 'EPS'
- : $FileFormat eq'markedPS' || $FileFormat eq 'PS' ? 'PS' # Dat: emits no /PageSize
- : $FileFormat eq'PDF1' || $FileFormat eq 'PDF' ? 'PDF'
- : undef;
- if (defined $sfmt) {}
- elsif (is_via_sam2p() or is_ok_sam2p()) {$sfmt=$FileFormat; $::opt_approx=1}
- else { error "sam2p doesn't support our FileFormat $FileFormat" }
- fix_pipe_in ".img", $S, 0;
- if ($::opt_approx) {
- do_exec('sam2p', ("$sfmt:", '--', $InputFilename, $OutputFilename));
- } else {
- warning "post-processing of sam2p PDF output increases file size" if $sfmt eq 'PDF';
- $sfmt='EPS' if $sfmt eq 'PDF'; # Imp: PDF1<->PDF
- close IN;
- my $tpfn=temp_prefix()."Psimg";
- error "Cannot open temp pipe dest: $tpfn" unless open TP, "> $tpfn";
- $tmpfiles{$tpfn}=1;
- die unless close TP;
- do_system('sam2p', ("$sfmt:", '--', $InputFilename, $tpfn));
- error "Cannot open temp pipe src: $tpfn" unless open IN, "< $tpfn";
- $already_read=0; $bytes_left=-1;
- $InputFilename=$tpfn; # '-'
- goto SCAN_AGAIN
- }
- }
-
- # now deal with PS, EPS and PDF
- if (substr($S,0,1) eq '%') {
- $S.=readIN;
- if (substr($S,0,4)eq'%PDF') {
- # error "$InputFilename: won't read a PDF file";
- if ($FileFormat eq 'PDF') { # convert PDF to PDF
- # !! PDF->PS->PDF
- open_OUT();
- $_=$S;
- debug "Doing a bit-by-bit copy";
- do {
- error "input error: $!" unless print OUT;
- } while (length($_=readIN 4096));
- close OUT; close IN;
- exit 0;
- } elsif ($FileFormat eq 'PDF1') { # Dat: remove extra pages by running pdftops and gs -sDEVICE=pdfwrite
- # !! Imp: possibly Run MetaPost output through full dvips (texc.pro) when prologues:=0
- # !! Imp: add full dvips %* font comment when prologues:=1 (design sizes missing :-()
- # Dat: no way to use $::opt_approx, because it doesn't remove extra pages
- fix_pipe_in ".pdf", $S, 0; # in case of stdin
- # Imp: option to open pdftops pipe instead of temp file
- # Dat: we rather use a temp file here for safety and early error detection
- do_input_pdftops: # come from EPS: and markedEPS:
- close IN; # after fix_pipe_in()
- my $tpfn=temp_prefix()."Peps";
- error "Cannot open temp pipe dest: $tpfn" unless open TP, "> $tpfn";
- $tmpfiles{$tpfn}=1;
- die unless close TP;
- do_system qw(pdftops -f 1 -l 1 -eps -- ), $InputFilename, $tpfn;
- error "Cannot open temp pipe src: $tpfn" unless open IN, "< $tpfn";
- $already_read=0; $bytes_left=-1;
- $InputFilename=$tpfn; # '-'
- goto SCAN_AGAIN
- } elsif ($FileFormat eq 'EPS' or $FileFormat eq 'markedEPS') { # convert PDF to EPS
- # Dat: limitation: markedEPS and EPS are treated the same
- # vvv Dat: pdftops(1) is part of the xpdf package
- # vvv Dat: pdftops(1) can emit to stdout
- fix_pipe_in ".pdf", $S, 0;
- if ($::opt_approx) {
- do_exec qw(pdftops -f 1 -l 1 -eps --), $InputFilename, $OutputFilename;
- } else { goto do_input_pdftops }
- } elsif ($FileFormat eq 'PS' or $FileFormat eq 'markedPS') {
- # Dat: limitation: markedEPS and EPS are treated the same
- fix_pipe_in ".pdf", $S, 0;
- close IN;
- # vvv we must query the BoundingBox first
- my $cmd="pdftops -f 1 -l 1 -eps ".fnq($InputFilename)." -";
- debug "pdftops bbox pipe: $cmd";
- error "pipe: $!" unless open PIPE, "$cmd |";
- my $line;
- error "expected PS document" if !defined($line=<PIPE>) or $line!~/^%!PS-Adobe-\d.*EPSF-\d/;
- my @L; # $papersize_x, $papersize_y
- while (<PIPE>) {
- last if /^%%EndComments/ or !/^%/;
- @L=($1,$2) if /^%%(?:Hires|Exact)BoundingBox:\s*\S+\s*\S+\s*(\S+)\s*(\S+)\s*$/i;
- @L=($1,$2) if /^%%BoundingBox:\s*\S+\s*\S+\s*(\S+)\s*(\S+)\s*$/i and !@L;
- # ^^^ Dat: HiRes has priority
- # ^^^ Dat: ignore llx and lly coordinates
- }
- 1 while read PIPE, $line, 4096;
- error "closing PIPE: $?" unless close PIPE;
- error "BoundingBox not found in pdftops output" if !@L;
- debug "Got PaperSize: @L";
- $L[0]=ceil $L[0]; $L[1]=ceil $L[1]; # Dat: pdftops expects integer papersize :-( )
- if ($::opt_approx) {
- do_exec 'pdftops', '-paperw', $L[0], '-paperh', $L[1], $InputFilename, $OutputFilename;
- } else {
- my $tpfn=temp_prefix()."Pps";
- error "Cannot open temp pipe dest: $tpfn" unless open TP, "> $tpfn";
- $tmpfiles{$tpfn}=1;
- die unless close TP;
- do_system 'pdftops', '-paperw', $L[0], '-paperh', $L[1], $InputFilename, $tpfn;
- error "Cannot open temp pipe src: $tpfn" unless open IN, "< $tpfn";
- $already_read=0; $bytes_left=-1;
- $InputFilename=$tpfn; # '-'
- goto SCAN_AGAIN
- }
- }
- error "cannot create from PDF: FileFormat $FileFormat";
- OK:
- }
- error "$InputFilename: EPS DSC must be %!PS-Adobe" if substr($S,0,4)ne'%!PS';
- # ^^^ Dat: mpost outputs "%!PS\n"
- } else {
- warning "$InputFilename: no PS ADSC header, BoundingBox not found\n"
- }
- $header=$S;
-}
-
-# Dat: Now we are converting from PS|EPS to EPS|markedEPS|PDF|PCL5|PGM
-# So we're converting from PS|EPS with Ghostscript
-
-### variables and pattern for BoundingBox search
-my $bbxpatt = '[0-9eE\.\-]';
-my $BBValues = "\\s*($bbxpatt+)\\s+($bbxpatt+)\\s+($bbxpatt+)\\s+($bbxpatt+)"; # protect backslashes: "\\" gets '\'
-
-my $ll_zero=0; # ($llx,$lly)==(0,0) in the output file
-my $need_grestore=0; # 0 v 1
-#** Applies %%*BoundingBox, %%EndComments, special setpagedevice, gsave..translate
-#** @param $_[0] llx, may be undef to signify that bbox is undetected
-#** @param $_[1] lly
-#** @param $_[2] urx
-#** @param $_[3] ury
-#** @param $_[4] after_correct PostScript code (resolution, page size)
-#** @return PostScript code to be printed after the header
-sub CorrectBoundingBox($$$$$$$) {
- no integer;
- my $bbx="";
- my $pagedev_mark="";
- my $translate="";
- my ($llx, $lly, $urx, $ury, $after_correct, $fontsdefs, $is_restored) = @_;
- if (defined $llx) {
- my ($xoffset, $yoffset) = (0, 0);
- my $old_bbox="$llx $lly $urx $ury"; # debug "Old BoundingBox: $old_bbox";
- # my ($width, $height) = ($urx - $llx, $ury - $lly);
- ($xoffset, $yoffset) = (-$llx, -$lly);
- # $::opt_below=0 if $lly>=0; # always move to (0,0)
- # my ($urxh,$uryh)=($urx,$ury);
- # my $no_translate=$::opt_below;
- #die $no_translate;
- ($llx,$lly,$urx,$ury)=(0,0,$urx-$llx,$ury-$lly) if !$::opt_below;
- $urx=1 if $urx<=0; # Dat: GS dislikes empty image; fix also negative image
- $ury=1 if $ury<=0;
- my($px,$py)=($urx,$ury);
- ($px,$py)=($1+0,$2+0) if $after_correct=~m@/PageSize\s*\[(\S+)\s+(\S+)+\]@;
- my @paper=Htex::papers::any("$px,$py");
- $paper[0]=defined $paper[0] ? "%%DocumentPaperSizes: $paper[0]\n" : "";
- $bbx.="%%BoundingBox: ".floor($llx)." ".floor($lly)." ".
- ceil($urx)." ". ceil($ury)."\n";
- $bbx.="%%HiResBoundingBox: $llx $lly $urx $ury\n".
- "%%ExactBoundingBox: $llx $lly $urx $ury\n" if floor($llx)!=$llx
- or floor($lly)!=$lly or ceil($urx)!=$urx or ceil($ury)!=$ury;
- $bbx.="%%DocumentMedia: plain $px $py 0 () ()\n". # like pdftops(1)
- "$paper[0]";
- # ^^^ Imp: can DocumentMedia be non-integer? As of us, it can.
- # vvv we output a second /MediaBox here, and we'll remove the first one
- # (written by GS) later
- # vvv Dat: old version of Ghostscript insisted on an integer /CropBox (??).
- # we do not force it now
- $pagedev_mark.="mark /CropBox [$llx $lly $urx $ury] /PAGE pdfmark\n" if is_pdfmark();
- # die "$xoffset $yoffset $::opt_below";
- if ($xoffset==0 and $yoffset==0) { #**** pts ****
- $need_grestore=0;
- $ll_zero=1; # Dat: we do not insert extra /MediaBox here, gs -sDEVICE=pdfwrite will do
- } elsif ($::opt_below) {
- # Do not translate (set (0,0) to the origin) with --below or multi-page
- # file formats.
- $need_grestore=0;
- $ll_zero=0; # fix /MediaBox because it become non-(0,0)-based
- $pagedev_mark.="mark /MediaBox [$llx $lly $urx $ury] /PAGE pdfmark\n" if
- is_pdfmark(); # $FileFormat eq 'markedEPS' or $FileFormat eq 'markedPS';
- # Dat: markedPS and contains pdfmark!
- } else {
- # debug "Offset:", $xoffset, $yoffset; # no new information, see -$llx, -$lly
- $xoffset=0 if $xoffset==0; # get rid of `-0'
- $yoffset=0 if $yoffset==0; # get rid of `-0'
- if ($is_restored) { $translate="" } # save..restore does gsave..grestore
- else { $translate="gsave "; $need_grestore=1 }
- $ll_zero=0;
- # vvv the /MediaBox is different from what gs dumps
- # $pagedev_mark=~s@/PageSize\s*\[[^\]]*]@/PageSize [$urx $ury]@; # BUGFIX at Tue Apr 22 10:08:17 CEST 2003
- $pagedev_mark.="mark /MediaBox [$llx $lly $urx $ury] /PAGE pdfmark\n" if is_pdfmark();
- $translate.="$xoffset $yoffset translate\n"
- }
- my $new_bbox="$llx $lly $urx $ury";
- if ($old_bbox eq $new_bbox) {
- debug "Final BoundingBox: $new_bbox";
- } else {
- debug "Old BoundingBox: $old_bbox";
- debug "Final corrected BoundingBox: $new_bbox";
- }
- $pagedev_mark="/pdfmark where{pop}{/pdfmark/cleartomark load def}ifelse\n$pagedev_mark"
- if length($pagedev_mark)!=0;
- }
- # vvv Imp: `<<' -> `dict'
- # Dat: it is inherently impossible to tell GS that it shouldn't
- # recompress the images already compressed in the EPS file, but keep
- # them in their original, compressed form. So we rather instruct GS to
- # recompress
- my $markpagedevices="";
- if (is_pdfmark()) {
- $markpagedevices="
-/CompatibilityLevel 1.2 %PDF-1.2
-/EmbedAllFonts true
-/Optimize true % ignored by gs-6.70
-/AutoRotatePages /None
-/UseFlateCompression ".($::opt_compression ne 'none'?"true":"false")."
-/AutoPositionEPSFiles false
-/AutoFilterGrayImages false
-/ConvertImagesToIndexed false
-/DownsampleMonoImages false
-/DownsampleGrayImages false
-/DownsampleColorImages false
-/AutoFilterColorImages false
-/EncodeMonoImages true
-/EncodeGrayImages true
-/EncodeColorImages true
-/AntiAliasMonoImages false
-/AntiAliasGrayImages false
-/AntiAliasColorImages false\n";
- $markpagedevices=(length($markpagedevices)!=0 ? "<< $markpagedevices >> setpagedevice\n" : "");
- $markpagedevices.="1 dict dup /ImagingBBox null put setpagedevice\n";
- $markpagedevices.="1 dict dup /Policies 1 dict dup /PageSize 3 put put setpagedevice\n"; # ripped from pdftops(1)
- }
- my $setpagesize="";
- # die defined $urx;
- # die is_set_pagesize_ok();
- # die $after_correct;
- if (defined $urx and is_set_pagesize_ok()
- and $::opt_papersize ne'force-unknown'
- and $after_correct!~m@/PageSize\s*\[@) { # Imp: m@/Pagesize ugly
- # Dat: true for FileFormat PGM
- # Dat: emit /PageSize even for PDF1
- # Dat: Ghostscript 6.70 rounds /PageSize down, but we need up when creating /MediaBox for PDF
- $setpagesize="2 dict dup /PageSize [".ceil($urx)." ".ceil($ury)."] put setpagedevice\n";
- # ^^^ Dat: PLRM.pdf doesn't forbid a non-integer /PageSize
- }
- my $bsetup=is_page1_stop()?"":"%%BeginSetup\n%%EndSetup\n";
- # ^^^ Dat: CUPS inserts its setpagedevice calls for /Duplex and /PageSize
- # etc. just after the %%BeginSetup line (or, if missing, puts it in
- # front of the first %%Page). We'd like this execution order: CUPS,
- # ours, PStoPS (or psnup). (When we come after CUPS, we'll have a
- # chance to override its settings.) So we emit a fake
- # %%BeginSetup..%%EndSetup pair just before our code doing
- # `setpagedevice'.
- # !! ?? run pstops first, and then a2ping.pl
- my $save=$is_restored?"save\n":"";
- $bbx.$fontsdefs."%%EndComments\n".$bsetup.$setpagesize.$markpagedevices.$pagedev_mark.$after_correct.$save.$translate
-}
-
-### scan header
-my $to_OUT="";
-my $after_code="";
-my $do_fix_tumble=0;
-my $is_restored=0;
-if (1<length($header)) {
- my($llx,$lly,$urx,$ury);
- my($bbtype)='-'; # None
- my $allow_adsc_bb=1;
- my $after_correct="";
- my $do_bb_line=sub { # sub do_bbline($$)
- no integer;
- # Decreasing precedence of various BoundingBoxes:
- # The last valid *bbox entry has effect.
- # Active policy:
- # normal mode : BoundingBox ExactBoundingBox HiResBoundingBox
- # --hires mode: HiResBoundingBox BoundingBox ExactBoundingBox
- # --exact mode: ExactBoundingBox BoundingBox HiResBoundingBox
- # -hi -ex mode: ExactBoundingBox HiResBoundingBox BoundingBox
- # Another possible policy:
- # normal mode : BoundingBox HiResBoundingBox==ExactBoundingBox
- # --hires mode: HiResBoundingBox ExactBoundingBox BoundingBox
- # --exact mode: ExactBoundingBox HiResBoundingBox BoundingBox
- # -hi -ex mode: ExactBoundingBox==HiResBoundingBox BoundingBox
- my($S,$from)=@_;
- return if $S!~/^(?:$BBregex|set)$BBValues/oi;
- # print STDERR "($S)\n";
- my $E1=defined$1 ? $1 : "+";
- my $T=!defined($1) ? 'S' : uc substr $1,0,1; # '' || 'H' || 'E'
- # debug "Trying BoundingBox T-$bbtype: $llx $lly $urx $ury";
- if ($T eq 'S'
- or !$::opt_hires and !$::opt_exact and ($T eq '' or ($bbtype ne '' and ($T eq 'E' or $bbtype ne 'E')))
- or $::opt_hires and !$::opt_exact and ($T eq 'H' or ($bbtype ne 'H' and ($T eq '' or $bbtype ne '')))
- or $::opt_exact and !$::opt_hires and ($T eq 'E' or ($bbtype ne 'E' and ($T eq '' or $bbtype ne '')))
- or $::opt_exact and $::opt_hires and ($T eq 'E' or ($bbtype ne 'E' and ($T eq 'H' or $bbtype ne 'H')))
- ) {
- # if ($allow_bb) {
- ($bbtype,$llx,$lly,$urx,$ury)=($T,$2+0,$3+0,$4+0,$5+0);
- debug "Applying ${E1}BoundingBox$from T-$bbtype: $llx $lly $urx $ury";
- # }
- } else {
- my @L=($2+0,$3+0,$4+0,$5+0); # convert 0.00 to 0
- debug "Ignoring ${E1}BoundingBox$from T-$bbtype: @L";
- }
- # Dat: don't do $do_bb_line=sub{};# same as $allow_bb=0;
- };
- $header=~s@\r\n?\Z(?!\n)@@;
- my $after_comments=""; # after %%EndComments
- # my $res;
- { my $headEPSF;
- my $headPS="PS-Adobe-3.0";
- # vvv Imp: run this correction even w/o input EPS header
- if ($header!~s/\s+(EPSF-[.\d]+)$// or $::opt_bboxfrom ne 'guess') { # a PS not an EPS already
- # This is the compute-pipe routine.
- # To convert an [E]PS to an EPS:
- # -- find the end of the 1st page in the code, and remove everything after it
- # -- `pop' off the execution stack after the 1st page
- # -- `end' the dictionary stack after the 1st page
- # -- change the ADSC magic `%!PS-Adobe-...' to `%!PS-Adobe-3.0 EPSF-3.0'
- # -- remove the `%%Pages', `%%DocumentPaperSizes', `%%PageOrder:'
- # (Ascending) comment from the ADSC header
- # -- possibly remove the `%%Page' ADSC comment [no]
- # -- ignore calls to = setpage setpagemargin setpageparams .setpagesize
- # setpagedevice setpagetype setprintername setresolution a4 letter ...
- # -- surround the code by save ... pop* end* restore (implies gsave ... grestore)
- # -- possibly ignore calls to showpage [showpage is forced]
- $headEPSF=" EPSF-3.0";
- debug "Computing BBox info from non-EPS PS file";
- fix_pipe_in 'i.ps', "%!$headPS\n", 0;
- my $tfn=temp_prefix()."c.tgs";
- error "temp open $tfn: $!" unless open F, "> $tfn";
- $tmpfiles{$tfn}=1;
- ##print tell(IN)." car=$already_read\n";
- die "$0: $!\n" unless print F "% this is temporary gs command file created by $program".'
-/DOCUT true def
-/MAINFILE FN (r) file def
-/DICTCOUNT countdictstack def
-count /OPCOUNT exch def
-<</BeginPage { % <PageCount> BeginPage -
- dup 1 eq {
- count OPCOUNT sub 1 sub (pop-count==) ..print ===
- countdictstack DICTCOUNT sub (end-count==) ..print ===
- DOCUT { (cut-offset==) ..print MAINFILE fileposition === flush } if
- (bbox-success\n) ..print
- quit
- } if
- .callbeginpage
- }
->> setpagedevice
-
-% vvv do these after our call to /setpagedevice
-.currentglobal true .setglobal
-systemdict begin
-/..paper.redef<< >>def
-/..print/print load def
-/setpageparams{pop pop pop pop (\nset-called-4==/setpageparams\n) ..print flush}def
-/setpage{pop pop pop (\nset-called-3==/setpage\n) ..print flush}def
-/setpagesize{pop pop (\nset-called-2==/setpagesize\n) ..print flush}def
-/.setpagesize{pop pop (\nset-called-2==/.setpagesize\n) ..print flush}def
-/setpagemargin{pop (\nset-called-1==/setpagemargin\n) ..print flush}def
-{% anti-Windows-printer-driver `%%[ ProductName:` etc.
- dup type/stringtype eq{
- dup length 3 ge{
- dup 0 3 getinterval (%%[) eq{
- (\nset-called-1==/=\n) ..print flush
- (\nset-called-1==/print\n) ..print flush
- }if}if}if
- pop
-}
-dup/= exch def /print exch def
-/setpagedevice{pop (\nset-called-1==/setpagedevice\n) ..print flush}def
-/..sdict <<
- /PageSize { % [. .] PageSize -
- dup type /arraytype eq {
- dup length 2 ge {
- dup 0 get type dup /integertype eq exch /realtype eq or {
- dup 1 get type dup /integertype eq exch /realtype eq or {
- (\npapersize-x==) ..print dup 0 get ===
- (\npapersize-y==) ..print dup 1 get === (\n) ..print
- } if
- } if
- } if
- } if
- pop
- }
- /HWResolution { % [. .] PageSize -
- dup type /arraytype eq {
- dup length 2 ge {
- dup 0 get type dup /integertype eq exch /realtype eq or {
- dup 1 get type dup /integertype eq exch /realtype eq or {
- (\nresolution-x==) ..print dup 0 get ===
- (\nresolution-y==) ..print dup 1 get === (\n) ..print
- } if
- } if
- } if
- } if
- pop
- }
- /Duplex { % [. .] PageSize -
- dup type /booleantype eq {
- (\nsides-duplex==) ..print dup === (\n) ..print
- } if
- pop
- }
- /Tumble { % [. .] PageSize -
- dup type /booleantype eq {
- (\nsides-tumble==) ..print dup === (\n) ..print
- } if
- pop
- }
->> def
-%/.setpagesize{pop pop (hehehe\n) print} def
-% /a4{(hehehe\n) ..print} def % doesn"t work, has to be put into userdict
-/setpagedevice{
- { % <key> <val>
- exch dup ..sdict exch known { % run all keys known in ..sdict
- ..sdict exch get exec
- } {pop pop} ifelse
- } forall
- (\nset-called-1==/setpagedevice\n) ..print flush
-}def
-/setpagetype{pop (\nset-called-1==/setpagetype\n) ..print flush}def
-/setprintername{pop (\nset-called-1==/setprintername\n) ..print flush}def
-/setresolution{pop (\nset-called-1==/setresolution\n) ..print flush}def
-[ % Dat: fixed at Mon May 19 14:32:31 CEST 2003
- statusdict /.pagetypenames 2 copy known {get}{pop pop{}}ifelse
- % ^^^ Dat: may be {/a4 STRICT {(%END SIZES) .skipeof} if /a5}
- { /11x17/a3/a4/a4small/b5/ledger/legal/letter % GS 7.04
- /lettersmall/note/a0/a1/a2/a5/a6/a7/a8/a9/c0/c1/c2/c3/c4/c5/c6
- /a10/b0/b1/b2/b3/b4/b5/b6
- /isob0/isob1/isob2/isob3/isob4/isob5/isob6
- /jisb0/jisb1/jisb2/jisb3/jisb4/jisb5/jisb6
- /archE/archD/archC/archB/archA/flsa/flse/halfletter
- /tabloid/csheet/dsheet/esheet/executivepage/com10envelope
- /monarchenvelope/c5envelope/dlenvelope/folio/quarto
- }
-]{{
- dup type /nametype eq { dup xcheck not { % Dat: fixed
- % dup ===
- dup ..paper.redef exch known {pop} {
- dup ..paper.redef exch null put
- dup userdict exch 2 copy known { 2 copy get
- 1 index userdict exch undef
- % Stack: /a4 userdict /a4 {...}
- % 3 copy pop undef
- 4 2 roll exch undef
- } { exch pop pop {} } ifelse
- % Stack: /a4 {595 842 //.setpagesize --exec--}
- % Stack: /a4 {595 842 {/statusdict --.systemvar-- --begin-- .setpagesize --end--} --exec--}
- { /get exec /pop (\nset-called-0==) ..print === flush } % dump
- dup length array copy cvx % make a copy for subsequent invocations
- 2 copy exch 0 exch put exch pop % change /get to {...}
- 2 copy exch 2 exch put % change /pop to /a4
- def % overwrite it in systemdict
- } ifelse
- true
- } if } if
- pop
-}forall} forall
-end % systemdict
-.setglobal
-systemdict readonly pop
-
-(bbox-begin\n) ..print
-MAINFILE cvx exec
-(add-showpage==1\n) ..print
-/DOCUT false def
-showpage quit
-';
- die unless close F;
- # vvv Imp: make it work on Win32 (no >&1 redirection)
- my $gs3=$CGS. # "-dPAGE1QUIT=".($FileFormat eq 'EPS' or $FileFormat eq 'markedEPS' ? 'quit' : '{}').
- " -dWRITESYSTEMDICT -dNOPAUSE -sDEVICE=bbox -sFN=".fnq($InputFilename)." ".fnq($tfn)." 2>&1";
- debug "Ghostscript compute pipe: $gs3";
- my $res=`$gs3`;
- ## die $res;
- temp_unlink $tfn;
- ## print STDERR $res;
- error "not a GS output from $GS"
- if !defined $res # BUGFIX at Sun Mar 7 18:51:34 CET 2004
- or $res!~s/\A\w+ Ghostscript \d.*\n// # AFPL Ghostscript 6.50 (2000-12-02)
- or $res!~s/.*?^bbox-begin\n//m;
- if ($res!~s/\nbbox-success\n\Z(?!\n)/\n/) {
- warning # not `error', mpost(1) `prologues:=0; ... btex fonts' output won't compile
- "BBox discovery was not successful";
- # !! continue only if MetaPost output?
- goto SKIP_BBOX_DISC;
- }
- #: Copyright (C) 2000 Aladdin Enterprises, Menlo Park, CA. All rights reserved.
- #: This software comes with NO WARRANTY: see the file PUBLIC for details.
- #: set-called-0==/a4
- #: %%BoundingBox: 56 41 539 783
- #: %%HiResBoundingBox: 56.645998 41.849999 538.811984 782.351976
- #: pop-count==0
- #: end-count==1
- #: cut-offset==81898
- my $pop_count=0;
- my $end_count=0;
- my $cut_offset=-1;
- my $papersize_x=undef; # page_width
- my $papersize_y=undef; # page_height
- my $resolution_x=undef;
- my $resolution_y=undef;
- my $duplexi=0;
- my $tumblei=0;
- my %H;
- my $undefs="";
- my $bbc=0; # required
- for my $line (split/\n/, $res) {
- if ($line=~/^$BBregex$BBValues/oi) { $do_bb_line->($line," from Compute-GS"); $bbc++ }
- elsif ($line=~m@^set-called-(\d+)==/(\S+)$@) {
- if (not exists $H{$2}) {
- $H{$2}=1;
- $undefs.="/$2".(
- $1==0 ? "{}def\n" :
- $1==1 ? "/pop load def\n" :
- "{".("pop "x$1)."}bind def\n"
- );
- }
- # Dat: Safe, restorable, EPS-wise: /setpagedevice {pop} def
- # Dat: Smart, documentwise /a4 dup where{dup wcheck{exch{}put}{pop{}def}ifelse}{pop}ifelse
- }
- elsif ($line=~/^pop-count==(\d+)$/) { $pop_count=$1+0 }
- elsif ($line=~/^end-count==(\d+)$/) { $end_count=$1+0 }
- elsif ($line=~/^cut-offset==(\d+)$/) { $cut_offset=$1+0 }
- elsif ($line=~/^papersize-x==([-+0-9eE.]+)$/) { no integer; $papersize_x=$1+0 }
- elsif ($line=~/^papersize-y==([-+0-9eE.]+)$/) { no integer; $papersize_y=$1+0 }
- elsif ($line=~/^resolution-x==([-+0-9eE.]+)$/) { no integer; $resolution_x=$1+0 }
- elsif ($line=~/^resolution-y==([-+0-9eE.]+)$/) { no integer; $resolution_y=$1+0 }
- elsif ($line=~/^sides-duplex==true$/) { $duplexi=1 }
- elsif ($line=~/^sides-dumplex==false$/) { $duplexi=2 }
- elsif ($line=~/^sides-tumble==true$/) { $tumblei=1 }
- elsif ($line=~/^sides-tumble==false$/) { $tumblei=2 }
- elsif (length($line)==0 or $line=~/^(?:Copyright |This software )/) {}
- elsif ($line=~/^Loading (\S+) font from.*[.][.][.]/) { debug "GS builtin font used: $1" }
- else { debug "unknown line ($line)" }
- }
- undef $papersize_y if !defined $papersize_x;
- die unless $allow_adsc_bb==1;
- # Dat: This only applies when converting fron non-EPS PS:
- # Setting $allow_adsc_bb=0|1 now would disallow/allow the %%BoundingBox
- # etc. ADSC comment override the bbox computed by -sDEVICE=bbox.
- # When converting PS -> EPS, the PS file usually contains
- # `%%BoundingBox: 0 0 paperwidth paperheight', but the figure
- # itself is smaller.
- $bbtype='-';
- ## die "$papersize_x;;"; # PDF -sPAPERSIZE=a4
- #if ($::opt_papersize ne 'force-unknown' and $::opt_papersize ne 'unchanged') {
- # # override bbox
- # ($llx,$lly)=(0,0);
- # ($urx,$ury)=split/,/,$::opt_papersize;
- #} elsif (!is_page1_stop() and defined $papersize_x and defined $papersize_y) {
- #}
- debug "PaperSize wd=${papersize_x}bp ht=${papersize_y}bp" if defined $papersize_x;
- if ($::opt_papersize eq 'force-unknown' or ($::opt_papersize eq 'unchanged' and !defined $papersize_x)) {}
- elsif ($::opt_papersize ne 'unchanged') {
- die if is_page1_stop();
- ($papersize_x,$papersize_y)=split/,/,$::opt_papersize;
- goto do_force_papersize
- } else {
- # Dat: no $do_bb_line here, because we've done it with $bbc++, and we'll also do it later
- do_force_papersize:
- die if is_page1_stop();
- # vvv ($llx,$lly,$urx,$ury)=(0,0,$papersize_x,$papersize_y);
- # $do_bb_line->("set 0 0 $papersize_x $papersize_y"," from /PageSize");
- $after_correct.="1 dict dup /PageSize [".ceil($papersize_x)." ".ceil($papersize_y)."] put setpagedevice\n";
- # ^^^ Dat: both PS and markedPS would benefit from /PaperSize
- # ^^^ Dat: will be put after CorrectBoundingBox
- # Dat: unneeded: $allow_adsc_bb=0 if $FileFormat eq 'PDF'; # force this into /CropBox (otherwise only /MediaBox)
- }
- if (defined $papersize_x and ($::opt_bboxfrom eq 'papersize' or ($::opt_bboxfrom eq 'guess' and is_set_pagesize_ok()))) {
- $allow_adsc_bb=0;
- $do_bb_line->("set 0 0 $papersize_x $papersize_y"," from /PageSize"); # does ($llx,$lly,$urx,$ury)=(0,0,$papersize_x,$papersize_y);
- }
- $allow_adsc_bb=0 if ($::opt_bboxfrom eq 'compute-gs') ? ($bbc!=0)
- : ($::opt_bboxfrom eq 'guess') ? ($bbc!=0 and is_page1_stop()) # Imp: is is_page1_stop() OK here?
- : 0;
- if (!is_page1_stop()) {
- $pop_count=$end_count=0; # assume PS is correct
- $cut_offset=-1;
- }
- # if ($FileFormat ne 'EPS' and $FileFormat ne 'PS') { # device-specific (marked)
- # ^^^ Dat: $::opt_resolution and $::opt_duplex are already 'force-unknown' if $FileFormat is appropriate
- {
- $::opt_resolution=$resolution_x.','.$resolution_y if
- $::opt_resolution eq 'unchanged' and defined $resolution_x and defined $resolution_y;
-
- # vvv Imp: move down like $::opt_resolution
- if ($::opt_duplex eq 'force-unknown' or ($::opt_duplex eq 'unchanged' and $duplexi==0)) { $do_fix_tumble=($duplexi==1 && $tumblei==1) }
- elsif ($::opt_duplex eq 'force-simplex') { do_simplex: $after_correct.="1 dict dup /Duplex false put setpagedevice\n" }
- elsif ($::opt_duplex eq 'force-long' ) { do_long: $after_correct.="2 dict dup /Duplex true put dup /Tumble false put setpagedevice\n" }
- elsif ($::opt_duplex eq 'force-short') { do_short: $do_fix_tumble=1; $after_correct.="2 dict dup /Duplex true put dup /Tumble true put setpagedevice\n" }
- else {
- $duplexi ||= $::opt_duplex eq 'default-simplex' ? 2 : 1;
- $tumblei ||= $::opt_duplex eq 'default-short' ? 1 : 2;
- goto do_simplex if $duplexi!=1;
- goto do_long if $tumblei!=1;
- goto do_short;
- }
- }
- # vvv Dat: save...restore is _always_ necessary to undo the changes made
- # in the file itself
- $is_restored=1; # $after_comments.="save\n";
- $after_comments.=$undefs; # after our precious setpagedevice calls
- # debug "pop_count=$pop_count;";
- # debug "end_count=$end_count;";
- # debug "cut_offset=$cut_offset;";
- $after_code.=("pop\n"x$pop_count).("end\n"x$end_count);
- if ($cut_offset>=0 and ($bytes_left==-1 or $cut_offset<$bytes_left)) {
- $bytes_left=$cut_offset-$already_read;
- ##print tell(IN)." ar=$already_read\n";
- debug "Cutting after showpage at $cut_offset -> $bytes_left";
- # ^^^ Dat: cutting after `showpage' makes PS -> EPS conversion easy
- # sleep 1000;
- }
- # Dat: don't unlink $tifn yet, we'll continue scanning it
- # Imp: verify EPS created
- } else { $headEPSF=" $1" }
- SKIP_BBOX_DISC:
- if ($::opt_resolution eq 'force-unknown' or $::opt_resolution eq 'unchanged') {}
- else { $after_correct.="1 dict dup /HWResolution [@{[split/[x,]/,$::opt_resolution]}] put setpagedevice\n" }
- # ^^^ Dat: syntax already ok for $::opt_resolution
- $after_correct.="2 dict dup /TextAlphaBits 4 put dup /GraphicsAlphaBits 4 put setpagedevice\n" if
- $::opt_antialias eq 'yes' or $::opt_antialias eq 'scale3yes';
-
- $headEPSF="" if $FileFormat ne 'EPS' and $FileFormat ne 'markedEPS';
- $headPS=$1 if $header=~s/(PS-Adobe-[.\d]+)$//;
- $to_OUT.="%!$headPS$headEPSF\n";
- }
-
- debug "Scanning header for BoundingBox";
- my $do_atend=0;
- my $doing_atend=0;
- my $saved_pos;
- my $saved_bytes_left;
- my $creator_metapost_p=0; # HiResBoundingBox: after EndProlog
- my $creator_adobeps_p=0;
- my $had_pages=is_page1_stop(); # Dat: don't put `Pages:' to target EPS
- my $fontsdefs="";
- my %fontsnames;
- my @creator;
- read_again: while (length($_=readIN)) {
- ##print STDERR "(($_))\n";
- ### end of header
- next unless /\S/;
- y@\r@@d; chomp;
- if (!$doing_atend) {
- if (/^%%EndComments\b/i) {
- # Dat: EPSI created by ImageMagick has BeginDefaults+EndDefaults+BeginPreview
- # Dat: PS output by ADOBEPS4.DRV has BeginDefaults+PageBoundingBox+ViewingOrientation+PageFeatures+EndDefaults
- 1 while length($_=readIN) and !/\S/;
- if (!/^%%BeginDefaults\b/i) { y@\r@@d; chomp; $after_comments.="$_\n"; last }
- 1 while length($_=readIN) and !/\S/;
- if (!/^%%EndDefaults\b/i) { y@\r@@d; chomp; $after_comments.="%%BeginDefaults\n$_\n"; last }
- next
- } elsif (/^%%EndDefaults\b/i) { # EPSI created by ImageMagick
- } elsif (/^%%Creator:\s*ADOBEPS/i) { # ADOBEPS4.DRV
- # Emits ``%%BoundingBox 1 1 ...' instead of `0 0'
- $creator_adobeps_p=1;
- } elsif (/^%%Creator:\s*MetaPost\b/i) {
- $creator_metapost_p=1;
- } elsif ((substr($_,0,2)ne'%%' and substr($_,0,7)ne'%*Font:')
- and substr($_,0,5)ne'%EPS ' # epsincl.mp
- or !$creator_metapost_p and substr($_,0,5)eq'%%End'
- or /^%%Begin(?:Prolog|Setup)\b/i
- ) { $after_comments.="$_\n"; last }
- }
- if (/^%%BeginPreview\b/i) { # remove EPSI preview ballast ****pts****
- while (1) {
- error "Missing EPSI %%EndPreview" if !length($_=readIN);
- last if /^%%EndPreview\b/;
- y@\r@@d; chomp
- }
- } elsif (/^%%Creator:\s*(.*)/i) {
- push @creator, $1;
- $creator[-1]=~s@\s+\Z(?!\n)@@;
- $creator[-1]=~s@, a2ping .*@@; # remove old
- } elsif (/^%%(?:DocumentPaperSizes|PageOrder|DocumentMedia):/i) {
- # silently ignore these -- will be recalculated
- } elsif (/^%%Pages:\s+(\d+)\s*/i and !$had_pages) { # Not `%%Pages: (atend)'
- # Dat: don't `$do_atend=1' only for %%Pages
- $to_OUT.="$_\n"; $had_pages=1
- } elsif (/^%%Pages:/i) {
- # silently ignore these -- not significant for EPS
- } elsif (/^$BBregex$BBValues/oi) { ### BoundingBox with values
- s@($BBregex)\s*1\s+1\s+@$1 0 0 @ if $creator_adobeps_p;
- # vvv $bbtype may be possibly already set by compute-gs
- $do_bb_line->($_," from ADSC") if $allow_adsc_bb;
- } elsif (/^$BBregex\s*\(atend\)/oi) {
- ### BoundingBox with (atend)
- debug "At end $1BoundingBox";
- # warning "Cannot look for BoundingBox in the trailer with option --filter" if $::opt_filter;
- # ^^^ Dat: may be seekable anyway, omit warning
- $do_atend=1
- } elsif (/^%%Page:/i and !$creator_metapost_p) { # at Thu Sep 25 15:59:52 CEST 2003
- $after_comments.="$_\n"; last
- } elsif (/^%\*Font:\s+(\S+)\s+/) { # mpost(1) output
- ## debug $_;
- $fontsdefs.="$_\n"; # put in front (before `gsave ... translate')
- $fontsnames{$1}=1;
- } elsif (substr($_,0,5) eq '%EPS ') { # epsincl.mp
- $after_correct.="$_\n" if !$doing_atend; # before `gsave'
- } elsif ($doing_atend or /^%%End/) {
- # we might be in mid-line
- } else {
- $to_OUT.="$_\n"
- }
- }
- if ($doing_atend) { # already read (atend); restore file position
- seek(IN, $saved_pos, 0) or error "Input unseekable, cannot go back to line `: (atend)'";
- $bytes_left=$saved_bytes_left;
- } elsif ($do_atend) { # seek to near EOF and try again
- # error "Cannot leave line `: (atend)'" if ($saved_pos=tell IN)<0 or !seek(IN,0,1);
- fix_pipe_in "j.ps", $to_OUT, 0;
- die if ($saved_pos=tell IN)<0;
- $saved_bytes_left=$bytes_left;
- # vvv get the very last *BoundingBox entry from the last 4096 bytes
- if ($bytes_left>4096) {
- die unless seek(IN, $bytes_left-4096, 1);
- $bytes_left=4096;
- } elsif ($bytes_left<0) {
- die unless seek(IN, -4096, 2) or seek(IN, 0,0); # Dat: 0,0 for short files
- }
- $doing_atend=1; goto read_again;
- }
- # if (!$had_pages) { debug "Lying %%Pages: 1"; $to_OUT.="%%Pages: 1\n" }
- # ^^^ Dat: rather not lie !! go to (atend) if command line
- # vvv Dat: $bbtype ne'-' would be a bad idea
- warning "BoundingBox not found, try --bboxfrom=compute-gs" if !defined $llx; # !! compute-gs
- push @creator, "$program $Htex::a2ping::VERSION"; # if "@creator"!~/\ba2ping\b/;
- $to_OUT.="%%Creator: ".join(", ",@creator)."\n"; # before CorrectBoundingBox to be before `gsave' etc.
- $to_OUT.=CorrectBoundingBox $llx, $lly, $urx, $ury, $after_correct, $fontsdefs, $is_restored;
- $to_OUT.=$after_comments;
- if (%fontsnames) { # !! save .. restore
- $to_OUT.="{@{[sort keys%fontsnames]}}{\ndup where{pop pop}{cvlit dup def}ifelse}forall\n";
- $to_OUT.="/fshow where{pop}{/fshow{exch findfont exch scalefont setfont show}bind def}ifelse\n";
- }
-}
-
-### open output file or pipe (do this as late as possible)
-my $do_scale3_pnm=0;
-my $scale3_pnm_fn;
-my @pnm2sampled_cmd;
-if ($FileFormat eq 'PDF' or $FileFormat eq 'PDF1') {
- my $ofn=$ll_zero ? $OutputFilename : fix_pipe_out('.pdf');
- my $pipe = "$GS -q -dBATCH -sDEVICE=pdfwrite $GSOPTS -sOutputFile=".fnq($ofn)." -";
- debug "Ghostscript ps2pdf pipe:", $pipe;
- open(OUT, "| $pipe") or error "Cannot open Ghostscript pipe";
-} elsif ($FileFormat eq 'PCL5') {
- my $ofn=$do_fix_tumble ? fix_pipe_out('.pcl5') : $OutputFilename;
- # vvv ljet4 cannot do duplex, ljet4d can
- my $pipe = "$GS -q -dBATCH -sDEVICE=ljet4d $GSOPTS -sOutputFile=".fnq($ofn)." -";
- debug "Ghostscript ps2ljet pipe:", $pipe;
- open(OUT, "| $pipe") or error "Cannot open Ghostscript pipe";
-} elsif ($FileFormat eq 'PBM' or $FileFormat eq 'PGM' or $FileFormat eq 'PPM'
- or is_via_sam2p()) {
- $do_scale3_pnm=($::opt_antialias eq'scale3no' or $::opt_antialias eq 'scale3yes');
- my $device=$FileFormat eq 'PPM' || is_via_sam2p() ? 'ppmraw' :
- $FileFormat eq 'PBM' && $::opt_antialias eq 'no' ? 'pbmraw' : 'pgmraw';
- # Dat: -sDEVICE=pgm is ASCII, pgmraw is binary
- my $pipe ="$GS -q -dBATCH -sDEVICE=$device ";
- # $pipe.="-dTextAlphaBits=4 -dGraphicsAlphaBits=4 " if $::opt_antialias; # Dat: already done
- my $ofn=$OutputFilename;
- if (is_via_sam2p()) {
- # Dat: fortunately the following file format names are commin in sam2p(1)
- # and a2ping.pl: PNG XWD BMP TIFF JPEG GIF XPM
- @pnm2sampled_cmd=('sam2p',"$FileFormat:",'--'); # Imp: use convert(1) if no sam2p(1)
- $ofn=fix_force_out('SS.pnm');
- push @pnm2sampled_cmd, $ofn, $OutputFilename;
- }
- if ($do_scale3_pnm) {
- $scale3_pnm_fn=$ofn;
- $ofn=fix_force_out('S3.pnm') if $do_scale3_pnm;
- # ^^^ Dat: this must be the last call to fix_force_out()
- }
- $pipe.="$GSOPTS -sOutputFile=".fnq($ofn)." -";
- debug "Ghostscript ps2raster pipe:", $pipe;
- open(OUT, "| $pipe") or error "Cannot open Ghostscript pipe";
-} else { open_OUT() }
-
-my $unlink_OutputFilename;
-END { unlink $unlink_OutputFilename if defined $unlink_OutputFilename }
-$unlink_OutputFilename=$OutputFilename;
-
-die unless binmode OUT;
-#die $to_OUT;
-# !! remove setpagedevice from EPS->EPS, but keep EPS->PGM
-# vvv needed by EPS->PGM conversion !!
-if (is_need_showpage() and is_page1_stop()) {
- $to_OUT.="/showpage{showpage quit}bind def\n"; # don't call showpage twice
- $after_code.="showpage\n";
-}
-error "write OUT" if !print OUT $to_OUT;
-$to_OUT="";
-
-### print rest of file
-sub OVERLAP_LENGTH(){4096} # `%%TrailerLength: 1162' by ADOBEPS4.DRV
-my $extra_trailer="%%Trailer\n";
-##undef $unlink_OutputFilename; die;
-{ my $overlap=""; # keeps OVERLAP_LENGTH chars
- my $S;
- # print OUT while length($_=readIN 4096);
- while (length($S=readIN 4096)) { # Dat: 4096>=OVERLAP_LENGTH
- #if (length($S)<OVERLAP_LENGTH) { $S="$overlap$S"; $overlap=""; }
- #die if length($S)<OVERLAP_LENGTH; # happens sometimes
- #print OUT $overlap, substr($S,0,length($S)-OVERLAP_LENGTH());
- #$overlap=substr($S,-OVERLAP_LENGTH(),OVERLAP_LENGTH);
- next if length($overlap.=$S)<OVERLAP_LENGTH;
- print OUT substr($overlap,0,length($overlap)-OVERLAP_LENGTH());
- $overlap=substr($overlap,-OVERLAP_LENGTH());
- }
- if ($overlap=~s@\r?\n%%Trailer\r?\n(.*?)\Z(?!\n)@\n%%Trailer\n@s) {
- my $S=$1;
- $S=~y@\r@@d;
- $S=~s@\n%%TrailerLength:.*$@@m; # ADOBEPS4.DRV
- $overlap.=$S;
- $extra_trailer="";
- }
- $overlap=~s@(?:[\n\r\0\f]+%%EOF)?[\n\r\0\f]*\Z(?!\n)@@;
- # vvv Dat: would move %%Trailer after dvips output `end userdict /end-hook known{end-hook}if'
- # $overlap=~s@(?:[\n\r\0\f]+%%Trailer)?(?:[\n\r\0\f]+%%EOF)?[\n\r\0\f]+\Z(?!\n)@@;
- print OUT $overlap;
-}
-
-### close files
-error "closing IN: $?" unless close IN;
-# ^^^ SUXX: gs always exit(0), if exists
-# vvv Dat: $after_code is pop+end
-print OUT "\n$extra_trailer$after_code",
- ("grestore\n"x$need_grestore),
- ("restore\n"x$is_restored),
- "%%EOF\n";
-error "closing gs filter: $? $!" unless close OUT;
-
-# --- PNM scaling routines for --antialias=scale3*
-
-sub pnm_gettok($) {
- my ($fh,$S,$C)=($_[0],"");
- while (1) {
- die "unexpected EOF" if !defined($C=getc($fh));
- if ($C eq'#') { <$fh> } # ignore rest of line
- elsif ($C=~y@ \n\r\t@@) { last if length($S)!=0 }
- else { $S.=$C }
- }
- $S
-}
-
-my @div9=(0,0,0,0,0,map { $_, $_, $_, $_, $_, $_, $_, $_, $_ } 1..255, 255);
-
-#** @param $_[0] length always divisible by 3
-sub p5_avg_lines($$$$) {
- use integer;
- my $len=length($_[0]);
- my $olen=$len/3;
- while ($len>0) {
- vec($_[3],--$olen,8)=$div9[
- vec($_[0],$len-1,8)+vec($_[0],$len-2,8)+vec($_[0],$len-3,8)+
- vec($_[1],$len-1,8)+vec($_[1],$len-2,8)+vec($_[1],$len-3,8)+
- vec($_[2],$len-1,8)+vec($_[2],$len-2,8)+vec($_[2],$len-3,8)];
- $len-=3;
- }
-}
-
-#** @param $_[0] length always divisible by 9
-sub p6_avg_lines($$$$) {
- # Imp: why is it lighter than: convert -scale '33.3333%' a3.pbm a3r.pgm
- use integer;
- my $len=length($_[0]);
- my $olen=$len/3;
- while ($len>0) {
- vec($_[3],--$olen,8)=$div9[
- vec($_[0],$len-1,8)+vec($_[0],$len-4,8)+vec($_[0],$len-7,8)+
- vec($_[1],$len-1,8)+vec($_[1],$len-4,8)+vec($_[1],$len-7,8)+
- vec($_[2],$len-1,8)+vec($_[2],$len-4,8)+vec($_[2],$len-7,8)];
- $len-=6 if 0==--$len%3;
- }
-}
-
-# ---
-
-if (!$ll_zero and ($FileFormat eq 'PDF' or $FileFormat eq 'PDF1')) { # correct /MediaBox if not (0,0)-based
- ### ****pts**** remove incorrect /MediaBox produced by gs
- my $tfn=temp_prefix()."p.tgs";
- error "temp open $tfn: $!" unless open F, "> $tfn";
- $tmpfiles{$tfn}=1;
- die unless print F "% this is temporary gs command file created by $program".'
- GS_PDF_ProcSet begin
- pdfdict begin
- FN (r) file pdfopen begin
- % vvv keep file offsets, because `pdffindpageref` overrides it with contents
- /OFT Objects 0 get dup length array copy def
- % vvv Dat: the generation number is assumed to be 0
- % vvv Dat: modifies Objects[0]
- 1 pdffindpageref 0 get
- Objects 0 OFT put
- readxrefentry ===
- currentdict pdfclose end end end
- ';
- die unless close F;
-
- my $gs2="$GS -dNODISPLAY -dBATCH -sFN=".fnq(fix_pipe_out(undef))." -q ".fnq($tfn);
- debug "Ghostscript dup pipe: $gs2";
- my $offset=`$gs2`;
- chomp $offset;
- temp_unlink $tfn;
- if ($offset=~/\A\d+\Z(?!\n)/) {
- # Dat: now $offsets is a file position containing our /Page object
- die unless open F, "+< ".fix_pipe_out(undef);
- die unless binmode F;
- die unless seek F, $offset+=0, 0;
- my $pageobj;
- die unless 32<read F, $pageobj, 4096;
- if ($pageobj=~m@\A(.*?/Type\s*/Page\b.*?)(/MediaBox\s*\[0 0 [^\]]*\]).*?/MediaBox\b@s) {
- substr($pageobj, length($1), length($2))=" "x length($2);
- # ^^^ overwrite first buggy /MediaBox definition with spaces
- die unless seek F, $offset, 0;
- die unless print F $pageobj;
- debug "old /MediaBox destroyed.";
- } else {
- debug "warning: double /MediaBox not found at $offset";
- }
- die unless close F;
- } else {
- debug "warning: gs failed to locate double /MediaBox";
- }
-}
-if ($FileFormat eq 'PCL5' and $do_fix_tumble) {
- # stupid Ghostscript ignores /Tumble true with -sDEVICE=ljet4
- # 2 dict dup /Duplex true /Tumble false put setpagedevice % long HP PCL5e "\033&l1S"
- # 2 dict dup /Duplex true /Tumble true put setpagedevice % short HP PCL5e "\033&l2S"
- # 2 dict dup /Duplex false /Tumble false put setpagedevice % simplex HP PCL5e "\033&l0S"
- # HP PCL5e gs header "\033E\033&l2A\033&l1S\033&l0o0l0E\033&l-180u36Z"
- die unless open F, "+< ".fix_pipe_out(undef);
- die unless binmode F;
- my $pageobj;
- die unless 32<read F, $pageobj, 4096;
- if ($pageobj=~s@\033&l1S.*@\033&l2S@s) {
- die unless seek F, 0, 0;
- die unless print F $pageobj;
- debug "fixed /Tumble true (short).";
- } elsif ($pageobj=~m@\033&l0S@) {
- debug "no need to fix to /Tumble.";
- } else {
- debug "warning: /Duplex /Tumble settings not found"
- }
- die unless close F;
-}
-if ($do_scale3_pnm) {
- # Imp: scale down the file in place, ovoid early overwrite
- # Imp: possibly call an external C program that is faster
- debug "Scaling down PNM by 3x3";
- die unless open F, "> $scale3_pnm_fn";
- die unless binmode F;
- die unless open FIN, "< ".fix_pipe_out(undef);
- my $hd;
- die "PNMraw expected\n" if read(FIN,$hd,2)!=2 or $hd!~/\AP[456]/;
- my $wd=pnm_gettok(*FIN); die "width expected\n" if $wd!~/\A(\d+)\Z(?!\n)/;
- my $wd3=$hd eq 'P4' ? ($wd+7)>>3 : $hd eq 'P5' ? $wd : $wd*3; # bw/grayscale/RGB
- my $ht=pnm_gettok(*FIN); die "height expected\n" if $ht!~/\A(\d+)\Z(?!\n)/;
- if ($hd ne 'P4') {
- my $mx=pnm_gettok(*FIN); die "max==255 expected, got: $mx\n" if $mx ne '255';
- }
- $wd+=0; $ht+=0;
- { use integer;
- my $phd=($hd eq 'P5' and $FileFormat eq 'PBM') ? "P4 ".(($wd+2)/3)." ".(($ht+2)/3)."\n"
- : ($hd eq 'P6' ? 'P6' : 'P5')."\n# reduced-3x3\n".
- (($wd+2)/3)." ".(($ht+2)/3)." 255\n";
- die if !print F $phd;
- }
-
- my($l1,$l2,$l3);
- my $ret="";
- if ($hd eq 'P4') {
- while ($ht>0) {
- die "full row expected1\n" if $wd3!=read FIN, $l1, $wd3;
- if (--$ht==0) { $l2=$l1 }
- else {
- die "full row expected2\n" if $wd3!=read FIN, $l2, $wd3;
- if (--$ht==0) { $l3=$l2 } # Imp: adjust 2/3 weight
- else { $ht--;
- die "full row expected3\n" if $wd3!=read FIN, $l3, $wd3;
- }
- }
- $l1=unpack("B$wd",$l1); $l1=~y@10@\000\377@; $l1.=substr($l1,-3+length($l1)%3) if length($l1)%3!=0;
- $l2=unpack("B$wd",$l2); $l2=~y@10@\000\377@; $l2.=substr($l2,-3+length($l2)%3) if length($l2)%3!=0;
- $l3=unpack("B$wd",$l3); $l3=~y@10@\000\377@; $l3.=substr($l3,-3+length($l3)%3) if length($l3)%3!=0;
- p5_avg_lines($l1, $l2, $l3, $ret);
- die if !print F $ret;
- }
- } elsif ($hd eq 'P5') {
- while ($ht>0) {
- die "full row expected1\n" if $wd3!=read FIN, $l1, $wd3;
- $l1.=substr($l1,-3+length($l1)%3) if length($l1)%3!=0;
- if (--$ht==0) { $l2=$l1 }
- else {
- die "full row expected2\n" if $wd3!=read FIN, $l2, $wd3;
- $l2.=substr($l2,-3+length($l2)%3) if length($l2)%3!=0;
- if (--$ht==0) { $l3=$l2 } # Imp: adjust 2/3 weight
- else { $ht--;
- die "full row expected3\n" if $wd3!=read FIN, $l3, $wd3;
- $l3.=substr($l3,-3+length($l3)%3) if length($l3)%3!=0;
- }
- }
- p5_avg_lines($l1, $l2, $l3, $ret);
- if ($FileFormat eq 'PBM') {
- my $I=length($ret);
- while ($I--) { vec($ret,$I,8)=vec($ret,$I,8)<$::opt_threshold } # [\0\1]
- # ^^^ grayscale>=$::opt_threshold will be white
- $ret=pack"B".length($ret),$ret;
- }
- die if !print F $ret;
- }
- } elsif ($hd eq 'P6') {
- while ($ht>0) {
- die "full row expected1\n" if $wd3!=read FIN, $l1, $wd3;
- $l1.=substr($l1,-9+length($l1)%9) if length($l1)%9!=0;
- if (--$ht==0) { $l2=$l1 }
- else {
- die "full row expected2\n" if $wd3!=read FIN, $l2, $wd3;
- $l2.=substr($l2,-9+length($l2)%9) if length($l2)%9!=0;
- if (--$ht==0) { $l3=$l2 } # Imp: adjust 2/3 weight
- else { $ht--;
- die "full row expected3\n" if $wd3!=read FIN, $l3, $wd3;
- $l3.=substr($l3,-9+length($l3)%9) if length($l3)%9!=0;
- }
- }
- p6_avg_lines($l1, $l2, $l3, $ret);
- die if !print F $ret;
- }
- }
- die unless close F;
- temp_unlink $temp_out_fn;
- undef $temp_out_fn;
-}
-if (@pnm2sampled_cmd) { # $scale3_pnm_fn -> $OutputFilename
- do_system @pnm2sampled_cmd; # Dat: uses @extra -- really share that?
- temp_unlink $scale3_pnm_fn;
-}
-fix_close_out();
-undef $unlink_OutputFilename;
-if ($OutputFilename eq '-') {
- debug "Done OK, stdout is $FileFormat"
-} elsif (-f $OutputFilename) {
- debug "Done OK, created $FileFormat file $OutputFilename (".(-s _)." bytes)";
-} else {
- error "missing $OutputFilename"
-}
-just::end __END__
-
-Dat: `=item * foo' is wrong, puts big space between `*' and `foo'
-
-=begin man
-
-.ds pts-dev \*[.T]
-.do if '\*[.T]'ascii' .ds pts-dev tty
-.do if '\*[.T]'ascii8' .ds pts-dev tty
-.do if '\*[.T]'latin1' .ds pts-dev tty
-.do if '\*[.T]'nippon' .ds pts-dev tty
-.do if '\*[.T]'utf8' .ds pts-dev tty
-.do if '\*[.T]'cp1047' .ds pts-dev tty
-.do if '\*[pts-dev]'tty' \{\
-.ll 79
-.pl 33333v
-.nr IN 2n
-.\}
-.ad n
-
-=end
-
-=head1 NAME
-
-a2ping.pl -- convert between PS, EPS and PDF and other page description
-formats
-
-=head1 SYNOPSIS
-
-Z<> B<a2ping.pl> [B<-->]B<help>
- B<a2ping.pl> [B<-->]B<doc>
- B<a2ping.pl> [I<options>] <I<inputfile>> [[I<outformat>:] I<outputfile>]
-
-=head1 DESCRIPTION
-
-B<a2ping> is a UNIX command line utility written in Perl that
-converts many raster image and vector graphics formats to EPS or PDF and
-other page description formats. Accepted input file formats are: PS
-(PostScript), EPS, PDF, PNG, JPEG, TIFF, PNM, BMP, GIF, LBM, XPM, PCX,
-TGA. Accepted output formats are: EPS, PCL5, PDF, PDF1, PBM, PGM, PPM,
-PS, markedEPS, markedPS, PNG, XWD, BMP, TIFF, JPEG, GIF, XPM.
-B<a2ping> delegates the low-level work to
-Ghostscript (GS), B<pdftops> and B<sam2p>. B<a2ping> fixes many glitches
-during the EPS to EPS conversion, so its output is often more compatible
-and better embeddable than its input.
-
-Without the C<--below> option, it is guarenteed to start at the 0,0
-coordinate. C<--below>, C<--hires> and C<-v> are recommended options.
-
-The page size is set exactly corresponding to the BoundingBox.
-This means that when Ghostscript renders it, the result needs no
-cropping, and the PDF MediaBox is correct.
-
-If the bounding box is not right, of course, you have problems. If you
-feed crap in, you get crap. But you can supply the
-B<--bboxfrom=compute-gs> option to make GS recompute the bounding box.
-
-The name of the input file doesn't matter -- B<a2ping> detects the file
-format based on the first few bytes of the file. The name of the output
-file matters if I<outformat> is missing from the command line: then the
-extension of the output file determines the FileFormat (I<outformat>).
-
-=head1 EXTERNAL PROGRAMS
-
-The internal file format of B<a2ping.pl> is PS/EPS. Everything read is
-first converted to PS or EPS, then processed by B<a2ping.pl>, then
-converted to the output format.
-
-To analyse the bounding box and other properties of non-EPS PS files
-(and EPS files with option B<--bboxfrom> other than B<=guess>), GS is
-used. Converting PS to EPS involves this analysis.
-
-To write PDF files, GS is used.
-
-To read PDF files, B<pdftops> from the B<xpdf> package is used.
-
-Sampled input formats are PNG, JPEG, TIFF, PNM, BMP, GIF, LBM, XPM, PCX
-and TGA. To read sampled input formats, B<sam2p> is used. B<sam2p> is
-a raster image converter written in C++ by the author of B<a2ping.pl>.
-
-Extra output formats are PNG, XWD, BMP, TIFF, JPEG, GIF and XPM. To
-write extra output formats, B<sam2p> and GS are used.
-
-PNM output formats are PGM, PGM and PPM. To write PNM output formats, GS
-is used.
-
-
-=head1 TIPS AND TRICKS
-
-=over 2
-
-=item *
-
-Call with the B<-v> option to see progress and debug messages.
-
-=item *
-
-If your EPS contains a wrong bounding box, you can fix it by running
-C<a2ping.pl -v --bboxfrom=compute-gs thefile.eps -->
-
-=item *
-
-You can specify B<-> as I<inputfile> to get stdin and as I<outputfile>
-to get stdout. This works even for PDF files (which must be seekable),
-because B<a2ping> copies them to a temporary file automatically.
-
-=item *
-
-If I<inputfile> and I<outputfile> are the same, B<a2ping> copies the
-I<inputfile> to a temporary location first. However, this usage is
-recommended only if there is a backup of the file to be restored in case
-B<a2ping> doesn't produce the desired result.
-
-=item *
-
-If you specify B<--> as I<outputfile>, it will be the same as I<inputfile>.
-
-=item *
-
-B<a2ping> respects B<--Duplex> for FileFormat PCL5, even though GS doesn't.
-
-=item *
-
-If you have an incompatible PS that GS can read but your printer cannot print,
-just run C<a2ping.pl foo.ps PDF: - | a2ping.pl - PS: foo.ps>
-
-=item *
-
-If you have a PS coming from Win32 (often with extension C<.prn>), run
-it through B<a2ping>. It will remove the resolution changes and the
-progress text printed to the terminal (which confuses gv(1) and makes
-some filters in the print queue emit incorrect output).
-
-=item *
-
-B<a2ping> does antialiasing (B<--antialias=scale3no>) of glyphs and
-curves when emitting a sampled image (FileFormats such as PGM and PPM).
-This improves readability of the glyphs. B<=yes> instructs GS to do
-internal antialiasing, but it usually doesn't improve much. B<=scale3no>
-turns off GS internal antialiasing, but makes it render everything 3x3
-as big, and then scales it back down. B<=scale3no> turns on both 3x3
-scaling and GS internal antialiasing, which results in thicker lines and
-worse quality in general.
-
-=item *
-
-When creating a PBM file, antialiasing usually doesn't improve the
-quality, so it is switched off by default. But if you set
-B<--antialias=scale3no> or B<--antialias=scale3yes>, GS will render a PGM file,
-and the value of B<--threshold> determines the minimum intensity for white in
-the final PBM.
-
-=item *
-
-If you need a bigger sampled output file, specify a larger
-B<--Resolution>. The default is B<--Resolution=72>. If your sampled output file
-is going to be really big, you should specify B<--AntiAlias=yes> instead of
-the default B<--AntiAlias=scale3no> to speed up conversion.
-
-=back
-
-
-=head1 MISC
-
-=over 2
-
-=item *
-
-Doesn't depend on the filename or extension of the input file.
-
-=item *
-
-Conversion from EPS to PDF: fixes glitches etc., calls gs
--sDEVICE=pdfwrite
-
-=item *
-
-Conversion from EPS to EPS: fixes various glitches, moves (llx,lly) to
-(0,0), removes binary junk from the beginning of the EPS etc.
-
-=item *
-
-Conversion from PDF to PDF: keeps the file intact
-
-=item *
-
-Conversion from PDF to EPS: calls pdftops -eps (of the xpdf package)
-
-=item *
-
-Conversion from PS to EPS: keeps 1st page only, removes setpagedevice etc.
-
-=back
-
-=head1 AUTHORS
-
-The author of B<a2ping> is Szabó Péter <F<pts@fazekas.hu>>.
-
-B<a2ping> is inspired by and historically based on the B<epstopdf> Perl
-script modified by Thomas Esser, Sept. 1998, but his modifications have
-been removed from B<a2ping>, and also B<a2ping> and B<epstopdf> do not
-share common code anymore. B<epstopdf> is written by Sebastian Rahtz,
-for Elsevier Science. B<epstopdf> contained extra tricks from Hans Hagen's
-texutil.
-
-=head1 HISTORY
-
-=head2 1999/05/06 v2.5 (Heiko Oberdiek)
-
- * New options: --hires, --exact, --filter, --help.
- * Many cosmetics: title, usage, ...
- * New code for debug, warning, error
- * Detecting of cygwin perl
- * Scanning for %%{Hires,Exact,}BoundingBox.
- * Scanning only the header in order not to get a wrong
- BoundingBox of an included file.
- * (atend) supported.
- * uses strict; (earlier error detecting).
- * changed first comment from '%!PS' to '%!';
- * corrected (atend) pattern: '\s*\(atend\)'
- * using of $bbxpat in all BoundingBox cases,
- correct the first white space to '...Box:\s*$bb...'
- * corrected first line (one line instead of two before 'if 0;';
-
-=head2 2000/11/05 v2.6 (Heiko Oberdiek)
-
- * %%HiresBoundingBox corrected to %%HiResBoundingBox
-
-=head2 2001/03/05 v2.7 (Heiko Oberdiek)
-
- * Newline before grestore for the case that there is no
- whitespace at the end of the eps file.
-
-=head2 2003/02/02 (Szabó Péter)
-
- * option --below
- * removes DOS EPSF binary junk correctly
- * adds all 3 BoundingBox DSC comments
- * reads all 3 BoundingBox DSC comments, and picks the best
- * forces BoundingBox to be an integer
- * adds %%EndComments and proper %!PS-Adobe-?-? EPSF-?.? header
- * adds %%Pages:
- * adds invocation syntax: a2ping <infile.eps> <outfile.eps|pdf>
- * can convert PDF to EPS (by calling pdftops(1)) and PDF to PDF
- * emulates work for PDF input
-
-=head2 2003/04/16 (Szabó Péter)
-
- * added PS and sam2p support, renamed to a2ping
- * sam2p and pdftops if $InputFilename eq '-';
- * remove PJL UEL header from the beginning
- * works for PS non-EPS files for input
- * input support for PNG JPEG TIFF PNM BMP GIF LBM XPM PCX TGA via sam2p
- * removes ^L (form feed) from end of EPS file
- * -x=-c:rle to add sam2p options
-
-=head2 2003/04/26 (Szabó Péter)
-
- * omit the unnecessary setpagedevice calls when creating normal eps
- * --noverbose --nocompress supported differently
- * no more option defaults :-(
- * justlib2
- * multi-page output with PS:, PDF:, PCL5:
- * after `a2ping -pa4', file out.pcl says: `HP PCL printer data - A4 page
- size', instead of `US letter'
- * justlib2-ified doesn't depend on Getopt::Long anymore
- * fully supports filtering (stdin and/or stdout), PDF and PCL5 output to
- pipe (!$$ll_zero)
- * adds DSC ``%%DocumentMedia: plain 612 792 0 () ()''
- * BoundingBox precedence for EPS input: --PageSize, %%*BoundingBox,
- setpagedevice. Precedence for other inputs: --PageSize, setpagedevice,
- %%*BoundingBox
-
-=head2 2003/09/25 (Szabó Péter)
-
- * --bboxfrom=adsc: %%BoundingBox overrides -sDEVICE=bbox
- * improved bbox discovery
- * many bugfixes
- * MetaPost EPS input fixes for prologues:=0;
- * a2ping.pl -v --papersize=50,60 --bboxfrom=compute-gs t.ps t2.ps
- * consistent bbox, --PageSize, /PageSize handling
- * consistent --Resolution and --Duplex handling
-
-=head2 2003/12/02 (Szabó Péter)
-
- * --bboxfrom=compute-gs option to fix PS -> EPS bbox (gs -sDEVICE=bbox), tuzv.eps
-
-=head2 2004/02/10 v2.77 (Szabó Péter)
-
- * the compute-pipe routine is now run unless --bboxfrom=guess with EPS
- * added --gsextra=
- * added --antialias=
- * added FileFormat PBM, PGM, PPM
- * separated FileFormat features to FL_* constants
- * added --doc
- * there is no default FileFormat (PDF) anymore
diff --git a/Master/bin/alpha-linux/afm2pl b/Master/bin/alpha-linux/afm2pl
deleted file mode 100755
index 9bfa6e75288..00000000000
--- a/Master/bin/alpha-linux/afm2pl
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/afm2tfm b/Master/bin/alpha-linux/afm2tfm
deleted file mode 100755
index 7a628521602..00000000000
--- a/Master/bin/alpha-linux/afm2tfm
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/aleph b/Master/bin/alpha-linux/aleph
deleted file mode 100755
index 6826a871894..00000000000
--- a/Master/bin/alpha-linux/aleph
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/allcm b/Master/bin/alpha-linux/allcm
deleted file mode 100755
index 945c7c88457..00000000000
--- a/Master/bin/alpha-linux/allcm
+++ /dev/null
@@ -1,118 +0,0 @@
-#!/bin/sh
-
-test -f /bin/sh5 && test -z "$RUNNING_SH5" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_SH5=true; export RUNNING_SH5; exec /bin/sh5 $0 ${1+"$@"}; }
-unset RUNNING_SH5
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-# hack around a bug in zsh:
-test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"'
-
-progname=`basename $0`
-tmpdir=${TMPDIR-${TEMP-${TMP-/tmp}}}/$progname.$$
-
-case "$progname" in
- allec)
- encoding=T1;;
- *)
- encoding=OT1;;
-esac
-
-case "$1" in
- -r)
- DVIPS=dvired
- shift
- ;;
- *)
- DVIPS=dvips
- ;;
-esac
-
-body()
-{
- cat <<-'eof'
- \pagestyle{empty}
- \parindent0in
- \hfuzz=\maxdimen
- \hbadness=10000
- \textheight9.5in
- \textwidth6.5in
- \newcommand{\myformula}{\sum a_{b_{c_d}} = c}
- \newcommand{\mytext}{text $\mathcal{\myformula}\mathrm{\myformula}
- \mathbf{\myformula}\mathsf{\myformula}\mathtt{\myformula}
- \mathnormal{\myformula}\mathit{\myformula}$}
-
- \newcommand{\TestSizes}{{%
- \tiny \mytext\scriptsize \mytext\footnotesize \mytext\small \mytext
- \normalsize \mytext
- \large \mytext\Large \mytext\LARGE \mytext\huge \mytext\Huge \mytext}}
- \newcommand{\TestRM}{rm-family: {\rmfamily\TestSizes}\newline}
- \newcommand{\TestSF}{sf-family: {\sffamily\TestSizes}\newline}
- \newcommand{\TestTT}{tt-family: {\ttfamily\TestSizes}\newline}
- \newcommand{\TestFamilies}{\TestRM\TestSF\TestTT\newline}
- \newcommand{\TestMD}{md-series: {\mdseries\TestFamilies}}
- \newcommand{\TestBF}{bf-series: {\bfseries\TestFamilies}}
- \newcommand{\TestSeries}{\TestBF\TestMD\par}
- \newcommand{\TestUP}{up-shape: {\upshape\TestSeries}\par}
- \newcommand{\TestIT}{it-shape: {\itshape\TestSeries}\par}
- \newcommand{\TestSL}{sl-shape: {\slshape\TestSeries}\par}
- \newcommand{\TestSC}{sc-shape: {\scshape\TestSeries}\par}
- \newcommand{\TestShapes}{\TestUP\TestIT\TestSL\TestSC}
- \begin{document}
- \TestShapes
- \end{document}
-eof
-}
-
-head()
-{
- echo '\documentclass['$1'pt]{article}'
- echo '\usepackage['$encoding']{fontenc}'
-}
-
-# before we create the tmpdir, set trap for cleanup
-trap '
- rm -rf $tmpdir
- exit 1
-' 1 2 3 7 13 15
-
-(umask 077; mkdir "$tmpdir") || {
- echo "$progname: failed to create temp directory." >&2
- exit 1
-}
-
-cd $tmpdir || exit 1
-echo >&2
-echo "---------------------------------------------------------------------" >&2
-echo ">>>>>>>>>>> Generating testfiles for 10pt, 11pt and 12pt. <<<<<<<<<<" >&2
-echo "---------------------------------------------------------------------" >&2
-head 10 > allcm10.tex
-head 11 > allcm11.tex
-head 12 > allcm12.tex
-body >> allcm10.tex
-body >> allcm11.tex
-body >> allcm12.tex
-
-echo >&2
-echo "---------------------------------------------------------------------" >&2
-echo ">>>>>>>>>>> Calling latex... <<<<<<<<<<" >&2
-echo "---------------------------------------------------------------------" >&2
-latex allcm10 >/dev/null
-latex allcm11 >/dev/null
-latex allcm12 >/dev/null
-
-echo >&2
-echo "---------------------------------------------------------------------" >&2
-echo ">>>>>>>>>>> Now, calling $DVIPS to make missing fonts... <<<<<<<<<<" >&2
-echo "---------------------------------------------------------------------" >&2
-$DVIPS ${1+"$@"} -V -f allcm10 > /dev/null
-$DVIPS ${1+"$@"} -V -f allcm11 > /dev/null
-$DVIPS ${1+"$@"} -V -f allcm12 > /dev/null
-
-cd /
-rm -rf $tmpdir
diff --git a/Master/bin/alpha-linux/allec b/Master/bin/alpha-linux/allec
deleted file mode 120000
index 6d5b04d0d35..00000000000
--- a/Master/bin/alpha-linux/allec
+++ /dev/null
@@ -1 +0,0 @@
-allcm \ No newline at end of file
diff --git a/Master/bin/alpha-linux/allneeded b/Master/bin/alpha-linux/allneeded
deleted file mode 100755
index 15c62c84adb..00000000000
--- a/Master/bin/alpha-linux/allneeded
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/bin/sh
-
-test -f /bin/sh5 && test -z "$RUNNING_SH5" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_SH5=true; export RUNNING_SH5; exec /bin/sh5 $0 ${1+"$@"}; }
-unset RUNNING_SH5
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-progname=`basename $0`
-dvired=false
-
-case $1 in
--r) DVIPS="dvips -x707"
- shift;;
-*) DVIPS=dvips;;
-esac
-
-case $# in
-0) echo "Usage: $progname [-r] files ..." >&2
- exit ;;
-esac
-
-findopt=
-dvipsopt=
-
-for i
-do
- if [ -f $i ] || [ -d $i ]; then
- findopt="$findopt $i"
- else
- dvipsopt="$dvipsopt $i"
- fi
-done
-
-find $findopt -name \*.dvi -type f -print |
- while true; do
- read i
- test -z "$i" && exit
- echo "processing file '$i' ..."
- $DVIPS $dvipsopt -f "$i" >/dev/null
- echo
- done
diff --git a/Master/bin/alpha-linux/amstex b/Master/bin/alpha-linux/amstex
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/amstex
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/bg5+latex b/Master/bin/alpha-linux/bg5+latex
deleted file mode 120000
index 1366a36e76c..00000000000
--- a/Master/bin/alpha-linux/bg5+latex
+++ /dev/null
@@ -1 +0,0 @@
-gbklatex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/bg5+pdflatex b/Master/bin/alpha-linux/bg5+pdflatex
deleted file mode 120000
index 1e0ce565ca7..00000000000
--- a/Master/bin/alpha-linux/bg5+pdflatex
+++ /dev/null
@@ -1 +0,0 @@
-gbkpdflatex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/bg5conv b/Master/bin/alpha-linux/bg5conv
deleted file mode 100755
index 9aef815ff7c..00000000000
--- a/Master/bin/alpha-linux/bg5conv
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/bg5latex b/Master/bin/alpha-linux/bg5latex
deleted file mode 100755
index b9a36fa844c..00000000000
--- a/Master/bin/alpha-linux/bg5latex
+++ /dev/null
@@ -1,26 +0,0 @@
-#! /bin/sh
-
-n=1
-argv=
-
-# get last argument
-while test 1 -lt $#; do
- eval argv$n=\$1
- argv="$argv \"\$argv$n\""
- n=`expr $n + 1`
- shift
-done
-
-# replace extension with .cjk or append .cjk if there is no extension
-tex=$1
-case $tex in
-""|*.cjk)
- echo >&2 "Usage: $0 [options] latex-file"
- exit 1;;
-*)
- aux=`expr "X$tex" : 'X\(.*\)\.[^/]*$' \| "X$tex" : 'X\(.*\)'`.cjk;;
-esac
-
-bg5conv < "$tex" > "$aux" && eval latex "$argv" "\$aux"
-
-# EOF
diff --git a/Master/bin/alpha-linux/bg5pdflatex b/Master/bin/alpha-linux/bg5pdflatex
deleted file mode 100755
index f65d86d5417..00000000000
--- a/Master/bin/alpha-linux/bg5pdflatex
+++ /dev/null
@@ -1,26 +0,0 @@
-#! /bin/sh
-
-n=1
-argv=
-
-# get last argument
-while test 1 -lt $#; do
- eval argv$n=\$1
- argv="$argv \"\$argv$n\""
- n=`expr $n + 1`
- shift
-done
-
-# replace extension with .cjk or append .cjk if there is no extension
-tex=$1
-case $tex in
-""|*.cjk)
- echo >&2 "Usage: $0 [options] pdflatex-file"
- exit 1;;
-*)
- aux=`expr "X$tex" : 'X\(.*\)\.[^/]*$' \| "X$tex" : 'X\(.*\)'`.cjk;;
-esac
-
-bg5conv < "$tex" > "$aux" && eval pdflatex "$argv" "\$aux"
-
-# EOF
diff --git a/Master/bin/alpha-linux/bibtex b/Master/bin/alpha-linux/bibtex
deleted file mode 100755
index c7142fc7b60..00000000000
--- a/Master/bin/alpha-linux/bibtex
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/bibtex8 b/Master/bin/alpha-linux/bibtex8
deleted file mode 100755
index 0fc7074cb3a..00000000000
--- a/Master/bin/alpha-linux/bibtex8
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/cef5conv b/Master/bin/alpha-linux/cef5conv
deleted file mode 100755
index 5792ce8897c..00000000000
--- a/Master/bin/alpha-linux/cef5conv
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/cef5latex b/Master/bin/alpha-linux/cef5latex
deleted file mode 100755
index b8917c1cd26..00000000000
--- a/Master/bin/alpha-linux/cef5latex
+++ /dev/null
@@ -1,26 +0,0 @@
-#! /bin/sh
-
-n=1
-argv=
-
-# get last argument
-while test 1 -lt $#; do
- eval argv$n=\$1
- argv="$argv \"\$argv$n\""
- n=`expr $n + 1`
- shift
-done
-
-# replace extension with .cjk or append .cjk if there is no extension
-tex=$1
-case $tex in
-""|*.cjk)
- echo >&2 "Usage: $0 [options] latex-file"
- exit 1;;
-*)
- aux=`expr "X$tex" : 'X\(.*\)\.[^/]*$' \| "X$tex" : 'X\(.*\)'`.cjk;;
-esac
-
-cef5conv < "$tex" > "$aux" && eval latex "$argv" "\$aux"
-
-# EOF
diff --git a/Master/bin/alpha-linux/cef5pdflatex b/Master/bin/alpha-linux/cef5pdflatex
deleted file mode 100755
index bd398e0240c..00000000000
--- a/Master/bin/alpha-linux/cef5pdflatex
+++ /dev/null
@@ -1,26 +0,0 @@
-#! /bin/sh
-
-n=1
-argv=
-
-# get last argument
-while test 1 -lt $#; do
- eval argv$n=\$1
- argv="$argv \"\$argv$n\""
- n=`expr $n + 1`
- shift
-done
-
-# replace extension with .cjk or append .cjk if there is no extension
-tex=$1
-case $tex in
-""|*.cjk)
- echo >&2 "Usage: $0 [options] pdflatex-file"
- exit 1;;
-*)
- aux=`expr "X$tex" : 'X\(.*\)\.[^/]*$' \| "X$tex" : 'X\(.*\)'`.cjk;;
-esac
-
-cef5conv < "$tex" > "$aux" && eval pdflatex "$argv" "\$aux"
-
-# EOF
diff --git a/Master/bin/alpha-linux/cefconv b/Master/bin/alpha-linux/cefconv
deleted file mode 100755
index 70d2e116b47..00000000000
--- a/Master/bin/alpha-linux/cefconv
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/ceflatex b/Master/bin/alpha-linux/ceflatex
deleted file mode 100755
index 50c5be54fd9..00000000000
--- a/Master/bin/alpha-linux/ceflatex
+++ /dev/null
@@ -1,26 +0,0 @@
-#! /bin/sh
-
-n=1
-argv=
-
-# get last argument
-while test 1 -lt $#; do
- eval argv$n=\$1
- argv="$argv \"\$argv$n\""
- n=`expr $n + 1`
- shift
-done
-
-# replace extension with .cjk or append .cjk if there is no extension
-tex=$1
-case $tex in
-""|*.cjk)
- echo >&2 "Usage: $0 [options] latex-file"
- exit 1;;
-*)
- aux=`expr "X$tex" : 'X\(.*\)\.[^/]*$' \| "X$tex" : 'X\(.*\)'`.cjk;;
-esac
-
-cefconv < "$tex" > "$aux" && eval latex "$argv" "\$aux"
-
-# EOF
diff --git a/Master/bin/alpha-linux/cefpdflatex b/Master/bin/alpha-linux/cefpdflatex
deleted file mode 100755
index 0615149c5b9..00000000000
--- a/Master/bin/alpha-linux/cefpdflatex
+++ /dev/null
@@ -1,26 +0,0 @@
-#! /bin/sh
-
-n=1
-argv=
-
-# get last argument
-while test 1 -lt $#; do
- eval argv$n=\$1
- argv="$argv \"\$argv$n\""
- n=`expr $n + 1`
- shift
-done
-
-# replace extension with .cjk or append .cjk if there is no extension
-tex=$1
-case $tex in
-""|*.cjk)
- echo >&2 "Usage: $0 [options] pdflatex-file"
- exit 1;;
-*)
- aux=`expr "X$tex" : 'X\(.*\)\.[^/]*$' \| "X$tex" : 'X\(.*\)'`.cjk;;
-esac
-
-cefconv < "$tex" > "$aux" && eval pdflatex "$argv" "\$aux"
-
-# EOF
diff --git a/Master/bin/alpha-linux/cefsconv b/Master/bin/alpha-linux/cefsconv
deleted file mode 100755
index ba7e67b0b4e..00000000000
--- a/Master/bin/alpha-linux/cefsconv
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/cefslatex b/Master/bin/alpha-linux/cefslatex
deleted file mode 100755
index fb2944ceda7..00000000000
--- a/Master/bin/alpha-linux/cefslatex
+++ /dev/null
@@ -1,26 +0,0 @@
-#! /bin/sh
-
-n=1
-argv=
-
-# get last argument
-while test 1 -lt $#; do
- eval argv$n=\$1
- argv="$argv \"\$argv$n\""
- n=`expr $n + 1`
- shift
-done
-
-# replace extension with .cjk or append .cjk if there is no extension
-tex=$1
-case $tex in
-""|*.cjk)
- echo >&2 "Usage: $0 [options] latex-file"
- exit 1;;
-*)
- aux=`expr "X$tex" : 'X\(.*\)\.[^/]*$' \| "X$tex" : 'X\(.*\)'`.cjk;;
-esac
-
-cefsconv < "$tex" > "$aux" && eval latex "$argv" "\$aux"
-
-# EOF
diff --git a/Master/bin/alpha-linux/cefspdflatex b/Master/bin/alpha-linux/cefspdflatex
deleted file mode 100755
index 1985eebe5c8..00000000000
--- a/Master/bin/alpha-linux/cefspdflatex
+++ /dev/null
@@ -1,26 +0,0 @@
-#! /bin/sh
-
-n=1
-argv=
-
-# get last argument
-while test 1 -lt $#; do
- eval argv$n=\$1
- argv="$argv \"\$argv$n\""
- n=`expr $n + 1`
- shift
-done
-
-# replace extension with .cjk or append .cjk if there is no extension
-tex=$1
-case $tex in
-""|*.cjk)
- echo >&2 "Usage: $0 [options] latex-file"
- exit 1;;
-*)
- aux=`expr "X$tex" : 'X\(.*\)\.[^/]*$' \| "X$tex" : 'X\(.*\)'`.cjk;;
-esac
-
-cefsconv < "$tex" > "$aux" && eval pdflatex "$argv" "\$aux"
-
-# EOF
diff --git a/Master/bin/alpha-linux/cfftot1 b/Master/bin/alpha-linux/cfftot1
deleted file mode 100755
index 32b54899eb7..00000000000
--- a/Master/bin/alpha-linux/cfftot1
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/cslatex b/Master/bin/alpha-linux/cslatex
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/cslatex
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/csplain b/Master/bin/alpha-linux/csplain
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/csplain
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/ctangle b/Master/bin/alpha-linux/ctangle
deleted file mode 100755
index 10c7f08d3aa..00000000000
--- a/Master/bin/alpha-linux/ctangle
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/ctie b/Master/bin/alpha-linux/ctie
deleted file mode 100755
index 793945d9830..00000000000
--- a/Master/bin/alpha-linux/ctie
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/cweave b/Master/bin/alpha-linux/cweave
deleted file mode 100755
index 0e60702b0aa..00000000000
--- a/Master/bin/alpha-linux/cweave
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/detex b/Master/bin/alpha-linux/detex
deleted file mode 100755
index cc5b4d68ea6..00000000000
--- a/Master/bin/alpha-linux/detex
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/devnag b/Master/bin/alpha-linux/devnag
deleted file mode 100755
index 9390610fc25..00000000000
--- a/Master/bin/alpha-linux/devnag
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/disdvi b/Master/bin/alpha-linux/disdvi
deleted file mode 100755
index 9e06c0ae478..00000000000
--- a/Master/bin/alpha-linux/disdvi
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dmp b/Master/bin/alpha-linux/dmp
deleted file mode 100755
index 8c917982951..00000000000
--- a/Master/bin/alpha-linux/dmp
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dt2dv b/Master/bin/alpha-linux/dt2dv
deleted file mode 100755
index e7573fe697d..00000000000
--- a/Master/bin/alpha-linux/dt2dv
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dv2dt b/Master/bin/alpha-linux/dv2dt
deleted file mode 100755
index 06b384fe6ce..00000000000
--- a/Master/bin/alpha-linux/dv2dt
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dvi2fax b/Master/bin/alpha-linux/dvi2fax
deleted file mode 100755
index fdfa83211eb..00000000000
--- a/Master/bin/alpha-linux/dvi2fax
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/bin/sh
-# options for dvips are passwd down
-
-test -f /bin/sh5 && test -z "$RUNNING_SH5" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_SH5=true; export RUNNING_SH5; exec /bin/sh5 $0 ${1+"$@"}; }
-unset RUNNING_SH5
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-# hack around a bug in zsh:
-test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"'
-
-progname=`basename "$0"`
-help()
-{
- echo "Usage: $progname [-hi|-lo] file[.dvi] [options for dvips]"
- echo " -hi: use high fax resolution (204x196) (default)"
- echo " -lo: use low fax resolution (204x98)"
- echo
- echo "Example: $progname foo -l 2"
-}
-
-dvipsconf=dfaxhigh; gsdev=dfaxhigh
-case $1 in
- -hi) gsdev=dfaxhigh; shift;;
- -lo) gsdev=dfaxlow; shift;;
-esac
-
-case $# in
- 0) help >&2
- exit 1
- ;;
-esac
-
-NAME=`basename "$1" .dvi`
-dvips "$@" -P$dvipsconf -f |
- gs -q -dSAFER -sDEVICE=$gsdev -sOutputFile="$NAME-%03d.fax" -sNOPAUSE -
diff --git a/Master/bin/alpha-linux/dvi2tty b/Master/bin/alpha-linux/dvi2tty
deleted file mode 100755
index 3fc0cbf41e8..00000000000
--- a/Master/bin/alpha-linux/dvi2tty
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dvibook b/Master/bin/alpha-linux/dvibook
deleted file mode 100755
index 460ac163c30..00000000000
--- a/Master/bin/alpha-linux/dvibook
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dviconcat b/Master/bin/alpha-linux/dviconcat
deleted file mode 100755
index f61af69e3f8..00000000000
--- a/Master/bin/alpha-linux/dviconcat
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dvicopy b/Master/bin/alpha-linux/dvicopy
deleted file mode 100755
index 192b7379605..00000000000
--- a/Master/bin/alpha-linux/dvicopy
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dvidvi b/Master/bin/alpha-linux/dvidvi
deleted file mode 100755
index c6674c6880f..00000000000
--- a/Master/bin/alpha-linux/dvidvi
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dvigif b/Master/bin/alpha-linux/dvigif
deleted file mode 120000
index c1eef0afe05..00000000000
--- a/Master/bin/alpha-linux/dvigif
+++ /dev/null
@@ -1 +0,0 @@
-dvipng \ No newline at end of file
diff --git a/Master/bin/alpha-linux/dvihp b/Master/bin/alpha-linux/dvihp
deleted file mode 100755
index 6b149517086..00000000000
--- a/Master/bin/alpha-linux/dvihp
+++ /dev/null
@@ -1,130 +0,0 @@
-#!/bin/sh
-# $Id: dvihp,v 1.3 1996/12/03 19:53:56 karl Exp karl $
-# Run dvicopy, then dvilj[k]. kb@mail.tug.org, 1994. Public domain.
-# Try to accept arguments a la dvips, from Thomas Esser.
-
-: ${DVILJ=dvilj4} # the dvilj variant to run
-: ${SPOOL=lpr} # used to print an LJ file
-: ${TMPDIR=${TEMP-${TMP-/tmp}}} # for the dvicopy output
-
-tmpdir="${TMPDIR}"/dvihp$$
-(umask 077; mkdir "$tmpdir") \
- || { echo "cannot create directory \`$tmpdir'."; exit 1; }
-
-trap '
- cd "${TMPDIR}"
- test -d "$tmpdir" && { rm -f "$tmpdir"/*; rmdir "$tmpdir"; }
- exit 0
-' 0 1 2 3 6 7 13 15
-
-rcs_revision='$Revision: 1.3 $'
-version=`set - $rcs_revision; echo $2`
-
-usage="Usage: `basename $0` [OPTIONS] [DVIFILE[.dvi]].
- Translate the given DVIFILE to Hewlett-Packard PCL by calling dvicopy
- and then \$DVILJ (dvilj4 by default).
- In the absence of other options, pipe the PCL to \$SPOOL (lpr by default).
-
- Options are recognized from dvips where possible:
--A print odd pages
--B print even pages
--d # set debug bits to # (see documentation)
--D # set resolution to #
--f run as filter
--l # don't print pages after #
--m manual feed
--n # print # pages
--O #,# set/change paper offset to #,# mm
--o s output to s instead of spooling
--p # don't print pages before #
--Ps pass directly to lpr
--v verbose operation
--x # set magnification to #
-
-Other options are passed to the dvilj program.
-
-Email bug reports to tex-k@mail.tug.org."
-
-
-if test $# -eq 0; then
- echo "`basename $0`: Missing argument(s)." >&2
- echo "Try \``basename $0` --help' for more information." >&2
- exit 0
-fi
-
-unset infile opt output
-output_opt=-e
-verbose=false
-
-while test $# -gt 0; do
- case "$1" in
- -help|--help) echo "$usage"; exit 0;;
- -version|--version)
- echo "`basename $0` (Dviljk 2.6) $version"
- echo "There is NO warranty. This script is public domain."
- exit 0;;
- -A) opt="$opt -D1";; # -A => -D1 (odd pages)
- -B) opt="$opt -D2";; # -B -> -D2 (even pages)
- -d) shift; opt="$opt --D$1";; # -d => --D (debug)
- -d*) opt="$opt `echo $1 | sed s/d/-D/`";;
- -D) shift; opt="$opt -R$1";; # -D => -R (resolution)
- -f) infile=; output=-;; # -f (run as filter)
- -l) shift; opt="$opt -t$1";; # -l => -t (ending page)
- -l*) opt="$opt `echo $1 | sed s/l/t/`";;
- -m) opt="$opt -A";; # -m => -A (manual feed)
- -n) shift; opt="$opt -p$1";; # -n => -p (page count)
- -n*) opt="$opt `echo $1 | sed s/^-n/-p/`";;
- -o) if test $# -eq 1; then # -o (output file)
- # No remaining args, output to foo.lj.
- output=`basename $infile .dvi`.lj
- else shift; output="$1"; fi;;
- -o*) output="`echo $1 | sed 's/^-o//'`";;
- -O) shift; x=`echo $1 | sed 's/,.*//'` # -O => -x, -y (page offsets)
- y=`echo $1 | sed 's/.*,//'`; opt="$opt -x$x -y$y";;
- -O*) temp="`echo $1 | sed 's/^-O//'`"
- x=`echo $temp | sed 's/,.*//'`
- y=`echo $temp | sed 's/.*,//'`;
- opt="$opt -x$x -y$y";;
- -p) shift; opt="$opt -f$1";; # -p => -f (starting page)
- -p*) opt="$opt `echo $1 | sed s/p/f/`";;
- -P) shift; output=; spool_opt="-P$1";; # -Pprinter
- -P*) output=; spool_opt="$1";;
- -v) verbose=true; opt="$opt -v";;
- -x) shift; opt="$opt -m$1";; # -x => -m (magnification)
- -x*) opt="$opt `echo $1 | sed s/x/m/`";;
- --) shift; infile="$1"; break;; # -- => end of options
- -*) opt="$opt $1";; # pass other options through
- *) infile="$1";;
- esac
- shift
-done
-
-# Make sure the filenames are unique on MS-DOS
-vfless_dvi="$tmpdir"/dvi$$.vf
-
-# Expand VF references.
-# If $infile is null, this will read standard input.
-# dvilj can't read from a pipe, so always write to a file.
-$verbose && echo "Running dvicopy $infile >$vfless_dvi" >&2
-if dvicopy $infile >"$vfless_dvi"; then :; else
- echo "$0: dvicopy $infile failed." >&2
- exit 1
-fi
-$verbose && ls -l "$vfless_dvi" >&2
-
-if test -z "$output"; then
- output=- # output to stdout
- # Doing this pipe means the true exit status might get lost, but it
- # seems worth it to avoid the temporary file. (Bad enough to have one.)
- maybe_spool_cmd="| $SPOOL $spool_opt"
-else
- maybe_spool_cmd=
-fi
-
-# Translate DVI to LJ.
-cmd="$DVILJ $opt $output_opt$output \"$vfless_dvi\" $maybe_spool_cmd"
-$verbose && echo "Running $cmd" >&2
-if eval $cmd; then :; else
- echo "$0: $DVILJ failed." >&2
- exit 2
-fi
diff --git a/Master/bin/alpha-linux/dvilj b/Master/bin/alpha-linux/dvilj
deleted file mode 100755
index 240d1686b25..00000000000
--- a/Master/bin/alpha-linux/dvilj
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dvilj2p b/Master/bin/alpha-linux/dvilj2p
deleted file mode 100755
index 42354baa333..00000000000
--- a/Master/bin/alpha-linux/dvilj2p
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dvilj4 b/Master/bin/alpha-linux/dvilj4
deleted file mode 100755
index b1efd25ea9c..00000000000
--- a/Master/bin/alpha-linux/dvilj4
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dvilj4l b/Master/bin/alpha-linux/dvilj4l
deleted file mode 100755
index d38f5342356..00000000000
--- a/Master/bin/alpha-linux/dvilj4l
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dvilj6 b/Master/bin/alpha-linux/dvilj6
deleted file mode 120000
index 576e6e449cd..00000000000
--- a/Master/bin/alpha-linux/dvilj6
+++ /dev/null
@@ -1 +0,0 @@
-dvilj4 \ No newline at end of file
diff --git a/Master/bin/alpha-linux/dvipdfm b/Master/bin/alpha-linux/dvipdfm
deleted file mode 100755
index 0e62bfc0b6b..00000000000
--- a/Master/bin/alpha-linux/dvipdfm
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dvipdfmx b/Master/bin/alpha-linux/dvipdfmx
deleted file mode 100755
index 6fa87033f0b..00000000000
--- a/Master/bin/alpha-linux/dvipdfmx
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dvipdft b/Master/bin/alpha-linux/dvipdft
deleted file mode 100755
index db53bd2f5a0..00000000000
--- a/Master/bin/alpha-linux/dvipdft
+++ /dev/null
@@ -1,130 +0,0 @@
-#!/bin/sh
-
-#
-# dvipdft, completely rewtitten by Thomas Esser for teTeX after an
-# original script by Mark A. Wicks
-#
-# Thomas Esser. Public Domain.
-#
-
-# This script makes a first (fast) run with dvipdfm, then calls gs on
-# the resulting pdf file to get the thumbnails and finally calls dvipdfm.
-
-test -f /bin/sh5 && test -z "$RUNNING_SH5" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_SH5=true; export RUNNING_SH5; exec /bin/sh5 $0 ${1+"$@"}; }
-unset RUNNING_SH5
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-# hack around a bug in zsh:
-test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"'
-
-progname=dvipdft
-version=1111942378 # seconds since `00:00:00 1970-01-01 UTC'
- # date '+%s' (with GNU date)
-
-help="Usage: $progname [options] dvifile
- $progname --help
- $progname --version"
-
-tmpdir=${TMPDIR-${TEMP-${TMP-/tmp}}}/$progname.$$
-
-quoteit()
-{
- echo "x$1" | sed "s@.@@; s@'@'\\\\''@; s@^@'@; s@\$@'@"
-}
-
-# process args 1 to (n-1) and scan for a -o argument keep a properly
-# quoted backup of the options, so that they can be restored later
-unset s outfile
-while test $# -gt 1; do
- case $1 in
- -o) outfile=$2;;
- esac
- s="$s${s+ }"`quoteit "$1"`
- shift
-done
-
-# check for last argument
-case $1 in
- --help)
- echo "$help"
- exit 0
- ;;
- --version)
- echo "$progname version $version by Thomas Esser"
- exit 0
- ;;
- "")
- echo "$help"
- exit 1
- ;;
-esac
-
-# args 1 to (n-1) are gone, last one must be the dvifile
-dvifile=$1
-
-# outfile comes from -o argument, else it is derived from the input file
-test -n "$outfile" \
- || outfile=`echo "$dvifile" | sed 's@.*/@@; s@\.dvi$@@; s@$@.pdf@'`
-
-# outBase is part of the thumbname files just as dvipdfm expects them:
-outBase=`echo "$outfile" | sed 's@\.pdf$@@'`
-
-# restore args 1 to (n-1):
-eval set x "$s"; shift
-
-# Run dvipdfm with the fastest options for the first pass
-echo "$progname: running dvipdfm $@ -e -z0 $dvifile" >&2
-dvipdfm ${1+"$@"} -e -z0 "$dvifile" || {
- echo "$progname: dvipdfm failed." >&2
- exit 1
-}
-
-# before we create the tmpdir, set trap for cleanup
-trap '
- rm -rf $tmpdir
- exit 1
-' 1 2 3 7 13 15
-
-mkdir "$tmpdir" || {
- echo "$progname: failed to create temp directory." >&2
- exit 1
-}
-
-# if outBase contains a /, we might need to create a directory
-case $outBase in
- */*)
- fq=`echo "$tmpdir/$outBase" | sed 's@//@/@g; s@/[^/]*$@@'`
- test -d "$fq" || mkdir -p "$fq" || {
- echo "$progname: failed to create temp thumbnail directory." >&2
- rm -rf $tmpdir
- exit 1
- }
- ;;
-esac
-
-# run gs
-echo "$progname: running gs" >&2
-gs -r10 -dNOPAUSE -dBATCH -sDEVICE=png256 \
- -sOutputFile="$tmpdir/$outBase.%d" "$outfile" || {
- echo "$progname: gs failed." >&2
- rm -rf $tmpdir
- exit 1
-}
-
-# run dvipdfm with the users specified options for the last pass
-echo "$progname: running dvipdfm -dt $@ $dvifile" >&2
-TMP=$tmpdir dvipdfm -dt ${1+"$@"} "$dvifile" || {
- echo "$progname: dvipdfm failed." >&2
- rm -rf $tmpdir
- exit 1
-}
-
-# nothing failed, so cleanup and report success to caller
-rm -rf $tmpdir
-exit 0
diff --git a/Master/bin/alpha-linux/dvipng b/Master/bin/alpha-linux/dvipng
deleted file mode 100755
index 4fd46edb706..00000000000
--- a/Master/bin/alpha-linux/dvipng
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dvips b/Master/bin/alpha-linux/dvips
deleted file mode 100755
index 6de95d8e9b0..00000000000
--- a/Master/bin/alpha-linux/dvips
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dvired b/Master/bin/alpha-linux/dvired
deleted file mode 100755
index 4eb3586119d..00000000000
--- a/Master/bin/alpha-linux/dvired
+++ /dev/null
@@ -1,98 +0,0 @@
-#!/bin/sh
-#==============================================================================
-# Version: 0.3
-# Module: dvired
-# Purpose: Translate dvi-file into postscript with reduced output size.
-# Two logical pages will be put on onto each physical sheet of
-# paper.
-# System: Linux. UNIX(tm) systems may work as well :-)
-# Requires: pstops (http://www.dcs.ed.ac.uk/home/ajcd/psutils/), dvips
-# Created: 19.11.1992
-# Last Change: 13.08.1999
-# Language: sh
-# Author: Thomas Esser
-# Address: te@dbs.uni-hannover.de
-# Copyright: (c) 1994, 1999 by Thomas Esser
-# Copying: GNU GENERAL PUBLIC LICENSE
-#==============================================================================
-
-test -f /bin/sh5 && test -z "$RUNNING_SH5" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_SH5=true; export RUNNING_SH5; exec /bin/sh5 $0 ${1+"$@"}; }
-unset RUNNING_SH5
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-help()
-{
- cat <<eof
-
-Usage: dvired [options] file
-
-This programm behaves like dvips, execpt fot the fact that two logical
-pages will be put on onto each physical sheet of paper.
-
-For options see dvips(1). This program only interprets the options
--o, -P and -f. All other options will directly be passed to dvips.
-
-If your paper is not in A4 format, you need to adjust the dimensions
-in this program.
-
-Examples: (it is assumed that the PRINTER-variable is set)
- dvired -Plw foo send output to printer lw
- dvired -o foo.ps foo send output to file foo.ps
- dvired -pp4-7 foo send 4 output-pages to printer
- dvired foo -f | ghostview - preview output with ghostview
-eof
-}
-
-case $# in
-0) help ; exit 1 ; ;;
-esac
-
-# This will work for A4 paper.
-paper=a4 ; pstopsopt='2:0(7.44mm,7.44mm)+1(7.44mm,-141.06mm)'
-
-# The following are *UNTESTED*. Please let me know whether they work
-# or not, if you can test them.
-#paper=a3 ; pstopsopt='2:0(7.44mm,7.44mm)+1(7.44mm,-202.56mm)'
-#paper=letter ; pstopsopt='2:0(7.44mm,7.44mm)+1(7.44mm,-132.26mm)'
-#paper=legal ; pstopsopt='2:0(7.44mm,7.44mm)+1(7.44mm,-170.36mm)'
-#paper=ledger ; pstopsopt='2:0(7.44mm,7.44mm)+1(7.44mm,-132.26mm)'
-#paper=tabloid ; pstopsopt='2:0(7.44mm,7.44mm)+1(7.44mm,-208.46mm)'
-
-of=""
-lpr_opt=""
-
-case "$PRINTER" in
-"") dvips_pre="" ;;
-*) dvips_pre="-P$PRINTER" ;;
-esac
-
-dvips_pre="$dvips_pre -t $paper -t landscape"
-
-while [ ! -z "$1" ] ; do
- case $1 in
- -P) of="" ; dvips_pre="$dvips_pre -P$2" ; lpr_opt="-P$2"
- shift ;;
- -P*) of="" ; dvips_pre="$dvips_pre $1" ; lpr_opt="$1" ;;
- -o) of="$2"
- shift ;;
- -o*) of="`echo $1| sed 's/..//'`" ;;
- -f) of="-" ;;
- *) opt="$opt $1"
- esac
- shift
-done
-
-case "$of" in
-"") dvips -x707 $dvips_pre $opt -f | pstops -q $pstopsopt | lpr $lpr_opt
- ;;
-"-") dvips -x707 $dvips_pre $opt -f | pstops -q $pstopsopt
- ;;
-*) dvips -x707 $dvips_pre $opt -f | pstops -q $pstopsopt > "$of"
- ;;
-esac
diff --git a/Master/bin/alpha-linux/dviselect b/Master/bin/alpha-linux/dviselect
deleted file mode 100755
index ab9052feb4d..00000000000
--- a/Master/bin/alpha-linux/dviselect
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dvitodvi b/Master/bin/alpha-linux/dvitodvi
deleted file mode 100755
index b5c76f8a5da..00000000000
--- a/Master/bin/alpha-linux/dvitodvi
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dvitomp b/Master/bin/alpha-linux/dvitomp
deleted file mode 100755
index 6adb8fca82c..00000000000
--- a/Master/bin/alpha-linux/dvitomp
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/dvitype b/Master/bin/alpha-linux/dvitype
deleted file mode 100755
index b1aa8136ee2..00000000000
--- a/Master/bin/alpha-linux/dvitype
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/e2pall b/Master/bin/alpha-linux/e2pall
deleted file mode 100755
index 2997f8b1102..00000000000
--- a/Master/bin/alpha-linux/e2pall
+++ /dev/null
@@ -1,89 +0,0 @@
-#!/usr/bin/env perl
-
-# Author: Jody Klymak <jklymak@apl.washington.edu>, publisted by a posting
-# to the pdftex mailinglist.
-
-# recursively finds all your eps files. Looks down \input{fname}.
-# CAVEATS:
-# 1) cannot handle \input{fname} split over more than one line.
-# 1.5) cannot handle multiple \input{} or \includegraphics{} on one line.
-# 2) Must be run from same directory as the Latex file.
-# 3) Does not look down $TEXINPUTS or anything fancy like that...
-# 4) Handling of \include is untested (though I guess its trivial)
-# 5) Assumes *all* your graphics inclusions are [e]ps. But don't
-# fret, because if they are not epstopdf dies anyhow....
-# 6) Does not distinguish between percent (\%) and comment (%).
-
-# Changelog:
-# 20030103 -- Lachlan Andrew <lha@users.sourceforge.net>
-# * Only append '.tex' if $fname doesn't exist.
-# * Correctly handle lines with '}' after the \includegraphics{}
-# * Allow multiple extensions for graphics files. .eps -> .ps -> none
-# (Should try them in the same order as \includegraphics does
-# -- given by \DeclareGraphicsExtensions{}?)
-# * Allow \include the same way as \input
-# * Allow \includegraphics{} to be split over multiple lines
-# * Check that commands begin with '\', and allow spaces before arguments
-
-# EDIT these two lines for your system....
-
-$Eps2PdfCom = "epstopdf";
-$ThisFunCom = "e2pall";
-
-$fname=$ARGV[0];
-
-# check for a *.tex at the end...
-if ((-f "$fname")=="" && $fname !~ /.tex$/){
- $fname = "$fname.tex";
-}
-
-open(TEXFILE,$fname) or die "Cannot open file $fname";
-# print "Finding *.eps files in $fname\n";
-
-$seekingArg = 0;
-while($line=<TEXFILE>){
- # truncate $line after % sign....
- $line=~s/%.*//;
- # check for /input....
- if ($line=~/\\input *{([^}]*)}/){
- print `$ThisFunCom $1`;
- }
- # check for /include....
- if ($line=~/\\include *{([^}]*)}/){
- print `$ThisFunCom $1`;
- }
-
- $base = "";
- if ($line=~/\\includegraphics.*{([^}]*)}/){
- $base = $1;
- }
- elsif ($seekingArg==1 && ($line=~/{([^}]*)}/)){
- $base = $1;
- }
- elsif ($line=~/\\includegraphics/){
- $seekingArg = 1;
- }
-
- if ($base ne "") {
- $seekingArg = 0;
- if ((-f "$base.eps")!="") {
- $srcfile = "$base.eps";
- }
- elsif ((-f "$base.ps")!=""){
- $srcfile = "$base.ps";
- }
- else {
- $srcfile = $base;
- }
- # check that the [e]ps version is newer than the pdf version....
- if ((-M "$base.pdf")=="" || (-M "$base.pdf") >= (-M "$srcfile")){
- print "Constructing \t $base.pdf from $srcfile\n";
- print `$Eps2PdfCom $srcfile`;
- }
- else{
- print "$base.pdf \t is up to date with $srcfile\n";
- }
-
- };
-}
-close(TEXFILE);
diff --git a/Master/bin/alpha-linux/ebb b/Master/bin/alpha-linux/ebb
deleted file mode 100755
index 26b7df38c41..00000000000
--- a/Master/bin/alpha-linux/ebb
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/ebong b/Master/bin/alpha-linux/ebong
deleted file mode 100755
index ef59012e3bc..00000000000
--- a/Master/bin/alpha-linux/ebong
+++ /dev/null
@@ -1,390 +0,0 @@
-# look in newbong
-import sre
-A='A'
-B='B'
-S='S'
-s='s'
-F='F'
-X='X'
-
-NCLINE = 0
-global NCWORD,CWORD
-
-
-
-AKSAR={
- 'k' :[B,'k'],
- 'kh' :[B,'kh'],
- 'g' :[B,'g'],
- 'gh' :[B,'gh'],
- 'ng' :[B,'NG'],
-
- 'ch' :[B,'c'],
- '^ch' :[B,'ch'],
- 'j' :[B,'j'],
- 'jh' :[B,'jh'],
- '^y' :[B,'NJ'],
- '_n' :[B,'NJ'],
-
- 't' :[B,'T'],
- '^th' :[B,'Th'],
- 'd' :[B,'D'],
- 'dh' :[B,'Dh'],
- '^n' :[B,'N'],
-
- '_t' :[B,'t'],
- 'th' :[B,'th'],
- '_d' :[B,'d'],
- '_dh' :[B,'dh'],
- 'n' :[B,'n'],
-
-
- 'p' :[B,'p'],
- 'ph' :[B,'ph'],
- 'f' :[B,'ph'],
- 'b' :[B,'b'],
- 'bh' :[B,'bh'],
- 'v' :[B,'bh'],
- 'm' :[B,'m'],
- 'M' :[F,'M'],
-
-
- '^j' :[B,'J'],
- 'J' :[B,'J'],
- 'r' :[B,'r'],
- 'R' :[F,'R'],
- 'l' :[B,'l'],
- 'L' :[F,'L'],
- 'W' :[F,'W'],
- 'V' :[F,'W'],
- 'h' :[B,'H'],
- 'kk' :[B,'kK'],
- 'kkm' :[B,'kK/N'],
-
- 'sh' :[B,'sh'],
- '^s' :[B,'Sh'],
- '^sh' :[B,'Sh'],
- 's' :[B,'s'],
-
- '^r' :[B,'rh'],
- '^rh' :[B,'rhh'],
- 'y' :[B,'y'],
- 'Y' :[F,'Y'],
- 'JY' :[F,'Y'],
- '__t' :[B,'t//'],
- '^ng' :[B,'NNG'],
- ':h' :[B,'h'],
- '^' :[F,'NN'],
- '_' :[F,':/'],
-
-
-
- 'A' :[S,'A'],
- 'AA' :[S,'Aa'],
- 'I' :[S,'I'],
- 'II' :[S,'II'],
- 'U' :[S,'U'],
- 'UU' :[S,'UU'],
- 'RI' :[S,'RR'],
- 'E' :[S,'E'],
- 'OI' :[S,'OI'],
- 'O' :[S,'O'],
- 'OU' :[S,'OU'],
-
-
- 'a' :[X,'o',1],
- 'aa' :[s,'a',1],
- 'i' :[s,'i',-1],
- 'ii' :[s,'ii',1],
- 'u' :[s,'u',1],
- 'uu' :[s,'uu',1],
- 'RII' :[s,'rR',1],
- 'e' :[s,'e',-1],
- 'oi' :[s,'oi',-2],
- 'oo' :[s,'oo',11],
- 'o' :[X,'o',1],
- 'ou' :[s,'ou',12],
-
- '.' :[F,'.'],
- '..' :[F,'..'],
- '...' :[F,'...'],
- '|' :[F,'|'],
-
-
- '~' :[F,'~'],
- '`' :[F,'`'],
- '!' :[F,'!'],
- '1' :[F,'1'],
- '2' :[F,'2'],
- 'at' :[F,'@'],
- '#' :[F,'#'],
- '3' :[F,'3'],
- '$' :[F,'$'],
- '4' :[F,'4'],
- '%' :[F,'%'],
- '5' :[F,'5'],
- '6' :[F,'6'],
- '&' :[F,'&'],
- '7' :[F,'7'],
- '*' :[F,'*'],
- '8' :[F,'8'],
- '(' :[F,'('],
- '9' :[F,'9'],
- ')' :[F,')'],
- '0' :[F,'0'],
- 'dash' :[F,'-'],
- '+' :[F,'+'],
- '=' :[F,'='],
- '|' :[F,'|'],
- '{' :[F,'{'],
- '[' :[F,'['],
- '}' :[F,'}'],
- ']' :[F,']'],
- ':' :[F,':'],
- ';' :[F,';'],
- '"' :[F,'"'],
- "'" :[F,"'"],
- '<' :[F,'<'],
- ',' :[F,','],
- '>' :[F,'>'],
- '.' :[F,'.'],
- '?' :[F,'?'],
- '/' :[F,'/']}
-
-
-
-
-
-
-
-
-CATCODES = {'SS' :[S,'','','',1],
- 'SB' :[B,'','','',1],
- 'BS' :[S,'','','',1],
- 'BB' :[B,'','/','',1],
- 'BF' :[F,'','','',1],
- 'Bs1' :[S,'','','',1],
- 'Bs-1':[S,'\*','','*',1],
- 'Bs-2':[S,'\*','','*{oi}',0],
- 'Bs11':[S,'\*','','*ea',0],
- 'Bs12':[S,'\*','','*eou',0],
- 'Fs1' :[S,'','','',1],
- 'Fs-1':[S,'\*','','*',1],
- 'Fs-2':[S,'\*','','*{oi}',0],
- 'Fs11':[S,'\*','','*ea',0],
- 'Fs12':[S,'\*','','*eou',0],
- 'FF' :[F,'','','',1],
- 'AX' :[F,'','','',1]}
-
-
-def blocked(line):
- #print '@ blocked', line , '->',
- m = sre.findall('@[^@]+@',line)
- outline = line
- if not m :
- #print outline
- return(outline)
- else:
- for i in range(len(m)):
- s=m[i][:-1].replace(' ','%X%')
- outline = outline.replace(m[i],s,1)
- #print outline
- return(outline)
-
-def unblock(line):
- #print '@unblock', line, '->',
- m = sre.findall('@[^\s]+',line)
- outline = line
- if not m :
- #print outline
- return(outline)
- else:
- for i in range(len(m)):
- s=m[i].replace('@','').replace('%X%',' ')
- outline = outline.replace(m[i],s)
- #print outline
- return(outline)
-
-
-def printamp(line):
- #print '@unblock', line, '->',
- m = sre.findall('#AT',line)
- outline = line
- if not m :
- #print outline
- return(outline)
- else:
- for i in range(len(m)):
- outline = outline.replace('#AT','@')
- #print outline
- return(outline)
-
-def readsyll(syll):
- syllparts=[]
- start = 0; end = len(syll)
- while syll[start : end]:
- slice = syll[start : end]
- #print slice
- if AKSAR.has_key(slice):
- syllparts.append(AKSAR[slice])
- start = start + len(slice)
- end = len(syll)
- else :
- end = end -1
- return(syllparts)
-
-def fuse(list1,list2):
- global CCATCODE
- #print list1,list2
- Type1 = list1[0]
- Type2 = list2[0]
-
- if Type2 == s:
- Type3 = str(list2[2])
- elif Type2 == X:
- Type1=A
- Type3=''
- else:
- Type3 =''
-
-
-
-
- Type = Type1+Type2+Type3
-
- #print 'Type:', Type
-
- try:
- CATCODE = CATCODES[Type]
- TARGET = CATCODE[0]
- PREFIX = CATCODE[1]
- MIDFIX = CATCODE[2]
- POSTFIX = CATCODE[3]
- FLAG = CATCODE[4]
-
- #print 'TGT:', TARGET, PREFIX,MIDFIX,POSTFIX,FLAG
- #print 'RAWC', AKSAR[list1[1]][1],AKSAR[list2[1]][1]
-
- c1=list1[1]
- c2=list2[1]
-
- if FLAG == 1 :
- c = PREFIX + c1 + MIDFIX + POSTFIX + c2
- else :
- c = PREFIX + c1 + MIDFIX + POSTFIX
-
- fused = [TARGET,c]
- #print CATCODE
- return(fused)
- except KeyError:
- print '\n ERROR AT LINE:', NCLINE, 'WORD:',NCWORD, '(',CWORD,')'
- return(['ERROR','UNKNOWN CATCODE'])
-
-
-
-
-
-def fuseatoms(syll):
- slist=readsyll(syll);
- #print slist
- lslist=len(slist);
- l0=slist[0];
- for i in range(1,lslist):
- nextitem = slist[i]
- l0=fuse(l0,nextitem)
-
- return(l0[1])
-
-def fuseword(wrd):
- if wrd[0] == '@' :
- return(wrd)
- syllables = wrd.split('-')
- w0=''
- for eachsyll in syllables:
- syll=eachsyll
- thesyll = fuseatoms(syll)
- w0 = w0 + thesyll
- #print 'FUSED WORD',w0
- return(w0)
-
-
-def fuseline(line):
- global NCWORD,CWORD
- NCWORD = 0
- #line = blocked(line)
- words = line.split()
- l0=''
- for eachword in words:
- NCWORD=NCWORD+1
- word = eachword
- CWORD=word
- theword=fuseword(word)
- #print 'XX',theword
- l0=l0+' '+theword
- #print 'FUSED LINE', l0
- return(l0)
-
-
-# The main program
-import sys
-OK=1
-finnam = sys.argv[1]
-foutnam = finnam.split('.')[0] + '.' + 'tex'
-
-fin = file(finnam,'rt')
-fout = file(foutnam,'wt')
-
-textin = fin.readlines()
-nlines = len(textin)
-
-
-textout = []
-
-fin.close()
-
-for eachline in textin:
- NCLINE = NCLINE+1
- if eachline[0] == '#' :
- lineout = eachline[1:]
- elif eachline[0] == '\\' :
- lineout = eachline
- elif eachline == '\n':
- lineout = eachline
- else :
- line1 = eachline.strip()
- line2 = blocked(line1)
- lineout = fuseline(line2) + '\n'
- lineout = lineout[1:]
- #print ':::', lineout
- if lineout.find('UNKNOWN CATCODE') == -1 :
- lineout = unblock(lineout)
- #print ':::', lineout
- textout.append(printamp(lineout))
- else :
- OK = 0
- fout.close()
-
-
-
-
-
-
-
-
-
-if OK == 1:
- fout.writelines(textout)
- fout.close()
- print 'done'
-else:
- print 'Unknown CATCODE, Fix The errors and try again'
-
-
-
-
-
-
-
-
-
-
diff --git a/Master/bin/alpha-linux/eplain b/Master/bin/alpha-linux/eplain
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/eplain
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/epsffit b/Master/bin/alpha-linux/epsffit
deleted file mode 100755
index 680c7a1a867..00000000000
--- a/Master/bin/alpha-linux/epsffit
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/epstopdf b/Master/bin/alpha-linux/epstopdf
deleted file mode 100755
index e7ea5f239df..00000000000
--- a/Master/bin/alpha-linux/epstopdf
+++ /dev/null
@@ -1,406 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q'
- if 0;
-use strict;
-
-# Change by Thomas Esser, Sept. 1998: The above lines allows us to find
-# perl along $PATH rather than guessing a fixed location. The above
-# construction should work with most shells.
-
-# A script to transform an EPS file so that:
-# a) it is guarenteed to start at the 0,0 coordinate
-# b) it sets a page size exactly corresponding to the BoundingBox
-# This means that when Ghostscript renders it, the result needs no
-# cropping, and the PDF MediaBox is correct.
-# c) the result is piped to Ghostscript and a PDF version written
-#
-# It needs a Level 2 PS interpreter.
-# If the bounding box is not right, of course, you have problems...
-#
-# The only thing I have not allowed for is the case of
-# "%%BoundingBox: (atend)", which is more complicated.
-#
-# Sebastian Rahtz, for Elsevier Science
-#
-# now with extra tricks from Hans Hagen's texutil.
-#
-# History
-# 1999/05/06 v2.5 (Heiko Oberdiek)
-# * New options: --hires, --exact, --filter, --help.
-# * Many cosmetics: title, usage, ...
-# * New code for debug, warning, error
-# * Detecting of cygwin perl
-# * Scanning for %%{Hires,Exact,}BoundingBox.
-# * Scanning only the header in order not to get a wrong
-# BoundingBox of an included file.
-# * (atend) supported.
-# * uses strict; (earlier error detecting).
-# * changed first comment from '%!PS' to '%!';
-# * corrected (atend) pattern: '\s*\(atend\)'
-# * using of $bbxpat in all BoundingBox cases,
-# correct the first white space to '...Box:\s*$bb...'
-# * corrected first line (one line instead of two before 'if 0;';
-# 2000/11/05 v2.6 (Heiko Oberdiek)
-# * %%HiresBoundingBox corrected to %%HiResBoundingBox
-# 2001/03/05 v2.7 (Heiko Oberdiek)
-# * Newline before grestore for the case that there is no
-# whitespace at the end of the eps file.
-# 2002/02/18 v2.8draft (Gerben Wierda)
-# * Handle different eol styles transparantly
-# * Applied fix from Peder Axensten for Freehand bug
-# 2002/02/21 v2.8draft (Gerben Wierda)
-# * Fixed bug where last line of buffer was not copied out (ugh!)
-# 2003/04/22 v2.9draft (Gerben Wierda)
-# * Fixed bug where with cr-eol files everything up to the first %!
-# * in the first 2048 bytes was gobbled (double ugh!)
-# 2004/03/17 v2.9.1draft (Gerben Wierda)
-# * No autorotate page
-# 2005/09/29 v2.9.2draft (Gerben Wierda)
-# * Quote OutFilename
-# 2005/10/01 v2.9.3draft (Gerben Wierda)
-# * Quote OutFilename
-#
-
-### program identification
-my $program = "epstopdf";
-my $filedate="2003/04/20";
-my $fileversion="2.9.3draft";
-my $copyright = "Copyright 1998-2002 by Sebastian Rahtz et al.";
-my $title = "\U$program\E $fileversion, $filedate - $copyright\n";
-
-### ghostscript command name
-my $GS = "gs";
-$GS = "gswin32c" if $^O eq 'MSWin32';
-$GS = "gswin32c" if $^O =~ /cygwin/;
-
-### options
-$::opt_help=0;
-$::opt_debug=0;
-$::opt_compress=1;
-$::opt_gs=1;
-$::opt_hires=0;
-$::opt_exact=0;
-$::opt_filter=0;
-$::opt_outfile="";
-
-### usage
-my @bool = ("false", "true");
-my $usage = <<"END_OF_USAGE";
-${title}Syntax: $program [options] <eps file>
-Options:
- --help: print usage
- --outfile=<file>: write result to <file>
- --(no)filter: read standard input (default: $bool[$::opt_filter])
- --(no)gs: run ghostscript (default: $bool[$::opt_gs])
- --(no)compress: use compression (default: $bool[$::opt_compress])
- --(no)hires: scan HiResBoundingBox (default: $bool[$::opt_hires])
- --(no)exact: scan ExactBoundingBox (default: $bool[$::opt_exact])
- --(no)debug: debug informations (default: $bool[$::opt_debug])
-Examples for producing 'test.pdf':
- * $program test.eps
- * produce postscript | $program --filter >test.pdf
- * produce postscript | $program -f -d -o=test.pdf
-Example: look for HiResBoundingBox and produce corrected PostScript:
- * $program -d --nogs -hires test.ps>testcorr.ps
-END_OF_USAGE
-
-### process options
-use Getopt::Long;
-GetOptions (
- "help!",
- "debug!",
- "filter!",
- "compress!",
- "gs!",
- "hires!",
- "exact!",
- "outfile=s",
-) or die $usage;
-
-### help functions
-sub debug {
- print STDERR "* @_\n" if $::opt_debug;
-}
-sub warning {
- print STDERR "==> Warning: @_!\n";
-}
-sub error {
- die "$title!!! Error: @_!\n";
-}
-sub errorUsage {
- die "$usage\n!!! Error: @_!\n";
-}
-
-### option help
-die $usage if $::opt_help;
-
-### get input filename
-my $InputFilename = "";
-if ($::opt_filter) {
- @ARGV == 0 or
- die errorUsage "Input file cannot be used with filter option";
- $InputFilename = "-";
- debug "Input file: standard input";
-}
-else {
- @ARGV > 0 or die errorUsage "Input filename missing";
- @ARGV < 2 or die errorUsage "Unknown option or too many input files";
- $InputFilename = $ARGV[0];
- -f $InputFilename or error "'$InputFilename' does not exist";
- debug "Input filename:", $InputFilename;
-}
-
-### option compress
-my $GSOPTS = "";
-$GSOPTS = "-dUseFlateCompression=false " unless $::opt_compress;
-
-### option BoundingBox types
-my $BBName = "%%BoundingBox:";
-!($::opt_hires and $::opt_exact) or
- error "Options --hires and --exact cannot be used together";
-$BBName = "%%HiResBoundingBox:" if $::opt_hires;
-$BBName = "%%ExactBoundingBox:" if $::opt_exact;
-debug "BoundingBox comment:", $BBName;
-
-### option outfile
-my $OutputFilename = $::opt_outfile;
-if ($OutputFilename eq "") {
- if ($::opt_gs) {
- $OutputFilename = $InputFilename;
- if (!$::opt_filter) {
- $OutputFilename =~ s/\.[^\.]*$//;
- $OutputFilename .= ".pdf";
- }
- }
- else {
- $OutputFilename = "-"; # standard output
- }
-}
-if ($::opt_filter) {
- debug "Output file: standard output";
-}
-else {
- debug "Output filename:", $OutputFilename;
-}
-
-### option gs
-if ($::opt_gs) {
- debug "Ghostscript command:", $GS;
- debug "Compression:", ($::opt_compress) ? "on" : "off";
-}
-
-### open input file
-open(IN,"<$InputFilename") or error "Cannot open",
- ($::opt_filter) ? "standard input" : "'$InputFilename'";
-binmode IN;
-
-### open output file
-if ($::opt_gs) {
- my $pipe = "$GS -q -sDEVICE=pdfwrite $GSOPTS -dAutoRotatePages=/None" .
- " -sOutputFile='$OutputFilename' - -c quit";
- debug "Ghostscript pipe:", $pipe;
- open(OUT,"|$pipe") or error "Cannot open Ghostscript for piped input";
-}
-else {
- open(OUT,">$OutputFilename") or error "Cannot write '$OutputFilename";
-}
-
-# reading a cr-eol file on a lf-eol system makes it impossible to parse
-# the header and besides it will read the intire file into yor line by line
-# scalar. this is also true the other way around.
-
-### scan a block, try to determine eol style
-
-my $buf;
-my $buflen;
-my @bufarray;
-my @parsedbufarray; # for mytell/myseek
-my $bufarraypos;
-
-# We assume 2048 is big enough.
-my $EOLSCANBUFSIZE = 2048;
-
-$buflen = read( IN, $buf, $EOLSCANBUFSIZE);
-if ($buflen > 0) {
- my $crlfpos;
- my $lfpos;
- my $crpos;
-
- # remove binary junk before header
- # if there is no header, we assume the file starts with ascii style and
- # we look for a eol style anyway, to prevent possible loading of the
- # entire file
- if ($buf =~ /%!/) {
- # throw away binary junk before %!
- $buf =~ s/(.*?)%!/%!/o;
- }
- $lfpos = index( $buf, "\n");
- $crpos = index( $buf, "\r");
- $crlfpos = index( $buf, "\r\n");
-
- if ($crpos > 0 and ($lfpos == -1 or $lfpos > $crpos+1)) {
- # The first eol was a cr and it was not immediately followed by a lf
- $/ = "\r";
- debug "The first eol character was a CR ($crpos) and not immediately followed by a LF ($lfpos)";
- }
-
- # Now we have set the correct eol-character. Get one more line and add
- # it to our buffer. This will make the buffer contain an entire line
- # at the end. Then split the buffer in an array. We will draw lines from
- # that array until it is empty, then move again back to <IN>
- $buf .= <IN> unless eof( IN);
- $buflen = length( $buf);
-
- # Some extra magic is needed here: if we set $/ to \r, Perl's re engine
- # still thinks eol is \n in regular expressions (not very nice) so we
- # cannot split on ^, but have to split on \r and reappend those.
- if ($/ eq "\r") {
- @bufarray = split( /\r/ms, $buf);
- grep( $_ .= "\r", @bufarray);
- }
- else {
- @bufarray = split( /^/ms, $buf);
- }
-}
-
-### getline
-sub getline {
- if ($#bufarray >= 0) {
- $_ = shift( @bufarray);
- unshift( @parsedbufarray, $_); # for myseek and mytell
- $bufarraypos += length( $_);
- }
- else {
- $_ = <IN>;
- }
- return( defined( $_));
-}
-
-### mytell and myseek, work on <IN> only
-sub mytell {
- if ($#bufarray) {
- return $bufarraypos;
- }
- else {
- return tell( IN);
- }
-}
-
-sub myseek {
- my $pos = shift;
- if ($pos < $buflen) {
- # We were still parsing the array, reset to the end of buf and
- # move to the right line in the array.
- # Now, move stuff from the @parsedbufarray until we are back at $pos
- my $tmpline;
- while ($pos > 0) {
- # we test on parsedbufarray to prevent an infinite loop on
- # a programming error (DEVELOP only)
- die "Programming error 1\n" unless $#parsedbufarray;
- $tmpline = pop( @parsedbufarray);
- $pos -= length( $tmpline);
- push( @bufarray, $tmpline);
- }
- return seek( IN, $buflen, 0);
- }
- else {
- return seek( IN, $pos, 0);
- }
-}
-
-### scan first line
-my $header = 0;
-getline();
-if (/%!/) {
- # throw away binary junk before %!
- s/(.*)%!/%!/o;
-}
-$header = 1 if /^%/;
-debug "Scanning header for BoundingBox";
-print OUT;
-
-### variables and pattern for BoundingBox search
-my $bbxpatt = '[0-9eE\.\-]';
- # protect backslashes: "\\" gets '\'
-my $BBValues = "\\s*($bbxpatt+)\\s+($bbxpatt+)\\s+($bbxpatt+)\\s+($bbxpatt+)";
-my $BBCorrected = 0;
-
-sub CorrectBoundingBox {
- my ($llx, $lly, $urx, $ury) = @_;
- debug "Old BoundingBox:", $llx, $lly, $urx, $ury;
- my ($width, $height) = ($urx - $llx, $ury - $lly);
- my ($xoffset, $yoffset) = (-$llx, -$lly);
- debug "New BoundingBox: 0 0", $width, $height;
- debug "Offset:", $xoffset, $yoffset;
-
- print OUT "%%BoundingBox: 0 0 $width $height\n";
- print OUT "<< /PageSize [$width $height] >> setpagedevice\n";
- print OUT "gsave $xoffset $yoffset translate\n";
-}
-
-### scan header
-if ($header) {
- HEADER: while (getline()) {
- ### Fix for freehand bug ### by Peder Axensten
- next HEADER if(!/\S/);
-
- ### end of header
- if (!/^%/ or /^%%EndComments/) {
- print OUT;
- last;
- }
-
- ### BoundingBox with values
- if (/^$BBName$BBValues/) {
- CorrectBoundingBox $1, $2, $3, $4;
- $BBCorrected = 1;
- last;
- }
-
- ### BoundingBox with (atend)
- if (/^$BBName\s*\(atend\)/) {
- debug $BBName, "(atend)";
- if ($::opt_filter) {
- warning "Cannot look for BoundingBox in the trailer",
- "with option --filter";
- last;
- }
- my $pos = mytell();
- debug "Current file position:", $pos;
-
- # looking for %%BoundingBox
- while (getline()) {
- # skip over included documents
- if (/^%%BeginDocument/) {
- while (getline()) {
- last if /^%%EndDocument/;
- }
- }
- if (/^$BBName$BBValues/) {
- CorrectBoundingBox $1, $2, $3, $4;
- $BBCorrected = 1;
- last;
- }
- }
-
- # go back
- myseek( $pos) or error "Cannot go back to line '$BBName (atend)'";
- last;
- }
-
- # print header line
- print OUT;
- }
-}
-
-### print rest of file
-while (getline()) {
- print OUT;
-}
-
-### close files
-close(IN);
-print OUT "\ngrestore\n" if $BBCorrected;
-close(OUT);
-warning "BoundingBox not found" unless $BBCorrected;
-debug "Ready.";
-;
diff --git a/Master/bin/alpha-linux/etex b/Master/bin/alpha-linux/etex
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/etex
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/extconv b/Master/bin/alpha-linux/extconv
deleted file mode 100755
index 6a337a121c5..00000000000
--- a/Master/bin/alpha-linux/extconv
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/extractres b/Master/bin/alpha-linux/extractres
deleted file mode 100755
index c54056461a2..00000000000
--- a/Master/bin/alpha-linux/extractres
+++ /dev/null
@@ -1,96 +0,0 @@
-#!/usr/bin/env perl
-# extractres: extract resources from PostScript file
-#
-# Copyright (C) Angus J. C. Duggan 1991-1995
-# See file LICENSE for details.
-
-$prog = ($0 =~ s=.*/==);
-
-%resources = (); # list of resources included
-%merge = (); # list of resources extracted this time
-%extn = ("font", ".pfa", "file", ".ps", "procset", ".ps", # resource extns
- "pattern", ".pat", "form", ".frm", "encoding", ".enc");
-%type = ("%%BeginFile:", "file", "%%BeginProcSet:", "procset",
- "%%BeginFont:", "font"); # resource types
-
-while (@ARGV) {
- $_ = shift;
- if (/^-m(erge)?$/) { $merge = 1; }
- elsif (/^-/) {
- print STDERR "Usage: $prog [-merge] [file]\n";
- exit 1;
- } else {
- unshift(@ARGV, $_);
- last;
- }
-}
-
-if (defined($ENV{TMPDIR})) { # set body file name
- $body = "$ENV{TMPDIR}/body$$.ps";
-} else {
- $body = "body$$.ps";
-}
-
-open(BODY, $body) && die "Temporary file $body already exists";
-open(BODY, ">$body") || die "Can't write file $body";
-
-sub filename { # make filename for resource in @_
- local($name);
- foreach (@_) { # sanitise name
- s/[!()\$\#*&\\\|\`\'\"\~\{\}\[\]\<\>\?]//g;
- $name .= $_;
- }
- $name =~ s@.*/@@; # drop directories
- die "Filename not found for resource ", join(" ", @_), "\n"
- if $name =~ /^$/;
- $name;
-}
-
-$output = STDOUT; # start writing header out
-while (<>) {
- if (/^%%BeginResource:/ || /^%%BeginFont:/ || /^%%BeginProcSet:/) {
- local($comment, @res) = split(/\s+/); # look at resource type
- local($type) = defined($type{$comment}) ? $type{$comment} : shift(@res);
- local($name) = &filename(@res, $extn{$type}); # make file name
- $saveout = $output;
- if (!$resources{$name}) {
- print "%%IncludeResource: $type ", join(" ", @res), "\n";
- if (!open(RES, $name)) {
- open(RES, ">$name") || die "Can't write file $name";
- $resources{$name} = $name;
- $merge{$name} = $merge;
- $output = RES;
- } else { # resource already exists
- close(RES);
- undef $output;
- }
- } elsif ($merge{$name}) {
- open(RES, ">>$name") || die "Can't append to file $name";
- $output = RES;
- } else { # resource already included
- undef $output;
- }
- } elsif (/^%%EndResource/ || /^%%EndFont/ || /^%%EndProcSet/) {
- if (defined $output) {
- print $output $_;
- close($output);
- }
- $output = $saveout;
- next;
- } elsif ((/^%%EndProlog/ || /^%%BeginSetup/ || /^%%Page:/)) {
- $output = BODY;
- }
- print $output $_
- if defined $output;
-}
-
-close(BODY); # close body output file
-
-open(BODY, $body); # reopen body for input
-while (<BODY>) { # print it all
- print $_;
-}
-close(BODY);
-
-unlink($body); # dispose of body file
-
diff --git a/Master/bin/alpha-linux/fixdlsrps b/Master/bin/alpha-linux/fixdlsrps
deleted file mode 100755
index 2a1d85a654c..00000000000
--- a/Master/bin/alpha-linux/fixdlsrps
+++ /dev/null
@@ -1,54 +0,0 @@
-#!/usr/bin/env perl
-# fixdlsrps: fix DviLaser/PS document to work with PSUtils
-#
-# Copyright (C) Angus J. C. Duggan 1991-1995
-# See file LICENSE for details.
-
-$nesting = 0;
-$page = 1;
-$infont = 0;
-
-@fonts = ();
-@body = ();
-$header = 1;
-
-while (<>) {
- if (/^XP/) {
- $infont++;
- push(@fonts, $_);
- $infont-- if /PXL.*RP/ || /DN?F.*RP/;
- } elsif ($infont) {
- push(@fonts, $_);
- $infont-- if /PXL.*RP/ || /DN?F.*RP/;
- } elsif ((/^%%EndSetup/ || /^%%Page:/) && $header) {
- print @body;
- @body = ("%%EndSetup\n");
- $header = 0;
- } elsif (/^%%EndProlog/ && !$nesting) {
- push(@body,
- "\$DviLaser begin/GlobalMode{}bdef/LocalMode{}bdef/XP{}def/RP{}def",
- "/DoInitialScaling{72.0 Resolution div dup scale}bdef end\n", $_);
- } elsif (/^%%BeginPageSetup/ && !$nesting) {
- push(@body, "%%Page: $page $page\n", $_,
- "Resolution 72 div dup scale Magnification 1000 div dup scale\n",
- "/DocumentInitState where {\n",
- "/DocumentInitState [ matrix currentmatrix currentlinewidth",
- " currentlinecap currentlinejoin currentdash currentgray",
- " currentmiterlimit] cvx put}if\n");
- $page++;
- } elsif (/^%%BeginDocument:/ || /^%%BeginBinary:/ || /^%%BeginFile:/) {
- push(@body, $_);
- $nesting++;
- } elsif (/^%%EndDocument/ || /^%%EndBinary/ || /^%%EndFile/) {
- push(@body, $_);
- $nesting--;
- } elsif (!/^%%PageBoundingBox:/ && !/^%%Page:/) {
- push(@body, $_);
- }
-}
-
-print @fonts;
-print @body;
-
-exit 0;
-
diff --git a/Master/bin/alpha-linux/fixfmps b/Master/bin/alpha-linux/fixfmps
deleted file mode 100755
index 039ac8e5a3e..00000000000
--- a/Master/bin/alpha-linux/fixfmps
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/usr/bin/env perl
-# fixfmps: get conforming PostScript out of FrameMaker version 2 file
-# move all FMDEFINEFONTs to start of pages
-#
-# Copyright (C) Angus J. C. Duggan 1991-1995
-# See file LICENSE for details.
-
-%fonts=();
-
-while (<>) {
- if (/^([0-9]+) [0-9]+ .* FMDEFINEFONT$/) {
- $fonts{$1} = $_;
- } elsif (/^[0-9.]+ [0-9.]+ [0-9]+ FMBEGINPAGE$/) {
- print $_, join('',values(%fonts));
- } elsif (m%(.*/PageSize \[paperwidth paperheight\]put )setpagedevice(.*)%) {
- print "$1pop$2\n";
- } else {
- print $_;
- }
-}
-
diff --git a/Master/bin/alpha-linux/fixmacps b/Master/bin/alpha-linux/fixmacps
deleted file mode 100755
index f4cfdb10a9e..00000000000
--- a/Master/bin/alpha-linux/fixmacps
+++ /dev/null
@@ -1,95 +0,0 @@
-#!/usr/bin/env perl
-# fixmacps: swap to sanitised appledict
-#
-# Copyright (C) Angus J. C. Duggan 1991-1995
-# See file LICENSE for details.
-
-$line = 0; # keep line count
-$predir = `kpsewhich -progname=psutils md71_0.ps`;
-$dir=`basename $predir`;
-$prefix = "md";
-$default = "md71_0.ps";
-
-while ($_ = shift(@ARGV)) {
- if (/^-d(ir)?$/) { $dir = shift(@ARGV); }
- elsif (/^-n(ame)?$/) { $prefix = shift(@ARGV); }
- else {
- unshift(@ARGV, $_);
- last;
- }
-}
-
-%fonts = ();
-$nesting = 0;
-
-while (<>) {
- if (/^%!/) {
- if (! $line) {
- print;
- }
- } elsif (/^%%(Begin|Include)ProcSet: "?\(AppleDict md\)"? ([0-9]+) ([0-9]+)$/) {
- local($inc, $mdv, $mdr) = ($1, $2, $3);
- if (open(SANE, "<$dir/$prefix${mdv}_$mdr.ps") ||
- open(SANE, "<$dir/$default")) {
- $sane = <SANE>;
- local($snv, $snr) =
- $sane =~ /^%%BeginProcSet: \(AppleDict md\) ([0-9]+) ([0-9]+)$/;
- if ($mdv == $snv && $mdr == $snr) {
- if ( $inc eq "Include" ) {
- print STDERR "Inserting ProcSet \"(AppleDict md)\" $snv $snr\n";
- print $sane;
- while(<SANE>) {
- print;
- }
- close(SANE);
- }
- else {
- print STDERR "Substituting ProcSet \"(AppleDict md)\" $snv $snr\n";
- $ignore = 1;
- }
- } else {
- print STDERR "Unrecognised AppleDict version $mdv $mdr\n";
- print "%!\n" if !$line;
- print;
- }
- } else {
- print STDERR "Can't find sanitised AppleDict\n";
- print "%!\n" if !$line;
- print;
- }
- } elsif (/^%%EndProcSet/) {
- if ($ignore) {
- $ignore = 0;
- print "%!\n" if !$line;
- print $sane;
- while(<SANE>) {
- print;
- }
- close(SANE);
- } else {
- print "%!\n" if !$line;
- print;
- }
- } elsif (/^%%Page:/ && $nesting == 0) {
- print $_;
- print values(%fonts);
- } elsif (/^%%BeginDocument/ || /^%%BeginBinary/ || /^%%BeginFile/) {
- print $_;
- $nesting++;
- } elsif (/^%%EndDocument/ || /^%%EndBinary/ || /^%%EndFile/) {
- print $_;
- $nesting--;
- } else {
- if (! $ignore) {
- if (/^\{\}mark .*rf$/) {
- $fonts{$_} = $_;
- print;
- } else {
- print "%!\n" if !$line;
- print;
- }
- }
- }
- $line++;
-}
-
diff --git a/Master/bin/alpha-linux/fixpsditps b/Master/bin/alpha-linux/fixpsditps
deleted file mode 100755
index 2a1728a8204..00000000000
--- a/Master/bin/alpha-linux/fixpsditps
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/usr/bin/env perl
-# fixpsditps: fix psdit output for use in psutils
-#
-# Copyright (C) Angus J. C. Duggan 1991-1995
-# See file LICENSE for details.
-
-$nesting = 0;
-
-while (<>) {
- if (/^\/p{pop showpage pagesave restore \/pagesave save def}def$/) {
- print "/p{pop showpage pagesave restore}def\n";
- } elsif (/^%%BeginDocument/ || /^%%BeginBinary/ || /^%%BeginFile/ ) {
- print $_;
- $nesting++;
- } elsif (/^%%EndDocument/ || /^%%EndBinary/ || /^%%EndFile/) {
- print $_;
- $nesting--;
- } elsif (/^%%Page:/ && $nesting == 0) {
- print $_;
- print "xi\n";
- } elsif (! /^xi$/) {
- print $_;
- }
-}
-
diff --git a/Master/bin/alpha-linux/fixpspps b/Master/bin/alpha-linux/fixpspps
deleted file mode 100755
index 77bba66d6b7..00000000000
--- a/Master/bin/alpha-linux/fixpspps
+++ /dev/null
@@ -1,58 +0,0 @@
-#!/usr/bin/env perl
-# mangle PostScript produced by PSPrint to make it almost conforming
-#
-# Copyright (C) Angus J. C. Duggan 1991-1995
-# See file LICENSE for details.
-
-$header = 1; $ignore = 0;
-$verbose = 0;
-@body = ();
-%fonts = (); $font = "";
-$inchar = 0; @char = ();
-
-while (<>) {
- if (/^\@end$/) {
- $ignore = 1;
- } elsif (/^[0-9]+ \@bop0$/) {
- $ignore = 0;
- $header = 1;
- } elsif ($header) {
- if (/^\/([a-z.0-9]+) \@newfont$/) {
- if (! defined($fonts{$1})) {
- $fonts{$1} = 1;
- print;
- } elsif ($verbose) {
- print STDERR "$font already defined\n";
- }
- } elsif (/^([a-z.0-9]+) sf$/) {
- $font = $1;
- print;
- } elsif (/^\[</) {
- $inchar = 1;
- push (@char, $_);
- } elsif ($inchar) {
- push (@char, $_);
- if (/.*\] ([0-9]+) dc$/) {
- if (! defined($fonts{$font,$1})) {
- $fonts{$font,$1} = 1;
- print (@char);
- } elsif ($verbose) {
- print STDERR "$font character $1 already defined\n";
- }
- $inchar = 0;
- @char = ();
- }
- } elsif (/^([0-9]+) \@bop1$/) {
- $header = 0;
- push (@body, "%%Page: ? $1\n");
- push (@body, $_);
- } else {
- print;
- }
- } elsif (! $ignore) {
- push (@body, $_);
- }
-}
-print (@body);
-print ("\@end\n");
-
diff --git a/Master/bin/alpha-linux/fixscribeps b/Master/bin/alpha-linux/fixscribeps
deleted file mode 100755
index bd4e9a0e3e0..00000000000
--- a/Master/bin/alpha-linux/fixscribeps
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/usr/bin/env perl
-# fixscribeps: get conforming PostScript out of Scribe
-#
-# Copyright (C) Angus J. C. Duggan 1991-1995
-# See file LICENSE for details.
-
-$inepsf = 0;
-$epsfn = 0;
-while (<>) {
- if (/^([0-9]+ [0-9]+ [0-9]+ PB) (%!.*)/) {
- print "$1\n%%BeginDocument: Scribe-EPSF $epsfn 0\n$2\n";
- $inepsf++;
- } elsif (/^ PE/ && $inepsf) {
- print "%%EndDocument\n", $_;
- } else {
- print $_;
- }
-}
-
diff --git a/Master/bin/alpha-linux/fixtpps b/Master/bin/alpha-linux/fixtpps
deleted file mode 100755
index 4239bb9dfc5..00000000000
--- a/Master/bin/alpha-linux/fixtpps
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/usr/bin/env perl
-# fixtpps: fix tpscript document to work with PSUtils
-#
-# Copyright (C) Angus J. C. Duggan 1991-1995
-# See file LICENSE for details.
-
-$nesting = 0;
-$header = 1;
-
-while (<>) {
- if (/^%%Page:/ && $nesting == 0) {
- print $_;
- print "save home\n";
- $header = 0;
- } elsif (/^%%BeginDocument/ || /^%%BeginBinary/ || /^%%BeginFile/) {
- print $_;
- $nesting++;
- } elsif (/^%%EndDocument/ || /^%%EndBinary/ || /^%%EndFile/) {
- print $_;
- $nesting--;
- } elsif (/save home/) {
- s/save home//;
- print $_;
- } elsif (!$header || (! /^save$/ && ! /^home$/)) {
- print $_;
- }
-}
-
diff --git a/Master/bin/alpha-linux/fixwfwps b/Master/bin/alpha-linux/fixwfwps
deleted file mode 100755
index 92d88443fe1..00000000000
--- a/Master/bin/alpha-linux/fixwfwps
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/env perl
-# fixwfwps: fix Word for windows PostScript for printing.
-#
-# Copyright (C) Angus J. C. Duggan 1991-1995
-# See file LICENSE for details.
-
-$nesting = 0;
-while (<>) {
- tr/\000-\010\012-\014\016-\037//d;
- foreach (grep($_ ne "", split("\015"))) {
- s!/SVDoc\s+save\s+def!!g;
- s!SVDoc\s+restore!!g;
- if (/^(%!PS-Adobe-\d*\.\d*) EPSF-/ && !$nesting) {
- print "$1\n";
- $wfwepsf = 1;
- } elsif (/^SS\s*$/ && $wfwepsf) {
- print "%%Page: $wfwepsf $wfwepsf\n";
- $wfwepsf++;
- print "$_\n";
- } elsif (/^%MSEPS Preamble/) {
- print "%%BeginDocument: (Included EPSF)\n";
- print "$_\n";
- $nesting++;
- } elsif (/^%MSEPS Trailer/) {
- $nesting--;
- print "$_\n";
- print "%%EndDocument\n";
- } elsif (! /^%%BoundingBox/) {
- print "$_\n";
- }
- }
-}
-
diff --git a/Master/bin/alpha-linux/fixwpps b/Master/bin/alpha-linux/fixwpps
deleted file mode 100755
index 83a5fdfaf0b..00000000000
--- a/Master/bin/alpha-linux/fixwpps
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/usr/bin/env perl
-# fixwpps: get semi-conforming PostScript out of WordPerfect 5.0 file
-#
-# Copyright (C) Angus J. C. Duggan 1991-1995
-# See file LICENSE for details.
-
-$page = 1;
-$nesting = 0;
-
-while (<>) {
- s/([^\/]_t)([0-9]+)/\1 \2/g; # fix wp 5.0 bug
- if (m!/_[be][dp]! || m!_bp \d+ \d+ roll!) {
- print $_;
- } elsif (/^(.*)(_bp.*)$/) {
- print "$1\n" if $1 ne "";
- print "%%Page: $page $page\n";
- print "$2\n";
- $page++;
- $nesting++;
- } elsif (/_ep$/) {
- print $_;
- $nesting--;
- } elsif (/^(.*)(_ed.*)/) {
- print "$1\n" if $1 ne "";
- print "%%Trailer:\n";
- print "$2\n";
- } else {
- print $_;
- }
-}
-
diff --git a/Master/bin/alpha-linux/fixwwps b/Master/bin/alpha-linux/fixwwps
deleted file mode 100755
index bfd58c086da..00000000000
--- a/Master/bin/alpha-linux/fixwwps
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/usr/bin/env perl
-# fixwwps: get semi-conforming PostScript out of Windows Write file
-#
-# Copyright (C) Angus J. C. Duggan 1991-1995
-# See file LICENSE for details.
-
-$page = 1;
-
-while (<>) {
- if (/^(%!.*) EPSF-\d.\d/) {
- print $1, "\n";
- } elsif (/^SS/) {
- print "%%Page: $page $page\n";
- print $_;
- $page++;
- } else {
- print $_;
- }
-}
-
diff --git a/Master/bin/alpha-linux/fmtutil b/Master/bin/alpha-linux/fmtutil
deleted file mode 100755
index c8daaf8e112..00000000000
--- a/Master/bin/alpha-linux/fmtutil
+++ /dev/null
@@ -1,883 +0,0 @@
-#!/bin/sh
-
-###############################################################################
-# fmtutil: utility to maintain format files.
-#
-# Thomas Esser, public domain.
-#
-# Commands:
-# --all recreate all format files
-# --missing create all missing format files
-# --refresh recreate only existing format files
-# --byfmt formatname (re)create format for `formatname'
-# --byhyphen hyphenfile (re)create formats that depend on `hyphenfile'
-# --enablefmt formatname enable formatname in config file
-# --disablefmt formatname disable formatname in config file
-# --listcfg list (enabled and disabled) configurations,
-# filtered to available formats
-# --catcfg output the content of the config file
-# --showhyphen formatname print name of hyphenfile for format `formatname'
-# --edit edit fmtutil.cnf file
-# --version show version info
-# --help show this message
-#
-# Options:
-# --cnffile file set configfile for fmtutil
-# --fmtdir directory set destination directory for format files
-###############################################################################
-
-###############################################################################
-# program history:
-# Fr Apr 8 19:15:05 CEST 2005 cleanup now has an argument for the return code
-# So Mär 27 18:52:06 CEST 2005 honor $TMPDIR, $TEMP and $TMP, not just $TMP
-# Sa Jan 15 18:13:46 CET 2005 avoid multiple variable assignments in one statement
-# Di Jan 11 11:42:36 CET 2005 fix --byhyphen with relative hyphenfile
-# Fr Dez 31 16:51:29 CET 2004 option catcfg added (for being called by texconfig)
-# Do Dez 30 21:53:27 CET 2004 rename variable verbose to verboseFlag
-# Sa Dez 25 12:44:23 CET 2004 implementation adopted for teTeX-3.0 (tcfmgr)
-# Do Okt 28 11:09:36 CEST 2004 added --refresh
-# Fr Sep 17 19:25:28 CEST 2004 save $0 in a variable before calling a function
-# Sun May 9 23:24:06 CEST 2004 changes for new web2c: format names
-# are now *.fmt, nothing else, disable
-# "plain" symlinks
-# Thu May 6 14:16:19 CEST 2004: "mv ...</dev/null" to avoid interaction.
-# Sun Mar 21 19:44:36 CET 2004: support aleph
-# Thu Dec 25 22:11:53 CET 2003: add version string
-# Thu Dec 25 12:56:14 CET 2003: new listcfg_loop lists only supported formats
-# Sun Dec 21 10:25:37 CET 2003 "mktexfmt pdflatex" did not work (if called
-# as mktexfmt, an extention was mandatory)
-# Mon Sep 15 13:07:31 CEST 2003 add tmpdir to TEXINPUTS
-# Sun Aug 3 11:09:46 CEST 2003 special case for mptopdf
-# Sun Apr 20 10:27:09 CEST 2003 allow " " as well as tab in config file
-# Wed Feb 19 21:14:52 CET 2003 add eomega support
-# Sat Feb 15 22:01:35 CET 2003 let mf-nowin work without mf
-# Wed Dec 25 09:47:44 CET 2002 bugfix for localized pool files
-# Fri Oct 25 02:29:06 CEST 2002: now more careful about find_hyphenfile()
-# Tue Oct 22 22:46:48 CEST 2002: -jobname, oft extension
-# Fri Oct 4 22:33:17 CEST 2002: add more cli stuff: enablefmt
-# disablefmt listcfg
-# Sun Jul 7 21:28:37 CEST 2002: look at log file for possible problems,
-# and issue a warning
-# Tue Jun 4 21:52:57 CEST 2002: trap / cleanup code from updmap
-# Tue Jun 4 19:32:44 CEST 2002: be smarter about stdout / stderr
-# Tue Apr 9 22:46:34 CEST 2002: pass -progname=mpost for metafun
-# Tue Apr 2 00:37:39 CEST 2002: added mktexfmt functionality
-# Tue Jun 5 14:45:57 CEST 2001: added support for mf / mpost
-###############################################################################
-
-test -f /bin/ksh && test -z "$RUNNING_KSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_KSH=true; export RUNNING_KSH; exec /bin/ksh $0 ${1+"$@"}; }
-unset RUNNING_KSH
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-# hack around a bug in zsh:
-test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"'
-
-progname=fmtutil
-argv0=$0
-version=1112981053 # seconds since `00:00:00 1970-01-01 UTC'
- # date '+%s' (with GNU date)
-
-cnf=fmtutil.cnf # name of the config file
-export PATH
-
-###############################################################################
-# cleanup()
-# clean up the temp area and exit with proper exit status
-###############################################################################
-cleanup()
-{
- rc=$1
- $needsCleanup && test -n "$tmpdir" && test -d "$tmpdir" \
- && { cd / && rm -rf "$tmpdir"; }
- (exit $rc); exit $rc
-}
-
-###############################################################################
-# setupTmpDir()
-# set up a temp directory and a trap to remove it
-###############################################################################
-setupTmpDir()
-{
- $needsCleanup && return
-
- trap 'cleanup 1' 1 2 3 7 13 15
- needsCleanup=true
- (umask 077; mkdir "$tmpdir") \
- || abort "could not create directory \`$tmpdir'"
-}
-
-###############################################################################
-# configReplace(file, pattern, line)
-# The first line in file that matches pattern gets replaced by line.
-# line will be added at the end of the file if pattern does not match.
-###############################################################################
-configReplace()
-{
- file=$1; pat=$2; line=$3
-
- if grep "$pat" "$file" >/dev/null; then
- ed "$file" >/dev/null 2>&1 <<-eof
- /$pat/
- c
- $line
- .
- w
- q
-eof
- else
- echo "$line" >> $file
- fi
-}
-
-###############################################################################
-# setmatch(match)
-# setting the "match state" to true or false. Used to see if there was at
-# least one match.
-###############################################################################
-setmatch()
-{
- match=$1
-}
-
-###############################################################################
-# getmatch()
-# return success if there was at least one match.
-###############################################################################
-getmatch()
-{
- test "x$match" = xtrue
-}
-
-###############################################################################
-# initTexmfMain()
-# get $MT_TEXMFMAIN from $TEXMFMAIN
-###############################################################################
-initTexmfMain()
-{
- case $MT_TEXMFMAIN in
- "") MT_TEXMFMAIN=`kpsewhich --var-value=TEXMFMAIN`;;
- esac
- export MT_TEXMFMAIN
-}
-
-###############################################################################
-# cache_vars()
-# locate files / kpathsea variables and export variables to environment
-# this speeds up future calls to e.g. mktexupd
-###############################################################################
-cache_vars()
-{
- : ${MT_VARTEXFONTS=`kpsewhich --expand-var='$VARTEXFONTS' | sed 's%^!!%%'`}
- : ${MT_MKTEXNAM=`kpsewhich --format='web2c files' mktexnam`}
- : ${MT_MKTEXNAM_OPT=`kpsewhich --format='web2c files' mktexnam.opt`}
- : ${MT_MKTEXDIR=`kpsewhich --format='web2c files' mktexdir`}
- : ${MT_MKTEXDIR_OPT=`kpsewhich --format='web2c files' mktexdir.opt`}
- : ${MT_MKTEXUPD=`kpsewhich --format='web2c files' mktexupd`}
- : ${MT_MKTEX_CNF=`kpsewhich --format='web2c files' mktex.cnf`}
- : ${MT_MKTEX_OPT=`kpsewhich --format='web2c files' mktex.opt`}
- export MT_VARTEXFONTS MT_MKTEXNAM MT_MKTEXNAM_OPT MT_MKTEXDIR
- export MT_MKTEXDIR_OPT MT_MKTEXUPD MT_MKTEX_CNF MT_MKTEX_OPT
-}
-
-###############################################################################
-# help()
-# display help message and exit
-###############################################################################
-help()
-{
- cat <<'eof'
-Usage: fmtutil [option] ... cmd [argument]
-
-Valid options:
- --cnffile file
- --fmtdir directory
- --quiet (not implemented, just for compatibility)
- --test (not implemented, just for compatibility)
- --dolinks (not implemented, just for compatibility)
- --force (not implemented, just for compatibility)
-
-Valid commands:
- --all recreate all format files
- --missing create all missing format files
- --refresh recreate only existing format files
- --byfmt formatname (re)create format for `formatname'
- --byhyphen hyphenfile (re)create formats that depend on `hyphenfile'
- --enablefmt formatname enable formatname in config file
- --disablefmt formatname disable formatname in config file
- --listcfg list (enabled and disabled) configurations,
- filtered to available formats
- --catcfg output the content of the config file
- --showhyphen formatname print name of hyphenfile for format `formatname'
- --edit edit fmtutil.cnf file
- --version show version info
- --help show this message
-eof
- cleanup 0
-}
-
-version()
-{
- cat <<eof
-$progname version $version.
-eof
- cleanup 0
-}
-
-###############################################################################
-# abort(errmsg)
-# print `errmsg' to stderr and exit with error code 1
-###############################################################################
-abort()
-{
- echo "$progname: $1." >&2
- cleanup 1
-}
-
-###############################################################################
-# verboseMsg(msg)
-# print `msg' to stderr is $verbose is true
-###############################################################################
-verboseMsg() {
- $verboseFlag && verbose echo ${1+"$@"}
-}
-
-###############################################################################
-# byebye()
-# report any failures and exit the program
-###############################################################################
-byebye()
-{
- if $has_errors; then
- {
- cat <<eof
-
-###############################################################################
-$progname: Error! Not all formats have been built successfully.
-Visit the log files in directory
- $destdir
-for details.
-###############################################################################
-
-This is a summary of all \`failed' messages and warnings:
-$log_failure_msg
-eof
- } >&2
- cleanup 1
- else
- cleanup 0
- fi
-}
-
-###############################################################################
-# init_log_failure()
-# reset the list of failure messages
-###############################################################################
-init_log_failure()
-{
- log_failure_msg=
- has_errors=false
-}
-
-###############################################################################
-# log_failure(errmsg)
-# report and save failure message `errmsg'
-###############################################################################
-log_failure()
-{
- echo "Error: $@" >&2
- if test -z "$log_failure_msg"; then
- log_failure_msg="$@"
- else
- OLDIFS=$IFS; IFS=
- log_failure_msg="$log_failure_msg
-$@"
- IFS=$OLDIFS
- fi
- has_errors=true
-}
-
-###############################################################################
-# verbose (cmd)
-# execute cmd. Redirect output depending on $mktexfmtMode.
-###############################################################################
-verbose()
-{
- $mktexfmtMode && ${1+"$@"} >&2 || ${1+"$@"}
-}
-
-###############################################################################
-# mktexdir(args)
-# call mktexdir script, disable all features (to prevent sticky directories)
-###############################################################################
-mktexdir()
-{
- initTexmfMain
- MT_FEATURES=none "$MT_TEXMFMAIN/web2c/mktexdir" "$@" >&2
-}
-
-###############################################################################
-# tcfmgr(args)
-# call tcfmgr script
-###############################################################################
-tcfmgr()
-{
- initTexmfMain
- "$MT_TEXMFMAIN/texconfig/tcfmgr" "$@"
-}
-
-###############################################################################
-# mktexupd(args)
-# call mktexupd script
-###############################################################################
-mktexupd()
-{
- initTexmfMain
- "$MT_TEXMFMAIN/web2c/mktexupd" "$@"
-}
-
-###############################################################################
-# main()
-# parse commandline arguments, initialize variables,
-# switch into temp. direcrory, execute desired command
-###############################################################################
-main()
-{
- destdir= # global variable: where do we put the format files?
- cnf_file= # global variable: full name of the config file
- cmd= # desired action from command line
- needsCleanup=false
- need_find_hyphenfile=false
- cfgparam=
- cfgmaint=
- tmpdir=${TMPDIR-${TEMP-${TMP-/tmp}}}/$progname.$$
- verboseFlag=true
-
- # mktexfmtMode: if called as mktexfmt, set to true. Will echo the generated
- # filename after successful generation to stdout then (and nothing else).
- mktexfmtMode=false
- case $argv0 in
- mktexfmt|*/mktexfmt)
- mktexfmtMode=true
- fullfmt=$1; shift
- case $fullfmt in
- *.fmt|*.mem|*.base)
- set x --byfmt `echo $fullfmt | sed 's@\.[a-z]*$@@'` ${1+"$@"}; shift
- ;;
- *.*)
- abort "unknown format type: $fullfmt"
- ;;
- "")
- help
- ;;
- *)
- set x --byfmt $fullfmt; shift
- ;;
- esac
- ;;
- esac
-
- while
- case $1 in
- --cnffile)
- shift; cnf_file=$1; cfgparam=1;;
- --cnffile=*)
- cnf_file=`echo "$1" | sed 's/--cnffile=//'`; cfgparam=1; shift ;;
- --fmtdir)
- shift; destdir=$1;;
- --fmtdir=*)
- destdir=`echo "$1" | sed 's/--fmtdir=//'`; shift ;;
- --all|-a)
- cmd=all;;
- --edit|-e)
- cmd=edit; cfgmaint=1;;
- --missing|-m)
- cmd=missing;;
- --refresh|-r)
- cmd=refresh;;
- --byfmt|-f)
- shift; cmd=byfmt; arg=$1;;
- --byfmt=*)
- cmd=byfmt; arg=`echo "$1" | sed 's/--byfmt=//'`; shift ;;
- --byhyphen|-h)
- shift; cmd=byhyphen; arg=$1;;
- --byhyphen=*)
- cmd=byhyphen; arg=`echo "$1" | sed 's/--byhyphen=//'`; shift ;;
- --showhyphen|-s)
- shift; cmd=showhyphen; arg=$1;;
- --showhyphen=*)
- cmd=showhyphen; arg=`echo "$1" | sed 's/--showhyphen=//'`; shift ;;
- --help|-help)
- cmd=help;;
- --version)
- cmd=version;;
- --enablefmt)
- shift; cmd=enablefmt; arg=$1; cfgmaint=1;;
- --enablefmt=*)
- cmd=enablefmt; arg=`echo "$1" | sed 's/--enablefmt=//'`; cfgmaint=1; shift;;
- --disablefmt)
- shift; cmd=disablefmt; arg=$1; cfgmaint=1;;
- --disablefmt=*)
- cmd=disablefmt; arg=`echo "$1" | sed 's/--disablefmt=//'`; cfgmaint=1; shift;;
- --catcfg)
- cmd=catcfg;;
- --listcfg)
- cmd=listcfg;;
- --quiet|-q)
- verboseFlag=false;;
- --test|--dolinks|--force)
- ;;
- "") break;;
- *) abort "$progname: unknown option \`$1'. Try $progname --help for help";;
- esac
- do test $# -gt 0 && shift; done
-
- case "$cmd" in
- help|"") help;;
- version) version;;
- esac
-
- if test -n "$cfgparam"; then
- test -f "$cnf_file" || abort "config file \`$cnf_file' not found"
- fi
-
- if test -n "$cfgmaint"; then
- if test -z "$cfgparam"; then
- setupTmpDir
- co=`tcfmgr --tmp $tmpdir --cmd co --file $cnf`
- test $? = 0 || cleanup 1
- set x $co; shift
- id=$1; cnf_file=$3; orig=$4
- verboseMsg "$progname: initial config file is \`$orig'"
- fi
- else
- if test -z "$cfgparam"; then
- cnf_file=`tcfmgr --cmd find --file $cnf`
- test -f "$cnf_file" || abort "config file \`$cnf' not found"
- fi
- fi
-
- # showhyphen and edit do not need any temp. directory, so do it here:
- case "$cmd" in
- showhyphen)
- show_hyphen_file "$arg"
- cleanup $?
- ;;
- edit)
- ${VISUAL-${EDITOR-vi}} $cnf_file
- ;;
- enablefmt|disablefmt)
- $cmd $arg
- ;;
- catcfg)
- grep -v '^ *#' "$cnf_file" | sed 's@^ *@@; s@ *$@@' | grep . | sort
- cleanup $?
- ;;
- listcfg)
- listcfg_loop
- cleanup $?
- ;;
- esac
-
- if test -n "$cfgmaint"; then
- if test -z "$cfgparam"; then
- ci=`tcfmgr --tmp $tmpdir --cmd ci --id $id`
- if test $? = 0; then
- if test -n "$ci"; then
- verboseMsg "$progname: configuration file updated: \`$ci'"
- else
- verboseMsg "$progname: configuration file unchanged."
- fi
- else
- abort "failed to update configuration file."
- fi
- fi
- cleanup $?
- fi
-
- # set up destdir:
- if test -z "$destdir"; then
- : ${MT_TEXMFVAR=`kpsewhich -var-value=TEXMFVAR`}
- destdir=$MT_TEXMFVAR/web2c
- fi
- test -d "$destdir" || mktexdir "$destdir" >/dev/null 2>&1
- test -d "$destdir" || abort "format directory \`$destdir' does not exist"
- test -w "$destdir" || abort "format directory \`$destdir' is not writable"
-
- thisdir=`pwd`
-
- : ${KPSE_DOT=$thisdir}
- export KPSE_DOT
-
- # due to KPSE_DOT, we don't search the current directory, so include
- # it explicitly for formats that \write and later on \read
- TEXINPUTS="$tmpdir:$TEXINPUTS"; export TEXINPUTS
-
- setupTmpDir
- cd "$tmpdir" || cleanup 1
-
- # make local paths absolute:
- case "$destdir" in
- /*) ;;
- *) destdir="$thisdir/$destdir";;
- esac
- case "$cnf_file" in
- /*) ;;
- *) cnf_file="$thisdir/$cnf_file";;
- esac
-
- cache_vars
- init_log_failure
- # execute the desired command:
- case "$cmd" in
- all)
- recreate_all;;
- missing)
- create_missing;;
- refresh)
- recreate_existing;;
- byfmt)
- create_one_format "$arg";;
- byhyphen)
- recreate_by_hyphenfile "$arg";;
- esac
-
- # install the log files and format files:
- for i in *.log; do
- test -f "$i" || continue
- rm -f "$destdir/$i"
-
- # We don't want user-interaction for the following "mv" command:
- mv "$i" "$destdir/$i" </dev/null
- done
- for i in *.fmt *.mem *.base; do
- test -f "$i" || continue
- rm -f "$destdir/$i"
-
- # We don't want user-interaction for the following "mv" command:
- if mv "$i" "$destdir/$i" </dev/null; then
- verboseMsg "$progname: $destdir/$i installed."
- $mktexfmtMode && echo "$destdir/$i"
- fi
- mktexupd "$destdir" "$i"
- done
-
- byebye
-}
-
-###############################################################################
-# parse_line(config_line) sets global variables:
-# format: name of the format, e.g. pdflatex
-# engine: name of the TeX engine, e.g. tex, etex, pdftex
-# texargs: flags for initex and name of the ini file (e.g. -mltex frlatex.ini)
-# fmtfile: name of the format file (without directory, but with extension)
-#
-# Support for building internationalized formats sets:
-# pool: base name of pool file (to support translated pool files)
-# tcx: translation file used when creating the format
-#
-# Example (for fmtutil.cnf):
-# mex-pl tex mexconf.tex nls=tex-pl,il2-pl mex.ini
-#
-# The nls parameter (pool,tcx) can only be specified as the first argument
-# inside the 4th field in fmtutil.cnf.
-#
-# exit code: returns error code if the ini file is not installed
-###############################################################################
-parse_line()
-{
- case $1 in
- '#!') disabled=true; shift;;
- *) disabled=false;;
- esac
- format=$1
- engine=$2
- hyphenation=$3
- shift; shift; shift
-
- # handle nls support: pool + tcx
- pool=; tcx=
- case $1 in
- nls=*)
- pool=`echo $1 | sed 's@nls=@@; s@,.*@@'`
- tcx=`echo $1 | sed 's@nls=[^,]*@@; s@^,@@'`
- shift # nls stuff is not handled by the engine directly,
- # so we shift this away
- ;;
- esac
-
- texargs="$@"
-
- eval lastarg=\$$#
- inifile=`echo $lastarg | sed 's%^\*%%'`
-
- case "$engine" in
- mpost) fmtfile="$format.mem"; kpsefmt=mpost;;
- mf|mfw|mf-nowin) fmtfile="$format.base"; kpsefmt=mf;;
- *) fmtfile="$format.fmt"; kpsefmt=tex;;
- esac
-
- # See if we can find $inifile for return code:
- kpsewhich -progname=$format -format=$kpsefmt $inifile >/dev/null 2>&1
-}
-
-###############################################################################
-# find_hyphenfile(format, hyphenation) searches for hyphenation along
-# searchpath of format
-# exit code: returns error is file is not found
-###############################################################################
-find_hyphenfile()
-{
- format="$1"; hyphenation="$2"
- case $hyphenation in
- -) ;;
- *) kpsewhich -progname="$format" -format=tex "$hyphenation";;
- esac
-}
-
-###############################################################################
-# find_info_for_name(format)
-# Look up the config line for format `format' and call parse_line to set
-# global variables.
-###############################################################################
-find_info_for_name()
-{
- format="$1"
-
- # set x `awk '$1 == format {print; exit}' format="$format" "$cnf_file"`; shift
- set x `egrep "^$format( | )" "$cnf_file" | sed q`; shift
- test $# = 0 && abort "no info for format \`$format'"
- parse_line "$@"
-}
-
-###############################################################################
-# run_initex()
-# Calls initex. Assumes that global variables are set by parse_line.
-###############################################################################
-run_initex()
-{
-
- # install a pool file and set tcx flag if requested in lang= option:
- rm -f *.pool
- poolfile=
- tcxflag=
- test -n "$pool" \
- && poolfile=`(kpsewhich -progname=$engine $pool.pool) 2>/dev/null`
- if test -n "$poolfile" && test -f "$poolfile"; then
- verboseMsg "$progname: attempting to create localized format using pool=$pool and tcx=$tcx."
- cp "$poolfile" $engine.pool
- test -n "$tcx" && tcxflag=-translate-file=$tcx
- localpool=true
- else
- localpool=false
- fi
-
- jobswitch="-jobname=$format"
- case "$format" in
- metafun) prgswitch=-progname=mpost;;
- mptopdf|cont-??) prgswitch=-progname=context;;
- *) prgswitch=-progname=$format;;
- esac
-
- rm -f $fmtfile
- verboseMsg "$progname: running \`$engine -ini $tcxflag $jobswitch $prgswitch $texargs' ..."
-
- # run in a subshell to get a local effect of TEXPOOL manipulation:
- (
- # If necessary, set TEXPOOL. Use absolute path, because of KPSE_DOT.
- $localpool && { TEXPOOL="`pwd`:$TEXPOOL"; export TEXPOOL; }
- verbose $engine -ini $tcxflag $jobswitch $prgswitch $texargs
- ) </dev/null
-
- if test -f $fmtfile; then
- grep '^! ' $format.log >/dev/null 2>&1 &&
- log_failure "\`$engine -ini $tcxflag $jobswitch $prgswitch $texargs' possibly failed."
- else
- log_failure "\`$engine -ini $tcxflag $jobswitch $prgswitch $texargs' failed"
- fi
-}
-
-###############################################################################
-# recreate_loop(hyphenfile)
-# for each line in config file: check match-condition and recreate format
-# if there is a match
-###############################################################################
-recreate_loop()
-{
- OIFS=$IFS
- IFS='
-'
- set `echo x; sed '/^#/d; /^[ ]*$/d' "$cnf_file"`; shift
- IFS=$OIFS
- for line
- do
- parse_line $line || continue
- check_match || continue
- echo; echo
- run_initex
- done
-}
-
-###############################################################################
-# listcfg_loop()
-# prints all format definitions in config files (enabled and disabled ones)
-# for supported formats (i.e. for those which have an existing ini file)
-###############################################################################
-listcfg_loop()
-{
- OIFS=$IFS
- IFS='
-'
- set `echo x; sed '/^#$/d; /^#[^!]/d; /^[ ]*$/d' "$cnf_file"`; shift
- IFS=$OIFS
- for line
- do
- parse_line $line && echo "$line"
- done
-}
-
-###############################################################################
-# check_match()
-# recreate all formats
-###############################################################################
-check_match()
-{
- $need_find_hyphenfile && \
- this_hyphenfile=`find_hyphenfile "$format" "$hyphenation"`
-
- eval $match_cmd && setmatch true
-}
-
-###############################################################################
-# create_one_format(fmtname)
-# (re)create the format file for the format `fmtname'
-###############################################################################
-create_one_format()
-{
- fmtname=$1
-
- find_info_for_name $fmtname || abort "format \`$fmtname' not available"
- run_initex
-}
-
-###############################################################################
-# create_missing()
-# create all missing format files
-###############################################################################
-create_missing()
-{
- # match_cmd='test ! -f $destdir/$fmtfile'
- match_cmd='test ! -f "`kpsewhich -progname=$format $fmtfile`"'
- recreate_loop
-}
-
-###############################################################################
-# recreate_existing()
-# recreate only existing format files
-###############################################################################
-recreate_existing()
-{
- match_cmd='test -f "`kpsewhich -progname=$format $fmtfile`"'
- recreate_loop
-}
-
-###############################################################################
-# recreate_all()
-# recreate all formats
-###############################################################################
-recreate_all()
-{
- match_cmd=true
- recreate_loop
-}
-
-###############################################################################
-# recreate_by_hyphenfile(hyphenfile)
-# recreate all formats that depend on hyphenfile
-###############################################################################
-recreate_by_hyphenfile()
-{
- hyphenfile=$1
-
- case $hyphenfile in
- /*)
- :
- ;;
- ./*)
- hyphenfile="$KPSE_DOT/"`echo "$hyphenfile" | sed 's@..@@'`
- ;;
- *)
- hyphenfile="$KPSE_DOT/$hyphenfile"
- ;;
- esac
- need_find_hyphenfile=true
- match_cmd="test x\$this_hyphenfile = x$hyphenfile"
-
- # No match before the loop:
- setmatch false
-
- recreate_loop
-
- # Now check if there was at least one match:
- getmatch || abort "no format depends on \`$hyphenfile'"
-}
-
-
-###############################################################################
-# show_hyphen_file(format)
-# prints full name of the hyphenfile for format
-#
-# exit code: returns error code if the ini file is not installed or if
-# the hyphen file cannot be found
-###############################################################################
-show_hyphen_file()
-{
- fmtname=$1
-
- find_info_for_name "$fmtname" || abort "no info for format \`$fmtname'"
- if test "x$hyphenation" = x-; then
- echo -
- cleanup 0
- fi
- find_hyphenfile "$format" "$hyphenation" \
- || abort "hyphenfile \`$hyphenation' not found"
-}
-
-###############################################################################
-# disablefmt(format)
-# disables format in configuration file
-###############################################################################
-disablefmt()
-{
- grep "^$1[ ]" $cnf_file >/dev/null || { (exit 0); return 0; }
-
- ed $cnf_file >/dev/null 2>&1 <<-eof
- /^$1[ ]/s/^/#! /
- w
- q
-eof
- (exit 0); return 0
-}
-
-###############################################################################
-# enablefmt(format)
-# enables format in configuration file
-###############################################################################
-enablefmt()
-{
- grep "^#![ ]*$1[ ]" $cnf_file >/dev/null || { (exit 0); return 0; }
- ed $cnf_file >/dev/null 2>&1 <<-eof
- /^#![ ]*$1[ ]/s/..[ ]*//
- w
- q
-eof
- (exit 0); return 0
-}
-
-main ${1+"$@"}
-cleanup 0
diff --git a/Master/bin/alpha-linux/fmtutil-sys b/Master/bin/alpha-linux/fmtutil-sys
deleted file mode 100755
index bfb52f94e1f..00000000000
--- a/Master/bin/alpha-linux/fmtutil-sys
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/bin/sh
-
-# fmtutil-sys: Thomas Esser, public domain.
-
-# wrapper script for fmtutil with TEXMFVAR and TEXMFCONFIG set to
-# TEXMFSYSVAR / TEXMFSYSCONFIG
-
-test -f /bin/ksh && test -z "$RUNNING_KSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_KSH=true; export RUNNING_KSH; exec /bin/ksh $0 ${1+"$@"}; }
-unset RUNNING_KSH
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-# hack around a bug in zsh:
-test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"'
-export PATH
-
-v=`kpsewhich -var-value TEXMFSYSVAR`
-c=`kpsewhich -var-value TEXMFSYSCONFIG`
-
-TEXMFVAR="$v"
-TEXMFCONFIG="$c"
-export TEXMFVAR TEXMFCONFIG
-
-exec fmtutil ${1+"$@"}
diff --git a/Master/bin/alpha-linux/fontinst b/Master/bin/alpha-linux/fontinst
deleted file mode 100755
index 7d1271517ad..00000000000
--- a/Master/bin/alpha-linux/fontinst
+++ /dev/null
@@ -1,16 +0,0 @@
-#!/bin/sh
-
-test -f /bin/sh5 && test -z "$RUNNING_SH5" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_SH5=true; export RUNNING_SH5; exec /bin/sh5 $0 ${1+"$@"}; }
-unset RUNNING_SH5
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-# hack around a bug in zsh:
-test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"'
-
-tex -progname=fontinst \&tex ${1+"$@"}
diff --git a/Master/bin/alpha-linux/gbklatex b/Master/bin/alpha-linux/gbklatex
deleted file mode 100755
index c7fcf7f13bc..00000000000
--- a/Master/bin/alpha-linux/gbklatex
+++ /dev/null
@@ -1,26 +0,0 @@
-#! /bin/sh
-
-n=1
-argv=
-
-# get last argument
-while test 1 -lt $#; do
- eval argv$n=\$1
- argv="$argv \"\$argv$n\""
- n=`expr $n + 1`
- shift
-done
-
-# replace extension with .cjk or append .cjk if there is no extension
-tex=$1
-case $tex in
-""|*.cjk)
- echo >&2 "Usage: $0 [options] latex-file"
- exit 1;;
-*)
- aux=`expr "X$tex" : 'X\(.*\)\.[^/]*$' \| "X$tex" : 'X\(.*\)'`.cjk;;
-esac
-
-extconv < "$tex" > "$aux" && eval latex "$argv" "\$aux"
-
-# EOF
diff --git a/Master/bin/alpha-linux/gbkpdflatex b/Master/bin/alpha-linux/gbkpdflatex
deleted file mode 100755
index 6cdb3cfee51..00000000000
--- a/Master/bin/alpha-linux/gbkpdflatex
+++ /dev/null
@@ -1,26 +0,0 @@
-#! /bin/sh
-
-n=1
-argv=
-
-# get last argument
-while test 1 -lt $#; do
- eval argv$n=\$1
- argv="$argv \"\$argv$n\""
- n=`expr $n + 1`
- shift
-done
-
-# replace extension with .cjk or append .cjk if there is no extension
-tex=$1
-case $tex in
-""|*.cjk)
- echo >&2 "Usage: $0 [options] pdflatex-file"
- exit 1;;
-*)
- aux=`expr "X$tex" : 'X\(.*\)\.[^/]*$' \| "X$tex" : 'X\(.*\)'`.cjk;;
-esac
-
-extconv < "$tex" > "$aux" && eval pdflatex "$argv" "\$aux"
-
-# EOF
diff --git a/Master/bin/alpha-linux/getafm b/Master/bin/alpha-linux/getafm
deleted file mode 100755
index 1c6cd21cf77..00000000000
--- a/Master/bin/alpha-linux/getafm
+++ /dev/null
@@ -1,358 +0,0 @@
-#!/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/bin/alpha-linux/getnonfreefonts b/Master/bin/alpha-linux/getnonfreefonts
deleted file mode 100755
index 21dd7a0fff8..00000000000
--- a/Master/bin/alpha-linux/getnonfreefonts
+++ /dev/null
@@ -1,166 +0,0 @@
-#!/bin/sh
-
-## getnonfreefonts
-## Copyright 2005 Reinhard Kotucha <reinhard.kotucha@web.de>
-#
-# This work may be distributed and/or modified under the
-# conditions of the LaTeX Project Public License, either version 1.3
-# of this license or (at your option) any later version.
-# The latest version of this license is in
-# http://www.latex-project.org/lppl.txt
-#
-# The current maintainer is Reinhard Kotucha.
-
-
-# invoke the right shell (code from Thomas Esser):
-test -f /bin/ksh && test -z "$RUNNING_KSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_KSH=true; export RUNNING_KSH; exec /bin/ksh $0 ${1+"$@"}; }
-unset RUNNING_KSH
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-
-URL="${URL-ftp://tug.org/tex/getnonfreefonts/getfont}"
-
-die () { echo "$1." 1>&2; exit 1; }
-
-OLDIFS=$IFS
-IFS=:
-BINDIRS=`echo $PATH`
-IFS=$OLDIFS
-
-for BINDIR in $BINDIRS; do
- if test "$BINDIR" != "."; then
- for FTP_CLIENT in wget lftp ncftpget curl snarf gftp; do
- test -x $BINDIR/$FTP_CLIENT && FTP=$FTP_CLIENT && break
- done
- fi
-done
-
-test -n "$FTP" || die "No ftp client found"
-
-export FTP
-
-case $0 in
- *-sys) SYS=true; GETFONT=getfont-sys;;
- *) SYS=false; GETFONT=getfont;;
-esac
-export SYS GETFONT
-
-ALL=true
-RUNSHELL=false
-
-ARGS_FROM_GETNONFREEFONTS="$@"
-export ARGS_FROM_GETNONFREEFONTS
-
-for ARG in "$@"; do
- case $ARG in
- -*)
- case $ARG in
- -shell|--shell) RUNSHELL=true;;
- -ftp-client=*|--ftp-client=*)
- FTP=`echo "$ARG" | sed 's/.*=//'`;;
- -url=*|--url=*)
- URL=`echo "$ARG" | sed 's/.*=//'`;;
- -h|-help|--help) ALL=false;;
- esac;;
- *) ALL=false;;
- esac
-done
-
-export URL
-
-tmpdir=${TMPDIR-${TEMP-${TMP-/tmp}}}/getnonfreefonts.$$
-(umask 077; mkdir "${tmpdir}") || die "Can't mkdir ${tmpdir}"
-trap 'rm -rf ${tmpdir}' 0 1 2 3 7 13 15
-
-download () {
- echo "Downloading: $1"
- case ${FTP} in
- wget) wget "$1" || die "$1: Download failed";;
- lftp) lftp -c "get $1" || die "$1: Download failed";;
- ncftpget) ncftpget "$1" || die "$1: Download failed";;
- curl) curl -O "$1" || die "$1: Download failed";;
- snarf) snarf "$1" || die "$1: Download failed";;
- gftp) gftp -d "$1" || die "$1: Download failed";;
- *) die "This can't happen";;
- esac
-}
-
-cd "${tmpdir}" || die "Can't cd ${tmpdir}"
-
-echo -------------------------------------------------------
-echo "FTP client: ${FTP}"
-echo "Temporary dir: ${tmpdir}"
-echo "URL: ${URL}"
-echo -------------------------------------------------------
-
-download ${URL}
-
-chmod 700 getfont
-ln -s getfont getfont-sys
-PATH=${tmpdir}:${PATH}
-export PATH
-
-UPDMAP_NEEDED=false
-
-if ${RUNSHELL}; then
- if ${SYS}; then
- PS1='[getfont-sys]\$ '
- else
- PS1='[getfont]\$ '
- fi
- export PS1
- echo -------------------------------------------------------
- echo "FTP client: ${FTP}"
- echo "Temporary dir: ${tmpdir}"
- echo "URL: ${URL}"
- echo "SYS: ${SYS}"
- echo "ARGS: ${ARGS_FROM_GETNONFREEFONTS}"
- echo -------------------------------------------------------
- echo "Run program \"getfont\" or \"getfont-sys\" for each font you want to install."
- echo; echo "Supported fonts are:"
- for f in `getfont --lsfonts`; do
- echo " $f"
- done
- echo; echo "Type \"getfont --help\" for more information."
- echo "Type \"exit\" to leave this shell."; echo
-
-# Start the shell. We start a shell even if someone has
-# SHELL=/sbin/shutdown in his environment.
-
- test -z ${SHELL} || SHELL="/bin/sh"
- case ${SHELL} in
- /bin/bash) /bin/bash;;
- /bin/ksh) /bin/ksh;;
- /bin/ksh) /bin/ksh;;
- *) /bin/sh;;
- esac
-
- echo "Please run \"updmap\" or \"updmap-sys\" now if necessary."
-else # no shell
- if ${ALL} ; then
- for font in `getfont --lsfonts`; do
- ${GETFONT} ${ARGS_FROM_GETNONFREEFONTS} ${font} && UPDMAP_NEEDED=true
- done
- else
- ${GETFONT} ${ARGS_FROM_GETNONFREEFONTS} && UPDMAP_NEEDED=true
- fi
-
- if ${UPDMAP_NEEDED}; then
- if ${SYS}; then
- updmap-sys
- else
- updmap
- fi
- fi
-fi
-
-cd /
-rm -rf "${tmpdir}"
-
-exit 0
diff --git a/Master/bin/alpha-linux/getnonfreefonts-sys b/Master/bin/alpha-linux/getnonfreefonts-sys
deleted file mode 120000
index d1e30f335dd..00000000000
--- a/Master/bin/alpha-linux/getnonfreefonts-sys
+++ /dev/null
@@ -1 +0,0 @@
-getnonfreefonts \ No newline at end of file
diff --git a/Master/bin/alpha-linux/gftodvi b/Master/bin/alpha-linux/gftodvi
deleted file mode 100755
index c3ddcb4d595..00000000000
--- a/Master/bin/alpha-linux/gftodvi
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/gftopk b/Master/bin/alpha-linux/gftopk
deleted file mode 100755
index b30106526bc..00000000000
--- a/Master/bin/alpha-linux/gftopk
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/gftype b/Master/bin/alpha-linux/gftype
deleted file mode 100755
index 096156ef6da..00000000000
--- a/Master/bin/alpha-linux/gftype
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/giftopng b/Master/bin/alpha-linux/giftopng
deleted file mode 100755
index e218c61fe6b..00000000000
--- a/Master/bin/alpha-linux/giftopng
+++ /dev/null
@@ -1,4 +0,0 @@
-#!/bin/sh
-X=`kpsewhich $1`
-Y=`basename $X .gif`.png
-convert $X $Y
diff --git a/Master/bin/alpha-linux/gsftopk b/Master/bin/alpha-linux/gsftopk
deleted file mode 100755
index 2babb19411c..00000000000
--- a/Master/bin/alpha-linux/gsftopk
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/hbf2gf b/Master/bin/alpha-linux/hbf2gf
deleted file mode 100755
index 82707d7732d..00000000000
--- a/Master/bin/alpha-linux/hbf2gf
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/ht b/Master/bin/alpha-linux/ht
deleted file mode 100755
index 0498e529af7..00000000000
--- a/Master/bin/alpha-linux/ht
+++ /dev/null
@@ -1,7 +0,0 @@
-#!/bin/sh
- $1 $2
- $1 $2
- $1 $2
- tex4ht $2
- t4ht $2 $3
-
diff --git a/Master/bin/alpha-linux/htcontext b/Master/bin/alpha-linux/htcontext
deleted file mode 100755
index 190ac31f862..00000000000
--- a/Master/bin/alpha-linux/htcontext
+++ /dev/null
@@ -1,7 +0,0 @@
-#!/bin/sh
- texexec --arg="opt-arg=$2" --use=tex4ht $5 $1
- tex4ht -f/$1 -i~/tex4ht.dir/texmf/tex4ht/ht-fonts/$3
- t4ht -f/$1 $4 -cvalidatehtml ## -d~/WWW/temp/ -m644
-
-
-
diff --git a/Master/bin/alpha-linux/htlatex b/Master/bin/alpha-linux/htlatex
deleted file mode 100755
index 04713bb7794..00000000000
--- a/Master/bin/alpha-linux/htlatex
+++ /dev/null
@@ -1,9 +0,0 @@
-#!/bin/sh
- latex $5 '\makeatletter\def\HCode{\futurelet\HCode\HChar}\def\HChar{\ifx"\HCode\def\HCode"##1"{\Link##1}\expandafter\HCode\else\expandafter\Link\fi}\def\Link#1.a.b.c.{\g@addto@macro\@documentclasshook{\RequirePackage[#1,html]{tex4ht}}\let\HCode\documentstyle\def\documentstyle{\let\documentstyle\HCode\expandafter\def\csname tex4ht\endcsname{#1,html}\def\HCode####1{\documentstyle[tex4ht,}\@ifnextchar[{\HCode}{\documentstyle[tex4ht]}}}\makeatother\HCode '$2'.a.b.c.\input ' $1
- latex $5 '\makeatletter\def\HCode{\futurelet\HCode\HChar}\def\HChar{\ifx"\HCode\def\HCode"##1"{\Link##1}\expandafter\HCode\else\expandafter\Link\fi}\def\Link#1.a.b.c.{\g@addto@macro\@documentclasshook{\RequirePackage[#1,html]{tex4ht}}\let\HCode\documentstyle\def\documentstyle{\let\documentstyle\HCode\expandafter\def\csname tex4ht\endcsname{#1,html}\def\HCode####1{\documentstyle[tex4ht,}\@ifnextchar[{\HCode}{\documentstyle[tex4ht]}}}\makeatother\HCode '$2'.a.b.c.\input ' $1
- latex $5 '\makeatletter\def\HCode{\futurelet\HCode\HChar}\def\HChar{\ifx"\HCode\def\HCode"##1"{\Link##1}\expandafter\HCode\else\expandafter\Link\fi}\def\Link#1.a.b.c.{\g@addto@macro\@documentclasshook{\RequirePackage[#1,html]{tex4ht}}\let\HCode\documentstyle\def\documentstyle{\let\documentstyle\HCode\expandafter\def\csname tex4ht\endcsname{#1,html}\def\HCode####1{\documentstyle[tex4ht,}\@ifnextchar[{\HCode}{\documentstyle[tex4ht]}}}\makeatother\HCode '$2'.a.b.c.\input ' $1
- tex4ht -f/$1 -i~/tex4ht.dir/texmf/tex4ht/ht-fonts/$3
- t4ht -f/$1 $4 -cvalidatehtml ## -d~/WWW/temp/ -m644
-
-
-
diff --git a/Master/bin/alpha-linux/htmex b/Master/bin/alpha-linux/htmex
deleted file mode 100755
index 7e34ac6d523..00000000000
--- a/Master/bin/alpha-linux/htmex
+++ /dev/null
@@ -1,9 +0,0 @@
-#!/bin/sh
- mex $5 '\def\Link#1.a.b.c.{\expandafter\def\csname tex4ht\endcsname{\expandafter\def\csname tex4ht\endcsname{#1,html}\input tex4ht.sty }}\def\HCode{\futurelet\HCode\HChar}\def\HChar{\ifx"\HCode\def\HCode"##1"{\Link##1}\expandafter\HCode\else\expandafter\Link\fi}\HCode '$2'.a.b.c.\input ' $1
- mex $5 '\def\Link#1.a.b.c.{\expandafter\def\csname tex4ht\endcsname{\expandafter\def\csname tex4ht\endcsname{#1,html}\input tex4ht.sty }}\def\HCode{\futurelet\HCode\HChar}\def\HChar{\ifx"\HCode\def\HCode"##1"{\Link##1}\expandafter\HCode\else\expandafter\Link\fi}\HCode '$2'.a.b.c.\input ' $1
- mex $5 '\def\Link#1.a.b.c.{\expandafter\def\csname tex4ht\endcsname{\expandafter\def\csname tex4ht\endcsname{#1,html}\input tex4ht.sty }}\def\HCode{\futurelet\HCode\HChar}\def\HChar{\ifx"\HCode\def\HCode"##1"{\Link##1}\expandafter\HCode\else\expandafter\Link\fi}\HCode '$2'.a.b.c.\input ' $1
- tex4ht -f/$1 -i~/tex4ht.dir/texmf/tex4ht/ht-fonts/$3
- t4ht -f/$1 $4 -cvalidatehtml ## -d~/WWW/temp/ -m644
-
-
-
diff --git a/Master/bin/alpha-linux/httex b/Master/bin/alpha-linux/httex
deleted file mode 100755
index 1fdf5f3d940..00000000000
--- a/Master/bin/alpha-linux/httex
+++ /dev/null
@@ -1,9 +0,0 @@
-#!/bin/sh
- tex $5 '\def\Link#1.a.b.c.{\expandafter\def\csname tex4ht\endcsname{\expandafter\def\csname tex4ht\endcsname{#1,html}\input tex4ht.sty }}\def\HCode{\futurelet\HCode\HChar}\def\HChar{\ifx"\HCode\def\HCode"##1"{\Link##1}\expandafter\HCode\else\expandafter\Link\fi}\HCode '$2'.a.b.c.\input ' $1
- tex $5 '\def\Link#1.a.b.c.{\expandafter\def\csname tex4ht\endcsname{\expandafter\def\csname tex4ht\endcsname{#1,html}\input tex4ht.sty }}\def\HCode{\futurelet\HCode\HChar}\def\HChar{\ifx"\HCode\def\HCode"##1"{\Link##1}\expandafter\HCode\else\expandafter\Link\fi}\HCode '$2'.a.b.c.\input ' $1
- tex $5 '\def\Link#1.a.b.c.{\expandafter\def\csname tex4ht\endcsname{\expandafter\def\csname tex4ht\endcsname{#1,html}\input tex4ht.sty }}\def\HCode{\futurelet\HCode\HChar}\def\HChar{\ifx"\HCode\def\HCode"##1"{\Link##1}\expandafter\HCode\else\expandafter\Link\fi}\HCode '$2'.a.b.c.\input ' $1
- tex4ht -f/$1 -i~/tex4ht.dir/texmf/tex4ht/ht-fonts/$3
- t4ht -f/$1 $4 -cvalidatehtml ## -d~/WWW/temp/ -m644
-
-
-
diff --git a/Master/bin/alpha-linux/httexi b/Master/bin/alpha-linux/httexi
deleted file mode 100755
index b3d841ed9a3..00000000000
--- a/Master/bin/alpha-linux/httexi
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/sh
- tex $5 '\def\Link#1.a.b.c.{\expandafter\def\csname tex4ht\endcsname{\expandafter\def\csname tex4ht\endcsname{#1,html}\input tex4ht.sty }}\def\HCode{\futurelet\HCode\HChar}\def\HChar{\ifx"\HCode\def\HCode"##1"{\Link##1}\expandafter\HCode\else\expandafter\Link\fi}\let\svrm=\rm\def\rm{\svrm\ifx\c\comment\def\rm{\let\rm=\svrm\catcode`\@=12\catcode`\\=0 \csname tex4ht\endcsname\catcode`\@=0\catcode`\\=13 }\expandafter\rm\fi}\HCode '$2'.a.b.c.\input ' $1
- tex $5 '\def\Link#1.a.b.c.{\expandafter\def\csname tex4ht\endcsname{\expandafter\def\csname tex4ht\endcsname{#1,html}\input tex4ht.sty }}\def\HCode{\futurelet\HCode\HChar}\def\HChar{\ifx"\HCode\def\HCode"##1"{\Link##1}\expandafter\HCode\else\expandafter\Link\fi}\let\svrm=\rm\def\rm{\svrm\ifx\c\comment\def\rm{\let\rm=\svrm\catcode`\@=12\catcode`\\=0 \csname tex4ht\endcsname\catcode`\@=0\catcode`\\=13 }\expandafter\rm\fi}\HCode '$2'.a.b.c.\input ' $1
- tex $5 '\def\Link#1.a.b.c.{\expandafter\def\csname tex4ht\endcsname{\expandafter\def\csname tex4ht\endcsname{#1,html}\input tex4ht.sty }}\def\HCode{\futurelet\HCode\HChar}\def\HChar{\ifx"\HCode\def\HCode"##1"{\Link##1}\expandafter\HCode\else\expandafter\Link\fi}\let\svrm=\rm\def\rm{\svrm\ifx\c\comment\def\rm{\let\rm=\svrm\catcode`\@=12\catcode`\\=0 \csname tex4ht\endcsname\catcode`\@=0\catcode`\\=13 }\expandafter\rm\fi}\HCode '$2'.a.b.c.\input ' $1
- tex4ht -f/$1 -i~/tex4ht.dir/texmf/tex4ht/ht-fonts/$3
- t4ht -f/$1 $4 -cvalidatehtml ## -d~/WWW/temp/ -m644
-# texindex ?
-
-
-
diff --git a/Master/bin/alpha-linux/includeres b/Master/bin/alpha-linux/includeres
deleted file mode 100755
index 4547357cd93..00000000000
--- a/Master/bin/alpha-linux/includeres
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/bin/env perl
-# includeres: include resources in PostScript file
-#
-# Copyright (C) Angus J. C. Duggan 1991-1995
-# See file LICENSE for details.
-
-$prog = ($0 =~ s=.*/==);
-
-%extn = ("font", ".pfa", "file", ".ps", "procset", ".ps", # resource extns
- "pattern", ".pat", "form", ".frm", "encoding", ".enc");
-%type = ("%%BeginFile:", "file", "%%BeginProcSet:", "procset",
- "%%BeginFont:", "font"); # resource types
-
-sub filename { # make filename for resource in @_
- local($name);
- foreach (@_) { # sanitise name
- s/[!()\$\#*&\\\|\`\'\"\~\{\}\[\]\<\>\?]//g;
- $name .= $_;
- }
- $name =~ s@.*/@@; # drop directories
- die "Filename not found for resource ", join(" ", @_), "\n"
- if $name =~ /^$/;
- $name;
-}
-
-while (<>) {
- if (/^%%IncludeResource:/ || /^%%IncludeFont:/ || /^%%IncludeProcSet:/) {
- local($comment, @res) = split(/\s+/);
- local($type) = defined($type{$comment}) ? $type{$comment} : shift(@res);
- local($name) = &filename(@res);
- local($inc) = ""; # system include directory
- if (open(RES, $name) || open(RES, "$name$extn{$type}") ||
- open(RES, "$inc/$name") || open(RES, "$inc/$name$extn{$type}")) {
- while (<RES>) {
- print $_;
- }
- close(RES);
- } else {
- print "%%IncludeResource: ", join(" ", $type, @res), "\n";
- print STDERR "Resource $name not found\n";
- }
- } else {
- print $_;
- }
-}
-
diff --git a/Master/bin/alpha-linux/info b/Master/bin/alpha-linux/info
deleted file mode 100755
index 6f153a2c3bb..00000000000
--- a/Master/bin/alpha-linux/info
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/infokey b/Master/bin/alpha-linux/infokey
deleted file mode 100755
index ad61a5de7ab..00000000000
--- a/Master/bin/alpha-linux/infokey
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/install-info b/Master/bin/alpha-linux/install-info
deleted file mode 100755
index 293fbfcc63c..00000000000
--- a/Master/bin/alpha-linux/install-info
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/jadetex b/Master/bin/alpha-linux/jadetex
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/jadetex
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/kpseaccess b/Master/bin/alpha-linux/kpseaccess
deleted file mode 100755
index 3bd4611e88c..00000000000
--- a/Master/bin/alpha-linux/kpseaccess
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/kpsepath b/Master/bin/alpha-linux/kpsepath
deleted file mode 120000
index 30de0e13853..00000000000
--- a/Master/bin/alpha-linux/kpsepath
+++ /dev/null
@@ -1 +0,0 @@
-kpsetool \ No newline at end of file
diff --git a/Master/bin/alpha-linux/kpsereadlink b/Master/bin/alpha-linux/kpsereadlink
deleted file mode 100755
index 1ea8d402e67..00000000000
--- a/Master/bin/alpha-linux/kpsereadlink
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/kpsestat b/Master/bin/alpha-linux/kpsestat
deleted file mode 100755
index 8702b9596f4..00000000000
--- a/Master/bin/alpha-linux/kpsestat
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/kpsetool b/Master/bin/alpha-linux/kpsetool
deleted file mode 100755
index 463097fd4a9..00000000000
--- a/Master/bin/alpha-linux/kpsetool
+++ /dev/null
@@ -1,118 +0,0 @@
-#!/bin/sh
-
-# kpsetool. Script to make teTeX-style kpsetool, kpsexpand and kpsepath
-# available. Web2C's kpsewhich offers a superset of the functionality.
-# For compatibilty with old versions of teTeX, this script provides the
-# old command line interface of kpsetool, kpsexpand and kpsepath. All the
-# real work is done inside Web2C's kpsewhich.
-# Thomas Esser <te@dbs.uni-hannover.de>, Mar 1997, public domain.
-
-export PATH
-
-usage="
-Usage: kpsexpand [options] string
-Usage: kpsetool -w [options] pathtype filename
-Usage: kpsepath [options] pathtype
-
-Valid options are the following:
- -n progname : pretend to be progname to kpathsea
- -m mode : set Metafont mode
- -w : locate files (similar to kpsewhich)
- -p : act like kpsepath
- -v : act like kpsexpand
-
-Valid pathtypes are:
- gf : generic font bitmap
- pk : packed bitmap font
- base : Metafont memory dump
- bib : BibTeX bibliography source
- bst : BibTeX style files
- cnf : Kpathsea runtime configuration files
- fmt : TeX memory dump
- mem : MetaPost memory dump
- mf : Metafont source
- mfpool : Metafont program strings
- mp : MetaPost source
- mppool : MetaPost program strings
- mpsupport : MetaPost support files
- pict : Other kinds of figures
- tex : TeX source
- texpool : TeX program strings
- tfm : TeX font metrics
- vf : virtual font
- dvips_config : dvips config files
- dvips_header : dvips header files
- troff_font : troff fonts
-"
-
-action=kpsexpand
-case $0 in
- */kpsewhich) action=kpsewhich;;
- */kpsepath) action=kpsepath;;
-esac
-
-progname=`echo $0 | sed 's@.*/@@'`
-flags=''
-
-while true; do
- case x"$1" in
- x-n)
- if test $# = 1; then
- echo "$progname: missing argument for -n."
- echo "$usage"; exit 1
- else
- flags="$flags -progname=$2"; shift; shift
- fi;;
- x-m)
- if test $# = 1; then
- echo "$progname: missing argument for -m."
- echo "$usage"; exit 1
- else
- flags="$flags -mode=$2"; shift; shift
- fi;;
- x-w) action=kpsewhich; shift;;
- x-p) action=kpsepath; shift;;
- x-v) action=kpsexpand; shift;;
- *) break;;
- esac
-done
-
-case "$action" in
- kpsewhich|kpsepath)
- case "$1" in
- gf) format='gf';;
- pk) format='pk';;
- base) format='.base';;
- bib) format='.bib';;
- bst) format='.bst';;
- cnf) format='.cnf';;
- fmt) format='.fmt';;
- mem) format='.mem';;
- mf) format='.mf';;
- mfpool) format='.pool';;
- mp) format='.mp';;
- mppool) format='.pool';;
- mpsupport) format='MetaPost support';;
- pict) format='.eps';;
- tex) format='.tex';;
- texpool) format='.pool';;
- tfm) format='.tfm';;
- vf) format='.vf';;
- dvips_config) format='dvips config';;
- dvips_header) format='.pro';;
- troff_font) format='Troff fonts';;
- *) echo "$progname: $1: unknown format"; echo "$usage"; exit 1;;
- esac
- shift;;
-esac
-
-case "$action" in
- kpsewhich)
- test $# = 1 || { echo "$progname: missing filename"; echo "$usage"; exit 1; }
- kpsewhich $flags -format="$format" "$1";;
- kpsepath)
- kpsewhich $flags -show-path="$format";;
- kpsexpand)
- test $# = 1 || { echo "$progname: missing string"; echo "$usage"; exit 1; }
- kpsewhich $flags -expand-var="$1";;
-esac
diff --git a/Master/bin/alpha-linux/kpsewhere b/Master/bin/alpha-linux/kpsewhere
deleted file mode 100755
index 51088ee80d6..00000000000
--- a/Master/bin/alpha-linux/kpsewhere
+++ /dev/null
@@ -1,63 +0,0 @@
-#!/bin/sh
-#
-# Thomas Esser, Hans Fredrik Nordhaug, 2003, 2004.
-# Public domain.
-#
-# kpsewhere is an extension to kpsewhich (as where is for which in tcsh).
-# The intention is to provide a way to check for conflicts/shadowed
-# files.
-#
-# Original version by Hans Fredrik Nordhaug <hans.fredrik@nordhaug.no>
-#
-# Bugs / limitations:
-# conflicts/shadowed files whithin each texmf tree are not found.
-#
-
-
-test -f /bin/sh5 && test -z "$RUNNING_SH5" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_SH5=true; export RUNNING_SH5; exec /bin/sh5 $0 ${1+"$@"}; }
-unset RUNNING_SH5
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-export PATH
-
-help='Usage: kpsewhere [OPTION]... [FILENAME]...
- Expanding kpsewhich to iterate over each texmf tree listed in $TEXMF
- separately.
-
- See kpsewhich for help on options.
-
- --help show this help'
-
-options=
-while
- case $1 in
- -h|-help|--help)
- echo "$help" >&2
- exit 0;;
- -*) options="${options} '${1}'";;
- *) break;;
- esac
-do shift; done
-
-case $# in
- 0)
- echo "$help" >&2
- exit 1
- ;;
-esac
-
-IFS=':'
-for file
-do
- for path in `kpsewhich --expand-path='$TEXMF'`
- do
- eval TEXMF=\$path kpsewhich $options \"\$file\"
- done
-done
-exit 0
diff --git a/Master/bin/alpha-linux/kpsewhich b/Master/bin/alpha-linux/kpsewhich
deleted file mode 100755
index 21e0d7238bd..00000000000
--- a/Master/bin/alpha-linux/kpsewhich
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/kpsexpand b/Master/bin/alpha-linux/kpsexpand
deleted file mode 120000
index 30de0e13853..00000000000
--- a/Master/bin/alpha-linux/kpsexpand
+++ /dev/null
@@ -1 +0,0 @@
-kpsetool \ No newline at end of file
diff --git a/Master/bin/alpha-linux/lacheck b/Master/bin/alpha-linux/lacheck
deleted file mode 100755
index e8224df1a2a..00000000000
--- a/Master/bin/alpha-linux/lacheck
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/lambda b/Master/bin/alpha-linux/lambda
deleted file mode 120000
index de9fd6e773d..00000000000
--- a/Master/bin/alpha-linux/lambda
+++ /dev/null
@@ -1 +0,0 @@
-omega \ No newline at end of file
diff --git a/Master/bin/alpha-linux/lamed b/Master/bin/alpha-linux/lamed
deleted file mode 120000
index b02b132b9c1..00000000000
--- a/Master/bin/alpha-linux/lamed
+++ /dev/null
@@ -1 +0,0 @@
-aleph \ No newline at end of file
diff --git a/Master/bin/alpha-linux/latex b/Master/bin/alpha-linux/latex
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/latex
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/mag b/Master/bin/alpha-linux/mag
deleted file mode 100755
index 99ef5fbafc0..00000000000
--- a/Master/bin/alpha-linux/mag
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/makeindex b/Master/bin/alpha-linux/makeindex
deleted file mode 100755
index fe864a1f5f4..00000000000
--- a/Master/bin/alpha-linux/makeindex
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/makeinfo b/Master/bin/alpha-linux/makeinfo
deleted file mode 100755
index 5877e122ee3..00000000000
--- a/Master/bin/alpha-linux/makeinfo
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/makempx b/Master/bin/alpha-linux/makempx
deleted file mode 100755
index 8aaa9bac1dc..00000000000
--- a/Master/bin/alpha-linux/makempx
+++ /dev/null
@@ -1,181 +0,0 @@
-#!/bin/sh
-# $Id: makempx.in,v 1.18 2005/06/22 17:33:26 olaf Exp $
-# Make an MPX file from the labels in a MetaPost source file,
-# using mpto and either dvitomp (TeX) or dmp (troff).
-# From John Hobby's original (though there's not much of it left by now).
-# Public domain.
-#
-#
-version=0.9
-
-: ${DMP=dmp}
-: ${DVITOMP=dvitomp}
-: ${MAKEMPX_BINDIR=`echo $0 | sed 's%/[^/]*$%%'`}
-: ${MPTEXPRE=mptexpre.tex}
-: ${MPTOTEX='mpto -tex'}
-: ${MPTOTR='mpto -troff'}
-: ${NEWER=newer}
-# This is oriented towards GNU roff: old value was
-# 'eqn -Tpost -d\$\$ | troff -Tpost'
-: ${TROFF='eqn -Tps -d\$\$ | troff -Tps'}
-
-# convert relative path to absolute in $MAKEMPX_BINDIR:
-case "$MAKEMPX_BINDIR" in
- /*) ;;
- *) MAKEMPX_BINDIR=`pwd`/$MAKEMPX_BINDIR;;
-esac
-
-PATH=$MAKEMPX_BINDIR:/bin:/usr/bin:$PATH
-
-# These names are documented in the MetaPost manual, so it's
-# unwise to change them.
-ERRLOG=mpxerr.log # file for an error log if necessary
-TEXERR=mpxerr.tex # file for erroneous TeX if any
-DVIERR=mpxerr.dvi # troublesome dvi file if any
-TROFF_INERR=mpxerr # file for erroneous troff input, if any
-TROFF_OUTERR=mpxerr.t # file for troublesome troff output, if any
-
-
-usage="Usage: $0 [-tex|-tex=<program>|-troff] MPFILE MPXFILE.
- If MPXFILE is older than MPFILE, translate the labels from the MetaPost
- input file MPFIle to low-level commands in MPXFILE, by running
- $MPTOTEX, $TEX, and $DVITOMP
- by default; or, if -troff is specified,
- $MPTOTR, $TROFF, and $DMP.
-
- The current directory is used for writing temporary files. Errors are
- left in mpxerr.{tex,log,dvi}.
-
- If the file named in \$MPTEXPRE (mptexpre.tex by default) exists, it is
- prepended to the output in tex mode.
-
-Email bug reports to metapost@tug.org."
-
-
-mode=tex
-
-while test $# -gt 0; do
- case "$1" in
- -help|--help)
- echo "$usage"; exit 0;;
- -version|--version)
- echo "`basename $0` $version"
- echo "There is NO warranty. This script is public domain.
-Primary author: John Hobby."
- exit 0;;
- -troff|--troff) mode=troff;;
- -tex|--tex) mode=tex;;
- -tex=*|--tex=*) mode=tex; TEX=`echo "$1" | sed 's/^-*tex=//'`;;
- -*)
- echo "$0: Invalid option: $1." >&2
- echo "Try \``basename $0` --help' for more information." >&2
- exit 1;;
- *)
- if test -z "$MPFILE"; then
- MPFILE=$1 # input file
- elif test -z "$MPXFILE"; then
- MPXFILE=$1 # output file
- else
- echo "$0: Extra argument $1." >&2
- echo "Try \``basename $0` --help' for more information." >&2
- exit 1
- fi;;
- esac
- shift
-done
-
-if test -z "$MPFILE" || test -z "$MPXFILE"; then
- echo "$0: Need exactly two file arguments." >&2
- echo "Try \``basename $0` --help' for more information." >&2
- exit 1
-fi
-
-trap "rm -f mpx$$.* \"$ERRLOG\"; exit 4" 1 2 3 15
-
-# If MPX file is up-to-date, do nothing.
-if $NEWER "$MPFILE" "$MPXFILE"; then
-
- # Have to remake.
- # Step 0: Check typesetter mode for consistency.
- case "$mode" in
- tex) MPTO="$MPTOTEX";;
- troff) MPTO="$MPTOTR";;
- *) echo "$0: Unknown typesetter mode: $mode" >&2
- exit 1;;
- esac
-
- # Step 1: Extract typesetter source from MetaPost source.
- if $MPTO "$MPFILE" >mpx$$.tex 2>"$ERRLOG"; then :;
- # success
- else
- # failure
- echo "$0: Command failed: $MPTO $MPFILE" >&2
- cat "$ERRLOG" >&2
- rm -f mpx$$.tex
- exit 1
- fi
- if test "$mode" = troff; then
- mv -f mpx$$.tex mpx$$.i
- fi
-
- # Step 2: Run typesetter.
- if test "$mode" = tex; then
- if test -r "$MPTEXPRE"; then
- # Prepend user file.
- cat "$MPTEXPRE" mpx$$.tex >mpx$$.tmp
- mv mpx$$.tmp mpx$$.tex
- fi
-
- test -z "$TEX" && \
- TEX=`sed -n '1s/%\&[ ]*\([^ ]*\).*$/\1 --parse-first-line/p;q' mpx$$.tex`
- test -z "$TEX" && TEX='tex --parse-first-line'
-
- if $TEX --interaction=batchmode mpx$$.tex </dev/null >/dev/null; then
- WHATEVER_TO_MPX="$DVITOMP"
- INFILE=mpx$$.dvi
- INERROR=$DVIERR
- else
- # failure
- mv -f mpx$$.tex "$TEXERR"
- mv -f mpx$$.log "$ERRLOG"
- echo "$0: Command failed: $TEX $TEXERR; see $ERRLOG" >&2
- exit 2
- fi
- elif test "$mode" = troff; then
- if cat mpx$$.i | eval $TROFF >mpx$$.t; then
- # success, prepare for step 3.
- WHATEVER_TO_MPX="$DMP"
- INFILE=mpx$$.t
- INERROR=$TROFF_OUTERR
- else
- # failure
- mv -f mpx$$.i "$TROFF_INERR"
- echo "$0: Command failed: cat $TROFF_INERR | $TROFF" >&2
- rm -f mpx$$.t
- exit 2
- fi
- else
- echo "$0: Unknown typesetter mode: $mode; how did this happen?" >&2
- exit 2
- fi
-
- # Step 3: Translate typesetter output to a MetaPost MPX.
- if $WHATEVER_TO_MPX "$INFILE" "$MPXFILE" >"$ERRLOG"; then
- : # success
- else
- # failure
- mv -f "$INFILE" "$INERROR"
- test $mode = troff && mv -f mpx$$.i "$TROFF_INERR"
- echo "$0: Command failed: $WHATEVER_TO_MPX $INERROR $MPXFILE" >&2
- # Better to remove $MPXFILE if something went wrong rather than
- # leaving behind an unfinished or unusable version since $NEWER
- # might think that all is fine if $MPXFILE exists.
- rm -f "$MPXFILE"
- cat "$ERRLOG" >&2
- exit 3
- fi
-
- rm -f "$ERRLOG" mpx$$.*
-fi
-
-exit 0
diff --git a/Master/bin/alpha-linux/makempy b/Master/bin/alpha-linux/makempy
deleted file mode 120000
index afced152700..00000000000
--- a/Master/bin/alpha-linux/makempy
+++ /dev/null
@@ -1 +0,0 @@
-texexec \ No newline at end of file
diff --git a/Master/bin/alpha-linux/mex b/Master/bin/alpha-linux/mex
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/mex
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/mf b/Master/bin/alpha-linux/mf
deleted file mode 100755
index aeb42e6d6ef..00000000000
--- a/Master/bin/alpha-linux/mf
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/mf-nowin b/Master/bin/alpha-linux/mf-nowin
deleted file mode 100755
index 89f85988182..00000000000
--- a/Master/bin/alpha-linux/mf-nowin
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/mft b/Master/bin/alpha-linux/mft
deleted file mode 100755
index ae8a262792f..00000000000
--- a/Master/bin/alpha-linux/mft
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/mk4ht b/Master/bin/alpha-linux/mk4ht
deleted file mode 100755
index 019d9cfc7c8..00000000000
--- a/Master/bin/alpha-linux/mk4ht
+++ /dev/null
@@ -1,153 +0,0 @@
-#!/usr/bin/env perl
-#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-# mk4ht 2005-09-23-22:09 %
-# Copyright (C) 2003--2005 Eitan M. Gurari %
-# %
-# %
-# This work may be distributed and/or modified under the %
-# conditions of the LaTeX Project Public License, either %
-# version 1.3 of this license or (at your option) any %
-# later version. The latest version of this license is %
-# in %
-# http://www.latex-project.org/lppl.txt %
-# and version 1.3 or later is part of all distributions %
-# of LaTeX version 2003/12/01 or later. %
-# %
-# This work has the LPPL maintenance status "maintained".%
-# %
-# This Current Maintainer of this work %
-# is Eitan M. Gurari. %
-# %
-# gurari@cse.ohio-state.edu %
-# http://www.cse.ohio-state.edu/~gurari %
-#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-use strict;
-$^W=1; # turn warning on
-my @options = (
- "", "ht", "", "", "", "-cvalidatehtml",
- "ht", "htlatex", "latex", "", "", "-cvalidatehtml",
- "ht", "httex", "tex", "", "", "-cvalidatehtml",
- "ht", "httexi", "texi", "", "", "-cvalidatehtml",
- "ht", "htcontext", "texexec", "", "", "-cvalidatehtml",
- "uxh", "uxhlatex", "latex", "xhtml,uni-html4", " -cunihtf", "-cvalidate",
- "uxh", "uxhtex", "tex", "xhtml,uni-html4", " -cunihtf", "-cvalidate",
- "uxh", "uxhtexi", "texi", "xhtml,uni-html4", " -cunihtf", "-cvalidate",
- "uxh", "uxhcontext","texexec", "xhtml,uni-html4", " -cunihtf", "-cvalidate",
- "xhm", "xhmlatex", "latex", "xhtml,mathml", " -cunihtf", "-cvalidate",
- "xhm", "xhmtex", "tex", "xhtml,mathml", " -cunihtf", "-cvalidate",
- "xhm", "xhmtexi", "texi", "xhtml,mathml", " -cunihtf", "-cvalidate",
- "xhm", "xhmcontext","texexec", "xhtml,mathml", " -cunihtf", "-cvalidate",
- "mz", "mzlatex", "latex", "xhtml,mozilla", " -cmozhtf", "-cvalidate",
- "mz", "mztex", "tex", "xhtml,mozilla", " -cmozhtf", "-cvalidate",
- "mz", "mztexi", "texi", "xhtml,mozilla", " -cmozhtf", "-cvalidate",
- "mz", "mzcontext", "texexec", "xhtml,mozilla", " -cmozhtf", "-cvalidate",
- "oo", "oolatex", "latex", "xhtml,ooffice", "ooffice/\! -cmozhtf", "-coo -cvalidate",
- "oo", "ootex", "tex", "xhtml,ooffice", "ooffice/\! -cmozhtf", "-coo -cvalidate",
- "oo", "ootexi", "texi", "xhtml,ooffice", "ooffice/\! -cmozhtf", "-coo -cvalidate",
- "oo", "oocontext", "texexec", "xhtml,ooffice", "ooffice/\! -cmozhtf", "-coo -cvalidate",
- "tei", "teilatex", "latex", "xhtml,tei", " -cunihtf", "-cvalidate",
- "tei", "teitex", "tex", "xhtml,tei", " -cunihtf", "-cvalidate",
- "tei", "teitexi", "texi", "xhtml,tei", " -cunihtf", "-cvalidate",
- "tei", "teicontext","texexec", "xhtml,tei", " -cunihtf", "-cvalidate",
- "teim", "teimlatex", "latex", "xhtml,tei-mml"," -cunihtf", "-cvalidate",
- "teim", "teimtex", "tex", "xhtml,tei-mml"," -cunihtf", "-cvalidate",
- "teim", "teimtexi", "texi", "xhtml,tei-mml"," -cunihtf", "-cvalidate",
- "teim", "teimcontext","texexec","xhtml,tei-mml"," -cunihtf", "-cvalidate",
- "db", "dblatex", "latex", "xhtml,docbook", " -cunihtf", "-cvalidate",
- "db", "dbtex", "tex", "xhtml,docbook", " -cunihtf", "-cvalidate",
- "db", "dbtexi", "texi", "xhtml,docbook", " -cunihtf", "-cvalidate",
- "db", "dbcontext", "texexec", "xhtml,docbook", " -cunihtf", "-cvalidate",
- "dbm", "dbmlatex", "latex", "xhtml,docbook-mml", " -cunihtf", "-cvalidate",
- "dbm", "dbmtex", "tex", "xhtml,docbook-mml", " -cunihtf", "-cvalidate",
- "dbm", "dbmtexi", "texi", "xhtml,docbook-mml", " -cunihtf", "-cvalidate",
- "dbm", "dbmcontext","texexec", "xhtml,docbook-mml", " -cunihtf", "-cvalidate",
- "w", "wlatex", "latex", "xhtml,word", " -csymhtf", "",
- "w", "wtex", "tex", "xhtml,word", " -csymhtf", "",
- "w", "wtexi", "texi", "xhtml,word", " -csymhtf", "",
- "w", "wcontext", "texexec", "xhtml,word", " -csymhtf", "",
- "jh", "jhlatex", "latex", "html,javahelp,3.2,unicode,jh1.0", " -cmozhtf -u10", " -d%1-doc/ -cjavahelp -cvalidate",
- "jh", "jhtex", "tex", "html,javahelp,3.2,unicode,jh1.0", " -cmozhtf -u10", " -d%1-doc/ -cjavahelp -cvalidate",
- "jh", "jhtexi", "texi", "html,javahelp,3.2,unicode,jh1.0", " -cmozhtf -u10", " -d%1-doc/ -cjavahelp -cvalidate",
- "jh", "jhcontext","texexec", "html,javahelp,3.2,unicode,jh1.0", " -cmozhtf -u10", " -d%1-doc/ -cjavahelp -cvalidate",
-
-);
-
-sub showInstrucions(){
- print " option1: mk4ht #1 \"#2\" \"#3\" \"#4\" \"#5\"\n";
- print " \n";
- print " #1: htlatex, mzlatex, oolatex, dblatex, dbmlatex,\n";
- print " teilatex, teimlatex, uxhlatex, wlatex, xhlatex,\n";
- print " xhmlatex\n";
- print " \n";
- print " also 'tex', 'texi', and 'context' instead of 'latex'\n";
- print " \n";
- print " #2: file name\n";
- print " #3: optional arguments for latex/tex/texi/context \n";
- print " #4: optional arguments for tex4ht.c\n";
- print " #5: optional arguments for t4ht.c\n";
- print " \n";
- print " option2: mk4ht ht #2 #3 \"#4\" \"#5\"\n";
- print " \n";
- print " #1: ht\n";
- print " #2: latex, tex\n";
- print " #3: file name\n";
- print " #4: optional arguments for tex4ht.c\n";
- print " #5: optional arguments for t4ht.c\n";
- print " \n";
- print " Within the program, in column three of the options\n";
- print " variable, the requests for the commands \"latex\",\n";
- print " \"tex\", etc. can be replaced with other equivalent\n";
- print " commands (e.g., \"tex -fmt=latex\").\n";
-}
-
-print "mk4ht (2005-09-23-22:09)\n";
-if( !@ARGV ){
- print "improper command\n";
- showInstrucions(); exit(1);
-}
-my @command=("","","","","");
-my $i=0;
-my $j=0;
-my $param;
-foreach $param (@ARGV) {
- if( $i == 0 ){
- for( $j=1; $j<$#options; $j+=6 ){
- if( $param eq $options[$j] ){
- if( $options[$j-1] eq "" ){
- $command[0] = $options[$j];
- } else {
- $command[0] = "ht".$options[$j+1];
- }
- $command[2] = $options[$j+2];
- $command[3] = $options[$j+3];
- $command[4] = $options[$j+4];
- last;
- } }
- if( $j>$#options ){ print "improper command: $param \n";
- showInstrucions(); exit(1); }
- } elsif ( $i== 1 ) {
- $command[1] = $param;
- } elsif ( $i== 2 ) {
- if( $command[2] eq "" ){
- $command[2] = $param;
- } else {
- $command[2] = $param. "," . $command[2];
- }
- } elsif ( $i== 3 ) {
- $command[3] = $param . $command[3];
- } else {
- $command[4] = $param. " " .$command[4];
- }
- $i++;
-}
-my $commando = $command[0] . " " . $command[1] . " \"".
- $command[2] . "\" \"". $command[3] . "\" \"" .
- $command[4] . "\"";
-print "$commando\n";
-my $rtrn;
-if( $rtrn = system($commando) ){
- print "--- error --- failed to execute command\n";
-} else { exit( !$rtrn ); }
-
-
diff --git a/Master/bin/alpha-linux/mkindex b/Master/bin/alpha-linux/mkindex
deleted file mode 100755
index 565f805695d..00000000000
--- a/Master/bin/alpha-linux/mkindex
+++ /dev/null
@@ -1,39 +0,0 @@
-#!/bin/sh
-
-test -f /bin/sh5 && test -z "$RUNNING_SH5" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_SH5=true; export RUNNING_SH5; exec /bin/sh5 $0 ${1+"$@"}; }
-unset RUNNING_SH5
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-progname=`basename $0`
-case $# in
- 0)
- echo "usage: `basename $0` file[.idx] ..." 1>&2
- exit 1
- ;;
-esac
-
-gind=gind.ist
-gglo=gglo.ist
-
-# remember starting directory
-dir=`pwd`
-
-# loop over all files
-for i
-do
- destdir=`echo $i | sed 's/^[^\/]*$/./; s/\/[^\/]*$//'`
- test -d "$destdir"||continue
- cd "$destdir"
- FILENAME=`basename $i .idx`
- test -f "$FILENAME".idx \
- && makeindex -s $gind "$FILENAME"
- test -f "$FILENAME".glo \
- && makeindex -s $gglo -o "$FILENAME".gls "$FILENAME".glo
- cd "$dir"
-done
diff --git a/Master/bin/alpha-linux/mkocp b/Master/bin/alpha-linux/mkocp
deleted file mode 100755
index 41ffead8bf1..00000000000
--- a/Master/bin/alpha-linux/mkocp
+++ /dev/null
@@ -1,6 +0,0 @@
-#!/bin/sh
-# Initial definition. Will leave the .ocp file in the local directory.
-(
-otp2ocp `basename "$1" .ocp` || exit 1
-) 1>&2 </dev/null
-echo `basename "$1" .ocp`.ocp
diff --git a/Master/bin/alpha-linux/mkofm b/Master/bin/alpha-linux/mkofm
deleted file mode 100755
index ef820171f08..00000000000
--- a/Master/bin/alpha-linux/mkofm
+++ /dev/null
@@ -1,3 +0,0 @@
-#!/bin/sh
-# Initial definition. For the moment only makes .tfm files.
-mktextfm $*
diff --git a/Master/bin/alpha-linux/mktexfmt b/Master/bin/alpha-linux/mktexfmt
deleted file mode 120000
index 817cc8aaa1b..00000000000
--- a/Master/bin/alpha-linux/mktexfmt
+++ /dev/null
@@ -1 +0,0 @@
-fmtutil \ No newline at end of file
diff --git a/Master/bin/alpha-linux/mktexlsr b/Master/bin/alpha-linux/mktexlsr
deleted file mode 100755
index 3d2523d875b..00000000000
--- a/Master/bin/alpha-linux/mktexlsr
+++ /dev/null
@@ -1,150 +0,0 @@
-#!/bin/sh
-# original mktexlsr -- create or rebuild ls-R.
-#
-# (If you change or delete the word `original' on the previous line,
-# installation won't write this script over yours.)
-#
-# Suitable for calling from cron, as in:
-# 0 * * * * cd /your/texmf/root && /usr/local/bin/mktexlsr
-# unless the scripts live in a different directory than the 'kpseaccess',
-# 'kpsestat', 'kpsereadlink', and 'kpsewhich' binaries.
-#
-# Originally written as `texhash' by Thomas Esser
-# <te@dbs.uni-hannover.de>, Okt., 1994.
-# Public domain.
-
-version='$Id: mktexlsr,v 1.46 2005/06/21 14:32:26 olaf Exp $'
-progname=`echo $0 | sed 's%.*/%%'`
-usage="Usage: $progname [DIRS ...]
-
-Rebuild all necessary ls-R filename databases completely. If one or
-more arguments DIRS are given, these are used as texmf directories to
-build ls-R for. Else all directories in the search path for ls-R files
-(\$TEXMFDBS) are used."
-
-# MS-DOS and MS-Windows define $COMSPEC or $ComSpec and use `;' to separate
-# directories in path lists whereas Unix uses `:'. Make an exception for
-# Cygwin, which pretends to be UNIX.
-# Create a variable that holds the right character to be used by the scripts.
-DOSISH=no
-case `uname -s` in
- CYGWIN*|Cygwin*|cygwin*) ;;
- *) if test -n "$COMSPEC" || test -n "$ComSpec"; then DOSISH=yes; fi
-esac
-if test "$DOSISH" = "no"; then SEP=':'; else SEP=';';fi
-
-
-# Add the location of the script to the PATH if necessary. This must
-# be done before kpsewhich can be called, and thus cannot be put into
-# mktex.opt.
-dirname=`echo $0 | sed 's%/*[^/][^/]*$%%'`
-case $dirname in
- "") # Do nothing
- ;;
- /* | [A-z]:/*) # Absolute name
- PATH="$dirname$SEP$PATH"
- export PATH ;;
- *) # Relative name
- PATH="`pwd`/$dirname$SEP$PATH"
- export PATH ;;
-esac
-
-# A copy of some stuff from mktex.opt, so we can run in the presence of
-# terminally damaged ls-R files.
-if test "x$1" = x--help || test "x$1" = x-help; then
- echo "$usage"
- exit 0
-elif test "x$1" = x--version || test "x$1" = x-version; then
- echo "`basename $0` $version"
- kpsewhich --version
- exit 0
-fi
-
-# mktexupd and mktexlsr make sure they're coordinated via this. A copy
-# is found mktex.opt.
-ls_R_magic='% ls-R -- filename database for kpathsea; do not change this line.'
-# The old string, which should continue to work.
-old_ls_R_magic='% ls-R -- maintained by MakeTeXls-R; do not change this line.'
-
-trap 'cd / ; test -z "$db_dir_tmp" || rm -rf "$db_dir_tmp"; exit' 0 1 2 3 7 13 15
-
-# Get list of directories from $TEXMFDBS; eliminate duplicates.
-test $# = 0 && {
- OIFS=$IFS
- IFS='
-'
- set x `kpsewhich --show-path=ls-R | tr : '
-' | sort | uniq`; shift
- IFS=$OIFS
-}
-
-for TEXMFLS_R in "$@"; do
- # Prepend cwd if the directory was relative.
- case "$TEXMFLS_R" in
- "") continue ;; # Strictly speaking, it is an error if this case is taken.
- /* | [A-z]:/*) ;;
- *) TEXMFLS_R="`pwd`/$TEXMFLS_R"
- esac
- # Allow for ls-R and ls-r to exist. But create ls-R if we're working
- # from scratch.
- if test -f "$TEXMFLS_R/ls-R"; then
- db_file="$TEXMFLS_R/ls-R"
- elif test -f "$TEXMFLS_R/ls-r"; then
- db_file="$TEXMFLS_R/ls-r"
- else
- db_file="$TEXMFLS_R/ls-R"
- fi
- # Follow a possible symlink to get the right filesystem.
- # The '|| true' construct prevents an sh -e aborting.
- db_readlink=`kpsereadlink "$TEXMFLS_R/ls-R" 2>/dev/null` || true
- case "$db_readlink" in
- "") ;;
- /* | [A-z]:/*) db_file="$db_readlink" ;;
- *) db_file="$TEXMFLS_R/$db_readlink"
- esac
- db_dir=`echo "$db_file" | sed 's%/[^/][^/]*$%%'` # can't rely on dirname
-
- test -d "$db_dir" || continue
- test -w "$db_dir" || { echo "$progname: $db_dir: directory not writable. Skipping..." >&2; continue; }
-
- if test ! -f "$db_file"; then
- cp /dev/null "$db_file"
- # Use same permissions as parent directory, minus x,s, or t bits.
- chmod `kpsestat -xst "$db_dir"` "$db_file"
- elif test -s "$db_file" \
- && test "x`sed '1s/ $//;1q' \"$db_file\"`" != "x$ls_R_magic" \
- && test "x`sed '1s/ $//;1q' \"$db_file\"`" != "x$old_ls_R_magic"; then
- echo "$progname: $db_file lacks magic string. Skipping..." >&2
- continue
- fi
-
- # Skip if we cannot write the file:
- kpseaccess -w "$db_file" || { echo "$progname: $db_file: no write permission. Skipping..." >&2; continue; }
-
- db_dir_tmp="$db_dir/lsR$$.tmp"
- (umask 077 && mkdir "$db_dir_tmp" ) \
- || { echo "$progname: could not create directory '$db_dir_tmp'. Skipping..." >&2; continue; }
- db_file_tmp="$db_dir_tmp/lsR$$.tmp"
- rm -f "$db_file_tmp"
-
- tty -s && echo "$progname: Updating $db_file... " >&2
- echo "$ls_R_magic" >"$db_file_tmp"
-
- # The main task. We put ./: in the output, so top-level files can be
- # found via ls-R. Probably irrelevant in practice.
- # The sed command inserts the leading ./ for directory names, and
- # removes . and .. from the list. Note that using colons in directory
- # names results in nothing but grief.
- echo "./:" >>"$db_file_tmp"
- (cd "$TEXMFLS_R" && \ls -LRa 2>/dev/null) |
- sed '/^$/{n;s%^\./%%;s%^%./%;}; /^\.$/d; /^\.\.$/d; /^[\.\/]*lsR[0-9]*\.tmp:*$/d' >>"$db_file_tmp"
-
- # To be really safe, a loop.
- until PERMS=`kpsestat = "$db_file"`; do sleep 1; done
- chmod $PERMS "$db_file_tmp"
- rm -f "$db_file"
- mv "$db_file_tmp" "$db_file"
- rm -rf "$db_dir_tmp"
-done
-tty -s && echo "$progname: Done." >&2
-exit 0
diff --git a/Master/bin/alpha-linux/mktexmf b/Master/bin/alpha-linux/mktexmf
deleted file mode 100755
index 32bb85ec3d8..00000000000
--- a/Master/bin/alpha-linux/mktexmf
+++ /dev/null
@@ -1,139 +0,0 @@
-#!/bin/sh
-# original mktexmf -- make a new MF file, because one wasn't found.
-#
-# (If you change or delete the word `original' on the previous line,
-# installation won't write this script over yours.)
-#
-# te@dbs.uni-hannover.de, kb@mail.tug.org, and infovore@xs4all.nl.
-# Public domain.
-
-version='$Id: mktexmf,v 1.27 2005/01/25 17:39:21 olaf Exp $'
-progname=`echo $0 | sed 's%.*/%%'`
-usage="Usage: $progname FONT.
-
-Makes the Metafont source file for FONT, if possible. For example,
-\`ecr12' or \`cmr11'."
-
-# Common code for all scripts.
-: ${MT_TEXMFMAIN=`kpsewhich --expand-path='$TEXMFMAIN'`}
-: ${MT_MKTEX_OPT=`kpsewhich --format='web2c files' mktex.opt`}
-test -n "$MT_MKTEX_OPT" || MT_MKTEX_OPT="$MT_TEXMFMAIN/web2c/mktex.opt"
-if test ! -f "$MT_MKTEX_OPT"; then
- echo "$progname: Cannot find mktex.opt; check your installation." >&2
- exit 1
-fi
-
-. "$MT_MKTEX_OPT"
-
-(
-# See comments in mktexpk.
-name="`echo $1 | sed 's%.*/%%; s%\.mf$%%'`"
-rootname=`echo "$name" | sed 's/[0-9]*$//'`
-pointsize=`echo "$name" | sed "s/^$rootname//"`
-
-sauterroot=`kpsewhich b-$rootname.mf 2>/dev/null`
-if test -n "$sauterroot"; then
- rootfile=$sauterroot
- rootname=b-$rootname
-else
- case $rootname in
- # csso12[0-5][0-9] from CJK package; unsupported by mktexmf
- csso12[0-5][0-9])
- rootfile=;;
- cs*|lcsss*|icscsc*|icstt*|ilcsss*)
- rootfile=`kpsewhich cscode.mf`;;
- wn[bcdfirstuv]*|rx[bcdfiorstuvx][bcfhilmostx]|l[abcdhl][bcdfiorstuvx]*)
- lhprefix=`echo "$name" | sed 's/^\(..\).*/\1/'`
- rootfile=`kpsewhich ${lhprefix}codes.mf 2>/dev/null`;;
- *)
- rootfile=`kpsewhich $rootname.mf 2>/dev/null`;;
- esac
-fi
-{ test -z "$rootfile" || test ! -f "$rootfile"; } && exit 1
-
-#if test -z "$MT_MFNAME"; then
-OIFS=$IFS; IFS=$SEP
-set x `"$MT_MKTEXNAM" $name`; shift
-IFS=$OIFS
-MT_MFNAME="$3"
-#fi
-
-destdir=`echo "$MT_MFNAME" | sed 's%/[^/][^/]*$%%'`
-test -d "$destdir" || "$MT_MKTEXDIR" "$destdir" || exit 1
-cd "$destdir" || exit 1
-
-case "$pointsize" in
- "") echo "$progname: no pointsize."; exit 1;;
- 11) realsize=10.95;; # \magstephalf
- 14) realsize=14.4;; # \magstep2
- 17) realsize=17.28;; # \magstep3
- 20) realsize=20.74;; # \magstep4
- 25) realsize=24.88;; # \magstep5
- 30) realsize=29.86;; # \magstep6
- 36) realsize=35.83;; # \magstep7
- # The new convention is to have three or four letters for the
- # font name and four digits for the pointsize. The number is
- # pointsize * 100. We effectively divide by 100 by ignoring the
- # last two digits.
- ????|?????) realsize=`echo "$pointsize" | sed 's/\(..\)$/.\1/'`;;
- *) realsize="$pointsize";;
-esac
-
-mfname="$name.mf"
-if test -r "$mfname"; then
- echo "$progname: $destdir/$mfname already exists."
- echo "$destdir/$mfname" >$STDOUT
- "$MT_MKTEXUPD" "$destdir" "$mfname"
- exit 0
-fi
-
-case "$name" in
- ec*|tc*)
- cat > "mf$$.tmp" <<END
-if unknown exbase: input exbase fi;
-gensize:=$realsize;
-generate $rootname;
-END
- ;;
- dc*)
- cat > "mf$$.tmp" <<END
-if unknown dxbase: input dxbase fi;
-gensize:=$realsize;
-generate $rootname;
-END
- ;;
- cs*|lcsss*|icscsc*|icstt*|ilcsss*)
- cat > "mf$$.tmp" <<END
-input cscode
-use_driver;
-END
- ;;
- wn[bcdfirstuv]*|rx[bcdfiorstuvx][bcfhilmostx]*|l[abcdhl][bcdfiorstuvx]*)
- cat > "mf$$.tmp" <<END
-input fikparm;
-END
- ;;
- g[lmorst][bijmtwx][cilnoru]*)
- # A small superset of the names of the cbgreek fonts.
- cat > "mf$$.tmp" <<END
-% generated by mktexmf
-input cbgreek;
-END
- ;;
- *)
- cat > "mf$$.tmp" <<END
-design_size := $realsize;
-input $rootname;
-END
- ;;
-esac
-
-chmod `kpsestat -xst,go-w .` "mf$$.tmp"
-rm -f "$mfname"
-mv "mf$$.tmp" "$mfname"
-
-echo "$destdir/$mfname" >$STDOUT
-echo "$progname: $destdir/$mfname: successfully generated." >&2
-"$MT_MKTEXUPD" "$destdir" "$mfname"
-exit 0
-) 1>&2 </dev/null
diff --git a/Master/bin/alpha-linux/mktexpk b/Master/bin/alpha-linux/mktexpk
deleted file mode 100755
index d2736ea77dc..00000000000
--- a/Master/bin/alpha-linux/mktexpk
+++ /dev/null
@@ -1,264 +0,0 @@
-#!/bin/sh
-# original mktexpk -- make a new PK font, because one wasn't found.
-#
-# (If you change or delete the word `original' on the previous line,
-# installation won't write this script over yours.)
-#
-# te@dbs.uni-hannover.de, kb@mail.tug.org, and infovore@xs4all.nl.
-# Public domain.
-
-version='$Id: mktexpk,v 1.34 2005/06/21 10:49:10 olaf Exp $'
-progname=`echo $0 | sed 's%.*/%%'`
-usage="Usage: $progname [OPTIONS] NAME [REDIRECT],
- Create a PK font.
-
---dpi DPI use resolution DPI.
---bdpi BDPI use base resolution BDPI.
---mag MAG use magnificiation MAG.
---mfmode MODE use MODE as the METAFONT mode.
---destdir DESTDIR write fonts in DESTDIR.
-
-Try to create a PK file for NAME at resolution DPI, with an assumed
-device base resolution of BDPI, and a Metafont \`mag' of MAG. Use MODE
-for the METAFONT mode. Use DESTDIR for the root of where to install
-into, either the absolute directory name to use (if it starts with a
-/) or relative to the default DESTDIR (if not). REDIRECT, if supplied,
-is a string of the form '>&n', where n is the number of the file
-descriptor which is to receive, instead of stdout, the name of the
-newly created pk file."
-
-# Handle non-positional options, except for --version/--help
-while test $# -gt 0; do
- case "$1" in
- --destdir) shift; DEST="$1"; shift ;;
- --destdir=*) DEST=`echo "$1" | sed 's/--destdir=//'`; shift ;;
- --dpi) shift; DPI="$1"; shift ;;
- --dpi=*) DPI=`echo "$1" | sed 's/--dpi=//'`; shift ;;
- --bdpi) shift; BDPI="$1"; shift ;;
- --bdpi=*) BDPI=`echo "$1" | sed 's/--bdpi=//'`; shift ;;
- --mfmode) shift; test "x$1" != "x/" && MODE="$1"; shift ;;
- --mfmode=*) test "x$1" != "x--mfmode/" \
- && MODE=`echo "$1" | sed 's/--mfmode=//'`; shift ;;
- --mag) shift; MAG="$1"; shift;;
- --mag=*) MAG=`echo "$1" | sed '/s--mag=//'`; shift;;
- --version|-version) break ;;
- --help|-help) break ;;
- *) break ;;
- esac
-done
-
-if test "x$2" != x; then
- tail="`echo \"x$2\" | sed 's/^x>&//' | grep '^[0-9]*$'`"
- if test -z "$tail"; then
- echo "$progname: argument '$2' ignored - bad file number" >&2
- elif test "$tail" != 1; then
- eval 'exec 1>&$tail'
- fi
-fi
-
-mt_max_args=2
-
-# Common code for all scripts.
-: ${MT_TEXMFMAIN=`kpsewhich --expand-path='$TEXMFMAIN'`}
-: ${MT_MKTEX_OPT=`kpsewhich --format='web2c files' mktex.opt`}
-test -n "$MT_MKTEX_OPT" || MT_MKTEX_OPT="$MT_TEXMFMAIN/web2c/mktex.opt"
-if test ! -f "$MT_MKTEX_OPT"; then
- echo "$progname: Cannot find mktex.opt; check your installation." >&2
- exit 1
-fi
-
-. "$MT_MKTEX_OPT"
-
-# Where do potential driver files belong?
-case "$MT_FEATURES" in
- *nomfdrivers*)
- : ${MT_MFDESTDIR=`pwd`}
- export MT_MFDESTDIR;;
-esac
-
-# Since we want to pass the generated filename and only that filename
-# back to the caller on standard output, we do some redirections so
-# regular echo's will end up on stderr, and do an echo >$STDOUT at the end.
-# Then the contents of $STDOUT will be echoed to stdout by a trap.
-
-# start of redirection stdout -> stderr, stdin <- /dev/null
-(
-
-NAME=$1
-
-if kpsewhich $NAME.mf >/dev/null 2>&1 || mktexmf $NAME >/dev/null 2>&1; then
- # determine the progname of metafont to use; prefer mf-nowin.
- if (mf-nowin --version) >/dev/null 2>&1; then
- MF="mf-nowin -progname=mf"
- else
- MF=mf
- fi
-
- # Check that $BDPI and $MODE are consistent; if not, ignore the mode and
- # hope we can correctly guess it from bdpi. (People like to specify the
- # resolution on the command line, not the mode so much.)
- if test -n "$MODE"; then
- mf_bdpi=`$MF \
-'\mode:='$MODE';mode_setup;message"BDPI= "&decimal round pixels_per_inch;end.'\
- </dev/null \
- | awk '/DPI=/ {print $2}'`
- if test "x$mf_bdpi" != x$BDPI; then
- echo "$progname: Mismatched mode $MODE and resolution $BDPI; ignoring mode." >&2
- MODE=
- fi
- fi
-
- # If an explicit mode is not supplied, try to guess. You can get a
- # list of extant modes from ftp://ftp.tug.org/tex/modes.mf.
- if test -z "$MODE" || test "x$MODE" = xdefault; then
- case "$BDPI" in
- 85) MODE=sun;;
- 100) MODE=nextscrn;;
- 180) MODE=toshiba;;
- 300) MODE=cx;;
- 360) MODE=epstylus;;
- 400) MODE=nexthi;;
- 600) MODE=ljfour;;
- 720) MODE=epsczz;;
- 1200) MODE=ultre;;
- 1270) MODE=linoone;;
- 8000) MODE=dpdfezzz;;
- *) echo "$progname: Can't guess mode for $BDPI dpi devices." >&2
- echo "$progname: Use a config file or option to specify the mode; see:" >&2
- echo "$progname: http://tug.org/texinfohtml/kpathsea.html#Unable-to-generate-fonts" >&2
- exit 1
- esac
- fi
-
- # Run Metafont. Always use plain Metafont, since reading cmbase.mf
- # does not noticeably slow things down.
- cmd="$MF \mode:=$MODE; mag:=$MAG; nonstopmode; input $NAME"
-else
- MODE=modeless
- # ps_to_pk is set in mktex.opt
- case $ps_to_pk in
- gsftopk)
- if $ps_to_pk -t "$NAME"; then
- cmd="$ps_to_pk $NAME $DPI"
- fi;;
- ps2pk)
- # grep for the font in $PSMAPFILE. These are base font names, such as
- # rpplr (the original) or pplr0 (an interim step) or pplr8r (current).
- : ${PSMAPFILE=`kpsewhich --format=map psfonts.map ps2pk.map`}
- pattern="^$NAME"'([ ]|$)'
- psline=`egrep "$pattern" $PSMAPFILE | tail -1`
- if test -n "$psline"; then
- set x `echo "$psline" | sed 's%[<["]%%g'`
- shift; shift; shift;
- encoding=; psname=; slant=; extend=
- while test ! -z "$1"; do
- case "$1" in
- *.enc) encoding="-e $1";;
- *.pf[ab]) psname="$1";;
- *SlantFont) slant="-S $lastopt";;
- *ExtendFont) extend="-E $lastopt";;
- esac
- lastopt="$1"
- shift
- done
- # Guessing the name of the type1 font file as fallback:
- ANAME=`echo $NAME | sed 's/8r$/8a/'`
- for i in $NAME.pfa $NAME.pfb $ANAME.pfa $ANAME.pfb; do
- if kpsewhich $i >/dev/null 2>&1; then
- psname=$i
- break
- fi
- done
-
- if [ -n "$psname" ]; then
- cmd="ps2pk -v -X$DPI -R$BDPI $slant $extend $encoding $psname $NAME.${DPI}pk"
- else
- if gsftopk -t "$NAME"; then
- echo "$progname: cannot find $NAME.pfa or $NAME.pfb. Trying gsftopk." >&2
- cmd="gsftopk $NAME $DPI"
- fi
- fi
- fi;;
- esac
-
- # unsupported by $ps_to_pk, try other conversions:
- if test -z "$cmd"; then
- if (ttf2pk -t -q $NAME) >/dev/null 2>&1; then
- cmd="ttf2pk -q $NAME $DPI"
- elif (hbf2gf -t -q $NAME) >/dev/null 2>&1; then
- cmd="hbf2gf -q -p $NAME $DPI"
- else
- echo "$progname: don't know how to create bitmap font for $NAME." >&2
- exit 1
- fi
- fi
-fi
-
-OIFS=$IFS; IFS=$SEP
-set x `"$MT_MKTEXNAM" $NAME $DPI $MODE $DEST`; shift
-IFS=$OIFS
-
-PKDEST="$1"
-PKDESTDIR=`echo "$PKDEST" | sed 's%/[^/][^/]*$%%'` # can't rely on dirname
-PKNAME=`basename "$PKDEST"`
-GFNAME=$NAME.${DPI}gf
-
-if test -r "$PKDESTDIR/$PKNAME"; then
- echo "$progname: $PKDESTDIR/$PKNAME already exists." >&2
- echo "$PKDESTDIR/$PKNAME" >$STDOUT
- "$MT_MKTEXUPD" "$PKDESTDIR" $PKNAME
- exit 0
-fi
-
-"$MT_MKTEXDIR" "$PKDESTDIR"
-if test ! -d "$PKDESTDIR"; then
- echo "$progname: mktexdir $PKDESTDIR failed." >&2
- exit 1
-fi
-
-echo "$progname: Running $cmd"
-$cmd </dev/null || {
- # Don't abort if only "Strange path", "bad pos" or "angle(0,0)"
- # errors occurr.
- grep '^!' $NAME.log | sort >$$.errs 2>/dev/null
- grep '^! Strange path' $$.errs >$$.strange 2>/dev/null
- grep '^! bad pos.' $$.errs >$$.badpos 2>/dev/null
- grep '^! angle(0,0) is taken as zero.' $$.errs >$$.angle 2>/dev/null
- cat $$.badpos $$.strange $$.angle | sort > $$.errs_accept
- if cmp $$.errs $$.errs_accept >/dev/null 2>&1; then
- test -s $$.strange >/dev/null 2>&1 \
- && echo "$progname: warning: \`$cmd' caused strange path errors." >&2
- test -s $$.badpos >/dev/null 2>&1 \
- && echo "$progname: warning: \`$cmd' caused bad pos errors." >&2
- test -s $$.angle >/dev/null 2>&1 \
- && echo "$progname: warning: \`$cmd' caused angle(0,0) errors." >&2
- else
- echo "$progname: \`$cmd' failed." >&2
- test -s $NAME.log && mv -f $NAME.log "$KPSE_DOT"
- exit 1;
- fi
-}
-
-test -r $GFNAME && { gftopk ./$GFNAME $PKNAME || exit 1; }
-test ! -f $PKNAME && test -f $NAME.${DPI}pk && mv $NAME.${DPI}pk $PKNAME
-if test ! -s $PKNAME; then
- echo "$progname: \`$cmd' failed to make $PKNAME." >&2
- exit 1
-fi
-
-# Install the PK file carefully, since others may be working simultaneously.
-# Use cp when mv fails, since DOS will fail mv for deeply-nested directories.
-mv $PKNAME "$PKDESTDIR/pk$$.tmp" 2>/dev/null \
- || cp $PKNAME "$PKDESTDIR/pk$$.tmp" || exit 1
-cd $PKDESTDIR || exit 1
-chmod `kpsestat -xst,go-w .` pk$$.tmp
-test -r $PKNAME || mv pk$$.tmp $PKNAME || exit 1
-
-# Update ls-R if necessary.
-"$MT_MKTEXUPD" "$PKDESTDIR" $PKNAME
-
-# If this line (or an equivalent) is not present, dvipsk/xdvik/dviljk
-# will think mktexpk failed. Any other output to stdout will also lose.
-echo "$PKDESTDIR/$PKNAME" >$STDOUT
-echo "$progname: $PKDESTDIR/$PKNAME: successfully generated." >&2
-) 1>&2 </dev/null
diff --git a/Master/bin/alpha-linux/mktextfm b/Master/bin/alpha-linux/mktextfm
deleted file mode 100755
index a423d0309b0..00000000000
--- a/Master/bin/alpha-linux/mktextfm
+++ /dev/null
@@ -1,152 +0,0 @@
-#!/bin/sh
-# original mktextfm -- make a new TFM file, because one wasn't found.
-#
-# (If you change or delete the word `original' on the previous line,
-# installation won't write this script over yours.)
-#
-# te@dbs.uni-hannover.de, kb@mail.tug.org, and infovore@xs4all.nl.
-# Public domain.
-
-version='$Id: mktextfm,v 1.27 2004/07/03 19:25:15 olaf Exp $'
-progname=`echo $0 | sed 's%.*/%%'`
-usage="Usage: $progname [--destdir DESTDIR] FONT.
-
-Makes a TFM file for FONT, if possible. Use DESTDIR for the root of where
-to install into, either the absolute directory name to use (if it starts
-with a /) or relative to the default DESTDIR (if not)."
-
-# Handle non-positional options, except for --version/--help
-while test $# -gt 0; do
- case "$1" in
- --destdir) shift; DEST="$1"; shift ;;
- --destdir=*) DEST=`echo "$1" | sed 's/--destdir=//'`; shift ;;
- --version|-version) break ;;
- --help|-help) break ;;
- *) break ;;
- esac
-done
-
-# Common code for all scripts.
-: ${MT_TEXMFMAIN=`kpsewhich --expand-path='$TEXMFMAIN'`}
-: ${MT_MKTEX_OPT=`kpsewhich --format='web2c files' mktex.opt`}
-test -n "$MT_MKTEX_OPT" || MT_MKTEX_OPT="$MT_TEXMFMAIN/web2c/mktex.opt"
-if test ! -f "$MT_MKTEX_OPT"; then
- echo "$progname: Cannot find mktex.opt; check your installation." >&2
- exit 1
-fi
-
-. "$MT_MKTEX_OPT"
-
-# Where do potential mf driver files go?
-case "$MT_FEATURES" in
- *nomfdrivers*)
- : ${MT_MFDESTDIR=`pwd`}
- export MT_MFDESTDIR;;
-esac
-
-# start of redirection stdout -> stderr, stdin <- /dev/null
-(
-
-NAME=`basename "$1" .tfm`
-MAG=1
-#DEST="$2"
-DPI=$BDPI
-
-OIFS=$IFS; IFS=$SEP
-set x `"$MT_MKTEXNAM" $NAME $DPI $MODE $DEST`; shift
-IFS=$OIFS
-
-PKDEST="$1"
-TFMDEST="$2"
-PKDESTDIR=`echo "$PKDEST" | sed 's%/[^/][^/]*$%%'` # can't rely on dirname
-TFMDESTDIR=`echo "$TFMDEST" | sed 's%/[^/][^/]*$%%'`
-PKNAME=`basename "$PKDEST"`
-TFMNAME=$NAME.tfm
-GFNAME=$NAME.$DPI'gf'
-
-if test -r "$TFMDESTDIR/$TFMNAME"; then
- echo "$progname: $TFMDESTDIR/$TFMNAME already exists." >&2
- echo "$TFMDESTDIR/$TFMNAME" >$STDOUT
- "$MT_MKTEXUPD" "$TFMDESTDIR" $TFMNAME
- exit
-fi
-
-# Try to create the destdir first. Do not create fonts, if this fails.
-"$MT_MKTEXDIR" "$TFMDESTDIR"
-if test ! -d "$TFMDESTDIR"; then
- echo "$progname: mktexdir $TFMDESTDIR failed."
- exit 1
-fi
-
-# Check if this font is supported by hbf2gf else use metafont.
-if (hbf2gf -q -t $NAME) >/dev/null 2>&1; then
- cmd="hbf2gf -g $NAME $DPI"
-else
- # determine the progname of metafont to use; prefer mf-nowin.
- if (mf-nowin --version) >/dev/null 2>&1; then
- MF="mf-nowin -progname=mf"
- else
- MF=mf
- fi
-
- cmd="$MF \mode:=$MODE; mag:=$MAG; nonstopmode; input $NAME"
-fi
-
-echo "$progname: Running $cmd"
-$cmd </dev/null || {
- # Don't abort if only "Strange path", "bad pos" or "angle(0,0)"
- # errors occurr.
- grep '^!' $NAME.log | sort >$$.errs 2>/dev/null
- grep '^! Strange path' $$.errs >$$.strange 2>/dev/null
- grep '^! bad pos.' $$.errs >$$.badpos 2>/dev/null
- grep '^! angle(0,0) is taken as zero.' $$.errs >$$.angle 2>/dev/null
- cat $$.badpos $$.strange $$.angle | sort > $$.errs_accept
- if cmp $$.errs $$.errs_accept >/dev/null 2>&1; then
- test -s $$.strange >/dev/null 2>&1 \
- && echo "$progname: warning: \`$cmd' caused strange path errors." >&2
- test -s $$.badpos >/dev/null 2>&1 \
- && echo "$progname: warning: \`$cmd' caused bad pos errors." >&2
- test -s $$.angle >/dev/null 2>&1 \
- && echo "$progname: warning: \`$cmd' caused angle(0,0) errors." >&2
- else
- echo "$progname: \`$cmd' failed." >&2
- test -s $NAME.log && mv -f $NAME.log "$KPSE_DOT"
- exit 1;
- fi
-}
-
-# hbf2gf just produces a .pl file:
-test -r ./$NAME.pl && pltotf ./$NAME.pl $TFMNAME
-test -r $TFMNAME || { echo "$progname: \`$cmd' failed to make $TFMNAME."; exit 1; }
-
-# Install the TFM file carefully, since others may be working simultaneously.
-# Use cp when mv fails, since DOS will fail mv for deeply-nested directories.
-mv $TFMNAME "$TFMDESTDIR/tfm$$.tmp" 2>/dev/null \
- || cp $TFMNAME "$TFMDESTDIR/tfm$$.tmp" || exit 1
-cd "$TFMDESTDIR" || exit 1
-chmod `kpsestat -xst,go-w .` tfm$$.tmp
-test -r $TFMNAME || mv tfm$$.tmp $TFMNAME || exit 1
-
-# OK, success with the TFM.
-"$MT_MKTEXUPD" "$TFMDESTDIR" $TFMNAME
-echo "$TFMDESTDIR/$TFMNAME" >$STDOUT
-echo "$progname: $TFMDESTDIR/$TFMNAME: successfully generated." >&2
-
-# Since we probably made a GF(->PK) file, too, may as well install it if
-# it's needed.
-cd $TEMPDIR
-if test -r $GFNAME && test ! -f "$PKDESTDIR/$PKNAME"; then
- gftopk ./$GFNAME $PKNAME || exit 1
- "$MT_MKTEXDIR" "$PKDESTDIR"
- mv $PKNAME "$PKDESTDIR/pk$$.tmp" 2>/dev/null \
- || cp $PKNAME "$PKDESTDIR/pk$$.tmp" || exit 1
- cd "$PKDESTDIR" || exit 1
- if test -f $PKNAME; then
- rm -f pk$$.tmp
- else
- chmod `kpsestat -xst,go-w .` pk$$.tmp
- mv pk$$.tmp $PKNAME
- "$MT_MKTEXUPD" "$PKDESTDIR" $PKNAME
- fi
-fi
-) 1>&2 </dev/null
diff --git a/Master/bin/alpha-linux/mllatex b/Master/bin/alpha-linux/mllatex
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/mllatex
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/mltex b/Master/bin/alpha-linux/mltex
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/mltex
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/mmafm b/Master/bin/alpha-linux/mmafm
deleted file mode 100755
index d3d2c87f406..00000000000
--- a/Master/bin/alpha-linux/mmafm
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/mmpfb b/Master/bin/alpha-linux/mmpfb
deleted file mode 100755
index 5d7e0874c5a..00000000000
--- a/Master/bin/alpha-linux/mmpfb
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/mpost b/Master/bin/alpha-linux/mpost
deleted file mode 100755
index 8f2d08b1f11..00000000000
--- a/Master/bin/alpha-linux/mpost
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/mpto b/Master/bin/alpha-linux/mpto
deleted file mode 100755
index 7ce100e4202..00000000000
--- a/Master/bin/alpha-linux/mpto
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/mptopdf b/Master/bin/alpha-linux/mptopdf
deleted file mode 120000
index afced152700..00000000000
--- a/Master/bin/alpha-linux/mptopdf
+++ /dev/null
@@ -1 +0,0 @@
-texexec \ No newline at end of file
diff --git a/Master/bin/alpha-linux/musixflx b/Master/bin/alpha-linux/musixflx
deleted file mode 100755
index 5c9def898ea..00000000000
--- a/Master/bin/alpha-linux/musixflx
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/newer b/Master/bin/alpha-linux/newer
deleted file mode 100755
index 37724e9a77b..00000000000
--- a/Master/bin/alpha-linux/newer
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/odvicopy b/Master/bin/alpha-linux/odvicopy
deleted file mode 100755
index 66abf019bb7..00000000000
--- a/Master/bin/alpha-linux/odvicopy
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/odvips b/Master/bin/alpha-linux/odvips
deleted file mode 120000
index 2e853c89507..00000000000
--- a/Master/bin/alpha-linux/odvips
+++ /dev/null
@@ -1 +0,0 @@
-dvips \ No newline at end of file
diff --git a/Master/bin/alpha-linux/odvitype b/Master/bin/alpha-linux/odvitype
deleted file mode 100755
index b90f00bfd1d..00000000000
--- a/Master/bin/alpha-linux/odvitype
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/ofm2opl b/Master/bin/alpha-linux/ofm2opl
deleted file mode 120000
index b1299fc008c..00000000000
--- a/Master/bin/alpha-linux/ofm2opl
+++ /dev/null
@@ -1 +0,0 @@
-omfonts \ No newline at end of file
diff --git a/Master/bin/alpha-linux/omega b/Master/bin/alpha-linux/omega
deleted file mode 100755
index 03e651b40c1..00000000000
--- a/Master/bin/alpha-linux/omega
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/omfonts b/Master/bin/alpha-linux/omfonts
deleted file mode 100755
index b7817b51081..00000000000
--- a/Master/bin/alpha-linux/omfonts
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/opl2ofm b/Master/bin/alpha-linux/opl2ofm
deleted file mode 120000
index b1299fc008c..00000000000
--- a/Master/bin/alpha-linux/opl2ofm
+++ /dev/null
@@ -1 +0,0 @@
-omfonts \ No newline at end of file
diff --git a/Master/bin/alpha-linux/otangle b/Master/bin/alpha-linux/otangle
deleted file mode 100755
index 09ae84d5254..00000000000
--- a/Master/bin/alpha-linux/otangle
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/otfinfo b/Master/bin/alpha-linux/otfinfo
deleted file mode 100755
index 2c3cbbc58a2..00000000000
--- a/Master/bin/alpha-linux/otfinfo
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/otftotfm b/Master/bin/alpha-linux/otftotfm
deleted file mode 100755
index 99425aee2a3..00000000000
--- a/Master/bin/alpha-linux/otftotfm
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/otp2ocp b/Master/bin/alpha-linux/otp2ocp
deleted file mode 100755
index 6fee1be42c2..00000000000
--- a/Master/bin/alpha-linux/otp2ocp
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/outocp b/Master/bin/alpha-linux/outocp
deleted file mode 100755
index 73797c8eae7..00000000000
--- a/Master/bin/alpha-linux/outocp
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/ovf2ovp b/Master/bin/alpha-linux/ovf2ovp
deleted file mode 120000
index b1299fc008c..00000000000
--- a/Master/bin/alpha-linux/ovf2ovp
+++ /dev/null
@@ -1 +0,0 @@
-omfonts \ No newline at end of file
diff --git a/Master/bin/alpha-linux/ovp2ovf b/Master/bin/alpha-linux/ovp2ovf
deleted file mode 120000
index b1299fc008c..00000000000
--- a/Master/bin/alpha-linux/ovp2ovf
+++ /dev/null
@@ -1 +0,0 @@
-omfonts \ No newline at end of file
diff --git a/Master/bin/alpha-linux/oxdvi b/Master/bin/alpha-linux/oxdvi
deleted file mode 120000
index cf7065c02ca..00000000000
--- a/Master/bin/alpha-linux/oxdvi
+++ /dev/null
@@ -1 +0,0 @@
-xdvi \ No newline at end of file
diff --git a/Master/bin/alpha-linux/patgen b/Master/bin/alpha-linux/patgen
deleted file mode 100755
index ae5dd0559f6..00000000000
--- a/Master/bin/alpha-linux/patgen
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/pdfclose b/Master/bin/alpha-linux/pdfclose
deleted file mode 100755
index 66ba5b3a449..00000000000
--- a/Master/bin/alpha-linux/pdfclose
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/pdfcrop b/Master/bin/alpha-linux/pdfcrop
deleted file mode 120000
index afced152700..00000000000
--- a/Master/bin/alpha-linux/pdfcrop
+++ /dev/null
@@ -1 +0,0 @@
-texexec \ No newline at end of file
diff --git a/Master/bin/alpha-linux/pdfcslatex b/Master/bin/alpha-linux/pdfcslatex
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/pdfcslatex
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/pdfcsplain b/Master/bin/alpha-linux/pdfcsplain
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/pdfcsplain
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/pdfetex b/Master/bin/alpha-linux/pdfetex
deleted file mode 100755
index 1d25b673a03..00000000000
--- a/Master/bin/alpha-linux/pdfetex
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/pdfjadetex b/Master/bin/alpha-linux/pdfjadetex
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/pdfjadetex
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/pdflatex b/Master/bin/alpha-linux/pdflatex
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/pdflatex
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/pdfmex b/Master/bin/alpha-linux/pdfmex
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/pdfmex
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/pdfopen b/Master/bin/alpha-linux/pdfopen
deleted file mode 100755
index 2cccb916209..00000000000
--- a/Master/bin/alpha-linux/pdfopen
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/pdfplatex b/Master/bin/alpha-linux/pdfplatex
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/pdfplatex
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/pdftex b/Master/bin/alpha-linux/pdftex
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/pdftex
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/pdfthumb b/Master/bin/alpha-linux/pdfthumb
deleted file mode 100755
index 98fcf307468..00000000000
--- a/Master/bin/alpha-linux/pdfthumb
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/bin/sh
-#
-# pdfthumb shell script file last update: 13 Sep 2002
-#
-# minimal usage:
-# pdfthumb input.pdf output.pdf
-#
-# Note: input.pdf and output.pdf must be different.
-# GhostScript (gs) must me available to create the images.
-# Unfortunately it fails on some input files for unknown reasons.
-#
-# It is assumed that you have at least Java 1.2.x installed
-# and can call it with the command java. Otherwise specify the
-# path for your Java runtime system.
-#
-# Modify this script such that jarfile contains the full path
-# of the pp4p.jar file.
-#
-#jarfile=/common/Java/lib/ppower4/pp4p.jar
-#
-# If you use a web2c distribution, you can place pp4p.jar
-# e.g. into the directory texmf/java/ppower4, run mktexlsr,
-# comment the assignment above and uncomment the assignment below.
-# Thanks to Reinhard Kotucha for contributing this suggestion.
-#
-jarfile=`kpsewhich -progname=java -format='other binary files' pp4p.jar`
-#
-#
-java -cp ${jarfile} de.tu_darmstadt.sp.pdftools.ThumbGen "$@"
diff --git a/Master/bin/alpha-linux/pdfxmltex b/Master/bin/alpha-linux/pdfxmltex
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/pdfxmltex
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/perltex b/Master/bin/alpha-linux/perltex
deleted file mode 100755
index 09a656dae3f..00000000000
--- a/Master/bin/alpha-linux/perltex
+++ /dev/null
@@ -1,375 +0,0 @@
-#! /usr/bin/env perl
-
-###########################################################
-# Prepare a LaTeX run for two-way communication with Perl #
-# By Scott Pakin <scott+pt@pakin.org> #
-###########################################################
-
-#-------------------------------------------------------------------
-# This is file `perltex.pl',
-# generated with the docstrip utility.
-#
-# The original source files were:
-#
-# perltex.dtx (with options: `perltex')
-#
-# This is a generated file.
-#
-# Copyright (C) 2004 by Scott Pakin <scott+pt@pakin.org>
-#
-# This file may be distributed and/or modified under the conditions
-# of the LaTeX Project Public License, either version 1.2 of this
-# license or (at your option) any later version. The latest
-# version of this license is in:
-#
-# http://www.latex-project.org/lppl.txt
-#
-# and version 1.2 or later is part of all distributions of LaTeX
-# version 1999/12/01 or later.
-#-------------------------------------------------------------------
-
-use Safe;
-use Opcode;
-use Getopt::Long;
-use Pod::Usage;
-use File::Basename;
-use POSIX;
-use warnings;
-use strict;
-my $latexprog;
-my $runsafely = 1;
-my @permittedops;
-my $progname = basename $0;
-my $jobname = "texput";
-my @latexcmdline;
-my $toperl;
-my $fromperl;
-my $toflag;
-my $fromflag;
-my $doneflag;
-my $logfile;
-my $sandbox = new Safe;
-my $latexpid;
-$latexprog = $ENV{"PERLTEX"} || "latex";
-Getopt::Long::Configure("require_order", "pass_through");
-GetOptions("help" => sub {pod2usage(-verbose => 1)},
- "latex=s" => \$latexprog,
- "safe!" => \$runsafely,
- "permit=s" => \@permittedops) || pod2usage(2);
-@latexcmdline = @ARGV;
-my $firstcmd = 0;
-for ($firstcmd=0; $firstcmd<=$#latexcmdline; $firstcmd++) {
- my $option = $latexcmdline[$firstcmd];
- next if substr($option, 0, 1) eq "-";
- if (substr ($option, 0, 1) ne "\\") {
- $jobname = basename $option, ".tex" ;
- $latexcmdline[$firstcmd] = "\\input $option";
- }
- last;
-}
-push @latexcmdline, "" if $#latexcmdline==-1;
-my $separator = "";
-foreach (1 .. 20) {
- $separator .= chr(ord("A") + rand(26));
-}
-$toperl = $jobname . ".topl";
-$fromperl = $jobname . ".frpl";
-$toflag = $jobname . ".tfpl";
-$fromflag = $jobname . ".ffpl";
-$doneflag = $jobname . ".dfpl";
-$logfile = $jobname . ".lgpl";
-$latexcmdline[$firstcmd] =
- sprintf '\makeatletter' . '\def%s{%s}' x 6 . '\makeatother%s',
- '\plmac@tag', $separator,
- '\plmac@tofile', $toperl,
- '\plmac@fromfile', $fromperl,
- '\plmac@toflag', $toflag,
- '\plmac@fromflag', $fromflag,
- '\plmac@doneflag', $doneflag,
- $latexcmdline[$firstcmd];
-foreach my $file ($toperl, $fromperl, $toflag, $fromflag, $doneflag) {
- unlink $file while -e $file;
-}
-open (LOGFILE, ">$logfile") || die "open(\"$logfile\"): $!\n";
-defined ($latexpid = fork) || die "fork: $!\n";
-unshift @latexcmdline, $latexprog;
-if (!$latexpid) {
- exec {$latexcmdline[0]} @latexcmdline;
- die "exec('@latexcmdline'): $!\n";
-}
-@permittedops=(":browse") if $#permittedops==-1;
-@permittedops=(Opcode::full_opset()) if !$runsafely;
-$sandbox->permit_only (@permittedops);
-while (1) {
- my $awaitexists = sub {
- while (!-e $_[0]) {
- sleep 0;
- if (waitpid($latexpid, &WNOHANG)==-1) {
- foreach my $file ($toperl, $fromperl, $toflag,
- $fromflag, $doneflag) {
- unlink $file while -e $file;
- }
- undef $latexpid;
- exit 0;
- }
- }
- };
- $awaitexists->($toflag);
- my $entirefile;
- {
- local $/ = undef;
- open (TOPERL, "<$toperl") || die "open($toperl): $!\n";
- $entirefile = <TOPERL>;
- close TOPERL;
- }
- my ($optag, $macroname, @otherstuff) =
- map {chomp; $_} split "$separator\n", $entirefile;
- $macroname =~ s/^[^A-Za-z]+//;
- $macroname =~ s/\W/_/g;
- $macroname = "latex_" . $macroname;
- if ($optag eq "USE") {
- foreach (@otherstuff) {
- s/\\/\\\\/g;
- s/\'/\\\'/g;
- $_ = "'$_'";
- }
- }
- my $perlcode;
- if ($optag eq "DEF") {
- $perlcode =
- sprintf "sub %s {%s}\n",
- $macroname, $otherstuff[0];
- }
- else {
- $perlcode = sprintf "%s (%s);\n", $macroname, join(", ", @otherstuff);
- }
- print LOGFILE "#" x 31, " PERL CODE ", "#" x 32, "\n";
- print LOGFILE $perlcode, "\n";
- undef $_;
- my $result;
- {
- my $warningmsg;
- local $SIG{__WARN__} =
- sub {chomp ($warningmsg=$_[0]); return 0};
- $result = $sandbox->reval ($perlcode);
- if (defined $warningmsg) {
- $warningmsg =~ s/at \(eval \d+\) line \d+\W+//;
- print LOGFILE "# ===> $warningmsg\n\n";
- }
- }
- $result="" if !$result;
- if ($@) {
- my $msg = $@;
- $msg =~ s/at \(eval \d+\) line \d+\W+//;
- $msg =~ s/\s+/ /;
- $result = "\\PackageError{perltex}{$msg}";
- my @helpstring;
- if ($msg =~ /\btrapped by\b/) {
- @helpstring =
- ("The preceding error message comes from Perl. Apparently,",
- "the Perl code you tried to execute attempted to perform an",
- "`unsafe' operation. If you trust the Perl code (e.g., if",
- "you wrote it) then you can invoke perltex with the --nosafe",
- "option to allow arbitrary Perl code to execute.",
- "Alternatively, you can selectively enable Perl features",
- "using perltex's --permit option. Don't do this if you don't",
- "trust the Perl code, however; malicious Perl code can do a",
- "world of harm to your computer system.");
- }
- else {
- @helpstring =
- ("The preceding error message comes from Perl. Apparently,",
- "there's a bug in your Perl code. You'll need to sort that",
- "out in your document and re-run perltex.");
- }
- my $helpstring = join ("\\MessageBreak\n", @helpstring);
- $helpstring =~ s/\. /.\\space\\space /g;
- $result .= "{$helpstring}";
- }
- print LOGFILE "%" x 30, " LATEX RESULT ", "%" x 30, "\n";
- print LOGFILE $result, "\n\n";
- $result .= '\endinput';
- open (FROMPERL, ">$fromperl") || die "open($fromperl): $!\n";
- syswrite FROMPERL, $result;
- close FROMPERL;
- unlink $toflag while -e $toflag;
- unlink $toperl while -e $toperl;
- unlink $doneflag while -e $doneflag;
- open (FROMFLAG, ">$fromflag") || die "open($fromflag): $!\n";
- close FROMFLAG;
- $awaitexists->($toperl);
- unlink $fromflag while -e $fromflag;
- open (DONEFLAG, ">$doneflag") || die "open($doneflag): $!\n";
- close DONEFLAG;
-}
-END {
- close LOGFILE;
- if (defined $latexpid) {
- kill (9, $latexpid);
- exit 1;
- }
- exit 0;
-}
-
-__END__
-
-=head1 NAME
-
-perltex - enable LaTeX macros to be defined in terms of Perl code
-
-=head1 SYNOPSIS
-
-perltex
-[B<--help>]
-[B<--latex>=I<program>]
-[B<-->[B<no>]B<safe>]
-[B<--permit>=I<feature>]
-[I<latex options>]
-
-=head1 DESCRIPTION
-
-LaTeX -- through the underlying TeX typesetting system -- produces
-beautifully typeset documents but has a macro language that is
-difficult to program. In particular, support for complex string
-manipulation is largely lacking. Perl is a popular general-purpose
-programming language whose forte is string manipulation. However, it
-has no typesetting capabilities whatsoever.
-
-Clearly, Perl's programmability could complement LaTeX's typesetting
-strengths. B<perltex> is the tool that enables a symbiosis between
-the two systems. All a user needs to do is compile a LaTeX document
-using B<perltex> instead of B<latex>. (B<perltex> is actually a
-wrapper for B<latex>, so no B<latex> functionality is lost.) If the
-document includes a C<\usepackage{perltex}> in its preamble, then
-C<\perlnewcommand> and C<\perlrenewcommand> macros will be made
-available. These behave just like LaTeX's C<\newcommand> and
-C<\renewcommand> except that the macro body contains Perl code instead
-of LaTeX code.
-
-=head1 OPTIONS
-
-B<perltex> accepts the following command-line options:
-
-=over 4
-
-=item B<--help>
-
-Display basic usage information.
-
-=item B<--latex>=I<program>
-
-Specify a program to use instead of B<latex>. For example,
-C<--latex=pdflatex> would typeset the given document using
-B<pdflatex> instead of ordinary B<latex>.
-
-=item B<-->[B<no>]B<safe>
-
-Enable or disable sandboxing. With the default of C<--safe>,
-B<perltex> executes the code from a C<\perlnewcommand> or
-C<\perlrenewcommand> macro within a protected environment that
-prohibits ``unsafe'' operations such as accessing files or executing
-external programs. Specifying C<--nosafe> gives the LaTeX document
-I<carte blanche> to execute any arbitrary Perl code, including that
-which can harm the user's files. See L<Safe> for more information.
-
-=item B<--permit>=I<feature>
-
-Permit particular Perl operations to be performed. The C<--permit>
-option, which can be specified more than once on the command line,
-enables finer-grained control over the B<perltex> sandbox. See
-L<Opcode> for more information.
-
-=back
-
-These options are then followed by whatever options are normally
-passed to B<latex> (or whatever program was specified with
-C<--latex>), including, for instance, the name of the F<.tex> file to
-compile.
-
-=head1 EXAMPLES
-
-In its simplest form, B<perltex> is run just like B<latex>:
-
- perltex myfile.tex
-
-To use B<pdflatex> instead of regular B<latex>, use the C<--latex>
-option:
-
- perltex --latex=pdflatex myfile.tex
-
-If LaTeX gives a ``C<trapped by operation mask>'' error and you trust
-the F<.tex> file you're trying to compile not to execute malicious
-Perl code (e.g., because you wrote it yourself), you can disable
-B<perltex>'s safety mechansisms with C<--nosafe>:
-
- perltex --nosafe myfile.tex
-
-The following command gives documents only B<perltex>'s default
-permissions (C<:browse>) plus the ability to open files and invoke the
-C<time> command:
-
- perltex --permit=:browse --permit=:filesys_open
- --permit=time myfile.tex
-
-=head1 ENVIRONMENT
-
-B<perltex> honors the following environment variables:
-
-=over 4
-
-=item PERLTEX
-
-Specify the filename of the LaTeX compiler. The LaTeX compiler
-defaults to ``C<latex>''. The C<PERLTEX> environment variable
-overrides this default, and the C<--latex> command-line option (see
-L</OPTIONS>) overrides that.
-
-=back
-
-=head1 FILES
-
-While compiling F<jobname.tex>, B<perltex> makes use of the following
-files:
-
-=over 4
-
-=item F<jobname.lgpl>
-
-log file written by Perl; helpful for debugging Perl macros
-
-=item F<jobname.topl>
-
-information sent from LaTeX to Perl
-
-=item F<jobname.frpl>
-
-information sent from Perl to LaTeX
-
-=item F<jobname.tfpl>
-
-``flag'' file whose existence indicates that F<jobname.topl> contains
-valid data
-
-=item F<jobname.ffpl>
-
-``flag'' file whose existence indicates that F<jobname.frpl> contains
-valid data
-
-=item F<jobname.dfpl>
-
-``flag'' file whose existence indicates that F<jobname.ffpl> has been
-deleted
-
-=back
-
-=head1 NOTES
-
-B<perltex>'s sandbox defaults to what L<Opcode> calls ``C<:browse>''.
-
-=head1 SEE ALSO
-
-latex(1), pdflatex(1), perl(1), Safe(3pm), Opcode(3pm)
-
-=head1 AUTHOR
-
-Scott Pakin, I<scott+pt@pakin.org>
diff --git a/Master/bin/alpha-linux/pfb2pfa b/Master/bin/alpha-linux/pfb2pfa
deleted file mode 100755
index c558fcfe217..00000000000
--- a/Master/bin/alpha-linux/pfb2pfa
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/physe b/Master/bin/alpha-linux/physe
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/physe
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/phyzzx b/Master/bin/alpha-linux/phyzzx
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/phyzzx
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/pk2bm b/Master/bin/alpha-linux/pk2bm
deleted file mode 100755
index 8b366a81ac8..00000000000
--- a/Master/bin/alpha-linux/pk2bm
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/pkfix b/Master/bin/alpha-linux/pkfix
deleted file mode 100755
index 1429889b9ec..00000000000
--- a/Master/bin/alpha-linux/pkfix
+++ /dev/null
@@ -1,860 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q'
- if 0;
-use strict;
-$^W=1; # turn warning on
-#
-# pkfix.pl
-#
-# Copyright (C) 2001, 2005 Heiko Oberdiek.
-#
-# This work may be distributed and/or modified under the
-# conditions of the LaTeX Project Public License, either version 1.3
-# of this license or (at your option) any later version.
-# The latest version of this license is in
-# http://www.latex-project.org/lppl.txt
-# and version 1.3 or later is part of all distributions of LaTeX
-# version 2003/12/01 or later.
-# This work has the LPPL maintenance status "maintained".
-# This Current Maintainer of this work is Heiko Oberdiek.
-#
-# See file "README" for a list of files that belongs to this project.
-#
-# This file "pkfix.pl" may be renamed to "pkfix"
-# for installation purposes.
-#
-my $file = "pkfix.pl";
-my $program = uc($&) if $file =~ /^\w+/;
-my $project = lc($program);
-my $version = "1.3";
-my $date = "2005/02/25";
-my $author = "Heiko Oberdiek";
-my $copyright = "Copyright (c) 2001, 2005 by $author.";
-#
-# Reqirements: Perl5, dvips
-# History:
-# 2001/04/12 v0.1:
-# * First try.
-# 2001/04/13 v0.2:
-# * TeX/dvips is called for each font for the case of errors.
-# * First release.
-# 2001/04/15 v0.3:
-# * Call of kpsewhich with option --progname.
-# * Extracting of texps.pro from temporary PostScript file,
-# if kpsewhich failed.
-# * Option -G0 for dvips run added.
-# 2001/04/16 v0.4:
-# * Support for merging PostScript fonts added.
-# * \special{!...}/@fedspecial detection added.
-# * Bug fix: I detection.
-# 2001/04/17 v0.5:
-# * Redirection of stderr (dvips run) if possible.
-# 2001/04/20 v0.6:
-# * Bug fix: dvips font names can contain numbers.
-# 2001/04/21 v0.7:
-# * Bug fix: long dvi file name in ps file.
-# 2001/04/23 v0.8:
-# * Bug fix: post string parsing.
-# 2001/04/26 v0.9:
-# * Check of version number of dvips in PostScript file.
-# 2001/06/30 v1.0:
-# * Problem with DOS line endings fixed.
-# 2005/01/28 v1.1:
-# * Bug fix: encoding files are now included also.
-# * The intermediate DVI files are written directly.
-# * LPPL 1.3
-# 2005/01/29 v1.2:
-# * Merging is now based on type 1 names. This solves
-# the problem, if different bitmap fonts maps to the
-# same type 1 font, eg. (ecrm1000, larm1000) -> SFRM1000.
-# * Suppression of PK generation, if environment variable
-# MKTEXPK is supported.
-# * If output file is "-" (standard output) then messages of
-# pkfix are written to standard error output.
-# 2005/02/25 v1.3:
-# * Bug fix: Detection of "@fedspecial end" improved.
-# * Bug fix: Typo corrected (PRT -> $PRT).
-#
-
-### program identification
-my $title = "$program $version, $date - $copyright\n";
-
-### error strings
-my $Error = "!!! Error:"; # error prefix
-my $Warning = "!!! Warning:"; # warning prefix
-
-### variables
-my $envvar = uc($project);
-my $infile = "";
-my $outfile = "";
-my $texpsfile = "texps.pro";
-my $prefix = "_${project}_$$";
-# my $prefix = "_${project}_";
-my $tempfile = "$prefix";
-my $texfile = "$tempfile.tex";
-my $dvifile = "$tempfile.dvi";
-my $logfile = "$tempfile.log";
-my $psfile = "$tempfile.ps";
-my $missfile = "missfont.log";
-my @cleanlist = ($dvifile, $psfile);
-push(@cleanlist, $missfile) unless -f $missfile;
-
-my $err_redirect = " 2>&1";
-$err_redirect = "" if $^O =~ /dos/i ||
- $^O =~ /os2/i ||
- $^O =~ /mswin32/i ||
- $^O =~ /cygwin/i;
-
-my $x_resolution = 0;
-my $y_resolution = 0;
-my $blocks_found = 0;
-my $fonts_converted = 0;
-my $fonts_merged = 0;
-my $fonts_misses = 0;
-my $PRT = \*STDOUT;
-
-### option variables
-my @bool = ("false", "true");
-$::opt_tex = "tex";
-$::opt_dvips = "dvips";
-$::opt_kpsewhich = "kpsewhich --progname $project";
-$::opt_options = "-Ppdf -G0";
-$::opt_usetex = 0;
-$::opt_help = 0;
-$::opt_quiet = 0;
-$::opt_debug = 0;
-$::opt_verbose = 0;
-$::opt_clean = 1;
-
-my $usage = <<"END_OF_USAGE";
-${title}Syntax: \L$program\E [options] <inputfile.ps> <outputfile.ps>
-Function: This program tries to replace pk fonts in <inputfile.ps>
- by the type 1 versions. The result is written in <outputfile.ps>.
-Options: (defaults:)
- --help print usage
- --(no)quiet suppress messages ($bool[$::opt_quiet])
- --(no)verbose verbose printing ($bool[$::opt_verbose])
- --(no)debug debug informations ($bool[$::opt_debug])
- --(no)clean clear temp files ($bool[$::opt_clean])
- --(no)usetex use TeX for generating the DVI file ($bool[$::opt_usetex])
- --tex texcmd tex command name (plain format) ($::opt_tex)
- --dvips dvipscmd dvips command name ($::opt_dvips)
- --options opt dvips options ($::opt_options)
-END_OF_USAGE
-
-### environment variable PKFIX
-if ($ENV{$envvar}) {
- unshift(@ARGV, split(/\s+/, $ENV{$envvar}));
-}
-
-### process options
-my @OrgArgv = @ARGV;
-use Getopt::Long;
-GetOptions(
- "help!",
- "quiet!",
- "debug!",
- "verbose!",
- "clean!",
- "usetex!",
- "tex=s",
- "dvips=s",
- "options=s"
-) or die $usage;
-!$::opt_help or die $usage;
-@ARGV < 3 or die "$usage$Error Too many files!\n";
-@ARGV == 2 or die "$usage$Error Missing file names!\n";
-
-$::opt_quiet = 0 if $::opt_verbose;
-$::opt_clean = 0 if $::opt_debug;
-
-push(@cleanlist, $texfile, $logfile) if $::opt_usetex;
-
-### get file names
-$infile = $ARGV[0];
-$outfile = $ARGV[1];
-
-### suppress PK generation
-$ENV{'MKTEXPK'} = "0";
-
-$PRT = \*STDERR if $outfile eq "-";
-
-print $PRT $title unless $::opt_quiet;
-
-print $PRT "*** input file: `$infile'\n" if $::opt_verbose;
-print $PRT "*** output file: `$outfile'\n" if $::opt_verbose;
-
-if ($::opt_debug) {
- print $PRT <<"END_DEB";
-*** OSNAME: $^O
-*** PERL_VERSION: $]
-*** ARGV: @OrgArgv
-END_DEB
-}
-
-### get texps.pro
-my $texps_data = 0;
-my $texps_string = get_texps_pro();
-
-### Encoding definitions
-my %encoding_files = ();
-my $encoding_string = "";
-
-### open input and output files
-open(IN, $infile) or die "$Error Cannot open `$infile'!\n";
-open(OUT, ">$outfile") or die "$Error Cannot write `$outfile'!\n";
-
-##################################
-# expected format:
-# ...
-# %%DVIPSParameters:... dpi=([\dx]+)...
-# ...
-# TeXDict begin \d+ \d+ \d+ \d+ \d+ \(\S+\)
-# @start ...
-# ...
-# %DVIPSBitmapFont: (\S+) (\S+) ([\d\.]+) (\d+)
-# /(\S+) ...
-# ...
-# %EndDVIPSBitmapFont
-# ...
-# ... end
-# %%EndProlog
-#
-# or if \special{!...} was used, the lines with TeXDict:
-# TeXdict begin @defspecial
-#
-# ...
-#
-# @fedspecial end TeXDict begin
-# \d+ \d+ \d+ \d+ \d+ \(\S+\) @start
-#
-# or
-# @fedspecial end
-# ...
-#
-# bitmap font:
-# start:
-# %%DVIPSBitmapFont: {dvips font} {font name} {at x pt} {chars}
-# /{dvips font} {chars} {max. char number + 1} df
-# character, variant a:
-# <{hex code}>{char number} D
-# character, variant b:\
-# [<{hex code}>{num1} {num2} {num3} {num4} {num5} {char number} D
-# end:
-# E
-# %%EndDVIPSBitmapFont
-#
-# type 1 font:
-# before TeXDict line:
-# %%BeginFont: CMR10
-# ...
-# %%EndFont
-# after @start:
-# /Fa ... /CMR10 rf
-#
-# Font names: /[F-Z][a-zA-Z0-9]
-#
-# Encoding files before texps.pro:
-# %%BeginProcSet: {file name}.enc 0 0
-# ...
-# %%EndProcSet
-###################################
-
-my $x_comment_resolution = 0;
-my $y_comment_resolution = 0;
-my $start_string = "";
-my $post_string = "";
-my $dvips_resolution = "";
-my $texps_found = 0;
-my @font_list = ();
-my %font_txt = ();
-my %font_count = ();
-my %font_entry = ();
-
-sub init {
- $x_comment_resolution = 0;
- $y_comment_resolution = 0;
- $x_resolution = 0;
- $y_resolution = 0;
- $start_string = "";
- $texps_found = 0;
- @font_list = ();
- %font_txt = ();
- %font_count = ();
- %font_entry = ();
-}
-
-init();
-
-while (<IN>) {
-
- if (/^%%Creator: (dvips\S*) (\S+)\s/) {
- print $PRT "*** %%Creator: $1 $2\n" if $::opt_debug;
- my $foundversion = $2;
- if ($foundversion =~ /(\d+\.\d+)/) {
- $foundversion = $1;
- # 5.62 is ok, 5.58 does not produce font comments
- if ($foundversion <= 5.58) {
- print $PRT "$Warning dvips version $1 does not generate " .
- "the required font comments!\n";
- }
- }
- }
-
- if (/^%%BeginProcSet:\s*(.+)\.enc/) {
- $encoding_files{$1} = "";
- }
-
- if (/^%DVIPSParameters:.*dpi=([\dx]+)/) {
- print OUT;
- my $str = $1;
- $x_comment_resolution = 0;
- $y_comment_resolution = 0;
- if ($str =~ /^(\d+)x(\d+)$/) {
- $x_comment_resolution = $1;
- $y_comment_resolution = $2;
- }
- if ($str =~ /^(\d+)$/) {
- $x_comment_resolution = $1;
- $y_comment_resolution = $1;
- }
- print $PRT "*** %DVIPSParameters: dpi=$str " .
- "(x=$x_comment_resolution, y=$y_comment_resolution)\n"
- if $::opt_debug;
- $x_comment_resolution > 0 && $y_comment_resolution > 0 or
- die "$Error Wrong resolution value " .
- "($x_comment_resolution x $y_comment_resolution)!\n";
- next;
- }
-
- if (/^%%BeginProcSet: texps.pro/) {
- $texps_found = 1;
- print $PRT "*** texps.pro found\n" if $::opt_debug;
- }
-
- if (/^TeXDict begin \@defspecial/) {
- my $saved = $_;
- print $PRT "*** \@defspecial found.\n" if $::opt_debug;
- $start_string = $_;
- while (<IN>) {
- $start_string .= $_;
- if (/^\@fedspecial end/) {
- s/^\@fedspecial end\s*(\S)/$1/;
- last;
- }
- }
- }
- elsif (/^TeXDict begin \d+ \d+ \d+ \d+ \d+/) {
- print $PRT "*** TeXDict begin <5 nums> found.\n" if $::opt_debug;
- $start_string = $_;
- }
- if ($start_string ne "") {
- # look for @start
- unless (/\@start/) {
- while (<IN>) {
- $start_string .= $_;
- last if /\@start/;
- }
- }
-
- # divide post part
- $start_string =~ /^([\s\S]*\@start)\s*([\s\S]*)$/ or
- die "$Error Parse error (\@start)!\n";
- $start_string = "$1\n";
- $post_string = $2;
- $post_string =~ s/\s*$//;
- $post_string .= "\n" unless $post_string eq "";
-
- $start_string =~
- /\d+\s+\d+\s+\d+\s+(\d+)\s+(\d+)\s+\((.*)\)\s+\@start/ or
- die "$Error Parse error (\@start parameters)!\n";
-
- $blocks_found++;
- print $PRT "*** dvi file: $3\n" if $::opt_debug;
-
- # get and check resolution values
- $x_resolution = $1;
- $y_resolution = $2;
- print $PRT "*** resolution: $x_resolution x $y_resolution\n"
- if $::opt_debug;
- $x_comment_resolution > 0 or
- die "$Error Missing comment `%DVIPSParameters'!\n";
- $x_resolution == $x_comment_resolution &&
- $y_resolution == $y_comment_resolution or
- die "$Error Resolution values in comment and PostScript " .
- "does not match!\n";
- # setting dvips resolution option(s)
- if ($x_resolution == $y_resolution) {
- $dvips_resolution = "-D $x_resolution";
- }
- else {
- $dvips_resolution = "-X $x_resolution -Y $y_resolution";
- }
-
- while (<IN>) {
- if (/^%%EndProlog/) {
- print OUT $encoding_string;
- $texps_data > 0 or die "$Error File `texps.pro' not found!\n";
- print OUT $texps_string unless $texps_found;
- foreach (@font_list) {
- my $fontname = $_;
- print $PRT "*** Adding font `$fontname'\n"
- if $::opt_debug;
- my ($dummy1, $dummy2, $err);
- if ($font_count{$fontname} > 1) {
- $fonts_merged++;
- print $PRT "*** Merging font `$fontname' ($font_count{$fontname}).\n"
- unless $::opt_quiet;
- ($dummy1, $font_txt{$fontname}, $dummy2, $err) =
- get_font($font_entry{$fontname});
- $err == 0 or die "$Error Cannot merge font `$fontname'!\n";
- }
- print OUT $font_txt{$fontname};
- }
- print OUT $start_string,
- $post_string,
- $_;
- print $PRT "*** %%EndProlog\n" if $::opt_debug;
- init();
- last;
- }
-
- if (/^%DVIPSBitmapFont: (\S+) (\S+) ([\d.]+) (\d+)/) {
- my $bitmap_string = $_;
- my $dvips_fontname = $1;
- my $fontname = $2;
- my $entry = "\\Font\{$1\}\{$2\}\{$3\}\{";
- print $PRT "*** Font $1: $2 at $3pt, $4 chars\n" if $::opt_verbose;
- my $line = "";
- my $num = -1;
- my $chars = $4;
- my $count = 0;
- while (<IN>) {
- $bitmap_string .= $_;
- last if /^%EndDVIPSBitmapFont/;
- s/\r$//; # remove \r of possible DOS line ending
- chomp;
- $line .= " " . $_;
- }
- $line =~ s/<[0-9A-F ]*>/ /g;
-
- print $PRT "*** <Font> $line\n" if $::opt_debug;
-
- while ($line =~ /\s(\d+)\s+D(.*)/) {
- $num = $1;
- $count++;
- $entry .= "$num,";
- $line = $2;
- while ($line =~ /^[\s\d\[]*I(.*)/) {
- $num++;
- $count++;
- $entry .= "$num,";
- $line = $1;
- }
- }
- $chars == $count or
- die "$Error Parse error, $count chars of $chars found " .
- "($fontname)!\n";
-
- $entry =~ s/,$//;
- $entry .= "\}";
-
- print $PRT "*** Font conversion of `$fontname' started.\n"
- if $::opt_verbose;
- my ($newfontname, $font_part, $start_part, $err) = get_font($entry);
- if ($err == 0) {
- print $PRT "*** Font conversion: `$fontname' -> `$newfontname'.\n"
- unless $::opt_quiet;
- if (defined($font_count{$newfontname})) {
- $font_count{$newfontname}++;
- $font_entry{$newfontname} .= "\n$entry";
- }
- else {
- push @font_list, $newfontname;
- $font_txt{$newfontname} = $font_part;
- $font_count{$newfontname} = 1;
- $font_entry{$newfontname} = $entry;
- }
- $start_part =~ s/\/Fa/\/$dvips_fontname/;
- $start_string .= $start_part;
- $fonts_converted++;
- }
- else {
- print $PRT "!!! Failed font conversion of `$fontname'!\n";
- $start_string .= $bitmap_string;
- $fonts_misses++;
- }
-
- next;
- }
-
- $post_string .= $_;
- }
- next;
- }
-
- print OUT;
-}
-
-close(IN);
-close(OUT);
-
-if ($::opt_clean) {
- print $PRT "*** clear temp files\n" if $::opt_verbose;
- foreach (@cleanlist) {
- unlink;
- }
-}
-
-if (!$::opt_quiet) {
- if ($blocks_found > 1) {
- print $PRT "==> $blocks_found blocks.\n";
- }
- if ($fonts_misses) {
- print $PRT "==> $fonts_misses font conversion",
- (($fonts_misses > 1) ? "s" : ""),
- " failed.\n";
- }
- if ($fonts_converted) {
- print $PRT "==> ",
- (($fonts_converted > 0) ? $fonts_converted : "No"),
- " converted font",
- (($fonts_converted > 1) ? "s" : ""),
- ".\n";
- if ($fonts_merged) {
- print $PRT "==> $fonts_merged merged font",
- (($fonts_merged > 1) ? "s" : ""),
- ".\n";
- }
- }
- else {
- print $PRT "==> no fonts converted\n";
- }
-}
-
-
-# get type 1 font
-# param: $entry: font entry as TeX string
-# return: $name: type 1 font name
-# $font: font file as string
-# $start: font definition after @start
-# $err: error indication
-sub get_font {
- my $entry = shift;
- my $name = "";
- my $font = "";
- my $start = "";
- my $err = 0;
- my @err = ("", "", "", 1);
- local *OUT;
- local *IN;
-
- if ($::opt_usetex) {
- ### write temp tex file
- open(OUT, ">$texfile") or die "$Error Cannot write `$texfile'!\n";
- print OUT <<'TEX_HEADER';
-\nonstopmode
-\nopagenumbers
-\def\Font#1#2#3#4{%
- \expandafter\font\csname font@#1\endcsname=#2 at #3pt\relax
- \csname font@#1\endcsname
- \hbox to 0pt{%
- \ScanChar#4,\NIL
- \hss
- }%
-}
-\def\ScanChar#1,#2\NIL{%
- \char#1\relax
- \ifx\\#2\\%
- \else
- \ReturnAfterFi{%
- \ScanChar#2\NIL
- }%
- \fi
-}
-\long\def\ReturnAfterFi#1\fi{\fi#1}
-\noindent
-TEX_HEADER
-
- print OUT "$entry\n\\bye\n";
- close(OUT);
-
- ### run tex
- {
- print $PRT "*** run TeX\n" if $::opt_verbose;
-
- my $cmd = "$::opt_tex $tempfile";
- print $PRT ">>> $cmd\n" if $::opt_verbose;
- my @capture = `$cmd`;
- if (!defined(@capture)) {
- print $PRT "$Warning Cannot execute TeX!\n";
- return @err;
- }
- if ($::opt_verbose) {
- print $PRT @capture;
- }
- else {
- foreach (@capture) {
- print $PRT if /^!\s/;
- }
- }
- if ($?) {
- my $exitvalue = $?;
- if ($exitvalue > 255) {
- $exitvalue >>= 8;
- print $PRT "$Warning Closing TeX (exit status: $exitvalue)!\n";
- return @err;
- }
- print $PRT "$Warning Closing TeX ($exitvalue)!\n";
- return @err;
- }
- }
- }
- else {
- # write dvi directly
-
- # DVI format description: dvitype.web
- my $DVI_pre = 247;
- my $DVI_id_byte = 2;
- my $DVI_num = 25400000;
- my $DVI_den = 473628672; # 7227 * 2^16
- my $DVI_mag = 1000;
- my @t = localtime(time);
- my $DVI_comment = "$program $version output "
- . sprintf("%04d/%02d/%02d %02d:%02d:%02d",
- ($t[5] + 1900), ($t[4] + 1), $t[3], $t[2], $t[1], $t[0]);
- my $DVI_comment_len = length($DVI_comment);
- my $DVI_bop = 139;
- my $DVI_eop = 140;
- my $DVI_fontdef1 = 243;
- my $DVI_fontdef2 = 244;
- my $DVI_fontdef4 = 246;
- my $DVI_design_size = 10; # an arbitrary value
- # A wrong value will trigger a dvips warning
- # (it can be seen in verbose mode):
- # dvips: Design size mismatch in [...].tfm
- # But other consequences could not be noticed.
- # Thus a TFM lookup will be saved.
- my $DVI_checksum = 0; # because of unknown checksum
- my $DVI_fnt_num_0 = 171;
- my $DVI_fnt1 = 235;
- my $DVI_fnt2 = 236;
- my $DVI_fnt4 = 238;
- my $DVI_set1 = 128;
- my $DVI_push = 141;
- my $DVI_pop = 142;
- my $DVI_post = 248;
- my $DVI_u = 67108864; # 1024 pt, an arbitrary value
- my $DVI_l = 67108864; # 1024 pt, an arbitrary value
- my $DVI_post_post = 249;
- my $DVI_trailing = 223;
-
- open(OUT, ">$dvifile") or die "$Error Cannot write `$dvifile'!\n";
- binmode(OUT);
-
- # Preamble (pre)
- print OUT pack("C2N3Ca$DVI_comment_len",
- $DVI_pre, $DVI_id_byte, $DVI_num, $DVI_den, $DVI_mag,
- $DVI_comment_len, $DVI_comment);
- # Begin of page (bop)
- my $pos_bop = tell(OUT);
- print OUT pack("CN1x[N9]l", $DVI_bop, 1, -1);
-
- my $font_defs = "";
- my $font_num = 0;
- foreach(split("\n", $entry)) {
- my $font_def = "";
- /\\Font\{[^}]*\}\{([^}]*)\}\{([^}]*)\}\{([^}]*)\}/ or
- die "!!! Error: Internal parsing error!\n";
- my $font_name = $1;
- my $font_name_len = length($font_name);
- my $font_size = $2;
- my $font_chars = $3;
-
- # define font
- if ($font_num < 256) {
- $font_def = pack("CC", $DVI_fontdef1, $font_num);
- }
- # The other cases are very unlikely, especially there are
- # more than one font in the merging case only.
- elsif ($font_num < 65536) {
- $font_def = pack("Cn", $DVI_fontdef2, $font_num);
- }
- else {
- $font_def = pack("CN", $DVI_fontdef4, $font_num);
- }
- $font_def .= pack("x[N]N2xCa$font_name_len",
- ($font_size * 65536), $DVI_design_size,
- $font_name_len, $font_name);
- print OUT $font_def;
- $font_defs .= $font_def;
-
- # use font
- my $fnt_num;
- if ($font_num < 64) {
- $fnt_num = pack("C", $DVI_fnt_num_0 + $font_num);
- }
- # Other cases are unlikely, see above.
- elsif ($font_num < 256) {
- $fnt_num = pack("CC", $DVI_fnt1, $font_num);
- }
- elsif ($font_num < 65536) {
- $fnt_num = pack("Cn", $DVI_fnt2, $font_num);
- }
- else {
- $fnt_num = pack("CN", $DVI_fnt4, $font_num);
- }
- print OUT $fnt_num;
-
- # print characters
- print OUT pack("C", $DVI_push);
- foreach (split(",", $font_chars)) {
- if ($_ < 128) {
- print OUT pack("C", $_);
- }
- else {
- print OUT pack("CC", $DVI_set1, $_);
- }
- }
- print OUT pack("C", $DVI_pop);
-
- $font_num++;
- }
-
- print OUT pack("C", $DVI_eop);
-
- # Begin of postamble (post)
- my $pos_post = tell(OUT);
- print OUT pack("CN6n2",
- $DVI_post, $pos_bop, $DVI_num, $DVI_den, $DVI_mag,
- $DVI_l, $DVI_u, 1, 1);
- print OUT $font_defs;
- # End of postamble (post_post)
- print OUT pack("CNC5",
- $DVI_post_post, $pos_post, $DVI_id_byte,
- $DVI_trailing, $DVI_trailing, $DVI_trailing, $DVI_trailing);
- my $t_num = (4 - (tell(OUT) % 4)) % 4;
- print OUT pack("C", $DVI_trailing) x $t_num;
- close(OUT);
- }
-
- ### run dvips
- {
- print $PRT "*** run dvips\n" if $::opt_verbose;
-
- my $cmd = "$::opt_dvips $::opt_options $dvips_resolution $tempfile";
- print $PRT ">>> $cmd\n" if $::opt_verbose;
- # dvips writes on stderr :-(
- my @capture = `$cmd$err_redirect`;
- if ($::opt_verbose) {
- print $PRT @capture;
- }
- if ($?) {
- my $exitvalue = $?;
- if ($exitvalue > 255) {
- $exitvalue >>= 8;
- print $PRT "$Warning Closing dvips (exit status: $exitvalue)!\n";
- return @err;
- }
- print $PRT "$Warning Closing dvips ($exitvalue)!\n";
- return @err;
- }
- }
-
- ### get font and start part
- open(IN, $psfile) or die "$Error Cannot open `$psfile'!\n";
-
- while (<IN>) {
- ### get possible encoding files
- if (/^%%BeginProcSet:\s*(.+)\.enc/) {
- my $encoding_file = $1;
- print $PRT "*** encoding file `$encoding_file.enc' found.\n"
- if $::opt_debug;
- next if defined($encoding_files{$encoding_file});
- $encoding_files{$encoding_file} = "";
- $encoding_string .= $_;
- while (<IN>) {
- $encoding_string .= $_;
- last if /^%%EndProcSet/;
- }
- next;
- }
-
- ### get texps.pro if get_texps_pro() has failed
- if ($texps_data == 0 && /^%%BeginProcSet: texps.pro/) {
- $texps_string = $_;
- while (<IN>) {
- $texps_string .= $_;
- last if /^%%EndProcSet/;
- }
- $texps_data = 1;
- print $PRT "*** texps.pro extracted.\n" if $::opt_debug;
- next;
- }
-
- if (/^%%BeginFont:\s*(\S+)/) {
- $name = $1;
- $font .= $_;
- while (<IN>) {
- $font .= $_;
- last if /^%%EndFont/;
- }
- next;
- }
- if (/^\@start/) {
- s/^\@start\s*//;
- $start .= $_;
- while (<IN>) {
- last if /^%%EndProlog/;
- $start .= $_;
- }
- if (($start =~ s/\s*end\s*$/\n/) != 1) {
- $err = 1;
- print $PRT "$Warning Parse error, `end' not found!\n";
- }
- print $PRT "*** start: $start" if $::opt_debug;
- last;
- }
- }
- close(IN);
-
- if ($font eq "") {
- print $PRT "$Warning `%%BeginFont' not found!\n";
- return @err;
- }
- return ($name, $font, $start, $err);
-}
-
-
-# get_texps_pro
-# return: string with content of texps.pro
-sub get_texps_pro {
- $texps_data = 0;
- # get file name
- my $backupWarn = $^W;
- $^W = 0;
- my $file = `$::opt_kpsewhich $texpsfile`;
- $^W = $backupWarn;
- if (!defined($file) or $file eq "") {
- print $PRT "$Warning: Cannot find `$texpsfile' with kpsewhich!\n"
- if $::opt_debug;
- return "";
- }
- chomp $file;
- print $PRT "*** texps.pro: $file\n" if $::opt_debug;
-
- # read file
- local *IN;
- open(IN, $file) or die "$Error: Cannot open `$file'!\n";
- my @lines = <IN>;
- @lines > 0 or die "$Error: Empty file `$file'!\n";
- chomp $lines[@lines-1];
- my $str = "%%BeginProcSet: texps.pro\n";
- $"="";
- $str .= "@lines\n";
- $"=" ";
- $str .= "%%EndProcSet\n";
- $texps_data = 1;
- return $str;
-}
-
-__END__
diff --git a/Master/bin/alpha-linux/pktogf b/Master/bin/alpha-linux/pktogf
deleted file mode 100755
index 75d7387cf27..00000000000
--- a/Master/bin/alpha-linux/pktogf
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/pktype b/Master/bin/alpha-linux/pktype
deleted file mode 100755
index 9f0bc4121f3..00000000000
--- a/Master/bin/alpha-linux/pktype
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/platex b/Master/bin/alpha-linux/platex
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/platex
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/pltotf b/Master/bin/alpha-linux/pltotf
deleted file mode 100755
index 1d88338ca47..00000000000
--- a/Master/bin/alpha-linux/pltotf
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/pooltype b/Master/bin/alpha-linux/pooltype
deleted file mode 100755
index 2a8c7713ab8..00000000000
--- a/Master/bin/alpha-linux/pooltype
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/ppower4 b/Master/bin/alpha-linux/ppower4
deleted file mode 100755
index 77b9f61337f..00000000000
--- a/Master/bin/alpha-linux/ppower4
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/bin/sh
-#
-# PPower4 shell script file last update: 30oct05 (tl2005)
-#
-# minimal usage:
-# ppower4 input.pdf output.pdf
-#
-# Note: input.pdf and output.pdf must be different.
-#
-# It is assumed that you have at least Java 1.2.x installed
-# and can call it with the command java. Otherwise specify the
-# path for your Java runtime system.
-#
-# Modify this script such that jarfile contains the full path
-# of the pp4p.jar file.
-#
-# jarfile=/common/Java/lib/ppower4/pp4p.jar
-#
-# If you use a web2c distribution, you can place pp4p.jar
-# e.g. into the directory texmf/java/ppower4, run mktexlsr,
-# comment the assignment above and uncomment the assignment below.
-# Thanks to Reinhard Kotucha for contributing this suggestion.
-#
-jarfile=`kpsewhich -format=texmfscripts pp4p.jar`
-#
-#
-java -jar ${jarfile} "$@"
diff --git a/Master/bin/alpha-linux/ps2frag b/Master/bin/alpha-linux/ps2frag
deleted file mode 100755
index b8e673be087..00000000000
--- a/Master/bin/alpha-linux/ps2frag
+++ /dev/null
@@ -1,11 +0,0 @@
-#!/bin/sh
-
-tty -s && {
- echo
- echo "Warning: the ps2frag script is not needed with this version of psfrag."
- echo "Please read the manpage ps2frag(1) and the documentation of the"
- echo "psfrag package."
- echo
-} >&2
-
-exit 0
diff --git a/Master/bin/alpha-linux/ps2pk b/Master/bin/alpha-linux/ps2pk
deleted file mode 100755
index c15174e0d5e..00000000000
--- a/Master/bin/alpha-linux/ps2pk
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/ps4pdf b/Master/bin/alpha-linux/ps4pdf
deleted file mode 100755
index 81f254a3735..00000000000
--- a/Master/bin/alpha-linux/ps4pdf
+++ /dev/null
@@ -1,104 +0,0 @@
-#!/bin/sh
-
-# Copyright (C) 2004, Thomas Esser. Public domain.
-
-# First, work around bugs/limitations in some shells on some systems:
-test -f /bin/sh5 && test -z "$RUNNING_SH5" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_SH5=true; export RUNNING_SH5; exec /bin/sh5 $0 ${1+"$@"}; }
-unset RUNNING_SH5
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-# hack around a bug in zsh:
-test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"'
-
-###############################################################################
-# cleanup()
-# clean up the temp area and exit with proper exit status
-###############################################################################
-cleanup()
-{
- rc=$1
- $needsCleanup && test -n "$tmpdir" && test -d "$tmpdir" \
- && { rm -f "$tmpdir"/*; cd /; rmdir "$tmpdir"; }
-
- # set exit code in a portable way; see the autoconf manual for details:
- (exit $rc); exit $rc
-}
-
-###############################################################################
-# setupTmpDir()
-# set up a temp directory and a trap to remove it
-###############################################################################
-setupTmpDir()
-{
- $needsCleanup && return
-
- trap 'cleanup 1' 1 2 3 7 13 15
- needsCleanup=true
- (umask 077; mkdir "$tmpdir") \
- || abort "could not create directory \`$tmpdir'"
-}
-###############################################################################
-# myexec(args)
-# execute the command given as "args"; abort on error; redirect messages to
-# log in "silent" mode; redirect stdin (</dev/null) in silent mode
-###############################################################################
-myexec()
-{
- if $silent; then
- echo "$0: running $@"
- "$@" >$log 2>&1 </dev/null
- rc=$?
- else
- "$@"
- rc=$?
- fi
- if test $rc != 0; then
- echo "$0: command $@ returned with code $rc"
- cat <$log
- cleanup $rc
- fi
-}
-
-# some initializations
-progname=pdflatexps
-silent=true # default setting; change if you like
-needsCleanup=false
-tmpdir=${TMPDIR-${TEMP-${TMP-/tmp}}}/.$progname$$
-log=$tmpdir/log
-version="1.0"
-
-# look for optional things first
-while
- case $1 in
- --help|-h) echo "$0 [-v|-q] file"
- echo "Process LaTeX document containing PSforPDF macros."
- exit 0;;
- --version) echo "$progname version $version"; exit 0;;
- -q) silent=true;;
- -v) silent=false;;
- -*) echo "$progname: unknown option $1 ignored";;
- *) break;;
- esac
-do
- shift
-done
-# remaining option: filename
-file=$1
-
-# jobname von TeX: Verzeichnisse entfernen, evtl. vorhandene Extension
-# entfernen.
-job=`echo "x$1" | sed 's@x@@; s@.*/@@; s@\.[^.]*$@@'`
-
-setupTmpDir
-myexec latex "$file"
-myexec dvips -Ppdf -o "$job-pics.ps" "$job.dvi"
-myexec ps2pdf -dAutoRotatePages=/None "$job-pics.ps" "$job-pics.pdf"
-myexec pdflatex "$file"
-
-cleanup 0
diff --git a/Master/bin/alpha-linux/psbook b/Master/bin/alpha-linux/psbook
deleted file mode 100755
index 299e5714490..00000000000
--- a/Master/bin/alpha-linux/psbook
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/pslatex b/Master/bin/alpha-linux/pslatex
deleted file mode 100755
index 4badef0ec12..00000000000
--- a/Master/bin/alpha-linux/pslatex
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/bin/sh
-
-# Copyright 1994 David Carlisle
-# This file may be redistributed and/or modified under the terms of the
-# LaTeX Project Public License distributed from CTAN archives in directory
-# macros/latex/base/lppl.txt; either version 1 of the License, or (at
-# your option) any later version.
-
-test -f /bin/sh5 && test -z "$RUNNING_SH5" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_SH5=true; export RUNNING_SH5; exec /bin/sh5 $0 ${1+"$@"}; }
-unset RUNNING_SH5
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-# hack around a bug in zsh:
-test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"'
-
-# we want to be able to use options to latex:
-while :; do
- case $1 in
- -*)
- latexoptions="$latexoptions \"$1\""
- shift;;
- *)
- break;;
- esac
-done
-
-echo
-echo "*************************************"
-echo "* Using LaTeX, with pslatex package *"
-echo "*************************************"
-echo
-
-# messing around with \PSLATEXTMP is for AUCTeX which calls
-# documents via latex \nonstopmode \input{file}
-
-latex $latexoptions \
- "\AtBeginDocument{\RequirePackage{pslatex}}"\
- "\def\PSLATEXTMP{\futurelet\PSLATEXTMP\PSLATEXTMPB}"\
- "\def\PSLATEXTMPB{\ifx\PSLATEXTMP\nonstopmode\else\input\fi}"\
- "\PSLATEXTMP" ${1+"$@"}
diff --git a/Master/bin/alpha-linux/psmerge b/Master/bin/alpha-linux/psmerge
deleted file mode 100755
index 9500bcdf7e6..00000000000
--- a/Master/bin/alpha-linux/psmerge
+++ /dev/null
@@ -1,85 +0,0 @@
-#!/usr/bin/env perl
-# psmerge: merge PostScript files produced by same application and setup
-# usage: psmerge [-oout.ps] [-thorough] file1.ps file2.ps ...
-#
-# Copyright (C) Angus J. C. Duggan 1991-1995
-# See file LICENSE for details.
-
-$prog = ($0 =~ s=.*/==);
-
-while ($ARGV[0] =~ /^-/) {
- $_ = shift;
- if (/^-o(.+)/) {
- if (!close(STDOUT) || !open(STDOUT, ">$1")) {
- print STDERR "$prog: can't open $1 for output\n";
- exit 1;
- }
- } elsif (/^-t(horough)?$/) {
- $thorough = 1;
- } else {
- print STDERR "Usage: $prog [-oout] [-thorough] file...\n";
- exit 1;
- }
-}
-
-$page = 0;
-$first = 1;
-$nesting = 0;
-
-@header = ();
-$header = 1;
-
-@trailer = ();
-$trailer = 0;
-
-@pages = ();
-@body = ();
-
-@resources = ();
-$inresource = 0;
-
-while (<>) {
- if (/^%%BeginFont:/ || /^%%BeginResource:/ || /^%%BeginProcSet:/) {
- $inresource = 1;
- push(@resources, $_);
- } elsif ($inresource) {
- push(@resources, $_);
- $inresource = 0 if /^%%EndFont/ || /^%%EndResource/ || /^%%EndProcSet/;
- } elsif (/^%%Page:/ && $nesting == 0) {
- $header = $trailer = 0;
- push(@pages, join("", @body)) if @body;
- $page++;
- @body = ("%%Page: ($page) $page\n");
- } elsif (/^%%Trailer/ && $nesting == 0) {
- push(@trailer, $_);
- push(@pages, join("", @body)) if @body;
- @body = ();
- $trailer = 1;
- $header = 0;
- } elsif ($header) {
- push(@trailer, $_);
- push(@pages, join("", @body)) if @body;
- @body = ();
- $trailer = 1;
- $header = 0;
- } elsif ($trailer) {
- if (/^%!/ || /%%EOF/) {
- $trailer = $first = 0;
- } elsif ($first) {
- push(@trailer, $_);
- }
- } elsif (/^%%BeginDocument/ || /^%%BeginBinary/ || /^%%BeginFile/) {
- push(@body, $_);
- $nesting++;
- } elsif (/^%%EndDocument/ || /^%%EndBinary/ || /^%%EndFile/) {
- push(@body, $_);
- $nesting--;
- } else {
- print $_ if $print;
- }
-}
-
-print @trailer;
-
-exit 0;
-
diff --git a/Master/bin/alpha-linux/psnup b/Master/bin/alpha-linux/psnup
deleted file mode 100755
index 0eb32bd06a2..00000000000
--- a/Master/bin/alpha-linux/psnup
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/psresize b/Master/bin/alpha-linux/psresize
deleted file mode 100755
index b3520be4d15..00000000000
--- a/Master/bin/alpha-linux/psresize
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/psselect b/Master/bin/alpha-linux/psselect
deleted file mode 100755
index 9dcfd228b76..00000000000
--- a/Master/bin/alpha-linux/psselect
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/pstops b/Master/bin/alpha-linux/pstops
deleted file mode 100755
index accb7bff045..00000000000
--- a/Master/bin/alpha-linux/pstops
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/rubibtex b/Master/bin/alpha-linux/rubibtex
deleted file mode 100755
index 373e6e1194d..00000000000
--- a/Master/bin/alpha-linux/rubibtex
+++ /dev/null
@@ -1,110 +0,0 @@
-#!/bin/sh
-
-# rubibtex, based on the original version contained in the t2 bundle.
-# Thomas Esser, Public Domain.
-
-progname=rubibtex
-tmpdir=${TMPDIR-${TEMP-${TMP-/tmp}}}/$progname.$$
-job=$1
-backup="$tmpdir/orig.aux"
-
-case $job in
- "")
- echo "usage: $progname file" >&2
- exit 1
-esac
-
-if test ! -f "$job.aux"; then
- echo "$progname: file \`$job.aux' does not exist." >&2
- exit 1
-fi
-
-trap '
- rm -rf "$tmpdir"
- exit 1
-' 1 2 3 7 13 15
-(umask 077; mkdir "$tmpdir") \
- || { echo "$progname: could not create directory \`$tmpdir'" >&2; exit 1; }
-
-cat <"$job.aux" >"$backup" || {
- echo "$progname: could not create backup of file \`$job.aux' as \`$backup'." >&2
- rm -rf "$tmpdir"
- exit 1
-}
-
-sed '
- /^\\citation/ {
- s/\\IeC {\\CYRA }/á/g
- s/\\IeC {\\CYRB }/â/g
- s/\\IeC {\\CYRV }/÷/g
- s/\\IeC {\\CYRG }/ç/g
- s/\\IeC {\\CYRD }/ä/g
- s/\\IeC {\\CYRE }/å/g
- s/\\IeC {\\CYRYO }/³/g
- s/\\IeC {\\CYRZH }/ö/g
- s/\\IeC {\\CYRZ }/ú/g
- s/\\IeC {\\CYRI }/é/g
- s/\\IeC {\\CYRISHRT }/ê/g
- s/\\IeC {\\CYRK }/ë/g
- s/\\IeC {\\CYRL }/ì/g
- s/\\IeC {\\CYRM }/í/g
- s/\\IeC {\\CYRN }/î/g
- s/\\IeC {\\CYRO }/ï/g
- s/\\IeC {\\CYRP }/ð/g
- s/\\IeC {\\CYRR }/ò/g
- s/\\IeC {\\CYRS }/ó/g
- s/\\IeC {\\CYRT }/ô/g
- s/\\IeC {\\CYRU }/õ/g
- s/\\IeC {\\CYRF }/æ/g
- s/\\IeC {\\CYRH }/è/g
- s/\\IeC {\\CYRC }/ã/g
- s/\\IeC {\\CYRCH }/þ/g
- s/\\IeC {\\CYRSH }/û/g
- s/\\IeC {\\CYRSHCH }/ý/g
- s/\\IeC {\\CYRHRDSN }/ÿ/g
- s/\\IeC {\\CYRERY }/ù/g
- s/\\IeC {\\CYRSFTSN }/ø/g
- s/\\IeC {\\CYREREV }/ü/g
- s/\\IeC {\\CYRYU }/à/g
- s/\\IeC {\\CYRYA }/ñ/g
- s/\\IeC {\\cyra }/Á/g
- s/\\IeC {\\cyrb }/Â/g
- s/\\IeC {\\cyrv }/×/g
- s/\\IeC {\\cyrg }/Ç/g
- s/\\IeC {\\cyrd }/Ä/g
- s/\\IeC {\\cyre }/Å/g
- s/\\IeC {\\cyryo }/£/g
- s/\\IeC {\\cyrzh }/Ö/g
- s/\\IeC {\\cyrz }/Ú/g
- s/\\IeC {\\cyri }/É/g
- s/\\IeC {\\cyrishrt }/Ê/g
- s/\\IeC {\\cyrk }/Ë/g
- s/\\IeC {\\cyrl }/Ì/g
- s/\\IeC {\\cyrm }/Í/g
- s/\\IeC {\\cyrn }/Î/g
- s/\\IeC {\\cyro }/Ï/g
- s/\\IeC {\\cyrp }/Ð/g
- s/\\IeC {\\cyrr }/Ò/g
- s/\\IeC {\\cyrs }/Ó/g
- s/\\IeC {\\cyrt }/Ô/g
- s/\\IeC {\\cyru }/Õ/g
- s/\\IeC {\\cyrf }/Æ/g
- s/\\IeC {\\cyrh }/È/g
- s/\\IeC {\\cyrc }/Ã/g
- s/\\IeC {\\cyrch }/Þ/g
- s/\\IeC {\\cyrsh }/Û/g
- s/\\IeC {\\cyrshch }/Ý/g
- s/\\IeC {\\cyrhrdsn }/ß/g
- s/\\IeC {\\cyrery }/Ù/g
- s/\\IeC {\\cyrsftsn }/Ø/g
- s/\\IeC {\\cyrerev }/Ü/g
- s/\\IeC {\\cyryu }/À/g
- s/\\IeC {\\cyrya }/Ñ/g
- }
-' <"$backup" >"$job.aux"
-
-bibtex "$job"
-
-cat "$backup" > "$job.aux"
-rm -rf "$tmpdir"
-exit 0
diff --git a/Master/bin/alpha-linux/rumakeindex b/Master/bin/alpha-linux/rumakeindex
deleted file mode 100755
index b7b0c072729..00000000000
--- a/Master/bin/alpha-linux/rumakeindex
+++ /dev/null
@@ -1,77 +0,0 @@
-#!/bin/sh
-
-BASE=`basename "$1" .idx`
-IDX=$BASE.idx
-IND=$BASE.ind
-ILG=$BASE.ilg
-
-sed '
-/^\\indexentry{/ {
-s/\\IeC {\\CYRA }/¾/g
-s/\\IeC {\\cyra }/¿/g
-s/\\IeC {\\CYRB }/À/g
-s/\\IeC {\\cyrb }/Á/g
-s/\\IeC {\\CYRV }/Â/g
-s/\\IeC {\\cyrv }/Ã/g
-s/\\IeC {\\CYRG }/Ä/g
-s/\\IeC {\\cyrg }/Å/g
-s/\\IeC {\\CYRD }/Æ/g
-s/\\IeC {\\cyrd }/Ç/g
-s/\\IeC {\\CYRE }/È/g
-s/\\IeC {\\cyre }/É/g
-s/\\IeC {\\CYRYO }/Ê/g
-s/\\IeC {\\cyryo }/Ë/g
-s/\\IeC {\\CYRZH }/Ì/g
-s/\\IeC {\\cyrzh }/Í/g
-s/\\IeC {\\CYRZ }/Î/g
-s/\\IeC {\\cyrz }/Ï/g
-s/\\IeC {\\CYRI }/Ð/g
-s/\\IeC {\\cyri }/Ñ/g
-s/\\IeC {\\CYRISHRT }/Ò/g
-s/\\IeC {\\cyrishrt }/Ó/g
-s/\\IeC {\\CYRK }/Ô/g
-s/\\IeC {\\cyrk }/Õ/g
-s/\\IeC {\\CYRL }/Ö/g
-s/\\IeC {\\cyrl }/×/g
-s/\\IeC {\\CYRM }/Ø/g
-s/\\IeC {\\cyrm }/Ù/g
-s/\\IeC {\\CYRN }/Ú/g
-s/\\IeC {\\cyrn }/Û/g
-s/\\IeC {\\CYRO }/Ü/g
-s/\\IeC {\\cyro }/Ý/g
-s/\\IeC {\\CYRP }/Þ/g
-s/\\IeC {\\cyrp }/ß/g
-s/\\IeC {\\CYRR }/à/g
-s/\\IeC {\\cyrr }/á/g
-s/\\IeC {\\CYRS }/â/g
-s/\\IeC {\\cyrs }/ã/g
-s/\\IeC {\\CYRT }/ä/g
-s/\\IeC {\\cyrt }/å/g
-s/\\IeC {\\CYRU }/æ/g
-s/\\IeC {\\cyru }/ç/g
-s/\\IeC {\\CYRF }/è/g
-s/\\IeC {\\cyrf }/é/g
-s/\\IeC {\\CYRH }/ê/g
-s/\\IeC {\\cyrh }/ë/g
-s/\\IeC {\\CYRC }/ì/g
-s/\\IeC {\\cyrc }/í/g
-s/\\IeC {\\CYRCH }/î/g
-s/\\IeC {\\cyrch }/ï/g
-s/\\IeC {\\CYRSH }/ð/g
-s/\\IeC {\\cyrsh }/ñ/g
-s/\\IeC {\\CYRSHCH }/ò/g
-s/\\IeC {\\cyrshch }/ó/g
-s/\\IeC {\\CYRHRDSN }/ô/g
-s/\\IeC {\\cyrhrdsn }/õ/g
-s/\\IeC {\\CYRERY }/ö/g
-s/\\IeC {\\cyrery }/÷/g
-s/\\IeC {\\CYRSFTSN }/ø/g
-s/\\IeC {\\cyrsftsn }/ù/g
-s/\\IeC {\\CYREREV }/ú/g
-s/\\IeC {\\cyrerev }/û/g
-s/\\IeC {\\CYRYU }/ü/g
-s/\\IeC {\\cyryu }/ý/g
-s/\\IeC {\\CYRYA }/þ/g
-s/\\IeC {\\cyrya }/ÿ/g
-}' $IDX | makeindex -t $ILG | tr '¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ' \
- 'áÁâÂ÷×çÇäÄåų£öÖúÚéÉêÊëËìÌíÍîÎïÏðÐòÒóÓôÔõÕæÆèÈãÃþÞûÛýÝÿßùÙøØüÜàÀñÑ' > $IND
diff --git a/Master/bin/alpha-linux/showchar b/Master/bin/alpha-linux/showchar
deleted file mode 100755
index e685e99ae8c..00000000000
--- a/Master/bin/alpha-linux/showchar
+++ /dev/null
@@ -1,118 +0,0 @@
-#!/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/bin/alpha-linux/simpdftex b/Master/bin/alpha-linux/simpdftex
deleted file mode 100755
index 86f8ec0e623..00000000000
--- a/Master/bin/alpha-linux/simpdftex
+++ /dev/null
@@ -1,570 +0,0 @@
-#!/bin/sh
-
-# Created by Gerben Wierda, May 2001
-# Rewritten by Gerben Wierda, January 2002
-
-# Modified by Joachim Kock, May 2003
-
-# COPYRIGHT Gerben Wierda 2001--2004
-# This file is free software. You are free to use this file in any way you like
-# However, if you change it you should note in this file that you did and who
-# you are, you also need to change the version string if you do. That way
-# I will not get support questions for software that is not entirely mine.
-
-# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
-# EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
-# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
-# LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
-# EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-# $Id: altpdftex,v 2.18 2004/11/15 20:36:11 gerben Exp $
-
-# This script assumes that there is a config.pdf somewhere that sets
-# the bitmap mode to something large but realistic (real mode) so that
-# unavailable pfb fonts will be included as bitmaps.
-
-# Version 1.0: added the string above for identification purposes
-# Version 1.0a: Cosmetic change: do not display dir of argv[0] all the time
-# Added calledas variable to hold command basename
-# Version 1.1: Use calledas instead of $0 which means the sed command
-# for determining format below also works when there is no dir
-# (run from dir where altpdftex resides, not very likely...)
-# Version 1.2: Force the use of tex binaries from the same directory as
-# this script
-# Version 1.3: Added --echo-version option, placed argument check after
-# switch, inside while to prevent subscript out of range error
-# Added --tex-path to override directory where this script
-# resides. Added --gs-path to override a new default gs
-# directory /usr/local/bin. Also, force gs directory at the
-# start of the path to repair for broken installations of
-# TeX, gs and such
-# Version 1.4: Moved path changes to just before calling gs so that only
-# ps2pdf is affected
-# Version 1.5: Removed some path-related redundancy from GS calling
-# Version 1.5a: Missing ${extradviopts} from echo
-# Added version to --help output
-# Added wolfram.map
-# Version 1.6: Fixed bug: --dviopts did not work because it did set
-# the wrong variable
-# Changed dviopts to dvipsopts (better name)
-# Version 1.7: Added --distiller and --distiller-filter option
-# Changed --gs-path to --distiller-path
-# Changed distiller semantics
-# Fixed bug --tex-path flag needed trailing '/'
-# Some extra quoting to be more robust for whitespace
-# in names, also internally
-# Version 1.8: Added pstill and u-psbuild info to help
-# Version 1.9: Removed textrace bbold font (textrace is broken)
-# Version 1.10: Added amstex support
-# Simplified different format support
-# Version 1.11: Do not source ~/.{t}cshrc, use the environment 'as is'
-# Version 1.11 says it is version 1.10!
-# Version 1.12: Added textrace bold font (textrace 0.48 is ok)
-# Version 1.13: Changed success message at the end
-# Echo version on by default
-# Debug option
-# Version 1.13b:Date report on version was very out of date, removed
-
-# Version 2.0: Rewritten in /bin/sh because (t)csh does not handle signals
-# very well...
-# This version works, but you need to send the SIGTERM to
-# the process group (the negative PID) to get it to work
-# Version 2.1: Small bug fixes
-# Version 2.2: Fixed bug where argument without extension was interpreted
-# as dvi file.
-# Removed dependencies on smart sh versions
-# Version 2.3: Removed map file knowledge (needs to be outside this script)
-# beyond the standard map files
-# Version 2.4: Added support for omega and lambda (use odvips)
-# Version 2.5: Changed maxpk and maxpfb implementation to recent updmap
-# Version 2.6: Use ps2pdf13 as the default distiller
-# Version 2.7: Changed help
-# Version 2.8: Checked into CVS.
-# Added handling of outdir for TeX
-# Version 2.9: Added auto-outdir flag
-# Version 2.10: Changed --outdir behaviour to mimick TEXMFOUTPUT,
-# removed --auto-outdir
-# Version 2.11: Fixed typo
-# Version 2.12: RCS changes, from now on, the version number is the RCS number
-# These notes here will become a ChangeLog.
-# 2003/05/20 Joachim's modification: write first to a pdf file in tmp,
-# and only upon completion copy the file to its final
-# destination. This is done in order to minimise the time where
-# the pdf file in current directory is in an unstable state,
-# because a PDF viewer might be tracking the file, and
-# if it finds the pdf file in an intermediate state it will
-# display a blank page until the new version is ready.
-# 2003/05/21 Joachim's modification used /bin/cp. Gerben made it truly
-# atomic by using /bin/cp in combination with /bin/mv
-# 2003/11/23 Added supportfor passing flasg to tex at the request of
-# Dick Koch.
-# 2004/09/05 Bugfix: make it work better with directories with whitespace
-# in their name
-# 2004/11/15 New calling mode: simpdftex format foo.tex
-# e.g.:
-# simpdftex latex foo.tex
-# In the future, the old modes (altpdflatex and friends) through
-# symlinks will disappear from my distribution, though they will
-# still work.
-
-# FEATURE: it seems -u +foo.map -u -foo.map does not work. So --extradvipsopts
-# cannot be used to remove a map from the standard list
-
-# BUG: Handling of file name extensions is not completely equialent to TeX
-# i.e. foo.bar.bla gets you foo.bar.pdf not foo.bar.bla.pdf
-# Give all extensions
-
-version='$Revision: 2.18 $'
-calledas=`basename "$0"`
-if [ "${calledas}" = "simpdftex" ]
-then
- argwithoutlead=`echo -n "$1"|sed 's/^--//'`
- if [ "$1" != "" -a "$1" = "${argwithoutlead}" ]
- then
- formatname="$1"
- shift
- calledas="altpdf${formatname}"
- fi
-fi
-argvbackup="$*"
-
-# maxpkdvipsopts: use only pfb's for real PS fonts, bitmaps are default for the others
-maxpkdvipsopts="-Ppk"
-# maxpfbdvipsopts: use as many pfb's as possible
-maxpfbdvipsopts="-Poutline"
-opt_dvipsopts=""
-
-# Defaults:
-# altpdftex --default is the default setting, it also works
-# when there is no config.pdf file
-extradvipsoptions=""
-dvipsoptions="$maxpfbdvipsopts"
-outputpostfix=".maxpfb"
-simplename="yes"
-keeppsfile="no"
-echoversion="yes"
-texpath=`dirname "$0"`
-# Default distiller is ps2pdf from /usr/local/bin in no filter mode
-# as the direct call to a filtering gs does not work yet for some reason
-#distillerpath=""
-#distillerprog="/usr/local/bin/gs -dCompatibility=1.3 -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sOutputFile=- -c save pop"
-#distillerfilter="yes"
-distillerpath="/usr/local/bin"
-distillerprog="ps2pdf13"
-distillerfilter="no"
-unset outdir
-debug="no"
-
-usage()
-{
- cat <<_eof_help
-This is simpdftex, $version
-
-Usage: simpdftex formatname
- [--dvipsopts dvipsoptstring] [--extradvipsopts dvipsoptstring] [--pdf]
- [--default] [--maxpk] [--maxpfb] [--extendedname] [--no-echo-version]
- [--tex-path dir] [--keep-psfile] [--distiller-path dir] [--debug]
- [--distiller prog] [--distiller-filter prog] [--help]
- [--outdir dir] [--extratexopts texoptsstring] tex-or-dvi-file
-
-simpdftex is a way to do pdf{e}{la}tex without having pdf{e}{la}tex. It needs a
-working TeX environment and ghostscript. Since pdf{e}{la}tex cannot handle
-insertion of .eps graphics, simpdftex gives an alternative. The output for both
-systems is comparable.
-
-simpdftex compiles the file with {LA}TeX, processes the DVI file with dvips into
-PostScript and uses gs to produce pdf (with ps2pdf). There is finegrained
-control over the resulting filename and the options with which dvips produces
-the PostScript intermediary file.
-
-Dvips will call Metafont to produce bitmaps or include PostScript .pfb files
-depending on the flags. See below.
-
-Default settings is normal name, maximal use of pfb's, just like pdf{la}tex,
-in other words, "pdftex file.tex" and "altpdftex file.tex" both produce an
-output file file.pdf. For pdftex, output options are controlled by pdftex.cfg,
-for altpdftext by config.ps (unless --pdf is given).
-
-Arguments:
- tex-or-dvi-file
- If a .dvi file is given, skip the TeX process. Otherwise, TeX
- the input file, dvips the resulting dvi file and ps2pdf the
- resulting ps file
- --help
- Display this message and exit
- --no-echo-version
- Do not echo location and version of this script. Does not exit
- so can be used tochange info to the output of a real run
- --debug
- Add some debug output
- --extendedname
- Depending on the mode, adds intermediary extensions to the
- output filename. If the mode is --pdf, .pdfmode is added. If
- the mode is --maxpk, ,maxpk is added and if the mode is
- --maxpfb, .maxpfb is added. Example:
- tex-or-dvi-file-basename.maxpfb.pdf
- --maxpk
- Use Metafont bitmaps (pk files) when possible. Only real
- PostScript fonts (like Times Roman) are included as
- PostScript fonts. All other fonts are included as bitmaps
- for the default printer resolution. This options produces
- optimal results for the chosen printer.
- For file contents (not name) equivalent to:
- --dvipsopts "-Ppk"
- --maxpfb
- Use PostScript pfb files whenever possible. This produces
- optimal results for the screen.
- For file contents (not name) equivalent to:
- --dvipsopts "-Poutline"
- If any font is included as TeX pk bitmap, it is rendered
- at the default resolution.
- --pdf
- Select .pdfmode extension for the output file name if
- --extendedname has been set. Use printer definition
- config.pdf. For file contents (not name) equivalent to
- --dvipsopts "-Ppdf"
- Note that the default config.pdf assumes resolution 8000
- for bitmaps and bitmap generation fails at this resolution
- because there exists no known mode for that resolution.
- --default
- Select no extension for the output file name, even if
- --extendedfilename has been set. Use standard printer
- definition config.ps. For file contents (not name) equivalent
- to:
- --dvipsopts "" --noextendedname
- --dvipsopts
- Give arbitrary arguments to dvips, e.g.
- --dvipsopts "-M"
- Sets extension for --extendedfilename to .custom. --dvipsopts
- overrides other flags that set dvipsopts.
- --extratexopts
- Give extra arbitrary arguments to tex, e.g.
- --extratexopts "--interaction=nonstopmode"
- Sets extra options for the tex command that is used.
- --extradvipsopts
- Give extra arbitrary arguments to dvips, e.g.
- --extradvipsopts "-M"
- Sets extra options for dvips and does not set extension
- or override other options. Options will be added to the end
- of the options for dvips
- --keep-psfile
- After running dvips, copy the ps file over to the directory
- where the tex file is, possibly overwriting a ps file
- that is there. Use with caution, a ps file could be input
- as well.
- --tex-path
- Give path of TeX binaries, use directory of this script
- otherwise
- --distiller prog
- Use a distiller different from ps2pdf which is the default.
- Argument must be an executable or executable script that
- gets called iwth two arguments: input file (PS) and output
- file (PDF). E.g.:
- --distiller=/usr/local/alternate/bin/ps2pdf
- --distiller=pstill
- Using this flag sets the distiller filter mode to off
- --distiller-filter prog
- Use a distiller executable or executable script which is
- called with the PS input as standard input and which writes
- the PDF output to standard output. E.g.:
- --distiller-filter=u-psbuild
- --distiller-path
- Give path needed by the distiller binary. This path is added
- to the begin of you PATH environment before the distiller is
- run. The reason is that for instance ps2pdf uses the path to
- find gs and sets the path to something with /sw/bin at the
- beginning. Thus, installing gs from fink would make
- /usr/local/bin/ps2pdf find another gs than intended. By giving
- an empty path, the path is not changed before the distiller
- program is run. The default is empty.
- --outdir dir
- Write files here *if* our current directory is unwritable. This
- mimicks the TEXMFOUTPUT environment variable of TeX, but
- differently. The current dir becomes the value of --outdir and
- the directory where the old current dir is added to TEXINPUTS.
- This is more robust for reading and locating files.
- You can also set TEXMFOUTPUT instead, but with a disadvantage:
- you will be running TeXin the current dir. And you will not be
- able to read files in the outdir unless you also adapt
- TEXINPUTS.
-
- The defaults for the distiller are
- Path addition: "${distillerpath}"
- Filter mode: "${distillerfilter}"
- Program: "${distillerprog}"
-
- Later flags override settings of earlier flags.
-_eof_help
-}
-
-while test $# -gt 0
-do
- case $1 in
- --help)
- usage
- exit 0;;
- --dvipsopts)
- shift
- outputpostfix=".custom"
- dvipsoptions="$1"
- ;;
- --extradvipsopts)
- shift
- extradvipsoptions="$1"
- ;;
- --extratexopts)
- shift
- extratexoptions="$1"
- ;;
- --tex-path)
- shift
- texpath="$1"
- ;;
- --pdf)
- outputpostfix=".pdfmode"
- dvipsoptions="-P pdf"
- ;;
- --default)
- outputpostfix=""
- dvipsoptions=""
- # Use the default print option in config.ps
- ;;
- --maxpk)
- outputpostfix=".maxpk"
- dvipsoptions="$maxpkdvipsopts"
- ;;
- --maxpfb)
- outputpostfix=".maxpbfb"
- dvipsoptions="$maxpfbdvipsopts"
- ;;
- --extendedname)
- simplename="no"
- ;;
- --keep-psfile)
- keeppsfile="yes"
- ;;
- --debug)
- debug="yes"
- ;;
- --distiller-path)
- shift
- distillerpath="$1"
- ;;
- --distiller)
- shift
- distillerprog="$1"
- distillerfilter="no"
- ;;
- --outdir)
- shift
- export TEXINPUTS=`pwd`:`kpsewhich --expand-var '$TEXINPUTS'`
- export TEXMFOUTPUT="$1"
- outdir="$1/"
- outdirset="yes"
- cd "$1"
- ;;
- --distiller-filter)
- shift
- distillerprog="$1"
- distillerfilter="yes"
- ;;
- --no-echo-version)
- echoversion="no"
- ;;
- --*)
- echo "Unknown option $1"
- exit 1;;
- "")
- ;;
- *)
- break;;
- esac
- shift
-done
-
-if [ "${echoversion}" = "yes" -a "${debug}" = "no" ]
-then
- echo "### This is $0, Version ${version}"
-fi
-
-if [ "${debug}" = "yes" ]
-then
- echo "##### This is $0, Version ${version}"
- echo "##### Arguments: ${argvbackup}"
-fi
-
-cleanup()
-{
- if [ "${tmpdir}" != "" -a "${debug}" = "no" ]
- then
- rm -rf "${tmpdir}"
- fi
-}
-
-terminated()
-{
- cleanup
- exit 1;
-}
-
-trap 'terminated' 15
-
-main()
-{
- if [ "${file}" = "" ]
- then
- echo "simpdftex Empty argument: tex-or-dvi-file-name"
- exit 1
- fi
-
- # Argument handling
-
- if [ "${simplename}" = "yes" ]
- then
- outputpostfix=""
- fi
-
- startwithdvi="no"
- basename=`basename "${file}"`
- nosuffixbasename=`echo -n ${basename}|sed 's/\.[^.]*$//'`
- nodvisuffixbasename=`echo -n ${basename}|sed 's/\.[dD][vV][iI]$//'`
- if [ "${nodvisuffixbasename}" = "${nosuffixbasename}" -a \
- "${basename}" != "${nosuffixbasename}" ]
- then
- startwithdvi="yes"
- fi
-
- kpsefilename=`kpsewhich "${file}"`
- slashdirname=`dirname "${kpsefilename}"`/
-
- if [ ! -w "." ]
- then
- if [ "${TEXMFOUTPUT}" != "" ]
- then
- outdir="${TEXMFOUTPUT}/"
- outdirset="yes"
- if [ "${autoinput}" = "yes" ]
- then
- export TEXINPUTS=${TEXMFOUTPUT}:`kpsewhich --expand-var '$TEXINPUTS'`
-
- fi
- else
- echo "### Cannot write in current directory and no redirect found. Bailing out..."
- exit 1
- fi
- fi
-
- # Assume the command is called altpdf* where the rest is the actual tex
- # program to be run
- texprogram=`echo ${calledas}|sed 's/altpdf//'`
- if [ "${texprogram}" = "omega" -o "${texprogram}" = "lambda" ]
- then
- dvips="odvips"
- else
- dvips="dvips"
- fi
-
- # Handle temp dir (cleanup is called on signal)
- tmpext=$$-`/bin/date +"%s"`
- tmpdir="/tmp/altpdf${texprogram}.${tmpext}"
- # Force removal of possible existing tmpdir
- cleanup
- # Make new version
- mkdir "${tmpdir}"
-
- if [ "${startwithdvi}" = "yes" ]
- then
- dvifile="${file}"
- else
- texfile="${file}"
- dvifile="${outdir}${nosuffixbasename}.dvi"
- fi
-
- psfile="${tmpdir}/${nosuffixbasename}${outputpostfix}.ps"
- savedpsfile="${outdir}${nosuffixbasename}.ps"
- pdffile="${tmpdir}/${nosuffixbasename}${outputpostfix}.pdf"
- savedpdffile="${outdir}${nosuffixbasename}${outputpostfix}.pdf"
-
- if [ "${debug}" = "yes" ]
- then
- echo "##### TeX file: $texfile"
- echo "##### DVI file: $dvifile"
- echo "##### PS file: $psfile"
- echo "##### Saved PS file: $savedpsfile"
- echo "##### Created PDF file: $pdffile"
- echo "##### Final PDF file: $savedpdffile"
- echo "##### Environment:"
- env | sed 's/^/##### /g'
- fi
-
- if [ "${startwithdvi}" = "yes" ]; then
- echo "### Skipping ${texprogram} ${texfile} [dvi->pdf only]"
- else
- echo "### ${texpath}/${texprogram} ${texfile}"
- "${texpath}/${texprogram}" ${extratexoptions} "${texfile}" || \
- echo "### WARNING: TeX returned non zero exit status ${status}"
- fi
-
- echo "### ${texpath}/${dvips} -R ${dvipsoptions} ${extradvipsoptions} -o ${psfile} ${dvifile}"
- "${texpath}/${dvips}" -R ${dvipsoptions} ${extradvipsoptions} -o "${psfile}" "${dvifile}" || \
- { echo "### FAILED to generate ${psfile} (${status})"; \
- exit 1; }
-
- if [ "${keeppsfile}" = "yes" ]; then
- echo "### Saving intermediary ps file ${psfile} as ${savedpsfile}"
- /bin/cp "${psfile}" "${savedpsfile}" || \
- echo "### FAILED to save ${psfile} (${status})"
- fi
-
- if [ "${distillerpath}" != "" ]; then
- PATH="${distillerpath}:${PATH}";export PATH
- if [ "${debug}" = "yes" ]; then
- echo "##### PATH set to ${PATH}"
- fi
- fi
-
- if [ "${distillerfilter}" = "yes" ]; then
- echo "### ${distillerprog} <${psfile} >${pdffile}"
- "${distillerprog}" <"${psfile}" >"${pdffile}" || \
- { echo "### FAILED to generate ${pdffile} (${status})"
- exit 1; }
- else
- echo "### ${distillerprog} ${psfile} ${pdffile}"
- "${distillerprog}" "${psfile}" "${pdffile}" || \
- { echo "### FAILED to generate ${pdffile} (${status})"
- exit 1; }
- fi
-
- echo "### Copying/moving pdf file ${pdffile} to ${savedpdffile}"
- /bin/cp "${pdffile}" "${savedpdffile}.${tmpext}" || \
- echo "### FAILED to copy ${pdffile} (${status})"
- /bin/rm -f "${savedpdffile}"
- /bin/mv "${savedpdffile}.${tmpext}" "${savedpdffile}" || \
- echo "### FAILED to rename ${savedpdffile}.${tmpext} (${status})"
-
- if [ "${startwithdvi}" = "yes" ]; then
- if [ "${keeppsfile}" = "yes" ]; then
- echo "### Succesfully generated ${savedpdffile} and ${savedpsfile}"
- else
- echo "### Succesfully generated ${savedpdffile}"
- fi
- else
- if [ "${keeppsfile}" = "yes" ]; then
- echo "### Succesfully generated ${dvifile}, ${savedpdffile} and ${savedpsfile}"
- else
- echo "### Succesfully generated ${dvifile} and ${savedpdffile}"
- fi
- fi
-
- cleanup
-}
-
-for file in "$@"
-do
- main
-done
diff --git a/Master/bin/alpha-linux/sjisconv b/Master/bin/alpha-linux/sjisconv
deleted file mode 100755
index f16aa488412..00000000000
--- a/Master/bin/alpha-linux/sjisconv
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/sjislatex b/Master/bin/alpha-linux/sjislatex
deleted file mode 100755
index 2c9bc229c7b..00000000000
--- a/Master/bin/alpha-linux/sjislatex
+++ /dev/null
@@ -1,26 +0,0 @@
-#! /bin/sh
-
-n=1
-argv=
-
-# get last argument
-while test 1 -lt $#; do
- eval argv$n=\$1
- argv="$argv \"\$argv$n\""
- n=`expr $n + 1`
- shift
-done
-
-# replace extension with .cjk or append .cjk if there is no extension
-tex=$1
-case $tex in
-""|*.cjk)
- echo >&2 "Usage: $0 [options] latex-file"
- exit 1;;
-*)
- aux=`expr "X$tex" : 'X\(.*\)\.[^/]*$' \| "X$tex" : 'X\(.*\)'`.cjk;;
-esac
-
-sjisconv < "$tex" > "$aux" && eval latex "$argv" "\$aux"
-
-# EOF
diff --git a/Master/bin/alpha-linux/sjispdflatex b/Master/bin/alpha-linux/sjispdflatex
deleted file mode 100755
index 294c5b188d0..00000000000
--- a/Master/bin/alpha-linux/sjispdflatex
+++ /dev/null
@@ -1,26 +0,0 @@
-#! /bin/sh
-
-n=1
-argv=
-
-# get last argument
-while test 1 -lt $#; do
- eval argv$n=\$1
- argv="$argv \"\$argv$n\""
- n=`expr $n + 1`
- shift
-done
-
-# replace extension with .cjk or append .cjk if there is no extension
-tex=$1
-case $tex in
-""|*.cjk)
- echo >&2 "Usage: $0 [options] latex-file"
- exit 1;;
-*)
- aux=`expr "X$tex" : 'X\(.*\)\.[^/]*$' \| "X$tex" : 'X\(.*\)'`.cjk;;
-esac
-
-sjisconv < "$tex" > "$aux" && eval pdflatex "$argv" "\$aux"
-
-# EOF
diff --git a/Master/bin/alpha-linux/t1ascii b/Master/bin/alpha-linux/t1ascii
deleted file mode 100755
index 0fc076394d6..00000000000
--- a/Master/bin/alpha-linux/t1ascii
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/t1asm b/Master/bin/alpha-linux/t1asm
deleted file mode 100755
index 53404511655..00000000000
--- a/Master/bin/alpha-linux/t1asm
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/t1binary b/Master/bin/alpha-linux/t1binary
deleted file mode 100755
index 24200fd4cf4..00000000000
--- a/Master/bin/alpha-linux/t1binary
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/t1disasm b/Master/bin/alpha-linux/t1disasm
deleted file mode 100755
index c4bddbfb6a1..00000000000
--- a/Master/bin/alpha-linux/t1disasm
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/t1dotlessj b/Master/bin/alpha-linux/t1dotlessj
deleted file mode 100755
index 768c2aa79ff..00000000000
--- a/Master/bin/alpha-linux/t1dotlessj
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/t1lint b/Master/bin/alpha-linux/t1lint
deleted file mode 100755
index 9adc988398c..00000000000
--- a/Master/bin/alpha-linux/t1lint
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/t1mac b/Master/bin/alpha-linux/t1mac
deleted file mode 100755
index c72878fe033..00000000000
--- a/Master/bin/alpha-linux/t1mac
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/t1reencode b/Master/bin/alpha-linux/t1reencode
deleted file mode 100755
index 27b49153788..00000000000
--- a/Master/bin/alpha-linux/t1reencode
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/t1testpage b/Master/bin/alpha-linux/t1testpage
deleted file mode 100755
index 8790fd118cd..00000000000
--- a/Master/bin/alpha-linux/t1testpage
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/t1unmac b/Master/bin/alpha-linux/t1unmac
deleted file mode 100755
index 045bc6f82c6..00000000000
--- a/Master/bin/alpha-linux/t1unmac
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/t4ht b/Master/bin/alpha-linux/t4ht
deleted file mode 100755
index c71a576e98d..00000000000
--- a/Master/bin/alpha-linux/t4ht
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/tangle b/Master/bin/alpha-linux/tangle
deleted file mode 100755
index f805b344a2b..00000000000
--- a/Master/bin/alpha-linux/tangle
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/tcdialog b/Master/bin/alpha-linux/tcdialog
deleted file mode 100755
index b564bbd14f0..00000000000
--- a/Master/bin/alpha-linux/tcdialog
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/tex b/Master/bin/alpha-linux/tex
deleted file mode 100755
index 69d04b96c72..00000000000
--- a/Master/bin/alpha-linux/tex
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/tex4ht b/Master/bin/alpha-linux/tex4ht
deleted file mode 100755
index 8549b1c8474..00000000000
--- a/Master/bin/alpha-linux/tex4ht
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/texconfig b/Master/bin/alpha-linux/texconfig
deleted file mode 100755
index 633ba7e807d..00000000000
--- a/Master/bin/alpha-linux/texconfig
+++ /dev/null
@@ -1,1412 +0,0 @@
-#!/bin/sh
-
-# TeX-Config version 3.0
-# Thomas Esser, te@dbs.uni-hannover.de. Public domain.
-
-# invoke the right shell:
-
-test -f /bin/ksh && test -z "$RUNNING_KSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_KSH=true; export RUNNING_KSH; exec /bin/ksh $0 ${1+"$@"}; }
-unset RUNNING_KSH
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-export PATH
-
-# hack around a bug in zsh:
-test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"'
-
-# initializations...
-progname=texconfig
-
-# the version string
-version=1118467711 # seconds since `00:00:00 1970-01-01 UTC'
- # date '+%s' (with GNU date)
-
-envVars="
- AFMFONTS BIBINPUTS BSTINPUTS CMAPFONTS CWEBINPUTS ENCFONTS GFFONTS
- GLYPHFONTS INDEXSTYLE LIGFONTS MFBASES MFINPUTS MFPOOL MFTINPUTS
- MISCFONTS MPINPUTS MPMEMS MPPOOL MPSUPPORT OCPINPUTS OFMFONTS
- OPENTYPEFONTS OPLFONTS OTPINPUTS OVFFONTS OVPFONTS PDFTEXCONFIG PKFONTS
- PSHEADERS SFDFONTS T1FONTS T1INPUTS T42FONTS TEXBIB TEXCONFIG TEXDOCS
- TEXFONTMAPS TEXFONTS TEXFORMATS TEXINDEXSTYLE TEXINPUTS TEXMFCNF
- TEXMFDBS TEXMFINI TEXMFSCRIPTS TEXPICTS TEXPKS TEXPOOL TEXPSHEADERS
- TEXSOURCES TFMFONTS TRFONTS TTFONTS VFFONTS WEB2C WEBINPUTS
-"
-tmpdir=${TMPDIR-${TEMP-${TMP-/tmp}}}/tctmp.$$
-needsCleanup=false
-lastUpdatedFile=
-
-###############################################################################
-# setupFMT(void)
-# find a suitable version of fmt / adjust
-###############################################################################
-setupFMT()
-{
- case $FMT in
- "")
- FMT=fmt
- test ! -x /bin/fmt && test ! -f /usr/bin/fmt &&
- { test -x /bin/adjust || test -x /usr/bin/adjust; } && FMT=adjust
- ;;
- *)
- return
- ;;
- esac
-}
-
-###############################################################################
-# myFmt(args)
-# run $FMT
-###############################################################################
-myFmt()
-{
- setupFMT
- $FMT ${1+"$@"}
-}
-
-###############################################################################
-# echoShowVariable(args ...)
-# show environment variables which names are as args and their values
-###############################################################################
-echoShowVariable()
-{
- for esv
- do
- var=$esv
- eval val=\"\${$var+=}\${$var- is unset}\"
- echo "$var$val"
- done | grep -v 'is unset$'
-}
-
-###############################################################################
-# echoShowKpseVariable(args ...)
-# show kpathsea variables which names are as args and their values
-###############################################################################
-echoShowKpseVariable()
-{
- for eskv
- do
- var=$eskv
- val=`kpsewhich -var-value="$eskv"`
- echo "$var=$val"
- done
-}
-
-###############################################################################
-# echoLocateBinary(args ...)
-# show where programs actually exist
-###############################################################################
-echoLocateBinary()
-{
- for elb
- do
- elbLoc=`checkForBinary "$elb"`
- case $elbLoc in
- "") echo "$elb: not found";;
- *) echo "$elb: $elbLoc";;
- esac
- done
-}
-
-###############################################################################
-# echoLocateCfgfile(args ...)
-# show where programs actually exist
-###############################################################################
-echoLocateCfgfile()
-{
- for elc
- do
- case $elc in
- texmf.cnf) elcLoc=`kpsewhich $elc`;;
- *) elcLoc=`tcfmgr --cmd find --file "$elc"`;;
- esac
- case $elcLoc in
- "") echo "$elc: not found";;
- *) echo "$elcLoc";;
- esac
- done
-}
-
-###############################################################################
-# checkForBinary(prog)
-# echo full path of prog
-###############################################################################
-checkForBinary()
-{
- cfbBinary=$1
-
- OLDIFS=$IFS
- IFS=:
- set x `echo "$PATH" | sed 's/^:/.:/; s/:$/:./; s/::/:.:/g'`; shift
- found=false
- for pathElem
- do
- case $pathElem in
- "") continue;;
- *) test -f "$pathElem/$cfbBinary" && { echo "$pathElem/$cfbBinary"; found=true; break; }
- esac
- done
- IFS=$OLDIFS
- case $found in
- true) (exit 0); return 0;;
- false) (exit 1); return 1;;
- esac
-}
-
-###############################################################################
-# findDialogProg(void)
-# Some systems have their own dialog. Use it then and do not use
-# faked TERM and TERMINFO variables when calling that dialog.
-###############################################################################
-findDialogProg()
-{
- { u=`uname -s`; } 2>/dev/null
- case "$u" in
- FreeBSD|Linux|cygwin*|CYGWIN*)
- test -f /usr/bin/whiptail && DIALOG_PROG=/usr/bin/whiptail
- test -f /usr/bin/dialog && DIALOG_PROG=/usr/bin/dialog
- test -f /bin/dialog && DIALOG_PROG=/bin/dialog
- ;;
- esac
-}
-
-###############################################################################
-# runDialog(args)
-# call either tcdialog or $DIALOG_PROG
-###############################################################################
-runDialog()
-{
- test -z "$NO_CLEAR" && tty -s && clear
- case "$DIALOG_PROG" in
- "")
- TERM=$DIALOG_TERM TERMINFO=$DIALOG_TERMINFO \
- tcdialog --title "$progname setup utility" ${1+"$@"};;
- *)
- $DIALOG_PROG --title "$progname setup utility" ${1+"$@"};;
- esac
-}
-
-
-###############################################################################
-# cleanup()
-# clean up the temp area and exit with proper exit status
-###############################################################################
-cleanup()
-{
- rc=$1
- $needsCleanup && test -n "$tmpdir" && test -d "$tmpdir" \
- && { cd / && rm -rf "$tmpdir"; }
- (exit $rc); exit $rc
-}
-
-###############################################################################
-# setupTmpDir()
-# set up a temp directory and a trap to remove it
-###############################################################################
-setupTmpDir()
-{
- case $needsCleanup in
- true) return;;
- esac
-
- trap 'cleanup 1' 1 2 3 7 13 15
- needsCleanup=true
- (umask 077; mkdir "$tmpdir") \
- || abort "could not create directory \`$tmpdir'"
-}
-
-###############################################################################
-# setupTexmfmain()
-# get value for MT_TEXMFMAIN (with caching)
-###############################################################################
-setupTexmfmain()
-{
- case $MT_TEXMFMAIN in
- "") MT_TEXMFMAIN=`kpsewhich -var-value=TEXMFMAIN`;;
- *) return;;
- esac
-}
-
-###############################################################################
-# setupTexmfmain()
-# get value for MT_TEXMFMAIN (with caching)
-###############################################################################
-setupTexmfdist()
-{
- case $MT_TEXMFDIST in
- "") MT_TEXMFDIST=`kpsewhich -var-value=TEXMFDIST`;;
- *) return;;
- esac
-}
-
-###############################################################################
-# setupTexmfvar()
-# get value for MT_TEXMFVAR (with caching)
-###############################################################################
-setupTexmfvar()
-{
- case $MT_TEXMVAR in
- "") MT_TEXMVAR=`kpsewhich -var-value=TEXMFVAR`;;
- *) return;;
- esac
-}
-
-###############################################################################
-# setupSystexmf()
-# get value for MT_SYSTEXMF (with caching)
-###############################################################################
-setupSystexmf()
-{
- case $MT_SYSTEXMF in
- "") MT_SYSTEXMF=`kpsewhich -var-value=SYSTEXMF`;;
- *) return;;
- esac
-}
-
-###############################################################################
-# abort(errmsg)
-# print `errmsg' to stderr and exit with error code 1
-###############################################################################
-abort()
-{
- echo "$progname: $1." >&2
- cleanup 1
-}
-
-###############################################################################
-# mktexdir(args)
-# call mktexdir script, disable all features (to prevent sticky directories)
-###############################################################################
-mktexdir()
-{
- setupTexmfmain
- MT_FEATURES=none "$MT_TEXMFMAIN/web2c/mktexdir" "$@" >&2
-}
-
-###############################################################################
-# tcfmgr(args)
-# call tcfmgr script
-###############################################################################
-tcfmgr()
-{
- setupTexmfmain
- "$MT_TEXMFMAIN/texconfig/tcfmgr" "$@"
-}
-
-###############################################################################
-# mktexupd(args)
-# call mktexupd script
-###############################################################################
-mktexupd()
-{
- setupTexmfmain
- "$MT_TEXMFMAIN/web2c/mktexupd" "$@"
-}
-
-###############################################################################
-# getRelDir(file)
-# matches file against SYSTEXMF. Returns relative directory of file within
-# a texmf tree in variable relPart.
-###############################################################################
-getRelDir()
-{
- file=$1
- relPart=
-
- setupSystexmf
- OLDIFS=$IFS
- IFS='
-'
- set x `echo "$MT_SYSTEXMF" | tr : '
-'`; shift
- IFS=$OLDIFS
-
- # now loop over all components of SYSTEXMF
- for dir
- do
- test -n "$dir" || continue
- case "$file" in
- $dir/*)
- relPart=`echo "$file" | sed "s%$dir/*%%"`
- break
- ;;
- esac
- done
-
- # now check for success / failure
- case $relPart in
- ""|$file)
- # empty or full filename -> getRelDir failed!
- (exit 1); return 1
- ;;
- *)
- # relPart should just have the "dirname" part:
- relPart=`echo "$relPart" | sed 's%/*[^/]*$%%'`
- (exit 0); return 0
- ;;
- esac
-}
-
-###############################################################################
-# configReplace(file, pattern, line)
-# The first line in file that matches pattern gets replaced by line.
-# line will be added at the end of the file if pattern does not match.
-###############################################################################
-configReplace()
-{
- configReplaceFile=$1; configReplacePat=$2; configReplaceLine=$3
-
- if grep "$configReplacePat" "$configReplaceFile" >/dev/null; then
- ed "$configReplaceFile" >/dev/null 2>&1 <<-eof
- /$configReplacePat/c
- $configReplaceLine
- .
- w
- q
-eof
- else
- echo "$configReplaceLine" >> $configReplaceFile
- fi
-}
-
-###############################################################################
-# fmgrConfigReplace (file regex value)
-# replaces line matching regex by value in file
-###############################################################################
-fmgrConfigReplace()
-{
- fmgrConfigReplaceChanged=false
-
- moreArgs=""
- while
- case $1 in
- --*) moreArgs="$moreArgs $1 $2";;
- *) break;;
- esac
- do shift; shift; done
- fmgrConfigReplaceFile=$1
- fmgrConfigReplaceRegex=$2
- fmgrConfigReplaceValue=$3
-
- setupTmpDir
- co=`tcfmgr $moreArgs --tmp $tmpdir --cmd co --file $fmgrConfigReplaceFile`
- if test $? != 0; then
- echo "$progname: fmgrConfigReplace co failed for \`$fmgrConfigReplaceFile'" >&2
- (exit 1); return 1
- fi
- set x $co; shift
- fmgrConfigReplaceID=$1; fmgrConfigReplaceCfgFile=$3; fmgrConfigReplaceOrigFile=$4
- configReplace "$fmgrConfigReplaceCfgFile" "$fmgrConfigReplaceRegex" "$fmgrConfigReplaceValue"
- ci=`tcfmgr --tmp $tmpdir --cmd ci --id "$fmgrConfigReplaceID"`
- if test $? != 0; then
- echo "$progname: fmgrConfigReplace ci failed for \`$fmgrConfigReplaceFile'" >&2
- (exit 1); return 1
- fi
- case $ci in
- "") :;;
- $lastUpdatedFile)
- fmgrConfigReplaceChanged=true;;
- *) echo "$progname: updated configuration saved as file \`$ci'" >&2
- fmgrConfigReplaceChanged=true
- lastUpdatedFile=$ci;;
- esac
- (exit 0); return 0
-}
-
-###############################################################################
-# setupDvipsPaper(paper)
-# rearranges config.ps to make paper the first paper definition
-###############################################################################
-setupDvipsPaper()
-{
- setupDvipsPaperChanged=false
- setupDvipsPaperFile=config.ps
- setupDvipsPaperDftPaper=$1
-
- setupTmpDir
- co=`tcfmgr --tmp $tmpdir --cmd co --file $setupDvipsPaperFile`
- if test $? != 0; then
- echo "$progname: setupDvipsPaper co failed for \`$setupDvipsPaperFile'" >&2
- (exit 1); return 1
- fi
- set x $co; shift
- setupDvipsPaperID=$1; setupDvipsPaperCfgFile=$3; setupDvipsPaperOrigFile=$4
-
- ed "$setupDvipsPaperCfgFile" > /dev/null 2>&1 <<-eof
- /@ /ka
- \$a
- @
- .
- /@ $setupDvipsPaperDftPaper /;/@ /-1m'a-1
- \$d
- w
- q
-eof
-
- ci=`tcfmgr --tmp $tmpdir --cmd ci --id "$setupDvipsPaperID"`
- if test $? != 0; then
- echo "$progname: setupDvipsPaper ci failed for \`$setupDvipsPaperFile'" >&2
- (exit 1); return 1
- fi
- case $ci in
- "") :;;
- $lastUpdatedFile)
- setupDvipsPaperChanged=true;;
- *) echo "$progname: updated configuration saved as file \`$ci'" >&2
- setupDvipsPaperChanged=true
- lastUpdatedFile=$ci;;
- esac
- (exit 0); return 0
-}
-
-###############################################################################
-# setupModesMfFile(void)
-# find modes.mf file (with caching)
-###############################################################################
-setupModesMfFile()
-{
- case $modesMfFile in
- "")
- modesMfFile=`tcfmgr --cmd find --file modes.mf`
- ;;
- *)
- return
- ;;
- esac
-}
-
-###############################################################################
-# locateConfigPsFile(void)
-# find config.ps file (with caching)
-###############################################################################
-locateConfigPsFile()
-{
- case $configPsFile in
- "")
- configPsFile=`tcfmgr --cmd find --file config.ps`
- ;;
- *)
- return
- ;;
- esac
-}
-
-###############################################################################
-# listMfModes(file)
-# list modes from modes.mf file
-###############################################################################
-listMfModes()
-{
- grep mode_def "$modesMfFile" |
- sed -e "s/mode_def //" \
- -e "s/ .*%[^ ]* / '/" \
- -e "s/\$/' /" |
- egrep -v "^(help|%)" | sort
-}
-
-###############################################################################
-# listDvipsPapers(void)
-# list paper definitions from config.ps
-###############################################################################
-listDvipsPapers()
-{
- grep '@ ' $configPsFile | sed "s/..//;s/ / '/;s/\$/' /"
-}
-
-###############################################################################
-# getFormatsForHyphen(void)
-# list all formats which have customizable hyphenation
-###############################################################################
-getFormatsForHyphen()
-{
- fmtutil --catcfg | awk '$3 != "-" {print $1}' | sort
-}
-
-###############################################################################
-# getRes(mode)
-# print resolution (both X and Y axis) to metafont mode
-###############################################################################
-getRes()
-{
- getResMode=$1
- (
- cd $tmpdir
- cat >mftmp.mf <<-'eof'
- let myexit = primitive_end_;
- mode_setup;
- string xdpi;
- xdpi := decimal round pixels_per_inch;
- message "XDPI = " & xdpi;
- string ydpi;
- ydpi := decimal round (pixels_per_inch * aspect_ratio);
- message "YDPI = " & ydpi;
- fontmaking := 0;
- myexit;
-eof
- mf '\mode='"$getResMode"'; \input ./mftmp' </dev/null \
- | awk '$1 == "XDPI" || $1 == "YDPI" { print $3 }'
- )
-}
-
-###############################################################################
-# checkElemInList(elem, list)
-# check if element exists in list
-###############################################################################
-checkElemInList()
-{
- checkElemInListElem=$1; shift
- checkElemInListFound=false
- for checkElemInListIter
- do
- case "x$checkElemInListElem" in
- x$checkElemInListIter)
- checkElemInListFound=true
- break
- ;;
- esac
- done
- case $checkElemInListFound in
- true) (exit 0); return 0;;
- esac
- (exit 1); return 1
-}
-
-
-###############################################################################
-# tcBatch(args)
-# handle batch mode
-###############################################################################
-tcBatch()
-{
- help="Usage: $progname conf
- $progname dvipdfmx paper PAPER
- $progname dvipdfm paper PAPER
- $progname dvips [options]
- $progname faq
- $progname font vardir DIR
- $progname font ro
- $progname font rw
- $progname formats
- $progname hyphen FORMAT
- $progname init [format]
- $progname mode MODE
- $progname paper PAPER
- $progname pdftex [options]
- $progname rehash
- $progname xdvi paper PAPER
-
-Get more help with
- $progname dvipdfmx paper
- $progname dvipdfm paper
- $progname dvips
- $progname font
- $progname mode
- $progname paper
- $progname pdftex
- $progname xdvi paper"
-
- case $1 in
- # texconfig conf
- conf|confall)
- setupTexmfmain
- setupTexmfdist
- echo '=========================== version information =========================='
- if test -f $MT_TEXMFMAIN/release-tetex-src.txt; then
- echo "teTeX-src release: `cat $MT_TEXMFMAIN/release-tetex-src.txt`"
- else
- echo "teTeX-src release: (info not available)"
- fi
- if test -f $MT_TEXMFDIST/release-tetex-texmf.txt; then
- echo "teTeX-texmf release: `cat $MT_TEXMFDIST/release-tetex-texmf.txt`"
- else
- echo "teTeX-texmf release: (info not available)"
- fi
- echo
- echo '==================== binaries found by searching $PATH ==================='
- echo "PATH=$PATH"
- echoLocateBinary kpsewhich updmap fmtutil texconfig tex pdfetex mktexpk dvips dvipdfm
- echo
- echo '=========================== active config files =========================='
- echoLocateCfgfile texmf.cnf updmap.cfg fmtutil.cnf config.ps mktex.cnf XDvi pdftexconfig.tex config | sort +1
- echo
- echo '============================= font map files ============================='
- for m in psfonts.map pdftex.map ps2pk.map dvipdfm.map; do
- echo "$m: `kpsewhich $m`"
- done
- echo
- echo '=========================== kpathsea variables ==========================='
- echoShowKpseVariable TEXMFMAIN TEXMFDIST TEXMFLOCAL TEXMFSYSVAR TEXMFSYSCONFIG TEXMFVAR TEXMFCONFIG TEXMFHOME VARTEXFONTS TEXMF SYSTEXMF TEXMFDBS WEB2C TEXPSHEADERS TEXCONFIG ENCFONTS TEXFONTMAPS
-
- echo
- echo '==== kpathsea variables (from environment only; ok if no output here) ===='
- echoShowVariable $envVars
- ;;
-
- # texconfig dvipdfm
- dvipdfm)
- help="Usage: $progname dvipdfm paper PAPER
-
-Valid PAPER settings:
- letter legal ledger tabloid a4 a3"
- case $2 in
- # texconfig dvipdfm paper
- paper-list)
- for p in letter legal ledger tabloid a4 a3; do echo $p; done
- ;;
- paper)
- case $3 in
- letter|legal|ledger|tabloid|a4|a3)
- fmgrConfigReplace config '^p' "p $3";;
- "") echo "$help" >&2; rc=1;;
- *)
- echo "$progname: unknown PAPER \`$3' given as argument for \`$progname dvipdfm paper'" >&2
- echo "$progname: try \`$progname dvipdfm paper' for help" >&2
- rc=1 ;;
- esac ;;
- # texconfig dvipdfm ""
- "")
- echo "$help" >&2; rc=1 ;;
- # texconfig dvipdfm <unknown>
- *)
- echo "$progname: unknown option \`$2' given as argument for \`$progname dvipdfm'" >&2
- echo "$progname: try \`$progname dvipdfm' for help" >&2
- rc=1
- ;;
- esac
- ;;
-
- # texconfig dvipdfmx
- dvipdfmx)
- help="Usage: $progname dvipdfmx paper PAPER
-
-Valid PAPER settings:
- letter legal ledger tabloid a4 a3"
- case $2 in
- # texconfig dvipdfmx paper
- paper-list)
- for p in letter legal ledger tabloid a4 a3; do echo $p; done
- ;;
- paper)
- case $3 in
- letter|legal|ledger|tabloid|a4|a3)
- fmgrConfigReplace dvipdfmx.cfg '^p' "p $3";;
- "") echo "$help" >&2; rc=1;;
- *)
- echo "$progname: unknown PAPER \`$3' given as argument for \`$progname dvipdfmx paper'" >&2
- echo "$progname: try \`$progname dvipdfmx paper' for help" >&2
- rc=1 ;;
- esac ;;
- # texconfig dvipdfmx ""
- "")
- echo "$help" >&2; rc=1 ;;
- # texconfig dvipdfmx <unknown>
- *)
- echo "$progname: unknown option \`$2' given as argument for \`$progname dvipdfmx'" >&2
- echo "$progname: try \`$progname dvipdfmx' for help" >&2
- rc=1
- ;;
- esac
- ;;
-
- # texconfig dvips
- dvips)
- shift
- help="Usage: $progname dvips add PRINTER
- $progname dvips del PRINTER
- $progname dvips paper PAPER
- $progname dvips [-P PRINTER] mode MODE
- $progname dvips [-P PRINTER] offset OFFSET
- $progname dvips [-P PRINTER] printcmd CMD"
- case $1 in
- -P)
- case $2 in
- "")
- echo "$progname: missing arg for parameter -P" >&2
- rc=1; (exit $rc); return $rc
- ;;
- *)
- otherPrinter=true
- otherPrinterName=$2
- otherPrinterFile=`kpsewhich -format='dvips config' "config.$otherPrinterName"`
- case $otherPrinterFile in
- "")
- echo "$progname: configuration file \`config.$otherPrinterName' for printer \`$otherPrinterName' not found" >&2
- rc=1; (exit $rc); return $rc
- ;;
- *) shift; shift;;
- esac
- ;;
- esac
- ;;
- *)
- otherPrinter=false
- ;;
- esac
- case $otherPrinter in
- true)
- tcBatchDvipsPrinter=$otherPrinterName
- moreFmgrArgs="--reldir dvips/config --infile $otherPrinterFile"
- ;;
- *)
- tcBatchDvipsPrinter=ps
- ;;
- esac
- case $1 in
- add)
- case $2 in
- "")
- echo "Usage: $progname dvips add PRINTER" >&2
- rc=1
- ;;
- *)
- printerName=$2
- pFile=`kpsewhich -format='dvips config' "config.$printerName"`
- case $pFile in
- "")
- setupTmpDir
- tcfRet=`tcfmgr --emptyinfile --reldir dvips/config --cmd co --tmp $tmpdir --file "config.$printerName"`
- if test $? != 0; then
- echo "$progname: failed to add new configuration file \`config.$printerName'" >&2
- rc=1
- else
- set x $tcfRet; shift
- tcBatchDvipsAddID=$1; tcBatchDvipsAddFile=$3
- echo "% file config.$printerName; added by texconfig" > "$tcBatchDvipsAddFile"
- tcfRet=`tcfmgr --tmp $tmpdir --id "$tcBatchDvipsAddID" --cmd ci`
- if test $? != 0; then
- echo "$progname: failed to add new configuration file \`config.$printerName'" >&2
- rc=1
- else
- echo "$progname: file $tcfRet added" >&2
- fi
- fi
- ;;
- *)
- echo "$progname: configuration file for printer \`$printerName' already exists (\`$pFile')" >&2
- rc=1
- ;;
- esac
- ;;
- esac
- ;;
- del)
- case $2 in
- "")
- echo "Usage: $progname dvips del PRINTER" >&2
- rc=1
- ;;
- *)
- printerName=$2
- pFile=`kpsewhich -format='dvips config' "config.$printerName"`
- case $pFile in
- "")
- echo "$progname: configuration file for printer \`$printerName' (config.$printerName) not found" >&2
- rc=1
- ;;
- *)
- if rm "$pFile"; then
- echo "$progname: file \`$pFile' removed" >&2
- else
- echo "$progname: failed to remove file \`$pFile'" >&2
- rc=1
- fi
- ;;
- esac
- ;;
- esac
- ;;
- paper-list)
- locateConfigPsFile
- listDvipsPapers
- ;;
- paper)
- case $2 in
- "")
- echo "Usage: $progname dvips paper PAPER" >&2
- echo >&2; echo "Valid PAPER settings:" >&2
- locateConfigPsFile
- listDvipsPapers | sed 's@ .*@@; s@^@ @' | myFmt
- rc=1
- ;;
- *)
- tcBatchDvipsPaper=$2
- locateConfigPsFile
- case "$configPsFile" in
- "")
- echo "$progname: file config.ps not found" >&2; rc=1
- ;;
- *)
- if grep "@ $tcBatchDvipsPaper " $configPsFile >/dev/null 2>&1; then
- setupDvipsPaper "$tcBatchDvipsPaper"
- else
- echo "$progname: paper \`$tcBatchDvipsPaper' not found in file \`$configPsFile'" >&2; rc=1
- fi
- ;;
- esac
- ;;
- esac
- ;;
- mode)
- case $2 in
- "")
- echo "Usage: $progname dvips mode MODE
-
-Valid MODE settings:"
- setupModesMfFile
- listMfModes | sed 's@ .*@@; s@^@ @' | myFmt
- rc=1
- ;;
- *)
- tcBatchDvipsMode=$2
- setupTmpDir
- setupModesMfFile
- if checkElemInList "$tcBatchDvipsMode" `listMfModes | sed 's@ .*@@'`; then
- set x `getRes "$tcBatchDvipsMode"`; shift
- resX=$1; resY=$2
- fmgrConfigReplace $moreFmgrArgs config.$tcBatchDvipsPrinter '^M' "M $tcBatchDvipsMode"
- fmgrConfigReplace $moreFmgrArgs config.$tcBatchDvipsPrinter '^D' "D $resX"
- fmgrConfigReplace $moreFmgrArgs config.$tcBatchDvipsPrinter '^X' "X $resX"
- fmgrConfigReplace $moreFmgrArgs config.$tcBatchDvipsPrinter '^Y' "Y $resY"
- else
- echo "$progname: unknown MODE \`$tcBatchDvipsMode' given as argument for \`$progname dvips mode'" >&2
- echo "$progname: try \`$progname dvips mode' for help" >&2
- rc=1
- fi
- ;;
- esac
- ;;
- offset)
- offset=$2
- case $offset in
- "")
- echo "Usage: $progname dvips offset OFFSET"
- rc=1
- ;;
- *)
- fmgrConfigReplace $moreFmgrArgs config.$tcBatchDvipsPrinter '^O' "O $offset"
- esac
- ;;
- printcmd)
- printcmd=$2
- case $printcmd in
- "")
- echo "Usage: $progname dvips printcmd CMD"
- rc=1
- ;;
- -)
- fmgrConfigReplace $moreFmgrArgs config.$tcBatchDvipsPrinter '^o' o
- ;;
- *)
- fmgrConfigReplace $moreFmgrArgs config.$tcBatchDvipsPrinter '^o' "o |$printcmd"
- ;;
- esac
- ;;
- "")
- echo "$help" >&2; rc=1
- ;;
- *)
- echo "$progname: unknown option \`$1' given as argument for \`$progname dvips'" >&2
- echo "$progname: try \`$progname dvips' for help" >&2
- rc=1
- ;;
- esac
- ;;
-
- faq)
- setupTexmfmain
- if test -f $MT_TEXMFMAIN/doc/tetex/teTeX-FAQ; then
- <$MT_TEXMFMAIN/doc/tetex/teTeX-FAQ eval ${PAGER-more}
- else
- echo "$progname: faq not found (usually in \$TEXMFMAIN/doc/tetex/teTeX-FAQ)" >&2
- rc=1
- fi
- ;;
-
- # handle "texconfig font"
- font)
- help="Usage: $progname font vardir DIR
- $progname font ro
- $progname font rw
-
-The vardir option changes the VARTEXFONTS variable in the texmf.cnf file.
-
-The rw option makes the VARTEXFONTS directory (and subtrees pk, tfm,
-source) world writable and sets the features appendonlydir:varfonts
-in mktex.cnf.
-
-The ro option makes the VARTEXFONTS directory (and subtrees pk, tfm,
-source) writable for the owner only and sets the feature texmfvar in
-mktex.cnf.
-
-For more information about these \`features', consult the teTeX manual
-(e.g. by running \`texdoc TETEXDOC')."
-
- case $2 in
- vardir)
- case $3 in
- "")
- echo "$help" >&2
- rc=1
- ;;
- *)
- tcBatchFontVardir=$3
- tfc=`kpsewhich texmf.cnf`
- if test -n "$tfc"; then
- if test -w "$tfc"; then
- configReplace "$tfc" '^VARTEXFONTS' "VARTEXFONTS = $tcBatchFontVardir"
- else
- echo "$progname: setting up vardir failed. Reason: no permission to write file \`$tfc'" >&2
- rc=1
- fi
- else
- echo "$progname: setting up vardir failed. Reason: failed to find file texmf.cnf" >&2
- rc=1
- fi
- ;;
- esac
- ;;
- rw)
- MT_VARTEXFONTS=`kpsewhich -var-value VARTEXFONTS`
- if test -z "$MT_VARTEXFONTS"; then
- echo "$progname: failed to set \`font rw'; reason: could not determine VARTEXFONTS variable." >&2; rc=1
- return
- fi
- test -d "$MT_VARTEXFONTS" || mktexdir "$MT_VARTEXFONTS"
- if test ! -d "$MT_VARTEXFONTS"; then
- echo "$progname: failed to set \`font rw'; reason: directory \`$MT_VARTEXFONTS' does not exist." >&2; rc=1
- return
- fi
- chmod 1777 "$MT_VARTEXFONTS" || {
- echo "$progname: failed to modify permissions in \`$MT_VARTEXFONTS'." >&2; rc=1
- return;
- }
- (
- cd "$MT_VARTEXFONTS" || exit
- echo "$progname: modifying permissions in \`$MT_VARTEXFONTS' ..." >&2
- for d in pk tfm source; do
- test -d "$d" && find $d -type d -exec chmod 1777 '{}' \;
- done
- echo "$progname: all permissions set." >&2
- )
- setupTmpDir
- fmgrConfigReplace mktex.cnf '^: ..MT_FEATURES=' ": \${MT_FEATURES=appendonlydir:varfonts}"
- ;;
- ro)
- MT_VARTEXFONTS=`kpsewhich -var-value VARTEXFONTS`
- if test -z "$MT_VARTEXFONTS"; then
- echo "$progname: failed to set \`font ro'; reason: could not determine VARTEXFONTS variable." >&2; rc=1
- return
- fi
- test -d "$MT_VARTEXFONTS" || mktexdir "$MT_VARTEXFONTS"
- if test ! -d "$MT_VARTEXFONTS"; then
- echo "$progname: failed to set \`font ro'; reason: directory \`$MT_VARTEXFONTS' does not exist." >&2; rc=1
- return
- fi
- chmod 755 "$MT_VARTEXFONTS" || {
- echo "$progname: failed to modify permissions in \`$MT_VARTEXFONTS'." >&2; rc=1
- return;
- }
- (
- cd "$MT_VARTEXFONTS" || exit
- echo "$progname: modifying permissions in \`$MT_VARTEXFONTS' ..." >&2
- for d in pk tfm source; do
- test -d "$d" && find "$d" -type d -exec chmod 755 '{}' \;
- done
- echo "$progname: all permissions set." >&2
- )
- setupTmpDir
- fmgrConfigReplace mktex.cnf '^: ..MT_FEATURES=' ": \${MT_FEATURES=texmfvar}"
- ;;
- "") echo "$help" >&2; rc=1;;
- *) echo "$progname: unknown option \`$2' given as argument for \`$progname font'" >&2
- echo "$progname: try \`$progname font' for help" >&2
- rc=1
- ;;
- esac
- ;;
-
- formats)
- setupTmpDir
- echo "$progname: analyzing old configuration..." >&2
- fmtutil --catcfg > $tmpdir/pre
- fmtutil --edit
- echo "$progname: analyzing new configuration..." >&2
- fmtutil --catcfg > $tmpdir/post
-
- if cmp $tmpdir/pre $tmpdir/post >/dev/null 2>&1; then
- echo "$progname: no new/updated formats available ..." >&2
- else
- echo "$progname: updating formats ..." >&2
- comm -13 $tmpdir/pre $tmpdir/post > $tmpdir/addOrChange
- for i in `awk '{print $1}' $tmpdir/addOrChange`; do
- fmtutil --byfmt "$i" || rc=1
- done
- texlinks --multiplatform || rc=1
- fi
- ;;
- help)
- echo "$help"
- ;;
-
- # "hyphen FORMAT"
- hyphen)
- tcBatchHyphenFormat=$2
- formatsForHyphen=`getFormatsForHyphen`
- formatsForHyphenFmt=`echo "$formatsForHyphen" | myFmt | sed 's@^@ @'`
- help="Usage: $progname hyphen FORMAT
-
-Valid FORMATs are:
-$formatsForHyphenFmt"
- case $tcBatchHyphenFormat in
- "")
- echo "$help" >&2; rc=1
- ;;
- *)
- if checkElemInList "$tcBatchHyphenFormat" $formatsForHyphen; then
-
- tcBatchHyphenFile=`fmtutil --showhyphen "$tcBatchHyphenFormat"`
- case $tcBatchHyphenFile in
- "")
- echo "$progname: could not find hyphen setup file for format \`$tcBatchHyphenFormat'" >&2
- rc=1
- return
- ;;
- esac
-
- getRelDir "$tcBatchHyphenFile"
- case $relPart in
- "")
- # edit tcBatchHyphenFile directly
- tcBatchHFID=
- setupTmpDir
- tcBatchHFEdit=$tcBatchHyphenFile
- tcBatchHFOrig=$tmpdir/hforig
- cp "$tcBatchHyphenFile" "$tcBatchHFOrig"
- ;;
- *)
- # use tcfmgr
- tcBatchHyphenFileBasename=`echo "$tcBatchHyphenFile" | sed 's@.*/@@'`
- setupTmpDir
- co=`tcfmgr --tmp $tmpdir --cmd co --file "$tcBatchHyphenFileBasename" --reldir "$relPart" --infile "$tcBatchHyphenFile"`
- if test $? != 0; then
- echo "$progname: failed to check out file \`$tcBatchHyphenFile'" >&2
- rc=1
- return 1
- else
- set x $co; shift
- tcBatchHFID=$1; tcBatchHFEdit=$3; tcBatchHFOrig=$4
- fi
- ;;
- esac
- ${VISUAL-${EDITOR-vi}} "$tcBatchHFEdit"
- if cmp "$tcBatchHFEdit" "$tcBatchHFOrig" >/dev/null 2>&1; then
- echo "$progname: configuration unchanged." >&2
- else
- case $tcBatchHFID in
- "")
- tcBatchHFOut=$tcBatchHFEdit
- echo "$progname: updated configuration saved as file \`$tcBatchHFOut'" >&2
- lastUpdatedFile=$ci
- ;;
- *)
- ci=`tcfmgr --tmp $tmpdir --cmd ci --id "$tcBatchHFID"`
- if test $? != 0; then
- echo "$progname: failed to check in file \`$tcBatchHyphenFileBasename'" >&2
- rc=1
- return
- else
- tcBatchHFOut=$ci
- echo "$progname: updated configuration saved as file \`$tcBatchHFOut'" >&2
- lastUpdatedFile=$ci
- fi
- ;;
- esac
- fmtutil --byhyphen "$tcBatchHFOut"
- fi
- else
- echo "$progname: invalid format \`$tcBatchHyphenFormat' specified as argument for \`$progname hyphen'" >&2
- echo "$progname: for getting help, try \`$progname hyphen'" >&2
- rc=1
- fi
- ;;
- esac
- ;;
-
- hyphen-list)
- getFormatsForHyphen
- ;;
-
- init)
- case $2 in
- "")
- fmtutil --all || rc=1
- texlinks --multiplatform || rc=1
- updmap || rc=1
- ;;
- *)
- fmtutil --byfmt "$2" || rc=1
- ;;
- esac
- ;;
-
- mode-list)
- setupModesMfFile
- listMfModes
- ;;
-
- mode)
- case $2 in
- "")
- echo "Usage: $progname mode MODE
-
-Valid MODE settings:"
- setupModesMfFile
- listMfModes | sed 's@ .*@@; s@^@ @' | myFmt
- rc=1
- ;;
- *)
- tcBatchMode=$2
- setupModesMfFile
- if checkElemInList $tcBatchMode `listMfModes | sed 's@ .*@@'`; then
-
- # modify mktex.cnf
- setupTmpDir
- fmgrConfigReplace mktex.cnf '^: ..MODE=' ": \${MODE=$tcBatchMode}"
- set x `getRes "$tcBatchMode"`; shift
- tcBatchRes=$1
- fmgrConfigReplace mktex.cnf '^: ..BDPI=' ": \${BDPI=$tcBatchRes}"
-
- if checkForBinary dvips >/dev/null && tcfmgr --cmd find --file config.ps >/dev/null 2>&1; then
- tcBatch dvips mode "$tcBatchMode"
- fi
- if checkForBinary pdfetex >/dev/null && tcfmgr --cmd find --file pdftexconfig.tex >/dev/null 2>&1; then
- tcBatch pdftex mode "$tcBatchMode"
- fi
- else
- echo "$progname: unknown mode \`$tcBatchMode' specified as argument for \`$progname mode'" >&2; rc=1
- fi
- ;;
- esac
- ;;
-
- paper)
- help="Usage: $progname paper PAPER
-
-Valid PAPER settings:
- letter a4"
-
- p=$2; pXdvi=$2; pDvips=$2
- case $2 in
- a4)
- pDvips=A4size
- ;;
- letter)
- pDvips=letterSize
- pXdvi=us
- ;;
- "") echo "$help" >&2; rc=1; return;;
- *)
- echo "$progname: unknown PAPER \`$2' given as argument for \`$progname paper'" >&2
- echo "$progname: try \`$progname paper' for help" >&2
- rc=1
- return;;
- esac
- if checkForBinary dvips >/dev/null && tcfmgr --cmd find --file config.ps >/dev/null 2>&1; then
- tcBatch dvips paper $pDvips
- fi
- if checkForBinary dvipdfm >/dev/null && tcfmgr --cmd find --file config >/dev/null 2>&1; then
- tcBatch dvipdfm paper $p
- fi
- if checkForBinary dvipdfmx >/dev/null && tcfmgr --cmd find --file dvipdfmx.cfg >/dev/null 2>&1; then
- tcBatch dvipdfmx paper $p
- fi
- if checkForBinary xdvi >/dev/null && tcfmgr --cmd find --file XDvi >/dev/null 2>&1; then
- tcBatch xdvi paper $pXdvi
- fi
- if checkForBinary pdfetex >/dev/null && tcfmgr --cmd find --file pdftexconfig.tex >/dev/null 2>&1; then
- tcBatch pdftex paper $p
- fi
- ;;
-
- pdftex)
- help="Usage: $progname pdftex paper PAPER
-
-Valid PAPER settings:
- a4 letter"
- case $2 in
-
- mode)
- case $3 in
- "")
- echo "Usage: $progname pdftex mode MODE"
- rc=1
- ;;
- *)
- tcBatchPdftexMode=$3
- setupTmpDir
- setupModesMfFile
- if checkElemInList "$tcBatchPdftexMode" `listMfModes | sed 's@ .*@@'`; then
- set x `getRes "$tcBatchPdftexMode"`; shift
- fmgrConfigReplace pdftexconfig.tex 'pdfpkresolution' "\\pdfpkresolution=$1"
- if $fmgrConfigReplaceChanged; then
- fmtutil --all
- fi
- else
- echo "$progname: unknown MODE \`$tcBatchPdftexMode' given as argument for \`$progname pdftex mode'" >&2
- rc=1
- fi
- ;;
- esac
- ;;
-
- paper)
- case $3 in
- letter)
- w="8.5 true in"; h="11 true in"
- setupTmpDir
- fmgrConfigReplace pdftexconfig.tex pdfpagewidth '\pdfpagewidth='"$w"
- wChanged=$fmgrConfigReplaceChanged
- fmgrConfigReplace pdftexconfig.tex pdfpageheight '\pdfpageheight='"$h"
- if $wChanged || $fmgrConfigReplaceChanged; then
- fmtutil --all
- fi
- ;;
- a4)
- w="210 true mm"; h="297 true mm"
- fmgrConfigReplace pdftexconfig.tex pdfpagewidth '\pdfpagewidth='"$w"
- wChanged=$fmgrConfigReplaceChanged
- fmgrConfigReplace pdftexconfig.tex pdfpageheight '\pdfpageheight='"$h"
- if $wChanged || $fmgrConfigReplaceChanged; then
- fmtutil --all
- fi
- ;;
- "") echo "$help" >&2; rc=1;;
- *)
- echo "$progname: unknown PAPER \`$3' given as argument for \`$progname pdftex paper'" >&2
- echo "$progname: try \`$progname pdftex paper' for help" >&2
- rc=1 ;;
- esac ;;
- "")
- echo "$help" >&2; rc=1;;
- *)
- echo "$progname: unknown option \`$2' given as argument for \`$progname pdftex'" >&2
- echo "$progname: try \`$progname pdftex' for help" >&2
- rc=1
- ;;
- esac
- ;;
-
- rehash)
- mktexlsr
- ;;
-
- # handle "xdvi paper PAPER"
- xdvi)
- tcBatchXdviPapers='us "8.5x11"
-usr "11x8.5"
-legal "8.5x14"
-foolscap "13.5x17.0"
-a1 "59.4x84.0cm"
-a2 "42.0x59.4cm"
-a3 "29.7x42.0cm"
-a4 "21.0x29.7cm"
-a5 "14.85x21.0cm"
-a6 "10.5x14.85cm"
-a7 "7.42x10.5cm"
-a1r "84.0x59.4cm"
-a2r "59.4x42.0cm"
-a3r "42.0x29.7cm"
-a4r "29.7x21.0cm"
-a5r "21.0x14.85cm"
-a6r "14.85x10.5cm"
-a7r "10.5x7.42cm"
-b1 "70.6x100.0cm"
-b2 "50.0x70.6cm"
-b3 "35.3x50.0cm"
-b4 "25.0x35.3cm"
-b5 "17.6x25.0cm"
-b6 "13.5x17.6cm"
-b7 "8.8x13.5cm"
-b1r "100.0x70.6cm"
-b2r "70.6x50.0cm"
-b3r "50.0x35.3cm"
-b4r "35.3x25.0cm"
-b5r "25.0x17.6cm"
-b6r "17.6x13.5cm"
-b7r "13.5x8.8cm"
-c1 "64.8x91.6cm"
-c2 "45.8x64.8cm"
-c3 "32.4x45.8cm"
-c4 "22.9x32.4cm"
-c5 "16.2x22.9cm"
-c6 "11.46x16.2cm"
-c7 "8.1x11.46cm"
-c1r "91.6x64.8cm"
-c2r "64.8x45.8cm"
-c3r "45.8x32.4cm"
-c4r "32.4x22.9cm"
-c5r "22.9x16.2cm"
-c6r "16.2x11.46cm"
-c7r "11.46x8.1cm"'
- help="Usage: $progname xdvi paper PAPER
-
-Valid PAPER settings:
- a1 a1r a2 a2r a3 a3r a4 a4r a5 a5r a6 a6r a7 a7r
- b1 b1r b2 b2r b3 b3r b4 b4r b5 b5r b6 b6r b7 b7r
- c1 c1r c2 c2r c3 c3r c4 c4r c5 c5r c6 c6r c7 c7r
- foolscap legal us usr"
- case $2 in
- paper-list)
- echo "$tcBatchXdviPapers"
- ;;
- paper)
- case $3 in
- a1|a1r|a2|a2r|a3|a3r|a4|a4r|a5|a5r|a6|a6r|a7|a7r|b1|b1r|b2|b2r|b3|b3r|b4|b4r|b5|b5r|b6|b6r|b7|b7r|c1|c1r|c2|c2r|c3|c3r|c4|c4r|c5|c5r|c6|c6r|c7|c7r|foolscap|legal|us|usr)
- fmgrConfigReplace XDvi paper: "*paper: $3"
- ;;
- "") echo "$help" >&2; rc=1;;
- *)
- echo "$progname: unknown PAPER \`$3' given as argument for \`$progname xdvi paper'" >&2
- echo "$progname: try \`$progname xdvi paper' for help" >&2
- rc=1 ;;
- esac ;;
- "")
- echo "$help" >&2; rc=1;;
- *)
- echo "$progname: unknown option \`$2' given as argument for \`$progname xdvi'" >&2
- echo "$progname: try \`$progname xdvi' for help" >&2
- rc=1
- ;;
- esac
- ;;
- *)
- echo "$progname: unknown option \`$1' given as argument for \`$progname'" >&2
- echo "$progname: try \`$progname help' for help" >&2
- rc=1
- esac
-}
-
-###############################################################################
-# tcInteractive(void)
-# handle interactive mode
-###############################################################################
-tcInteractive()
-{
- texconfig-dialog
-}
-
-###############################################################################
-# main()
-###############################################################################
-rc=0
-case $# in
- 0) tcInteractive;;
- *) tcBatch "$@";;
-esac
-
-cleanup $rc
diff --git a/Master/bin/alpha-linux/texconfig-dialog b/Master/bin/alpha-linux/texconfig-dialog
deleted file mode 100755
index 76e1f51eea6..00000000000
--- a/Master/bin/alpha-linux/texconfig-dialog
+++ /dev/null
@@ -1,495 +0,0 @@
-#!/bin/sh
-
-# TeX-Config version 3.0
-# Thomas Esser, te@dbs.uni-hannover.de. Public domain.
-
-# invoke the right shell:
-
-test -f /bin/ksh && test -z "$RUNNING_KSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_KSH=true; export RUNNING_KSH; exec /bin/ksh $0 ${1+"$@"}; }
-unset RUNNING_KSH
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-export PATH
-
-# hack around a bug in zsh:
-test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"'
-
-# the version string
-version=1112981053 # seconds since `00:00:00 1970-01-01 UTC'
- # date '+%s' (with GNU date)
-
-: ${PAGER=more}
-progname=texconfig-dialog
-tmpdir=${TMPDIR-${TEMP-${TMP-/tmp}}}/tcdtmp.$$
-log=$tmpdir/log
-tmpmenu=$tmpdir/tmpmenu
-needsCleanup=false
-
-###############################################################################
-# cleanup()
-# clean up the temp area and exit with proper exit status
-###############################################################################
-cleanup()
-{
- rc=$1
- $needsCleanup && test -n "$tmpdir" && test -d "$tmpdir" \
- && { cd / && rm -rf "$tmpdir"; }
- termCtl reset
- (exit $rc); exit $rc
-}
-
-###############################################################################
-# setupTmpDir()
-# set up a temp directory and a trap to remove it
-###############################################################################
-setupTmpDir()
-{
- case $needsCleanup in
- true) return;;
- esac
-
- trap 'cleanup 1' 1 2 3 7 13 15
- needsCleanup=true
- (umask 077; mkdir "$tmpdir") \
- || abort "could not create directory \`$tmpdir'"
-}
-
-###############################################################################
-# abort(errmsg)
-# print `errmsg' to stderr and exit with error code 1
-###############################################################################
-abort()
-{
- echo "$progname: $1." >&2
- cleanup 1
-}
-
-logexec()
-{
- (echo; echo ">>> Executing \`$@' <<<") >> $log
- "$@" 2>&1 | tee -a $log
-}
-
-###############################################################################
-# runDialog(args, ...)
-# execute the right dialog program with the right default parameters
-###############################################################################
-runDialog()
-{
- termCtl clear
- if test -n "$DIALOG_PROG"; then
- $DIALOG_PROG --title "TeX setup utility" ${1+"$@"}
- runDialogRc=$?
- else
- TERM=$DIALOG_TERM TERMINFO=$DIALOG_TERMINFO \
- tcdialog --title "TeX setup utility" ${1+"$@"}
- runDialogRc=$?
- fi
- termCtl clear
- (exit $runDialogRc)
- return $runDialogRc
-}
-
-###############################################################################
-# findDialog(void)
-# Some systems have their own dialog. Use it then and do not use
-# faked TERM and TERMINFO variables when calling that dialog.
-###############################################################################
-findDialog()
-{
- { u=`uname -s`; } 2>/dev/null
- case "$u" in
- FreeBSD|Linux|cygwin*|CYGWIN*)
- test -f /usr/bin/whiptail && DIALOG_PROG=/usr/bin/whiptail
- test -f /usr/bin/dialog && DIALOG_PROG=/usr/bin/dialog
- test -f /bin/dialog && DIALOG_PROG=/bin/dialog
- ;;
- esac
- case $DIALOG_PROG in
- "")
- : ${DIALOG_TERMINFO=$TEXMFMAIN/texconfig}
- : ${DIALOG_TERM=generic}
- esac
-}
-
-###############################################################################
-# mktexdir(args)
-# call mktexdir script, disable all features (to prevent sticky directories)
-###############################################################################
-mktexdir()
-{
- MT_FEATURES=none "$TEXMFMAIN/web2c/mktexdir" "$@" >&2
-}
-
-###############################################################################
-# termCtl(arg)
-# some convenience utilities for terminal control
-###############################################################################
-termCtl()
-{
- case $1 in
- clear)
- test -n "$NO_CLEAR" && return
- tty >/dev/null 2>&1 && clear
- ;;
- reset)
- test -n "$NO_CLEAR" && return
- reset 2>/dev/null
- stty sane 2>/dev/null
- reset 2>/dev/null
- termCtl clear
- ;;
- readln)
- echo
- echo "press return to continue..."
- read a
- ;;
- esac
-}
-
-###############################################################################
-# menuMain(void)
-# the main menu
-###############################################################################
-menuMain()
-{
- cat <<-'eof'
- The interactive texconfig utility will be started now. Make sure
- your screen has at least 24 rows and 80 columns. If texconfig
- crashes now, you can still set up your teTeX system using the
- batch mode of texconfig. Try 'texconfig help' to get a list
- of options.
-
- The interactive mode works best with a real vt100 terminal or
- inside an xterm window.
-eof
- termCtl readln
-
- while :; do
- logMessage='view logfile'
-
- runDialog \
- --menu "
-Hint: all output of external commands (e.g. tex) is logged into
-a file. You can look at this file using "LOG". If cursor keys make
-trouble, you may have more luck with +/- and TAB.
-" \
- 23 80 14 \
- EXIT 'exit' \
- PAPER 'default paper: A4 or letter (us)' \
- MODE 'default metafont mode and resolution' \
- REHASH 'rebuild filename databases' \
- FORMATS 'edit format definitions' \
- HYPHENATION 'customize hyphenation' \
- DVIPS 'dvips configuration' \
- FAQ 'view frequently asked questions + answers' \
- CONF 'show configuration' \
- LOG "$logMessage" \
- 2>"$tmpmenu" || break
-
- case `cat "$tmpmenu"` in
- EXIT)
- break
- ;;
- PAPER)
- menuPaper
- ;;
- MODE)
- menuMode
- ;;
- REHASH)
- logexec texconfig rehash
- termCtl readln
- ;;
- FORMATS)
- texconfig formats
- termCtl readln
- ;;
- HYPHENATION)
- menuHyphenation
- ;;
- DVIPS)
- menuDvips
- ;;
- FAQ)
- texconfig faq
- termCtl readln
- ;;
- CONF)
- logexec texconfig conf
- termCtl readln
- ;;
- LOG)
- <"$log" eval $PAGER
- termCtl readln
- ;;
- esac
- done
-}
-
-menuGetMode()
-{
- # we need eval to get the command line right... :-(
- eval \
- runDialog \
- --menu \""
-Chosse a mode to be used when metafont generates font bitmaps. The resolution is the most important point, but there might
-be differences between modes of the same resolution. See the comments in the file modes.mf for more details.
-\"" \
- 23 80 14 \
- `texconfig mode-list` 2>"$tmpmenu"
-}
-
-menuMode()
-{
- menuGetMode
- mode=`cat "$tmpmenu"`
-
- if test -n "$mode"; then
- logexec texconfig mode "$mode"
- termCtl readln
- fi
-}
-
-menuDvips()
-{
- menuDvipsDest=ps
-
- while :; do
- case $menuDvipsDest in
- ps)
- menuDvipsPrinterOpt=
- menuDvipsMsg="
-dvips GLOBAL section. Define the most common default settings (config.ps).
-To define settings for a specific printer, first ADD a printer definition,
-then CHANGE it.
-"
- ;;
- *)
- menuDvipsPrinterOpt="-P $menuDvipsDest"
- menuDvipsMsg="
-dvips settings for printer $menuDvipsDest (config.$menuDvipsDest). Define
-local settings for this printer. To switch back to global settings mode,
-select GLOBAL.
-"
- ;;
- esac
-
- runDialog \
- --menu "$menuDvipsMsg
-You can use dvips for non PostScript printers, if you can setup your
-printing system to convert PostScript to a format that your printer can
-handle. Maybe, you can use GhostScript to do the conversion (if your
-printer is supported)." \
- 23 80 9 \
- RETURN 'back to the main menu' \
- DEST 'define default destination of the generated Postscript' \
- MODE 'change metafont mode/resolution' \
- OFFSET 'shift output by some offset' \
- PAPER 'define the default paper' \
- GLOBAL 'change global settings (config.ps)' \
- CHANGE 'change printer settings (config.$PRINTER)' \
- ADD 'add a printer configuration' \
- DEL 'remove a printer configuration' \
- 2>"$tmpmenu" || break
-
- menuDvipsAns=`cat "$tmpmenu"`
- case $menuDvipsAns in
- RETURN)
- break
- ;;
- DEST)
- runDialog --inputbox "Enter the command to print.
-
-In general, you need a command like 'lpr' or 'lpr -Pfoo'.
-
-NOTE: If you just press return, printing will be disabled and the output saved to a file by default.
-" 23 80 2>"$tmpmenu"
- if test $? = 0; then
- menuDvipsAns=`cat "$tmpmenu"`
- case $menuDvipsAns in
- "")
- menuDvipsPrintOpt=-
- ;;
- *)
- menuDvipsPrintOpt=$menuDvipsAns
- ;;
- esac
- logexec texconfig dvips $menuDvipsPrinterOpt printcmd "$menuDvipsPrintOpt"
- termCtl readln
- fi
- ;;
- MODE)
- menuGetMode
- mode=`cat "$tmpmenu"`
-
- if test -n "$mode"; then
- logexec texconfig dvips $menuDvipsPrinterOpt mode "$mode"
- termCtl readln
- fi
- ;;
- OFFSET)
- runDialog --inputbox "Enter a dimension pair (a rightwards offset and a downwards
-offset), e.g. 2mm,-0.5in (right 2mm and up .5in):" 23 80 2>"$tmpmenu"; menuDvipsAns=`cat "$tmpmenu"`
- case $menuDvipsAns in
- "") : ;;
- *)
- logexec texconfig dvips $menuDvipsPrinterOpt offset "$menuDvipsAns"
- termCtl readln
- ;;
- esac
- ;;
- PAPER)
- eval runDialog \
- --menu \'\\n\\nChoose the default papersize definition for dvips.\\n\\n\' \
- 23 80 8 `texconfig dvips paper-list` \
- 2>"$tmpmenu"
- paper=`cat "$tmpmenu"`
- if test -n "$paper"; then
- logexec texconfig dvips paper "$paper"
- termCtl readln
- fi
- ;;
- GLOBAL)
- menuDvipsDest=ps
- ;;
- CHANGE)
- runDialog --inputbox "Printer name (for future settings of DEST / MODE / OFFSET)" 23 80 2>"$tmpmenu"
- menuDvipsAns=`cat $tmpmenu`
- case $menuDvipsAns in
- "") : ;;
- *) menuDvipsDest=$menuDvipsAns;;
- esac
- ;;
- ADD)
- runDialog --inputbox "Printer name (for printer to add)" 23 80 2>"$tmpmenu"
- menuDvipsAns=`cat $tmpmenu`
- case $menuDvipsAns in
- "") : ;;
- *)
- logexec texconfig dvips add $menuDvipsAns
- termCtl readln
- ;;
- esac
- ;;
- DEL)
- runDialog --inputbox "Printer name (for printer to delete)" 23 80 2>"$tmpmenu"
- menuDvipsAns=`cat $tmpmenu`
- case $menuDvipsAns in
- "") : ;;
- *)
- logexec texconfig dvips del $menuDvipsAns
- termCtl readln
- ;;
- esac
- ;;
- esac
- done
-}
-
-menuPaper()
-{
- runDialog \
- --menu "
-Select your default paper format.
-" \
- 23 80 14 \
- RETURN 'return to the main menu' \
- A4 'ISO A4 (210x297mm)' \
- LETTER 'US (8.5x11in)' 2>"$tmpmenu"
-
- p=`cat "$tmpmenu"`
- case $p in
- A4)
- logexec texconfig paper a4
- termCtl readln
- ;;
- LETTER)
- logexec texconfig paper letter
- termCtl readln
- ;;
- esac
-}
-
-menuHyphenation()
-{
- runDialog \
- --menu "
-Choose format to set up hyphenation for.
-" \
- 23 80 14 \
- `texconfig hyphen-list | sed 's@\(.*\)@\1 \1@'` 2>"$tmpmenu"
- p=`cat "$tmpmenu"`
- case $p in
- "")
- return
- ;;
- *)
- texconfig hyphen "$p"
- termCtl readln
- esac
-}
-
-# main()
-
-case $1 in
- help|--help)
- cat <<-eof
- Usage: $progname [--help|--version]
-eof
- exit 0
- ;;
- --version)
- cat <<-eof
- $progname version $version.
-eof
- exit 0
- ;;
-esac
-
-
-: ${TEXMFCONFIG=`kpsewhich -var-value=TEXMFCONFIG`}
-: ${TEXMFVAR=`kpsewhich -var-value=TEXMFVAR`}
-: ${TEXMFMAIN=`kpsewhich -var-value=TEXMFMAIN`}
-export TEXMFCONFIG TEXMFVAR TEXMFMAIN
-
-setupTmpDir
-echo "$progname: started `date`" > $log
-findDialog
-
-test -d "$TEXMFCONFIG" \
- || mktexdir "$TEXMFCONFIG" >/dev/null 2>&1 \
- || echo "$progname: directory \`$TEXMFCONFIG' (from TEXMFCONFIG variable) does not exist and cannot be created" >&2
-
-canWriteConfig=false
-if test -d "$TEXMFCONFIG"; then
- if test -w "$TEXMFCONFIG"; then
- canWriteConfig=true
- else
- echo "$progname: directory \`$TEXMFCONFIG' (from TEXMFCONFIG variable) is not writable."
- echo "$progname: configuration data cannot be changed." >&2
- fi
-fi
-
-test -d "$TEXMFVAR" \
- || mktexdir "$TEXMFVAR" >/dev/null 2>&1 \
- || echo "$progname: directory \`$TEXMFVAR' (from TEXMFVAR variable) does not exist and cannot be created" >&2
-
-canWriteVardata=false
-if test -d "$TEXMFVAR"; then
- if test -w "$TEXMFVAR"; then
- canWriteVardata=true
- else
- echo "$progname: directory \`$TEXMFVAR' (from TEXMFVAR variable) is not writable."
- echo "$progname: cached variable runtime data files cannot be written." >&2
- fi
-fi
-
-menuMain
-cleanup 0
diff --git a/Master/bin/alpha-linux/texconfig-sys b/Master/bin/alpha-linux/texconfig-sys
deleted file mode 100755
index 9d193722416..00000000000
--- a/Master/bin/alpha-linux/texconfig-sys
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/bin/sh
-
-# texconfig-sys: Thomas Esser, public domain.
-
-# wrapper script for texconfig with TEXMFVAR and TEXMFCONFIG set to
-# TEXMFSYSVAR / TEXMFSYSCONFIG
-
-test -f /bin/ksh && test -z "$RUNNING_KSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_KSH=true; export RUNNING_KSH; exec /bin/ksh $0 ${1+"$@"}; }
-unset RUNNING_KSH
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-export PATH
-
-# hack around a bug in zsh:
-test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"'
-
-v=`kpsewhich -var-value TEXMFSYSVAR`
-c=`kpsewhich -var-value TEXMFSYSCONFIG`
-
-TEXMFVAR="$v"
-TEXMFCONFIG="$c"
-export TEXMFVAR TEXMFCONFIG
-
-exec texconfig ${1+"$@"}
diff --git a/Master/bin/alpha-linux/texdoc b/Master/bin/alpha-linux/texdoc
deleted file mode 100755
index f66b3c855de..00000000000
--- a/Master/bin/alpha-linux/texdoc
+++ /dev/null
@@ -1,206 +0,0 @@
-#!/bin/sh
-#
-# Thomas Esser, David Aspinall, Simon Wilkinson.
-# Public domain.
-#
-# Simple script to attempt to find documentation for tex files.
-# Uses kpsewhich to find a .dvi, .pdf or .ps file along the
-# 'TeX system documentation' ($TEXDOCS, default: $TEXMF/doc) search path.
-#
-# Original version by David Aspinall <da@dcs.ed.ac.uk>
-#
-# This version rewritten for use with bash 2 and teTeX under Linux by
-# Simon Wilkinson <sxw@dcs.ed.ac.uk>
-#
-# Changes for web2c-7.2 resp. teTeX-0.9 and portability fixes by
-# Thomas Esser <te@dbs.uni-hannover.de>, Jun 14 1998
-#
-# Support for compressed documentation implemented by adopting changes
-# made by debian. Thomas Esser, Dec. 2004.
-
-test -f /bin/sh5 && test -z "$RUNNING_SH5" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_SH5=true; export RUNNING_SH5; exec /bin/sh5 $0 ${1+"$@"}; }
-unset RUNNING_SH5
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-export PATH
-
-needsCleanup=false
-progname=texdoc
-tmpdir=${TMPDIR-${TEMP-${TMP-/tmp}}}/$progname.$$
-
-###############################################################################
-# setupTmpDir()
-# set up a temp directory and a trap to remove it
-###############################################################################
-setupTmpDir()
-{
- $needsCleanup && return
-
- trap 'cleanup --force' 1 2 3 7 13 15
- needsCleanup=true
- mkdir "$tmpdir" || abort "could not create directory \`$tmpdir'"
-}
-
-###############################################################################
-# abort(errmsg)
-# print `errmsg' to stderr and exit with error code 1
-###############################################################################
-abort()
-{
- warn "$progname: $1."
- cleanup
- (exit 1)
- exit 1
-}
-
-###############################################################################
-# cleanup()
-# clean up the temp area
-###############################################################################
-cleanup()
-{
- case $1 in
- --force)
- $needsCleanup && test -n "$tmpdir" && test -d "$tmpdir" \
- && { rm -f "$tmpdir"/*; cd /; rmdir "$tmpdir"; }
- ;;
- *) # directory might not be empty if some other viewer is still
- # running, so be quiet about it
- rmdir $tmpdir >/dev/null 2>&1;;
- esac
-}
-
-
-# Viewing programs, according to filename extension. (You can
-# override or add to them by setting environment variables).
-# MacOS X: does not have X11 by default, so give dvi a low priority
-case `(uname -s) 2>/dev/null` in
- Darwin)
- : ${TEXDOCVIEW_dvi='(open %s >/dev/console 2>&1 || xdvi %s &) || echo "Method for opening %s did not work"'}
- : ${TEXDOCVIEW_ps='open %s'}
- : ${TEXDOCVIEW_pdf='open %s'}
- : ${TEXDOCVIEW_html='open %s'}
- : ${TEXDOCVIEW_txt="open -a TextEdit.app %s"}
- : ${TEXDOCVIEW_="open -a TextEdit.app %s"} # no extension, default to pager
- extlist='.pdf .ps .txt .dvi .html'
- ;;
- *)
- : ${TEXDOCVIEW_dvi='(xdvi %s) &'}
- : ${TEXDOCVIEW_pdf='(acroread %s) &'}
- : ${TEXDOCVIEW_ps='(gv %s) &'}
- : ${TEXDOCVIEW_html='mozilla -remote openURL'"'(%s)'"' 2>/dev/null || mozilla %s &'}
- : ${TEXDOCVIEW_txt="${PAGER-more} %s"}
- : ${TEXDOCVIEW_="${PAGER-more} %s"} # no extension, default to pager
- extlist='.dvi .dvi.gz .dvi.bz2 .pdf .pdf.gz .pdf.bz2 .ps .ps.gz .ps.bz2 .txt .txt.gz .txt.bz2 .html'
-
- # Commands run to uncompress files, according to filename extension.
- : ${TEXDOCUNZIP_gz='gzip -d -c'}
- : ${TEXDOCUNZIP_bz2='bzip2 -d -c'}
- ;;
-esac
-
-mode=viewer
-help='Usage: texdoc [OPTION]... [NAME]...
- Search for NAME in the TeX documentation and start a viewer.
-
- --help show this help
- -v verbose mode: show viewer command
- -l just list all matching files. Do not start a viewer.
- -s search the disk. remaining arguments will be passed
- as egrep patterns to filter the find output.'
-
-verbosemode=false
-while
- case $1 in
- -s) mode=search; shift; break;;
- -l) mode=list;;
- -v) verbosemode=true;;
- *-help)
- echo "$help" >&2
- exit 1;;
- -*) echo "texdoc: option $1 not recognized" 1>&2;;
- *) break;;
- esac
-do shift; done
-
-case $# in
- 0)
- echo "$help" >&2
- exit 1
- ;;
-esac
-
-for name
-do
- case $mode in
- search)
- find `kpsewhich --expand-path='$TEXMF/doc' | tr : ' '` -type f -print |
- egrep $name
- continue
- ;;
- esac
-
- case $name in
- texdoc)
- man texdoc; continue;;
- esac
-
- found=false
- for ext in "" $extlist; do
-
- filename=`kpsewhich -format='TeX system documentation' $name$ext 2>/dev/null`
- test -z "$filename" && continue
- found=true
-
- if test $mode = list; then
- echo $filename
- else
- dir=`echo $filename | sed 's%/[^/]*$%%'`
- ext=`echo $filename | sed -n 's%.*\.\([^/]*\)$%\1%p'`
-
- eval uncompress="\$TEXDOCUNZIP_$ext"
- if test -n "$uncompress"
- then
- ext=`echo $filename | sed -e "s|\\.$ext\$||" | sed 's%.*\.%%'`
- fi
- viewer=\$"TEXDOCVIEW_$ext"
- if test -n "$uncompress"; then
- src=`echo "$filename" | sed -e 's%.*/%%' -e 's%\.[^.]*$%%'`
-
- # only one viewer per file, if the same file is given more
- # than once
- test -f "$tmpdir/$src" && break
-
- setupTmpDir
- eval "$uncompress $filename > $tmpdir/$src"
- filename=$tmpdir/$src
- viewer=`eval echo $viewer | sed -e "s|%s|$filename; rm -f $filename; cleanup|"`
- else
- viewer=`eval echo $viewer | sed -e "s|%s|$filename|g"`
- fi
-
- if test -z "$viewer"
- then
- echo "Don't know how to view file type $ext" 1>&2
- echo "(matching file was $filename)" 1>&2
- else
- $verbosemode && echo $viewer
- test -n "$dir" && test -d "$dir" && cd "$dir"
- eval $viewer
- break # just stop after the first usable extension
- fi
- fi
-
- done
- $found || echo "Can't find documentation for \`$name'" 1>&2
-done
-
-cleanup
-(exit 0)
-exit 0
diff --git a/Master/bin/alpha-linux/texdoctk b/Master/bin/alpha-linux/texdoctk
deleted file mode 100755
index c8f60e28bf6..00000000000
--- a/Master/bin/alpha-linux/texdoctk
+++ /dev/null
@@ -1,1794 +0,0 @@
-#!/usr/bin/env perl
-# We started with a hack provided by Thomas Esser. This expression replaces
-# the unix specific line \type {#!/usr/local/bin/perl -w}.
-###############################################################################
-# texdoctk v.0.6.0 (Nov 5, 2004) - GUI for TeX documentation access
-# Copyright (C) 2000-2004 Thomas Ruedas
-# This program is provided under the GNU Public License; see the file
-# README.texdoctk for details about requirements, installation, configuration,
-# and the full disclaimer.
-###############################################################################
-use strict;
-use Tk;
-use Getopt::Long;
-Getopt::Long::config('bundling');
-use File::Basename;
-
-my $IsWin32 = ($^O =~ /MSWin32/i);
-
-#if ($IsWin32) {
-# use Win32::Registry;
-# use Win32::API;
-#}
-
-# initialization of some internal variables
-$|=1;
-my $quiet=1;
-my $autoview;
-my $xfmt_viewer=1,
-my @tdcolors;
-my %butcol;
-my $srchentry;
-my $srchflag=0;
-my $tmpfno;
-# system variables
-my ($texmfmain,$texmfdist,$texmfdoc,$texmflocal,$texmfhome,
- $texdocpath,$distdocpath,$docdocpath,$localdocpath,$homedocpath,
- $datadir,
- $dvi_viewer,$dvips_conv,$ps_viewer,$pdf_viewer,
- $pdfps_conv,$html_viewer,$htmlps_conv,$htmlps_redir,
- $txt_viewer,$txtps_conv,$txtps_redir,$print_cmd);
-
-# defaults: unix values
-my $qq="'";
-my $HomeEnv=$ENV{HOME};
-my $TeXDocRcDefaults="texdocrc.defaults";
-my $TempDir; $TempDir=$ENV{TMPDIR} or $TempDir="/tmp";
-my $CmdConsole="xterm -e ";
-
-if ($IsWin32) {
- $qq = "\"";
- $HomeEnv = &GetHomeDir;
- chomp $HomeEnv;
- $TeXDocRcDefaults = "texdocrc-win32.defaults";
- $TempDir = &GetTempPath;
- $CmdConsole = "command /c ";
-}
-
-my $myrc="${HomeEnv}/.texdocrc"; # optional personal settings file
-
-my ($line,@dummy);
-my @tmpfiles;
-# read system-wide defaults from texdocrc.defaults
-my $sysrc=`kpsewhich --progname=texdoctk --format=${qq}other text files${qq} ${TeXDocRcDefaults}`;
-my $database=`kpsewhich --progname=texdoctk --format=${qq}other text files${qq} texdoctk.dat`;
-my $locdatabase=`kpsewhich --progname=texdoctk --format=${qq}other text files${qq} texdoctk-local.dat`;
-my $homedatabase=`kpsewhich --progname=texdoctk --format=${qq}other text files${qq} texdoctk-pers.dat`;
-chomp $locdatabase;
-chomp $homedatabase;
-chomp $sysrc;
-&readrc($sysrc,1);
-@dummy=split("/",$sysrc);
-pop @dummy;
-$datadir=join('/',@dummy);
-# possibly use personal settings instead of defaults
-if (-e $myrc) { &readrc($myrc,2); }
-# command line options
-GetOptions('v'=>\$quiet,'a'=>\$autoview);
-my $special=0;
-my @button;
-$button[17]="Miscellaneous";
-my (@packname,@topic,@doc,@keywords,@maxind,%stydoc);
-# read database file
-my $i=-1;
-my $j;
-open(DATABASE,"$database") || &fatalmsg("Couldn't open database $database.\n");
-while ($line = <DATABASE>) {
- LINETYPE: {
- ($line =~ /^\@/) && do { # category
- ++$i;
- if ($i == $#button) {
- pop @button;
- push @button,(substr($line,1,-1));
- $special=1;
- } else {
- $button[$i]=substr($line,1,-1);
- }
- $j=0;
- last LINETYPE;
- };
- ($line =~ /^(#|$)/) && do { # comment or empty line
- last LINETYPE;
- };
-# list item
- @dummy=split(";",$line);
- $packname[$i][$j]=$dummy[0];
- $topic[$i][$j]=$dummy[1];
- $doc[$i][$j]=$dummy[2];
- $keywords[$i][$j]=$dummy[3];
- if ($doc[$i][$j] =~ /sty$/ && $keywords[$i][$j]) {
- $stydoc{"$doc[$i][$j]"}=substr($keywords[$i][$j],1,1);
- unless ($stydoc{"$doc[$i][$j]"} =~ /^\d$/) {
- $stydoc{"$doc[$i][$j]"}=0;
- }
- }
- $maxind[$i]=$j;
- ++$j;
- };
-}
-close(DATABASE);
-# Read site-local and user's database(s) if it/they exist(s)
-foreach my $dbfile ($locdatabase,$homedatabase) {
- if (-e "$dbfile") {
- open(DATABASE,"$dbfile") ||
- print "Couldn't open additional database $dbfile.\n";
- $i=17; # local/user: if no category is specified in database, add to "Misc"
- while ($line = <DATABASE>) {
- LINETYPE: {
- ($line =~ /^\@/) && do { # category
- $i=&arrindex(@button,substr($line,1,-1));
- if ($i >= $#button) {
- $i=$#button;
- pop @button;
- push @button,(substr($line,1,-1));
- $special=1;
- }
- last LINETYPE;
- };
- ($line =~ /^(#|$)/) && do { # comment or empty line
- last LINETYPE;
- };
-# list item
- @dummy=split(";",$line);
- $j=&arrindex(@{$packname[$i]},$dummy[0]);
- if ($j > $#{$packname[$i]}) {
- $packname[$i][$j]=$dummy[0];
- $topic[$i][$j]=$dummy[1];
- $doc[$i][$j]=$dummy[2];
- $keywords[$i][$j]=$dummy[3];
- if ($doc[$i][$j] =~ /sty$/ && $keywords[$i][$j]) {
- $stydoc{"$doc[$i][$j]"}=substr($keywords[$i][$j],1,1);
- unless ($stydoc{"$doc[$i][$j]"} =~ /^\d$/) {
- $stydoc{"$doc[$i][$j]"}=0;
- }
- }
- $maxind[$i]=$j;
- ++$j;
- }
- };
- }
- close(DATABASE);
- $special=1 if ($i == 17 && $j > 0);
- }
-}
-
-# Tk
-# hash table for toplevel windows; used to avoid multiple calls of same window
-my %tlwins;
-my %buttonlist;
-# create frames for main window: commands on top, frame for buttons below
-my $main=new MainWindow;
-$tlwins{'mainwindow'}{'addr'}=$main;
-$main->resizable(0,0);
-$main->title("TeX Documentation Browser");
-$main->bind('all','<Control-q>'=>\&clean_exit);
-$main->bind('all','<Control-m>'=>sub { $main->raise(); });
-$main->bind('all','<Control-h>'=>\&helptext);
-$main->bind('all','<Control-s>'=>sub { $main->raise(); &mksrch; });
-$main->bind('all','<Control-t>'=>\&settings);
-my $cmdframe=$main->Frame(-background=>"#ffcc99");
-my $buttonframe=$main->Frame;
-$cmdframe->pack(-side=>'top',-fill=>'x');
-$buttonframe->pack(-side=>'bottom');
-# normal cursor
-my $defcursor=$main->cget(-cursor);
-# make buttons for command frame
-my $Qbut=$cmdframe->Button(-text=>'Quit',%butcol,
- -command=>\&clean_exit)->pack(-side=>'left');
-$tlwins{'mainwindow'}{'buttons'}[0]=$Qbut;
-# define common default font for labels and text explicitly
-my $deffont=$Qbut->cget(-font);
-# ensure readability on high-res screens (suggested by R.Kotucha)
-$deffont='Helvetica -16 bold' if &x_resolution > 1200;
-$Qbut->configure(-font=>$deffont);
-$tlwins{'mainwindow'}{'buttons'}[1]=$cmdframe->Button(-text=>'Search',
- -font=>$deffont,%butcol,
- -command=>\&mksrch
- )->pack(-side=>'left');
-$tlwins{'mainwindow'}{'buttons'}[2]=$cmdframe->Button(-text=>'Help/About',
- -font=>$deffont,%butcol,
- -command=>\&helptext
- )->pack(-side=>'right');
-$tlwins{'mainwindow'}{'buttons'}[3]=$cmdframe->Button(-text=>'Settings',
- -font=>$deffont,%butcol,
- -command=>\&settings
- )->pack(-side=>'right');
-# make buttons for category button frame
-my $lbut=0;
-my $l;
-foreach (@button) { $l=length $_; $lbut=$l if ( $l > $lbut) }
-my @catg;
-my ($i2,$i3);
-my $nbutt=scalar @button;
-my $ncols=$nbutt/3-1;
-foreach (0..$ncols) {
- $i=$_;
- $i2=$i+$nbutt/3;
- $i3=$i+2*$nbutt/3;
- $catg[$i]=$buttonframe->Button(-text=>$button[$i],
- -font=>$deffont,%butcol,
- -width=>$lbut,
- -command=>[\&tpslct,$i,\@dummy])->grid
- ($catg[$i2]=$buttonframe->Button(-text=>$button[$i2],
- -font=>$deffont,%butcol,
- -width=>$lbut,
- -command=>[\&tpslct,$i2,\@dummy]),
- $catg[$i3]=$buttonframe->Button(-text=>$button[$i3],
- -font=>$deffont,%butcol,
- -width=>$lbut,
- -command=>[\&tpslct,$i3,\@dummy]));
-}
-# disable last button (lower right) if no local specials are found in list
-my $ncat;
-if ($special == 0) {
- $catg[$#button]->configure(-state=>'disabled');
- $ncat=$nbutt-1;
-} else {
- $ncat=$nbutt;
-}
-for ($i=0,$j=4; $i<@catg; ++$i,++$j) {
- $tlwins{'mainwindow'}{'buttons'}[$j]=$catg[$i];
-}
-MainLoop;
-
-########## SUBROUTINES ########################################################
-# toplevel for selecting a topic of a category for viewing or printing
-sub tpslct {
- my($opt,@srchitems)=@_;
- my (@lbitems,@lbdocs,$dspselect,$docselect,$wtitle);
- if ($opt >= 0) {
-# main window buttons
-# see if toplevel window is already there
- if (Exists($tlwins{$opt}{'addr'})) {
- $tlwins{$opt}{'addr'}->deiconify();
- $tlwins{$opt}{'addr'}->raise();
- return;
- }
- for ($j=0; $j <= $maxind[$opt]; ++$j) {
- push @lbitems,$topic[$opt][$j];
- push @lbdocs,$doc[$opt][$j];
- }
- $wtitle=$button[$opt];
- } else {
-# search results
- my $spec_wtitle=shift @srchitems;
- for ($j=0; $j < $#srchitems; $j+=2) {
- my $k=$j+1;
- push @lbitems,$topic[$srchitems[$j]][$srchitems[$k]];
- push @lbdocs,$doc[$srchitems[$j]][$srchitems[$k]];
- }
- $wtitle="Search results for $spec_wtitle";
- }
-# toplevel window of category $opt with two frames
- my $tpwin=$main->Toplevel(-title=>$wtitle);
- $tlwins{$opt}{'addr'}=$tpwin;
- my $tpdsp=$tpwin->Frame(-relief=>'groove')->pack(-side=>'top');
- my $tpslc=$tpwin->Frame()->pack(-side=>'top');
-# selection frame with listbox and buttons
-# label for listbox
- my $tplabel=$tpslc->Label(-text=>'Topics',
- -font=>$deffont)->pack(-anchor=>'w',
- -side=>'top');
-# listbox with optional scrollbar
- my $tplist=$tpslc->Scrolled("Listbox",
- -font=>$deffont,
- -scrollbars=>'osoe',
-# -height=>0,
- -width=>0,
- -selectmode=>'single',
- -exportselection=>0,
- -cursor=>'hand2')->pack(-side=>'left',
- -fill=>'y',
- -expand=>1);
- $tplist->insert('end',@lbitems); # fill topics into listbox
-# buttons frame
- my $tpbframe=$tpslc->Frame(-borderwidth=>8);
- $tpbframe->pack(-side=>'right');
-# make buttons for command frame
- my $n_buttons = 0;
- $tlwins{$opt}{'buttons'}[$n_buttons++]=
- $tpbframe->Button(-text=>'View',
- -font=>$deffont,%butcol,
- -command=>sub{ &viewslc($docselect,$tpbframe);},
- -width=>6)->pack(-side=>'top');
- if (! $IsWin32) {
- $tlwins{$opt}{'buttons'}[$n_buttons++]=
- $tpbframe->Button(-text=>'Print',
- -font=>$deffont,%butcol,
- -command=>sub{ &prtslc($docselect,$tpbframe);},
- -width=>6)->pack(-side=>'top');
- }
- $tlwins{$opt}{'buttons'}[$n_buttons++]=
- $tpbframe->Button(-text=>'Cancel',
- -font=>$deffont,%butcol,
- -command=>sub{ destroy $tpwin; undef $tlwins{$opt};},
- -width=>6)->pack(-side=>'bottom');
-# if only 1 item is in the list (most likely in search results), select it
- if (scalar @lbitems == 1) {
- $tplist->selectionSet(0);
- $dspselect=$lbitems[0];
- $docselect=$lbdocs[0];
- &viewslc($docselect,$tpbframe)
- if ($autoview && $wtitle =~ /^Search results/);
- }
-# display frame
- my $dsplabel=$tpdsp->Label(-text=>'Selection:',
- -font=>$deffont)->pack(-anchor=>'w',,
- -fill=>'x',
- -side=>'left');
- my $dspslc=$tpdsp->Label(-textvariable=>\$dspselect,
- -font=>$deffont,
- -borderwidth=>2)->pack(-anchor=>'w',
- -fill=>'x',
- -side=>'right');
-# handle selection; only one selection possible
- $tplist->bind('<Button-1>'=>sub{my ($slctind)=$tplist->curselection();
- $dspselect=$lbitems[$slctind];
- $docselect=$lbdocs[$slctind];});
-# key bindings
- $tplist->bind('<Double-Button-1>'=>sub{
- &viewslc($docselect,$tpbframe);});
- $tpwin->bind('<Control-v>'=>sub{
- &viewslc($docselect,$tpbframe);});
- $tpwin->bind('<Control-p>'=>sub{
- &prtslc($docselect,$tpbframe);});
- $tpwin->bind('<Control-c>'=>sub{destroy $tpwin; undef $tlwins{$opt};});
- $tplist->bind('<Button-3>'=>sub{
- if ($docselect) {
- &showpath($docselect,$tpbframe);
- } else {
- &popmsg(2,"No selection;\nuse left mouse button.",$tpbframe);
- }});
-}
-
-# view document selected in listbox
-sub viewslc {
- my($slc,$parframe)=@_;
- my $viewer;
- my $itype=-1;
- my $browser=0;
- my $styflag=0;
- unless (defined $slc) {
- &popmsg(2,"No selection was made.",$parframe);
- return;
- }
- $parframe->configure(-cursor=>'watch');
- chomp $slc;
- my @dummy=split('\.',$slc);
- DOC_FORMAT: { # determine document type
- ($dummy[-1] =~ /dvi/) && do { $viewer=$dvi_viewer; last DOC_FORMAT; };
- ($dummy[-1] =~ /ps/) && do { $viewer=$ps_viewer; last DOC_FORMAT; };
- ($dummy[-1] =~ /pdf/) && do { $viewer=$pdf_viewer; last DOC_FORMAT; };
- ($dummy[-1] =~ /txt/ || $dummy[-1] =~ /faq$/) && do {
- $viewer=($txt_viewer eq "TDK_OWN" ||
- $txt_viewer =~ /xterm/) ?
- $txt_viewer : "${CmdConsole} $txt_viewer";
- last DOC_FORMAT;
- };
- ($dummy[-1] =~ /README/i || $dummy[-2] =~ /\/README$/i) && do {
- $viewer=($txt_viewer eq "TDK_OWN" ||
- $txt_viewer =~ /xterm/) ?
- $txt_viewer : "${CmdConsole} $txt_viewer";
- last DOC_FORMAT;
- };
- ($dummy[-1] =~ /htm/) && do {
- $viewer=$html_viewer;
- if ($html_viewer =~ /netscape/i) { # check if Netscape is open
- my $lockfile="${HomeEnv}/.netscape/lock";
- $browser=1 if (-e $lockfile || -l $lockfile);
- } elsif ($html_viewer =~ /mozilla/i) { # check if Mozilla is open
- my $mozcheck=
- `mozilla -remote 'openFile($texmfmain/doc/index.html)'`;
- $browser=1 unless ($?);
- }
- last DOC_FORMAT;
- };
-# some packages have no normal documentation but useful info in the .sty
- ($dummy[-1] =~ /sty$/) && do {
- $viewer=($txt_viewer eq "TDK_OWN" ||
- $txt_viewer =~ /xterm/) ?
- $txt_viewer : "${CmdConsole} $txt_viewer";
- $slc="../tex/$slc"; # .sty files are in ${tex,local}docpath/../tex/
- $styflag=1;
- last DOC_FORMAT;
- };
- $parframe->configure(-cursor=>$defcursor);
- if ($xfmt_viewer != 1) {
- &popmsg(2,"$dummy[-1]: not a known document format",$parframe);
- return;
- }
- };
- if ($viewer eq "") {
- if ($xfmt_viewer == 1) {
- &popmsg(-1,'Unknown format; assuming plain text.',$parframe);
- $viewer=($txt_viewer eq "TDK_OWN" ||
- $txt_viewer =~ /xterm/) ?
- $txt_viewer : "${CmdConsole} $txt_viewer";
- } else {
- &popmsg(2,"$dummy[-1]: no viewer available/specified for this format",
- $parframe);
- $parframe->configure(-cursor=>$defcursor);
- return;
- }
- }
-# build complete path and start viewer if file exists
- my $slcdoc;
- $slcdoc=&finddoc($slcdoc,$slc,$parframe);
- if ($slcdoc ne "") {
-# change to doc directory in case there are pictures
- my $docpath=substr($slcdoc,0,(rindex($slcdoc,'/',(length $slcdoc))));
- chomp $slcdoc;
- chdir ($docpath);
-# try to get doc out of .sty file
- if ($styflag) {
- &popmsg(-1,'Trying to extract documentation out of .sty file;
-might be cluttered with program comments.',
- $parframe);
- $slcdoc=&stripsty($slcdoc,substr($slc,7));
- }
-# for text files use built-in text viewer if set
- if ($IsWin32) {
- if ($viewer eq "TDK_OWN") {
- &ShellExecute('open', $slcdoc);
- $parframe->configure(-cursor=>$defcursor);
- return;
- }
- else {
- system("$viewer $slcdoc");
- }
- }
- else {
- if ($viewer eq "TDK_OWN") {
- &textview($slcdoc);
- $parframe->configure(-cursor=>$defcursor);
- return;
- }
- if ($quiet == 0) { # show messages
- if ($browser == 0) { # normal viewers or new Netscape/Mozilla
- system("$viewer $slcdoc &");
- } else { # open doc in existing Netscape/Mozilla window
- system("$viewer -remote 'openFile($slcdoc)' &");
- &popmsg(-1,"Opening document in existing $viewer window.",
- $parframe);
- }
- } else { # viewer messages written to /dev/null instead of terminal
- if ($browser == 0) { # normal viewers or new Netscape/Mozilla
- system("perl -we 'use strict; \
-my \$dump=\"\"; \
-open(NULL,\">/dev/null\"); \
-open (VIEWQ,\"$viewer $slcdoc |\"); \
-while (\$dump=<VIEWQ>) { print NULL \$dump; } \
-close(VIEWQ); \
-close(NULL);' &");
- } else { # open doc in existing window (Netscape or Mozilla)
- # not quiet; I didn't get an inline perl call like in
- # the other branch working
- system("$viewer -remote 'openFile($slcdoc)' &");
- &popmsg(-1,"Opening document in existing $viewer window.",
- $parframe);
- }
- }
- }
- }
- $parframe->configure(-cursor=>$defcursor);
-}
-
-# Tk widget for text document
-sub textview {
- my($txtfile)=@_;
-# see if toplevel window with this file is already there
- if (Exists($tlwins{$txtfile}{'addr'})) {
- $tlwins{$txtfile}{'addr'}->deiconify();
- $tlwins{$txtfile}{'addr'}->raise();
- return;
- }
- my $tfv_tk=$main->Toplevel(-title=>"Text file viewer");
- $tfv_tk->resizable(0,1);
- $tlwins{$txtfile}{'addr'}=$tfv_tk;
- $tfv_tk->Label(-text=>"File: $txtfile",
- -font=>$deffont,
- -relief=>'ridge',
- -borderwidth=>3)->pack(-side=>'top',
- -fill=>'x',
- -ipady=>10,
- -anchor=>'s');
- my $txtbody=$tfv_tk->Scrolled("Text",
- -relief=>'flat',
- -font=>$deffont,
- -height=>20,
- -width=>80,
- -scrollbars=>"e")->pack(-side=>'top',
- -fill=>'y',
- -expand=>1);
- open(TXTFILE,"$txtfile");
- while (<TXTFILE>) { $txtbody->insert('end',$_); }
- close(TXTFILE);
- $txtbody->configure(-state=>'disabled');
- $tlwins{$txtfile}{'buttons'}[0]=
- $tfv_tk->Button(-text=>'Close',
- -font=>$deffont,%butcol,
- -command=>sub{ destroy $tfv_tk;
- undef $tlwins{$txtfile};
- })->pack(-side=>'bottom',
- -fill=>'x');
- $tfv_tk->bind('<Control-c>'=>sub{destroy $tfv_tk;
- undef $tlwins{$txtfile};
- });
-}
-
-# print document selected in listbox
-sub prtslc {
- my($slc,$parframe)=@_;
- $tmpfno=&randname;
- my $pstmpfile="${TempDir}/texdoc_$tmpfno.ps";
- push @tmpfiles,$pstmpfile;
- my $status;
- chomp $slc;
- unless (defined $slc) {
- &popmsg(2,"No selection was made.",$parframe);
- return;
- }
- if ($print_cmd eq "") {
- &popmsg(2,"No printer specified.",$parframe);
- return;
- }
-# build complete path and check existence of file
- my @dummy=split('\.',$slc);
- if ($dummy[-1] =~ /sty$/) {
- $slc="../tex/$slc"; # .sty files are in ${tex,local,home}docpath/../tex
- }
- my $slcdoc;
- $slcdoc=&finddoc($slcdoc,$slc,$parframe);
- return if ($slcdoc eq "");
-# change to doc directory in case there are pictures
- my $docpath=substr($slcdoc,0,(rindex($slcdoc,'/',(length $slcdoc))));
- chdir ($docpath);
- DOC_FORMAT: { # determine document type
-# convert dvi files to ps before printing
- ($dummy[-1] =~ /dvi/) && do {
- if ($dvips_conv eq "") {
- &popmsg(2,"No converter available for dvi->ps conversion.",
- $parframe);
- return;
- }
- &popmsg(-1,"Converting dvi to ps for printing and sending file to print...",$parframe);
- $status=system("$dvips_conv $slcdoc -o $pstmpfile");
- if ($status != 0) {
- &popmsg(2,"Error: Conversion dvi->ps failed!",$parframe);
- }
- last DOC_FORMAT;
- };
-# PostScript is printed directly
- ($dummy[-1] =~ /ps/) && do {
- &popmsg(-1,"Sending file to $print_cmd...",$parframe);
- $pstmpfile=$slcdoc;
- last DOC_FORMAT;
- };
-# convert pdf files to ps before printing
- ($dummy[-1] =~ /pdf/) && do {
- if ($pdfps_conv eq "") {
- &popmsg(2,"No converter available for pdf->ps conversion.",
- $parframe);
- return;
- }
- &popmsg(-1,"Converting pdf to ps for printing and sending file to print...",$parframe);
- system("$pdfps_conv $slcdoc $pstmpfile");
- last DOC_FORMAT;
- };
-# convert html files to ps before printing
- ($dummy[-1] =~ /htm/) && do {
- if ($htmlps_conv eq "") {
- &popmsg(2,"No converter available for html->ps conversion.",
- $parframe);
- return;
- }
- &popmsg(-1,"Converting html to ps for printing and sending file to print...",$parframe);
- my $htmlps_redir_sign=($htmlps_redir == 1) ? ">" :"";
- system("$htmlps_conv $slcdoc $htmlps_redir_sign $pstmpfile");
- last DOC_FORMAT;
- };
-# convert txt files to ps before printing
- ($dummy[-1] =~ /txt/ || $dummy[-1] =~ /faq$/
- || $dummy[-1] =~ /README/i) && do {
- if ($txtps_conv eq "") {
- &popmsg(2,"No converter available for txt->ps conversion.",
- $parframe);
- return;
- }
- &popmsg(-1,"Converting txt to ps for printing and sending file to print...",$parframe);
- my $txtps_redir_sign=($txtps_redir == 1) ? ">" :"";
- system("$txtps_conv $slcdoc $txtps_redir_sign $pstmpfile");
- last DOC_FORMAT;
- };
-# convert extracted comments from sty files to ps before printing
- ($dummy[-1] =~ /sty$/) && do {
- if ($txtps_conv eq "") {
- &popmsg(2,"No converter available for sty(txt)->ps conversion.",
- $parframe);
- return;
- }
- &popmsg(-1,"Converting sty(txt) to ps for printing and sending file to print...",$parframe);
-# try to get doc out of .sty file
- &popmsg(-1,'Trying to extract documentation out of .sty file;
-might be cluttered with program comments.',
- $parframe);
- $slcdoc=&stripsty($slcdoc,substr($slc,7));
- my $txtps_redir_sign=($txtps_redir == 1) ? ">" :"";
- system("$txtps_conv $slcdoc $txtps_redir_sign $pstmpfile");
- last DOC_FORMAT;
- };
- &popmsg(2,"$dummy[-1]: cannot print document format",$parframe);
- return;
- };
- system("$print_cmd $pstmpfile");
-}
-
-# test existence and search a documentation which is not in specified place
-sub finddoc {
- my($slcdoc,$slc,$parframe)=@_;
- my ($dummy,$status);
- SLCDOCFIND: foreach ($texdocpath,$distdocpath,$docdocpath) {
- $slcdoc="$_/$slc";
- if (-e $slcdoc) {
-# found where it should be
- return $slcdoc;
- } else {
-# see if the documentation file is in the local doc tree...
- my @srchslcdoc=($slcdoc);
- if ($localdocpath) {
- push @srchslcdoc,"$localdocpath/$slc";
- return $srchslcdoc[-1] if (-e $srchslcdoc[-1]);
- }
-# ... or the user's doc tree...
- if ($homedocpath) {
- push @srchslcdoc,"$homedocpath/$slc";
- return $srchslcdoc[-1] if (-e $srchslcdoc[-1]);
- }
-# ... otherwise proceed with searching
- $status=-1;
-# see if the documentation file is compressed
- CMPREND: foreach my $cmprtype ("gz","bz2","zip") {
- foreach (@srchslcdoc) {
- $dummy="$_.$cmprtype";
- if (-e $dummy) { # yes, it is compressed
- $tmpfno=&randname;
- my $rawname=basename($slc,"");
- $slcdoc="${TempDir}/texdoc_$tmpfno$rawname";
- push @tmpfiles,$slcdoc;
- my ($dcmp,$dcmp_opt);
- COMPRESS: { # determine compression type
- ($cmprtype eq "gz") && do {
- $dcmp="gzip";
- $dcmp_opt="-cd";
- last COMPRESS;
- };
- ($cmprtype eq "bz2") && do {
- $dcmp="bzip2";
- $dcmp_opt="-cd";
- last COMPRESS;
- };
- ($cmprtype eq "zip") && do {
- $dcmp="zip";
- $dcmp_opt="-p";
- last COMPRESS;
- };
- };
-# try to decompress
- $status=system("$dcmp $dcmp_opt $dummy > $slcdoc");
- if ($status != 0) { # failure
- &popmsg(2,
- "$dcmp: Couldn't decompress file, cancelling.",
- $parframe);
- $slcdoc="";
- return $slcdoc;
- }
-# last CMPREND; does not work, what we need is:
- return $slcdoc;
- }
- }
- }
- }
- }
- if ($status != 0) {
- $parframe->configure(-cursor=>'watch');
-# try to find it elsewhere with kpsewhich
- my $rawname=basename($slc,"");
- $slcdoc=($slcdoc =~ /\.sty$/) ?
- `kpsewhich $rawname` :
- `kpsewhich --format=${qq}TeX system documentation${qq} $rawname`;
- if ($slcdoc eq "") { # nothing found; cancel
- &popmsg(2,"$rawname not found, cancelling.",$parframe);
- $slcdoc="";
- }
- $parframe->configure(-cursor=>$defcursor);
- }
- return $slcdoc;
-}
-
-# determine existence and show paths of files (Button-3)
-sub showpath {
- my ($docselect,$tpbframe)=@_;
- my $found=0;
- if ($docselect =~ /\.sty$/) {
- STYPATH: foreach my $fullpath ("$texmfmain/tex/$docselect",
- "$texmfdist/tex/$docselect",
- "$texmflocal/tex/$docselect",
- "$texmfhome/tex/$docselect") {
- if (-e $fullpath) {
- &popmsg(0,"Selected file:\n$fullpath",$tpbframe);
- $found=1;
- last STYPATH;
- }
- }
- if (!$found) {
- &popmsg(2,"Selected file:\n$docselect\ndoes not exist.",$tpbframe) }
- } else {
- DOCPATH: foreach my $fullpath ("$texdocpath/$docselect",
- "$distdocpath/$docselect",
- "$docdocpath/$docselect",
- "$localdocpath/$docselect",
- "$homedocpath/$docselect") {
- foreach ('','.gz','.bz2','.zip') {
- my $fullpathext="$fullpath$_";
- if (-e $fullpathext) {
- &popmsg(0,"Selected file:\n$fullpathext",$tpbframe);
- $found=1;
- last DOCPATH;
- }
- }
- }
- if (!$found) {
- &popmsg(2,"Selected file:\n$docselect\ndoes not exist (neither in normal form nor compressed).",$tpbframe) }
- }
-}
-
-# make or destroy search entry widget
-sub mksrch {
- if ($srchflag == 1) {
- destroy $srchentry;
- $srchflag=0;
- } else {
-# get the search string
- $srchentry=$cmdframe->Entry(-cursor=>'xterm',
- -font=>$deffont,
- -width=>20,
- -takefocus=>1)->pack(-side=>'left');
- $srchentry->focus();
- $srchentry->bind('<Return>'=>[\&srchstr, $srchentry]);
- $srchflag=1;
-# key binding
- $srchentry->bind('<Control-c>'=>sub{destroy $srchentry; $srchflag=0;});
- }
-}
-
-# search a string in @packname, @topic and @keywords
-sub srchstr {
- my ($i,$j,$string);
- my (@results,@reslist);
- $main->configure(-cursor=>'watch');
- $string=$srchentry->get();
-# search
- if ($string) {
- for ($i=0; $i<$ncat; ++$i) {
- for ($j=0; $j<$maxind[$i]+1; ++$j) {
- SRCH: {
- ($topic[$i][$j] =~ /$string/i) && do {
- push @results,($i,$j);
- last SRCH;
- };
- (defined $keywords[$i][$j]) && do {
- if ($keywords[$i][$j] =~ /$string/i) {
- push @results,($i,$j);
- last SRCH;
- }
- };
- ($packname[$i][$j] =~ /$string/i) && do {
- push @results,($i,$j);
- last SRCH;
- };
- };
- }
- }
- } else { # return full database
- $string='all database entries';
- for ($i=0; $i<$ncat; ++$i) {
- for ($j=0; $j<$maxind[$i]+1; ++$j) { push @results,($i,$j); }
- }
- }
-# destroy entry widget and show results
- destroy $srchentry;
- $srchflag=0;
- if (scalar @results == 0) {
- &popmsg(0,"Search for $string: no matches found.",$cmdframe);
- } else {
-# cancel multiple entries
- my ($omit,$pack1,$pack2);
- @reslist=($results[0],$results[1]);
- for ($i=0; $i<$#results; $i+=2) {
- $omit=0;
- $pack1=$packname[$results[$i]][$results[$i+1]];
- for ($j=0; $j<$#reslist; $j+=2) {
- $pack2=$packname[$reslist[$j]][$reslist[$j+1]];
- if ($pack1 eq $pack2) { $omit=1; last; }
- }
- if ($omit == 0) { push @reslist,($results[$i],$results[$i+1]); }
- }
- unshift @reslist,$string;
- &tpslct(-1,@reslist);
- }
- $main->configure(-cursor=>$defcursor);
-}
-
-# extract documentation of .sty files; a flag in the @keywords array shows
-# where the doc is located:
-# -0-: no specific place; -1-: at end, behind \endinput; -2-: at beginning,
-# terminated by %%%%%%; -3-: at beginning, terminated with blank line
-sub stripsty {
- my ($slcdoc,$slc)=@_;
- my @stydoc;
- $tmpfno=&randname;
- my $tmpslcdoc="${TempDir}/texdoc_$tmpfno.txt";
- push @tmpfiles,$tmpslcdoc;
- open (STY,"$slcdoc");
- LOC: {
- ($stydoc{$slc} == 0) && do { # no specific place, suck in everything :-(
- while ($line = <STY>) { push @stydoc,$line if ($line =~ /^%/); }
- last LOC;
- };
- ($stydoc{$slc} == 1) && do { # at end, behind \endinput
- while ($line = <STY>) {
- last if ($line =~ /^\s*\\endinput/ && !($line =~ /^%/));
- }
- while ($line = <STY>) { push @stydoc,$line; }
- last LOC;
- };
- ($stydoc{$slc} == 2) && do { # up to a certain %%%%%%%, hopefully the 1st
- for (my $i=0; $i<9; ++$i) { $stydoc[$i]=<STY>; } # after the 8th line
- while ($line = <STY>) {
- last if ($line =~ /^%{4,}/);
- push @stydoc,$line;
- }
- last LOC;
- };
- ($stydoc{$slc} == 3) && do { # up to 1st blank/apparently empty line
- while ($line = <STY>) {
- last if ($line =~ /^\s*$/);
- push @stydoc,$line;
- }
- last LOC;
- };
- };
- close(STY);
- open(TMPSTY,">$tmpslcdoc");
- foreach (@stydoc) { print TMPSTY $_; }
- close(TMPSTY);
- return $tmpslcdoc;
-}
-
-# pop up a note or an error or warning message toplevel window
-sub popmsg {
- my($level,$msg,$parframe)=@_;
- my $degree;
- LEVEL: {
- ($level == -1) && do { $degree="Info"; last LEVEL; };
- ($level == 0) && do { $degree="Note"; last LEVEL; };
- ($level == 1) && do {
- return if ($quiet == 1);
- $degree="Warning";
- last LEVEL
- };
- ($level == 2) && do { $degree="Error"; last LEVEL; };
- };
- my $msgwin=$parframe->Toplevel(-title=>$degree);
- my $lbl=$msgwin->Label(-text=>uc($degree),
- -font=>$deffont)->pack(-side=>'top', -fill=>'x');
-# get size of message text
- my @dummy=split("\n",$msg);
- my $nline=scalar @dummy;
- my $msgwidth=0;
- my $lline;
- foreach (@dummy) {
- $lline=length $_;
- if ($lline > $msgwidth) { $msgwidth=$lline; }
- }
- my $message=$msgwin->Text(-relief=>'flat',
- -font=>$deffont,
- -height=>$nline,
- -width=>$msgwidth)->pack(-side=>'top');
- $message->insert('end',$msg);
- $message->configure(-state=>'disabled');
- if ($level < 0) { # transient message window
- $msgwin->after(3000,sub{destroy $msgwin});
- } else { # persistent message window
- $msgwin->Button(-text=>'Close',
- -font=>$deffont,%butcol,
- -command=>sub{destroy $msgwin})->pack(-side=>'bottom',
- -fill=>'x');
- $msgwin->bind('<Control-c>'=>sub{destroy $msgwin});
- }
-}
-
-# show/change settings (don't show this to an expert :-/ )
-sub settings {
- my ($homedocpath_tmp,$quiet_tmp,$autoview_tmp,$xfmt_viewer_tmp,
- $dvi_viewer_tmp,$dvips_conv_tmp,
- $ps_viewer_tmp,$pdf_viewer_tmp,$pdfps_conv_tmp,
- $html_viewer_tmp,$htmlps_conv_tmp,$htmlps_redir_tmp,
- $txt_viewer_tmp,$txtps_conv_tmp,$txtps_redir_tmp,$print_cmd_tmp)=
- ($homedocpath,$quiet,$autoview,$xfmt_viewer,
- $dvi_viewer,$dvips_conv,$ps_viewer,
- $pdf_viewer,$pdfps_conv,$html_viewer,
- $htmlps_conv,$htmlps_redir,$txt_viewer,
- $txtps_conv,$txtps_redir,$print_cmd);
- my @tdcolors_tmp=@tdcolors;
-# see if toplevel window is already there
- if (Exists($tlwins{"setmenu"}{'addr'})) {
- $tlwins{"setmenu"}{'addr'}->deiconify();
- $tlwins{"setmenu"}{'addr'}->raise();
- return;
- }
- my $setmenu=$main->Toplevel(-title=>'Settings');
- $setmenu->resizable(0,0);
- $tlwins{"setmenu"}{'addr'}=$setmenu;
-# documentation path
- my $datlabel;
- $datlabel="Database file(s) used: teTeX";
- $datlabel.=", local database" if (-e $locdatabase);
- $datlabel.=", user database" if (-e $homedatabase);
- my $docframe=$setmenu->Frame(-relief=>'groove',
- -borderwidth=>2)->pack(-side=>'top',
- -fill=>'x',
- -expand=>1);
- my $docframestring="\nDistribution documentation root path(s):\n$texdocpath";
- $docframestring.=", $distdocpath" if (-e $distdocpath);
- $docframestring.=", $docdocpath" if (length $docdocpath);
- if ($localdocpath && $localdocpath ne $texdocpath) {
- $docframestring.="\nLocal documentation root path: $localdocpath\n";
- }
- $docframe->Label(-text=>"$docframestring",
- -font=>$deffont)->pack(-side=>'top',
- -anchor=>'w',
- -fill=>'x',
- -expand=>1);
- if (defined $texmfhome && -d $texmfhome) {
- $homedocpath_tmp=basename($homedocpath_tmp,"");
- my $usrdocframe=$docframe->Frame(-relief=>'flat')->pack(-side=>'top',
- -fill=>'x');
- my $usrdoclabel=$usrdocframe->Label(-text=>"User's documentation root path: $texmfhome/",
- -font=>$deffont)->pack(-side=>'left');
- my $usrdocentry=$usrdocframe->Entry(-textvariable=>\$homedocpath_tmp,
- -font=>$deffont)->pack(-side=>'left');
- }
- $docframe->Label(-text=>"$datlabel.",
- -font=>$deffont)->pack(-side=>'top',
- -anchor=>'w',
- -ipady=>2,
- -fill=>'x',
- -expand=>1);
-# General viewer behaviour
- my $genvframe=$setmenu->Frame(-label=>'General viewer behaviour',
- -relief=>'groove',
- -borderwidth=>2)->pack(-side=>'top',
- -fill=>'x',
- -ipady=>6,
- -expand=>1);
- my $genvframe1=$genvframe->Frame()->pack(-side=>'left');
- my $genvsub1=$genvframe1->Frame()->pack(-side=>'top',
- -anchor=>'w',
- -ipady=>3);
- my $genvecbut=$genvsub1->
- Checkbutton(-variable=>\$quiet_tmp)->pack(-side=>'left',
- -anchor=>'sw');
- my $genvelabel=$genvsub1->Label(-text=>'Suppress error messages',
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'sw');
- my $genvsub2=$genvframe1->Frame()->pack(-side=>'top',
- -anchor=>'w');
- my $genvscbut=$genvsub2->
- Checkbutton(-variable=>\$autoview_tmp)->pack(-side=>'left',
- -anchor=>'sw');
- my $genvslabel=$genvsub2->Label(-text=>'Autostart viewer for one-item listboxes',
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'sw');
- my $genvsub3=$genvframe1->Frame()->pack(-side=>'top',
- -anchor=>'w');
- my $genvxcbut=$genvsub3->
- Checkbutton(-variable=>\$xfmt_viewer_tmp)->pack(-side=>'left',
- -anchor=>'sw');
- my $genvxlabel=$genvsub3->Label(-text=>'Use text viewer for unknown file format',
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'sw');
-# colours of GUI
- my @tdcolors_d=@tdcolors_tmp;
- $tlwins{'setmenu'}{'buttons'}[0]=
- $genvframe->Button(-text=>'Change viewer colours',
- -command=>sub {
- @tdcolors_tmp=&popcolor($setmenu,@tdcolors_tmp);
- @tdcolors_d=@tdcolors_tmp;
- },
- -font=>$deffont,%butcol)->pack(-side=>'right');
-# DVI
- my $dviframe=$setmenu->Frame(-label=>'DVI',
- -relief=>'groove',
- -borderwidth=>2)->pack(-side=>'top',
- -fill=>'x',
- -ipady=>6,
- -expand=>1);
- my $dvisub1=$dviframe->Frame()->pack(-side=>'top',
- -anchor=>'w');
- my $dvisub2=$dviframe->Frame()->pack(-side=>'top',
- -anchor=>'w',
- -ipady=>6);
- my $dvivlabel=$dvisub1->Label(-text=>'Viewer command',
- -anchor=>'w',
- -font=>$deffont)->pack(-side=>'left');
- my $dviventry=$dvisub1->Entry(-textvariable=>\$dvi_viewer_tmp,
- -font=>$deffont)->pack(-side=>'left');
- my $dviclabel=$dvisub2->Label(-text=>'DVI->PS converter command',
- -anchor=>'w',
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'sw');
- my $dvilbwidth=length 'DVI->PS converter command';
- $dvivlabel->configure(-width=>1.1*$dvilbwidth);
- $dviclabel->configure(-width=>1.1*$dvilbwidth);
- my $dvicentry=$dvisub2->Entry(-textvariable=>\$dvips_conv_tmp,
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'sw');
-# PostScript
- my $psframe=$setmenu->Frame(-label=>'PostScript',
- -relief=>'groove',
- -borderwidth=>2)->pack(-side=>'top',
- -fill=>'x',
- -ipady=>10,
- -expand=>1);
- my $psvlabel=$psframe->Label(-text=>'Viewer command',
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'w');
- my $psventry=$psframe->Entry(-textvariable=>\$ps_viewer_tmp,
- -font=>$deffont)->pack(-side=>'left');
-# PDF
- my $pdfframe=$setmenu->Frame(-label=>'PDF',
- -relief=>'groove',
- -borderwidth=>2)->pack(-side=>'top',
- -fill=>'x',
- -ipady=>6,
- -expand=>1);
- my $pdfsub1=$pdfframe->Frame()->pack(-side=>'top',
- -anchor=>'w');
- my $pdfsub2=$pdfframe->Frame()->pack(-side=>'top',
- -anchor=>'w',
- -ipady=>6);
- my $pdfvlabel=$pdfsub1->Label(-text=>'Viewer command',
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'w');
- my $pdfventry=$pdfsub1->Entry(-textvariable=>\$pdf_viewer_tmp,
- -font=>$deffont)->pack(-side=>'left');
- my $pdfclabel=$pdfsub2->Label(-text=>'PDF->PS converter command',
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'sw');
- my $pdfcentry=$pdfsub2->Entry(-textvariable=>\$pdfps_conv_tmp,
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'sw');
-# HTML
- my $htmlframe=$setmenu->Frame(-label=>'HTML',
- -relief=>'groove',
- -borderwidth=>2)->pack(-side=>'top',
- -fill=>'x',
- -ipady=>6,
- -expand=>1);
- my $htmlsub1=$htmlframe->Frame()->pack(-side=>'top',
- -anchor=>'w');
- my $htmlsub2=$htmlframe->Frame()->pack(-side=>'top',
- -anchor=>'w',
- -ipady=>6);
- my $htmlvlabel=$htmlsub1->Label(-text=>'Viewer command',
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'w');
- my $htmlventry=$htmlsub1->Entry(-textvariable=>\$html_viewer_tmp,
- -font=>$deffont)->pack(-side=>'left');
- my $htmlclabel=$htmlsub2->Label(-text=>'HTML->PS converter command',
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'sw');
- my $htmlcentry=$htmlsub2->Entry(-textvariable=>\$htmlps_conv_tmp,
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'sw');
- my $htmlrlabel=$htmlsub2->Label(-text=>'Output redirect needed',
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'sw');
- my $htmlrcbut=$htmlsub2->
- Checkbutton(-variable=>\$htmlps_redir_tmp)->pack(-side=>'left',
- -anchor=>'sw');
-# plain text
- my $txtframe=$setmenu->Frame(-label=>'Plain text',
- -relief=>'groove',
- -borderwidth=>2)->pack(-side=>'top',
- -fill=>'x',
- -ipady=>6,
- -expand=>1);
- my $txtsub1=$txtframe->Frame()->pack(-side=>'top',
- -anchor=>'w');
- my $txtsub2=$txtframe->Frame()->pack(-side=>'top',
- -anchor=>'w',
- -ipady=>6);
- my $txtvlabel=$txtsub1->Label(-text=>'Viewer command',
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'w');
- my $txtventry=$txtsub1->Entry(-textvariable=>\$txt_viewer_tmp,
- -font=>$deffont)->pack(-side=>'left');
- my $txt_view_flag;
- if ($txt_viewer_tmp eq "TDK_OWN") {
- $txt_view_flag=1;
- $txtventry->configure(-state=>'disabled');
- } else {
- $txt_view_flag=0;
- $txtventry->configure(-state=>'normal');
- }
- my $txtvilabel=$txtsub1->Label(-text=>"\tUse texdoctk\'s own viewer",
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'sw');
- my $txtvcbut=$txtsub1->
- Checkbutton(-variable=>\$txt_view_flag,
- -command=>sub {
- if ($txt_view_flag == 1) {
- $txt_viewer_tmp="TDK_OWN";
- $txtventry->configure(-state=>'disabled');
- } else {
- $txt_viewer_tmp=$txt_viewer;
- $txtventry->configure(-state=>'normal');
- $txtventry->focus();
- }
- })->pack(-side=>'left',
- -anchor=>'sw');
- my $txtclabel=$txtsub2->Label(-text=>'Text->PS converter command',
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'sw');
- my $txtcentry=$txtsub2->Entry(-textvariable=>\$txtps_conv_tmp,
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'sw');
- my $txtrlabel=$txtsub2->Label(-text=>'Output redirect needed',
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'sw');
- my $txtrcbut=$txtsub2->
- Checkbutton(-variable=>\$txtps_redir_tmp)->pack(-side=>'left',
- -anchor=>'sw');
-# printer
- my $prtframe=$setmenu->Frame(-label=>'Printer',
- -relief=>'groove',
- -borderwidth=>2)->pack(-side=>'top',
- -fill=>'x',
- -ipady=>10,
- -expand=>1);
- my $prtclabel=$prtframe->Label(-text=>'Command',
- -font=>$deffont)->pack(-side=>'left',
- -anchor=>'w');
- my $prtcentry=$prtframe->Entry(-textvariable=>\$print_cmd_tmp,
- -font=>$deffont)->pack(-side=>'left');
-# buttons and key bindings
- my $setbfr=$setmenu->Frame()->pack(-side=>'bottom');
- $tlwins{'setmenu'}{'buttons'}[1]=
- $setbfr->Button(-text=>'OK',
- -font=>$deffont,%butcol,
- -command=>sub{
- $homedocpath="$texmfhome/$homedocpath_tmp";
- ($quiet,$autoview,$xfmt_viewer,
- $dvi_viewer,$dvips_conv,
- $ps_viewer,$pdf_viewer,
- $pdfps_conv,$html_viewer,
- $htmlps_conv,$htmlps_redir,
- $txt_viewer,$txtps_conv,$txtps_redir,$print_cmd)=
- ($quiet_tmp,$autoview_tmp,$xfmt_viewer_tmp,
- $dvi_viewer_tmp,$dvips_conv_tmp,
- $ps_viewer_tmp,
- $pdf_viewer_tmp,$pdfps_conv_tmp,
- $html_viewer_tmp,
- $htmlps_conv_tmp,$htmlps_redir_tmp,
- $txt_viewer_tmp,$txtps_conv_tmp,
- $txtps_redir_tmp,$print_cmd_tmp);
- @tdcolors=@tdcolors_tmp;
- %butcol=('-background'=>$tdcolors[0],
- '-foreground'=>$tdcolors[1],
- '-activebackground'=>$tdcolors[2],
- '-activeforeground'=>$tdcolors[3]);
- foreach my $tlkey (keys %tlwins) {
- foreach (@{$tlwins{$tlkey}{'buttons'}}) {
- $_->configure(%butcol);
- }
- }
- if ($txt_viewer eq "" &&
- defined $ENV{PAGER}) {
- $txt_viewer=$ENV{PAGER};
- }
- destroy $setmenu},
- -width=>6)->pack(-side=>'left',
- -padx=>10,
- -pady=>10);
- $tlwins{'setmenu'}{'buttons'}[2]=
- $setbfr->Button(-text=>'Save',
- -font=>$deffont,%butcol,
- -command=>sub{
- $setmenu->configure(-cursor=>'watch');
- &popmsg(-1,"Writing settings to $myrc",$setmenu);
- my $tdcolors_tmp=join(' ',@tdcolors_tmp);
- &writerc($homedocpath_tmp,
- $quiet_tmp,$autoview_tmp,$xfmt_viewer_tmp,
- $tdcolors_tmp,
- $dvi_viewer_tmp,$dvips_conv_tmp,
- $ps_viewer_tmp,
- $pdf_viewer_tmp,$pdfps_conv_tmp,
- $html_viewer_tmp,
- $htmlps_conv_tmp,$htmlps_redir_tmp,
- $txt_viewer_tmp,$txtps_conv_tmp,
- $txtps_redir_tmp,$print_cmd_tmp,$setmenu);
- $setmenu->configure(-cursor=>$defcursor);
- })->pack(-side=>'left',
- -padx=>10);
- $tlwins{'setmenu'}{'buttons'}[3]=
- $setbfr->Button(-text=>'Cancel',
- -font=>$deffont,%butcol,
- -command=>sub{destroy $setmenu;
- undef $tlwins{"setmenu"};
- })->pack(-side=>'left',
- -padx=>10);
- $setmenu->bind('<Control-c>'=>sub{destroy $setmenu;
- undef $tlwins{"setmenu"};});
-}
-
-# dialog toplevel for color settings
-sub popcolor {
- my ($parframe,@entryvar)=@_;
-# see if toplevel window is already there
- if (Exists($tlwins{'chngcol'}{'addr'})) {
- $tlwins{'chngcol'}{'addr'}->deiconify();
- $tlwins{'chngcol'}{'addr'}->raise();
- return;
- }
- my $dlgwin=$parframe->Toplevel(-title=>'Change colours');
- $dlgwin->resizable(0,0);
- $tlwins{'chngcol'}{'addr'}=$dlgwin;
-# entry widgets for default/active back/foreground
- $dlgwin->Label(-text=>'Enter colours as names or RGB #xxxxxx values',
- -font=>$deffont)->pack(-side=>'top');
- my $dlgdef=$dlgwin->Frame()->pack(-side=>'top');
- my $dlgact=$dlgwin->Frame()->pack(-side=>'top');
- my $dlgdef1=$dlgdef->Frame()->pack(-side=>'left');
- my $dlgtfr0=$dlgdef1->Frame()->pack(-side=>'top');
- my $dlgtfr1=$dlgdef1->Frame()->pack(-side=>'top');
- my $dlgact1=$dlgact->Frame()->pack(-side=>'left');
- my $dlgtfr2=$dlgact1->Frame()->pack(-side=>'top');
- my $dlgtfr3=$dlgact1->Frame()->pack(-side=>'top');
- $dlgtfr0->Label(-text=>"Default background",
- -anchor=>'w',
- -width=>18,
- -font=>$deffont)->pack(-side=>'left');
- $dlgtfr0->Entry(-textvariable=>\$entryvar[0],
- -font=>$deffont)->pack(-side=>'left');
- $dlgtfr1->Label(-text=>"Default foreground",
- -anchor=>'w',
- -width=>18,
- -font=>$deffont)->pack(-side=>'left');
- $dlgtfr1->Entry(-textvariable=>\$entryvar[1],
- -font=>$deffont)->pack(-side=>'left');
- my $deflabel=$dlgdef->Label(-text=>'Default',
- -relief=>'ridge',
- -width=>10,
- -height=>2)->pack(-side=>'right',
- -padx=>7);
- $dlgtfr2->Label(-text=>"Active background",
- -anchor=>'w',
- -width=>18,
- -font=>$deffont)->pack(-side=>'left');
- $dlgtfr2->Entry(-textvariable=>\$entryvar[2],
- -font=>$deffont)->pack(-side=>'left');
- $dlgtfr3->Label(-text=>"Active foreground",
- -anchor=>'w',
- -width=>18,
- -font=>$deffont)->pack(-side=>'left');
- $dlgtfr3->Entry(-textvariable=>\$entryvar[3],
- -font=>$deffont)->pack(-side=>'left');
- my $actlabel=$dlgact->Label(-text=>'Active',
- -background=>$entryvar[2],
- -foreground=>$entryvar[3],
- -relief=>'ridge',
- -width=>10,
- -height=>2)->pack(-side=>'right',
- -padx=>7);
-# buttons
- my $setbfr=$dlgwin->Frame()->pack(-side=>'bottom');
- my $chngflag=0;
- $tlwins{'chngcol'}{'buttons'}[0]=
- $setbfr->Button(-text=>'OK',
- -font=>$deffont,%butcol,
- -command=>sub {
- foreach (@entryvar) { # RGB form with leading #
- $_="#$_" if (/^[A-Fa-f0-9]{6}$/);
- }
- $chngflag=1 if (&colcheck($dlgwin,@entryvar));
- },
- -width=>6)->pack(-side=>'left',
- -padx=>5,
- -pady=>10);
- $tlwins{'chngcol'}{'buttons'}[1]=
- $setbfr->Button(-text=>'Preview',
- -font=>$deffont,%butcol,
- -command=>sub {
- foreach (@entryvar) { # RGB form with leading #
- $_="#$_" if (/^[A-Fa-f0-9]{6}$/);
- }
- if (&colcheck($dlgwin,@entryvar)) {
- $deflabel->
- configure(-background=>$entryvar[0],
- -foreground=>$entryvar[1]);
- $actlabel->
- configure(-background=>$entryvar[2],
- -foreground=>$entryvar[3]);
- }
- },
- -width=>6)->pack(-side=>'left',
- -padx=>5,
- -pady=>10);
- $tlwins{'chngcol'}{'buttons'}[2]=
- $setbfr->Button(-text=>'Cancel',
- -font=>$deffont,%butcol,
- -command=>sub{destroy $dlgwin;
- undef $tlwins{'chngcol'};
- })->pack(-side=>'right',
- -padx=>5,
- -pady=>10);
- $dlgwin->bind('<Control-c>'=>sub{destroy $dlgwin;
- undef $tlwins{'chngcol'}; });
- $dlgwin->waitVariable(\$chngflag);
- destroy $dlgwin;
- undef $tlwins{'chngcol'};
- return @entryvar;
-}
-
-# check colours set in popcolor; relies on the existence of X11's showrgb
-sub colcheck {
- my ($dlgwin,@entryvar)=@_;
- my $ecnt=0;
- foreach (@entryvar) { # all colours defined?
- last unless ($_);
- ++$ecnt;
- }
- &popmsg(2,'Some colours undefined.',$dlgwin) if ($ecnt != 4);
- my $defcol=0;
- if (`which showrgb`) { # test for proper name
- my @rgb=`showrgb`;
- my @norgb;
- foreach my $colour (@entryvar) {
- if ($colour =~ /^#[A-Fa-f0-9]{6}$/ || grep /\b$colour\b/i,@rgb) {
- ++$defcol;
- } else {
- push @norgb,$colour;
- }
- }
- if ($defcol != 4) {
- my $norgb=join("\n",@norgb);
- &popmsg(2,"Some colours invalid:\n$norgb",$dlgwin);
- }
- } else { $defcol=4; }
- return ($ecnt == 4 && $defcol == 4) ? 1 : 0;
-}
-
-# write user's ~/.texdocrc
-sub writerc {
- use File::Copy qw/cp mv/;
- my ($homedocpath_tmp,$quiet_tmp,$autoview_tmp,$xfmt_viewer_tmp,
- $tdcolors_tmp,
- $dvi_viewer_tmp,$dvips_conv_tmp,
- $ps_viewer_tmp,
- $pdf_viewer_tmp,$pdfps_conv_tmp,
- $html_viewer_tmp,
- $htmlps_conv_tmp,$htmlps_redir_tmp,
- $txt_viewer_tmp,$txtps_conv_tmp,
- $txtps_redir_tmp,$print_cmd_tmp,$parframe)=@_;
- my $err=0;
- mv $myrc,"$myrc.save" if (-e $myrc);
- open(MYRC,">$myrc");
- print MYRC "# user's .texdocrc, generated by program\n
-# root of user's doc directory (from \$HOMETEXMF)
-# can be left empty if \$TEXMFHOME is undefined
-HOMEDOCPATH=$homedocpath_tmp
-# general viewer behaviour (y or yes to make active)
-QUIET=$quiet_tmp
-AUTOVIEW=$autoview_tmp
-XFMT_VIEWER=$xfmt_viewer_tmp
-# button colours: default and active back-/foreground
-# names and RGB values are both allowed; use the form #xxxxxx for RGB
-TDCOLORS=$tdcolors_tmp
-# the following variables contain whole commands, i.e. options can be given
-# DVI settings
-DVI_VIEWER=$dvi_viewer_tmp
-DVIPS_CONV=$dvips_conv_tmp
-# PostScript handling
-PS_VIEWER=$ps_viewer_tmp
-# PDF handling
-PDF_VIEWER=$pdf_viewer_tmp
-PDFPS_CONV=$pdfps_conv_tmp
-# HTML handling
-HTML_VIEWER=$html_viewer_tmp
-HTMLPS_CONV=$htmlps_conv_tmp
-# HTMLPS_REDIR must be on, if the html->ps converter normally writes its output
-# to stdout instead of a file (e.g. as html2ps) (y or yes to make active)
-HTMLPS_REDIR=$htmlps_redir_tmp
-# Plain text handling
-# TDK_OWN is texdoctk's own text file viewer
-TXT_VIEWER=$txt_viewer_tmp
-TXTPS_CONV=$txtps_conv_tmp
-# TXTPS_REDIR must be on, if the txt->ps converter normally writes its output
-# to stdout instead of a file (e.g. as a2ps) (y or yes to make active)
-TXTPS_REDIR=$txtps_redir_tmp
-# printer
-PRINT_CMD=$print_cmd_tmp
-\n# end of config\n";
- close(MYRC);
-}
-
-# help window (toplevel)
-sub helptext {
-# see if toplevel window is already there
- if (Exists($tlwins{"helptext"}{'addr'})) {
- $tlwins{"helptext"}{'addr'}->deiconify();
- $tlwins{"helptext"}{'addr'}->raise();
- return;
- }
- my $help=$main->Toplevel(-title=>'Help/About');
- $help->resizable(0,1);
- $tlwins{'helptext'}{'addr'}=$help;
- $help->Label(-text=>"texdoctk
-TeX documentation browser
- v.0.6.0a (Nov 5, 2004)",
- -font=>$deffont)->pack(-side=>'top',
- -ipady=>10,
- -anchor=>'s');
- my $helpbody=$help->Scrolled("Text",
- -relief=>'flat',
- -font=>$deffont,
- -height=>20,
- -width=>60,
- -scrollbars=>"e")->pack(-side=>'top',
- -fill=>'y',
- -expand=>1);
- my $pos=tell DATA;
- while (<DATA>) {
- $_ =~ s/\$sysrc/$sysrc/;
- last if (/^#/);
- $helpbody->insert('end',$_);
- }
- seek(DATA,$pos,0);
- $helpbody->configure(-state=>'disabled');
- $tlwins{'helptext'}{'buttons'}[0]=
- $help->Button(-text=>'Close',
- -font=>$deffont,%butcol,
- -command=>sub{destroy $help;
- undef $tlwins{"helptext"};
- })->pack(-side=>'bottom',
- -fill=>'x');
- $help->bind('<Control-c>'=>sub{destroy $help; undef $tlwins{"helptext"};});
-}
-
-# read config file; personal settings override the default settings
-sub readrc {
- my($rcfile,$icall)=@_;
- my ($var,$val);
- my $pathflag=0;
- my $pathflagl=0;
- my $pathflagh=0;
- my $tdcolors='';
-# for backward compatibility of converter/printer options
- my ($dvips_opts,$pdfps_opts,$print_opts);
-# read defaults resp. local/personal settings
- CALL: {
- ($icall == 1) && do {
- open (RC,"$rcfile") ||
- &fatalmsg("Couldn't open system-wide default config file ${TeXDocRcDefaults}.\n");
- last CALL;
- };
- ($icall == 2) && do {
- open (RC,"$rcfile") ||
- &fatalmsg("Couldn't open personal config file ~/.texdocrc.\n");
- last CALL;
- };
- };
- while ($line = <RC>) {
- next if ($line =~ /^($|#)/);
- chomp $line;
- ($var,$val)=split("=",$line,2);
- RCVARS: {
- ($var =~ /texdocpath/i) && do { # TEXDOCPATH
- if (length $val > 0) {
- $pathflag=1;
- eval(join("",("\$",lc($var),"=\$val")));
- }
- last RCVARS;
- };
- ($var =~ /localdocpath/i) && do { # LOCALDOCPATH
- if (length $val > 0) {
- $pathflagl=1;
- eval(join("",("\$",lc($var),"=\$val")));
- }
- last RCVARS;
- };
- ($var =~ /homedocpath/i) && do { # HOMEDOCPATH
- if ($icall == 2 && length $val > 0) { # set only in ~/.texdocrc
- $pathflagh=1;
- eval(join("",("\$",lc($var),"=\$val")));
- }
- last RCVARS;
- };
- # other variables
- eval(join("",("\$",lc($var),"=\$val")));
- };
- }
- close(RC);
-# find texmf/doc, and possibly other distribution texmf trees
- if ($rcfile eq $sysrc || $pathflag == 1) {
- $texmfmain=`kpsewhich --expand-path=${qq}\$TEXMFMAIN${qq}`;
- chomp $texmfmain;
- $texdocpath="$texmfmain/$texdocpath";
- $texmfdist=`kpsewhich --expand-path=${qq}\$TEXMFDIST${qq}`;
- chomp $texmfdist;
- $distdocpath=join('/',"$texmfdist",basename($texdocpath,""))
- if (length $texmfdist);
- # TeXLive has this texmf-doc
- $texmfdoc=join('/',"$texmfmain-doc",basename($texdocpath,""));
- if (-e $texmfdoc) {
- chomp $texmfdoc;
- $docdocpath="$texmfdoc/$docdocpath";
- }
- }
-# find texmf-local/doc, if there is one
- if ($rcfile eq $sysrc || $pathflagl == 1) {
- $texmflocal=`kpsewhich --expand-path=${qq}\$TEXMFLOCAL${qq}`;
- chomp $texmflocal;
- if (length $texmflocal) {
- # if LOCALDOCPATH is not explicitly defined, it equals TEXDOCPATH
- unless (defined $localdocpath) {
- $localdocpath=basename($texdocpath,"");
- }
- $localdocpath="$texmflocal/$localdocpath";
- }
- }
-# find user's $HOMETEXMF/doc, if there is one
- if ($icall == 2 || $pathflagh == 1) {
- $texmfhome=`kpsewhich --expand-path=${qq}\$HOMETEXMF${qq}`;
- chomp $texmfhome;
- if (length $texmfhome) {
- # if HOMEDOCPATH is not explicitly defined, it equals TEXDOCPATH
- unless (defined $homedocpath) {
- $homedocpath=basename($texdocpath,"");
- }
- $homedocpath="$texmfhome/$homedocpath";
- }
- }
-# colours: create array
- @tdcolors=split(' ',$tdcolors);
- if (scalar @tdcolors != 4) { # if old texdocrc file is used
- if (!(-e $myrc) || (-e $myrc && $icall == 2)) {
- print "NOTE: Button colours not set in $rcfile; using defaults.\n";
- @tdcolors=('#d9d9d9','Black','#ececec','red');
- }
- }
- %butcol=('-background'=>$tdcolors[0],
- '-foreground'=>$tdcolors[1],
- '-activebackground'=>$tdcolors[2],
- '-activeforeground'=>$tdcolors[3]);
-# viewer: suppress viewer warnings/use $PAGER if no $txt_viewer is defined
- $quiet=($quiet =~ /y/i || $quiet eq "1") ? 1 : 0;
- if (!(defined $txt_viewer) && defined $ENV{PAGER}) {
- $txt_viewer=$ENV{PAGER};
- }
-# viewer: autostart viewer if listbox of search results contains only 1 item
- $autoview=($autoview =~ /y/i || $autoview eq "1") ? 1 : 0;
-# viewer: use text viewer to open files with unrecognized format
- $xfmt_viewer=($xfmt_viewer =~ /y/i || $xfmt_viewer eq "1") ? 1 : 0;
-# converter: output redirection flags for HTML/Text->PS converters
- $htmlps_redir=($htmlps_redir =~ /(y|1)/i) ? 1 : 0;
- $txtps_redir=($txtps_redir =~ /(y|1)/i) ? 1 : 0;
-# for backward compatibility of converter/printer options
- $dvips_conv.=" $dvips_opts" if ($dvips_opts);
- $pdfps_conv.=" $pdfps_opts" if ($pdfps_opts);
- $print_cmd.=" $print_opts" if ($print_opts);
-}
-
-# determine resolution if xwininfo is available
-# slightly modified from a patch contributed by Reinhard Kotucha
-sub x_resolution {
- my $x_res;
- if ($IsWin32) {
- $x_res = &GetScreenWidth;
- }
- else {
- open(XINF,"xwininfo -root|") or return 1200;
- while (<XINF>) {
- chop;
- if (/Width:/) { ($x_res=$_)=/Width:\s+(\d+)/; last; }
- }
- close(XINF);
- }
- return $x_res;
-}
-
-# generate a random name for temporary files
-sub randname {
- my $namestr;
- my @chars=("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z");
- my $time=time;
- my $maxcnt=3+substr($time,-1);
- for (my $i=0; $i<=$maxcnt; $i++) { $namestr.=$chars[rand(51)] }
- my @tmp=split(/./,$time/$$);
- $namestr.=$tmp[1];
- until (length($namestr) > 16) { $namestr.=int(rand(1000000)) }
- return $namestr;
-}
-
-# find index of an array entry
-sub arrindex {
- my @array=@_;
- my $item=pop @array;
- my $i=0;
- foreach (@array) {
- last if ($_ eq $item);
- ++$i;
- }
- return $i;
-}
-
-# clean up and exit
-sub clean_exit {
- foreach (@tmpfiles) { if (-e $_) { unlink $_; } }
- exit;
-}
-
-# alternative main window, launched for fatal error messages on startup
-sub fatalmsg {
- my($msg)=@_;
- print STDERR $msg; # also print to stderr
-# create frame for main window
- my $main=new MainWindow;
- $main->resizable(0,0);
- $main->title("TeX Documentation Browser");
- $main->bind('<Control-q>'=>sub { exit });
- $main->bind('<Control-k>'=>sub { exit });
- my $msgframe=$main->Frame(-background=>"#ffcc99");
- my $cmdframe=$main->Frame;
- $msgframe->pack(-side=>'top');
- $cmdframe->pack(-side=>'bottom',-fill=>'x');
-# make buttons for command frame
- my $Qbut=$cmdframe->Button(-text=>'Kill',%butcol,
- -command=>sub { exit })->pack(-fill=>'x');
-# define common default font for labels and text explicitly
- my @deffont=$Qbut->configure(-font);
-# ensure readability on high-res screens (suggested by R.Kotucha)
- $deffont='Helvetica -16 bold' if &x_resolution > 1200;
- $Qbut->configure(-font=>$deffont);
- $msgframe->Label(-text=>'FATAL ERROR',
- -font=>$deffont)->pack(-side=>'top', -fill=>'x');
-# get size of message text
- my @dummy=split("\n",$msg);
- my $nline=scalar @dummy;
- my $msgwidth=0;
- my $lline;
- foreach (@dummy) {
- $lline=length $_;
- if ($lline > $msgwidth) { $msgwidth=$lline; }
- }
- my $message=$msgframe->Text(-relief=>'flat',
- -font=>$deffont,
- -height=>$nline,
- -width=>$msgwidth)->pack(-side=>'top');
- $message->insert('end',$msg);
- $message->configure(-state=>'disabled');
- MainLoop;
-}
-
-if ($IsWin32) {
- sub GetScreenWidth {
- my $GetDeviceCaps = new Win32::API('gdi32', 'GetDeviceCaps', 'NN', 'N');
- my $HORZRES = 8; # from WinGDI.h
- if(not defined $GetDeviceCaps) {
- die "Can't import API GetDeviceCaps: $!\n";
- }
- return $GetDeviceCaps->Call(0, $HORZRES);
- }
-
- sub GetTempPath {
- my $GetTempPath = new Win32::API('kernel32', 'GetTempPath', 'NP', 'N');
- if(not defined $GetTempPath) {
- die "Can't import API GetTempPath: $!\n";
- }
- my $lpBuffer = " " x 260;
-
- $GetTempPath->Call(80, $lpBuffer);
- }
-
- sub ShellExecute {
- my ($command, $file) = @_;
- my $ShellExecute = new Win32::API('shell32', 'ShellExecute', 'NPPPPN', 'N');
- if(not defined $ShellExecute) {
- die "Can't import API ShellExecute: $!\n";
- }
- $ShellExecute->Call(0, $command, $file, '', '', 0);
- }
-
- sub GetHomeDir {
- my $home = $ENV{'HOME'};
- # Should check for CSIDL_...
- return $home;
- }
-}
-__END__
-Many TeX programmers provide more or less detailed manuals for
-their programs or packages. They are usually available as .dvi,
-.ps, .pdf, .html or plain text files (sometimes included in the
-.sty files instead of a separate documentation file) and can be
-accessed with this browser, which is simply an interface to find a
-documentation more easily. It starts the respective viewer for
-reading the selected documentation making use of a database file
-which contains the path entries according to the current teTeX
-texmf/doc structure; additional usage of a system-wide local and
-of individual user texmf trees with corresponding databases is also
-possible.
-The documentations are grouped in several categories shown in the
-main window; pressing one of its buttons lists all documentations
-belonging to this topic.
-The topic window lets you select one documentation file, view or
-send it to the default printer. By right-clicking on the selected
-item you get the complete path of the file.
-The search button of the main window allows you to search the
-database for a string; it does not search file names. Enter the
-string and hit <Return> to start the search or <Control-c> to
-cancel. Just hitting <Return> without typing something in will
-show the full list of files in the database.
-Defaults for the documentation root directory, the viewers, the
-converters, certain options and the printer are set in the global
-configuration file $sysrc.
-However, each user can put a copy of it as .texdocrc into his home
-directory to modify them according to his needs; modification or
-generation of ~/.texdocrc can also be done with the Settings menu.
-Additionally, the settings can be changed temporarily with this
-menu.
-
-The following key shortcuts are defined for use with the browser:
- <Ctrl-q> Quit browser
- <Ctrl-m> Raise the Main window to the foreground
- <Ctrl-s> Search a keyword in database (case insensitive)
- <Ctrl-c> Cancel/close subwindow or search entry widget
- <Ctrl-v> View selected document (topic windows)
- <Ctrl-p> Print selected document (topic windows)
- <Ctrl-t> Open settings menu
- <Ctrl-k> Kill fatal error message window (same as
- <Ctrl-q>)
- <Ctrl-h> Open this help
- <Return> Equivalent to button press;
- OK in selection menu and search
- <Tab> Next/previous widget
-
-There are the following command line options:
- -a autostart viewer if a listbox of search results
- contains only one item; can also be set in a
- configuration file
- -v disable suppression of viewer messages sent to
- stderr and of certain permanent message popup
- windows, in case this was not set in a
- configuration file; default: off
-
-Some more information is available in the manpage of texdoctk.
-
-Comments and suggestions to:
-Thomas Ruedas
-tr@geol.ku.dk
-# Local Variables:
-# mode: perl
-# auto-fill-hook: do-auto-fill
-# End:
diff --git a/Master/bin/alpha-linux/texexec b/Master/bin/alpha-linux/texexec
deleted file mode 100755
index 529d2a8dc23..00000000000
--- a/Master/bin/alpha-linux/texexec
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/bin/sh
-
-test -f /bin/sh5 && test -z "$RUNNING_SH5" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_SH5=true; export RUNNING_SH5; exec /bin/sh5 $0 ${1+"$@"}; }
-unset RUNNING_SH5
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-export PATH
-
-# hack around a bug in zsh:
-test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"'
-
-what=`echo $0 | sed 's@.*/@@'`
-
-p=`kpsewhich -format=texmfscripts $what.pl`
-{ test -n "$p" && test -f "$p"; } \
- || { echo "\`$what.pl' not found."; exit 1; }
-
-perl "$p" ${1+"$@"}
diff --git a/Master/bin/alpha-linux/texfont b/Master/bin/alpha-linux/texfont
deleted file mode 120000
index afced152700..00000000000
--- a/Master/bin/alpha-linux/texfont
+++ /dev/null
@@ -1 +0,0 @@
-texexec \ No newline at end of file
diff --git a/Master/bin/alpha-linux/texhash b/Master/bin/alpha-linux/texhash
deleted file mode 120000
index fe296c273bb..00000000000
--- a/Master/bin/alpha-linux/texhash
+++ /dev/null
@@ -1 +0,0 @@
-mktexlsr \ No newline at end of file
diff --git a/Master/bin/alpha-linux/texi2dvi b/Master/bin/alpha-linux/texi2dvi
deleted file mode 100755
index 18f6f59322b..00000000000
--- a/Master/bin/alpha-linux/texi2dvi
+++ /dev/null
@@ -1,836 +0,0 @@
-#! /bin/sh
-# texi2dvi --- produce DVI (or PDF) files from Texinfo (or LaTeX) sources.
-# $Id: texi2dvi,v 1.42 2005/02/11 13:35:14 karl Exp $
-#
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001,
-# 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
-#
-# 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, 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, you can either send email to this
-# program's maintainer or write to: The Free Software Foundation,
-# Inc.; 59 Temple Place, Suite 330; Boston, MA 02111-1307, USA.
-#
-# Original author: Noah Friedman.
-#
-# Please send bug reports, etc. to bug-texinfo@gnu.org.
-# If possible, please send a copy of the output of the script called with
-# the `--debug' option when making a bug report.
-
-test -f /bin/ksh && test -z "$RUNNING_KSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_KSH=true; export RUNNING_KSH; exec /bin/ksh $0 ${1+"$@"}; }
-unset RUNNING_KSH
-
-# This string is expanded by rcs automatically when this file is checked out.
-rcs_revision='$Revision: 1.42 $'
-rcs_version=`set - $rcs_revision; echo $2`
-program=`echo $0 | sed -e 's!.*/!!'`
-version="texi2dvi (GNU Texinfo 4.8) $rcs_version
-
-Copyright (C) 2005 Free Software Foundation, Inc.
-There is NO warranty. You may redistribute this software
-under the terms of the GNU General Public License.
-For more information about these matters, see the files named COPYING."
-
-usage="Usage: $program [OPTION]... FILE...
-
-Run each Texinfo or LaTeX FILE through TeX in turn until all
-cross-references are resolved, building all indices. The directory
-containing each FILE is searched for included files. The suffix of FILE
-is used to determine its language (LaTeX or Texinfo).
-
-Makeinfo is used to perform Texinfo macro expansion before running TeX
-when needed.
-
-Operation modes:
- -b, --batch no interaction
- -c, --clean remove all auxiliary files
- -D, --debug turn on shell debugging (set -x)
- -h, --help display this help and exit successfully
- -o, --output=OFILE leave output in OFILE (implies --clean);
- Only one input FILE may be specified in this case
- -q, --quiet no output unless errors (implies --batch)
- -s, --silent same as --quiet
- -v, --version display version information and exit successfully
- -V, --verbose report on what is done
-
-TeX tuning:
- -@ use @input instead of \input; for preloaded Texinfo
- -e, -E, --expand force macro expansion using makeinfo
- -I DIR search DIR for Texinfo files
- -l, --language=LANG specify the LANG of FILE (LaTeX or Texinfo)
- -p, --pdf use pdftex or pdflatex for processing
- -r, --recode call recode before TeX to translate input characters
- -t, --command=CMD insert CMD in copy of input file
- or --texinfo=CMD multiple values accumulate
-
-The values of the BIBTEX, LATEX (or PDFLATEX), MAKEINDEX, MAKEINFO,
-TEX (or PDFTEX), TEXINDEX, and THUMBPDF environment variables are used
-to run those commands, if they are set. Any CMD strings are added
-after @setfilename for Texinfo input, in the first line for LaTeX input.
-
-Email bug reports to <bug-texinfo@gnu.org>,
-general questions and discussion to <help-texinfo@gnu.org>.
-Texinfo home page: http://www.gnu.org/software/texinfo/"
-
-# Initialize variables for option overriding and otherwise.
-# Don't use `unset' since old bourne shells don't have this command.
-# Instead, assign them an empty value.
-batch=false # eval for batch mode
-clean=
-debug=
-escape='\'
-expand= # t for expansion via makeinfo
-miincludes= # makeinfo include path
-oformat=dvi
-oname= # --output
-quiet= # by default let the tools' message be displayed
-recode=false
-set_language=
-textra= # Extra TeX commands to insert in the input file.
-textra_cmd= # sed command to insert TEXTRA where appropriate
-tmpdir=${TMPDIR:-/tmp}/t2d$$ # avoid collisions on 8.3 filesystems.
-txincludes= # TEXINPUTS extensions, with trailing colon
-txiprereq=19990129 # minimum texinfo.tex version with macro expansion
-verb=false # echo for verbose mode
-
-orig_pwd=`pwd`
-
-# Systems which define $COMSPEC or $ComSpec use semicolons to separate
-# directories in TEXINPUTS -- except for Cygwin, where COMSPEC might be
-# inherited, but : is used.
-if test -n "$COMSPEC$ComSpec" && uname | grep -iv cygwin >/dev/null; then
- path_sep=";"
-else
- path_sep=":"
-fi
-
-# Pacify verbose cds.
-CDPATH=${ZSH_VERSION+.}$path_sep
-
-# In case someone crazy insists on using grep -E.
-: ${EGREP=egrep}
-
-# return true if program $1 is somewhere in PATH, else false.
-#
-findprog ()
-{
- foundprog=false
-
- saveIFS=$IFS
- IFS=$path_sep # break path components at the path separator
- for dir in $PATH; do
- # use test -x rather than test -f for DJGPP, where test -x checks
- # for .exe. But test -x will also return true for directories, so
- # explicitly ignore those.
- if test -x "$dir/$1" && test ! -d "$dir/$1"; then
- foundprog=true
- break
-
- # But on cygwin, test -x foo will not find foo.exe. So also check
- # for that.
- elif test -x "$dir/$1.exe"; then
- foundprog=true
- break
- fi
- done
- IFS=$saveIFS
- $foundprog
-}
-
-# Report some information.
-report ()
-{
- for i in "$@"
- do
- echo >&2 "$0: $i"
- done
-}
-
-# Report some verbose information.
-verbose ()
-{
- $verb >&2 "$0: $@"
-}
-
-# Report an error and exit with failure.
-fatal ()
-{
- s=$1
- shift
- report "$@"
- exit $s
-}
-
-# Save TEXINPUTS so we can construct a new TEXINPUTS path for each file.
-# Likewise for bibtex and makeindex.
-tex_envvars="BIBINPUTS BSTINPUTS INDEXSTYLE TEXINPUTS"
-for var in $tex_envvars; do
- eval ${var}_orig=\$$var
- export $var
-done
-
-
-# Push a token among the arguments that will be used to notice when we
-# ended options/arguments parsing.
-# Use "set dummy ...; shift" rather than 'set - ..." because on
-# Solaris set - turns off set -x (but keeps set -e).
-# Use ${1+"$@"} rather than "$@" because Digital Unix and Ultrix 4.3
-# still expand "$@" to a single argument (the empty string) rather
-# than nothing at all.
-arg_sep="$$--$$"
-set dummy ${1+"$@"} "$arg_sep"; shift
-
-#
-# Parse command line arguments.
-while test x"$1" != x"$arg_sep"; do
-
- # Handle --option=value by splitting apart and putting back on argv.
- case "$1" in
- --*=*)
- opt=`echo "$1" | sed -e 's/=.*//'`
- val=`echo "$1" | sed -e 's/[^=]*=//'`
- shift
- set dummy "$opt" "$val" ${1+"$@"}; shift
- ;;
- esac
-
- # This recognizes --quark as --quiet. So what.
- case "$1" in
- -@ ) escape=@;;
- # Silently and without documentation accept -b and --b[atch] as synonyms.
- -b | --b*) batch=true;;
- -c | --c*) clean=t;;
- -D | --d*) debug=t;;
- -e | -E | --e*) expand=t;;
- -h | --h*) echo "$usage"; exit 0;;
- -I | --I*)
- shift
- miincludes="$miincludes -I $1"
- txincludes="$txincludes$1$path_sep"
- ;;
- -l | --l*) shift; set_language=$1;;
- -o | --o*)
- shift
- clean=t
- case "$1" in
- /* | ?:/*) oname=$1;;
- *) oname="$orig_pwd/$1";;
- esac;;
- -p | --p*) oformat=pdf;;
- -q | -s | --q* | --s*) quiet=t; batch=true;;
- -r | --r*) recode=true;;
- -t | --tex* | --com* ) shift; textra="$textra\\
-"`echo "$1" | sed 's/\\\\/\\\\\\\\/g'`;;
- -v | --vers*) echo "$version"; exit 0;;
- -V | --verb*) verb=echo;;
- --) # What remains are not options.
- shift
- while test x"$1" != x"$arg_sep"; do
- set dummy ${1+"$@"} "$1"; shift
- shift
- done
- break;;
- -*)
- fatal 1 "Unknown or ambiguous option \`$1'." \
- "Try \`--help' for more information."
- ;;
- *) set dummy ${1+"$@"} "$1"; shift;;
- esac
- shift
-done
-# Pop the token
-shift
-
-# Interpret remaining command line args as filenames.
-case $# in
- 0)
- fatal 2 "Missing file arguments." "Try \`--help' for more information."
- ;;
- 1) ;;
- *)
- if test -n "$oname"; then
- fatal 2 "Can't use option \`--output' with more than one argument."
- fi
- ;;
-esac
-
-
-# We can't do much without tex.
-#
-if findprog ${TEX:-tex}; then :; else cat <<EOM
-You don't have a working TeX binary (${TEX:-tex}) installed anywhere in
-your PATH, and texi2dvi cannot proceed without one. If you want to use
-this script, you'll need to install TeX (if you don't have it) or change
-your PATH or TEX environment variable (if you do). See the --help
-output for more details.
-
-For information about obtaining TeX, please see http://www.tug.org. If
-you happen to be using Debian, you can get it with this command:
- apt-get install tetex-bin
-EOM
- exit 1
-fi
-
-
-# We want to use etex (or pdftex) if they are available, and the user
-# didn't explicitly specify. We don't check for elatex and pdfelatex
-# because (as of 2003), the LaTeX team has asked that new distributions
-# use etex by default anyway.
-#
-# End up with the TEX and PDFTEX variables set to what we are going to use.
-if test -z "$TEX"; then
- if findprog etex; then TEX=etex; else TEX=tex; fi
-fi
-#
-if test -z "$PDFTEX"; then
- if findprog pdfetex; then PDFTEX=pdfetex; else PDFTEX=pdftex; fi
-fi
-
-
-# Prepare the temporary directory. Remove it at exit, unless debugging.
-if test -z "$debug"; then
- trap "cd / && rm -rf $tmpdir" 0 1 2 15
-fi
-
-# Create the temporary directory with strict rights
-(umask 077 && mkdir $tmpdir) || exit 1
-
-# Prepare the tools we might need. This may be extra work in some
-# cases, but improves the readability of the script.
-utildir=$tmpdir/utils
-mkdir $utildir || exit 1
-
-# A sed script that preprocesses Texinfo sources in order to keep the
-# iftex sections only. We want to remove non TeX sections, and comment
-# (with `@c texi2dvi') TeX sections so that makeinfo does not try to
-# parse them. Nevertheless, while commenting TeX sections, don't
-# comment @macro/@end macro so that makeinfo does propagate them.
-# Unfortunately makeinfo --iftex --no-ifinfo doesn't work well enough
-# (yet), makeinfo can't parse the TeX commands, so work around with sed.
-#
-comment_iftex_sed=$utildir/comment.sed
-cat <<EOF >$comment_iftex_sed
-/^@tex/,/^@end tex/{
- s/^/@c texi2dvi/
-}
-/^@iftex/,/^@end iftex/{
- s/^/@c texi2dvi/
- /^@c texi2dvi@macro/,/^@c texi2dvi@end macro/{
- s/^@c texi2dvi//
- }
-}
-/^@ifnottex/,/^@end ifnottex/{
- s/^/@c (texi2dvi)/
-}
-/^@ifinfo/,/^@end ifinfo/{
- /^@node/p
- /^@menu/,/^@end menu/p
- t
- s/^/@c (texi2dvi)/
-}
-s/^@ifnotinfo/@c texi2dvi@ifnotinfo/
-s/^@end ifnotinfo/@c texi2dvi@end ifnotinfo/
-EOF
-# Uncommenting is simple: Remove any leading `@c texi2dvi'.
-uncomment_iftex_sed=$utildir/uncomment.sed
-cat <<EOF >$uncomment_iftex_sed
-s/^@c texi2dvi//
-EOF
-
-# Compute the list of xref files.
-# Takes the filename (without extension) of which we look for xref
-# files as argument. The index files must be reported last.
-get_xref_files ()
-{
- # Get list of xref files (indexes, tables and lists).
- # Find all files having root filename with a two-letter extension,
- # saves the ones that are really Texinfo-related files. .?o? catches
- # many files: .toc, .log, LaTeX tables and lists, FiXme's .lox, maybe more.
- for this_file in "$1".?o? "$1".aux "$1".?? "$1".idx; do
- # If file is empty, skip it.
- test -s "$this_file" || continue
- # If the file is not suitable to be an index or xref file, don't
- # process it. It's suitable if the first character is a
- # backslash or right quote or at, as long as the first line isn't
- # \input texinfo.
- first_character=`sed -n '1s/^\(.\).*$/\1/p;q' $this_file`
- if (test "x$first_character" = "x\\" \
- && sed 1q $this_file | grep -v '^\\input *texinfo' >/dev/null) \
- || test "x$first_character" = "x'" \
- || test "x$first_character" = "x@"; then
- xref_files="$xref_files ./$this_file"
- fi
- done
- echo "$xref_files"
-}
-
-# Convert relative paths to absolute paths, so we can run in another
-# directory (e.g., in --clean mode, or during the macro-support detection.)
-#
-# Empty path components are meaningful to tex. We rewrite them
-# as `EMPTY' so they don't get lost when we split on $path_sep.
-# Hopefully no one will have an actual directory named EMPTY.
-absolute_filenames ()
-{
- replace_empty="-e 's/^$path_sep/EMPTY$path_sep/g' \
- -e 's/$path_sep\$/${path_sep}EMPTY/g' \
- -e 's/$path_sep$path_sep/${path_sep}EMPTY:/g'"
- _res=`echo "$1" | eval sed $replace_empty`
- save_IFS=$IFS
- IFS=$path_sep
- set x $_res; shift
- _res=.
- for dir
- do
- case $dir in
- EMPTY)
- _res=$_res$path_sep
- ;;
- [\\/]* | ?:[\\/]*) # Absolute paths don't need to be expanded.
- _res=$_res$path_sep$dir
- ;;
- *)
- abs=`cd "$dir" && pwd` && _res=$_res$path_sep$abs
- ;;
- esac
- done
- echo "$_res"
-}
-
-
-# run_tex ()
-# ----------
-# Run TeX as "$tex $tex_args $filename_input", taking care of errors
-# and logs.
-run_tex ()
-{
- # Note that this will be used via an eval: quote properly.
- cmd=$tex
-
- # If possible, make TeX report error locations in GNU format.
- tex_args=
- case $tex_help in
- *file-line-error*) cmd="$cmd --file-line-error";;
- esac
-
- # Tell TeX to be batch if requested.
- if $batch; then
- # \batchmode does not show terminal output at all, so we don't
- # want that. And even in batch mode, TeX insists on having input
- # from the user. Close its stdin to make it impossible.
- cmd="$cmd </dev/null '${escape}nonstopmode' '${escape}input'"
- fi
-
- cmd="$cmd '$filename_input'"
-
- verbose "Running $cmd ..."
- if eval "$cmd" >&5; then :; else
- test "$clean" = t \
- && cp "$filename_noext.log" "$orig_pwd"
- fatal 1 "$tex exited with bad status, quitting." \
- "see $filename_noext.log for errors."
- fi
-}
-
-# File descriptor usage:
-# 0 standard input
-# 1 standard output (--verbose messages)
-# 2 standard error
-# 3 some systems may open it to /dev/tty
-# 4 used on the Kubota Titan
-# 5 tools output (turned off by --quiet)
-# 6 tracing/debugging (set -x output, etc.)
-
-# Tools' output. If quiet, discard, else redirect to the message flow.
-if test "$quiet" = t; then
- exec 5>/dev/null
-else
- exec 5>&1
-fi
-
-# Enable tracing
-if test "$debug" = t; then
- exec 6>&1
- set -x
-else
- exec 6>/dev/null
-fi
-
-#
-# TeXify files.
-
-for command_line_filename in ${1+"$@"}; do
- verbose "Processing $command_line_filename ..."
-
- # If the COMMAND_LINE_FILENAME is not absolute (e.g., --debug.tex),
- # prepend `./' in order to avoid that the tools take it as an option.
- echo "$command_line_filename" | $EGREP '^(/|[A-z]:/)' >&6 \
- || command_line_filename="./$command_line_filename"
-
- # See if the file exists. If it doesn't we're in trouble since, even
- # though the user may be able to reenter a valid filename at the tex
- # prompt (assuming they're attending the terminal), this script won't
- # be able to find the right xref files and so forth.
- if test ! -r "$command_line_filename"; then
- report "Could not read $command_line_filename, skipping."
- continue
- fi
-
- # Get the name of the current directory. We want the full path
- # because in clean mode we are in tmp, in which case a relative
- # path has no meaning.
- filename_dir=`echo $command_line_filename | sed 's!/[^/]*$!!;s!^$!.!'`
- filename_dir=`cd "$filename_dir" >/dev/null && pwd`
-
- # Strip directory part but leave extension.
- filename_ext=`basename "$command_line_filename"`
- # Strip extension.
- filename_noext=`echo "$filename_ext" | sed 's/\.[^.]*$//'`
- ext=`echo "$filename_ext" | sed 's/^.*\.//'`
-
- # _src. Use same basename since we want to generate aux files with
- # the same basename as the manual. If --expand, then output the
- # macro-expanded file to here, else copy the original file.
- tmpdir_src=$tmpdir/src
- filename_src=$tmpdir_src/$filename_noext.$ext
-
- # _xtr. The file with the user's extra commands.
- tmpdir_xtr=$tmpdir/xtr
- filename_xtr=$tmpdir_xtr/$filename_noext.$ext
-
- # _rcd. The Texinfo file recoded in 7bit.
- tmpdir_rcd=$tmpdir/rcd
- filename_rcd=$tmpdir_rcd/$filename_noext.$ext
-
- # _bak. Copies of the previous xref files (another round is run if
- # they differ from the new one).
- tmpdir_bak=$tmpdir/bak
-
- # Make all those directories and give up if we can't succeed.
- mkdir $tmpdir_src $tmpdir_xtr $tmpdir_rcd $tmpdir_bak || exit 1
-
- # Source file might include additional sources.
- # We want `.:$orig_pwd' before anything else. (We'll add `.:' later
- # after all other directories have been turned into absolute paths.)
- # `.' goes first to ensure that any old .aux, .cps,
- # etc. files in ${directory} don't get used in preference to fresher
- # files in `.'. Include orig_pwd in case we are in clean mode, where
- # we've cd'd to a temp directory.
- common="$orig_pwd$path_sep$filename_dir$path_sep$txincludes"
- for var in $tex_envvars; do
- eval ${var}="\$common\$${var}_orig"
- export $var
- done
-
- # Convert relative paths to absolute paths, so we can run in another
- # directory (e.g., in --clean mode, or during the macro-support detection.)
- TEXINPUTS=`absolute_filenames "$TEXINPUTS"`
- verbose "TEXINPUTS: $TEXINPUTS"
- BIBINPUTS=`absolute_filenames "$BIBINPUTS"`
- verbose "BIBINPUTS: $BIBINPUTS"
- BSTINPUTS=`absolute_filenames "$BSTINPUTS"`
- verbose "BSTINPUTS: $BSTINPUTS"
- INDEXSTYLE=`absolute_filenames "$INDEXSTYLE"`
- verbose "INDEXSTYLE: $INDEXSTYLE"
-
- # If the user explicitly specified the language, use that.
- # Otherwise, if the first line is \input texinfo, assume it's texinfo.
- # Otherwise, guess from the file extension.
- if test -n "$set_language"; then
- language=$set_language
- elif sed 1q "$command_line_filename" | grep 'input texinfo' >&6; then
- language=texinfo
- else
- language=
- fi
-
- # Get the type of the file (latex or texinfo) from the given language
- # we just guessed, or from the file extension if not set yet.
- case ${language:-$filename_ext} in
- [lL]a[tT]e[xX] | *.ltx | *.tex)
- # Assume a LaTeX file. LaTeX needs bibtex and uses latex for
- # compilation. No makeinfo.
- language=latex
- bibtex=${BIBTEX:-bibtex}
- makeinfo= # no point in running makeinfo on latex source.
- texindex=${MAKEINDEX:-makeindex}
- textra_cmd=1i
- if test $oformat = dvi; then
- tex=${LATEX:-latex}
- else
- tex=${PDFLATEX:-pdflatex}
- fi
- thumbpdf=${THUMBPDF:-thumbpdf}
- ;;
-
- *)
- # Assume a Texinfo file. Texinfo files need makeinfo, texindex and tex.
- language=texinfo
- bibtex=
- texindex=${TEXINDEX:-texindex}
- textra_cmd='/^@setfilename/a'
- if test $oformat = dvi; then
- # MetaPost also uses the TEX environment variable. If the user
- # has set TEX=latex for that reason, don't bomb out.
- if echo $TEX | grep 'latex$' >/dev/null; then
- tex=tex # don't bother trying to find etex
- else
- tex=$TEX
- fi
- else
- tex=$PDFTEX
- fi
- # Unless required by the user, makeinfo expansion is wanted only
- # if texinfo.tex is too old.
- if test "$expand" = t; then
- makeinfo=${MAKEINFO:-makeinfo}
- else
- # Check if texinfo.tex performs macro expansion by looking for
- # its version. The version is a date of the form YEAR-MO-DA.
- # We don't need to use [0-9] to match the digits since anyway
- # the comparison with $txiprereq, a number, will fail with non
- # digits.
- # Run in the tmpdir to avoid leaving files.
- (
- cd $tmpdir
- echo '\input texinfo.tex @bye' >txiversion.tex
- # Be sure that if tex wants to fail, it is not interactive:
- # close stdin.
- $tex txiversion.tex </dev/null
- ) >$tmpdir/txiversion.out 2>$tmpdir/txiversion.err
- if test $? != 0; then
- cat $tmpdir/txiversion.out
- cat $tmpdir/txiversion.err >&2
- fatal 1 "texinfo.tex appears to be broken, quitting."
- fi
- eval `sed -n 's/^.*\[\(.*\)version \(....\)-\(..\)-\(..\).*$/txiformat=\1 txiversion="\2\3\4"/p' $tmpdir/txiversion.out`
- verbose "texinfo.tex preloaded as \`$txiformat', version is \`$txiversion' ..."
- if test "$txiprereq" -le "$txiversion" >/dev/null 2>&1; then
- makeinfo=
- else
- makeinfo=${MAKEINFO:-makeinfo}
- fi
- # As long as we had to run TeX, offer the user this convenience:
- test "$txiformat" = Texinfo && escape=@
- fi
- thumbpdf=${THUMBPDF:-thumbpdf}
- ;;
- esac
-
- # Go to $tmpdir to try --help, since old versions that don't accept
- # --help will generate a texput.log.
- tex_help=`cd $tmpdir >/dev/null && $tex --help </dev/null 2>&1`
-
- # Expand macro commands in the original source file using Makeinfo.
- # Always use `end' footnote style, since the `separate' style
- # generates different output (arguably this is a bug in -E).
- # Discard main info output, the user asked to run TeX, not makeinfo.
- if test -n "$makeinfo"; then
- verbose "Macro-expanding $command_line_filename to $filename_src ..."
- sed -f $comment_iftex_sed "$command_line_filename" \
- | $makeinfo --footnote-style=end -I "$filename_dir" $miincludes \
- -o /dev/null --macro-expand=- \
- | sed -f $uncomment_iftex_sed >"$filename_src"
- filename_input=$filename_src
- fi
-
- # If makeinfo failed (or was not even run), use the original file as input.
- if test $? -ne 0 \
- || test ! -r "$filename_src"; then
- verbose "Reverting to $command_line_filename ..."
- filename_input=$filename_dir/$filename_ext
- fi
-
- # Used most commonly for @finalout, @smallbook, etc.
- if test -n "$textra"; then
- verbose "Inserting extra commands: $textra"
- sed "$textra_cmd\\
-$textra" "$filename_input" >"$filename_xtr"
- filename_input=$filename_xtr
- fi
-
- # If this is a Texinfo file with a specified input encoding, and
- # recode is available, then recode to plain 7 bit Texinfo.
- if test $language = texinfo; then
- pgm='s/^ *@documentencoding *\([^ ][^ ]*\) *$/\1/
- t found
- d
- :found
- q'
- encoding=`sed -e "$pgm" "$filename_input"`
- if $recode && test -n "$encoding" && findprog recode; then
- verbose "Recoding from $encoding to Texinfo."
- if recode "$encoding"..texinfo <"$filename_input" >"$filename_rcd" \
- && test -s "$filename_rcd"; then
- filename_input=$filename_rcd
- else
- verbose "Recoding failed, using original input."
- fi
- fi
- fi
-
- # If clean mode was specified, then move to the temporary directory.
- if test "$clean" = t; then
- verbose "cd $tmpdir_src"
- cd "$tmpdir_src" || exit 1
- fi
-
- while :; do # will break out of loop below
- orig_xref_files=`get_xref_files "$filename_noext"`
-
- # Save copies of originals for later comparison.
- if test -n "$orig_xref_files"; then
- verbose "Backing up xref files: `echo $orig_xref_files | sed 's|\./||g'`"
- cp $orig_xref_files $tmpdir_bak
- fi
-
- # Run bibtex on current file.
- # - If its input (AUX) exists.
- # - If AUX contains both `\bibdata' and `\bibstyle'.
- # - If some citations are missing (LOG contains `Citation').
- # or the LOG complains of a missing .bbl
- #
- # We run bibtex first, because I can see reasons for the indexes
- # to change after bibtex is run, but I see no reason for the
- # converse.
- #
- # Don't try to be too smart. Running bibtex only if the bbl file
- # exists and is older than the LaTeX file is wrong, since the
- # document might include files that have changed. Because there
- # can be several AUX (if there are \include's), but a single LOG,
- # looking for missing citations in LOG is easier, though we take
- # the risk to match false messages.
- if test -n "$bibtex" \
- && test -r "$filename_noext.aux" \
- && test -r "$filename_noext.log" \
- && (grep '^\\bibdata[{]' "$filename_noext.aux" \
- && grep '^\\bibstyle[{]' "$filename_noext.aux" \
- && (grep 'Warning:.*Citation.*undefined' "$filename_noext.log" \
- || grep 'No file .*\.bbl\.' "$filename_noext.log")) \
- >&6 2>&1; \
- then
- verbose "Running $bibtex $filename_noext ..."
- $bibtex "$filename_noext" >&5 ||
- fatal 1 "$bibtex exited with bad status, quitting."
- fi
-
- # What we'll run texindex on -- exclude non-index files.
- # Since we know index files are last, it is correct to remove everything
- # before .aux and .?o?. But don't really do <anything>o<anything>
- # -- don't match whitespace as <anything>.
- # Otherwise, if orig_xref_files contains something like
- # foo.xo foo.whatever
- # the space after the o will get matched.
- index_files=`echo "$orig_xref_files" \
- | sed "s!.*\.aux!!g;
- s!./$filename_noext\.[^ ]o[^ ]!!g;
- s/^[ ]*//;s/[ ]*$//"`
- # Run texindex (or makeindex) on current index files. If they
- # already exist, and after running TeX a first time the index
- # files don't change, then there's no reason to run TeX again.
- # But we won't know that if the index files are out of date or
- # nonexistent.
- if test -n "$texindex" && test -n "$index_files"; then
- verbose "Running $texindex $index_files ..."
- $texindex $index_files 2>&5 1>&2 ||
- fatal 1 "$texindex exited with bad status, quitting."
- fi
-
- # Finally, run TeX.
- run_tex
-
- # Decide if looping again is needed.
- finished=t
-
- # LaTeX (and the package changebar) report in the LOG file if it
- # should be rerun. This is needed for files included from
- # subdirs, since texi2dvi does not try to compare xref files in
- # subdirs. Performing xref files test is still good since LaTeX
- # does not report changes in xref files.
- if grep "Rerun to get" "$filename_noext.log" >&6 2>&1; then
- finished=
- fi
-
- # Check if xref files changed.
- new_xref_files=`get_xref_files "$filename_noext"`
- verbose "Original xref files = `echo $orig_xref_files | sed 's|\./||g'`"
- verbose "New xref files = `echo $new_xref_files | sed 's|\./||g'`"
-
- # If old and new lists don't at least have the same file list,
- # then one file or another has definitely changed.
- test "x$orig_xref_files" != "x$new_xref_files" && finished=
-
- # File list is the same. We must compare each file until we find
- # a difference.
- if test -n "$finished"; then
- for this_file in $new_xref_files; do
- verbose "Comparing xref file `echo $this_file | sed 's|\./||g'` ..."
- # cmp -s returns nonzero exit status if files differ.
- if cmp -s "$this_file" "$tmpdir_bak/$this_file"; then :; else
- # We only need to keep comparing until we find one that
- # differs, because we'll have to run texindex & tex again no
- # matter how many more there might be.
- finished=
- verbose "xref file `echo $this_file | sed 's|\./||g'` differed ..."
- test "$debug" = t && diff -c "$tmpdir_bak/$this_file" "$this_file"
- break
- fi
- done
- fi
-
- # If finished, exit the loop, else rerun the loop.
- test -n "$finished" && break
- done # while :;
-
- # If we were using thumbpdf and producing PDF, then run thumbpdf
- # and TeX one last time.
- if test $oformat = pdf \
- && test -r "$filename_noext.log" \
- && grep 'thumbpdf\.sty' "$filename_noext.log" >&6 2>&1; \
- then
- verbose "Running $thumbpdf $filename_noext ..."
- $thumbpdf "$filename_noext" >&5 ||
- fatal 1 "$thumbpdf exited with bad status, quitting."
- run_tex
- fi
-
-
- # If we were in clean mode, compilation was in a tmp directory.
- # Copy the DVI (or PDF) file into the directory where the compilation
- # has been done. (The temp dir is about to get removed anyway.)
- # We also return to the original directory so that
- # - the next file is processed in correct conditions
- # - the temporary file can be removed
- if test -n "$clean"; then
- if test -n "$oname"; then
- dest=$oname
- else
- dest=$orig_pwd
- fi
- verbose "Copying $oformat file from `pwd` to $dest"
- cp -p "./$filename_noext.$oformat" "$dest"
- cd / # in case $orig_pwd is on a different drive (for DOS)
- cd $orig_pwd || exit 1
- fi
-
- # Remove temporary files.
- if test "x$debug" = "x"; then
- verbose "Removing $tmpdir_src $tmpdir_xtr $tmpdir_bak ..."
- cd /
- rm -rf $tmpdir_src $tmpdir_xtr $tmpdir_bak
- fi
-done
-
-verbose "done."
-exit 0 # exit successfully, not however we ended the loop.
diff --git a/Master/bin/alpha-linux/texi2html b/Master/bin/alpha-linux/texi2html
deleted file mode 100755
index b10af9dd0e7..00000000000
--- a/Master/bin/alpha-linux/texi2html
+++ /dev/null
@@ -1,17536 +0,0 @@
-#! /usr/bin/perl
-'di ';
-'ig 00 ';
-#+##############################################################################
-#
-# texi2html: Program to transform Texinfo documents to HTML
-#
-# Copyright (C) 1999, 2000 Free Software Foundation, Inc.
-#
-# 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-#
-#-##############################################################################
-
-# This requires perl version 5 or higher
-#require 5.0;
-
-# for POSIX::setlocale and File::Spec
-require 5.00405;
-# Perl pragma to restrict unsafe constructs
-use strict;
-# used in case of tests, to revert to "C" locale.
-use POSIX qw(setlocale LC_ALL LC_CTYPE);
-# used to find a relative path back to the current working directory
-use File::Spec;
-#
-# According to
-# larry.jones@sdrc.com (Larry Jones)
-# this pragma is not present in perl5.004_02:
-#
-# Perl pragma to control optional warnings
-# use warnings;
-
-# Declarations. Empty lines separate the different classes of variables:
-
-
-#++##############################################################################
-#
-# NOTE FOR DEBUGGING THIS SCRIPT:
-# You can run 'perl texi2html.pl' directly, provided you have
-# the environment variable T2H_HOME set to the directory containing
-# the texi2html.init file
-#
-#--##############################################################################
-
-# CVS version:
-# $Id: texi2html.pl,v 1.126 2005/02/04 00:14:39 pertusus Exp $
-
-# Homepage:
-my $T2H_HOMEPAGE = "http://texi2html.cvshome.org/";
-
-# Authors (appears in comments):
-my $T2H_AUTHORS = <<EOT;
-Written by: Lionel Cons <Lionel.Cons\@cern.ch> (original author)
- Karl Berry <karl\@freefriends.org>
- Olaf Bachmann <obachman\@mathematik.uni-kl.de>
- and many others.
-Maintained by: Many creative people <dev\@texi2html.cvshome.org>
-Send bugs and suggestions to <users\@texi2html.cvshome.org>
-EOT
-
-# Version: set in configure.in
-my $THISVERSION = '1.76';
-my $THISPROG = "texi2html $THISVERSION"; # program name and version
-
-# set by configure, prefix for the sysconfdir and so on
-my $prefix = '/data/norbert/texlive-src/Build/source/inst';
-my $sysconfdir;
-my $pkgdatadir;
-my $datadir;
-
-# We need to eval as $prefix has to be expanded. However when we haven't
-# run configure @sysconfdir will be expanded as an array, thus we verify
-# whether configure was run or not
-if ('${prefix}/etc' ne '@' . 'sysconfdir@')
-{
- $sysconfdir = eval '"${prefix}/etc"';
-}
-else
-{
- $sysconfdir = "/usr/local/etc";
-}
-
-if ('/data/norbert/texlive-src/Build/source/inst' ne '@' . 'datadir@')
-{
- $pkgdatadir = eval '"/data/norbert/texlive-src/Build/source/inst/texi2html"';
- $datadir = eval '"/data/norbert/texlive-src/Build/source/inst"';
-}
-else
-{
- $pkgdatadir = "/usr/local/share/texi2html";
- $datadir = "/usr/local/share";
-}
-# The man page for this program is included at the end of this file and can be
-# viewed using the command 'nroff -man texi2html'.
-
-#+++############################################################################
-# #
-# Constants #
-# #
-#---############################################################################
-
-my $DEBUG_MENU = 1;
-my $DEBUG_INDEX = 2;
-my $DEBUG_TEXI = 4;
-my $DEBUG_MACROS = 8;
-my $DEBUG_FORMATS = 16;
-my $DEBUG_ELEMENTS = 32;
-my $DEBUG_USER = 64;
-my $DEBUG_L2H = 128;
-
-my $ERROR = "***"; # prefix for errors
-my $WARN = "**"; # prefix for warnings
-
-my $VARRE = '[\w\-]+'; # RE for a variable name
-my $NODERE = '[^:]+'; # RE for node names
-
-my $MAX_LEVEL = 4;
-my $MIN_LEVEL = 1;
-
-my $i18n_dir = 'i18n'; # name of the directory containing the per language files
-my $conf_file_name = 'Config' ;
-my $texinfo_htmlxref = 'htmlxref.cnf';
-
-# directories for texi2html init files
-my @texi2html_config_dirs = ('./');
-push @texi2html_config_dirs, "$ENV{'HOME'}/.texi2html/" if (defined($ENV{'HOME'}));
-push @texi2html_config_dirs, "$sysconfdir/texi2html/" if (defined($sysconfdir));
-push @texi2html_config_dirs, "$pkgdatadir" if (defined($pkgdatadir));
-
-# directories for texinfo configuration files
-my @texinfo_config_dirs = ('./.texinfo/');
-push @texinfo_config_dirs, "$ENV{'HOME'}/.texinfo/" if (defined($ENV{'HOME'}));
-push @texinfo_config_dirs, "$sysconfdir/texinfo/" if (defined($sysconfdir));
-push @texinfo_config_dirs, "$datadir/texinfo/" if (defined($datadir));
-
-#+++############################################################################
-# #
-# Initialization #
-# Pasted content of File $(srcdir)/texi2html.init: Default initializations #
-# #
-#---############################################################################
-
-# leave this within comments, and keep the require statement
-# This way, you can directly run texi2html.pl, if $ENV{T2H_HOME}/texi2html.init
-# exists.
-
-{
-package Texi2HTML::Config;
-
-
-sub load($)
-{
- my $file = shift;
- eval { require($file) ;};
- if ($@ ne '')
- {
- print STDERR "error loading $file: $@\n";
- return 0;
- }
- return 1;
-}
-
-# customization options variables
-
-use vars qw(
-$DEBUG
-$PREFIX
-$VERBOSE
-$SUBDIR
-$IDX_SUMMARY
-$SPLIT
-$SHORT_REF
-@EXPAND
-$EXPAND
-$TOP
-$DOCTYPE
-$FRAMESET_DOCTYPE
-$CHECK
-$TEST
-$DUMP_TEXI
-$MACRO_EXPAND
-$USE_GLOSSARY
-$INVISIBLE_MARK
-$USE_ISO
-$TOP_FILE
-$TOC_FILE
-$FRAMES
-$SHOW_MENU
-$NUMBER_SECTIONS
-$USE_NODES
-$USE_UNICODE
-$NODE_FILES
-$NODE_NAME_IN_MENU
-$AVOID_MENU_REDUNDANCY
-$SECTION_NAVIGATION
-$SHORTEXTN
-$EXTENSION
-$OUT
-$NOVALIDATE
-$DEF_TABLE
-$LANG
-$DO_CONTENTS
-$DO_SCONTENTS
-$SEPARATED_FOOTNOTES
-$TOC_LINKS
-$L2H
-$L2H_L2H
-$L2H_SKIP
-$L2H_TMP
-$L2H_CLEAN
-$L2H_FILE
-$L2H_HTML_VERSION
-$EXTERNAL_DIR
-@INCLUDE_DIRS
-@PREPEND_DIRS
-$IGNORE_PREAMBLE_TEXT
-@CSS_FILES
-);
-
-# customization variables
-use vars qw(
-$ENCODING
-$DOCUMENT_ENCODING
-$MENU_PRE_STYLE
-$CENTER_IMAGE
-$EXAMPLE_INDENT_CELL
-$SMALL_EXAMPLE_INDENT_CELL
-$SMALL_FONT_SIZE
-$SMALL_RULE
-$DEFAULT_RULE
-$MIDDLE_RULE
-$BIG_RULE
-$TOP_HEADING
-$INDEX_CHAPTER
-$SPLIT_INDEX
-$HREF_DIR_INSTEAD_FILE
-$AFTER_BODY_OPEN
-$PRE_BODY_CLOSE
-$EXTRA_HEAD
-$VERTICAL_HEAD_NAVIGATION
-$WORDS_IN_PAGE
-$ICONS
-$UNNUMBERED_SYMBOL_IN_MENU
-$MENU_SYMBOL
-$OPEN_QUOTE_SYMBOL
-$CLOSE_QUOTE_SYMBOL
-$TOC_LIST_STYLE
-$TOC_LIST_ATTRIBUTE
-$TOP_NODE_FILE
-$NODE_FILE_EXTENSION
-$BEFORE_OVERVIEW
-$AFTER_OVERVIEW
-$BEFORE_TOC_LINES
-$AFTER_TOC_LINES
-$NEW_CROSSREF_STYLE
-%ACTIVE_ICONS
-%NAVIGATION_TEXT
-%PASSIVE_ICONS
-%BUTTONS_GOTO
-%BUTTONS_EXAMPLE
-@CHAPTER_BUTTONS
-@MISC_BUTTONS
-@SECTION_BUTTONS
-@SECTION_FOOTER_BUTTONS
-@NODE_FOOTER_BUTTONS
-);
-
-# customization variables which may be guessed in the script
-#our $ADDRESS;
-use vars qw(
-$BODYTEXT
-$CSS_LINES
-$DOCUMENT_DESCRIPTION
-$EXTERNAL_CROSSREF_SPLIT
-);
-
-# I18n
-use vars qw(
-$I
-$LANGUAGES
-);
-
-# customizable subroutines references
-use vars qw(
-$print_section
-$one_section
-$end_section
-$print_Top_header
-$print_Top_footer
-$print_Top
-$print_Toc
-$print_Overview
-$print_Footnotes
-$print_About
-$print_misc_header
-$print_misc_footer
-$print_misc
-$print_section_header
-$print_section_footer
-$print_chapter_header
-$print_chapter_footer
-$print_page_head
-$print_page_foot
-$print_head_navigation
-$print_foot_navigation
-$button_icon_img
-$print_navigation
-$about_body
-$print_frame
-$print_toc_frame
-$toc_body
-$titlepage
-$css_lines
-$print_redirection_page
-$init_out
-$finish_out
-$node_file_name
-$element_file_name
-
-$protect_text
-$anchor
-$def_item
-$def
-$menu
-$menu_link
-$menu_description
-$menu_comment
-$simple_menu_link
-$ref_beginning
-$info_ref
-$book_ref
-$external_href
-$external_ref
-$internal_ref
-$table_item
-$table_line
-$row
-$cell
-$list_item
-$comment
-$def_line
-$def_line_no_texi
-$raw
-$heading
-$paragraph
-$preformatted
-$foot_line_and_ref
-$foot_section
-$address
-$image
-$index_entry_label
-$index_entry
-$index_letter
-$print_index
-$index_summary
-$summary_letter
-$complex_format
-$cartouche
-$sp
-$definition_category
-$table_list
-$copying_comment
-$index_summary_file_entry
-$index_summary_file_end
-$index_summary_file_begin
-$style
-$format
-$normal_text
-$empty_line
-$unknown
-$unknown_style
-$float
-$caption_shortcaption
-$listoffloats
-$listoffloats_entry
-$listoffloats_caption
-$listoffloats_float_style
-$listoffloats_style
-$acronym_like
-$quotation
-$quotation_prepend_text
-$paragraph_style_command
-
-$PRE_ABOUT
-$AFTER_ABOUT
-);
-
-# hash which entries might be redefined by the user
-use vars qw(
-$complex_format_map
-%accent_map
-%def_map
-%format_map
-%simple_map
-%simple_map_pre
-%simple_map_texi
-%style_map
-%style_map_pre
-%style_map_texi
-%unformatted_text_simple_map_texi
-%unformatted_text_style_map_texi
-%unformatted_text_texi_map
-%paragraph_style
-%things_map
-%pre_map
-%texi_map
-%unicode_map
-%unicode_diacritical
-%ascii_character_map
-%ascii_simple_map
-%ascii_things_map
-%perl_charset_to_html
-%iso_symbols
-%misc_command
-%css_map
-%format_in_paragraph
-%special_list_commands
-%accent_letters
-%unicode_accents
-%special_accents
-);
-
-$I = \&Texi2HTML::I18n::get_string;
-
-$toc_body = \&T2H_GPL_toc_body;
-$style = \&T2H_GPL_style;
-$format = \&T2H_GPL_format;
-$normal_text = \&t2h_gpl_normal_text;
-
-sub T2H_GPL_toc_body($)
-{
- my $elements_list = shift;
-# my $do_contents = shift;
-# my $do_scontents = shift;
- #return unless ($do_contents or $do_scontents or $FRAMES);
- return unless ($DO_CONTENTS or $DO_SCONTENTS or $FRAMES);
- my $current_level = 0;
- my $ul_style = $NUMBER_SECTIONS ? $TOC_LIST_ATTRIBUTE : '';
- foreach my $element (@$elements_list)
- {
- next if ($element->{'top'} or $element->{'index_page'});
- my $ind = ' ' x $current_level;
- my $level = $element->{'toc_level'};
- print STDERR "Bug no toc_level for ($element) $element->{'texi'}\n" if (!defined ($level));
- if ($level > $current_level)
- {
- while ($level > $current_level)
- {
- $current_level++;
- my $ln = "\n$ind<ul${ul_style}>\n";
- $ind = ' ' x $current_level;
- push(@{$Texi2HTML::TOC_LINES}, $ln);
- }
- }
- elsif ($level < $current_level)
- {
- while ($level < $current_level)
- {
- $current_level--;
- $ind = ' ' x $current_level;
- my $line = "</li>\n$ind</ul>";
- $line .= "</li>" if ($level == $current_level);
- push(@{$Texi2HTML::TOC_LINES}, "$line\n");
-
- }
- }
- else
- {
- push(@{$Texi2HTML::TOC_LINES}, "</li>\n");
- }
- my $file = '';
- $file = $element->{'file'} if ($SPLIT);
- my $text = $element->{'text'};
- $text = $element->{'name'} unless ($NUMBER_SECTIONS);
- my $entry = "<li>" . &$anchor ($element->{'tocid'}, "$file#$element->{'id'}",$text);
- push (@{$Texi2HTML::TOC_LINES}, $ind . $entry);
- push(@{$Texi2HTML::OVERVIEW}, $entry. "</li>\n") if ($level == 1);
- }
- while (0 < $current_level)
- {
- $current_level--;
- my $ind = ' ' x $current_level;
- push(@{$Texi2HTML::TOC_LINES}, "</li>\n$ind</ul>\n");
- }
- #@{$Texi2HTML::TOC_LINES} = () unless ($do_contents);
- @{$Texi2HTML::TOC_LINES} = () unless ($DO_CONTENTS);
- if (@{$Texi2HTML::TOC_LINES})
- {
- unshift @{$Texi2HTML::TOC_LINES}, $BEFORE_TOC_LINES;
- push @{$Texi2HTML::TOC_LINES}, $AFTER_TOC_LINES;
- }
- #@{$Texi2HTML::OVERVIEW} = () unless ($do_scontents or $FRAMES);
- @{$Texi2HTML::OVERVIEW} = () unless ($DO_SCONTENTS or $FRAMES);
- if (@{$Texi2HTML::OVERVIEW})
- {
- unshift @{$Texi2HTML::OVERVIEW}, "<ul${ul_style}>\n";
- push @{$Texi2HTML::OVERVIEW}, "</ul>\n";
- unshift @{$Texi2HTML::OVERVIEW}, $BEFORE_OVERVIEW;
- push @{$Texi2HTML::OVERVIEW}, $AFTER_OVERVIEW;
- }
-}
-
-sub T2H_GPL_style($$$$$$$$$)
-{ # known style
- my $style = shift;
- my $command = shift;
- my $text = shift;
- my $args = shift;
- my $no_close = shift;
- my $no_open = shift;
- my $line_nr = shift;
- my $state = shift;
- my $style_stack = shift;
-
- my $do_quotes = 0;
- my $use_attribute = 0;
- my $use_begin_end = 0;
- if (ref($style) eq 'HASH')
- {
- #print STDERR "GPL_STYLE $command\n";
- #print STDERR " @$args\n";
- $do_quotes = $style->{'quote'};
- if ((@{$style->{'args'}} == 1) and defined($style->{'attribute'}))
- {
- $style = $style->{'attribute'};
- $use_attribute = 1;
- $text = $args->[0];
- }
- elsif (defined($style->{'function'}))
- {
- $text = &{$style->{'function'}}($command, $args, $style_stack, $state, $line_nr);
- }
- }
- else
- {
- if ($style =~ s/^\"//)
- { # add quotes
- $do_quotes = 1;
- }
- if ($style =~ s/^\&//)
- { # custom
- $style = 'Texi2HTML::Config::' . $style;
- eval "\$text = &$style(\$text, \$command, \$style_stack)";
- }
- elsif ($style ne '')
- {
- $use_attribute = 1;
- }
- else
- { # no style
- }
- }
- if ($use_attribute)
- { # good style
- my $attribute_text = '';
- if ($style =~ /^(\w+)(\s+.*)/)
- {
- $style = $1;
- $attribute_text = $2;
- }
- if ($do_quotes)
- {
- $text = $OPEN_QUOTE_SYMBOL . "$text" if (!$no_open);
- $text .= $CLOSE_QUOTE_SYMBOL if (!$no_close);
- }
- $text = "<${style}$attribute_text>$text</$style>" ;
- }
- if (ref($style) eq 'HASH')
- {
- if (defined($style->{'begin'}) and !$no_open)
- {
- $text = $style->{'begin'} . $text;
- }
- if (defined($style->{'end'}) and !$no_close)
- {
- $text = $text . $style->{'end'};
- }
- }
- if ($do_quotes and !$use_attribute)
- {
- $text = $OPEN_QUOTE_SYMBOL . "$text" if (!$no_open);
- $text .= $CLOSE_QUOTE_SYMBOL if (!$no_close);
- }
- return $text;
-}
-
-sub T2H_GPL_format($$$)
-{
- my $tag = shift;
- my $element = shift;
- my $text = shift;
- return '' if (!defined($element) or ($text !~ /\S/));
- return $text if ($element eq '');
- my $attribute_text = '';
- if ($element =~ /^(\w+)(\s+.*)/)
- {
- $element = $1;
- $attribute_text = $2;
- }
- return "<${element}$attribute_text>\n" . $text. "</$element>\n";
-}
-
-sub t2h_gpl_normal_text($)
-{
- my $text = shift;
- $text =~ s/``/"/go;
- $text =~ s/''/"/go;
- $text =~ s/-(--?)/$1/go;
- return $text;
-}
-#
-# -*-perl-*-
-######################################################################
-# File: texi2html.init
-#
-# Default values for command-line arguments and for various customizable
-# procedures are set in this file.
-#
-# A copy of this file is pasted into the beginning of texi2html by
-# running './configure'.
-#
-# Copy this file, rename it and make changes to it, if you like.
-# Afterwards, load the file with command-line
-# option -init-file <your_init_file>
-#
-# $Id: texi2html.init,v 1.81 2005/02/01 21:20:28 pertusus Exp $
-
-######################################################################
-# The following variables can also be set by command-line options
-#
-#
-# The default values are set in this file, texi2html.init and the content
-# of this file is included at the beginning of the texi2html script file.
-# Those values may be overrided by values set in $sysconfdir/texi2htmlrc
-# and then by values set in $HOME/texi2htmlrc.
-#
-# command line switches may override these values, and values set in files
-# specified by -init-file are also taken into account.
-# values set in these files overwrite values set by the command-line
-# options appearing before -init-file and might still be overwritten by
-# command-line arguments following the -init-file option.
-
-# -debug
-# The integer value specifies what kind of debugging output is generated.
-$DEBUG = 0;
-
-# -doctype
-# The value is the 'SystemLiteral' which identifies the canonical DTD
-# for the document.
-# Definition: The SystemLiteral is called the entity's system
-# identifier. It is a URI, which may be used to retrieve the entity.
-# See http://www.xml.com/axml/target.html#NT-ExternalID
-$DOCTYPE = '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html401/loose.dtd">';
-
-# -frameset-doctype
-# When frames are used, this SystemLiteral identifies the DTD used for
-# the file containing the frame description.
-$FRAMESET_DOCTYPE = '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html401/frameset.dtd">';
-
-# -test
-# If this value is true, some variables which should be dynamically generated
-# (the date, the user running texi2html, the version of texi2html) are set to
-# fix and given values. This is usefull in case the resulting manual is
-# compared with a reference. For example this is used in the tests of test.sh.
-$TEST = 0;
-
-# -dump-texi
-# This value is usefull for debugging purposes. The result of the first pass is
-# put in <document name>.passtexi, the result of the second pass is put in
-# <document name>.passfirst.
-$DUMP_TEXI = 0;
-
-# -expand
-# the @EXPAND array contains the expanded section names.
-@EXPAND = ('html');
-
-# -invisible
-# This seems obsolete and is not used anywhere.
-# This was a workaround for a known bug of many WWW browsers, including
-# netscape. This was used to create invisible destination in anchors.
-$INVISIBLE_MARK = '';
-# $INVISIBLE_MARK = '&#160;';
-
-# -iso
-# if this value is true, ISO8859 characters are used for special symbols
-# (like copyright, etc).
-$USE_ISO = 1;
-
-# -I
-# add a directory to the list of directories where @include files are
-# searched for (besides the directory of the file). additional '-I'
-# args are appended to this list.
-# (APA: Don't implicitely search ., to conform with the docs!)
-# my @INCLUDE_DIRS = (".");
-@INCLUDE_DIRS = ();
-
-# -P
-# prepend a directory to the list of directories where @include files are
-# searched for before the directory of the file. additional '-P'
-# args are prepended to this list.
-@PREPEND_DIRS = ();
-
-# -top-file
-# This file name is used for the top-level file.
-# The extension is set appropriately, if necessary.
-# If empty, <basename of document>.html is used.
-# Typically, you would set this to "index.html".
-$TOP_FILE = '';
-
-# -toc-file
-# This file name is used for the table of contents. The
-# extension is set appropriately, if necessary.
-# If empty, <basename of document>_toc.html is used.
-$TOC_FILE = '';
-
-# -frames
-# if the value is true, HTML 4.0 "frames" are used.
-# A file describing the frame layout is generated, together with a file
-# with the short table of contents.
-$FRAMES = 0;
-
-# -menu | -nomenu
-# if the value is true the Texinfo menus are shown.
-$SHOW_MENU = 1;
-
-# -number | -nonumber
-# if this is set the sections are numbered, and section names and numbers
-# are used in references and menus (instead of node names).
-$NUMBER_SECTIONS = 1;
-
-# -use-nodes
-# if this is set the nodes are used as sectionning elements.
-# Otherwise the nodes are incorporated in sections.
-$USE_NODES = 0;
-
-# -node-files
-# if this is set one file per node is generated, which can be a target for
-# cross manual references.
-$NODE_FILES = 0;
-
-# -split section|chapter|node|none
-# if $SPLIT is set to 'section' (resp. 'chapter') one html file per section
-# (resp. chapter) is generated. If $SPLIT is set to 'node' one html file per
-# node or sectionning element is generated. In all these cases separate pages
-# for Top, Table of content (Toc), Overview and About are generated.
-# Otherwise a monolithic html file that contains the whole document is
-# created.
-#$SPLIT = 'section';
-$SPLIT = '';
-
-# -sec-nav|-nosec-nav
-# if this is set then navigation panels are printed at the beginning of each
-# section.
-# If the document is split at nodes then navigation panels are
-# printed at the end if there were more than $WORDS_IN_PAGE words on page.
-#
-# If the document is split at sections this is ignored.
-#
-# This is most useful if you do not want to have section navigation
-# with -split chapter. There will be chapter navigation panel at the
-# beginning and at the end of chapters anyway.
-$SECTION_NAVIGATION = 1;
-
-# -separated-footnotes
-# if this is set footnotes are on a separated page. Otherwise they are at
-# the end of each file (if the document is split).
-$SEPARATED_FOOTNOTES = 1;
-
-# -toc-links
-# if this is set, links from headings to toc entries are created.
-$TOC_LINKS = 0;
-
-# -subdir
-# If this is set, then put result files into the specified directory.
-# If not set, then result files are put into the current directory.
-#$SUBDIR = 'html';
-$SUBDIR = '';
-
-# -short-extn
-# If this is set, then all HTML files will have extension ".htm" instead of
-# ".html". This is helpful when shipping the document to DOS-based systems.
-$SHORTEXTN = 0;
-
-# -prefix
-# This set the output file prefix, prepended to all .html, .gif and .pl files.
-# By default, this is the basename of the document.
-$PREFIX = '';
-
-# -o filename
-# If this is set a monolithic document is outputted into $filename.
-$OUT = '';
-
-# -no-validate
-# suppress node cross-reference validation
-$NOVALIDATE = 0;
-
-# -short-ref
-# if this is set cross-references are given without section numbers.
-$SHORT_REF = '';
-
-# -idx-sum
-# if value is set, then for each @printindex <index name>
-# <document name>_<index name>.idx is created which contains lines of the form
-# key ref sorted alphabetically (case matters).
-$IDX_SUMMARY = 0;
-
-# -def-table
-# If this is set a table construction for @def.... instead of definition
-# lists.
-# (New Option: 27.07.2000 Karl Heinz Marbaise)
-$DEF_TABLE = 0;
-
-# -verbose
-# if this is set chatter about what we are doing.
-$VERBOSE = '';
-
-# -lang
-# FIXME this has changed
-# For page titles use $Texi2HTML::I18n::WORDS->{$T2H_LANG}->{...} as title.
-# To add a new language, supply list of titles (see $Texi2HTML::I18n::WORDS).
-# and use ISO 639 language codes (see e.g. perl module Locale-Codes-1.02
-# for definitions).
-# Default's to 'en' if not set or no @documentlanguage is specified.
-$LANG = 'en';
-
-# -ignore-preamble-text
-# If this is set the text before @node and sectionning commands is ignored.
-$IGNORE_PREAMBLE_TEXT = 0;
-
-# -html-xref-prefix
-# base directory for external manuals.
-#$EXTERNAL_DIR = '../';
-$EXTERNAL_DIR = undef;
-
-# -l2h
-# if this is set, latex2html is used for generation of math content.
-$L2H = '';
-
-# -css-include
-# All the specified css files are used. More precisely the @import sections
-# are added to the beginning of the CSS_LINES the remaining is added at
-# the end of the CSS_LINES (after the css rules generated by texi2html).
-# cf texinfo manual for more info.
-# - means STDIN
-@CSS_FILES = ();
-
-######################
-# The following options are only relevant if $L2H is set
-#
-# -l2h-l2h
-# name/location of latex2html program
-$L2H_L2H = "latex2html";
-
-# -l2h-skip
-# If this is set the actual call to latex2html is skipped. The previously
-# generated content is reused, instead.
-$L2H_SKIP = '';
-
-# -l2h-tmp
-# If this is set l2h uses the specified directory for temporary files. The path
-# leading to this directory may not contain a dot (i.e., a ".");
-# otherwise, l2h will fail.
-$L2H_TMP = '';
-
-# -l2h-file
-# If set, l2h uses the file as latex2html init file
-$L2H_FILE = 'l2h.init';
-
-# -l2h-clean
-# if this is set the intermediate files generated by texi2html in relation with
-# latex2html are cleaned (they all have the prefix <document name>_l2h_).
-$L2H_CLEAN = 1;
-
-##############################################################################
-#
-# The following can only be set in the init file
-#
-##############################################################################
-
-# If true do table of contents even if there is no @content
-$DO_CONTENTS = 0;
-# If true do short table of contents even if there is no @shortcontent
-$DO_SCONTENTS = 0;
-
-# if set, then use node names in menu entries, instead of section names
-$NODE_NAME_IN_MENU = 0;
-
-# new style for crossrefs
-$NEW_CROSSREF_STYLE = 1;
-
-# if set and menu entry equals menu description, then do not print
-# menu description.
-# Likewise, if node name equals entry name, do not print entry name.
-$AVOID_MENU_REDUNDANCY = 1;
-
-# if set, center @image by default
-# otherwise, do not center by default
-$CENTER_IMAGE = 1;
-
-# used as identation for block enclosing command @example, etc
-# If not empty, must be enclosed in <td></td>
-$EXAMPLE_INDENT_CELL = '<td>&nbsp;</td>';
-
-# same as above, only for @small
-$SMALL_EXAMPLE_INDENT_CELL = '<td>&nbsp;</td>';
-
-# font size for @small
-$SMALL_FONT_SIZE = '-1';
-
-# horizontal rules
-$SMALL_RULE = '<hr size="1">';
-$DEFAULT_RULE = '<hr>';
-$MIDDLE_RULE = '<hr size="2">';
-$BIG_RULE = '<hr size="6">';
-
-# if non-empty, and no @..heading appeared in Top node, then
-# use this as header for top node/section, otherwise use value of
-# @settitle or @shorttitle (in that order)
-$TOP_HEADING = '';
-
-# if set, use this chapter for 'Index' button, else
-# use first chapter with @printindex
-$INDEX_CHAPTER = '';
-
-# if set and $SPLIT is set, then split index pages at the next letter
-# after they have more than that many entries
-$SPLIT_INDEX = 100;
-
-# symbol put at the beginning of nodes entry in menu (and optionnaly of
-# unnumbered in menus, see next variable)
-$MENU_SYMBOL = '&bull;';
-#$MENU_SYMBOL = '*';
-
-$OPEN_QUOTE_SYMBOL = "\`";
-$CLOSE_QUOTE_SYMBOL = "'";
-
-# if true put a $MENU_SYMBOL before unnumbered in menus
-$UNNUMBERED_SYMBOL_IN_MENU = 0;
-
-# extension for nodes files when NODE_FILES is true
-$NODE_FILE_EXTENSION = "html";
-
-# extension
-$EXTENSION = "html";
-
-# file name used for Top node when NODE_FILES is true
-$TOP_NODE_FILE = "index";
-
-# this controls the pre style for menus
-$MENU_PRE_STYLE = 'font-family: serif';
-
-# This controls the ul style for toc
-$TOC_LIST_STYLE = 'list-style: none';
-$TOC_LIST_ATTRIBUTE = ' class="toc"';
-
-# These lines are inserted before and after the shortcontents
-$BEFORE_OVERVIEW = "<div class=\"shortcontents\">\n";
-$AFTER_OVERVIEW = "</div>\n";
-
-# These lines are inserted before and after the contents
-$BEFORE_TOC_LINES = "<div class=\"contents\">\n";
-$AFTER_TOC_LINES = "</div>\n";
-
-# if set (e.g., to index.html) replace hrefs to this file
-# (i.e., to index.html) by ./
-$HREF_DIR_INSTEAD_FILE = '';
-
-# text inserted after <body ...>
-$AFTER_BODY_OPEN = '';
-
-# text inserted before </body>, this will be automatically inside <p></p>
-$PRE_BODY_CLOSE = '';
-
-# this is added inside <head></head> after <title> and some <meta name>
-# stuff, it can be used for eg. <style>, <script>, <meta> etc. tags.
-$EXTRA_HEAD = '';
-
-# Specifies the minimum page length required before a navigation panel
-# is placed at the bottom of a page
-# FIXME this is not true:
-# THIS_WORDS_IN_PAGE holds number of words of current page
-$WORDS_IN_PAGE = 300;
-
-# if this is set a vertical navigation panel is used.
-$VERTICAL_HEAD_NAVIGATION = 0;
-
-# html version for latex2html
-$L2H_HTML_VERSION = "4.0";
-
-# specify in this array which "buttons" should appear in which order
-# in the navigation panel for sections; use ' ' for empty buttons (space)
-@SECTION_BUTTONS =
- (
- 'Back', 'Forward', ' ', 'FastBack', 'Up', 'FastForward',
- ' ', ' ', ' ', ' ',
- 'Top', 'Contents', 'Index', 'About',
- );
-
-# buttons for misc stuff
-@MISC_BUTTONS = ('Top', 'Contents', 'Index', 'About');
-
-# buttons for chapter file footers
-# (and headers but only if SECTION_NAVIGATION is false)
-@CHAPTER_BUTTONS =
- (
- 'FastBack', 'FastForward', ' ',
- ' ', ' ', ' ', ' ',
- 'Top', 'Contents', 'Index', 'About',
- );
-
-# buttons for section file footers
-@SECTION_FOOTER_BUTTONS =
- (
- 'Back', 'Forward', ' ', 'FastBack', 'Up', 'FastForward'
- );
-
-@NODE_FOOTER_BUTTONS =
- (
- 'Back', 'Forward', ' ', 'FastBack', 'Up', 'FastForward',
- ' ', ' ', ' ', ' ',
- 'Top', 'Contents', 'Index', 'About',
-# 'Back', 'Forward', ' ', 'FastBack', 'Up', 'FastForward'
- );
-
-$ICONS = 0;
-
-# insert here name of icon images for buttons
-# Icons are used, if $ICONS and resp. value are set
-%ACTIVE_ICONS =
- (
- 'Top', '',
- 'Contents', '',
- 'Overview', '',
- 'Index', '',
- 'This', '',
- 'Back', '',
- 'FastBack', '',
- 'Prev', '',
- 'Up', '',
- 'Next', '',
- 'NodeUp', '',
- 'NodeNext', '',
- 'NodePrev', '',
- 'Following', '',
- 'Forward', '',
- 'FastForward', '',
- 'About' , '',
- 'First', '',
- 'Last', '',
- ' ', ''
- );
-
-# insert here name of icon images for these, if button is inactive
-%PASSIVE_ICONS =
- (
- 'Top', '',
- 'Contents', '',
- 'Overview', '',
- 'Index', '',
- 'This', '',
- 'Back', '',
- 'FastBack', '',
- 'Prev', '',
- 'Up', '',
- 'Next', '',
- 'NodeUp', '',
- 'NodeNext', '',
- 'NodePrev', '',
- 'Following', '',
- 'Forward', '',
- 'FastForward', '',
- 'About', '',
- 'First', '',
- 'Last', '',
- );
-
-
-$init_out = \&t2h_default_init_out;
-$finish_out = \&t2h_default_finish_out;
-
-# We have to do this dynamically because of internationalization and because
-# in body $LANG could be used.
-sub t2h_default_init_out()
-{
-# Names of text as alternative for icons
- %NAVIGATION_TEXT =
- (
- 'Top', &$I('Top'),
- 'Contents', &$I('Contents'),
- 'Overview', &$I('Overview'),
- 'Index', &$I('Index'),
- ' ', ' &nbsp; ',
- 'This', &$I('current'),
- 'Back', ' &lt; ',
- 'FastBack', ' &lt;&lt; ',
- 'Prev', &$I('Prev'),
- 'Up', &$I(' Up '),
- 'Next', &$I('Next'),
- 'NodeUp', &$I('node up'),
- 'NodeNext', &$I('next node'),
- 'NodePrev', &$I('previous node'),
- 'Following', &$I('following node'),
- 'Forward', ' &gt; ',
- 'FastForward', ' &gt;&gt; ',
- 'About', ' ? ',
- 'First', ' |&lt; ',
- 'Last', ' &gt;| '
- );
-
- %BUTTONS_GOTO =
- (
- 'Top', &$I('cover (top) of document'),
- 'Contents', &$I('table of contents'),
- 'Overview', &$I('short table of contents'),
- 'Index', &$I('index'),
- 'This', &$I('current section'),
- 'Back', &$I('previous section in reading order'),
- 'FastBack', &$I('beginning of this chapter or previous chapter'),
- 'Prev', &$I('previous section on same level'),
- 'Up', &$I('up section'),
- 'Next', &$I('next section on same level'),
- 'NodeUp', &$I('up node'),
- 'NodeNext', &$I('next node'),
- 'NodePrev', &$I('previous node'),
- 'Following', &$I('node following in node reading order'),
- 'Forward', &$I('next section in reading order'),
- 'FastForward', &$I('next chapter'),
- 'About' , &$I('about (help)'),
- 'First', &$I('first section in reading order'),
- 'Last', &$I('last section in reading order'),
- );
- # Set the default body text, inserted between <body ... >
- $BODYTEXT = 'lang="' . $LANG . '" bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#800080" alink="#FF0000"' unless (defined($BODYTEXT));
- if (!defined($EXTERNAL_CROSSREF_SPLIT))
- {
- if ($SPLIT)
- {
- $EXTERNAL_CROSSREF_SPLIT = 1;
- }
- else
- {
- $EXTERNAL_CROSSREF_SPLIT = 0;
- }
- }
- $ENCODING = $DOCUMENT_ENCODING if (!defined($ENCODING));
- my $to_encoding;
- if (defined($ENCODING))
- {
- $to_encoding = main::set_encoding ($ENCODING);
-
- if (defined($to_encoding) and defined($perl_charset_to_html{$to_encoding}))
- {# FIXME is this really right ?
- $ENCODING = $perl_charset_to_html{$to_encoding};
- }
- elsif (defined($to_encoding))
- {# FIXME is this really right ?
- $ENCODING = $to_encoding;
- }
- }
- else
- {
- #$ENCODING = 'iso-8859-1';
- $ENCODING = 'us-ascii';
- }
- # FIXME default might be utf8 ?
- $DOCUMENT_ENCODING = 'us-ascii' if (!defined($DOCUMENT_ENCODING));
-
- return $to_encoding;
-};
-
-sub t2h_default_finish_out()
-{
-}
-
-#######################################################################
-#
-# Values guessed if not set here, set in init_out
-#
-#######################################################################
-
-$BODYTEXT = undef;
-
-# Formatted document encoding. If undef set to @documentencoding. If undef and
-# there is no @documentencoding, set in init_out
-$ENCODING = undef;
-
-# if undef set to @documentdescription. If there is no @documentdescription,
-# set in page_head
-$DOCUMENT_DESCRIPTION = undef;
-
-# if undef set 1 if SPLIT, to 0 otherwise
-$EXTERNAL_CROSSREF_SPLIT = undef;
-
-########################################################################
-# Control of Page layout:
-# You can make changes of the Page layout at two levels:
-# 1.) For small changes, it is often enough to change the value of
-# some global string/hash/array variables
-# 2.) For larger changes, reimplement one of the T2H_DEFAULT_<fnc>* routines,
-# give them another name, and assign them to the respective
-# $<fnc> variable.
-
-# As a general interface, the hashes Texi2HTML::HREF, Texi2HTML::NAME, Texi2HTML::NODE, Texi2HTML::NO_TEXI, hold
-# href, html-name, node-name, name after removal of texi commands of
-# This -- current section (resp. html page)
-# Top -- top page FIXME: ($T2H_TOP_FILE)
-# Contents -- Table of contents
-# Overview -- Short table of contents
-# Index -- Index page
-# About -- page which explain "navigation buttons"
-# First -- first node
-# Last -- last node
-#
-# Whether or not the following hash values are set, depends on the context
-# (all values are w.r.t. 'This' section)
-# Next -- next node of texinfo
-# Prev -- previous node of texinfo
-# NodeUp -- up node of texinfo
-# Following -- following node in node reading order, taking menu into account
-# Forward -- next node in reading order
-# Back -- previous node in reading order
-# Up -- parent given by sectionning commands
-# FastForward -- if leave node, up and next, else next node
-# FastBackward-- if leave node, up and prev, else prev node
-#
-# Furthermore, the following global variabels are set:
-# $Texi2HTML::THISDOC{title} -- title as set by @setttile
-# $Texi2HTML::THISDOC{title_no_texi} -- title without texi (without html elements)
-# $Texi2HTML::THISDOC{title_texi} -- title with texinfo @-commands
-# $Texi2HTML::THISDOC{fulltitle} -- full title as set by @title...
-# $Texi2HTML::THISDOC{subtitle} -- subtitle as set by @subtitle
-# $Texi2HTML::THISDOC{author} -- author as set by @author
-# $Texi2HTML::THISDOC{copying} -- text of @copying and @end copying in comment
-#
-# $Texi2HTML::THISDOC{program} -- name and version of texi2html
-# $Texi2HTML::THISDOC{program_homepage} -- homepage for texi2html
-# $Texi2HTML::THISDOC{program_authors} -- authors of texi2html
-# $Texi2HTML::THISDOC{today} -- date formatted with pretty_date
-# $Texi2HTML::THISDOC{toc_file} -- table of contents file
-# $Texi2HTML::THISDOC{file_base_name} -- base name of the texinfo manual file
-# $Texi2HTML::THISDOC{destination_directory}
- # -- directory for the resulting files
-# $Texi2HTML::THISDOC{user} -- user running the script
-# other $Texi2HTML::THISDOC keys corresponds with texinfo commands, the value
-# being the command arg, for the following commands:
-# kbdinputstyle, paragraphindent, setchapternewpage, headings, footnotestyle,
-# exampleindent, firstparagraphindent, everyheading, everyfooting,
-# evenheading, evenfooting, oddheading, oddfooting
-#
-# and pointer to arrays of lines which need to be printed by main::print_lines
-# $Texi2HTML::THIS_SECTION -- lines of 'This' section
-# $Texi2HTML::THIS_HEADER -- lines preceding navigation panel of 'This' section
-# $Texi2HTML::OVERVIEW -- lines of short table of contents
-# $Texi2HTML::TOC_LINES -- lines of table of contents
-# $Texi2HTML::TITLEPAGE -- lines of title page
-#
-# $Texi2HTML::THIS_ELEMENT holds the element reference.
-## FIXME: $T2H_TOP -- lines of Top texinfo node
-
-#
-# There are the following subs which control the layout:
-#
-$print_section = \&T2H_DEFAULT_print_section;
-$end_section = \&T2H_DEFAULT_end_section;
-$one_section = \&T2H_DEFAULT_one_section;
-$print_Top_header = \&T2H_DEFAULT_print_Top_header;
-$print_Top_footer = \&T2H_DEFAULT_print_Top_footer;
-$print_Top = \&T2H_DEFAULT_print_Top;
-$print_Toc = \&T2H_DEFAULT_print_Toc;
-$print_Overview = \&T2H_DEFAULT_print_Overview;
-$print_Footnotes = \&T2H_DEFAULT_print_Footnotes;
-$print_About = \&T2H_DEFAULT_print_About;
-$print_misc_header = \&T2H_DEFAULT_print_misc_header;
-$print_misc_footer = \&T2H_DEFAULT_print_misc_footer;
-$print_misc = \&T2H_DEFAULT_print_misc;
-$print_section_footer = \&T2H_DEFAULT_print_section_footer;
-$print_chapter_header = \&T2H_DEFAULT_print_chapter_header;
-$print_section_header = \&T2H_DEFAULT_print_section_header;
-$print_chapter_footer = \&T2H_DEFAULT_print_chapter_footer;
-$print_page_head = \&T2H_DEFAULT_print_page_head;
-$print_page_foot = \&T2H_DEFAULT_print_page_foot;
-$print_head_navigation = \&T2H_DEFAULT_print_head_navigation;
-$print_foot_navigation = \&T2H_DEFAULT_print_foot_navigation;
-$button_icon_img = \&T2H_DEFAULT_button_icon_img;
-$print_navigation = \&T2H_DEFAULT_print_navigation;
-$about_body = \&T2H_DEFAULT_about_body;
-$print_frame = \&T2H_DEFAULT_print_frame;
-$print_toc_frame = \&T2H_DEFAULT_print_toc_frame;
-#$toc_body = \&T2H_DEFAULT_toc_body;
-$titlepage = \&T2H_DEFAULT_titlepage;
-$css_lines = \&T2H_DEFAULT_css_lines;
-$print_redirection_page = \&T2H_DEFAULT_print_redirection_page;
-$node_file_name = \&T2H_DEFAULT_node_file_name;
-
-########################################################################
-# Layout for html for every sections
-#
-sub T2H_DEFAULT_print_section
-{
- my $fh = shift;
- my $first_in_page = shift;
- my $previous_is_top = shift;
- my $buttons = \@SECTION_BUTTONS;
-
- if ($first_in_page and $SECTION_NAVIGATION)
- {
- &$print_head_navigation($fh, $buttons);
- }
- else
- { # got to do this here, as it isn't done in print_head_navigation
- main::print_lines($fh, $Texi2HTML::THIS_HEADER);
- &$print_navigation($fh, $buttons) if ($SECTION_NAVIGATION);
- }
- my $nw = main::print_lines($fh);
- if (defined $SPLIT
- and (($SPLIT eq 'node') && $SECTION_NAVIGATION))
- {
- &$print_foot_navigation($fh);
- print $fh "$SMALL_RULE\n";
- &$print_navigation($fh, \@NODE_FOOTER_BUTTONS) if (!defined($WORDS_IN_PAGE) or (defined ($nw)
- and $nw >= $WORDS_IN_PAGE));
- }
-}
-
-sub T2H_DEFAULT_one_section($)
-{
- my $fh = shift;
- main::print_lines($fh, $Texi2HTML::THIS_HEADER);
- main::print_lines($fh);
- print $fh "$SMALL_RULE\n";
- &$print_foot_navigation($fh);
- &$print_page_foot($fh);
-}
-
-###################################################################
-# Layout of top-page I recommend that you use @ifnothtml, @ifhtml,
-# @html within the Top texinfo node to specify content of top-level
-# page.
-#
-# If you enclose everything in @ifnothtml, then title, subtitle,
-# author and overview is printed
-# Texi2HTML::HREF of Next, Prev, Up, Forward, Back are not defined
-# if $T2H_SPLIT then Top page is in its own html file
-sub T2H_DEFAULT_print_Top_header($$)
-{
- my $fh = shift;
- my $do_page_head = shift;
- &$print_page_head($fh) if ($do_page_head);
-}
-sub T2H_DEFAULT_print_Top_footer($$)
-{
- my $fh = shift;
- my $end_page = shift;
- my $buttons = \@MISC_BUTTONS;
- &$print_foot_navigation($fh);
- print $fh "$SMALL_RULE\n";
- if ($end_page)
- {
- &$print_navigation($fh, $buttons);
- &$print_page_foot($fh);
- }
-}
-sub T2H_DEFAULT_print_Top
-{
- my $fh = shift;
- my $has_top_heading = shift;
-
- # for redefining navigation buttons use:
- # my $buttons = [...];
- # as it is, 'Top', 'Contents', 'Index', 'About' are printed
- my $buttons = \@MISC_BUTTONS;
- &$print_head_navigation($fh, $buttons);
- my $nw;
- if ($Texi2HTML::THIS_SECTION)
- {
- # if top-level node has content, then print it with extra header
- #print $fh "<h1>$Texi2HTML::NAME{Top}</h1>\n"
- print $fh "<h1 class=\"settitle\">$Texi2HTML::NAME{Top}</h1>\n"
- unless ($has_top_heading);
- $nw = main::print_lines($fh, $Texi2HTML::THIS_SECTION);
- }
- else
- {
- # top-level node is fully enclosed in @ifnothtml
- # print fulltitle, subtitle, author, Overview
- print $fh $Texi2HTML::TITLEPAGE;
- if (@{$Texi2HTML::OVERVIEW})
- {
- print $fh '<h2> ' . &$I('Overview:') . "</h2>\n" . "<blockquote>\n";
- my $nw = main::print_lines($fh, $Texi2HTML::OVERVIEW);
- print $fh "</blockquote>\n";
- }
- }
-}
-
-###################################################################
-# Layout of Toc, Overview, and Footnotes pages
-# By default, we use "normal" layout
-# Texi2HTML::HREF of Next, Prev, Up, Forward, Back, etc are not defined
-# use: my $buttons = [...] to redefine navigation buttons
-sub T2H_DEFAULT_print_Toc
-{
- return &$print_misc(@_);
-}
-sub T2H_DEFAULT_print_Overview
-{
- return &$print_misc(@_);
-}
-sub T2H_DEFAULT_print_Footnotes
-{
- return &$print_misc(@_);
-}
-sub T2H_DEFAULT_print_About
-{
- return &$print_misc(@_);
-}
-
-sub T2H_DEFAULT_print_misc_header
-{
- my $fh = shift;
- my $buttons = shift;
- &$print_page_head($fh) if $SPLIT;
- &$print_head_navigation($fh, $buttons);
-}
-
-sub T2H_DEFAULT_print_misc_footer
-{
- my $fh = shift;
- my $buttons = shift;
- my $nwords = shift;
- &$print_foot_navigation($fh, $buttons);
- print $fh "$SMALL_RULE\n";
- if ($SPLIT)
- {
- &$print_navigation($fh, $buttons);# if ($SPLIT ne 'node');
- &$print_page_foot($fh);
- }
-}
-
-sub T2H_DEFAULT_print_misc
-{
- my $fh = shift;
- my $buttons = \@MISC_BUTTONS;
- &$print_misc_header($fh, $buttons);
- print $fh "<h1>$Texi2HTML::NAME{This}</h1>\n";
- main::print_lines($fh);
- &$print_misc_footer($fh, $buttons);
-}
-##################################################################
-# section_footer is only called if SPLIT eq 'section'
-# section_footer: after print_section of last section, before print_page_foot
-#
-
-sub T2H_DEFAULT_print_section_footer
-{
- my $fh = shift;
- my $buttons = \@SECTION_FOOTER_BUTTONS;
- &$end_section ($fh, 1);
- &$print_navigation($fh, $buttons);
-}
-
-###################################################################
-# chapter_header and chapter_footer are only called if
-# SPLIT eq 'chapter'
-# chapter_header: after print_page_head, before print_section
-# chapter_footer: after print_section of last section, before print_page_foot
-#
-# If you want to get rid of navigation stuff after each section,
-# redefine print_section such that it does not call print_navigation,
-# and put print_navigation into print_chapter_header
-sub T2H_DEFAULT_print_chapter_header
-{
- # nothing to do there, by default, the navigation panel
- # is the section navigation panel
- if (! $SECTION_NAVIGATION)
- { # in this case print_navigation is called here.
- my $fh = shift;
- my $buttons = \@CHAPTER_BUTTONS;
- &$print_head_navigation($fh, $buttons); #do that instead ?
- #&$print_head_navigation($fh, $buttons); # FIXME VERTICAL_HEAD_NAVIGATION ?
- print $fh "\n$MIDDLE_RULE\n";
- }
-}
-
-sub T2H_DEFAULT_print_chapter_footer
-{
- my $fh = shift;
- my $buttons = \@CHAPTER_BUTTONS;
- &$print_foot_navigation($fh);
- print $fh "$BIG_RULE\n";
- &$print_navigation($fh, $buttons);
-}
-
-sub T2H_DEFAULT_print_section_header
-{
- # nothing to do there, by default
- if (! $SECTION_NAVIGATION)
- { # in this case print_navigation is called here.
- my $fh = shift;
- my $buttons = \@SECTION_BUTTONS;
- &$print_head_navigation($fh, $buttons);
- }
-}
-
-###################################################################
-# Layout of standard header and footer
-#
-
-sub T2H_DEFAULT_print_page_head($)
-{
- my $fh = shift;
- my $longtitle = "$Texi2HTML::THISDOC{'title_unformatted'}";
- $longtitle .= ": $Texi2HTML::UNFORMATTED{'This'}" if exists $Texi2HTML::UNFORMATTED{'This'};
- #my $longtitle = "$Texi2HTML::THISDOC{'title_no_texi'}";
- #$longtitle .= ": $Texi2HTML::NO_TEXI{'This'}" if exists $Texi2HTML::NO_TEXI{'This'};
- my $description = $DOCUMENT_DESCRIPTION;
- $description = $longtitle if (!defined($description));
- $description = "<meta name=\"description\" content=\"$description\">" if
- ($description ne '');
- $description = $Texi2HTML::THISDOC{'documentdescription'} if (defined($Texi2HTML::THISDOC{'documentdescription'}));
- my $encoding = '';
- $encoding = "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=$ENCODING\">" if (defined($ENCODING) and ($ENCODING ne ''));
- print $fh <<EOT;
-$DOCTYPE
-<html>
-$Texi2HTML::THISDOC{'copying'}<!-- Created on $Texi2HTML::THISDOC{today} by $Texi2HTML::THISDOC{program} -->
-<!--
-$Texi2HTML::THISDOC{program_authors}
--->
-<head>
-<title>$longtitle</title>
-
-$description
-<meta name="keywords" content="$longtitle">
-<meta name="resource-type" content="document">
-<meta name="distribution" content="global">
-<meta name="Generator" content="$Texi2HTML::THISDOC{program}">
-$encoding
-$CSS_LINES
-$EXTRA_HEAD
-</head>
-
-<body $BODYTEXT>
-$AFTER_BODY_OPEN
-EOT
-}
-
-sub program_string()
-{
- my $user = $Texi2HTML::THISDOC{'user'};
- my $date = $Texi2HTML::THISDOC{'today'};
- $user = '' if (!defined($user));
- $date = '' if (!defined($date));
- if (($user ne '') and ($date ne ''))
- {
- return &$I('This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.', {
- 'user' => $user, 'date' => $date, 'program_homepage' => $Texi2HTML::THISDOC{'program_homepage'}, 'program' => $Texi2HTML::THISDOC{'program'} });
- }
- elsif ($user ne '')
- {
- return &$I('This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.', {
- 'user' => $user, 'program_homepage' => $Texi2HTML::THISDOC{'program_homepage'}, 'program' => $Texi2HTML::THISDOC{'program'} });
- }
- elsif ($date ne '')
- {
- return &$I('This document was generated on @i{%{date}} using @uref{%{program_homepage}, @i{%{program}}}.', {
- 'date' => $date, 'program_homepage' => $Texi2HTML::THISDOC{'program_homepage'}, 'program' => $Texi2HTML::THISDOC{'program'} });
- }
- return &$I('This document was generated using @uref{%{program_homepage}, @emph{%{program}}}.', {
- 'program_homepage' => $Texi2HTML::THISDOC{'program_homepage'}, 'program'
-=> $Texi2HTML::THISDOC{'program'} });
-}
-
-sub T2H_DEFAULT_end_section($$)
-{
- my $fh = shift;
- my $end_foot_navigation = shift;
- &$print_foot_navigation($fh) if ($end_foot_navigation);
- print $fh "$BIG_RULE\n";
-}
-
-sub T2H_DEFAULT_print_page_foot($)
-{
- my $fh = shift;
- my $program_string = program_string();
- print $fh <<EOT;
-<p>
- <font size="-1">
- $program_string
- </font>
- <br>
-$PRE_BODY_CLOSE
-</p>
-</body>
-</html>
-EOT
-}
-
-###################################################################
-# Layout of navigation panel
-
-sub T2H_DEFAULT_print_head_navigation($$)
-{
- my $fh = shift;
- my $buttons = shift;
- if ($VERTICAL_HEAD_NAVIGATION)
- {
- print $fh <<EOT;
-<table border="0" cellpadding="0" cellspacing="0">
-<tr valign="top">
-<td align="left">
-EOT
- }
- main::print_lines($fh, $Texi2HTML::THIS_HEADER);
- &$print_navigation($fh, $buttons, $VERTICAL_HEAD_NAVIGATION);
- if ($VERTICAL_HEAD_NAVIGATION)
- {
- print $fh <<EOT;
-</td>
-<td align="left">
-EOT
- }
- elsif (defined $SPLIT
- and ($SPLIT eq 'node'))
- {
- print $fh "$SMALL_RULE\n";
- }
-}
-
-sub T2H_DEFAULT_print_foot_navigation
-{
- my $fh = shift;
- if ($VERTICAL_HEAD_NAVIGATION)
- {
- print $fh <<EOT;
-</td>
-</tr>
-</table>
-EOT
- }
-}
-
-######################################################################
-# navigation panel
-#
-# how to create IMG tag
-sub T2H_DEFAULT_button_icon_img
-{
- my $button = shift;
- my $icon = shift;
- my $name = shift;
- return '' if (!defined($icon));
- if (defined($name) && $name)
- {
- $name = ": $name";
- }
- else
- {
- $name = '';
- }
- $button = "" if (!defined ($button));
- return qq{<img src="$icon" border="0" alt="$button$name" align="middle">};
-}
-
-sub T2H_DEFAULT_print_navigation
-{
- my $fh = shift;
- my $buttons = shift;
- my $vertical = shift;
- my $spacing = 1;
- print $fh '<table cellpadding="', $spacing, '" cellspacing="', $spacing,
- "\" border=\"0\">\n";
-
- print $fh "<tr>" unless $vertical;
- for my $button (@$buttons)
- {
- print $fh qq{<tr valign="top" align="left">\n} if $vertical;
- print $fh qq{<td valign="middle" align="left">};
-
- if (ref($button) eq 'CODE')
- {
- &$button($fh, $vertical);
- }
- elsif (ref($button) eq 'SCALAR')
- {
- print $fh "$$button" if defined($$button);
- }
- elsif (ref($button) eq 'ARRAY')
- {
- my $text = $button->[1];
- my $button_href = $button->[0];
- if (defined($button_href) and !ref($button_href)
- and defined($text) and (ref($text) eq 'SCALAR') and defined($$text))
- { # use given text
- if ($Texi2HTML::HREF{$button_href})
- {
- print $fh "" .
- &$anchor('',
- $Texi2HTML::HREF{$button_href},
- $$text
- )
- ;
- }
- else
- {
- print $fh $$text;
- }
- }
- }
- elsif ($button eq ' ')
- { # handle space button
- print $fh
- $ICONS && $ACTIVE_ICONS{' '} ?
- &$button_icon_img($button, $ACTIVE_ICONS{' '}) :
- $NAVIGATION_TEXT{' '};
- #next;
- }
- elsif ($Texi2HTML::HREF{$button})
- { # button is active
- my $btitle = $BUTTONS_GOTO{$button} ?
- 'title="' . ucfirst($BUTTONS_GOTO{$button}) . '"' : '';
- if ($ICONS && $ACTIVE_ICONS{$button})
- { # use icon
- print $fh '' .
- &$anchor('',
- $Texi2HTML::HREF{$button},
- &$button_icon_img($button,
- $ACTIVE_ICONS{$button},
- #$Texi2HTML::NAME{$button}),
- $Texi2HTML::NO_TEXI{$button}),
- $btitle
- );
- }
- else
- { # use text
- print $fh
- '[' .
- &$anchor('',
- $Texi2HTML::HREF{$button},
- $NAVIGATION_TEXT{$button},
- $btitle
- ) .
- ']';
- }
- }
- else
- { # button is passive
- print $fh
- $ICONS && $PASSIVE_ICONS{$button} ?
- &$button_icon_img($button,
- $PASSIVE_ICONS{$button},
- #$Texi2HTML::NAME{$button}) :
- $Texi2HTML::NO_TEXI{$button}) :
-
- "[" . $NAVIGATION_TEXT{$button} . "]";
- }
- print $fh "</td>\n";
- print $fh "</tr>\n" if $vertical;
- }
- print $fh "</tr>" unless $vertical;
- print $fh "</table>\n";
-}
-
-######################################################################
-# Frames: this is from "Richard Y. Kim" <ryk@coho.net>
-# Should be improved to be more conforming to other _print* functions
-# FIXME pass toc_file and main_file as args or in $Texi2HTML::THISDOC ?
-
-sub T2H_DEFAULT_print_frame
-{
- my $fh = shift;
- my $toc_file = shift;
- my $main_file = shift;
- print $fh <<EOT;
-$FRAMESET_DOCTYPE
-<html>
-<head><title>$Texi2HTML::THISDOC{title}</title></head>
-<frameset cols="140,*">
- <frame name="toc" src="$toc_file">
- <frame name="main" src="$main_file">
-</frameset>
-</html>
-EOT
-}
-
-sub T2H_DEFAULT_print_toc_frame
-{
- my $fh = shift;
- my $stoc_lines = shift;
- &$print_page_head($fh);
- print $fh <<EOT;
-<h2>Content</h2>
-EOT
- print $fh map {s/\bhref=/target="main" href=/; $_;} @$stoc_lines;
- print $fh "</body></html>\n";
-}
-
-# This subroutine is intended to fill @Texi2HTML::TOC_LINES and
-# @Texi2HTML::OVERVIEW with the table of contents and short table of
-# contents.
-#
-# arguments:
-# ref on an array containing all the elements
-
-# each element is a reference on a hash. The following keys might be of
-# use:
-# 'top': true if this is the top element
-# 'index_page': true if the element is an index page added because of index
-# splitting
-# 'toc_level': level of the element in the table of content. Highest level
-# is 1 for the @top element and for chapters, appendix and so on,
-# 2 for section, unnumberedsec and so on...
-# 'tocid': label used for reference linking to the element in table of
-# contents
-# 'file': the file containing the element, usefull to do href to that file
-# in case the document is split.
-# 'text': text of the element, with section number
-# 'name': text of the element, without section number
-
-# Relevant configuration variables are:
-# $NUMBER_SECTIONS
-# $TOC_LIST_ATTRIBUTE: usefull in case a list is used
-# $FRAMES: @Texi2HTML::OVERVIEW is used in one of the frames.
-# $BEFORE_OVERVIEW
-# $AFTER_OVERVIEW
-# $BEFORE_TOC_LINES
-# $AFTER_TOC_LINES
-# $DO_CONTENTS
-# $DO_SCONTENTS
-
-sub T2H_DEFAULT_toc_body($)
-{
-}
-
-sub T2H_DEFAULT_css_lines ($$)
-{
- my $import_lines = shift;
- my $rule_lines = shift;
- return if (defined($CSS_LINES) or (!@$rule_lines and !@$import_lines and (! keys(%css_map))));
- $CSS_LINES = "<style type=\"text/css\">\n<!--\n";
- $CSS_LINES .= join('',@$import_lines) . "\n" if (@$import_lines);
- foreach my $css_rule (sort(keys(%css_map)))
- {
- next unless ($css_map{$css_rule});
- $CSS_LINES .= "$css_rule {$css_map{$css_rule}}\n";
- }
- $CSS_LINES .= join('',@$rule_lines) . "\n" if (@$rule_lines);
- $CSS_LINES .= "-->\n</style>\n";
-}
-
-######################################################################
-# About page
-#
-
-# PRE_ABOUT can be a function reference or a scalar.
-# Note that if it is a scalar, T2H_InitGlobals has not been called,
-# and all global variables like $ADDRESS are not available.
-$PRE_ABOUT = sub
-{
- return ' ' . program_string() . "\n";
-};
-
-# If customizing $AFTER_ABOUT, be sure to put the content inside <p></p>.
-$AFTER_ABOUT = '';
-
-%BUTTONS_EXAMPLE =
- (
- 'Top', ' &nbsp; ',
- 'Contents', ' &nbsp; ',
- 'Overview', ' &nbsp; ',
- 'Index', ' &nbsp; ',
- 'This', '1.2.3',
- 'Back', '1.2.2',
- 'FastBack', '1',
- 'Prev', '1.2.2',
- 'Up', '1.2',
- 'Next', '1.2.4',
- 'NodeUp', '1.2',
- 'NodeNext', '1.2.4',
- 'NodePrev', '1.2.2',
- 'Following', '1.2.4',
- 'Forward', '1.2.4',
- 'FastForward', '2',
- 'About', ' &nbsp; ',
- 'First', '1.',
- 'Last', '1.2.4',
- );
-
-sub T2H_DEFAULT_about_body
-{
- my $about = "<p>\n";
- if (ref($PRE_ABOUT) eq 'CODE')
- {
- $about .= &$PRE_ABOUT();
- }
- else
- {
- $about .= $PRE_ABOUT;
- }
- $about .= <<EOT;
-</p>
-<p>
-EOT
- $about .= &$I(' The buttons in the navigation panels have the following meaning:') . "\n";
- $about .= <<EOT;
-</p>
-<table border="1">
- <tr>
-EOT
- $about .= ' <th> ' . &$I('Button') . " </th>\n" .
-' <th> ' . &$I('Name') . " </th>\n" .
-' <th> ' . &$I('Go to') . " </th>\n" .
-' <th> ' . &$I('From 1.2.3 go to') . "</th>\n" . " </tr>\n";
-
- for my $button (@SECTION_BUTTONS)
- {
- next if $button eq ' ' || ref($button) eq 'CODE' || ref($button) eq 'SCALAR' || ref($button) eq 'ARRAY';
- $about .= " <tr>\n <td align=\"center\">";
- $about .=
- ($ICONS && $ACTIVE_ICONS{$button} ?
- &$button_icon_img($button, $ACTIVE_ICONS{$button}) :
- ' [' . $NAVIGATION_TEXT{$button} . '] ');
- $about .= "</td>\n";
- $about .= <<EOT;
- <td align="center">$button</td>
- <td>$BUTTONS_GOTO{$button}</td>
- <td>$BUTTONS_EXAMPLE{$button}</td>
- </tr>
-EOT
- }
-
- $about .= <<EOT;
-</table>
-
-<p>
-EOT
- $about .= &$I(' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:') . "\n";
-
-# where the <strong> Example </strong> assumes that the current position
-# is at <strong> Subsubsection One-Two-Three </strong> of a document of
-# the following structure:
- $about .= <<EOT;
-</p>
-
-<ul>
-EOT
- $about .= ' <li> 1. ' . &$I('Section One') . "\n" .
-" <ul>\n" .
-' <li>1.1 ' . &$I('Subsection One-One') . "\n";
- $about .= <<EOT;
- <ul>
- <li>...</li>
- </ul>
- </li>
-EOT
- $about .= ' <li>1.2 ' . &$I('Subsection One-Two') . "\n" .
-" <ul>\n" .
-' <li>1.2.1 ' . &$I('Subsubsection One-Two-One') . "</li>\n" .
-' <li>1.2.2 ' . &$I('Subsubsection One-Two-Two') . "</li>\n" .
-' <li>1.2.3 ' . &$I('Subsubsection One-Two-Three') . " &nbsp; &nbsp;\n"
-.
-' <strong>&lt;== ' . &$I('Current Position') . " </strong></li>\n" .
-' <li>1.2.4 ' . &$I('Subsubsection One-Two-Four') . "</li>\n" .
-" </ul>\n" .
-" </li>\n" .
-' <li>1.3 ' . &$I('Subsection One-Three') . "\n";
- $about .= <<EOT;
- <ul>
- <li>...</li>
- </ul>
- </li>
-EOT
- $about .= ' <li>1.4 ' . &$I('Subsection One-Four') . "</li>\n";
- $about .= <<EOT;
- </ul>
- </li>
-</ul>
-$AFTER_ABOUT
-EOT
- return $about;
-}
-
-sub T2H_DEFAULT_titlepage()
-{
- my $result = '';
- if (@{$Texi2HTML::THISDOC{'titles'}}
- or @{$Texi2HTML::THISDOC{'subtitles'}}
- or @{$Texi2HTML::THISDOC{'authors'}})
- {
- $result = "<div align=\"center\">\n";
- foreach my $title (@{$Texi2HTML::THISDOC{'titles'}})
- {
- $result .= '<h1>' . $title . "</h1>\n";
- }
- foreach my $subtitle (@{$Texi2HTML::THISDOC{'subtitles'}})
- {
- $result .= '<h2>' . $subtitle . "</h2>\n";
- }
- foreach my $author (@{$Texi2HTML::THISDOC{'authors'}})
- {
- $result .= '<strong> ' . $author . " </strong><br>\n";
- }
- $result .= "</div>\n$DEFAULT_RULE\n";
- }
-
- $Texi2HTML::TITLEPAGE = $result . $Texi2HTML::TITLEPAGE;
-}
-
-# i18n
-sub T2H_DEFAULT_print_redirection_page($)
-{
- my $fh = shift;
- my $longtitle = "$Texi2HTML::THISDOC{'title_no_texi'}";
- $longtitle .= ": $Texi2HTML::NO_TEXI{'This'}" if exists $Texi2HTML::NO_TEXI{'This'};
- my $description = $longtitle;
- $description = $Texi2HTML::THISDOC{'documentdescription'} if (defined($Texi2HTML::THISDOC{'documentdescription'}));
- my $href = &$anchor('', $Texi2HTML::HREF{'This'}, $Texi2HTML::NAME{'This'});
- print $fh <<EOT;
-$DOCTYPE
-<html>
-<!-- Created on $Texi2HTML::THISDOC{'today'} by $Texi2HTML::THISDOC{'program'} -->
-<!--
-$Texi2HTML::THISDOC{'program_authors'}
--->
-<head>
-<title>$longtitle</title>
-
-<meta name="description" content="$description">
-<meta name="keywords" content="$longtitle">
-<meta name="resource-type" content="document">
-<meta name="distribution" content="global">
-<meta name="Generator" content="$Texi2HTML::THISDOC{program}">
-<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
-<meta http-equiv="Refresh" content="0; url=$Texi2HTML::HREF{'This'}">
-$EXTRA_HEAD
-</head>
-
-<body $BODYTEXT>
-$AFTER_BODY_OPEN
-<p>The node you are looking for is at $href.</p>
-</body>
-EOT
-}
-
-sub T2H_DEFAULT_node_file_name($)
-{
- my $node = shift;
- return (undef, undef) if ($node->{'external_node'} or $node->{'index_page'});
- my $file;
- my $node_file;
-
- if ($NEW_CROSSREF_STYLE)
- {
- if (defined($node->{'file'}))
- {
- $file = $node->{'file'};
- $node_file = $node->{'node_file'};
- }
- else
- {
- $node_file = $node->{'cross_manual_target'} . ".$NODE_FILE_EXTENSION";
- $file = $node_file if (($SPLIT eq 'node') and ($USE_NODES or $node->{'with_section'}));
- }
- }
- else
- {
- return (undef, undef) if (defined($node->{'file'}));
- my $name = main::remove_texi($node->{'texi'});
- $name =~ s/[^\w\.\-]/-/g;
- $name = "${name}.$NODE_FILE_EXTENSION";
- $file = $name if (($SPLIT eq 'node') and ($USE_NODES or $node->{'with_section'}));
- $node_file = $name;
- }
- return ($file, $node_file);
-}
-
-########################################################################
-# Control of formatting:
-# 1.) For some changes, it is often enough to change the value of
-# some global map. It might necessitate building a little
-# function along with the change in hash, if the change is the use
-# of another function (in style_map).
-# 2.) For other changes, reimplement one of the t2h_default_<fnc>* routines,
-# give them another name, and assign them to the respective
-# $<fnc> variable (below).
-
-
-#
-# This hash should have keys corresponding with the nonletter command accent
-# whose following character is considered to be the argument
-# This hash associates an accent macro to the ISO name for the accent if any.
-# The customary use of this map is to find the ISO name appearing in html
-# entity (like &eacute;) associated with a texinfo accent macro.
-#
-# The keys of the hash are
-# ": umlaut
-# ~: tilda accent
-# ^: circumflex accent
-# `: grave accent
-# ': acute accent
-# =: macron accent
-%accent_map = (
- '"', 'uml',
- '~', 'tilde',
- '^', 'circ',
- '`', 'grave',
- "'", 'acute',
- '=', '',
- );
-
-#
-# texinfo "simple things" (@foo) to HTML ones
-#
-%simple_map = (
- "*", "<br>", # HTML+
- ' ', '&nbsp;',
- "\t", '&nbsp;',
- "\n", '&nbsp;',
- # "&#173;" or "&shy;" could also be possible for @-, but it seems
- # that some browser will consider this as an always visible hyphen mark
- # which is not what we want (see http://www.cs.tut.fi/~jkorpela/shy.html)
- '-', '', # hyphenation hint
- '|', '', # used in formatting commands @evenfooting and friends
- '/', '',
- # spacing commands
- ':', '',
- '!', '!',
- '?', '?',
- '.', '.',
- '@', '@',
- '}', '}',
- '{', '{',
- );
-
-# this map is used in preformatted text
-%simple_map_pre = %simple_map;
-$simple_map_pre{'*'} = "\n";
-
-#
-# texinfo "things" (@foo{}) to HTML ones
-#
-%things_map = (
- 'TeX' => 'TeX',
- 'LaTeX' => 'LaTeX',
-# pertusus: unknown by makeinfo, not in texinfo manual (@* is the right thing)
-# 'br', '<br>', # paragraph break
- 'bullet' => '*',
-# #'copyright' => '(C)',
- 'copyright' => '&copy;',
- 'registeredsymbol' => '&reg;',
- 'dots' => '<small class="dots">...</small>',
- 'enddots' => '<small class="enddots">....</small>',
- 'equiv' => '==',
-# i18n
- 'error' => 'error--&gt;',
- 'expansion' => '==&gt;',
- 'minus' => '-',
- 'point' => '-!-',
- 'print' => '-|',
- 'result' => '=&gt;',
- # set in code using the language
- # 'today', &pretty_date,
- 'today' => '',
- 'aa' => '&aring;',
- 'AA' => '&Aring;',
- 'ae' => '&aelig;',
- 'oe' => '&oelig;', #pertusus: also &#156;. &oelig; not in html 3.2
- 'AE' => '&AElig;',
- 'OE' => '&OElig;', #pertusus: also &#140;. &OElig; not in html 3.2
- 'o' => '&oslash;',
- 'O' => '&Oslash;',
- 'ss' => '&szlig;',
- 'l' => '/l',
- 'L' => '/L',
- 'exclamdown' => '&iexcl;',
- 'questiondown' => '&iquest;',
- 'pounds' => '&pound;',
- 'ordf' => '&ordf;',
- 'ordm' => '&ordm;',
- 'comma' => ',',
- 'euro' => '&euro;',
- );
-
-# This map is used in preformatted environments
-%pre_map = %things_map;
-$pre_map{'dots'} = '...';
-$pre_map{'enddots'} = '....';
-#$pre_map{'br'} = "\n";
-
-# ascii representation of @-commands
-%ascii_simple_map = (
- "*", "\n", # HTML+
- ' ', ' ',
- "\t", "\t",
- "\n", "\n",
- '-', '', # hyphenation hint
- '|', '', # used in formatting commands @evenfooting and friends
- '/', '',
- ':', '',
- '!', '!',
- '?', '?',
- '.', '.',
- '@', '@',
- '}', '}',
- '{', '{',
-);
-
-%ascii_things_map = (
- 'TeX' => 'TeX',
- 'LaTeX' => 'LaTeX',
- 'bullet' => '*',
- 'copyright' => '(C)',
- 'registeredsymbol' => '(R)',
- 'dots' => '...',
- 'enddots' => '....',
- 'equiv' => '==',
-# i18n
- 'error' => 'error-->',
- 'expansion' => '==>',
- 'minus' => '-',
- 'point' => '-!-',
- 'print' => '-|',
- 'result' => '=>',
- 'today' => '',
- 'aa' => 'aa',
- 'AA' => 'AA',
- 'ae' => 'ae',
- 'oe' => 'oe',
- 'AE' => 'AE',
- 'OE' => 'OE',
- 'o' => '/o',
- 'O' => '/O',
- 'ss' => 'ss',
- 'l' => '/l',
- 'L' => '/L',
- 'exclamdown' => '?',
- 'questiondown' => '!',
- 'pounds' => '#',
- 'ordf' => 'a',
- 'ordm' => 'o',
- 'comma' => ',',
- 'euro' => 'Euro',
-);
-
-#
-# This map is used when texi elements are removed and replaced
-# by simple text
-#
-%simple_map_texi = (
- "*", "",
- " ", " ",
- "\t", " ",
- "-", "-", # soft hyphen
- "\n", "\n",
- "|", "",
- # spacing commands
- ":", "",
- "!", "!",
- "?", "?",
- ".", ".",
- "-", "",
- '@', '@',
- '}', '}',
- '{', '{',
- );
-
-# text replacing macros when texi commands are removed and plain text is
-# produced
-%texi_map = (
- 'TeX', 'TeX',
- 'LaTeX', 'LaTeX',
- 'bullet', '*',
- 'copyright', 'C',
- 'registeredsymbol', 'R',
- 'dots', '...',
- 'enddots', '....',
- 'equiv', '==',
- 'error', 'error-->',
- 'expansion', '==>',
- 'minus', '-',
- 'point', '-!-',
- 'print', '-|',
- 'result', '=>',
- 'today' => '',
- 'aa', 'aa',
- 'AA', 'AA',
- 'ae', 'ae',
- 'oe', 'oe',
- 'AE', 'AE',
- 'OE', 'OE',
- 'o', 'o',
- 'O', 'O',
- 'ss', 'ss',
- 'l', 'l',
- 'L', 'L',
- 'exclamdown', '! upside-down',
- #'exclamdown', '&iexcl;',
- 'questiondown', '? upside-down',
- #'questiondown', '&iquest;',
- 'pounds', 'pound sterling',
- #'pounds', '&pound;'
- 'ordf' => 'a',
- 'ordm' => 'o',
- 'comma' => ',',
- 'euro' => 'Euro',
- );
-
-# taken from
-#Latin extended additionnal
-#http://www.alanwood.net/unicode/latin_extended_additional.html
-#C1 Controls and Latin-1 Supplement
-#http://www.alanwood.net/unicode/latin_1_supplement.html
-#Latin Extended-A
-#http://www.alanwood.net/unicode/latin_extended_a.html
-#Latin Extended-B
-#http://www.alanwood.net/unicode/latin_extended_b.html
-#dotless i: 0131
-%unicode_map = (
- 'bullet' => '2022',
- 'copyright' => '00A9',
- 'registeredsymbol' => '00AE',
- 'dots' => '2026',
- 'enddots' => '',
- 'equiv' => '2261',
- 'error' => '',
- 'expansion' => '2192',
- 'minus' => '2212', # in mathematical operators
-# 'minus' => '002D', # in latin1
- 'point' => '2217',
- 'print' => '',
- 'result' => '21D2',
- 'today' => '',
- 'aa' => '00E5',
- 'AA' => '00C5',
- 'ae' => '00E6',
- 'oe' => '0153',
- 'AE' => '00C6',
- 'OE' => '0152',
- 'o' => '00F8',
- 'O' => '00D8',
- 'ss' => '00DF',
- 'l' => '0142',
- 'L' => '0141',
- 'exclamdown' => '00A1',
- 'questiondown' => '00BF',
- 'pounds' => '00A3',
- 'ordf' => '00AA',
- 'ordm' => '00BA',
- 'comma' => '002C',
- 'euro' => '20AC',
- );
-
-%ascii_character_map = (
- ' ' => '0020',
- '!' => '0021',
- '"' => '0022',
- '#' => '0023',
- '$' => '0024',
- '%' => '0025',
- '&' => '0026',
- "'" => '0027',
- '(' => '0028',
- ')' => '0029',
- '*' => '002A',
- '+' => '002B',
- ',' => '002C',
- '-' => '002D',
- '.' => '002E',
- '/' => '002F',
- ':' => '003A',
- ';' => '003B',
- '<' => '003C',
- '=' => '003D',
- '>' => '003E',
- '?' => '003F',
- '@' => '0040',
- '[' => '005B',
- '\\' => '005C',
- ']' => '005D',
- '^' => '005E',
- '_' => '005F',
- '`' => '0060',
- '{' => '007B',
- '|' => '007C',
- '}' => '007D',
- '~' => '007E',
-);
-
-%perl_charset_to_html = (
- 'utf8' => 'utf-8',
- 'ascii' => 'us-ascii',
-);
-
-# symbols used for the commands if $USE-ISO is true.
-%iso_symbols = (
- 'equiv' => '&equiv;',
- 'dots' => '&hellip;',
- 'bullet' => '&bull;',
- 'result' => '&rArr;',
- 'expansion' => '&rarr;',
- 'point' => '&lowast;',
- );
-
-# When the value begins with & the function with that name is used to do the
-# html. The first argument is the text enclosed within {}, the second is the
-# style name (which is also the key of the hash)
-#
-# Otherwithe the value is the html element used to enclose the text, and if
-# there is a " the resulting text is also enclosed within `'
-my %old_style_map = (
- 'acronym', '',
- 'asis', '',
- 'b', 'b',
- 'cite', 'cite',
- 'code', 'code',
- 'command', 'code',
- 'ctrl', '&default_ctrl',
- 'dfn', 'em',
- 'dmn', '',
- 'email', '&default_email',
- 'emph', 'em',
- 'env', 'code',
- 'file', '"tt',
- 'i', 'i',
- 'kbd', 'kbd',
- 'key', 'kbd',
- 'math', 'em',
- 'option', '"samp',
- 'r', '',
- 'samp', '"samp',
- 'sc', '&default_sc',
- 'strong', 'strong',
- 't', 'tt',
- 'uref', '&default_uref',
- 'url', '&default_url',
- 'var', 'var',
- 'verb', 'tt',
- 'titlefont', '&default_titlefont',
- 'w', '',
- );
-
-# default is {'args' => ['normal'], 'attribute' => ''},
-%style_map = (
- 'asis', {},
- 'b', {'attribute' => 'b'},
- 'cite', {'attribute' => 'cite'},
- 'code', {'args' => ['code'], 'attribute' => 'code'},
- 'command', {'args' => ['code'], 'attribute' => 'code'},
- 'ctrl', {'function' => \&t2h_default_ctrl},
- 'dfn', {'attribute' => 'em'},
- 'dmn', {},
- 'email', {'args' => ['code', 'normal'],
- 'function' => \&t2h_default_email},
- #'email', {'args' => ['normal', 'normal'],
- # 'function' => \&t2h_default_email},
- 'emph', {'attribute' => 'em'},
- 'env', {'args' => ['code'], 'attribute' => 'code'},
- 'file', {'args' => ['code'], 'attribute' => 'tt', 'quote' => '"'},
- 'i', {'attribute' => 'i'},
- 'slanted', {'attribute' => 'i'},
- 'sansserif', {'attribute' => 'span class="sansserif"'},
- 'kbd', {'args' => ['code'], 'attribute' => 'kbd'},
- 'key', {'attribute' => 'kbd'},
- 'math', {'attribute' => 'em'},
- 'option', {'args' => ['code'], 'attribute' => 'samp', 'quote' => '"'},
- 'r', {},
- 'samp', {'args' => ['code'], 'attribute' => 'samp', 'quote' => '"'},
- 'sc', {'function' => \&t2h_default_sc},
- 'strong', {'attribute' => 'strong'},
- 't', {'attribute' => 'tt'},
- 'uref', {'function' => \&t2h_default_uref,
- 'args' => ['code', 'normal', 'normal']},
- #'uref', {'function' => \&t2h_default_uref,
- # 'args' => ['normal', 'normal', 'normal']},
- 'url', {'function' => \&t2h_default_uref,
- 'args' => ['code', 'normal', 'normal']},
- 'indicateurl', {'args' => ['code'], 'begin' => '&lt;<code>', 'end' => '</code>&gt;'},
- 'var', {'attribute' => 'var'},
- 'verb', {'args' => ['code'], 'attribute' => 'tt'},
- 'titlefont', {'function' => \&t2h_default_titlefont},
- 'w', {},
- );
-
-%unicode_diacritical = (
- 'H' => '030B',
- 'ringaccent' => '030A',
- "'" => '0301',
- 'v' => '030C',
- ',' => '0327',
- '^' => '0302',
- 'dotaccent' => '0307',
- '`' => '0300',
- '=' => '0304',
- '~' => '0303',
- '"' => '0308',
- 'udotaccent' => '0323',
- 'ubaraccent' => '0332',
- 'u' => '0306'
-);
-
-%unicode_accents = (
- 'dotaccent' => { # dot above
- 'A' => '0226', #C moz-1.2
- 'a' => '0227', #c moz-1.2
- 'B' => '1E02',
- 'b' => '1E03',
- 'C' => '010A',
- 'c' => '010B',
- 'D' => '1E0A',
- 'd' => '1E0B',
- 'E' => '0116',
- 'e' => '0117',
- 'F' => '1E1E',
- 'f' => '1E1F',
- 'G' => '0120',
- 'g' => '0121',
- 'H' => '1E22',
- 'h' => '1E23',
- 'i' => '0069',
- 'I' => '0130',
- 'N' => '1E44',
- 'n' => '1E45',
- 'O' => '022E', #Y moz-1.2
- 'o' => '022F', #v moz-1.2
- 'P' => '1E56',
- 'p' => '1E57',
- 'R' => '1E58',
- 'r' => '1E59',
- 'S' => '1E60',
- 's' => '1E61',
- 'T' => '1E6A',
- 't' => '1E6B',
- 'W' => '1E86',
- 'w' => '1E87',
- 'X' => '1E8A',
- 'x' => '1E8B',
- 'Y' => '1E8E',
- 'y' => '1E8F',
- 'Z' => '017B',
- 'z' => '017C',
- },
- 'udotaccent' => { # dot below
- 'B' => '1E04',
- 'b' => '1E05',
- 'D' => '1E0C',
- 'd' => '1E0D',
- 'E' => '1EB8',
- 'e' => '1EB9',
- 'H' => '1E24',
- 'h' => '1E25',
- 'I' => '1ECA',
- 'i' => '1ECB',
- 'K' => '1E32',
- 'k' => '1E33',
- 'L' => '1E36',
- 'l' => '1E37',
- 'M' => '1E42',
- 'm' => '1E43',
- 'N' => '1E46',
- 'n' => '1E47',
- 'O' => '1ECC',
- 'o' => '1ECD',
- 'R' => '1E5A',
- 'r' => '1E5B',
- 'S' => '1E62',
- 's' => '1E63',
- 'T' => '1E6C',
- 't' => '1E6D',
- 'U' => '1EE4',
- 'u' => '1EE5',
- 'V' => '1E7E',
- 'v' => '1E7F',
- 'W' => '1E88',
- 'w' => '1E89',
- 'Y' => '1EF4',
- 'y' => '1EF5',
- 'Z' => '1E92',
- 'z' => '1E93',
- },
- 'ubaraccent' => { # line below
- 'B' => '1E06',
- 'b' => '1E07',
- 'D' => '1E0E',
- 'd' => '1E0F',
- 'h' => '1E96',
- 'K' => '1E34',
- 'k' => '1E35',
- 'L' => '1E3A',
- 'l' => '1E3B',
- 'N' => '1E48',
- 'n' => '1E49',
- 'R' => '1E5E',
- 'r' => '1E5F',
- 'T' => '1E6E',
- 't' => '1E6F',
- 'Z' => '1E94',
- 'z' => '1E95',
- },
- ',' => { # cedilla
- 'C' => '00C7',
- 'c' => '00E7',
- 'D' => '1E10',
- 'd' => '1E11',
- 'E' => '0228', #C moz-1.2
- 'e' => '0229', #c moz-1.2
- 'G' => '0122',
- 'g' => '0123',
- 'H' => '1E28',
- 'h' => '1E29',
- 'K' => '0136',
- 'k' => '0137',
- 'L' => '013B',
- 'l' => '013C',
- 'N' => '0145',
- 'n' => '0146',
- 'R' => '0156',
- 'r' => '0157',
- 'S' => '015E',
- 's' => '015F',
- 'T' => '0162',
- 't' => '0163',
- },
- '=' => { # macron
- 'A' => '0100',
- 'a' => '0101',
- 'E' => '0112',
- 'e' => '0113',
- 'I' => '012A',
- 'i' => '012B',
- 'G' => '1E20',
- 'g' => '1E21',
- 'O' => '014C',
- 'o' => '014D',
- 'U' => '016A',
- 'u' => '016B',
- 'Y' => '0232', #? moz-1.2
- 'y' => '0233', #? moz-1.2
- },
- '"' => { # diaeresis
- 'A' => '00C4',
- 'a' => '00E4',
- 'E' => '00CB',
- 'e' => '00EB',
- 'H' => '1E26',
- 'h' => '1E27',
- 'I' => '00CF',
- 'i' => '00EF',
- 'O' => '00D6',
- 'o' => '00F6',
- 't' => '1E97',
- 'U' => '00DC',
- 'u' => '00FC',
- 'W' => '1E84',
- 'w' => '1E85',
- 'X' => '1E8C',
- 'x' => '1E8D',
- 'y' => '00FF',
- 'Y' => '0178',
- },
- 'u' => { # breve
- 'A' => '0101',
- 'a' => '0102',
- 'E' => '0114',
- 'e' => '0115',
- 'G' => '011E',
- 'g' => '011F',
- 'I' => '012C',
- 'i' => '012D',
- 'O' => '014E',
- 'o' => '014F',
- 'U' => '016C',
- 'u' => '016D',
- },
- "'" => { # acute
- 'A' => '00C1',
- 'a' => '00E1',
- 'C' => '0106',
- 'c' => '0107',
- 'E' => '00C9',
- 'e' => '00E9',
- 'G' => '01F4',
- 'g' => '01F5',
- 'I' => '00CD',
- 'i' => '00ED',
- 'K' => '1E30',
- 'k' => '1E31',
- 'L' => '0139',
- 'l' => '013A',
- 'M' => '1E3E',
- 'm' => '1E3F',
- 'N' => '0143',
- 'n' => '0144',
- 'O' => '00D3',
- 'o' => '00F3',
- 'P' => '1E54',
- 'p' => '1E55',
- 'R' => '0154',
- 'r' => '0155',
- 'S' => '015A',
- 's' => '015B',
- 'U' => '00DA',
- 'u' => '00FA',
- 'W' => '1E82',
- 'w' => '1E83',
- 'Y' => '00DD',
- 'y' => '00FD',
- 'Z' => '0179',
- 'z' => '018A',
- },
- '~' => { # tilde
- 'A' => '00C3',
- 'a' => '00E3',
- 'E' => '1EBC',
- 'e' => '1EBD',
- 'I' => '0128',
- 'i' => '0129',
- 'N' => '00D1',
- 'n' => '00F1',
- 'O' => '00D5',
- 'o' => '00F5',
- 'U' => '0168',
- 'u' => '0169',
- 'V' => '1E7C',
- 'v' => '1E7D',
- 'Y' => '1EF8',
- 'y' => '1EF9',
- },
- '`' => { # grave
- 'A' => '00C0',
- 'a' => '00E0',
- 'E' => '00C8',
- 'e' => '00E8',
- 'I' => '00CC',
- 'i' => '00EC',
- 'N' => '01F8',
- 'n' => '01F9',
- 'O' => '00D2',
- 'o' => '00F2',
- 'U' => '00D9',
- 'u' => '00F9',
- 'W' => '1E80',
- 'w' => '1E81',
- 'Y' => '1EF2',
- 'y' => '1EF3',
- },
- '^' => { # circumflex
- 'A' => '00C2',
- 'a' => '00E2',
- 'C' => '0108',
- 'c' => '0109',
- 'E' => '00CA',
- 'e' => '00EA',
- 'G' => '011C',
- 'g' => '011D',
- 'H' => '0124',
- 'h' => '0125',
- 'I' => '00CE',
- 'i' => '00EE',
- 'J' => '0134',
- 'j' => '0135',
- 'O' => '00D4',
- 'o' => '00F4',
- 'S' => '015C',
- 's' => '015D',
- 'U' => '00DB',
- 'u' => '00FB',
- 'W' => '0174',
- 'w' => '0175',
- 'Y' => '0176',
- 'y' => '0177',
- 'Z' => '1E90',
- 'z' => '1E91',
- },
- 'ringaccent' => { # ring
- 'A' => '00C5',
- 'a' => '00E5',
- 'U' => '016E',
- 'u' => '016F',
- 'w' => '1E98',
- 'y' => '1E99',
- },
- 'v' => { # caron
- 'A' => '01CD',
- 'a' => '01CE',
- 'C' => '010C',
- 'c' => '010D',
- 'D' => '010E',
- 'd' => '010F',
- 'E' => '011A',
- 'e' => '011B',
- 'G' => '01E6',
- 'g' => '01E7',
- 'H' => '021E', #K with moz-1.2
- 'h' => '021F', #k with moz-1.2
- 'I' => '01CF',
- 'i' => '01D0',
- 'K' => '01E8',
- 'k' => '01E9',
- 'L' => '013D', #L' with moz-1.2
- 'l' => '013E', #l' with moz-1.2
- 'N' => '0147',
- 'n' => '0148',
- 'O' => '01D1',
- 'o' => '01D2',
- 'R' => '0158',
- 'r' => '0159',
- 'S' => '0160',
- 's' => '0161',
- 'T' => '0164',
- 't' => '0165',
- 'U' => '01D3',
- 'u' => '01D4',
- 'Z' => '017D',
- 'z' => '017E',
- },
- 'H' => { # double acute
- 'O' => '0150',
- 'o' => '0151',
- 'U' => '0170',
- 'u' => '0171',
- },
-);
-
-%special_accents = (
- 'ringaccent' => 'aA',
- "'" => 'aeiouyAEIOUY',
- ',' => 'cC',
- '^' => 'aeiouAEIOU',
- '`' => 'aeiouAEIOU',
- '~' => 'nNaoAO',
- '"' => 'aeiouyAEIOU',
-);
-
-#foreach my $accent_command ('tieaccent', 'dotless', keys(%unicode_accents), keys(%accent_map))
-foreach my $accent_command ('tieaccent', 'dotless', keys(%unicode_accents))
-{
- $style_map{$accent_command} = { 'function' => \&t2h_default_accent };
- $old_style_map{$accent_command} = '&default_accent';
- $style_map_texi{$accent_command} = { 'function' => \&t2h_default_ascii_accent };
-}
-
-sub default_accent($$)
-{
- my $text = shift;
- my $accent = shift;
- return "&${text}$accent_map{$accent};" if (defined($accent_map{$accent}) and defined($special_accents{$accent}) and ($text =~ /^[$special_accents{$accent}]$/));
- return '&' . $text . 'ring;' if (($accent eq 'ringaccent') and (defined($special_accents{$accent})) and ($text =~ /^[$special_accents{$accent}]$/));
- return $text . '&lt;' if ($accent eq 'v');
- return "&${text}cedil;" if (($accent eq ',') and (defined($special_accents{$accent})) and ($text =~ /^[$special_accents{$accent}]$/));
- return ascii_accents($text, $accent);
-}
-
-sub t2h_default_accent($$)
-{
- my $accent = shift;
- my $args = shift;
-
- my $text = $args->[0];
-
- return "&${text}$accent_map{$accent};" if (defined($accent_map{$accent}) and defined($special_accents{$accent}) and ($text =~ /^[$special_accents{$accent}]$/));
- return '&' . $text . 'ring;' if (($accent eq 'ringaccent') and (defined($special_accents{$accent})) and ($text =~ /^[$special_accents{$accent}]$/));
- return $text . '&lt;' if ($accent eq 'v');
- return "&${text}cedil;" if (($accent eq ',') and (defined($special_accents{$accent})) and ($text =~ /^[$special_accents{$accent}]$/));
- return ascii_accents($text, $accent);
-}
-
-sub ascii_accents($$)
-{
- my $text = shift;
- my $accent = shift;
- return $text if ($accent eq 'dotless');
- return $text . $accent if (defined($accent_map{$accent}));
- return $text . "''" if ($accent eq 'H');
- return $text . '.' if ($accent eq 'dotaccent');
- return $text . '*' if ($accent eq 'ringaccent');
- return $text . '[' if ($accent eq 'tieaccent');
- return $text . '(' if ($accent eq 'u');
- return $text . '_' if ($accent eq 'ubaraccent');
- return '.' . $text if ($accent eq 'udotaccent');
- return $text . '<' if ($accent eq 'v');
- return $text . ',' if ($accent eq ',');
-}
-
-sub default_sc($$)
-{
- return '<small>' . uc($_[0]) . '</small>';
-}
-
-sub t2h_default_sc($$$)
-{
- shift;
- my $args = shift;
- return '<small>' . uc($args->[0]) . '</small>';
-}
-
-sub default_ctrl($$)
-{
- return "^$_[0]";
-}
-
-sub t2h_default_ctrl($$$)
-{
- shift;
- my $args = shift;
- return "^$args->[0]";
-}
-
-sub default_sc_pre($$)
-{
- return uc($_[0]);
-}
-
-sub t2h_default_sc_pre($$$)
-{
- shift;
- my $args = shift;
- return uc($args->[0]);
-}
-
-sub default_titlefont($$)
-{
- return "<h1 class=\"titlefont\">$_[0]</h1>" if ($_[0] =~ /\S/);
- return '';
-}
-
-sub t2h_default_titlefont($$$)
-{
- shift;
- my $args = shift;
- return "<h1 class=\"titlefont\">$args->[0]</h1>" if ($args->[0] =~ /\S/);
- return '';
-}
-
-# According to the texinfo manual this shouldn't lead to a link
-# but rather be formatted like text. If we did like makeinfo do
-# it would be
-#sub url($$)
-#{
-# return '&lt;<code>' . $_[0] . '</code>&gt;';
-#}
-sub t2h_default_url ($$)
-{
- shift;
- my $args = shift;
- my $url = shift @$args;
- #$url =~ s/\s*$//;
- #$url =~ s/^\s*//;
- $url = main::normalise_space($url);
- return '' unless ($url =~ /\S/);
- return &$anchor('', $url, $url);
-}
-
-sub default_url ($$)
-{
- my $url = shift;
- my $command = shift;
- $url =~ s/\s*$//;
- $url =~ s/^\s*//;
- return '' unless ($url =~ /\S/);
- return &$anchor('', $url, $url);
-}
-
-sub default_uref($$)
-{
- my $arg = shift;
- my $command = shift;
- my ($url, $text, $replacement);
- ($url, $text, $replacement) = split /,\s*/, $arg;
- $url =~ s/\s*$//;
- $url =~ s/^\s*//;
- $text = $replacement if (defined($replacement));
- $text = $url unless ($text);
- return $text if ($url eq '');
- return &$anchor('', $url, $text);
-}
-
-sub t2h_default_uref($$)
-{
- shift;
- my $args = shift;
- my $url = shift @$args;
- my $text = shift @$args;
- my $replacement = shift @$args;
- #$url =~ s/\s*$//;
- #$url =~ s/^\s*//;
- $url = main::normalise_space($url);
- $replacement = '' if (!defined($replacement));
- $replacement = main::normalise_space($replacement);
- $text = '' if (!defined($text));
- $text = main::normalise_space($text);
- $text = $replacement if ($replacement ne '');
- $text = $url unless ($text ne '');
- return $text if ($url eq '');
- return &$anchor('', $url, $text);
-}
-
-sub default_email($$)
-{
- my $arg = shift;
- my $command = shift;
- my ($mail, $text);
- ($mail, $text) = split /,\s*/, $arg;
- $mail =~ s/\s*$//;
- $mail =~ s/^\s*//;
- $text = $mail unless ($text);
- return $text if ($mail eq '');
- return &$anchor('', "mailto:$mail", $text);
-}
-
-sub t2h_default_email($$)
-{
- my $command = shift;
- my $args = shift;
- my $mail = shift @$args;
- my $text = shift @$args;
- $mail = main::normalise_space($mail);
- #$mail =~ s/\s*$//;
- #$mail =~ s/^\s*//;
- $text = $mail unless (defined($text) and ($text ne ''));
- $text = main::normalise_space($text);
- return $text if ($mail eq '');
- return &$anchor('', "mailto:$mail", $text);
-}
-
-sub t2h_default_ascii_accent($$$$)
-{
- my $accent = shift;
- my $args = shift;
-
- my $text = $args->[0];
- return ascii_accents($text, $accent);
-}
-
-sub t2h_default_no_texi_email
-{
- my $command = shift;
- my $args = shift;
- my $mail = shift @$args;
- my $text = shift @$args;
- $mail = main::normalise_space($mail);
- #$mail =~ s/\s*$//;
- #$mail =~ s/^\s*//;
- return $text if (defined($text) and ($text ne ''));
- return $mail;
-}
-
-sub t2h_default_no_texi_image($$$$)
-{
- my $command = shift;
- my $args = shift;
- my $text = $args->[0];
- $text = main::normalise_space($text);
- my @args = split (/\s*,\s*/, $text);
- return $args[0];
-}
-
-sub t2h_default_no_texi_acronym_like($$)
-{
- my $command = shift;
- my $args = shift;
- my $acronym_texi = $args->[0];
- return (main::remove_texi($acronym_texi));
-}
-
-sub t2h_remove_command($$$$)
-{
- return '';
-}
-
-# This is used for style in preformatted sections
-my %old_style_map_pre = %old_style_map;
-$old_style_map_pre{'sc'} = '&default_sc_pre';
-$old_style_map_pre{'titlefont'} = '';
-
-foreach my $command (keys(%style_map))
-{
- $style_map_pre{$command} = {};
- $style_map_texi{$command} = {} if (!exists($style_map_texi{$command}));
- $style_map_texi{$command}->{'args'} = $style_map{$command}->{'args'}
- if (exists($style_map{$command}->{'args'}));
- #print STDERR "COMMAND $command";
-
- foreach my $key (keys(%{$style_map{$command}}))
- {
- $style_map_pre{$command}->{$key} = $style_map{$command}->{$key};
- }
-}
-
-$style_map_pre{'sc'}->{'function'} = \&t2h_default_sc_pre;
-$style_map_pre{'titlefont'} = {};
-
-$style_map_texi{'sc'}->{'function'} = \&t2h_default_sc_pre;
-$style_map_texi{'email'}->{'function'} = \&t2h_default_no_texi_email;
-
-####### special styles. You shouldn't need to change them
-my %special_style = (
- #'xref' => ['keep','normal','normal','keep','normal'],
- 'xref' => { 'args' => ['keep','keep','keep','keep','keep'],
- 'function' => \&main::do_xref },
- 'ref' => { 'args' => ['keep','keep','keep','keep','keep'],
- 'function' => \&main::do_xref },
- 'pxref' => { 'args' => ['keep','keep','keep','keep','keep'],
- 'function' => \&main::do_xref },
- 'inforef' => { 'args' => ['keep','keep','keep'],
- 'function' => \&main::do_xref },
- 'image' => { 'args' => ['keep'], 'function' => \&main::do_image },
- 'anchor' => { 'args' => ['keep'], 'function' => \&main::do_anchor_label },
- 'footnote' => { 'args' => ['keep'], 'function' => \&main::do_footnote },
- 'shortcaption' => { 'args' => ['keep'], 'function' => \&main::do_caption_shortcaption },
- 'caption' => { 'args' => ['keep'], 'function' => \&main::do_caption_shortcaption },
- 'acronym', {'args' => ['keep','keep'], 'function' => \&main::do_acronym_like},
- 'abbr', {'args' => ['keep','keep'], 'function' => \&main::do_acronym_like},
-);
-
-# FIXME the unless defined(.... are now unusefull because the user can
-# overwrite.
-
-# @image is replaced by the first arg in strings
-$style_map_texi{'image'} = { 'args' => ['keep'],
- 'function' => \&t2h_default_no_texi_image }
- unless (defined($style_map_texi{'image'}));
-
-$style_map_texi{'acronym'} = { 'args' => ['keep','keep'],
- 'function' => \&t2h_default_no_texi_acronym_like };
-$style_map_texi{'abbr'} = { 'args' => ['keep','keep'],
- 'function' => \&t2h_default_no_texi_acronym_like };
-
-foreach my $special (keys(%special_style))
-{
- $style_map{$special} = $special_style{$special}
- unless (defined($style_map{$special}));
- $style_map_pre{$special} = $special_style{$special}
- unless (defined($style_map_pre{$special}));
- $style_map_texi{$special} = { 'args' => ['keep'],
- 'function' => \&t2h_remove_command }
- unless (defined($style_map_texi{$special}));
-}
-####### end special styles.
-
-
-#foreach my $command (keys(%style_map))
-#{
-# print STDERR "STYLE_MAP_TEXI $command($style_map_texi{$command}) ";
-# print STDERR "ARGS $style_map_texi{$command}->{'args'} " if (defined($style_map_texi{$command}->{'args'}));
-# print STDERR "FUN $style_map_texi{$command}->{'function'} " if (defined($style_map_texi{$command}->{'function'}));
-# print STDERR "\n";
-#}
-
-# uncomment to use the old interface
-#%style_map = %old_style_map;
-#%style_map_pre = %old_style_map_pre;
-
-#FIXME USE_ISO ?
-%unformatted_text_simple_map_texi = %simple_map_pre;
-%unformatted_text_texi_map = %pre_map;
-%unformatted_text_style_map_texi = ();
-
-foreach my $command (keys(%style_map_texi))
-{
- #$unformatted_text_style_map_texi{$command} = {};
- foreach my $key (keys (%{$style_map_texi{$command}}))
- {
- #print STDERR "$command, $key, $style_map_texi{$command}->{$key}\n";
- $unformatted_text_style_map_texi{$command}->{$key} =
- $style_map_texi{$command}->{$key};
- }
- $unformatted_text_style_map_texi{$command} = {} if (!defined($unformatted_text_style_map_texi{$command}));
-}
-
-foreach my $accent_command ('tieaccent', 'dotless', keys(%unicode_accents))
-{
-# $unformatted_text_style_map_texi{$accent_command}->{'args'} = ['normal'];
- $unformatted_text_style_map_texi{$accent_command}->{'function'} = \&t2h_default_accent;
-}
-
-%format_map = (
-# 'quotation' => 'blockquote',
- # lists
-# 'itemize' => 'ul',
- 'enumerate' => 'ol',
- 'multitable' => 'table',
- 'table' => 'dl compact="compact"',
- 'vtable' => 'dl compact="compact"',
- 'ftable' => 'dl compact="compact"',
- 'group' => '',
- );
-
-%special_list_commands = (
- 'table' => {},
- 'vtable' => {},
- 'ftable' => {},
- 'itemize' => { 'bullet' => '' }
- );
-#
-# texinfo format to align attribute of paragraphs
-#
-
-%paragraph_style = (
- 'center' => 'center',
- 'flushleft' => 'left',
- 'flushright' => 'right',
- );
-
-# an eval of these $complex_format_map->{what}->{'begin'} yields beginning
-# an eval of these $complex_format_map->{what}->{'end'} yields end
-# $EXAMPLE_INDENT_CELL and SMALL_EXAMPLE_INDENT_CELL can be usefull here
-# FIXME add \n at the end ?
-$complex_format_map =
-{
- 'example' =>
- {
- 'begin' => q{"<table><tr>$EXAMPLE_INDENT_CELL<td>"},
- 'end' => q{'</td></tr></table>'},
- },
- 'smallexample' =>
- {
- 'begin' => q{"<table><tr>$SMALL_EXAMPLE_INDENT_CELL<td>"},
- 'end' => q{'</td></tr></table>'},
- },
- 'display' =>
- {
- 'begin' => q{"<table><tr>$EXAMPLE_INDENT_CELL<td>"},
- 'end' => q{'</td></tr></table>'},
- },
- 'smalldisplay' =>
- {
- 'begin' => q{"<table><tr>$SMALL_EXAMPLE_INDENT_CELL<td>"},
- 'end' => q{'</td></tr></table>'},
- }
-};
-
-# format shouldn't narrow the margins
-
-$complex_format_map->{'lisp'} = $complex_format_map->{'example'};
-$complex_format_map->{'smalllisp'} = $complex_format_map->{'smallexample'};
-$complex_format_map->{'format'} = $complex_format_map->{'display'};
-$complex_format_map->{'smallformat'} = $complex_format_map->{'smalldisplay'};
-
-%def_map = (
- # basic commands
- 'deffn', [ 'f', 'category', 'name', 'arg' ],
- 'defvr', [ 'v', 'category', 'name' ],
- 'deftypefn', [ 'f', 'category', 'type', 'name', 'arg' ],
- 'deftypeop', [ 'f', 'category', 'class' , 'type', 'name', 'arg' ],
- 'deftypevr', [ 'v', 'category', 'type', 'name' ],
- 'defcv', [ 'v', 'category', 'class' , 'name' ],
- 'deftypecv', [ 'v', 'category', 'class' , 'type', 'name' ],
- 'defop', [ 'f', 'category', 'class' , 'name', 'arg' ],
- 'deftp', [ 't', 'category', 'name', 'arg' ],
- # basic x commands
- # shortcuts
- # i18n
- 'defun', 'deffn Function',
- 'defmac', 'deffn Macro',
- 'defspec', 'deffn {Special Form}',
- 'defvar', 'defvr Variable',
- 'defopt', 'defvr {User Option}',
- 'deftypefun', 'deftypefn {Function}',
- 'deftypevar', 'deftypevr Variable',
- 'defivar', 'defcv {Instance Variable}',
- 'deftypeivar', 'deftypecv {Instance Variable}',
- 'defmethod', 'defop Method',
- 'deftypemethod', 'deftypeop Method',
- );
-
-foreach my $key (keys(%def_map))
-{
- $def_map{$key . 'x'} = $def_map{$key};
-}
-
-#
-# miscalleneous commands
-#
-# Depending on the value, the command arg or spaces following the command
-# are handled differently:
-#
-# the value is a reference on a hash.
-# the hash keys are
-# 'arg' if the value is 'line' then the remaining of the line is the arg
-# if it is a number it is the number of args (separated by spaces)
-# 'skip' if the value is 'line' then the remaining of the line is skipped
-# if the value is 'space' space but no newline is skipped
-# if the value is 'whitespace' space is skipped
-# if the value is 'linewhitespace' space is skipped if there are
-# only spaces remaining on the line
-# if the value is 'linespace' space but no newline is skipped if
-# there are only spaces remaining on the line
-# 'texi' if true it is some texinfo code and @value and @macros are expanded
-# 'keep' if true the args and the macro are kept, otherwise the macro
-# args and skipped stuffs are removed
-%misc_command = (
- # not needed for formatting
- 'raisesections' => {'skip' => 'line'}, # no arg
- 'lowersections' => {'skip' => 'line'}, # no arg
- 'contents' => {}, # no arg
- 'shortcontents' => {}, # no arg
- 'summarycontents'=> {}, # no arg
- 'detailmenu' => {'skip' => 'whitespace'}, # no arg
- 'end detailmenu' => {'skip' => 'space'}, # no arg
- #'end detailmenu', 1, # no arg
- 'bye' => {'skip' => 'line'}, # no arg
- # comments
- 'comment' => {'arg' => 'line'},
- 'c' => {'arg' => 'line'},
- #'c'=> {'arg' => 'line', 'keep' => 1},
- # in preamble
- 'novalidate' => {}, # no arg
- 'dircategory'=> {'skip' => 'line'}, # line. Position with regard
- # with direntry is significant
- 'pagesizes' => {'skip' => 'line', 'arg' => 2}, # can have 2 args
- 'finalout' => {}, # no arg
- 'paragraphindent' => {'skip' => 'line', 'arg' => 1}, # arg none asis
- # or a number and forbids anything else on the line
- 'firstparagraphindent' => {'skip' => 'line', 'arg' => 1}, # none insert
- 'exampleindent' => {'skip' => 'line', 'arg' => 1}, # asis or a number
- 'footnotestyle'=> {'skip' => 'line', 'arg' => 1}, # end and separate
- # and nothing else on the line
- 'afourpaper' => {'skip' => 'line'}, # no arg
- 'afourlatex' => {'skip' => 'line'}, # no arg
- 'afourwide' => {'skip' => 'line'}, # no arg
- 'headings'=> {'skip' => 'line', 'arg' => 1},
- #off on single double singleafter doubleafter
- # interacts with setchapternewpage
- 'setchapternewpage' => {'skip' => 'line', 'arg' => 1}, # off on odd
- 'everyheading' => {'arg' => 'line'},
- 'everyfooting' => {'arg' => 'line'},
- 'evenheading' => {'arg' => 'line'},
- 'evenfooting' => {'arg' => 'line'},
- 'oddheading' => {'arg' => 'line'},
- 'oddfooting' => {'arg' => 'line'},
- 'smallbook' => {'skip' => 'line'}, # no arg
- 'setfilename' => {'arg' => 'line'},
- 'shorttitle' => {'arg' => 'line', 'texi' => 1},
- 'shorttitlepage' => {'arg' => 'line', 'texi' => 1},
- 'settitle' => {'arg' => 'line', 'texi' => 1},
- 'author' => {'arg' => 'line', 'texi' => 1},
- 'subtitle' => {'arg' => 'line', 'texi' => 1},
- 'title' => {'arg' => 'line', 'texi' => 1},
- 'syncodeindex' => {'skip' => 'linespace', 'arg' => 2},
- # args are index identifiers
- 'synindex' => {'skip' => 'linespace', 'arg' => 2},
- 'defindex' => {'skip' => 'line', 'arg' => 1}, # one identifier arg
- 'defcodeindex' => {'skip' => 'line', 'arg' => 1}, # one identifier arg
- 'documentlanguage' => {'skip' => 'whitespace', 'arg' => 1},
- # language code arg
- 'kbdinputstyle' => {'skip' => 'whitespace', 'arg' => 1}, # code
- #example distinct
- 'sp' => {'skip' => 'whitespace', 'arg' => 1}, # no arg
- # at the end of line or a numerical arg
- # formatting
- 'page' => {}, # no arg (pagebreak)
- 'refill' => {}, # no arg (obsolete, to be ignored)
- 'noindent' => {'skip' => 'space'}, # no arg
- 'need' => {'skip' => 'line', 'arg' => 1}, # one numerical/real arg
- 'exdent' => {'skip' => 'space'},
- # not valid for info (should be in @iftex)
- 'vskip' => {'arg' => 'line'}, # arg line in TeX
- 'cropmarks' => {}, # no arg
- # miscalleneous
- 'verbatiminclude'=> {'skip' => 'line'},
- 'noindent' => {'skip' => 'space'},
- 'documentencoding' => {'arg' => 1},
- # ???
- 'filbreak' => {},
- );
-my %misc_command_old = (
- # not needed for formatting
- 'raisesections', 'line', # no arg
- 'lowersections', 'line', # no arg
- 'contents', 1, # no arg
- 'shortcontents', 1, # no arg
- 'summarycontents', 1, # no arg
- 'detailmenu', 'whitespace', # no arg
- 'end detailmenu', 'space', # no arg
- #'end detailmenu', 1, # no arg
- 'novalidate', 1, # no arg
- 'bye', 'line', # no arg
- # comments
- 'comment', 'line',
- 'c', 'line',
- # in preamble
- 'dircategory', 'line', # line. Position with regard with direntry is
- # significant
- 'pagesizes', 'line arg2', # can have 2 args
- 'finalout', 1, # no arg
- 'paragraphindent', 'line arg1', # in fact accepts only none asis
- # or a number and forbids anything else on the line
- 'firstparagraphindent', 'line arg1', # in fact accepts only none insert
- 'exampleindent', 'line arg1', # in fact accepts only asis or a number
- 'footnotestyle', 'line arg1', # in fact accepts only end and separate
- # and nothing else on the line
- 'afourpaper', 'line', # no arg
- 'afourlatex', 'line', # no arg
- 'afourwide', 'line', # no arg
- 'headings', 'line', # one arg, possibilities are
- #off on single double singleafter doubleafter
- # interacts with setchapternewpage
- 'setchapternewpage', 'line', # no arg
- 'everyheading', 'line',
- 'everyfooting', 'line',
- 'evenheading', 'line',
- 'evenfooting', 'line',
- 'oddheading', 'line',
- 'oddfooting', 'line',
- 'smallbook', 'line', # no arg
- 'setfilename', 'line',
- 'shorttitle', 'linetexi',
- 'shorttitlepage', 'linetexi',
- 'settitle', 'linetexi',
- 'author', 'linetexi',
- 'subtitle', 'linetexi',
- 'title','linetexi',
- 'syncodeindex','linespace arg2', # args are
- 'synindex','linespace arg2',
- 'defindex', 'line arg1', # one identifier arg
- 'defcodeindex', 'line arg1', # one identifier arg
- 'documentlanguage', 'whitespace arg1', # one language code arg
- 'kbdinputstyle', 'whitespace arg1', # one arg within
- #code example distnct
- 'sp', 'whitespace arg1', # no arg at the en of line or a numerical arg
- # formatting
- 'page', 1, # no arg (pagebreak)
- 'refill', 1, # no arg (obsolete, to be ignored))
- 'noindent', 'space', # no arg
- 'need', 'line arg1', # one numerical/real arg
- 'exdent', 'space',
- # not valid for info (should be in @iftex)
- 'vskip', 'line', # arg line in TeX
- 'cropmarks', 1, # no arg
- # miscalleneous
- 'verbatiminclude', 'line',
- 'documentencoding', 'arg1',
- # ???
- 'filbreak', 1,
- );
-
-%format_in_paragraph = (
- 'group' => 1,
- 'html' => 1,
-);
-# map mapping css specification to style
-
-%css_map =
- (
- 'ul.toc' => "$TOC_LIST_STYLE",
- 'pre.menu-comment' => "$MENU_PRE_STYLE",
- 'pre.menu-preformatted' => "$MENU_PRE_STYLE",
- 'a.summary-letter' => 'text-decoration: none',
- 'pre.display' => 'font-family: serif',
- 'pre.smalldisplay' => 'font-family: serif; font-size: smaller',
- 'pre.smallexample' => 'font-size: smaller',
- 'span.sansserif' => 'font-family:sans-serif; font-weight:normal;'
- );
-
-$css_map{'pre.format'} = $css_map{'pre.display'};
-$css_map{'pre.smallformat'} = $css_map{'pre.smalldisplay'};
-$css_map{'pre.smalllisp'} = $css_map{'pre.smallexample'};
-
-# formatting functions
-
-$anchor = \&t2h_default_anchor;
-$def_item = \&t2h_default_def_item;
-$def = \&t2h_default_def;
-$menu = \&t2h_default_menu;
-$menu_link = \&t2h_default_menu_link;
-$menu_comment = \&t2h_default_menu_comment;
-$menu_description = \&t2h_default_menu_description;
-$simple_menu_link = \&t2h_default_simple_menu_link;
-$external_ref = \&t2h_default_external_ref;
-$external_href = \&t2h_default_external_href;
-$internal_ref = \&t2h_default_internal_ref;
-$table_item = \&t2h_default_table_item;
-$table_line = \&t2h_default_table_line;
-$table_list = \&t2h_default_table_list;
-$row = \&t2h_default_row;
-$cell = \&t2h_default_cell;
-$list_item = \&t2h_default_list_item;
-$comment = \&t2h_default_comment;
-$def_line = \&t2h_default_def_line;
-$def_line_no_texi = \&t2h_default_def_line_no_texi;
-$raw = \&t2h_default_raw;
-$heading = \&t2h_default_heading;
-$paragraph = \&t2h_default_paragraph;
-$preformatted = \&t2h_default_preformatted;
-$foot_line_and_ref = \&t2h_default_foot_line_and_ref;
-$foot_section = \&t2h_default_foot_section;
-$image = \&t2h_default_image;
-$address = \&t2h_default_address;
-$index_entry_label = \&t2h_default_index_entry_label;
-$index_summary = \&t2h_default_index_summary;
-$summary_letter = \&t2h_default_summary_letter;
-$index_entry = \&t2h_default_index_entry;
-$index_letter = \&t2h_default_index_letter;
-$print_index = \&t2h_default_print_index;
-$protect_text = \&t2h_default_protect_text;
-$complex_format = \&t2h_default_complex_format;
-$cartouche = \&t2h_default_cartouche;
-$sp = \&t2h_default_sp;
-$definition_category = \&t2h_default_definition_category;
-$copying_comment = \&t2h_default_copying_comment;
-$index_summary_file_entry = \&t2h_default_index_summary_file_entry;
-$index_summary_file_end = \&t2h_default_index_summary_file_end;
-$index_summary_file_begin = \&t2h_default_index_summary_file_begin;
-$empty_line = \&t2h_default_empty_line;
-$unknown = \&t2h_default_unknown;
-$unknown_style = \&t2h_default_unknown_style;
-$caption_shortcaption = \&t2h_caption_shortcaption;
-$float = \&t2h_default_float;
-$listoffloats = \&t2h_default_listoffloats;
-$listoffloats_entry = \&t2h_default_listoffloats_entry;
-$listoffloats_caption = \&t2h_default_listoffloats_caption;
-$listoffloats_float_style = \&t2h_default_listoffloats_float_style;
-$listoffloats_style = \&t2h_default_listoffloats_style;
-$acronym_like = \&t2h_default_acronym_like;
-$quotation = \&t2h_default_quotation;
-$quotation_prepend_text = \&t2h_default_quotation_prepend_text;
-$paragraph_style_command = \&t2h_default_paragraph_style_command;
-
-# This function is called whenever a complex format is processed
-#
-# arguments:
-# name of the format
-# text appearing inside the format
-#
-# an eval of $complex_format->{format name}->{'begin'} should lead to the
-# beginning of the complex format, an eval of
-# $complex_format->{format name}->{'end'} should lead to the end of the
-# complex format.
-sub t2h_default_complex_format($$)
-{
- my $name = shift;
- my $text = shift;
- return '' if ($text eq '');
- my $beginning = eval "$complex_format_map->{$name}->{'begin'}";
- if ($@ ne '')
- {
- print STDERR "$ERROR Evaluation of $complex_format_map->{$name}->{'begin'}: $@";
- $beginning = '';
-
- }
- my $end = eval "$complex_format_map->{$name}->{'end'}";
- if ($@ ne '')
- {
- print STDERR "$ERROR Evaluation of $complex_format_map->{$name}->{'end'}: $@";
- $end = '';
-
- }
- return $beginning . $text . $end;
-}
-
-sub t2h_default_empty_line($)
-{
- my $text = shift;
- return $text;
-}
-
-sub t2h_default_unknown($$)
-{
- my $macro = shift;
- my $line = shift;
-
- my ($result_line, $result, $result_text, $message);
- return ($line, 0, undef, undef);
-}
-
-sub t2h_default_unknown_style($$)
-{
- my $command = shift;
- my $text = shift;
-
- my ($result, $result_text, $message);
- return (0, undef, undef);
-}
-
-sub t2h_caption_shortcaption($)
-{
- my $float = shift;
- my $caption_lines;
- my $shortcaption_lines;
- my $style = $float->{'style_texi'};
- if (defined($float->{'nr'}))
- {
- my $nr = $float->{'nr'};
- if ($style ne '')
- {
- $style = &$I('%{style} %{number}', { 'style' => $style, 'number' => $nr});
- }
- else
- {
- $style = $nr;
- }
- }
-
- if (defined($float->{'caption_texi'}))
- {
- @$caption_lines = @{$float->{'caption_texi'}};
- if (defined($style))
- {
- $caption_lines->[0] = '@strong{' . &$I('%{style}: %{caption_first_line}', { 'style' => $style, 'caption_first_line' => $caption_lines->[0] });
- }
- else
- {
- $caption_lines->[0] = '@strong{' . $caption_lines->[0];
- }
- push @$caption_lines, "}\n";
- }
- elsif (defined($style))
- {
- $caption_lines->[0] = '@strong{' . $style . '}' . "\n";
- }
- if (defined($float->{'shortcaption_texi'}))
- {
- @$shortcaption_lines = @{$float->{'shortcaption_texi'}};
- if (defined($style))
- {
- $shortcaption_lines->[0] = '@strong{' . &$I('%{style}: %{shortcaption_first_line}', { 'style' => $style, 'shortcaption_first_line' => $shortcaption_lines->[0] });
- }
- else
- {
- $shortcaption_lines->[0] = '@strong{' . $shortcaption_lines->[0];
- }
- push @$shortcaption_lines, "}\n";
- }
- elsif (defined($style))
- {
- $shortcaption_lines->[0] = '@strong{' . $style . '}' . "\n";
- }
- return ($caption_lines, $shortcaption_lines);
-}
-
-sub t2h_default_float($$$$$)
-{
- my $text = shift;
- my $float = shift;
- my $caption = shift;
- my $shortcaption = shift;
-
- my $label = '';
- if (exists($float->{'id'}))
- {
- $label = &$anchor($float->{'id'});
- }
- my $caption_text = '';
-
- if (defined($float->{'caption_texi'}))
- {
- $caption_text = $caption;
- }
- elsif (defined($float->{'shortcaption_texi'}))
- {
- $caption_text = $shortcaption;
- }
- elsif (defined($caption))
- {
- $caption_text = $caption;
- }
-
- return '<div class="float">' . "$label\n" . $text . '</div>' . $caption_text;
-}
-
-sub t2h_default_listoffloats_style($)
-{
- my $style_texi = shift;
- return ($style_texi);
-}
-
-sub t2h_default_listoffloats_float_style($$)
-{
- my $style_texi = shift;
- my $float = shift;
-
- my $style = $float->{'style_texi'};
- if (defined($float->{'nr'}))
- {
- my $nr = $float->{'nr'};
- if ($style ne '')
- {
- $style = &$I('%{style} %{number}', { 'style' => $style, 'number' => $nr});
- }
- else
- {
- $style = $nr;
- }
- }
- return $style;
-}
-
-sub t2h_default_listoffloats_caption($)
-{
- my $float = shift;
- if (defined($float->{'shortcaption_texi'}))
- {
- return [ @{$float->{'shortcaption_texi'}} ];
- }
- elsif (defined($float->{'caption_texi'}))
- {
- return [ @{$float->{'caption_texi'}} ];
- }
- return [ ];
-}
-
-sub t2h_default_listoffloats_entry($$$$)
-{
- my $style_texi = shift;
- my $float = shift;
- my $float_style = shift;
- my $caption = shift;
- my $href = shift;
-
- return '<dt>' . &$anchor('', $href, $float_style) . '</dt><dd>' . $caption
-. '</dd>' . "\n";
-}
-
-sub t2h_default_listoffloats($$$)
-{
- my $style_texi = shift;
- my $style = shift;
- my $float_entries = shift;
-
- my $result = "<dl class=\"listoffloats\">\n" ;
- foreach my $float_entry (@$float_entries)
- {
- $result .= $float_entry;
- }
- return $result . "</dl>\n";
-}
-
-# This function is used to protect characters which are special in html
-# in inline text: &, ", <, and >.
-#
-# argument:
-# text to be protected
-sub t2h_default_protect_text($)
-{
- my $text = shift;
- $text =~ s/&/&amp;/g;
- $text =~ s/</&lt;/g;
- $text =~ s/>/&gt;/g;
- $text =~ s/\"/&quot;/g;
- return $text;
-}
-
-# This function produces an anchor
-#
-# arguments:
-# $name : anchor name
-# $href : anchor href
-# text : text displayed
-# extra_attribs : added to anchor attributes list
-sub t2h_default_anchor($;$$$)
-{
- my $name = shift;
- my $href = shift;
- my $text = shift;
- my $attributes = shift;
-#print STDERR "!$name!$href!$text!$attributes!\n";
- if (!defined($attributes) or ($attributes !~ /\S/))
- {
- $attributes = '';
- }
- else
- {
- $attributes = ' ' . $attributes;
- }
- $name = '' if (!defined($name) or ($name !~ /\S/));
- $href = '' if (!defined($href) or ($href !~ /\S/));
- $text = '' if (!defined($text));
- return $text if (($name eq '') and ($href eq ''));
- $name = "name=\"$name\"" if ($name ne '');
- $href = "href=\"$href\"" if ($href ne '');
- $href = ' ' . $href if (($name ne '') and ($href ne ''));
-#print STDERR "!!!$name!$href!$text!$attributes!\n";
- return "<a ${name}${href}${attributes}>$text</a>";
-}
-
-# This function is used to format the text associated with a @deff/@end deff
-#
-# argument:
-# text
-#
-# $DEF_TABLE should be used to distinguish between @def formatted as table
-# and as definition lists.
-sub t2h_default_def_item($)
-{
- my $text = shift;
- if ($text =~ /\S/)
- {
- if (! $DEF_TABLE)
- {
- return '<dd>' . $text . '</dd>';
- }
- else
- {
- return '<tr><td colspan="2">' . $text . '</td></tr>';
- }
- }
- return '';
-}
-
-sub t2h_default_definition_category($$$)
-{
- my $name = shift;
- my $class = shift;
- my $style = shift;
-# print STDERR "definition_category $name, class $class, style $style\n";
- return undef if (!defined($name) or $name =~ /^\s*$/);
- return ($name) if (!defined($class) or $class =~ /^\s*$/);
- if ($style eq 'f')
- {
- return &$I('%{name} on %{class}', { 'name' => $name, 'class' => $class });
- }
- elsif ($style eq 'v')
- {
- return &$I('%{name} of %{class}', { 'name' => $name, 'class' => $class });
- }
- else
- {
- return $name;
- }
-}
-
-# format the container for the @deffn line and text
-#
-# argument
-# text of the whole @def, line and associated text.
-#
-# $DEF_TABLE should be used.
-sub t2h_default_def($)
-{
- my $text = shift;
- if ($text =~ /\S/)
- {
- if (! $DEF_TABLE)
- {
- return "<dl>\n" . $text . "</dl>\n";
- }
- else
- {
- return "<table width=\"100%\">\n" . $text . "</table>\n";
- }
- }
- return '';
-
-}
-
-# a whole menu
-#
-# argument:
-# the whole menu text (entries and menu comments)
-#
-# argument:
-# whole menu text.
-sub t2h_default_menu($)
-{
- my $text = shift;
- if ($text =~ /\S/)
- {
- return "<table class=\"menu\" border=\"0\" cellspacing=\"0\">\n"
- . $text . "</table>\n";
- }
-}
-
-# a simple menu entry ref in case we aren't in a standard menu context
-sub t2h_default_simple_menu_link($$$$$$)
-{
- my $entry = shift;
- my $preformatted = shift;
- my $href = shift;
- my $node = shift;
- my $name = shift;
- my $ending = shift;
- $ending = '' if (!defined($ending));
- if (($entry eq '') or $NODE_NAME_IN_MENU or $preformatted)
- {
- $name .= ':' if ($name ne '');
- $entry = "$MENU_SYMBOL$name$node";
- }
- $entry = &$anchor('', $href, $entry) if ($href);
- $entry .= $ending if ($preformatted);
- return $entry . '&nbsp;';
-}
-
-# formats a menu entry link pointing to a node or section
-#
-# arguments:
-# the entry text
-# the state, a hash reference holding informations about the context, with a
-# usefull entry, 'preformatted', true if we are in a preformatted format
-# (a format keeping space between words). In that case a function
-# of the main program, main::do_preformatted($text, $state) might
-# be used to format the text with the current format style.
-# href is optionnal. It is the reference to the section or the node anchor
-# which should be used to make the link (typically it is the argument
-# of a href= attribute in a <a> element).
-sub t2h_default_menu_link($$$$$$)
-{
- my $entry = shift;
- my $state = shift;
- my $href = shift;
- my $node = shift;
- my $name = shift;
- my $ending = shift;
- if (($entry eq '') or $NODE_NAME_IN_MENU or $state->{'preformatted'})
- {
- $name .= ':' if ($name ne '');
- $entry = "$MENU_SYMBOL$name$node";
- }
- $entry = &$anchor ('', $href, $entry) if (defined($href));
- if ($state->{'preformatted'})
- {
- return '<tr><td>' . main::do_preformatted($entry . $ending, $state);
- }
- return "<tr><td align=\"left\" valign=\"top\">$entry</td><td>&nbsp;&nbsp;</td>";
-}
-
-# formats a menu entry description, ie the text appearing after the node
-# specification in a menu entry an spanning until there is another
-# menu entry, an empty line or some text at the very beginning of the line
-# (we consider that text at the beginning of the line begins a menu comment)
-#
-# arguments:
-# the description text
-# the state. See menu_entry.
-sub t2h_default_menu_description($$)
-{
- my $text = shift;
- my $state = shift;
- if ($state->{'preformatted'})
- {
- return main::do_preformatted($text, $state) . '</td></tr>';
- }
- return "<td align=\"left\" valign=\"top\">$text</td></tr>\n";
-}
-
-# a menu comment (between menu lines)
-# formats the container of a menu comment. A menu comment is any text
-# appearing between menu lines, either separated by an empty line from
-# the preceding menu entry, or a text beginning at the first character
-# of the line (text not at the very beginning of the line is considered to
-# be the continuation of a menu entry description text).
-#
-# The text itself is considered to be in a preformatted environment
-# with name 'menu-commment' and with style $MENU_PRE_STYLE.
-#
-# argument
-# text contained in the menu comment.
-sub t2h_default_menu_comment($)
-{
- my $text = shift;
- if ($text =~ /\S/)
- {
- return "<tr><th colspan=\"3\" align=\"left\" valign=\"top\">$text</th></tr>";
- }
- return '';
-}
-
-# Construct a href to an external source of information.
-# node is the node with texinfo @-commands
-# node_id is the node transformed such that it is unique and can be used to
-# make an html cross ref as explained in the texinfo manual
-# file is the file in '(file)node'
-sub t2h_default_external_href($$$)
-{
- my $node = shift;
- my $node_id = shift;
- my $node_xhtml_id = shift;
- my $file = shift;
- $file = '' if (!defined($file));
- my $target_split = $EXTERNAL_CROSSREF_SPLIT;
- if ($file ne '')
- {
- if ($NEW_CROSSREF_STYLE)
- {
- $file =~ s/\.[^\.]*$//;
- $file =~ s/^.*\///;
- my $href;
- if (exists($Texi2HTML::THISDOC{'htmlxref'}->{$file}))
- {
- $target_split = $Texi2HTML::THISDOC{'htmlxref'}->{$file}->{'split'};
- $href = $Texi2HTML::THISDOC{'htmlxref'}->{$file}->{'href'};
- }
- if ($target_split)
- {
- if (defined($href))
- {
- $file = "$href";
- }
- elsif (defined($EXTERNAL_DIR))
- {
- $file = "$EXTERNAL_DIR/$file";
- }
- elsif ($SPLIT)
- {
- $file = "../$file";
- }
- $file .= "/";
- }
- else
- {# target not split
- if (defined($href))
- {
- $file = "$href";
- }
- else
- {
- if (defined($EXTERNAL_DIR))
- {
- $file = "$EXTERNAL_DIR/$file";
- }
- elsif ($SPLIT)
- {
- $file = "../$file";
- }
- $file .= "." . $NODE_FILE_EXTENSION;
- }
- }
- }
- else
- {
- $file .= "/";
- if (defined($EXTERNAL_DIR))
- {
- $file = $EXTERNAL_DIR . $file;
- }
- else
- {
- $file = '../' . $file;
- }
- }
- }
- else
- { # here we necessarily have a ref to a node in the document, but the
- # node is invalid
- if ($NEW_CROSSREF_STYLE)
- {
- if (!$SPLIT)
- {
- $file = $TOP_FILE;
- }
- }
- }
- if ($node eq '')
- {
- if ($NEW_CROSSREF_STYLE)
- {
- if ($SPLIT)
- {
- return $file . $TOP_NODE_FILE . '.' . $NODE_FILE_EXTENSION . '#Top';
- # or ?
- #return $file . '#Top';
- }
- else
- {
- return $file . '#Top';
- }
- }
- else
- {
- return $file;
- }
- }
- my $target;
- if ($NEW_CROSSREF_STYLE)
- {
- $node = $node_id;
- $target = $node_xhtml_id;
- }
- else
- {
- $node = main::remove_texi($node);
- $node =~ s/[^\w\.\-]/-/g;
- }
- my $file_basename = $node;
- $file_basename = $TOP_NODE_FILE if ($node =~ /^top$/i);
- if ($NEW_CROSSREF_STYLE)
- {
- if ($SPLIT)
- {
- return $file . $file_basename . ".$NODE_FILE_EXTENSION" . '#' . $target;
- }
- else
- {
- return $file . '#' . $target;
- }
- }
- else
- {
- return $file . $file_basename . ".$NODE_FILE_EXTENSION";
- }
-}
-# format a reference external to the generated manual. This produces a full
-# reference with introductive words and the reference itself.
-#
-# arguments:
-# type of the reference: xref (reference at the beginning of a sentence),
-# pxref (reference in a parenthesis),
-# section in the book. This might be undef.
-# book name.
-# node and file name formatted according to the convention used in info
-# '(file)node' and no node means the Top node.
-# href linking to the html page containing the referenced node. A typical
-# use for this href is a href attribute in an <a> element
-# an optionnal cross reference name
-sub t2h_default_external_ref($$$$$$)
-{
- my $type = shift;
- my $section = shift;
- my $book = shift;
- my $file_node = shift;
- my $href = shift;
- my $cross_ref = shift;
-
- $file_node = "$cross_ref: $file_node" if (($file_node ne '') and ($cross_ref ne ''));
- $file_node = &$anchor('', $href, $file_node) if ($file_node ne '');
-
- # Yes, this is ugly, but this helps internationalization
- if ($type eq 'pxref')
- {
- if (($book ne '') and ($file_node ne ''))
- {
- return &$I('see %{node_file_href} section `%{section}\' in @cite{%{book}}', { 'node_file_href' => $file_node, 'book' => $book, 'section' => $section }) if ($section ne '');
- return &$I('see %{node_file_href} @cite{%{book}}', { 'node_file_href' => $file_node, 'book' => $book });
- }
- elsif ($book ne '')
- {
- return &$I('see section `%{section}\' in @cite{%{book}}', { 'book' => $book, 'section' => $section }) if ($section ne '');
- return &$I('see @cite{%{book}}', { 'book' => $book });
- }
- elsif ($file_node ne '')
- {
- return &$I('see %{node_file_href}', { 'node_file_href' => $file_node });
- }
- }
- if ($type eq 'xref')
- {
- if (($book ne '') and ($file_node ne ''))
- {
- return &$I('See %{node_file_href} section `%{section}\' in @cite{%{book}}', { 'node_file_href' => $file_node, 'book' => $book, 'section' => $section }) if ($section ne '');
- return &$I('See %{node_file_href} @cite{%{book}}', { 'node_file_href' => $file_node, 'book' => $book });
- }
- elsif ($book ne '')
- {
- return &$I('See section `%{section}\' in @cite{%{book}}', { 'book' => $book, 'section' => $section }) if ($section ne '');
- return &$I('See @cite{%{book}}', { 'book' => $book });
- }
- elsif ($file_node ne '')
- {
- return &$I('See %{node_file_href}', { 'node_file_href' => $file_node });
- }
- }
- if ($type eq 'ref')
- {
- if (($book ne '') and ($file_node ne ''))
- {
- return &$I('%{node_file_href} section `%{section}\' in @cite{%{book}}', { 'node_file_href' => $file_node, 'book' => $book, 'section' => $section }) if ($section ne '');
- return &$I('%{node_file_href} @cite{%{book}}', { 'node_file_href' => $file_node, 'book' => $book });
- }
- elsif ($book ne '')
- {
- return &$I('section `%{section}\' in @cite{%{book}}', { 'book' => $book, 'section' => $section }) if ($section ne '');
- return &$I('@cite{%{book}}', { 'book' => $book });
- }
- elsif ($file_node ne '')
- {
- return &$I('%{node_file_href}', { 'node_file_href' => $file_node });
- }
- }
- return '';
-}
-
-# format a reference to a node or a section in the generated manual. This
-# produces a full reference with introductive words and the reference itself.
-#
-# arguments:
-# type of the reference: xref (reference at the beginning of a sentence),
-# pxref (reference in a parenthesis),
-# href linking to the html page containing the node or the section. A typical
-# use for this href is a href attribute in an <a> element
-# short name for this reference
-# name for this reference
-# boolean true if the reference is a reference to a section
-#
-# $SHORT_REF should be used.
-sub t2h_default_internal_ref($$$$$)
-{
- my $type = shift;
- my $href = shift;
- my $short_name = shift;
- my $name = shift;
- my $is_section = shift;
-
- if (! $SHORT_REF)
- {
- $name = &$anchor('', $href, $name);
- if ($type eq 'pxref')
- {
- return &$I('see section %{reference_name}', { 'reference_name' => $name }) if ($is_section);
- return &$I('see %{reference_name}', { 'reference_name' => $name });
- }
- elsif ($type eq 'xref')
- {
- return &$I('See section %{reference_name}', { 'reference_name' => $name }) if ($is_section);
- return &$I('See %{reference_name}', { 'reference_name' => $name });
- }
- elsif ($type eq 'ref')
- {
- return &$I('%{reference_name}', { 'reference_name' => $name });
- }
- }
- else
- {
- $name = &$anchor('', $href, $short_name);
- if ($type eq 'pxref')
- {
- return &$I('see %{reference_name}', { 'reference_name' => $name });
- }
- elsif ($type eq 'xref')
- {
- return &$I('See %{reference_name}', { 'reference_name' => $name });
- }
- elsif ($type eq 'ref')
- {
- return &$I('%{reference_name}', { 'reference_name' => $name });
- }
- }
- return '';
-}
-
-# text after @item in table, vtable and ftable
-sub t2h_default_table_item($$$$$)
-{
- my $text = shift;
- my $index_label = shift;
- my $format = shift;
- my $command = shift;
- my $formatted_command = shift;
- $formatted_command = '' if (!defined($formatted_command) or
- exists($special_list_commands{$format}->{$command}));
- $text .= "\n" . $index_label if (defined($index_label));
- return '<dt>' . $formatted_command . $text . '</dt>' . "\n";
-}
-
-# format text on the line following @item (in table, vtable and ftable)
-sub t2h_default_table_line($)
-{
- my $text = shift;
-
- if ($text =~ /\S/)
- {
- return '<dd>' . $text . '</dd>' . "\n";
- }
- return '';
-}
-
-# row in multitable
-sub t2h_default_row($$)
-{
- my $text = shift;
- my $macro = shift;
-
- if ($text =~ /\S/)
- {
- if ($macro eq 'headitem')
- {
- return '<thead><tr>' . $text . '</tr></thead>' . "\n";
- }
- return '<tr>' . $text . '</tr>' . "\n";
- }
- return '';
-}
-
-# cell in multitable
-sub t2h_default_cell($$)
-{
- my $text = shift;
- my $row_macro = shift;
-
- if ($row_macro eq 'headitem')
- {
- return '<th>' . $text . '</th>';
- }
- return '<td>' . $text . '</td>';
-}
-
-# format an item in a list
-#
-# argument:
-# text of the item
-# format of the list (itemize or enumerate)
-# command passed as argument to the format
-# formatted_command leading command formatted, if it is a thing command
-sub t2h_default_list_item($$$$$$$)
-{
- my $text = shift;
- my $format = shift;
- my $command = shift;
- my $formatted_command = shift;
- my $item_nr = shift;
- my $enumerate_style = shift;
- my $number = shift;
-
- $formatted_command = '' if (!defined($formatted_command) or
- exists($special_list_commands{$format}->{$command}));
- if ($text =~ /\S/)
- {
- return '<li>' . $formatted_command . $text . '</li>';
- }
- return '';
-}
-
-sub t2h_default_table_list($$$$$$)
-{
- my $format = shift;
- my $text = shift;
- my $command = shift;
- my $formatted_command = shift;
- my $item_nr = shift;
- my $enumerate_style = shift;
- my $number = shift;
- $formatted_command = '' if (!defined($formatted_command) or
- exists($special_list_commands{$format}->{$command}));
- if ($format eq 'itemize')
- {
- return "<ul>\n" . $text . "</ul>\n" if ($command eq 'bullet');
- return "<ul$TOC_LIST_ATTRIBUTE>\n" . $text . "</ul>\n";
- }
-}
-
-# an html comment
-sub t2h_default_comment($)
-{
- my $text = shift;
- while ($text =~ /-->/) # --> ends an html comment !
- {
- $text =~ s/-->/->/go;
- }
- return '<!--' . $text . '-->' . "\n";
-}
-
-# a paragraph
-# arguments:
-# $text of the paragraph
-# $align for the alignement
-# The following is usefull if the paragraph is in an itemize.
-# $paragraph_command is the leading formatting command (like @minus)
-# $paragraph_command_formatted is the leading formatting command formatted
-# $paragraph_number is a reference on the number of paragraphs appearing
-# in the format. The value should be increased if a paragraph is done
-# $format is the format name (@itemize)
-sub t2h_default_paragraph($$$$$$$$$)
-{
- my $text = shift;
- my $align = shift;
- my $paragraph_command = shift;
- my $paragraph_command_formatted = shift;
- my $paragraph_number = shift;
- my $format = shift;
- my $item_nr = shift;
- my $enumerate_style = shift;
- my $number = shift;
-#print STDERR "format: $format\n" if (defined($format));
- $paragraph_command_formatted = '' if (!defined($paragraph_command_formatted) or
- exists($special_list_commands{$format}->{$paragraph_command}));
- #my $in_term = shift;
- return '' if ($text =~ /^\s*$/);
- if (defined($paragraph_number) and defined($$paragraph_number))
- {
- $$paragraph_number++;
- #return $text . "\n" if (($format eq 'itemize' or $format eq 'enumerate') and
- return $text if (($format eq 'itemize' or $format eq 'enumerate') and
- ($$paragraph_number == 1));
- }
- my $open = '<p>';
- if ($align)
- {
- $open = "<p align=\"$paragraph_style{$align}\">";
- }
- return $open. "$text</p>";
-}
-
-# a preformatted region
-# arguments:
-# $text of the preformatted region
-# $pre_style css style
-# $class identifier for the preformatted region (example, menu-comment)
-# The following is usefull if the preformatted is in an itemize.
-# $leading_command is the leading formatting command (like @minus)
-# $leading_command_formatted is the leading formatting command formatted
-# $preformatted_number is a reference on the number of preformatteds appearing
-# in the format. The value should be increased if a preformatted is done
-sub t2h_default_preformatted($$$$$$$$$$)
-{
- my $text = shift;
- my $pre_style = shift;
- my $class = shift;
- my $leading_command = shift;
- my $leading_command_formatted = shift;
- my $preformatted_number = shift;
- my $format = shift;
- my $item_nr = shift;
- my $enumerate_style = shift;
- my $number = shift;
-
- return '' if ($text eq '');
- $leading_command_formatted = '' if (!defined($leading_command_formatted) or
- exists($special_list_commands{$format}->{$leading_command}));
- if (defined($preformatted_number) and defined($$preformatted_number))
- {
- $$preformatted_number++;
- }
- return "<pre class=\"$class\">$text</pre>";
-}
-
-# This function formats a heading for an element
-#
-# argument:
-# an element. It is a hash reference for a node or a sectionning command.
-# The interesting keys are:
-# 'text': the heading text
-# 'name': the heading text without section number
-# 'node': true if it is a node
-# 'level': level of the element. 0 for @top, 1 for chapter, heading,
-# appendix..., 2 for section and so on...
-# 'tag_level': the sectionning element name, raisesections and lowersections
-# taken into account
-#
-# relevant configuration variable:
-# $NUMBER_SECTIONS
-sub t2h_default_heading($)
-{
- my $element = shift;
- my $level = 3;
- if (!$element->{'node'})
- {
- $level = $element->{'level'};
- }
- $level = 1 if ($level == 0);
- my $text = $element->{'text'};
- if (!$element->{'node'} and (!$NUMBER_SECTIONS))
- {
- $text = $element->{'name'};
- }
- return '' if ($text !~ /\S/);
- my $class = $element->{'tag_level'};
- $class = 'unnumbered' if ($class eq 'top');
- if (defined($element->{'tocid'}) and $TOC_LINKS)
- {
- $text = &$anchor ('', "$Texi2HTML::THISDOC{'toc_file'}#$element->{'tocid'}", $text);
- }
- return "<h$level class=\"$class\"> $text </h$level>\n";
-}
-
-# formatting of raw regions
-# ih L2H is true another mechanism is used for tex
-sub t2h_default_raw($$)
-{
- my $style = shift;
- my $text = shift;
- if ($style eq 'verbatim' or $style eq 'tex')
- {
- return "<pre class=\"$style\">" . &$protect_text($text) . '</pre>';
- }
- elsif ($style eq 'html')
- {
- return $text;
- }
- else
- {
- warn "$WARN (bug) unknown style $style\n";
- return &$protect_text($text);
- }
-}
-
-# This function formats a footnote reference and the footnote text associated
-# with a given footnote.
-# The footnote reference is the text appearing in the main document pointing
-# to the footnote text.
-#
-# arguments:
-# absolute number of the footnote (in the document)
-# relative number of the footnote (in the page)
-# identifier for the footnote
-# identifier for the footnote reference in the main document
-# main document file
-# footnote text file
-# array with the footnote text lines
-# the state. See menu entry.
-#
-# returns:
-# reference on an array containing the footnote text lines which should
-# have been updated
-# the text for the reference pointing on the footnote text
-sub t2h_default_foot_line_and_ref($$$$$$$)
-{
- my $number_in_doc = shift;
- my $number_in_page = shift;
- my $footnote_id = shift;
- my $place_id = shift;
- my $document_file = shift;
- my $footnote_file = shift;
- my $lines = shift;
- my $state = shift;
-
- unshift (@$lines, '<h3>' .
- &$anchor($footnote_id, $document_file . "#$place_id",
- "($number_in_doc)")
- . "</h3>\n");
- return ($lines, &$anchor($place_id, $footnote_file . "#$footnote_id",
- "($number_in_doc)"));
-}
-
-# formats a group of footnotes.
-#
-# argument:
-# array reference on the footnotes texts lines
-#
-# returns an array reference on the group of footnotes lines
-sub t2h_default_foot_section($)
-{
- my $lines = shift;
- unshift (@$lines, "<div class=\"footnote\">\n" ,"$DEFAULT_RULE\n", "<h3>" . &$I('Footnotes') . "</h3>\n");
- push (@$lines, "</div>\n");
- return $lines;
-}
-
-# format an image
-#
-# arguments:
-# image file name with path
-# image basename or alt text
-# a boolean true if we are in a preformatted format
-# image file name without path
-sub t2h_default_image($$$$)
-{
- my $file = shift;
- my $base = shift;
- my $preformatted = shift;
- my $file_name = shift;
- return "[ $base ]" if ($preformatted);
- return "<img src=\"$file\" alt=\"$base\">";
-}
-
-# address put in footer describing when was generated and who did the manual
-sub t2h_default_address($$)
-{
- my $user = shift;
- my $date = shift;
- $user = '' if (!defined($user));
- $date = '' if (!defined($date));
- if (($user ne '') and ($date ne ''))
- {
- return &$I('by @emph{%{user}} on @emph{%{date}}', { 'user' => $user,
- 'date' => $date });
- }
- elsif ($user ne '')
- {
- return &$I('by @emph{%{user}}', { 'user' => $user });
- }
- elsif ($date ne '')
- {
- return &$I('on @emph{%{date}}', { 'date' => $date });
- }
- return '';
-}
-
-# format a target in the main document for an index entry.
-#
-# arguments:
-# target identifier
-# boolean true if in preformatted format
-sub t2h_default_index_entry_label($$)
-{
- my $identifier = shift;
- my $preformatted = shift;
-
- return '' if (!defined($identifier) or ($identifier !~ /\S/));
- my $label = &$anchor($identifier);
- return $label . "\n" if (!$preformatted);
- return $label;
-}
-
-# process definition commands line @deffn for example
-sub t2h_default_def_line($$$$$)
-{
- my $category = shift;
- my $name = shift;
- my $type = shift;
- my $arguments = shift;
- my $index_label = shift;
- $index_label = '' if (!defined($index_label));
- $name = '' if (!defined($name) or ($name =~ /^\s*$/));
- $type = '' if (!defined($type) or $type =~ /^\s*$/);
- if (!defined($arguments) or $arguments =~ /^\s*$/)
- {
- $arguments = '';
- }
- else
- {
- $arguments = '<i>' . $arguments . '</i>';
- }
- my $type_name = '';
- $type_name = " $type" if ($type ne '');
- $type_name .= ' <b>' . $name . '</b>' if ($name ne '');
- $type_name .= $arguments . "\n";
- if (! $DEF_TABLE)
- {
- return '<dt>'. '<u>' . $category . ':</u>' . $type_name . $index_label . "</dt>\n";
- }
- else
- {
-
- return "<tr>\n<td align=\"left\">" . $type_name .
- "</td>\n<td align=\"right\">" . $category . $index_label . "</td>\n" . "</tr>\n";
- }
-}
-
-# process definition commands line @deffn for example while removing texi
-# commands
-sub t2h_default_def_line_no_texi($$$$$)
-{
- my $category = shift;
- my $name = shift;
- my $type = shift;
- my $arguments = shift;
- $name = '' if (!defined($name) or ($name =~ /^\s*$/));
- $type = '' if (!defined($type) or $type =~ /^\s*$/);
- if (!defined($arguments) or $arguments =~ /^\s*$/)
- {
- $arguments = '';
- }
- my $type_name = '';
- $type_name = " $type" if ($type ne '');
- $type_name .= ' ' . $name if ($name ne '');
- $type_name .= $arguments;
- if (! $DEF_TABLE)
- {
- return $category . ':' . $type_name . "\n";
- }
- else
- {
-
- return $type_name . " " . $category . "\n";
- }
-}
-
-# a cartouche
-sub t2h_default_cartouche($$)
-{
- my $text = shift;
-
- if ($text =~ /\S/)
- {
- return "<table class=\"cartouche\" border=\"1\"><tr><td>\n" . $text . "</td></tr></table>\n";
- }
- return '';
-}
-
-# key:
-# origin_href:
-# entry:
-# texi entry:
-# element_href:
-# element_text:
-sub t2h_default_index_summary_file_entry ($$$$$$$$)
-{
- my $index_name = shift;
- my $key = shift;
- my $origin_href = shift;
- my $entry = shift;
- my $texi_entry = shift;
- my $element_href = shift;
- my $element_text = shift;
- my $is_printed = shift;
- print IDXFILE "key: $key\n origin_href: $origin_href\n entry: $entry\n"
- . " texi_entry: $texi_entry\n"
- . " element_href: $element_href\n element_text: $element_text\n";
-}
-
-sub t2h_default_index_summary_file_begin($$)
-{
- my $name = shift;
- my $is_printed = shift;
- open(IDXFILE, ">$Texi2HTML::THISDOC{'destination_directory'}$Texi2HTML::THISDOC{'file_base_name'}" . "_$name.idx")
- || die "Can't open >$Texi2HTML::THISDOC{'destination_directory'}$Texi2HTML::THISDOC{'file_base_name'}" . "_$name.idx for writing: $!\n";
-}
-
-sub t2h_default_index_summary_file_end($$)
-{
- my $name = shift;
- my $is_printed = shift;
- close (IDXFILE);
-}
-
-sub t2h_default_sp($$)
-{
- my $number = shift;
- my $preformatted = shift;
- return "<br>\n" x $number if (!$preformatted);
- return "\n" x $number;
-}
-
-sub t2h_default_acronym_like($$$$$$)
-{
- my $command = shift;
- my $acronym_texi = shift;
- my $acronym_text = shift;
- my $with_explanation = shift;
- my $explanation_lines = shift;
- my $explanation_text = shift;
- my $explanation_unformatted = shift;
-
- my $attribute = $command;
- my $opening = "<$attribute>";
- if (defined($explanation_unformatted))
- {
- $opening = "<$attribute title=\"$explanation_unformatted\">";
- }
- if ($with_explanation)
- {
- return &$I('%{acronym_like} (%{explanation})', {'acronym_like' => $opening . $acronym_text . "</$attribute>", 'explanation' => $explanation_text})
- }
- else
- {
- return $opening . $acronym_text . "</$attribute>";
- }
-}
-
-sub t2h_default_quotation_prepend_text($$)
-{
- my $style = shift;
- my $text = shift;
- return &$I('@b{%{quotation_arg}:} ', {'quotation_arg' => $text}, {'keep_texi' => 1}) if (defined($text));
- return undef;
-}
-
-sub t2h_default_quotation($$$$)
-{
- my $text = shift;
- my $argument_text = shift;
- my $argument_style_texi = shift;
- my $argument_style_id = shift;
-# if (defined($argument_text))
-# {
-# return '<blockquote>' . &$I('%{style}:%{quotation}',
-# {'style' => $argument_text, 'quotation' => $text}) . '</blockquote>' ;
-# }
- return '<blockquote>' . $text . "</blockquote>\n";
-}
-
-# format the text within a paragraph style format,
-#
-# argument:
-# format name
-# text within the format
-sub t2h_default_paragraph_style_command($$)
-{
- my $format = shift;
- my $text = shift;
- return $text;
-}
-
-# format a whole index
-#
-# argument:
-# index text
-# index name
-sub t2h_default_print_index($$)
-{
- my $text = shift;
- my $name = shift;
- return "<table border=\"0\" class=\"index-$name\">\n" .
- "<tr><td></td><th align=\"left\">" . &$I('Index Entry') . "</th><th align=\"left\"> " . &$I('Section') . "</th></tr>\n"
- . "<tr><td colspan=\"3\"> $DEFAULT_RULE</td></tr>\n" . $text .
- "</table>\n";
-}
-
-# format a letter entry in an index page. The letter entry contains
-# the index entries for the words beginning with that letter. It is
-# a target for links pointing from the summary of the index.
-#
-# arguments:
-# the letter
-# identifier for the letter entry. This should be used to make the target
-# identifier
-# text of the index entries
-sub t2h_default_index_letter($$$)
-{
- my $letter = shift;
- my $id = shift;
- my $text = shift;
- return '<tr><th>' . &$anchor($id,'',&$protect_text($letter)) .
- "</th><td></td><td></td></tr>\n" . $text .
- "<tr><td colspan=\"3\"> $DEFAULT_RULE</td></tr>\n";
-}
-
-# format an index entry (in a letter entry).
-#
-# arguments:
-# href to the main text, linking to the place where the index entry appears
-# entry text
-# href to the main text, linking to the section or node where the index
-# entry appears
-# section or node heading
-sub t2h_default_index_entry($$$$)
-{
- my $text_href = shift;
- my $entry = shift;
- my $element_href = shift;
- my $element_text = shift;
-
- return '<tr><td></td><td valign="top">' . &$anchor('', $text_href, $entry)
- . '</td><td valign="top">' . &$anchor('', $element_href, $element_text)
- . "</td></tr>\n";
-}
-
-
-sub t2h_default_copying_comment($)
-{
- my $copying_lines = shift;
- my $text = &$comment(main::remove_texi(@$copying_lines));
- return $text;
-}
-# format a letter appearing in a summary for an index. The letter links to
-# the place where the index elements beginning with this letter are (called
-# a letter entry).
-#
-# arguments:
-# letter
-# file where the target letter entry is
-# identifier for the target letter entry
-sub t2h_default_summary_letter($$$)
-{
- my $letter = shift;
- my $file = shift;
- my $identifier = shift;
- return &$anchor('', $file . '#' . $identifier, '<b>' . &$protect_text($letter) . '</b>', 'class="summary-letter"');
-}
-
-# format an index summary. This is a list of letters linking to the letter
-# entries.
-#
-# arguments:
-# array reference containing the formatted alphabetical letters
-# array reference containing the formatted non lphabetical letters
-sub t2h_default_index_summary($$)
-{
- my $alpha = shift;
- my $nonalpha = shift;
- my $join = '';
- my $nonalpha_text = '';
- my $alpha_text = '';
- $join = " &nbsp; \n<br>\n" if (@$nonalpha and @$alpha);
- if (@$nonalpha)
- {
- $nonalpha_text = join("\n &nbsp; \n", @$nonalpha) . "\n";
- }
- if (@$alpha)
- {
- $alpha_text = join("\n &nbsp; \n", @$alpha) . "\n &nbsp; \n";
- }
- return "<table><tr><th valign=\"top\">" . &$I('Jump to') .": &nbsp; </th><td>" .
- $nonalpha_text . $join . $alpha_text . "</td></tr></table>\n";
-}
-
-1;
-
-require "$ENV{T2H_HOME}/texi2html.init"
- if ($0 =~ /\.pl$/ &&
- -e "$ENV{T2H_HOME}/texi2html.init" && -r "$ENV{T2H_HOME}/texi2html.init");
-
-my $translation_file = 'translations.pl'; # file containing all the translations
-my $T2H_OBSOLETE_STRINGS;
-require "$ENV{T2H_HOME}/$translation_file"
- if ($0 =~ /\.pl$/ &&
- -e "$ENV{T2H_HOME}/$translation_file" && -r "$ENV{T2H_HOME}/$translation_file");
-
-#
-$LANGUAGES->{'de'} = {
- ' The buttons in the navigation panels have the following meaning:' => '',
- ' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => '',
- ' Up ' => '',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => '',
- '%{name} of %{class}' => '',
- '%{name} on %{class}' => '',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About This Document' => '@"Uber dieses Dokument',
- 'April' => 'April',
- 'August' => 'August',
- 'Button' => '',
- 'Contents' => '',
- 'Current Position' => '',
- 'December' => 'Dezember',
- 'February' => 'Februar',
- 'Footnotes' => 'Fu@ss{}noten',
- 'From 1.2.3 go to' => '',
- 'Go to' => '',
- 'Index' => 'Index',
- 'Index Entry' => '',
- 'January' => 'Januar',
- 'July' => 'Juli',
- 'Jump to' => '',
- 'June' => 'Juni',
- 'March' => 'M@"arz',
- 'May' => 'Mai',
- 'Menu:' => '',
- 'Name' => '',
- 'Next' => '',
- 'November' => 'November',
- 'October' => 'Oktober',
- 'Overview' => '',
- 'Overview:' => '',
- 'Prev' => '',
- 'Section' => '',
- 'Section One' => '',
- 'See %{node_file_href}' => '',
- 'See %{node_file_href} @cite{%{book}}' => '',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'See %{reference_name}' => '',
- 'See @cite{%{book}}' => '',
- 'See section %{reference_name}' => '',
- 'See section `%{section}\' in @cite{%{book}}' => '',
- 'September' => 'September',
- 'Short Table of Contents' => 'Kurzes Inhaltsverzeichniss',
- 'Subsection One-Four' => '',
- 'Subsection One-One' => '',
- 'Subsection One-Three' => '',
- 'Subsection One-Two' => '',
- 'Subsubsection One-Two-Four' => '',
- 'Subsubsection One-Two-One' => '',
- 'Subsubsection One-Two-Three' => '',
- 'Subsubsection One-Two-Two' => '',
- 'T2H_today' => '',
- 'Table of Contents' => 'Inhaltsverzeichniss',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated on @i{%{date}} using @uref{%{program_homepage}, @i{%{program}}}.' => '',
- 'This document was generated using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'Top' => '',
- 'Untitled Document' => '',
- 'about (help)' => '',
- 'beginning of this chapter or previous chapter' => '',
- 'by @emph{%{user}}' => '',
- 'by @emph{%{user}} on @emph{%{date}}' => '',
- 'cover (top) of document' => '',
- 'current' => '',
- 'current section' => '',
- 'first section in reading order' => '',
- 'following node' => '',
- 'index' => '',
- 'last section in reading order' => '',
- 'next chapter' => '',
- 'next node' => '',
- 'next section in reading order' => '',
- 'next section on same level' => '',
- 'node following in node reading order' => '',
- 'node up' => '',
- 'on @emph{%{date}}' => '',
- 'previous node' => '',
- 'previous section in reading order' => '',
- 'previous section on same level' => '',
- 'section `%{section}\' in @cite{%{book}}' => '',
- 'see %{node_file_href}' => '',
- 'see %{node_file_href} @cite{%{book}}' => '',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'see %{reference_name}' => '',
- 'see @cite{%{book}}' => '',
- 'see section %{reference_name}' => '',
- 'see section `%{section}\' in @cite{%{book}}' => '',
- 'short table of contents' => '',
- 'table of contents' => '',
- 'unknown' => '',
- 'up node' => '',
- 'up section' => ''
- };
-
-$T2H_OBSOLETE_STRINGS->{'de'} = {
- 'See' => 'Siehe',
- 'section' => 'Abschnitt',
- 'see' => 'siehe'
- };
-
-
-$LANGUAGES->{'es'} = {
- ' The buttons in the navigation panels have the following meaning:' => '',
- ' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => '',
- ' Up ' => '',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => '',
- '%{name} of %{class}' => '',
- '%{name} on %{class}' => '',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About This Document' => '',
- 'April' => 'abril',
- 'August' => 'agosto',
- 'Button' => '',
- 'Contents' => '',
- 'Current Position' => '',
- 'December' => 'diciembre',
- 'February' => 'febrero',
- 'Footnotes' => '',
- 'From 1.2.3 go to' => '',
- 'Go to' => '',
- 'Index' => 'Index',
- 'Index Entry' => '',
- 'January' => 'enero',
- 'July' => 'julio',
- 'Jump to' => '',
- 'June' => 'junio',
- 'March' => 'marzo',
- 'May' => 'mayo',
- 'Menu:' => '',
- 'Name' => '',
- 'Next' => '',
- 'November' => 'noviembre',
- 'October' => 'octubre',
- 'Overview' => '',
- 'Overview:' => '',
- 'Prev' => '',
- 'Section' => '',
- 'Section One' => '',
- 'See %{node_file_href}' => '',
- 'See %{node_file_href} @cite{%{book}}' => '',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'See %{reference_name}' => '',
- 'See @cite{%{book}}' => '',
- 'See section %{reference_name}' => '',
- 'See section `%{section}\' in @cite{%{book}}' => '',
- 'September' => 'septiembre',
- 'Short Table of Contents' => 'Resumen del Contenido',
- 'Subsection One-Four' => '',
- 'Subsection One-One' => '',
- 'Subsection One-Three' => '',
- 'Subsection One-Two' => '',
- 'Subsubsection One-Two-Four' => '',
- 'Subsubsection One-Two-One' => '',
- 'Subsubsection One-Two-Three' => '',
- 'Subsubsection One-Two-Two' => '',
- 'T2H_today' => '',
- 'Table of Contents' => '@\'{@dotless{I}}ndice General',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated on @i{%{date}} using @uref{%{program_homepage}, @i{%{program}}}.' => '',
- 'This document was generated using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'Top' => '',
- 'Untitled Document' => '',
- 'about (help)' => '',
- 'beginning of this chapter or previous chapter' => '',
- 'by @emph{%{user}}' => '',
- 'by @emph{%{user}} on @emph{%{date}}' => '',
- 'cover (top) of document' => '',
- 'current' => '',
- 'current section' => '',
- 'first section in reading order' => '',
- 'following node' => '',
- 'index' => '',
- 'last section in reading order' => '',
- 'next chapter' => '',
- 'next node' => '',
- 'next section in reading order' => '',
- 'next section on same level' => '',
- 'node following in node reading order' => '',
- 'node up' => '',
- 'on @emph{%{date}}' => '',
- 'previous node' => '',
- 'previous section in reading order' => '',
- 'previous section on same level' => '',
- 'section `%{section}\' in @cite{%{book}}' => '',
- 'see %{node_file_href}' => '',
- 'see %{node_file_href} @cite{%{book}}' => '',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'see %{reference_name}' => '',
- 'see @cite{%{book}}' => '',
- 'see section %{reference_name}' => '',
- 'see section `%{section}\' in @cite{%{book}}' => '',
- 'short table of contents' => '',
- 'table of contents' => '',
- 'unknown' => '',
- 'up node' => '',
- 'up section' => ''
- };
-
-$T2H_OBSOLETE_STRINGS->{'es'} = {
- 'See' => 'V@\'ease',
- 'section' => 'secci@\'on',
- 'see' => 'v@\'ase'
- };
-
-
-$LANGUAGES->{'fr'} = {
- ' The buttons in the navigation panels have the following meaning:' => ' Les boutons de navigation ont la signification suivante :',
- ' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => ' Dans cet exemple on est @`a @strong{ Sous section un-deux-trois } dans un document dont la structure est :',
- ' Up ' => 'Plus haut',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => 'le %{day} %{month} %{year}',
- '%{name} of %{class}' => '%{name} de %{class}',
- '%{name} on %{class}' => '%{name} de %{class}',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '%{node_file_href} section `%{section}\' dans @cite{%{book}}',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About This Document' => 'A propos de ce document',
- 'April' => 'Avril',
- 'August' => 'Ao@^ut',
- 'Button' => 'Bouton',
- 'Contents' => 'Table des mati@`eres',
- 'Current Position' => 'Position',
- 'December' => 'D@\'ecembre',
- 'February' => 'F@\'evrier',
- 'Footnotes' => 'Notes de bas de page',
- 'From 1.2.3 go to' => 'Depuis 1.2.3 aller @`a',
- 'Go to' => 'Aller @`a',
- 'Index' => 'Index',
- 'Index Entry' => 'Entr@\'ee d\'index',
- 'January' => 'Janvier',
- 'July' => 'Juillet',
- 'Jump to' => 'Aller @`a',
- 'June' => 'Juin',
- 'March' => 'Mars',
- 'May' => 'Mai',
- 'Menu:' => 'Menu@ :',
- 'Name' => 'Nom',
- 'Next' => 'Suivant',
- 'November' => 'Novembre',
- 'October' => 'Octobre',
- 'Overview' => 'Vue d\'ensemble',
- 'Overview:' => 'Vue d\'ensemble@ :',
- 'Prev' => 'Pr@\'ec@\'edent',
- 'Section' => '',
- 'Section One' => 'Section un',
- 'See %{node_file_href}' => 'Voir %{node_file_href}',
- 'See %{node_file_href} @cite{%{book}}' => 'Voir %{node_file_href} @cite{%{book}}',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => 'Voir %{node_file_href} section `%{section}\' dans @cite{%{book}}',
- 'See %{reference_name}' => 'Voir %{reference_name}',
- 'See @cite{%{book}}' => 'Voir @cite{%{book}}',
- 'See section %{reference_name}' => 'Voir la section %{reference_name}',
- 'See section `%{section}\' in @cite{%{book}}' => 'Voir la section `%{section}\' dans @cite{%{book}}',
- 'September' => 'Septembre',
- 'Short Table of Contents' => 'R@\'esum@\'e du contenu',
- 'Subsection One-Four' => 'Sous section un-quatre',
- 'Subsection One-One' => 'Sous section un-un',
- 'Subsection One-Three' => 'Sous section un-trois',
- 'Subsection One-Two' => 'Sous section un-deux',
- 'Subsubsection One-Two-Four' => 'Sous sous section un-deux-quatre',
- 'Subsubsection One-Two-One' => 'Sous sous section un-deux-un',
- 'Subsubsection One-Two-Three' => 'Sous sous section un-deux-trois',
- 'Subsubsection One-Two-Two' => 'Sous sous section un-deux-deux',
- 'T2H_today' => 'le %2$d %1$s %3$d',
- 'Table of Contents' => 'Table des mati@`eres',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e par @emph{%{user}} @emph{%{date}} en utilisant @uref{%{program_homepage}, @emph{%{program}}}.',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e par @emph{%{user}} en utilisant @uref{%{program_homepage}, @emph{%{program}}}.',
- 'This document was generated on @i{%{date}} using @uref{%{program_homepage}, @i{%{program}}}.' => '',
- 'This document was generated using @uref{%{program_homepage}, @emph{%{program}}}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e en utilisant @uref{%{program_homepage}, @emph{%{program}}}.',
- 'Top' => '',
- 'Untitled Document' => 'Document sans titre',
- 'about (help)' => '@`a propos (page d\'aide)',
- 'beginning of this chapter or previous chapter' => 'd@\'ebut de ce chapitre ou chapitre pr@\'ec@\'edent',
- 'by @emph{%{user}}' => 'par @emph{%{user}}',
- 'by @emph{%{user}} on @emph{%{date}}' => 'par @emph{%{user}} @emph{%{date}}',
- 'cover (top) of document' => 'couverture (top) du document',
- 'current' => 'courante',
- 'current section' => 'section actuelle',
- 'first section in reading order' => 'premi@`e section dans l\'ordre de lecture',
- 'following node' => 'node suivant',
- 'index' => 'index',
- 'last section in reading order' => 'derni@`ere section dans l\'ordre de lecture',
- 'next chapter' => 'chapitre suivant',
- 'next node' => 'node suivant',
- 'next section in reading order' => 'section suivante dans l\'ordre de lecture',
- 'next section on same level' => 'section suivante au m@^eme niveau',
- 'node following in node reading order' => 'node suivant dans l\'ordre des nodes',
- 'node up' => 'node au dessus',
- 'on @emph{%{date}}' => '@emph{%{date}}',
- 'previous node' => 'node pr@\'ec@\'edent',
- 'previous section in reading order' => 'section pr@\'ec@\'edente dans l\'ordre de lecture',
- 'previous section on same level' => 'section pr@\'ec@\'edente au m@^eme niveau',
- 'section `%{section}\' in @cite{%{book}}' => 'section `%{section}\' dans @cite{%{book}}',
- 'see %{node_file_href}' => 'voir %{node_file_href}',
- 'see %{node_file_href} @cite{%{book}}' => 'voir %{node_file_href} @cite{%{book}}',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => 'voir %{node_file_href} section `%{section}\' dans @cite{%{book}}',
- 'see %{reference_name}' => 'voir %{reference_name}',
- 'see @cite{%{book}}' => 'voir @cite{%{book}}',
- 'see section %{reference_name}' => 'voir la section %{reference_name}',
- 'see section `%{section}\' in @cite{%{book}}' => 'voir la section `%{section}\' dans @cite{{book}}',
- 'short table of contents' => 'table des mati@`eres r@\'esum@\'ee',
- 'table of contents' => 'table des mati@`eres',
- 'unknown' => 'inconnu',
- 'up node' => 'node au dessus',
- 'up section' => 'section sup@\'erieure'
- };
-
-$T2H_OBSOLETE_STRINGS->{'fr'} = {
- ' This document was generated %{who_and_when_generated} using %{program_homepage_href}.' => ' Ce document a &eacute;t&eacute; g&eacute;n&eacute;r&eacute; %{who_and_when_generated} en utilisant %{program_homepage_href}.',
- ' where the <strong> Example </strong> assumes that the current position is at <strong> Subsubsection One-Two-Three </strong> of a document of the following structure:' => ' Dans cet exemple on est &agrave; <strong> Sous section un-deux-trois </strong> dans un document dont la structure est :',
- '%{node_file_href} section `%{section}\' in <cite>%{book}</cite>' => '%{node_file_href} section `%{section}\' dans <cite>%{book}</cite>',
- 'See' => 'Voir',
- 'See %{node_file_href} <cite>%{book}</cite>' => 'Voir %{node_file_href} <cite>%{book}</cite>',
- 'See %{node_file_href} section `%{section}\' in <cite>%{book}</cite>' => 'Voir %{node_file_href} section `%{section}\' dans <cite>%{book}</cite>',
- 'See <cite>%{book}</cite>' => 'Voir <cite>%{book}</cite>',
- 'See section `%{section}\' in <cite>%{book}</cite>' => 'Voir la section `%{section}\' dans <cite>%{book}</cite>',
- 'This document was generated by <i>%{user}</i> on <i>%{date}</i> using %{program_homepage_href}.' => 'Ce document a &eacute;t&eacute; g&eacute;n&eacute;r&eacute; par <i>%{user}</i> <i>%{date}</i> en utilisant %{program_homepage_href}.',
- 'This document was generated by <i>%{user}</i> using %{program_homepage_href}.' => 'Ce document a &eacute;t&eacute; g&eacute;n&eacute;r&eacute; par <i>%{user}</i> en utilisant %{program_homepage_href}.',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using %{program_homepage_href}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e par @emph{%{user}} @emph{%{date}} en utilisant %{program_homepage_href}.',
- 'This document was generated by @emph{%{user}} using %{program_homepage_href}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e par @emph{%{user}} en utilisant %{program_homepage_href}.',
- 'This document was generated on <i>%{date}</i> using %{program_homepage_href}.' => 'Ce document a &eacute;t&eacute; g&eacute;n&eacute;r&eacute; <i>%{date}</i> en utilisant %{program_homepage_href}.',
- 'This document was generated on @emph{%{date}} using %{program_homepage_href}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e @emph{%{date}} en utilisant %{program_homepage_href}.',
- 'This document was generated on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e @emph{%{date}} en utilisant @uref{%{program_homepage}, @emph{%{program}}}.',
- 'This document was generated using %{program_homepage_href}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e en utilisant %{program_homepage_href}.',
- 'about (this page)' => 'a propos (cette page)',
- 'by <i>%{user}</i>' => 'par <i>%{user}</i>',
- 'by <i>%{user}</i> on <i>%{date}</i>' => 'par <i>%{user}</i> <i>%{date}</i>',
- 'concept index' => 'index',
- 'on <i>%{date}</i>' => '<i>%{date}</i>',
- 'section' => 'section',
- 'section `%{section}\' in <cite>%{book}</cite>' => 'section `%{section}\' dans <cite>%{book}</cite>',
- 'see' => 'voir',
- 'see %{node_file_href} <cite>%{book}</cite>' => 'voir %{node_file_href} <cite>%{book}</cite>',
- 'see %{node_file_href} section `%{section}\' in <cite>%{book}</cite>' => 'voir %{node_file_href} section `%{section}\' dans <cite>%{book}</cite>',
- 'see <cite>%{book}</cite>' => 'voir <cite>%{book}</cite>',
- 'see section `%{section}\' in <cite>%{book}</cite>' => 'voir la section `%{section}\' dans <cite>%{book}</cite>'
- };
-
-
-$LANGUAGES->{'nl'} = {
- ' The buttons in the navigation panels have the following meaning:' => '',
- ' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => '',
- ' Up ' => '',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => '',
- '%{name} of %{class}' => '',
- '%{name} on %{class}' => '',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About This Document' => 'No translation available!',
- 'April' => 'April',
- 'August' => 'Augustus',
- 'Button' => '',
- 'Contents' => '',
- 'Current Position' => '',
- 'December' => 'December',
- 'February' => 'Februari',
- 'Footnotes' => 'No translation available!',
- 'From 1.2.3 go to' => '',
- 'Go to' => '',
- 'Index' => 'Index',
- 'Index Entry' => '',
- 'January' => 'Januari',
- 'July' => 'Juli',
- 'Jump to' => '',
- 'June' => 'Juni',
- 'March' => 'Maart',
- 'May' => 'Mei',
- 'Menu:' => '',
- 'Name' => '',
- 'Next' => '',
- 'November' => 'November',
- 'October' => 'Oktober',
- 'Overview' => '',
- 'Overview:' => '',
- 'Prev' => '',
- 'Section' => '',
- 'Section One' => '',
- 'See %{node_file_href}' => '',
- 'See %{node_file_href} @cite{%{book}}' => '',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'See %{reference_name}' => '',
- 'See @cite{%{book}}' => '',
- 'See section %{reference_name}' => '',
- 'See section `%{section}\' in @cite{%{book}}' => '',
- 'September' => 'September',
- 'Short Table of Contents' => 'Korte inhoudsopgave',
- 'Subsection One-Four' => '',
- 'Subsection One-One' => '',
- 'Subsection One-Three' => '',
- 'Subsection One-Two' => '',
- 'Subsubsection One-Two-Four' => '',
- 'Subsubsection One-Two-One' => '',
- 'Subsubsection One-Two-Three' => '',
- 'Subsubsection One-Two-Two' => '',
- 'T2H_today' => '',
- 'Table of Contents' => 'Inhoudsopgave',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated on @i{%{date}} using @uref{%{program_homepage}, @i{%{program}}}.' => '',
- 'This document was generated using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'Top' => '',
- 'Untitled Document' => '',
- 'about (help)' => '',
- 'beginning of this chapter or previous chapter' => '',
- 'by @emph{%{user}}' => '',
- 'by @emph{%{user}} on @emph{%{date}}' => '',
- 'cover (top) of document' => '',
- 'current' => '',
- 'current section' => '',
- 'first section in reading order' => '',
- 'following node' => '',
- 'index' => '',
- 'last section in reading order' => '',
- 'next chapter' => '',
- 'next node' => '',
- 'next section in reading order' => '',
- 'next section on same level' => '',
- 'node following in node reading order' => '',
- 'node up' => '',
- 'on @emph{%{date}}' => '',
- 'previous node' => '',
- 'previous section in reading order' => '',
- 'previous section on same level' => '',
- 'section `%{section}\' in @cite{%{book}}' => '',
- 'see %{node_file_href}' => '',
- 'see %{node_file_href} @cite{%{book}}' => '',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'see %{reference_name}' => '',
- 'see @cite{%{book}}' => '',
- 'see section %{reference_name}' => '',
- 'see section `%{section}\' in @cite{%{book}}' => '',
- 'short table of contents' => '',
- 'table of contents' => '',
- 'unknown' => '',
- 'up node' => '',
- 'up section' => ''
- };
-
-$T2H_OBSOLETE_STRINGS->{'nl'} = {
- 'See' => 'Zie',
- 'section' => 'sectie',
- 'see' => 'zie'
- };
-
-
-$LANGUAGES->{'no'} = {
- ' The buttons in the navigation panels have the following meaning:' => '',
- ' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => '',
- ' Up ' => '',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => '',
- '%{name} of %{class}' => '',
- '%{name} on %{class}' => '',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About This Document' => 'No translation available!',
- 'April' => 'april',
- 'August' => 'august',
- 'Button' => '',
- 'Contents' => '',
- 'Current Position' => '',
- 'December' => 'desember',
- 'February' => 'februar',
- 'Footnotes' => 'No translation available!',
- 'From 1.2.3 go to' => '',
- 'Go to' => '',
- 'Index' => 'Indeks',
- 'Index Entry' => '',
- 'January' => 'januar',
- 'July' => 'juli',
- 'Jump to' => '',
- 'June' => 'juni',
- 'March' => 'mars',
- 'May' => 'mai',
- 'Menu:' => '',
- 'Name' => '',
- 'Next' => '',
- 'November' => 'november',
- 'October' => 'oktober',
- 'Overview' => '',
- 'Overview:' => '',
- 'Prev' => '',
- 'Section' => '',
- 'Section One' => '',
- 'See %{node_file_href}' => '',
- 'See %{node_file_href} @cite{%{book}}' => '',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'See %{reference_name}' => '',
- 'See @cite{%{book}}' => '',
- 'See section %{reference_name}' => '',
- 'See section `%{section}\' in @cite{%{book}}' => '',
- 'September' => 'september',
- 'Short Table of Contents' => 'Kort innholdsfortegnelse',
- 'Subsection One-Four' => '',
- 'Subsection One-One' => '',
- 'Subsection One-Three' => '',
- 'Subsection One-Two' => '',
- 'Subsubsection One-Two-Four' => '',
- 'Subsubsection One-Two-One' => '',
- 'Subsubsection One-Two-Three' => '',
- 'Subsubsection One-Two-Two' => '',
- 'T2H_today' => '',
- 'Table of Contents' => 'Innholdsfortegnelse',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated on @i{%{date}} using @uref{%{program_homepage}, @i{%{program}}}.' => '',
- 'This document was generated using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'Top' => '',
- 'Untitled Document' => '',
- 'about (help)' => '',
- 'beginning of this chapter or previous chapter' => '',
- 'by @emph{%{user}}' => '',
- 'by @emph{%{user}} on @emph{%{date}}' => '',
- 'cover (top) of document' => '',
- 'current' => '',
- 'current section' => '',
- 'first section in reading order' => '',
- 'following node' => '',
- 'index' => '',
- 'last section in reading order' => '',
- 'next chapter' => '',
- 'next node' => '',
- 'next section in reading order' => '',
- 'next section on same level' => '',
- 'node following in node reading order' => '',
- 'node up' => '',
- 'on @emph{%{date}}' => '',
- 'previous node' => '',
- 'previous section in reading order' => '',
- 'previous section on same level' => '',
- 'section `%{section}\' in @cite{%{book}}' => '',
- 'see %{node_file_href}' => '',
- 'see %{node_file_href} @cite{%{book}}' => '',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'see %{reference_name}' => '',
- 'see @cite{%{book}}' => '',
- 'see section %{reference_name}' => '',
- 'see section `%{section}\' in @cite{%{book}}' => '',
- 'short table of contents' => '',
- 'table of contents' => '',
- 'unknown' => '',
- 'up node' => '',
- 'up section' => ''
- };
-
-$T2H_OBSOLETE_STRINGS->{'no'} = {
- 'See' => 'Se',
- 'section' => 'avsnitt',
- 'see' => 'se'
- };
-
-
-$LANGUAGES->{'pt'} = {
- ' The buttons in the navigation panels have the following meaning:' => '',
- ' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => '',
- ' Up ' => '',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => '',
- '%{name} of %{class}' => '',
- '%{name} on %{class}' => '',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About This Document' => '',
- 'April' => 'Abril',
- 'August' => 'Agosto',
- 'Button' => '',
- 'Contents' => '',
- 'Current Position' => '',
- 'December' => 'Dezembro',
- 'February' => 'Fevereiro',
- 'Footnotes' => '',
- 'From 1.2.3 go to' => '',
- 'Go to' => '',
- 'Index' => '@\'Indice',
- 'Index Entry' => '',
- 'January' => 'Janeiro',
- 'July' => 'Julho',
- 'Jump to' => '',
- 'June' => 'Junho',
- 'March' => 'Mar@,{c}o',
- 'May' => 'Maio',
- 'Menu:' => '',
- 'Name' => '',
- 'Next' => '',
- 'November' => 'Novembro',
- 'October' => 'Outubro',
- 'Overview' => '',
- 'Overview:' => '',
- 'Prev' => '',
- 'Section' => '',
- 'Section One' => '',
- 'See %{node_file_href}' => '',
- 'See %{node_file_href} @cite{%{book}}' => '',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'See %{reference_name}' => '',
- 'See @cite{%{book}}' => '',
- 'See section %{reference_name}' => '',
- 'See section `%{section}\' in @cite{%{book}}' => '',
- 'September' => 'Setembro',
- 'Short Table of Contents' => 'Breve Sum@\'ario',
- 'Subsection One-Four' => '',
- 'Subsection One-One' => '',
- 'Subsection One-Three' => '',
- 'Subsection One-Two' => '',
- 'Subsubsection One-Two-Four' => '',
- 'Subsubsection One-Two-One' => '',
- 'Subsubsection One-Two-Three' => '',
- 'Subsubsection One-Two-Two' => '',
- 'T2H_today' => '',
- 'Table of Contents' => 'Sum@\'ario',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated on @i{%{date}} using @uref{%{program_homepage}, @i{%{program}}}.' => '',
- 'This document was generated using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'Top' => '',
- 'Untitled Document' => '',
- 'about (help)' => '',
- 'beginning of this chapter or previous chapter' => '',
- 'by @emph{%{user}}' => '',
- 'by @emph{%{user}} on @emph{%{date}}' => '',
- 'cover (top) of document' => '',
- 'current' => '',
- 'current section' => '',
- 'first section in reading order' => '',
- 'following node' => '',
- 'index' => '',
- 'last section in reading order' => '',
- 'next chapter' => '',
- 'next node' => '',
- 'next section in reading order' => '',
- 'next section on same level' => '',
- 'node following in node reading order' => '',
- 'node up' => '',
- 'on @emph{%{date}}' => '',
- 'previous node' => '',
- 'previous section in reading order' => '',
- 'previous section on same level' => '',
- 'section `%{section}\' in @cite{%{book}}' => '',
- 'see %{node_file_href}' => '',
- 'see %{node_file_href} @cite{%{book}}' => '',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'see %{reference_name}' => '',
- 'see @cite{%{book}}' => '',
- 'see section %{reference_name}' => '',
- 'see section `%{section}\' in @cite{%{book}}' => '',
- 'short table of contents' => '',
- 'table of contents' => '',
- 'unknown' => '',
- 'up node' => '',
- 'up section' => ''
- };
-
-$T2H_OBSOLETE_STRINGS->{'pt'} = {
- 'See' => 'Veja',
- 'section' => 'Se@,{c}@~ao',
- 'see' => 'veja'
- };
-
-
-$LANGUAGES->{'en'} = {
- ' The buttons in the navigation panels have the following meaning:' => '',
- ' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => '',
- ' Up ' => '',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => '',
- '%{name} of %{class}' => '',
- '%{name} on %{class}' => '',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About This Document' => '',
- 'April' => '',
- 'August' => '',
- 'Button' => '',
- 'Contents' => '',
- 'Current Position' => '',
- 'December' => '',
- 'February' => '',
- 'Footnotes' => '',
- 'From 1.2.3 go to' => '',
- 'Go to' => '',
- 'Index' => '',
- 'Index Entry' => '',
- 'January' => '',
- 'July' => '',
- 'Jump to' => '',
- 'June' => '',
- 'March' => '',
- 'May' => '',
- 'Menu:' => '',
- 'Name' => '',
- 'Next' => '',
- 'November' => '',
- 'October' => '',
- 'Overview' => '',
- 'Overview:' => '',
- 'Prev' => '',
- 'Section' => '',
- 'Section One' => '',
- 'See %{node_file_href}' => '',
- 'See %{node_file_href} @cite{%{book}}' => '',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'See %{reference_name}' => '',
- 'See @cite{%{book}}' => '',
- 'See section %{reference_name}' => '',
- 'See section `%{section}\' in @cite{%{book}}' => '',
- 'September' => '',
- 'Short Table of Contents' => '',
- 'Subsection One-Four' => '',
- 'Subsection One-One' => '',
- 'Subsection One-Three' => '',
- 'Subsection One-Two' => '',
- 'Subsubsection One-Two-Four' => '',
- 'Subsubsection One-Two-One' => '',
- 'Subsubsection One-Two-Three' => '',
- 'Subsubsection One-Two-Two' => '',
- 'T2H_today' => '%s, %d %d',
- 'Table of Contents' => '',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated on @i{%{date}} using @uref{%{program_homepage}, @i{%{program}}}.' => '',
- 'This document was generated using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'Top' => '',
- 'Untitled Document' => '',
- 'about (help)' => '',
- 'beginning of this chapter or previous chapter' => '',
- 'by @emph{%{user}}' => '',
- 'by @emph{%{user}} on @emph{%{date}}' => '',
- 'cover (top) of document' => '',
- 'current' => '',
- 'current section' => '',
- 'first section in reading order' => '',
- 'following node' => '',
- 'index' => '',
- 'last section in reading order' => '',
- 'next chapter' => '',
- 'next node' => '',
- 'next section in reading order' => '',
- 'next section on same level' => '',
- 'node following in node reading order' => '',
- 'node up' => '',
- 'on @emph{%{date}}' => '',
- 'previous node' => '',
- 'previous section in reading order' => '',
- 'previous section on same level' => '',
- 'section `%{section}\' in @cite{%{book}}' => '',
- 'see %{node_file_href}' => '',
- 'see %{node_file_href} @cite{%{book}}' => '',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'see %{reference_name}' => '',
- 'see @cite{%{book}}' => '',
- 'see section %{reference_name}' => '',
- 'see section `%{section}\' in @cite{%{book}}' => '',
- 'short table of contents' => '',
- 'table of contents' => '',
- 'unknown' => '',
- 'up node' => '',
- 'up section' => ''
- };
-
-$T2H_OBSOLETE_STRINGS->{'en'} = {};
-
-
-my $index_name = -1;
-my @index_to_hash = ('style_map', 'style_map_pre', 'style_map_texi');
-foreach my $hash (\%style_map, \%style_map_pre, \%style_map_texi, \%unformatted_text_style_map_texi)
-{
- $index_name++;
- my $name = $index_to_hash[$index_name];
- foreach my $style (keys(%{$hash}))
- {
- next unless (ref($hash->{$style}) eq 'HASH');
- $hash->{$style}->{'args'} = ['normal'] if (!exists($hash->{$style}->{'args'}));
- die "Bug: args not defined for $style in $name" if (!defined($hash->{$style}->{'args'}));
-#print STDERR "DEFAULT($name, $hash) add normal as arg for $style ($hash->{$style}), $hash->{$style}->{'args'}\n";
- }
-}
-
-sub t2h_utf8_accent($$)
-{
- my $accent = shift;
- my $args = shift;
- my $style_stack = shift;
-
- my $text = $args->[0];
-
- if ($accent eq 'dotless')
- { # \x{0131}\x{0308} for @dotless{i} @" doesn't lead to NFC 00ef.
- if (($text eq 'i') and (!defined($style_stack->[-2]) or (!defined($unicode_accents{$style_stack->[-2]})) or ($style_stack->[-2] eq 'tieaccent')))
- {
- return "\x{0131}";
- }
- #return "\x{}" if ($text eq 'j'); # not found !
- return $text;
- }
-
- return Unicode::Normalize::NFC($text . chr(hex($unicode_diacritical{$accent})))
- if (defined($unicode_diacritical{$accent}));
- return ascii_accents($text, $accent);
-}
-
-sub t2h_utf8_normal_text($)
-{
- my $text = shift;
- $text =~ s/---/\x{2014}/g;
- $text =~ s/--/\x{2013}/g;
- $text =~ s/``/\x{201C}/g;
- $text =~ s/''/\x{201D}/g;
- return $text;
-}
-
-sub t2h_cross_manual_normal_text($)
-{
- my $text = shift;
- $text = main::normalise_space($text);
- my $result = '';
- while ($text ne '')
- {
- if ($text =~ s/^([A-Za-z0-9]+)//o)
- {
- $result .= $1;
- }
- elsif ($text =~ s/^ //o)
- {
- $result .= '-';
- }
- elsif ($text =~ s/^(.)//o)
- {
- if (exists($ascii_character_map{$1}))
- {
- $result .= '_' . lc($ascii_character_map{$1});
- }
- elsif ($USE_UNICODE)
- {
- $result .= $1;
- }
- else
- {
- $result .= '_' . '00' . lc(sprintf("%02x",ord($1)));
- }
- }
- else
- {
- print STDERR "Bug: unknown character in node (likely in infinite loop)\n";
- sleep 1;
- }
- }
-
- return $result;
-}
-
-sub t2h_nounicode_cross_manual_accent($$)
-{
- my $accent = shift;
- my $args = shift;
-
- my $text = $args->[0];
-
- return '_' . lc($unicode_accents{$accent}->{$text})
- if (defined($unicode_accents{$accent}->{$text}));
- return ($text . '_' . lc($unicode_diacritical{$accent}))
- if (defined($unicode_diacritical{$accent}));
- return ascii_accents($text, $accent);
-}
-
-$USE_UNICODE = '0';
-if ($USE_UNICODE eq '0')
-{
- $USE_UNICODE = 1;
- eval {
- require Encode;
- require Unicode::Normalize;
- Encode->import('encode');
- };
- $USE_UNICODE = 0 if ($@);
-}
-
-}
-
-use vars qw(
-%value
-);
-
-# This is deprecated
-#our %user_sub;
-
-# variables which might be redefined by the user but aren't likely to be
-# they seem to be in the main namespace
-use vars qw(
-$index_properties
-%predefined_index
-%valid_index
-%sec2level
-%code_style_map
-%region_lines
-);
-
-# Some global variables are set in the script, and used in the subroutines
-# they are in the Texi2HTML namespace, thus prefixed with Texi2HTML::.
-# see texi2html.init for details.
-
-#+++############################################################################
-# #
-# Initialization #
-# Pasted content of File $(srcdir)/MySimple.pm: Command-line processing #
-# #
-#---############################################################################
-
-# leave this within comments, and keep the require statement
-# This way, you can directly run texi2html.pl, if $ENV{T2H_HOME}/texi2html.init
-# exists.
-
-#
-package Getopt::MySimple;
-
-# Name:
-# Getopt::MySimple.
-#
-# Documentation:
-# POD-style (incomplete) documentation is in file MySimple.pod
-#
-# Tabs:
-# 4 spaces || die.
-#
-# Author:
-# Ron Savage rpsavage@ozemail.com.au.
-# 1.00 19-Aug-97 Initial version.
-# 1.10 13-Oct-97 Add arrays of switches (eg '=s@').
-# 1.20 3-Dec-97 Add 'Help' on a per-switch basis.
-# 1.30 11-Dec-97 Change 'Help' to 'verbose'. Make all hash keys lowercase.
-# 1.40 10-Nov-98 Change width of help report. Restructure tests.
-# 1-Jul-00 Modifications for Texi2html
-
-# --------------------------------------------------------------------------
-# Locally modified by obachman (Display type instead of env, order by cmp)
-# $Id: MySimple.pm,v 1.4 2004/02/10 00:12:42 pertusus Exp $
-
-# use strict;
-# no strict 'refs';
-
-use vars qw(@EXPORT @EXPORT_OK @ISA);
-use vars qw($fieldWidth $opt $VERSION);
-
-use Exporter();
-use Getopt::Long;
-
-@ISA = qw(Exporter);
-@EXPORT = qw();
-@EXPORT_OK = qw($opt); # An alias for $self -> {'opt'}.
-
-# --------------------------------------------------------------------------
-
-$fieldWidth = 20;
-$VERSION = '1.41';
-
-# --------------------------------------------------------------------------
-
-sub byOrder
-{
- my($self) = @_;
-
- return uc($a) cmp (uc($b));
-}
-
-# --------------------------------------------------------------------------
-
-sub dumpOptions
-{
- my($self) = @_;
-
- print 'Option', ' ' x ($fieldWidth - length('Option') ), "Value\n";
-
- for (sort byOrder keys(%{$self -> {'opt'} }) )
- {
- print "-$_", ' ' x ($fieldWidth - (1 + length) ), "${$self->{'opt'} }{$_}\n";
- }
-
- print "\n";
-
-} # End of dumpOptions.
-
-# --------------------------------------------------------------------------
-# Return:
-# 0 -> Error.
-# 1 -> Ok.
-
-sub getOptions
-{
- push(@_, 0) if ($#_ == 2); # Default for $ignoreCase is 0.
- push(@_, 1) if ($#_ == 3); # Default for $helpThenExit is 1.
-
- my($self, $default, $helpText, $versionText,
- $helpThenExit, $versionThenExit, $ignoreCase) = @_;
-
- $helpThenExit = 1 unless (defined($helpThenExit));
- $versionThenExit = 1 unless (defined($versionThenExit));
- $ignoreCase = 0 unless (defined($ignoreCase));
-
- $self -> {'default'} = $default;
- $self -> {'helpText'} = $helpText;
- $self -> {'versionText'} = $versionText;
- $Getopt::Long::ignorecase = $ignoreCase;
-
- unless (defined($self -> {'default'}{'help'}))
- {
- $self -> {'default'}{'help'} =
- {
- type => ':i',
- default => '',
- linkage => sub {$self->helpOptions($_[1]); sleep 5;exit (0) if $helpThenExit;},
- verbose => "print help and exit"
- };
- }
-
- unless (defined($self -> {'default'}{'version'}))
- {
- $self -> {'default'}{'version'} =
- {
- type => '',
- default => '',
- linkage => sub {print $self->{'versionText'}; exit (0) if $versionThenExit;},
- verbose => "print version and exit"
- };
- }
-
- for (keys(%{$self -> {'default'} }) )
- {
- my $type = ${$self -> {'default'} }{$_}{'type'};
- push(@{$self -> {'type'} }, "$_$type");
- $self->{'opt'}->{$_} = ${$self -> {'default'} }{$_}{'linkage'}
- if ${$self -> {'default'} }{$_}{'linkage'};
- }
-
- my($result) = &GetOptions($self -> {'opt'}, @{$self -> {'type'} });
-
- return $result unless $result;
-
- for (keys(%{$self -> {'default'} }) )
- {
- if (! defined(${$self -> {'opt'} }{$_})) #{
- {
- ${$self -> {'opt'} }{$_} = ${$self -> {'default'} }{$_}{'default'};
- }
- }
-
- $result;
-} # End of getOptions.
-
-# --------------------------------------------------------------------------
-
-sub helpOptions
-{
- my($self) = shift;
- my($noHelp) = shift;
- $noHelp = 0 unless $noHelp;
- my($optwidth, $typewidth, $defaultwidth, $maxlinewidth, $valind, $valwidth)
- = (10, 5, 9, 78, 4, 11);
-
- print "$self->{'helpText'}" if ($self -> {'helpText'});
-
- print ' Option', ' ' x ($optwidth - length('Option') -1 ),
- 'Type', ' ' x ($typewidth - length('Type') + 1),
- 'Default', ' ' x ($defaultwidth - length('Default') ),
- "Description\n";
-
- for (sort byOrder keys(%{$self -> {'default'} }) )
- {
- my($line, $help, $option, $val);
- $option = $_;
- next if ${$self->{'default'} }{$_}{'noHelp'} && ${$self->{'default'} }{$_}{'noHelp'} > $noHelp;
- #$line = " -$_" . ' ' x ($optwidth - (2 + length) ) .
- # "${$self->{'default'} }{$_}{'type'} ".
- # ' ' x ($typewidth - (1+length(${$self -> {'default'} }{$_}{'type'}) ));
- $line = " --$_" . "${$self->{'default'} }{$_}{'type'}".
- ' ' x ($typewidth - (1+length(${$self -> {'default'} }{$_}{'type'}) ));
-
- $val = ${$self->{'default'} }{$_}{'linkage'};
- if ($val)
- {
- if (ref($val) eq 'SCALAR')
- {
- $val = $$val;
- }
- else
- {
- $val = '';
- }
- }
- else
- {
- $val = ${$self->{'default'} }{$_}{'default'};
- }
- $line .= "$val ";
- $line .= ' ' x ($optwidth + $typewidth + $defaultwidth + 1 - length($line));
-
- if (defined(${$self -> {'default'} }{$_}{'verbose'}) &&
- ${$self -> {'default'} }{$_}{'verbose'} ne '')
- {
- $help = "${$self->{'default'} }{$_}{'verbose'}";
- }
- else
- {
- $help = ' ';
- }
- if ((length("$line") + length($help)) < $maxlinewidth)
- {
- print $line , $help, "\n";
- }
- else
- {
- print $line, "\n", ' ' x $valind, $help, "\n";
- }
- for $val (sort byOrder keys(%{${$self->{'default'}}{$option}{'values'}}))
- {
- print ' ' x ($valind + 2);
- print $val, ' ', ' ' x ($valwidth - length($val) - 2);
- print ${$self->{'default'}}{$option}{'values'}{$val}, "\n";
- }
- }
-
- print <<EOT;
-Note: 'Options' may be abbreviated. 'Type' specifications mean:
- <none>| ! no argument: variable is set to 1 on -foo (or, to 0 on -nofoo)
- =s | :s mandatory (or, optional) string argument
- =i | :i mandatory (or, optional) integer argument
-EOT
-} # End of helpOptions.
-
-#-------------------------------------------------------------------
-
-sub new
-{
- my($class) = @_;
- my($self) = {};
- $self -> {'default'} = {};
- $self -> {'helpText'} = '';
- $self -> {'opt'} = {};
- $opt = $self -> {'opt'}; # An alias for $self -> {'opt'}.
- $self -> {'type'} = ();
-
- return bless $self, $class;
-
-} # End of new.
-
-# --------------------------------------------------------------------------
-
-1;
-
-# End MySimple.pm
-
-require "$ENV{T2H_HOME}/MySimple.pm"
- if ($0 =~ /\.pl$/ &&
- -e "$ENV{T2H_HOME}/MySimple.pm" && -r "$ENV{T2H_HOME}/MySimple.pm");
-
-#+++############################################################################
-# #
-# Initialization #
-# Pasted content of File $(srcdir)/T2h_i18n.pm: Internationalisation #
-# #
-#---############################################################################
-
-# leave this within comments, and keep the require statement
-# This way, you can directly run texi2html.pl, if $ENV{T2H_HOME}/T2h_i18n.pm
-# exists.
-
-#
-#+##############################################################################
-#
-# T2h_i18n.pm: Internationalization for texi2html
-#
-# Copyright (C) 1999, 2000 Free Software Foundation, Inc.
-#
-# 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-#
-#-##############################################################################
-
-# This requires perl version 5 or higher
-require 5.0;
-
-package Texi2HTML::I18n;
-
-use strict;
-
-use vars qw(
-@ISA
-@EXPORT
-);
-
-use Exporter;
-@ISA = qw(Exporter);
-@EXPORT = qw(pretty_date);
-
-my $language;
-my $i18n_dir = 'i18n'; # name of the directory containing the per language files
-#my $translation_file = 'translations.pl'; # file containing all the translations
-#my @known_languages = ('de', 'nl', 'es', 'no', 'pt', 'fr'); # The supported
- # languages
-
-########################################################################
-# Language dependencies:
-# To add a new language extend the WORDS hash and create $T2H_<...>_WORDS hash
-# To redefine one word, simply do:
-# $T2h_i18n::T2H_LANGUAGES->{<language>}->{<word>} = 'whatever' in your personal init file.
-#
-my $T2H_WORDS_EN =
-{
- # titles of pages
- #'Table of Contents' => 'Table of Contents',
- #'Short Table of Contents' => 'Short Table of Contents',
- #'Index' => 'Index',
- #'About This Document' => 'About This Document',
- #'Footnotes' => 'Footnotes',
- #'See' => 'See',
- #'see' => 'see',
- #'section' => 'section',
- 'About This Document' => '',
- 'Table of Contents' => '',
- 'Short Table of Contents', => '',
- 'Index' => '',
- 'Footnotes' => '',
- 'See' => '',
- 'see' => '',
- 'section' => '',
- 'Top' => '',
- 'Untitled Document' => '',
- # If necessary, we could extend this as follows:
- # # text for buttons
- # 'Top_Button' => 'Top',
- # 'ToC_Button' => 'Contents',
- # 'Overview_Button' => 'Overview',
- # 'Index_button' => 'Index',
- # 'Back_Button' => 'Back',
- # 'FastBack_Button' => 'FastBack',
- # 'Prev_Button' => 'Prev',
- # 'Up_Button' => 'Up',
- # 'Next_Button' => 'Next',
- # 'Forward_Button' =>'Forward',
- # 'FastWorward_Button' => 'FastForward',
- # 'First_Button' => 'First',
- # 'Last_Button' => 'Last',
- # 'About_Button' => 'About'
- 'January' => '',
- 'February' => '',
- 'March' => '',
- 'April' => '',
- 'May' => '',
- 'June' => '',
- 'July' => '',
- 'August' => '',
- 'September' => '',
- 'October' => '',
- 'November' => '',
- 'December' => '',
- 'T2H_today' => '%s, %d %d',
-};
-
-my $T2H_WORDS_DE =
-{
- 'Table of Contents' => 'Inhaltsverzeichniss',
- 'Short Table of Contents' => 'Kurzes Inhaltsverzeichniss',
- 'Index' => 'Index',
- 'About This Document' => '&Uuml;ber dieses Dokument',
- 'Footnotes' => 'Fu&szlig;noten',
- 'See' => 'Siehe',
- 'see' => 'siehe',
- 'section' => 'Abschnitt',
- 'January' => 'Januar',
- 'February' => 'Februar',
- 'March' => 'M&auml;rz',
- 'April' => 'April',
- 'May' => 'Mai',
- 'June' => 'Juni',
- 'July' => 'Juli',
- 'August' => 'August',
- 'September' => 'September',
- 'October' => 'Oktober',
- 'November' => 'November',
- 'December' => 'Dezember',
-};
-
-my $T2H_WORDS_NL =
-{
- 'Table of Contents' => 'Inhoudsopgave',
- 'Short Table of Contents' => 'Korte inhoudsopgave',
- 'Index' => 'Index', #Not sure ;-)
- 'About This Document' => 'No translation available!', #No translation available!
- 'Footnotes' => 'No translation available!', #No translation available!
- 'See' => 'Zie',
- 'see' => 'zie',
- 'section' => 'sectie',
- 'January' => 'Januari',
- 'February' => 'Februari',
- 'March' => 'Maart',
- 'April' => 'April',
- 'May' => 'Mei',
- 'June' => 'Juni',
- 'July' => 'Juli',
- 'August' => 'Augustus',
- 'September' => 'September',
- 'October' => 'Oktober',
- 'November' => 'November',
- 'December' => 'December',
-};
-
-my $T2H_WORDS_ES =
-{
- 'Table of Contents' => '&iacute;ndice General',
- 'Short Table of Contents' => 'Resumen del Contenido',
- 'Index' => 'Index', #Not sure ;-)
- 'About This Document' => 'No translation available!', #No translation available!
- 'Footnotes' => 'Fu&szlig;noten',
- 'See' => 'V&eacute;ase',
- 'see' => 'v&eacute;ase',
- 'section' => 'secci&oacute;n',
- 'January' => 'enero',
- 'February' => 'febrero',
- 'March' => 'marzo',
- 'April' => 'abril',
- 'May' => 'mayo',
- 'June' => 'junio',
- 'July' => 'julio',
- 'August' => 'agosto',
- 'September' => 'septiembre',
- 'October' => 'octubre',
- 'November' => 'noviembre',
- 'December' => 'diciembre',
-};
-
-my $T2H_WORDS_NO =
-{
- 'Table of Contents' => 'Innholdsfortegnelse',
- 'Short Table of Contents' => 'Kort innholdsfortegnelse',
- 'Index' => 'Indeks', #Not sure ;-)
- 'About This Document' => 'No translation available!', #No translation available!
- 'Footnotes' => 'No translation available!',
- 'See' => 'Se',
- 'see' => 'se',
- 'section' => 'avsnitt',
- 'January' => 'januar',
- 'February' => 'februar',
- 'March' => 'mars',
- 'April' => 'april',
- 'May' => 'mai',
- 'June' => 'juni',
- 'July' => 'juli',
- 'August' => 'august',
- 'September' => 'september',
- 'October' => 'oktober',
- 'November' => 'november',
- 'December' => 'desember',
-};
-
-my $T2H_WORDS_PT =
-{
- 'Table of Contents' => 'Sum&aacute;rio',
- 'Short Table of Contents' => 'Breve Sum&aacute;rio',
- 'Index' => '&Iacute;ndice', #Not sure ;-)
- 'About This Document' => 'No translation available!', #No translation available!
- 'Footnotes' => 'No translation available!',
- 'See' => 'Veja',
- 'see' => 'veja',
- 'section' => 'Se&ccedil;&atilde;o',
- 'January' => 'Janeiro',
- 'February' => 'Fevereiro',
- 'March' => 'Mar&ccedil;o',
- 'April' => 'Abril',
- 'May' => 'Maio',
- 'June' => 'Junho',
- 'July' => 'Julho',
- 'August' => 'Agosto',
- 'September' => 'Setembro',
- 'October' => 'Outubro',
- 'November' => 'Novembro',
- 'December' => 'Dezembro',
-};
-
-my $T2H_WORDS_FR =
-{
- 'Table of Contents' => 'Table des mati&egrave;res',
- 'Short Table of Contents' => 'R&eacute;sum&eacute;e du contenu',
- 'Index' => 'Index',
- 'About This Document' => 'A propos de ce document',
- 'Footnotes' => 'Notes de bas de page',
- 'See' => 'Voir',
- 'see' => 'voir',
- 'section' => 'section',
- 'January' => 'Janvier',
- 'February' => 'F&eacute;vrier',
- 'March' => 'Mars',
- 'April' => 'Avril',
- 'May' => 'Mai',
- 'June' => 'Juin',
- 'July' => 'Juillet',
- 'August' => 'Ao&ucirc;t',
- 'September' => 'Septembre',
- 'October' => 'Octobre',
- 'November' => 'Novembre',
- 'December' => 'D&eacute;cembre',
- 'T2H_today' => 'le %2$d %1$s %3$d'
-};
-
-#$T2H_LANGUAGES =
-#{
-# 'en' => $T2H_WORDS_EN,
-# 'de' => $T2H_WORDS_DE,
-# 'nl' => $T2H_WORDS_NL,
-# 'es' => $T2H_WORDS_ES,
-# 'no' => $T2H_WORDS_NO,
-# 'pt' => $T2H_WORDS_PT,
-# 'fr' => $T2H_WORDS_FR,
-#};
-
-sub set_language($)
-{
- my $lang = shift;
- if (defined($lang) && exists($Texi2HTML::Config::LANGUAGES->{$lang}) && defined($Texi2HTML::Config::LANGUAGES->{$lang}))
- {
- $language = $lang;
- return 1;
- }
- else
- {
- return 0;
- }
-}
-
-
-my @MONTH_NAMES =
- (
- 'January', 'February', 'March', 'April', 'May',
- 'June', 'July', 'August', 'September', 'October',
- 'November', 'December'
- );
-
-my $I = \&get_string;
-
-sub pretty_date($)
-{
- my $lang = shift;
- my($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst);
-
- ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
- $year += ($year < 70) ? 2000 : 1900;
- # obachman: Let's do it as the Americans do
- #return($MONTH_NAMES->{$lang}[$mon] . ", " . $mday . " " . $year);
- #return(sprintf(&$I('T2H_today'), (get_string($MONTH_NAMES[$mon]), $mday, $year)));
- return &$I('%{month}, %{day} %{year}', { 'month' => get_string($MONTH_NAMES[$mon]),
- 'day' => $mday, 'year' => $year });
-}
-
-my $error_no_en = 0;
-sub get_string($;$$)
-{
- my $string = shift;
- my $arguments = shift;
- my $state = shift;
- my $T2H_LANGUAGES = $Texi2HTML::Config::LANGUAGES;
- if (! exists($T2H_LANGUAGES->{'en'}))
- {
- unless($error_no_en)
- {
- print STDERR "i18n: no LANGUAGES->{'en'} hash\n";
- $error_no_en = 1;
- }
- }
- else
- {
- print STDERR "i18n: missing string $string\n" unless (exists ($T2H_LANGUAGES->{'en'}->{$string}));
- if (defined ($T2H_LANGUAGES->{$language}->{$string}) and
- ($T2H_LANGUAGES->{$language}->{$string} ne ''))
- {
- $string = $T2H_LANGUAGES->{$language}->{$string};
- }
- elsif (defined ($T2H_LANGUAGES->{'en'}->{$string}) and
- ($T2H_LANGUAGES->{'en'}->{$string} ne ''))
- {
- $string = $T2H_LANGUAGES->{'en'}->{$string};
- }
- }
- return main::substitute_line($string, $state) unless (defined($arguments) or !keys(%$arguments));
- my $result = '';
- while ($string)
- {
- if ($string =~ s/^([^%]*)%//)
- {
- $result .= $1 if (defined($1));
- $result .= '%';
- if ($string =~ s/^%//)
- {
- $result .= '%';
- }
- elsif ($string =~ /^\{(\w+)\}/ and exists($arguments->{$1}))
- {
- $string =~ s/^\{(\w+)\}//;
- if (!$state->{'keep_texi'})
- {
- $result .= "\@\{$1\@\}";
- }
- else
- {
- $result .= "\{$1\}";
- }
- }
- else
- {
- $result .= '%';
- }
- next;
- }
- else
- {
- $result .= $string;
- last;
- }
- }
- if (!$state->{'keep_texi'})
- {
- $string = main::substitute_line($result, $state);
- }
- else
- {
- $string = $result;
- }
- $result = '';
- while ($string)
- {
- if ($string =~ s/^([^%]*)%//)
- {
- $result .= $1 if (defined($1));
- if ($string =~ s/^%//)
- {
- $result .= '%';
- }
- elsif ($string =~ /^\{(\w+)\}/ and exists($arguments->{$1}))
- {
- $string =~ s/^\{(\w+)\}//;
- $result .= $arguments->{$1};
- }
- else
- {
- $result .= '%';
- }
- next;
- }
- else
- {
- $result .= $string;
- last;
- }
- }
- return $result;
-}
-
-1;
-require "$ENV{T2H_HOME}/T2h_i18n.pm"
- if ($0 =~ /\.pl$/ &&
- -e "$ENV{T2H_HOME}/T2h_i18n.pm" && -r "$ENV{T2H_HOME}/T2h_i18n.pm");
-
-
-{
-package Texi2HTML::LaTeX2HTML::Config;
-
-# latex2html variables
-# These variables are not used. They are here for information only, and
-# an example of config file for latex2html file is included.
-my $ADDRESS;
-my $ANTI_ALIAS;
-my $ANTI_ALIAS_TEXT;
-my $ASCII_MODE;
-my $AUTO_LINK;
-my $AUTO_PREFIX;
-my $CHILDLINE;
-my $DEBUG;
-my $DESTDIR;
-my $ERROR;
-my $EXTERNAL_FILE;
-my $EXTERNAL_IMAGES;
-my $EXTERNAL_UP_LINK;
-my $EXTERNAL_UP_TITLE;
-my $FIGURE_SCALE_FACTOR;
-my $HTML_VERSION;
-my $IMAGES_ONLY;
-my $INFO;
-my $LINE_WIDTH;
-my $LOCAL_ICONS;
-my $LONG_TITLES;
-my $MATH_SCALE_FACTOR;
-my $MAX_LINK_DEPTH;
-my $MAX_SPLIT_DEPTH;
-my $NETSCAPE_HTML;
-my $NOLATEX;
-my $NO_FOOTNODE;
-my $NO_IMAGES;
-my $NO_NAVIGATION;
-my $NO_SIMPLE_MATH;
-my $NO_SUBDIR;
-my $PAPERSIZE;
-my $PREFIX;
-my $PS_IMAGES;
-my $REUSE;
-my $SCALABLE_FONTS;
-my $SHORTEXTN;
-my $SHORT_INDEX;
-my $SHOW_SECTION_NUMBERS;
-my $SPLIT;
-my $TEXDEFS;
-my $TITLE;
-my $TITLES_LANGUAGE;
-my $TMP;
-my $VERBOSE;
-my $WORDS_IN_NAVIGATION_PANEL_TITLES;
-my $WORDS_IN_PAGE;
-
-# @T2H_L2H_INIT@
-}
-
-package main;
-
-#
-# pre-defined indices
-#
-$index_properties =
-{
- 'c' => { name => 'cp'},
- 'f' => { name => 'fn', code => 1},
- 'v' => { name => 'vr', code => 1},
- 'k' => { name => 'ky', code => 1},
- 'p' => { name => 'pg', code => 1},
- 't' => { name => 'tp', code => 1}
-};
-
-
-%predefined_index = (
- 'cp', 'c',
- 'fn', 'f',
- 'vr', 'v',
- 'ky', 'k',
- 'pg', 'p',
- 'tp', 't',
- );
-
-#
-# valid indices
-#
-%valid_index = (
- 'c', 1,
- 'f', 1,
- 'v', 1,
- 'k', 1,
- 'p', 1,
- 't', 1,
- );
-
-#
-# commands with ---, -- '' and `` preserved
-# usefull with the old interface
-
-%code_style_map = (
- 'code' => 1,
- 'command' => 1,
- 'env' => 1,
- 'file' => 1,
- 'kbd' => 1,
- 'option' => 1,
- 'samp' => 1,
- 'verb' => 1,
-);
-
-my $simple_map_ref = \%Texi2HTML::Config::simple_map;
-my $simple_map_pre_ref = \%Texi2HTML::Config::simple_map_pre;
-my $simple_map_texi_ref = \%Texi2HTML::Config::simple_map_texi;
-my $style_map_ref = \%Texi2HTML::Config::style_map;
-my $style_map_pre_ref = \%Texi2HTML::Config::style_map_pre;
-my $style_map_texi_ref = \%Texi2HTML::Config::style_map_texi;
-my $things_map_ref = \%Texi2HTML::Config::things_map;
-my $pre_map_ref = \%Texi2HTML::Config::pre_map;
-my $texi_map_ref = \%Texi2HTML::Config::texi_map;
-
-# delete from hash if we are using te new interface
-foreach my $code (keys(%code_style_map))
-{
- delete ($code_style_map{$code})
- if (ref($style_map_ref->{$code}) eq 'HASH');
-}
-
-# no paragraph in these commands
-my %no_paragraph_macro = (
- 'xref' => 1,
- 'ref' => 1,
- 'pxref' => 1,
- 'inforef' => 1,
- 'anchor' => 1,
-);
-
-
-#foreach my $command (keys(%Texi2HTML::Config::style_map))
-#{
-# next unless (ref($style_map_ref->{$command}) eq 'HASH');
-# print STDERR "CMD: $command\n";
-# die "Bug: no args for $command in style_map\n" unless defined($style_map_ref->{$command}->{'args'});
-# die "Bug: no args for $command in style_map_pre\n" unless defined($style_map_pre_ref->{$command}->{'args'});
-# die "Bug: non existence of args for $command in style_map_texi\n" unless (exists($style_map_texi_ref->{$command}->{'args'}));
-# die "Bug: no args for $command in style_map_texi\n" unless defined($style_map_texi_ref->{$command}->{'args'});
-#}
-
-#
-# texinfo section names to level
-#
-%sec2level = (
- 'top', 0,
- 'chapter', 1,
- 'unnumbered', 1,
- 'chapheading', 1,
- 'appendix', 1,
- 'section', 2,
- 'unnumberedsec', 2,
- 'heading', 2,
- 'appendixsec', 2,
- 'subsection', 3,
- 'unnumberedsubsec', 3,
- 'subheading', 3,
- 'appendixsubsec', 3,
- 'subsubsection', 4,
- 'unnumberedsubsubsec', 4,
- 'subsubheading', 4,
- 'appendixsubsubsec', 4,
- );
-
-# the reverse mapping. There is an entry for each sectionning command.
-# The value is a ref on an array containing at each index the corresponding
-# sectionning command name.
-my %level2sec;
-{
- my $sections = [ ];
- my $appendices = [ ];
- my $unnumbered = [ ];
- my $headings = [ ];
- foreach my $command (keys (%sec2level))
- {
- if ($command =~ /^appendix/)
- {
- $level2sec{$command} = $appendices;
- }
- elsif ($command =~ /^unnumbered/ or $command eq 'top')
- {
- $level2sec{$command} = $unnumbered;
- }
- elsif ($command =~ /section$/ or $command eq 'chapter')
- {
- $level2sec{$command} = $sections;
- }
- else
- {
- $level2sec{$command} = $headings;
- }
- $level2sec{$command}->[$sec2level{$command}] = $command;
- }
-}
-
-# this are synonyms
-$sec2level{'appendixsection'} = 2;
-# sec2level{'majorheading'} is also 1 and not 0
-$sec2level{'majorheading'} = 1;
-$sec2level{'chapheading'} = 1;
-# FIXME this one could be centered...
-$sec2level{'centerchap'} = 1;
-
-# regions treated especially. The text for these regions is collected in the
-# corresponding array
-%region_lines = (
- 'titlepage' => [ ],
- 'documentdescription' => [ ],
- 'copying' => [ ],
-);
-
-# those macros aren't considered as beginning a paragraph
-my %no_line_macros = (
- 'macro' => 1,
- 'unmacro' => 1,
- 'rmacro' => 1,
- 'set' => 1,
- 'clear' => 1,
- 'titlefont' => 1,
- 'include' => 1,
- 'copying' => 1,
- 'end copying' => 1,
- 'tab' => 1,
- 'item' => 1,
- 'itemx' => 1,
- '*' => 1,
- 'float' => 1,
- 'end float' => 1,
- 'caption' => 1,
- 'shortcaption' => 1,
-);
-
-foreach my $key (keys(%Texi2HTML::Config::misc_command))
-{
- $no_line_macros{$key} = 1;
-}
-
-# a hash associating a format @thing / @end thing with the type of the format
-# 'complex' 'simple' 'deff' 'list' 'menu' 'paragraph_style'
-my %format_type = ();
-
-foreach my $simple_format (keys(%Texi2HTML::Config::format_map))
-{
- $format_type{$simple_format} = 'simple';
- $no_line_macros{$simple_format} = 1;
- $no_line_macros{"end $simple_format"} = 1;
-}
-foreach my $paragraph_style (keys(%Texi2HTML::Config::paragraph_style))
-{
- $format_type{$paragraph_style} = 'paragraph_style';
- $no_line_macros{$paragraph_style} = 1;
- $no_line_macros{"end $paragraph_style"} = 1;
-}
-foreach my $complex_format (keys(%$Texi2HTML::Config::complex_format_map))
-{
- $format_type{$complex_format} = 'complex';
- $no_line_macros{$complex_format} = 1;
- $no_line_macros{"end $complex_format"} = 1;
-}
-foreach my $table (('table', 'ftable', 'vtable', 'multitable'))
-{
- $format_type{$table} = 'table';
- $no_line_macros{$table} = 1;
- $no_line_macros{"end $table"} = 1;
-}
-foreach my $def_format (keys(%Texi2HTML::Config::def_map))
-{
- $format_type{$def_format} = 'deff';
- $no_line_macros{$def_format} = 1;
- $no_line_macros{"end $def_format"} = 1;
-}
-$format_type{'itemize'} = 'list';
-$format_type{'enumerate'} = 'list';
-
-$format_type{'menu'} = 'menu';
-
-$format_type{'cartouche'} = 'cartouche';
-
-$format_type{'float'} = 'float';
-
-$format_type{'quotation'} = 'quotation';
-
-$format_type{'group'} = 'group';
-
-foreach my $macro (('itemize', 'enumerate', 'menu', 'cartouche', 'float', 'quotation'))
-{
- $no_line_macros{$macro} = 1;
- $no_line_macros{"end $macro"} = 1;
-}
-
-foreach my $macro (keys(%Texi2HTML::Config::format_in_paragraph))
-{
- $no_line_macros{$macro} = 1;
- $no_line_macros{"end $macro"} = 1;
-}
-
-# fake format at the bottom of the stack
-$format_type{'noformat'} = '';
-
-# fake formats are formats used internally within other formats
-# we associate them with a real format, for the error messages
-my %fake_format = (
- 'line' => 'table',
- 'term' => 'table',
- 'item' => 'list or table',
- 'row' => 'multitable row',
- 'cell' => 'multitable cell',
- 'deff_item' => 'definition command',
- 'menu_comment' => 'menu',
- 'menu_description' => 'menu',
- 'menu_preformatted' => 'menu',
- );
-
-foreach my $key (keys(%fake_format))
-{
- $format_type{$key} = 'fake';
-}
-
-# A hash associating style @-comand with the type, 'accent', real 'style',
-# 'simple' style, or 'special'.
-my %style_type = ();
-foreach my $style (keys(%Texi2HTML::Config::style_map))
-{
- $style_type{$style} = 'style';
-}
-foreach my $accent (keys(%Texi2HTML::Config::unicode_accents), 'tieaccent', 'dotless')
-{
- $style_type{$accent} = 'accent';
-}
-foreach my $simple ('ctrl', 'w', 'url')
-{
- $style_type{$simple} = 'simple';
-}
-foreach my $special ('footnote', 'ref', 'xref', 'pxref', 'inforef', 'anchor', 'image')
-{
- $style_type{$special} = 'special';
-}
-
-# raw formats which are expanded especially
-my @raw_regions = ('html', 'verbatim', 'tex', 'xml', 'docbook');
-
-# special raw formats which are expanded between first and second pass
-# and are replaced by specific commands. Currently used for tex. It takes
-# precedence over raw_regions.
-my @special_regions = ();
-
-# regions expanded or not depending on the value of this hash
-my %text_macros = (
- 'iftex' => 0,
- 'ignore' => 0,
- 'menu' => 0,
- 'ifplaintext' => 0,
- 'ifinfo' => 0,
- 'ifxml' => 0,
- 'ifhtml' => 0,
- 'ifdocbook' => 0,
- 'html' => 0,
- 'tex' => 0,
- 'xml' => 0,
- 'titlepage' => 1,
- 'documentdescription' => 1,
- 'copying' => 1,
- 'ifnothtml' => 1,
- 'ifnottex' => 1,
- 'ifnotplaintext' => 1,
- 'ifnotinfo' => 1,
- 'ifnotxml' => 1,
- 'ifnotdocbook' => 1,
- 'direntry' => 0,
- 'verbatim' => 'raw',
- 'ifclear' => 'value',
- 'ifset' => 'value'
- );
-
-
-
-foreach my $key (keys(%text_macros))
-{
- unless ($text_macros{$key} eq 'raw')
- {
- $no_line_macros{$key} = 1;
- $no_line_macros{"end $key"} = 1;
- }
-}
-
-# The css formats are associated with complex format commands, and associated
-# with the 'pre_style' key
-foreach my $complex_format (keys(%$Texi2HTML::Config::complex_format_map))
-{
- next if (defined($Texi2HTML::Config::complex_format_map->{$complex_format}->{'pre_style'}));
- $Texi2HTML::Config::complex_format_map->{$complex_format}->{'pre_style'} = '';
- $Texi2HTML::Config::complex_format_map->{$complex_format}->{'pre_style'} = $Texi2HTML::Config::css_map{"pre.$complex_format"} if (exists($Texi2HTML::Config::css_map{"pre.$complex_format"}));
-}
-
-#+++############################################################################
-# #
-# Argument parsing, initialisation #
-# #
-#---############################################################################
-
-#
-# flush stdout and stderr after every write
-#
-select(STDERR);
-$| = 1;
-select(STDOUT);
-$| = 1;
-
-#FIXME my or our ?
-my $I = \&Texi2HTML::I18n::get_string;
-
-my $T2H_USER; # user running the script
-my $documentdescription; # text in @documentdescription
-
-# shorthand for Texi2HTML::Config::VERBOSE
-my $T2H_VERBOSE;
-
-sub echo_warn($;$);
-#print STDERR "" . &$I('test i18n: \' , \a \\ %% %{unknown}a %known % %{known} \\', { 'known' => 'a known string', 'no' => 'nope'}); exit 0;
-
-# file: file name to locate. It can be a file path.
-# all_files: if true collect all the files with that name, otherwise stop
-# at first match.
-# directories: a reference on a array containing a list of directories to
-# search the file in. default is \@texi2html_config_dirs.
-sub locate_init_file($;$$)
-{
- my $file = shift;
- my $all_files = shift;
- my $directories = shift;
-
- $directories = \@texi2html_config_dirs if !defined($directories);
-
- if ($file =~ /^\//)
- {
- return $file if (-e $file and -r $file);
- }
- else
- {
- my @files;
- foreach my $dir (@$directories)
- {
- next unless (-d "$dir");
- if ($all_files)
- {
- push (@files, "$dir/$file") if (-e "$dir/$file" and -r "$dir/$file");
- }
- else
- {
- return "$dir/$file" if (-e "$dir/$file" and -r "$dir/$file");
- }
- }
- return @files if ($all_files);
- }
- return undef;
-}
-
-# called on -init-file
-sub load_init_file
-{
- # First argument is option
- shift;
- # second argument is value of options
- my $init_file = shift;
- my $file;
- if ($file = locate_init_file($init_file))
- {
- print STDERR "# reading initialization file from $file\n"
- if ($T2H_VERBOSE);
- return (Texi2HTML::Config::load($file));
- }
- else
- {
- print STDERR "$ERROR Error: can't read init file $init_file\n";
- return 0;
- }
-}
-
-my $cmd_line_lang = 0; # 1 if lang was succesfully set by the command line
- # in that case @documentlanguage is ignored.
-my $lang_set = 0; # 1 if lang was set
-
-#
-# called on -lang
-sub set_document_language ($;$$)
-{
- my $lang = shift;
- my $from_command_line = shift;
- my $line_nr = shift;
- my @files = locate_init_file("$i18n_dir/$lang", 1);
- foreach my $file (@files)
- {
- Texi2HTML::Config::load($file);
- }
- if (Texi2HTML::I18n::set_language($lang))
- {
- print STDERR "# using '$lang' as document language\n" if ($T2H_VERBOSE);
- $Texi2HTML::Config::LANG = $lang;
- $lang_set = 1;
- $cmd_line_lang = 1 if ($from_command_line);
- if (!$Texi2HTML::Config::TEST)
- {
- $Texi2HTML::THISDOC{'today'} = Texi2HTML::I18n::pretty_date($Texi2HTML::Config::LANG); # like "20 September 1993";
- }
- else
- {
- $Texi2HTML::THISDOC{'today'} = 'a sunny day';
- }
- $things_map_ref->{'today'} = $Texi2HTML::THISDOC{'today'};
- $pre_map_ref->{'today'} = $Texi2HTML::THISDOC{'today'};
- $texi_map_ref->{'today'} = $Texi2HTML::THISDOC{'today'};
- }
- else
- {
- echo_error ("Language specs for '$lang' do not exists. Reverting to '$Texi2HTML::Config::LANG'", $line_nr);
- }
-}
-
-sub set_expansion($$)
-{
- my $region = shift;
- my $set = shift;
- $set = 1 if (!defined($set));
- if ($set)
- {
- push (@Texi2HTML::Config::EXPAND, $region) unless (grep {$_ eq $region} @Texi2HTML::Config::EXPAND);
- }
- else
- {
- @Texi2HTML::Config::EXPAND = grep {$_ ne $region} @Texi2HTML::Config::EXPAND;
- }
-}
-
-sub set_encoding($)
-{
- my $encoding = shift;
- if ($Texi2HTML::Config::USE_UNICODE)
- {
- if (! Encode::resolve_alias($encoding))
- {
- echo_warn("Encoding $Texi2HTML::Config::DOCUMENT_ENCODING unknown");
- return undef;
- }
- print STDERR "# Using encoding " . Encode::resolve_alias($encoding) . "\n"
- if ($T2H_VERBOSE);
- return Encode::resolve_alias($encoding);
- }
- else
- {
- echo_warn("Nothing specific done for encodings (due to the perl version)");
- return undef;
- }
-}
-
-my %cross_ref_texi_map = %Texi2HTML::Config::texi_map;
-my %cross_ref_simple_map_texi = %Texi2HTML::Config::simple_map_texi;
-my %cross_ref_style_map_texi = ();
-
-foreach my $command (keys(%Texi2HTML::Config::style_map_texi))
-{
- $cross_ref_style_map_texi{$command} = {};
- foreach my $key (keys (%{$Texi2HTML::Config::style_map_texi{$command}}))
- {
-#print STDERR "$command, $key, $style_map_texi{$command}->{$key}\n";
- $cross_ref_style_map_texi{$command}->{$key} =
- $Texi2HTML::Config::style_map_texi{$command}->{$key};
- }
-}
-
-$cross_ref_simple_map_texi{"\n"} = ' ';
-
-
-# This function is used to construct a link name from a node name as
-# described in the proposal I posted on texinfo-pretest.
-sub cross_manual_links($$)
-{
- my $nodes_hash = shift;
- my $cross_reference_hash = shift;
-
- $simple_map_texi_ref = \%cross_ref_simple_map_texi;
- $style_map_texi_ref = \%cross_ref_style_map_texi;
- $texi_map_ref = \%cross_ref_texi_map;
- my $normal_text_kept = $Texi2HTML::Config::normal_text;
- $Texi2HTML::Config::normal_text = \&Texi2HTML::Config::t2h_cross_manual_normal_text;
-
- foreach my $key (keys(%$nodes_hash))
- {
- my $node = $nodes_hash->{$key};
- next if ($node->{'index_page'});
- if (!defined($node->{'texi'}))
- {
- # begin debug section
- foreach my $key (keys(%$node))
- {
- #print STDERR "$key:$node->{$key}!!!\n";
- }
- # end debug section
- }
- else
- {
- if ($Texi2HTML::Config::USE_UNICODE)
- {
- my $text = $node->{'texi'};
-#print STDERR "CROSS_MANUAL $node->{'texi'}\n";
- if (defined($Texi2HTML::Config::DOCUMENT_ENCODING) and
- Encode::resolve_alias($Texi2HTML::Config::DOCUMENT_ENCODING) and
- (Encode::resolve_alias($Texi2HTML::Config::DOCUMENT_ENCODING) ne 'utf8'))
- {
- $text = Encode::decode($Texi2HTML::Config::DOCUMENT_ENCODING, $text);
- }
- $node->{'cross_manual_target'} = unicode_to_protected(Unicode::Normalize::NFC(remove_texi($text)));
- }
- else
- {
- $node->{'cross_manual_target'} = remove_texi($node->{'texi'});
- }
-#print STDERR "CROSS_MANUAL_TARGET $node->{'cross_manual_target'}\n";
- unless ($node->{'external_node'})
- {
- if (defined($cross_reference_hash->{$node->{'cross_manual_target'}}))
- {
- echo_error("Node equivalent with `$node->{'texi'}' allready used `$cross_reference_hash->{$node->{'cross_manual_target'}}'");
- }
- else
- {
- $cross_reference_hash->{$node->{'cross_manual_target'}} = $node->{'texi'};
- }
- }
- #print STDERR "$node->{'texi'}: $node->{'cross_manual_target'}\n";
- }
- }
-
- $Texi2HTML::Config::normal_text = $normal_text_kept;
- $simple_map_texi_ref = \%Texi2HTML::Config::simple_map_texi;
- $style_map_texi_ref = \%Texi2HTML::Config::style_map_texi;
- $texi_map_ref = \%Texi2HTML::Config::texi_map;
-}
-
-sub unicode_to_protected($)
-{
- my $text = shift;
- my $result = '';
- while ($text ne '')
- {
- if ($text =~ s/^([A-Za-z0-9_\-]+)//o)
- {
- $result .= $1;
- }
- elsif ($text =~ s/^(.)//o)
- {
- $result .= '_' . lc(sprintf("%04x",ord($1)));
- }
- else
- {
- print STDERR "Bug: unknown character in node (likely in infinite loop)\n";
- sleep 1;
- }
- }
-
- return $result;
-}
-
-sub cross_manual_line($)
-{
- my $text = shift;
-#print STDERR "cross_manual_line $text\n";
- $simple_map_texi_ref = \%cross_ref_simple_map_texi;
- $style_map_texi_ref = \%cross_ref_style_map_texi;
- $texi_map_ref = \%cross_ref_texi_map;
- my $normal_text_kept = $Texi2HTML::Config::normal_text;
- $Texi2HTML::Config::normal_text = \&Texi2HTML::Config::t2h_cross_manual_normal_text;
-
- my $cross_ref;
- if ($Texi2HTML::Config::USE_UNICODE)
- {
- $cross_ref = unicode_to_protected(Unicode::Normalize::NFC(remove_texi($text)));
- }
- else
- {
- $cross_ref = remove_texi($text);
- }
-
- $Texi2HTML::Config::normal_text = $normal_text_kept;
- $simple_map_texi_ref = \%Texi2HTML::Config::simple_map_texi;
- $style_map_texi_ref = \%Texi2HTML::Config::style_map_texi;
- $texi_map_ref = \%Texi2HTML::Config::texi_map;
-#print STDERR "cross_ref $cross_ref\n";
- return $cross_ref;
-}
-
-# T2H_OPTIONS is a hash whose keys are the (long) names of valid
-# command-line options and whose values are a hash with the following keys:
-# type ==> one of !|=i|:i|=s|:s (see GetOpt::Long for more info)
-# linkage ==> ref to scalar, array, or subroutine (see GetOpt::Long for more info)
-# verbose ==> short description of option (displayed by -h)
-# noHelp ==> if 1 -> for "not so important options": only print description on -h 1
-# 2 -> for obsolete options: only print description on -h 2
-my $T2H_OPTIONS;
-$T2H_OPTIONS -> {'debug'} =
-{
- type => '=i',
- linkage => \$Texi2HTML::Config::DEBUG,
- verbose => 'output HTML with debuging information',
-};
-
-$T2H_OPTIONS -> {'doctype'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::DOCTYPE,
- verbose => 'document type which is output in header of HTML files',
- noHelp => 1
-};
-
-$T2H_OPTIONS -> {'frameset-doctype'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::FRAMESET_DOCTYPE,
- verbose => 'document type for HTML frameset documents',
- noHelp => 1
-};
-
-$T2H_OPTIONS -> {'test'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::TEST,
- verbose => 'use predefined information to avoid differences with reference files',
- noHelp => 1
-};
-
-$T2H_OPTIONS -> {'dump-texi'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::DUMP_TEXI,
- verbose => 'dump the output of first pass into a file with extension passfirst and exit',
- noHelp => 1
-};
-
-$T2H_OPTIONS -> {'macro-expand'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::MACRO_EXPAND,
- verbose => 'output macro expanded source in <file>',
-};
-
-$T2H_OPTIONS -> {'expand'} =
-{
- type => '=s',
- linkage => sub {set_expansion($_[1], 1);},
- verbose => 'Expand info|tex|none section of texinfo source',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'no-expand'} =
-{
- type => '=s',
- linkage => sub {set_expansion ($_[1], 0);},
- verbose => 'Don\'t expand the given section of texinfo source',
-};
-
-$T2H_OPTIONS -> {'noexpand'} =
-{
- type => '=s',
- linkage => $T2H_OPTIONS->{'no-expand'}->{'linkage'},
- verbose => $T2H_OPTIONS->{'no-expand'}->{'verbose'},
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'ifhtml'} =
-{
- type => '!',
- linkage => sub { set_expansion('html', $_[1]); },
- verbose => "expand ifhtml and html sections",
-};
-
-$T2H_OPTIONS -> {'ifinfo'} =
-{
- type => '!',
- linkage => sub { set_expansion('info', $_[1]); },
- verbose => "expand ifinfo",
-};
-
-$T2H_OPTIONS -> {'ifxml'} =
-{
- type => '!',
- linkage => sub { set_expansion('xml', $_[1]); },
- verbose => "expand ifxml and xml sections",
-};
-
-$T2H_OPTIONS -> {'ifdocbook'} =
-{
- type => '!',
- linkage => sub { set_expansion('docbook', $_[1]); },
- verbose => "expand ifdocbook and docbook sections",
-};
-
-$T2H_OPTIONS -> {'iftex'} =
-{
- type => '!',
- linkage => sub { set_expansion('tex', $_[1]); },
- verbose => "expand iftex and tex sections",
-};
-
-$T2H_OPTIONS -> {'ifplaintext'} =
-{
- type => '!',
- linkage => sub { set_expansion('plaintext', $_[1]); },
- verbose => "expand ifplaintext sections",
-};
-
-#$T2H_OPTIONS -> {'no-ifhtml'} =
-#{
-# type => '!',
-# linkage => sub { set_expansion('html', (! $_[1])); },
-# verbose => "don't expand ifhtml and html sections",
-# noHelp => 1,
-#};
-
-#$T2H_OPTIONS -> {'no-ifinfo'} =
-#{
-# type => '!',
-# linkage => sub { set_expansion('info', (! $_[1])); },
-# verbose => "don't expand ifinfo",
-# noHelp => 1,
-#};
-
-#$T2H_OPTIONS -> {'no-ifxml'} =
-#{
-# type => '!',
-# linkage => sub { set_expansion('xml', (! $_[1])); },
-# verbose => "don't expand ifxml and xml sections",
-# noHelp => 1,
-#};
-
-#$T2H_OPTIONS -> {'no-iftex'} =
-#{
-# type => '!',
-# linkage => sub { set_expansion('tex', (! $_[1])); },
-# verbose => "don't expand iftex and tex sections",
-# noHelp => 1,
-#};
-
-#$T2H_OPTIONS -> {'no-ifplaintext'} =
-#{
-# type => '!',
-# linkage => sub { set_expansion('plaintext', (! $_[1])); },
-# verbose => "don't expand ifplaintext sections",
-# noHelp => 1,
-#};
-
-$T2H_OPTIONS -> {'invisible'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::INVISIBLE_MARK,
- verbose => 'use text in invisble anchor',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'iso'} =
-{
- type => 'iso',
- linkage => \$Texi2HTML::Config::USE_ISO,
- verbose => 'if set, ISO8859 characters are used for special symbols (like copyright, etc)',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'I'} =
-{
- type => '=s',
- linkage => \@Texi2HTML::Config::INCLUDE_DIRS,
- verbose => 'append $s to the @include search path',
-};
-
-$T2H_OPTIONS -> {'P'} =
-{
- type => '=s',
- linkage => sub {unshift (@Texi2HTML::Config::PREPEND_DIRS, $_[1]);},
- verbose => 'prepend $s to the @include search path',
-};
-
-$T2H_OPTIONS -> {'top-file'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::TOP_FILE,
- verbose => 'use $s as top file, instead of <docname>.html',
-};
-
-
-$T2H_OPTIONS -> {'toc-file'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::TOC_FILE,
- verbose => 'use $s as ToC file, instead of <docname>_toc.html',
-};
-
-$T2H_OPTIONS -> {'frames'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::FRAMES,
- verbose => 'output files which use HTML 4.0 frames (experimental)',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'menu'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::SHOW_MENU,
- verbose => 'output Texinfo menus',
-};
-
-#$T2H_OPTIONS -> {'no-menu'} =
-#{
-# type => '!',
-# linkage => sub { $Texi2HTML::Config::SHOW_MENU = (! $_[1]);},
-# verbose => "don't output Texinfo menus",
-# noHelp => 1,
-#};
-
-$T2H_OPTIONS -> {'number'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::NUMBER_SECTIONS,
- verbose => 'use numbered sections',
-};
-
-#$T2H_OPTIONS -> {'no-number'} =
-#{
-# type => '!',
-# linkage => sub { $Texi2HTML::Config::NUMBER_SECTIONS = (! $_[1]);},
-# verbose => 'sections not numbered',
-# noHelp => 1,
-#};
-
-$T2H_OPTIONS -> {'use-nodes'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::USE_NODES,
- verbose => 'use nodes for sectionning',
-};
-
-$T2H_OPTIONS -> {'node-files'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::NODE_FILES,
- verbose => 'produce one file per node for cross references'
-};
-
-$T2H_OPTIONS -> {'separated-footnotes'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::SEPARATED_FOOTNOTES,
- verbose => 'footnotes on a separated page',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'toc-links'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::TOC_LINKS,
- verbose => 'create links from headings to toc entries'
-};
-
-$T2H_OPTIONS -> {'split'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::SPLIT,
- verbose => 'split document on section|chapter|node else no splitting',
-};
-
-$T2H_OPTIONS -> {'sec-nav'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::SECTION_NAVIGATION,
- verbose => 'output navigation panels for each section',
-};
-
-$T2H_OPTIONS -> {'subdir'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::SUBDIR,
- verbose => 'put files in directory $s, not $cwd',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'short-ext'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::SHORTEXTN,
- verbose => 'use "htm" extension for output HTML files',
-};
-
-$T2H_OPTIONS -> {'prefix'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::PREFIX,
- verbose => 'use as prefix for output files, instead of <docname>',
-};
-
-$T2H_OPTIONS -> {'output'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::OUT,
- verbose => 'output goes to $s (directory if split)',
-};
-
-$T2H_OPTIONS -> {'no-validate'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::NOVALIDATE,
- verbose => 'suppress node cross-reference validation',
-};
-
-$T2H_OPTIONS -> {'short-ref'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::SHORT_REF,
- verbose => 'if set, references are without section numbers',
-};
-
-$T2H_OPTIONS -> {'idx-sum'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::IDX_SUMMARY,
- verbose => 'if set, also output index summary',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'def-table'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::DEF_TABLE,
- verbose => 'if set, \@def.. are converted using tables.',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'Verbose'} =
-{
- type => '!',
- linkage=> \$Texi2HTML::Config::VERBOSE,
- verbose => 'print progress info to stdout',
-};
-
-$T2H_OPTIONS -> {'lang'} =
-{
- type => '=s',
- linkage => sub {set_document_language($_[1], 1)},
- verbose => 'use $s as document language (ISO 639 encoding)',
-};
-
-$T2H_OPTIONS -> {'ignore-preamble-text'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::IGNORE_PREAMBLE_TEXT,
- verbose => 'if set, ignore the text before @node and sectionning commands',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'html-xref-prefix'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::EXTERNAL_DIR,
- verbose => '$s is the base dir for external manual references',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'l2h'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::L2H,
- verbose => 'if set, uses latex2html for @math and @tex',
-};
-
-$T2H_OPTIONS -> {'l2h-l2h'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::L2H_L2H,
- verbose => 'program to use for latex2html translation',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'l2h-skip'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::L2H_SKIP,
- verbose => 'if set, tries to reuse previously latex2html output',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'l2h-tmp'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::L2H_TMP,
- verbose => 'if set, uses $s as temporary latex2html directory',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'l2h-file'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::L2H_FILE,
- verbose => 'if set, uses $s as latex2html init file',
- noHelp => 1,
-};
-
-
-$T2H_OPTIONS -> {'l2h-clean'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::L2H_CLEAN,
- verbose => 'if set, do not keep intermediate latex2html files for later reuse',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'D'} =
-{
- type => '=s',
- linkage => sub {$value{$_[1]} = 1;},
- verbose => 'equivalent to Texinfo "@set $s 1"',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'U'} =
-{
- type => '=s',
- linkage => sub {delete $value{$_[1]};},
- verbose => 'equivalent to Texinfo "@clear $s"',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'init-file'} =
-{
- type => '=s',
- linkage => \&load_init_file,
- verbose => 'load init file $s'
-};
-
-$T2H_OPTIONS -> {'css-include'} =
-{
- type => '=s',
- linkage => \@Texi2HTML::Config::CSS_FILES,
- verbose => 'use css file $s'
-};
-
-##
-## obsolete cmd line options
-##
-my $T2H_OBSOLETE_OPTIONS;
-
-$T2H_OBSOLETE_OPTIONS -> {'out-file'} =
-{
- type => '=s',
- linkage => sub {$Texi2HTML::Config::OUT = $_[1]; $Texi2HTML::Config::SPLIT = '';},
- verbose => 'if set, all HTML output goes into file $s, obsoleted by "-output" with different semantics',
- noHelp => 2
-};
-
-$T2H_OBSOLETE_OPTIONS -> {init_file} =
-{
- type => '=s',
- linkage => \&load_init_file,
- verbose => 'obsolete, use "-init-file" instead',
- noHelp => 2
-};
-
-$T2H_OBSOLETE_OPTIONS -> {l2h_clean} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::L2H_CLEAN,
- verbose => 'obsolete, use "-l2h-clean" instead',
- noHelp => 2,
-};
-
-$T2H_OBSOLETE_OPTIONS -> {l2h_l2h} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::L2H_L2H,
- verbose => 'obsolete, use "-l2h-l2h" instead',
- noHelp => 2
-};
-
-$T2H_OBSOLETE_OPTIONS -> {l2h_skip} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::L2H_SKIP,
- verbose => 'obsolete, use "-l2h-skip" instead',
- noHelp => 2
-};
-
-$T2H_OBSOLETE_OPTIONS -> {l2h_tmp} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::L2H_TMP,
- verbose => 'obsolete, use "-l2h-tmp" instead',
- noHelp => 2
-};
-
-$T2H_OBSOLETE_OPTIONS -> {out_file} =
-{
- type => '=s',
- linkage => sub {$Texi2HTML::Config::OUT = $_[1]; $Texi2HTML::Config::SPLIT = '';},
- verbose => 'obsolete, use "-out-file" instead',
- noHelp => 2
-};
-
-$T2H_OBSOLETE_OPTIONS -> {short_ref} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::SHORT_REF,
- verbose => 'obsolete, use "-short-ref" instead',
- noHelp => 2
-};
-
-$T2H_OBSOLETE_OPTIONS -> {idx_sum} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::IDX_SUMMARY,
- verbose => 'obsolete, use "-idx-sum" instead',
- noHelp => 2
-};
-
-$T2H_OBSOLETE_OPTIONS -> {def_table} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::DEF_TABLE,
- verbose => 'obsolete, use "-def-table" instead',
- noHelp => 2
-};
-
-$T2H_OBSOLETE_OPTIONS -> {short_ext} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::SHORTEXTN,
- verbose => 'obsolete, use "-short-ext" instead',
- noHelp => 2
-};
-
-$T2H_OBSOLETE_OPTIONS -> {sec_nav} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::SECTION_NAVIGATION,
- verbose => 'obsolete, use "-sec-nav" instead',
- noHelp => 2
-};
-
-$T2H_OBSOLETE_OPTIONS -> {top_file} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::TOP_FILE,
- verbose => 'obsolete, use "-top-file" instead',
- noHelp => 2
-};
-
-$T2H_OBSOLETE_OPTIONS -> {toc_file} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::TOC_FILE,
- verbose => 'obsolete, use "-toc-file" instead',
- noHelp => 2
-};
-
-$T2H_OBSOLETE_OPTIONS -> {glossary} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::USE_GLOSSARY,
-# verbose => "if set, uses section named `Footnotes' for glossary",
- verbose => "this does nothing",
- noHelp => 2,
-};
-
-$T2H_OBSOLETE_OPTIONS -> {dump_texi} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::DUMP_TEXI,
- verbose => 'obsolete, use "-dump-texi" instead',
- noHelp => 1
-};
-
-$T2H_OBSOLETE_OPTIONS -> {frameset_doctype} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::FRAMESET_DOCTYPE,
- verbose => 'obsolete, use "-frameset-doctype" instead',
- noHelp => 2
-};
-
-$T2H_OBSOLETE_OPTIONS -> {'no-section_navigation'} =
-{
- type => '!',
- linkage => sub {$Texi2HTML::Config::SECTION_NAVIGATION = 0;},
- verbose => 'obsolete, use -nosec_nav',
- noHelp => 2,
-};
-my $use_acc; # not used
-$T2H_OBSOLETE_OPTIONS -> {use_acc} =
-{
- type => '!',
- linkage => \$use_acc,
- verbose => 'obsolete, set to true unconditionnaly',
- noHelp => 2
-};
-$T2H_OBSOLETE_OPTIONS -> {expandinfo} =
-{
- type => '!',
- linkage => sub {push @Texi2HTML::Config::EXPAND, 'info';},
- verbose => 'obsolete, use "-expand info" instead',
- noHelp => 2,
-};
-$T2H_OBSOLETE_OPTIONS -> {expandtex} =
-{
- type => '!',
- linkage => sub {push @Texi2HTML::Config::EXPAND, 'tex';},
- verbose => 'obsolete, use "-expand tex" instead',
- noHelp => 2,
-};
-$T2H_OBSOLETE_OPTIONS -> {monolithic} =
-{
- type => '!',
- linkage => sub {$Texi2HTML::Config::SPLIT = '';},
- verbose => 'obsolete, use "-split no" instead',
- noHelp => 2
-};
-$T2H_OBSOLETE_OPTIONS -> {split_node} =
-{
- type => '!',
- linkage => sub{$Texi2HTML::Config::SPLIT = 'section';},
- verbose => 'obsolete, use "-split section" instead',
- noHelp => 2,
-};
-$T2H_OBSOLETE_OPTIONS -> {split_chapter} =
-{
- type => '!',
- linkage => sub{$Texi2HTML::Config::SPLIT = 'chapter';},
- verbose => 'obsolete, use "-split chapter" instead',
- noHelp => 2,
-};
-$T2H_OBSOLETE_OPTIONS -> {no_verbose} =
-{
- type => '!',
- linkage => sub {$Texi2HTML::Config::VERBOSE = 0;},
- verbose => 'obsolete, use -noverbose instead',
- noHelp => 2,
-};
-$T2H_OBSOLETE_OPTIONS -> {output_file} =
-{
- type => '=s',
- linkage => sub {$Texi2HTML::Config::OUT = $_[1]; $Texi2HTML::Config::SPLIT = '';},
- verbose => 'obsolete, use -out_file instead',
- noHelp => 2
-};
-
-$T2H_OBSOLETE_OPTIONS -> {section_navigation} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::SECTION_NAVIGATION,
- verbose => 'obsolete, use -sec_nav instead',
- noHelp => 2,
-};
-
-$T2H_OBSOLETE_OPTIONS -> {verbose} =
-{
- type => '!',
- linkage=> \$Texi2HTML::Config::VERBOSE,
- verbose => 'obsolete, use -Verbose instead',
- noHelp => 2
-};
-
-# read initialzation from $sysconfdir/texi2htmlrc or $HOME/.texi2htmlrc
-# obsolete.
-my @rc_files = ();
-push @rc_files, "$sysconfdir/texi2htmlrc" if defined($sysconfdir);
-push @rc_files, "$ENV{'HOME'}/.texi2htmlrc" if (defined($ENV{HOME}));
-foreach my $i (@rc_files)
-{
- if (-e $i and -r $i)
- {
- print STDERR "# reading initialization file from $i\n"
- if ($T2H_VERBOSE);
- print STDERR "Reading config from $i is obsolete, use texi2html/$conf_file_name instead\n";
- Texi2HTML::Config::load($i);
- }
-}
-
-# read initialization files
-foreach my $file (locate_init_file($conf_file_name, 1))
-{
- print STDERR "# reading initialization file from $file\n" if ($T2H_VERBOSE);
- Texi2HTML::Config::load($file);
-}
-
-#
-# %value hold texinfo variables, see also -D, -U, @set and @clear.
-# we predefine html (the output format) and texi2html (the translator)
-%value =
- (
- 'html' => 1,
- 'texi2html' => $THISVERSION,
- );
-
-#+++############################################################################
-# #
-# parse command-line options
-# #
-#---############################################################################
-
-
-my $T2H_USAGE_TEXT = <<EOT;
-Usage: texi2html [OPTIONS] TEXINFO-FILE
-Translates Texinfo source documentation to HTML.
-EOT
-my $T2H_FAILURE_TEXT = <<EOT;
-Try 'texi2html --help' for usage instructions.
-EOT
-
-my $options = new Getopt::MySimple;
-
-$T2H_OPTIONS -> {'help'} =
-{
- type => ':i',
- default => '',
- linkage => sub {$options->helpOptions($_[1]);
- print "\nSend bugs and suggestions to <users\@texi2html.cvshome.org>\n";
- exit (0);},
- verbose => "print help and exit"
-};
-
-# some older version of GetOpt::Long don't have
-# Getopt::Long::Configure("pass_through")
-eval {Getopt::Long::Configure("pass_through");};
-my $Configure_failed = $@ && <<EOT;
-**WARNING: Parsing of obsolete command-line options could have failed.
- Consider to use only documented command-line options (run
- 'texi2html --help 2' for a complete list) or upgrade to perl
- version 5.005 or higher.
-EOT
-# FIXME getOptions is called 2 times, and thus adds 2 times the default
-# help and version and after that warns.
-if (! $options->getOptions($T2H_OPTIONS, $T2H_USAGE_TEXT, "$THISVERSION\n"))
-{
- print STDERR "$Configure_failed" if $Configure_failed;
- die $T2H_FAILURE_TEXT;
-}
-if (@ARGV > 1)
-{
- eval {Getopt::Long::Configure("no_pass_through");};
- if (! $options->getOptions($T2H_OBSOLETE_OPTIONS, $T2H_USAGE_TEXT, "$THISVERSION\n"))
- {
- print STDERR "$Configure_failed" if $Configure_failed;
- die $T2H_FAILURE_TEXT;
- }
-}
-# $T2H_DEBUG and $T2H_VERBOSE are shorthands
-my $T2H_DEBUG = $Texi2HTML::Config::DEBUG;
-$T2H_VERBOSE = $Texi2HTML::Config::VERBOSE;
-
-#+++############################################################################
-# #
-# evaluation of cmd line options
-# #
-#---############################################################################
-
-# retro compatibility for $Texi2HTML::Config::EXPAND
-push (@Texi2HTML::Config::EXPAND, $Texi2HTML::Config::EXPAND) if ($Texi2HTML::Config::EXPAND);
-
-# correct %text_macros and @special_regions based on command line and init
-# variables
-$text_macros{'menu'} = 1 if ($Texi2HTML::Config::SHOW_MENU);
-
-push @special_regions, 'tex' if ($Texi2HTML::Config::L2H);
-
-foreach my $expanded (@Texi2HTML::Config::EXPAND)
-{
- $text_macros{"if$expanded"} = 1 if (exists($text_macros{"if$expanded"}));
- next unless (exists($text_macros{$expanded}));
- if (grep {$_ eq $expanded} @special_regions)
- {
- $text_macros{$expanded} = 'special';
- }
- elsif (grep {$_ eq $expanded} @raw_regions)
- {
- $text_macros{$expanded} = 'raw';
- }
- else
- {
- $text_macros{$expanded} = 1;
- }
-}
-
-# handle ifnot regions
-foreach my $region (keys (%text_macros))
-{
- next if ($region =~ /^ifnot/);
- if ($text_macros{$region} and $region =~ /^if(\w+)$/)
- {
- $text_macros{"ifnot$1"} = 0;
- }
-}
-
-if ($T2H_VERBOSE)
-{
- print STDERR "# Expanded: ";
- foreach my $text_macro (keys(%text_macros))
- {
- print STDERR "$text_macro " if ($text_macros{$text_macro});
- }
- print STDERR "\n";
-}
-
-# This is kept in that file although it is html formatting as it seems to
-# be rather obsolete
-$Texi2HTML::Config::INVISIBLE_MARK = '<img src="invisible.xbm" alt="">' if $Texi2HTML::Config::INVISIBLE_MARK eq 'xbm';
-
-$T2H_DEBUG |= $DEBUG_TEXI if ($Texi2HTML::Config::DUMP_TEXI);
-
-# Construct hashes used for cross references generation
-# Do it now as the user may have changed $USE_UNICODE
-
-foreach my $key (keys(%Texi2HTML::Config::unicode_map))
-{
- if ($Texi2HTML::Config::unicode_map{$key} ne '')
- {
- if ($Texi2HTML::Config::USE_UNICODE)
- {
- $cross_ref_texi_map{$key} = chr(hex($Texi2HTML::Config::unicode_map{$key}));
- }
- else
- {
- $cross_ref_texi_map{$key} = '_' . lc($Texi2HTML::Config::unicode_map{$key});
- }
- }
-}
-
-foreach my $key (keys(%cross_ref_style_map_texi))
-{
- if ($style_type{$key} eq 'accent'
- and (ref($cross_ref_style_map_texi{$key}) eq 'HASH'))
- {
- if ($Texi2HTML::Config::USE_UNICODE)
- {
- $cross_ref_style_map_texi{$key}->{'function'} = \&Texi2HTML::Config::t2h_utf8_accent;
- }
- else
- {
- $cross_ref_style_map_texi{$key}->{'function'} = \&Texi2HTML::Config::t2h_nounicode_cross_manual_accent;
- }
- }
-}
-
-#
-# file name buisness
-#
-
-# this is directly pasted over from latex2html
-sub getcwd
-{
- local($_) = `pwd`;
-
- die "'pwd' failed (out of memory?)\n"
- unless length;
- chop;
- $_;
-}
-
-
-my $docu_dir; # directory of the document
-my $docu_name; # basename of the document
-my $docu_rdir; # directory for the output
-#my $docu_ext = "html"; # extension
-my $docu_ext = $Texi2HTML::Config::EXTENSION; # extension
-my $docu_toc; # document's table of contents
-my $docu_stoc; # document's short toc
-my $docu_foot; # document's footnotes
-my $docu_about; # about this document
-my $docu_top; # document top
-my $docu_doc; # document (or document top of split)
-
-die "Need exactly one file to translate\n$T2H_FAILURE_TEXT" unless @ARGV == 1;
-my $docu = shift(@ARGV);
-if ($docu =~ /(.*\/)/)
-{
- chop($docu_dir = $1);
- $docu_name = $docu;
- $docu_name =~ s/.*\///;
-}
-else
-{
- $docu_dir = '.';
- $docu_name = $docu;
-}
-unshift(@Texi2HTML::Config::INCLUDE_DIRS, $docu_dir);
-unshift(@Texi2HTML::Config::INCLUDE_DIRS, @Texi2HTML::Config::PREPEND_DIRS);
-$docu_name =~ s/\.te?x(i|info)?$//;
-$docu_name = $Texi2HTML::Config::PREFIX if ($Texi2HTML::Config::PREFIX);
-
-# resulting files splitting
-if ($Texi2HTML::Config::SPLIT =~ /section/i)
-{
- $Texi2HTML::Config::SPLIT = 'section';
-}
-elsif ($Texi2HTML::Config::SPLIT =~ /node/i)
-{
- $Texi2HTML::Config::SPLIT = 'node';
-}
-elsif ($Texi2HTML::Config::SPLIT =~ /chapter/i)
-{
- $Texi2HTML::Config::SPLIT = 'chapter';
-}
-else
-{
- $Texi2HTML::Config::SPLIT = '';
-}
-
-# Something like backward compatibility
-if ($Texi2HTML::Config::SPLIT and $Texi2HTML::Config::SUBDIR)
-{
- $Texi2HTML::Config::OUT = $Texi2HTML::Config::SUBDIR;
-}
-
-# subdir
-
-die "output to STDOUT and split or frames incompatible\n"
- if (($Texi2HTML::Config::SPLIT or $Texi2HTML::Config::FRAMES) and ($Texi2HTML::Config::OUT eq '-'));
-
-if ($Texi2HTML::Config::SPLIT and ($Texi2HTML::Config::OUT eq ''))
-{
- $Texi2HTML::Config::OUT = $docu_name;
-}
-
-if ($Texi2HTML::Config::SPLIT and ($Texi2HTML::Config::OUT eq '.'))
-{# This is to avoid trouble with latex2html
- $Texi2HTML::Config::OUT = '';
-}
-
-$docu_rdir = '';
-
-if ($Texi2HTML::Config::SPLIT and ($Texi2HTML::Config::OUT ne ''))
-{
- $Texi2HTML::Config::OUT =~ s|/*$||;
- $docu_rdir = "$Texi2HTML::Config::OUT/";
- unless (-d $Texi2HTML::Config::OUT)
- {
- if ( mkdir($Texi2HTML::Config::OUT, oct(755)))
- {
- print STDERR "# created directory $Texi2HTML::Config::OUT\n" if ($T2H_VERBOSE);
- }
- else
- {
- die "$ERROR can't create directory $Texi2HTML::Config::OUT\n";
- }
- }
- print STDERR "# putting result files into directory $docu_rdir\n" if ($T2H_VERBOSE);
-}
-elsif (! $Texi2HTML::Config::SPLIT and ($Texi2HTML::Config::OUT ne ''))
-{
- if ($Texi2HTML::Config::OUT =~ m|(.*)/|)
- {# there is a leading directories
- $docu_rdir = "$1/";
- unless (-d $docu_rdir)
- {
- if ( mkdir($docu_rdir, oct(755)))
- {
- print STDERR "# created directory $docu_rdir\n" if ($T2H_VERBOSE);
- }
- else
- {
- die "$ERROR can't create directory $docu_rdir\n";
- }
- }
- print STDERR "# putting result files into directory $docu_rdir\n" if ($T2H_VERBOSE);
- }
- else
- {
- print STDERR "# putting result files into current directory \n" if ($T2H_VERBOSE);
- $docu_rdir = '';
- }
-}
-
-# We don't use "./" as $docu_rdir when $docu_rdir is the current directory
-# because it is problematic for latex2html. To test writability with -w,
-# however we need a real directory.
-my $result_rdir = $docu_rdir;
-$result_rdir = "." if ($docu_rdir eq '');
-unless (-w $result_rdir)
-{
- $docu_rdir = 'current directory' if ($docu_rdir eq '');
- die "$ERROR $docu_rdir not writable\n";
-}
-
-# relative path leading to the working directory from the document directory
-my $path_to_working_dir = $docu_rdir;
-if ($docu_rdir ne '')
-{
- my $cwd = getcwd;
- my $docu_path = $docu_rdir;
- $docu_path = $cwd . '/' . $docu_path unless ($docu_path =~ /^\//);
- my @result = ();
- foreach my $element (split /\//, File::Spec->canonpath($docu_path))
- {
- if ($element eq '')
- {
- push @result, '';
- }
- elsif ($element eq '..')
- {
- if (@result and ($result[-1] eq ''))
- {
- print STDERR "Too much .. in absolute file name\n";
- }
- elsif (@result and ($result[-1] ne '..'))
- {
- pop @result;
- }
- else
- {
- push @result, $element;
- }
- }
- else
- {
- push @result, $element;
- }
- }
- $path_to_working_dir = File::Spec->abs2rel($cwd, join ('/', @result));
- $path_to_working_dir =~ s|.*/||;
- $path_to_working_dir .= '/' unless($path_to_working_dir eq '');
-}
-
-# extension
-if ($Texi2HTML::Config::SHORTEXTN)
-{
- $docu_ext = "htm";
-}
-if ($Texi2HTML::Config::TOP_FILE =~ s/\..*$//)
-{
- $Texi2HTML::Config::TOP_FILE .= ".$docu_ext";
-}
-
-$docu_doc = "$docu_name.$docu_ext"; # document's contents
-if ($Texi2HTML::Config::SPLIT)
-{
- # if Texi2HTML::Config::NODE_FILES is true and a node is called ${docu_name}_toc
- # ${docu_name}_ovr... there may be trouble with the old naming scheme in
- # very rare circumstances. This won't be fixed, the new scheme will be used
- # soon.
- $docu_toc = $Texi2HTML::Config::TOC_FILE || "${docu_name}_toc.$docu_ext";
- $docu_stoc = "${docu_name}_ovr.$docu_ext";
- $docu_foot = "${docu_name}_fot.$docu_ext";
- $docu_about = "${docu_name}_abt.$docu_ext";
- $docu_top = $Texi2HTML::Config::TOP_FILE || $docu_doc;
-}
-else
-{
- if ($Texi2HTML::Config::OUT)
- {
- $docu_doc = $Texi2HTML::Config::OUT;
- $docu_doc =~ s|.*/||;
- }
- $docu_toc = $docu_foot = $docu_stoc = $docu_about = $docu_top = $docu_doc;
-}
-
-# For use in init files
-$Texi2HTML::Config::TOP_FILE = $docu_top;
-$Texi2HTML::Config::TOC_FILE = $docu_toc;
-
-my $docu_doc_file = "$docu_rdir$docu_doc";
-my $docu_toc_file = "$docu_rdir$docu_toc";
-my $docu_stoc_file = "$docu_rdir$docu_stoc";
-my $docu_foot_file = "$docu_rdir$docu_foot";
-my $docu_about_file = "$docu_rdir$docu_about";
-my $docu_top_file = "$docu_rdir$docu_top";
-
-my $docu_frame_file = "$docu_rdir${docu_name}_frame.$docu_ext";
-my $docu_toc_frame_file = "$docu_rdir${docu_name}_toc_frame.$docu_ext";
-
-#
-# _foo: internal variables to track @foo
-#
-foreach my $key ('_author', '_title', '_subtitle', '_shorttitlepage',
- '_settitle', '_setfilename', '_shorttitle', '_titlefont')
-{
- $value{$key} = ''; # prevent -w warnings
-}
-my $index; # ref on a hash for the index entries
-my %indices = (); # hash of indices names containing
- #[ $Pages, $Entries ] (page indices and
- # raw index entries)
-my @index_labels = (); # array corresponding with @?index commands
- # constructed during pass_texi, used to
- # put labels in pass_text
-#
-# initial counters
-#
-my $foot_num = 0;
-my $relative_foot_num = 0;
-my $idx_num = 0;
-my $sec_num = 0;
-my $anchor_num = 0;
-
-#
-# can I use ISO8859 characters? (HTML+)
-#
-if ($Texi2HTML::Config::USE_ISO)
-{
- foreach my $thing (keys(%Texi2HTML::Config::iso_symbols))
- {
- $things_map_ref->{$thing} = $Texi2HTML::Config::iso_symbols{$thing};
- $pre_map_ref->{$thing} = $Texi2HTML::Config::iso_symbols{$thing};
- }
-}
-
-# process a css file
-sub process_css_file ($$)
-{
- my $fh =shift;
- my $file = shift;
- my $in_rules = 0;
- my $in_comment = 0;
- my $in_import = 0;
- my $in_string = 0;
- my $rules = [];
- my $imports = [];
- while (<$fh>)
- {
- #print STDERR "Line: $_";
- if ($in_rules)
- {
- push @$rules, $_;
- next;
- }
- my $text = '';
- while (1)
- {
- #sleep 1;
- #print STDERR "${text}!in_comment $in_comment in_rules $in_rules in_import $in_import in_string $in_string: $_";
- if ($in_comment)
- {
- if (s/^(.*?\*\/)//)
- {
- $text .= $1;
- $in_comment = 0;
- }
- else
- {
- push @$imports, $text . $_;
- last;
- }
- }
- elsif (!$in_string and s/^\///)
- { # what do '\' do here ?
- if (s/^\*//)
- {
- $text .= '/*';
- $in_comment = 1;
- }
- else
- {
- push (@$imports, $text. "\n") if ($text ne '');
- push (@$rules, '/' . $_);
- $in_rules = 1;
- last;
- }
- }
- elsif (!$in_string and $in_import and s/^([\"\'])//)
- { # strings outside of import start rules
- $text .= "$1";
- $in_string = quotemeta("$1");
- }
- elsif ($in_string and s/^(\\$in_string)//)
- {
- $text .= $1;
- }
- elsif ($in_string and s/^($in_string)//)
- {
- $text .= $1;
- $in_string = 0;
- }
- elsif ((! $in_string and !$in_import) and (s/^([\\]?\@import)$// or s/^([\\]?\@import\s+)//))
- {
- $text .= $1;
- $in_import = 1;
- }
- elsif (!$in_string and $in_import and s/^\;//)
- {
- $text .= ';';
- $in_import = 0;
- }
- elsif (($in_import or $in_string) and s/^(.)//)
- {
- $text .= $1;
- }
- elsif (!$in_import and s/^([^\s])//)
- {
- push (@$imports, $text. "\n") if ($text ne '');
- push (@$rules, $1 . $_);
- $in_rules = 1;
- last;
- }
- elsif (s/^(\s)//)
- {
- $text .= $1;
- }
- elsif ($_ eq '')
- {
- push (@$imports, $text);
- last;
- }
- }
- }
- warn "$WARN string not closed in css file $file\n" if ($in_string);
- warn "$WARN comment not closed in css file $file\n" if ($in_comment);
- warn "$WARN \@import not finished in css file $file\n" if ($in_import and !$in_comment and !$in_string);
- return ($imports, $rules);
-}
-
-my @css_import_lines;
-my @css_rule_lines;
-
-# process css files
-foreach my $file (@Texi2HTML::Config::CSS_FILES)
-{
- my $css_file_fh;
- my $css_file;
- if ($file eq '-')
- {
- $css_file_fh = \*STDIN;
- $css_file = '-';
- }
- else
- {
- $css_file = locate_init_file ($file);
- unless (defined($css_file))
- {
- warn "css file $file not found\n";
- next;
- }
- unless (open (CSSFILE, "$css_file"))
- {
- warn "Cannot open ${css_file}: $!";
- next;
- }
- $css_file_fh = \*CSSFILE;
- }
- my ($import_lines, $rules_lines);
- ($import_lines, $rules_lines) = process_css_file ($css_file_fh, $css_file);
- push @css_import_lines, @$import_lines;
- push @css_rule_lines, @$rules_lines;
-}
-
-if ($T2H_DEBUG & $DEBUG_USER)
-{
- if (@css_import_lines)
- {
- print STDERR "# css import lines\n";
- foreach my $line (@css_import_lines)
- {
- print STDERR "$line";
- }
- }
- if (@css_rule_lines)
- {
- print STDERR "# css rule lines\n";
- foreach my $line (@css_rule_lines)
- {
- print STDERR "$line";
- }
- }
-}
-
-#
-# read texi2html extensions (if any)
-# FIXME isn't that obsolete ? (obsoleted by -init-file)
-my $extensions = 'texi2html.ext'; # extensions in working directory
-if (-f $extensions)
-{
- print STDERR "# reading extensions from $extensions\n" if $T2H_VERBOSE;
- require($extensions);
-}
-my $progdir;
-($progdir = $0) =~ s/[^\/]+$//;
-if ($progdir && ($progdir ne './'))
-{
- $extensions = "${progdir}texi2html.ext"; # extensions in texi2html directory
- if (-f $extensions)
- {
- print STDERR "# reading extensions from $extensions\n" if $T2H_VERBOSE;
- require($extensions);
- }
-}
-
-# parse texinfo cnf file for external manual specifications.
-my @texinfo_htmlxref_files = locate_init_file ($texinfo_htmlxref, 1, \@texinfo_config_dirs);
-foreach my $file (@texinfo_htmlxref_files)
-{
- open (HTMLXREF, $file);
- while (<HTMLXREF>)
- {
- my $line = $_;
- s/[#]\s.*//;
- s/^\s*//;
- next if /^\s*$/;
- my @htmlxref = split /\s+/;
- my $manual = shift @htmlxref;
- next if (exists($Texi2HTML::THISDOC{'htmlxref'}->{$manual}));
- my $split_or_mono = shift @htmlxref;
- if (!defined($split_or_mono) or ($split_or_mono ne 'split' and $split_or_mono ne 'mono'))
- {
- echo_warn("Bad line in $file: $line");
- next;
- }
- my $href = shift @htmlxref;
- if ($split_or_mono eq 'split')
- {
- $Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{'split'} = 1;
- $Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{'mono'} = 0;
- }
- else
- {
- $Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{'split'} = 0;
- $Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{'mono'} = 1;
- }
- if (defined($href))
- {
- if ($Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{'split'})
- {
- $href =~ s/\/*$//;
- }
- $Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{'href'} = $href;
- }
- }
- close (HTMLXREF);
-}
-
-if ($T2H_DEBUG)
-{
- foreach my $manual (keys(%{$Texi2HTML::THISDOC{'htmlxref'}}))
- {
- my $href = 'NO';
- $href = $Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{'href'} if
- defined($Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{'href'});
- print STDERR "$manual: split $Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{'split'}, href: $href\n";
- }
-}
-
-print STDERR "# reading from $docu\n" if $T2H_VERBOSE;
-
-{
-
-package Texi2HTML::LaTeX2HTML;
-
-#########################################################################
-#
-# latex2html stuff
-#
-# latex2html conversions consist of three stages:
-# 1) ToLatex: Put "latex" code into a latex file
-# 2) ToHtml: Use latex2html to generate corresponding html code and images
-# 3) FromHtml: Extract generated code and images from latex2html run
-#
-
-# init l2h defaults for files and names
-
-# variable which shouldn't be global FIXME
-use vars qw(
- %l2h_img
- );
-my ($l2h_name, $l2h_latex_file, $l2h_cache_file, $l2h_html_file, $l2h_prefix);
-
-# holds the status of latex2html operations. If 0 it means that there was
-# an error
-my $status = 0;
-my $debug;
-my $docu_rdir;
-
-#if ($Texi2HTML::Config::L2H)
-sub init($$$)
-{
- my $docu_name = shift;
- $docu_rdir = shift;
- $debug = shift;
- $l2h_name = "${docu_name}_l2h";
- $l2h_latex_file = "$docu_rdir${l2h_name}.tex";
- $l2h_cache_file = "${docu_rdir}l2h_cache.pm";
- # destination dir -- generated images are put there, should be the same
- # as dir of enclosing html document --
- $l2h_html_file = "$docu_rdir${l2h_name}.html";
- $l2h_prefix = "${l2h_name}_";
- $status = init_to_latex();
-}
-
-##########################
-#
-# First stage: Generation of Latex file
-# Initialize with: l2h_InitToLatex
-# Add content with: l2h_ToLatex($text) --> HTML placeholder comment
-# Finish with: l2h_FinishToLatex
-#
-
-my $l2h_latex_preamble = <<EOT;
-% This document was automatically generated by the l2h extenstion of texi2html
-% DO NOT EDIT !!!
-\\documentclass{article}
-\\usepackage{html}
-\\begin{document}
-EOT
-
-my $l2h_latex_closing = <<EOT;
-\\end{document}
-EOT
-
-my %l2h_to_latex = ();
-my @l2h_to_latex = ();
-my $l2h_latex_count = 0; # number of latex texts really stored
-my $l2h_to_latex_count = 0; # total number of latex texts processed
-my $l2h_cached_count = 0; # number of cached latex text
-my %l2h_cache = ();
-#$Texi2HTML::Config::L2H = l2h_InitToLatex() if ($Texi2HTML::Config::L2H);
-
-# return used latex 1, if l2h could be initalized properly, 0 otherwise
-#sub l2h_InitToLatex
-sub init_to_latex()
-{
- unless ($Texi2HTML::Config::L2H_SKIP)
- {
- unless (open(L2H_LATEX, ">$l2h_latex_file"))
- {
- warn "$ERROR Error l2h: Can't open latex file '$l2h_latex_file' for writing\n";
- return 0;
- }
- print STDERR "# l2h: use ${l2h_latex_file} as latex file\n" if ($T2H_VERBOSE);
- print L2H_LATEX $l2h_latex_preamble;
- }
- # open database for caching
- #l2h_InitCache();
- init_cache();
- return 1;
-}
-
-
-# print text (1st arg) into latex file (if not already there), return
-# @tex_$number which can be later on replaced by the latex2html
-# generated text
-#sub l2h_ToLatex
-sub to_latex
-{
- my($text) = @_;
- my($count);
- $l2h_to_latex_count++;
- $text =~ s/(\s*)$//;
- # try whether we can cache it
- #my $cached_text = l2h_FromCache($text);
- my $cached_text = from_cache($text);
- if ($cached_text)
- {
- $l2h_cached_count++;
- return $cached_text;
- }
- # try whether we have text already on things to do
- unless ($count = $l2h_to_latex{$text})
- {
- $count = $l2h_latex_count;
- $l2h_latex_count++;
- $l2h_to_latex{$text} = $count;
- $l2h_to_latex[$count] = $text;
- unless ($Texi2HTML::Config::L2H_SKIP)
- {
- print L2H_LATEX "\\begin{rawhtml}\n";
- print L2H_LATEX "<!-- l2h_begin ${l2h_name} ${count} -->\n";
- print L2H_LATEX "\\end{rawhtml}\n";
-
- print L2H_LATEX "$text\n";
-
- print L2H_LATEX "\\begin{rawhtml}\n";
- print L2H_LATEX "<!-- l2h_end ${l2h_name} ${count} -->\n";
- print L2H_LATEX "\\end{rawhtml}\n";
- }
- }
- return "\@tex_${count} ";
-}
-
-# print closing into latex file and close it
-#sub l2h_FinishToLatex
-sub finish_to_latex()
-{
- my ($reused);
- $reused = $l2h_to_latex_count - $l2h_latex_count - $l2h_cached_count;
- unless ($Texi2HTML::Config::L2H_SKIP)
- {
- print L2H_LATEX $l2h_latex_closing;
- close(L2H_LATEX);
- }
- print STDERR "# l2h: finished to latex ($l2h_cached_count cached, $reused reused, $l2h_latex_count contents)\n" if ($T2H_VERBOSE);
- unless ($l2h_latex_count)
- {
- #l2h_Finish();
- finish();
- return 0;
- }
- return 1;
-}
-
-###################################
-# Second stage: Use latex2html to generate corresponding html code and images
-#
-# l2h_ToHtml([$l2h_latex_file, [$l2h_html_dir]]):
-# Call latex2html on $l2h_latex_file
-# Put images (prefixed with $l2h_name."_") and html file(s) in $l2h_html_dir
-# Return 1, on success
-# 0, otherwise
-#
-#sub l2h_ToHtml
-sub to_html()
-{
- my ($call, $dotbug);
- if ($Texi2HTML::Config::L2H_SKIP)
- {
- print STDERR "# l2h: skipping latex2html run\n" if ($T2H_VERBOSE);
- return 1;
- }
- # Check for dot in directory where dvips will work
- if ($Texi2HTML::Config::L2H_TMP)
- {
- if ($Texi2HTML::Config::L2H_TMP =~ /\./)
- {
- warn "$ERROR Warning l2h: l2h_tmp dir contains a dot. Use /tmp, instead\n";
- $dotbug = 1;
- }
- }
- else
- {
- if (main::getcwd() =~ /\./)
- {
- warn "$ERROR Warning l2h: current dir contains a dot. Use /tmp as l2h_tmp dir \n";
- $dotbug = 1;
- }
- }
- # fix it, if necessary and hope that it works
- $Texi2HTML::Config::L2H_TMP = "/tmp" if ($dotbug);
-
- $call = $Texi2HTML::Config::L2H_L2H;
- # use init file, if specified
- my $init_file = main::locate_init_file($Texi2HTML::Config::L2H_FILE);
- $call = $call . " -init_file " . $init_file if ($init_file);
- # set output dir
- $call .= ($docu_rdir ? " -dir $docu_rdir" : " -no_subdir");
- # use l2h_tmp, if specified
- $call = $call . " -tmp $Texi2HTML::Config::L2H_TMP" if ($Texi2HTML::Config::L2H_TMP);
- # use a given html version if specified
- $call = $call . " -html_version $Texi2HTML::Config::L2H_HTML_VERSION" if ($Texi2HTML::Config::L2H_HTML_VERSION);
- # options we want to be sure of
- $call = $call ." -address 0 -info 0 -split 0 -no_navigation -no_auto_link";
- $call = $call ." -prefix ${l2h_prefix} $l2h_latex_file";
-
- print STDERR "# l2h: executing '$call'\n" if ($Texi2HTML::Config::VERBOSE);
- if (system($call))
- {
- warn "l2h ***Error: '${call}' did not succeed\n";
- return 0;
- }
- else
- {
- print STDERR "# l2h: latex2html finished successfully\n" if ($Texi2HTML::Config::VERBOSE);
- return 1;
- }
-}
-
-##########################
-# Third stage: Extract generated contents from latex2html run
-# Initialize with: l2h_InitFromHtml
-# open $l2h_html_file for reading
-# reads in contents into array indexed by numbers
-# return 1, on success -- 0, otherwise
-# Extract Html code with: l2h_FromHtml($text)
-# replaces in $text all previosuly inserted comments by generated html code
-# returns (possibly changed) $text
-# Finish with: l2h_FinishFromHtml
-# closes $l2h_html_dir/$l2h_name.".$docu_ext"
-
-my $l2h_extract_error = 0;
-my $l2h_range_error = 0;
-my @l2h_from_html;
-
-#sub l2h_InitFromHtml()
-sub init_from_html()
-{
- local(%l2h_img);
- my ($count, $h_line);
-
- if (! open(L2H_HTML, "<${l2h_html_file}"))
- {
- print STDERR "$ERROR Error l2h: Can't open ${l2h_html_file} for reading\n";
- return 0;
- }
- print STDERR "# l2h: use ${l2h_html_file} as html file\n" if ($T2H_VERBOSE);
-
- my $l2h_html_count = 0;
- while ($h_line = <L2H_HTML>)
- {
- if ($h_line =~ /^<!-- l2h_begin $l2h_name ([0-9]+) -->/)
- {
- $count = $1;
- my $h_content = "";
- while ($h_line = <L2H_HTML>)
- {
- if ($h_line =~ /^<!-- l2h_end $l2h_name $count -->/)
- {
- chomp $h_content;
- chomp $h_content;
- $l2h_html_count++;
- #$h_content = l2h_ToCache($count, $h_content);
- $h_content = to_cache($count, $h_content);
- $l2h_from_html[$count] = $h_content;
- $h_content = '';
- last;
- }
- $h_content = $h_content.$h_line;
- }
- if ($h_content)
- {
- print STDERR "$ERROR Warning l2h: l2h_end $l2h_name $count not found\n"
- if ($Texi2HTML::Config::VERBOSE);
- close(L2H_HTML);
- return 0;
- }
- }
- }
- print STDERR "# l2h: Got $l2h_html_count of $l2h_latex_count html contents\n"
- if ($Texi2HTML::Config::VERBOSE);
-
- close(L2H_HTML);
- return 1;
-}
-
-sub latex2html()
-{
- return unless($status);
- return unless ($status = finish_to_latex());
- return unless ($status = to_html());
- return unless ($status = init_from_html());
-}
-
-# FIXME used ??
-#sub l2h_FromHtml($)
-sub from_html($)
-{
- my($text) = @_;
- my($done, $to_do, $count);
- $to_do = $text;
- $done = '';
- while ($to_do =~ /([^\000]*)<!-- l2h_replace $l2h_name ([0-9]+) -->([^\000]*)/)
- {
- $to_do = $1;
- $count = $2;
- $done = $3.$done;
- $done = "<!-- l2h_end $l2h_name $count -->".$done
- #if ($T2H_DEBUG & $DEBUG_L2H);
- if ($debug);
-
- #$done = l2h_ExtractFromHtml($count) . $done;
- $done = extract_from_html($count) . $done;
-
- $done = "<!-- l2h_begin $l2h_name $count -->".$done
- #if ($T2H_DEBUG & $DEBUG_L2H);
- if ($debug);
- }
- return $to_do.$done;
-}
-
-sub do_tex($)
-{
- my $count = shift;
- my $result = '';
- $result = "<!-- l2h_begin $l2h_name $count -->"
- #if ($T2H_DEBUG & $DEBUG_L2H);
- if ($debug);
- $result .= extract_from_html($count);
- $result .= "<!-- l2h_end $l2h_name $count -->"
- #if ($T2H_DEBUG & $DEBUG_L2H);
- if ($debug);
- return $result;
-}
-
-#sub l2h_ExtractFromHtml($)
-sub extract_from_html($)
-{
- my $count = shift;
- return $l2h_from_html[$count] if ($l2h_from_html[$count]);
- if ($count >= 0 && $count < $l2h_latex_count)
- {
- # now we are in trouble
- my $line;
- $l2h_extract_error++;
- print STDERR "$ERROR l2h: can't extract content $count from html\n"
- if ($T2H_VERBOSE);
- # try simple (ordinary) substition (without l2h)
- #my $l_l2h = $Texi2HTML::Config::L2H;
- $Texi2HTML::Config::L2H = 0;
- my $l_l2h = $status;
- $status = 0;
- $line = $l2h_to_latex{$count};
- $line = main::substitute_text({}, $line);
- $line = "<!-- l2h: ". __LINE__ . " use texi2html -->" . $line
- #if ($T2H_DEBUG & $DEBUG_L2H);
- if ($debug);
- #$Texi2HTML::Config::L2H = $l_l2h;
- $status = $l_l2h;
- return $line;
- }
- else
- {
- # now we have been incorrectly called
- $l2h_range_error++;
- print STDERR "$ERROR l2h: Request of $count content which is out of valide range [0,$l2h_latex_count)\n";
- return "<!-- l2h: ". __LINE__ . " out of range count $count -->"
- #if ($T2H_DEBUG & $DEBUG_L2H);
- if ($debug);
- return "<!-- l2h: out of range count $count -->";
- }
-}
-
-#sub l2h_FinishFromHtml()
-sub finish_from_html()
-{
- if ($Texi2HTML::Config::VERBOSE)
- {
- if ($l2h_extract_error + $l2h_range_error)
- {
- print STDERR "# l2h: finished from html ($l2h_extract_error extract and $l2h_range_error errors)\n";
- }
- else
- {
- print STDERR "# l2h: finished from html (no errors)\n";
- }
- }
-}
-
-#sub l2h_Finish()
-sub finish()
-{
- return unless($status);
- finish_from_html();
- #l2h_StoreCache();
- store_cache();
- if ($Texi2HTML::Config::L2H_CLEAN)
- {
- local ($_);
- print STDERR "# l2h: removing temporary files generated by l2h extension\n"
- if $Texi2HTML::Config::VERBOSE;
- while (<"$docu_rdir$l2h_name"*>)
- {
- unlink $_;
- }
- }
- print STDERR "# l2h: Finished\n" if $Texi2HTML::Config::VERBOSE;
- return 1;
-}
-
-##############################
-# stuff for l2h caching
-#
-
-# I tried doing this with a dbm data base, but it did not store all
-# keys/values. Hence, I did as latex2html does it
-#sub l2h_InitCache
-sub init_cache
-{
- if (-r "$l2h_cache_file")
- {
- my $rdo = do "$l2h_cache_file";
- warn("$ERROR l2h Error: could not load $docu_rdir$l2h_cache_file: $@\n")
- unless ($rdo);
- }
-}
-
-#sub l2h_StoreCache
-sub store_cache
-{
- return unless $l2h_latex_count;
- my ($key, $value);
- open(FH, ">$l2h_cache_file") || return warn"$ERROR l2h Error: could not open $docu_rdir$l2h_cache_file for writing: $!\n";
- while (($key, $value) = each %l2h_cache)
- {
- # escape stuff
- $key =~ s|/|\\/|g;
- $key =~ s|\\\\/|\\/|g;
- # weird, a \ at the end of the key results in an error
- # maybe this also broke the dbm database stuff
- $key =~ s|\\$|\\\\|;
- $value =~ s/\|/\\\|/go;
- $value =~ s/\\\\\|/\\\|/go;
- $value =~ s|\\\\|\\\\\\\\|g;
- print FH "\n\$l2h_cache_key = q/$key/;\n";
- print FH "\$l2h_cache{\$l2h_cache_key} = q|$value|;\n";
- }
- print FH "1;";
- close(FH);
-}
-
-# return cached html, if it exists for text, and if all pictures
-# are there, as well
-#sub l2h_FromCache
-sub from_cache
-{
- my $text = shift;
- my $cached = $l2h_cache{$text};
- if ($cached)
- {
- while ($cached =~ m/SRC="(.*?)"/g)
- {
- unless (-e "$docu_rdir$1")
- {
- return undef;
- }
- }
- return $cached;
- }
- return undef;
-}
-
-# insert generated html into cache, move away images,
-# return transformed html
-my $maximage = 1;
-#sub l2h_ToCache($$)
-sub to_cache($$)
-{
- my $count = shift;
- my $content = shift;
- my @images = ($content =~ /SRC="(.*?)"/g);
- my ($src, $dest);
-
- for $src (@images)
- {
- $dest = $l2h_img{$src};
- unless ($dest)
- {
- my $ext;
- if ($src =~ /.*\.(.*)$/ && $1 ne $docu_ext)
- {
- $ext = $1;
- }
- else
- {
- warn "$ERROR: L2h image $src has invalid extension\n";
- next;
- }
- while (-e "$docu_rdir${docu_name}_$maximage.$ext")
- {
- $maximage++;
- }
- $dest = "${docu_name}_$maximage.$ext";
- system("cp -f $docu_rdir$src $docu_rdir$dest");
- $l2h_img{$src} = $dest;
- #unlink "$docu_rdir$src" unless ($T2H_DEBUG & $DEBUG_L2H);
- unlink "$docu_rdir$src" unless ($debug);
- }
- $content =~ s/$src/$dest/g;
- }
- $l2h_cache{$l2h_to_latex[$count]} = $content;
- return $content;
-}
-
-}
-
-#+++###########################################################################
-# #
-# Pass texi: read source, handle variable, ignored text, #
-# #
-#---###########################################################################
-
-my @fhs = (); # hold the file handles to read
-my $input_spool; # spooled lines to read
-my @lines = (); # whole document
-my @lines_numbers = (); # line number, originating file associated with
- # whole document
-my $macros; # macros. reference on a hash
-my %info_enclose; # macros defined with definfoenclose
-my $texi_line_number = { 'file_name' => '', 'line_nr' => 0, 'macro' => '' };
-my @floats = (); # floats list
-my %floats = (); # floats by style
-
-sub initialise_state_texi($)
-{
- my $state = shift;
- $state->{'texi'} = 1; # for substitute_text and close_stack:
- # 1 if pass_texi/scan_texi is to be used
-}
-
-my @first_lines = ();
-
-sub pass_texi()
-{
- my $first_lines = 1; # is it the first lines
- my $state = {};
- # holds the informations about the context
- # to pass it down to the functions
- initialise_state_texi($state);
- my @stack;
- my $text;
- INPUT_LINE: while (defined($_ = next_line($texi_line_number)))
- {
- #
- # remove the lines preceding \input or an @-command
- #
- if ($first_lines)
- {
- if (/^\\input/)
- {
- push @first_lines, $_;
- $first_lines = 0;
- next;
- }
- if (/^\s*\@/)
- {
- $first_lines = 0;
- }
- else
- {
- push @first_lines, $_;
- next;
- }
- }
- #print STDERR "line_nr $texi_line_number->{'line_nr'} :$_";
- my $chomped_line = $_;
- if (scan_texi ($_, \$text, \@stack, $state, $texi_line_number) and chomp($chomped_line))
- {
- #print STDERR "scan_texi line_nr $texi_line_number->{'line_nr'}\n";
- push (@lines_numbers, { 'file_name' => $texi_line_number->{'file_name'},
- 'line_nr' => $texi_line_number->{'line_nr'},
- 'macro' => $texi_line_number->{'macro'} });
- }
-
- #dump_stack (\$text, \@stack, $state);
- if ($state->{'bye'})
- {
- #dump_stack(\$text, \@stack, $state);
- # close stack after bye
- close_stack_texi_structure(\$text, \@stack, $state, $texi_line_number);
- }
- next if (@stack);
- $_ = $text;
- $text = '';
- next if !defined($_);
- push @lines, split_lines ($_);
- last if ($state->{'bye'});
- }
- # close stack at the end of pass texi
- close_stack_texi_structure(\$text, \@stack, $state, $texi_line_number);
- push @lines, split_lines ($text);
- print STDERR "# end of pass texi\n" if $T2H_VERBOSE;
-}
-
-# return the line after preserving things according to misc_command map.
-sub preserve_command($$)
-{
- my $line = shift;
- my $macro = shift;
- my $text = '';
- my $args = '';
- my $skip_spec = '';
- my $arg_spec = '';
-
- $skip_spec = $Texi2HTML::Config::misc_command{$macro}->{'skip'}
- if (defined($Texi2HTML::Config::misc_command{$macro}->{'skip'}));
- $arg_spec = $Texi2HTML::Config::misc_command{$macro}->{'arg'}
- if (defined($Texi2HTML::Config::misc_command{$macro}->{'arg'}));
-
- if ($arg_spec eq 'line')
- {
- $text .= $line;
- $args .= $line;
- $line = '';
- }
- elsif ($arg_spec)
- {
- my $arg_nr = $Texi2HTML::Config::misc_command{$macro}->{'arg'};
- while ($arg_nr)
- {
- $line =~ s/(\s+\S*)//o;
- $text .= $1 if defined($1);
- $args .= $1 if defined($1);
- $arg_nr--;
- }
- }
-
- if ($macro eq 'bye')
- {
- $line = '';
- $text = "\n";
- }
- elsif ($skip_spec eq 'linespace')
- {
- if ($line =~ /^\s*$/o)
- {
- $line =~ s/([ \t]*)//o;
- $text .= $1;
- }
- }
- elsif ($skip_spec eq 'linewhitespace')
- {
- if ($line =~ /^\s*$/o)
- {
- $text .= $line;
- $line = '';
- }
- }
- elsif ($skip_spec eq 'line')
- {
- $text .= $line;
- $line = '';
- }
- elsif ($skip_spec eq 'whitespace')
- {
- $line =~ s/(\s*)//o;
- $text .= $1;
- }
- elsif ($skip_spec eq 'space')
- {
- $line =~ s/([ \t]*)//o;
- $text .= $1;
- }
- $line = '' if (!defined($line));
- return ($line, "\@$macro" . $text, $args);
-}
-
-#+++###########################################################################
-# #
-# Pass structure: parse document structure #
-# #
-#---###########################################################################
-
-# This is a virtual element for things appearing before @node and
-# sectionning commands
-my $element_before_anything =
-{
- 'before_anything' => 1,
- 'place' => [],
- 'texi' => 'VIRTUAL ELEMENT BEFORE ANYTHING',
-};
-
-sub initialise_state_structure($)
-{
- my $state = shift;
- $state->{'structure'} = 1; # for substitute_text and close_stack:
- # 1 if pass_structure/scan_structure is
- # to be used
- $state->{'menu'} = 0; # number of opened menus
- $state->{'detailmenu'} = 0; # number of opened detailed menus
- $state->{'level'} = 0; # current sectionning level
- $state->{'table_stack'} = [ "no table" ]; # a stack of opened tables/lists
- delete ($state->{'region_lines'}) unless (defined($state->{'region_lines'}));
-}
-
-my @doc_lines = (); # whole document
-my @doc_numbers = (); # whole document line numbers and file names
-my @nodes_list = (); # nodes in document reading order
- # each member is a reference on a hash
-my @sections_list = (); # sections in reading order
- # each member is a reference on a hash
-my @elements_list = (); # sectionning elements (nodes and sections)
- # in reading order. Each member is a reference
- # on a hash which also appears in %nodes,
- # @sections_list @nodes_list, @all_elements
-my @all_elements; # all the elements in document order
-my %nodes = (); # nodes hash. The key is the texi node name
-my %cross_reference_nodes = (); # normalized node names
-my %sections = (); # sections hash. The key is the section number
- # headings are there, although they are not elements
-my $element_top; # Top element
-my $node_top; # Top node
-my $node_first; # First node
-my $element_index; # element with first index
-my $element_chapter_index; # chapter with first index
-my $element_first; # first element
-my $element_last; # last element
-
-# This is a virtual element used to have the right hrefs for index entries
-# and anchors in footnotes
-my $footnote_element =
-{
- 'id' => 'SEC_Foot',
- 'file' => $docu_foot,
- 'footnote' => 1,
- 'element' => 1,
- 'place' => [],
-};
-
-#my $do_contents; # do table of contents if true
-#my $do_scontents; # do short table of contents if true
-my $novalidate = $Texi2HTML::Config::NOVALIDATE; # @novalidate appeared
-
-sub pass_structure()
-{
- my $state = {};
- # holds the informations about the context
- # to pass it down to the functions
- initialise_state_structure($state);
- $state->{'element'} = $element_before_anything;
- $state->{'place'} = $element_before_anything->{'place'};
- my @stack;
- my $text;
- my $line_nr;
-
- while (@lines)
- {
- $_ = shift @lines;
- my $chomped_line = $_;
- if (!chomp($chomped_line) and @lines)
- {
- $lines[0] = $_ . $lines[0];
- next;
- }
- $line_nr = shift (@lines_numbers);
- #print STDERR "PASS_STRUCTURE: $_";
- if (!$state->{'raw'} and !$state->{'special'} and !$state->{'verb'})
- {
- my $tag = '';
- if (/^\s*\@(\w+)\b/)
- {
- $tag = $1;
- }
-
- #
- # analyze the tag
- #
- if ($tag and $tag eq 'node' or defined($sec2level{$tag}) or $tag eq 'printindex' or $tag eq 'float')
- {
- $_ = substitute_texi_line($_); #usefull if there is an anchor ???
- if (@stack and $tag eq 'node' or defined($sec2level{$tag}) or
-$tag eq 'float')
- {# in pass structure node and float shouldn't appear in formats
- close_stack_texi_structure(\$text, \@stack, $state, $line_nr);
- if (exists($state->{'region_lines'}))
- {
- push @{$region_lines{$state->{'region_lines'}->{'format'}}}, split_lines ($text);
- }
- else
- {
- push @doc_lines, split_lines ($text);
- }
- $text = '';
- }
- if ($tag eq 'node')
- {
- my $node_ref;
- my $auto_directions;
- $auto_directions = 1 unless (/,/o);
- my ($node, $node_next, $node_prev, $node_up) = split(/,/, $_);
- $node =~ s/^\@node\s+// if ($node);
- if ($node)
- {
- $node = normalise_space($node);
- if (exists($nodes{$node}) and defined($nodes{$node})
- and $nodes{$node}->{'seen'})
- {
- echo_error ("Duplicate node found: $node", $line_nr);
- next;
- }
- else
- {
- if (exists($nodes{$node}) and defined($nodes{$node}))
- { # node appeared in a menu
- $node_ref = $nodes{$node};
- }
- else
- {
- my $first;
- $first = 1 if (!defined($node_ref));
- $node_ref = {};
- $node_first = $node_ref if ($first);
- $nodes{$node} = $node_ref;
- }
- $node_ref->{'node'} = 1;
- $node_ref->{'tag'} = 'node';
- $node_ref->{'tag_level'} = 'node';
- $node_ref->{'texi'} = $node;
- $node_ref->{'seen'} = 1;
- $node_ref->{'automatic_directions'} = $auto_directions;
- $node_ref->{'place'} = [];
- $node_ref->{'current_place'} = [];
- merge_element_before_anything($node_ref);
- $node_ref->{'index_names'} = [];
- $state->{'place'} = $node_ref->{'current_place'};
- $state->{'element'} = $node_ref;
- $state->{'after_element'} = 1;
- $state->{'node_ref'} = $node_ref;
- # makeinfo treats differently case variants of
- # top in nodes and anchors and in refs commands and
- # refs from nodes.
- if ($node =~ /^top$/i)
- {
- if (!defined($node_top))
- {
- $node_top = $node_ref;
- $node_top->{'texi'} = 'Top';
- delete $nodes{$node};
- $nodes{$node_top->{'texi'}} = $node_ref;
- }
- else
- { # All the refs are going to point to the first Top
- echo_warn ("Top node allready exists", $line_nr);
- #warn "$WARN Top node allready exists\n";
- }
- }
- unless (@nodes_list)
- {
- $node_ref->{'first'} = 1;
- }
- push (@nodes_list, $node_ref);
- push @elements_list, $node_ref;
- }
- }
- else
- {
- echo_error ("Node is undefined: $_ (eg. \@node NODE-NAME, NEXT, PREVIOUS, UP)", $line_nr);
- next;
- }
-
- if ($node_next)
- {
- $node_ref->{'node_next'} = normalise_node($node_next);
- }
- if ($node_prev)
- {
- $node_ref->{'node_prev'} = normalise_node($node_prev);
- }
- if ($node_up)
- {
- $node_ref->{'node_up'} = normalise_node($node_up);
- }
- }
- elsif (defined($sec2level{$tag}))
- {
- if (/^\@$tag\s*(.*)$/)
- {
- my $name = normalise_space($1);
- $name = '' if (!defined($name));
- my $level = $sec2level{$tag};
- $state->{'after_element'} = 1;
- my ($docid, $num);
- if($tag ne 'top')
- {
- $sec_num++;
- $num = $sec_num;
- $docid = "SEC$sec_num";
- }
- else
- {
- $num = 0;
- $docid = "SEC_Top";
- }
- if ($tag !~ /heading/)
- {
- my $section_ref = { 'texi' => $name,
- 'level' => $level,
- 'tag' => $tag,
- 'sec_num' => $num,
- 'section' => 1,
- 'id' => $docid,
- 'seen' => 1,
- 'index_names' => [],
- 'current_place' => [],
- 'place' => []
- };
-
- if ($tag eq 'top')
- {
- $section_ref->{'top'} = 1;
- $section_ref->{'number'} = '';
- $sections{0} = $section_ref;
- $element_top = $section_ref;
- }
- $sections{$num} = $section_ref;
- merge_element_before_anything($section_ref);
- if ($state->{'node_ref'} and !exists($state->{'node_ref'}->{'with_section'}))
- {
- my $node_ref = $state->{'node_ref'};
- $section_ref->{'node_ref'} = $node_ref;
- $section_ref->{'titlefont'} = $node_ref->{'titlefont'};
- $node_ref->{'with_section'} = $section_ref;
- $node_ref->{'top'} = 1 if ($tag eq 'top');
- }
- if (! $name and $level)
- {
- echo_warn ("$tag without name", $line_nr);
- }
- push @sections_list, $section_ref;
- push @elements_list, $section_ref;
- $state->{'section_ref'} = $section_ref;
- $state->{'element'} = $section_ref;
- $state->{'place'} = $section_ref->{'current_place'};
- my $node_ref = "NO NODE";
- my $node_texi ='';
- if ($state->{'node_ref'})
- {
- $node_ref = $state->{'node_ref'};
- $node_texi = $state->{'node_ref'}->{'texi'};
- }
- print STDERR "# pass_structure node($node_ref)$node_texi, tag \@$tag($level) ref $section_ref, num,id $num,$docid\n $name\n"
- if $T2H_DEBUG & $DEBUG_ELEMENTS;
- }
- else
- {
- my $section_ref = { 'texi' => $name,
- 'level' => $level,
- 'heading' => 1,
- 'tag' => $tag,
- 'tag_level' => $tag,
- 'sec_num' => $sec_num,
- 'id' => $docid,
- 'number' => '' };
- $state->{'element'} = $section_ref;
- push @{$state->{'place'}}, $section_ref;
- $sections{$sec_num} = $section_ref;
- }
- }
- }
- elsif ($tag eq 'float')
- {
- my ($style_texi, $label_texi) = split(/,/, $_);
- $style_texi =~ s/^\@float\s*//;
- $style_texi = normalise_space($style_texi);
- $label_texi = undef if (defined($label_texi) and ($label_texi =~ /^\s*$/));
- if (defined($label_texi))
- {
- $label_texi = normalise_node($label_texi);
- if (exists($nodes{$label_texi}) and defined($nodes{$label_texi})
- and $nodes{$label_texi}->{'seen'})
- {
- echo_error ("Duplicate label found: $label_texi", $line_nr);
- while ($_ =~ /,/)
- {
- $_ =~ s/,.*$//;
- }
- }
- else
- {
- my $float = { };
- if (exists($nodes{$label_texi}) and defined($nodes{$label_texi}))
- { # float appeared in a menu
- $float = $nodes{$label_texi};
- }
- else
- {
- $nodes{$label_texi} = $float;
- }
- $float->{'float'} = 1;
- $float->{'tag'} = 'float';
- $float->{'texi'} = $label_texi;
- $float->{'seen'} = 1;
- $float->{'id'} = $label_texi;
-#print STDERR "FLOAT: $float $float->{'texi'}, place $state->{'place'}\n";
- push @{$state->{'place'}}, $float;
- $float->{'element'} = $state->{'element'};
- $state->{'float'} = $float;
- $float->{'style_texi'} = $style_texi;
- push @floats, $float;
- }
- }
- }
- elsif (/^\@printindex\s+(\w+)/)
- {
- unless (@elements_list)
- {
- echo_warn ("Printindex before document beginning: \@printindex $1", $line_nr);
- next;
- }
- $state->{'after_element'} = 0;
- # $element_index is the first element with index
- $element_index = $elements_list[-1] unless (defined($element_index));
- # associate the index to the element such that the page
- # number is right
- my $placed_elements = [];
- push @{$elements_list[-1]->{'index_names'}}, { 'name' => $1, 'place' => $placed_elements };
- $state->{'place'} = $placed_elements;
- }
- if (exists($state->{'region_lines'}))
- {
- push @{$region_lines{$state->{'region_lines'}->{'format'}}}, $_;
- }
- else
- {
- push @doc_lines, $_;
- push @doc_numbers, $line_nr;
- }
- next;
- }
- }
- if (scan_structure ($_, \$text, \@stack, $state, $line_nr) and !(exists($state->{'region_lines'})))
- {
- push (@doc_numbers, $line_nr);
- }
- next if (@stack);
- $_ = $text;
- $text = '';
- next if (!defined($_));
- if ($state->{'region_lines'})
- {
- push @{$region_lines{$state->{'region_lines'}->{'format'}}}, split_lines ($_);
- }
- else
- {
- push @doc_lines, split_lines ($_);
- }
- }
- if (@stack)
- {# close stack at the end of pass structure
- close_stack_texi_structure(\$text, \@stack, $state, $line_nr);
- push @doc_lines, split_lines ($text) if ($text and (!exists($state->{'region_lines'})));
- }
- echo_warn ("At end of document, $state->{'region_lines'}->{'number'} $state->{'region_lines'}->{'format'} not closed") if (exists($state->{'region_lines'}));
- print STDERR "# end of pass structure\n" if $T2H_VERBOSE;
-}
-
-# split line at end of line and put each resulting line in an array
-sub split_lines($)
-{
- my $line = shift;
- my @result = ();
- my $i = 0;
- while ($line)
- {
- $result[$i] = '';
- $line =~ s/^(.*)//;
- $result[$i] .= $1;
- $result[$i] .= "\n" if ($line =~ s/^\n//);
- #print STDERR "$i: $result[$i]";
- $i++;
- }
- return @result;
-}
-
-sub misc_command_structure($$$$)
-{
- my $line = shift;
- my $macro = shift;
- my $state = shift;
- my $line_nr = shift;
- my $text;
- my $args;
-
- if ($macro eq 'lowersections')
- {
- my ($sec, $level);
- while (($sec, $level) = each %sec2level)
- {
- $sec2level{$sec} = $level + 1;
- }
- $state->{'level'}--;
- }
- elsif ($macro eq 'raisesections')
- {
- my ($sec, $level);
- while (($sec, $level) = each %sec2level)
- {
- $sec2level{$sec} = $level - 1;
- }
- $state->{'level'}++;
- }
- elsif ($macro eq 'contents')
- {
- $Texi2HTML::Config::DO_CONTENTS = 1;
- }
- elsif ($macro eq 'detailmenu')
- {
- $state->{'detailmenu'}++;
- }
- elsif (($macro eq 'summarycontents') or ($macro eq 'shortcontents'))
- {
- $Texi2HTML::Config::DO_SCONTENTS = 1;
- }
- elsif ($macro eq 'novalidate')
- {
- $novalidate = 1;
- }
- elsif (grep {$_ eq $macro} ('settitle','setfilename','shortitle','shorttitlepage')
- and ($line =~ /^\s+(.*)$/))
- {
- $value{"_$macro"} = substitute_texi_line($1);
- }
- elsif (grep {$_ eq $macro} ('author','subtitle','title')
- and ($line =~ /^\s+(.*)$/))
- {
- $value{"_$macro"} .= substitute_texi_line($1)."\n";
- push @{$Texi2HTML::THISDOC{"${macro}s"}}, substitute_texi_line($1);
- }
- elsif ($macro eq 'synindex' || $macro eq 'syncodeindex')
- {
- if ($line =~ /^\s+(\w+)\s+(\w+)/)
- {
- my $from = $1;
- my $to = $2;
- my $prefix_from = index_name2prefix($from);
- my $prefix_to = index_name2prefix($to);
- echo_error ("unknown from index name $from in \@$macro", $line_nr)
- unless $prefix_from;
- echo_error ("unknown to index name $to in \@$macro", $line_nr)
- unless $prefix_to;
- if ($prefix_from and $prefix_to)
- {
- if ($macro eq 'syncodeindex')
- {
- $index_properties->{$prefix_to}->{'from_code'}->{$prefix_from} = 1;
- }
- else
- {
- $index_properties->{$prefix_to}->{'from'}->{$prefix_from} = 1;
- }
- }
- }
- else
- {
- echo_error ("Bad $macro line: $line", $line_nr);
- }
- }
- elsif ($macro eq 'defindex' || $macro eq 'defcodeindex')
- {
- if ($line =~ /^\s+(\w+)\s*$/)
- {
- my $name = $1;
- $index_properties->{$name}->{'name'} = $name;
- $index_properties->{$name}->{'code'} = 1 if $macro eq 'defcodeindex';
- }
- else
- {# FIXME makeinfo don't warn ?
- echo_error ("Bad $macro line: $line", $line_nr);
- }
- }
- elsif ($macro eq 'documentlanguage')
- {
- if ($line =~ /\s+(\w+)/)
- {
- my $lang = $1;
- set_document_language($lang, 0, $line_nr) if (!$cmd_line_lang && $lang);
- }
- }
- elsif ($macro eq 'kbdinputstyle')
- {# FIXME makeinfo ignores that with --html
- if ($line =~ /\s+([a-z]+)/)
- {
- if ($1 eq 'code')
- {
- $style_map_ref->{'kbd'} = $style_map_ref->{'code'};
- $style_map_pre_ref->{'kbd'} = $style_map_pre_ref->{'code'};
- $Texi2HTML::THISDOC{'kbdinputstyle'} = $1;
- }
- elsif ($1 eq 'example')
- {
- $style_map_pre_ref->{'kbd'} = $style_map_pre_ref->{'code'};
- $Texi2HTML::THISDOC{'kbdinputstyle'} = $1;
- }
- elsif ($1 ne 'distinct')
- {
- echo_error ("Unknown argument for \@$macro: $1", $line_nr);
- }
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'paragraphindent')
- {
- if ($line =~ /\s+([0-9]+)/)
- {
- $Texi2HTML::THISDOC{'paragraphindent'} = $1;
- }
- elsif (($line =~ /\s+(none)[^\w\-]/) or ($line =~ /\s+(asis)[^\w\-]/))
- {
- $Texi2HTML::THISDOC{'paragraphindent'} = $1;
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'firstparagraphindent')
- {
- if (($line =~ /\s+(none)[^\w\-]/) or ($line =~ /\s+(insert)[^\w\-]/))
- {
- $Texi2HTML::THISDOC{'firstparagraphindent'} = $1;
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'exampleindent')
- {
- if ($line =~ /^\s+([0-9]+)/)
- {
- $Texi2HTML::THISDOC{'exampleindent'} = $1;
- }
- elsif ($line =~ /^\s+(asis)[^\w\-]/)
- {
- $Texi2HTML::THISDOC{'exampleindent'} = $1;
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'footnotestyle')
- {
- if (($line =~ /^\s+(end)[^\w\-]/) or ($line =~ /^\s+(separate)[^\w\-]/))
- {
- $Texi2HTML::THISDOC{'footnotestyle'} = $1;
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'headings')
- {
- my $valid_arg = 0;
- foreach my $possible_arg (('off','on','single','double',
- 'singleafter','doubleafter'))
- {
- if ($line =~ /^\s+($possible_arg)[^\w\-]/)
- {
- $valid_arg = 1;
- $Texi2HTML::THISDOC{'headings'} = $possible_arg;
- last;
- }
- }
- unless ($valid_arg)
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'setchapternewpage')
- {
- if (($line =~ /^\s+(on)[^\w\-]/) or ($line =~ /^\s+(off)[^\w\-]/)
- or ($line =~ /^\s+(odd)[^\w\-]/))
- {
- $Texi2HTML::THISDOC{'setchapternewpage'} = $1;
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif (grep {$macro eq $_} ('everyheading', 'everyfooting',
- 'evenheading', 'evenfooting', 'oddheading', 'oddfooting'))
- {
- my $arg = $line;
- $arg =~ s/^\s+//;
- $Texi2HTML::THISDOC{$macro} = $arg;
- }
-
- ($text, $line, $args) = preserve_command($line, $macro);
- return ($text, $line);
-}
-
-# return the line after removing things according to misc_command map.
-# if the skipped macro has an effect it is done here
-# this is used during pass_text
-sub misc_command_text($$$$$$)
-{
- my $line = shift;
- my $macro = shift;
- my $stack = shift;
- my $state = shift;
- my $text = shift;
- my $line_nr = shift;
- my ($skipped, $remaining, $args);
- my $keep = $Texi2HTML::Config::misc_command{$macro}->{'keep'};
-
- if ($macro eq 'detailmenu')
- {
- $state->{'detailmenu'}++;
- }
- elsif ($macro eq 'sp')
- {
- my $sp_number;
- if ($line =~ /^\s+(\d+)\s/)
- {
- $sp_number = $1;
- }
- elsif ($line =~ /(\s*)$/)
- {
- $sp_number = '';
- }
- else
- {
- echo_error ("\@$macro needs a numeric arg or no arg", $line_nr);
- }
- $sp_number = 1 if ($sp_number eq '');
- add_prev($text, $stack, &$Texi2HTML::Config::sp($sp_number, $state->{'preformatted'}));
- }
- elsif($macro eq 'verbatiminclude' and !$keep)
- {
- if ($line =~ /\s+(.+)/)
- {
- my $arg = $1;
- my $file = locate_include_file($arg);
- if (defined($file))
- {
- if (!open(VERBINCLUDE, $file))
- {
- echo_warn ("Can't read file $file: $!",$line_nr);
- }
- else
- {
- my $verb_text = '';
- while (my $line = <VERBINCLUDE>)
- {
- $verb_text .= $line;
- }
- add_prev($text, $stack, &$Texi2HTML::Config::raw('verbatim',$verb_text));
- close VERBINCLUDE;
- }
- }
- else
- {
- echo_error ("Can't find $arg, skipping", $line_nr);
- }
- }
- else
- {
- echo_error ("Bad \@$macro line: $_", $line_nr);
- }
- }
- elsif ($macro eq 'need')
- {
- unless (($line =~ /\s+([0-9]+(\.[0-9]*)?)[^\w\-]/) or
- ($line =~ /\s+(\.[0-9]+)[^\w\-]/))
- {
- echo_warn ("Bad \@$macro", $line_nr);
- }
- }
- ($remaining, $skipped, $args) = preserve_command($line, $macro);
- if ($keep)
- {
- $remaining = $args . $remaining;
- }
- return $remaining if ($remaining ne '');
- return undef;
-}
-
-# merge the things appearing before the first @node or sectionning command
-# (held by element_before_anything) with the current element if not allready
-# done
-sub merge_element_before_anything($)
-{
- my $element = shift;
- if (exists($element_before_anything->{'place'}))
- {
- $element->{'current_place'} = $element_before_anything->{'place'};
- $element->{'titlefont'} = $element_before_anything->{'titlefont'};
- delete $element_before_anything->{'place'};
- foreach my $placed_thing (@{$element->{'current_place'}})
- {
- $placed_thing->{'element'} = $element if (exists($placed_thing->{'element'}));
- }
- }
-}
-
-# find menu_prev, menu_up... for a node in menu
-sub menu_entry_texi($$$)
-{
- my $node = shift;
- my $state = shift;
- my $line_nr = shift;
- my $node_menu_ref = {};
- if (exists($nodes{$node}))
- {
- $node_menu_ref = $nodes{$node};
- }
- else
- {
- $nodes{$node} = $node_menu_ref;
- $node_menu_ref->{'texi'} = $node;
- $node_menu_ref->{'external_node'} = 1 if ($node =~ /\(.+\)/);
-# or $novalidate);
- }
- #$node_menu_ref->{'menu_node'} = 1;
- if ($state->{'node_ref'})
- {
- $node_menu_ref->{'menu_up'} = $state->{'node_ref'};
- $node_menu_ref->{'menu_up_hash'}->{$state->{'node_ref'}->{'texi'}} = 1;
- }
- else
- {
- echo_warn ("menu entry without previous node: $node", $line_nr) unless ($node =~ /\(.+\)/);
- #warn "$WARN menu entry without previous node: $node\n" unless ($node =~ /\(.+\)/);
- }
- return if ($state->{'detailmenu'});
- if ($state->{'prev_menu_node'})
- {
- $node_menu_ref->{'menu_prev'} = $state->{'prev_menu_node'};
- $state->{'prev_menu_node'}->{'menu_next'} = $node_menu_ref;
- }
- elsif ($state->{'node_ref'})
- {
- $state->{'node_ref'}->{'menu_child'} = $node_menu_ref;
- }
- $state->{'prev_menu_node'} = $node_menu_ref;
-}
-
-my %files = (); # keys are files. This is used to avoid reusing an allready
- # used file name
-my %empty_indices = (); # value is true for an index name key if the index
- # is empty
-my %printed_indices = (); # value is true for an index name not empty and
- # printed
-
-# find next, prev, up, back, forward, fastback, fastforward
-# find element id and file
-# split index pages
-# associate placed items (items which have links to them) with the right
-# file and id
-# associate nodes with sections
-sub rearrange_elements()
-{
- @all_elements = @elements_list;
-
- print STDERR "# find sections levels and toplevel\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
-
- my $toplevel = 4;
- # correct level if raisesections or lowersections overflowed
- # and find toplevel
- foreach my $element (values(%sections))
- {
- my $level = $element->{'level'};
- if ($level > $MAX_LEVEL)
- {
- $element->{'level'} = $MAX_LEVEL;
- }
- elsif ($level < $MIN_LEVEL and !$element->{'top'})
- {
- $element->{'level'} = $MIN_LEVEL;
- }
- else
- {
- $element->{'level'} = $level;
- }
- $element->{'toc_level'} = $element->{'level'};
- # This is for top
- $element->{'toc_level'} = $MIN_LEVEL if ($element->{'level'} < $MIN_LEVEL);
- # find the new tag corresponding with the level of the section
- $element->{'tag_level'} = $level2sec{$element->{'tag'}}->[$element->{'level'}] if ($element->{'tag'} !~ /heading/);
- $toplevel = $element->{'level'} if (($element->{'level'} < $toplevel) and ($element->{'level'} > 0 and ($element->{'tag'} !~ /heading/)));
- print STDERR "# section level $level: $element->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- }
-
- print STDERR "# find sections structure, construct section numbers (toplevel=$toplevel)\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
-
- my $in_appendix = 0;
- # these arrays heve an element per sectionning level.
- my @previous_numbers = (); # holds the number of the previous sections
- # at the same and upper levels
- my @previous_sections = (); # holds the ref of the previous sections
-
- foreach my $section (@sections_list)
- {
- next if ($section->{'top'});
- print STDERR "Bug level undef for ($section) $section->{'texi'}\n" if (!defined($section->{'level'}));
- $section->{'toplevel'} = 1 if ($section->{'level'} == $toplevel);
- # undef things under that section level
- for (my $level = $section->{'level'} + 1; $level < $MAX_LEVEL + 1 ; $level++)
- {
- $previous_numbers[$level] = undef;
- $previous_sections[$level] = undef;
- }
- my $number_set;
- # find number at the current level
- if ($section->{'tag'} =~ /appendix/ and !$in_appendix)
- {
- $previous_numbers[$toplevel] = 'A';
- $in_appendix = 1;
- $number_set = 1 if ($section->{'level'} == $toplevel);
- }
- if (!defined($previous_numbers[$section->{'level'}]) and !$number_set)
- {
- if ($section->{'tag'} =~ /unnumbered/)
- {
- $previous_numbers[$section->{'level'}] = undef;
- }
- else
- {
- $previous_numbers[$section->{'level'}] = 1;
- }
- }
- elsif ($section->{'tag'} !~ /unnumbered/ and !$number_set)
- {
- $previous_numbers[$section->{'level'}]++;
- }
- # construct the section number
- $section->{'number'} = '';
-
- unless ($section->{'tag'} =~ /unnumbered/)
- {
- my $level = $section->{'level'};
- while ($level > $toplevel)
- {
- my $number = $previous_numbers[$level];
- $number = 0 if (!defined($number));
- if ($section->{'number'})
- {
- $section->{'number'} = "$number.$section->{'number'}";
- }
- else
- {
- $section->{'number'} = $number;
- }
- $level--;
- }
- my $toplevel_number = $previous_numbers[$toplevel];
- $toplevel_number = 0 if (!defined($toplevel_number));
- $section->{'number'} = "$toplevel_number.$section->{'number'}";
- }
- # find the previous section
- if (defined($previous_sections[$section->{'level'}]))
- {
- my $prev_section = $previous_sections[$section->{'level'}];
- $section->{'section_prev'} = $prev_section;
- $prev_section->{'next'} = $section;
- $prev_section->{'element_next'} = $section;
- }
- # find the up section
- if ($section->{'level'} == $toplevel)
- {
- $section->{'up'} = undef;
- }
- else
- {
- my $level = $section->{'level'} - 1;
- while (!defined($previous_sections[$level]) and ($level >= 0))
- {
- $level--;
- }
- if ($level >= 0)
- {
- $section->{'up'} = $previous_sections[$level];
- # 'child' is the first child
- $section->{'up'}->{'child'} = $section unless ($section->{'section_prev'});
- }
- else
- {
- $section->{'up'} = undef;
- }
- }
- $previous_sections[$section->{'level'}] = $section;
- # element_up is used for reparenting in case an index page
- # splitted a section. This is used in order to preserve the up which
- # points to the up section. See below at index pages generation.
- $section->{'element_up'} = $section->{'up'};
-
- my $up = "NO_UP";
- $up = $section->{'up'} if (defined($section->{'up'}));
- print STDERR "# numbering section ($section->{'level'}): $section->{'number'}: (up: $up) $section->{'texi'}\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- }
-
- my @node_directions = ('node_prev', 'node_next', 'node_up');
- # handle nodes
- # the node_prev... are texinfo strings, find the associated node references
- print STDERR "# Resolve nodes directions\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- foreach my $node (@nodes_list)
- {
- foreach my $direction (@node_directions)
- {
- if ($node->{$direction} and !ref($node->{$direction}))
- {
- if ($nodes{$node->{$direction}} and $nodes{$node->{$direction}}->{'seen'})
- {
- $node->{$direction} = $nodes{$node->{$direction}};
- }
- elsif (($node->{$direction} =~ /^\(.*\)/) or $novalidate)
- { # ref to an external node
- if (exists($nodes{$node->{$direction}}))
- {
- $node->{$direction} = $nodes{$node->{$direction}};
- }
- else
- {
- # FIXME if {'seen'} this is a node appearing in the
- # document and a node like `(file)node'. What to
- # do then ?
- my $node_ref = { 'texi' => $node->{$direction} };
- $node_ref->{'external_node'} = 1 if ($node->{$direction} =~ /^\(.*\)/);
- #my $node_ref = { 'texi' => $node->{$direction},
- # 'external_node' => 1 };
- $nodes{$node->{$direction}} = $node_ref;
- $node->{$direction} = $node_ref;
- }
- }
- else
- {
- echo_warn ("$direction `$node->{$direction}' for `$node->{'texi'}' not found");
- delete $node->{$direction};
- }
- }
- }
- }
-
- # find section preceding and following top
- my $section_before_top; # section preceding the top node
- my $section_after_top; # section following the top node
- if ($node_top)
- {
- my $previous_is_top = 0;
- foreach my $element (@all_elements)
- {
- if ($element eq $node_top)
- {
- $previous_is_top = 1;
- next;
- }
- if ($previous_is_top)
- {
- if ($element->{'section'})
- {
- $section_after_top = $element;
- last;
- }
- next;
- }
- $section_before_top = $element if ($element->{'section'});
- }
- }
- print STDERR "# section before Top: $section_before_top->{'texi'}\n"
- if ($section_before_top and ($T2H_DEBUG & $DEBUG_ELEMENTS));
- print STDERR "# section after Top: $section_after_top->{'texi'}\n"
- if ($section_after_top and ($T2H_DEBUG & $DEBUG_ELEMENTS));
-
- print STDERR "# Build the elements list\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- if (!$Texi2HTML::Config::USE_NODES)
- {
- #the only sectionning elements are sections
- @elements_list = @sections_list;
- # if there is no section we use nodes...
- if (!@elements_list)
- {
- print STDERR "# no section\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- @elements_list = @all_elements;
- }
- elsif (!$element_top and $node_top and !$node_top->{'with_section'})
- { # special case for the top node if it isn't associated with
- # a section. The top node element is inserted between the
- # $section_before_top and the $section_after_top
- $node_top->{'as_section'} = 1;
- $node_top->{'section_ref'} = $node_top;
- my @old_element_lists = @elements_list;
- @elements_list = ();
- while (@old_element_lists)
- {
- my $section = shift @old_element_lists;
- if ($section_before_top and ($section eq $section_before_top))
- {
- push @elements_list, $section;
- push @elements_list, $node_top;
- last;
- }
- elsif ($section_after_top and ($section eq $section_after_top))
- {
- push @elements_list, $node_top;
- push @elements_list, $section;
- last;
- }
- push @elements_list, $section;
- }
- push @elements_list, @old_element_lists;
- }
-
- foreach my $element (@elements_list)
- {
- print STDERR "# new section element $element->{'texi'}\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- }
- }
- else
- {
- # elements are sections if possible, and node if no section associated
- my @elements = ();
- while (@elements_list)
- {
- my $element = shift @elements_list;
- if ($element->{'node'})
- {
- if (!defined($element->{'with_section'}))
- {
- $element->{'toc_level'} = $MIN_LEVEL if (!defined($element->{'toc_level'}));
- print STDERR "# new node element ($element) $element->{'texi'}\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- push @elements, $element;
- }
- }
- else
- {
- print STDERR "# new section element ($element) $element->{'texi'}\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- push @elements, $element;
- }
- }
- @elements_list = @elements;
- }
- foreach my $element (@elements_list)
- {
- $element->{'element'} = 1;
- }
-
- # nodes are attached to the section preceding them if not allready
- # associated with a section
- print STDERR "# Find the section associated with each node\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- my $current_section = $sections_list[0];
- $current_section = $node_top if ($node_top and $node_top->{'as_section'} and !$section_before_top);
- my $current;
- foreach my $element (@all_elements)
- {
- if ($element->{'node'} and !$element->{'as_section'})
- {
- if ($element->{'with_section'})
- { # the node is associated with a section
- $element->{'section_ref'} = $element->{'with_section'};
- push @{$element->{'section_ref'}->{'nodes'}}, $element;
- }
- elsif (defined($current_section))
- {
- $current_section = $section_after_top
- if ($current_section->{'node'} and $section_after_top);
- $element->{'in_top'} = 1 if ($current_section->{'top'});
- $element->{'section_ref'} = $current_section;
- # nodes are considered sub elements for the purprose of
- # reparenting and their element_next and element_prev
- # are next and prev node associated with the same section
- $element->{'element_up'} = $current_section;
- $element->{'toc_level'} = $current_section->{'toc_level'};
- if (defined($current))
- {
- $current->{'element_next'} = $element;
- $element->{'element_prev'} = $current;
- }
- $current = $element;
- push @{$element->{'section_ref'}->{'nodes'}}, $element;
- }
- else
- {
- $element->{'toc_level'} = $MIN_LEVEL;
- }
- }
- else
- {
- $current = undef;
- $current_section = $element;
- if ($element->{'node'})
- { # Top node
- $element->{'toc_level'} = $MIN_LEVEL;
- push @{$element->{'section_ref'}->{'nodes'}}, $element;
- }
- }
- }
- print STDERR "# Complete nodes next prev and up based on menus and sections\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- foreach my $node (@nodes_list)
- {
- if (!$node->{'first'} and !$node->{'top'} and !$node->{'menu_up'} and ($node->{'texi'} !~ /^top$/i) and $Texi2HTML::Config::SHOW_MENU)
- {
- warn "$WARN `$node->{'texi'}' doesn't appear in menus\n";
- }
-
- # use values deduced from menus to complete missing up, next, prev
- # or from sectionning commands if automatic sectionning
- if ($node->{'node_up'})
- {
- $node->{'up'} = $node->{'node_up'};
- }
- elsif ($node->{'automatic_directions'} and $node->{'section_ref'} and defined($node->{'section_ref'}->{'up'}))
- {
- $node->{'up'} = get_node($node->{'section_ref'}->{'up'});
- }
- elsif ($node->{'menu_up'})
- {
- $node->{'up'} = $node->{'menu_up'};
- }
-
- if ($node->{'up'} and !$node->{'up'}->{'external_node'})
- {
- # We detect when the up node has no menu entry for that node, as
- # there may be infinite loops when finding following node (see below)
- unless (defined($node->{'menu_up_hash'}) and ($node->{'menu_up_hash'}->{$node->{'up'}->{'texi'}}))
- {
- print STDERR "$WARN `$node->{'up'}->{'texi'}' is up for `$node->{'texi'}', but has no menu entry for this node\n" if ($Texi2HTML::Config::SHOW_MENU);
- push @{$node->{'up_not_in_menu'}}, $node->{'up'}->{'texi'};
- }
- }
-
- # Find next node
- if ($node->{'node_next'})
- {
- $node->{'next'} = $node->{'node_next'};
- }
- elsif ($node->{'texi'} eq 'Top')
- { # special case as said in the texinfo manual
- $node->{'next'} = $node->{'menu_child'} if ($node->{'menu_child'});
- }
- elsif ($node->{'automatic_directions'})
- {
- if (defined($node->{'section_ref'}))
- {
- my $next;
- my $section = $node->{'section_ref'};
- if (defined($section->{'next'}))
- {
- $next = get_node($section->{'next'})
- }
- else
- {
- while (defined($section->{'up'}) and !defined($section->{'next'}))
- {
- $section = $section->{'up'};
- }
- if (defined($section->{'next'}))
- {
- $next = get_node($section->{'next'});
- }
- }
- $node->{'next'} = $next;
- }
- }
- if (!defined($node->{'next'}) and $node->{'menu_next'})
- {
- $node->{'next'} = $node->{'menu_next'};
- }
- # Find prev node
- if ($node->{'node_prev'})
- {
- $node->{'prev'} = $node->{'node_prev'};
- }
- elsif ($node->{'automatic_directions'})
- {
- if (defined($node->{'section_ref'}))
- {
- my $section = $node->{'section_ref'};
- if (defined($section->{'section_prev'}))
- {
- $node->{'prev'} = get_node($section->{'section_prev'});
- }
- elsif (defined($section->{'up'}))
- {
- $node->{'prev'} = get_node($section->{'up'});
- }
- }
- }
- # next we try menus. makeinfo don't do that
- if (!defined($node->{'prev'}) and $node->{'menu_prev'})
- {
- $node->{'prev'} = $node->{'menu_prev'};
- }
- # the prev node is the parent node
- elsif (!defined($node->{'prev'}) and $node->{'menu_up'})
- {
- $node->{'prev'} = $node->{'menu_up'};
- }
-
- # the following node is the node following in node reading order
- # it is thus first the child, else the next, else the next following
- # the up
- if ($node->{'menu_child'})
- {
- $node->{'following'} = $node->{'menu_child'};
- }
- elsif ($node->{'automatic_directions'} and defined($node->{'section_ref'}) and defined($node->{'section_ref'}->{'child'}))
- {
- $node->{'following'} = get_node ($node->{'section_ref'}->{'child'});
- }
- elsif (defined($node->{'next'}))
- {
- $node->{'following'} = $node->{'next'};
- }
- else
- {
- my $up = $node->{'up'};
- # in order to avoid infinite recursion in case the up node is the
- # node itself we use the up node as following when there isn't
- # a correct menu structure, here and also below.
- $node->{'following'} = $up if (defined($up) and grep {$_ eq $up->{'texi'}} @{$node->{'up_not_in_menu'}});
- while ((!defined($node->{'following'})) and (defined($up)))
- {
- if (($node_top) and ($up eq $node_top))
- { # if we are at Top, Top is following
- $node->{'following'} = $node_top;
- $up = undef;
- }
- if (defined($up->{'next'}))
- {
- $node->{'following'} = $up->{'next'};
- }
- elsif (defined($up->{'up'}))
- {
- if (! grep { $_ eq $up->{'up'}->{'texi'} } @{$node->{'up_not_in_menu'}})
- {
- $up = $up->{'up'};
- }
- else
- { # in that case we can go into a infinite loop
- $node->{'following'} = $up->{'up'};
- }
- }
- else
- {
- $up = undef;
- }
- }
- }
- }
-
- # find first and last elements before we split indices
- # FIXME Is it right for the last element ? Or should it be the last
- # with indices taken into account ?
- $element_first = $elements_list[0];
- print STDERR "# element first: $element_first->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- print STDERR "# top node: $node_top->{'texi'}\n" if (defined($node_top) and
- ($T2H_DEBUG & $DEBUG_ELEMENTS));
- # If there is no @top section no top node the first node is the top element
- $element_top = $node_top if (!defined($element_top) and defined($node_top));
- $element_top = $element_first unless (defined($element_top));
- $element_top->{'top'} = 1 if ($element_top->{'node'});
- $element_last = $elements_list[-1];
- print STDERR "# element top: $element_top->{'texi'}\n" if ($element_top and
- ($T2H_DEBUG & $DEBUG_ELEMENTS));
-
- print STDERR "# find forward and back\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- my $prev;
- foreach my $element (@elements_list)
- {
- # complete the up for toplevel elements
- if ($element->{'toplevel'} and !defined($element->{'up'}) and $element ne $element_top)
- {
- $element->{'up'} = $element_top;
- }
- # The childs are element which should be reparented in cas a chapter
- # is split by an index
- push @{$element->{'element_up'}->{'childs'}}, $element if (defined($element->{'element_up'}));
- if ($prev)
- {
- $element->{'back'} = $prev;
- $prev->{'forward'} = $element;
- $prev = $element;
- }
- else
- {
- $prev = $element;
- }
- # If the element is not a node, then all the node directions are copied
- # if there is an associated node
- if (defined($element->{'node_ref'}))
- {
- $element->{'nodenext'} = $element->{'node_ref'}->{'next'};
- $element->{'nodeprev'} = $element->{'node_ref'}->{'prev'};
- $element->{'menu_next'} = $element->{'node_ref'}->{'menu_next'};
- $element->{'menu_prev'} = $element->{'node_ref'}->{'menu_prev'};
- $element->{'menu_child'} = $element->{'node_ref'}->{'menu_child'};
- $element->{'menu_up'} = $element->{'node_ref'}->{'menu_up'};
- $element->{'nodeup'} = $element->{'node_ref'}->{'up'};
- $element->{'following'} = $element->{'node_ref'}->{'following'};
- }
- elsif (! $element->{'node'})
- { # the section has no node associated. Find the node directions using
- # sections
- if (defined($element->{'next'}))
- {
- $element->{'nodenext'} = get_node($element->{'next'});
- }
- if (defined($element->{'section_prev'}))
- {
- $element->{'nodeprev'} = get_node($element->{'section_prev'});
- }
- if (defined($element->{'up'}))
- {
- $element->{'nodeup'} = get_node($element->{'up'});
- }
- if ($element->{'child'})
- {
- $element->{'following'} = get_node($element->{'child'});
- }
- elsif ($element->{'next'})
- {
- $element->{'following'} = get_node($element->{'next'});
- }
- elsif ($element->{'up'})
- {
- my $up = $element;
- while ($up->{'up'} and !$element->{'following'})
- {
- $up = $up->{'up'};
- if ($up->{'next_section'})
- {
- $element->{'following'} = get_node ($up->{'next_section'});
- }
- }
- }
- }
- if ($element->{'node'})
- {
- $element->{'nodeup'} = $element->{'up'};
- $element->{'nodeprev'} = $element->{'prev'};
- $element->{'nodenext'} = $element->{'next'};
- }
- }
-
- my @new_elements = ();
- print STDERR "# preparing indices\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
-
- while(@elements_list)
- {
- my $element = shift @elements_list;
- # @checked_elements are the elements included in the $element (including
- # itself) and are searched for indices
- my @checked_elements = ();
- if (!$element->{'node'} or $element->{'as_section'})
- {
- if (!$Texi2HTML::Config::USE_NODES)
- {
- foreach my $node (@{$element->{'nodes'}})
- {
- # we update the element index, first element with index
- # if it is a node
- $element_index = $element if ($element_index and ($node eq $element_index));
- push @checked_elements, $node;
- # we push the section itself after the corresponding node
- if (defined($element->{'node_ref'}) and ($node eq $element->{'node_ref'}))
- {
- push @checked_elements, $element;
- }
- }
- if (!defined($element->{'node_ref'}) and !$element->{'node'})
- {
- push @checked_elements, $element;
- }
- $element->{'nodes'} = []; # We reset the element nodes list
- # as the nodes may be associated below to another element if
- # the element is split accross several other elements/pages
- }
- else
- {
- if ($element->{'node_ref'})
- {
- push @checked_elements, $element->{'node_ref'};
- $element_index = $element if ($element_index and ($element->{'node_ref'} eq $element_index));
- }
- push @checked_elements, $element;
- $element->{'nodes'} = [];
- }
- }
- else
- {
- push @checked_elements, $element;
- }
- my $checked_nodes = '';
- foreach my $checked (@checked_elements)
- {
- $checked_nodes .= "$checked->{'texi'}, ";
- }
- print STDERR "# Elements checked for $element->{'texi'}: $checked_nodes\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- # current_element is the last element holding text
- my $current_element = { 'holder' => 1, 'texi' => 'HOLDER',
- 'place' => [], 'indices' => [] };
- # back is sed to find back and forward
- my $back = $element->{'back'} if defined($element->{'back'});
- # forward is sed to find forward of the last inserted element
- my $forward = $element->{'forward'};
- my $element_next = $element->{'element_next'};
- my $index_num = 0;
- my @waiting_elements = (); # elements (nodes) not used for sectionning
- # waiting to be associated with an element
- foreach my $checked_element(@checked_elements)
- {
- if ($checked_element->{'element'})
- { # this is the element, we must add it
- push @new_elements, $checked_element;
- if ($current_element->{'holder'})
- { # no previous element added
- push @{$checked_element->{'place'}}, @{$current_element->{'place'}};
- foreach my $index(@{$current_element->{'indices'}})
- {
- push @{$checked_element->{'indices'}}, [ { 'element' => $checked_element, 'page' => $index->[0]->{'page'}, 'name' => $index->[0]->{'name'} } ] ;
- }
- }
- else
- {
- if ($checked_element->{'toplevel'})
- # there was an index_page added, this index_page is toplevel.
- # it begun a new chapter. The element next for this
- # index page (current_element) is the checked_element
- {
- $current_element->{'element_next'} = $checked_element;
- }
- $current_element->{'next'} = $checked_element;
- $current_element->{'following'} = $checked_element;
- $checked_element->{'prev'} = $current_element;
- }
- $current_element = $checked_element;
- $checked_element->{'back'} = $back;
- $back->{'forward'} = $checked_element if (defined($back));
- $back = $checked_element;
- push @{$checked_element->{'nodes'}}, @waiting_elements;
- my $waiting_element;
- while (@waiting_elements)
- {
- $waiting_element = shift @waiting_elements;
- $waiting_element->{'section_ref'} = $checked_element;
- }
- }
- elsif ($current_element->{'holder'})
- {
- push @waiting_elements, $checked_element;
- }
- else
- {
- push @{$current_element->{'nodes'}}, $checked_element;
- $checked_element->{'section_ref'} = $current_element;
- }
- push @{$current_element->{'place'}}, @{$checked_element->{'current_place'}};
- foreach my $index (@{$checked_element->{'index_names'}})
- {
- print STDERR "# Index in `$checked_element->{'texi'}': $index->{'name'}. Current is `$current_element->{'texi'}'\n"
- if ($T2H_DEBUG & $DEBUG_INDEX);
- my ($Pages, $Entries) = get_index($index->{'name'});
- if (defined($Pages))
- {
- my @pages = @$Pages;
- my $first_page = shift @pages;
- # begin debug section
- my $back_texi = 'NO_BACK';
- $back_texi = $back->{'texi'} if (defined($back));
- print STDERR "# New index first page (back `$back_texi', current `$current_element->{'texi'}')\n" if ($T2H_DEBUG & $DEBUG_INDEX);
- # end debug section
- push @{$current_element->{'indices'}}, [ {'element' => $current_element, 'page' => $first_page, 'name' => $index->{'name'} } ];
- if (@pages)
- {
- if ($current_element->{'holder'})
- { # the current element isn't a real element.
- # We add the real element
- # we are in a node of a section but the element
- # is splitted by the index, thus we must add
- # a new element which will contain the text
- # between the beginning of the element and the index
- push @new_elements, $checked_element;
- print STDERR "# Add element `$element->{'texi'}' before index page\n"
- if ($T2H_DEBUG & $DEBUG_INDEX);
- $checked_element->{'element'} = 1;
- $checked_element->{'level'} = $element->{'level'};
- $checked_element->{'toc_level'} = $element->{'toc_level'};
- $checked_element->{'toplevel'} = $element->{'toplevel'};
- $checked_element->{'up'} = $element->{'up'};
- $checked_element->{'element_added'} = 1;
- print STDERR "Bug: checked element wasn't seen" if
- (!$checked_element->{'seen'});
- delete $checked_element->{'with_section'};
- if ($checked_element->{'toplevel'})
- {
- $element->{'element_prev'}->{'element_next'} = $checked_element if (exists($element->{'element_prev'}));
- }
- push @{$checked_element->{'place'}}, @{$current_element->{'place'}};
- foreach my $index(@{$current_element->{'indices'}})
- {
- push @{$checked_element->{'indices'}}, [ { 'element' => $checked_element, 'page' => $index->[0]->{'page'}, 'name' => $index->[0]->{'name'} } ] ;
- }
- push @{$checked_element->{'nodes'}}, @waiting_elements;
- my $waiting_element;
- while (@waiting_elements)
- {
- $waiting_element = shift @waiting_elements;
- $waiting_element->{'section_ref'} = $checked_element;
- }
- $checked_element->{'back'} = $back;
- $back->{'forward'} = $checked_element if (defined($back));
- $current_element = $checked_element;
- $back = $checked_element;
- }
- my $index_page;
- while(@pages)
- {
- print STDERR "# New page (back `$back->{'texi'}', current `$current_element->{'texi'}')\n" if ($T2H_DEBUG & $DEBUG_INDEX);
- $index_num++;
- my $page = shift @pages;
- $index_page = { 'index_page' => 1,
- 'texi' => "$element->{'texi'} index $index->{'name'} page $index_num",
- 'level' => $element->{'level'},
- 'tag' => $element->{'tag'},
- 'tag_level' => $element->{'tag_level'},
- 'toplevel' => $element->{'toplevel'},
- 'up' => $element->{'up'},
- 'element_up' => $element->{'element_up'},
- 'element_next' => $element_next,
- 'element_ref' => $element,
- 'back' => $back,
- 'prev' => $back,
- 'next' => $current_element->{'next'},
- 'following' => $current_element->{'following'},
- 'nodeup' => $current_element->{'nodeup'},
- 'nodenext' => $current_element->{'nodenext'},
- 'nodeprev' => $back,
- 'place' => [],
- 'seen' => 1,
- 'page' => $page
- };
- $index_page->{'node'} = 1 if ($element->{'node'});
- while ($nodes{$index_page->{'texi'}})
- {
- $nodes{$index_page->{'texi'}} .= ' ';
- }
- $nodes{$index_page->{'texi'}} = $index_page;
- push @{$current_element->{'indices'}->[-1]}, {'element' => $index_page, 'page' => $page, 'name' => $index->{'name'} };
- push @new_elements, $index_page;
- $back->{'forward'} = $index_page;
- $back->{'next'} = $index_page;
- $back->{'nodenext'} = $index_page;
- $back->{'element_next'} = $index_page unless ($back->{'top'});
- $back->{'following'} = $index_page;
- $back = $index_page;
- $index_page->{'toplevel'} = 1 if ($element->{'top'});
- }
- $current_element = $index_page;
- }
- }
- else
- {
- print STDERR "# Empty index: $index->{'name'}\n"
- if ($T2H_DEBUG & $DEBUG_INDEX);
- $empty_indices{$index->{'name'}} = 1;
- }
- push @{$current_element->{'place'}}, @{$index->{'place'}};
- }
- }
- if ($forward and ($current_element ne $element))
- {
- $current_element->{'forward'} = $forward;
- $forward->{'back'} = $current_element;
- }
- next if ($current_element eq $element or !$current_element->{'toplevel'});
- # reparent the elements below $element, following element
- # and following parent of element to the last index page
- print STDERR "# Reparent `$element->{'texi'}':\n" if ($T2H_DEBUG & $DEBUG_INDEX);
- my @reparented_elements = ();
- @reparented_elements = (@{$element->{'childs'}}) if (defined($element->{'childs'}));
- push @reparented_elements, $element->{'element_next'} if (defined($element->{'element_next'}));
- foreach my $reparented(@reparented_elements)
- {
- next if ($reparented->{'toplevel'});
- $reparented->{'element_up'} = $current_element;
- print STDERR " reparented: $reparented->{'texi'}\n"
- if ($T2H_DEBUG & $DEBUG_INDEX);
- }
- }
- @elements_list = @new_elements;
-
- print STDERR "# find fastback and fastforward\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- foreach my $element (@elements_list)
- {
- my $up = get_top($element);
- next unless (defined($up));
- $element_chapter_index = $up if ($element_index and ($element_index eq $element));
- #print STDERR "$element->{'texi'} (top: $element->{'top'}, toplevel: $element->{'toplevel'}, $element->{'element_up'}, $element->{'element_up'}->{'texi'}): up: $up, $up->{'texi'}\n";
- # fastforward is the next element on same level than the upper parent
- # element
- $element->{'fastforward'} = $up->{'element_next'} if (exists ($up->{'element_next'}));
- # if the element isn't at the highest level, fastback is the
- # highest parent element
- if ($up and ($up ne $element))
- {
- $element->{'fastback'} = $up;
- }
- elsif ($element->{'toplevel'})
- {
- # the element is a top level element, we adjust the next
- # toplevel element fastback
- $element->{'fastforward'}->{'fastback'} = $element if ($element->{'fastforward'});
- }
- }
- my $index_nr = 0;
- # convert directions in direction with first letter in all caps, to be
- # consistent with the convention used in the .init file.
- # find id for nodes and indices
- foreach my $element (@elements_list)
- {
- $element->{'this'} = $element;
- foreach my $direction (('Up', 'Forward', 'Back', 'Next',
- 'Prev', 'FastForward', 'FastBack', 'This', 'NodeUp',
- 'NodePrev', 'NodeNext', 'Following' ))
- {
- my $direction_no_caps = $direction;
- $direction_no_caps =~ tr/A-Z/a-z/;
- $element->{$direction} = $element->{$direction_no_caps};
- }
- if ($element->{'index_page'})
- {
- $element->{'id'} = "INDEX" . $index_nr;
- $index_nr++;
- }
- }
- my $node_nr = 1;
- foreach my $node (@nodes_list)
- {
- $node->{'id'} = 'NOD' . $node_nr;
- $node_nr++;
- # debug check
- print STDERR "Bug: level defined for node `$node->{'texi'}'\n" if (defined($node->{'level'}) and !$node->{'element_added'});
- }
-
- # Find cross manual links as explained on the texinfo mailing list
- cross_manual_links(\%nodes, \%cross_reference_nodes);
-
- foreach my $float (@floats)
- {
- $float->{'id'} = cross_manual_line (normalise_node($float->{'texi'}));
- $float->{'style_id'} = cross_manual_line (normalise_space($float->{'style_texi'}));
- my $float_style = { };
- if (exists($floats{$float->{'style_id'}}))
- {
- $float_style = $floats{$float->{'style_id'}};
- }
- else
- {
- $floats{$float->{'style_id'}} = $float_style;
- }
- push @{$float_style->{'floats'}}, $float;
- $float->{'absolute_nr'} = scalar(@{$float_style->{'floats'}});
- my $up = get_top($float->{'element'});
- if (!defined($float_style->{'current_chapter'}) or ($up->{'texi'} ne $float_style->{'current_chapter'}))
- {
- $float_style->{'current_chapter'} = $up->{'texi'};
- $float_style->{'nr_in_chapter'} = 1;
- }
- else
- {
- $float_style->{'nr_in_chapter'}++;
- }
- if ($up->{'number'} ne '')
- {
- $float->{'chapter_nr'} = $up->{'number'};
- $float->{'nr'} = $float->{'chapter_nr'} . $float_style->{'nr_in_chapter'};
- }
- else
- {
- $float->{'nr'} = $float->{'absolute_nr'};
- }
- }
-
- if ($Texi2HTML::Config::NEW_CROSSREF_STYLE)
- { # FIXME allready done for floats?
- foreach my $key (keys(%nodes))
- {
- my $node = $nodes{$key};
- next if ($node->{'external_node'} or $node->{'index_page'});
- $node->{'id'} = node_to_id($node->{'cross_manual_target'});
- }
- }
-
- # Find node file names
- if ($Texi2HTML::Config::NODE_FILES)
- {
- my $top;
- if ($node_top)
- {
- $top = $node_top;
- }
- elsif ($element_top->{'node_ref'})
- {
- $top = $element_top->{'node_ref'};
- }
- else
- {
- $top = $node_first;
- }
- if ($top)
- {
- my $file = "$Texi2HTML::Config::TOP_NODE_FILE.$Texi2HTML::Config::NODE_FILE_EXTENSION";
- $top->{'file'} = $file if ($Texi2HTML::Config::SPLIT eq 'node');
- $top->{'node_file'} = $file;
- }
- foreach my $key (keys(%nodes))
- {
- my $node = $nodes{$key};
- my ($file, $node_file);
- ($file, $node_file) = &$Texi2HTML::Config::node_file_name ($node);
- $node->{'file'} = $file if (defined($file));
- $node->{'node_file'} = $node_file if (defined($node_file));
-# next if ($node->{'external_node'} or $node->{'index_page'});
-# if (defined($Texi2HTML::Config::node_file_name))
-# {
-# ($node->{'file'}, $node->{'node_file'}) =
-# &$Texi2HTML::Config::node_file_name ($node);
-# }
-# else
-# {
-# next if (defined($node->{'file'}));
-# my $name = remove_texi($node->{'texi'});
-# $name =~ s/[^\w\.\-]/-/g;
-# my $file = "${name}.$Texi2HTML::Config::NODE_FILE_EXTENSION";
-# $node->{'file'} = $file if (($Texi2HTML::Config::SPLIT eq 'node') and ($Texi2HTML::Config::USE_NODES or $node->{'with_section'}));
-# $node->{'node_file'} = $file;
-# }
- }
- }
- # find document nr and document file for sections and nodes.
- # Split according to Texi2HTML::Config::SPLIT.
- # find file and id for placed elements (anchors, index entries, headings)
- if ($Texi2HTML::Config::SPLIT)
- {
- my $cut_section = $toplevel;
- my $doc_nr = -1;
- if ($Texi2HTML::Config::SPLIT eq 'section')
- {
- $cut_section = 2 if ($toplevel <= 2);
- }
- my $top_doc_nr;
- my $prev_nr;
- foreach my $element (@elements_list)
- {
- print STDERR "# Splitting ($Texi2HTML::Config::SPLIT) $element->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- $doc_nr++ if (
- ($Texi2HTML::Config::SPLIT eq 'node') or
- (
- (!$element->{'node'} or $element->{'element_added'}) and ($element->{'level'} <= $cut_section)
- )
- );
- $doc_nr = 0 if ($doc_nr < 0); # happens if first elements are nodes
- $element->{'doc_nr'} = $doc_nr;
- if ($Texi2HTML::Config::NODE_FILES and ($Texi2HTML::Config::SPLIT eq 'node'))
- {
- my $node = get_node($element);
- if ($node and $node->{'file'})
- {
- $element->{'file'} = $node->{'file'};
- }
- unless ($element->{'file'})
- {
- $element->{'file'} = "${docu_name}_$doc_nr.$docu_ext";
- $element->{'doc_nr'} = $doc_nr;
- }
- }
- else
- {
- $element->{'file'} = "${docu_name}_$doc_nr.$docu_ext";
- my $is_top = 0;
- if (defined($top_doc_nr))
- {
- if ($doc_nr eq $top_doc_nr)
- {
- $element->{'file'} = "$docu_top";
- if ($element->{'level'} # this is an element below @top.
- # It starts a new file.
- or ($element->{'node'} and ($element ne $node_top) and (!defined($element->{'section_ref'}) or $element->{'section_ref'} ne $element_top))
- )# this is a node not associated with top
- {
- $doc_nr++;
- $element->{'doc_nr'} = $doc_nr;
- $element->{'file'} = "${docu_name}_$doc_nr.$docu_ext";
- }
- }
- }
- elsif ($element eq $element_top or (defined($element->{'section_ref'}) and $element->{'section_ref'} eq $element_top) or (defined($element->{'node_ref'}) and !$element->{'node_ref'}->{'element_added'} and $element->{'node_ref'} eq $element_top))
- { # the top element
- $is_top = 1;
- $element->{'file'} = "$docu_top";
- # if there is a previous element, we force it to be in
- # another file than top
- $doc_nr++ if (defined($prev_nr) and $doc_nr == $prev_nr);
- $top_doc_nr = $doc_nr;
- $element->{'doc_nr'} = $doc_nr;
- }
- if (defined($Texi2HTML::Config::element_file_name))
- {
- $element->{'file'} =
- &$Texi2HTML::Config::element_file_name ($element, $is_top, $docu_name);
- }
- }
- add_file($element->{'file'});
- $prev_nr = $doc_nr;
- foreach my $place(@{$element->{'place'}})
- {
- $place->{'file'} = $element->{'file'};
- $place->{'id'} = $element->{'id'} unless defined($place->{'id'});
- }
- if ($element->{'nodes'})
- {
- foreach my $node (@{$element->{'nodes'}})
- {
- $node->{'doc_nr'} = $element->{'doc_nr'};
- $node->{'file'} = $element->{'file'};
- }
- }
- elsif ($element->{'node_ref'} and !$element->{'node_ref'}->{'element_added'})
- {
- $element->{'node_ref'}->{'doc_nr'} = $element->{'doc_nr'} ;
- $element->{'node_ref'}->{'file'} = $element->{'file'};
- }
- }
- }
- else
- {
- add_file($docu_doc);
- foreach my $element(@elements_list)
- {
- #die "$ERROR monolithic file and a node have the same file name $docu_doc\n" if ($Texi2HTML::Config::NODE_FILES and $files{$docu_doc});
- $element->{'file'} = "$docu_doc";
- $element->{'doc_nr'} = 0;
- foreach my $place(@{$element->{'place'}})
- {
- $place->{'file'} = "$element->{'file'}";
- $place->{'id'} = $element->{'id'} unless defined($place->{'id'});
- }
- }
- foreach my $node(@nodes_list)
- {
- $node->{'file'} = "$docu_doc";
- $node->{'doc_nr'} = 0;
- }
- }
- # correct the id and file for the things placed in footnotes
- foreach my $place(@{$footnote_element->{'place'}})
- {
- $place->{'file'} = $footnote_element->{'file'};
- $place->{'id'} = $footnote_element->{'id'} unless defined($place->{'id'});
- }
- foreach my $file (keys(%files))
- {
- last unless ($T2H_DEBUG & $DEBUG_ELEMENTS);
- print STDERR "$file: $files{$file}->{'counter'}\n";
- }
- foreach my $element ((@elements_list, $footnote_element))
- {
- last unless ($T2H_DEBUG & $DEBUG_ELEMENTS);
- my $is_toplevel = 'not top';
- $is_toplevel = 'top' if ($element->{'toplevel'});
- print STDERR "$element ";
- if ($element->{'index_page'})
- {
- print STDERR "index($element->{'id'}, $is_toplevel, doc_nr $element->{'doc_nr'}($element->{'file'})): $element->{'texi'}\n";
- }
- elsif ($element->{'node'})
- {
- my $added = '';
- $added = 'added, ' if ($element->{'element_added'});
- print STDERR "node($element->{'id'}, toc_level $element->{'toc_level'}, $is_toplevel, ${added}doc_nr $element->{'doc_nr'}($element->{'file'})) $element->{'texi'}:\n";
- print STDERR " section_ref: $element->{'section_ref'}->{'texi'}\n" if (defined($element->{'section_ref'}));
- }
- elsif ($element->{'footnote'})
- {
- print STDERR "footnotes($element->{'id'}, file $element->{'file'})\n";
- }
- else
- {
- my $number = "UNNUMBERED";
- $number = $element->{'number'} if ($element->{'number'});
- print STDERR "$number ($element->{'id'}, $is_toplevel, level $element->{'level'}-$element->{'toc_level'}, doc_nr $element->{'doc_nr'}($element->{'file'})) $element->{'texi'}:\n";
- print STDERR " node_ref: $element->{'node_ref'}->{'texi'}\n" if (defined($element->{'node_ref'}));
- }
-
- if (!$element->{'footnote'})
- {
- if (!defined($files{$element->{'file'}}))
- {
- die "Bug: files{\$element->{'file'}} undef element $element->{'texi'}, file $element->{'file'}.";
- }
- print STDERR " file: $element->{'file'} $files{$element->{'file'}}, counter $files{$element->{'file'}}->{'counter'}\n";
- }
- print STDERR " TOP($toplevel) " if ($element->{'top'});
- print STDERR " u: $element->{'up'}->{'texi'}\n" if (defined($element->{'up'}));
- print STDERR " ch: $element->{'child'}->{'texi'}\n" if (defined($element->{'child'}));
- print STDERR " fb: $element->{'fastback'}->{'texi'}\n" if (defined($element->{'fastback'}));
- print STDERR " b: $element->{'back'}->{'texi'}\n" if (defined($element->{'back'}));
- print STDERR " p: $element->{'prev'}->{'texi'}\n" if (defined($element->{'prev'}));
- print STDERR " n: $element->{'next'}->{'texi'}\n" if (defined($element->{'next'}));
- print STDERR " n_u: $element->{'nodeup'}->{'texi'}\n" if (defined($element->{'nodeup'}));
- print STDERR " f: $element->{'forward'}->{'texi'}\n" if (defined($element->{'forward'}));
- print STDERR " follow: $element->{'following'}->{'texi'}\n" if (defined($element->{'following'}));
- print STDERR " m_p: $element->{'menu_prev'}->{'texi'}\n" if (defined($element->{'menu_prev'}));
- print STDERR " m_n: $element->{'menu_next'}->{'texi'}\n" if (defined($element->{'menu_next'}));
- print STDERR " m_u: $element->{'menu_up'}->{'texi'}\n" if (defined($element->{'menu_up'}));
- print STDERR " m_ch: $element->{'menu_child'}->{'texi'}\n" if (defined($element->{'menu_child'}));
- print STDERR " u_e: $element->{'element_up'}->{'texi'}\n" if (defined($element->{'element_up'}));
- print STDERR " n_e: $element->{'element_next'}->{'texi'}\n" if (defined($element->{'element_next'}));
- print STDERR " ff: $element->{'fastforward'}->{'texi'}\n" if (defined($element->{'fastforward'}));
- if (defined($element->{'menu_up_hash'}))
- {
- print STDERR " parent nodes:\n";
- foreach my $menu_up (keys%{$element->{'menu_up_hash'}})
- {
- print STDERR " $menu_up ($element->{'menu_up_hash'}->{$menu_up})\n";
- }
- }
- if (defined($element->{'nodes'}))
- {
- print STDERR " nodes: $element->{'nodes'} (@{$element->{'nodes'}})\n";
- foreach my $node (@{$element->{'nodes'}})
- {
- my $beginning = " ";
- $beginning = " *" if ($node->{'with_section'});
- my $file = $node->{'file'};
- $file = "file undef" if (! defined($node->{'file'}));
- print STDERR "${beginning}$node->{'texi'} $file\n";
- }
- }
- print STDERR " places: $element->{'place'}\n";
- foreach my $place(@{$element->{'place'}})
- {
- if (!$place->{'entry'} and !$place->{'float'} and !$place->{'texi'})
- {
- print STDERR "BUG: unknown placed stuff ========\n";
- foreach my $key (keys(%$place))
- {
- print STDERR "$key: $place->{$key}\n";
- }
- print STDERR "==================================\n";
- }
- elsif ($place->{'entry'})
- {
- print STDERR " index($place): $place->{'entry'}\n";
- }
- elsif ($place->{'anchor'})
- {
- print STDERR " anchor: $place->{'texi'}\n";
- }
- elsif ($place->{'float'})
- {
- if (defined($place->{'texi'}))
- {
- print STDERR " float($place): $place->{'texi'}\n";
- }
- else
- {
- print STDERR " float($place): NO LABEL\n";
- }
- }
- else
- {
- print STDERR " heading: $place->{'texi'}\n";
- }
- }
- if ($element->{'indices'})
- {
- print STDERR " indices: $element->{'indices'}\n";
- foreach my $index(@{$element->{'indices'}})
- {
- print STDERR " $index: ";
- foreach my $page (@$index)
- {
- print STDERR "'$page->{'element'}->{'texi'}'($page->{'name'}): $page->{'page'} ";
- }
- print STDERR "\n";
- }
- }
- }
-}
-
-sub add_file($)
-{
- my $file = shift;
- if ($files{$file})
- {
- $files{$file}->{'counter'}++;
- }
- else
- {
- $files{$file} = {
- #'type' => 'section',
- 'counter' => 1
- };
- }
-}
-
-# find parent element which is a top element, or a node within the top section
-sub get_top($)
-{
- my $element = shift;
- my $up = $element;
- while (!$up->{'toplevel'} and !$up->{'top'})
- {
- $up = $up->{'element_up'};
- if (!defined($up))
- {
- # If there is no section, it is normal not to have toplevel element,
- # and it is also the case if there is a low level element before
- # a top level element
- print STDERR "$WARN no toplevel for $element->{'texi'} (could be normal)\n" if (@sections_list);
- return undef;
- }
- }
- return $up;
-}
-
-sub get_node($)
-{
- my $element = shift;
- return undef if (!defined($element));
- return $element if ($element->{'node'});
- return $element->{'node_ref'} if ($element->{'node_ref'} and !$element->{'node_ref'}->{'element_added'});
- return $element;
-}
-# get the html names from the texi for all elements
-sub do_names()
-{
- # for nodes and anchors we haven't any state defined
- # This seems right, however, as we don't want @refs or @footnotes
- # or @anchors within nodes, section commands or anchors.
- foreach my $node (%nodes)
- {
- next if ($nodes{$node}->{'index_page'}); # some nodes are index pages.
- $nodes{$node}->{'text'} = substitute_line ($nodes{$node}->{'texi'});
- $nodes{$node}->{'name'} = $nodes{$node}->{'text'};
- $nodes{$node}->{'no_texi'} = &$Texi2HTML::Config::protect_text(remove_texi($nodes{$node}->{'texi'}));
- $nodes{$node}->{'unformatted'} = unformatted_text (undef, $nodes{$node}->{'texi'});
- # FIXME : what to do if $nodes{$node}->{'external_node'} and
- # $nodes{$node}->{'seen'}
- }
- foreach my $number (keys(%sections))
- {
- my $section = $sections{$number};
- $section->{'name'} = substitute_line ($section->{'texi'});
- $section->{'text'} = $section->{'number'} . " " . $section->{'name'};
- $section->{'text'} =~ s/^\s*//;
- $section->{'no_texi'} = &$Texi2HTML::Config::protect_text($section->{'number'} . " " .remove_texi($section->{'texi'}));
- $section->{'no_texi'} =~ s/^\s*//;
- $section->{'unformatted'} = &$Texi2HTML::Config::protect_text($section->{'number'}) . " " .unformatted_text(undef,$section->{'texi'});
- $section->{'unformatted'} =~ s/^\s*//;
- }
- my $tocnr = 1;
- foreach my $element (@elements_list)
- {
- if (!$element->{'top'} and !$element->{'index_page'})
- {
- $element->{'tocid'} = 'TOC' . $tocnr;
- $tocnr++;
- }
- next if (defined($element->{'text'}));
- if ($element->{'index_page'})
- {
- my $page = $element->{'page'};
- my $sec_name = $element->{'element_ref'}->{'text'};
- $element->{'text'} = ($page->{First} ne $page->{Last} ?
- "$sec_name: $page->{First} -- $page->{Last}" :
- "$sec_name: $page->{First}");
- $sec_name = $element->{'element_ref'}->{'no_texi'};
- $element->{'no_texi'} = &$Texi2HTML::Config::protect_text($page->{First} ne $page->{Last} ?
- "$sec_name: $page->{First} -- $page->{Last}" :
- "$sec_name: $page->{First}");
- $sec_name = $element->{'element_ref'}->{'unformatted'};
- $element->{'unformatted'} = $page->{First} ne $page->{Last} ?
- "$sec_name: " . &$Texi2HTML::Config::protect_text("$page->{First} -- $page->{Last}") :
- "$sec_name: " . &$Texi2HTML::Config::protect_text("$page->{First}");
- }
- }
-}
-
-@{$Texi2HTML::TOC_LINES} = (); # table of contents
-@{$Texi2HTML::OVERVIEW} = (); # short table of contents
-
-
-
-#+++############################################################################
-# #
-# Stuff related to Index generation #
-# #
-#---############################################################################
-
-# FIXME what to do with index entries appearing in @copying
-# @documentdescription and @titlepage
-sub enter_index_entry($$$$$$)
-{
- my $prefix = shift;
- my $line_nr = shift;
- my $key = shift;
- my $place = shift;
- my $element = shift;
- my $use_section_id = shift;
- unless (exists ($index_properties->{$prefix}))
- {
- echo_error ("Undefined index command: ${prefix}index", $line_nr);
- #warn "$ERROR Undefined index command: ${prefix}index\n";
- return 0;
- }
- if (!exists($element->{'tag'}) and !$element->{'footnote'})
- {
- echo_warn ("Index entry before document: \@${prefix}index $key", $line_nr);
- }
- $key =~ s/\s+$//;
- $key =~ s/^\s*//;
- my $entry = $key;
- # The $key is mostly usefull for alphabetical sorting
- $key = remove_texi($key);
- return if ($key =~ /^\s*$/);
- while (exists $index->{$prefix}->{$key})
- {
- $key .= ' ';
- }
- my $id = '';
- unless ($use_section_id)
- {
- $id = 'IDX' . ++$idx_num;
- }
- $index->{$prefix}->{$key}->{'entry'} = $entry;
- $index->{$prefix}->{$key}->{'element'} = $element;
- $index->{$prefix}->{$key}->{'label'} = $id;
- $index->{$prefix}->{$key}->{'prefix'} = $prefix;
- push @$place, $index->{$prefix}->{$key};
- print STDERR "# enter ${prefix}index '$key' with id $id ($index->{$prefix}->{$key})\n"
- if ($T2H_DEBUG & $DEBUG_INDEX);
- push @index_labels, $index->{$prefix}->{$key};
- return $index->{$prefix}->{$key};
-}
-
-# returns prefix of @?index command associated with 2 letters prefix name
-# for example returns 'c' for 'cp'
-sub index_name2prefix
-{
- my $name = shift;
- my $prefix;
-
- for $prefix (keys %$index_properties)
- {
- return $prefix if ($index_properties->{$prefix}->{'name'} eq $name);
- }
- return undef;
-}
-
-# get all the entries (for all the prefixes) in the $normal and $code
-# references, formatted with @code{code } if it is a $code entry.
-sub get_index_entries($$)
-{
- my $normal = shift;
- my $code = shift;
- my $entries = {};
- foreach my $prefix (keys %$normal)
- {
- for my $key (keys %{$index->{$prefix}})
- {
- $entries->{$key} = $index->{$prefix}->{$key};
- }
- }
-
- if (defined($code))
- {
- foreach my $prefix (keys %$code)
- {
- unless (exists $normal->{$prefix})
- {
- foreach my $key (keys %{$index->{$prefix}})
- {
- $entries->{$key} = $index->{$prefix}->{$key};
- # use @code for code style index entry
- $entries->{$key}->{'entry'} = "\@code{$entries->{$key}->{entry}}";
- }
- }
- }
- }
- return $entries;
-}
-
-# sort according to cmp if both $a and $b are alphabetical or non alphabetical,
-# otherwise the alphabetical is ranked first
-sub by_alpha
-{
- if ($a =~ /^[A-Za-z]/)
- {
- if ($b =~ /^[A-Za-z]/)
- {
- return lc($a) cmp lc($b);
- }
- else
- {
- return 1;
- }
- }
- elsif ($b =~ /^[A-Za-z]/)
- {
- return -1;
- }
- else
- {
- return lc($a) cmp lc($b);
- }
-}
-
-# returns an array of index entries pages splitted by letters
-# each page has the following members:
-# {First} first letter on that page
-# {Last} last letter on that page
-# {Letters} ref on an array with all the letters for that page
-# {EntriesByLetter} ref on a hash. Each key is a letter, with value
-# a ref on arrays of index entries begining with this letter
-sub get_index_pages($)
-{
- my $entries = shift;
- my (@Letters);
- my ($EntriesByLetter, $Pages, $page) = ({}, [], {});
- my @keys = sort by_alpha keys %$entries;
-
- # each index entry is placed according to its first letter in
- # EntriesByLetter
- for my $key (@keys)
- {
- push @{$EntriesByLetter->{uc(substr($key,0, 1))}} , $entries->{$key};
- }
- @Letters = sort by_alpha keys %$EntriesByLetter;
- $Texi2HTML::Config::SPLIT_INDEX = 0 unless $Texi2HTML::Config::SPLIT;
-
- if ($Texi2HTML::Config::SPLIT_INDEX and $Texi2HTML::Config::SPLIT_INDEX =~ /^\d+$/)
- {
- my $i = 0;
- my ($prev_letter);
- for my $letter (@Letters)
- {
- if ($i > $Texi2HTML::Config::SPLIT_INDEX)
- {
- $page->{Last} = $prev_letter;
- push @$Pages, $page;
- $i=0;
- }
- if ($i == 0)
- {
- $page = {};
- $page->{Letters} = [];
- $page->{EntriesByLetter} = {};
- $page->{First} = $letter;
- }
- push @{$page->{Letters}}, $letter;
- $page->{EntriesByLetter}->{$letter} = [@{$EntriesByLetter->{$letter}}];
- $i += scalar(@{$EntriesByLetter->{$letter}});
- $prev_letter = $letter;
- }
- $page->{Last} = $Letters[$#Letters];
- push @$Pages, $page;
- }
- else
- {
- warn "$WARN Bad Texi2HTML::Config::SPLIT_INDEX: $Texi2HTML::Config::SPLIT_INDEX\n" if ($Texi2HTML::Config::SPLIT_INDEX);
- $page->{First} = $Letters[0];
- $page->{Last} = $Letters[$#Letters];
- $page->{Letters} = \@Letters;
- $page->{EntriesByLetter} = $EntriesByLetter;
- push @$Pages, $page;
- return $Pages;
- }
- return $Pages;
-}
-
-sub get_index($;$)
-{
- my $name = shift;
- my $line_nr = shift;
- return (@{$indices{$name}}) if ($indices{$name});
- my $prefix = index_name2prefix($name);
- unless ($prefix)
- {
- echo_error ("Bad index name: $name", $line_nr);
- #warn "$ERROR Bad index name: $name\n";
- return;
- }
- if ($index_properties->{$prefix}->{code})
- {
- $index_properties->{$prefix}->{from_code}->{$prefix} = 1;
- }
- else
- {
- $index_properties->{$prefix}->{from}->{$prefix}= 1;
- }
-
- my $Entries = get_index_entries($index_properties->{$prefix}->{from},
- $index_properties->{$prefix}->{from_code});
- return unless %$Entries;
- my $Pages = get_index_pages($Entries);
- $indices{$name} = [ $Pages, $Entries ];
- return ($Pages, $Entries);
-}
-
-my @foot_lines = (); # footnotes
-my $copying_comment = ''; # comment constructed from text between
- # @copying and @end copying with licence
-my $from_encoding; # texinfo file encoding
-my $to_encoding; # out file encoding
-my %acronyms_like = (); # acronyms or similar commands associated texts
- # the key are the commands, the values are
- # hash references associating shorthands to
- # texts.
-
-sub initialise_state($)
-{
- my $state = shift;
- $state->{'preformatted'} = 0 unless exists($state->{'preformatted'});
- $state->{'code_style'} = 0 unless exists($state->{'code_style'});
- $state->{'keep_texi'} = 0 unless exists($state->{'keep_texi'});
- $state->{'keep_nr'} = 0 unless exists($state->{'keep_nr'});
- $state->{'detailmenu'} = 0 unless exists($state->{'detailmenu'}); # number of opened detailed menus
- $state->{'format_stack'} = [ {'format' => "noformat"} ] unless exists($state->{'format_stack'});
- $state->{'paragraph_style'} = [ '' ] unless exists($state->{'paragraph_style'});
- $state->{'preformatted_stack'} = [ '' ] unless exists($state->{'preformatted_stack'});
- $state->{'menu'} = 0 unless exists($state->{'menu'});
- $state->{'style_stack'} = [] unless exists($state->{'style_stack'});
- $state->{'quotation_stack'} = [] unless exists($state->{'quotation_stack'});
- # if there is no $state->{'element'} the first element is used
- $state->{'element'} = $elements_list[0] unless (exists($state->{'element'}) and !$state->{'element'}->{'before_anything'});
-}
-
-sub pass_text()
-{
- my %state;
- initialise_state (\%state);
- my @stack;
- my $text;
- my $doc_nr;
- my $in_doc = 0;
- my $element;
- my @text =();
- my @section_lines = ();
- my @head_lines = ();
- my $one_section = 1 if (@elements_list == 1);
-
- if (@elements_list == 0)
- {
- warn "$WARN empty document\n";
- exit (0);
- }
-
- # We set titlefont only if the titlefont appeared in the top element
- if (defined($element_top->{'titlefont'}))
- {
- $element_top->{'has_heading'} = 1;
- $value{'_titlefont'} = $element_top->{'titlefont'};
- }
-
- # prepare %Texi2HTML::THISDOC
-# $Texi2HTML::THISDOC{'settitle_texi'} = $value{'_settitle'};
- $Texi2HTML::THISDOC{'fulltitle_texi'} = '';
- $Texi2HTML::THISDOC{'title_texi'} = '';
- foreach my $possible_fulltitle (('_title', '_settitle', '_shorttitlepage', '_titlefont'))
- {
- if ($value{$possible_fulltitle} ne '')
- {
- $Texi2HTML::THISDOC{'fulltitle_texi'} = $value{$possible_fulltitle};
- last;
- }
- }
- foreach my $possible_title_texi ($value{'_settitle'}, $Texi2HTML::THISDOC{'fulltitle_texi'})
- {
- if ($possible_title_texi ne '')
- {
- $Texi2HTML::THISDOC{'title_texi'} = $possible_title_texi;
- last;
- }
- }
-# $Texi2HTML::THISDOC{'fulltitle_texi'} = $value{'_title'} || $value{'_settitle'} || $value{'_shorttitlepage'} || $value{'_titlefont'};
-# $Texi2HTML::THISDOC{'title_texi'} = $value{'_title'} || $value{'_settitle'} || $value{'_shorttitlepage'} || $value{'_titlefont'};
- foreach my $texi_cmd (('shorttitlepage', 'settitle', 'author',
- 'titlefont', 'subtitle', 'shorttitle'))
- {
- $Texi2HTML::THISDOC{$texi_cmd . '_texi'} = $value{'_' . $texi_cmd};
- }
- foreach my $doc_thing (('shorttitlepage', 'settitle', 'author',
- 'titlefont', 'subtitle', 'shorttitle', 'fulltitle', 'title'))
- {
- my $thing_texi = $Texi2HTML::THISDOC{$doc_thing . '_texi'};
- $Texi2HTML::THISDOC{$doc_thing} = substitute_line($thing_texi);
- $Texi2HTML::THISDOC{$doc_thing . '_no_texi'} =
- &$Texi2HTML::Config::protect_text(remove_texi($thing_texi));
- $Texi2HTML::THISDOC{$doc_thing . '_unformatted'} =
- unformatted_text(undef, $thing_texi);
- }
-# $Texi2HTML::THISDOC{'shorttitlepage_texi'} = $value{'_shorttitlepage'};
-# $Texi2HTML::THISDOC{'fulltitle'} = substitute_line($value{'_title'}) || substitute_line($value{'_settitle'}) || substitute_line($value{'_shorttitlepage'}) || substitute_line($value{'_titlefont'});
-# $Texi2HTML::THISDOC{'title'} = substitute_line($value{'_settitle'}) || $Texi2HTML::THISDOC{'fulltitle'};
-# $Texi2HTML::THISDOC{'shorttitle'} = substitute_line($value{'_shorttitle'});
-
- # find Top name
- my $element_top_text = '';
- my $top_no_texi = '';
- my $top_unformatted = '';
- my $top_name;
- if ($element_top and $element_top->{'text'} and (!$node_top or ($element_top ne $node_top)))
- {
- $element_top_text = $element_top->{'text'};
- $top_no_texi = $element_top->{'no_texi'};
- $top_unformatted = $element_top->{'unformatted'};
- }
- foreach my $possible_top_name ($Texi2HTML::Config::TOP_HEADING,
- $element_top_text, $Texi2HTML::THISDOC{'title'},
- $Texi2HTML::THISDOC{'shorttitle'}, &$I('Top'))
- {
- if (defined($possible_top_name) and $possible_top_name ne '')
- {
- $top_name = $possible_top_name;
- last;
- }
- }
- foreach my $possible_top_no_texi ($Texi2HTML::Config::TOP_HEADING,
- $top_no_texi, $Texi2HTML::THISDOC{'title_no_texi'},
- $Texi2HTML::THISDOC{'shorttitle_no_texi'},
- &$I('Top',{},{'remove_texi' => 1, 'no_protection' => 1}))
- {
- if (defined($possible_top_no_texi) and $possible_top_no_texi ne '')
- {
- $top_no_texi = $possible_top_no_texi;
- last;
- }
- }
-
- foreach my $possible_top_unformatted ($top_unformatted,
- $Texi2HTML::THISDOC{'title_unformatted'},
- $Texi2HTML::THISDOC{'shorttitle_unformatted'},
- &$I('Top',{}, {'unformatted' => 1}))
- {
- if (defined($possible_top_unformatted) and $possible_top_unformatted ne '')
- {
- $top_unformatted = $possible_top_unformatted;
- last;
- }
- }
-
-
-# my $top_name = $Texi2HTML::Config::TOP_HEADING || $element_top_text || $Texi2HTML::THISDOC{'title'} || $Texi2HTML::THISDOC{'shorttitle'} || &$I('Top');
-
- if ($Texi2HTML::THISDOC{'fulltitle_texi'} eq '')
- {
- $Texi2HTML::THISDOC{'fulltitle_texi'} = &$I('Untitled Document',{},
- {'keep_texi' => 1});
- }
- $Texi2HTML::THISDOC{'title_texi'} = $Texi2HTML::THISDOC{'settitle_texi'};
- $Texi2HTML::THISDOC{'title_texi'} = $Texi2HTML::THISDOC{'fulltitle_texi'}
- if ($Texi2HTML::THISDOC{'title_texi'} eq '');
-
- foreach my $doc_thing (('fulltitle', 'title'))
- {
- my $thing_texi = $Texi2HTML::THISDOC{$doc_thing . '_texi'};
- $Texi2HTML::THISDOC{$doc_thing} = substitute_line($thing_texi);
- $Texi2HTML::THISDOC{$doc_thing . '_no_texi'} =
- &$Texi2HTML::Config::protect_text(remove_texi($thing_texi));
- $Texi2HTML::THISDOC{$doc_thing . '_unformatted'} =
- unformatted_text(undef, $thing_texi);
- }
-# $Texi2HTML::THISDOC{'fulltitle'} = $Texi2HTML::THISDOC{'fulltitle'} || &$I('Untitled Document') ;
-# $Texi2HTML::THISDOC{'title'} = $Texi2HTML::THISDOC{'settitle'} || $Texi2HTML::THISDOC{'fulltitle'};
-# $Texi2HTML::THISDOC{'author'} = substitute_line($value{'_author'});
-# $Texi2HTML::THISDOC{'titlefont'} = substitute_line($value{'_titlefont'});
-# $Texi2HTML::THISDOC{'subtitle'} = substitute_line($value{'_subtitle'});
-
-# $Texi2HTML::THISDOC{'title_unformatted'} = unformatted_text(undef, $Texi2HTML::THISDOC{'title_texi'});
-# $Texi2HTML::THISDOC{'shorttitle_unformatted'} = unformatted_text(undef, $value{'_shorttitle'});
-# $Texi2HTML::THISDOC{'title_no_texi'} = &$Texi2HTML::Config::protect_text(remove_texi($value{'_title'})) || &$Texi2HTML::Config::protect_text(remove_texi($value{'_settitle'})) || &$Texi2HTML::Config::protect_text(remove_texi($value{'_shorttitlepage'})) || &$Texi2HTML::Config::protect_text(remove_texi($value{'_titlefont'}));
-# $Texi2HTML::THISDOC{'shorttitle_no_texi'} = &$Texi2HTML::Config::protect_text(remove_texi($value{'_shorttitle'}));
-
-# my $top_no_texi = '';
-# my $top_unformatted = '';
-# if ($element_top and $element_top->{'no_texi'} and (!$node_top or ($element_top ne $node_top)))
-# {
-# $top_no_texi = $element_top->{'no_texi'};
-# $top_unformatted = $element_top->{'unformatted'};
-# }
-
-# $top_no_texi = $Texi2HTML::Config::TOP_HEADING || $top_no_texi || $Texi2HTML::THISDOC{'title_no_texi'} || $Texi2HTML::THISDOC{'shorttitle_no_texi'} || &$I('Top',{}, {'remove_texi' => 1, 'no_protection' => 1});
-# $top_unformatted = $top_unformatted || $Texi2HTML::THISDOC{'title_unformatted'} || $Texi2HTML::THISDOC{'shorttitle_unformatted'} || &$I('Top',{}, {'unformatted' => 1});
-# $Texi2HTML::THISDOC{'title_unformatted'} = $Texi2HTML::THISDOC{'title_unformatted'} || &$I('Untitled Document',{}, {'unformatted' => 1});
-# $Texi2HTML::THISDOC{'title_no_texi'} = $Texi2HTML::THISDOC{'title_no_texi'} || &$I('Untitled Document',{}, {'remove_texi' => 1, 'no_protection' => 1});
-
- for my $key (keys %Texi2HTML::THISDOC)
- {
- next if (ref($Texi2HTML::THISDOC{$key}));
-print STDERR "!!$key\n" if (!defined($Texi2HTML::THISDOC{$key}));
- $Texi2HTML::THISDOC{$key} =~ s/\s*$//;
- }
- $Texi2HTML::THISDOC{'program'} = $THISPROG;
- $Texi2HTML::THISDOC{'program_homepage'} = $T2H_HOMEPAGE;
- $Texi2HTML::THISDOC{'program_authors'} = $T2H_AUTHORS;
- $Texi2HTML::THISDOC{'user'} = $T2H_USER;
-# $Texi2HTML::THISDOC{'documentdescription'} = $documentdescription;
- $Texi2HTML::THISDOC{'copying'} = $copying_comment;
- $Texi2HTML::THISDOC{'toc_file'} = '';
- $Texi2HTML::THISDOC{'toc_file'} = $docu_toc if ($Texi2HTML::Config::SPLIT);
- $Texi2HTML::THISDOC{'file_base_name'} = $docu_name;
- $Texi2HTML::THISDOC{'destination_directory'} = $docu_rdir;
- $Texi2HTML::THISDOC{'authors'} = [] if (!defined($Texi2HTML::THISDOC{'authors'}));
- $Texi2HTML::THISDOC{'subtitles'} = [] if (!defined($Texi2HTML::THISDOC{'subtitles'}));
- $Texi2HTML::THISDOC{'titles'} = [] if (!defined($Texi2HTML::THISDOC{'titles'}));
- foreach my $element (('authors', 'subtitles', 'titles'))
- {
- my $i;
- for ($i = 0; $i < $#{$Texi2HTML::THISDOC{$element}} + 1; $i++)
- {
- chomp ($Texi2HTML::THISDOC{$element}->[$i]);
- $Texi2HTML::THISDOC{$element}->[$i] = substitute_line($Texi2HTML::THISDOC{$element}->[$i]);
- #print STDERR "$element:$i: $Texi2HTML::THISDOC{$element}->[$i]\n";
- }
- }
- # prepare TOC, OVERVIEW
- if ($Texi2HTML::Config::SPLIT)
- {
- $Texi2HTML::HREF{'Contents'} = $docu_toc.'#SEC_Contents' if @{$Texi2HTML::TOC_LINES};
- $Texi2HTML::HREF{'Overview'} = $docu_stoc.'#SEC_Overview' if @{$Texi2HTML::OVERVIEW};
- $Texi2HTML::HREF{'Footnotes'} = $docu_foot. '#SEC_Foot';
- $Texi2HTML::HREF{'About'} = $docu_about . '#SEC_About' unless $one_section;
- }
- else
- {
- $Texi2HTML::HREF{'Contents'} = '#SEC_Contents' if @{$Texi2HTML::TOC_LINES};
- $Texi2HTML::HREF{'Overview'} = '#SEC_Overview' if @{$Texi2HTML::OVERVIEW};
- $Texi2HTML::HREF{'Footnotes'} = '#SEC_Foot';
- $Texi2HTML::HREF{'About'} = '#SEC_About' unless $one_section;
- }
-
- %Texi2HTML::NAME =
- (
- 'First', $element_first->{'text'},
- 'Last', $element_last->{'text'},
- 'About', &$I('About This Document'),
- 'Contents', &$I('Table of Contents'),
- 'Overview', &$I('Short Table of Contents'),
- 'Top', $top_name,
- 'Footnotes', &$I('Footnotes'),
- );
- $Texi2HTML::NAME{'Index'} = $element_chapter_index->{'text'} if (defined($element_chapter_index));
- $Texi2HTML::NAME{'Index'} = $Texi2HTML::Config::INDEX_CHAPTER if ($Texi2HTML::Config::INDEX_CHAPTER ne '');
-
- %Texi2HTML::NO_TEXI =
- (
- 'First', $element_first->{'no_texi'},
- 'Last', $element_last->{'no_texi'},
-#FIXME this is not really NO_TEXI as there may be some formatting expanded
-# in &$I, using substitute_line
- 'About', &$I('About This Document', {}, {'remove_texi' => 1, 'no_protection' => 1} ),
- 'Contents', &$I('Table of Contents', {}, {'remove_texi' => 1, 'no_protection' => 1} ),
- 'Overview', &$I('Short Table of Contents', {}, {'remove_texi' => 1, 'no_protection' => 1} ),
- 'Top', $top_no_texi,
- 'Footnotes', &$I('Footnotes', {}, {'remove_texi' => 1, 'no_protection' => 1} ),
- );
- $Texi2HTML::NO_TEXI{'Index'} = $element_chapter_index->{'no_texi'} if (defined($element_chapter_index));
- %Texi2HTML::UNFORMATTED =
- (
- 'First', $element_first->{'unformatted'},
- 'Last', $element_last->{'unformatted'},
-#FIXME this is not really UNFORMATTED as there may be some formatting expanded
-# in &$I, using substitute_line
- 'About', &$I('About This Document', {}, {'unformatted' => 1}),
- 'Contents', &$I('Table of Contents',{}, {'unformatted' => 1}),
- 'Overview', &$I('Short Table of Contents', {}, {'unformatted' => 1}),
- 'Top', $top_unformatted,
- 'Footnotes', &$I('Footnotes', {},{'unformatted' => 1}),
- );
- $Texi2HTML::UNFORMATTED{'Index'} = $element_chapter_index->{'unformatted'} if (defined($element_chapter_index));
- $Texi2HTML::TITLEPAGE = '';
- $Texi2HTML::TITLEPAGE = substitute_text({}, @{$region_lines{'titlepage'}})
- if (@{$region_lines{'titlepage'}});
- &$Texi2HTML::Config::titlepage();
-
- $to_encoding = &$Texi2HTML::Config::init_out();
-
- ############################################################################
- # print frame and frame toc file
- #
- if ( $Texi2HTML::Config::FRAMES )
- {
- #open(FILE, "> $docu_frame_file")
- # || die "$ERROR: Can't open $docu_frame_file for writing: $!\n";
- my $FH = open_out($docu_frame_file);
- print STDERR "# Creating frame in $docu_frame_file ...\n" if $T2H_VERBOSE;
- &$Texi2HTML::Config::print_frame($FH, $docu_toc_frame_file, $docu_top_file);
- close_out($FH, $docu_frame_file);
-
- #open(FILE, "> $docu_toc_frame_file")
- # || die "$ERROR: Can't open $docu_toc_frame_file for writing: $!\n";
- $FH = open_out($docu_toc_frame_file);
- print STDERR "# Creating toc frame in $docu_frame_file ...\n" if $T2H_VERBOSE;
- #&$Texi2HTML::Config::print_toc_frame(\*FILE, $Texi2HTML::OVERVIEW);
- &$Texi2HTML::Config::print_toc_frame($FH, $Texi2HTML::OVERVIEW);
- #close(FILE);
- close_out($FH, $docu_toc_frame_file);
- }
-
- ############################################################################
- #
- #
-
- my $FH;
- my $index_pages;
- my $index_pages_nr;
- my $index_nr = 0;
- my $line_nr;
- my $first_section = 0; # 1 if it is the first section of a page
- while (@doc_lines)
- {
- unless ($index_pages)
- { # not in a index split over sections
- $_ = shift @doc_lines;
- my $chomped_line = $_;
- if (!chomp($chomped_line) and @doc_lines)
- { # if the line has no end of line it is concatenated with the next
- $doc_lines[0] = $_ . $doc_lines[0];
- next;
- }
- $line_nr = shift (@doc_numbers);
- #print STDERR "$line_nr->{'file_name'}($line_nr->{'macro'},$line_nr->{'line_nr'}) $_" if ($line_nr);
- }
- #print STDERR "PASS_TEXT: $_";
- #dump_stack(\$text, \@stack, \%state);
- if (!$state{'raw'} and !$state{'verb'})
- {
- my $tag = '';
- $tag = $1 if (/^\@(\w+)/ and !$index_pages);
-
- if (($tag eq 'node') or defined($sec2level{$tag}) or $index_pages)
- {
- if (@stack or (defined($text) and $text ne ''))
- {# in pass text node and section shouldn't appear in formats
- #print STDERR "close_stack before \@$tag\n";
- #print STDERR "text!$text%" if (! @stack);
- close_stack(\$text, \@stack, \%state, $line_nr);
- push @section_lines, $text;
- $text = '';
- }
- $sec_num++ if ($sec2level{$tag});
- my $new_element;
- my $current_element;
- if ($tag =~ /heading/)
- {# handle headings, they are not in element lists
- $current_element = $sections{$sec_num};
- #print STDERR "HEADING $_";
- if (! $element)
- {
- $new_element = shift @elements_list;
- $element->{'has_heading'} = 1 if ($new_element->{'top'});
- }
- else
- {
- if ($element->{'top'})
- {
- $element->{'has_heading'} = 1;
- }
- push (@section_lines, &$Texi2HTML::Config::anchor($current_element->{'id'}) . "\n");
- push @section_lines, &$Texi2HTML::Config::heading($current_element);
- next;
- }
- }
- elsif (!$index_pages)
- {# handle node and structuring elements
- $current_element = shift (@all_elements);
- #begin debug section
- if ($current_element->{'node'})
- {
- print STDERR 'NODE ' . "$current_element->{'texi'}($current_element->{'file'})" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- print STDERR "($current_element->{'section_ref'}->{'texi'})" if ($current_element->{'section_ref'} and ($T2H_DEBUG & $DEBUG_ELEMENTS));
- }
- else
- {
- print STDERR 'SECTION ' . $current_element->{'texi'} if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- }
- print STDERR ": $_" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- #end debug section
-
- # The element begins a new section if there is no previous
- # or it is an element and not the current one or the
- # associated section (in case of node) is not the current one
- if (!$element
- or ($current_element->{'element'} and ($current_element ne $element))
- or ($current_element->{'section_ref'} and ($current_element->{'section_ref'} ne $element)))
- {
- $new_element = shift @elements_list;
- }
- # begin debugging section
- my $section_element = $new_element;
- $section_element = $element unless ($section_element);
- if (!$current_element->{'node'} and !$current_element->{'index_page'} and ($section_element ne $current_element))
- {
- print STDERR "NODE: $element->{'texi'}\n" if ($element->{'node'});
- warn "elements_list and all_elements not in sync (elements $section_element->{'texi'}, all $current_element->{'texi'}): $_";
- }
- # end debugging section
- }
- else
- { # this is a new index section
- $new_element = $index_pages->[$index_pages_nr]->{'element'};
- $current_element = $index_pages->[$index_pages_nr]->{'element'};
- print STDERR "New index page '$new_element->{'texi'}' nr: $index_pages_nr\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- my $list_element = shift @elements_list;
- die "element in index_pages $new_element->{'texi'} and in list $list_element->{'texi'} differs\n" unless ($list_element eq $new_element);
- }
- if ($new_element)
- {
- $index_nr = 0;
- my $old = 'NO_OLD';
- $old = $element->{'texi'} if (defined($element));
- print STDERR "NEW: $new_element->{'texi'}, OLD: $old\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
-# FIXME this should be done differently now that there could be elements
-# associated with the same file
- if ($element and ($new_element->{'doc_nr'} != $element->{'doc_nr'}) and @foot_lines and !$Texi2HTML::Config::SEPARATED_FOOTNOTES)
- { # note that this can only happen if $Texi2HTML::Config::SPLIT
- &$Texi2HTML::Config::foot_section (\@foot_lines);
- push @section_lines, @foot_lines;
- @foot_lines = ();
- $relative_foot_num = 0;
- }
- # print the element that just finished
- $Texi2HTML::THIS_SECTION = \@section_lines;
- $Texi2HTML::THIS_HEADER = \@head_lines;
- if ($element)
- {
- #$FH = finish_element($FH, $element, $new_element, $first_section);
- finish_element($FH, $element, $new_element, $first_section);
- $first_section = 0;
- @section_lines = ();
- @head_lines = ();
- }
- else
- {
- print STDERR "# Writing elements:" if ($T2H_VERBOSE);
- if ($Texi2HTML::Config::IGNORE_PREAMBLE_TEXT)
- {
- @section_lines = ();
- @head_lines = ();
- }
- # remove empty line at the beginning of @section_lines
- shift @section_lines while (@section_lines and ($section_lines[0] =~ /^\s*$/));
- }
- # begin new element
- my $previous_file;
- $previous_file = $element->{'file'} if (defined($element));
- $element = $new_element;
- $state{'element'} = $element;
- $Texi2HTML::THIS_ELEMENT = $element;
- #print STDERR "Doing hrefs for $element->{'texi'} First ";
- $Texi2HTML::HREF{'First'} = href($element_first, $element->{'file'});
- #print STDERR "Last ";
- $Texi2HTML::HREF{'Last'} = href($element_last, $element->{'file'});
- #print STDERR "Index ";
- $Texi2HTML::HREF{'Index'} = href($element_chapter_index, $element->{'file'}) if (defined($element_chapter_index));
- #print STDERR "Top ";
- $Texi2HTML::HREF{'Top'} = href($element_top, $element->{'file'});
- foreach my $direction (('Up', 'Forward', 'Back', 'Next',
- 'Prev', 'FastForward', 'FastBack', 'This', 'NodeUp',
- 'NodePrev', 'NodeNext', 'Following' ))
- {
- my $elem = $element->{$direction};
- $Texi2HTML::NODE{$direction} = undef;
- $Texi2HTML::HREF{$direction} = undef;
- next unless (defined($elem));
- #print STDERR "$direction ";
- if ($elem->{'node'} or $elem->{'external_node'} or $elem->{'index_page'} or !$elem->{'seen'})
- {
- $Texi2HTML::NODE{$direction} = $elem->{'text'};
- }
- elsif ($elem->{'node_ref'})
- {
- $Texi2HTML::NODE{$direction} = $elem->{'node_ref'}->{'text'};
- }
- if (!$elem->{'seen'})
- {
- $Texi2HTML::HREF{$direction} = do_external_href($elem->{'texi'});
- }
- else
- {
- $Texi2HTML::HREF{$direction} = href($elem, $element->{'file'});
- }
- $Texi2HTML::NAME{$direction} = $elem->{'text'};
- $Texi2HTML::NO_TEXI{$direction} = $elem->{'no_texi'};
- $Texi2HTML::UNFORMATTED{$direction} = $elem->{'unformatted'};
- #print STDERR "$direction ($element->{'texi'}): \n NO_TEXI: $Texi2HTML::NO_TEXI{$direction}\n NAME $Texi2HTML::NAME{$direction}\n NODE $Texi2HTML::NODE{$direction}\n HREF $Texi2HTML::HREF{$direction}\n\n";
- }
- #print STDERR "\nDone hrefs for $element->{'texi'}\n";
- $files{$element->{'file'}}->{'counter'}--;
- #if (! defined($FH))
- if (!defined($previous_file) or ($element->{'file'} ne $previous_file))
- {
- my $file = $element->{'file'};
- print STDERR "\n" if ($T2H_VERBOSE and !$T2H_DEBUG);
- print STDERR "# Writing to $docu_rdir$file " if $T2H_VERBOSE;
- my $do_page_head = 0;
- if ($files{$file}->{'filehandle'})
- {
- $FH = $files{$file}->{'filehandle'};
- }
- else
- {
- $FH = open_out("$docu_rdir$file");
- $files{$file}->{'filehandle'} = $FH;
- $do_page_head = 1;
- }
- if ($element->{'top'})
- {
- &$Texi2HTML::Config::print_Top_header($FH, $do_page_head);
- }
- else
- {
- &$Texi2HTML::Config::print_page_head($FH) if ($do_page_head);
- &$Texi2HTML::Config::print_chapter_header($FH) if $Texi2HTML::Config::SPLIT eq 'chapter';
- &$Texi2HTML::Config::print_section_header($FH) if $Texi2HTML::Config::SPLIT eq 'section';
- }
- $first_section = 1;
- }
- print STDERR "." if ($T2H_VERBOSE);
- print STDERR "\n" if ($T2H_DEBUG);
- }
- my $label = &$Texi2HTML::Config::anchor($current_element->{'id'}) . "\n";
- if (@section_lines)
- {
- push (@section_lines, $label);
- }
- else
- {
- push @head_lines, $label;
- }
- if ($index_pages)
- {
- push @section_lines, &$Texi2HTML::Config::heading($element);
- #print STDERR "Do index page $index_pages_nr\n";
- my $page = do_index_page($index_pages, $index_pages_nr);
- push @section_lines, $page;
- if (defined ($index_pages->[$index_pages_nr + 1]))
- {
- $index_pages_nr++;
- }
- else
- {
- $index_pages = undef;
- }
- next;
- }
- push @section_lines, &$Texi2HTML::Config::heading($current_element) if ($current_element->{'element'} and !$current_element->{'top'});
- next;
- }
- elsif ($tag eq 'printindex')
- {
- s/\s+(\w+)\s*//;
- my $name = $1;
- close_paragraph(\$text, \@stack, \%state);
- next if (!index_name2prefix($name) or $empty_indices{$name});
- $printed_indices{$name} = 1;
- print STDERR "print index $name($index_nr) in `$element->{'texi'}', element->{'indices'}: $element->{'indices'},\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS or $T2H_DEBUG & $DEBUG_INDEX);
- print STDERR "element->{'indices'}->[index_nr]: $element->{'indices'}->[$index_nr] (@{$element->{'indices'}->[$index_nr]})\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS or $T2H_DEBUG & $DEBUG_INDEX);
- $index_pages = $element->{'indices'}->[$index_nr] if (@{$element->{'indices'}->[$index_nr]} > 1);
- $index_pages_nr = 0;
- add_prev(\$text, \@stack, do_index_page($element->{'indices'}->[$index_nr], 0));
- $index_pages_nr++;
- $index_nr++;
- begin_paragraph (\@stack, \%state) if ($state{'preformatted'});
- next if (@stack);
- push @section_lines, $text;
- $text = '';
- next;
- }
- elsif ($tag eq 'contents')
- {
- next;
- }
- }
- scan_line($_, \$text, \@stack, \%state, $line_nr);
- #print STDERR "after scan_line: $_";
- #dump_stack(\$text, \@stack, \%state);
- next if (@stack);
- if ($text ne '' )
- {
- push @section_lines, $text;
- $text = '';
- }
- }
- if (@stack)
- {# close stack at the end of pass text
- close_stack(\$text, \@stack, \%state, $line_nr);
- }
- if (defined($text))
- {
- push @section_lines, $text;
- }
- print STDERR "\n" if ($T2H_VERBOSE);
- $Texi2HTML::THIS_SECTION = \@section_lines;
- # if no sections, then simply print document as is
- if ($one_section)
- {
- if (@foot_lines)
- {
- &$Texi2HTML::Config::foot_section (\@foot_lines);
- push @section_lines, @foot_lines;
- }
- $Texi2HTML::THIS_HEADER = \@head_lines;
- if ($element->{'top'})
- {
- print STDERR "Bug: `$element->{'texi'}' level undef\n" if (!$element->{'node'} and !defined($element->{'level'}));
- $element->{'level'} = 1 if (!defined($element->{'level'}));
- $element->{'node'} = 0; # otherwise Texi2HTML::Config::heading may uses the node level
- $element->{'text'} = $Texi2HTML::NAME{'Top'};
- print STDERR "[Top]" if ($T2H_VERBOSE);
- unless ($element->{'has_heading'})
- {
- unshift @section_lines, &$Texi2HTML::Config::heading($element);
- }
- }
- print STDERR "# Write the section $element->{'texi'}\n" if ($T2H_VERBOSE);
- &$Texi2HTML::Config::one_section($FH);
- close_out($FH);
- return;
- }
-
- finish_element ($FH, $element, undef, $first_section);
-
- ############################################################################
- # Print ToC, Overview, Footnotes
- #
- for my $direction (('Prev', 'Next', 'Back', 'Forward', 'Up', 'NodeUp',
- 'NodePrev', 'NodeNext', 'Following', 'This'))
- {
- delete $Texi2HTML::HREF{$direction};
- # it is better to undef in case the references to these hash entries
- # are used, as if deleted, the
- # references are still refering to the old, undeleted element
- # (we could do both)
- $Texi2HTML::NAME{$direction} = undef;
- $Texi2HTML::NO_TEXI{$direction} = undef;
- $Texi2HTML::UNFORMATTED{$direction} = undef;
- $Texi2HTML::NODE{$direction} = undef;
-
- $Texi2HTML::THIS_ELEMENT = undef;
- }
- if (@foot_lines)
- {
- print STDERR "# writing Footnotes in $docu_foot_file\n" if $T2H_VERBOSE;
- #open (FILE, "> $docu_foot_file") || die "$ERROR: Can't open $docu_foot_file for writing: $!\n"
- $FH = open_out ($docu_foot_file)
- if $Texi2HTML::Config::SPLIT;
- $Texi2HTML::HREF{'This'} = $Texi2HTML::HREF{'Footnotes'};
- $Texi2HTML::HREF{'Footnotes'} = '#' . $footnote_element->{'id'};
- $Texi2HTML::NAME{'This'} = $Texi2HTML::NAME{'Footnotes'};
- $Texi2HTML::NO_TEXI{'This'} = $Texi2HTML::NO_TEXI{'Footnotes'};
- $Texi2HTML::UNFORMATTED{'This'} = $Texi2HTML::UNFORMATTED{'Footnotes'};
- $Texi2HTML::THIS_SECTION = \@foot_lines;
- $Texi2HTML::THIS_HEADER = [ &$Texi2HTML::Config::anchor($footnote_element->{'id'}) . "\n" ];
- #&$Texi2HTML::Config::print_Footnotes(\*FILE);
- &$Texi2HTML::Config::print_Footnotes($FH);
- #close(FILE) if $Texi2HTML::Config::SPLIT;
- close_out($FH, $docu_foot_file)
- #|| die "$ERROR: Error occurred when closing $docu_foot_file: $!\n"
- if ($Texi2HTML::Config::SPLIT);
- $Texi2HTML::HREF{'Footnotes'} = $Texi2HTML::HREF{'This'};
- }
-
- if (@{$Texi2HTML::TOC_LINES})
- {
- print STDERR "# writing Toc in $docu_toc_file\n" if $T2H_VERBOSE;
- #open (FILE, "> $docu_toc_file") || die "$ERROR: Can't open $docu_toc_file for writing: $!\n"
- $FH = open_out ($docu_toc_file)
- if $Texi2HTML::Config::SPLIT;
- $Texi2HTML::HREF{'This'} = $Texi2HTML::HREF{'Contents'};
- $Texi2HTML::HREF{'Contents'} = "#SEC_Contents";
- $Texi2HTML::NAME{'This'} = $Texi2HTML::NAME{'Contents'};
- $Texi2HTML::NO_TEXI{'This'} = $Texi2HTML::NO_TEXI{'Contents'};
- $Texi2HTML::UNFORMATTED{'This'} = $Texi2HTML::UNFORMATTED{'Contents'};
- $Texi2HTML::THIS_SECTION = $Texi2HTML::TOC_LINES;
- $Texi2HTML::THIS_HEADER = [ &$Texi2HTML::Config::anchor("SEC_Contents") . "\n" ];
- #&$Texi2HTML::Config::print_Toc(\*FILE);
- #close(FILE) if $Texi2HTML::Config::SPLIT;
- &$Texi2HTML::Config::print_Toc($FH);
- close_out($FH, $docu_toc_file)
- #|| die "$ERROR: Error occurred when closing $docu_toc_file: $!\n"
- if ($Texi2HTML::Config::SPLIT);
- $Texi2HTML::HREF{'Contents'} = $Texi2HTML::HREF{'This'};
- }
-
- if (@{$Texi2HTML::OVERVIEW})
- {
- print STDERR "# writing Overview in $docu_stoc_file\n" if $T2H_VERBOSE;
- #open (FILE, "> $docu_stoc_file") || die "$ERROR: Can't open $docu_stoc_file for writing: $!\n"
- $FH = open_out ($docu_stoc_file)
- if $Texi2HTML::Config::SPLIT;
- $Texi2HTML::HREF{This} = $Texi2HTML::HREF{Overview};
- $Texi2HTML::HREF{Overview} = "#SEC_Overview";
- $Texi2HTML::NAME{This} = $Texi2HTML::NAME{Overview};
- $Texi2HTML::NO_TEXI{This} = $Texi2HTML::NO_TEXI{Overview};
- $Texi2HTML::UNFORMATTED{This} = $Texi2HTML::UNFORMATTED{Overview};
- $Texi2HTML::THIS_SECTION = $Texi2HTML::OVERVIEW;
- $Texi2HTML::THIS_HEADER = [ &$Texi2HTML::Config::anchor("SEC_Overview") . "\n" ];
- #&$Texi2HTML::Config::print_Overview(\*FILE);
- #close(FILE) if $Texi2HTML::Config::SPLIT;
- &$Texi2HTML::Config::print_Overview($FH);
- close_out($FH,$docu_stoc_file)
- #|| die "$ERROR: Error occurred when closing $docu_stoc_file: $!\n"
- if ($Texi2HTML::Config::SPLIT);
- $Texi2HTML::HREF{Overview} = $Texi2HTML::HREF{This};
- }
- my $about_body;
- if ($about_body = &$Texi2HTML::Config::about_body())
- {
- print STDERR "# writing About in $docu_about_file\n" if $T2H_VERBOSE;
- #open (FILE, "> $docu_about_file") || die "$ERROR: Can't open $docu_about_file for writing: $!\n"
- $FH = open_out ($docu_about_file)
- if $Texi2HTML::Config::SPLIT;
-
- $Texi2HTML::HREF{This} = $Texi2HTML::HREF{About};
- $Texi2HTML::HREF{About} = "#SEC_About";
- $Texi2HTML::NAME{This} = $Texi2HTML::NAME{About};
- $Texi2HTML::NO_TEXI{This} = $Texi2HTML::NO_TEXI{About};
- $Texi2HTML::UNFORMATTED{This} = $Texi2HTML::UNFORMATTED{About};
- $Texi2HTML::THIS_SECTION = [$about_body];
- $Texi2HTML::THIS_HEADER = [ &$Texi2HTML::Config::anchor("SEC_About") . "\n" ];
- #&$Texi2HTML::Config::print_About(\*FILE);
- #close(FILE) if $Texi2HTML::Config::SPLIT;
- &$Texi2HTML::Config::print_About($FH);
- close_out($FH, $docu_stoc_file)
- #|| die "$ERROR: Error occurred when closing $docu_stoc_file: $!\n"
- if ($Texi2HTML::Config::SPLIT);
- $Texi2HTML::HREF{About} = $Texi2HTML::HREF{This};
- }
-
- unless ($Texi2HTML::Config::SPLIT)
- {
- &$Texi2HTML::Config::print_page_foot($FH);
- close_out ($FH);
- # || die "$ERROR: Error occurred when closing: $!\n";
- }
-}
-
-# print section, close file and undef FH if needed.
-sub finish_element($$$$)
-{
- my $FH = shift;
- my $element = shift;
- my $new_element = shift;
- my $first_section = shift;
-#print STDERR "FINISH_ELEMENT($FH)($element->{'texi'})[$element->{'file'}] counter $files{$element->{'file'}}->{'counter'}\n";
- if ($element->{'top'})
- {
- my $top_file = $docu_top_file;
- #print STDERR "TOP $element->{'texi'}, @section_lines\n";
- print STDERR "[Top]" if ($T2H_VERBOSE);
- $Texi2HTML::HREF{'Top'} = href($element_top, $element->{'file'});
- &$Texi2HTML::Config::print_Top($FH, $element->{'has_heading'});
- my $end_page = 0;
- if ($Texi2HTML::Config::SPLIT)
- {
- if (!$files{$element->{'file'}}->{'counter'})
- {
- $end_page = 1;
- }
- }
- &$Texi2HTML::Config::print_Top_footer($FH, $end_page);
- close_out($FH, $top_file) if ($end_page);
- }
- else
- {
- print STDERR "# do element $element->{'texi'}\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- &$Texi2HTML::Config::print_section($FH, $first_section);
- if (defined($new_element) and ($new_element->{'file'} ne $element->{'file'}))
- {
- if (!$files{$element->{'file'}}->{'counter'})
- {
- &$Texi2HTML::Config::print_chapter_footer($FH) if ($Texi2HTML::Config::SPLIT eq 'chapter');
- &$Texi2HTML::Config::print_section_footer($FH) if ($Texi2HTML::Config::SPLIT eq 'section');
- #print STDERR "Close file after $element->{'texi'}\n";
- &$Texi2HTML::Config::print_page_foot($FH);
- close_out($FH);
- }
- else
- {
- print STDERR "counter $files{$element->{'file'}}->{'counter'} ne 0, file $element->{'file'}\n";
- }
- undef $FH;
- }
- elsif (!defined($new_element))
- {
- if ($Texi2HTML::Config::SPLIT)
- { # end of last splitted section
- &$Texi2HTML::Config::print_chapter_footer($FH) if ($Texi2HTML::Config::SPLIT eq 'chapter');
- &$Texi2HTML::Config::print_section_footer($FH) if ($Texi2HTML::Config::SPLIT eq 'section');
- &$Texi2HTML::Config::print_page_foot($FH);
- close_out($FH);
- }
- else
- {
- &$Texi2HTML::Config::end_section($FH, 1);
- }
- }
- elsif ($new_element->{'top'})
- {
- &$Texi2HTML::Config::end_section($FH, 1);
- }
- else
- {
- &$Texi2HTML::Config::end_section($FH);
- }
- }
- return $FH;
-}
-
-# write to files with name the node name for cross manual references.
-sub do_node_files()
-{
- foreach my $key (keys(%nodes))
- {
- my $node = $nodes{$key};
- next unless ($node->{'node_file'});
- my $redirection_file = $docu_doc;
- $redirection_file = $node->{'file'} if ($Texi2HTML::Config::SPLIT);
- if (!$redirection_file)
- {
- print STDERR "Bug: file for redirection for `$node->{'texi'}' don't exist\n" unless ($novalidate);
- next;
- }
- next if ($redirection_file eq $node->{'node_file'});
- my $file = "${docu_rdir}$node->{'node_file'}";
- $Texi2HTML::NODE{'This'} = $node->{'text'};
- $Texi2HTML::NO_TEXI{'This'} = $node->{'no_texi'};
- $Texi2HTML::UNFORMATTED{'This'} = $node->{'no_texi'};
- $Texi2HTML::NAME{'This'} = $node->{'text'};
- $Texi2HTML::HREF{'This'} = "$node->{'file'}#$node->{'id'}";
- open (NODEFILE, "> $file") || die "$ERROR Can't open $file for writing: $!\n";
- &$Texi2HTML::Config::print_redirection_page (\*NODEFILE);
- close NODEFILE || die "$ERROR: Can't close $file: $!\n";
- }
-}
-
-#+++############################################################################
-# #
-# Low level functions #
-# #
-#---############################################################################
-
-sub locate_include_file($)
-{
- my $file = shift;
-
- # APA: Don't implicitely search ., to conform with the docs!
- # return $file if (-e $file && -r $file);
- foreach my $dir (@Texi2HTML::Config::INCLUDE_DIRS)
- {
- return "$dir/$file" if (-e "$dir/$file" && -r "$dir/$file");
- }
- return undef;
-}
-
-sub open_file($$)
-{
- my $name = shift;
- my $line_number = shift;
- local *FH;
- #if ((defined($from_encoding) and open(*FH, ":encoding($from_encoding)", $name)) or open(*FH, $name))
- #if ((defined($from_encoding) and open(*FH, "<:$from_encoding", $name)) or open(*FH, $name))
- if (open(*FH, "<$name"))
- {
- if (defined($from_encoding))
- {
- binmode(*FH, ":encoding($from_encoding)");
- }
- my $file = { 'fh' => *FH,
- 'input_spool' => { 'spool' => [],
- 'macro' => '' },
- 'name' => $name,
- 'line_nr' => 0 };
- unshift(@fhs, $file);
- $input_spool = $file->{'input_spool'};
- $line_number->{'file_name'} = $name;
- $line_number->{'line_nr'} = 1;
- }
- else
- {
- warn "$ERROR Can't read file $name: $!\n";
- }
-}
-
-sub open_out($)
-{
- my $file = shift;
- if ($file eq '-')
- {
- binmode(STDOUT, ":encoding($to_encoding)") if (defined($to_encoding));
- return \*STDOUT;
- }
- #unless ((defined($to_encoding) and open(FILE, ">:encoding($to_encoding)", $file)) or open(FILE, "> $file"))
- #my $open_style = 'bytes';
- #$open_style = 'utf8' if (defined($to_encoding) and $to_encoding eq 'utf8');
- #if (defined($to_encoding) and $to_encoding eq 'utf8')
- #{
- # $open_style = 'utf8';
- # print STDERR "$open_style\n";
- #}
- #unless ((defined($to_encoding) and open(FILE, ">:$open_style", $file)) or open(FILE, "> $file"))
- unless (open(FILE, ">$file"))
- {
- die "$ERROR Can't open $file for writing: $!\n";
- }
- if (defined($to_encoding))
- {
- if ($to_encoding eq 'utf8')
- {
- binmode(FILE, ':utf8');
- }
- else
- {
- binmode(FILE, ':bytes');
- }
- binmode(FILE, ":encoding($to_encoding)");
- }
- return \*FILE;
-}
-
-sub close_out($;$)
-{
- my $FH = shift;
- my $file = shift;
- $file = '' if (!defined($file));
- return if ($Texi2HTML::Config::OUT eq '');
- close ($FH) || die "$ERROR: Error occurred when closing $file: $!\n";
-}
-
-sub next_line($)
-{
- my $line_number = shift;
- while (@fhs)
- {
- my $file = $fhs[0];
- $line_number->{'file_name'} = $file->{'name'};
- $input_spool = $file->{'input_spool'};
- if (@{$input_spool->{'spool'}})
- {
- $line_number->{'macro'} = $file->{'input_spool'}->{'macro'};
- $line_number->{'line_nr'} = $file->{'line_nr'};
- my $line = shift(@{$input_spool->{'spool'}});
- print STDERR "# unspooling $line" if ($T2H_DEBUG & $DEBUG_MACROS);
- return($line);
- }
- else
- {
- $file->{'input_spool'}->{'macro'} = '';
- $line_number->{'macro'} = '';
- }
- my $fh = $file->{'fh'};
- no strict "refs";
- my $line = <$fh>;
- use strict "refs";
- my $chomped_line = $line;
- $file->{'line_nr'}++ if (defined($line) and chomp($chomped_line));
- $line_number->{'line_nr'} = $file->{'line_nr'};
- return($line) if (defined($line));
- no strict "refs";
- close($fh);
- use strict "refs";
- shift(@fhs);
- }
- return(undef);
-}
-
-# echo a warning
-sub echo_warn($;$)
-{
- my $text = shift;
- chomp ($text);
- my $line_number = shift;
- warn "$WARN $text " . format_line_number($line_number) . "\n";
-}
-
-sub echo_error($;$)
-{
- my $text = shift;
- chomp ($text);
- my $line_number = shift;
- warn "$ERROR $text " . format_line_number($line_number) . "\n";
-}
-
-sub format_line_number($)
-{
- my $line_number = shift;
- my $macro_text = '';
- #$line_number = undef;
- return '' unless (defined($line_number));
- $macro_text = " in $line_number->{'macro'}" if ($line_number->{'macro'} ne '');
- my $file_text = '(';
- $file_text = "(in $line_number->{'file_name'} " if ($line_number->{'file_name'} ne $docu);
- return "${file_text}l. $line_number->{'line_nr'}" . $macro_text . ')';
-}
-
-# to debug, dump the result of pass_texi and pass_structure in a file
-sub dump_texi($$;$$)
-{
- my $lines = shift;
- my $pass = shift;
- my $numbers = shift;
- my $file = shift;
- $file = "$docu_rdir$docu_name" . ".pass$pass" if (!defined($file));
- unless (open(DMPTEXI, ">$file"))
- {
- warn "Can't open $file for writing: $!\n";
- }
- print STDERR "# Dump texi\n" if ($T2H_VERBOSE);
- my $index = 0;
- foreach my $line (@$lines)
- {
- my $number_information = '';
- my $chomped_line = $line;
- $number_information = "$numbers->[$index]->{'file_name'}($numbers->[$index]->{'macro'},$numbers->[$index]->{'line_nr'}) " if (defined($numbers));
- print DMPTEXI "${number_information}$line";
- $index++ if (chomp($chomped_line));
- }
- close DMPTEXI;
-}
-
-# return next tag on the line
-sub next_tag($)
-{
- my $line = shift;
- if ($line =~ /^\s*\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/])/o or $line =~ /^\s*\@([a-zA-Z]\w*)([\s\{\}\@])/ or $line =~ /^\s*\@([a-zA-Z]\w*)$/)
- {
- return ($1);
- }
- return '';
-}
-
-sub top_stack($)
-{
- my $stack = shift;
- return undef unless(@$stack);
- return $stack->[-1];
-}
-
-# return the next element with balanced {}
-sub next_bracketed($$)
-{
- my $line = shift;
- my $line_nr = shift;
- my $opened_braces = 0;
- my $result = '';
- my $spaces;
- if ($line =~ /^(\s*)$/)
- {
- return ('','',$1);
- }
- while ($line !~ /^\s*$/)
- {
-#print STDERR "next_bracketed($opened_braces): $result !!! $line";
- if (!$opened_braces)
- { # beginning of item
- $line =~ s/^(\s*)//;
- $spaces = $1;
- #if ($line =~ s/^([^\{\}\s]+)//)
- if ($line =~ s/^([^\{\}]+?)(\s+)/$2/ or $line =~ s/^([^\{\}]+?)$//)
- {
- $result = $1;
- $result =~ s/\s*$//;
- return ($result, $line, $spaces);
- }
- elsif ($line =~ s/^([^\{\}]+?)([\{\}])/$2/)
- {
- $result = $1;
- }
- }
- elsif($line =~ s/^([^\{\}]+)//)
- {
- $result .= $1;
- }
- if ($line =~ s/^([\{\}])//)
- {
- my $brace = $1;
- $opened_braces++ if ($brace eq '{');
- $opened_braces-- if ($brace eq '}');
-
- if ($opened_braces < 0)
- {
- echo_error("too much '}' in specification", $line_nr);
- $opened_braces = 0;
- next;
- }
- $result .= $brace;
- return ($result, $line, $spaces) if ($opened_braces == 0);
- }
- }
- if ($opened_braces)
- {
- echo_error("'{' not closed in specification", $line_nr);
- return ($result . ( '}' x $opened_braces), '', $spaces);
- }
- print STDERR "BUG: at the end of next_bracketed\n";
- return undef;
-}
-
-# do a href using file and id and taking care of ommitting file if it is
-# the same
-# element: structuring element to point to
-# file: current file
-sub href($$)
-{
- my $element = shift;
- my $file = shift;
- return '' unless defined($element);
- my $href = '';
- print STDERR "Bug: $element->{'texi'}, id undef\n" if (!defined($element->{'id'}));
- print STDERR "Bug: $element->{'texi'}, file undef\n" if (!defined($element->{'file'}));
-#foreach my $key (keys(%{$element}))
-#{
-# my $value = 'UNDEF'; $value = $element->{$key} if defined($element->{$key});
-# print STDERR "$key: $value\n";
-#}print STDERR "\n";
- $href .= $element->{'file'} if (defined($element->{'file'}) and $file ne $element->{'file'});
- $href .= "#$element->{'id'}" if (defined($element->{'id'}));
- return $href;
-}
-
-sub normalise_space($)
-{
- return undef unless (defined ($_[0]));
- my $text = shift;
- $text =~ s/\s+/ /go;
- $text =~ s/ $//;
- $text =~ s/^ //;
- return $text;
-}
-
-sub normalise_node($)
-{
- return undef unless (defined ($_[0]));
- my $text = shift;
- $text = normalise_space($text);
- $text =~ s/^top$/Top/i;
- return $text;
-}
-
-sub do_math($;$)
-{
- #return l2h_ToLatex("\$".$_[0]."\$");
- return Texi2HTML::LaTeX2HTML::to_latex("\$".$_[0]."\$");
-}
-
-sub do_anchor_label($$$$)
-{
- my $command = shift;
- #my $anchor = shift;
- my $args = shift;
- my $anchor = $args->[0];
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- return '' if ($state->{'multiple_pass'});
- $anchor = normalise_node($anchor);
- return &$Texi2HTML::Config::anchor($nodes{$anchor}->{'id'});
-}
-
-sub get_format_command($)
-{
- my $format = shift;
- my $command = '';
- my $format_name = '';
- my $term = 0;
- my $item_nr;
- my $paragraph_number;
- my $enumerate_type;
- my $number;
-
- if (defined($format) and ref($format) eq "HASH")
- {
- $command = $format->{'command'};
- $command = '' if (!defined($command));
- $paragraph_number = \$format->{'paragraph_number'};
- $format_name = $format->{'format'};
- $term = 1 if ($format->{'term'}); #This should never happen
- $item_nr = $format->{'item_nr'};
- $enumerate_type = $format->{'spec'};
- $number = $format->{'number'};
- }
- return ($format_name, $command, $paragraph_number, $term, $item_nr,
- $enumerate_type, $number);
-}
-
-sub do_paragraph($$)
-{
- my $text = shift;
- my $state = shift;
- my ($format, $paragraph_command, $paragraph_number, $term, $item_nr,
- $enumerate_type, $number) = get_format_command ($state->{'paragraph'});
- delete $state->{'paragraph'};
- my $paragraph_command_formatted;
- $state->{'paragraph_nr'}--;
- (print STDERR "Bug text undef in do_paragraph", return '') unless defined($text);
- my $align = '';
- $align = $state->{'paragraph_style'}->[-1] if ($state->{'paragraph_style'}->[-1]);
-
- if (exists($style_map_ref->{$paragraph_command}) and
- !exists($Texi2HTML::Config::special_list_commands{$format}->{$paragraph_command}))
- {
- if ($format eq 'itemize')
- {
- chomp ($text);
- $text = do_simple($paragraph_command, $text, $state, [$text]);
- $text = $text . "\n";
- }
- }
- elsif (exists($things_map_ref->{$paragraph_command}))
- {
- $paragraph_command_formatted = do_simple($paragraph_command, '', $state);
- }
- return &$Texi2HTML::Config::paragraph($text, $align, $paragraph_command, $paragraph_command_formatted, $paragraph_number, $format, $item_nr, $enumerate_type, $number);
-}
-
-sub do_preformatted($$)
-{
- my $text = shift;
- my $state = shift;
- my ($format, $leading_command, $preformatted_number, $term, $item_nr, $enumerate_type,
- $number) = get_format_command($state->{'preformatted_format'});
- delete ($state->{'preformatted_format'});
- my $leading_command_formatted;
- my $pre_style = '';
- my $class = '';
- $pre_style = $state->{'preformatted_stack'}->[-1]->{'pre_style'} if ($state->{'preformatted_stack'}->[-1]->{'pre_style'});
- $class = $state->{'preformatted_stack'}->[-1]->{'class'};
- print STDERR "BUG: !state->{'preformatted_stack'}->[-1]->{'class'}\n" unless ($class);
- if (exists($style_map_ref->{$leading_command}) and
- !exists($Texi2HTML::Config::special_list_commands{$format}->{$leading_command}) and ($style_type{$leading_command} eq 'style'))
- {
- $text = do_simple($leading_command, $text, $state,[$text]) if ($format eq 'itemize');
- }
- elsif (exists($things_map_ref->{$leading_command}))
- {
- $leading_command_formatted = do_simple($leading_command, '', $state);
- }
- return &$Texi2HTML::Config::preformatted($text, $pre_style, $class, $leading_command, $leading_command_formatted, $preformatted_number, $format, $item_nr, $enumerate_type, $number);
-}
-
-sub do_external_href($)
-{
- my $texi_node = shift;
- my $file = '';
- my $node_id = '';
- my $node_xhtml_id = '';
- if ($texi_node =~ s/^\((.+?)\)//)
- {
- $file = $1;
- }
- $texi_node = normalise_node($texi_node);
- if ($texi_node ne '')
- {
- if (exists($nodes{$texi_node}) and ($nodes{$texi_node}->{'cross_manual_target'}))
- {
- $node_id = $nodes{$texi_node}->{'cross_manual_target'};
- }
- else
- {
- $node_id = cross_manual_line($texi_node);
- }
- $node_xhtml_id = node_to_id($node_id);
- }
- return &$Texi2HTML::Config::external_href($texi_node, $node_id,
- $node_xhtml_id, $file);
-}
-
-# transform node for cross ref name to id suitable for xhtml.
-sub node_to_id($)
-{
- my $cross_ref_node_name = shift;
- $cross_ref_node_name =~ s/^([0-9_])/g_t$1/;
- return $cross_ref_node_name;
-}
-
-# return 1 if the following tag shouldn't begin a line
-sub no_line($)
-{
- my $line = shift;
- my $next_tag = next_tag($line);
- return 1 if (($line =~ /^\s*$/) or $no_line_macros{$next_tag} or
- (($next_tag =~ /^(\w+?)index$/) and ($1 ne 'print')) or
- (($line =~ /^\@end\s+(\w+)/) and $no_line_macros{"end $1"}));
- return 0;
-}
-
-sub no_paragraph($$)
-{
- my $state = shift;
- my $line = shift;
- return ($state->{'paragraph'} or $state->{'preformatted'} or $state->{'remove_texi'} or no_line($line) or $state->{'no_paragraph'});
-}
-
-sub automatic_preformatted($$)
-{
- my $state = shift;
- my $macro = shift;
- return ($state->{'preformatted'} and
- !$Texi2HTML::Config::format_in_paragraph{$macro});
-}
-
-# handle raw formatting, ignored regions...
-sub do_text_macro($$$$)
-{
- my $type = shift;
- my $line = shift;
- my $state = shift;
- my $line_nr = shift;
- my $value;
- #print STDERR "do_text_macro $type\n";
-
- if (not $text_macros{$type})
- { # ignored text
- $state->{'ignored'} = $type;
- #print STDERR "IGNORED\n";
- }
- elsif ($text_macros{$type} eq 'raw' or $text_macros{$type} eq 'special')
- {
- $state->{'raw'} = $type;
- #print STDERR "RAW\n";
- }
- elsif ($text_macros{$type} eq 'value')
- {
- if (($line =~ s/(\s+)($VARRE)$//) or ($line =~ s/(\s+)($VARRE)(\s)//))
- {
- $value = $1 . $2;
- $value .= $3 if defined($3);
- if ($type eq 'ifclear')
- {
- if (defined($value{$2}))
- {
- $state->{'ignored'} = $type;
- }
- else
- {
- push @{$state->{'text_macro_stack'}}, $type;
- }
- }
- elsif ($type eq 'ifset')
- {
- unless (defined($value{$2}))
- {
- $state->{'ignored'} = $type;
- }
- else
- {
- push @{$state->{'text_macro_stack'}}, $type;
- }
- }
- }
- else
- {
- echo_error ("Bad $type line: $line", $line_nr);
- #warn "$ERROR Bad $type line: $line";
- }
- }
- else
- {
- push @{$state->{'text_macro_stack'}}, $type;
- }
- my $text = "\@$type";
- $text .= $value if defined($value);
- return ($line, $text);
-}
-
-# do regions handled specially, currently only tex, going throug latex2html
-sub do_special ($$)
-{
- my $style = shift;
- my $text = shift;
- if ($style eq 'tex')
- {
- # add space to the end -- tex(i2dvi) does this, as well
- #return (l2h_ToLatex($text . " "));
- return (Texi2HTML::LaTeX2HTML::to_latex($text . " "));
- }
-}
-
-sub do_insertcopying($)
-{
- my $state = shift;
- return '' unless @{$region_lines{'copying'}};
- return substitute_text(duplicate_state($state), @{$region_lines{'copying'}});
-}
-
-sub get_deff_index($$$)
-{
- my $tag = shift;
- my $line = shift;
- my $line_nr = shift;
-
- $tag =~ s/x$// if $tag =~ /x$/;
- my ($style, $category, $name, $type, $class, $arguments);
- ($style, $category, $name, $type, $class, $arguments) = parse_def($tag, $line, $line_nr);
- # FIXME -- --- ''... should be protected for name and maybe class
- $name = &$Texi2HTML::Config::definition_category($name, $class, $style);
- return undef if (!$name or ($name =~ /^\s*$/));
- return ($style, $name);
-}
-
-sub parse_def($$$)
-{
- my $tag = shift;
- my $line = shift;
- my $line_nr = shift;
-
- if (!ref ($Texi2HTML::Config::def_map{$tag}))
- {
- # substitute shortcuts for definition commands
- my $substituted = $Texi2HTML::Config::def_map{$tag};
- $substituted =~ s/(\w+)//;
- $tag = $1;
- $line = $substituted . $line;
- }
-#print STDERR "PARSE_DEF $line";
- my ($category, $name, $type, $class, $arguments);
- my @args = @{$Texi2HTML::Config::def_map{$tag}};
- my $style = shift @args;
- while (@args)
- {
- my $arg = shift @args;
- if (defined($arg))
- {
- # backward compatibility, it was possible to have a { in front.
- $arg =~ s/^\{//;
- my $item;
- my $spaces;
- ($item, $line,$spaces) = next_bracketed($line, $line_nr);
- last if (!defined($item));
- $item =~ s/^\{(.*)\}$/$1/ if ($item =~ /^\{/);
- if ($arg eq 'category')
- {
- $category = $item;
- }
- elsif ($arg eq 'name')
- {
- $name = $item;
- }
- elsif ($arg eq 'type')
- {
- $type = $item;
- }
- elsif ($arg eq 'class')
- {
- $class = $item;
- }
- elsif ($arg eq 'arg')
- {
- $line = $spaces . $item . $line;
- }
- }
- else
- {
- # chomp ($line);
- # $line =~ s/\s*$//;
- # $arguments = $line if ($line ne '');
- last;
- }
- }
- #return ($style, $category, $name, $type, $class, $arguments);
-#print STDERR "PARSE_DEF (style $style, category $category, name $name, type $type, class $class, line $line)\n";
- return ($style, $category, $name, $type, $class, $line);
-}
-
-#FIXME this is rather fragile.
-sub begin_deff_item($$;$)
-{
- my $stack = shift;
- my $state = shift;
- my $no_paragraph = shift;
- return if ($state->{'cmd_line'});
- #print STDERR "DEF push deff_item for $state->{'deff'}\n";
- push @$stack, { 'format' => 'deff_item', 'text' => '' };
- # there is no paragraph when a new deff just follows the deff we are
- # opening
- begin_paragraph($stack, $state) if ($state->{'preformatted'} and !$no_paragraph);
- $state->{'deff'} = undef;
- delete($state->{'deff'});
- #dump_stack(undef, $stack, $state);
-}
-
-sub begin_paragraph($$)
-{
- my $stack = shift;
- my $state = shift;
-
- my $command = 1;
- my $top_format = top_format($stack);
- if (defined($top_format))
- {
- $command = $top_format;
- }
- if ($state->{'preformatted'})
- {
- push @$stack, {'format' => 'preformatted', 'text' => '' };
- $state->{'preformatted_format'} = $command if ($command ne '1');
- push @$stack, @{$state->{'paragraph_macros'}} if $state->{'paragraph_macros'};
- delete $state->{'paragraph_macros'};
- return;
- }
- $state->{'paragraph'} = $command;
- $state->{'paragraph_nr'}++;
- push @$stack, {'format' => 'paragraph', 'text' => '' };
- # if there are macros which weren't closed when the previous
- # paragraph was closed we reopen them here
- push @$stack, @{$state->{'paragraph_macros'}} if $state->{'paragraph_macros'};
- delete $state->{'paragraph_macros'};
-}
-
-sub parse_format_command($$)
-{
- my $line = shift;
- my $tag = shift;
- my $command = 'asis';
- if (($line =~ /^\s*\@([A-Za-z]\w*)(\{\})?$/ or $line =~ /^\s*\@([A-Za-z]\w*)(\{\})?\s/) and ($things_map_ref->{$1} or defined($style_map_ref->{$1})))
- {
- $line =~ s/^\s*\@([A-Za-z]\w*)(\{\})?\s*//;
- $command = $1;
- }
- return ('', $command) if ($line =~ /^\s*$/);
- chomp $line;
- $line = substitute_text ({'keep_nr' => 1, 'keep_texi' => 1, 'check_item' => $tag}, $line);
- return ($line, $command);
-}
-
-sub parse_enumerate($)
-{
- my $line = shift;
- my $spec;
- if ($line =~ /^\s*(\w)\b/ and ($1 ne '_'))
- {
- $spec = $1;
- $line =~ s/^\s*(\w)\s*//;
- }
- return ($line, $spec);
-}
-
-sub parse_multitable($$)
-{
- my $line = shift;
- my $line_nr = shift;
- # first find the table width
- my $table_width = 0;
- if ($line =~ s/^\s+\@columnfractions\s+//)
- {
- my @fractions = split /\s+/, $line;
- $table_width = $#fractions + 1;
- while (@fractions)
- {
- my $fraction = shift @fractions;
- unless ($fraction =~ /^(\d*\.\d+)|(\d+)\.?$/)
- {
- echo_error ("column fraction not a number: $fraction", $line_nr);
- #warn "$ERROR column fraction not a number: $fraction";
- }
- }
- }
- else
- {
- my $element;
- my $line_orig = $line;
- while ($line !~ /^\s*$/)
- {
- my $spaces;
- ($element, $line, $spaces) = next_bracketed($line, $line_nr);
- if ($element =~ /^\{/)
- {
- $table_width++;
- }
- else
- {
- echo_error ("garbage in multitable specification: $element", $line_nr);
- }
- }
- }
- return ($table_width);
-}
-
-sub end_format($$$$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $format = shift;
- my $line_nr = shift;
- #print STDERR "END FORMAT $format\n";
- #dump_stack($text, $stack, $state);
- #sleep 1;
- close_menu($text, $stack, $state, $line_nr) if ($format_type{$format} eq 'menu');
- if (($format_type{$format} eq 'list') or ($format_type{$format} eq 'table'))
- { # those functions return if they detect an inapropriate context
- add_item($text, $stack, $state, $line_nr, '', 1); # handle lists
- add_term($text, $stack, $state, $line_nr, 1); # handle table
- add_line($text, $stack, $state, $line_nr, 1); # handle table
- add_row($text, $stack, $state, $line_nr); # handle multitable
- }
-
- #print STDERR "END_FORMAT\n";
- #dump_stack($text, $stack, $state);
-
- my $format_ref = pop @$stack;
-
- # debug
- if (!defined($format_ref->{'text'}))
- {
- push @$stack, $format_ref;
- print STDERR "Bug: text undef in end_format $format\n";
- dump_stack($text, $stack, $state);
- pop @$stack;
- }
-
- if (defined($Texi2HTML::Config::def_map{$format}))
- {
- close_stack($text, $stack, $state, $line_nr, undef, 'deff_item') unless ($format_ref->{'format'} eq 'deff_item');
- add_prev($text, $stack, &$Texi2HTML::Config::def_item($format_ref->{'text'}));
- $format_ref = pop @$stack; # pop deff
- if (!defined($format_ref->{'format'}) or !defined($Texi2HTML::Config::def_map{$format_ref->{'format'}}))
- {
- print STDERR "Bug: not a def* under deff_item\n";
- push (@$stack, $format_ref);
- dump_stack($text, $stack, $state);
- pop @$stack;
- }
- elsif ($format_ref->{'format'} ne $format)
- {
- echo_warn ("Waiting for \@end $format_ref->{'format'}, found \@end $format", $line_nr);
- }
- add_prev($text, $stack, &$Texi2HTML::Config::def($format_ref->{'text'}));
- }
- elsif ($format_type{$format} eq 'cartouche')
- {
- add_prev($text, $stack, &$Texi2HTML::Config::cartouche($format_ref->{'text'}));
- }
- elsif ($format eq 'float')
- {
- if (!defined($state->{'float'}))
- {
- echo_warn ("Waiting for \@end $format_ref->{'format'}, found \@end $format", $line_nr);
- }
- else
- {
- my ($caption_lines, $shortcaption_lines) = &$Texi2HTML::Config::caption_shortcaption($state->{'float'});
- my ($caption_text, $shortcaption_text);
- $caption_text = substitute_text(duplicate_state($state), @$caption_lines) if (defined($caption_lines));
- $shortcaption_text = substitute_text(duplicate_state($state), @$shortcaption_lines) if (defined($shortcaption_lines));
- add_prev($text, $stack, &$Texi2HTML::Config::float($format_ref->{'text'}, $state->{'float'}, $caption_text, $shortcaption_text));
- delete $state->{'float'};
- }
- }
- elsif ($format_type{$format} eq 'menu')
- {
- if ($state->{'preformatted'})
- {
- # end the fake complex format
- $state->{'preformatted'}--;
- pop @{$state->{'preformatted_stack'}};
- pop @$stack;
- }
- $state->{'menu'}--;
- add_prev($text, $stack, &$Texi2HTML::Config::menu($format_ref->{'text'}));
- }
- elsif ($format_type{$format} eq 'complex')
- {
- $state->{'preformatted'}--;
- pop @{$state->{'preformatted_stack'}};
- # debug
- if (!defined($Texi2HTML::Config::complex_format_map->{$format_ref->{'format'}}->{'begin'}))
- {
- print STDERR "Bug undef $format_ref->{'format'}" . "->{'begin'} (for $format...)\n";
- dump_stack ($text, $stack, $state);
- }
- #print STDERR "before $format\n";
- #dump_stack ($text, $stack, $state);
- add_prev($text, $stack, &$Texi2HTML::Config::complex_format($format_ref->{'format'}, $format_ref->{'text'}));
- #print STDERR "after $format\n";
- #dump_stack ($text, $stack, $state);
- }
- elsif (($format_type{$format} eq 'table') or ($format_type{$format} eq 'list'))
- {
- #print STDERR "CLOSE $format ($format_ref->{'format'})\n$format_ref->{'text'}\n";
- pop @{$state->{'format_stack'}};
- #dump_stack($text, $stack, $state);
- if ($format_ref->{'format'} ne $format)
- {
- echo_warn ("Waiting for \@end $format_ref->{'format'}, found \@end $format", $line_nr);
- }
- if ($Texi2HTML::Config::format_map{$format})
- { # table or list has a simple format
- add_prev($text, $stack, end_simple_format($format_ref->{'format'}, $format_ref->{'text'}));
- }
- else
- { # table or list handler defined by the user
- add_prev($text, $stack, &$Texi2HTML::Config::table_list($format_ref->{'format'}, $format_ref->{'text'}, $format_ref->{'command'}));
- }
- }
- elsif ($format eq 'quotation')
- {
- my $quotation_args = pop @{$state->{'quotation_stack'}};
- add_prev($text, $stack, &$Texi2HTML::Config::quotation($format_ref->{'text'}, $quotation_args->{'text'}, $quotation_args->{'style_texi'}, $quotation_args->{'style_id'}));
- }
- elsif ($format_type{$format} eq 'paragraph_style')
- {
- if ($state->{'paragraph_style'}->[-1] eq $format)
- {
- pop @{$state->{'paragraph_style'}};
- }
- add_prev($text, $stack, &$Texi2HTML::Config::paragraph_style_command($format_ref->{'format'},$format_ref->{'text'}));
- }
- elsif (exists($Texi2HTML::Config::format_map{$format}))
- {
- if ($format_ref->{'format'} ne $format)
- { # FIXME hasn't that case been handled before ?
- echo_warn ("Waiting for \@end $format_ref->{'format'}, found \@end $format", $line_nr);
- }
- add_prev($text, $stack, end_simple_format($format_ref->{'format'}, $format_ref->{'text'}));
- }
- else
- {
- echo_warn("Unknown format $format", $line_nr);
- }
- # We restart the preformatted format which was stopped by the format
- # if in preformatted
- if (automatic_preformatted($state,$format))
- {
- #print STDERR "restart preformatted, $format\n";
- begin_paragraph($stack, $state);
- }
-}
-
-sub do_text($;$)
-{
- my $text = shift;
- my $state = shift;
- return $text if ($state->{'keep_texi'});
- if (defined($state) and !$state->{'preformatted'} and !$state->{'code_style'})
- {
- # in normal text `` and '' serve as quotes, --- is for a long dash
- # and -- for a medium dash.
- # (see texinfo.txi, @node Conventions)
- $text = &$Texi2HTML::Config::normal_text($text);
- }
- if ($state->{'no_protection'})
- {
- return $text;
- }
- return &$Texi2HTML::Config::protect_text($text);
-}
-
-sub end_simple_format($$)
-{
- my $tag = shift;
- my $text = shift;
-
- my $element = $Texi2HTML::Config::format_map{$tag};
- return &$Texi2HTML::Config::format($tag, $element, $text);
-}
-
-sub close_menu($$$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- if ($state->{'menu_comment'})
- {
- #print STDERR "close MENU_COMMENT Before close_stack\n";
- #dump_stack($text, $stack, $state);
- close_stack($text, $stack, $state, $line_nr, undef, 'menu_comment');
- # close_paragraph isn't needed in most cases, but A preformatted may
- # appear after close_stack if we closed a format, as formats reopen
- # preformatted. However it is empty and close_paragraph will remove it
- close_paragraph($text, $stack, $state);
- my $menu_comment = pop @$stack;
- if (!$menu_comment->{'format'} or $menu_comment->{'format'} ne 'menu_comment')
- {
- warn "Bug waiting for menu_comment, got $menu_comment->{'format'}\n";
- dump_stack($text, $stack, $state);
- }
- add_prev($text, $stack, &$Texi2HTML::Config::menu_comment($menu_comment->{'text'}));
- pop @{$state->{'preformatted_stack'}};
- $state->{'preformatted'}--;
- $state->{'menu_comment'}--;
- }
- if ($state->{'menu_entry'})
- {
- close_stack($text, $stack,$state, $line_nr, undef, 'menu_description');
- my $descr = pop(@$stack);
- print STDERR "# close_menu: close description\n" if ($T2H_DEBUG & $DEBUG_MENU);
- add_prev($text, $stack, menu_description($descr->{'text'}, $state));
- delete $state->{'menu_entry'};
- }
-}
-
-# Format menu link, the
-sub do_menu_link($$;$)
-{
- my $state = shift;
- my $line_nr = shift;
- my $simple = shift;
- my $menu_entry = $state->{'menu_entry'};
- my $file = $state->{'element'}->{'file'};
- my $node_name = normalise_node($menu_entry->{'node'});
-
- my $substitution_state = duplicate_state($state);
- my $name = substitute_line($menu_entry->{'name'}, $substitution_state);
- my $node = substitute_line($menu_entry->{'node'}, $substitution_state);
-
- if (($name ne '') and !$state->{'preformatted'} and $Texi2HTML::Config::AVOID_MENU_REDUNDANCY)
- {
- $name = '' unless (clean_text(remove_texi($menu_entry->{'name'}))
- ne clean_text(remove_texi($menu_entry->{'node'})))
- }
-
- my $entry = '';
- my $href;
- my $element = $nodes{$node_name};
- if ($element->{'seen'})
- {
- if ($element->{'with_section'})
- {
- $element = $element->{'with_section'};
- }
-
- #print STDERR "SUBHREF in menu for $element->{'texi'}\n";
- $href = href($element, $file);
- if (! $element->{'node'})
- {
- $entry = $element->{'text'}; # this is the section name without number
- $entry = $element->{'name'} if (!$Texi2HTML::Config::NUMBER_SECTIONS);
- $entry = "$Texi2HTML::Config::MENU_SYMBOL $entry" if (($entry ne '') and (!defined($element->{'number'}) or ($element->{'number'} =~ /^\s*$/)) and $Texi2HTML::Config::UNNUMBERED_SYMBOL_IN_MENU);
- }
- }
- elsif ($menu_entry->{'node'} =~ /^\s*\(.*\)/ or $novalidate)
- {#FIXME this is wrong for $novalidate
- # menu entry points to another info manual
- #$href = $nodes{$node_name}->{'file'};
- $href = do_external_href($node_name);
- }
- else
- {
- echo_error ("Unknown node in menu entry `$node_name'", $line_nr);
- }
- return &$Texi2HTML::Config::menu_link($entry, $state, $href, $node, $name, $menu_entry->{'ending'}) unless ($simple);
- return &$Texi2HTML::Config::simple_menu_link($entry, $state->{'preformatted'}, $href, $node, $name, $menu_entry->{'ending'});
-}
-
-sub menu_description($$)
-{
- my $descr = shift;
- my $state = shift;
- my $menu_entry = $state->{'menu_entry'};
- my $node_name = normalise_node($menu_entry->{'node'});
-
- my $element = $nodes{$node_name};
- if ($element->{'seen'})
- {
- if ($element->{'with_section'})
- {
- $element = $element->{'with_section'};
- }
- if ($Texi2HTML::Config::AVOID_MENU_REDUNDANCY && ($descr ne '') && !$state->{'preformatted'})
- {
- $descr = '' if (clean_text($element->{'name'}) eq clean_text($descr));
- }
- }
- return &$Texi2HTML::Config::menu_description($descr, $state);
-}
-
-sub clean_text($)
-{
- my $text = shift;
- $text =~ s/[^\w]//g;
- return $text;
-}
-
-sub do_xref($$$$)
-{
- my $macro = shift;
- #my $text = shift;
- my $args = shift;
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- my $result = '';
- #$text =~ s/\s+/ /gos; # remove useless spaces and newlines
- #my @args = split(/\s*,\s*/, $text);
- my @args = @$args;
- #print STDERR "DO_XREF: $macro\n";
- my $j = 0;
- for ($j = 0; $j <= $#$args; $j++)
- {
- $args[$j] = normalise_space($args[$j]);
- # print STDERR " ($j)$args[$j]\n";
- }
- #$args[0] = normalise_space($args[0]);
- $args[0] = '' if (!defined($args[0]));
- my $node_texi = normalise_node($args[0]);
- # a ref to a node in an info manual
- if ($args[0] =~ s/^\(([^\)]+)\)\s*//)
- {
- if ($macro eq 'inforef')
- {
- $args[2] = $1 unless ($args[2]);
- }
- else
- {
- $args[3] = $1 unless ($args[3]);
- }
- }
- if (($macro ne 'inforef') and $args[3])
- {
- $node_texi = "($args[3])" . normalise_node($args[0]);
- }
-
- if ($macro eq 'inforef')
- {
- if ((@args < 1) or ($args[0] eq ''))
- {
- echo_error ("Need a node name for \@$macro", $line_nr);
- return '';
- }
- if (@args > 3)
- {
- echo_warn ("Too much arguments for \@$macro", $line_nr);
- }
- $args[2] = '' if (!defined($args[2]));
- $args[1] = '' if (!defined($args[1]));
- $node_texi = "($args[2])$args[0]";
- }
-
- my $i;
- my $new_state = duplicate_state($state);
- $new_state->{'keep_texi'} = 0;
- $new_state->{'keep_nr'} = 0;
- for ($i = 0; $i < 5; $i++)
- {
- $args[$i] = substitute_line($args[$i], $new_state);
- }
- #print STDERR "(@args)\n";
-
- if (($macro eq 'inforef') or ($args[3] ne '') or ($args[4] ne ''))
- {# external ref
- if ($macro eq 'inforef')
- {
- $macro = 'xref';
- $args[3] = $args[2];
- }
- my $href = '';
- my $node_file = '';
- if ($args[3] ne '')
- {
- $href = do_external_href($node_texi);
- $node_file = "($args[3])$args[0]";
- }
- my $section = '';
- if ($args[4] ne '')
- {
- $section = $args[0];
- if ($args[2] ne '')
- {
- $section = $args[2];
- }
- }
- $result = &$Texi2HTML::Config::external_ref($macro, $section, $args[4], $node_file, $href, $args[1]);
- }
- else
- {
- my $element = $nodes{$node_texi};
- if ($element and $element->{'seen'})
- {
- if ($element->{'with_section'})
- {
- $element = $element->{'with_section'};
- }
- my $file = '';
- if (defined($state->{'element'}))
- {
- $file = $state->{'element'}->{'file'};
- }
- else
- {
- echo_warn ("\@$macro not in text (in anchor, node, section...)", $line_nr);
- # if Texi2HTML::Config::SPLIT the file is '' which ensures a href with the file
- # name. if ! Texi2HTML::Config::SPLIT the 2 file will be the same thus there
- # won't be the file name
- $file = $element->{'file'} unless ($Texi2HTML::Config::SPLIT);
- }
- #print STDERR "SUBHREF in ref `$node_texi': $_";
- my $href = href($element, $file);
- my $section = $args[2];
- $section = $args[1] if ($section eq '');
- my $name = $section;
- my $short_name = $section;
- if ($section eq '')
- {
- $name = $element->{'name'};
- $short_name = $args[0];
- }
- $result = &$Texi2HTML::Config::internal_ref ($macro, $href, $short_name, $name, $element->{'section'});
- }
- else
- {
- if (($node_texi eq '') or !$novalidate)
- {
- echo_error ("Undefined node `$node_texi' in \@$macro", $line_nr);
- my $text = '';
- for (my $i = 0; $i < @$args -1; $i++)
- {
- $text .= $args->[$i] .',';
- }
- $text .= $args->[-1];
- $result = "\@$macro"."{${text}}";
- }
- else
- {
- $result = &$Texi2HTML::Config::external_ref($macro, '', '', $args[0], do_external_href($node_texi), $args[1]);
- }
- }
- }
- return $result;
-}
-
-sub do_acronym_like($$$$$)
-{
- my $command = shift;
- my $args = shift;
- my $acronym_texi = shift @$args;
- my $explanation = shift @$args;
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- my $explanation_lines;
- my $explanation_text;
- my $explanation_unformatted;
-
- if (defined($explanation))
- {
- $explanation =~ s/^\s*//;
- $explanation =~ s/\s*$//;
- $explanation = undef if ($explanation eq '');
- }
- $acronym_texi =~ s/^\s*//;
- $acronym_texi =~ s/\s*$//;
-
- return '' if ($acronym_texi eq '');
-
- my $with_explanation = 0;
- my $normalized_text = cross_manual_line (normalise_node($acronym_texi));
- if (defined($explanation))
- {
- $with_explanation = 1;
- $acronyms_like{$command}->{$normalized_text} = $explanation;
- }
- elsif (exists($acronyms_like{$command}->{$normalized_text}))
- {
- $explanation = $acronyms_like{$command}->{$normalized_text};
- }
-
- if (defined($explanation))
- {
- @$explanation_lines = map {$_ = $_."\n"} split (/\n/, $explanation);
- my $text = '';
- foreach my $line(@$explanation_lines)
- {
- $line .= ' ' if (chomp ($line));
- $text .= $line
- }
- $text =~ s/ $//;
- my $unformatted_state = duplicate_state($state);
- $unformatted_state->{'unformatted'} = 1;
- $explanation_unformatted = substitute_line($text, $unformatted_state);
- $explanation_text = substitute_line($text, duplicate_state($state));
- }
- return &$Texi2HTML::Config::acronym_like($command, $acronym_texi, substitute_line ($acronym_texi, duplicate_state($state)),
- $with_explanation, $explanation_lines, $explanation_text, $explanation_unformatted);
-}
-
-sub do_caption_shortcaption($$$$$)
-{
- my $command = shift;
- my $args = shift;
- my $text = $args->[0];
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- if (!exists($state->{'float'}))
- {
-#dump_stack(\"", [], $state);
- echo_error("\@$command outside of float", $line_nr);
- return '';
- }
- my $float = $state->{'float'};
- my @texi_lines = map {$_ = $_."\n"} split (/\n/, $text);
- $float->{"${command}_texi"} = \@texi_lines;
- return '';
-}
-
-sub do_float_line($$$$$)
-{
- my $command = shift;
- my $args = shift;
- my @args = @$args;
- my $style_texi = shift @args;
- my $label_texi = shift @args;
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- $style_texi = undef if (defined($style_texi) and $style_texi=~/^\s*$/);
- $label_texi = undef if (defined($label_texi) and $label_texi=~/^\s*$/);
- if (defined($label_texi))
- {
- #my $id = cross_manual_line($label_texi);
- $state->{'float'} = $nodes{normalise_node($label_texi)};
- #print STDERR "float: $state->{'float'}, $state->{'float'}->{'texi'}\n";
- }
- else
- {
- $state->{'float'} = { 'float' => 1 };
- if (defined($style_texi))
- {
- $state->{'float'}->{'style_texi'} = normalise_space($style_texi);
- $state->{'float'}->{'style_id'} = cross_manual_line($style_texi);
- $state->{'float'}->{'style'} = substitute_line($style_texi);
- }
- #print STDERR "float: (no label) $state->{'float'}\n";
- }
- return '';
-}
-
-sub do_quotation_line($$$$$)
-{
- my $command = shift;
- my $args = shift;
- my @args = @$args;
- my $style_texi = shift @args;
- my $text_texi = shift @args;
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
- my $text;
-
- $style_texi = undef if (defined($style_texi) and $style_texi=~/^\s*$/);
- $text_texi = undef if (defined($text_texi) and $text_texi=~/^\s*$/);
- if (defined($style_texi) and !defined($text_texi))
- {
- $text_texi = $style_texi;
- $style_texi = undef;
- }
- if (defined($text_texi))
- {
- $text = substitute_line($text_texi, duplicate_state($state));
- $text =~ s/\s*$//;
- }
- my $quotation_args = { 'style_texi' => $style_texi, 'text' => $text, 'text_texi' => $text_texi };
- if (defined($style_texi))
- {
- $quotation_args->{'style_id'} = cross_manual_line(normalize_space($style_texi));
- }
- push @{$state->{'quotation_stack'}}, $quotation_args;
- $state->{'prepend_text'} = &$Texi2HTML::Config::quotation_prepend_text($style_texi, $text_texi);
- return '';
-}
-
-sub do_def_line($$$$$)
-{
- my $command = shift;
- my $args = shift;
- my @args = @$args;
- my $arguments = shift @args;
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- $state->{'deff'}->{'arguments'} = $arguments;
- return '';
-}
-
-sub do_footnote($$$$)
-{
- my $command = shift;
- my $args = shift;
- my $text = $args->[0];
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- $text .= "\n";
- $foot_num++;
- $relative_foot_num++;
- my $docid = "DOCF$foot_num";
- my $footid = "FOOT$foot_num";
- my $from_file = '';
- if ($state->{'element'} and $Texi2HTML::Config::SPLIT and $Texi2HTML::Config::SEPARATED_FOOTNOTES)
- {
- $from_file = $state->{'element'}->{'file'};
- }
- my %state;
- initialise_state (\%state);
- if ($Texi2HTML::Config::SEPARATED_FOOTNOTES)
- {
- $state{'element'} = $footnote_element;
- }
- else
- {
- $state{'element'} = $state->{'element'};
- }
- my $file = '';
- $file = $docu_foot if ($Texi2HTML::Config::SPLIT and $Texi2HTML::Config::SEPARATED_FOOTNOTES);
-
- # FIXME use split_lines ? It seems to work like it is now ?
- my @lines = substitute_text(\%state, map {$_ = $_."\n"} split (/\n/, $text));
- my ($foot_lines, $foot_label) = &$Texi2HTML::Config::foot_line_and_ref ($foot_num,
- $relative_foot_num, $footid, $docid, $from_file, $file, \@lines, $state);
- push(@foot_lines, @{$foot_lines});
- return $foot_label;
-}
-
-sub do_image($$$$)
-{
- # replace images
- my $command = shift;
- my $args = shift;
- my $text = $args->[0];
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
- $text =~ s/\s+/ /gos; # remove useless spaces and newlines
- my @args = split (/\s*,\s*/, $text);
- my $base = $args[0];
- if ($base eq '')
- {
- echo_error ("no file argument for \@image", $line_nr);
- #warn "$ERROR no file argument for \@image\n";
- return '';
- }
- $args[4] = '' if (!defined($args[4]));
- $args[3] = '' if (!defined($args[3]));
- my $image;
- my $file_name;
- $image = locate_include_file("$base.$args[4]") if (defined($args[4]) and ($args[4] ne ''));
- if (defined($image))
- {
- $file_name = "$base.$args[4]";
- }
- elsif ($image = locate_include_file("$base.png"))
- {
- $file_name = "$base.png";
- }
- elsif ($image = locate_include_file("$base.jpg"))
- {
- $file_name = "$base.jpg";
- }
- elsif ($image = locate_include_file("$base.gif"))
- {
- $file_name = "$base.gif";
- }
- else
- {
- $image = "$base.jpg";
- $image = "$base.$args[4]" if (defined($args[4]) and ($args[4] ne ''));
- $file_name = $image;
- echo_error ("no image file for $base, (using $image)", $line_nr);
- #warn "$ERROR no image file for $base, (using $image) : $text\n";
- } # FIXME use full file name for alt instead of base when there is no
- # alttext ?
- if ($args[3] =~ /\S/)
- {
- # FIXME makeinfo don't do that.
- $args[3] = do_text($args[3]);
- $base = $args[3] if ($args[3] =~ /\S/);
- }
- return &$Texi2HTML::Config::image(
- &$Texi2HTML::Config::protect_text($path_to_working_dir . $image),
- &$Texi2HTML::Config::protect_text($base),
- $state->{'preformatted'}, &$Texi2HTML::Config::protect_text($file_name));
-}
-
-sub duplicate_state($)
-{
- my $state = shift;
- my $new_state = { 'element' => $state->{'element'},
- 'preformatted' => $state->{'preformatted'},
- 'code_style' => $state->{'code_style'},
- 'keep_texi' => $state->{'keep_texi'},
- 'keep_nr' => $state->{'keep_nr'},
- 'preformatted_stack' => $state->{'preformatted_stack'}
- };
- return $new_state;
-}
-
-sub expand_macro($$$$$)
-{
- my $name = shift;
- my $args = shift;
- my $end_line = shift;
- my $line_nr = shift;
- my $state = shift;
-
- my $index = 0;
- foreach my $arg (@$args)
- { # expand @macros in arguments
- $args->[$index] = substitute_text({'texi' => 1, 'arg_expansion' => 1}, split_lines($arg));
- $index++;
- }
- my $macrobody = $macros->{$name}->{'Body'};
- my $formal_args = $macros->{$name}->{'Args'};
- my $args_index = $macros->{$name}->{'Args_index'};
- my $i;
-
- die "Bug end_line not defined" if (!defined($end_line));
-
- for ($i=0; $i<=$#$formal_args; $i++)
- {
- $args->[$i] = "" unless (defined($args->[$i]));
- print STDERR "# arg($i): $args->[$i]\n" if ($T2H_DEBUG & $DEBUG_MACROS);
- }
- echo_error ("too much arguments for macro $name", $line_nr) if (defined($args->[$i + 1]));
- #warn "$ERROR too much arguments for macro $name" if (defined($args->[$i + 1]));
- my $result = '';
- while ($macrobody)
- {
- if ($macrobody =~ s/^([^\\]*)\\//o)
- {
- $result .= $1 if defined($1);
- if ($macrobody =~ s/^\\//)
- {
- $result .= '\\';
- }
- elsif ($macrobody =~ s/^(\@end\sr?macro)$// or $macrobody =~ s/^(\@end\sr?macro\s)// or $macrobody =~ s/^(\@r?macro\s+\w+\s*.*)//)
- { # \ protect @end macro
- $result .= $1;
- }
- elsif ($macrobody =~ s/^([^\\]*)\\//)
- {
- my $arg = $1;
- if (defined($args_index->{$arg}))
- {
- $result .= $args->[$args_index->{$arg}];
- }
- else
- {
- warn "$ERROR \\ not followed by \\ or an arg but by $arg in macro\n";
- $result .= '\\' . $arg;
- }
- }
- next;
- }
- $result .= $macrobody;
- last;
- }
- #$result .= $end_line;
- my @result = split(/^/m, $result);
- #my $first_line = shift (@result);
- if ($state->{'arg_expansion'})
- {
- unshift @{$state->{'spool'}}, (@result, $end_line);
- }
- else
- {
- unshift @{$input_spool->{'spool'}}, (@result, $end_line);
- $input_spool->{'macro'} = $name if ($input_spool->{'macro'} eq '');
- }
- if ($T2H_DEBUG & $DEBUG_MACROS)
- {
- print STDERR "# macro expansion result:\n";
- #print STDERR "$first_line";
- foreach my $line (@result)
- {
- print STDERR "$line";
- }
- print STDERR "# macro expansion result end\n";
- }
- #return $first_line;
-}
-
-sub do_index_summary_file($)
-{
- my $name = shift;
- my ($Pages, $Entries) = get_index($name);
- &$Texi2HTML::Config::index_summary_file_begin ($name, $printed_indices{$name});
- #open(FHIDX, ">$docu_rdir$docu_name" . "_$name.idx")
- # || die "Can't open > $docu_rdir$docu_name" . "_$name.idx for writing: $!\n";
- #print STDERR "# writing $name index summary in $docu_rdir$docu_name" . "_$name.idx...\n" if $T2H_VERBOSE;
- print STDERR "# writing $name index summary\n" if $T2H_VERBOSE;
-
- foreach my $key (sort keys %$Entries)
- {
- #print FHIDX "$key\t$Entries->{$key}->{href}\n";
- my $entry = $Entries->{$key};
- my $label = $entry->{'element'};
- my $entry_element = $label;
- # notice that we use the section associated with a node even when
- # there is no with_section, i.e. when there is another node preceding
- # the sectionning command.
- # However when it is the Top node, we use the node instead.
- # (for the Top node, 'section_ref' is himself, and 'as_section' is
- # true)
- $entry_element = $entry_element->{'section_ref'} if ($entry_element->{'node'} and $entry_element->{'section_ref'} and !$entry_element->{'section_ref'}->{'as_section'});
- my $origin_href = $entry->{'file'};
- #print STDERR "$entry $entry->{'entry'}, real elem $label->{'texi'}, section $entry_element->{'texi'}, real $label->{'file'}, entry file $entry->{'file'}\n";
- if ($entry->{'label'})
- {
- $origin_href .= '#' . $entry->{'label'};
- }
- else
- {
- # If the $label element and the $index entry are on the same
- # file the label is prefered. If they aren't on the same file
- # the entry id is choosed as it means that the label element
- # and the index entry are separated by a printindex.
- print STDERR "id undef ($entry) entry: $entry->{'entry'}, label: $label->{'text'}\n" if (!defined($entry->{'id'}));
- if ($entry->{'file'} eq $label->{'file'})
- {
- $origin_href .= '#' . $label->{'id'};
- }
- else
- {
- $origin_href .= '#' . $entry->{'id'} ;
- }
- }
- #print STDERR "SUBHREF in index summary file for $entry_element->{'texi'}\n";
- #print FHIDX '' .
- &$Texi2HTML::Config::index_summary_file_entry ($name,
- $key, $origin_href,
- substitute_line($entry->{'entry'}), $entry->{'entry'},
- href($entry_element, ''),
- $entry_element->{'text'},
- $printed_indices{$name});
- }
- &$Texi2HTML::Config::index_summary_file_end ($name, $printed_indices{$name});
-}
-
-sub do_index_page($$;$)
-{
- my $index_elements = shift;
- my $nr = shift;
- my $page = shift;
- my $index_element = $index_elements->[$nr];
- my $summary = do_index_summary($index_element->{'element'}, $index_elements);
- my $entries = do_index_entries($index_element->{'element'}, $index_element->{'page'}, $index_element->{'name'});
- return $summary . $entries . $summary;
-}
-
-sub do_index_summary($$)
-{
- my $element = shift;
- my $index_elements = shift;
-
- my @letters;
- my @symbols;
-
- for my $index_element_item (@$index_elements)
- {
- my $index_element = $index_element_item->{'element'};
- my $file = '';
- $file .= $index_element->{'file'} if ($index_element->{'file'} ne $element->{'file'});
- my $index = 0;
- for my $letter (@{$index_element_item->{'page'}->{Letters}})
- {
- if ($letter =~ /^[A-Za-z]/)
- {
- push @letters, &$Texi2HTML::Config::summary_letter($letter, $file, "$index_element->{'id'}" . "_$index");
- }
- else
- {
- push @symbols, &$Texi2HTML::Config::summary_letter($letter, $file, "$index_element->{'id'}" . "_$index");
- }
- $index++;
- }
- }
- return &$Texi2HTML::Config::index_summary(\@letters, \@symbols);
-}
-
-sub do_index_entries($$$)
-{
- my $element = shift;
- my $page = shift;
- my $name = shift;
-
- my $letters = '';
- my $index = 0;
- for my $letter (@{$page->{'Letters'}})
- {
- my $entries = '';
- for my $entry (@{$page->{'EntriesByLetter'}->{$letter}})
- {
- my $label = $entry->{'element'};
- my $entry_element = $label;
- # notice that we use the section associated with a node even when
- # there is no with_section, i.e. when there is another node preceding
- # the sectionning command.
- # However when it is the Top node, we use the node instead.
- # (for the Top node, 'section_ref' is himself, and 'as_section' is
- # true)
- $entry_element = $entry_element->{'section_ref'} if ($entry_element->{'node'} and $entry_element->{'section_ref'} and !$entry_element->{'section_ref'}->{'as_section'});
- my $origin_href = '';
- $origin_href = $entry->{'file'} if ($Texi2HTML::Config::SPLIT and $entry->{'file'} ne $element->{'file'});
- #print STDERR "$entry $entry->{'entry'}, real elem $label->{'texi'}, section $entry_element->{'texi'}, real $label->{'file'}, entry file $entry->{'file'}\n";
- if ($entry->{'label'})
- {
- $origin_href .= '#' . $entry->{'label'};
- }
- else
- {
- # If the $label element and the $index entry are on the same
- # file the label is prefered. If they aren't on the same file
- # the entry id is choosed as it means that the label element
- # and the index entry are separated by a printindex.
- print STDERR "id undef ($entry) entry: $entry->{'entry'}, label: $label->{'text'}\n" if (!defined($entry->{'id'}));
- if ($entry->{'file'} eq $label->{'file'})
- {
- $origin_href .= '#' . $label->{'id'};
- }
- else
- {
- $origin_href .= '#' . $entry->{'id'} ;
- }
- }
- #print STDERR "SUBHREF in index for $entry_element->{'texi'}\n";
- $entries .= &$Texi2HTML::Config::index_entry ($origin_href,
- substitute_line($entry->{'entry'}),
- href($entry_element, $element->{'file'}),
- $entry_element->{'text'});
- }
- $letters .= &$Texi2HTML::Config::index_letter ($letter, "$element->{'id'}" . "_$index", $entries);
- $index++;
- }
- return &$Texi2HTML::Config::print_index($letters, $name);
-}
-
-# remove texi commands, replacing with what seems adequate. see simple_map_texi
-# and texi_map.
-# Doesn't protect html
-sub remove_texi(@)
-{
- return substitute_text ({ 'remove_texi' => 1, 'no_protection' => 1 }, @_);
-}
-
-# Same as remove texi but protect text and use special maps for @-commands
-sub unformatted_text($@)
-{
- my $state = shift;
- $state = {} if (!defined($state));
- $state->{'remove_texi'} = 1;
- $simple_map_texi_ref = \%Texi2HTML::Config::unformatted_text_simple_map_texi;
- $style_map_texi_ref = \%Texi2HTML::Config::unformatted_text_style_map_texi;
- $texi_map_ref = \%Texi2HTML::Config::unformatted_text_texi_map;
- my $text = substitute_text ($state, @_);
- $simple_map_texi_ref = \%Texi2HTML::Config::simple_map_texi;
- $style_map_texi_ref = \%Texi2HTML::Config::style_map_texi;
- $texi_map_ref = \%Texi2HTML::Config::texi_map;
- return $text;
-}
-
-sub enter_table_index_entry($$$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- if ($state->{'item'} and ($state->{'table_stack'}->[-1] =~ /^(v|f)table$/))
- {
- my $index = $1;
- my $macro = $state->{'item'};
- delete $state->{'item'};
- close_stack($text, $stack, $state, $line_nr, undef, 'index_item');
- my $item = pop @$stack;
- my $element = $state->{'element'};
- $element = $state->{'node_ref'} unless ($element);
- #print STDERR "enter_table_index_entry $item->{'text'}";
- enter_index_entry($index, $line_nr, $item->{'text'}, $state->{'place'}, $element, 0);
- add_prev($text, $stack, "\@$macro" . $item->{'text'});
- }
-}
-
-sub scan_texi($$$$;$)
-{
- my $line = shift;
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- die "stack not an array ref" unless (ref($stack) eq "ARRAY");
- local $_ = $line;
-
- while(1)
- {
- # scan_texi
- #print STDERR "WHILE:$_";
- #dump_stack($text, $stack, $state);
-
- # In ignored region
- if ($state->{'ignored'})
- {
- my $line;
- if (s/^(.*?\@end\s+$state->{'ignored'})//)
- {
- $line = $1;
- if (s/^$// or s/(\s+)//)
- {
- $line = $line . $1 if (defined($1));
- }
- elsif (/[^\@]/)
- {
- $_ .= $line;
- $line = undef;
- }
- }
- if (defined($line))
- {
- delete $state->{'ignored'};
- #dump_stack($text, $stack, $state);
- # MACRO_ARG => keep ignored text
- if ($state->{'arg_expansion'})
- {
- #add_prev ($text, $stack, $1);
- add_prev ($text, $stack, $line);
- next;
- }
- return if /^\s*$/o;
- next;
- }
- add_prev ($text, $stack, $_) if ($state->{'arg_expansion'});
- return;
- }
-
- # in macro definition
- if (defined($state->{'macro'}))
- {
- if (s/^([^\\\@]*\\)//)
- {# I believe it is correct, although makeinfo don't do that.
- $state->{'macro'}->{'Body'} .= $1;
- if (s/^\\//)
- {
- $state->{'macro'}->{'Body'} .= '\\';
- next;
- }
- elsif (s/^(\@end\sr?macro)$//o or s/^(\@end\sr?macro\s)//o
- or s/^(\@r?macro\s+\w+\s*.*)//o)
- {
- $state->{'macro'}->{'Body'} .= $1;
- next;
- }
- }
- #if (s/^(.*?)\@end\sr?macro$//o or s/^(.*?)\@end\sr?macro\s+//o)
- if (s/^(\@end\sr?macro)$//o or s/^(\@end\sr?macro\s+)//o)
- {
- $state->{'macro_inside'}--;
- if ($state->{'macro_inside'})
- {
- $state->{'macro'}->{'Body'} .= $1;
- next;
- }
- #$state->{'macro'}->{'Body'} .= $1 if defined($1) ;
- chomp $state->{'macro'}->{'Body'};
- print STDERR "# end macro def. Body:\n$state->{'macro'}->{'Body'}"
- if ($T2H_DEBUG & $DEBUG_MACROS);
- delete $state->{'macro'};
- return if (/^\s*$/);
- next;
- }
- elsif(/^(\@r?macro\s+\w+\s*.*)/)
- {
- $state->{'macro'}->{'Body'} .= $_;
- $state->{'macro_inside'}++;
- return;
- }
- elsif (s/^\@(.)//)
- {
- $state->{'macro'}->{'Body'} .= '@' . $1;
- next;
- }
- elsif (s/^\@//)
- {
- $state->{'macro'}->{'Body'} .= '@';
- next;
- }
- else
- {
- s/([^\@\\]*)//;
- $state->{'macro'}->{'Body'} .= $1 if (defined($1));
- if (/^$/)
- {
- $state->{'macro'}->{'Body'} .= $_;
- return;
- }
- next;
- #$state->{'macro'}->{'Body'} .= $_ if defined($_) ;
- #return;
- }
- }
- # in macro arguments parsing/expansion
- if (defined($state->{'macro_name'}))
- {
- my $special_chars = quotemeta ('\{}');
- my $multi_args = 0;
- my $formal_args = $macros->{$state->{'macro_name'}}->{'Args'};
- $multi_args = 1 if ($#$formal_args >= 1);
- $special_chars .= quotemeta(',') if ($multi_args);
- if ($state->{'macro_args'}->[-1] eq '')
- {
- s/^\s*//o;
- }
- if (s/^([^$special_chars]*)([$special_chars])//)
- {
- $state->{'macro_args'}->[-1] .= $1 if defined($1);
- # \ protects any character in macro arguments
- if ($2 eq '\\')
- {
- print STDERR "# macro call: protected char\n" if ($T2H_DEBUG & $DEBUG_MACROS);
- if (s/^(.)//)
- {
- $state->{'macro_args'}->[-1] .= $1;
- }
- else
- {
- $state->{'macro_args'}->[-1] .= '\\';
- }
- }
- elsif ($2 eq ',')
- { # separate args
- print STDERR "# macro call: new arg\n" if ($T2H_DEBUG & $DEBUG_MACROS);
- s/^\s*//o;
- push @{$state->{'macro_args'}}, '';
- }
- elsif ($2 eq '}')
- { # balanced } ends the macro call, otherwise it is in the arg
- $state->{'macro_depth'}--;
- if ($state->{'macro_depth'} == 0)
- {
- print STDERR "# expanding macro $state->{'macro_name'}\n" if ($T2H_DEBUG & $DEBUG_MACROS);
- $_ = expand_macro($state->{'macro_name'}, $state->{'macro_args'}, $_, $line_nr, $state);
- delete $state->{'macro_name'};
- delete $state->{'macro_depth'};
- delete $state->{'macro_args'};
- return;
- }
- else
- {
- print STDERR "# macro call: closing }\n" if ($T2H_DEBUG & $DEBUG_MACROS);
- add_text('}', \$state->{'macro_args'}->[-1]);
- }
- }
- elsif ($2 eq '{')
- {
- print STDERR "# macro call: opening {\n" if ($T2H_DEBUG & $DEBUG_MACROS);
- $state->{'macro_depth'}++;
- add_text('{', \$state->{'macro_args'}->[-1]);
- }
- next;
- }
- print STDERR "# macro call: end of line\n" if ($T2H_DEBUG & $DEBUG_MACROS);
- $state->{'macro_args'}->[-1] .= $_;
- return;
- }
-
- # in a raw format, verbatim, tex or html
- if ($state->{'raw'})
- {
- my $tag = $state->{'raw'};
-
- # debugging
- if (! @$stack or ($stack->[-1]->{'style'} ne $tag))
- {
- print STDERR "Bug: raw or special: $tag but not on top of stack\n";
- print STDERR "line: $_";
- dump_stack($text, $stack, $state);
- exit 1;
- }
-
- if (s/^(.*?)(\@end\s$tag)$// or s/^(.*?)(\@end\s$tag\s)//)
- {
- add_prev ($text, $stack, $1);
- my $end = $2;
- my $style = pop @$stack;
- if ($style->{'text'} !~ /^\s*$/ or $state->{'arg_expansion'})
- {
- my $after_macro = '';
- $after_macro = ' ' unless (/^\s*$/);
- add_prev ($text, $stack, $style->{'text'} . $end . $after_macro);
- delete $state->{'raw'};
- }
- next;
- }
- else
- {
- add_prev ($text, $stack, $_);
- last;
- }
- }
-
- # in a @verb{ .. } macro
- if (defined($state->{'verb'}))
- {
- my $char = quotemeta($state->{'verb'});
- if (s/^(.*?)$char\}/\}/)
- {
- add_prev($text, $stack, $1 . $state->{'verb'});
- $stack->[-1]->{'text'} = $state->{'verb'} . $stack->[-1]->{'text'};
- delete $state->{'verb'};
- next;
- }
- else
- {
- add_prev($text, $stack, $_);
- last;
- }
- }
-
- # an @end tag
- if (s/^([^{}@]*)\@end(\s+)([a-zA-Z]\w*)//)
- {
- add_prev($text, $stack, $1);
- my $space = $2;
- my $end_tag = $3;
- if (defined($state->{'text_macro_stack'})
- and @{$state->{'text_macro_stack'}}
- and ($end_tag eq $state->{'text_macro_stack'}->[-1]))
- {
- pop @{$state->{'text_macro_stack'}};
- # we keep menu and titlepage for the following pass
- if ((($end_tag eq 'menu') and $text_macros{'menu'}) or ($region_lines{$end_tag}) or $state->{'arg_expansion'})
- {
- add_prev($text, $stack, "\@end${space}$end_tag");
- }
- else
- {
- #print STDERR "End $end_tag\n";
- #dump_stack($text, $stack, $state);
- return if (/^\s*$/);
- }
- }
- elsif ($text_macros{$end_tag})
- {
- echo_error ("\@end $end_tag without corresponding element", $line_nr);
- }
- else
- {
- add_prev($text, $stack, "\@end${space}$end_tag");
- }
- next;
- }
- elsif (s/^([^{}@]*)\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/])//o or s/^([^{}@]*)\@([a-zA-Z]\w*)([\s\{\}\@])/$3/o or s/^([^{}@]*)\@([a-zA-Z]\w*)$//o)
- {
- add_prev($text, $stack, $1);
- my $macro = $2;
- #print STDERR "MACRO $macro\n";
- $state->{'bye'} = 1 if ($macro eq 'bye');
- if (defined($Texi2HTML::Config::misc_command{$macro}) and
- !$Texi2HTML::Config::misc_command{$macro}->{'texi'}
- and $macro ne 'documentencoding')
- {
- my ($line, $args);
- ($_, $line, $args) = preserve_command($_, $macro);
- add_prev ($text, $stack, $line);
- next;
- }
- # pertusus: it seems that value substitution are performed after
- # macro argument expansions: if we have
- # @set comma ,
- # and a call to a macro @macro {arg1 @value{comma} arg2}
- # the macro arg is arg1 , arg2 and the comma don't separate
- # args. Likewise it seems that the @value are not expanded
- # in macro definitions
-
- # track variables
- my $value_macro = 1;
- if ($macro eq 'set' and s/^(\s+)($VARRE)(\s+)(.*)$//o)
- {
- if ($state->{'arg_expansion'})
- {
- my $line = "\@$macro" . $1.$2.$3;
- $line .= $4 if (defined($4));
- add_prev($text, $stack, $line);
- next;
- }
- $value{$2} = $4;
- }
- elsif ($macro eq 'clear' and s/^(\s+)($VARRE)//o)
- {
- if ($state->{'arg_expansion'})
- {
- add_prev($text, $stack, "\@$macro" . $1 . $2);
- next;
- }
- delete $value{$2};
- }
- else
- {
- $value_macro = 0;
- }
- if ($value_macro)
- {
- return if (/^\s*$/);
- next;
- }
-
- if ($macro =~ /^r?macro$/)
- { #FIXME what to do if 'arg_expansion' is true (ie within another
- # macro call arguments ?
- if (/^\s+(\w+)\s*(.*)/)
- {
- my $name = $1;
- if (exists($macros->{$name}))
- {
- echo_warn ("macro `$name' allready defined " .
- format_line_number($macros->{$name}->{'line_nr'}) . " redefined", $line_nr);
- }
- $state->{'macro_inside'} = 1;
- my @args = ();
- @args = split(/\s*,\s*/ , $1)
- if ($2 =~ /^\s*{\s*(.*?)\s*}\s*/);
- # keep the context information of the definition
- $macros->{$name}->{'line_nr'} = { 'file_name' => $line_nr->{'file_name'},
- 'line_nr' => $line_nr->{'line_nr'}, 'macro' => $line_nr->{'macro'} } if (defined($line_nr));
- $macros->{$name}->{'Args'} = \@args;
- my $arg_index = 0;
- my $debug_msg = '';
- foreach my $arg (@args)
- { # when expanding macros, the argument index is retrieved
- # with Args_index
- $macros->{$name}->{'Args_index'}->{$arg} = $arg_index;
- $debug_msg .= "$arg($arg_index) ";
- $arg_index++;
- }
- $macros->{$name}->{'Body'} = '';
- $state->{'macro'} = $macros->{$name};
- print STDERR "# macro def $name: $debug_msg\n"
- if ($T2H_DEBUG & $DEBUG_MACROS);
- }
- else
- {
- echo_error ("Bad macro defintion $_", $line_nr);
- #warn "$ERROR Bad macro defintion $_";
- }
- return;
- }
- elsif (defined($text_macros{$macro}))
- {
- my $tag;
- ($_, $tag) = do_text_macro ($macro, $_, $state, $line_nr);
- # if it is a raw formatting command or a menu command
- # we must keep it for later
- my $macro_kept;
- if ($state->{'raw'} or (($macro eq 'menu') and $text_macros{'menu'}) or (exists($region_lines{$macro})) or $state->{'arg_expansion'})
- {
- add_prev($text, $stack, $tag);
- $macro_kept = 1;
- }
- if ($state->{'raw'})
- {
- push @$stack, { 'style' => $macro, 'text' => '' };
- }
- next if $macro_kept;
- #dump_stack ($text, $stack, $state);
- return if (/^\s*$/);
- }
- elsif ($macro eq 'value')
- {
- if (s/^{($VARRE)}//)
- {
- if ($state->{'arg_expansion'})
- {
- add_prev($text, $stack, "\@$macro" . '{' . $1 . '}');
- next;
- }
- $_ = get_value($1) . $_;
- }
- else
- {
- if ($state->{'arg_expansion'})
- {
- add_prev($text, $stack, "\@$macro");
- next;
- }
- echo_error ("bad \@value macro", $line_nr);
- #warn "$ERROR bad \@value macro";
- }
- }
- elsif ($macro eq 'definfoenclose')
- {
- if ($state->{'arg_expansion'})
- {
- add_prev($text, $stack, "\@$macro" . $_);
- return;
- }
- if (s/^\s+([a-z]+)\s*,\s*([^\s]+)\s*,\s*([^\s]+)//)
- {
- $info_enclose{$1} = [ $2, $3 ];
- }
- else
- {
- echo_error("Bad \@$macro", $line_nr);
- }
- return if (/^\s*$/);
- s/^\s*//;
- }
- elsif ($macro eq 'include')
- {
- if ($state->{'arg_expansion'})
- {
- add_prev($text, $stack, "\@$macro" . $_);
- return;
- }
- #if (s/^\s+([\/\w.+-]+)//o)
- if (s/^(\s+)(.*)//o)
- {
- my $file = locate_include_file($2);
- if (defined($file))
- {
- open_file($file, $line_nr);
- print STDERR "# including $file\n" if $T2H_VERBOSE;
- }
- else
- {
- echo_error ("Can't find $2, skipping", $line_nr);
- #warn "$ERROR Can't find $1, skipping\n";
- }
- }
- else
- {
- echo_error ("Bad include line: $_", $line_nr);
- return;
- } # makeinfo remove the @include but not the end of line
- # FIXME verify if it is right
- #return if (/^\s*$/);
- }
- elsif ($macro eq 'documentencoding')
- {
- if (s/(\s+)([0-9\w\-]+)//)
- {
- my $encoding = $2;
- $Texi2HTML::Config::DOCUMENT_ENCODING = $encoding;
- $from_encoding = set_encoding($encoding);
- if (defined($from_encoding))
- {
- foreach my $file (@fhs)
- {
- binmode($file->{'fh'}, ":encoding($from_encoding)");
- }
- }
- }
- add_prev($text, $stack, "\@$macro" . $1 . $2);
- }
- elsif ($macro eq 'unmacro')
- { #FIXME with 'arg_expansion' should it be passed unmodified ?
- delete $macros->{$1} if (s/^\s+(\w+)//);
- return if (/^\s*$/);
- s/^\s*//;
- }
- elsif (exists($macros->{$macro}))
- {
- my $ref = $macros->{$macro}->{'Args'};
- # we remove any space/new line before the argument
- if (s/^\s*{\s*//)
- {
- $state->{'macro_args'} = [ "" ];
- $state->{'macro_name'} = $macro;
- $state->{'macro_depth'} = 1;
- }
- elsif ($#$ref >= 1)
- { # no brace -> no arg
- $_ = expand_macro ($macro, [], $_, $line_nr, $state);
- return;
- }
- else
- { # macro with one arg on the line
- chomp $_;
- $_ = expand_macro ($macro, [$_], "\n", $line_nr, $state);
- return;
- }
- }
- elsif ($macro eq ',')
- {# the @, causes problems when `,' separates things (in @node, @ref)
- $_ = "\@m_cedilla" . $_;
- }
- elsif (s/^{//)
- {
- if ($macro eq 'verb')
- {
- if (/^$/)
- {
- echo_error ("verb at end of line", $line_nr);
- #warn "$ERROR verb at end of line";
- }
- else
- {
- s/^(.)//;
- $state->{'verb'} = $1;
- }
- }
- push (@$stack, { 'style' => $macro, 'text' => '' });
- }
- else
- {
- add_prev($text, $stack, "\@$macro");
- }
- next;
- }
- #elsif(s/^([^{}@]*)\@(.)//o)
- elsif(s/^([^{}@]*)\@([^\s\}\{\@]*)//o)
- {
- # No need to warn here it is done later
- add_prev($text, $stack, $1 . "\@$2");
- next;
- }
- elsif (s/^([^{}]*)([{}])//o)
- {
- add_prev($text, $stack, $1);
- if ($2 eq '{')
- {
- push @$stack, { 'style' => '', 'text' => '' };
- }
- else
- {
- if (@$stack)
- {
- my $style = pop @$stack;
- my $result;
- if (($style->{'style'} ne '') and exists($info_enclose{$style->{'style'}}) and !$state->{'arg_expansion'})
- {
- $result = $info_enclose{$style->{'style'}}->[0] . $style->{'text'} . $info_enclose{$style->{'style'}}->[1];
- }
- elsif ($style->{'style'} ne '')
- {
- $result = '@' . $style->{'style'} . '{' . $style->{'text'} . '}';
- }
- else
- {
- $result = '{' . $style->{'text'};
- # don't close { if we are closing stack as we are not
- # sure this is a licit { ... } construct.
- $result .= '}' unless ($state->{'close_stack'} or $state->{'arg_expansion'});
- }
- add_prev ($text, $stack, $result);
- #print STDERR "MACRO end $style->{'style'} remaining: $_";
- next;
- }
- else
- {
- # we warn in the last pass
- #echo_error ("'}' without opening '{', before: $_", $line_nr);
- #warn "$ERROR '}' without opening '{' line: $line";
- add_prev ($text, $stack, '}');
- }
- }
- }
- else
- {
- #print STDERR "END_LINE $_";
- add_prev($text, $stack, $_);
- last;
- }
- }
- return 1;
-}
-
-sub scan_structure($$$$;$)
-{
- my $line = shift;
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- die "stack not an array ref" unless (ref($stack) eq "ARRAY");
- local $_ = $line;
- #print STDERR "SCAN_STRUCTURE: $line";
- #dump_stack ($text, $stack, $state);
- if (!$state->{'raw'} and !$state->{'special'} and (!exists($state->{'region_lines'})))
- {
- if (!$state->{'verb'} and $state->{'menu'} and /^\*/o)
- {
- # new menu entry
- delete ($state->{'after_element'});
- my $menu_line = $_;
- my $node;
- if (/^\*\s+($NODERE)::/)
- {
- $node = $1;
- }
- elsif (/^\*\s+([^:]+):\s*([^\t,\.\n]+)[\t,\.\n]/)
- {
- #$name = $1;
- $node = $2;
- }
- if ($node)
- {
- menu_entry_texi(normalise_node($node), $state, $line_nr);
- }
- }
- if (/\S/ and !no_line($_))
- {
- delete $state->{'after_element'};
- }
- }
-
- while(1)
- {
- # scan structure
- #print STDERR "WHILE\n";
- #dump_stack($text, $stack, $state);
-
- # as texinfo 4.5
- # verbatim might begin at another position than beginning
- # of line, and end verbatim might too. To end a verbatim section
- # @end verbatim must have exactly one space between end and verbatim
- # things following end verbatim are not ignored.
- #
- # html might begin at another position than beginning
- # of line, but @end html must begin the line, and have
- # exactly one space. Things following end html are ignored.
- # tex and ignore works like html
- #
- # ifnothtml might begin at another position than beginning
- # of line, and @end ifnothtml might too, there might be more
- # than one space between @end and ifnothtml but nothing more on
- # the line.
- # @end itemize, @end ftable works like @end ifnothtml.
- # except that @item on the same line than @end vtable doesn't work
- #
- # text right after the itemize before an item is displayed.
- # @item might be somewhere in a line.
- # strangely @item on the same line than @end vtable doesn't work
- # there should be nothing else than a command following @itemize...
- #
- # see more examples in formatting directory
-
- if ($state->{'raw'} or $state->{'special'})
- {
- my $tag = $state->{'raw'};
- $tag = $state->{'special'} unless $tag;
- if (! @$stack or ($stack->[-1]->{'style'} ne $tag))
- {
- print STDERR "Bug: raw or special: $tag but not on top of stack\n";
- print STDERR "line: $_";
- dump_stack($text, $stack, $state);
- exit 1;
- }
- if (s/^(.*?)\@end\s$tag$// or s/^(.*?)\@end\s$tag\s//)
- {
- add_prev ($text, $stack, $1);
- my $style = pop @$stack;
- if ($state->{'special'})
- {
- delete $state->{'special'};
- if ($style->{'text'} !~ /^\s*$/)
- {
- add_prev ($text, $stack, do_special($style->{'style'}, $style->{'text'}));
- }
-
- }
- else
- {
- my $after_macro = '';
- $after_macro = ' ' unless (/^\s*$/);
- add_prev ($text, $stack, $style->{'text'} . "\@end $state->{'raw'}" . $after_macro);
- delete $state->{'raw'};
- }
- unless (no_line($_))
- {
- delete ($state->{'after_element'});
- }
- next;
- }
- else
- {
- add_prev ($text, $stack, $_);
- last unless ($state->{'special'});
- return;
- }
- }
-
- if (defined($state->{'verb'}))
- {
- my $char = quotemeta($state->{'verb'});
- if (s/^(.*?)$char\}/\}/)
- {
- add_prev($text, $stack, $1 . $state->{'verb'});
- $stack->[-1]->{'text'} = $state->{'verb'} . $stack->[-1]->{'text'};
- delete $state->{'verb'};
- next;
- }
- else
- {
- add_prev($text, $stack, $_);
- last;
- }
- }
-
- unless (no_line($_))
- {
- delete $state->{'after_element'};
- }
- if (s/^([^{}@]*)\@end\s+([a-zA-Z]\w*)//)
- {
- add_prev($text, $stack, $1);
- my $end_tag = $2;
- $state->{'detailmenu'}-- if ($end_tag eq 'detailmenu' and $state->{'detailmenu'});
- if (defined($state->{'text_macro_stack'})
- and @{$state->{'text_macro_stack'}}
- and ($end_tag eq $state->{'text_macro_stack'}->[-1]))
- {
- pop @{$state->{'text_macro_stack'}};
- if (exists($region_lines{$end_tag}))
- {
- print STDERR "Bug: end_tag $end_tag ne $state->{'region_lines'}->{'format'}"
- if ( $end_tag ne $state->{'region_lines'}->{'format'});
- $state->{'region_lines'}->{'number'}--;
- if ($state->{'region_lines'}->{'number'} == 0)
- {
- $state->{'after_element'} = 1;
- delete $state->{'after_element'} unless
- ($state->{'region_lines'}->{'after_element'});
- delete $state->{'region_lines'}->{'number'};
- delete $state->{'region_lines'}->{'format'};
- delete $state->{'region_lines'}->{'after_element'};
- delete $state->{'region_lines'};
- }
- #dump_stack($text, $stack, $state);
- }
- if ($end_tag eq 'menu')
- {
- add_prev($text, $stack, "\@end $end_tag");
- $state->{'menu'}--;
- }
- else
- {
- #print STDERR "End $end_tag\n";
- #dump_stack($text, $stack, $state);
- return if (/^\s*$/);
- }
- }
- elsif ($text_macros{$end_tag})
- {
- echo_error ("\@end $end_tag without corresponding element", $line_nr);
- #dump_stack($text, $stack, $state);
- }
- else
- {
- if ($end_tag eq 'float' and $state->{'float'})
- {
- delete $state->{'float'};
- }
- elsif ($end_tag eq $state->{'table_stack'}->[-1])
- {
- enter_table_index_entry($text, $stack, $state, $line_nr);
- pop @{$state->{'table_stack'}};
- }
- #add end tag
- add_prev($text, $stack, "\@end $end_tag");
- }
- next;
- }
- #elsif (s/^([^{}@]*)\@([a-zA-Z]\w*|["'~\@\}\{,\.!\?\s\*\-\^`=:\/])//o)
- elsif (s/^([^{}@]*)\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/])//o or s/^([^{}@]*)\@([a-zA-Z]\w*)([\s\{\}\@])/$3/o or s/^([^{}@]*)\@([a-zA-Z]\w*)$//o)
- {
- add_prev($text, $stack, $1);
- my $macro = $2;
- #print STDERR "MACRO $macro\n";
- if (defined($Texi2HTML::Config::misc_command{$macro}))
- {
- my $line;
- ($_, $line) = misc_command_structure($_, $macro, $state,
- $line_nr);
- add_prev ($text, $stack, $line);
- next;
- }
-
- if ($macro =~ /^(\w+?)index/ and ($1 ne 'print') and ($1 ne 'syncode') and ($1 ne 'syn') and ($1 ne 'def') and ($1 ne 'defcode'))
- {
- my $index_prefix = $1;
- if (/^\s+(.*)/)
- {
- my $key = $1;
- $_ = substitute_texi_line($_);
- my $index_entry = enter_index_entry($index_prefix, $line_nr, $key, $state->{'place'}, $state->{'element'}, $state->{'after_element'});
- if ($index_entry)
- {
- add_prev ($text, $stack, "\@$macro" . $_);
- last;
- }
- elsif (!defined($index_entry))
- {
- echo_warn ("Bad index entry: $_", $line_nr);
- #warn "$WARN Bad index entry: $_";
- }
- }
- else
- {
- echo_warn ("empty index entry", $line_nr);
- #warn "$WARN empty index entry\n";
- }
- return;
- }
- elsif (defined($text_macros{$macro}))
- {
- #print STDERR "TEXT_MACRO: $macro\n";
- if ($text_macros{$macro} eq 'special')
- {
- $state->{'special'} = $macro;
- }
- elsif ($text_macros{$macro} eq 'raw')
- {
- $state->{'raw'} = $macro;
- #print STDERR "RAW\n";
- }
- elsif ($format_type{$macro} and $format_type{$macro} eq 'menu')
- {
- $state->{'menu'}++;
- delete ($state->{'prev_menu_node'});
- push @{$state->{'text_macro_stack'}}, $macro;
- #print STDERR "MENU (text_macro_stack: @{$state->{'text_macro_stack'}})\n";
- }
- elsif (exists($region_lines{$macro}))
- {
- if (exists($state->{'region_lines'}) and ($state->{'region_lines'}->{'format'} ne $macro))
- {
- echo_error("\@$macro not allowed within $state->{'region_lines'}->{'format'}", $line_nr);
- next;
- }
- if (!exists($state->{'region_lines'}))
- {
- $state->{'region_lines'}->{'format'} = $macro;
- $state->{'region_lines'}->{'number'} = 1;
- $state->{'region_lines'}->{'after_element'} = 1 if ($state->{'after_element'});
- }
- else
- {
- $state->{'region_lines'}->{'number'}++;
- }
- push @{$state->{'text_macro_stack'}}, $macro;
- }
- # if it is a raw formatting command or a menu command
- # we must keep it for later
- my $macro_kept;
- if ($state->{'raw'} or ($macro eq 'menu'))
- {
- add_prev($text, $stack, "\@$macro");
- $macro_kept = 1;
- }
- if ($state->{'raw'} or $state->{'special'})
- {
- push @$stack, { 'style' => $macro, 'text' => '' };
- }
- next if $macro_kept;
- #dump_stack ($text, $stack, $state);
- return if (/^\s*$/);
- }
- elsif (defined($Texi2HTML::Config::def_map{$macro}))
- {
- #We must enter the index entries
- my ($prefix, $entry) = get_deff_index($macro, $_, $line_nr);
- enter_index_entry($prefix, $line_nr, $entry, $state->{'place'}, $state->{'element'}, 0) if ($prefix and defined($entry));
- s/(.*)//;
- add_prev($text, $stack, "\@$macro" . $1);
- }
- elsif ($macro =~ /^itemx?$/)
- {
- enter_table_index_entry($text, $stack, $state, $line_nr);
- if ($state->{'table_stack'}->[-1] =~ /^(v|f)table$/)
- {
- $state->{'item'} = $macro;
- push @$stack, { 'format' => 'index_item', 'text' => "" };
- }
- else
- {
- add_prev($text, $stack, "\@$macro");
- }
- }
- elsif ($format_type{$macro} and ($format_type{$macro} eq 'table' or $format_type{$macro} eq 'list'))
- { # We must enter the index entries of (v|f)table thus we track
- # in which table we are
- push @{$state->{'table_stack'}}, $macro;
- add_prev($text, $stack, "\@$macro");
- }
- elsif (s/^{//)
- {
- if ($macro eq 'verb')
- {
- if (/^$/)
- {
- # We allready warned in pass texi
- #warn "$ERROR verb at end of line";
- }
- else
- {
- s/^(.)//;
- $state->{'verb'} = $1;
- }
- }
- elsif ($macro eq 'footnote' and $Texi2HTML::Config::SEPARATED_FOOTNOTES)
- {
- $state->{'footnote_element'} = $state->{'element'};
- $state->{'footnote_place'} = $state->{'place'};
- $state->{'element'} = $footnote_element;
- $state->{'place'} = $footnote_element->{'place'};
- }
- push (@$stack, { 'style' => $macro, 'text' => '' });
- }
- else
- {
- add_prev($text, $stack, "\@$macro");
- }
- next;
- }
- #elsif(s/^([^{}@]*)\@(.)//o)
- elsif(s/^([^{}@]*)\@([^\s\}\{\@]*)//o)
- {
- add_prev($text, $stack, $1 . "\@$2");
- next;
- }
- elsif (s/^([^{}]*)([{}])//o)
- {
- add_prev($text, $stack, $1);
- if ($2 eq '{')
- {
- push @$stack, { 'style' => '', 'text' => '' };
- }
- else
- {
- if (@$stack)
- {
- my $style = pop @$stack;
- my $result;
- if ($style->{'style'} eq 'anchor')
- {
- my $anchor = $style->{'text'};
- $anchor = normalise_node($anchor);
- if ($nodes{$anchor})
- {
- echo_error ("Duplicate node for anchor found: $anchor", $line_nr);
- next;
- }
- $anchor_num++;
- $nodes{$anchor} = { 'anchor' => 1, 'seen' => 1, 'texi' => $anchor, 'id' => 'ANC' . $anchor_num};
- push @{$state->{'place'}}, $nodes{$anchor};
- }
- elsif ($style->{'style'} eq 'footnote')
- {
- if ($Texi2HTML::Config::SEPARATED_FOOTNOTES)
- {
- $state->{'element'} = $state->{'footnote_element'};
- $state->{'place'} = $state->{'footnote_place'};
- }
- }
- elsif ($style->{'style'} eq 'math' and $Texi2HTML::Config::L2H)
- {
- add_prev ($text, $stack, do_math($style->{'text'}));
- next;
- }
- elsif ($style->{'style'} eq 'caption' or $style->{'style'}
-eq 'shortcaption' and $state->{'float'})
- {
- my @texi_lines = map {$_ = $_."\n"} split (/\n/, $style->{'text'});
- $state->{'float'}->{$style->{'style'} . "_texi"} = \@texi_lines;
- }
- if (($style->{'style'} eq 'titlefont') and ($style->{'text'} =~ /\S/))
- {
- $state->{'element'}->{'titlefont'} = $style->{'text'} unless ((exists($state->{'region_lines'}) and ($state->{'region_lines'}->{'format'} eq 'titlepage')) or defined($state->{'element'}->{'titlefont'})) ;
- }
- if ($style->{'style'})
- {
- $result = '@' . $style->{'style'} . '{' . $style->{'text'} . '}';
- }
- else
- {
- $result = '{' . $style->{'text'};
- # don't close { if we are closing stack as we are not
- # sure this is a licit { ... } construct.
- $result .= '}' unless $state->{'close_stack'};
- }
- add_prev ($text, $stack, $result);
- #print STDERR "MACRO end $style->{'style'} remaining: $_";
- next;
- }
- else
- {
- # We warn in the last pass
- #warn "$ERROR '}' without opening '{' line: $line";
- #echo_error ("'}' without opening '{' line: $line", $line_nr);
- add_prev ($text, $stack, '}');
- }
- }
- }
- else
- {
- #print STDERR "END_LINE $_";
- add_prev($text, $stack, $_);
- enter_table_index_entry($text, $stack, $state, $line_nr);
- last;
- }
- }
- return 1;
-}
-
-sub scan_line($$$$;$)
-{
- my $line = shift;
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- die "stack not an array ref" unless (ref($stack) eq "ARRAY");
- local $_ = $line;
- #print STDERR "SCAN_LINE: $line";
- #dump_stack($text, $stack, $state );
- my $new_menu_entry; # true if there is a new menu entry
- my $menu_description_in_format; # true if we are in a menu description
- # but in another format section (@table....)
- if (defined($state->{'prepend_text'}))
- {
- $_ = $state->{'prepend_text'} . $_;
- $state->{'prepend_text'} = undef;
- delete $state->{'prepend_text'};
- }
- if (defined($state->{'end_of_line_protected'}))
- {
- #print STDERR "END_OF_LINE_PROTECTED, $_";
- #dump_stack($text, $stack, $state);
- delete $state->{'end_of_line_protected'};
- }
- if (!$state->{'raw'} and !$state->{'verb'} and $state->{'menu'})
- { # new menu entry
- my ($node, $name, $ending);
- if (s/^\*(\s+$NODERE)(::)//o)
- {
- $node = $1;
- $ending = $2;
- }
- elsif (s/^\*(\s+[^:]+):(\s*[^\t,\.\n]+)([\t,\.\n])//o)
- {
- $name = $1;
- $node = $2;
- $ending = $3;
- }
- if ($node)
- {
- my $top_stack = top_stack($stack);
- if ($top_stack and $top_stack->{'format'} and
- (
- ($top_stack->{'format'} eq 'menu_description') or
- ($top_stack->{'format'} eq 'menu') or
- (($top_stack->{'format'} eq 'preformatted') and (stack_order($stack, 'preformatted', 'menu_comment'))) or
- ($top_stack->{'format'} eq 'menu_preformatted') or
- ($top_stack->{'format'} eq 'menu_comment')
- )
- )
- { # we are in a normal menu state.
- close_menu($text, $stack, $state, $line_nr);
- $new_menu_entry = 1;
- $state->{'menu_entry'} = { 'name' => $name, 'node' => $node,
- 'ending' => $ending };
- add_prev ($text, $stack, do_menu_link($state, $line_nr));
- print STDERR "# New menu entry: $node\n" if ($T2H_DEBUG & $DEBUG_MENU);
- push @$stack, {'format' => 'menu_description', 'text' => ''};
- }
- else
- { # we are within a macro or a format. In that case we use
- # a simplified formatting of menu which should be right whatever
- # the context
- my $menu_entry = $state->{'menu_entry'};
- $state->{'menu_entry'} = { 'name' => $name, 'node' => $node,
- 'ending' => $ending };
- add_prev ($text, $stack, do_menu_link($state, $line_nr, 1));
- $state->{'menu_entry'} = $menu_entry;
- }
- }
- }
- # we're in a menu entry description
- if ($state->{'menu_entry'} and !$new_menu_entry)
- {
- my $top_stack = top_stack($stack);
- if (/^\s+\S.*$/ or (!$top_stack->{'format'} or ($top_stack->{'format'} ne 'menu_description')))
- { # description continues
- $menu_description_in_format = 1 if ($top_stack->{'format'} and ($top_stack->{'format'} ne 'menu_description'));
- print STDERR "# Description continues\n" if ($T2H_DEBUG & $DEBUG_MENU);
- #dump_stack ($text, $stack, $state);
- }
- else
- { # enter menu comment after menu entry
- if (!$top_stack->{'format'} or ($top_stack->{'format'} ne 'menu_description'))
- {
- print STDERR "Bug: begin menu comment but previous isn't menu_description\n";
- dump_stack ($text, $stack, $state);
- }
- print STDERR "# Menu comment begins\n" if ($T2H_DEBUG & $DEBUG_MENU);
- #dump_stack ($text, $stack, $state);
- my $descr = pop(@$stack);
- add_prev ($text, $stack, menu_description($descr->{'text'}, $state));
- delete $state->{'menu_entry'};
- unless (/^\s*\@end\s+menu\b/)
- {
- $state->{'menu_comment'}++;
- push @$stack, {'format' => 'menu_comment', 'text' => ''};
- push @{$state->{'preformatted_stack'}}, {'pre_style' => $Texi2HTML::Config::MENU_PRE_STYLE, 'class' => 'menu-comment' };
- $state->{'preformatted'}++;
- begin_paragraph($stack, $state);
- }
- #dump_stack ($text, $stack, $state);
- }
- }
- if ($state->{'open_paragraph'} and !$state->{'no_paragraph'})
- {
- delete $state->{'open_paragraph'};
- if ($state->{'preformatted'} or !no_paragraph($state,$_))
- {
- begin_paragraph($stack, $state);
- }
- }
- if (($state->{'menu_entry'} and !$menu_description_in_format) or $state->{'raw'} or $state->{'preformatted'} or $state->{'no_paragraph'} or $state->{'keep_texi'} or $state->{'remove_texi'})
- { # empty lines are left unmodified
- if (/^\s*$/)
- {
- add_prev($text, $stack, $_);
- return;
- }
- else
- {
- my $next_tag = next_tag($_);
- if ($state->{'deff'} and !defined($Texi2HTML::Config::def_map{$next_tag}))
- {
- begin_deff_item($stack, $state);
- }
- }
- }
- else
- { #FIXME @syncodeindex cp fn
- # on a line should also end paragraphs.
- if (/^\s*$/)
- {
- #ignore the line if it just follows a deff
- return if ($state->{'deff'});
-
- if ($state->{'paragraph'})
- { # An empty line ends a paragraph
- close_paragraph($text, $stack, $state, $line_nr);
- add_prev($text, $stack, &$Texi2HTML::Config::empty_line($_));
- return 1;
- }
- else
- {
- add_prev($text, $stack, &$Texi2HTML::Config::empty_line($_));
- return 1;
- }
- }
- else
- {
- #print STDERR "a line not empty and not in no paragraph format\n";
- my $next_tag = next_tag($_);
- if ($state->{'deff'} and !defined($Texi2HTML::Config::def_map{$next_tag}))
- { # finish opening the deff, as this is not a deff tag, it can't be
- # a deff macro with x
- begin_deff_item($stack, $state);
- }
- #print STDERR "NEXT_TAG $next_tag:$_";
- if (!no_paragraph($state,$_))
- { # index entries, @html and @* don't trigger new paragraph beginning
- # otherwise we begin a new paragraph
- #print STDERR "begin paragraph\n";
- begin_paragraph($stack, $state);
- }
- }
- }
-
- while(1)
- {
- # scan_line
- #print STDERR "WHILE: $_";
- #dump_stack($text, $stack, $state);
- # we're in a raw format (html, tex if !L2H, verbatim)
- if (defined($state->{'raw'}))
- {
- (dump_stack($text, $stack, $state), die "Bug for raw ($state->{'raw'})") if (! @$stack or ! ($stack->[-1]->{'style'} eq $state->{'raw'}));
- if (s/^(.*?)\@end\s$state->{'raw'}$// or s/^(.*?)\@end\s$state->{'raw'}\s+//)
- # don't protect html, it is done by Texi2HTML::Config::raw if needed
- {
- print STDERR "# end raw $state->{'raw'}\n" if ($T2H_DEBUG & $DEBUG_FORMATS);
- add_prev ($text, $stack, $1);
- my $style = pop @$stack;
- if ($style->{'text'} !~ /^\s*$/)
- {
- if ($state->{'remove_texi'})
- {
- add_prev ($text, $stack, $style->{'text'});
- }
- elsif ($state->{'keep_texi'})
- {
- add_prev ($text, $stack, $style->{'text'} . "\@end $state->{'raw'}");
- }
- else
- {
- add_prev($text, $stack, &$Texi2HTML::Config::raw($style->{'style'}, $style->{'text'}));
- }
- }
- if (!$state->{'keep_texi'} and !$state->{'remove_texi'})
- {
- # reopen preformatted if it was interrupted by the raw format
- # if raw format is html the preformatted wasn't interrupted
- begin_paragraph($stack, $state) if ($state->{'preformatted'} and (!$Texi2HTML::Config::format_in_paragraph{$state->{'raw'}}));
- delete $state->{'raw'};
- return if (/^\s*$/);
- }
- delete $state->{'raw'};
- next;
- }
- else
- {
- print STDERR "#within raw $state->{'raw'}:$_" if ($T2H_DEBUG & $DEBUG_FORMATS);
- add_prev ($text, $stack, $_);
- last;
- }
- }
-
- # we are within a @verb
- if (defined($state->{'verb'}))
- {
- my $char = quotemeta($state->{'verb'});
- if (s/^(.*?)$char\}/\}/)
- {
- if ($state->{'keep_texi'})
- {
- add_prev($text, $stack, $1 . $state->{'verb'});
- $stack->[-1]->{'text'} = $state->{'verb'} . $stack->[-1]->{'text'};
- }
- elsif ($state->{'remove_texi'})
- {
- add_prev($text, $stack, $1);
- }
- else
- {
- add_prev($text, $stack, do_text($1, $state));
- }
- delete $state->{'verb'};
- next;
- }
- else
- {
- add_prev($text, $stack, $_);
- last;
- }
- }
-
- # We handle now the end tags
- if ($state->{'keep_texi'} and s/^([^{}@]*)\@end\s+([a-zA-Z]\w*)//)
- {
- my $end_tag = $2;
- add_prev($text, $stack, $1 . "\@end $end_tag");
- next;
- }
- elsif ($state->{'remove_texi'} and s/^([^{}@]*)\@end\s+([a-zA-Z]\w*)//)
- {
- add_prev($text, $stack, $1);
- next;
- }
-
- if (s/^([^{}@,]*)\@end\s+([a-zA-Z]\w*)\s// or s/^([^{}@,]*)\@end\s+([a-zA-Z]\w*)$//)
- {
- add_prev($text, $stack, do_text($1, $state));
- my $end_tag = $2;
- #print STDERR "END_MACRO $end_tag\n";
- #dump_stack ($text, $stack, $state);
-
- # First we test if the stack is not empty.
- # Then we test if the end tag is a format tag.
- # If so, we close the styles.
- # We then close paragraphs and preformatted at top of the stack.
- # We handle the end tag (even when it was not the tag which appears
- # on the top of the stack; in that case we close anything
- # until that element)
- $state->{'detailmenu'}-- if ($end_tag eq 'detailmenu' and $state->{'detailmenu'});
- # FIXME handle in sub skip
- next if (defined($Texi2HTML::Config::misc_command{"end $end_tag"}));
- my $top_stack = top_stack($stack);
- if (!$top_stack)
- {
- echo_error ("\@end $end_tag without corresponding opening", $line_nr);
- add_prev($text, $stack, "\@end $end_tag");
- next;
- }
-
- if (!$format_type{$end_tag})
- {
- echo_warn ("Unknown \@end $end_tag", $line_nr);
- #warn "$ERROR Unknown \@end $end_tag\n";
- add_prev($text, $stack, "\@end $end_tag");
- next;
- }
- unless ($Texi2HTML::Config::format_in_paragraph{$end_tag})
- {
- close_paragraph($text, $stack, $state, $line_nr);
- }
-
- $top_stack = top_stack($stack);
- if (!$top_stack or (!defined($top_stack->{'format'})))
- {
- echo_error ("\@end $end_tag without corresponding opening element", $line_nr);
- add_prev($text, $stack, "\@end $end_tag");
- next;
- }
- # Warn if the format on top of stack is not compatible with the
- # end tag, and find the end tag.
- unless (
- ($top_stack->{'format'} eq $end_tag)
- or
- (
- ($format_type{$end_tag} eq 'menu') and
- (
- ($top_stack->{'format'} eq 'menu_preformatted') or
- ($top_stack->{'format'} eq 'menu_comment') or
- ($top_stack->{'format'} eq 'menu_description')
- )
- ) or
- (
- ($end_tag eq 'multitable') and
- (
- ($top_stack->{'format'} eq 'cell') or
- ($top_stack->{'format'} eq 'null')
- )
- ) or
- (
- ($format_type{$end_tag} eq 'list' ) and
- ($top_stack->{'format'} eq 'item')
- ) or
- (
- (
- ($format_type{$end_tag} eq 'table') and
- ($end_tag ne 'multitable')
- ) and
- (
- ($top_stack->{'format'} eq 'term') or
- ($top_stack->{'format'} eq 'line')
- )
- ) or
- (
- (defined($Texi2HTML::Config::def_map{$end_tag})) and
- ($top_stack->{'format'} eq 'deff_item')
- ) or
- (
- ($end_tag eq 'row') and
- ($top_stack->{'format'} eq 'cell')
- )
- )
- {
- my $waited_format = $top_stack->{'format'};
- $waited_format = $fake_format{$top_stack->{'format'}} if ($format_type{$top_stack->{'format'}} eq 'fake');
- echo_error ("waiting for end of $waited_format, found \@end $end_tag", $line_nr);
- close_stack($text, $stack, $state, $line_nr, undef, $end_tag);
- # an empty preformatted may appear when closing things as
- # when closed, formats reopen the preformatted environment
- # in case there is some text following, but we know it isn't
- # the case here, thus we can close paragraphs.
- close_paragraph($text, $stack, $state);
- my $new_top_stack = top_stack($stack);
- next unless ($new_top_stack and defined($new_top_stack->{'format'}) and (($new_top_stack->{'format'} eq $end_tag)
- or (($format_type{$new_top_stack->{'format'}} eq 'fake') and ($fake_format{$new_top_stack->{'format'}} eq $format_type{$end_tag}))));
- }
- # We should now be able to handle the format
- if (defined($format_type{$end_tag}) and $format_type{$end_tag} ne 'fake')
- {
- end_format($text, $stack, $state, $end_tag, $line_nr);
- }
- else
- { # this is a fake format, ie a format used internally, inside
- # a real format. We do nothing, hoping the real format will
- # get closed, closing the fake internal formats
- #print STDERR "FAKE \@end $end_tag\n";
- #add_prev($text, $stack, "\@end $end_tag");
- }
- next;
- }
- # This is a macro
- #elsif (s/^([^{}@]*)\@([a-zA-Z]\w*|["'~\@\}\{,\.!\?\s\*\-\^`=:\/])//o)
- elsif (s/^([^{},@]*)\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/])//o or s/^([^{}@,]*)\@([a-zA-Z]\w*)([\s\{\}\@])/$3/o or s/^([^{},@]*)\@([a-zA-Z]\w*)$//o)
- {
- add_prev($text, $stack, do_text($1, $state));
- my $macro = $2;
- #print STDERR "MACRO $macro\n";
- #dump_stack ($text, $stack, $state);
- # This is a macro added by close_stack to mark paragraph end
- if ($macro eq 'end_paragraph')
- {
- my $top_stack = top_stack($stack);
- if (!$top_stack or !$top_stack->{'format'}
- or ($top_stack->{'format'} ne 'paragraph'))
- {
- print STDERR "Bug: end_paragraph but no paragraph to end\n";
- dump_stack ($text, $stack, $state);
- next;
- }
- s/^\s//;
- my $paragraph = pop @$stack;
- add_prev ($text, $stack, do_paragraph($paragraph->{'text'}, $state));
- next;
- }
- # Handle macro added by close_stack to mark preformatted region end
- elsif ($macro eq 'end_preformatted')
- {
- my $top_stack = top_stack($stack);
- if (!$top_stack or !$top_stack->{'format'}
- or ($top_stack->{'format'} ne 'preformatted'))
- {
- print STDERR "Bug: end_preformatted but no preformatted to end\n";
- dump_stack ($text, $stack, $state);
- next;
- }
- my $paragraph = pop @$stack;
- s/^\s//;
- add_prev ($text, $stack, do_preformatted($paragraph->{'text'}, $state));
- next;
- }
- if (defined($Texi2HTML::Config::misc_command{$macro}))
- {
- # This strange condition is there because for an argument
- # appearing on an @itemize line, appended to an @item
- # we don't want to keep @c or @comment as otherwise it eats
- # the line. Other commands could do that too but then the user
- # deserves what he gets.
- if (($state->{'keep_texi'} and
- (!$state->{'check_item'} or ($macro ne 'c' and $macro ne 'comment')))
- or $state->{'remove_texi'})
- {
- my ($line, $args);
- ($_, $line, $args) = preserve_command($_, $macro);
- if ($state->{'keep_texi'})
- {
- add_prev($text, $stack, $line);
- }
- next;
- }
- my $keep = $Texi2HTML::Config::misc_command{$macro}->{'keep'};
- $_ = misc_command_text($_, $macro, $stack, $state, $text, $line_nr);
- return unless (defined($_));
- unless ($keep)
- {
- begin_paragraph($stack, $state) if
- (!no_paragraph($state,$_));
- next;
- }
- }
-# if ($macro eq 'sp')
-# {
-# my ($space1, $sp_number, $space2);
-# if (s/^(\s+)(\d+)(\s*)//)
-# {
-# $space1 = $1;
-# $sp_number = $2;
-# $space2 = $3;
-# }
-# elsif (s/(\s*)$//)
-# {
-# $space1 = $1;
-# $sp_number = '';
-# $space2 = '';
-# }
-# else
-# {
-# next if ($state->{'remove_texi'});
-# if ($state->{'keep_texi'})
-# {
-# add_prev($text, $stack, "\@$macro");
-# next;
-# }
-# echo_error ("\@$macro needs a numeric arg or no arg", $line_nr);
-# next;
-# }
-# next if ($state->{'remove_texi'});
-# if ($state->{'keep_texi'})
-# {
-# add_prev($text, $stack, "\@$macro" . $space1 . $sp_number . $space2);
-# next;
-# }
-# $sp_number = 1 if ($sp_number eq '');
-# add_prev($text, $stack, &$Texi2HTML::Config::sp($sp_number, $state->{'preformatted'}));
-# next;
-# }
- #if ($macro eq 'verbatiminclude' or $macro eq 'listoffloats')
- if ($macro eq 'listoffloats')
- {
- if ($state->{'keep_texi'})
- {
- if (s/(.*)//o)
- {
- add_prev($text, $stack, "\@$macro" . $1);
- }
- next;
- }
- return undef if ($state->{'remove_texi'});
-
- if (s/^(\s+)(.*)//o)
- {
- my $arg = $2;
-# if ($macro eq 'verbatiminclude')
-# {
-# my $file = locate_include_file($arg);
-# if (defined($file))
-# {
-# if (!open(VERBINCLUDE, $file))
-# {
-# echo_warn ("Can't read file $file: $!",$line_nr);
-# }
-# else
-# {
-# my $verb_text = '';
-# while (my $line = <VERBINCLUDE>)
-# {
-# $verb_text .= $line;
-# }
-# add_prev($text, $stack, &$Texi2HTML::Config::raw('verbatim',$verb_text));
-# close VERBINCLUDE;
-# }
-# }
-# else
-# {
-# echo_error ("Can't find $arg, skipping", $line_nr);
-# }
-# }
-# elsif ($macro eq 'listoffloats')
-# {
- my $style_id = cross_manual_line (normalise_space($arg));
- my $style = substitute_line (&$Texi2HTML::Config::listoffloats_style($arg));
- if (exists ($floats{$style_id}))
- {
- close_paragraph($text, $stack, $state, $line_nr);
- my @listoffloats_entries = ();
- foreach my $float (@{$floats{$style_id}->{'floats'}})
- {
- my $float_style = substitute_line(&$Texi2HTML::Config::listoffloats_float_style($arg, $float));
- my $caption_lines = &$Texi2HTML::Config::listoffloats_caption($float);
- my $caption = substitute_text({ 'multiple_pass' => 1 }, @$caption_lines);
- push @listoffloats_entries, &$Texi2HTML::Config::listoffloats_entry($arg, $float, $float_style, $caption, href($float, $state->{'element'}->{'file'}));
- }
- add_prev($text, $stack, &$Texi2HTML::Config::listoffloats($arg, $style, \@listoffloats_entries));
- }
- else
- {
- echo_warn ("Unknown float style $arg", $line_nr);
- }
-# }
- }
- else
- {
- echo_error ("Bad \@$macro line: $_", $line_nr);
- }
- return undef;
- }
- # This is a @macroname{...} construct. We add it on top of stack
- # It will be handled when we encounter the '}'
- if (s/^{//)
- {
- if ($macro eq 'verb')
- {
- if (/^$/)
- {
- # Allready warned
- #warn "$ERROR verb at end of line";
- }
- else
- {
- s/^(.)//;
- $state->{'verb'} = $1;
- }
- } #FIXME what to do if remove_texi and anchor/ref/footnote ?
- elsif ($macro eq 'm_cedilla' and !$state->{'keep_texi'})
- {
- $macro = ',';
- }
- push (@$stack, { 'style' => $macro, 'text' => '', 'arg_nr' => 0 });
- $state->{'no_paragraph'}++ if ($no_paragraph_macro{$macro});
- open_arg($macro, 0, $state);
- push (@{$state->{'style_stack'}}, $macro) if (defined($style_type{$macro}) and (($style_type{$macro} eq 'style') or ($style_type{$macro} eq 'accent')));
- next;
- }
-
- # special case if we are checking items
-
- if ($state->{'check_item'} and ($macro =~ /^itemx?$/ or $macro eq 'headitem'))
- {
- echo_error("\@$macro on \@$state->{'check_item'} line", $line_nr);
- next;
- }
-
- # if we're keeping texi unmodified we can do it now
- if ($state->{'keep_texi'})
- {
- # We treat specially formats accepting {} on command line
- if ($macro eq 'multitable' or defined($Texi2HTML::Config::def_map{$macro}))
- {
- add_prev($text, $stack, "\@$macro" . $_);
- $_ = '';
- next;
- }
- # @ at the end of line may protect te end of line even when
- # keeping texi
- if ($macro eq "\n")
- {
- $state->{'end_of_line_protected'} = 1;
- #print STDERR "PROTECTING END OF LINE\n";
- }
-
- add_prev($text, $stack, "\@$macro");
- if ($text_macros{$macro} and $text_macros{$macro} eq 'raw')
- {
- $state->{'raw'} = $macro;
- push (@$stack, {'style' => $macro, 'text' => ''});
- }
- next;
- }
- # If we are removing texi, the following macros are not removed
- # as is but modified
-
- # a raw macro beginning
- if ($text_macros{$macro} and $text_macros{$macro} eq 'raw')
- {
- if (!$Texi2HTML::Config::format_in_paragraph{$macro})
- { # close paragraph before verbatim (and tex if !L2H)
- close_paragraph($text, $stack, $state, $line_nr);
- }
- $state->{'raw'} = $macro;
- push (@$stack, {'style' => $macro, 'text' => ''});
- return if (/^\s*$/);
- next;
- }
- my $simple_macro = 1;
- # An accent macro
- if (exists($Texi2HTML::Config::accent_map{$macro}))
- {
- if (s/^(\S)//o)
- {
- add_prev($text, $stack, do_simple($macro, $1, $state, [ $1 ], $line_nr));
- }
- else
- { # The accent is at end of line
- add_prev($text, $stack, do_text($macro, $state));
- }
- }
- # an @-command which should be like @command{}. We handle it...
- elsif ($things_map_ref->{$macro})
- {
- echo_warn ("$macro requires {}", $line_nr);
- add_prev($text, $stack, do_simple($macro, '', $state));
- }
- # an @-command like @command
- elsif (defined($simple_map_ref->{$macro}))
- {
- add_prev($text, $stack, do_simple($macro, '', $state));
- }
- else
- {
- $simple_macro = 0;
- }
- if ($simple_macro)
- {# if the macro didn't triggered a paragraph start it might now
- begin_paragraph($stack, $state) if
- ($no_line_macros{$macro} and !no_paragraph($state,$_));
- next;
- }
- # the following macros are not modified but just ignored
- # if we are removing texi
- if ($macro =~ /^tex_(\d+)$/o)
- {
- add_prev($text, $stack, Texi2HTML::LaTeX2HTML::do_tex($1));
- next;
- }
- if ($state->{'remove_texi'})
- {
- if ((($macro =~ /^(\w+?)index$/) and ($1 ne 'print')) or
- ($macro eq 'itemize') or ($macro =~ /^(|v|f)table$/)
- or ($macro eq 'multitable') or ($macro eq 'quotation'))
- {
- return;
- }
- elsif ($macro eq 'enumerate')
- {
- my $spec;
- ($_, $spec) = parse_enumerate ($_);
- return if (/^\s*$/);
- next;
- }
- elsif (defined($Texi2HTML::Config::def_map{$macro}))
- {
- my ($style, $category, $name, $type, $class, $arguments);
- ($style, $category, $name, $type, $class, $arguments) = parse_def($macro, $_, $line_nr);
- # FIXME maybe a call to substitute_line with state would
- # be better ?
- $category = remove_texi($category) if (defined($category));
- # FIXME -- --- ''... should be protected (not by makeinfo)
- $name = remove_texi($name) if (defined($name));
- # FIXME -- --- ''... should be protected (not by makeinfo)
- $type = remove_texi($type) if (defined($type));
- # FIXME -- --- ''... should be protected (not by makeinfo)
- $class = remove_texi($class) if (defined($class));
- # FIXME -- --- ''... should be protected
- $arguments = remove_texi($arguments) if (defined($arguments));
- chomp($arguments);
- add_prev($text, $stack, &$Texi2HTML::Config::def_line_no_texi($category, $name, $type, $arguments));
- return;
- }
- next;
- }
- if (($macro =~ /^(\w+?)index$/) and ($1 ne 'print'))
- {
- add_prev($text, $stack, do_index_entry_label($state,$line_nr));
- return;
- }
- # a macro which triggers paragraph closing
- if ($macro eq 'insertcopying')
- {
- close_paragraph($text, $stack, $state, $line_nr);
- add_prev($text, $stack, do_insertcopying($state));
- # reopen a preformatted format if it was interrupted by the macro
- begin_paragraph ($stack, $state) if ($state->{'preformatted'});
- return;
- }
- if ($macro =~ /^itemx?$/ or ($macro eq 'headitem'))
- {
- #print STDERR "ITEM: $_";
- #dump_stack($text, $stack, $state);
- # these functions return true if the context was their own
- abort_empty_preformatted($stack, $state);
- # FIXME let the user be able not to close the paragraph
- close_paragraph($text, $stack, $state, $line_nr);
- my $format;
- if ($format = add_item($text, $stack, $state, $line_nr, $_))
- { # handle lists
- }
- elsif ($format = add_term($text, $stack, $state, $line_nr))
- {# handle table
- }
- elsif ($format = add_line($text, $stack, $state, $line_nr))
- {# handle table
- }
- if ($format)
- {
- if (defined($format->{'appended'}))
- {
- $_ = $format->{'appended'} . ' ' . $_ if ($format->{'appended'} ne '');
- }
- if (defined($format->{'command'}))
- {
- open_arg($format->{'command'},0, $state);
- }
- next;
- }
- $format = add_row ($text, $stack, $state, $line_nr); # handle multitable
- unless ($format)
- {
- echo_warn ("\@$macro outside of table or list", $line_nr);
- next;
- }
- push @$stack, {'format' => 'row', 'text' => '', 'item_cmd' => $macro };
- if ($format->{'max_columns'})
- {
- push @$stack, {'format' => 'cell', 'text' => ''};
- $format->{'cell'} = 1;
-
- if (!no_paragraph($state,$_) or automatic_preformatted($state,$macro))
- {
- begin_paragraph($stack, $state);
- }
- }
- else
- {
- echo_warn ("\@$macro in empty multitable", $line_nr);
- }
- next;
- }
- if ($macro eq 'tab')
- {
- # FIXME let the user be able not to close the paragraph
- abort_empty_preformatted($stack, $state);
- close_paragraph($text, $stack, $state, $line_nr);
- my $format = add_cell ($text, $stack, $state);
- #print STDERR "tab, $format->{'cell'}, max $format->{'max_columns'}\n";
- if (!$format)
- {
- echo_warn ("\@tab outside of multitable", $line_nr);
- #warn "$WARN \@tab outside of multitable\n";
- }
- elsif (!$format->{'max_columns'})
- {
- echo_warn ("\@$macro in empty multitable", $line_nr);
- #warn "$WARN \@$macro in empty multitable\n";
- push @$stack, {'format' => 'null', 'text' => ''};
- next;
- }
- elsif ($format->{'cell'} > $format->{'max_columns'})
- {
- echo_warn ("too much \@$macro (multitable has only $format->{'max_columns'} column(s))", $line_nr);
- #warn "$WARN cell over table width\n";
- push @$stack, {'format' => 'null', 'text' => ''};
- next;
- }
- else
- {
- push @$stack, {'format' => 'cell', 'text' => ''};
- }
- if (!no_paragraph($state,$_) or automatic_preformatted($state,$macro))
- {
- begin_paragraph($stack, $state);
- }
- next;
- }
- # Macro opening a format (table, list, deff, example...)
- if ($format_type{$macro} and ($format_type{$macro} ne 'fake'))
- {
- unless ($Texi2HTML::Config::format_in_paragraph{$macro})
- {
- close_paragraph($text, $stack, $state, $line_nr);
- }
- #print STDERR "begin $macro\n";
- # A deff like macro
- if (defined($Texi2HTML::Config::def_map{$macro}))
- {
- if ($state->{'deff'} and ("$state->{'deff'}->{'command'}x" eq $macro))
- {
- $macro =~ s/x$//o;
- #print STDERR "DEFx $macro\n";
- }
- else
- {
- # The previous @def command isn't the same @def
- # command. We begin the item for the previous @def
- # command and immediatly open the new one.
- begin_deff_item($stack, $state, 1) if ($state->{'deff'});
- $macro =~ s/x$//o;
- #print STDERR "DEF begin $macro\n";
- push @$stack, { 'format' => $macro, 'text' => '' };
- }
- #print STDERR "BEGIN_DEFF $macro\n";
- #dump_stack ($text, $stack, $state);
- $state->{'deff'}->{'command'} = $macro;
- my ($style, $category, $name, $type, $class, $arguments);
- #($style, $category, $name, $type, $class, $arguments) = parse_def($macro, $_, $line_nr);
- ($style, $category, $name, $type, $class, $_) = parse_def($macro, $_, $line_nr);
- #print STDERR "AFTER parse_def $_";
- # duplicate_state ?
- #$category = substitute_line($category) if (defined($category));
- $state->{'deff'}->{'style'} = $style;
- $state->{'deff'}->{'category'} = substitute_line($category) if (defined($category));
- # FIXME -- --- ''... should be protected (not by makeinfo)
- #$name = substitute_line($name) if (defined($name));
- $state->{'deff'}->{'name'} = substitute_line($name) if (defined($name));
- # FIXME -- --- ''... should be protected (not by makeinfo)
- #$type = substitute_line($type) if (defined($type));
- $state->{'deff'}->{'type'} = substitute_line($type) if (defined($type));
- # FIXME -- --- ''... should be protected (not by makeinfo)
- #$class = substitute_line($class) if (defined($class));
- $state->{'deff'}->{'class'} = substitute_line($class) if (defined($class));
- # FIXME -- --- ''... should be protected
- open_cmd_line($stack, $state, ['keep'], \&do_def_line);
- next;
- #$arguments = substitute_line($arguments) if (defined($arguments));
- #$category = &$Texi2HTML::Config::definition_category($category, $class, $style);
- #if (! $category) # category cannot be 0
- #{
- # echo_warn("Bad definition line $_", $line_nr);
- # return;
- #}
- #my $index_label = main::do_index_entry_label ($state) if ($name ne '');
- #add_prev ($text, $stack, &$Texi2HTML::Config::def_line($category, $name, $type, $arguments, $index_label));
- #return;
- }
- elsif ($format_type{$macro} eq 'menu')
- {
- # if we are allready in a menu we must close it first
- # in order to close the menu comments and entries
- close_menu($text, $stack, $state, $line_nr);
- $state->{'menu'}++;
- push @$stack, { 'format' => $macro, 'text' => '' };
- if ($state->{'preformatted'})
- {
- # Start a fake complex format in order to have a given pre style
- $state->{'preformatted'}++;
- push @$stack, { 'format' => 'menu_preformatted', 'text' => '', 'pre_style' => $Texi2HTML::Config::MENU_PRE_STYLE };
- push @{$state->{'preformatted_stack'}}, {'pre_style' => $Texi2HTML::Config::MENU_PRE_STYLE, 'class' => 'menu-preformatted' };
- }
- }
- elsif (exists ($Texi2HTML::Config::complex_format_map->{$macro}))
- {
- $state->{'preformatted'}++;
- my $format = { 'format' => $macro, 'text' => '', 'pre_style' => $Texi2HTML::Config::complex_format_map->{$macro}->{'pre_style'} };
- push @{$state->{'preformatted_stack'}}, {'pre_style' =>$Texi2HTML::Config::complex_format_map->{$macro}->{'pre_style'}, 'class' => $macro };
- push @$stack, $format;
- unless ($Texi2HTML::Config::format_in_paragraph{$macro})
- {
- begin_paragraph($stack, $state);
- }
- }
- elsif ($Texi2HTML::Config::paragraph_style{$macro})
- {
- # if there are only spaces after the @center, then the end
- # of line has allready been removed and the code triggered
- # by end of line for @center closing won't be called.
- # thus we don't open it (opening @center means pushing it
- # on the paragraph_style stack)
- next if (($macro eq 'center') and /^\s*$/);
- push @{$state->{'paragraph_style'}}, $macro;
- push (@$stack, { 'format' => $macro, 'text' => '' }) unless ($macro eq 'center');
- if (!no_paragraph($state,$_) or automatic_preformatted($state,$macro))
- {
- begin_paragraph($stack, $state);
- }
- }
- elsif (($format_type{$macro} eq 'list') or ($format_type{$macro} eq 'table'))
- {
- my $format;
- #print STDERR "BEGIN $macro\n";
- #dump_stack($text, $stack, $state);
- if (($macro eq 'itemize') or ($macro =~ /^(|v|f)table$/))
- {
- my $command;
- my $appended;
- ($appended, $command) = parse_format_command($_,$macro);
- $format = { 'format' => $macro, 'text' => '', 'command' => $command, 'appended' => $appended, 'term' => 0 };
- $_ = '';
- }
- elsif ($macro eq 'enumerate')
- {
- my $spec;
- ($_, $spec) = parse_enumerate ($_);
- $spec = 1 if (!defined($spec));
- $format = { 'format' => $macro, 'text' => '', 'spec' => $spec, 'item_nr' => 0 };
- }
- elsif ($macro eq 'multitable')
- {
- my $max_columns = parse_multitable ($_, $line_nr);
- if (!$max_columns)
- {
- echo_warn ("empty multitable", $line_nr);
- #warn "$WARN empty multitable\n";
- $max_columns = 0;
- }
- $format = { 'format' => $macro, 'text' => '', 'max_columns' => $max_columns, 'cell' => 1 };
- }
- $format->{'first'} = 1;
- $format->{'paragraph_number'} = 0;
- push @$stack, $format;
- push @{$state->{'format_stack'}}, $format;
- if ($macro =~ /^(|v|f)table$/)
- {
- push @$stack, { 'format' => 'line', 'text' => ''};
- }
- elsif ($macro eq 'multitable')
- {
- if ($format->{'max_columns'})
- {
- push @$stack, { 'format' => 'row', 'text' => '', 'item_cmd' => $macro };
- push @$stack, { 'format' => 'cell', 'text' => ''};
- }
- else
- {
- # multitable without row... We use the special null
- # format which content is ignored
- push @$stack, { 'format' => 'null', 'text' => ''};
- push @$stack, { 'format' => 'null', 'text' => ''};
- }
- }
- if ($format_type{$macro} eq 'list')
- {
- push @$stack, { 'format' => 'item', 'text' => ''};
- }
- if (($macro ne 'multitable') and
- !no_paragraph($state,$_) or automatic_preformatted($state,$macro))
- {
- begin_paragraph($stack, $state);
- }
- return if ($format_type{$macro} eq 'table' or $macro eq 'itemize');
- }
- elsif ($macro eq 'float' or $macro eq 'quotation')
- {
- push @$stack, {'format' => $macro, 'text' => '' };
- if ($macro eq 'float')
- {
- open_cmd_line($stack, $state, ['keep','keep'], \&do_float_line);
- }
- elsif ($macro eq 'quotation')
- {
- open_cmd_line($stack, $state, ['keep','keep'], \&do_quotation_line);
- }
- #print STDERR "Begin cmd_line\n";
- #dump_stack($text, $stack, $state);
- next;
- }
- # keep this one at the end as there are some other formats
- # which are also in format_map
- elsif (defined($Texi2HTML::Config::format_map{$macro}) or ($format_type{$macro} eq 'cartouche'))
- {
- push @$stack, { 'format' => $macro, 'text' => '' };
- if (!no_paragraph($state,$_) or automatic_preformatted($state,$macro))
- {
- begin_paragraph($stack, $state);
- }
- }
- return if (/^\s*$/);
- next;
- }
- $_ = do_unknown ($macro, $_, $text, $stack, $state, $line_nr);
- next;
- }
- elsif(s/^([^{}@,]*)\@([^\s\}\{\@]*)//o)
- { # A macro with a character which shouldn't appear in macro name
- add_prev($text, $stack, do_text($1, $state));
- $_ = do_unknown ($2, $_, $text, $stack, $state, $line_nr);
- #add_prev($text, $stack, do_text($1 ."\@$2", $state));
- next;
- }
- elsif (s/^([^{},]*)([{}])//o or ($state->{'cmd_line'} and /^([^{},]*)$/))
- {
- my $leading_text = $1;
- my $brace = $2;
- if (!defined($brace))#in a command line
- {
- if (/^$/ and $state->{'end_of_line_protected'} and $state->{'deff'})
- {
- return;
- }
- chomp $leading_text;
- }
- # a brace closed, at the end of line. If in cmd_line we remove
- # the end of line, such that the end of line is detected
- elsif ($state->{'cmd_line'} and /^$/)
- {
- chomp $_;
- }
- add_prev($text, $stack, do_text($leading_text, $state));
-#if ($state->{'cmd_line'}){print STDERR "CMD_LINE\n"; dump_stack($text, $stack, $state);}
- if (defined($brace) and ($brace eq '{'))
- {
- add_prev($text, $stack, '{');
- unless ($state->{'keep_texi'} or $state->{'remove_texi'})
- {
- echo_error ("'{' without macro before: $_", $line_nr);
- }
- }
- else
- { # A @macroname{ ...} is closed
- if (@$stack and defined($stack->[-1]->{'style'}))
- {
- my $macro = $stack->[-1]->{'style'};
- if (($macro eq 'cmd_line') and $brace and ($brace eq '}'))
- {
- add_prev($text, $stack, '}');
- unless ($state->{'keep_texi'} or $state->{'remove_texi'})
- {
- echo_error ("A '}' without opening '{' before: $_", $line_nr);
- }
- next;
- }
- my $style = pop @$stack;
- my $result;
- if (ref($style_map_ref->{$macro}) eq 'HASH')
- {
- push (@{$style->{'args'}}, $style->{'text'});
- $style->{'fulltext'} .= $style->{'text'};
- my $number = 0;
- #foreach my $arg(@{$style->{'args'}})
- #{
- #print STDERR " $number: $arg\n";
- # $number++;
- #}
- $style->{'text'} = $style->{'fulltext'};
- $state->{'keep_texi'} = 0 if (#$state->{'keep_texi'}
- ($style_map_ref->{$macro}->{'args'}->[$style->{'arg_nr'}] eq 'keep')
- and ($state->{'keep_nr'} == 1));
- }
- $state->{'no_paragraph'}-- if ($no_paragraph_macro{$macro});
- if ($macro)
- {
- $style->{'no_close'} = 1 if ($state->{'no_close'});
- if ($state->{'keep_texi'})
- { # don't expand macros in anchor and ref
- close_arg ($macro, $style->{'arg_nr'}, $state);
- $result = '@' . $macro . '{' . $style->{'text'} . '}';
- }
- else
- {
- if ($style_map_ref->{$macro} and !$style->{'no_close'} and (defined($style_type{'$macro'})) and (($style_type{'$macro'} eq 'style') or ($style_type{'$macro'} eq 'accent')))
- {
- my $style = pop @{$state->{'style_stack'}};
- print STDERR "Bug: $style on 'style_stack', not $macro\n" if ($style ne $macro);
- }
- $result = do_simple($macro, $style->{'text'}, $state, $style->{'args'}, $line_nr, $style->{'no_open'}, $style->{'no_close'});
- if ($state->{'code_style'} < 0)
- {
- echo_error ("Bug: negative code_style: $state->{'code_style'}, line:$_", $line_nr);
- }
- }
- }
- else
- {
- #$result = $style->{'text'} . '}';
- print STDERR "Bug: empty style in pass_text\n";
- }
- add_prev($text, $stack, $result);
- if ($state->{'cmd_line'} and ($style->{'style'} eq 'cmd_line'))
- {
- if ($state->{'deff'})
- {
-#print STDERR "DO DEFF $state->{'deff'}->{'command'} $state->{'deff'}->{'arguments'}\n";
- my $def_style = $state->{'deff'}->{'style'};
- my $category = $state->{'deff'}->{'category'};
- my $class = $state->{'deff'}->{'class'};
- my $type = $state->{'deff'}->{'type'};
- my $name = $state->{'deff'}->{'name'};
- #my $arguments = $state->{'deff'}->{'arguments'};
- my $arguments;
- $arguments = substitute_line($state->{'deff'}->{'arguments'}) if (defined($state->{'deff'}->{'arguments'}));
-
- $category = &$Texi2HTML::Config::definition_category($category, $class, $def_style);
- if (! $category) # category cannot be 0
- {
- echo_warn("Bad definition line $_", $line_nr);
- delete $state->{'cmd_line'};
- return '';
- }
- my $index_label = do_index_entry_label ($state,$line_nr) if ($name ne '');
- add_prev($text, $stack, &$Texi2HTML::Config::def_line($category, $name, $type, $arguments, $index_label));
- }
- else
- # we've got to mark paragraph here as the following
- # line will determine whether or not we open a paragraph
- {
- $state->{'open_paragraph'} = 1;
- }
- delete $state->{'cmd_line'};
- $state->{'no_paragraph'}--;
- return;
- }
- next;
- }
- else
- {
- echo_error("'}' without opening '{' before: $_", $line_nr);
- # we cannot be in cmd_line as the stack is empty
- if ($state->{'cmd_line'})
- {
- print STDERR "Bug: state->{'cmd_line'} true but stack empty\n";
- dump_stack($text, $stack, $state);
- delete $state->{'cmd_line'};
- }
- add_prev($text, $stack, '}') if ($state->{'keep_texi'});
- }
- }
- }
- elsif (s/^([^,]*)([,])//o)
- {
- add_prev($text, $stack, do_text($1, $state));
- my $comma = $2;
- if ($state->{'cmd_line'} and !@$stack)
- {
- print STDERR "Bug: state->{'cmd_line'} = $state->{'cmd_line'} but no stack\n";
- dump_stack($text, $stack, $state);
- }
- if (@$stack and defined($stack->[-1]->{'style'})
- and (ref($style_map_ref->{$stack->[-1]->{'style'}}) eq 'HASH'))
- {
- my $macro = $stack->[-1]->{'style'};
- my $style_args = $style_map_ref->{$macro}->{'args'};
- if (defined($style_args->[$stack->[-1]->{'arg_nr'} + 1]))
- {
- push (@{$stack->[-1]->{'args'}}, $stack->[-1]->{'text'});
- $stack->[-1]->{'fulltext'} .= $stack->[-1]->{'text'} . do_text(',', $state);
- $stack->[-1]->{'text'} = '';
- close_arg ($macro, $stack->[-1]->{'arg_nr'}, $state);
- $stack->[-1]->{'arg_nr'}++;
- open_arg ($macro, $stack->[-1]->{'arg_nr'}, $state);
- next;
- }
- }
- add_prev($text, $stack, do_text(',', $state));
- }
- else
- { # no macro nor '}', but normal text
- add_prev($text, $stack, do_text($_, $state));
- #print STDERR "END LINE: $_";
- #dump_stack($text, $stack, $state);
-
- # @item line is closed by end of line
- add_term($text, $stack, $state, $line_nr);
- # FIXME test @center @item and @item @center
- if ($state->{'paragraph_style'}->[-1] eq 'center' and !$state->{'close_stack'})
- {
- close_paragraph($text, $stack, $state, $line_nr);
- pop @{$state->{'paragraph_style'}};
- #$_ = $/ if (chomp($_));
- $_ = '';
- next;
- }
- last;
- }
- }
- return 1;
-}
-
-sub open_arg($$$)
-{
- my $macro = shift;
- my $arg_nr = shift;
- my $state = shift;
- if (ref($style_map_ref->{$macro}) eq 'HASH')
- {
- my $arg = $style_map_ref->{$macro}->{'args'}->[$arg_nr];
- if ($arg eq 'code' and !$state->{'keep_texi'})
- {
- $state->{'code_style'}++;
- }
- elsif ($arg eq 'keep')
- {
- $state->{'keep_nr'}++;
- $state->{'keep_texi'} = 1;
- }
- }
- elsif ($code_style_map{$macro} and !$state->{'keep_texi'})
- {
- $state->{'code_style'}++;
- }
-}
-
-sub close_arg($$$)
-{
- my $macro = shift;
- my $arg_nr = shift;
- my $state = shift;
- if (ref($style_map_ref->{$macro}) eq 'HASH')
- {
- my $arg = $style_map_ref->{$macro}->{'args'}->[$arg_nr];
- if ($arg eq 'code' and !$state->{'keep_texi'})
- {
- $state->{'code_style'}--;
- }
- elsif ($arg eq 'keep')
- {
- $state->{'keep_nr'}--;
- $state->{'keep_texi'} = 0 if ($state->{'keep_nr'} == 0);
- }
-#print STDERR "c $arg_nr $macro $arg $state->{'code_style'}\n";
- }
- elsif ($code_style_map{$macro} and !$state->{'keep_texi'})
- {
- $state->{'code_style'}--;
- }
-}
-
-sub open_cmd_line($$$$)
-{
- my $stack = shift;
- my $state = shift;
- my $args = shift;
- my $function = shift;
- push @$stack, {'style' => 'cmd_line', 'text' => '', 'arg_nr' => 0};
- foreach my $hash (\%Texi2HTML::Config::style_map, \%Texi2HTML::Config::style_map_pre, \%Texi2HTML::Config::style_map_texi, \%Texi2HTML::Config::unformatted_text_style_map_texi)
- {
- $hash->{'cmd_line'}->{'args'} = $args;
- $hash->{'cmd_line'}->{'function'} = $function;
- }
- $state->{'no_paragraph'}++;
- open_arg ('cmd_line', 0, $state);
- $state->{'cmd_line'} = 1;
-}
-
-sub get_value($)
-{
- my $value = shift;
- return $value{$value} if ($value{$value});
- return "No value for $value";
-}
-
-sub add_term($$$$;$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- my $end = shift;
- return unless (exists ($state->{'format_stack'}));
- my $format = $state->{'format_stack'}->[-1];
- return unless (($format_type{$format->{'format'}} eq 'table') and ($format->{'format'} ne 'multitable' ) and $format->{'term'});
- #print STDERR "ADD_TERM\n";
- # we set 'term' = 0 early such that if we encounter an end of line
- # during close_stack we don't try to do the term once more
- $state->{'format_stack'}->[-1]->{'term'} = 0;
- $format->{'paragraph_number'} = 0;
- # no <pre> allowed in <dt>, thus it is possible there is a @t added
- # to have teletype in preformatted.
- if ($state->{'preformatted'} and $stack->[-1]->{'style'} and ($stack->[-1]->{'style'} eq 't'))
- {
- my $style = pop @$stack;
- add_prev($text, $stack, do_simple($style->{'style'}, $style->{'text'}, $state, [$style->{'text'}]));
- }
-
- #dump_stack($text, $stack, $state);
- close_stack($text, $stack, $state, $line_nr, undef, 'term');
- my $term = pop @$stack;
- my $command_formatted;
- chomp ($term->{'text'});
- if (exists($style_map_ref->{$format->{'command'}}) and
- !exists($Texi2HTML::Config::special_list_commands{$format->{'format'}}->{$format->{'command'}}) and ($style_type{$format->{'command'}} eq 'style'))
- {
- my $leading_spaces = '';
- my $trailing_spaces = '';
- $term->{'text'} =~ s/^(\s*)//;
- $leading_spaces = $1 if (defined($1));
- $term->{'text'} =~ s/(\s*)$//;
- $trailing_spaces = $1 if (defined($1));
- $term->{'text'} = do_simple($format->{'command'}, $term->{'text'}, $state, [$term->{'text'}]);
- $term->{'text'} = $leading_spaces. $term->{'text'} .$trailing_spaces;
- }
- elsif (exists($things_map_ref->{$format->{'command'}}))
- {
- $command_formatted = do_simple($format->{'command'}, '', $state);
- }
- my $index_label;
- if ($format->{'format'} =~ /^(f|v)/)
- {
- $index_label = do_index_entry_label($state,$line_nr);
- print STDERR "Bug: no index entry for $text" unless defined($index_label);
- }
- add_prev($text, $stack, &$Texi2HTML::Config::table_item($term->{'text'}, $index_label,$format->{'format'},$format->{'command'}, $command_formatted));
- #add_prev($text, $stack, &$Texi2HTML::Config::table_item($term->{'text'}, $index_entry, $state));
- unless ($end)
- {
- push (@$stack, { 'format' => 'line', 'text' => '' });
- begin_paragraph($stack, $state) if ($state->{'preformatted'});
- }
- return $format;
-}
-
-sub add_row($$$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- my $format = $state->{'format_stack'}->[-1];
- return unless ($format->{'format'} eq 'multitable');
- if ($format->{'cell'} > $format->{'max_columns'})
- {
- close_stack($text, $stack, $state, $line_nr, undef, 'null');
- pop @$stack;
- }
- unless ($format->{'max_columns'})
- { # empty multitable
- pop @$stack; # pop 'row'
- return $format;
- }
- if ($format->{'first'})
- { # first row
- $format->{'first'} = 0;
- #dump_stack($text, $stack, $state);
- #if ($stack->[-1]->{'format'} and ($stack->[-1]->{'format'} eq 'paragraph') and ($stack->[-1]->{'text'} =~ /^\s*$/) and ($format->{'cell'} == 1))
- if ($stack->[-1]->{'format'} and ($stack->[-1]->{'format'} eq 'cell') and ($stack->[-1]->{'text'} =~ /^\s*$/) and ($format->{'cell'} == 1))
- {
- pop @$stack;
- pop @$stack;
- #pop @$stack;
- return $format;
- }
- }
- add_cell($text, $stack, $state);
- my $row = pop @$stack;
- add_prev($text, $stack, &$Texi2HTML::Config::row($row->{'text'}, $row->{'item_cmd'}));
- return $format;
-}
-
-sub add_cell($$$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- my $format = $state->{'format_stack'}->[-1];
- return unless ($format->{'format'} eq 'multitable');
- if ($format->{'cell'} <= $format->{'max_columns'})
- {
- close_stack($text, $stack, $state, $line_nr, undef, 'cell');
- my $cell = pop @$stack;
- my $row = top_stack($stack);
- print STDERR "Bug: top_stack of cell not a row\n" if (!defined($row) or !defined($row->{'format'}) or ($row->{'format'} ne 'row'));
- add_prev($text, $stack, &$Texi2HTML::Config::cell($cell->{'text'}, $row->{'item_cmd'}));
- $format->{'cell'}++;
- }
- return $format;
-}
-
-sub add_line($$$$;$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- my $end = shift;
- my $format = $state->{'format_stack'}->[-1];
- return unless ($format_type{$format->{'format'}} eq 'table' and ($format->{'format'} ne 'multitable') and ($format->{'term'} == 0));
- #print STDERR "ADD_LINE\n";
- #dump_stack($text, $stack, $state);
- # as in pre the end of line are kept, we must explicitely abort empty
- # preformatted, close_stack doesn't abort the empty preformatted regions.
- abort_empty_preformatted($stack, $state) if ($format->{'first'});
- close_stack($text, $stack, $state, $line_nr, undef, 'line');
- my $line = pop @$stack;
- $format->{'paragraph_number'} = 0;
- my $first = 0;
- $first = 1 if ($format->{'first'});
- if ($first)
- {
- $format->{'first'} = 0;
- # we must have <dd> or <dt> following <dl> thus we do a
- # &$Texi2HTML::Config::table_line here too, although it could have been nice to
- # have a normal paragraph.
- add_prev($text, $stack, &$Texi2HTML::Config::table_line($line->{'text'})) if ($line->{'text'} =~ /\S/o);
- }
- else
- {
- add_prev($text, $stack, &$Texi2HTML::Config::table_line($line->{'text'}));
- }
- unless($end)
- {
- push (@$stack, { 'format' => 'term', 'text' => '' });
- # we cannot have a preformatted in table term (no <pre> in <dt>)
- # thus we set teletyped style @t if there is no pre_style
- push (@$stack, { 'style' => 't', 'text' => '' }) if ($state->{'preformatted'} and (!$state->{'preformatted_stack'}->[-1]->{'pre_style'}));
- #push (@$stack, { 'style' => $format->{'command'}, 'text' => $format->{'appended'} });
- }
- $format->{'term'} = 1;
- return $format;
-}
-
-sub add_item($$$$;$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- my $line = shift;
- my $end = shift;
- my $format = $state->{'format_stack'}->[-1];
- return unless ($format_type{$format->{'format'}} eq 'list');
- #print STDERR "ADD_ITEM: \n";
- # as in pre the end of line are kept, we must explicitely abort empty
- # preformatted, close_stack doesn't do that.
- abort_empty_preformatted($stack, $state) if ($format->{'first'});
- close_stack($text, $stack, $state, $line_nr, undef, 'item');
- $format->{'paragraph_number'} = 0;
- if ($format->{'format'} eq 'enumerate')
- {
- $format->{'number'} = '';
- my $spec = $format->{'spec'};
- $format->{'item_nr'}++;
- if ($spec =~ /^[0-9]$/)
- {
- $format->{'number'} = $spec + $format->{'item_nr'} - 1;
- }
- else
- {
- my $base_letter = ord('a');
- $base_letter = ord('A') if (ucfirst($spec) eq $spec);
-
- my @letter_ords = decompose(ord($spec) - $base_letter + $format->{'item_nr'} - 1, 26);
- foreach my $ord (@letter_ords)
- {#FIXME? we go directly to 'ba' after 'z', and not 'aa'
- #because 'ba' is 1,0 and 'aa' is 0,0.
- $format->{'number'} = chr($base_letter + $ord) . $format->{'number'};
- }
- }
- }
-
- #dump_stack ($text, $stack, $state);
- my $item = pop @$stack;
- # the element following ol or ul must be li. Thus even though there
- # is no @item we put a normal item.
-
- # don't do an item if it is the first and it is empty
- if (!$format->{'first'} or ($item->{'text'} =~ /\S/o))
- {
- my $formatted_command;
- if (defined($format->{'command'}) and exists($things_map_ref->{$format->{'command'}}))
- {
- $formatted_command = do_simple($format->{'command'}, '', $state);
- }
- #chomp($item->{'text'});
- add_prev($text, $stack, &$Texi2HTML::Config::list_item($item->{'text'},$format->{'format'},$format->{'command'}, $formatted_command, $format->{'item_nr'}, $format->{'spec'}, $format->{'number'}));
- }
- if ($format->{'first'})
- {
- $format->{'first'} = 0;
- }
-
- # Now prepare the new item
- unless($end)
- {
- push (@$stack, { 'format' => 'item', 'text' => '' });
- begin_paragraph($stack, $state) unless (!$state->{'preformatted'} and no_line($line));
- }
- return $format;
-}
-
-# format ``simple'' macros, that is macros without arg or style macros
-sub do_simple($$$;$$$$)
-{
- my $macro = shift;
- my $text = shift;
- my $state = shift;
- my $args = shift;
- my $line_nr = shift;
- my $no_open = shift;
- my $no_close = shift;
- my $result;
-
- my $arg_nr = 0;
- $arg_nr = @$args - 1 if (defined($args));
-
-#print STDERR "DO_SIMPLE $macro $arg_nr $args @$args\n" if (defined($args));
- if (defined($simple_map_ref->{$macro}))
- {
- # \n may in certain circumstances, protect end of lines
- if ($macro eq "\n")
- {
- $state->{'end_of_line_protected'} = 1;
- #print STDERR "PROTECTING END OF LINE\n";
- }
- if ($state->{'keep_texi'})
- {
- return "\@$macro";
- }
- elsif ($state->{'remove_texi'})
- {
-#print STDERR "DO_SIMPLE remove_texi $macro\n";
- return $simple_map_texi_ref->{$macro};
- }
- elsif ($state->{'preformatted'})
- {
- return $simple_map_pre_ref->{$macro};
- }
- else
- {
- return $simple_map_ref->{$macro};
- }
- }
- if (defined($things_map_ref->{$macro}))
- {
- if ($state->{'keep_texi'})
- {
- $result = "\@$macro" . '{}';
- }
- elsif ($state->{'remove_texi'})
- {
- $result = $texi_map_ref->{$macro};
-#print STDERR "DO_SIMPLE remove_texi texi_map $macro\n";
- }
- elsif ($state->{'preformatted'})
- {
- $result = $pre_map_ref->{$macro};
- }
- else
- {
- $result = $things_map_ref->{$macro};
- }
- return $result . $text;
- }
- elsif (defined($style_map_ref->{$macro}))
- {
- if ($state->{'keep_texi'})
- {
- $result = "\@$macro" . '{' . $text . '}';
- }
- else
- {
- my $style;
- if ($state->{'remove_texi'})
- {
-#print STDERR "REMOVE $macro, $style_map_texi_ref->{$macro}, fun $style_map_texi_ref->{$macro}->{'function'} remove cmd " . \&Texi2HTML::Config::t2h_remove_command . " ascii acc " . \&t2h_default_ascii_accent;
- $style = $style_map_texi_ref->{$macro};
- }
- elsif ($state->{'preformatted'})
- {
- $style = $style_map_pre_ref->{$macro};
- }
- else
- {
- $style = $style_map_ref->{$macro};
- }
- if (defined($style))
- { # known style
- $result = &$Texi2HTML::Config::style($style, $macro, $text, $args, $no_close, $no_open, $line_nr, $state, $state->{'style_stack'});
- }
- if (!$no_close)
- {
- close_arg($macro,$arg_nr, $state);
- }
- }
- return $result;
- }
- # Unknown macro
- $result = '';
- my ($done, $result_text, $message) = &$Texi2HTML::Config::unknown_style($macro, $text);
- if ($done)
- {
- echo_warn($message, $line_nr) if (defined($message));
- if (defined($result_text))
- {
- $result = $result_text;
- }
- }
- else
- {
- unless ($no_open)
- { # we warn only if no_open is true, i.e. it is the first time we
- # close the macro for a multiline macro
- echo_warn ("Unknown command with braces `\@$macro'", $line_nr);
- $result = do_text("\@$macro") . "{";
- }
- $result .= $text;
- $result .= '}' unless ($no_close);
- }
- return $result;
-}
-
-sub do_unknown($$$$$$)
-{
- my $macro = shift;
- my $line = shift;
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- my ($result_line, $result, $result_text, $message) = &$Texi2HTML::Config::unknown($macro, $line);
- if ($result)
- {
- add_prev ($text, $stack, $result_text) if (defined($result_text));
- echo_warn($message, $line_nr) if (defined($message));
- return $result_line;
- }
- else
- {
- echo_warn ("Unknown command `\@$macro' (left as is)", $line_nr);
- add_prev ($text, $stack, do_text("\@$macro"));
- return $line;
- }
-}
-
-# used only during @macro processing
-sub add_text($@)
-{
- my $string = shift;
-
- return if (!defined($string));
- foreach my $scalar_ref (@_)
- {
- next unless defined($scalar_ref);
- if (!defined($$scalar_ref))
- {
- $$scalar_ref = $string;
- }
- else
- {
- $$scalar_ref .= $string;
- }
- return;
- }
-}
-
-sub add_prev ($$$)
-{
- my $text = shift;
- my $stack = shift;
- my $string = shift;
-
- unless (defined($text) and ref($text) eq "SCALAR")
- {
- die "text not a SCALAR ref: " . ref($text) . "";
- }
- #if (!defined($stack) or (ref($stack) ne "ARRAY"))
- #{
- # $string = $stack;
- # $stack = [];
- #}
-
- return if (!defined($string));
- if (@$stack)
- {
- $stack->[-1]->{'text'} .= $string;
- return;
- }
-
- if (!defined($$text))
- {
- $$text = $string;
- }
- else
- {
- $$text .= $string;
- }
-}
-
-sub close_stack_texi_structure($$$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- return undef unless (@$stack or $state->{'raw'} or $state->{'macro'} or $state->{'macro_name'} or $state->{'ignored'});
-
- my $stack_level = $#$stack + 1;
- my $string = '';
-
- if ($state->{'ignored'})
- {
- $string .= "\@end $state->{'ignored'} ";
- echo_warn ("closing $state->{'ignored'}", $line_nr);
- }
- if ($state->{'texi'})
- {
- if ($state->{'macro'})
- {
- $string .= "\@end macro ";
- echo_warn ("closing macro", $line_nr);
- }
- elsif ($state->{'macro_name'})
- {
- $string .= ('}' x $state->{'macro_depth'}) . " ";
- echo_warn ("closing $state->{'macro_name'} ($state->{'macro_depth'} braces missing)", $line_nr);
- }
- elsif ($state->{'verb'})
- {
- echo_warn ("closing \@verb", $line_nr);
- $string .= $state->{'verb'} . '}';
- }
- elsif ($state->{'raw'})
- {
- echo_warn ("closing \@$state->{'raw'} raw format", $line_nr);
- $string .= "\@end $state->{'raw'} ";
- }
- if ($string ne '')
- {
- #print STDERR "scan_texi ($string)\n";
- scan_texi ($string, $text, $stack, $state, $line_nr);
- $string = '';
- }
- }
- elsif ($state->{'verb'})
- {
- $string .= $state->{'verb'};
- }
-
- while ($stack_level--)
- {
- my $stack_text = $stack->[$stack_level]->{'text'};
- $stack_text = '' if (!defined($stack_text));
- if ($stack->[$stack_level]->{'format'})
- {
- my $format = $stack->[$stack_level]->{'format'};
- if ($format eq 'index_item')
- {
- enter_table_index_entry($text, $stack, $state, $line_nr);
- next;
- }
- elsif (!defined($format_type{$format}) or ($format_type{$format} ne 'fake'))
- {
- $stack_text = "\@$format\n" . $stack_text;
- }
- }
- elsif (defined($stack->[$stack_level]->{'style'}))
- {
- my $style = $stack->[$stack_level]->{'style'};
- if ($style ne '')
- {
- $stack_text = "\@$style\{" . $stack_text;
- }
- else
- {
- $stack_text = "\{" . $stack_text;
- }
- }
- pop @$stack;
- add_prev($text, $stack, $stack_text);
- }
- $stack = [ ];
- $stack_level = 0;
- #return ($text, [ ], $state);
-
- $state->{'close_stack'} = 1;
- if ($string ne '')
- {
- if ($state->{'texi'})
- {
- #print STDERR "scan_texi in close_stack ($string)\n";
- scan_texi($string, $text, $stack, $state, $line_nr);
- }
- elsif ($state->{'structure'})
- {
- #print STDERR "scan_structure in close_stack ($string)\n";
- scan_structure($string, $text, $stack, $state, $line_nr);
- }
- }
- delete $state->{'close_stack'};
-}
-
-
-# close the stack, closing macros and formats left open.
-# the precise behavior of the function depends on $close_paragraph:
-# undef -> close everything
-# defined -> remove empty paragraphs, close until the first format or paragraph.
-# 1 -> don't close styles, duplicate stack of styles not closed
-# FIXME never used
-# '' -> close styles, don't duplicate
-
-# if a $format is given the stack is closed according to $close_paragraph but
-# if $format is encountered the closing stops
-
-sub close_stack($$$$;$$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- my $close_paragraph = shift;
- my $format = shift;
- # FIXME this is not used
- my $search_style = shift;
- my $new_stack;
-
- # cancel paragraph states
- $state->{'paragraph_style'} = [ '' ] unless (defined($close_paragraph) or defined($format));
- #print STDERR "sub_close_stack\n";
- return $new_stack unless (@$stack);
-
- my $stack_level = $#$stack + 1;
- my $string = '';
- my $verb = '';
-
- if ($state->{'verb'})
- {
- $string .= $state->{'verb'};
- $verb = $state->{'verb'};
- }
-
- #debugging
- #my $print_format = 'NO FORMAT';
- #$print_format = $format if ($format);
- #my $print_close_paragraph = 'close everything';
- #$print_close_paragraph = 'close paragraph without duplicating' if (defined($close_paragraph));
- #$print_close_paragraph = $close_paragraph if ($close_paragraph);
- #print STDERR "Close_stack: format $print_format, close_paragraph: $print_close_paragraph\n";
-
- while ($stack_level--)
- {
- if ($stack->[$stack_level]->{'format'})
- {
- my $stack_format = $stack->[$stack_level]->{'format'};
- last if (defined($close_paragraph) or (defined($format) and $stack_format eq $format));
- # We silently close paragraphs, preformatted sections and fake formats
- if ($stack_format eq 'paragraph')
- {
- $string .= "\@end_paragraph ";
- }
- elsif ($stack_format eq 'preformatted')
- {
- $string .= "\@end_preformatted ";
- }
- else
- {
- if ($fake_format{$stack_format})
- {
- warn "# Closing a fake format `$stack_format'\n" if ($T2H_VERBOSE);
- }
- else
- {
- echo_warn ("closing `$stack_format'", $line_nr);
- #dump_stack ($text, $stack, $state);
- #warn "$WARN closing `$stack_format'\n";
- }
- $string .= "\@end $stack_format ";
- }
- }
- else
- {
- my $style = $stack->[$stack_level]->{'style'};
- last if (defined($search_style) and $style eq $search_style);
- # FIXME images, footnotes, xrefs, anchors with $close_paragraphs ?
- if ($close_paragraph)
- { #duplicate the stack
- if (exists($style_type{$style}) and ($style_type{$style} eq 'style') or (!exists($style_type{$style})))
- {
- push @$new_stack, { 'style' => $style, 'text' => '', 'no_open' => 1, 'arg_nr' => 0 };
- $string .= '} ';
- }
- elsif (exists($style_type{$style}) and ($style_type{$style} eq 'simple'))
- {
- $string .= '} ';
- }
- }
- else
- {
- dump_stack ($text, $stack, $state) if (!defined($style));
- $string .= '}';
- echo_warn ("closing $style", $line_nr) if ($style);
- }
- }
- }
- $state->{'no_close'} = 1 if ($close_paragraph);
- $state->{'close_stack'} = 1;
- if ($string ne '')
- {
- #print STDERR "scan_line in CLOSE_STACK ($string)\n";
- #dump_stack ($text, $stack, $state);
- scan_line($string, $text, $stack, $state, $line_nr);
- }
- delete $state->{'no_close'};
- delete $state->{'close_stack'};
- $state->{'verb'} = $verb if (($verb ne '') and $close_paragraph);
- return $new_stack;
-}
-
-# given a stack and a list of formats, return true if the stack contains
-# these formats, first on top
-sub stack_order($@)
-{
- my $stack = shift;
- my $stack_level = $#$stack + 1;
- while (@_)
- {
- my $format = shift;
- while ($stack_level--)
- {
- if ($stack->[$stack_level]->{'format'})
- {
- if ($stack->[$stack_level]->{'format'} eq $format)
- {
- $format = undef;
- last;
- }
- else
- {
- return 0;
- }
- }
- }
- return 0 if ($format);
- }
- return 1;
-}
-
-sub top_format($)
-{
- my $stack = shift;
- my $stack_level = $#$stack + 1;
- while ($stack_level--)
- {
- if ($stack->[$stack_level]->{'format'} and !$fake_format{$stack->[$stack_level]->{'format'}})
- {
- return $stack->[$stack_level];
- }
- }
- return undef;
-}
-
-sub close_paragraph($$$;$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- #my $macro = shift;
- #print STDERR "CLOSE_PARAGRAPH\n";
- #dump_stack($text, $stack, $state);
- my $new_stack = close_stack($text, $stack, $state, $line_nr, 1);
- my $top_stack = top_stack($stack);
- if ($top_stack and !defined($top_stack->{'format'}))
- { #debug
- print STDERR "Bug: no format on top stack\n";
- dump_stack($text, $stack, $state);
- }
- if ($top_stack and ($top_stack->{'format'} eq 'paragraph'))
- {
- my $paragraph = pop @$stack;
- add_prev($text, $stack, do_paragraph($paragraph->{'text'}, $state));
- $state->{'paragraph_macros'} = $new_stack;
- return 1;
- #return "\@$macro ";
- }
- elsif ($top_stack and ($top_stack->{'format'} eq 'preformatted'))
- {
- my $paragraph = pop @$stack;
- add_prev($text, $stack, do_preformatted($paragraph->{'text'}, $state));
- $state->{'paragraph_macros'} = $new_stack;
- return 1;
- #return "\@$macro ";
- }
- return;
-}
-
-sub abort_empty_preformatted($$)
-{
- my $stack = shift;
- my $state = shift;
- if (@$stack and $stack->[-1]->{'format'}
- and ($stack->[-1]->{'format'} eq 'preformatted')
- and ($stack->[-1]->{'text'} !~ /\S/))
- {
- pop @$stack;
- return 1;
- }
- return 0;
-}
-
-# for debugging
-sub dump_stack($$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
-
- if (defined($$text))
- {
- print STDERR "text: $$text\n";
- }
- else
- {
- print STDERR "text: UNDEF\n";
- }
- print STDERR "state: ";
- foreach my $key (keys(%$state))
- {
- my $value = 'UNDEF';
- $value = $state->{$key} if (defined($state->{$key}));
- print STDERR "$key: $value ";
- }
- print STDERR "\n";
- my $stack_level = $#$stack + 1;
- while ($stack_level--)
- {
- print STDERR " $stack_level-> ";
- foreach my $key (keys(%{$stack->[$stack_level]}))
- {
- my $value = 'UNDEF';
- $value = $stack->[$stack_level]->{$key} if
- (defined($stack->[$stack_level]->{$key}));
- print STDERR "$key: $value ";
- }
- print STDERR "\n";
- }
- if (defined($state->{'format_stack'}))
- {
- print STDERR "format_stack: ";
- foreach my $format (@{$state->{'format_stack'}})
- {
- print STDERR "$format->{'format'} ";
- }
- print STDERR "\n";
- }
-}
-
-# for debugging
-sub print_elements($)
-{
- my $elements = shift;
- foreach my $elem(@$elements)
- {
- if ($elem->{'node'})
- {
- print STDERR "node-> $elem ";
- }
- else
- {
- print STDERR "chap=> $elem ";
- }
- foreach my $key (keys(%$elem))
- {
- my $value = "UNDEF";
- $value = $elem->{$key} if (defined($elem->{$key}));
- print STDERR "$key: $value ";
- }
- print STDERR "\n";
- }
-}
-
-sub substitute_line($;$)
-{
- my $line = shift;
- my $state = shift;
- $state = {} if (!defined($state));
- $state->{'no_paragraph'} = 1;
- return unformatted_text($state, $line) if ($state->{'unformatted'});
- return substitute_text($state, $line);
-}
-
-sub substitute_text($@)
-{
- my $state = shift;
- my @stack = ();
- my $text = '';
- my $result = '';
- if ($state->{'structure'})
- {
- initialise_state_structure($state);
- }
- elsif ($state->{'texi'})
- {
- initialise_state_texi($state);
- }
- else
- {
- initialise_state($state);
- }
- $state->{'spool'} = [];
- #print STDERR "SUBST_TEXT begin\n";
-
- while (@_ or @{$state->{'spool'}})
- {
- my $line;
- if (@{$state->{'spool'}})
- {
- $line = shift @{$state->{'spool'}};
- }
- else
- {
- $line = shift @_;
- }
- next unless (defined($line));
- if ($state->{'structure'})
- {
- scan_structure ($line, \$text, \@stack, $state);
- }
- elsif ($state->{'texi'})
- {
- scan_texi ($line, \$text, \@stack, $state);
- }
- else
- {
- scan_line($line, \$text, \@stack, $state);
- }
- next if (@stack);
- $result .= $text;
- $text = '';
- }
- # FIXME could we have the line number ?
- # close stack in substitute_text
- if ($state->{'texi'} or $state->{'structure'})
- {
- close_stack_texi_structure(\$text, \@stack, $state, undef);
- }
- else
- {
- close_stack(\$text, \@stack, $state, undef);
- }
- #print STDERR "SUBST_TEXT end\n";
- return $result . $text;
-}
-
-sub substitute_texi_line($)
-{
- my $text = shift;
- my @text = substitute_text({'structure' => 1}, $text);
- my @result = ();
- while (@text)
- {
- push @result, split (/\n/, shift (@text));
- }
- return '' unless (@result);
- my $result = shift @result;
- return $result . "\n" unless (@result);
- foreach my $line (@result)
- {
- chomp $line;
- $result .= ' ' . $line;
- }
- return $result . "\n";
-}
-
-sub print_lines($;$)
-{
- my ($fh, $lines) = @_;
- $lines = $Texi2HTML::THIS_SECTION unless $lines;
- my @cnt;
- my $cnt;
- for my $line (@$lines)
- {
- print $fh $line;
- if (defined($Texi2HTML::Config::WORDS_IN_PAGE) and ($Texi2HTML::Config::SPLIT eq 'node'))
- {
- @cnt = split(/\W*\s+\W*/, $line);
- $cnt += scalar(@cnt);
- }
- }
- return $cnt;
-}
-
-sub do_index_entry_label($$)
-{
- my $state = shift;
- my $line_nr = shift;
- my $entry = shift @index_labels;
- return '' if ($state->{'multiple_pass'});
- if (!defined($entry))
- {
- echo_warn ("Not enough index entries !", $line_nr);
- return '';
- }
-
- print STDERR "[(index) $entry->{'entry'} $entry->{'label'}]\n"
- if ($T2H_DEBUG & $DEBUG_INDEX);
- return &$Texi2HTML::Config::index_entry_label ($entry->{'label'}, $state->{'preformatted'}, substitute_line($entry->{'entry'}), $index_properties->{$entry->{'prefix'}}->{'name'});
-}
-
-# decompose a decimal number on a given base. The algorithm looks like
-# the division with growing powers (division suivant les puissances
-# croissantes) ?
-sub decompose($$)
-{
- my $number = shift;
- my $base = shift;
- my @result = ();
-
- return (0) if ($number == 0);
- my $power = 1;
- my $remaining = $number;
-
- while ($remaining)
- {
- my $factor = $remaining % ($base ** $power);
- $remaining -= $factor;
- push (@result, $factor / ($base ** ($power - 1)));
- $power++;
- }
- return @result;
-}
-
-# main processing is called here
-set_document_language('en') unless ($lang_set);
-# APA: There's got to be a better way:
-$T2H_USER = &$I('unknown');
-
-if ($Texi2HTML::Config::TEST)
-{
- # to generate files similar to reference ones to be able to check for
- # real changes we use these dummy values if -test is given
- $T2H_USER = 'a tester';
- $THISPROG = 'texi2html';
- setlocale( LC_ALL, "C" );
-}
-else
-{
- # the eval prevents this from breaking on system which do not have
- # a proper getpwuid implemented
- eval { ($T2H_USER = (getpwuid ($<))[6]) =~ s/,.*//;}; # Who am i
- # APA: Provide Windows NT workaround until getpwuid gets
- # implemented there.
- $T2H_USER = $ENV{'USERNAME'} unless defined $T2H_USER;
-}
-
-open_file($docu, $texi_line_number);
-Texi2HTML::LaTeX2HTML::init($docu_name, $docu_rdir, $T2H_DEBUG & $DEBUG_L2H)
- if ($Texi2HTML::Config::L2H);
-pass_texi();
-dump_texi(\@lines, 'texi', \@lines_numbers) if ($T2H_DEBUG & $DEBUG_TEXI);
-if (defined($Texi2HTML::Config::MACRO_EXPAND))
-{
- my @texi_lines = (@first_lines, @lines);
- dump_texi(\@texi_lines, '', undef, $Texi2HTML::Config::MACRO_EXPAND);
-}
-pass_structure();
-if ($T2H_DEBUG & $DEBUG_TEXI)
-{
- dump_texi(\@doc_lines, 'first', \@doc_numbers);
- if (defined($Texi2HTML::Config::MACRO_EXPAND and $Texi2HTML::Config::DUMP_TEXI))
- {
- unshift (@doc_lines, @first_lines);
- push (@doc_lines, "\@bye\n");
- dump_texi(\@doc_lines, '', undef, $Texi2HTML::Config::MACRO_EXPAND . ".first");
- }
-}
-exit(0) if ($Texi2HTML::Config::DUMP_TEXI or defined($Texi2HTML::Config::MACRO_EXPAND));
-rearrange_elements();
-do_names();
-if (@{$region_lines{'documentdescription'}} and (!defined($Texi2HTML::Config::DOCUMENT_DESCRIPTION)))
-{
- my $documentdescription = remove_texi(@{$region_lines{'documentdescription'}});
- my @documentdescription = split (/\n/, $documentdescription);
- $Texi2HTML::Config::DOCUMENT_DESCRIPTION = shift @documentdescription;
- chomp $Texi2HTML::Config::DOCUMENT_DESCRIPTION;
- foreach my $line (@documentdescription)
- {
- chomp $line;
- $Texi2HTML::Config::DOCUMENT_DESCRIPTION .= ' ' . $line;
- }
-}
-# do copyright notice inserted in comment at the begining of the files
-if (@{$region_lines{'copying'}})
-{
- $copying_comment = &$Texi2HTML::Config::copying_comment($region_lines{'copying'});
- #$copying_comment = remove_texi(@{$region_lines{'copying'}});
- #$copying_comment = &$Texi2HTML::Config::comment($copying_comment);
-}
-&$Texi2HTML::Config::toc_body(\@elements_list);
-#&$Texi2HTML::Config::toc_body(\@elements_list, $do_contents, $do_scontents);
-&$Texi2HTML::Config::css_lines(\@css_import_lines, \@css_rule_lines);
-$sec_num = 0;
-#$Texi2HTML::Config::L2H = l2h_FinishToLatex() if ($Texi2HTML::Config::L2H);
-#$Texi2HTML::Config::L2H = l2h_ToHtml() if ($Texi2HTML::Config::L2H);
-#$Texi2HTML::Config::L2H = l2h_InitFromHtml() if ($Texi2HTML::Config::L2H);
-Texi2HTML::LaTeX2HTML::latex2html();
-pass_text();
-#do_node_files() if ($Texi2HTML::Config::SPLIT ne 'node' and $Texi2HTML::Config::NODE_FILES);
-if ($Texi2HTML::Config::IDX_SUMMARY)
-{
- foreach my $entry (keys(%$index_properties))
- {
- my $name = $index_properties->{$entry}->{'name'};
- do_index_summary_file($name)
- unless ($empty_indices{$name});
- }
-}
-do_node_files() if ($Texi2HTML::Config::NODE_FILES);
-#l2h_FinishFromHtml() if ($Texi2HTML::Config::L2H);
-#l2h_Finish() if($Texi2HTML::Config::L2H);
-Texi2HTML::LaTeX2HTML::finish();
-&$Texi2HTML::Config::finish_out();
-print STDERR "# that's all folks\n" if $T2H_VERBOSE;
-
-exit(0);
-
-
-##############################################################################
-
-# These next few lines are legal in both Perl and nroff.
-
-.00 ; # finish .ig
-
-'di \" finish diversion--previous line must be blank
-.nr nl 0-1 \" fake up transition to first page again
-.nr % 0 \" start at page 1
-'; __END__ ############# From here on it's a standard manual page ############
- .so ${prefix}/man/man1/texi2html.1
diff --git a/Master/bin/alpha-linux/texi2pdf b/Master/bin/alpha-linux/texi2pdf
deleted file mode 100755
index 492128325db..00000000000
--- a/Master/bin/alpha-linux/texi2pdf
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/bin/sh
-# $Id: texi2pdf,v 1.1 2004/07/11 01:02:35 karl Exp $
-# Written by Thomas Esser. Public domain.
-# Execute texi2dvi --pdf.
-
-test -f /bin/sh5 && test -z "$RUNNING_SH5" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_SH5=true; export RUNNING_SH5; exec /bin/sh5 $0 ${1+"$@"}; }
-unset RUNNING_SH5
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-# hack around a bug in zsh:
-test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"'
-
-texi2dvi --pdf ${1+"$@"}
diff --git a/Master/bin/alpha-linux/texindex b/Master/bin/alpha-linux/texindex
deleted file mode 100755
index ee60f647c04..00000000000
--- a/Master/bin/alpha-linux/texindex
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/texlinks b/Master/bin/alpha-linux/texlinks
deleted file mode 100755
index 148d457aa84..00000000000
--- a/Master/bin/alpha-linux/texlinks
+++ /dev/null
@@ -1,290 +0,0 @@
-#!/bin/sh
-
-# Copyright Thomas Esser, 1999, 2002, 2003. public domain.
-
-# texlinks: script to maintain symlinks from format to engine. Interprets
-# the lines given in fmtutil.cnf.
-
-# History:
-# Sun Aug 28 21:41:06 CEST 2005
-# remove special cases for csplain,cslatex,pdfcslatex,pdfcsplain
-# Fr Apr 8 19:15:05 CEST 2005
-# cleanup now has an argument for the return code
-# So Mär 27 18:52:06 CEST 2005
-# honor $TMPDIR, $TEMP and $TMP, not just $TMP
-# Mon May 10 20:52:48 CEST 2004
-# kpseaccess instead of access
-# Thu Dec 25 22:11:53 CET 2003, te:
-# add version string
-# Tue Apr 9 22:46:34 CEST 2002, te:
-# do not create symlinks for cont-??, metafun and mptopdf
-
-test -f /bin/sh5 && test -z "$RUNNING_SH5" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_SH5=true; export RUNNING_SH5; exec /bin/sh5 $0 ${1+"$@"}; }
-unset RUNNING_SH5
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-export PATH
-
-# hack around a bug in zsh:
-test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"'
-
-cnf=fmtutil.cnf # name of the config file
-version=1125258113 # seconds since `00:00:00 1970-01-01 UTC'
- # date '+%s' (with GNU date)
-progname=texlinks
-
-usage='texlinks [options] [directories]
-
-Create symbolic links format -> engine according to fmtutil setup.
-
-Valid options:
- --help
- -h show this help text
- --version show version string
- --cnffile file
- -f file use file as config file (default: fmtutil.cnf)
- --verbose
- -v set verbose mode on (default: off)
- --multiplatform
- -m operate in all platform specific directories
- (default: operate only in directory for this platform)
- --silent
- -s silently skip over existing scripts / binaries
- instead of creating a warning
-
-directories is an optional list of directories in which to operate.
-If no directories are specified the list of directories depends on the
---multiplatform option.
-'
-
-###############################################################################
-# abort(errmsg)
-# print `errmsg' to stderr and exit with error code 1
-###############################################################################
-abort() { errmsg "texlinks: $1."; cleanup 1; }
-
-# error message to stderr:
-errmsg() { echo "$@" >&2; }
-
-# give message to stderr only if "verbose" mode is on:
-verbose_echo() { $verbose && errmsg "$@"; }
-
-# in verbose mode: show command that is executed:
-verbose_do() { verbose_echo "$@"; "$@"; }
-
-###############################################################################
-# cleanup()
-# clean up the temp area and exit with proper exit status
-###############################################################################
-cleanup()
-{
- rc=$1
- $needsCleanup && test -n "$tmpdir" && test -d "$tmpdir" \
- && { rm -f "$tmpdir"/*; cd /; rmdir "$tmpdir"; }
- exit $rc
-}
-
-###############################################################################
-# setupTmpDir()
-# set up a temp directory and a trap to remove it
-###############################################################################
-setupTmpDir()
-{
- $needsCleanup && return
-
- trap 'cleanup 1' 1 2 3 7 13 15
- needsCleanup=true
- (umask 077; mkdir "$tmpdir") \
- || abort "could not create directory \`$tmpdir'"
-}
-
-
-# search a binary along $PATH:
-check_for_binary()
-{
- testbin=$1
- set x `echo "$PATH" | sed 's/^:/.:/; s/:$/:./; s/::/:.:/g; s/:/ /g'`; shift
- for i
- do
- if [ -x "$i/$testbin" ]; then
- echo "$i/$testbin"
- return 0
- fi
- done
- return 1
-}
-
-
-###############################################################################
-# install_link(dest src)
-# create a symlink like ln -s dest src, but make sure that src is not
-# an existing binary
-###############################################################################
-install_link()
-{
- # make symlink src -> dest
- dest=$1; src=$2
-
- case $src in
- */mf)
- if test $dest = "mf-nowin" && test -f $selfautoloc/mfw; then
- dest="mfw"
- verbose_echo "both mfw and mf-nowin exists, $src linked to $dest"
- fi
- ;;
- esac
-
- case $src in
- */cont-??|*/metafun|*/mptopdf)
- verbose_echo "symlink $2 -> $dest skipped (special case)"
- ;;
- *)
- test "x$src" != "x`(ls -ld $src | awk '{print $NF}') 2>/dev/null`" &&
- verbose_do rm -f "$src"
-
- if test -f "$src"; then
- case $silent in
- true)
- ;;
- *)
- errmsg "install_link failed for $src. File already exists."
- ;;
- esac
- else
- verbose_do ln -s "$dest" "$src"
- fi
- ;;
- esac
-}
-
-###############################################################################
-# search_symlinkdir()
-# look if $PATH has only symlinks to the real binaries and find that
-# directory. Also check if this directory is writable.
-###############################################################################
-search_symlinkdir()
-{
- kpsewhich=`check_for_binary kpsewhich`
- test -z "$kpsewhich" && return 1
- symlinkdir=`echo $kpsewhich | sed 's@/*kpsewhich$@@'`
- kpseaccess -w "$symlinkdir" || return 1
- touch "$symlinkdir/tl$$"
- if test -f "$selfautoloc/tl$$"; then
- rm -f "$symlinkdir/tl$$"
- return 1
- else
- rm -f "$symlinkdir/tl$$"
- return 0
- fi
-}
-
-###############################################################################
-# upd_symlinkdir()
-# if $PATH has only symlinks to the real binaries, update that directory
-# that holds the symlinks
-###############################################################################
-upd_symlinkdir()
-{
- search_symlinkdir || return 0
- for i in `sed 's@ .*@@' cnf_file_ln.$$`; do
- install_link "$selfautoloc/$i" "$symlinkdir/$i"
- done
-}
-
-###############################################################################
-# main()
-# parse commandline arguments, initialize variables,
-# switch into temp. direcrory, execute desired command
-###############################################################################
-main()
-{
- cnf_file= # global variable: full name of the config file
- dirs=
- needsCleanup=false
-
- multiplatform=false
- verbose=false
- silent=false
- thisdir=`pwd`
- : ${KPSE_DOT=$thisdir}; export KPSE_DOT
- selfautoloc=`kpsewhich --expand-var='$SELFAUTOLOC'`
- while
- case $1 in
- --h*|-h)
- echo "$usage"; exit 0;;
- --version)
- echo "$progname version $version."; exit 0;;
- --cnffile|-f)
- shift; cnf_file=$1;;
- --v*|-v) verbose=true;;
- --s*|-s) silent=true;;
- --m*|-m) multiplatform=true;;
- -*) errmsg "fmtutil: unknown option \`$1' ignored.";;
- *) break;;
- esac
- do test $# -gt 0 && shift; done
- dirs="$*"
-
- # if no cnf_file from command-line, look it up with kpsewhich:
- test -z "$cnf_file" && cnf_file=`kpsewhich --format='web2c files' $cnf`
- test -f "$cnf_file" || abort "config file \`$cnf' not found"
-
-
- tmpdir=${TMPDIR-${TEMP-${TMP-/tmp}}}/texlinks.$$
- setupTmpDir
- cd "$tmpdir" || cleanup 1
-
- sed '/^[ ]*#/d; /^[ ]*$/d' $cnf_file \
- | awk '{print $1, $2}' > cnf_file_ln.$$
-
- if test -z "$dirs"; then
- if test $multiplatform = true; then
- case $selfautoloc in
- */bin) dirs=$selfautoloc;;
- *) parent=`kpsewhich --expand-var='$SELFAUTODIR'`
- dirs=`find $parent -type f -name kpsewhich -print \
- | sed 's@/kpsewhich$@@'`;;
- esac
- else
- dirs=$selfautoloc
- fi
- fi
-
- for d in $dirs; do
- kpseaccess -w $d \
- || { errmsg "$d: no write permissions. Skipping..."; continue; }
- # cnf_file_ln.$$ has lines with "format engine" pairs
- set x `cat cnf_file_ln.$$`; shift
- while test $# != 0; do
- fmt=$1; engine=$2; shift; shift
-
- # Some broken shells destroy the positional arguments when calling a
- # shellfunction. Therefore, we save and restore them "by hand" in the
- # main_args_while variable.
- main_args_while="$@"
-
- test "x$fmt" = "x$engine" && continue
- if test -f "$d/$engine"; then
- install_link "$engine" "$d/$fmt"
- else
- verbose_echo "$d/$engine: engine does not exist. Skipping..."
- fi
-
- # restore positional arguments:
- set x $main_args_while; shift
-
- done
- done
- upd_symlinkdir
-}
-
-main ${1+"$@"}
-
-# set successful return code
-cleanup 0
diff --git a/Master/bin/alpha-linux/texsis b/Master/bin/alpha-linux/texsis
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/texsis
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/texutil b/Master/bin/alpha-linux/texutil
deleted file mode 120000
index afced152700..00000000000
--- a/Master/bin/alpha-linux/texutil
+++ /dev/null
@@ -1 +0,0 @@
-texexec \ No newline at end of file
diff --git a/Master/bin/alpha-linux/tftopl b/Master/bin/alpha-linux/tftopl
deleted file mode 100755
index b15d2b4128d..00000000000
--- a/Master/bin/alpha-linux/tftopl
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/thumbpdf b/Master/bin/alpha-linux/thumbpdf
deleted file mode 100755
index 832e4e76717..00000000000
--- a/Master/bin/alpha-linux/thumbpdf
+++ /dev/null
@@ -1,1562 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q'
- if 0;
-use strict;
-$^W=1; # turn warning on
-#
-# thumbpdf.pl
-#
-# Copyright (C) 1999-2005 Heiko Oberdiek.
-#
-# This work may be distributed and/or modified under the
-# conditions of the LaTeX Project Public License, either version 1.3
-# of this license or (at your option) any later version.
-# The latest version of this license is in
-# http://www.latex-project.org/lppl.txt
-# and version 1.3 or later is part of all distributions of LaTeX
-# version 2003/12/01 or later.
-#
-# This work has the LPPL maintenance status "maintained".
-#
-# This Current Maintainer of this work is Heiko Oberdiek.
-#
-# See file "readme.txt" for a list of files that belong to this project.
-#
-# This file "thumbpdf.pl" may be renamed to "thumbpdf"
-# for installation purposes.
-#
-my $file = "thumbpdf.pl";
-my $program = uc($&) if $file =~ /^\w+/;
-my $version = "3.8";
-my $date = "2005/07/06";
-my $author = "Heiko Oberdiek";
-my $copyright = "Copyright (c) 1999-2005 by $author.";
-#
-# Reqirements: Perl5, Ghostscript
-# History:
-# 1999/02/14 v1.0: First release.
-# 1999/02/23 v1.1:
-# * Looking for the media box to calculate the resolution
-# for Ghostscript
-# * new option --resolution
-# 1999/03/01 v1.2:
-# * optimization: indirect objects for length values removed.
-# * "first line" from epstopdf
-# 1999/03/12 v1.3:
-# * Copyright: LPPL
-# 1999/05/05 v1.4:
-# * Detecting of cygwin32 environment.
-# * Minor corrections of output of error messages.
-# * Sharing RGB objects.
-# 1999/06/13 v1.5:
-# * gs detection extended.
-# 1999/07/27 v1.6
-# 1999/08/08 v1.7:
-# * \immediate before \pdfobj (pdfTeX 0.14a)
-# 1999/09/09 v1.8
-# 1999/09/06 v1.9:
-# * Check for direct /Length values (for jpg images)
-# 2000/01/11 v1.10:
-# * Bug fix: /Length (direct) as last entry.
-# * Direct /Length in RGB objects supported.
-# 2000/01/19 v1.11:
-# * "for (my $j=0;...;...)" replaced by "my $j; for($j=0;...;...)",
-# because there exist perl versions that have problems with.
-# 2000/02/11 v1.12:
-# * Option `clean' added.
-# * The name of thumbnail data file: jobname.tnd,
-# if thumbpdf is called: thumbpdf jobname[.pdf] [options]
-# 2000/02/22 v2.0:
-# * pdfmark support for dvips/ps2pdf route added.
-# * <jobname>.tpt replaces thumbdta.tex (for pdfTeX)
-# <jobname>.tpm (for pdfmark)
-# <jobname>.top replaces thumbopt.tex
-# * Options `useps', `modes' added,
-# `makedef' renamed to `makedata'.
-# 2000/02/28 v2.1:
-# * Environment variable `THUMBPDF' supported.
-# 2000/03/07 v2.2:
-# * Support for Distiller 3 and 4, the streams are uncompressed.
-# * Call of gs is changed in order to show the currently processed
-# page number of the pdf file.
-# * Option --printgscmd creates the command line file `thumbpdf.gs'
-# for the Ghostscript call.
-# 2000/03/22 v2.3:
-# * Bug fix: --useps now works.
-# 2000/04/10 v2.4:
-# * Fix for ActiveState Perl 5.6.0: uc line changed, fork removed.
-# (Thanks to Andreas Buehmann <andreas.buehmann@gmx.de>.)
-# * Version test for thumbpdf.tex added for users that
-# mix versions, sigh.
-# 2000/07/29 v2.5:
-# * `save' trick in call of ghostscript.
-# * Undocumented option --gspages added.
-# 2000/09/27 v2.6
-# 2000/10/27 v2.7:
-# * -dFIXEDMEDIA=0 added in gs call
-# 2001/01/12 v2.8:
-# * Bug fix in dvips mode and active option `level2':
-# pack parameter corrected for little-endian machines.
-# * /Rotate in pdf pages:
-# ghostscript versions around 6.01 have added a hack
-# in /pdfshowpage_setpage, that ignores the /Rotate entry.
-# A patch is added to disable the hack.
-# * Ghostscript uses the MediaBox for calculating the
-# page size. For version 6.50 a patch is added to use
-# the /CropBox instead.
-# 2001/03/29 v2.9:
-# * Option --password added.
-# 2001/04/02 v2.10
-# 2001/04/26 v2.11
-# * Option --antialias added (suggestion of Juergen Bausa).
-# 2002/01/11 v3.0
-# * Syntax of option --antialias changed (see readme.txt).
-# * Support for VTeX's PS mode added.
-# * Greek mode added (see readme.txt).
-# * Signal handlers added for cleanup.
-# 2002/05/26 v3.1
-# * SIG_HUP unkown in Windows.
-# * Bug fix: The signal function for __DIE__ "cleanup" aborts
-# before the error message of "die" is printed.
-# Replaced by "clean" that does not contain "exit 1".
-# * Small bug fix in mode detection and mode "vtex"
-# removed from list. "vtexpdfmark" was detected,
-# "vtex" did not work and perhaps it will be used
-# later for VTeX in PDF mode.
-# 2002/05/26 v3.2
-# * Fix: "MacOS/X: darwin" is now not interpreted as
-# Windows.
-# 2003/03/19 v3.3
-# * Fix for gs 8.00 in mode dvips:
-# THB_DistillerPatch also applied to ghostscript >= 8.00.
-# 2003/06/06 v3.4
-# * Bug fix, two forgotten "pop"s added for Distiller case.
-# 2004/10/24 v3.5
-# * Revert Cygwin detection: is unix (request by Jan Nieuwenhuizen).
-# * LPPL 1.3.
-# 2004/11/19 v3.6
-# * Bug fix for dvips mode and gs < 8.00 (/stackunderflow in pop).
-# 2004/11/19 v3.7:
-# * For easier debugging, the special thumbpdf objects of
-# thumbpdf.pdf are now valid PDF objects (dictionaries).
-# * Remove of extra '\n' before "endstream" that is added
-# by pdfTeX 1.20a.
-# 2005/07/06 v3.8:
-# * Fix because of pdfTeX 1.30.
-#
-
-### program identification
-my $title = "$program $version, $date - $copyright\n";
-
-### error strings
-my $Error = "!!! Error:"; # error prefix
-
-### string constants for Ghostscript run
-# get Ghostscript command name
-my $GS = "gs";
-$GS = "gs386" if $^O =~ /dos/i;
-$GS = "gsos2" if $^O =~ /os2/i;
-$GS = "gswin32c" if $^O =~ /mswin32/i;
-
-# Windows detection (no SIGHUP)
-my $Win = 0;
-$Win = 1 if $^O =~ /mswin32/i;
-
-my $gspages = 1;
-$gspages = 0 if $^O =~ /dos/i;
-
-### variables
-my $jobname = "";
-my $jobfile = "";
-my $pdftexfile = "";
-my $pdfmarkfile = "";
-my $psext = ".ps";
-my $pdfext = ".pdf";
-my $pdftexext = ".tpt";
-my $pdfmarkext = ".tpm";
-my $thumbprefix = "thb";
-my $envvar = "THUMBPDF";
-my $pdffile = "thumbpdf.pdf";
-my $logfile = "thumbpdf.log";
-my $texfile = "thumbpdf";
-my $package = "thumbpdf.sty";
-my $readme = "readme.txt";
-my $gscnffile = "thumbpdf.gs";
-my $gssection = "section I. `Known Problems'";
-my @cleanlist = ();
-my $resolution = 9;
-my $mode_pdftex = 0;
-my $mode_pdfmark = 0;
-my $antialias_default = "4";
-my @arglist = @ARGV;
-my $gskidrunning = 0;
-
-### option variables
-my @bool = ("false", "true");
-$::opt_device = "png16m";
-$::opt_compress = "10";
-$::opt_resolution = "";
-$::opt_modes = "pdftex";
-$::opt_gscmd = "";
-$::opt_level2 = 0;
-$::opt_help = 0;
-$::opt_quiet = 0;
-$::opt_debug = 0;
-$::opt_verbose = 0;
-$::opt_useps = 0;
-$::opt_printgscmd = 0;
-$::opt_gspages = $gspages; # undocumented
-$::opt_makepng = 1;
-$::opt_makepdf = 1;
-$::opt_makedata = 1;
-$::opt_clean = 1;
-$::opt_password = "";
-$::opt_antialias = $antialias_default;
-$::opt_greek = 0;
-
-my $usage = <<"END_OF_USAGE";
-${title}Syntax: \L$program\E [options] <jobname[.pdf|.ps]>
-Function: Support of thumbnails for pdfTeX or dvips/ps2pdf (pdfmark).
- Thumbnails are generated by Ghostscript and the result is
- written to data files for package `$package':
- `<jobname>$pdftexext' (pdfTeX), `<jobname>$pdfmarkext' (pdfmark)
-Options: (defaults:)
- --help print usage
- --(no)quiet suppress messages ($bool[$::opt_quiet])
- --(no)verbose verbose printing ($bool[$::opt_verbose])
- --(no)debug debug informations ($bool[$::opt_debug])
- --(no)makepng make thumbnails `$thumbprefix*.png' ($bool[$::opt_makepng])
- --(no)makepdf make `$pdffile' with thumbnails as images ($bool[$::opt_makepdf])
- --(no)makedata make data file(s) for package `$package' ($bool[$::opt_makedata])
- --(no)clean clear temp files ($bool[$::opt_clean])
- --(no)useps `makepng' uses `.ps' instead of `.pdf' file ($bool[$::opt_useps])
- --(no)level2 `<jobname>.tpm' with ps level 2 features ($bool[$::opt_level2])
- --(no)greek text in greek style (experimental) ($bool[$::opt_greek])
- --antialias <num1>[num2] anti-aliasing, 0 = disable, 4 = max ($::opt_antialias)
- --device|png [png]<dev> Ghostscript device for thumbnails,
- dev = mono, gray, 16, 256, 16m ($::opt_device)
- --resolution <res> thumbnail resolution for makepng ($resolution)
- --compress <n> thumbnail compress level, n = 0..10 ($::opt_compress)
- --modes <mode>[,mode] mode=pdftex|pdfmark|dvips|ps2pdf|
- vtexpdfmark|all ($::opt_modes)
- --password apassword for an encrypted pdf file ($::opt_password)
-END_OF_USAGE
-
-### environment variable THUMBPDF
-if ($ENV{$envvar}) {
- unshift(@ARGV, split(/\s+/, $ENV{$envvar}));
-}
-
-### process options
-my @OrgArgv = @ARGV;
-use Getopt::Long;
-GetOptions(
- "help!",
- "quiet!",
- "debug!",
- "verbose!",
- "device|png=s",
- "gscmd=s",
- "level2!",
- "compress=i",
- "resolution=f",
- "modes=s",
- "useps!",
- "printgscmd!",
- "gspages!",
- "makepng!",
- "makepdf!",
- "makedata!",
- "clean!",
- "password=s",
- "antialias=s",
- "greek!"
-) or die $usage;
-!$::opt_help or die $usage;
-@ARGV < 2 or die "$usage$Error Too many files!\n";
-@ARGV == 1 or die "$usage$Error Missing jobname!\n";
-
-$::opt_device = "png$::opt_device" unless $::opt_device =~ /^png/;
-$::opt_quiet = 0 if $::opt_verbose;
-$::opt_clean = 0 if $::opt_debug or !$::opt_makepdf or !$::opt_makedata;
-
-$::opt_compress = 0 if $::opt_compress < 0;
-$::opt_compress = 10 if $::opt_compress > 10;
-my $J = "^^J";
-$J = "" if $::opt_compress == 10;
-
-$::opt_antialias = $antialias_default if $::opt_antialias eq "";
-$::opt_antialias =~ /^[0124][0124]?$/ or
- die "$usage$Error Wrong value for option --antialias!\n";
-$::opt_antialias .= $::opt_antialias if length($::opt_antialias) < 2;
-my $AntiAliasText = substr($::opt_antialias, 0, 1);
-my $AntiAliasGraphics = substr($::opt_antialias, 1, 1);
-$AntiAliasText = "1" if $AntiAliasText eq "0";
-$AntiAliasGraphics = "1" if $AntiAliasGraphics eq "0";
-
-$GS = $::opt_gscmd if $::opt_gscmd;
-$gspages = $::opt_gspages;
-
-### get modes
-$::opt_modes = "\L$::opt_modes\E";
-$::opt_modes =~ s/dvips/pdfmark/g;
-$::opt_modes =~ s/ps2pdf/pdfmark/g;
-$::opt_modes =~ s/vtexpdfmark/pdfmark/g;
-$::opt_modes =~ s/vtexpdfmark/pdfmark/g;
-if ($::opt_modes =~ /pdftex/)
-{
- $mode_pdftex = 1;
- $::opt_modes =~ s/pdftex//g;
-}
-if ($::opt_modes =~ /pdfmark/)
-{
- $mode_pdfmark = 1;
- $::opt_modes =~ s/pdfmark//g;
-}
-if ($::opt_modes =~ /all/)
-{
- $mode_pdftex = 1;
- $mode_pdfmark = 1;
- $::opt_modes =~ s/all//g;
-}
-$::opt_modes =~ s/\s+//g;
-$::opt_modes =~ s/,+/,/g;
-$::opt_modes =~ s/^,//;
-$::opt_modes =~ s/,$//;
-if ($::opt_modes ne "")
-{
- die "$usage$Error Unknown mode(s): `$::opt_modes'\n";
-}
-if ($::opt_makedata)
-{
- $mode_pdftex or $mode_pdfmark or
- die "$usage$Error Missing mode!\n";
-}
-
-### get jobname
-$jobname = $ARGV[0];
-if ($::opt_useps)
-{
- $jobname =~ s/\.ps$//i;
- $jobname =~ s/\\/\//g;
- $jobfile = $jobname . $psext;
-}
-else
-{
- $jobname =~ s/\.pdf$//i;
- $jobname =~ s/\\/\//g;
- $jobfile = $jobname . $pdfext;
-}
-$pdftexfile = $jobname . $pdftexext;
-$pdfmarkfile = $jobname . $pdfmarkext;
-
-print $title unless $::opt_quiet;
-
-print "* jobname: `$jobname'\n" if $::opt_verbose;
-
-if ($::opt_debug) {
- print <<"END_DEB";
-* OSNAME: $^O
-* PERL_VERSION: $]
-* ARGV: @OrgArgv
-END_DEB
-}
-
-### set signals
-$SIG{__DIE__} = \&clean;
-setsignals(\&cleanup);
-
-my $MaxThumb = 0;
-
-###
-### make thumbnails
-###
-if ($::opt_makepng)
-{
- print "*** make png files / run Ghostscript ***\n"
- unless $::opt_quiet or $::opt_printgscmd;
- if ($::opt_useps)
- {
- print "* ps file: $jobfile\n" if $::opt_verbose;
- }
- else
- {
- print "* pdf file: $jobfile\n" if $::opt_verbose;
- }
- print "* Ghostscript command: `$GS'\n" .
- "* Ghostscript png device: `$::opt_device'\n" if $::opt_verbose;
-
- if ($::opt_resolution)
- {
- $resolution = $::opt_resolution
- }
- else
- {
- # looking for MediaBox
-
- my $max_x = 0;
- my $max_y = 0;
- {
- my $MB = $jobfile;
- open(MB, $MB) or die "$Error Cannot open `$MB'!\n";
- binmode(MB);
- my $xy_patt = '[\-\.\d]';
- while (<MB>)
- {
- if (/\/MediaBox\s*\[\s*($xy_patt+)\s+($xy_patt+)\s+($xy_patt+)\s+($xy_patt+)\s*\]/)
- {
- my $x = $3 - $1;
- my $y = $4 - $2;
- $max_x = $x if $x > $max_x;
- $max_y = $y if $y > $max_y;
- }
- }
- close(MB);
- }
- if ($max_x <= 0 || $max_y <= 0)
- {
- print "!!! Warning: MediaBox not found, " .
- "using default resolution: $resolution DPI\n";
- }
- else
- {
- print "* Max. Size of MediaBox: $max_x x $max_y\n" if $::opt_verbose;
-
- my $rx = 106 * 72 / $max_x;
- my $ry = 106 * 72 / $max_y;
- $resolution = $rx;
- $resolution = $ry if $ry < $rx;
- print "* Resolution: $resolution DPI\n" if $::opt_verbose;
- }
- }
-
-# Ghostscript's pdfshowpage_setpage is patched for solving
-# some problems:
-# * gs6.0* includes a hack that ignores the /Rotate entry
-# in the PDF page, if OutputFile is set.
-# gs6.50 does not need a fix and it is not applied,
-# because pdfshowpage_setpage does not contain /OutputFile.
-# * If /CropBox is set, then it should be used instead
-# of the /MediaBox entry. Because the CropBox area should
-# be part of the MediaBox, the MediaBox is overwritten
-# with the CropBox values for generating the thumbnails.
-# The fixes are only applied for versions >= 6.0, because
-# gs5.50 gets a /PageSize problem with this fix.
-#
- my $SetPageHack = <<'SET_PAGE_HACK';
-currentglobal true setglobal
-false
-/product where {
- pop
- product (Ghostscript) search {
- pop pop pop
- revision 600 ge {
- pop true
- } if
- }{pop} ifelse
-} if
-{ /pdfdict where {
- pop
- pdfdict begin
- /pdfshowpage_setpage
- [ pdfdict /pdfshowpage_setpage get
- { dup type /nametype eq
- { dup /OutputFile eq
- { pop /AntiRotationHack
- }{
- dup /MediaBox eq revision 650 ge and
- { /THB.CropHack {
- 1 index /CropBox pget
- { 2 index exch /MediaBox exch put
- } if
- } def
- /THB.CropHack cvx
- } if
- } ifelse
- } if
- } forall
- ] cvx def
- end
- } if
-} if
-setglobal
-SET_PAGE_HACK
-
- my $Greek = "";
- $Greek = <<'END_GREEK' if $::opt_greek;
-currentglobal true setglobal
-userdict begin
- % * Patch for `show'
- /THB_ORG_show {show} bind def
- /THB_greekstring
- /.charboxpath where
- {
- pop
- {
- currentpoint newpath moveto
- true .charboxpath closepath fill
- } bind def
- }{
- {
- {
- 1 string dup 0 4 -1 roll put
- dup stringwidth pop exch
- true charpath flattenpath pathbbox
- 2 index sub exch 3 index sub exch rectfill
- 0 rmoveto
- } forall
- } bind def
- } ifelse
- /show {
- currentfont /FontType get 1 eq
- {
- dup
- gsave
- % assuming white background
- [ currentrgbcolor ]
- { 1 add 2 div } forall
- setrgbcolor
- THB_greekstring
- grestore
- stringwidth pop 0 rmoveto
- }{
- THB_ORG_show
- } ifelse
- } bind def
-
- % * Patch for the PDF case
- userdict /GS_PDF_ProcSet known
- {
- % GS_PDF_ProcSet is readonly, so it will be copied first
- GS_PDF_ProcSet length 10 add dict dup
- GS_PDF_ProcSet {
- put dup
- } forall
- /GS_PDF_ProcSet exch def
- dup
- begin
- % `setshowstate' contains the use of `show', so it has to
- % be overwritten, because it was defined with `bind'.
- % The definition is taken from `pdf_ops.ps'.
- revision 710 lt
- { % 5.50, 6.51, 7.00, 7.02
-
-/setshowstate
- { WordSpacing 0 eq TextSpacing 0 eq and
- { TextRenderingMode 0 eq
- { { setfillstate show } }
- { { false charpath textrenderingprocs TextRenderingMode get exec } }
- ifelse
- }
- { TextRenderingMode 0 eq
- { WordSpacing 0 eq
- { { setfillstate TextSpacing exch 0 exch ashow } }
- { TextSpacing 0 eq
- { { setfillstate WordSpacing exch 0 exch 32 exch widthshow } }
- { { setfillstate WordSpacing exch TextSpacing exch 0 32 4 2 roll 0 exch awidthshow } }
- ifelse
- }
- ifelse
- }
- { { WordSpacing TextSpacing
- % Implement the combination of t3 and false charpath.
- % Note that we must use cshow for this, because we
- % can't parse multi-byte strings any other way.
- % Stack: string xword xchar
- { pop pop (x) dup 0 3 index put false charpath
- % Stack: xword xchar ccode
- 3 copy 32 eq { add } { exch pop } ifelse 0 rmoveto pop
- }
- 4 -1 roll cshow pop pop
- textrenderingprocs TextRenderingMode get exec
- }
- }
- ifelse
- }
- ifelse /Show gput
- } bdef
-
- }{ % 7.10
-
-/setshowstate
- { WordSpacing 0 eq TextSpacing 0 eq and
- { TextRenderingMode 0 eq
- { { setfillstate show } }
- { { false charpath textrenderingprocs TextRenderingMode get exec } }
- ifelse
- }
- { TextRenderingMode 0 eq
- { WordSpacing 0 eq
- { { setfillstate TextSpacing 0 Vexch 3 -1 roll ashow } }
- { TextSpacing 0 eq
- { { setfillstate WordSpacing 0 Vexch 32 4 -1 roll widthshow } }
- { { setfillstate WordSpacing 0 Vexch 32
- TextSpacing 0 Vexch 6 -1 roll awidthshow } }
- ifelse
- }
- ifelse
- }
- { { WordSpacing TextSpacing
- % Implement the combination of t3 and false charpath.
- % Note that we must use cshow for this, because we
- % can't parse multi-byte strings any other way.
- % Stack: string xword xchar
- { pop pop (x) dup 0 3 index put false charpath
- % Stack: xword xchar ccode
- 3 copy 32 eq { add } { exch pop } ifelse 0 Vexch rmoveto pop
- }
- 4 -1 roll cshow pop pop
- textrenderingprocs TextRenderingMode get exec
- }
- }
- ifelse
- }
- ifelse /Show gput
- } bdef
-
- } ifelse
- end
- readonly pop
- } if
-end
-setglobal
-END_GREEK
-
- my $SetPassword = "";
- $SetPassword = "/PDFPassword($::opt_password)def" if $::opt_password;
-
- my $PSHeader = "save pop $SetPassword $SetPageHack $Greek";
- $PSHeader =~ s/%\s.*\n/ /g;
- $PSHeader =~ s/\s+/ /g;
- $PSHeader =~ s/\s+([\(\/\[\]\{\}])/$1/g;
- $PSHeader =~ s/([\)\[\]\{\}])\s+/$1/g;
- $PSHeader =~ s/\s+$//;
-
- my $AntiAlias = "";
- $AntiAlias = "\n-dTextAlphaBits=$AntiAliasText\n" .
- "-dGraphicsAlphaBits=$AntiAliasGraphics"
- if $::opt_antialias;
-
- my $gs_cmd = <<"GS_CMD_END";
-$GS$AntiAlias
--dNOPAUSE
--dBATCH
--sDEVICE=$::opt_device
--r$resolution
--sOutputFile=$thumbprefix%d.png
--c "$PSHeader"
--f $jobfile
-GS_CMD_END
- # The trick with `save' comes from `ps2pdf':
- # Doing an initial `save' helps keep fonts from being flushed
- # between pages.
-
- if ($::opt_printgscmd)
- {
- open(GSCNF, ">$gscnffile") or die "$Error Cannot open `$gscnffile'!\n";
- $gs_cmd =~ s/^[^\r\n]+[\r\n]+//;
- print GSCNF $gs_cmd;
- close(GSCNF);
- my $options = "@arglist";
- $options =~ s/\s*--?pr[intgscmd]*\s*/ /i;
- $options =~ s/^\s+//;
- $options =~ s/\s+$//;
- print <<"END_PERL" if $::opt_verbose;
-* Perl interpreter: $^X
-* Perl script: $0
-END_PERL
- print <<"END_GS";
-1. Run `Ghostscript' manually:
- ==> $GS \@$gscnffile
-2. Call `thumbpdf' again with the additional option `--nomakepng':
- ==> thumbpdf --nomakepng $options
-END_GS
- exit(0);
- }
-
- chomp($gs_cmd);
- $gs_cmd =~ s/\n/ /mg;
- print "> $gs_cmd\n" if $::opt_verbose;
-
- if ($::opt_debug)
- {
- if ($gspages)
- {
- print "* Ghostscript with page numbers\n";
- }
- else
- {
- print "* Ghostscript without page numbers\n";
- }
- }
-
- setsignals(\&gscleanup);
- my $capture = "";
- if ($gspages)
- {
- my $newline = 0;
- open(KID, "$gs_cmd|") or die "$Error Cannot open Ghostscript ($!)!\n";
- *::GSKID = *KID;
- $gskidrunning = 1;
- my $orgbar = $|;
- $|=1;
- while (<KID>)
- {
- $capture .= $_;
- if ($::opt_verbose)
- {
- print;
- }
- else
- {
- if (!$::opt_quiet)
- {
- print if /^Processing pages/;
- if (/^Page\s+(\d+)/)
- {
- print " " if $newline;
- $newline = 1;
- print "[$1]";
- }
- }
- }
- }
- $gskidrunning =0;
- if (!close(KID))
- {
- if ($!)
- {
- die "$Error Closing Ghostscript ($!)!\n";
- }
- else
- {
- my $exitvalue = $? >> 8;
- die "$Error Closing Ghostscript (exit status: $exitvalue)!\n";
- }
- }
- print "\n" if $newline;
- $| = $orgbar;
- }
- else # without pages
- {
- $capture = `$gs_cmd`;
- if (!defined($capture))
- {
- die "$Error Cannot execute Ghostscript!\n";
- }
- print $capture if $::opt_verbose;
- }
-
- if ($capture =~ /Error:\s*(.*)\n/)
- {
- die <<"END_DIE";
-$Error `$1' (Ghostscript)!
-See `$readme', $gssection, for further information.
-END_DIE
- }
- if ($capture =~ /Unknown device:\s*(.*)\n/)
- {
- die "$Error Unknown device `$1' (Ghostscript)!\n";
- }
- if ($?)
- {
- my $exitvalue = $?;
- if ($exitvalue > 255)
- {
- $exitvalue >>= 8;
- die "$Error Closing Ghostscript (exit status: $exitvalue)!\n";
- }
- die "$Error Closing Ghostscript ($exitvalue)!\n";
- }
- if ($capture =~ /Processing pages \d+ through (\d+)./)
- {
- $MaxThumb = $1;
- }
- print "* max. page: $MaxThumb\n" if $::opt_debug;
- setsignals(\&cleanup);
-}
-
-###
-### make thumbpdf.pdf file
-###
-if ($::opt_makepdf)
-{
- print "*** make `$pdffile' / run pdfTeX ***\n" unless $::opt_quiet;
-
- if ($MaxThumb > 0)
- {
- my $i;
- for ($i=1; $i<=$MaxThumb; $i++)
- {
- push(@cleanlist, "$thumbprefix$i.png");
- }
- }
- else
- {
- # get max thumb number to speed up the pdfTeX run
- $MaxThumb = 0;
- foreach (glob("$thumbprefix*.png"))
- {
- next unless /$thumbprefix(\d+).png/;
- $MaxThumb = $1 if $1 > $MaxThumb;
- push(@cleanlist, $_);
- }
- }
-
- push(@cleanlist, $logfile);
- push(@cleanlist, $pdffile);
-
- my $compress = $::opt_compress;
- $compress = 9 if $::opt_compress == 10;
- my $cmd = "pdftex \"" .
- "\\nonstopmode" .
- "\\pdfcompresslevel$compress" .
- "\\def\\thumbjob{$jobname}" .
- "\\def\\thumbmax{$MaxThumb}" .
- "\\input $texfile" .
- "\"";
- print "> $cmd\n" if $::opt_verbose;
- my @capture = `$cmd`;
- if (!defined(@capture))
- {
- die "$Error Cannot execute pdfTeX!\n";
- }
- if ($::opt_verbose)
- {
- print @capture;
- }
- else
- {
- foreach (@capture)
- {
- print if /^!\s/;
- }
- }
- if ($?)
- {
- my $exitvalue = $?;
- if ($exitvalue > 255)
- {
- $exitvalue >>= 8;
- die "$Error Closing pdfTeX (exit status: $exitvalue)!\n";
- }
- die "$Error Closing pdfTeX ($exitvalue)!\n";
- }
- # test version
- my $versionfound = 0;
- foreach (@capture)
- {
- if (/File:.*thumbpdf.*(\d\d\d\d\/\d\d\/\d\d)\s+v(\d+\.\d+)/)
- {
- $versionfound = 1;
- if ($1 ne $date or $2 ne $version) {
- print <<"END_WARN";
-!!! Warning: Version of `thumbpdf.tex' does not match with perl script!
- Current `thumbpdf.tex': $1 v$2
- Please install version: $date v$version
-END_WARN
- }
- }
- }
- print "!!! Warning: Version of `thumbpdf.tex' not found!\n"
- if !$versionfound;
-
- $_ = pop(@cleanlist);
-}
-
-###
-### parse thumbpdf.pdf
-###
-
-if ($::opt_makedata)
-{
- push(@cleanlist, $pdffile);
-
- print "*** parse `$pdffile' ***\n" unless $::opt_quiet;
-
-### reading file and parse obj structure
-
- my @objno = (); # obj number
- my @objdict = (); # boolean, object is dict
- my @objtext = (); # text of object
- my @objstream = (); # stream of object if any
- my $maxobj = 0;
-
- my @getobjindex = (); # $getobj[obj number] ==> index for $obj...[index]
-
- # open file
- my $PDF = $pdffile;
- open(PDF, $PDF) or die "$Error Cannot open `$PDF'!\n";
- binmode(PDF);
- my $lineno = 0;
-
- # read header
- $_ = <PDF>; $lineno++;
- $_ or die "$Error Cannot read header of `$PDF' or file is empty!\n";
- /^%PDF/ or die "$Error No PDF specification found!\n";
- print "* pdf header: $_" if ($::opt_debug);
-
- # read body objects
- my $count = 0;
- while (<PDF>)
- {
- $lineno++;
-
- # continue, if comment line (2nd line of PDF output by pdfTeX 1.30)
- next if /^%/;
-
- # stop at xref
- last if /^xref$/;
-
- # scan first obj line
- /^(\d+)\s+0\s+obj\s*(<<)?$/ or
- die "$Error `obj' expected on line $lineno!\n";
- $objno[$count] = $1;
- $getobjindex[$1] = $count;
- $objdict[$count] = ($2); # boolean (if $2 exists)
- my $stream = 0;
- print "* obj $objno[$count]" .
- (($objdict[$count]) ? " (dict)" : "") .
- "\n" if $::opt_debug;
-
- # get obj
- $objtext[$count] = "";
- while (<PDF>)
- {
- $lineno++;
-
- if ($objdict[$count])
- {
- if (/^>>/)
- {
- last if /^>>\s+endobj$/; # obj without stream
-
- # get stream
- $_ = <PDF>; $lineno++;
- /^stream$/ or die "$Error `stream' expected on line $lineno!\n";
-
- print "* stream\n" if $::opt_debug;
- $objstream[$count] = "";
- while (<PDF>)
- {
- $lineno++;
-
- if (/(.*)endstream$/)
- {
- $objstream[$count] .= $1;
- last;
- }
- $objstream[$count] .= $_;
- }
-
- $_ = <PDF>; $lineno++;
- /^endobj$/ or die "$Error `endobj' expected on line $lineno!\n";
- last;
- }
- }
- else # no dict
- {
- last if /^endobj$/;
- }
- $objtext[$count] .= $_;
- }
- $count++;
- }
- close(PDF);
- $maxobj = $count;
- print "* $maxobj objects found.\n" if $::opt_debug;
-
-### get thumbnail page numbers
- my @thumbpageno = ();
- my $found = 0;
- foreach (@objtext)
- {
- if (/^<<\/ListThumbs\s+(.+)>>$/)
- {
- $_ = $1;
- chomp;
- @thumbpageno = split / /; # split(/ /, $_);
- print "* ListThumbs: @thumbpageno\n" if $::opt_debug;
- $found = 1;
- last;
- }
- }
- $found or die "$Error `/ListThumbs' not found!\n";
- {
- my $j;
- for ($j=0; $j<@thumbpageno; $j++)
- {
- $thumbpageno[$j] = $1 if $thumbpageno[$j] =~ /^{(.+)}$/;
- }
- }
-
-### identify thumb objects
-
- my @thumbobj = (); # index for @obj... with image stream
- my @thumblength = (); # stream length values
- my @thumbrgbobj = (); # index for @obj... with rgb stream
- my @thumbrgblength = (); # rgb stream length values
- my $maxthumb = 0;
-
- $count = 0;
- my $i;
- for ($i=0; $i<$maxobj; $i++)
- {
- if ($objtext[$i] =~
- /^\/Type\s+\/XObject\n\/Subtype\s+\/Image\n/m)
- {
- $thumbobj[$count] = $i;
- $_ = $';
- $objtext[$i] = $_;
-
- # check width and height
- /\/Width\s+(\d+)\n\/Height\s+(\d+)/m or
- die "$Error width/height of thumbnail not found!\n";
- print "* Size: $1x$2\n" if $::opt_debug;
- print "==> Width ($1) " .
- "of thumbnail `$thumbpageno[$count]' " .
- "is larger than recommended (106).\n"
- if $1 > 106;
- print "==> Height ($2) " .
- "of thumbnail `$thumbpageno[$count]' " .
- "is larger than recommended (106).\n"
- if $2 > 106;
-
- # get stream length
- if (/\/Length\s+(\d+)\s+([\/\>]|$)/m)
- {
- $thumblength[$count] = $1;
- print "* Length (direct): $1\n" if $::opt_debug;
- # remove whitespace after length obj
- $objtext[$i] =~ s/(\/Length\s+\d+)\s+\n/$1\n/;
- }
- else # looking for indirect reference
- {
- /\/Length\s+(\d+)\s+0\s+R/m or
- die "$Error `/Length' entry not found!\n";
- # save obj text for later correction
- my $objpre = $`;
- my $objpost = $';
- # look for length obj
- $getobjindex[$1] or die "$Error Length obj not found!\n";
- $objtext[$getobjindex[$1]] =~ /^(\d+)$/m or
- die "$Error length value not found!\n";
- $thumblength[$count] = $1;
- print "* Length (indirect): $1\n" if $::opt_debug;
- # insert obj length directly:
- $objtext[$i] = $objpre . "/Length $1" . $objpost;
- }
-
- # remove \n from end of stream
- if ($thumblength[$count] < length($objstream[$i])) {
- chop($objstream[$i]);
- }
-
- # check /Indexed /DeviceRGB
- if ($objtext[$i] =~
- /\/ColorSpace\s+\[\/Indexed\s+\/DeviceRGB\s+(\d+)\s+(\d+)\s+0\s+R\]/m)
- {
- # correct thumb object text
- $objtext[$i] =
- "$`/ColorSpace [/Indexed /DeviceRGB $1 \\the\\pdflastobj\\ 0 R]$'";
- # get RGB obj number
- $getobjindex[$2] or die "$Error RGB object not found!\n";
- $_ = $getobjindex[$2];
- $thumbrgbobj[$count] = $_;
- # get stream length
- if ($objtext[$_] =~ /\/Length\s+(\d+)\s+([\/\>]|$)/m)
- {
- $thumbrgblength[$count] = $1;
- print "* RGB length (direct): $1\n" if $::opt_debug;
- $objtext[$_] =~ s/(\/Length\s+\d+)\s+\n/$1\n/;
- }
- else # looking for indirect reference
- {
- $objtext[$_] =~ /\/Length\s+(\d+)\s+0\s+R/m or
- die "$Error Length entry of rgb object not found\n";
- # save obj text for later correction
- my $objrgbpre = $`;
- my $objrgbpost = $';
- # get rgb stream length
- $getobjindex[$1] or die "$Error RGB length object not found!\n";
- $objtext[$getobjindex[$1]] =~ /^(\d+)$/m or
- die "$Error length value not found!\n";
- $thumbrgblength[$count] = $1;
- print "* RGB length (indirect): $1\n" if $::opt_debug;
- # insert RGB object length directly:
- $objtext[$_] = $objrgbpre . "/Length $1" . $objrgbpost;
- }
- }
-
- $count++;
- }
- }
- $maxthumb = $count;
-
- if ($maxthumb != @thumbpageno)
- {
- my $pagecount = @thumbpageno;
- die "$Error $maxthumb thumbnails found, but there should be $pagecount!\n";
- }
- print "* $maxthumb thumbnails found.\n" if $::opt_verbose;
-
-
-###
-### write data files
-###
-
- my $timestamp;
- {
- my ($sec, $min, $hour, $mday, $mon, $year) = localtime();
- $mon++;
- $year += 1900;
- $timestamp = sprintf("%04d/%02d/%02d %02d:%02d:%02d",
- $year, $mon, $mday, $hour, $min, $sec);
- }
- if ($mode_pdftex)
- {
- print "*** write `$pdftexfile' (pdfTeX thumbnail data) ***\n"
- unless $::opt_quiet;
- my $DTA_PT = $pdftexfile;
- open(DTA_PT, ">$DTA_PT") or die "$Error Cannot open `$DTA_PT'!\n";
- binmode(DTA_PT);
- print DTA_PT <<"END_DTA";
-% File: $DTA_PT
-% Producer: $program $version
-% Mode: pdftex
-% Date: $timestamp
-END_DTA
- }
- my $maxpagethumb;
- my $dictbegin;
- if ($mode_pdfmark)
- {
- print "*** write `$pdfmarkfile' (pdfmark thumbnail data) ***\n"
- unless $::opt_quiet;
- my $DTA_PM = $pdfmarkfile;
- open(DTA_PM, ">$DTA_PM") or die "$Error Cannot open `$DTA_PM'!\n";
- binmode(DTA_PM);
-
- # write tex part
- print DTA_PM <<"END_DTA";
-% \\iffalse
-% File: $DTA_PM
-% Producer: $program $version
-% Mode: pdfmark
-% Date: $timestamp
-% \\fi
-END_DTA
-
- # looking for max. number of regular thumbnails
- $maxpagethumb = $maxthumb;
- for ($i=0; $i<$maxobj; $i++)
- {
- if ($objtext[$i] =~ /<<\/MaxThumbNumber\s+(\d+)>>/)
- {
- $maxpagethumb = $1;
- last;
- }
- }
-
- # write TeX part
- for ($i=$maxpagethumb; $i<$maxthumb; $i++)
- {
- print DTA_PM "% \\DefThisThumb{$thumbpageno[$i]}\n";
- }
-
- # write PostScript header
- my $dictstart = <<'END_DICT';
- 4 dict begin
- /enddict {
- counttomark 2 idiv dup dict begin {def} repeat pop
- currentdict end
- } bind def
-END_DICT
- chomp($dictstart);
- $dictbegin = "[";
- my $dictend = "enddict";
- my $filter = "";
- my $read = "readhexstring";
- if ($::opt_level2)
- {
- $dictstart = " 3 dict begin";
- $dictbegin = "<<";
- $dictend = ">>";
- $filter = " /ASCII85Decode filter";
- $read = "readstring";
- }
-
- print DTA_PM <<"END_DTA";
-% \\endinput
-% TeX part ends here
-
-% PostScript definitions
-END_DTA
-
- my $PS_Header = <<"END_HEAD";
-%
-% Default definition of pdfmark
-/pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse
-%
-% Check the version of Ghostscript. If it is below 6.0,
-% the commands, that produce the thumbnails, are defined
-% to be dummies.
-%
-true
-/product where {
- pop
- product (Ghostscript) search {
- pop pop pop
- revision 600 lt {
- (!!! Warning (thumbpdf): Ghostscript 6.0 required for thumbnails!\\n)
- print pop false
- } if
- }{pop} ifelse
-} if
-{
-% Syntax: <thumb object> thisTHB -
-% thisTHB is used globally, so it is defined in the current
-% dictionary (perhaps userdict should explicitly be set).
- /thisTHB {[ exch /Thumb exch /PAGE pdfmark} bind def
-$dictstart
-% Syntax: <page object> <thumb object> pagethumb -
- /pagethumb {
- [ 3 1 roll $dictbegin exch /Thumb exch $dictend /PUT pdfmark
- } bind def
-% Syntax: <thumb object> <stream length>
-% <mark> <key value pairs> streamobj -
-%
-% Distiller ignores the compression of previously compressed
-% streams and uses its own settings. Therefore for Distiller
-% the streams are uncompressed.
-% Now ghostscript versions greater than 8 behave in the same way
-% as Distiller. Therefore detection for this versions is added.
-% The detection and patch for distiller require features of level 2
-% and the filter /FlateDecode (level 3), that is used by pdfTeX's
-% compression.
- /THB_DistillerPatch false def
- /languagelevel where {
- pop
- languagelevel 2 ge {
- product (Distiller) search {pop pop pop true}{pop false} ifelse
- product (Ghostscript) search {
- pop pop pop
- revision 800 ge
- }{pop false} ifelse
- or
- {
- (FlateDecode) {
- pop
-% Syntax: <dict> THB_DistillerPatch <dict> false
-% <dict> THB_DistillerPatch <dict> <filter>
- /THB_DistillerPatch {
- dup /Filter known {
- dup dup /Filter get exch /Filter undef
- }{false} ifelse
- } bind def
- } (FlateDecode) /Filter resourceforall
- } if
- } if
- } if
- /streamobj {
- $dictend exch
-% Stack: <thumb> <dict> <length>
- 3 -1 roll dup
-% Stack: <dict> <length> <thumb> <thumb>
- [ /_objdef 3 -1 roll /type /stream /OBJ pdfmark
-% Stack: <dict> <length> <thumb>
- dup dup 5 -1 roll
-% Stack: <length> <thumb> <thumb> <thumb> <dict>
- THB_DistillerPatch
-% Stack: <length> <thumb> <thumb> <thumb> <dict> <filter/false>
- [ 4 -2 roll /PUT pdfmark
-% Stack: <length> <thumb> <thumb> <filter/false>
- [ 3 1 roll currentfile${filter}
-% Stack: <length> <thumb> [ <thumb> <filter/false> <file>
- 6 -1 roll string $read pop
-% Stack: <thumb> [ <thumb> <filter/false> <string>
- exch dup type /booleantype ne {true} if {filter} if
-% Stack: <thumb> [ <thumb> <file>
- /PUT pdfmark
-% Stack: <thumb>
- [ exch /CLOSE pdfmark
- } bind def
-}{
-% Syntax: <thumb object> thisTHB -
- /thisTHB {pop} bind def
- 2 dict begin
-% Syntax: <page object> <thumb object> pagethumb -
- /pagethumb {pop pop} bind def
-% Syntax: <thumb object> <stream length>
-% <mark> <key value pairs> streamobj -
- /streamobj {
- cleartomark exch pop
- string currentfile${filter}
- exch $read pop pop
- } bind def
-} ifelse
-END_HEAD
- $PS_Header =~ s/%[^\r\n]*[\r\n]+//gm;
- print DTA_PM $PS_Header;
- print DTA_PM <<"END_DTA";
-
-% adding thumbnails to pages
-END_DTA
-
- for ($i=0; $i<$maxpagethumb; $i++)
- {
- print DTA_PM <<"END_DTA";
-{Page$thumbpageno[$i]} {THB$thumbpageno[$i]} pagethumb
-END_DTA
- }
- print DTA_PM "\n% thumbnail data\n";
- }
-
- for ($i=0; $i<$maxthumb; $i++)
- {
- # rgb object
- if ($thumbrgbobj[$i])
- {
- # find the same rgb object
- my $j;
- for ($j=0; $j<$i; $j++)
- {
- next unless $thumbrgbobj[$j];
- next unless $objtext[$thumbrgbobj[$j]] eq
- $objtext[$thumbrgbobj[$i]];
- next unless $objstream[$thumbrgbobj[$j]] eq
- $objstream[$thumbrgbobj[$i]];
- last;
- }
- if ($j==$i) # not found
- {
- if ($mode_pdftex)
- {
- {
- my $rgbstream = pdftexstream($objstream[$thumbrgbobj[$i]]);
- my $dict = $objtext[$thumbrgbobj[$i]];
- if ($::opt_compress == 10)
- {
- chomp($dict);
- $dict =~ s/\n([^\/])/^^J\n$1/mg;
- $dict =~ s/[ ]+\//\//mg;
- }
- else
- {
- $dict =~ s/\n/^^J\n/mg;
- }
- print DTA_PT <<"END_DTA";
-\\immediate\\pdfobj{<<$J
-$dict>>$J
-stream^^J
-$rgbstream
-endstream}
-\\DefRGB{$i}
-END_DTA
- }
- }
- if ($mode_pdfmark)
- {
- {
- my $rgbstream = pdfmarkstream($objstream[$thumbrgbobj[$i]]);
- my $rgblength = $thumbrgblength[$i];
- my $dict = $objtext[$thumbrgbobj[$i]];
- $dict =~ s/\/Length\s+\d+\s*//;
- $dict =~ s/^\s+//;
- $dict =~ s/\s+$//;
- print DTA_PM <<"END_DTA";
-{RGB_$i} $rgblength $dictbegin
-$dict
-streamobj
-$rgbstream
-END_DTA
- }
- }
- }
- else # $j with same rgb obj
- {
- $objtext[$thumbobj[$i]] =~
- s/\\the\\pdflastobj/\\UseRGB{$j}/;
- print "* Reuses RGB object $j for $i\n" if $::opt_debug;
- }
- }
-
- # thumb object
- if ($mode_pdftex)
- {
- {
- my $dict = $objtext[$thumbobj[$i]];
- if ($::opt_compress == 10)
- {
- chomp($dict);
- $dict =~ s/\n([^\/])/^^J\n$1/mg;
- $dict =~ s/[ ]+\//\//mg;
- $dict =~ s/[ ]+\[/\[/mg;
- }
- else
- {
- $dict =~ s/\n/^^J\n/mg;
- }
- my $stream = pdftexstream($objstream[$thumbobj[$i]]);
- print DTA_PT <<"END_DTA";
-\\immediate\\pdfobj{<<$J
-$dict>>$J
-stream^^J
-$stream
-endstream}
-\\DefThumb{$thumbpageno[$i]}
-END_DTA
- }
- }
- if ($mode_pdfmark)
- {
- {
- my $stream = pdfmarkstream($objstream[$thumbobj[$i]]);
- my $length = $thumblength[$i];
- my $dict = $objtext[$thumbobj[$i]];
- $dict =~ s/\\the\\pdflastobj\\\s*\d+\s*R/{RGB_$i}/;
- $dict =~ s/\\UseRGB{(\d+)}\\\s*\d+\s*R/{RGB_$1}/;
- $dict =~ s/\/Length\s+\d+\s*//;
- $dict =~ s/^\s+//;
- $dict =~ s/\s+$//;
- my $thismarker = "";
- $thismarker = "_", if $i >= $maxpagethumb;
- print DTA_PM <<"END_DTA";
-{THB$thismarker$thumbpageno[$i]} $length $dictbegin
-$dict
-streamobj
-$stream
-END_DTA
- }
- }
- }
-
- if ($mode_pdftex)
- {
- print DTA_PT "\\endinput\n";
- close(DTA_PT);
- }
- if ($mode_pdfmark)
- {
- print DTA_PM <<"END_DTA";
-end
-% end of thumbnail data file
-END_DTA
- close(DTA_PM);
- }
-}
-
-sub pdftexstream
-{
- my $str = "";
- my $mod = 0;
- foreach (split(//, $_[0]))
- {
- my $num = ord($_);
- if ($num == 13) { $str .= '\\/'; }
- elsif ($num < 32) { $str .= '^^' . chr($num + 64); }
- elsif ($num == 32) { $str .= '\\~'; } # space
- elsif ($num == 37) { $str .= '\\%'; } # percent
- elsif ($num == 92) { $str .= '\\\\'; } # backslash
- elsif ($num == 94) { $str .= '\\+'; } # caret
- elsif ($num == 123) { $str .= '\\{'; } # curly brace left
- elsif ($num == 125) { $str .= '\\}'; } # curly brace right
- else { $str .= $_; }
- $mod++;
- if ($mod == 26)
- {
- $mod = 0;
- $str .= "\n";
- }
- }
- chomp $str;
- return $str;
-}
-
-sub pdfmarkstream
-{
- my $str;
- if ($::opt_level2)
- {
- my $s = $_[0];
- my $len = length($s);
- $str = "";
- my $i;
- for ($i=0; $i<$len-4; $i+=4)
- {
- $_ = ASCII85Encode(substr($s, $i, 4));
- s/!!!!!/z/;
- $str .= $_;
- }
- my $r = $len % 4;
- if ($r)
- {
- $_ = substr($s, $i, $r) . "\000\000\000";
- $_ = ASCII85Encode(substr($_, 0, 4));
- $str .= substr($_, 0, $r+1);
- }
- $str =~ s/(.{60})/$1\n/g;
- chomp($str);
- $str .= "~>";
- }
- else
- {
- $str = uc(unpack('H*', $_[0]));
- $str =~ s/(.{60})/$1\n/g;
- chomp($str);
- }
- return $str;
-}
-
-sub ASCII85Encode
-{
- my $val = unpack("N", $_[0]);
- my @c;
- $c[4] = $val % 85 + 33;
- $val = int($val/85);
- $c[3] = $val % 85 + 33;
- $val = int($val/85);
- $c[2] = $val % 85 + 33;
- $val = int($val/85);
- $c[1] = $val % 85 + 33;
- $c[0] = int($val/85) + 33;
- return pack("C*", @c);
-}
-
-sub setsignals {
- my $func = $_[0];
- $SIG{'HUP'} = $func unless $Win;
- $SIG{'INT'} = $func;
- $SIG{'QUIT'} = $func;
- $SIG{'TERM'} = $func;
-}
-
-sub clean {
- if ($::opt_clean) {
- print "*** clear temp files ***\n" unless $::opt_quiet;
- foreach (@cleanlist) {
- unlink;
- }
- }
-}
-
-sub cleanup {
- print "\n" unless $::opt_quiet;
- clean();
- exit 1;
-}
-
-sub gscleanup {
- print "\n" unless $::opt_quiet;
- clean();
- close(::GSKID) if $gskidrunning;
- foreach (glob("$thumbprefix*.png")) {
- unlink;
- }
- exit 1;
-}
-
-clean();
-
-print "*** ready. ***\n" unless $::opt_quiet;
-
-__END__
diff --git a/Master/bin/alpha-linux/tie b/Master/bin/alpha-linux/tie
deleted file mode 100755
index 4314f8833ee..00000000000
--- a/Master/bin/alpha-linux/tie
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/ttf2afm b/Master/bin/alpha-linux/ttf2afm
deleted file mode 100755
index 857261e2d73..00000000000
--- a/Master/bin/alpha-linux/ttf2afm
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/ttf2pk b/Master/bin/alpha-linux/ttf2pk
deleted file mode 100755
index a19cba9069e..00000000000
--- a/Master/bin/alpha-linux/ttf2pk
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/ttf2tfm b/Master/bin/alpha-linux/ttf2tfm
deleted file mode 100755
index cce2048207e..00000000000
--- a/Master/bin/alpha-linux/ttf2tfm
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/uniqleaf b/Master/bin/alpha-linux/uniqleaf
deleted file mode 120000
index afced152700..00000000000
--- a/Master/bin/alpha-linux/uniqleaf
+++ /dev/null
@@ -1 +0,0 @@
-texexec \ No newline at end of file
diff --git a/Master/bin/alpha-linux/updmap b/Master/bin/alpha-linux/updmap
deleted file mode 100755
index c66303fdeee..00000000000
--- a/Master/bin/alpha-linux/updmap
+++ /dev/null
@@ -1,1383 +0,0 @@
-#!/bin/sh
-
-###############################################################################
-# updmap: utility to maintain map files for outline fonts.
-#
-# Thomas Esser. Public domain.
-# Usage: updmap [option] ... [command]
-#
-# Valid options:
-# --cnffile file specify configuration file
-# --dvipsoutputdir directory specify output directory (dvips syntax)
-# --pdftexoutputdir directory specify output directory (pdftex syntax)
-# --dvipdfmoutputdir directory specify output directory (dvipdfm syntax)
-# --outputdir directory specify output directory (for all files)
-# --nohash do not run texhash
-# --nomkmap do not recreate map files
-# --quiet reduce verbosity
-#
-# Valid commands:
-# --edit edit $cnfFileShort file
-# --help show this message
-# --showoptions item show alternatives for options
-# --setoption option value set option where option is one
-# of dvipsPreferOutline, LW35, dvipsDownloadBase35,
-# pdftexDownloadBase14 or dvipdfmDownloadBase14
-# --setoption option=value see above, just different syntax
-# --enable maptype mapfile add or enable a Map or MixedMap
-# --enable Map=mapfile add or enable a Map
-# --enable MixedMap=mapfile add or enable a MixedMap
-# --disable mapfile disable Map or MixedMap for mapfile
-# --syncwithtrees entries with unavailable map files will be
-# disabled in the config file
-# --listmaps list all active and inactive maps
-# --listavailablemaps same as --listmaps, but filter out
-# unavailable map files
-###############################################################################
-
-###############################################################################
-# program history:
-# Fr Jul 22 07:22:38 CEST 2005
-# write hint about log file into output files
-# Fr Apr 8 19:15:05 CEST 2005
-# cleanup now has an argument for the return code
-# So Mär 27 18:52:06 CEST 2005
-# honor $TMPDIR, $TEMP and $TMP, not just $TMP
-# Do Mär 10 19:31:39 CET 2005
-# add a few quotes for $cnfFile with whitespace
-# Sa Jan 15 18:13:46 CET 2005
-# avoid multiple variable assignments in one statement
-# Sa Dez 25 12:44:23 CET 2004
-# implementaion adopted for teTeX-3.0 (tcfmgr)
-# Mi Nov 3 16:33:22 CET 2004
-# add "--setoption option=value" syntax
-# Fr Okt 29 21:05:53 CEST 2004
-# add --enable Map=... / --enable MixedMap=...
-# Mi Okt 20 19:17:19 CEST 2004
-# transcript added; even better warnings / error messages
-# So Okt 17 19:07:17 CEST 2004
-# improved warnings / error messages
-# added --syncwithtrees
-# added --listavailablemaps
-# Mi Okt 6 16:37:49 CEST 2004
-# commenty may start with any of *#;%
-# Sun Aug 1 11:42:14 CEST 2004, te
-# remove pdftex related hacks; pdftex no longer needs them!
-# Thu May 13 22:04:23 CEST 2004, te
-# support user with new map file locations
-# Fri Mar 19 15:22:55 CET 2004, te
-# output "xxx yyy" instead of " xxx yyy " (less blanks)
-# Fri Jan 2 22:41:11 CET 2004, te:
-# add version string
-# Wed Aug 20 18:51:47 CEST 2003
-# store map files to fonts/map, add options for dvipsoutputdir,
-# pdftexoutputdir, dvipdfmoutputdir
-# Mon Mar 24 13:40:55 CET 2003
-# fix fmex[789] for dvipdfm (no -r option)
-# Sun Mar 23 18:58:00 CET 2003
-# make the script robust against whitespace in filenames
-# Mon Jan 27 22:38:44 CET 2003
-# don't call a function before processOptions; we may loose our
-# argument list with some broken shells
-# Mon Jan 27 06:55:28 CET 2003
-# fix unportable egrep / sed
-# Sat Jan 18 10:10:26 CET 2003
-# use $tmp8 in dvips2dvipdfm()
-# Thu Jan 2 23:14:34 CET 2003
-# add umask 022, so generated files are always world-readable
-# Sun Oct 27 11:33:04 CET 2002
-# write output in normalized format
-# add support for dvipdfm
-# Mon Sep 22 19:18:57 CEST 2002
-# fix typo: buildin -> builtin
-# Mon Sep 2 19:18:57 CEST 2002
-# fix condensed <-> narrow mapping
-# Sun Sep 1 15:02:28 CEST 2002
-# add dvipsDownloadBase35 / pdftexDownloadBase14 options
-# Wed May 22 20:00:13 CEST 2002
-# listmaps option added by Gerben Wierda
-# Tue May 21 05:27:37 CEST 2002
-# now removing map files before rewriting them; fixes permission problems
-# Tue May 21 05:05:34 CEST 2002:
-# cli options added: showoptions, setoption, enable, disable, nomkmap
-# now even more verbose; now reporting non-existing map files
-# fixing trap for MAC OS/X compatibility
-# Fri May 17 22:38:37 CEST 2002:
-# rewritten from teTeX-1.0 version; Completely new designed.
-###############################################################################
-
-test -f /bin/ksh && test -z "$RUNNING_KSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_KSH=true; export RUNNING_KSH; exec /bin/ksh $0 ${1+"$@"}; }
-unset RUNNING_KSH
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-export PATH
-
-# hack around a bug in zsh:
-test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"'
-
-# the version string
-version=1122009795 # seconds since `00:00:00 1970-01-01 UTC'
- # date '+%s' (with GNU date)
-
-###############################################################################
-# help()
-# display help message and exit
-###############################################################################
-help()
-{
- cat <<eof
-Usage: updmap [option] ... [command]
-
-Valid options:
- --cnffile file specify configuration file
- --dvipsoutputdir directory specify output directory (dvips syntax)
- --pdftexoutputdir directory specify output directory (pdftex syntax)
- --dvipdfmoutputdir directory specify output directory (dvipdfm syntax)
- --outputdir directory specify output directory (for all files)
- --nohash do not run texhash
- --nomkmap do not recreate map files
- --quiet reduce verbosity
-
-Valid commands:
- --edit edit $cnfFileShort file
- --help show this message
- --showoptions item show alternatives for options
- --setoption option value set option where option is one
- of dvipsPreferOutline, LW35, dvipsDownloadBase35,
- pdftexDownloadBase14 or dvipdfmDownloadBase14
- --setoption option=value see above, just different syntax
- --enable maptype mapfile add or enable a Map or MixedMap
- --enable Map=mapfile add or enable a Map
- --enable MixedMap=mapfile add or enable a MixedMap
- --disable mapfile disable Map or MixedMap for mapfile
- --syncwithtrees entries with unavailable map files will be
- disabled in the config file
- --listmaps list all active and inactive maps
- --listavailablemaps same as --listmaps, but filter out
- unavailable map files
-eof
- (exit 0); exit
-}
-
-###############################################################################
-# verboseMsg(msg)
-# print `msg' to stderr is $verbose is true
-###############################################################################
-verboseMsg() {
- test -n "$log" && echo ${1+"$@"} >> "$log"
- $verbose && echo ${1+"$@"} >&2
-}
-
-###############################################################################
-# verboseCat()
-# cat to stderr is $verbose is true
-###############################################################################
-verboseCat() {
- if $verbose; then
- if test -n "$log"; then
- cat ${1+"$@"} | tee -a "$log" >&2
- else
- cat ${1+"$@"} >&2
- fi
- else
- test -n "$log" && cat ${1+"$@"} >> "$log"
- fi
-}
-
-###############################################################################
-# warn(msg)
-# print `msg' to stderr
-###############################################################################
-warn()
-{
- test -n "$log" && echo ${1+"$@"} >> "$log"
- echo ${1+"$@"} >&2
-}
-
-###############################################################################
-# abort(errmsg)
-# print `errmsg' to stderr and exit with error code 1
-###############################################################################
-abort()
-{
- warn "$progname: $1."
- cleanup 1
-}
-
-###############################################################################
-# cfgval(variable)
-# read variable ($1) from config file, first match wins
-###############################################################################
-cfgval()
-{
- cat "$cnfFile" | sed -n 's/^'"$1"'[ =][ =]*//p' | sed q
-}
-
-###############################################################################
-# setupSymlinks()
-# set symlink for psfonts.map according to dvipsPreferOutline variable
-###############################################################################
-setupSymlinks()
-{
- rm -f "$dvipsoutputdir/psfonts.map"
- if test "x$dvipsPreferOutline" = xtrue; then
- ln -s psfonts_t1.map "$dvipsoutputdir/psfonts.map"
- else
- ln -s psfonts_pk.map "$dvipsoutputdir/psfonts.map"
- fi
-
- rm -f "$pdftexoutputdir/pdftex.map"
- if test "x$pdftexDownloadBase14" = xtrue; then
- ln -s pdftex_dl14.map "$pdftexoutputdir/pdftex.map"
- else
- ln -s pdftex_ndl14.map "$pdftexoutputdir/pdftex.map"
- fi
- rm -f "$dvipdfmoutputdir/dvipdfm.map"
- if test "x$dvipdfmDownloadBase14" = xtrue; then
- ln -s dvipdfm_dl14.map "$dvipdfmoutputdir/dvipdfm.map"
- else
- ln -s dvipdfm_ndl14.map "$dvipdfmoutputdir/dvipdfm.map"
- fi
-}
-
-###############################################################################
-# transLW35(args ...)
-# transform fontname and filenames according to transformation specified
-# by mode
-###############################################################################
-transLW35()
-{
- case $mode in
- ""|URWkb)
- cat ${1+"$@"}
- ;;
- URW)
- fileURW ${1+"$@"}
- ;;
- ADOBE|ADOBEkb)
- psADOBE ${1+"$@"} | file$mode
- ;;
- esac
-}
-
-###############################################################################
-# catMaps(regex)
-# filter config file by regex for map lines and extract the map filenames.
-# These are then looked up (by kpsewhich in locateMap) and the content of
-# all map files is send to stdout.
-###############################################################################
-catMaps()
-{
- rm -f $catMapsFailed
- egrep "$1" "$cnfFile" \
- | sed 's@#.*@@' \
- | awk '{print $2}' \
- | sort \
- | uniq \
- | grep . > $tmp4
-
- while read map; do
- file=`locateMap "$map"` || { touch $catMapsFailed; break; }
-
- # output the file; also output a newline, because the final newline
- # might be missing in the map file; Empty lines are filtered out later,
- # so it does not really hurt do do this here.
- test -n "$file" && { cat "$file"; echo; }
- done < $tmp4
- if test -f $catMapsFailed; then
- false; return 1
- else
- true; return 0
- fi
-}
-
-###############################################################################
-# configReplace(file, pattern, line)
-# The first line in file that matches pattern gets replaced by line.
-# line will be added at the end of the file if pattern does not match.
-###############################################################################
-configReplace()
-{
- file=$1; pat=$2; line=$3
-
- if grep "$pat" "$file" >/dev/null; then
- ed "$file" >/dev/null 2>&1 <<-eof
- /$pat/
- c
- $line
- .
- w
- q
-eof
- else
- echo "$line" >> "$file"
- fi
-}
-
-###############################################################################
-# setOption (option, value)
-# sets option to value in the config file (replacing the existing setting
-# or by adding a new line to the config file).
-###############################################################################
-setOption()
-{
- opt=$1
- val=$2
- case "$opt" in
- LW35)
- case "$val" in
- URWkb|URW|ADOBE|ADOBEkb)
- ;;
- *)
- abort "invalid value $val for option $opt"
- ;;
- esac
- ;;
- dvipsPreferOutline|dvipsDownloadBase35|pdftexDownloadBase14|dvipdfmDownloadBase14)
- case "$val" in
- true|false)
- ;;
- *)
- abort "invalid value $val for option $opt"
- esac
- ;;
- *)
- abort "unsupported option $opt"
- ;;
- esac
-
- configReplace "$cnfFile" "^$opt[ ]" "$opt $val"
-}
-
-###############################################################################
-# enableMap (type, map)
-# enables an entry in the config file for map with a given type.
-###############################################################################
-enableMap()
-{
- case $1 in
- Map|MixedMap)
- ;;
- *)
- abort "invalid mapType $1"
- ;;
- esac
-
- # a map can only have one type, so we carefully disable everything
- # about map here:
- disableMap "$2"
-
- # now enable with the right type:
- configReplace "$cnfFile" "^#![ ]*$1[ ]*$2" "$1 $2"
-}
-
-###############################################################################
-# disableMap (map)
-# disables map in config file (any type)
-###############################################################################
-disableMap()
-{
- #mapType=`awk '($1 == "MixedMap" || $1 == "Map") && $2 == map { print $1 }' \
- # map=$1 <"$cnfFile" | sort | uniq`
- map=$1
- mapType=`egrep "^(MixedMap|Map)[ ]*$map( | |$)" "$cnfFile" | awk '{print $1}' | sort | uniq`
- for type in $mapType; do
- configReplace "$cnfFile" "^$type[ ]*$1" "#! $type $1"
- done
-}
-
-###############################################################################
-# psADOBE()
-# transform fontnames from URW to Adobe
-###############################################################################
-psADOBE()
-{
- sed \
- -e 's/ URWGothicL-Demi / AvantGarde-Demi /' \
- -e 's/ URWGothicL-DemiObli / AvantGarde-DemiOblique /' \
- -e 's/ URWGothicL-Book / AvantGarde-Book /' \
- -e 's/ URWGothicL-BookObli / AvantGarde-BookOblique /' \
- -e 's/ URWBookmanL-DemiBold / Bookman-Demi /' \
- -e 's/ URWBookmanL-DemiBoldItal / Bookman-DemiItalic /' \
- -e 's/ URWBookmanL-Ligh / Bookman-Light /' \
- -e 's/ URWBookmanL-LighItal / Bookman-LightItalic /' \
- -e 's/ NimbusMonL-Bold / Courier-Bold /' \
- -e 's/ NimbusMonL-BoldObli / Courier-BoldOblique /' \
- -e 's/ NimbusMonL-Regu / Courier /' \
- -e 's/ NimbusMonL-ReguObli / Courier-Oblique /' \
- -e 's/ NimbusSanL-Bold / Helvetica-Bold /' \
- -e 's/ NimbusSanL-BoldCond / Helvetica-Narrow-Bold /' \
- -e 's/ NimbusSanL-BoldItal / Helvetica-BoldOblique /' \
- -e 's/ NimbusSanL-BoldCondItal / Helvetica-Narrow-BoldOblique /' \
- -e 's/ NimbusSanL-Regu / Helvetica /' \
- -e 's/ NimbusSanL-ReguCond / Helvetica-Narrow /' \
- -e 's/ NimbusSanL-ReguItal / Helvetica-Oblique /' \
- -e 's/ NimbusSanL-ReguCondItal / Helvetica-Narrow-Oblique /' \
- -e 's/ CenturySchL-Bold / NewCenturySchlbk-Bold /' \
- -e 's/ CenturySchL-BoldItal / NewCenturySchlbk-BoldItalic /' \
- -e 's/ CenturySchL-Roma / NewCenturySchlbk-Roman /' \
- -e 's/ CenturySchL-Ital / NewCenturySchlbk-Italic /' \
- -e 's/ URWPalladioL-Bold / Palatino-Bold /' \
- -e 's/ URWPalladioL-BoldItal / Palatino-BoldItalic /' \
- -e 's/ URWPalladioL-Roma / Palatino-Roman /' \
- -e 's/ URWPalladioL-Ital / Palatino-Italic /' \
- -e 's/ StandardSymL / Symbol /' \
- -e 's/ NimbusRomNo9L-Medi / Times-Bold /' \
- -e 's/ NimbusRomNo9L-MediItal / Times-BoldItalic /' \
- -e 's/ NimbusRomNo9L-Regu / Times-Roman /' \
- -e 's/ NimbusRomNo9L-ReguItal / Times-Italic /' \
- -e 's/ URWChanceryL-MediItal / ZapfChancery-MediumItalic /' \
- -e 's/ Dingbats / ZapfDingbats /' \
- ${1+"$@"}
-}
-
-###############################################################################
-# fileADOBEkb()
-# transform filenames from URW to ADOBE (both berry names)
-###############################################################################
-fileADOBEkb()
-{
- sed \
- -e 's/\([^A-Za-z]\)uagd8a.pfb/\1pagd8a.pfb/' \
- -e 's/\([^A-Za-z]\)uagdo8a.pfb/\1pagdo8a.pfb/' \
- -e 's/\([^A-Za-z]\)uagk8a.pfb/\1pagk8a.pfb/' \
- -e 's/\([^A-Za-z]\)uagko8a.pfb/\1pagko8a.pfb/' \
- -e 's/\([^A-Za-z]\)ubkd8a.pfb/\1pbkd8a.pfb/' \
- -e 's/\([^A-Za-z]\)ubkdi8a.pfb/\1pbkdi8a.pfb/' \
- -e 's/\([^A-Za-z]\)ubkl8a.pfb/\1pbkl8a.pfb/' \
- -e 's/\([^A-Za-z]\)ubkli8a.pfb/\1pbkli8a.pfb/' \
- -e 's/\([^A-Za-z]\)ucrb8a.pfb/\1pcrb8a.pfb/' \
- -e 's/\([^A-Za-z]\)ucrbo8a.pfb/\1pcrbo8a.pfb/' \
- -e 's/\([^A-Za-z]\)ucrr8a.pfb/\1pcrr8a.pfb/' \
- -e 's/\([^A-Za-z]\)ucrro8a.pfb/\1pcrro8a.pfb/' \
- -e 's/\([^A-Za-z]\)uhvb8a.pfb/\1phvb8a.pfb/' \
- -e 's/\([^A-Za-z]\)uhvb8ac.pfb/\1phvb8an.pfb/' \
- -e 's/\([^A-Za-z]\)uhvbo8a.pfb/\1phvbo8a.pfb/' \
- -e 's/\([^A-Za-z]\)uhvbo8ac.pfb/\1phvbo8an.pfb/' \
- -e 's/\([^A-Za-z]\)uhvr8a.pfb/\1phvr8a.pfb/' \
- -e 's/\([^A-Za-z]\)uhvr8ac.pfb/\1phvr8an.pfb/' \
- -e 's/\([^A-Za-z]\)uhvro8a.pfb/\1phvro8a.pfb/' \
- -e 's/\([^A-Za-z]\)uhvro8ac.pfb/\1phvro8an.pfb/' \
- -e 's/\([^A-Za-z]\)uncb8a.pfb/\1pncb8a.pfb/' \
- -e 's/\([^A-Za-z]\)uncbi8a.pfb/\1pncbi8a.pfb/' \
- -e 's/\([^A-Za-z]\)uncr8a.pfb/\1pncr8a.pfb/' \
- -e 's/\([^A-Za-z]\)uncri8a.pfb/\1pncri8a.pfb/' \
- -e 's/\([^A-Za-z]\)uplb8a.pfb/\1pplb8a.pfb/' \
- -e 's/\([^A-Za-z]\)uplbi8a.pfb/\1pplbi8a.pfb/' \
- -e 's/\([^A-Za-z]\)uplr8a.pfb/\1pplr8a.pfb/' \
- -e 's/\([^A-Za-z]\)uplri8a.pfb/\1pplri8a.pfb/' \
- -e 's/\([^A-Za-z]\)usyr.pfb/\1psyr.pfb/' \
- -e 's/\([^A-Za-z]\)utmb8a.pfb/\1ptmb8a.pfb/' \
- -e 's/\([^A-Za-z]\)utmbi8a.pfb/\1ptmbi8a.pfb/' \
- -e 's/\([^A-Za-z]\)utmr8a.pfb/\1ptmr8a.pfb/' \
- -e 's/\([^A-Za-z]\)utmri8a.pfb/\1ptmri8a.pfb/' \
- -e 's/\([^A-Za-z]\)uzcmi8a.pfb/\1pzcmi8a.pfb/' \
- -e 's/\([^A-Za-z]\)uzdr.pfb/\1pzdr.pfb/' \
- ${1+"$@"}
-}
-
-###############################################################################
-# fileURW()
-# transform filenames from URWkb (berry names) to URW (vendor names)
-###############################################################################
-fileURW()
-{
- sed \
- -e 's/\([^A-Za-z]\)uagd8a.pfb/\1a010015l.pfb/' \
- -e 's/\([^A-Za-z]\)uagdo8a.pfb/\1a010035l.pfb/' \
- -e 's/\([^A-Za-z]\)uagk8a.pfb/\1a010013l.pfb/' \
- -e 's/\([^A-Za-z]\)uagko8a.pfb/\1a010033l.pfb/' \
- -e 's/\([^A-Za-z]\)ubkd8a.pfb/\1b018015l.pfb/' \
- -e 's/\([^A-Za-z]\)ubkdi8a.pfb/\1b018035l.pfb/' \
- -e 's/\([^A-Za-z]\)ubkl8a.pfb/\1b018012l.pfb/' \
- -e 's/\([^A-Za-z]\)ubkli8a.pfb/\1b018032l.pfb/' \
- -e 's/\([^A-Za-z]\)ucrb8a.pfb/\1n022004l.pfb/' \
- -e 's/\([^A-Za-z]\)ucrbo8a.pfb/\1n022024l.pfb/' \
- -e 's/\([^A-Za-z]\)ucrr8a.pfb/\1n022003l.pfb/' \
- -e 's/\([^A-Za-z]\)ucrro8a.pfb/\1n022023l.pfb/' \
- -e 's/\([^A-Za-z]\)uhvb8a.pfb/\1n019004l.pfb/' \
- -e 's/\([^A-Za-z]\)uhvb8ac.pfb/\1n019044l.pfb/' \
- -e 's/\([^A-Za-z]\)uhvbo8a.pfb/\1n019024l.pfb/' \
- -e 's/\([^A-Za-z]\)uhvbo8ac.pfb/\1n019064l.pfb/' \
- -e 's/\([^A-Za-z]\)uhvr8a.pfb/\1n019003l.pfb/' \
- -e 's/\([^A-Za-z]\)uhvr8ac.pfb/\1n019043l.pfb/' \
- -e 's/\([^A-Za-z]\)uhvro8a.pfb/\1n019023l.pfb/' \
- -e 's/\([^A-Za-z]\)uhvro8ac.pfb/\1n019063l.pfb/' \
- -e 's/\([^A-Za-z]\)uncb8a.pfb/\1c059016l.pfb/' \
- -e 's/\([^A-Za-z]\)uncbi8a.pfb/\1c059036l.pfb/' \
- -e 's/\([^A-Za-z]\)uncr8a.pfb/\1c059013l.pfb/' \
- -e 's/\([^A-Za-z]\)uncri8a.pfb/\1c059033l.pfb/' \
- -e 's/\([^A-Za-z]\)uplb8a.pfb/\1p052004l.pfb/' \
- -e 's/\([^A-Za-z]\)uplbi8a.pfb/\1p052024l.pfb/' \
- -e 's/\([^A-Za-z]\)uplr8a.pfb/\1p052003l.pfb/' \
- -e 's/\([^A-Za-z]\)uplri8a.pfb/\1p052023l.pfb/' \
- -e 's/\([^A-Za-z]\)usyr.pfb/\1s050000l.pfb/' \
- -e 's/\([^A-Za-z]\)utmb8a.pfb/\1n021004l.pfb/' \
- -e 's/\([^A-Za-z]\)utmbi8a.pfb/\1n021024l.pfb/' \
- -e 's/\([^A-Za-z]\)utmr8a.pfb/\1n021003l.pfb/' \
- -e 's/\([^A-Za-z]\)utmri8a.pfb/\1n021023l.pfb/' \
- -e 's/\([^A-Za-z]\)uzcmi8a.pfb/\1z003034l.pfb/' \
- -e 's/\([^A-Za-z]\)uzdr.pfb/\1d050000l.pfb/' \
- ${1+"$@"}
-}
-
-###############################################################################
-# fileADOBE()
-# transform filenames from URWkb (berry names) to ADOBE (vendor names)
-###############################################################################
-fileADOBE()
-{
- sed \
- -e 's/\([^A-Za-z]\)uagd8a.pfb/\1agd_____.pfb/' \
- -e 's/\([^A-Za-z]\)uagdo8a.pfb/\1agdo____.pfb/' \
- -e 's/\([^A-Za-z]\)uagk8a.pfb/\1agw_____.pfb/' \
- -e 's/\([^A-Za-z]\)uagko8a.pfb/\1agwo____.pfb/' \
- -e 's/\([^A-Za-z]\)ubkd8a.pfb/\1bkd_____.pfb/' \
- -e 's/\([^A-Za-z]\)ubkdi8a.pfb/\1bkdi____.pfb/' \
- -e 's/\([^A-Za-z]\)ubkl8a.pfb/\1bkl_____.pfb/' \
- -e 's/\([^A-Za-z]\)ubkli8a.pfb/\1bkli____.pfb/' \
- -e 's/\([^A-Za-z]\)ucrb8a.pfb/\1cob_____.pfb/' \
- -e 's/\([^A-Za-z]\)ucrbo8a.pfb/\1cobo____.pfb/' \
- -e 's/\([^A-Za-z]\)ucrr8a.pfb/\1com_____.pfb/' \
- -e 's/\([^A-Za-z]\)ucrro8a.pfb/\1coo_____.pfb/' \
- -e 's/\([^A-Za-z]\)uhvb8a.pfb/\1hvb_____.pfb/' \
- -e 's/\([^A-Za-z]\)uhvb8ac.pfb/\1hvnb____.pfb/' \
- -e 's/\([^A-Za-z]\)uhvbo8a.pfb/\1hvbo____.pfb/' \
- -e 's/\([^A-Za-z]\)uhvbo8ac.pfb/\1hvnbo___.pfb/' \
- -e 's/\([^A-Za-z]\)uhvr8a.pfb/\1hv______.pfb/' \
- -e 's/\([^A-Za-z]\)uhvr8ac.pfb/\1hvn_____.pfb/' \
- -e 's/\([^A-Za-z]\)uhvro8a.pfb/\1hvo_____.pfb/' \
- -e 's/\([^A-Za-z]\)uhvro8ac.pfb/\1hvno____.pfb/' \
- -e 's/\([^A-Za-z]\)uncb8a.pfb/\1ncb_____.pfb/' \
- -e 's/\([^A-Za-z]\)uncbi8a.pfb/\1ncbi____.pfb/' \
- -e 's/\([^A-Za-z]\)uncr8a.pfb/\1ncr_____.pfb/' \
- -e 's/\([^A-Za-z]\)uncri8a.pfb/\1nci_____.pfb/' \
- -e 's/\([^A-Za-z]\)uplb8a.pfb/\1pob_____.pfb/' \
- -e 's/\([^A-Za-z]\)uplbi8a.pfb/\1pobi____.pfb/' \
- -e 's/\([^A-Za-z]\)uplr8a.pfb/\1por_____.pfb/' \
- -e 's/\([^A-Za-z]\)uplri8a.pfb/\1poi_____.pfb/' \
- -e 's/\([^A-Za-z]\)usyr.pfb/\1sy______.pfb/' \
- -e 's/\([^A-Za-z]\)utmb8a.pfb/\1tib_____.pfb/' \
- -e 's/\([^A-Za-z]\)utmbi8a.pfb/\1tibi____.pfb/' \
- -e 's/\([^A-Za-z]\)utmr8a.pfb/\1tir_____.pfb/' \
- -e 's/\([^A-Za-z]\)utmri8a.pfb/\1tii_____.pfb/' \
- -e 's/\([^A-Za-z]\)uzcmi8a.pfb/\1zcmi____.pfb/' \
- -e 's/\([^A-Za-z]\)uzdr.pfb/\1zd______.pfb/' \
- ${1+"$@"}
-}
-
-###############################################################################
-# locateWeb2c (file ...)
-# apply kpsewhich with format 'web2c files'
-###############################################################################
-locateWeb2c()
-{
- kpsewhich --format='web2c files' ${1+"$@"}
-}
-
-###############################################################################
-# locateMap (file ...)
-# apply kpsewhich with format 'map'
-###############################################################################
-locateMap()
-{
-
- # Always use the "migration checking version". This might become
- # consigurable, but for now, we always want to check.
- if :; then
- locateMapMigrate "$@"
- return $?
- fi
-
- # The old version of the code; not used at the moment.
- for map
- do
- file=`kpsewhich --format=map "$map"`
- if test -f "$file"; then
- verboseMsg "$progname: using map file \`$file'"
- echo "$file"
- else
- warn "map file \`$map' not found."
- fi
- done
-}
-
-###############################################################################
-# locateMapMigrate (file ...)
-# look for map file; assist user with possibly files in wrong locations;
-# also watch out for possibly hidden conflicts
-###############################################################################
-locateMapMigrate()
-{
- for map
- do
- # look up using the new search path
- file=`kpsewhich --format=map "$map"`
-
- # look up using the old search path
- file2=`kpsewhich --format='dvips config' "$map"`
-
- # Well, the search paths should not overlap. If they do, and if
- # file1 = file2, we don't want to complain about file2, so:
- test "x$file" = "x$file2" && file2=
-
- if test -f "$file"; then
-
- verboseMsg "$progname: using map file \`$file'"
- echo "$file"
-
- # we have found the file where we should. If we have additional
- # ones: complain!
- if test -f "$file2"; then
- mapCmp "$file" "$file2" \
- && mapWarn obsoleteCopy "$map" "$file2" \
- || mapWarn manualResolve "$map" "$file" "$file2"
- fi
-
- else
- if test -f "$file2"; then
- # bad: map file exists in the wrong location only
- mapWarn badLocation "$map" "$file2"
- else
- # bad: map file does not exist at all
- mapWarn notFound "$map"
- fi
- false; return 1
- fi
- done
- true; return 0
-}
-
-###############################################################################
-# mapCmp(file, file2)
-# compare two map files like cmp; but less strict, so changes regarding
-# whitespaces, comments etc. are tolerated. Important is only the
-# return value here.
-###############################################################################
-mapCmp()
-{
- file=$1; file2=$2
-
- # For reasons of speed only. Avoid normalizeLines if files are 100%
- # the same.
- cmp "$file" "$file2" >/dev/null 2>&1 && return 0
-
- normalizeLines <"$file" >"$tmpdir/mapCmp-1"
- normalizeLines <"$file2" >"$tmpdir/mapCmp-2"
- cmp "$tmpdir/mapCmp-1" "$tmpdir/mapCmp-2" >/dev/null 2>&1
-}
-
-###############################################################################
-# mapWarn()
-###############################################################################
-mapWarn()
-{
-
- case $1 in
- obsoleteCopy)
- warn "
-!!! WARNING: Identical copy of used file for \`$2'
- exists in obsolete location
- $3
- Please, consider removing this file.
-"
- touch $mapWarnCalled
- ;;
- manualResolve)
- warn "
-!!! WARNING: While searching for the right map file for \`$2', we have
- found the file
- $3
- in the right location and we are using this
- file. However, a map file with different content has been found in
- the obsolete location
- $4
- Please, see which version you want to use and eventually update the
- content of the used map file. Additionally, consider removing the
- obsolete file.
-"
- touch $mapWarnCalled
- ;;
- badLocation)
- map=$2
- location=$3
-
- m="
-!!! ERROR: The right location for map files has been
- changed for this release and the map file \`$map' has
- not been found in the right location, but in the obsolete
- location
- $location
- instead.
-
- To fix this, please move this file into an appropriate
- subdirectory of fonts/map in one of your texmf trees.
-
- For more information about the changed search paths, see
- the release notes section in the teTeX manual. You probably
- can read this document by executing the command
- texdoc TETEXDOC
- else visit the web page
- http://tug.org/texlive/mapenc.html
-"
- warn "$m"
- false; return 1
- ;;
- notFound)
- warn "
-!!! ERROR! The map file \`$2' has not been found at all.
-
- Either put this file into the right place or remove the
- reference from the configuration file. An automatic way
- to disable unavailable map files is to call
- $progname --syncwithtrees
-
- For manual editing, call
- $progname --edit
-"
-
- false; return 1
- ;;
- esac
-}
-
-###############################################################################
-# cleanup()
-# clean up the temp area and exit with proper exit status
-###############################################################################
-cleanup()
-{
- rc=$1
- $needsCleanup && test -n "$tmpdir" && test -d "$tmpdir" \
- && { cd / && rm -rf "$tmpdir"; }
- (exit $rc); exit $rc
-}
-
-###############################################################################
-# setupTmpDir()
-# set up a temp directory and a trap to remove it
-###############################################################################
-setupTmpDir()
-{
- $needsCleanup && return
-
- trap 'cleanup 1' 1 2 3 7 13 15
- needsCleanup=true
- mkdir "$tmpdir" || abort "could not create directory \`$tmpdir'"
-}
-
-###############################################################################
-# showOptions(item)
-# show Options for an item
-###############################################################################
-showOptions()
-{
- item=$1
-
- case "$item" in
- LW35)
- echo "URWkb URW ADOBE ADOBEkb"
- ;;
- dvipsPreferOutline|pdftexDownloadBase14|dvipdfmDownloadBase14|dvipsDownloadBase35)
- echo "true false"
- ;;
- *)
- abort "Unknown item \"$item\". Choose one of LW35, dvipsPreferOutline, dvipsDownloadBase35, pdftexDownloadBase14 or dvipdfmDownloadBase14"
- ;;
- esac
-
- (exit 0); exit 0
-}
-
-###############################################################################
-# mktexdir(args)
-# call mktexdir script, disable all features (to prevent sticky directories)
-###############################################################################
-mktexdir()
-{
- MT_FEATURES=none "$TEXMFMAIN/web2c/mktexdir" "$@" >&2
-}
-
-###############################################################################
-# setupDestDir()
-# Assign output directories which are not yet assigned. Always use
-# the TEXMFVAR for this.
-###############################################################################
-setupDestDir()
-{
- vartexmf=`kpsewhich -var-value=TEXMFVAR`
-
- # dvips
- if test -z "$dvipsoutputdir"; then
- dvipsoutputdir=$vartexmf/fonts/map/dvips/updmap
- fi
-
- # pdftex
- if test -z "$pdftexoutputdir"; then
- pdftexoutputdir=$vartexmf/fonts/map/pdftex/updmap
- fi
-
- # dvipdfm
- if test -z "$dvipdfmoutputdir"; then
- dvipdfmoutputdir=$vartexmf/fonts/map/dvipdfm/updmap
- fi
-
- mktexdir "$dvipsoutputdir" "$pdftexoutputdir" "$dvipdfmoutputdir" >/dev/null 2>&1
- for d in "$dvipsoutputdir" "$pdftexoutputdir" "$dvipdfmoutputdir"; do
- test -d "$d" || abort "output directory \`$d' does not exist"
- test -w "$d" || abort "output directory \`$d' is not writable"
- done
-
-}
-
-###############################################################################
-# setupLog(cfgFile)
-# try to set up a log file in $TEXMFVAR/web2c
-###############################################################################
-setupLog()
-{
- vartexmf=`kpsewhich -var-value=TEXMFVAR`
- dir=$vartexmf/web2c
- mktexdir "$dir" >/dev/null 2>&1
- log="$dir/$progname.log"
- if test -d "$dir" && test -w "$dir"; then
- rm -f "$log"
- > "$log"
- fi
- if test -w "$log"; then
- date > "$log"
- verboseMsg "$progname: This is $progname, version $version"
- verboseMsg "$progname: using transcript file \`$log'"
- else
- log=
- verboseMsg "$progname: This is $progname, version $version"
- verboseMsg "$progname: no permissions for writing $dir/$progname.log', so no transcript"
- fi
-}
-
-###############################################################################
-# setupCfgFile()
-# find config file if none specified on cmd line.
-###############################################################################
-setupCfgFile()
-{
- case "$cnfFile" in
- "") cnfFile=`locateWeb2c $cnfFileShort`
- case "$cnfFile" in
- "") abort "config file $cnfFileShort not found"
- esac;;
- esac
- setupLog
-}
-
-###############################################################################
-# processOptions()
-# process cmd line options
-###############################################################################
-processOptions()
-{
- while
- case $1 in
- --quiet|-q)
- verbose=false;;
- --cnffile)
- cfgparam=1; cnfFile=$2; shift;;
- --cnffile=*)
- cfgparam=1; cnfFile=`echo "$1" | sed 's/--cnffile=//'`;;
- --dvipsoutputdir)
- dvipsoutputdirparam=1; dvipsoutputdir=$2; shift;;
- --dvipsoutputdir=*)
- dvipsoutputdirparam=1; dvipsoutputdir=`echo "$1" | sed 's/--dvipsoutputdir=//'`;;
- --pdftexoutputdir)
- pdftexoutputdirparam=1; pdftexoutputdir=$2; shift;;
- --pdftexoutputdir=*)
- pdftexoutputdirparam=1; pdftexoutputdir=`echo "$1" | sed 's/--pdftexoutputdir=//'`;;
- --dvipdfmoutputdir)
- dvipdfmoutputdirparam=1; dvipdfmoutputdir=$2; shift;;
- --dvipdfmoutputdir=*)
- dvipdfmoutputdirparam=1; dvipdfmoutputdir=`echo "$1" | sed 's/--dvipdfmoutputdir=//'`;;
- --outputdir)
- dvipsoutputdirparam=1; dvipsoutputdir=$2
- pdftexoutputdirparam=1; pdftexoutputdir=$2
- dvipdfmoutputdirparam=1; dvipdfmoutputdir=$2
- shift
- ;;
- --outputdir=*)
- outputdir=`echo "$1" | sed 's/--outputdir=//'`
- dvipsoutputdirparam=1; dvipsoutputdir=$outputdir
- pdftexoutputdirparam=1; pdftexoutputdir=$outputdir
- dvipdfmoutputdirparam=1; dvipdfmoutputdir=$outputdir
- ;;
- --setoption)
- cfgmaint=1
- cmd=setoption
- case $2 in
- *=*)
- setoptionOpt=`echo $2 | sed 's@=.*@@'`
- setoptionVal=`echo $2 | sed 's@[^=]*=@@'`
- shift
- ;;
- *)
- test $# -ge 3 || { abort "--setoption needs two parameters: option value"; }
- setoptionOpt=$2; setoptionVal=$3; shift; shift
- ;;
- esac
- ;;
- --enable)
- cfgmaint=1
- cmd=enable
- case $2 in
- Map=*)
- enableMapType=Map; enableMapFile=`echo "$2" | sed 's/Map=//'`; shift;;
- MixedMap=*)
- enableMapType=MixedMap; enableMapFile=`echo "$2" | sed 's/MixedMap=//'`; shift;;
- Map|MixedMap)
- test $# -ge 3 || { abort "--enable needs two parameters: mapType mapFile"; }
- enableMapType=$2; enableMapFile=$3; shift; shift;;
- *)
- abort "--enable needs two parameters mapType mapFile";;
- esac
- ;;
- --syncwithtrees)
- cfgmaint=1
- cmd=syncwithtrees;;
- --disable)
- cfgmaint=1
- cmd=disable; disableMapFile=$2; shift
- ;;
- --disable=*)
- cfgmaint=1
- disableMapFile=`echo "$1" | sed 's/--disable=//'`
- cmd=disable
- ;;
- --edit|-e)
- cfgmaint=1
- cmd=edit;;
- --listmaps|-l)
- cmd=listmaps;;
- --listavailablemaps)
- cmd=listavailablemaps;;
- --showoptions)
- cmd=showoptions; showoptionsItem=$2; shift;;
- --showoptions=*)
- cmd=showoptions; showoptionsItem=`echo "$1" | sed 's/--showoptions=//'`;;
- --nohash)
- texhashEnabled=false;;
- --nomkmap)
- mkmapEnabled=false;;
- --help|-help|-h)
- help;;
- --version)
- echo "$progname version $version."; (exit 0); exit 0;;
- "") break;;
- *) abort "$progname: unknown option \`$1'. Try $progname --help for help";;
- esac
- do test $# -gt 0 && shift; done
-
- if test -n "$cfgparam"; then
- if test -z "$cnfFile" || test ! -f "$cnfFile"; then
- abort "config file \`$cnfFileShort' not found"
- fi
- fi
-
- if test -n "$dvipdoutputdirparam"; then
- if test -z "$dvipdoutputdir" || test ! -d "$dvipdoutputdir"; then
- abort "dvips output directory \`$1' not found"
- fi
- fi
- if test -n "$pdftexoutputdirparam"; then
- if test -z "$pdftexoutputdir" || test ! -d "$pdftexoutputdir"; then
- abort "pdftex output directory \`$1' not found"
- fi
- fi
- if test -n "$dvipdfmoutputdirparam"; then
- if test -z "$dvipdfmoutputdir" || test ! -d "$dvipdfmoutputdir"; then
- abort "dvipdfm output directory \`$1' not found"
- fi
- fi
-
-}
-
-###############################################################################
-# listMaps()
-# list all maps mentioned in the config file
-###############################################################################
-listMaps()
-{
- egrep '^(#! *)?(Mixed)?Map' "$cnfFile"
-}
-
-###############################################################################
-# listAvailableMaps()
-# list maps mentioned in the config file if they are available
-###############################################################################
-listAvailableMaps()
-{
- # loop over each possible line in the config file (-> $line)
- # extract the name of the map file (-> $m)
- # check if the map file exists and in that case echo the line
- OLDIFS=$IFS
- IFS='
-'
- for line in `egrep '^(#! *)?(Mixed)?Map' "$cnfFile"`; do
- m=`echo "$line" | sed 's@[ ]*$@@; s@.*[ ]@@'`
- kpsewhich --format=map "$m" >/dev/null && echo "$line"
- done
- IFS=$OLDIFS
-}
-
-###############################################################################
-# syncWithTrees()
-# update the config file: uncomment all lines which refer to map files that
-# are unavailabe in the texmf trees
-###############################################################################
-syncWithTrees()
-{
- for i in `egrep '^(Mixed)?Map' "$cnfFile" | sed 's@.* @@'`; do
- kpsewhich --format=map "$i" >/dev/null || echo "$i"
- done > $tmp1
- {
- sed 's@/@\\/@g; s@^@/^MixedMap[ ]*@; s@$@$/s/^/#! /@' <$tmp1
- sed 's@/@\\/@g; s@^@/^Map[ ]*@; s@$@$/s/^/#! /@' <$tmp1
- } > $tmp2
- sed -f $tmp2 "$cnfFile" > $tmp3 && cat $tmp3 > "$cnfFile"
-}
-
-###############################################################################
-# normalizeLines()
-# remove comments, whitespace is exactly one space, no empty lines,
-# no whitespace at end of line, one space before and after "
-###############################################################################
-normalizeLines()
-{
- sed \
- -e '/^[*#;%]/d' \
- -e 's@[ ][ ]*@ @g' \
- -e '/^ *$/d' \
- -e 's@ $@@' \
- -e 's@ *" *@ " @g' \
- -e 's@" \([^"]*\) "@"\1"@g' | sort | uniq
-}
-
-###############################################################################
-# dvips2dvipdfm()
-# reads from stdin, writes to stdout. It transforms "dvips"-like syntax into
-# "dvipdfm"-like syntax. It is a very ugly hack.
-###############################################################################
-dvips2dvipdfm()
-{
- sed -e 's@$@ %@' \
- -e 's@^\(\([^ ]*\).*\)@\1\2@' \
- -e 's@\(.*<\[* *\([^ ]*\)\.enc\(.*\)\)@\1 \2@' \
- -e '/%[^ ]*$/s@$@ default@' \
- -e 's@\(.*<<* *\([^ ]*\)\.pf[ab].*\)@\1 \2@' \
- -e '/%[^ ]* [^ ]*$/s@\( \([^ ]*\).*\)$@\1 \2@' \
- -e 's@\(.*[" ]\([.0-9-][.0-9-]*\) *ExtendFont.*\)@\1 -e \2@' \
- -e 's@\(.*[" ]\([.0-9-][.0-9-]*\) *SlantFont.*\)@\1 -s \2@' \
- -e 's@.*%@@' |
- awk '$1 == $3 && $2 == "default" {$2=""; $3=""} {print}' > $tmp8
-
- egrep '^(cm|eu|la|lc|line|msam|xy)' $tmp8 \
- | sed 's@$@ -r@; s@\(fmex[789]\) -r$@\1@'
- egrep -v '^(cm|eu|la|lc|line|msam|xy)' $tmp8
-}
-
-
-###############################################################################
-# mkMaps()
-# the main task of this script: create the output files
-###############################################################################
-mkMaps()
-{
- newline='
-'
- mode=`cfgval LW35`
- dvipsPreferOutline=`cfgval dvipsPreferOutline`
- dvipsDownloadBase35=`cfgval dvipsDownloadBase35`
- pdftexDownloadBase14=`cfgval pdftexDownloadBase14`
- dvipdfmDownloadBase14=`cfgval dvipdfmDownloadBase14`
-
- # defaults
- test -z "$mode" && mode=URWkb
- test -z "$dvipsPreferOutline" && dvipsPreferOutline=true
- test -z "$dvipsDownloadBase35" && dvipsDownloadBase35=false
- test -z "$pdftexDownloadBase14" && pdftexDownloadBase14=false
- test -z "$dvipdfmDownloadBase14" && dvipdfmDownloadBase14=false
-
- outputFiles="$dvipsoutputdir/download35.map
-$dvipsoutputdir/builtin35.map
-$dvipsoutputdir/psfonts_t1.map
-$dvipsoutputdir/psfonts_pk.map
-$pdftexoutputdir/pdftex_dl14.map
-$pdftexoutputdir/pdftex_ndl14.map
-$dvipdfmoutputdir/dvipdfm_dl14.map
-$dvipdfmoutputdir/dvipdfm_ndl14.map
-$dvipsoutputdir/ps2pk.map"
-
- outputLinks="$dvipsoutputdir/psfonts.map
-$pdftexoutputdir/pdftex.map
-$dvipdfmoutputdir/dvipdfm.map"
-
- allOutput="$outputFiles
-$outputLinks"
-
- notfound=false
- OLDIFS=$IFS; IFS=$newline
- for o in $allOutput; do
- test -f "$o" || notfound=true
- done
- IFS=$OLDIFS
- $notfound || texhashEnabled=false
-
- verboseCat <<-eof
-
- updmap is creating new map files using the following configuration:
-
- config file: \`$cnfFile'
- dvips output directory: \`$dvipsoutputdir'
- pdftex output directory: \`$pdftexoutputdir'
- dvipdfm output directory: \`$dvipdfmoutputdir'
-
- prefer outlines: \`$dvipsPreferOutline'
- texhash enabled: \`$texhashEnabled'
- download standard fonts (dvips): \`$dvipsDownloadBase35'
- download standard fonts (pdftex): \`$pdftexDownloadBase14'
- download standard fonts (dvipdfm): \`$dvipdfmDownloadBase14'
-eof
-
- verboseMsg
- verboseMsg "$progname: Scanning for LW35 support files"
- dvips35=`locateMap dvips35.map` || cleanup 1
- pdftex35=`locateMap pdftex35.map` || cleanup 1
- dvipdfm35=`locateMap dvipdfm35.map` || cleanup 1
- ps2pk35=`locateMap ps2pk35.map` || cleanup 1
-
- verboseMsg
- verboseMsg "$progname: Scanning for MixedMap entries:"
- catMaps '^MixedMap' > $tmp1 || cleanup 1
-
- verboseMsg
- verboseMsg "$progname: Scanning for Map entries:"
- catMaps '^Map' > $tmp2 || cleanup 1
- verboseMsg
-
- # files should be world-readable
- umask 022
-
- OLDIFS=$IFS; IFS=$newline
- for file in $allOutput; do
- rm -f "$file"
- cat > "$file" <<-eof
- % $file: maintained by the script updmap.
- % Don't change this file directly. Edit texmf/web2c/$cnfFileShort
- % and run updmap to recreate this file.
-eof
- if test -n "$log"; then
- cat >> "$file" <<-eof
- % A log of the updmap run that has created this file is available here:
- % $log
-eof
- fi
- done
- IFS=$OLDIFS
-
- verboseMsg "$progname: Generating output for ps2pk..."
- { transLW35 "$ps2pk35"; cat $tmp1 $tmp2; } \
- | normalizeLines >> "$dvipsoutputdir/ps2pk.map"
-
- verboseMsg "$progname: Generating output for dvips..."
- { transLW35 "$ps2pk35"; } \
- | normalizeLines >> "$dvipsoutputdir/download35.map"
- { transLW35 "$dvips35"; } \
- | normalizeLines >> "$dvipsoutputdir/builtin35.map"
-
- if test "x$dvipsDownloadBase35" = xtrue; then
- dftdvips=$ps2pk35
- else
- dftdvips=$dvips35
- fi
- { transLW35 "$dftdvips"; cat $tmp1 $tmp2; } \
- | normalizeLines >> "$dvipsoutputdir/psfonts_t1.map"
- { transLW35 "$dftdvips"; cat $tmp2; } \
- | normalizeLines >> "$dvipsoutputdir/psfonts_pk.map"
-
- verboseMsg "$progname: Generating output for pdftex..."
- # remove PaintType due to Sebastian's request
- { transLW35 "$pdftex35"; cat $tmp1 $tmp2; } \
- | grep -v PaintType | grep . > $tmp3
- { transLW35 "$dvipdfm35"; cat $tmp1 $tmp2; } \
- | grep -v PaintType | grep . > $tmp6
- { transLW35 "$ps2pk35"; cat $tmp1 $tmp2; } \
- | grep -v PaintType | grep . > $tmp7
-
- <$tmp3 normalizeLines >> "$pdftexoutputdir/pdftex_ndl14.map"
- <$tmp7 normalizeLines >> "$pdftexoutputdir/pdftex_dl14.map"
-
- verboseMsg "$progname: Generating output for dvipdfm..."
- <$tmp7 normalizeLines | dvips2dvipdfm | normalizeLines >> "$dvipdfmoutputdir/dvipdfm_dl14.map"
- <$tmp6 normalizeLines | dvips2dvipdfm | normalizeLines >> "$dvipdfmoutputdir/dvipdfm_ndl14.map"
- verboseMsg "$progname: All output generated!"
- verboseMsg
-
- setupSymlinks
- $texhashEnabled && { $verbose && texhash || texhash >/dev/null 2>&1; }
-
- verboseMsg
- verboseMsg "$progname: Files generated:"
- OLDIFS=$IFS; IFS=$newline
- ls -l $outputFiles | verboseCat
- IFS=$OLDIFS
- verboseMsg
-
- verboseMsg "$progname: Map file links:"
- { cd "$dvipsoutputdir"; ls -l psfonts.map;
- cd "$pdftexoutputdir"; ls -l pdftex.map;
- cd "$dvipdfmoutputdir"; ls -l dvipdfm.map; } \
- | awk '{print $(NF-2), $(NF-1), $NF}' | verboseCat
- verboseMsg
-
- if test -f $mapWarnCalled; then
- m="
-
-!!! NOTICE:
-
- With this release, the search paths for map files have been changed
- and we have found that some files exist in the new path as well as
- in the obsolete path.
-
- This is not an error per se, but please consider removing duplicates
- from the old location and search the above output"
-
- test -n "$log" && m="$m or the transcript file
- $log
- "
-
- m="$m for warnings.
-
- For more information about the changed search paths, see
- the release notes section in the teTeX manual. You probably
- can read this document by executing the command
- texdoc TETEXDOC
- else visit the web page
- http://tug.org/texlive/mapenc.html
-"
- warn "$m"
- fi
- return 0
-}
-
-###############################################################################
-# main()
-# execution starts here
-###############################################################################
-main()
-{
- # initialize global variables
- progname=updmap
- cmd=
- log=
-
- cfgparam=
- outputdirparam=
- cfgmaint=
- texhashEnabled=true
- mkmapEnabled=true
- verbose=true
- needsCleanup=false
-
- cnfFileShort=updmap.cfg
- cnfFile=
- dvipsoutputdir=; pdftexoutputdir=; dvipdfmoutputdir=
- : ${TEXMFMAIN=`kpsewhich -var-value=TEXMFMAIN`}
-
- tmpdir=${TMPDIR-${TEMP-${TMP-/tmp}}}/$progname.$$
- tmp1=$tmpdir/a
- tmp2=$tmpdir/b
- tmp3=$tmpdir/c
- tmp4=$tmpdir/d
- tmp5=$tmpdir/e
- tmp6=$tmpdir/f
- tmp7=$tmpdir/g
- tmp8=$tmpdir/h
- mapWarnCalled=$tmpdir/mapWarnCalled
- catMapsFailed=$tmpdir/catMapsFailed
-
- processOptions ${1+"$@"}
-
- case "$cmd" in
- showoptions) showOptions "$showoptionsItem"; (exit 0); exit;;
- help) help; (exit 0); exit;;
- esac
-
- setupCfgFile
- case "$cmd" in
- listmaps) listMaps; (exit 0); exit;;
- listavailablemaps) listAvailableMaps; (exit 0); exit;;
- esac
-
- # keep a copy of config file, so that we can see if the file was modified
- setupTmpDir
-
- if test -n "$cfgmaint"; then
- if test -z "$cfgparam"; then
- co=`$TEXMFMAIN/texconfig/tcfmgr --tmp $tmpdir --cmd co --file $cnfFileShort`
- test $? = 0 || cleanup 1
- set x $co; shift
- id=$1; cnfFile=$3; orig=$4
- verboseMsg "$progname: initial config file is \`$orig'"
- else
- verboseMsg "$progname: config file is \`$cnfFile'"
- cp "$cnfFile" $tmp5
- fi
-
- case "$cmd" in
- edit)
- ${VISUAL-${EDITOR-vi}} "$cnfFile";;
- setoption)
- setOption "$setoptionOpt" "$setoptionVal";;
- enable)
- enableMap "$enableMapType" "$enableMapFile";;
- disable)
- disableMap "$disableMapFile";;
- syncwithtrees)
- syncWithTrees;;
- esac
-
- unchanged=true
- if test -z "$cfgparam"; then
- ci=`$TEXMFMAIN/texconfig/tcfmgr --tmp $tmpdir --cmd ci --id $id`
- test $? = 0 || cleanup 1
- case "$ci" in
- "") : ;;
- *) unchanged=false
- cnfFile=$ci
- ;;
- esac
- else
- cmp "$cnfFile" $tmp5 >/dev/null 2>&1 || unchanged=false
- fi
- case $unchanged in
- true) if $mkmapEnabled; then
- verboseMsg "$progname: configuration (updmap.cfg) unchanged. Map files will not be recreated."
- mkmapEnabled=false
- else
- verboseMsg "$progname: configuration (updmap.cfg) unchanged."
- fi;;
- *)
- verboseMsg "$progname: configuration file updated: \`$cnfFile'";;
- esac
- fi
-
- $mkmapEnabled || return
- setupDestDir
- mkMaps
-}
-
-main ${1+"$@"}
-cleanup 0
diff --git a/Master/bin/alpha-linux/updmap-sys b/Master/bin/alpha-linux/updmap-sys
deleted file mode 100755
index 6f3c8365658..00000000000
--- a/Master/bin/alpha-linux/updmap-sys
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/bin/sh
-
-# updmap-sys: Thomas Esser, public domain.
-
-# wrapper script for updmap with TEXMFVAR and TEXMFCONFIG set to
-# TEXMFSYSVAR / TEXMFSYSCONFIG
-
-test -f /bin/ksh && test -z "$RUNNING_KSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \
- && { RUNNING_KSH=true; export RUNNING_KSH; exec /bin/ksh $0 ${1+"$@"}; }
-unset RUNNING_KSH
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-unset RUNNING_BSH
-
-export PATH
-
-# hack around a bug in zsh:
-test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"'
-
-v=`kpsewhich -var-value TEXMFSYSVAR`
-c=`kpsewhich -var-value TEXMFSYSCONFIG`
-
-TEXMFVAR="$v"
-TEXMFCONFIG="$c"
-export TEXMFVAR TEXMFCONFIG
-
-exec updmap ${1+"$@"}
diff --git a/Master/bin/alpha-linux/utf8mex b/Master/bin/alpha-linux/utf8mex
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/utf8mex
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file
diff --git a/Master/bin/alpha-linux/vftovp b/Master/bin/alpha-linux/vftovp
deleted file mode 100755
index ba7d17f5e81..00000000000
--- a/Master/bin/alpha-linux/vftovp
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/vptovf b/Master/bin/alpha-linux/vptovf
deleted file mode 100755
index eb275ee869f..00000000000
--- a/Master/bin/alpha-linux/vptovf
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/weave b/Master/bin/alpha-linux/weave
deleted file mode 100755
index 5fb1e168212..00000000000
--- a/Master/bin/alpha-linux/weave
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/xdvi b/Master/bin/alpha-linux/xdvi
deleted file mode 100755
index 679b3f05aa7..00000000000
--- a/Master/bin/alpha-linux/xdvi
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/bin/sh
-
-# This is the xdvi wrapper script for teTeX, version 0.2.
-# Copyright Thomas Esser, 1998. Permission to distribute under the terms
-# of the GNU general public license version 2 or later.
-
-# This script sets some environment variables to make sure that xdvi's
-# resource file in $XDVIINPUTS/xdvi is read by xdvi.bin.
-
-test -f /bin/sh5 && test -z "$RUNNING_SH5" \
- && test x"`(uname -s) 2>&1`" = xULTRIX \
- && { RUNNING_SH5=true; export RUNNING_SH5; exec /bin/sh5 $0 ${1+"$@"}; }
-RUNNING_SH5=
-
-test -f /bin/bsh && test -z "$RUNNING_BSH" \
- && test x"`(uname -s) 2>&1`" = xAIX \
- && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; }
-RUNNING_BSH=
-
-# -help and -version only work if they are the only options. Therefore,
-# we cannot give the "-name xdvi" parameter in that case.
-# SU: Actually, with current xdvik, they should work in any position; but
-# we may keep this for compatibility with older versions and non-k xdvi.
-case "$#:$1" in
- 1:-help|1:-version)
- NAMEOPT=;;
- *)
- NAMEOPT='-name xdvi';;
-esac
-
-xdviappfile=`kpsewhich -progname=xdvi --format='other text files' XDvi`
-if test -n "$xdviappfile"; then
- xdviappdir=`dirname "$xdviappfile"`
- xdviapppath="${xdviappdir}/%l_%t/%N:${xdviappdir}/%N"
-
- # For R3, we have to set XAPPLRESDIR.
- ### SU: removed, xdvik won't work with R3 anyway, and XAPPLRESDIR is
- ### for user customizations in current X
- ### XAPPLRESDIR="$xdviappdir"; export XAPPLRESDIR
-
- # For R4 or later, we have to set XFILESEARCHPATH, since XAPPLRESDIR might
- # be ignored (if XUSERFILESEARCHPATH is set)
- XFILESEARCHPATH="$xdviapppath:${XFILESEARCHPATH-%D}"; export XFILESEARCHPATH
-fi
-
-exec xdvi-xaw.bin $NAMEOPT ${1+"$@"}
diff --git a/Master/bin/alpha-linux/xdvi-xaw.bin b/Master/bin/alpha-linux/xdvi-xaw.bin
deleted file mode 100755
index 7682c9b4efb..00000000000
--- a/Master/bin/alpha-linux/xdvi-xaw.bin
+++ /dev/null
Binary files differ
diff --git a/Master/bin/alpha-linux/xdvizilla b/Master/bin/alpha-linux/xdvizilla
deleted file mode 100755
index 54f4b03ddfe..00000000000
--- a/Master/bin/alpha-linux/xdvizilla
+++ /dev/null
@@ -1,134 +0,0 @@
-#! /bin/sh
-#
-# This is a kludge to fix helper apps in mozilla. See mozilla bugs #57420
-# and also #78919.
-#
-# It's also useful for tar files with Netscape 4.x
-#
-# Copyright (c) 2002-2004 Paul Vojta
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to
-# deal in the Software without restriction, including without limitation the
-# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
-# sell copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-#
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-# IN NO EVENT SHALL PAUL VOJTA OR ANY OTHER AUTHOR OF OR CONTRIBUTOR TO
-# THIS SOFTWARE BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
-# WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
-# IN THE SOFTWARE.
-
-# Some changes suggested by Thomas Esser included by
-# <stefanulrich@users.sourceforge.net>.
-
-IN_FILE=
-NO_RM=
-TMP_DIR=
-progname=xdvizilla
-
-do_cleanup()
-{
- exitval=$?
- if [ -z "$NO_RM" -a -n "$IN_FILE" ] ; then
- rm -f "$IN_FILE"
- fi
- test -n "$TMP_DIR" && rm -rf "$TMP_DIR"
- exit $exitval
-}
-
-do_abort()
-{
- xmessage -nearmouse "$progname: $1"
- do_cleanup
- exit 1
-}
-
-usage()
-{
- xmessage -nearmouse "Usage: $progname [-no-rm] <file>"
- do_cleanup
- exit 1
-}
-
-trap 'do_cleanup' 1 2 3 7 13 15
-
-### create a temporary directory only read/writable by user
-TMP_DIR=${TMPDIR-${TEMP-${TMP-/tmp}}}/$progname.$$
-(umask 077; mkdir "$TMP_DIR") || do_abort "Could not create directory \`$TMP_DIR'"
-
-if [ $# -gt 1 -a "x$1" = "x-no-rm" ]; then
- NO_RM=y
- shift
-fi
-
-if [ $# -ne 1 ]; then
- usage
-fi
-
-DIR=`dirname "$0"`
-
-if [ "$DIR" = . ]; then
- DIR=
-elif [ -f "$DIR"/xdvi -a -x "$DIR"/xdvi ]; then
- DIR="$DIR"/
-else
- DIR=
-fi
-
-# need to preserve IN_FILE for eventual deletion
-IN_FILE="$1"
-TMP_FILE="$IN_FILE"
-
-while [ 1 ]; do
- [ -f "$TMP_FILE" ] || do_abort "$TMP_FILE: File not found."
- FILETYPE=`file "$TMP_FILE"`
- case "$FILETYPE" in
- *"gzip compressed data"*)
- out="$TMP_DIR"/tmp-gz
- gunzip -c "$TMP_FILE" > "$out"
- TMP_FILE="$out"
- ;;
- *"compressed data"* | *"compress'd data"*)
- out="$TMP_DIR"/tmp-compress
- uncompress -c "$TMP_FILE" > "$out"
- TMP_FILE="$out"
- ;;
- "$TMP_FILE: empty")
- do_abort "$TMP_FILE is an empty file
-(probably a bug in Mozilla?)"
- ;;
- *" tar archive")
- ### do sanity checks on the tar archive, to avoid overwriting user files:
- dangerous=`tar tf "$TMP_FILE" | egrep '^(/|.*\.\./)'`
- [ -z "$dangerous" ] || do_abort "Tar file contains files with absolute paths or \`../' components,
-which may overwrite user files. Not unpacking it."
- ### also check for gzipped DVI files inside the archive ...
- out="$TMP_DIR"/`tar tf "$TMP_FILE" | egrep '\.(dvi|dvi.gz|dvi.Z)$' | head -1`
- if [ -z "$out" ]; then
- do_abort "Tar file does not contain a dvi file."
- else
- cat "$TMP_FILE" | (cd "$TMP_DIR"; tar xf -)
- TMP_FILE="$out"
- fi
- ;;
- *"DVI file"*)
- "$DIR"xdvi -safer "$TMP_FILE"
- break
- ;;
- *)
- do_abort "$TMP_FILE: Unrecognized file format!"
- ;;
- esac
-done
-
-do_cleanup
-
-exit 0
diff --git a/Master/bin/alpha-linux/xmltex b/Master/bin/alpha-linux/xmltex
deleted file mode 120000
index eb4e1e5aff7..00000000000
--- a/Master/bin/alpha-linux/xmltex
+++ /dev/null
@@ -1 +0,0 @@
-pdfetex \ No newline at end of file