===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/Resource/asir-ja_JP.eucJP.sm1,v
retrieving revision 1.1
retrieving revision 1.3
diff -u -p -r1.1 -r1.3
--- OpenXM/src/kan96xx/Doc/Resource/asir-ja_JP.eucJP.sm1	2006/02/04 02:44:39	1.1
+++ OpenXM/src/kan96xx/Doc/Resource/asir-ja_JP.eucJP.sm1	2006/03/03 10:55:33	1.3
@@ -1,7 +1,8 @@
 % localizedString for asir.  ja_JP.eucJP.
 [
- [(evalf : hoge undefined)
-  ( hoge が定義されていません)
+ [(getarray : array or list expected),    %% X=1; X[0];
+  [(このオブジェクトはリストでもベクトルでも行列 [配列] でもないため, 要素をとりだせません. ) 
+  ] cat
  ]
  [(parse error), 
   [(文法エラーです. キャレットの位置の周辺を見直してください.) nl 
@@ -9,19 +10,25 @@
   ] cat
  ]
  [(eval : invalid assignment), 
-  [(エラー. この代入はできません.) nl
+  [(この代入はできません.) nl
    (原因例: X=1 はできるが x=1 はできない.  大文字ではじまる英数字の列が変数です.) ] cat
   ]
  [(segmentation fault), 
-  [(エラー. segmentation fault です.) nl  
+  [(segmentation fault です.) nl  
    (原因例: 関数の引数の誤りなど.) ] cat
  ]
- [( : invalid argument), 
-  [(エラー. このデータ型の引数はつかえません.)   nl
-   (原因例: リストが引数であるべきだがそれが整数である.)] cat
- ]
 ] /localizedString.dic set
 
+/localizedString.mydic 
+ [
+   %% No. 0 
+   %% Try input  length(1);
+   (.*: invalid argument)
+   %% No. 1 
+   %% Try input  length(); 
+   (evalf : argument mismatch .*)
+ ]
+def
 
 /localizedString.local {
   /arg1 set
@@ -34,7 +41,25 @@
       [(regexec) (evalf : .* undefined) [ss]] extension /pp set
       pp length 0 gt {
         [(stringToArgv2) ss ( )] extension /pp2 set
-        /ans [(エラー: ) pp2 2 get ( が定義されていません.)] cat def
+        /ans [ pp2 2 get ( が定義されていません.)] cat def
+        exit 
+      }{ } ifelse
+
+      % No. 0 
+      [(regexec) localizedString.mydic 0 get [ss]] extension /pp set
+      pp length 0 gt {
+        [(stringToArgv2) ss ( )] extension /pp2 set
+        /ans [pp2 0 get ( に対してこのデータ型の引数はつかえません.) nl
+              (原因例: リストが引数であるべきだがそれが整数である.)
+             ] cat def
+        exit 
+      }{ } ifelse
+
+      % No. 1 
+      [(regexec) localizedString.mydic 1 get [ss]] extension /pp set
+      pp length 0 gt {
+        [(stringToArgv2) ss ( )] extension /pp2 set
+        /ans [pp2 5 get ( : 引数の数が違います. )] cat def
         exit 
       }{ } ifelse