]>
Commit | Line | Data |
---|---|---|
76247cb2 JR |
1 | ; /etc/kermit/ckermit.locale.ini: locale settings for C-Kermit |
2 | ; created 27-Jan-1997 jmk | |
3 | ; autodate: 12-Mar-1997 | |
4 | ; autotime: 00:28 | |
5 | ||
6 | echo { Setting locale ...} | |
7 | ||
8 | ; define various locale settings | |
9 | define locale_set_country { | |
10 | set input case ignore | |
11 | switch \%1 { | |
12 | :usa | |
13 | set dial country-code 1 | |
14 | set dial intl-prefix 011 | |
15 | set dial ld-prefix 1 | |
16 | set dial toll-free-area-code 800 888 | |
17 | set dial toll-free-prefix 1 | |
18 | break | |
19 | :canada | |
20 | set dial country-code 1 | |
21 | set dial intl-prefix 011 | |
22 | set dial ld-prefix 1 | |
23 | set dial toll-free-area-code 800 888 | |
24 | set dial toll-free-prefix 1 | |
25 | break | |
26 | :default | |
27 | echo { Error: unknown country name `\%1' ...} | |
28 | stop 0 { please add it to \m(locale_ini)} | |
29 | } | |
30 | } | |
31 | define locale { | |
32 | xif < \v(argc) 3 { | |
33 | stop 0 { Usage: LOCALE country-name area-code} | |
34 | } | |
35 | xif numeric \%2 { | |
36 | set dial area-code \%2 | |
37 | } else { | |
38 | stop 0 { Error: area-code must be numeric} | |
39 | } | |
40 | locale_set_country \%1 | |
41 | } | |
42 | ||
43 | ; set the locale here | |
44 | locale usa 919 | |
45 | ||
46 | ; -------- End -------- |