$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron3.0>Derived>SaffronTreeDeclsDef.Mesa!34 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 R a 0000160 u e n . p a a t S e p t e m 0000200 b e r 1 , 1 9 8 8 2 : 4 2 0000220 : 2 1 p m P D T \r - - 0000240 u s i n g T h r e e C a s a b 0000260 a F o u r [ 1 . 2 ] o f J 0000300 u n e 1 , 1 9 8 7 6 : 0 0 0000320 : 0 0 p m P D T \r \r D I R E 0000340 C T O R Y \r \t S a f f r o n G e 0000360 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 f 0000420 , \r \t B i g I n t e g e r s ; \r 0000440 \r S a f f r o n T r e e D e c l 0000460 s D e f : C E D A R D E F I 0000500 N I T I O N S = \r B E G I N 0000520 \r O P E N S a f f r o n G e n 0000540 e r i c D e f , R o p e , S 0000560 a f f r o n B a s e D e f , B 0000600 i g I n t e g e r s ; \r D o T o 0000620 p P r o c T y p e : \t T Y P E 0000640 = P R O C [ R E F A N Y , 0000660 R O P E , E n v i r o n m e n 0000700 t N o d e , C o m p i l e r S 0000720 t a t e N o d e ] R E T U R N 0000740 S [ E n v i r o n m e n t N o d 0000760 e ] ; \r \r M a k e E n v i r o n 0001000 m e n t P r o c T y p e : \t T Y 0001020 P E = P R O C [ R E F A N 0001040 Y , R O P E , E n v i r o n 0001060 m e n t N o d e , C o m p i l 0001100 e r S t a t e N o d e ] R E T 0001120 U R N S [ E n v i r o n m e n t 0001140 N o d e ] ; \r \r P r o c e s s D 0001160 i r e c t o r y C l a u s e P r 0001200 o c T y p e : \t T Y P E = P 0001220 R O C [ R E F A N Y , F i e 0001240 l d L i s t N o d e , L o c a 0001260 l C o n t e x t N o d e , E n 0001300 v i r o n m e n t N o d e , C 0001320 o m p i l e r S t a t e N o d e 0001340 ] R E T U R N S [ F i e l d L 0001360 i s t N o d e , L o c a l C o 0001400 n t e x t N o d e , E n v i r 0001420 o n m e n t N o d e ] ; \r \r P r 0001440 o c e s s D i r e c t o r y I t 0001460 e m P r o c T y p e : \t T Y P E 0001500 = P R O C [ R E F A N Y , 0001520 L o c a l C o n t e x t N o d 0001540 e , E n v i r o n m e n t N o 0001560 d e , C o m p i l e r S t a t 0001600 e N o d e ] R E T U R N S [ F 0001620 i e l d N o d e , L o c a l C 0001640 o n t e x t N o d e , E n v i 0001660 r o n m e n t N o d e ] ; \r \r R 0001700 e s t r i c t N a m e d T G N P 0001720 r o c T y p e : \t T Y P E = 0001740 P R O C [ R E F A N Y , T y 0001760 p e G r a p h N o d e N o d e ] 0002000 R E T U R N S [ T y p e G r a 0002020 p h N o d e N o d e ] ; \r \r A d 0002040 d I d s T o R e s t r i c t i o 0002060 n L i s t P r o c T y p e : \t T 0002100 Y P E = P R O C [ R E F A 0002120 N Y , T y p e G r a p h N o d 0002140 e N o d e ] R E T U R N S [ T 0002160 y p e G r a p h N o d e N o d e 0002200 ] ; \r \r B u i l d I n t e r f a 0002220 c e T G N P r o c T y p e : \t T 0002240 Y P E = P R O C [ R E F A 0002260 N Y , L o c a l C o n t e x t 0002300 N o d e , B O O L E A N , C 0002320 o m p i l e r S t a t e N o d e 0002340 ] R E T U R N S [ L o c a l C 0002360 o n t e x t N o d e , T y p e 0002400 G r a p h N o d e N o d e ] ; \r 0002420 \r B u i l d I m p l e m e n t a 0002440 t i o n T G N P r o c T y p e : 0002460 \t T Y P E = P R O C [ R E F 0002500 A N Y , L o c a l C o n t e 0002520 x t N o d e , B O O L E A N , 0002540 C o m p i l e r S t a t e N o 0002560 d e ] R E T U R N S [ L o c a 0002600 l C o n t e x t N o d e , T y 0002620 p e G r a p h N o d e N o d e ] 0002640 ; \r \r M a k e C o n t e x t T r 0002660 e e P r o c T y p e : \t T Y P E 0002700 = P R O C [ R E F A N Y , 0002720 C o n t e x t R i b N o d e , 0002740 B O O L E A N , C o m p i l 0002760 e r S t a t e N o d e ] R E T 0003000 U R N S [ C o n t e x t T r e e 0003020 N o d e ] ; \r \r M a k e C o n t 0003040 e x t T r e e 1 P r o c T y p e 0003060 : \t T Y P E = P R O C [ R E 0003100 F A N Y , C o n t e x t R i 0003120 b N o d e , B O O L E A N , 0003140 C o m p i l e r S t a t e N o d 0003160 e ] R E T U R N S [ C o n t e 0003200 x t T r e e N o d e ] ; \r \r M a 0003220 k e B i n d L i s t C o n t e x 0003240 t T r e e W i t h S c o p e P r 0003260 o c T y p e : \t T Y P E = P 0003300 R O C [ R E F A N Y , S c o 0003320 p e P T r e e N o d e , C o n 0003340 t e x t R i b N o d e , B O O 0003360 L E A N , C o m p i l e r S t 0003400 a t e N o d e ] R E T U R N S 0003420 [ C o n t e x t T r e e N o d e 0003440 ] ; \r \r M a k e B i n d L i s t 0003460 C o n t e x t T r e e W i t h D 0003500 e f B o d y P r o c T y p e : \t 0003520 T Y P E = P R O C [ R E F 0003540 A N Y , D e f B o d y P T r e 0003560 e N o d e , C o n t e x t R i 0003600 b N o d e , B O O L E A N , 0003620 C o m p i l e r S t a t e N o d 0003640 e ] R E T U R N S [ C o n t e 0003660 x t T r e e N o d e ] ; \r \r H a 0003700 n g C o n t e x t s F r o m C o 0003720 n t e x t T r e e P r o c T y p 0003740 e : \t T Y P E = P R O C [ R 0003760 E F A N Y , C o n t e x t T 0004000 r e e N o d e , C o n t e x t 0004020 R i b N o d e , B O O L E A N 0004040 , C o m p i l e r S t a t e N 0004060 o d e ] R E T U R N S [ C o n 0004100 t e x t T r e e N o d e ] ; \r \r 0004120 U p d a t e L o c a l C o n t e 0004140 x t P r o c T y p e : \t T Y P E 0004160 = P R O C [ R E F A N Y , 0004200 L o c a l C o n t e x t N o d 0004220 e , B O O L E A N , C o m p 0004240 i l e r S t a t e N o d e ] R 0004260 E T U R N S [ L o c a l C o n t 0004300 e x t N o d e ] ; \r \r A d d D e 0004320 c l a r a t i o n s T o F i e l 0004340 d L i s t P r o c T y p e : \t T 0004360 Y P E = P R O C [ R E F A 0004400 N Y , F i e l d L i s t N o d 0004420 e , L o c a l C o n t e x t N 0004440 o d e , C o m p i l e r S t a 0004460 t e N o d e ] R E T U R N S [ 0004500 F i e l d L i s t N o d e , L 0004520 o c a l C o n t e x t N o d e ] 0004540 ; \r \r A d d D e c l a r a t i o 0004560 n T o F i e l d L i s t 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 , F i e l d 0004640 L i s t N o d e , L o c a l C 0004660 o n t e x t N o d e , C o m p 0004700 i l e r S t a t e N o d e ] R 0004720 E T U R N S [ F i e l d L i s t 0004740 N o d e , L o c a l C o n t e 0004760 x t N o d e ] ; \r \r M a k e T y 0005000 p e P r o c T y p e : \t T Y P E 0005020 = P R O C [ R E F A N Y , 0005040 L o c a l C o n t e x t N o d 0005060 e , B O O L E A N , C o m p 0005100 i l e r S t a t e N o d e ] R 0005120 E T U R N S [ L o c a l C o n t 0005140 e x t N o d e , T y p e G r a 0005160 p h N o d e N o d e ] ; \r \r L o 0005200 o k u p T y p e I d P r o c T y 0005220 p e : \t T Y P E = P R O C [ 0005240 R E F A N Y , L o c a l C o 0005260 n t e x t N o d e ] R E T U R 0005300 N S [ L o c a l C o n t e x t N 0005320 o d e , T y p e G r a p h N o 0005340 d e N o d e ] ; \r \r M a k e A r 0005360 g u m e n t L i s t s P r o c T 0005400 y p e : \t T Y P E = P R O C 0005420 [ R E F A N Y , L o c a l C 0005440 o n t e x t N o d e , B O O L 0005460 E A N , C o m p i l e r S t a 0005500 t e N o d e ] R E T U R N S [ 0005520 L o c a l C o n t e x t N o d e 0005540 , F r o z e n F i e l d L i s 0005560 t N o d e , F r o z e n F i e 0005600 l d L i s t N o d e ] ; \r \r M a 0005620 k e F i e l d L i s t P r o c T 0005640 y p e : \t T Y P E = P R O C 0005660 [ R E F A N Y , L o c a l C 0005700 o n t e x t N o d e , B O O L 0005720 E A N , C o m p i l e r S t a 0005740 t e N o d e ] R E T U R N S [ 0005760 L o c a l C o n t e x t N o d e 0006000 , F i e l d L i s t N o d e ] 0006020 ; \r \r A d d P a i r s T o F i e 0006040 l d L i s t P r o c T y p e : \t 0006060 T Y P E = P R O C [ R E F 0006100 A N Y , L o c a l C o n t e x 0006120 t N o d e , F i e l d L i s t 0006140 N o d e , B O O L E A N , C 0006160 o m p i l e r S t a t e N o d e 0006200 ] R E T U R N S [ L o c a l C 0006220 o n t e x t N o d e , F i e l 0006240 d L i s t N o d e ] ; \r \r A d d 0006260 T o F i e l d L i s t P r o c T 0006300 y p e : \t T Y P E = P R O C 0006320 [ R E F A N Y , L o c a l C 0006340 o n t e x t N o d e , F i e l 0006360 d L i s t N o d e , B O O L E 0006400 A N , C o m p i l e r S t a t 0006420 e N o d e ] R E T U R N S [ L 0006440 o c a l C o n t e x t N o d e , 0006460 F i e l d L i s t N o d e ] ; 0006500 \r \r A d d N a m e s T o F i e l 0006520 d L i s t P r o c T y p e : \t T 0006540 Y P E = P R O C [ R E F A 0006560 N Y , A c c e s s V a l N o d 0006600 e , T y p e G r a p h N o d e 0006620 N o d e , D e f a u l t E x p 0006640 N o d e , F i e l d L i s t N 0006660 o d e ] R E T U R N S [ F i e 0006700 l d L i s t N o d e ] ; \r \r A d 0006720 d T y p e D e c l a r a t i o n 0006740 T o F i e l d L i s t P r o c T 0006760 y p e : \t T Y P E = P R O C 0007000 [ R E F A N Y , F i e l d L 0007020 i s t N o d e , L o c a l C o 0007040 n t e x t N o d e , C o m p i 0007060 l e r S t a t e N o d e , A c 0007100 c e s s V a l N o d e , A c c 0007120 e s s V a l N o d e , T y p e 0007140 G r a p h N o d e N o d e , T 0007160 y p e E x p P T r e e N o d e , 0007200 D e f a u l t E x p N o d e ] 0007220 R E T U R N S [ F i e l d L i 0007240 s t N o d e , L o c a l C o n 0007260 t e x t N o d e ] ; \r \r A d d V 0007300 a l u e D e c l a r a t i o n T 0007320 o F i e l d L i s t P r o c T y 0007340 p e : \t T Y P E = P R O C [ 0007360 R E F A N Y , F i e l d L i 0007400 s t N o d e , C o m p i l e r 0007420 S t a t e N o d e , D e c l a 0007440 r a t i o n P T r e e N o d e , 0007460 A c c e s s V a l N o d e , 0007500 T y p e G r a p h N o d e N o d 0007520 e , I n i t i a l i z a t i o 0007540 n P T r e e N o d e ] R E T U 0007560 R N S [ F i e l d L i s t N o d 0007600 e ] ; \r \r M a k e E l e m e n t 0007620 L i s t P r o c T y p e : \t T Y 0007640 P E = P R O C [ R E F A N 0007660 Y , L o c a l C o n t e x t N 0007700 o d e , B O O L E A N ] R E 0007720 T U R N S [ L o c a l C o n t e 0007740 x t N o d e , T y p e G r a p 0007760 h N o d e N o d e ] ; \r \r E l e 0010000 m e n t I n f o P r o c T y p e 0010020 : \t T Y P E = P R O C [ R E 0010040 F A N Y ] R E T U R N S [ I 0010060 d N o d e , V a l u e N o d e 0010100 ] ; \r \r G e t P o i n t e r T y 0010120 p e I n f o P r o c T y p e : \t 0010140 T Y P E = P R O C [ R E F 0010160 A N Y , L o c a l C o n t e x 0010200 t N o d e , B O O L E A N , 0010220 C o m p i l e r S t a t e N o d 0010240 e ] R E T U R N S [ L o c a l 0010260 C o n t e x t N o d e , B o u 0010300 n d s V a l N o d e , B O O L 0010320 E A N , T y p e G r a p h N o 0010340 d e N o d e ] ; \r \r M a k e T r 0010360 a n s f e r M o d e P r o c T y 0010400 p e : \t T Y P E = P R O C [ 0010420 R E F A N Y ] R E T U R N S 0010440 [ R O P E ] ; \r \r M a k e U n i 0010460 o n L i s t P r o c T y p e : \t 0010500 T Y P E = P R O C [ R E F 0010520 A N Y , L o c a l C o n t e x 0010540 t N o d e , B O O L E A N , 0010560 C o m p i l e r S t a t e N o d 0010600 e ] R E T U R N S [ L o c a l 0010620 C o n t e x t N o d e , U n i 0010640 o n L i s t N o d e ] ; \r \r A d 0010660 d V a r i a n t s T o U n i o n 0010700 L i s t P r o c T y p e : \t T Y 0010720 P E = P R O C [ R E F A N 0010740 Y , L o c a l C o n t e x t N 0010760 o d e , U n i o n L i s t N o 0011000 d e , B O O L E A N , C o m 0011020 p i l e r S t a t e N o d e ] 0011040 R E T U R N S [ L o c a l C o n 0011060 t e x t N o d e , U n i o n L 0011100 i s t N o d e ] ; \r \r A d d N a 0011120 m e s T o U n i o n L i s t P r 0011140 o c T y p e : \t T Y P E = P 0011160 R O C [ R E F A N Y , F r o 0011200 z e n F i e l d L i s t N o d e 0011220 , U n i o n L i s t N o d e ] 0011240 R E T U R N S [ U n i o n L i 0011260 s t N o d e ] ; \r \r M a k e T a 0011300 g T y p e P r o c T y p e : \t T 0011320 Y P E = P R O C [ R E F A 0011340 N Y , L o c a l C o n t e x t 0011360 N o d e , B O O L E A N , C 0011400 o m p i l e r S t a t e N o d e 0011420 ] R E T U R N S [ L o c a l C 0011440 o n t e x t N o d e , T y p e 0011460 G r a p h N o d e N o d e , B 0011500 O O L E A N ] ; \r \r M a k e S t 0011520 a r T a g T y p e P r o c T y p 0011540 e : \t T Y P E = P R O C [ R 0011560 E F A N Y , L o c a l C o n 0011600 t e x t N o d e ] R E T U R N 0011620 S [ L o c a l C o n t e x t N o 0011640 d e , T y p e G r a p h N o d 0011660 e N o d e ] ; \r \r A d d V a r i 0011700 a n t N a m e s T o E n u m T y 0011720 p e T G N P r o c T y p e : \t T 0011740 Y P E = P R O C [ R E F A 0011760 N Y , L o c a l C o n t e x t 0012000 N o d e , T y p e G r a p h N 0012020 o d e N o d e ] R E T U R N S 0012040 [ L o c a l C o n t e x t N o d 0012060 e ] ; \r \r M a k e V a r i a n t 0012100 F l a v o r P r o c T y p e : \t 0012120 T Y P E = P R O C [ R E F 0012140 A N Y , C o m p i l e r S t a 0012160 t e N o d e ] R E T U R N S [ 0012200 V a r i a n t F l a v o r N o d 0012220 e ] ; \r \r G e t I d e n t I n f 0012240 o P r o c T y p e : \t T Y P E 0012260 = P R O C [ R E F A N Y ] 0012300 R E T U R N S [ I d N o d e , 0012320 P o s i t i o n V a l N o d e ] 0012340 ; \r \r G e t S e q u e n c e T a 0012360 g I n f o P r o c T y p e : \t T 0012400 Y P E = P R O C [ R E F A 0012420 N Y , C o m p i l e r S t a t 0012440 e N o d e ] R E T U R N S [ I 0012460 d N o d e , P o s i t i o n V 0012500 a l N o d e , A c c e s s V a 0012520 l N o d e ] ; \r \r M a k e N a m 0012540 e S e q u e n c e P r o c T y p 0012560 e : \t T Y P E = P R O C [ R 0012600 E F A N Y ] R E T U R N S [ 0012620 N a m e S e q u e n c e N o d e 0012640 ] ; \r \r A d d N a m e s T o S e 0012660 q u e n c e P r o c T y p e : \t 0012700 T Y P E = P R O C [ R E F 0012720 A N Y , N a m e S e q u e n c 0012740 e N o d e ] R E T U R N S [ N 0012760 a m e S e q u e n c e N o d e ] 0013000 ; \r \r E v a l u a t e E x p r e 0013020 s s i o n P r o c T y p e : \t T 0013040 Y P E = P R O C [ R E F A 0013060 N Y , L o c a l C o n t e x t 0013100 N o d e , F i e l d L i s t N 0013120 o d e , C o m p i l e r S t a 0013140 t e N o d e , T y p e G r a p 0013160 h N o d e N o d e ] R E T U R 0013200 N S [ V a l u e N o d e ] ; \r \r 0013220 C o m p i l e E x p r e s s i o 0013240 n P r o c T y p e : \t T Y P E 0013260 = P R O C [ R E F A N Y , 0013300 C o n t e x t T r e e N o d e , 0013320 C o m p i l e r S t a t e N o 0013340 d e , T y p e G r a p h N o d 0013360 e N o d e ] R E T U R N S [ V 0013400 a l u e N o d e , C o n t e x 0013420 t T r e e N o d e ] ; \r \r E v a 0013440 l u a t e S i z e O f T y p e E 0013460 x p r e s s i o n P r o c T y p 0013500 e : \t T Y P E = P R O C [ R 0013520 E F A N Y , L o c a l C o n 0013540 t e x t N o d e , F i e l d L 0013560 i s t N o d e , C o m p i l e 0013600 r S t a t e N o d e , T y p e 0013620 G r a p h N o d e N o d e ] R 0013640 E T U R N S [ B i g I N T ] ; \r 0013660 \r C o m p i l e S i z e O f T y 0013700 p e E x p r e s s i o n P r o c 0013720 T y p e : \t T Y P E = P R O 0013740 C [ R E F A N Y , C o n t e 0013760 x t T r e e N o d e , C o m p 0014000 i l e r S t a t e N o d e , T 0014020 y p e G r a p h N o d e N o d e 0014040 ] R E T U R N S [ B i g I N T 0014060 ] ; \r \r E v a l u a t e F i r s 0014100 t O f T y p e E x p r e s s i o 0014120 n P r o c T y p e : \t T Y P E 0014140 = P R O C [ R E F A N Y , 0014160 L o c a l C o n t e x t N o d e 0014200 , F i e l d L i s t N o d e , 0014220 C o m p i l e r S t a t e N o 0014240 d e , T y p e G r a p h N o d 0014260 e N o d e ] R E T U R N S [ V 0014300 a l u e N o d e ] ; \r \r C o m p 0014320 i l e F i r s t O f T y p e E x 0014340 p r e s s i o n P r o c T y p e 0014360 : \t T Y P E = P R O C [ R E 0014400 F A N Y , C o n t e x t T r 0014420 e e N o d e , C o m p i l e r 0014440 S t a t e N o d e , T y p e G 0014460 r a p h N o d e N o d e ] R E 0014500 T U R N S [ V a l u e N o d e ] 0014520 ; \r \r E v a l u a t e L a s t O 0014540 f T y p e E x p r e s s i o n P 0014560 r o c T y p e : \t T Y P E = 0014600 P R O C [ R E F A N Y , L o 0014620 c a l C o n t e x t N o d e , 0014640 F i e l d L i s t N o d e , C 0014660 o m p i l e r S t a t e N o d e 0014700 , T y p e G r a p h N o d e N 0014720 o d e ] R E T U R N S [ V a l 0014740 u e N o d e ] ; \r \r C o m p i l 0014760 e L a s t O f T y p e E x p r e 0015000 s s i o n P r o c T y p e : \t T 0015020 Y P E = P R O C [ R E F A 0015040 N Y , C o n t e x t T r e e N 0015060 o d e , C o m p i l e r S t a 0015100 t e N o d e , T y p e G r a p 0015120 h N o d e N o d e ] R E T U R 0015140 N S [ V a l u e N o d e ] ; \r \r 0015160 C o m p i l e L V a l u e P r o 0015200 c T y p e : \t T Y P E = P R 0015220 O C [ R E F A N Y , C o n t 0015240 e x t T r e e N o d e , C o m 0015260 p i l e r S t a t e N o d e ] 0015300 R E T U R N S [ P a r a m e t e 0015320 r i z e d F i e l d D e s c r i 0015340 p t o r N o d e , T y p e G r 0015360 a p h N o d e N o d e ] ; \r \r I 0015400 s P l u s P r o c T y p e : \t T 0015420 Y P E = P R O C [ R E F A 0015440 N Y ] R E T U R N S [ B O O L 0015460 E A N ] ; \r \r I s M i n u s P r 0015500 o c T y p e : \t T Y P E = P 0015520 R O C [ R E F A N Y ] R E T 0015540 U R N S [ B O O L E A N ] ; \r \r 0015560 I s T i m e s P r o c T y p e : 0015600 \t T Y P E = P R O C [ R E F 0015620 A N Y ] R E T U R N S [ B O 0015640 O L E A N ] ; \r \r I s D i v i d 0015660 e P r o c T y p e : \t T Y P E 0015700 = P R O C [ R E F A N Y ] 0015720 R E T U R N S [ B O O L E A N ] 0015740 ; \r \r I s M o d P r o c T y p e 0015760 : \t T Y P E = P R O C [ R E 0016000 F A N Y ] R E T U R N S [ B 0016020 O O L E A N ] ; \r \r G e t R e l 0016040 a t i o n O p P r o c T y p e : 0016060 \t T Y P E = P R O C [ R E F 0016100 A N Y ] R E T U R N S [ R e 0016120 l a t i o n O p ] ; \r \r I n t e 0016140 g e r V a l u e F r o m L i t e 0016160 r a l P r o c T y p e : \t T Y P 0016200 E = P R O C [ R E F A N Y 0016220 ] R E T U R N S [ B i g I N T 0016240 ] ; \r \r C o m p i l e Q u a l i 0016260 f i e d E x p r e s s i o n P r 0016300 o c T y p e : \t T Y P E = P 0016320 R O C [ R E F A N Y , V a l 0016340 u e N o d e , C o n t e x t T 0016360 r e e N o d e , C o m p i l e 0016400 r S t a t e N o d e , T y p e 0016420 G r a p h N o d e N o d e ] R 0016440 E T U R N S [ V a l u e N o d e 0016460 , C o n t e x t T r e e N o d 0016500 e ] ; \r \r I n i t i a l i z a t 0016520 i o n I s E m p t y P r o c T y 0016540 p e : \t T Y P E = P R O C [ 0016560 R E F A N Y ] R E T U R N S 0016600 [ B O O L E A N ] ; \r \r I n i t 0016620 i a l i z a t i o n I s B i n d 0016640 i n g P r o c T y p e : \t T Y P 0016660 E = P R O C [ R E F A N Y 0016700 ] R E T U R N S [ B O O L E A 0016720 N ] ; \r \r I n i t i a l i z a t 0016740 i o n I s A s s i g n m e n t P 0016760 r o c T y p e : \t T Y P E = 0017000 P R O C [ R E F A N Y ] R E 0017020 T U R N S [ B O O L E A N ] ; \r 0017040 \r G e t I n i t i a l V a l u e 0017060 P r o c T y p e : \t T Y P E = 0017100 P R O C [ R E F A N Y , T 0017120 y p e G r a p h N o d e N o d e 0017140 , L o c a l C o n t e x t N o 0017160 d e , C o m p i l e r S t a t 0017200 e N o d e ] R E T U R N S [ V 0017220 a l u e N o d e , L o c a l C 0017240 o n t e x t N o d e ] ; \r \r C o 0017260 m p i l e P r o c T y p e : \t T 0017300 Y P E = P R O C [ R E F A 0017320 N Y , C o n t e x t T r e e N 0017340 o d e , P r o g r a m G r a p 0017360 h N o d e , C o m p i l e r S 0017400 t a t e N o d e ] R E T U R N 0017420 S [ C o n t e x t T r e e N o d 0017440 e , P r o g r a m F r a g m e 0017460 n t N o d e , P r o g r a m G 0017500 r a p h N o d e ] ; \r \r C o m p 0017520 i l e F r a m e B l o c k P r o 0017540 c T y p e : \t T Y P E = P R 0017560 O C [ R E F A N Y , T y p e 0017600 G r a p h N o d e N o d e , C 0017620 o n t e x t T r e e N o d e , 0017640 P r o g r a m G r a p h N o d e 0017660 , C o m p i l e r S t a t e N 0017700 o d e ] R E T U R N S [ C o n 0017720 t e x t T r e e N o d e , P r 0017740 o g r a m F r a g m e n t N o d 0017760 e , P r o g r a m G r a p h N 0020000 o d e ] ; \r \r I n t e r n a l C 0020020 o m p i l e B l o c k P r o c T 0020040 y p e : \t T Y P E = P R O C 0020060 [ R E F A N Y , L o c a l C 0020100 o n t e x t N o d e , F i e l 0020120 d L i s t N o d e , P r o g r 0020140 a m G r a p h N o d e , C o m 0020160 p i l e r S t a t e N o d e ] 0020200 R E T U R N S [ C o n t e x t T 0020220 r e e N o d e , P r o g r a m 0020240 F r a g m e n t N o d e , P r 0020260 o g r a m G r a p h N o d e ] ; 0020300 \r \r C o m p i l e S c o p e P r 0020320 o c T y p e : \t T Y P E = P 0020340 R O C [ R E F A N Y , L o c 0020360 a l C o n t e x t N o d e , F 0020400 i e l d L i s t N o d e , P r 0020420 o g r a m G r a p h N o d e , 0020440 C o m p i l e r S t a t e N o d 0020460 e ] R E T U R N S [ C o n t e 0020500 x t T r e e N o d e , P r o g 0020520 r a m F r a g m e n t N o d e , 0020540 P r o g r a m G r a p h N o d 0020560 e ] ; \r \r C o m p i l e I n i t 0020600 i a l i z a t i o n P r o c T y 0020620 p e : \t T Y P E = P R O C [ 0020640 R E F A N Y , C o n t e x t 0020660 T r e e N o d e , P r o g r a 0020700 m G r a p h N o d e , C o m p 0020720 i l e r S t a t e N o d e , T 0020740 y p e G r a p h N o d e N o d e 0020760 ] R E T U R N S [ C o n t e x 0021000 t T r e e N o d e , V a l u e 0021020 N o d e , P r o g r a m G r a 0021040 p h N o d e ] ; \r \r M a k e C o 0021060 d e T o S t o r e T O S I n V a 0021100 r i o u s L o c a l F r a m e S 0021120 l o t s P r o c T y p e : \t T Y 0021140 P E = P R O C [ R E F A N 0021160 Y , C o n t e x t T r e e N o 0021200 d e ] R E T U R N S [ P r o g 0021220 r a m F r a g m e n t N o d e ] 0021240 ; \r \r A d d M o d u l e P r o p 0021260 e r t i e s T o C o m p i l e r 0021300 S t a t e P r o c T y p e : \t T 0021320 Y P E = P R O C [ R E F A 0021340 N Y , C o m p i l e r S t a t 0021360 e N o d e ] R E T U R N S [ C 0021400 o m p i l e r S t a t e N o d e 0021420 ] ; \r \r A d d V a l u e D e p e 0021440 n d e n c i e s P r o c T y p e 0021460 : \t T Y P E = P R O C [ R E 0021500 F A N Y , D e p e n d e n c 0021520 y G r a p h N o d e , D e p e 0021540 n d e n c y G r a p h N o d e N 0021560 o d e ] R E T U R N S [ D e p 0021600 e n d e n c y G r a p h N o d e 0021620 ] ; \r \r A d d S i z e D e p e n 0021640 d e n c i e s P r o c T y p e : 0021660 \t T Y P E = P R O C [ R E F 0021700 A N Y , D e p e n d e n c y 0021720 G r a p h N o d e , D e p e n 0021740 d e n c y G r a p h N o d e N o 0021760 d e ] R E T U R N S [ D e p e 0022000 n d e n c y G r a p h N o d e ] 0022020 ; \r \r A d d F i r s t D e p e n 0022040 d e n c i e s P r o c T y p e : 0022060 \t T Y P E = P R O C [ R E F 0022100 A N Y , D e p e n d e n c y 0022120 G r a p h N o d e , D e p e n 0022140 d e n c y G r a p h N o d e N o 0022160 d e ] R E T U R N S [ D e p e 0022200 n d e n c y G r a p h N o d e ] 0022220 ; \r \r A d d L a s t D e p e n d 0022240 e n c i e s P r o c T y p e : \t 0022260 T Y P E = P R O C [ R E F 0022300 A N Y , D e p e n d e n c y G 0022320 r a p h N o d e , D e p e n d 0022340 e n c y G r a p h N o d e N o d 0022360 e ] R E T U R N S [ D e p e n 0022400 d e n c y G r a p h N o d e ] ; 0022420 \r \r T y p e O p I s C o d e P r 0022440 o c T y p e : \t T Y P E = P 0022460 R O C [ R E F A N Y ] R E T 0022500 U R N S [ B O O L E A N ] ; \r \r 0022520 T y p e O p I s F i r s t P r o 0022540 c T y p e : \t T Y P E = P R 0022560 O C [ R E F A N Y ] R E T U 0022600 R N S [ B O O L E A N ] ; \r \r T 0022620 y p e O p I s L a s t P r o c T 0022640 y p e : \t T Y P E = P R O C 0022660 [ R E F A N Y ] R E T U R N 0022700 S [ B O O L E A N ] ; \r \r T y p 0022720 e O p I s N i l P r o c T y p e 0022740 : \t T Y P E = P R O C [ R E 0022760 F A N Y ] R E T U R N S [ B 0023000 O O L E A N ] ; \r \r G e t B o u 0023020 n d s V a l P r o c T y p e : \t 0023040 T Y P E = P R O C [ R E F 0023060 A N Y ] R E T U R N S [ B o u 0023100 n d s V a l N o d e ] ; \r \r G e 0023120 t L o w e r A n d U p p e r P r 0023140 o c T y p e : \t T Y P E = P 0023160 R O C [ R E F A N Y ] R E T 0023200 U R N S [ V a l u e N o d e , 0023220 V a l u e N o d e ] ; \r \r G e t 0023240 E x p V a l P r o c T y p e : \t 0023260 T Y P E = P R O C [ R E F 0023300 A N Y ] R E T U R N S [ V a l 0023320 u e N o d e ] ; \r \r G e t P o s 0023340 i t i o n V a l P r o c T y p e 0023360 : \t T Y P E = P R O C [ R E 0023400 F A N Y ] R E T U R N S [ P 0023420 o s i t i o n V a l N o d e ] ; 0023440 \r \r G e t A c c e s s V a l P r 0023460 o c T y p e : \t T Y P E = P 0023500 R O C [ R E F A N Y , A c c 0023520 e s s V a l N o d e ] R E T U 0023540 R N S [ A c c e s s V a l N o d 0023560 e ] ; \r \r G e t D e f a u l t E 0023600 x p V a l P r o c T y p e : \t T 0023620 Y P E = P R O C [ R E F A 0023640 N Y ] R E T U R N S [ D e f a 0023660 u l t E x p N o d e ] ; \r \r I s 0023700 K e y w o r d P r e s e n t P r 0023720 o c T y p e : \t T Y P E = P 0023740 R O C [ R E F A N Y ] R E T 0023760 U R N S [ B O O L E A N ] ; \r \r 0024000 I d V a l P r o c T y p e : \t T 0024020 Y P E = P R O C [ R E F A 0024040 N Y ] R E T U R N S [ I d N o 0024060 d e ] ; \r \r R o p e F r o m I d 0024100 O r S t r i n g P r o c T y p e 0024120 : \t T Y P E = P R O C [ R E 0024140 F A N Y ] R E T U R N S [ R 0024160 O P E ] ; \r \r E N D . . \r 0024175