1 |
dpavlin |
237 |
|
2 |
|
|
package provide mlcm::lang 0.1 |
3 |
|
|
|
4 |
|
|
namespace eval mlcm::lang { |
5 |
|
|
|
6 |
|
|
array set _keys {} |
7 |
|
|
array set _dbs {} |
8 |
|
|
# default lang: en |
9 |
|
|
set _alang "" |
10 |
|
|
set _keydb "" |
11 |
|
|
set _stb "" |
12 |
|
|
|
13 |
|
|
# loads some defaults |
14 |
|
|
proc init {} { |
15 |
|
|
variable _stb |
16 |
|
|
set _stb [ openIsis ] |
17 |
|
|
$_stb add syspath /opt/openisis/db |
18 |
|
|
set lang "en" |
19 |
|
|
loadmap "" |
20 |
|
|
load $lang "" |
21 |
|
|
activate $lang |
22 |
|
|
} |
23 |
|
|
|
24 |
|
|
# loads a key -> value mapping for messages |
25 |
|
|
# @param stb db stub to be used |
26 |
|
|
# @param path db holding the (reverse) key value mappings |
27 |
|
|
# the mfn stands for the message id, tag 0 for the key |
28 |
|
|
proc loadmap { path } { |
29 |
|
|
variable _stb |
30 |
|
|
variable _keydb |
31 |
|
|
if { "" == $path } { |
32 |
|
|
set syspath [$_stb get .syspath ] |
33 |
|
|
set path "$syspath/msg/key" |
34 |
|
|
} |
35 |
|
|
$_stb req type open db $path |
36 |
|
|
set err [openIsis::errno $_stb] |
37 |
|
|
if { $err } { |
38 |
|
|
puts "WARNING: could not open key map db @ $path" |
39 |
|
|
return -1 |
40 |
|
|
} else { |
41 |
|
|
puts "opened key db on path $path" |
42 |
|
|
} |
43 |
|
|
set _keydb [ $_stb .res get db ] |
44 |
|
|
} |
45 |
|
|
|
46 |
|
|
# loads a message set for a specific language |
47 |
|
|
# @param stb db stub to be used |
48 |
|
|
# @param lang the language key to access the message set; |
49 |
|
|
# should be a two-letter language code |
50 |
|
|
# @param path db holding the message set; the message db |
51 |
|
|
# is compatible to the WinISIS style |
52 |
|
|
# @return 0 on success else the openisis error code |
53 |
|
|
proc load { lang path } { |
54 |
|
|
variable _stb |
55 |
|
|
variable _dbs |
56 |
|
|
|
57 |
|
|
# no db path given; revert to default |
58 |
|
|
if { "" == $path } { |
59 |
|
|
set syspath [$_stb get .syspath ] |
60 |
|
|
set path "$syspath/msg/ms$lang" |
61 |
|
|
} |
62 |
|
|
|
63 |
|
|
puts "using msgdb path: $path for lang $lang" |
64 |
|
|
|
65 |
|
|
$_stb req type open db $path |
66 |
|
|
set err [openIsis::errno $_stb] |
67 |
|
|
|
68 |
|
|
if { $err } { return $err } |
69 |
|
|
|
70 |
|
|
openIsis::prnres "open $path" $_stb |
71 |
|
|
set _dbs($lang) $path |
72 |
|
|
} |
73 |
|
|
|
74 |
|
|
# activates a given lang if previously loaded |
75 |
|
|
proc activate { lang } { |
76 |
|
|
variable _alang |
77 |
|
|
variable _dbs |
78 |
|
|
set db "" |
79 |
|
|
if { [ catch { set db $_dbs($lang) } ] } { |
80 |
|
|
puts "Language $lang not loaded" |
81 |
|
|
} else { |
82 |
|
|
set _alang "$lang" |
83 |
|
|
puts "Language $lang now active" |
84 |
|
|
} |
85 |
|
|
} |
86 |
|
|
|
87 |
|
|
# returns a raw msg |
88 |
|
|
proc rawMsg { key } { |
89 |
|
|
variable _stb |
90 |
|
|
variable _alang |
91 |
|
|
variable _dbs |
92 |
|
|
set id [ _lookup $key ] |
93 |
|
|
if { $id } { |
94 |
|
|
incr id -1 |
95 |
|
|
set msg [ _xlate $id ] |
96 |
|
|
if { "" != $msg } { return $msg } |
97 |
|
|
} |
98 |
|
|
return $key |
99 |
|
|
} |
100 |
|
|
|
101 |
|
|
# returns a msg w/o any appended command |
102 |
|
|
proc strippedMsg { key } { |
103 |
|
|
return [_cleanCmd [rawMsg $key ]] |
104 |
|
|
} |
105 |
|
|
|
106 |
|
|
# returns a completely cleaned msg |
107 |
|
|
proc msg { key } { |
108 |
|
|
return [_cleanAmp [strippedMsg $key]] |
109 |
|
|
} |
110 |
|
|
|
111 |
|
|
# looks up a key from the |
112 |
|
|
proc _lookup { key } { |
113 |
|
|
variable _stb |
114 |
|
|
variable _dbs |
115 |
|
|
variable _keydb |
116 |
|
|
$_stb req type query mode 0 key $key db $_keydb |
117 |
|
|
set size [$_stb .res get size] |
118 |
|
|
if { 1 != $size } { return 0 } |
119 |
|
|
set id [$_stb .res get rowid] |
120 |
|
|
return $id |
121 |
|
|
} |
122 |
|
|
|
123 |
|
|
# translates a message id to the given lang |
124 |
|
|
proc _xlate { id } { |
125 |
|
|
variable _stb |
126 |
|
|
variable _alang |
127 |
|
|
variable _dbs |
128 |
|
|
|
129 |
|
|
set mfn [ expr {$id/10+1} ] |
130 |
|
|
set tag [ expr {[expr {$id+1}]%10} ] |
131 |
|
|
$_stb req type read rowid $mfn db $_dbs($_alang) |
132 |
|
|
set size [$_stb .res get size] |
133 |
|
|
if { ! $size } { return "" } |
134 |
|
|
set msg [lindex [$_stb .res .rec get $tag ] 0 ] |
135 |
|
|
return $msg |
136 |
|
|
} |
137 |
|
|
|
138 |
|
|
# cleans msg from appended command |
139 |
|
|
proc _cleanCmd msg { |
140 |
|
|
regsub {\[.*\]} $msg {} msg |
141 |
|
|
return $msg |
142 |
|
|
} |
143 |
|
|
|
144 |
|
|
# cleans msg from ampersands |
145 |
|
|
proc _cleanAmp msg { |
146 |
|
|
regsub -all {\&} $msg {} msg |
147 |
|
|
return $msg |
148 |
|
|
} |
149 |
|
|
|
150 |
|
|
} |