86 lines
1.8 KiB
Tcl
86 lines
1.8 KiB
Tcl
|
||
######################################################
|
||
# Tcl/Tk Project Manager
|
||
# Distributed under GNU Public License
|
||
# Author: Serge Kalinin banzaj28@yandex.ru
|
||
# Copyright (c) "https://nuk-svk.ru"
|
||
# 2018, https://bitbucket.org/svk28/projman
|
||
######################################################
|
||
#
|
||
# Transliterate cyrilic symbols into latins
|
||
#
|
||
######################################################
|
||
proc Translit {line} {
|
||
return [
|
||
string map {
|
||
"А" "A"
|
||
"Б" "B"
|
||
"В" "V"
|
||
"Г" "G"
|
||
"Д" "D"
|
||
"Е" "E"
|
||
"Ё" "E"
|
||
"Ж" "ZH"
|
||
"З" "Z"
|
||
"И" "I"
|
||
"Й" "J"
|
||
"К" "K"
|
||
"Л" "L"
|
||
"М" "M"
|
||
"Н" "N"
|
||
"О" "O"
|
||
"П" "P"
|
||
"Р" "R"
|
||
"С" "S"
|
||
"Т" "T"
|
||
"У" "U"
|
||
"Ф" "F"
|
||
"Х" "H"
|
||
"Ч" "CH"
|
||
"Ш" "SH"
|
||
"Щ" "SCH"
|
||
"Ь" ""
|
||
"Ы" "Y"
|
||
"Ъ" ""
|
||
"Э" "E"
|
||
"Ю" "U"
|
||
"Я" "IA"
|
||
"а" "a"
|
||
"б" "b"
|
||
"в" "v"
|
||
"г" "g"
|
||
"д" "d"
|
||
"е" "e"
|
||
"ё" "e"
|
||
"ж" "zh"
|
||
"з" "z"
|
||
"и" "i"
|
||
"й" "j"
|
||
"к" "k"
|
||
"л" "l"
|
||
"м" "m"
|
||
"н" "n"
|
||
"о" "o"
|
||
"п" "p"
|
||
"р" "r"
|
||
"с" "s"
|
||
"т" "t"
|
||
"у" "u"
|
||
"ф" "f"
|
||
"х" "h"
|
||
"ц" "c"
|
||
"ч" "ch"
|
||
"ш" "sh"
|
||
"щ" "sch"
|
||
"ь" ""
|
||
"ы" "y"
|
||
"ъ" ""
|
||
"э" "e"
|
||
"ю" "u"
|
||
"я" "ia"
|
||
} $line
|
||
]
|
||
}
|
||
|
||
|