2 * CDE - Common Desktop Environment
4 * Copyright (c) 1993-2012, The Open Group. All rights reserved.
6 * These libraries and programs are free software; you can
7 * redistribute them and/or modify them under the terms of the GNU
8 * Lesser General Public License as published by the Free Software
9 * Foundation; either version 2 of the License, or (at your option)
12 * These libraries and programs are distributed in the hope that
13 * they will be useful, but WITHOUT ANY WARRANTY; without even the
14 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
15 * PURPOSE. See the GNU Lesser General Public License for more
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with these libraries and programs; if not, write
20 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
21 * Floor, Boston, MA 02110-1301 USA
23 /* $XConsortium: text.c /main/5 1996/03/25 13:13:06 ageorge $ */
26 * Contains all the text initializationf for the Calulator *
28 * (c) Copyright 1993, 1994 Hewlett-Packard Company *
29 * (c) Copyright 1993, 1994 International Business Machines Corp. *
30 * (c) Copyright 1993, 1994 Sun Microsystems, Inc. *
31 * (c) Copyright 1993, 1994 Novell, Inc. *
37 #include "ds_common.h"
39 extern struct button buttons[] ; /* Calculator button values. */
40 extern struct button mode_buttons[] ; /* Special "mode" buttons. */
41 extern struct menu cmenus[] ; /* Calculator menus. */
42 extern struct menu_entry menu_entries[] ; /* All the menu strings. */
44 extern Vars v ; /* Calctool variables and options. */
46 void init_mess P(()) ;
48 /* The following are all the strings used by the dtcalc program.
49 * They are initialized in init_text() to the local language equivalents.
52 char *base_str[MAXBASES] ;
53 char *calc_res[MAXRESOURCES] ;
54 char *cmdstr[MAXCMDS] ;
55 char *dtype_str[MAXDISPMODES] ;
56 char *lstrs[MAXLABELS] ;
58 char *mode_str[MAXMODES] ;
59 char *mpstrs[MAXMPERRS] ;
61 char *pstrs[MAXPSTRS] ;
62 char *ttype_str[MAXTRIGMODES] ;
63 char *ustrs[MAXUSAGE] ;
64 char *vstrs[MAXVMESS] ;
68 init_cmdline_opts(void) /* Initialize command line option strings. */
70 cmdstr[(int) CMD_ACC] = "-a" ;
71 cmdstr[(int) CMD_MODE] = "-m" ;
72 cmdstr[(int) CMD_BASE] = "-b" ;
73 cmdstr[(int) CMD_TRIG] = "-trig" ;
74 cmdstr[(int) CMD_DISP] = "-notation" ;
75 cmdstr[(int) CMD_MENU_BAR] = "-no_menu_bar" ;
76 cmdstr[(int) CMD_SESSION] = "-session" ;
81 init_text(void) /* Setup text strings depending upon language. */
86 /* Some notes for translators:
88 * Text in the label strings below, should be left justified. It will
89 * automatically be centre justified in the buttons, but various
90 * calculations depend on the text starting on the left.
92 * The original English V3 version was written with fixed (upto) four
93 * character button labels. I've tried to extend this to allow any sized
94 * labels, however the following conditions apply:
96 * - If the label won't fit in the button, then as much as possible will be
97 * shown, with the last character being '>'. If you enlarge the calculator,
98 * probably more of the label will show.
100 * - If the last character of the label is a '.', and this is not the first
101 * character of the label (ie, the numeric point label), then dtcalc
102 * knows that this signifies that this label should have two more '.'
103 * characters appended to it (ie, "Mem." becomes "Mem...").
105 * - If a dtcalc button has a menu item glyph associated with it, the
106 * width of this glyph is taken into consideration, and the amount of
107 * the label that can be displayed is adjusted accordingly.
111 read_str(&buttons[i++].str, LGET("")) ; /* Row 1.*/
112 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 5, "Functions"))) ;
113 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 6, "Constants"))) ;
114 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 7, "Keys"))) ;
116 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 8, "Int"))) ; /* Row 2. */
117 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 9, "Frac"))) ;
118 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 10, "Abs"))) ;
119 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 11, "Exp"))) ;
121 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 12, "Accuracy"))) ; /* Row 3.*/
122 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 13, "Store"))) ;
123 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 14, "Recall"))) ;
124 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 15, "Exchange"))) ;
126 read_str(&buttons[i++].str, LGET("")) ; /* Row 4. */
127 read_str(&buttons[i++].str, LGET("")) ;
128 read_str(&buttons[i++].str, LGET("")) ;
129 read_str(&buttons[i++].str, LGET("")) ;
131 read_str(&buttons[i++].str, LGET("")) ; /* Row 5. */
132 read_str(&buttons[i++].str, LGET("")) ;
133 read_str(&buttons[i++].str, LGET("")) ;
134 read_str(&buttons[i++].str, LGET("")) ;
136 read_str(&buttons[i++].str, LGET("")) ; /* Row 6. */
137 read_str(&buttons[i++].str, LGET("")) ;
138 read_str(&buttons[i++].str, LGET("")) ;
139 read_str(&buttons[i++].str, LGET("")) ;
141 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 16, "1/x"))) ; /* Row 7. */
142 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 17, "x^2"))) ;
143 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 19, "Sqrt"))) ;
144 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 18, "%"))) ;
146 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 20, "("))) ; /* Row 8. */
147 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 21, ")"))) ;
148 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 22, "Bsp"))) ;
149 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 23, "Clr"))) ;
151 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 24, "D"))) ; /* Row 9. */
152 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 25, "E"))) ;
153 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 26, "F"))) ;
154 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 27, "+/-"))) ;
156 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 28, "A"))) ; /* Row 10. */
157 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 29, "B"))) ;
158 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 30, "C"))) ;
159 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 31, "X"))) ;
161 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 32, "7"))) ; /* Row 11. */
162 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 33, "8"))) ;
163 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 34, "9"))) ;
164 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 35, "/"))) ;
166 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 36, "4"))) ; /* Row 12. */
167 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 37, "5"))) ;
168 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 38, "6"))) ;
169 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 39, "-"))) ;
171 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 40, "1"))) ; /* Row 13. */
172 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 41, "2"))) ;
173 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 42, "3"))) ;
174 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 43, "+"))) ;
176 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 44, "0"))) ; /* Row 14. */
177 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 45, "."))) ;
178 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 46, "="))) ;
179 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 47, "Quit"))) ;
181 /* the three extra defs */
182 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 48, "Base"))) ;
183 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 49, "Disp"))) ;
184 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 50, "Mode"))) ;
185 read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 51, "Trig"))) ;
188 read_str(&buttons[i++].str2, LGET("")) ;
189 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 52, "F - Funcs"))) ;
190 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 53, "# - Const"))) ;
191 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 54, "k - Keys"))) ;
193 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 55, "I - Int"))) ;
196 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 56, "^f - Frac"))) ;
199 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 57, "^u - Abs"))) ;
201 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 58, "E - Exp"))) ;
203 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 59, "A - Acc"))) ;
204 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 60, "S - Sto"))) ;
205 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 61, "R - Rcl"))) ;
206 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 62, "X - Xchg"))) ;
208 read_str(&buttons[i++].str2, LGET("")) ;
209 read_str(&buttons[i++].str2, LGET("")) ;
210 read_str(&buttons[i++].str2, LGET("")) ;
211 read_str(&buttons[i++].str2, LGET("")) ;
213 read_str(&buttons[i++].str2, LGET("")) ;
214 read_str(&buttons[i++].str2, LGET("")) ;
215 read_str(&buttons[i++].str2, LGET("")) ;
216 read_str(&buttons[i++].str2, LGET("")) ;
218 read_str(&buttons[i++].str2, LGET("")) ;
219 read_str(&buttons[i++].str2, LGET("")) ;
220 read_str(&buttons[i++].str2, LGET("")) ;
221 read_str(&buttons[i++].str2, LGET("")) ;
223 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 63, "r - 1/x"))) ;
224 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 64, "@ - x^2"))) ;
225 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 66, "s - Sqrt"))) ;
226 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 65, "%"))) ;
228 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 67, "("))) ;
229 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 68, ")"))) ;
232 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 69, "^h - Bsp"))) ;
237 if(v->keybdID == HIL_ITF_KBD)
238 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 512, "clr disp"))) ;
240 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 70, "del - Clr"))) ;
242 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 70, "del - Clr"))) ;
246 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 71, "d"))) ;
247 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 72, "e"))) ;
248 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 73, "f"))) ;
249 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 74, "C - +/-"))) ;
251 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 75, "a"))) ;
252 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 76, "b"))) ;
253 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 77, "c"))) ;
254 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 78, "x"))) ;
256 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 79, "7"))) ;
257 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 80, "8"))) ;
258 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 81, "9"))) ;
259 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 82, "/"))) ;
261 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 83, "4"))) ;
262 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 84, "5"))) ;
263 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 85, "6"))) ;
264 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 86, "-"))) ;
266 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 87, "1"))) ;
267 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 88, "2"))) ;
268 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 89, "3"))) ;
269 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 90, "+"))) ;
271 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 91, "0"))) ;
272 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 92, "."))) ;
273 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 93, "="))) ;
274 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 94, "q - Quit"))) ;
276 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 95, "B"))) ;
277 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 96, "D"))) ;
278 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 97, "M"))) ;
279 read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 98, "T"))) ;
282 get_key_val(&buttons[i++].value, LGET("")) ;
283 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 452, "F"))) ;
284 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 453, "#"))) ;
285 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 454, "k"))) ;
287 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 455, "I"))) ;
290 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 456, "\006"))) ;
293 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 457, "\025"))) ;
295 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 458, "E"))) ;
297 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 459, "A"))) ;
298 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 460, "S"))) ;
299 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 461, "R"))) ;
300 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 462, "X"))) ;
302 get_key_val(&buttons[i++].value, LGET("")) ;
303 get_key_val(&buttons[i++].value, LGET("")) ;
304 get_key_val(&buttons[i++].value, LGET("")) ;
305 get_key_val(&buttons[i++].value, LGET("")) ;
307 get_key_val(&buttons[i++].value, LGET("")) ;
308 get_key_val(&buttons[i++].value, LGET("")) ;
309 get_key_val(&buttons[i++].value, LGET("")) ;
310 get_key_val(&buttons[i++].value, LGET("")) ;
312 get_key_val(&buttons[i++].value, LGET("")) ;
313 get_key_val(&buttons[i++].value, LGET("")) ;
314 get_key_val(&buttons[i++].value, LGET("")) ;
315 get_key_val(&buttons[i++].value, LGET("")) ;
317 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 463, "r"))) ;
318 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 464, "@"))) ;
319 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 466, "s"))) ;
320 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 465, "%"))) ;
322 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 67, "("))) ;
323 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 68, ")"))) ;
326 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 467, "\010"))) ;
330 if(v->keybdID == HIL_ITF_KBD)
331 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 513, "\013"))) ;
333 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 468, "\177"))) ;
335 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 468, "\177"))) ;
339 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 469, "d"))) ;
340 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 470, "e"))) ;
341 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 471, "f"))) ;
342 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 472, "C"))) ;
344 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 473, "a"))) ;
345 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 474, "b"))) ;
346 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 475, "c"))) ;
347 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 476, "x"))) ;
349 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 79, "7"))) ;
350 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 80, "8"))) ;
351 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 81, "9"))) ;
352 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 82, "/"))) ;
354 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 83, "4"))) ;
355 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 84, "5"))) ;
356 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 85, "6"))) ;
357 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 86, "-"))) ;
359 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 87, "1"))) ;
360 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 88, "2"))) ;
361 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 89, "3"))) ;
362 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 90, "+"))) ;
364 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 91, "0"))) ;
365 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 92, "."))) ;
366 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 93, "="))) ;
367 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 477, "q"))) ;
369 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 95, "B"))) ;
370 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 96, "D"))) ;
371 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 97, "M"))) ;
372 get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 98, "T"))) ;
374 calc_res[(int) R_ACCURACY] = DGET("accuracy") ;
375 calc_res[(int) R_BASE] = DGET("base") ;
376 calc_res[(int) R_DISPLAY] = DGET("display") ;
377 calc_res[(int) R_MODE] = DGET("mode") ;
378 calc_res[(int) R_REGS] = DGET("showRegisters") ;
379 calc_res[(int) R_TRIG] = DGET("trigType") ;
380 calc_res[(int) R_BEEP] = DGET("beep") ;
381 calc_res[(int) R_ICON] = DGET("iconify") ;
382 calc_res[(int) R_WORKSPACE] = DGET("workspace") ;
383 calc_res[(int) R_WIDTH] = DGET("width") ;
384 calc_res[(int) R_HEIGHT] = DGET("height") ;
385 calc_res[(int) R_X] = DGET("x") ;
386 calc_res[(int) R_Y] = DGET("y") ;
387 calc_res[(int) R_DISPLAYED] = DGET("displayed") ;
388 calc_res[(int) R_REG0] = DGET("register0") ;
389 calc_res[(int) R_REG1] = DGET("register1") ;
390 calc_res[(int) R_REG2] = DGET("register2") ;
391 calc_res[(int) R_REG3] = DGET("register3") ;
392 calc_res[(int) R_REG4] = DGET("register4") ;
393 calc_res[(int) R_REG5] = DGET("register5") ;
394 calc_res[(int) R_REG6] = DGET("register6") ;
395 calc_res[(int) R_REG7] = DGET("register7") ;
396 calc_res[(int) R_REG8] = DGET("register8") ;
397 calc_res[(int) R_REG9] = DGET("register9") ;
398 calc_res[(int) R_FREG0] = DGET("fregister0") ;
399 calc_res[(int) R_FREG1] = DGET("fregister1") ;
400 calc_res[(int) R_FREG2] = DGET("fregister2") ;
401 calc_res[(int) R_FREG3] = DGET("fregister3") ;
402 calc_res[(int) R_FREG4] = DGET("fregister4") ;
403 calc_res[(int) R_FREG5] = DGET("fregister5") ;
404 calc_res[(int) R_MENUBAR] = DGET("postMenuBar") ;
405 calc_res[(int) R_KEYS] = DGET("keys") ;
407 STRCPY(v->con_names[0], LGET(GETMESSAGE(3, 119, "kilometers per hour <=> miles per hour."))) ;
408 STRCPY(v->con_names[1], LGET(GETMESSAGE(3, 120, "square root of 2."))) ;
409 STRCPY(v->con_names[2], LGET(GETMESSAGE(3, 121, "e."))) ;
410 STRCPY(v->con_names[3], LGET(GETMESSAGE(3, 122, "pi."))) ;
411 STRCPY(v->con_names[4], LGET(GETMESSAGE(3, 123, "centimeters <=> inch."))) ;
412 STRCPY(v->con_names[5], LGET(GETMESSAGE(3, 124, "degrees in a radian."))) ;
413 STRCPY(v->con_names[6], LGET(GETMESSAGE(3, 125, "2 ^ 20."))) ;
414 STRCPY(v->con_names[7], LGET(GETMESSAGE(3, 126, "grams <=> ounce."))) ;
415 STRCPY(v->con_names[8], LGET(GETMESSAGE(3, 127, "kilojoules <=> British thermal units."))) ;
416 STRCPY(v->con_names[9], LGET(GETMESSAGE(3, 128, "cubic centimeters <=> cubic inches."))) ;
418 /* Keyboard equivalents for the dtcalc menu entries. */
421 /* 00 */ get_key_val(&menu_entries[i++].val, LGET("0")) ; /* ACC */
422 /* 01 */ get_key_val(&menu_entries[i++].val, LGET("1")) ;
423 /* 02 */ get_key_val(&menu_entries[i++].val, LGET("2")) ;
424 /* 03 */ get_key_val(&menu_entries[i++].val, LGET("3")) ;
425 /* 04 */ get_key_val(&menu_entries[i++].val, LGET("4")) ;
426 /* 05 */ get_key_val(&menu_entries[i++].val, LGET("5")) ;
427 /* 06 */ get_key_val(&menu_entries[i++].val, LGET("6")) ;
428 /* 07 */ get_key_val(&menu_entries[i++].val, LGET("7")) ;
429 /* 08 */ get_key_val(&menu_entries[i++].val, LGET("8")) ;
430 /* 09 */ get_key_val(&menu_entries[i++].val, LGET("9")) ;
431 /* 10 */ get_key_val(&menu_entries[i++].val, LGET("0")) ; /* EXCH, RCL, STO */
432 /* 11 */ get_key_val(&menu_entries[i++].val, LGET("1")) ;
433 /* 12 */ get_key_val(&menu_entries[i++].val, LGET("2")) ;
434 /* 13 */ get_key_val(&menu_entries[i++].val, LGET("3")) ;
435 /* 14 */ get_key_val(&menu_entries[i++].val, LGET("4")) ;
436 /* 15 */ get_key_val(&menu_entries[i++].val, LGET("5")) ;
437 /* 16 */ get_key_val(&menu_entries[i++].val, LGET("6")) ;
438 /* 17 */ get_key_val(&menu_entries[i++].val, LGET("7")) ;
439 /* 18 */ get_key_val(&menu_entries[i++].val, LGET("8")) ;
440 /* 19 */ get_key_val(&menu_entries[i++].val, LGET("9")) ;
441 /* 35 */ get_key_val(&menu_entries[i++].val, LGET("b")) ; /* BASE */
442 /* 36 */ get_key_val(&menu_entries[i++].val, LGET("o")) ;
443 /* 37 */ get_key_val(&menu_entries[i++].val, LGET("d")) ;
444 /* 38 */ get_key_val(&menu_entries[i++].val, LGET("h")) ;
445 /* 39 */ get_key_val(&menu_entries[i++].val, LGET("e")) ; /* Display type. */
446 /* 40 */ get_key_val(&menu_entries[i++].val, LGET("f")) ;
447 /* 41 */ get_key_val(&menu_entries[i++].val, LGET("s")) ;
448 /* 42 */ get_key_val(&menu_entries[i++].val, LGET("d")) ; /* Trig. type. */
449 /* 43 */ get_key_val(&menu_entries[i++].val, LGET("g")) ;
450 /* 44 */ get_key_val(&menu_entries[i++].val, LGET("r")) ;
451 /* 45 */ get_key_val(&menu_entries[i++].val, LGET("b")) ; /* MODE */
452 /* 46 */ get_key_val(&menu_entries[i++].val, LGET("f")) ;
453 /* 47 */ get_key_val(&menu_entries[i++].val, LGET("l")) ;
454 /* 48 */ get_key_val(&menu_entries[i++].val, LGET("s")) ;
455 /* 49 */ get_key_val(&menu_entries[i++].val, LGET("\020")) ;
459 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 208, "Term"))) ;
460 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 209, "i%Yr"))) ;
461 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 210, "Pv"))) ;
462 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 211, "Pmt"))) ;
463 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 212, "Fv"))) ;
464 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 515, "P/YR"))) ;
465 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 213, "CLRfregs"))) ;
466 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 214, "Ctrm"))) ;
467 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 215, "Ddb"))) ;
468 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 216, "Sln"))) ;
469 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 217, "Syd"))) ;
470 read_str(&mode_buttons[i++].str, " ") ;
471 read_str(&mode_buttons[i++].str, " ") ;
472 read_str(&mode_buttons[i++].str, " ") ;
473 read_str(&mode_buttons[i++].str, " ") ;
474 read_str(&mode_buttons[i++].str, " ") ;
477 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 218, "<"))) ;
478 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 219, ">"))) ;
479 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 220, "&16"))) ;
480 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 221, "&32"))) ;
481 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 222, "Or"))) ;
482 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 223, "And"))) ;
483 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 224, "Not"))) ;
484 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 225, "Xor"))) ;
485 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 226, "Xnor"))) ;
486 read_str(&mode_buttons[i++].str, " ") ;
487 read_str(&mode_buttons[i++].str, " ") ;
488 read_str(&mode_buttons[i++].str, " ") ;
489 read_str(&mode_buttons[i++].str, " ") ;
490 read_str(&mode_buttons[i++].str, " ") ;
491 read_str(&mode_buttons[i++].str, " ") ;
492 read_str(&mode_buttons[i++].str, " ") ;
495 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 228, "Inv"))) ;
496 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 227, "Hyp"))) ;
497 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 229, "e^x"))) ;
498 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 230, "10^x"))) ;
499 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 231, "y^x"))) ;
500 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 232, "x!"))) ;
501 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 233, "Cos"))) ;
502 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 234, "Sin"))) ;
503 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 235, "Tan"))) ;
504 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 236, "Ln"))) ;
505 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 237, "Log"))) ;
506 read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 238, "Rand"))) ;
507 read_str(&mode_buttons[i++].str, " ") ;
508 read_str(&mode_buttons[i++].str, " ") ;
509 read_str(&mode_buttons[i++].str, " ") ;
510 read_str(&mode_buttons[i++].str, " ") ;
512 /* Keyboard equivalents for the three dtcalc mode window buttons. */
516 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 239, "T - Term"))) ;
518 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 240, "^r - i%Yr"))) ;
519 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 241, "p - Pv"))) ;
520 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 242, "P - Pmt"))) ;
521 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 243, "v - Fv"))) ;
522 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 516, "y - P/YR"))) ;
523 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 244, "L - Clrgs"))) ;
525 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 245, "^t - Ctrm"))) ;
527 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 246, "^d - Ddb")));
529 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 247, "^s - Sln")));
531 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 248, "^y - Syd")));
532 read_str(&mode_buttons[i++].str2, " ") ;
533 read_str(&mode_buttons[i++].str2, " ") ;
534 read_str(&mode_buttons[i++].str2, " ") ;
535 read_str(&mode_buttons[i++].str2, " ") ;
536 read_str(&mode_buttons[i++].str2, " ") ;
539 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 249, "<"))) ;
540 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 250, ">"))) ;
541 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 251, "[ - &16"))) ;
542 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 252, "] - &32"))) ;
543 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 253, "| - Or"))) ;
544 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 254, "& - And"))) ;
545 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 255, "~ - Not"))) ;
546 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 256, "^ - Xor"))) ;
547 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 257, "n - Xnor"))) ;
548 read_str(&mode_buttons[i++].str2, " ") ;
549 read_str(&mode_buttons[i++].str2, " ") ;
550 read_str(&mode_buttons[i++].str2, " ") ;
551 read_str(&mode_buttons[i++].str2, " ") ;
552 read_str(&mode_buttons[i++].str2, " ") ;
553 read_str(&mode_buttons[i++].str2, " ") ;
554 read_str(&mode_buttons[i++].str2, " ") ;
557 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 259, "i - Inv"))) ;
558 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 258, "h - Hyp"))) ;
559 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 260, "{ - e^x"))) ;
560 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 261, "} - 10^x"))) ;
561 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 262, "y - y^x"))) ;
562 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 263, "! - x!"))) ;
564 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 264, "^c - Cos")));
566 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 265, "^s - Sin")));
568 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 266, "^t - Tan")));
569 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 267, "N - Ln"))) ;
570 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 268, "G - Log"))) ;
571 read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 269, "? - Rand"))) ;
572 read_str(&mode_buttons[i++].str2, " ") ;
573 read_str(&mode_buttons[i++].str2, " ") ;
574 read_str(&mode_buttons[i++].str2, " ") ;
575 read_str(&mode_buttons[i++].str2, " ") ;
579 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 480, "T"))) ;
581 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 481, "\022"))) ;
582 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 482, "p"))) ;
583 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 483, "P"))) ;
584 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 484, "v"))) ;
585 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(5, 517, "y"))) ;
586 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 485, "L"))) ;
588 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 486, "\024"))) ;
590 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 487, "\004"))) ;
592 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 488, "\023"))) ;
594 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 489, "\031"))) ;
595 get_key_val(&mode_buttons[i++].value, " ") ;
596 get_key_val(&mode_buttons[i++].value, " ") ;
597 get_key_val(&mode_buttons[i++].value, " ") ;
598 get_key_val(&mode_buttons[i++].value, " ") ;
599 get_key_val(&mode_buttons[i++].value, " ") ;
602 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 249, "<"))) ;
603 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 250, ">"))) ;
604 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 490, "["))) ;
605 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 491, "]"))) ;
606 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 492, "|"))) ;
607 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 493, "&"))) ;
608 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 494, "~"))) ;
609 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 495, "^"))) ;
610 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 496, "n"))) ;
611 get_key_val(&mode_buttons[i++].value, " ") ;
612 get_key_val(&mode_buttons[i++].value, " ") ;
613 get_key_val(&mode_buttons[i++].value, " ") ;
614 get_key_val(&mode_buttons[i++].value, " ") ;
615 get_key_val(&mode_buttons[i++].value, " ") ;
616 get_key_val(&mode_buttons[i++].value, " ") ;
617 get_key_val(&mode_buttons[i++].value, " ") ;
620 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 501, "i"))) ;
621 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 500, "h"))) ;
622 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 502, "{"))) ;
623 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 503, "}"))) ;
624 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 504, "y"))) ;
625 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 505, "!"))) ;
627 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 506, "\003"))) ;
629 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 507, "\023"))) ;
631 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 508, "\024"))) ;
632 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 509, "N"))) ;
633 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 510, "G"))) ;
634 get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 511, "?"))) ;
635 get_key_val(&mode_buttons[i++].value, " ") ;
636 get_key_val(&mode_buttons[i++].value, " ") ;
637 get_key_val(&mode_buttons[i++].value, " ") ;
638 get_key_val(&mode_buttons[i++].value, " ") ;
643 init_mess(void) /* Setup text strings depending upon language. */
647 base_str[(int) BIN] = XtNewString(LGET(GETMESSAGE(2, 1, "Bin"))) ; /* Base values. */
648 base_str[(int) OCT] = XtNewString(LGET(GETMESSAGE(2, 2, "Oct"))) ;
649 base_str[(int) DEC] = XtNewString(LGET(GETMESSAGE(2, 3, "Dec"))) ;
650 base_str[(int) HEX] = XtNewString(LGET(GETMESSAGE(2, 4, "Hex"))) ;
653 cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 107, "Accuracy"))) ; /* ACC */
654 cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 108, "Numeric base"))) ; /* BASE TYPE */
655 cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 109, "Constants"))) ; /* CON */
656 cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 110, "Exchange"))) ; /* EXCH */
657 cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 111, "Functions"))) ; /* FUN */
658 cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 113, "Mode"))) ; /* MODE */
659 cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 114, "Display type"))) ; /* NUM TYPE */
660 cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 115, "Retrieve"))) ; /* RCL */
661 cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 117, "Store"))) ; /* STO */
662 cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 118, "Trigonometric type"))) ;/* TRIG TYPE */
665 dtype_str[(int) ENG] = XtNewString(LGET(GETMESSAGE(2, 5, "ENG"))) ;
666 dtype_str[(int) FIX] = XtNewString(LGET(GETMESSAGE(2, 6, "FIX"))) ;
667 dtype_str[(int) SCI] = XtNewString(LGET(GETMESSAGE(2, 7, "SCI"))) ;
669 /* Labels for various Motif items. */
670 lstrs[(int) L_CONNO] = XtNewString(LGET(GETMESSAGE(3, 132, "Constant no:"))) ;
671 lstrs[(int) L_FUNNO] = XtNewString(LGET(GETMESSAGE(3, 133, "Function no:"))) ;
672 lstrs[(int) L_LCALC] = XtNewString(LGET(GETMESSAGE(3, 134, "calculator"))) ;
673 lstrs[(int) L_NEWCON] = XtNewString(LGET(GETMESSAGE(3, 135, "New Constant"))) ;
674 lstrs[(int) L_NEWFUN] = XtNewString(LGET(GETMESSAGE(3, 136, "New Function"))) ;
675 lstrs[(int) L_UCALC] = XtNewString(LGET(GETMESSAGE(2, 12, "Calculator"))) ;
676 lstrs[(int) L_MEMT] = XtNewString(LGET(GETMESSAGE(3, 137, "Memory Registers"))) ;
677 lstrs[(int) L_FINMEMT] = XtNewString(LGET(GETMESSAGE(3, 518, "Financial Registers"))) ;
678 lstrs[(int) L_PROPT] = XtNewString(LGET(GETMESSAGE(3, 139, "Calculator properties"))) ;
679 lstrs[(int) L_DESC] = XtNewString(LGET(GETMESSAGE(3, 140, "Description:"))) ;
680 lstrs[(int) L_VALUE] = XtNewString(LGET(GETMESSAGE(3, 141, "Value:"))) ;
681 lstrs[(int) L_CONB] = XtNewString(LGET(GETMESSAGE(3, 142, "Enter Constant"))) ;
682 lstrs[(int) L_FUNB] = XtNewString(LGET(GETMESSAGE(3, 143, "Enter Function"))) ;
684 /* Message strings. */
685 mess[(int) MESS_PARAM] = XtNewString(MGET(GETMESSAGE(3, 148, "%s\n"))) ;
686 mess[(int) MESS_CON] = XtNewString(MGET(GETMESSAGE(3, 149, "%s %1d already exists."))) ;
689 /* 00 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 153, "0 radix places"))) ;
690 /* 01 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 154, "1 radix places"))) ;
691 /* 02 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 155, "2 radix places"))) ;
692 /* 03 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 156, "3 radix places"))) ;
693 /* 04 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 157, "4 radix places"))) ;
694 /* 05 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 158, "5 radix places"))) ;
695 /* 06 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 159, "6 radix places"))) ;
696 /* 07 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 160, "7 radix places"))) ;
697 /* 08 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 161, "8 radix places"))) ;
698 /* 09 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 162, "9 radix places"))) ;
701 /* 10 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 163, "Register 0"))) ;
702 /* 11 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 164, "Register 1"))) ;
703 /* 12 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 165, "Register 2"))) ;
704 /* 13 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 166, "Register 3"))) ;
705 /* 14 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 167, "Register 4"))) ;
706 /* 15 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 168, "Register 5"))) ;
707 /* 16 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 169, "Register 6"))) ;
708 /* 17 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 170, "Register 7"))) ;
709 /* 18 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 171, "Register 8"))) ;
710 /* 19 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 172, "Register 9"))) ;
713 /* 20 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 188, "Binary"))) ;
714 /* 21 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 189, "Octal"))) ;
715 /* 22 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 190, "Decimal"))) ;
716 /* 23 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 191, "Hexadecimal"))) ;
719 /* 24 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 192, "Engineering"))) ;
720 /* 25 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 193, "Fixed point"))) ;
721 /* 26 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 194, "Scientific"))) ;
724 /* 27 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 195, "Degrees"))) ;
725 /* 28 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 196, "Gradients"))) ;
726 /* 29 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 197, "Radians"))) ;
729 /* 30 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 198, "Basic"))) ;
730 /* 31 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 199, "Financial"))) ;
731 /* 32 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 200, "Logical"))) ;
732 /* 33 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 201, "Scientific"))) ;
734 /* 34 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 203, "Term:"))) ;
735 /* 35 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 204, "i%Yr:"))) ;
736 /* 36 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 205, "Present Value:"))) ;
737 /* 37 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 206, "Payment:"))) ;
738 /* 38 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 207, "Future Value:"))) ;
739 /* 39 */ menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 514, "Payments/Year:"))) ;
741 mode_str[(int) FINANCIAL] = XtNewString(LGET(GETMESSAGE(3, 270, "FINANCIAL"))) ;
742 mode_str[(int) LOGICAL] = XtNewString(LGET(GETMESSAGE(3, 271, "LOGICAL"))) ;
743 mode_str[(int) SCIENTIFIC] = XtNewString(LGET(GETMESSAGE(3, 272, "SCIENTIFIC"))) ;
745 /* MP errors (visible with the -E command line option. */
747 mpstrs[(int) MP_ADD2A] = XtNewString(LGET(GETMESSAGE(3, 273, "*** SIGN NOT 0, +1 OR -1 IN MPADD2 CALL.\n"))) ;
748 mpstrs[(int) MP_ADD2B] = XtNewString(LGET(GETMESSAGE(3, 274, "POSSIBLE OVERWRITING PROBLEM ***\n"))) ;
749 mpstrs[(int) MP_PART1] = XtNewString(LGET(GETMESSAGE(3, 275, "*** N .LE. 1 IN CALL TO MPART1 ***\n"))) ;
750 mpstrs[(int) MP_ASIN] = XtNewString(LGET(GETMESSAGE(3, 276, "*** ABS(X) .GT. 1 IN CALL TO MPASIN ***\n"))) ;
751 mpstrs[(int) MP_ATAN] = XtNewString(LGET(GETMESSAGE(3, 277, "*** ERROR OCCURRED IN MPATAN, RESULT INCORRECT ***\n"))) ;
752 mpstrs[(int) MP_CHKC] = XtNewString(MGET(GETMESSAGE(3, 278, "*** B = %d ILLEGAL IN CALL TO MPCHK.\n"))) ;
753 mpstrs[(int) MP_CHKD] = XtNewString(LGET(GETMESSAGE(3, 279, "PERHAPS NOT SET BEFORE CALL TO AN MP ROUTINE ***\n"))) ;
754 mpstrs[(int) MP_CHKE] = XtNewString(MGET(GETMESSAGE(3, 280, "*** T = %d ILLEGAL IN CALL TO MPCHK.\n"))) ;
755 mpstrs[(int) MP_CHKF] = XtNewString(LGET(GETMESSAGE(3, 279, "PERHAPS NOT SET BEFORE CALL TO AN MP ROUTINE ***\n"))) ;
756 mpstrs[(int) MP_CHKG] = XtNewString(LGET(GETMESSAGE(3, 282, "*** M .LE. T IN CALL TO MPCHK.\n"))) ;
757 mpstrs[(int) MP_CHKH] = XtNewString(LGET(GETMESSAGE(3, 279, "PERHAPS NOT SET BEFORE CALL TO AN MP ROUTINE ***\n"))) ;
758 mpstrs[(int) MP_CHKI] = XtNewString(LGET(GETMESSAGE(3, 284, "*** B TOO LARGE IN CALL TO MPCHK ***\n"))) ;
759 mpstrs[(int) MP_CHKJ] = XtNewString(LGET(GETMESSAGE(3, 285, "*** MXR TOO SMALL OR NOT SET TO DIM(R) BEFORE CALL "))) ;
760 mpstrs[(int) MP_CHKL] = XtNewString(LGET(GETMESSAGE(3, 286, "TO AN MP ROUTINE ***\n"))) ;
761 mpstrs[(int) MP_CHKM] = XtNewString(MGET(GETMESSAGE(3, 287, "*** MXR SHOULD BE AT LEAST %d*T + %d = %d ***\n"))) ;
762 mpstrs[(int) MP_CHKN] = XtNewString(MGET(GETMESSAGE(3, 288, "*** ACTUALLY MXR = %d, AND T = %d ***\n"))) ;
763 mpstrs[(int) MP_CMD] = XtNewString(LGET(GETMESSAGE(3, 289, "*** FLOATING-POINT OVER/UNDER-FLOW IN MPCMD ***\n"))) ;
764 mpstrs[(int) MP_CMR] = XtNewString(LGET(GETMESSAGE(3, 290, "*** FLOATING-POINT OVER/UNDER-FLOW IN MPCMR ***\n"))) ;
765 mpstrs[(int) MP_CQM] = XtNewString(LGET(GETMESSAGE(3, 291, "*** J = 0 IN CALL TO MPCQM ***\n"))) ;
766 mpstrs[(int) MP_DIVA] = XtNewString(LGET(GETMESSAGE(3, 292, "*** ATTEMPTED DIVISION BY ZERO IN CALL TO MPDIV ***\n"))) ;
767 mpstrs[(int) MP_DIVB] = XtNewString(LGET(GETMESSAGE(3, 293, "*** OVERFLOW OCCURRED IN MPDIV ***\n"))) ;
768 mpstrs[(int) MP_DIVIA] = XtNewString(LGET(GETMESSAGE(3, 294, "*** ATTEMPTED DIVISION BY ZERO IN CALL TO MPDIVI ***\n"))) ;
769 mpstrs[(int) MP_DIVIB] = XtNewString(LGET(GETMESSAGE(3, 295, "*** INTEGER OVERFLOW IN MPDIVI, B TOO LARGE ***\n"))) ;
770 mpstrs[(int) MP_EXPA] = XtNewString(LGET(GETMESSAGE(3, 296, "*** OVERFLOW IN SUBROUTINE MPEXP ***\n"))) ;
771 mpstrs[(int) MP_EXPB] = XtNewString(LGET(GETMESSAGE(3, 297, "*** ERROR OCCURRED IN MPEXP, RESULT INCORRECT ***\n"))) ;
772 mpstrs[(int) MP_EXP1] = XtNewString(LGET(GETMESSAGE(3, 298, "*** ABS(X) NOT LESS THAN 1 IN CALL TO MPEXP1 ***\n"))) ;
773 mpstrs[(int) MP_LNA] = XtNewString(LGET(GETMESSAGE(3, 299, "*** X NONPOSITIVE IN CALL TO MPLN ***\n"))) ;
774 mpstrs[(int) MP_LNB] = XtNewString(LGET(GETMESSAGE(3, 300, "*** ERROR IN MPLN, ITERATION NOT CONVERGING ***\n"))) ;
775 mpstrs[(int) MP_LNSA] = XtNewString(LGET(GETMESSAGE(3, 301, "*** ABS(X) .GE. 1/B IN CALL TO MPLNS ***\n"))) ;
776 mpstrs[(int) MP_LNSB] = XtNewString(LGET(GETMESSAGE(3, 302, "*** ERROR OCCURRED IN MPLNS.\n"))) ;
777 mpstrs[(int) MP_LNSC] = XtNewString(LGET(GETMESSAGE(3, 303, "NEWTON ITERATION NOT CONVERGING PROPERLY ***\n"))) ;
778 mpstrs[(int) MP_MULA] = XtNewString(LGET(GETMESSAGE(3, 304, "*** INTEGER OVERFLOW IN MPMUL, B TOO LARGE ***\n"))) ;
779 mpstrs[(int) MP_MULB] = XtNewString(LGET(GETMESSAGE(3, 305, "*** ILLEGAL BASE B DIGIT IN CALL TO MPMUL.\n"))) ;
780 mpstrs[(int) MP_MULC] = XtNewString(LGET(GETMESSAGE(3, 306, "POSSIBLE OVERWRITING PROBLEM ***\n"))) ;
781 mpstrs[(int) MP_MUL2A] = XtNewString(LGET(GETMESSAGE(3, 307, "*** OVERFLOW OCCURRED IN MPMUL2 ***\n"))) ;
782 mpstrs[(int) MP_MUL2B] = XtNewString(LGET(GETMESSAGE(3, 308, "*** INTEGER OVERFLOW IN MPMUL2, B TOO LARGE ***\n"))) ;
783 mpstrs[(int) MP_MULQ] = XtNewString(LGET(GETMESSAGE(3, 309, "*** ATTEMPTED DIVISION BY ZERO IN MPMULQ ***\n"))) ;
784 mpstrs[(int) MP_NZRA] = XtNewString(LGET(GETMESSAGE(3, 310, "*** SIGN NOT 0, +1 OR -1 IN CALL TO MPNZR.\n"))) ;
785 mpstrs[(int) MP_NZRB] = XtNewString(LGET(GETMESSAGE(3, 311, "POSSIBLE OVERWRITING PROBLEM ***\n"))) ;
786 mpstrs[(int) MP_NZRC] = XtNewString(LGET(GETMESSAGE(3, 312, "*** OVERFLOW OCCURRED IN MPNZR ***\n"))) ;
787 mpstrs[(int) MP_OVFL] = XtNewString(LGET(GETMESSAGE(3, 313, "*** CALL TO MPOVFL, MP OVERFLOW OCCURRED ***\n"))) ;
788 mpstrs[(int) MP_PI] = XtNewString(LGET(GETMESSAGE(3, 314, "*** ERROR OCCURRED IN MPPI, RESULT INCORRECT ***\n"))) ;
789 mpstrs[(int) MP_PWRA] = XtNewString(LGET(GETMESSAGE(3, 315, "*** ATTEMPT TO RAISE ZERO TO NEGATIVE POWER IN\n"))) ;
790 mpstrs[(int) MP_PWRB] = XtNewString(LGET(GETMESSAGE(3, 316, "CALL TO SUBROUTINE MPPWR ***\n"))) ;
791 mpstrs[(int) MP_PWR2A] = XtNewString(LGET(GETMESSAGE(3, 317, "*** X NEGATIVE IN CALL TO MPPWR2 ***\n"))) ;
792 mpstrs[(int) MP_PWR2B] = XtNewString(LGET(GETMESSAGE(3, 318, "*** X ZERO AND Y NONPOSITIVE IN CALL TO MPPWR2 ***\n"))) ;
793 mpstrs[(int) MP_RECA] = XtNewString(LGET(GETMESSAGE(3, 319, "*** ATTEMPTED DIVISION BY ZERO IN CALL TO MPREC ***\n"))) ;
794 mpstrs[(int) MP_RECB] = XtNewString(LGET(GETMESSAGE(3, 320, "*** ERROR OCCURRED IN MPREC, NEWTON ITERATION\n"))) ;
795 mpstrs[(int) MP_RECC] = XtNewString(LGET(GETMESSAGE(3, 321, "NOT CONVERGING PROPERLY ***\n"))) ;
796 mpstrs[(int) MP_RECD] = XtNewString(LGET(GETMESSAGE(3, 322, "*** OVERFLOW OCCURRED IN MPREC ***\n"))) ;
797 mpstrs[(int) MP_ROOTA] = XtNewString(LGET(GETMESSAGE(3, 323, "*** N = 0 IN CALL TO MPROOT ***\n"))) ;
798 mpstrs[(int) MP_ROOTB] = XtNewString(LGET(GETMESSAGE(3, 324, "*** ABS(N) TOO LARGE IN CALL TO MPROOT ***\n"))) ;
799 mpstrs[(int) MP_ROOTC] = XtNewString(LGET(GETMESSAGE(3, 325, "*** X = 0 AND N NEGATIVE IN CALL TO MPROOT ***\n"))) ;
800 mpstrs[(int) MP_ROOTD] = XtNewString(LGET(GETMESSAGE(3, 326, "*** X NEGATIVE AND N EVEN IN CALL TO MPROOT ***\n"))) ;
801 mpstrs[(int) MP_ROOTE] = XtNewString(LGET(GETMESSAGE(3, 327, "*** ERROR OCCURRED IN MPROOT, NEWTON ITERATION\n"))) ;
802 mpstrs[(int) MP_ROOTF] = XtNewString(LGET(GETMESSAGE(3, 328, "NOT CONVERGING PROPERLY ***\n"))) ;
803 mpstrs[(int) MP_SETB] = XtNewString(LGET(GETMESSAGE(3, 329, "*** IDECPL .LE. 0 IN CALL TO MPSET ***\n"))) ;
804 mpstrs[(int) MP_SETC] = XtNewString(LGET(GETMESSAGE(3, 330, "ITMAX2 TOO SMALL IN CALL TO MPSET ***\n"))) ;
805 mpstrs[(int) MP_SETD] = XtNewString(LGET(GETMESSAGE(3, 331, "*** INCREASE ITMAX2 AND DIMENSIONS OF MP ARRAYS \n"))) ;
806 mpstrs[(int) MP_SETE] = XtNewString(MGET(GETMESSAGE(3, 332, "TO AT LEAST %d ***\n"))) ;
807 mpstrs[(int) MP_SIN] = XtNewString(LGET(GETMESSAGE(3, 333, "*** ERROR OCCURRED IN MPSIN, RESULT INCORRECT ***\n"))) ;
808 mpstrs[(int) MP_SIN1] = XtNewString(LGET(GETMESSAGE(3, 334, "*** ABS(X) .GT. 1 IN CALL TO MPSIN1 ***\n"))) ;
809 mpstrs[(int) MP_SQRT] = XtNewString(LGET(GETMESSAGE(3, 335, "*** X NEGATIVE IN CALL TO SUBROUTINE MPSQRT ***\n"))) ;
810 mpstrs[(int) MP_TAN] = XtNewString(LGET(GETMESSAGE(3, 336, "*** TAN(X) TOO LARGE IN CALL TO MPTAN ***\n"))) ;
812 /* Command line options. */
814 opts[(int) O_ACCVAL] = XtNewString(LGET(GETMESSAGE(3, 337, "Calculator: -a needs accuracy value of 0-9."))) ;
815 opts[(int) O_ACCRANGE] = XtNewString(MGET(GETMESSAGE(3, 338, "Calculator: accuracy should be in the range 0-9\nWill set accuracy to the default: 2.\n")));
816 opts[(int) O_BASE] = XtNewString(MGET(GETMESSAGE(3, 339, "Calculator: base should be binary, octal, decimal or hexadecimal.\nWill set base to the default: decimal.\n"))) ;
817 opts[(int) O_DISPLAY] = XtNewString(MGET(GETMESSAGE(3, 340, "Calculator: invalid display mode [%s]\n"))) ;
818 opts[(int) O_MODE] = XtNewString(MGET(GETMESSAGE(3, 341, "Calculator: invalid mode [%s]\nWill set mode to its default: scientific\n"))) ;
819 opts[(int) O_TRIG] = XtNewString(MGET(GETMESSAGE(3, 342, "Calculator: invalid trig. mode [%s]\n"))) ;
820 opts[(int) O_SESSION] = XtNewString(MGET(GETMESSAGE(3, 343, "Calculator: invalid session file.\n"))) ;
822 pstrs[(int) P_CHAR] = XtNewString(LGET(GETMESSAGE(3, 351, "Character:"))) ;
823 pstrs[(int) P_ASCIIT] = XtNewString(LGET(GETMESSAGE(3, 352, "Get ASCII"))) ;
825 /* Trig. type values. */
826 ttype_str[(int) DEG] = XtNewString(LGET(GETMESSAGE(3, 353, "Deg"))) ;
827 ttype_str[(int) GRAD] = XtNewString(LGET(GETMESSAGE(3, 354, "Grad"))) ;
828 ttype_str[(int) RAD] = XtNewString(LGET(GETMESSAGE(3, 355, "Rad"))) ;
831 ustrs[(int) USAGE1] = XtNewString(MGET(GETMESSAGE(3, 356, "Calculator (dtcalc) version 1.%1d\n\n"))) ;
832 ustrs[(int) USAGE2] = XtNewString(MGET(GETMESSAGE(3, 357, "Usage: dtcalc [-a accuracy] [-m mode] [-b base] [-no_menu_bar] [-?]\n"))) ;
833 ustrs[(int) USAGE3] = XtNewString(LGET(GETMESSAGE(3, 358, "\t [-notation display_notation] [-trig trignometric_type] [-session session_file]\n"))) ;
835 /* Various strings. */
836 vstrs[(int) V_CANCEL] = XtNewString(LGET(GETMESSAGE(3, 361, "Cancel"))) ;
837 vstrs[(int) V_CONFIRM] = XtNewString(LGET(GETMESSAGE(3, 362, "Confirm"))) ;
838 vstrs[(int) V_CONTINUE] = XtNewString(LGET(GETMESSAGE(3, 363, "Continue"))) ;
839 vstrs[(int) V_CONWNAME] = XtNewString(LGET(GETMESSAGE(3, 142, "Enter Constant"))) ;
840 vstrs[(int) V_ERROR] = XtNewString(LGET(GETMESSAGE(3, 364, "Error"))) ;
841 vstrs[(int) V_FUNWNAME] = XtNewString(LGET(GETMESSAGE(3, 143, "Enter Function"))) ;
842 vstrs[(int) V_CLR] = XtNewString(LGET(GETMESSAGE(3, 370, "CLR"))) ;
843 vstrs[(int) V_HYP] = XtNewString(LGET(GETMESSAGE(3, 371, "HYP"))) ;
844 vstrs[(int) V_INV] = XtNewString(LGET(GETMESSAGE(3, 372, "INV"))) ;
845 vstrs[(int) V_INVCON] = XtNewString(LGET(GETMESSAGE(3, 373, "Invalid constant value"))) ;
846 vstrs[(int) V_LCON] = XtNewString(LGET(GETMESSAGE(3, 374, "Invalid constant number."))) ;
847 vstrs[(int) V_LFUN] = XtNewString(LGET(GETMESSAGE(3, 375, "Invalid function number."))) ;
848 vstrs[(int) V_NOCHANGE] = XtNewString(LGET(GETMESSAGE(3, 377, "Constant not changed."))) ;
849 vstrs[(int) V_NUMSTACK] = XtNewString(LGET(GETMESSAGE(3, 378, "Numeric stack error"))) ;
850 vstrs[(int) V_OPSTACK] = XtNewString(LGET(GETMESSAGE(3, 379, "Operand stack error"))) ;
851 vstrs[(int) V_OWRITE] = XtNewString(LGET(GETMESSAGE(3, 380, "Okay to overwrite?"))) ;
852 vstrs[(int) V_RANGE] = XtNewString(LGET(GETMESSAGE(3, 381, "Must be in the range 0 - 9"))) ;
853 vstrs[(int) V_TRUE] = LGET("true") ;
854 vstrs[(int) V_UCON] = XtNewString(LGET(GETMESSAGE(3, 383, "Constant"))) ;
855 vstrs[(int) V_UFUN] = XtNewString(LGET(GETMESSAGE(3, 384, "Function"))) ;
856 vstrs[(int) V_NORSAVE] = XtNewString(LGET(GETMESSAGE(3, 385, "Unable to save defaults.\n"))) ;