Return to sm1-ja_JP.eucJP.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Doc / Resource

Annotation of OpenXM/src/kan96xx/Doc/Resource/sm1-ja_JP.eucJP.sm1, Revision 1.1

1.1     ! takayama    1: [
        !             2:   [(gateKeeperOfLocalizedString.dic)
        !             3:    (LocalizedString.dicの門番)
        !             4:   ]
        !             5:   %% Try input (1*-2).
        !             6:   [
        !             7:     [(executeString: ) nl
        !             8:      (ERROR(kanExport[0|1].c):  parser.c : Syntax error in the input polynomial.)
        !             9:     ] cat
        !            10:     (エラー(kanExport[0|1].c): parser.c 入力多項式の文法エラー)
        !            11:    ]
        !            12: ] /localizedString.dic set
        !            13:
        !            14: /localizedString.mydic
        !            15:  [
        !            16:    %% No. 0 (executeString: ) nl
        !            17:    %% Try input  hoge
        !            18:    (>>Warning: The identifier .* is not in the system dictionary)
        !            19:    %% No. 2
        !            20:    %% Try input  1 length
        !            21:    (.*Usage:length)
        !            22:  ]
        !            23: def
        !            24:
        !            25: /localizedString.local {
        !            26:   /arg1 set
        !            27:   [/ss /ans /pp /pp2] pushVariables
        !            28:   [
        !            29:     arg1 /ss set
        !            30:     /ans ss def
        !            31:     {
        !            32:       % No. 0
        !            33:       [(regexec) localizedString.mydic 0 get [ss]] extension /pp set
        !            34:       pp length 0 gt {
        !            35:         [(stringToArgv2) ss ( )] extension /pp2 set
        !            36:         /ans [(エラー: ) pp2 4 get ( が定義されていません.)] cat def
        !            37:         exit
        !            38:       }{ } ifelse
        !            39:
        !            40:       % No. 1
        !            41:       [(regexec) localizedString.mydic 0 get [ss]] extension /pp set
        !            42:       pp length 0 gt {
        !            43:         [(stringToArgv2) ss ( )] extension /pp2 set
        !            44:         /ans (エラー(sm):  length の引数が範囲外です.) def
        !            45:         exit
        !            46:       }{ } ifelse
        !            47:
        !            48:       exit
        !            49:     } loop
        !            50:     ans /arg1 set
        !            51:   ] pop
        !            52:   popVariables
        !            53:   arg1
        !            54: } def
        !            55:
        !            56: