1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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
35
36
37
38
39
40
41
42
43
44\normallanguage
\zerocount
\def
\loadedlanguage
{
1
}
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63\let
\currentlanguage
\empty
64\let
\currentmainlanguage
\empty
65
66
67
68
69
70
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
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
141 {
\edef
\xaskedlanguage
{
#
1
}
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
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
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
194
195\unexpanded
\def
\installlanguage
196 {
\dodoubleargument
\lang_basics_install
}
197
198
199
200
201
202
203
204
205
206
207
208
209
210
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
232
233
234
235\unexpanded
\def
\doifelsepatterns
#
1
236 {
\begingroup
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
247
248
249
250
251
252
253
254
255\unexpanded
\def
\setuplanguage
256 {
\dodoubleempty
\lang_basics_setup
}
257
258\ifdefined
\lang_basics_synchronize
\else
259 \let
\lang_basics_synchronize
\relax
260\fi
261
262\installmacrostack\currentlanguage
263
264\def
\lang_basics_setup
[#
1
][#
2
]
265 {
\ifsecondargument
266 \push_macro_currentlanguage
267 \edef
\currentsetuplanguage
{
\reallanguagetag
{
#
1
}}
268 \getparameters
[
\??language
\currentsetuplanguage
][#
2
]
269 \the
\everysetuplanguage
270 \pop_macro_currentlanguage
271
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
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
=]
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333\def
\currentdatespecification
{
\languageparameter
\c!date
}
334\def
\currenttimespecification
{
\languageparameter
\c!time
}
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370\newtoks
\everylanguage
371
372\installcorenamespace
{
languagenumbers
}
373
374\appendtoks
375
376
377 \expandafter
\glet
\csname
\??languagenumbers
\currentlanguage
\endcsname
\undefined
378\to
\everysetuplanguage
379
380\def
\lang_basics_synchronize_yes
381 {
\zerocount
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
392
393\letvalue
{
\??languagenumbers
}
\lang_basics_synchronize_nop
394
395\appendtoks
396 \letvalue
{
\??languagenumbers
}
\lang_basics_synchronize_yes
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
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
434 {
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
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
450
451
452
453
454
455\appendtoks
456 \edef
\currentlanguagesetups
{
\languageparameter
\c!setups
}
457 \ifx
\currentlanguagesetups
\empty
\else
458 \setups
[
\currentlanguagesetups
]
459 \fi
460\to
\everylanguage
461
462
463
464\appendtoks
465 \usebidiparameter
\languageparameter
466\to
\everylanguage
467
468
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
480
481
482
483
484
485
486\unexpanded
\def
\setuplanguages
487 {
\setuplanguage
[
\s!default
]
}
488
489
490
491
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
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
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
531
532\let\patterns
\gobbleoneargument
533
534\newcount
\mainlanguagenumber
535
536
537
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
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
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
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683\unexpanded
\def
\nopatterns
{
\normallanguage
\minusone
}
684
685
686
687
688\setupcurrentlanguage
[
\s!en
]
689
690\unexpanded
\def
\initializemainlanguage
691 {
\mainlanguage
[
\currentlanguage
]
692 \showmessage
\m!languages
9
\currentlanguage
}
693
694
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
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
714
715\uchyph
1
716\exhyphenchar
4
5
717
718
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
731
732\protect
\endinput
733