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 {\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 {{#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 {\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]{iast ś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 |