# test-IAST-Devanagri.tcl
#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"
package require Gnocl
#---------------
# Handle word initials and finals
#---------------
#
proc IAST_2_Devanagari:word_start_end {word} {
set initials_2 {
oṁ ॐ
}
set initials_1 {
a अ ā आ i इ ī ई
u उ ū ऊ ṝ ऋ ḷ ऌ
e ए ai ऐ o ओ au औ
' ऽ
}
# consonants with virama
set finals_2 {
kh ख् gh घ् ch छ् jh झ्
ṭh ठ् ḍh ढ् th थ् dh ध्
ph फ् bh भ
}
set finals_1 {
k क् g ग् c च् j ज्
ñ ञ् ṭ ट् ḍ ड् ṇ ण्
t त् d द् ṅ ङ् n न्
p प् b ब् m म् y य्
r र् l ल् v व् ś श्
ṣ ष् s स् h ह्
}
# handle syllable of word, potentially a dual character
set a [string map $initials_2 [string range $word 0 1]]
set word [string replace $word 0 1 {} ]
set word "$a$word"
# remove any verse numbers and puncutation from the word end
set punc ""
set b [string first | $word]
if {$b != "-1"} {
set punc [string range $word $b end]
set word [string range $word 0 $b-1]
}
# handle syllable of word, potentially a vowel
set a [string map $initials_1 [string range $word 0 0]]
set word [string replace $word 0 0 $a ]
# handle last syllable, potential aspirated consonants
set a [string map $finals_2 [string range $word end-1 end]]
set word [string replace $word end-1 end $a ]
# unaspirated consonants
set a [string map $finals_1 [string range $word end end]]
set word [string replace $word end end $a ]
# reapply verse numbers and punctuation
return $word$punc
}
#---------------
# convert IAST string to unicode devanagri
#---------------
#
proc IAST_2_Devanagari {str} {
# ligatures (conjunct consonants) listed in Coulson, 1992. Sanskrit -A Complete Course for Beginners, (pp.23-24).
set mappings {
ktry क्र्त्य ghny घ्न्य ṅkty ङ्क्त्य् ṅkṣv ङ्क्ष्व् ṅkhy ङ्ख्य
ṅghy ङ्घ्य ṅghr ङ्घ्र cchr च्छ्र् ḍghr ड्घ्र् ṇḍry ण्ड्र्य
tsny त्स्न्य dghr द्घ्र ddhy द्ध्य dbhy द्भ्य dhny ध्न्य
dhry ध्ग्र्य ndhr न्ध्र bbhy ब्भ्य
kkh क्ख kty क्त्य ktr क्त्र ktv क्त्व kny क्न्य
kry क्र्य kvy क्व्य kṣm क्ष्म kṣy क्ष्य kṣv क्ष्व
khy ख्य khr ख्र gry ग्र्य ghn घ्न ghm घ्म
ghy घ्य ghr घ्र ṅkt ङ्क्त् ṅky ङ्क्य् ṅkṣ ङ्क्स्
ṅkh ङ्ख ṅgy ङ्ग्य ṅgh ङ्घ cch च्छ chy छ्य
chr छ्र् jjh ज्झ jñy ज्ञ्य ñcm ञ्च्म ñcy ञ्च्य
ñch ञ्छ ñjy ञ्य ṭhy ठ्य ṭhr ठ्र् ḍgy ड्ग्य्
ḍgh ड्घ् ḍḍh ड्ढ् ḍhy ड्ह्य् ḍhr ड्ह्र् ṇṭh ण्ठ
ṇḍy ण्ड्य ṇḍr ण्ड्र् ṇḍh ण्ध tkr त्क्र tty त्त्य
ttr त्त्र ttv त्त्व tth त्थ tny त्न्य tpr त्प्र
tmy त्म्य try त्र्य tṣn त्ष्न thy थ्य dgr द्ग्र
dgh द्घ ddy द्द्य ddh द्ध dbh द्भ dry द्र्य
dvy द्व्य dhn ध्न dhm ध्म dhy ध्य dhr ध्र
dhv ध्व nty द्त्य ntr न्त्र ndr न्द्र ndh न्ध
npr न्प्र pry प्र्य psv प्स्व bgh ब्घ bhn भ्न
bhy भ्य bhr भ्र bhv भ्व mbh म्भ ścy श्च्य
śry श्र्य śvy श्व्य ṣṭy ष्ट्य ṣṭṛ ष्टृ ṣṭv ष्ट्व
ṣṭh ष्ठ ṣṇy ष्ण्य ṣpr ष्प्र skh स्ख sty स्त्य
str स्त्र stv स्त्व sth स्थ sny स्न्य sph स्फ
smy स्म्य
dh ध kk क्क kc क्च kṇ क्ण kt क्त
kn क्न km क्म ky क्य kr क्र kl क्ल
kv क्व kṣ क्ष gy ग्य gr ग्र ṅk ङ्क्
ṅg ङ्ग ṅṅ ङ्ङ् ṅn ङ्न् ṅm ङ्म् ṅy ङ्य
cc च्च cñ च्ञ cm च्म cy च्य jj ज्ज
jñ ज्ञ jm ज्म jy ज्य jr ज्र jv ज्व
ñc ञ्च ñj ञ्ज ṭt ट्त् ṭy ट्य ḍg ड्ग्
ḍm ड्म ḍy ड्य ṇṭ ण्ट् ṇḍ ण्ड् ṇṇ ण्ण
ṇm ण्म ṇy ण्य ṇv ण्व tk त्क tt त्त
tn त्न tp त्प tm त्म ty त्य tr त्र
tv त्व ts त्स dg द्ग dd द्द dn द्न
db द्ब dm द्म dy द्य dr द्र dv द्व
nt न्त nd न्द nn न्न np न्प nm न्म
ny न्य nr न्र ns न्स pt प्त pn प्न
pp प्प pm प्म py प्य pr प्र pl प्ल
pv प्व ps प्स by ब्य br ब्र bv ब्व
mn म्न mp म्प mr म्र mb म्ब mm म्म
my म्य mr म्र ml म्ल mv म्व yy य्य
yv य्व lk ल्क lp ल्प lm ल्म ly ल्य
ll ल्ल lv ल्व lh ल्ह vn व्न vy व्य
vr व्र vv व्व śc श्च śn श्न śy श्य
śr श्र śl श्ल śv श्व śś श्श ṣṭ ष्ट
ṣṇ ष्ण ṣp ष्प ṣm ष्म ṣy ष्य ṣv ष्व
sk स्क st स्त sn स्न sp स्प sm स्म
sy स्य sr स्र sv स्व ss स्स hṇ ह्ण
hn ह्न hm ह्म hy ह्य hr ह्र hl ह्ल
hv ह्व ai ै au ौ kh ख gh घ
ch छ jh झ ṭh ठ ḍh ढ th थ
ph फ bh भ || ॥
a {} ā ा i ि ī ी u ु
ū ू ṛ ृ e े o ो ṃ ँ
ṁ ं ḥ ः k क g ग c च
j ज ñ ञ ṭ ट ḍ ड ṇ ण
t त d द ṅ ङ n न p प
b ब m म y य r र l ल
v व ś श ṣ ष s स h ह
0 ० 1 १ 2 २ 3 ३ 4 ४
5 ५ 6 ६ 7 ७ 8 ८ 9 ९
| ।
}
set str [string tolower $str]
set result ""
foreach word $str {
set a [IAST_2_Devanagari:word_start_end $word]
set a [string map $mappings $a ]
set result "$result $a"
}
return $result
}
#----------------------------------------
# DEMO BLOCK
#----------------------------------------
set str {
kṣipraṁ kṣepraṁ kāmaguṇeṣvatīva carataṁ kriḍāṁ yuvāṁ vindataṁ
mṛtyurnāsti na janma nārtijarase lokaḥ paro nāsti vaḥ|
puṇyāpuṇyaphalaṁ ca karmajanitaṁ nāstyatra hetuḥ kriyā
lābhāya vadatīha śākyatanayo mā śraddhayā gacchatam||10||
}
set txt [gnocl::text -baseFont {Gentium 12} -wrapMode word]
gnocl::window -child $txt -width 450 -height 350
$txt tag create devanagari -font {"Sanskrit 99" 14}
foreach line [split $str \n] {
$txt insert end [IAST_2_Devanagari $line]\n -tags devanagari
}
$txt insert end $str
