Fix breakage of pdfcsltex.

Problem reported by:	Petr Holub (hopet at ics dot muni dot cz)
Obtained from:		Thomas Esser (teTeX maintainer)
Approved by:		portmgr(kiron)

3 files changed, 337 insertions, 0 deletions

diff --git a/print/teTeX-texmf/files/cslatex.ini b/print/teTeX-texmf/files/cslatex.ini
new file mode 100644
index 000000000000..ad75d6118965
--- /dev/null
+++ b/print/teTeX-texmf/files/cslatex.ini
@@ -0,0 +1,53 @@
+%% The cslatex ini file
+%% use:  
+%% tex -ini cslatex.ini
+%% or (for example):
+%% tex -ini \let\enc=w \input cslatex.ini
+%%   see the csplain.doc in csplain.tar/zip for more details
+
+\ifx\enc\undefined \else %% Reencoding by encTeX is needed
+   \begingroup
+   \catcode`\{=1  \catcode`\}=2 \catcode`\#=6
+   \input enc-\enc.tex
+   \global\let\orieveryjob=\everyjob
+   \gdef\everyjob#1{\let\everyjob=\orieveryjob 
+      \let\orieveryjob=\undefined
+      \everyjob=\expandafter{\the\everyjob #1}}
+   \endgroup
+\fi
+\ifx\xprncode\undefined \else %% The encTeX is detected
+   \begingroup
+   \catcode`\{=1  \catcode`\}=2
+   \count255=128          
+   \def\next{\xprncode\count255=1 \advance\count255 by 1
+     \ifnum \count255>255 \let\next=\relax \fi \next}
+   \next
+   \endgroup
+   \let\enc=\undefined \let\setinputchr=\undefined
+   \let\xordcode=\undefined \let\xchrcode=\undefined \let\xprncode=\undefined
+\fi
+
+\ifx\pdfoutput\undefined \else % added in Feb. 2005
+   \catcode`\{=1  \catcode`\}=2
+   \def\tmpa{\pdfcslatex}
+   \expandafter\def\expandafter\tmpb\expandafter{\csname\jobname\endcsname}
+   \ifx\tmpa\tmpb %% PDFTeX with PDF output
+      \message {jobname=pdfcslatex, PDF output initialised.}
+      \openin0=pdftexconfig.tex
+      \ifeof0 \message{WARNING: pdftexconfig.tex does not exist. 
+                       I set \string\pdfoutput=1 only.}%
+      \else \closein0 \input pdftexconfig.tex
+      \fi
+      \pdfoutput=1
+   \else
+      \message {jobname=cslatex with pdftex, DVI output initialised.}
+      \pdfoutput=0
+      \let\oripdfoutput=\pdfoutput \let\pdfoutput=\undefined
+   \fi
+   \let\tmpa=\undefined \let\tmpb=\undefined
+   \catcode`\{=12 
+\fi
+
+
+\input latex.ltx
+
diff --git a/print/teTeX-texmf/files/csplain.ini b/print/teTeX-texmf/files/csplain.ini
new file mode 100644
index 000000000000..4ca16d74c815
--- /dev/null
+++ b/print/teTeX-texmf/files/csplain.ini
@@ -0,0 +1,112 @@
+\input csfonts  % re-defines primitive \font
+\input plain    % format Plain
+\restorefont    % original meaning of primitive \font
+\input il2code  % extra codes for czech / slovak letters in ISO-8859-2 encoding
+\input hyphen.lan  % czech / slovak hyphenation pattern (may be others too)
+\input plaina4  % \hsize and \vsize for A4
+\everyjob=\expandafter{\the\everyjob
+   \message{The format: csplain <Feb. 2005>.}
+   \message{The cs-fonts are preloaded and A4 size implicitly defined.}}
+\ifx\enc\undefined \else \input enc-\enc.tex \fi % re-encoding using encTeX
+\ifx\xprncode\undefined \else %% The encTeX is detected
+   \count255=128               % All codes > 128 are printable: 
+   \loop \xprncode\count255=1 \advance\count255 by 1
+   \ifnum \count255<256 \repeat
+% The document macros can't test the re-encoding state:
+\let\enc=\undefined \let\setinputchr=\undefined
+\let\xordcode=\undefined \let\xchrcode=\undefined \let\xprncode=\undefined
+\fi
+
+\ifx\pdfoutput\undefined \else % added in Feb. 2005
+   \def\tmpa{\pdfcsplain}
+   \expandafter\def\expandafter\tmpb\expandafter{\csname\jobname\endcsname}
+   \ifx\tmpa\tmpb %% PDFTeX with PDF output
+      \message {jobname=pdfcsplain, PDF output initialised.}
+      \openin0=pdftexconfig.tex
+      \ifeof0 \message{WARNING: pdftexconfig.tex does not exist. 
+                       I set \string\pdfoutput=1 only.}%
+      \else \closein0 \input pdftexconfig.tex
+      \fi
+      \pdfoutput=1
+   \else
+      \message {jobname=csplain with pdftex, DVI output initialised.}
+      \pdfoutput=0
+      \let\oripdfoutput=\pdfoutput \let\pdfoutput=\undefined
+   \fi
+   \let\tmpa=\undefined \let\tmpb=\undefined
+\fi
+
+
+\dump
+
+Information about changes (since <Apr. 1995>)
+=============================================
+
+** 1 ** <Aug. 1996>
+file extcode.tex renamed to il2code.tex (suggested by Jan Kasprzak)
+
+** 2 ** <Sep. 1996>
+* New metrics of cs-fonts loaded (T\v reba has no kern between T\v r).
+* File il2code.tex:
+  - \icrqq, \protect: removed
+  - \def\crqq{\protect\irrqq} -> \chardef\crqq=255 \sfcode255=0
+  - The definition \def\foo{\char<number> } -> \chardef\foo=<number> 
+    for following \foos: \clqq, \flqq, \frqq.
+  - New definition of \ogonek (the \ogonek A is improoved).
+  - \defaulthyphenchar=\extrahyphenchar added to \extrahyphens macro.
+  - The \uv definition added.
+
+** 3 ** <Oct. 1998>
+* The input re-encoding possibility using encTeX primitives added.
+* Files enc-k.tex, enc-w.tex and enc-p.tex added.
+* You can use (for example):   tex -enc -ini \let\enc=k \input csplain.ini
+  to activate the encTeX reencoding
+
+** 4 ** <Feb. 2000>
+* The Czech/Slovak patterns are loaded in T1 encoding too: hyphen.lan  
+  was modified, \toneczech, \toneslovak, \iltwoczech, \iltwoslovak
+  \chardef's was introduced. The default encoding was keep ISO-8859-2.
+* You can use (for example):  tex -ini \let\Cork=\relax \input csplain.ini
+  to suppress the loading hyphen patterns in T1 encoding.
+* You can use (for example):  %&csplain -translate-file=il2-t1
+                              \input t1code \chyph
+                              \font\f=ptmr8t \f
+                              Here is czech text processed in T1 encoded
+                              font ptmr8t and hyphenated by right
+                              pattern table. \end
+
+** 5 ** <Feb. 2005>
+* The possibility of csplain initialisation by pdfTeX added
+  (see \ifx\pdfoutput\undefined \else ... \fi).
+* The file pdftexconfig.tex during pdfcsplain initialisation is read
+  (see \ifx\pdfoutput\undefined \else ... \fi).
+* The file t1code.tex corrected (bug in \uccodes removed).
+  
+
+COPYRIGHT
+=========
+
+This macro package (csplain.ini, il2code.tex, csfonts.tex, hyphen.lan,
+plaina4.tex) 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 with the following appendix:
+
+You can do any changes in this software for your own usage. However,
+you cannot distribute the changed software under the same name
+"csplain".  Only the current administrator of CSTeX can do official
+changes to csplain.
+
+This macro package 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
+
+
+
+
diff --git a/print/teTeX-texmf/files/t1code.tex b/print/teTeX-texmf/files/t1code.tex
new file mode 100644
index 000000000000..eb3d02ecb046
--- /dev/null
+++ b/print/teTeX-texmf/files/t1code.tex
@@ -0,0 +1,172 @@
+% File t1code.tex: 
+%  (0) sets \czech, \slovak to Cork encoded hyphen-pattern numbers,
+%  (1) sets \catcode, \l/uccode for characters (code by Cork),
+%  (2) defines \csaccents for new behavior of \v, \', etc (code by Cork),
+%  (3) defines some \sequences for special cs-fonts characters.
+%
+% Created by Petr Olsak <olsak@math.feld.cvut.cz>,       February 2000    
+% Inspired by Jan Kasprzak
+% February 2005: bug in \uccodes removed, thanks to Marek Pomp
+
+\message{Font encoding set to Cork.}
+
+%% (0) \czech, \slovak. You can use \chyph, \shyph after this file is loaded.
+\ifx\toneczech\undefined 
+  {\newlinechar=`^^J
+   \errhelp={The hyphen patterns are not loaded in Cork encoding in csplain.^^J
+            Hyphen patterns are supported only in ISO-8859-2.^^J
+            It means, you are using csplain pre Feb.2000 or^^J
+            you initialised csplain by \let\Cork=\relax.^^J
+            You can go on (press Return), but the czech/slovak^^J
+            hyphenations will be work incorectly.}
+  \errmessage
+  {The Cork encoding is not supported in this format} % Press h for more help.
+  } 
+\else
+  \czech=\toneczech  \slovak=\toneslovak
+\fi
+
+%% (1) \catcode, \lccode, \uccode.
+\catcode225=11 \lccode225=225 \uccode225=193  % a-acute       
+\catcode193=11 \lccode193=225 \uccode193=193  % A-acute       
+\catcode228=11 \lccode228=228 \uccode228=196  % a-diaeresis   
+\catcode196=11 \lccode196=228 \uccode196=196  % A-diaeresis   
+\catcode163=11 \lccode163=163 \uccode163=131  % c-caron       
+\catcode131=11 \lccode131=163 \uccode131=131  % C-caron       
+\catcode164=11 \lccode164=164 \uccode164=132 % d-caron       
+\catcode132=11 \lccode132=164 \uccode132=132  % D-caron       
+\catcode233=11 \lccode233=233 \uccode233=201  % e-acute       
+\catcode201=11 \lccode201=233 \uccode201=201  % E-acute       
+\catcode165=11 \lccode165=165 \uccode165=133  % e-caron       
+\catcode133=11 \lccode133=165 \uccode133=133  % E-caron       
+\catcode237=11 \lccode237=237 \uccode237=205  % i-acute       
+\catcode205=11 \lccode205=237 \uccode205=205  % I-acute       
+\catcode168=11 \lccode168=168 \uccode168=136  % l-acute       
+\catcode136=11 \lccode136=168 \uccode136=136  % L-acute       
+\catcode169=11 \lccode169=169 \uccode169=137  % l-caron       
+\catcode137=11 \lccode137=169 \uccode137=137  % L-caron       
+\catcode172=11 \lccode172=172 \uccode172=140  % n-caron       
+\catcode140=11 \lccode140=172 \uccode140=140  % N-caron       
+\catcode243=11 \lccode243=243 \uccode243=211  % o-acute       
+\catcode211=11 \lccode211=243 \uccode211=211  % O-acute       
+\catcode244=11 \lccode244=244 \uccode244=212  % o-circumflex  
+\catcode212=11 \lccode212=244 \uccode212=212  % O-circumflex  
+\catcode246=11 \lccode246=246 \uccode246=214  % o-diaeresis   
+\catcode214=11 \lccode214=246 \uccode214=214  % O-diaeresis   
+\catcode175=11 \lccode175=175 \uccode175=143  % r-acute       
+\catcode143=11 \lccode143=175 \uccode143=143  % R-acute       
+\catcode176=11 \lccode176=176 \uccode176=144  % r-caron       
+\catcode144=11 \lccode144=176 \uccode144=144  % R-caron       
+\catcode178=11 \lccode178=178 \uccode178=146  % s-caron       
+\catcode146=11 \lccode146=178 \uccode146=146  % S-caron       
+\catcode180=11 \lccode180=180 \uccode180=148  % t-caron       
+\catcode148=11 \lccode148=180 \uccode148=148  % T-caron       
+\catcode250=11 \lccode250=250 \uccode250=218  % u-acute       
+\catcode218=11 \lccode218=250 \uccode218=218  % U-acute       
+\catcode183=11 \lccode183=183 \uccode183=151  % u-ring        
+\catcode151=11 \lccode151=183 \uccode151=151  % U-ring        
+\catcode252=11 \lccode252=252 \uccode252=220  % u-diaeresis   
+\catcode220=11 \lccode220=252 \uccode220=220  % U-diaeresis   
+\catcode253=11 \lccode253=253 \uccode253=221  % y-acute       
+\catcode221=11 \lccode221=253 \uccode221=221  % Y-acute       
+\catcode186=11 \lccode186=186 \uccode186=154  % z-caron       
+\catcode154=11 \lccode154=186 \uccode154=154  % Z-caron       
+					                       
+%% (2) \csaccents, \cmaccents
+\def\accentscommands{\string\^, \string\`, \string\', \string\v,
+   \string\" and \string\r}
+\def\csaccentsmessage{%
+   \message{The \accentscommands\space expands to characters by Cork.}}
+\def\cmaccentsmessage{%
+   \message{The \accentscommands\space have original plainTeX meaning.}}
+\def\csaccents{\csaccentsmessage
+  \def\^##1{\ifx o##1^^f4\else
+            \ifx O##1^^d4\else
+                    {\accent94 ##1}\fi\fi}\let\^^D=\^%
+  \def\`##1{\ifx a##1^^b8\else
+            \ifx A##1^^98\else
+                    {\accent18 ##1}\fi\fi}%
+  \def\'##1{\ifx a##1^^e1\else
+            \ifx e##1^^e9\else
+            \ifx\i##1^^ed\else
+            \ifx i##1^^ed\else
+            \ifx o##1^^f3\else
+            \ifx u##1^^fa\else
+            \ifx y##1^^fd\else
+            \ifx r##1^^af\else
+            \ifx l##1^^a8\else
+            \ifx A##1^^c1\else
+            \ifx E##1^^c9\else
+            \ifx I##1^^cd\else
+            \ifx O##1^^d3\else
+            \ifx U##1^^da\else
+            \ifx Y##1^^dd\else
+            \ifx R##1^^8f\else
+            \ifx L##1^^88\else
+                    {\accent19 ##1}%
+            \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}%
+  \def\v##1{\ifx e##1^^a5\else
+            \ifx s##1^^b2\else
+            \ifx c##1^^a3\else
+            \ifx r##1^^b0\else
+            \ifx z##1^^ba\else
+            \ifx d##1^^a4\else
+            \ifx t##1^^b4\else
+            \ifx l##1^^a9\else
+            \ifx n##1^^ac\else
+            \ifx E##1^^85\else
+            \ifx S##1^^92\else
+            \ifx C##1^^83\else
+            \ifx R##1^^90\else
+            \ifx Z##1^^9a\else
+            \ifx D##1^^84\else
+            \ifx T##1^^94\else
+            \ifx L##1^^89\else
+            \ifx N##1^^8c\else
+                    {\accent20 ##1}%
+            \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}\let\^^_=\v%
+  \def\"##1{\ifx a##1^^e4\else
+            \ifx o##1^^f6\else
+            \ifx u##1^^fc\else
+            \ifx A##1^^c4\else
+            \ifx O##1^^d6\else
+            \ifx U##1^^dc\else
+                    {\accent"7F ##1}\fi\fi\fi\fi\fi\fi}%
+  \def\r##1{\ifx u##1^^b7\else
+            \ifx U##1^^97\else
+                    {\accent23 ##1}\fi\fi}%
+  %% for backward compatibility:
+  \def\softd{\v{d}}\def\softt{\v{t}}\def\ou{\r{u}}%
+  \def\softl{\v{l}}\def\softL{\v{L}}}
+\def\cmaccents{\cmaccentsmessage
+  \def\^##1{{\accent94 ##1}}\let\^^D=\^%
+  \def\`##1{{\accent18 ##1}}%
+  \def\'##1{{\accent19 ##1}}%
+  \def\v##1{{\accent20 ##1}}\let\^^_=\v%
+  \def\"##1{{\accent"7F ##1}}%
+  \let\r=\undefined\def\ou{{\accent6u}}}
+
+%% (3) special \sequences for T1 encoded fonts.
+       %% Czech left a right double qoutes
+\chardef\clqq=18   \sfcode18=0
+\chardef\crqq=16   \sfcode16=0
+       %% French double quotes
+\chardef\flqq=14   \sfcode14=0
+\chardef\frqq=13   \sfcode13=0
+       %% Other characters
+\def\ogonek #1{\setbox0\hbox{#1}\ifdim\ht0=1ex\accent12 #1%
+   \else{\ooalign{\unhbox0\crcr\hss\char12}}\fi}
+\def\promile{\char37 \char24 }
+       %% Alternative \hyphenchar ("je-li" is no "je\hyphenchar li").
+\let\extrahyphenchar=\undefined
+\let\extrahyphens=\undefined
+       %% The czech quotes:
+\def\uv{\bgroup\aftergroup\closequotes\leavevmode
+        \afterassignment\clqq\let\next=}
+\def\closequotes{\unskip\crqq\relax}
+
+\chardef\i=25
+
+\endinput
+
+