blob: 5d32938cdfddcb58149e307f6a7389e8789f1aef (
plain)
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
|
say english "English"
say francais "Français"
say deutsch "Deutsch"
say catala "Català"
say espanol "Español"
say portugues "Português"
say brasileiro "Português do Brasil"
say italiano "Italiano"
say euskara "Euskara"
say bokmal "Norsk Bokmċl"
say dansk "Dansk"
say nederlands "Nederlands"
say polski "Polski"
say turkce "Türkçe"
# those were made using:
# iconv -f utf-8 -t ucs-2 | od -tx2 -An | sed 's/ /\\u/g'
say russkij "\u0420\u0443\u0441\u0441\u043a\u0438\u0439"
say chinese "\u4e2d\u6587"
say nihongo "\u65e5\u672c\u8a9e"
set ::langoptions {
english francais deutsch catala espanol portugues brasileiro
italiano euskara bokmal dansk nederlands turkce polski russkij chinese nihongo
}
proc figure_out_language {language} {
switch -regexp -- $language {
^(en|english)$ {list iso8859-1 english}
^(fr|francais)$ {list iso8859-1 francais}
^(de|deutsch)$ {list iso8859-1 deutsch}
^(ca|catala)$ {list iso8859-1 catala}
^(es|espanol)$ {list iso8859-1 espanol}
^(pt|portugues)$ {list iso8859-1 portugues}
^(it|italiano)$ {list iso8859-1 italiano}
^(nb|bokmal)$ {list iso8859-1 bokmal}
^(ch|chinese)$ {list utf-8 chinese}
^(eu|euskara)$ {list iso8859-1 euskara}
^(eo|esperanto)$ {list utf-8 esperanto}
^(pl|polski)$ {list utf-8 polski}
^(dk|dansk)$ {list iso8859-1 dansk}
^(ja|nihongo)$ {list utf-8 nihongo}
^(br|brasileiro)$ {list iso8859-1 brasileiro}
^(tr|turkce)$ {list utf-8 turkce}
^(nl|nederlands)$ {list iso8859-1 nederlands}
^(ru|russkij)$ {list utf-8 russkij}
default {error "unknown language: $language"}
}
}
|
