lang-tra.mkxl /size: 9106 b    last modification: 2023-12-21 09:44
1%D \module
2%D   [       file=lang-tra,
3%D        version=2020.10.31,
4%D          title=\CONTEXT\ Language Macros,
5%D       subtitle=Transliteration,
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\writestatus{loading}{ConTeXt Language Macros / Transliteration}
15
16\registerctxluafile{lang-tra}{autosuffix}
17
18\unprotect
19
20\installcorenamespace {transliteration}
21
22\installcommandhandler \??transliteration {transliteration} \??transliteration
23
24\definesystemattribute[transliteration][public,global]
25
26\newtoks\everytransliterations
27
28\appendtoks
29    \disablediscretionaries
30  % \let~=\lettertilde
31    \enforced\letcharcode\tildeasciicode\lettertilde
32  % \let|=\letterbar
33  % \enforced\letcharcode\barasciicode\letterbar
34\to \everytransliterations
35
36\def\lang_transliteration_common
37  {\usetransliterationstyleandcolor\c!style\c!color
38   \uselanguageparameter\transliterationparameter
39   \clf_settransliteration{\currenttransliteration}{\transliterationparameter\c!vector}%
40   \expand\everytransliterations}
41
42\permanent\tolerant\protected\def\settransliteration[#1]#;#2%
43  {\cdef\currenttransliteration{#1#2}%
44   \lang_transliteration_common}
45
46\permanent\protected\def\transliterationexception[#1]#2#3%
47  {\clf_transliterationexception{#1}{#2}{#3}}
48
49\permanent\tolerant\protected\def\starttransliteration[#1]#*[#S#2]%
50  {\begingroup
51   \cdef\currenttransliteration{#1}%
52   \ifparameter#2\or
53      \setupcurrenttransliteration[#2]%
54   \fi
55   \transliterationparameter\c!before\relax
56   \lang_transliteration_common}
57
58\permanent\protected\def\stoptransliteration
59  {\transliterationparameter\c!after\relax
60   \endgroup}
61
62\permanent\tolerant\protected\def\transliteration[#1]#;#2%
63  {\groupedcommand
64     {\cdef\currenttransliteration{#1#2}%
65      \lang_transliteration_common
66      \transliterationparameter\c!left\relax}
67     {\transliterationparameter\c!right\relax}}
68
69\appendtoks
70    \clf_registertransliteration{\currenttransliterationparent}{\currenttransliteration}%
71    \ifcstok{\transliterationparameter\c!define}\v!yes
72      \frozen\protected\instance\edefcsname\e!start\currenttransliteration\endcsname{\starttransliteration[\currenttransliteration]}%
73      \frozen\protected\instance\edefcsname\e!stop \currenttransliteration\endcsname{\stoptransliteration}%
74      \frozen\protected\instance\edefcsname        \currenttransliteration\endcsname{\transliteration[\currenttransliteration]}%
75    \fi
76\to \everydefinetransliteration
77
78\permanent\protected\def\resettransliteration
79  {\c_attr_transliteration\attributeunsetvalue}
80
81\setuptransliteration
82  [\c!define=\v!yes]
83
84\appendtoks
85    \resettransliteration
86\to \everyinitializeverbatim
87
88\protect \endinput
89
90% \starttext
91%
92%     \switchtobodyfont[shobhika]
93%
94%     \usetransliteration[indic]
95%
96%     \definetransliteration
97%         [MyDeva]
98%         [color=blue,
99%          vector={iast to deva}]
100%
101%     \definetransliteration
102%         [MyDevaB]
103%         [MyDeva]
104%         [color=green]
105%
106%     \transliterationexception[iast to deva]{kauśika}{whoever}
107%     \transliterationexception[MyDeva]      {kauśika}{hans}
108%     \transliterationexception[MyDevaB]     {kauśika}{knuth}
109%
110%     \starttransliteration[MyDeva]
111%         idaṁ adbhutam kauśika tisraḥ garuḍavāhanan%
112%     \stoptransliteration
113%
114%     \starttransliteration[MyDevaB]
115%         idaṁ adbhutam kauśika tisraḥ garuḍavāhanan%
116%     \stoptransliteration
117%
118% \stoptext
119%
120% \setupbodyfont[dejavu]
121%
122% \setupalign[tolerant,stretch]
123%
124% \starttext
125%
126% % \enabletrackers[languages.transliteration]
127%
128% \usetransliteration[serbian] %at some point we can preload
129%
130% \definetransliteration
131%   [MySerbian]
132%   [color=red,
133%    language=en,
134%    vector={serbian to latin}]
135%
136% \definetransliteration
137%   [MySerbianX]
138%   [MySerbian]
139%   [color=blue]
140%
141% АБВ ГДЕ ЖЗИЙ КЛМНОП РСТУ ФХЦЧ ШЩЪЬ ЮЯ
142% \start
143%     \settransliteration[serbian to latin]
144%     АБВ ГДЕ ЖЗИЙ КЛМНОП РСТУ ФХЦЧ ШЩЪЬ ЮЯ
145% \stop
146% \starttransliteration[MySerbian]%
147%     АБВ ГДЕ ЖЗИЙ КЛМНОП РСТУ ФХЦЧ ШЩЪЬ ЮЯ
148% \stoptransliteration
149% АБВ ГДЕ ЖЗИЙ КЛМНОП РСТУ ФХЦЧ ШЩЪЬ ЮЯ
150% \transliteration[MySerbianX]{АБВ ГДЕ ЖЗИЙ КЛМНОП РСТУ ФХЦЧ ШЩЪЬ ЮЯ}
151% АБВ ГДЕ ЖЗИЙ КЛМНОП РСТУ ФХЦЧ ШЩЪЬ ЮЯ
152% \starttransliteration[MySerbian][color=green]%
153%     АБВ ГДЕ ЖЗИЙ КЛМНОП РСТУ ФХЦЧ ШЩЪЬ ЮЯ
154% \stoptransliteration
155% АБВ ГДЕ ЖЗИЙ КЛМНОП РСТУ ФХЦЧ ШЩЪЬ ЮЯ
156%
157% \switchtobodyfont[rachana]
158%
159% \usetransliteration[indic]
160%
161% \definebuffer[passage]
162% \startbuffer[passage]
163% तिस्रः खलु विधेर्विधाः – अपूर्वविधिः नियमविधिः परिसङ्ख्याविधिश्च इति। तत्र
164% कालत्रयेऽपि कथमप्यप्राप्तस्य प्राप्तिफलको विधिराद्यः। यथा ‘व्रीहीन् प्रोक्षति’
165% ...
166% तदनुनिष्पादिन्या अविधेयगतत्वेन विप्रकृष्टाया इतरनिवृत्तेः सन्निकृष्टफलसम्भवे
167% फलत्वानौचित्यात् ।
168% \stopbuffer
169%
170% \language[sa]
171%
172% \definedfont[file:arialuni.ttf*devanagari-two at 12pt]
173%
174% \definedfont[file:shobhika-regular.otf*devanagari-two at 12pt]
175%
176% \getbuffer[passage]
177%
178% % \page
179% % {\settransliteration[deva to mlym]\getbuffer[passage]}
180%
181% \page
182%
183% \startlines
184% \transliterate[deva to iast]{आनन्दः}
185% \transliterate[deva to iast]{अक्षयं}
186% \transliterate[deva to iast]{अवप्लुतं}
187% \transliterate[deva to iast]{त्रैयी}
188% \transliterate[deva to iast]{वार्त्तां}
189% \transliterate[deva to iast]{सान्द्रानन्दावबोधात्मकं}
190% \transliterate[deva to iast]{गरुडवाहनन्}
191% \stoplines
192%
193% \page
194%
195% \startlines
196% \transliterate[iast to deva]{ānandaḥ}
197% \transliterate[iast to deva]{ati}
198% \transliterate[iast to deva]{ānandaḥ}
199% \transliterate[iast to deva]{ati}
200% \transliterate[iast to deva]{krauñca}
201% \transliterate[iast to deva]{krodhaṁ}
202% \transliterate[iast to deva]{kruddhaṁ}
203% \transliterate[iast to deva]{upahvarāyi}
204% \transliterate[iast to deva]{hārdika}
205% \transliterate[iast to deva]{śaunaśśepaḥ}
206% \transliterate[iast to deva]{tiśṣitaḥ}
207% \transliterate[iast to deva]{agryīṁ}
208% \transliterate[iast to deva]{saṅkulam}
209% \transliterate[iast to deva]{śrīrāman}
210% \transliterate[iast to deva]{niścitavantaḥ}
211% \transliterate[iast to deva]{idam adbhutama ai kr}
212% \transliterate[iast to deva]{kr saṁdhi}
213% \transliterate[iast to deva]{a}
214% \transliterate[iast to deva]{akr}
215% \transliterate[iast to deva]{āhriyate iast}
216% \transliterate[iast to deva]{utkaṁpita  iast}
217% \transliterate[iast to deva]{śagdhyūṣū}
218% \transliterate[iast to deva]{tretā}
219% \transliterate[iast to deva]{ati}
220% \transliterate[iast to deva]{"ai"}
221% \transliterate[iast to deva]{dhavaḻa}
222% \transliterate[iast to deva]{śrīrāman}
223% \transliterate[iast to deva]{ś}
224% \transliterate[iast to deva]{śra}
225% \transliterate[iast to deva]{​arkau}
226% \transliterate[iast to deva]{kāvikrato}
227% \transliterate[iast to deva]{saṅkulam}
228% \transliterate[iast to deva]{sundaraṁ}
229% \transliterate[iast to deva]{bhirarkiṇaḥ}
230% \transliterate[iast to deva]{bhirarkkiṇaḥ}
231% \transliterate[iast to deva]{karkki khārkki}
232% \transliterate[iast to deva]{cacchā}
233% \transliterate[iast to deva]{karkki khakhārkki "kr"}
234% \transliterate[iast to deva]{i‍​ast śrotṝn}
235% \transliterate[iast to deva]{test ati krarkkṛ au}
236% \stoplines
237%
238% सङ्कुलम्​ श्रीरामन् निश्चितवन्तः इदम् अद्भुतम् ऐ
239%
240% \transliterate [deva to iast] {सौन्दर्य सुन्दर सुंदर सौंदर्य आनन्दः कर्तृत्त्व
241% सिद्धम् सिद्धं बद्धैः भकार शब्दः बभ्रूवाहन गरुडवाहनन् सान्द्रानन्दावबोधात्मकं।
242% auṣadhi madhumattamaḥ इअस्त षट्त्रिंशत् तीर्थास्पदं शिवविरिञ्चिनुतं शरण्यं
243% ऐन्द्र पर्व अभ्यर्च्चैर चँद्रम् सदाऽत्मा, "तेस्त"
244%
245% अ॒ग्निमी᳚ळे पुरोहि॑तम्
246% खखार्क्कि क्रर्क्कृ
247% }
248%
249% \stoptext
250