summaryrefslogtreecommitdiff
path: root/language/hyphen-accent/dm-plain/hyphen.tex
blob: dea2cddba906e13455f8a92b07b54d9612a7180d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
\input hyacceur.tex
% hyconfig.tex  
%                  Hyphenation configuration code 
% Updates:
% 2/28/92 language number setting was wrong.
% 3/20/92 allow hyphenation exceptions file (in language.dat) loading.
% 6/23/92 call the appropriate hymltex* file when using MlTeX
% 7/03/92 add \accenthypencodes
% 8/24/92 introduce \l@<language> being the language number
% 8/26/92 suppress absolute font character references normally unneeded
%         
\message{languages: patterns and exceptions,}
\def\@temp{}\let\spechyphcodes\relax\let\accenthyphcodes\relax% pure TeX
\ifx\starthyph\undefined\else \def\@temp{\input hymltex2.tex\endinput}\fi
%\let\charsubdef\undefined% for testing purposes only
\ifx\charsubdef\undefined\else\def\@temp{\input hymltex3.tex\endinput}\fi
\@temp
%%%%%%%%%%%%%% pure TeX usage

\gdef\spechyphcodes{}
\gdef\accenthyphcodes{}

\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
\def\@newlanguage[#1]#2{\language=#1%
        \workl@=#1\advance\workl@ by -\initl@
        \message{The #2 language is used as language number \the\workl@}%
      \expandafter\xdef\csname l@#2\endcsname{\the\workl@}% 08/24/92
      \expandafter\xdef\csname#2\endcsname{\language=\the\workl@\relax}%2/28/92
\ifx\undefined\defaultlanguage\gdef\defaultlanguage{\csname#2\endcsname}\fi}%
\def\@language#1 #2 #3/#4{\begingroup\@newlanguage[#4]{#1}%20/3/92 mods 
           \def\@tempa{#3}\expandafter\input#2\relax%%    loading of patterns
    \ifx\space\@tempa\else\expandafter\input#3\relax\fi%% loading of exceptions
                          \endgroup}
\newif\if@more\@moretrue
\openin1 = language.dat
\ifeof1\message{Error: file language.dat not found, trying to load %
                 english hyphenation file}\language=0\input hyphen
\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/{\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) 

\input acmacros.sty

\endinput