From 8dbec761cf858ea65900c8a094599857208d8c3a Mon Sep 17 00:00:00 2001 From: "N.N." Date: Tue, 5 Jan 2010 22:49:36 +0000 Subject: svn path=/trunk/; revision=12907 --- desiredata/src/locale/index.tcl | 51 ----------------------------------------- 1 file changed, 51 deletions(-) delete mode 100644 desiredata/src/locale/index.tcl (limited to 'desiredata/src/locale/index.tcl') diff --git a/desiredata/src/locale/index.tcl b/desiredata/src/locale/index.tcl deleted file mode 100644 index 5d32938c..00000000 --- a/desiredata/src/locale/index.tcl +++ /dev/null @@ -1,51 +0,0 @@ -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"} - } -} -- cgit v1.2.1