[BACK]Return to sm1-ja_JP.UTF8.sm1 CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Doc / Resource
File: [local] / OpenXM / src / kan96xx / Doc / Resource / sm1-ja_JP.UTF8.sm1 (download)

Revision 1.2, Sat Feb 4 06:39:51 2006 UTC (18 years, 4 months ago) by takayama
Branch: MAIN
CVS Tags: R_1_3_1-2, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9
Changes since 1.1: +1 -0 lines 

test1.sm1 contains a test function for new translations.

%DO NOT EDIT THIS FILE. Edit sm1-ja_JP.eucJP.sm1
[
  [(gateKeeperOfLocalizedString.dic)
   (LocalizedString.dicの門番)
  ]
  %% Try input (1*-2).
  [
    [(executeString: ) nl
     (ERROR(kanExport[0|1].c):  parser.c : Syntax error in the input polynomial.) 
    ] cat
    (エラー(kanExport[0|1].c): parser.c 入力多項式の文法エラー)
   ]
] /localizedString.dic set

/localizedString.mydic 
 [
   %% No. 0 (executeString: ) nl
   %% Try input  hoge
   (>>Warning: The identifier .* is not in the system dictionary) 
   %% No. 2 
   %% Try input  1 length
   (.*Usage:length)
 ]
def

/localizedString.local {
  /arg1 set
  [/ss /ans /pp /pp2] pushVariables
  [
    arg1 /ss set
    /ans ss def
    {
      % No. 0 
      [(regexec) localizedString.mydic 0 get [ss]] extension /pp set
      pp length 0 gt {
        [(stringToArgv2) ss ( )] extension /pp2 set
        /ans [(エラー: ) pp2 4 get ( が定義されていません.)] cat def
        exit 
      }{ } ifelse

      % No. 1 
      [(regexec) localizedString.mydic 0 get [ss]] extension /pp set
      pp length 0 gt {
        [(stringToArgv2) ss ( )] extension /pp2 set
        /ans (エラー(sm):  length の引数が範囲外です.) def
        exit 
      }{ } ifelse

      exit
    } loop
    ans /arg1 set
  ] pop
  popVariables
  arg1
} def