summaryrefslogtreecommitdiffstats
path: root/locale.inc
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-06-07 18:54:11 +0000
committerThierry Vignaud <tv@mandriva.org>2007-06-07 18:54:11 +0000
commit534f2f4437093bd78411126ef45de41fc6b93bf3 (patch)
tree1a9c1e259e6f2495ebcacf3cbd8cb7d3fdaaac2a /locale.inc
parent92072c3be58f5c77ff0fecdaf6617fe6fa4120e1 (diff)
downloadbootloader-theme-534f2f4437093bd78411126ef45de41fc6b93bf3.tar
bootloader-theme-534f2f4437093bd78411126ef45de41fc6b93bf3.tar.gz
bootloader-theme-534f2f4437093bd78411126ef45de41fc6b93bf3.tar.bz2
bootloader-theme-534f2f4437093bd78411126ef45de41fc6b93bf3.tar.xz
bootloader-theme-534f2f4437093bd78411126ef45de41fc6b93bf3.zip
reimport my latest checkout
Diffstat (limited to 'locale.inc')
-rw-r--r--locale.inc154
1 files changed, 154 insertions, 0 deletions
diff --git a/locale.inc b/locale.inc
new file mode 100644
index 0000000..e50d4d7
--- /dev/null
+++ b/locale.inc
@@ -0,0 +1,154 @@
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+%
+% Handle translations.
+%
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Set language.
+%
+% ( locale ) ==> ( true|false )
+%
+/setlang {
+ config.lang over eq { pop false return } if
+
+ /config.lang exch def
+
+ /help.messages .undef def
+
+ translation.texts {
+ translation.texts dup { free } forall free
+ /translation.texts .undef def
+ } if
+
+ findtexts
+
+ true
+} def
+
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Set keyboard map.
+%
+% ( locale ) ==> ( )
+%
+/setkeymap {
+ config.keymap.locale over eq { pop false return } if
+
+ /config.keymap.locale exch def
+
+ keymaps {
+ dup .km.locale get config.keymap.locale eq {
+ .km.map get /config.keymap exch def exit
+ } { pop } ifelse
+ } forall
+
+} def
+
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Find texts for current language.
+%
+% ( ) ==> ( )
+%
+/findtexts {
+ texts.file free /texts.file .undef def
+ 16 string dup config.lang "%s.tr" 2 index sprintf findfile exch free
+ dup .undef eq {
+ config.lang length 2 gt {
+ pop 16 string
+ dup config.lang 1 get config.lang 0 get "%c%c.tr" 3 index sprintf findfile exch free
+ dup {
+ /config.lang 2 string
+ config.lang 1 get config.lang 0 get "%c%c" 3 index sprintf
+ def
+ } if
+ } if
+ } if
+ dup .undef eq { pop "en.tr" findfile } if
+ /texts.file over def
+ dup .undef eq { pop 0 cvp } if
+ cvs
+ /ft.len over cvp length def
+ /ft.str exch def
+ /ft.pos 0 def
+
+ texts {
+ ft.pos ft.str length add ft.len lt {
+ ft.str def
+ /ft.str ft.str dup length 1 add /ft.pos over ft.pos add def add def
+ } {
+ "No Texts!" def
+ } ifelse
+ } forall
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Translate menu entry.
+%
+% ( text ) ==> ( text )
+%
+/translate {
+ translations.init
+
+ translation.texts length 2 lt { return } if
+
+ 0 2 translation.texts length -2 and 1 sub {
+ translation.texts over get 2 index eq {
+ 1 add translation.texts exch get exch pop exit
+ } { pop } ifelse
+ } for
+
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Read menu translations.
+%
+% ( ) ==> ( )
+%
+/translations.init {
+ translation.texts { return } if
+
+ /translation.texts [ ] def
+
+ config.lang .undef eq { return } if
+
+ tr.tmp .undef eq { /tr.tmp 64 string def } if
+
+ config.lang "translations.%s" tr.tmp sprintf
+
+ tr.tmp findfile dup {
+
+ /la.tmp.datalen over length def
+ /la.tmp.str exch cvs def
+
+ la.tmp.datalen 0 eq { return } if
+ la.tmp.str la.tmp.datalen 1 sub get '\n' ne { return } if
+
+ '\n' seteotchar
+
+ /translation.texts [
+
+ /la.tmp.len 0 def
+
+ {
+ la.tmp.str la.tmp.len add strdup
+ dup dup length 0 put
+ /la.tmp.len over length 1 add la.tmp.len add def
+
+ la.tmp.len la.tmp.datalen ge { exit } if
+
+ } loop
+
+ ] def
+
+ 0 seteotchar
+ } { pop } ifelse
+
+} def
+