Source Browser ?

1
%D \module
2
%D   [       file=lang-ini,
3
%D        version=1996.01.25,
4
%D          title=\CONTEXT\ Language Macros,
5
%D       subtitle=Initialization,
6
%D         author=Hans Hagen,
7
%D           date=\currentdate,
8
%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9
%C
10
%C This module is part of the \CONTEXT\ macro||package and is
11
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12
%C details.
13
14
%D This module needs a further cleanup (real split between ii/iv).
15
16
% \cldcontext{languages.numbers[tex.count.mainlanguagenumber]}
17
18
%D This module implements multi||language support of \CONTEXT, which should not be
19
%D confused with the multi||lingual interface. This support will be extended when
20
%D needed. Properties of languages are defined in \TEX\ files as well as \LUA\
21
%D files.
22
23
\writestatus
{
loading
}{
ConTeXt
 
Language
 
Macros
 
/
 
Initialization
}
24
25
\registerctxluafile
{
lang
-
ini
}{}
26
\registerctxluafile
{
lang
-
def
}{}
27
\registerctxluafile
{
lang
-
cnt
}{}
28
29
\unprotect
30
31
\ifdefined
\nonfrenchspacing
\else
 
\let
\nonfrenchspacing
\relax
 
\fi
32
\ifdefined
\frenchspacing
   
\else
 
\let
\frenchspacing
   
\relax
 
\fi
33
34
%D When loading hyphenation patterns, \TEX\ assign a number to each loaded table,
35
%D starting with~0. Switching to a specific table is done by assigning the relevant
36
%D number to the predefined \COUNTER\ \type {\language}. However, in \MKIV\ a lot
37
%D of management is delegated to \LUA.
38
39
%D We keep track of the last loaded patterns by means of a pseudo \COUNTER. This
40
%D just one of those situations in which we don't want to spent a real one. Language
41
%D zero has no patterns, first of all because I like to start numbering at one. It
42
%D may come in handy for special purposes as well.
43
44
\normallanguage
\zerocount
 
\def
\loadedlanguage
{
1
}
45
46
%D \macros
47
%D   {currentlanguage, setupcurrentlanguage}
48
%D
49
%D Instead of numbers,we are going to use symbolic names for the languages. The
50
%D current langage is saved in the macro \type {\currentlanguage}. The setup macro
51
%D is mainly used for cosmetic purposes.
52
%D
53
%D \starttyping
54
%D \dorecurse{3}
55
%D   {\language[nl]
56
%D    \startmode[*en] english \stopmode
57
%D    \startmode[*nl] dutch   \stopmode
58
%D    \language[en]
59
%D    \startmode[*en] english \stopmode
60
%D    \startmode[*nl] dutch   \stopmode}
61
%D \stoptyping
62
63
\let
\currentlanguage
    
\empty
64
\let
\currentmainlanguage
\empty
65
66
%D \macros
67
%D   {defaultlanguage,languageparameter,specificlanguageparameter}
68
%D
69
%D We don't use the commandhandler here (yet) because we have a rather special
70
%D fallback mechanism so quite some compatibility testing is needed.
71
72
\installcorenamespace
{
language
}
73
\installcorenamespace
{
languagelinked
}
74
75
\def
\currentusedlanguage
{
\currentlanguage
}
76
77
\def
\defaultlanguage
#
1
%
78  
{
\ifcsname
\??language
#
1
\s!default
\endcsname
79     
\expandafter
\defaultlanguage
\lastnamedcs
80   
\else
81     
#
1
%
82   
\fi
}
83
84
\def
\languageparameter
#
1
%
85  
{
\ifcsname
\??language
\currentlanguage
#
1
\endcsname
86     
\lastnamedcs
87   
\else\ifcsname
\??language
\currentlanguage
\s!default
\endcsname
88     
\expandafter
\specificlanguageparameter
\lastnamedcs
{
#
1
}
%
89   
\else\ifcsname
\??language\s!default
#
1
\endcsname
90     
\lastnamedcs
91   
\fi\fi\fi
}
92
93
\def
\specificlanguageparameter
#
1
#
2
%
94  
{
\ifcsname
\??language
#
1
#
2
\endcsname
95     
\lastnamedcs
96   
\else\ifcsname
\??language
#
1
\s!default
\endcsname
97     
\expandafter
\specificlanguageparameter
\lastnamedcs
{
#
2
}
%
98   
\else\ifcsname
\??language\s!default
#
2
\endcsname
99     
\lastnamedcs
100   
\fi\fi\fi
}
101
102
\def
\mainlanguageparameter
#
1
%
103  
{
\ifcsname
\??language
\currentmainlanguage
#
1
\endcsname
104     
\lastnamedcs
105   
\else\ifcsname
\??language
\currentmainlanguage
\s!default
\endcsname
106     
\expandafter
\specificlanguageparameter
\lastnamedcs
{
#
1
}
%
107   
\else\ifcsname
\??language\s!default
#
1
\endcsname
108     
\lastnamedcs
109   
\fi\fi\fi
}
110
111
\let
\usedlanguageparameter
\languageparameter
112
113
\def
\askedlanguageparameter
#
1
% assumes \currentusedlanguage being set
114  
{
\ifcsname
\??language
\currentusedlanguage
#
1
\endcsname
115     
\lastnamedcs
116   
\else\ifcsname
\??language
\currentusedlanguage
\s!default
\endcsname
117     
\expandafter
\specificlanguageparameter
\lastnamedcs
{
#
1
}
%
118   
\else\ifcsname
\??language\s!default
#
1
\endcsname
119     
\lastnamedcs
120   
\fi\fi\fi
}
121
122
\unexpanded
\def
\setusedlanguage
#
1
%
123  
{
\edef
\currentusedlanguage
{
\reallanguagetag
{
#
1
}}
%
124   
\ifx
\currentusedlanguage
\empty
125     
\let
\currentusedlanguage
  
\currentlanguage
126     
\let
\usedlanguageparameter
\languageparameter
127   
\else\ifx
\currentusedlanguage
\v!global
128     
\let
\currentusedlanguage
  
\currentmainlanguage
129     
\let
\usedlanguageparameter
\mainlanguageparameter
130   
\else\ifx
\currentusedlanguage
\v!local
131     
\let
\currentusedlanguage
  
\currentlanguage
132     
\let
\usedlanguageparameter
\languageparameter
133   
\else
134     
\let
\usedlanguageparameter
\askedlanguageparameter
135   
\fi\fi\fi
}
136
137
\unexpanded
\def
\setupcurrentlanguage
[#
1
]
%
138  
{
\setcurrentlanguage
\currentmainlanguage
{
#
1
}}
139
140
\unexpanded
\def
\setcurrentlanguage
#
1
#
2
% sets modes: **id (currentmain) *id (current)
141  
{
\edef
\xaskedlanguage
{
#
1
}
% otherwise clash with \askedlanguage
142   
\ifx
\xaskedlanguage
\empty
 
\else
143     
\ifx
\currentmainlanguage
\empty
\else
\resetsystemmode
{
\systemmodeprefix
\currentmainlanguage
}
\fi
144     
\let
\currentmainlanguage
\xaskedlanguage
145     
\setsystemmode
{
\systemmodeprefix
\currentmainlanguage
}
%
146   
\fi
147   
\edef
\xaskedlanguage
{
#
2
}
%
148   
\ifx
\xaskedlanguage
\empty
 
\else
149     
\ifx
\currentlanguage
\empty
\else
\resetsystemmode
\currentlanguage
\fi
150     
\let
\currentlanguage
\xaskedlanguage
151     
\setsystemmode
\currentlanguage
152   
\fi
}
153
154
%D The internal macros will be defined later.
155
156
%D \macros
157
%D   {installlanguage}
158
%D
159
%D Hyphenation patterns can only be loaded when the format file is prepared. The
160
%D next macro takes care of this loading. A language is specified with
161
%D
162
%D \showsetup{installlanguage}
163
%D
164
%D When \type {state} equals \type {start}, both patterns and additional hyphenation
165
%D specifications are loaded. These files are seached for in the patterns path
166
%D have names like \type {lang-nl.lua}.
167
%D
168
%D The \type {spacing} variable specifies how the spaces after punctuation has to be
169
%D handled. English is by tradition more tolerant to inter||sentence spacing than
170
%D other languages.
171
%D
172
%D This macro also defines \type {\identifier} as a shortcut switch to the language.
173
%D Furthermore the command defined as being language specific, are executed. With
174
%D \type {default} we can default to another language (patterns) at format
175
%D generation time. Patterns are loaded at runtime.
176
177
\newtoks
 
\everysetuplanguage
178
179
\def
\installedlanguages
{
\clf_installedlanguages
}
180
181
\unexpanded
\def
\doifelselanguage
#
1
%
182  
{
\ifcsname
\??language
#
1
\c!state
\endcsname
183     
\expandafter
\firstoftwoarguments
184   
\else
185     
\expandafter
\secondoftwoarguments
186   
\fi
}
187
188
\let
\doiflanguageelse\doifelselanguage
189
190
\def
\reallanguagetag
#
1
%
191  
{
\ifcsname
\??languagelinked
#
1
\endcsname\lastnamedcs\else
#
1
\fi
}
192
193
% \language[#1] gave unwanted side effect of loading language specifics
194
195
\unexpanded
\def
\installlanguage
196  
{
\dodoubleargument
\lang_basics_install
}
197
198
% \def\lang_basics_install[#1][#2]%
199
%   {\doifelseassignment{#2}
200
%      {\doifelselanguage{#1}
201
%         {\getparameters[\??language#1][#2]}
202
%         {\setvalue{\??languagelinked#1}{#1}%
203
%          \lang_basics_install_indeed{#1}{#1}%
204
%          \getparameters[\??language#1][\c!state=\v!start,#2]}%
205
%       \edef\currentsetuplanguage{#1}%
206
%       \clf_definelanguage{#1}{\specificlanguageparameter{#1}\s!default}%
207
%       \the\everysetuplanguage}
208
%      {\setvalue{\??languagelinked#1}{#2}%
209
%       \clf_setlanguagesynonym{#1}{#2}%
210
%       \lang_basics_install_indeed{#1}{#2}}}
211
212
\def
\lang_basics_install
[#
1
][#
2
]
%
213  
{
\ifcondition
\validassignment
{
#
2
}
%
214     
\doifelselanguage
{
#
1
}
215       
{
\getparameters
[
\??language
#
1
][#
2
]
}
216       
{
\setvalue
{
\??languagelinked
#
1
}{
#
1
}
%
217        
\lang_basics_install_indeed
{
#
1
}{
#
1
}
%
218        
\getparameters
[
\??language
#
1
][
\c!state
=
\v!start
,
#
2
]
}
%
219     
\edef
\currentsetuplanguage
{
#
1
}
%
220     
\clf_definelanguage
{
#
1
}{
\specificlanguageparameter
{
#
1
}
\s!default
}
%
221     
\the
\everysetuplanguage
222   
\else
223     
\setvalue
{
\??languagelinked
#
1
}{
#
2
}
%
224     
\clf_setlanguagesynonym
{
#
1
}{
#
2
}
%
225     
\lang_basics_install_indeed
{
#
1
}{
#
2
}
%
226  
\fi
}
227
228
\def
\lang_basics_install_indeed
#
1
#
2
%
229  
{
\ifcsname
#
1
\endcsname\else
\setuvalue
{
#
1
}{
\lang_basics_set_current
[#
2
]
}
\fi
}
230
231
%D When the second argument is a language identifier, a synonym is created. This
232
%D feature is present because we used dutch mnemonics in the dutch version, but
233
%D nowadays conform a standard.
234
235
\unexpanded
\def
\doifelsepatterns
#
1
%
236  
{
\begingroup
 
% will change
237   
\lang_basics_set_current
[#
1
]
%
238   
\ifnum
\normallanguage
>
\zerocount
239     
\endgroup\expandafter
\firstoftwoarguments
240   
\else
241     
\endgroup\expandafter
\secondoftwoarguments
242   
\fi
}
243
244
\let
\doifpatternselse\doifelsepatterns
245
246
%D \macros
247
%D   {setuplanguage}
248
%D
249
%D Quick and dirty, but useful:
250
%D
251
%D \showsetup{setuplanguage}
252
%D
253
%D Beware, this command can only be used when a language is installed.
254
255
\unexpanded
\def
\setuplanguage
256  
{
\dodoubleempty
\lang_basics_setup
}
257
258
\ifdefined
\lang_basics_synchronize
 
\else
259    
\let
\lang_basics_synchronize
\relax
 
% be nice for setups till we have one
260
\fi
261
262
\installmacrostack\currentlanguage
263
264
\def
\lang_basics_setup
[#
1
][#
2
]
%
265  
{
\ifsecondargument
266     
\push_macro_currentlanguage
 
% can be default
267     
\edef
\currentsetuplanguage
{
\reallanguagetag
{
#
1
}}
%
268     
\getparameters
[
\??language
\currentsetuplanguage
][#
2
]
%
269     
\the
\everysetuplanguage
270     
\pop_macro_currentlanguage
271    
%\doif\currentsetuplanguage\currentlanguage we can have influenced inheritance (default)
272   
\else
273     
\let
\currentsetuplanguage
\currentlanguage
274     
\getparameters
[
\??language
\currentsetuplanguage
][#
1
]
%
275     
\the
\everysetuplanguage
276   
\fi
277   
\lang_basics_synchronize
}
278
279
\appendtoks
280    
\clf_unloadlanguage
{
\currentsetuplanguage
}
%
281
\to
 
\everysetuplanguage
282
283
\setuplanguage
284  
[
\s!default
]
285  
[
\s!patterns
=
,
286   
\s!lefthyphenmin
=
2
,
287   
\s!righthyphenmin
=
2
,
288   
\s!lefthyphenchar
=
-
1
,
289   
\s!righthyphenchar
=
4
5
,
290   
% used in compound i.e. interfaced with c! and can be anything so no numbers
291   
\c!lefthyphen
=
,
292   
\c!righthyphen
=
-
,
293   
\c!hyphen
=
-
,
294   
\c!spacing
=
\v!packed
,
295   
\c!compoundhyphen
=
\compoundhyphen
,
296   
\c!rightcompoundhyphen
=
\compoundhyphen
,
297   
\c!leftcompoundhyphen
=
,
298   
\c!midsentence
=
---
,
299   
\c!leftsentence
=
---
,
300   
\c!rightsentence
=
---
,
301   
\c!leftsubsentence
=
---
,
302   
\c!rightsubsentence
=
---
,
303   
\c!leftquote
=
\upperleftsinglesixquote
,
304   
\c!rightquote
=
\upperrightsingleninequote
,
305   
\c!leftquotation
=
\upperleftdoublesixquote
,
306   
\c!rightquotation
=
\upperrightdoubleninequote
,
307   
\c!leftspeech
=
\languageparameter
\c!leftquotation
,
308   
\c!middlespeech
=
,
309   
\c!rightspeech
=
\languageparameter
\c!rightquotation
,
310   
\c!limittext
=
\unknown
,
311   
\c!time
=
{
h
,
:
,
m
}
,
312   
\c!date
=
{
\v!year
,
\ 
,
\v!month
,
\ 
,
\v!day
}
,
313   
\c!text
=
Ag
,
314   
\s!font
=]
 
% \v!auto : experimental !
315
316
% to be tested:
317
%
318
% \setuplanguage
319
%   [\s!default]
320
%   [\c!righthyphenchar="AD]
321
322
%D The values \type {leftsentence} and \type {rightsentence} can be (and are) used
323
%D to implement automatic subsentence boundary glyphs, like in {\fr |<|french
324
%D guillemots|>|} or {\de |<|german guillemots|>|} or {\nl |<|dutch dashes|>|} like
325
%D situations. Furthermore \type {leftquotation} and \type {leftquote} come into
326
%D view \quotation {when we quote} or \quote {quote} something.
327
328
%D \macros
329
%D  {currentdatespecification, currenttimespecification}
330
%D
331
%D Just to make things easy we can ask for the current date specification by saying:
332
333
\def
\currentdatespecification
{
\languageparameter
\c!date
}
334
\def
\currenttimespecification
{
\languageparameter
\c!time
}
335
336
%D Carefull reading of these macros shows that it's legal to say
337
%D
338
%D \starttyping
339
%D \installlanguage [du] [de]
340
%D \stoptyping
341
342
%D \macros
343
%D   {language,mainlanguage}
344
%D
345
%D Switching to another language (actually another hyphenation pattern) is done
346
%D with:
347
%D
348
%D \starttyping
349
%D \language[identifier]
350
%D \stoptyping
351
%D
352
%D or with \type {\identifier}. Just to be compatible with \PLAIN\ \TEX, we still
353
%D support the original meaning, so
354
%D
355
%D \starttyping
356
%D \language=1
357
%D \stoptyping
358
%D
359
%D is a valid operation, where the relation between number and language depends on
360
%D the order in installing languages.
361
%D
362
%D \showsetup{language}
363
%D \showsetup{mainlanguage}
364
%D
365
%D Both commands take a predefined language identifier as argument. We can use \type
366
%D {\mainlanguage[identifier]} for setting the (indeed) main language. This is the
367
%D language used for translating labels like {\em figure} and {\em table}. The main
368
%D language defaults to the current language.
369
370
\newtoks
 
\everylanguage
371
372
\installcorenamespace
{
languagenumbers
}
373
374
\appendtoks
375    
% we need to reassign the number because new patterns can be defined later on
376    
% so let's hope not that many \setups happen during a run
377    
\expandafter
\glet
\csname
\??languagenumbers
\currentlanguage
\endcsname
\undefined
378
\to
 
\everysetuplanguage
379
380
\def
\lang_basics_synchronize_yes
381  
{
\zerocount
 
% see below
382   
\global\expandafter\chardef\csname
\??languagenumbers
\currentlanguage
\endcsname
383      
\clf_languagenumber
384        
{
\currentlanguage
}
%
385        
{
\defaultlanguage
\currentlanguage
}
%
386        
{
\languageparameter
\s!patterns
}
%
387        
{
\languageparameter
\c!factor
}
%
388      
\relax
389   
\normallanguage\csname
\??languagenumbers
\currentlanguage
\endcsname
}
390
391
\let
\lang_basics_synchronize_nop
\zerocount
 
% not loaded anyway
392
393
\letvalue
{
\??languagenumbers
}
\lang_basics_synchronize_nop
 
% initime
394
395
\appendtoks
396    
\letvalue
{
\??languagenumbers
}
\lang_basics_synchronize_yes
 
% runtime
397
\to
 
\everydump
398
399
\def
\lang_basics_synchronize
400  
{
\normallanguage\csname
\??languagenumbers
401     
\ifcsname
\??languagenumbers
\currentlanguage
\endcsname
402       
\currentlanguage
403     
\fi
404   
\endcsname
405   
\relax
406   
\the
\everylanguage
407   
\relax
}
408
409
\newcount
\hyphenstate
410
\newcount
\hyphenminoffset
411
412
\unexpanded
\def
\lesshyphens
413  
{
\advance
\hyphenminoffset
\plusone
414   
\lang_basics_synchronize_min_max
}
415
416
\unexpanded
\def
\morehyphens
417  
{
\ifcase
\hyphenminoffset
 
\else
418     
\advance
\hyphenminoffset
\minusone
419   
\fi
420   
\lang_basics_synchronize_min_max
}
421
422
\unexpanded
\def
\nohyphens
 
% nicer for url's
423  
{
\ifx
\dohyphens
\relax
424     
\unexpanded
\edef
\dohyphens
425       
{
\hyphenminoffset
\the
\hyphenminoffset
\relax
426        
\lang_basics_synchronize_min_max
}
%
427   
\fi
428   
\hyphenminoffset
\plusthousand
429   
\lang_basics_synchronize_min_max
}
430
431
\let
\dohyphens
\relax
432
433
\unexpanded
\def
\lang_basics_synchronize_min_max
 
% maybe store this at the lua end
434  
{
% these values are stored along with glyph nodes
435   
\lefthyphenmin
 
\numexpr
0
\languageparameter
\s!lefthyphenmin
 
+
\hyphenminoffset
\relax
436   
\righthyphenmin\numexpr
0
\languageparameter
\s!righthyphenmin
+
\hyphenminoffset
\relax
437   
\hyphenationmin\numexpr
0
\languageparameter
\s!hyphenmin
\relax
438   
% these values are stored with the language (global!)
439   
\prehyphenchar
 
\languageparameter
\s!righthyphenchar
\relax
440   
\posthyphenchar
\languageparameter
\s!lefthyphenchar
 
\relax
}
441
442
\appendtoks
443    
\lang_basics_synchronize_min_max
444
\to
 
\everylanguage
445
446
\unexpanded
\def
\unhyphenated
447  
{
\groupedcommand
{
\lefthyphenmin
\maxdimen
}
\donothing
}
448
449
% \appendtoks
450
%     \setups[\languageparameter\c!setups]%
451
% \to \everylanguage
452
453
%D You can setup the default language to reset settings.
454
455
\appendtoks
456    
\edef
\currentlanguagesetups
{
\languageparameter
\c!setups
}
%
457    
\ifx
\currentlanguagesetups
\empty
 
\else
458        
\setups
[
\currentlanguagesetups
]
%
459    
\fi
460
\to
 
\everylanguage
461
462
% new
463
464
\appendtoks
465    
\usebidiparameter
\languageparameter
466
\to
 
\everylanguage
467
468
% this will move to core-spa !
469
470
\appendtoks
471    
\edef
\p_spacing
{
\languageparameter
\c!spacing
}
%
472    
\ifx
\p_spacing
\v!broad
473      
\nonfrenchspacing
474    
\else
475      
\frenchspacing
476    
\fi
477
\to
 
\everylanguage
478
479
% \mainlanguage[nl] \setuplanguage[nl][lefthyphen=,righthyphen=?]
480
%
481
% \dorecurse{100}{dit is toch wel een heel\normalhyphendiscretionary lang\normalhyphendiscretionary woord \recurselevel\ }
482
% \dorecurse{100}{dit is toch wel een heellangwoord \recurselevel\ }
483
484
% new experimental feature
485
486
\unexpanded
\def
\setuplanguages
487  
{
\setuplanguage
[
\s!default
]
}
488
489
% \setuplanguages[\s!font=\v!auto]
490
% \setuplanguage[\s!default][\s!font=\v!auto]
491
% \setuplanguage[nl][\s!font=\v!auto]
492
493
\appendtoks
494    
\edef
\p_language_font
{
\languageparameter
\s!font
}
%
495    
\ifx
\p_language_font
\empty
\else
496      
\ifx
\p_language_font
\v!auto
497        
\doaddfeature\currentlanguage
498      
\else
499        
\doaddfeature
\p_language_font
500      
\fi
501    
\fi
502
\to
 
\everylanguage
503
504
%D Fast switcher
505
506
\def
\lang_basics_switch_asked
507  
{
\ifcsname
\??languagelinked
\askedlanguage
\endcsname
508     
\edef
\askedlanguage
{
\lastnamedcs
}
%
509     
\ifx
\currentlanguage
\askedlanguage
 
\else
510       
\setcurrentlanguage
\currentmainlanguage
\askedlanguage
511       
\lang_basics_synchronize
512     
\fi
513   
\fi
}
514
515
\unexpanded
\def
\uselanguageparameter
#
1
%
516  
{
\edef
\askedlanguage
{
#
1
\c!language
}
%
517   
\ifx
\askedlanguage
\empty
\else
\lang_basics_switch_asked
\fi
}
518
519
\unexpanded
\def
\douselanguageparameter
#
1
% fast setter
520  
{
\edef
\askedlanguage
{
#
1
}
%
521   
\ifx
\askedlanguage
\empty
\else
\lang_basics_switch_asked
\fi
}
522
523
\unexpanded
\def
\lang_basics_set_current
[#
1
]
%
524  
{
\edef
\askedlanguage
{
#
1
}
%
525   
\ifx
\askedlanguage
\empty
\else
\lang_basics_switch_asked
\fi
}
526
527
\unexpanded
\def\language
528  
{
\doifelsenextoptionalcs
\lang_basics_set_current
\normallanguage
}
529
530
\let\setlanguage\language
 
% we make these synonyms
531
532
\let\patterns
\gobbleoneargument
533
534
\newcount
\mainlanguagenumber
535
536
%D Beware: you might need to use \type {\dontleavehmode} outside and|/|or \type {\par}
537
%D inside the group!
538
539
\unexpanded
\def
\startlanguage
540  
{
\begingroup\language
}
541
542
\let
\stoplanguage
\endgroup
543
544
\unexpanded
\def
\mainlanguage
[#
1
]
%
545  
{
\edef
\askedlanguage
{
#
1
}
%
546   
\ifx
\askedlanguage
\empty
 
\else
547     
\ifcsname
\??languagelinked
\askedlanguage
\endcsname
548      
%\edef\askedlanguage{\csname\??languagelinked\askedlanguage\endcsname}%
549       
\edef
\askedlanguage
{
\lastnamedcs
}
%
550       
\ifx
\currentlanguage
\askedlanguage
551         
\ifx
\currentmainlanguage
\askedlanguage
 
\else
552           
\setcurrentlanguage
\askedlanguage
\askedlanguage
553           
\lang_basics_synchronize
554         
\fi
555       
\else
556         
\setcurrentlanguage
\askedlanguage
\askedlanguage
557         
\lang_basics_synchronize
558       
\fi
559     
\fi
560   
\fi
561   
\mainlanguagenumber
\normallanguage
}
562
563
\appendtoks
564    
\normallanguage
\mainlanguagenumber
565
\to
 
\everybeforepagebody
566
567
%D Used at all?
568
569
\def
\splitsequence
#
1
#
2
%
570  
{
\doifelse
{
#
1
}
\v!no
{
#
2
}{
\doifelse
{
#
1
}
\v!yes
{
\languageparameter
\c!limittext
}{
#
1
}}}
571
572
\def
\splitsymbol
#
1
%
573  
{
\splitsequence
{
#
1
}{
\languageparameter
\c!limittext
}}
574
575
%D Just like with subsentence boundary symbols, quotes placement depends on the
576
%D current language, therefore we show the defaults here.
577
%D
578
%D \def\ShowLanguageValues [#1] [#2] #3 #4
579
%D   {\blank
580
%D    \startlinecorrection
581
%D    \vbox\bgroup
582
%D    \language[#1]
583
%D    \midaligned{\bf#2 subsentence symbol and quotes}
584
%D    \framed[width=\hsize,frame=off,topframe=on,bottomframe=on,offset=.5ex]
585
%D      {\hfil\quotation{#3 #4}\hfil\quote{#2}\hfil
586
%D       \startsubsentence\startsubsentence#3\stopsubsentence#4\stopsubsentence\hfil}
587
%D    \egroup
588
%D    \stoplinecorrection
589
%D    \blank}
590
%D
591
%D \ShowLanguageValues [af] [afrikaans]  afrikaanse ...
592
%D \ShowLanguageValues [ca] [catalan]    catalan ...
593
%D \ShowLanguageValues [cs] [czech]      tjechisch tex
594
%D \ShowLanguageValues [cs] [slovak]     slowaakse ...
595
%D \ShowLanguageValues [da] [danish]     deense ...
596
%D \ShowLanguageValues [de] [german]     duitse degelijkheid
597
%D \ShowLanguageValues [en] [english]    engelse humor
598
%D \ShowLanguageValues [et] [estonian]   ...
599
%D \ShowLanguageValues [fi] [finnish]    finse ...
600
%D \ShowLanguageValues [fr] [french]     franse slag
601
%D \ShowLanguageValues [it] [italian]    italiaanse ...
602
%D \ShowLanguageValues [la] [latin]      latijnse missen
603
%D \ShowLanguageValues [nl] [dutch]      nederlandse zuinigheid
604
%D \ShowLanguageValues [nb] [bokmal]     noorse zalm
605
%D \ShowLanguageValues [nn] [nnynorsk]   noorse zalm
606
%D \ShowLanguageValues [pl] [polish]     poolse vlag
607
%D \ShowLanguageValues [pt] [portuguese] portugese ...
608
%D \ShowLanguageValues [es] [spanish]    spaans benauwd
609
%D \ShowLanguageValues [sv] [swedish]    zweedse ...
610
%D \ShowLanguageValues [tr] [turkish]    turks fruit
611
612
%D We support a lot of languages. These are specified and loaded in separate files,
613
%D according to their roots. Here we only take care of (postponed) setting of the
614
%D current language.
615
%D
616
%D \unprotect
617
%D \placetable{The germanic languages (\type{lang-ger})}
618
%D \starttable[||||]
619
%D \HL
620
%D \NC \bf mnemonic \NC \bf language \NC \bf group \NC\SR
621
%D \HL
622
%D \NC \s!nl        \NC dutch        \NC germanic  \NC\FR
623
%D \NC \s!en        \NC english      \NC germanic  \NC\MR
624
%D \NC \s!de        \NC german       \NC germanic  \NC\MR
625
%D \NC \s!da        \NC danish       \NC germanic  \NC\MR
626
%D \NC \s!sv        \NC swedish      \NC germanic  \NC\MR
627
%D \NC \s!af        \NC afrikaans    \NC germanic  \NC\MR
628
%D \NC \s!nb        \NC bokmal       \NC germanic  \NC\LR
629
%D \NC \s!nn        \NC nynorsk      \NC germanic  \NC\LR
630
%D \HL
631
%D \stoptable
632
%D \protect
633
%D
634
%D \unprotect
635
%D \placetable{The italic languages (\type{lang-ita})}
636
%D \starttable[||||]
637
%D \HL
638
%D \NC \bf mnemonic \NC \bf language \NC \bf group \NC\SR
639
%D \HL
640
%D \NC \s!fr        \NC french       \NC italic    \NC\FR
641
%D \NC \s!ca        \NC catalan      \NC italic    \NC\MR
642
%D \NC \s!es        \NC spanish      \NC italic    \NC\MR
643
%D \NC \s!it        \NC italian      \NC italic    \NC\MR
644
%D \NC \s!la        \NC latin        \NC italic    \NC\MR
645
%D \NC \s!pt        \NC portuguese   \NC italic    \NC\LR
646
%D \HL
647
%D \stoptable
648
%D \protect
649
%D
650
%D \unprotect
651
%D \placetable{The slavic languages (\type{lang-sla})}
652
%D \starttable[||||]
653
%D \HL
654
%D \NC \bf mnemonic \NC \bf language \NC \bf group \NC\SR
655
%D \HL
656
%D \NC \s!pl        \NC polish       \NC slavic    \NC\FR
657
%D \NC \s!cs        \NC czech        \NC slavic    \NC\MR
658
%D \NC \s!sk        \NC slavik       \NC slavic    \NC\LR
659
%D \HL
660
%D \stoptable
661
%D \protect
662
%D \unprotect
663
%D
664
%D \placetable{The altaic languages (\type{lang-alt})}
665
%D \starttable[||||]
666
%D \HL
667
%D \NC \bf mnemonic \NC \bf language \NC \bf group \NC\SR
668
%D \HL
669
%D \NC \s!tr        \NC turkish      \NC altaic    \NC\SR
670
%D \HL
671
%D \stoptable
672
%D
673
%D \placetable{The uralic languages (\type{lang-ura})}
674
%D \starttable[||||]
675
%D \HL
676
%D \NC \bf mnemonic \NC \bf language \NC \bf group \NC\SR
677
%D \HL
678
%D \NC \s!fi        \NC finnish      \NC uralic    \NC\SR
679
%D \HL
680
%D \stoptable
681
%D \protect
682
683
\unexpanded
\def
\nopatterns
{
\normallanguage
\minusone
}
684
685
%D We default to the language belonging to the interface. This is one of the few
686
%D places outside the interface modules where \type {\startinterface} is used.
687
688
\setupcurrentlanguage
[
\s!en
]
689
690
\unexpanded
\def
\initializemainlanguage
691  
{
\mainlanguage
[
\currentlanguage
]
%
692   
\showmessage
\m!languages
9
\currentlanguage
}
693
694
%D New:
695
696
\let
\stopexceptions
\relax
697
698
\unexpanded
\def
\startexceptions
699  
{
\dosingleempty
\lang_basics_start_exceptions
}
700
701
\def
\lang_basics_start_exceptions
[#
1
]#
2
\stopexceptions
 
% multilingual or not?
702  
{
\begingroup
703   
\edef
\askedlanguage
{
\reallanguagetag
{
#
1
}}
%
704   
\ifx
\askedlanguage
\empty
705     
\let
\askedlanguage
\currentlanguage
706   
\fi
707   
\clf_setlanguageexceptions
{
\askedlanguage
}{
#
2
}
%
708   
\endgroup
}
709
710
\unexpanded
\def\hyphenation
711  
{
\clf_setlanguageexceptions
{
\currentlanguage
}}
712
713
%D For the moment here:
714
715
\uchyph
        
1
 
% also treat uppercase
716
\exhyphenchar
 
4
5
 
% to permit breaking at explicit hyphens
717
718
%D New:
719
720
\unexpanded
\def
\traceddiscretionary
#
1
#
2
#
3
%
721  
{
\dontleavehmode
722   
\discretionary
{
\darkred
#
1
}{
\darkgreen
#
2
}{
\darkblue
#
3
}}
723
724
\unexpanded
\def
\samplediscretionary
725  
{
\traceddiscretionary
726     
{
pre
\clf_currentprehyphenchar
}
%
727     
{
\clf_currentposthyphenchar
 
post
}
%
728     
{
replace
}}
729
730
% todo: make this configurable
731
732
\protect
 
\endinput
733