Annotation of OpenXM/src/kan96xx/Doc/Resource/asir-ja_JP.UTF8.sm1, Revision 1.3
1.2 takayama 1: %DO NOT EDIT THIS FILE. Edit asir-ja_JP.eucJP.sm1
1.1 takayama 2: % localizedString for asir. ja_JP.eucJP.
3: [
1.3 ! takayama 4: [(getarray : array or list expected), %% X=1; X[0];
! 5: [(このオブジェクトはリストでもベクトルでも行列 [配列] でもないため, 要素をとりだせません. )
! 6: ] cat
! 7: ]
1.1 takayama 8: [(parse error),
9: [(文法エラーです. キャレットの位置の周辺を見直してください.) nl
10: ({ } ボタンでエラーがみつかることもあります.)
11: ] cat
12: ]
13: [(eval : invalid assignment),
1.2 takayama 14: [(この代入はできません.) nl
1.1 takayama 15: (原因例: X=1 はできるが x=1 はできない. 大文字ではじまる英数字の列が変数です.) ] cat
16: ]
17: [(segmentation fault),
1.2 takayama 18: [(segmentation fault です.) nl
1.1 takayama 19: (原因例: 関数の引数の誤りなど.) ] cat
20: ]
21: ] /localizedString.dic set
22:
1.2 takayama 23: /localizedString.mydic
24: [
25: %% No. 0
26: %% Try input length(1);
27: (.*: invalid argument)
28: %% No. 1
29: %% Try input length();
30: (evalf : argument mismatch .*)
31: ]
32: def
1.1 takayama 33:
34: /localizedString.local {
35: /arg1 set
36: [/ss /ans /pp /pp2] pushVariables
37: [
38: arg1 /ss set
39: /ans ss def
40: {
41: % Example: (evalf : hoge undefined)
42: [(regexec) (evalf : .* undefined) [ss]] extension /pp set
43: pp length 0 gt {
44: [(stringToArgv2) ss ( )] extension /pp2 set
1.2 takayama 45: /ans [ pp2 2 get ( が定義されていません.)] cat def
46: exit
47: }{ } ifelse
48:
49: % No. 0
50: [(regexec) localizedString.mydic 0 get [ss]] extension /pp set
51: pp length 0 gt {
52: [(stringToArgv2) ss ( )] extension /pp2 set
53: /ans [pp2 0 get ( に対してこのデータ型の引数はつかえません.) nl
54: (原因例: リストが引数であるべきだがそれが整数である.)
55: ] cat def
56: exit
57: }{ } ifelse
58:
59: % No. 1
60: [(regexec) localizedString.mydic 1 get [ss]] extension /pp set
61: pp length 0 gt {
62: [(stringToArgv2) ss ( )] extension /pp2 set
63: /ans [pp2 5 get ( : 引数の数が違います. )] cat def
1.1 takayama 64: exit
65: }{ } ifelse
66:
67: exit
68: } loop
69: ans /arg1 set
70: ] pop
71: popVariables
72: arg1
73: } def
74:
75:
76: %% error packet の reason_of_error が無ければ 2th argument を見る.
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>