OpenXM/src/kan96xx/Kan/dr.sm1 - diff

Return to dr.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

Diff for /OpenXM/src/kan96xx/Kan/dr.sm1 between version 1.30 and 1.31

-version 1.30, 2004/08/23 08:33:55
+version 1.31, 2004/08/27 08:33:27
 Line 1
 Line 1
 Line 1
- % $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.29 2004/08/22 12:52:34 takayama Exp $
+ % $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.30 2004/08/23 08:33:55 takayama Exp $
  %% dr.sm1 (Define Ring) 1994/9/25, 26
  %% This file is error clean.
 Line 4111  $ [ff ff] fromVectors :: $
 Line 4111  $ [ff ff] fromVectors :: $
 Line 4111  $ [ff ff] fromVectors :: $
   (It normalizes a given vector of Q into a vector of Z with relatively prime)
   (entries by multiplying a postive number.)
  ]] putUsages
+ /getNode {
+   /arg2 set
+   /arg1 set
+   [/in-getNode /ob /key /rr /rr /ii] pushVariables
+   [
+     /ob arg1 def
+     /key arg2 def
+     /rr null def
+     {
+       ob isClass {
+         ob (array) dc /ob set
+       } { exit } ifelse
+       ob 0 get key eq {
+         /rr ob def
+         exit
+       } {  } ifelse
+       ob 2 get /ob set
+1 ob length 1 sub {
+          /ii set
+          ob ii get key getNode /rr set
+          rr tag 0 eq { } { exit } ifelse
+       } for
+       exit
+     } loop
+     /arg1 rr def
+   ] pop
+   popVariables
+   arg1
+ } def
+ [(getNode)
+ [(ob key getNode)
+  (ob is a class object.)
+  (The operator getNode returns the node with the key in ob.)
+  (The node is an array of the format [key attr-list node-list])
+  (Example:)
+  (  /dog [(dog) [[(legs) 4] ] [ ]] [(class) (tree)] dc def)
+  (  /man [(man) [[(legs) 2] ] [ ]] [(class) (tree)] dc def)
+  (  /ma [(mammal) [ ] [man dog]] [(class) (tree)] dc def)
+  (  ma (dog) getNode )
+ ]] putUsages
  /usages {
    /arg1 set

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