cku-ckermit.locale.ini

   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 --------