summaryrefslogtreecommitdiff
path: root/obsolete/macros/ec-plain/hyconfig.ptx
diff options
context:
space:
mode:
Diffstat (limited to 'obsolete/macros/ec-plain/hyconfig.ptx')
-rw-r--r--obsolete/macros/ec-plain/hyconfig.ptx98
1 files changed, 98 insertions, 0 deletions
diff --git a/obsolete/macros/ec-plain/hyconfig.ptx b/obsolete/macros/ec-plain/hyconfig.ptx
new file mode 100644
index 0000000000..fab2b200e9
--- /dev/null
+++ b/obsolete/macros/ec-plain/hyconfig.ptx
@@ -0,0 +1,98 @@
+% hyconfig.tex
+% Hyphenation configuration code
+% Updates:
+% 02/28/92 language number setting was wrong.
+% 03/20/92 allow hyphenation exceptions file (in language.dat) loading.
+% 06/23/92 call the appropriate hymltex* file when using MlTeX
+% 07/03/92 add \accenthypencodes
+% 08/24/92 introduce \l@<language> being the language number
+% 08/26/92 suppress absolute font character references normally unneeded
+% 03/03/93 add dialect feature via ``='' sign.
+% 04/02/93 add \input compatible.tex when \csubinverse undefined.
+% 08/19/93 apply \c mods from MJF -- July 14, 92
+% 08/20/93 insert space after \input X for NFSS2 (H. Soulard)
+% 01/13/94 add \j def for non french languages (noted by R. Lemieux).
+% 03/22/94 \LANGUAGESinFORMAT now contains all languages names (proposed
+% by Michel Lavaud).
+% \input hyphen replaced by \input ushyphen (sugg. of M.Lavaud).
+% 05/05/94 \patterns@loaded replace \LANGUAGESinFORMAT as in Babel.
+% 08/10/94 \input replaced by \@@input if already defined.
+% 10/18/94 Load compatible.tex only outside MlTeX.
+% 12/13/94 Allow nothing else than =name in language.dat
+% 12/17/94 Let language counter progress when equal sign after first language.
+% 12/22/94 Don't load compatible.tex whith 2e any way.
+% 03/02/95 " " " " any other format not OT1, this
+% was clearly pointed by Thierry Bouche.
+% 03/22/95 \encodingdefault may be undefined (as pointed by Loic Prylli).
+% 96/09/10 Allow exception file to be blank in language.dat.
+% 96/10/29 Messages numbered.
+% 96/12/31 TeX 2 no more supported. taking in acount new frhyph.tex, no more
+% usage of compatible.tex.
+%
+\message{languages: patterns and exceptions,}
+%%
+%% checksum = "05842 98 440 4335"
+%%
+\ifx\@@input\undefined\let\@@input\input\fi%
+\def\@temp{}%
+%\let\charsubdef\undefined% for testing purposes only
+\ifx\charsubdef\undefined\else\def\@temp{\@@input hymltex3.tex \endinput}\fi
+\@temp
+%%%%%%%%%%%%%% pure TeX usage
+\language=0
+% ======== Load Patterns as described in language.dat ======
+
+% (language.dat was introduced by Johannes Braams)
+
+{\newcount\l@nguage\newcount\initl@\newcount\workl@%
+ % Compatibility with TeX 2: \language count
+ \ifx\language\let\language\l@nguage\fi
+
+\initl@=\language\l@nguage=\initl@\workl@=\l@nguage
+\xdef\patterns@loaded{}% will contain all languages names
+\def\@newlanguage[#1]#2{\language=#1%
+ \workl@=#1\advance\workl@ by -\initl@
+ \message{-38- The #2 language is used as language number \the\workl@}%
+ \expandafter\xdef\csname l@#2\endcsname{\the\workl@}% 08/24/92
+ \xdef\patterns@loaded{\patterns@loaded\space #2}
+ \expandafter\xdef\csname#2\endcsname{\language=\the\workl@\relax}%2/28/92
+\ifx\undefined\defaultlanguage\gdef\defaultlanguage{\csname#2\endcsname}\fi}%
+% test if #1 equal ``='' that means same language hyphenation but a dialect.
+\edef\test{=}%
+\def\@language#1#2 #3 #4/#5{\def\@tempa{=}\def\@tempb{#1}%
+ \ifx\@tempa\@tempb%
+ \ifnum\l@nguage > \initl@ \advance\l@nguage by -1\fi%
+ \@newlanguage[\the\l@nguage]{#2}%
+ \ifnum\l@nguage \test \initl@ \advance\l@nguage by -1\fi%
+ \else\edef\test{<}\@l@ngu@ge#1#2 #3 #4/{#5}%
+ \fi}%
+\def\@l@ngu@ge#1 #2 #3/#4{\begingroup\@newlanguage[#4]{#1}%20/3/92 mods
+ \def\@tempa{#2}
+ \ifx\@tempa\empty\else\expandafter\@@input#2 \relax\fi%% loading of patterns
+ \edef\@tempa{#3}\edef\@tempb{\space\space}
+ \ifx\@tempa\space\else
+ \ifx\@tempb\@tempa\else\expandafter%
+ \@@input#3 \relax\fi%% loading of exceptions
+ \fi%
+ \ifx\@tempb\@tempa\else\expandafter\@@input#3 \relax\fi%% loading of exceptions
+ \endgroup}
+\newif\if@more\@moretrue
+\openin1 = language.dat
+\ifeof1\message{-39- Error: file language.dat not found, trying to load %
+ US-english hyphenation file}\language=0\input ushyphen
+\else\advance\l@nguage by -1
+\loop \endlinechar=-1 \read1 to \@lineD \endlinechar`\^^M
+ \ifx\@lineD\empty \else \advance\l@nguage by 1%
+ \edef\@lineD{\@lineD\space\space/{\the\l@nguage}}%
+ \expandafter\@language\@lineD
+ \fi
+ \ifeof1 \@morefalse \fi
+ \if@more\repeat
+\fi\closein1
+
+}\defaultlanguage% go to the default language (first defined in language.dat)
+\endinput
+
+
+
+