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
113
114
115
116
117
118
119
120
121
122
123
124
125
|
%D \module
%D [ file=enco-fde,
%D version=2000.08.20,
%D title=\CONTEXT\ Encoding Macros,
%D subtitle=German Input Filter,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright=Hans Hagen]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
%D These definitions used to be part of lang-ger.tex.
\unprotect
\startlanguagespecifics[\s!de]
\appendtoks \makecharacteractive " \to \everynormalcatcodes
\installcompoundcharacter "a {\aumlaut\midworddiscretionary}
\installcompoundcharacter "e {\eumlaut\midworddiscretionary}
\installcompoundcharacter "i {\iumlaut\midworddiscretionary}
\installcompoundcharacter "o {\oumlaut\midworddiscretionary}
\installcompoundcharacter "u {\uumlaut\midworddiscretionary}
\installcompoundcharacter "s {\ssharp}
\installcompoundcharacter "z {\ssharp}
\installcompoundcharacter "A {\Aumlaut}
\installcompoundcharacter "E {\Eumlaut}
\installcompoundcharacter "I {\Iumlaut}
\installcompoundcharacter "O {\Oumlaut}
\installcompoundcharacter "U {\Uumlaut}
\installcompoundcharacter "Z {SZ}
\installcompoundcharacter "S {SS}
\stoplanguagespecifics
\startlanguagespecifics[\s!de]
\installcompoundcharacter "ck {\discretionary {k-}{k}{ck}}
\installcompoundcharacter "ff {\discretionary{ff-}{f}{ff}}
\installcompoundcharacter "ll {\discretionary{ll-}{l}{ll}}
\installcompoundcharacter "mm {\discretionary{mm-}{m}{mm}}
\installcompoundcharacter "nn {\discretionary{nn-}{n}{nn}}
\installcompoundcharacter "pp {\discretionary{pp-}{p}{pp}}
\installcompoundcharacter "rr {\discretionary{rr-}{r}{rr}}
\installcompoundcharacter "tt {\discretionary{tt-}{t}{tt}}
\installcompoundcharacter "CK {\discretionary {K-}{K}{CK}}
\installcompoundcharacter "FF {\discretionary{FF-}{F}{FF}}
\installcompoundcharacter "LL {\discretionary{LL-}{L}{LL}}
\installcompoundcharacter "MM {\discretionary{MM-}{M}{MM}}
\installcompoundcharacter "NN {\discretionary{NN-}{N}{NN}}
\installcompoundcharacter "PP {\discretionary{PP-}{P}{PP}}
\installcompoundcharacter "RR {\discretionary{RR-}{R}{RR}}
\installcompoundcharacter "TT {\discretionary{TT-}{T}{TT}}
\stoplanguagespecifics
\startlanguagespecifics[\s!de]
\installcompoundcharacter "` {\handlequotation\c!leftquotation}
\installcompoundcharacter "' {\handlequotation\c!rightquotation}
\installcompoundcharacter ". {\kern.1em\ignorespaces}
\def\setupDElanguage
{\setuplanguage
[\s!de]
[\c!leftsentence=\leftguillemot,
\c!rightsentence=\rightguillemot,
\c!leftsubsentence=\leftsubguillemot,
\c!rightsubsentence=\rightsubguillemot]}
\installcompoundcharacter "< {{\setupDElanguage|<|}}
\installcompoundcharacter "> {{\setupDElanguage|>|}}
\installcompoundcharacter "| {|*|}
\stoplanguagespecifics
% \hyphenatedword{hinauff|*|liegen}
% \hyphenatedword{hinauff"|liegen}
%D An experimental hack:
% no {\simplifiedcompoundcharacter"}
\startencoding[pdfdoc]
\startlanguagespecifics[\s!de]% hm, a % is needed
\defineactivecharacter " {\"}
\stoplanguagespecifics
\stopencoding
\startencoding[ec]
\startlanguagespecifics[\s!de]%
\installcompoundcharacter "a {\adiaeresis}
\installcompoundcharacter "e {\ediaeresis}
\installcompoundcharacter "i {\idiaeresis}
\installcompoundcharacter "o {\odiaeresis}
\installcompoundcharacter "u {\udiaeresis}
\installcompoundcharacter "A {\Adiaeresis}
\installcompoundcharacter "E {\Ediaeresis}
\installcompoundcharacter "I {\Idiaeresis}
\installcompoundcharacter "O {\Odiaeresis}
\installcompoundcharacter "U {\Udiaeresis}
\stoplanguagespecifics
\stopencoding
\startencoding[texnansi]
\startlanguagespecifics[\s!de]%
\installcompoundcharacter "a {\adiaeresis}
\installcompoundcharacter "e {\ediaeresis}
\installcompoundcharacter "i {\idiaeresis}
\installcompoundcharacter "o {\odiaeresis}
\installcompoundcharacter "u {\udiaeresis}
\installcompoundcharacter "A {\Adiaeresis}
\installcompoundcharacter "E {\Ediaeresis}
\installcompoundcharacter "I {\Idiaeresis}
\installcompoundcharacter "O {\Odiaeresis}
\installcompoundcharacter "U {\Udiaeresis}
\stoplanguagespecifics
\stopencoding
\protect \endinput
|
