$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron2.0>Shared-Derived>SaffronTreeDeclsDef.Mesa!21 0000000 - - S a f f r o n T r e e D e 0000020 c l s D e f . m e s a \r - - 0000040 C o p y r i g h t 323 1 9 8 7 0000060 b y X e r o x C o r p o r 0000100 a t i o n . A l l r i g h 0000120 t s r e s e r v e d . \r - - 0000140 G e n e r a t e d b y h e 0000160 d e r m a n . p a a t A u g 0000200 u s t 1 7 , 1 9 8 7 3 : 5 0000220 1 : 0 7 p m P D T \r - - 0000240 u s i n g T h r e e C a s a 0000260 b a F o u r [ 1 . 2 ] o f 0000300 J u n e 1 , 1 9 8 7 6 : 0 0000320 0 : 0 0 p m P D T \r \r D I R 0000340 E C T O R Y \r \t S a f f r o n G 0000360 e n e r i c D e f , \r \t R o p e 0000400 , \r \t S a f f r o n B a s e D e 0000420 f ; \r \r S a f f r o n T r e e D 0000440 e c l s D e f : C E D A R D 0000460 E F I N I T I O N S = \r B E 0000500 G I N \r O P E N S a f f r o n 0000520 G e n e r i c D e f , R o p e 0000540 , S a f f r o n B a s e D e f 0000560 ; \r G e t B o o l e a n V a l P 0000600 r o c T y p e : \t T Y P E = 0000620 P R O C [ R E F A N Y ] R E 0000640 T U R N S [ B O O L E A N ] ; \r 0000660 \r D o T o p P r o c T y p e : \t 0000700 T Y P E = P R O C [ R E F 0000720 A N Y , R O P E , E n v i r 0000740 o n m e n t N o d e ] R E T U 0000760 R N S [ E n v i r o n m e n t N 0001000 o d e , I n t e r f a c e V a 0001020 l N o d e ] ; \r \r E x p l o r e 0001040 P r o c T y p e : \t T Y P E = 0001060 P R O C [ R E F A N Y , R 0001100 O P E , E n v i r o n m e n t 0001120 N o d e ] R E T U R N S [ E n 0001140 v i r o n m e n t N o d e , I 0001160 n t e r f a c e V a l N o d e ] 0001200 ; \r \r M a k e E n v i r o n m e 0001220 n t P r o c T y p e : \t T Y P E 0001240 = P R O C [ R E F A N Y , 0001260 R O P E , E n v i r o n m e 0001300 n t N o d e ] R E T U R N S [ 0001320 E n v i r o n m e n t N o d e , 0001340 I n t e r f a c e V a l N o d 0001360 e ] ; \r \r M a k e I n t e r f a 0001400 c e T G N P r o c T y p e : \t T 0001420 Y P E = P R O C [ R E F A 0001440 N Y , L o c a l C o n t e x t 0001460 N o d e , I n t e r f a c e V 0001500 a l N o d e ] R E T U R N S [ 0001520 L o c a l C o n t e x t N o d e 0001540 , T y p e G r a p h N o d e N 0001560 o d e ] ; \r \r E x p l o r e D i 0001600 r e c t o r y C l a u s e P r o 0001620 c T y p e : \t T Y P E = P R 0001640 O C [ R E F A N Y , E n v i 0001660 r o n m e n t N o d e ] R E T 0001700 U R N S [ E n v i r o n m e n t 0001720 N o d e ] ; \r \r P r o c e s s D 0001740 i r e c t o r y C l a u s e P r 0001760 o c T y p e : \t T Y P E = P 0002000 R O C [ R E F A N Y , L o c 0002020 a l C o n t e x t N o d e , E 0002040 n v i r o n m e n t N o d e ] 0002060 R E T U R N S [ L o c a l C o n 0002100 t e x t N o d e , E n v i r o 0002120 n m e n t N o d e ] ; \r \r A d d 0002140 I d s T o I n t e r f a c e T G 0002160 N P r o c T y p e : \t T Y P E 0002200 = P R O C [ R E F A N Y , 0002220 L o c a l C o n t e x t N o d e 0002240 , T y p e G r a p h N o d e N 0002260 o d e , I n t e r f a c e V a 0002300 l N o d e ] R E T U R N S [ L 0002320 o c a l C o n t e x t N o d e ] 0002340 ; \r \r M a k e C o n t e x t T r 0002360 e e P r o c T y p e : \t T Y P E 0002400 = P R O C [ R E F A N Y , 0002420 C o n t e x t R i b N o d e , 0002440 B O O L E A N ] R E T U R N 0002460 S [ C o n t e x t T r e e N o d 0002500 e ] ; \r \r M a k e C o n t e x t 0002520 T r e e 1 P r o c T y p e : \t T 0002540 Y P E = P R O C [ R E F A 0002560 N Y , C o n t e x t R i b N o 0002600 d e , B O O L E A N ] R E T 0002620 U R N S [ C o n t e x t T r e e 0002640 N o d e ] ; \r \r M a k e B i n d 0002660 L i s t C o n t e x t T r e e W 0002700 i t h S c o p e P r o c T y p e 0002720 : \t T Y P E = P R O C [ R E 0002740 F A N Y , S c o p e P T r e 0002760 e N o d e , C o n t e x t R i 0003000 b N o d e , B O O L E A N ] 0003020 R E T U R N S [ C o n t e x t T 0003040 r e e N o d e ] ; \r \r M a k e B 0003060 i n d L i s t C o n t e x t T r 0003100 e e W i t h D e f B o d y P r o 0003120 c T y p e : \t T Y P E = P R 0003140 O C [ R E F A N Y , D e f B 0003160 o d y P T r e e N o d e , C o 0003200 n t e x t R i b N o d e , B O 0003220 O L E A N ] R E T U R N S [ C 0003240 o n t e x t T r e e N o d e ] ; 0003260 \r \r H a n g C o n t e x t s F r 0003300 o m C o n t e x t T r e e P r o 0003320 c T y p e : \t T Y P E = P R 0003340 O C [ R E F A N Y , C o n t 0003360 e x t T r e e N o d e , C o n 0003400 t e x t R i b N o d e , B O O 0003420 L E A N ] R E T U R N S [ C o 0003440 n t e x t T r e e N o d e ] ; \r 0003460 \r U p d a t e L o c a l C o n t 0003500 e x t P r o c T y p e : \t T Y P 0003520 E = P R O C [ R E F A N Y 0003540 , L o c a l C o n t e x t N o 0003560 d e , B O O L E A N ] R E T 0003600 U R N S [ L o c a l C o n t e x 0003620 t N o d e ] ; \r \r P u t N e w N 0003640 a m e s I n L o c a l C o n t e 0003660 x t P r o c T y p e : \t T Y P E 0003700 = P R O C [ R E F A N Y , 0003720 L o c a l C o n t e x t N o d 0003740 e ] R E T U R N S [ L o c a l 0003760 C o n t e x t N o d e ] ; \r \r P 0004000 u t N e w N a m e s I n L o c a 0004020 l C o n t e x t 1 P r o c T y p 0004040 e : \t T Y P E = P R O C [ R 0004060 E F A N Y , L o c a l C o n 0004100 t e x t N o d e , A c c e s s 0004120 V a l N o d e ] R E T U R N S 0004140 [ L o c a l C o n t e x t N o d 0004160 e ] ; \r \r F i l l I n L o c a l 0004200 C o n t e x t P r o c T y p e : 0004220 \t T Y P E = P R O C [ R E F 0004240 A N Y , L o c a l C o n t e 0004260 x t N o d e , B O O L E A N ] 0004300 R E T U R N S [ L o c a l C o 0004320 n t e x t N o d e ] ; \r \r R e c 0004340 A d d A r c s f r o m L V T G N 0004360 t o T G N P r o c T y p e : \t T 0004400 Y P E = P R O C [ R E F A 0004420 N Y , L o c a l C o n t e x t 0004440 N o d e , A c c e s s V a l N 0004460 o d e , T y p e G r a p h N o 0004500 d e N o d e , D e f a u l t E 0004520 x p N o d e ] R E T U R N S [ 0004540 L o c a l C o n t e x t N o d e 0004560 ] ; \r \r M a k e T y p e P r o c 0004600 T y p e : \t T Y P E = P R O 0004620 C [ R E F A N Y , L o c a l 0004640 C o n t e x t N o d e , B O O 0004660 L E A N ] R E T U R N S [ L o 0004700 c a l C o n t e x t N o d e , 0004720 T y p e G r a p h N o d e N o d 0004740 e ] ; \r \r L o o k u p T y p e I 0004760 d P r o c T y p e : \t T Y P E 0005000 = P R O C [ R E F A N Y , 0005020 L o c a l C o n t e x t N o d e 0005040 ] R E T U R N S [ L o c a l C 0005060 o n t e x t N o d e , T y p e 0005100 G r a p h N o d e N o d e ] ; \r 0005120 \r M a k e A r g u m e n t L i s 0005140 t s P r o c T y p e : \t T Y P E 0005160 = P R O C [ R E F A N Y , 0005200 L o c a l C o n t e x t N o d 0005220 e , B O O L E A N ] R E T U 0005240 R N S [ L o c a l C o n t e x t 0005260 N o d e , F r o z e n F i e l 0005300 d L i s t N o d e , F r o z e 0005320 n F i e l d L i s t N o d e ] ; 0005340 \r \r M a k e F i e l d L i s t P 0005360 r o c T y p e : \t T Y P E = 0005400 P R O C [ R E F A N Y , L o 0005420 c a l C o n t e x t N o d e , 0005440 B O O L E A N ] R E T U R N S 0005460 [ L o c a l C o n t e x t N o d 0005500 e , F i e l d L i s t N o d e 0005520 ] ; \r \r A d d P a i r s T o F i 0005540 e l d L i s t P r o c T y p e : 0005560 \t T Y P E = P R O C [ R E F 0005600 A N Y , L o c a l C o n t e 0005620 x t N o d e , F i e l d L i s 0005640 t N o d e , B O O L E A N ] 0005660 R E T U R N S [ L o c a l C o n 0005700 t e x t N o d e , F i e l d L 0005720 i s t N o d e ] ; \r \r A d d T o 0005740 F i e l d L i s t P r o c T y p 0005760 e : \t T Y P E = P R O C [ R 0006000 E F A N Y , L o c a l C o n 0006020 t e x t N o d e , F i e l d L 0006040 i s t N o d e , B O O L E A N 0006060 ] R E T U R N S [ L o c a l C 0006100 o n t e x t N o d e , F i e l 0006120 d L i s t N o d e ] ; \r \r A d d 0006140 N a m e s T o F i e l d L i s t 0006160 P r o c T y p e : \t T Y P E = 0006200 P R O C [ R E F A N Y , A 0006220 c c e s s V a l N o d e , T y 0006240 p e G r a p h N o d e N o d e , 0006260 D e f a u l t E x p N o d e , 0006300 F i e l d L i s t N o d e ] 0006320 R E T U R N S [ F i e l d L i s 0006340 t N o d e ] ; \r \r M a k e U n i 0006360 o n L i s t P r o c T y p e : \t 0006400 T Y P E = P R O C [ R E F 0006420 A N Y , L o c a l C o n t e x 0006440 t N o d e , B O O L E A N ] 0006460 R E T U R N S [ L o c a l C o n 0006500 t e x t N o d e , U n i o n L 0006520 i s t N o d e ] ; \r \r A d d V a 0006540 r i a n t s T o U n i o n L i s 0006560 t P r o c T y p e : \t T Y P E 0006600 = P R O C [ R E F A N Y , 0006620 L o c a l C o n t e x t N o d e 0006640 , U n i o n L i s t N o d e , 0006660 B O O L E A N ] R E T U R N 0006700 S [ L o c a l C o n t e x t N o 0006720 d e , U n i o n L i s t N o d 0006740 e ] ; \r \r A d d N a m e s T o U 0006760 n i o n L i s t P r o c T y p e 0007000 : \t T Y P E = P R O C [ R E 0007020 F A N Y , F r o z e n F i e 0007040 l d L i s t N o d e , U n i o 0007060 n L i s t N o d e ] R E T U R 0007100 N S [ U n i o n L i s t N o d e 0007120 ] ; \r \r M a k e T a g T y p e P 0007140 r o c T y p e : \t T Y P E = 0007160 P R O C [ R E F A N Y , L o 0007200 c a l C o n t e x t N o d e , 0007220 B O O L E A N ] R E T U R N S 0007240 [ L o c a l C o n t e x t N o d 0007260 e , T y p e G r a p h N o d e 0007300 N o d e , B O O L E A N ] ; \r 0007320 \r M a k e S t a r T a g T y p e 0007340 P r o c T y p e : \t T Y P E = 0007360 P R O C [ R E F A N Y , L 0007400 o c a l C o n t e x t N o d e ] 0007420 R E T U R N S [ L o c a l C o 0007440 n t e x t N o d e , T y p e G 0007460 r a p h N o d e N o d e ] ; \r \r 0007500 A d d V a r i a n t N a m e s T 0007520 o E n u m T y p e T G N P r o c 0007540 T y p e : \t T Y P E = P R O 0007560 C [ R E F A N Y , L o c a l 0007600 C o n t e x t N o d e , T y p 0007620 e G r a p h N o d e N o d e ] 0007640 R E T U R N S [ L o c a l C o n 0007660 t e x t N o d e ] ; \r \r M a k e 0007700 V a r i a n t F l a v o r P r o 0007720 c T y p e : \t T Y P E = P R 0007740 O C [ R E F A N Y ] R E T U 0007760 R N S [ V a r i a n t F l a v o 0010000 r N o d e ] ; \r \r G e t I d e n 0010020 t I n f o P r o c T y p e : \t T 0010040 Y P E = P R O C [ R E F A 0010060 N Y ] R E T U R N S [ I d N o 0010100 d e , P o s i t i o n V a l N 0010120 o d e ] ; \r \r G e t S e q u e n 0010140 c e T a g I n f o P r o c T y p 0010160 e : \t T Y P E = P R O C [ R 0010200 E F A N Y ] R E T U R N S [ 0010220 I d N o d e , P o s i t i o n 0010240 V a l N o d e , A c c e s s V 0010260 a l N o d e ] ; \r \r M a k e E l 0010300 e m e n t L i s t P r o c T y p 0010320 e : \t T Y P E = P R O C [ R 0010340 E F A N Y , L o c a l C o n 0010360 t e x t N o d e , B O O L E A 0010400 N ] R E T U R N S [ L o c a l 0010420 C o n t e x t N o d e , T y p 0010440 e G r a p h N o d e N o d e ] ; 0010460 \r \r E l e m e n t I n f o P r o 0010500 c T y p e : \t T Y P E = P R 0010520 O C [ R E F A N Y ] R E T U 0010540 R N S [ I d N o d e , E x p P 0010560 T r e e N o d e ] ; \r \r G e t P 0010600 o i n t e r T y p e I n f o P r 0010620 o c T y p e : \t T Y P E = P 0010640 R O C [ R E F A N Y , L o c 0010660 a l C o n t e x t N o d e , B 0010700 O O L E A N ] R E T U R N S [ 0010720 L o c a l C o n t e x t N o d e 0010740 , B o u n d s V a l N o d e , 0010760 B O O L E A N , T y p e G r 0011000 a p h N o d e N o d e ] ; \r \r M 0011020 a k e T r a n s f e r M o d e P 0011040 r o c T y p e : \t T Y P E = 0011060 P R O C [ R E F A N Y ] R E 0011100 T U R N S [ R O P E ] ; \r \r G e 0011120 t B o u n d s V a l P r o c T y 0011140 p e : \t T Y P E = P R O C [ 0011160 R E F A N Y ] R E T U R N S 0011200 [ B o u n d s V a l N o d e ] ; 0011220 \r \r G e t L o w e r A n d U p p 0011240 e r P r o c T y p e : \t T Y P E 0011260 = P R O C [ R E F A N Y ] 0011300 R E T U R N S [ E x p P T r e 0011320 e N o d e , E x p P T r e e N 0011340 o d e ] ; \r \r G e t E x p V a l 0011360 P r o c T y p e : \t T Y P E = 0011400 P R O C [ R E F A N Y ] R 0011420 E T U R N S [ E x p P T r e e N 0011440 o d e ] ; \r \r G e t P o s i t i 0011460 o n V a l P r o c T y p e : \t T 0011500 Y P E = P R O C [ R E F A 0011520 N Y ] R E T U R N S [ P o s i 0011540 t i o n V a l N o d e ] ; \r \r G 0011560 e t A c c e s s V a l P r o c T 0011600 y p e : \t T Y P E = P R O C 0011620 [ R E F A N Y ] R E T U R N 0011640 S [ A c c e s s V a l N o d e ] 0011660 ; \r \r G e t D e f a u l t E x p 0011700 V a l P r o c T y p e : \t T Y P 0011720 E = P R O C [ R E F A N Y 0011740 ] R E T U R N S [ D e f a u l 0011760 t E x p N o d e ] ; \r \r I d V a 0012000 l P r o c T y p e : \t T Y P E 0012020 = P R O C [ R E F A N Y ] 0012040 R E T U R N S [ I d N o d e ] ; 0012060 \r \r M a k e N a m e S e q u e n 0012100 c e P r o c T y p e : \t T Y P E 0012120 = P R O C [ R E F A N Y ] 0012140 R E T U R N S [ N a m e S e q 0012160 u e n c e N o d e ] ; \r \r A d d 0012200 N a m e s T o S e q u e n c e P 0012220 r o c T y p e : \t T Y P E = 0012240 P R O C [ R E F A N Y , N a 0012260 m e S e q u e n c e N o d e ] 0012300 R E T U R N S [ N a m e S e q u 0012320 e n c e N o d e ] ; \r \r E N D . 0012340 . \r 0012342