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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
%%% This is part of the hyplain package by Enrico Gregorio, version 1.0
%%% You are allowed to do anything you want with this as long
%%% as you cite the source and change name to the file
%%%
%%% (Based on HyMaster.tex by Daniel Flipo and Laurent Siebenmann)
%%%
%%% The interface is primitive, of course. But plain TeX users
%%% are at their ease with primitive interfaces ;-)
%%%
%%% Note: every language is defined as a pair (<language>,<nation>)
%%% with ISO two-letter abbreviations to accommodate for national
%%% variations (for example, (de,DE) and (de,AT) or (de,CH) for German
%%% in Germany, Austria or Switzerland)
%%% For New Ortography German, use the three-letter abbreviation `nde'
%%% A fallback language (zz,ZZ) is provided, with no hyphenation
%%% patterns
\chardef\myh@us@catcode=\the\catcode`\_
\catcode`\_=11
\def\myh@us{_}
%%% \addalias{<control sequence>}{<language>}{<nation>}
%%% define a new alias for a language; for example
%%% \addalias{\italiano}{it}{IT}
\def\addalias#1#2#3{\expandafter\let\expandafter#1\csname #2\myh@us#3\endcsname}
\def\myh@glet{\global\let}
\def\selectlanguage#1#2{%
\expandafter\ifx\csname #1_#2\endcsname\relax
\expandafter\myh@glet\csname #1_#2\endcsname\zz_ZZ
\myh@nel{#1}{#2}%
\fi
\csname #1_#2\endcsname
\ignorespaces}
\def\myh@nel#1#2{\message{^^Jhyplain warning: Language #1 for #2 undefined,
using fallback instead^^J}}
%%% A primitive interface for adding to extras and noextras
\newtoks\myh@toks
\def\addto#1#2#3#4{%
\expandafter\let\expandafter\myh@temp\csname extras@#1\myh@us#2\endcsname
\myh@toks=\expandafter{\myh@temp}%
\myh@toks=\expandafter{\the\myh@toks #3}
\expandafter\edef\csname extras@#1\myh@us#2\endcsname{\the\myh@toks}%
\expandafter\let\expandafter\myh@temp\csname noextras@#1\myh@us#2\endcsname
\myh@toks=\expandafter{\myh@temp}%
\myh@toks=\expandafter{\the\myh@toks #4}
\expandafter\edef\csname noextras@#1\myh@us#2\endcsname{\the\myh@toks}%
}
\def\myh@undo{\csname noextras@\myh@lan\endcsname}
%%% \definelanguage has 3 parameters:
%%% #1: <language> (lowercase ISO abbreviation)
%%% #2: <nation> (uppercase ISO abbreviation)
%%% #3: pattern and hyphenation exception file
\newlinechar`^^J
\def\definebaselanguage#1#2#3{%
\message{***^^JDefining language #1 for #2 using^^J}%
\expandafter\chardef\csname l@#1_#2\endcsname=0
\expandafter\language\csname l@#1_#2\endcsname
\input #3%
\message{This is \string\language
\expandafter\the\csname l@#1_#2\endcsname^^J***^^J}%
\myh@initialize{#1}{#2}}
\def\definelanguage#1#2#3{%
\message{***^^JDefining language #1 for #2 using^^J}%
\csname newlanguage\expandafter\endcsname\csname l@#1_#2\endcsname
\expandafter\language\csname l@#1_#2\endcsname
\input #3%
\message{This is \string\language
\expandafter\the\csname l@#1_#2\endcsname^^J***^^J}%
\myh@initialize{#1}{#2}}
%%% \definedialect has 4 parameters:
%%% (#1,#2) is the pair to be defined, (#3,#4) is the pair over
%%% which the dialect is defined (\definedialect{de}{AT}{de}{DE})
\def\definedialect#1#2#3#4{%
\expandafter\let\csname l@#1_#2\expandafter\endcsname
\csname l@#3_#4\endcsname
\myh@initialize{#1}{#2}}
\def\myh@initialize#1#2{%
\expandafter\def\csname #1_#2\endcsname{%
\expandafter\language\csname l@#1_#2\endcsname
\myh@undo
\def\myh@lan{#1_#2}%
\csname extras@#1_#2\endcsname}%
\expandafter\def\csname extras@#1_#2\endcsname{}%
\expandafter\def\csname noextras@#1_#2\endcsname{}}
%%% \refinelanguage defines the extras for a language
%%% It has 4 parameters: <language>,<nation>,<extras>,<noextras>
\def\refinelanguage#1#2#3#4{%
\expandafter\def\csname extras@#1_#2\endcsname{#3}%
\expandafter\def\csname noextras@#1_#2\endcsname{#4}}
\let\refinedialect=\refinelanguage
\def\hyphenmins#1#2{\lefthyphenmin=#1\relax\righthyphenmin=#2\relax}
\input hylang
%%% Initialize and restore the underscore
\let\definebaselanguage\undefined
\let\definelanguage\undefined
\def\myh@lan{} % initialization
\def\noextras@{} % initialization
\en_US
\catcode`\_=\myh@us@catcode
\endinput
|
