===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/dr.sm1,v
retrieving revision 1.38
retrieving revision 1.40
diff -u -p -r1.38 -r1.40
--- OpenXM/src/kan96xx/Kan/dr.sm1	2004/09/11 01:00:42	1.38
+++ OpenXM/src/kan96xx/Kan/dr.sm1	2004/09/14 01:57:15	1.40
@@ -1,4 +1,4 @@
-% $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.37 2004/09/10 13:20:23 takayama Exp $
+% $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.39 2004/09/12 02:47:45 takayama Exp $
 %% dr.sm1 (Define Ring) 1994/9/25, 26
 %% This file is error clean.
 
@@ -4252,17 +4252,36 @@ $ [ff ff] fromVectors :: $ 
 [(list listToArray a)
 ]] putUsages
 
+/makeInfix {
+  [(or_attr) 4   4 -1 roll ] extension
+} def
+[(makeInfix)
+[(literal makeInfix)
+ (Change literal to an infix operator.)
+ (Example: /+ { add } def )
+ (  /+ makeInfix)
+ (  /s 0 def 1 1 100 { /i set s + i /s set } for s message)
+ (  [ 1 2 3 ] { /i set i + 2 } map ::)
+]] putUsages
 
 /usages {
   /arg1 set
-  [/name /flag /n /k /slist /m /i /sss] pushVariables
+  [/name /flag /n /k /slist /m /i /sss /key /ukeys] pushVariables
   [
     /name arg1 def
     /flag true def
+    {  % begin loop
 
- %BUG: should use regular expression in a future.
+       name isArray {
+         /ukeys @.usages { 0 get } map def
+         name { /key set [(regexec) key ukeys] extension
+                { 0 get } map } map /sss set
+         exit
+       } {  } ifelse
+
  name tag 1 eq { 
    @.usages { 0 get } map shell { (, ) nl } map /sss set
+   exit
  } { 
 
     /sss [ ] def
@@ -4289,7 +4308,10 @@ $ [ff ff] fromVectors :: $ 
    {name Usage  /sss [(Usage of ) name ( could not obtained.) nl ] def}
    { }
    ifelse
+   exit
  } ifelse
+
+} loop
    /arg1 sss cat def
    ] pop
    popVariables
@@ -4298,6 +4320,7 @@ $ [ff ff] fromVectors :: $ 
 [(usages)
  [(key usages usages-as-a-string)
   (num usages list-of-key-words)
+  ([key1 key2 ... ] usages list-of-key-words  : it accepts regular expressions.)
 ]] putUsages
 
 ;