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

Annotation of OpenXM/src/kan96xx/Doc/Resource/sm1-ja_JP.UTF8.sm1, Revision 1.2

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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>