$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron3.0>Derived>SaffronAG1aImpl.Mesa!18 0000000 - - S a f f r o n A G 1 a I m 0000020 p l . m e s a \r - - C o p y 0000040 r i g h t 323 1 9 8 7 b y 0000060 X e r o x C o r p o r a t i o 0000100 n . A l l r i g h t s r 0000120 e s e r v e d . \r - - G e n 0000140 e r a t e d b y R a u e n . 0000160 p a a t S e p t e m b e r 0000200 1 , 1 9 8 8 7 : 2 4 : 1 5 0000220 p m P D T \r - - u s i n 0000240 g T h r e e C a s a b a F o u 0000260 r [ 1 . 2 ] o f J u n e 0000300 1 , 1 9 8 7 6 : 0 0 : 0 0 0000320 p m P D T \r \r D I R E C T O R 0000340 Y \r \t S a f f r o n A G 1 a D e 0000360 f , \r \t S a f f r o n G e n e r 0000400 i c D e f , \r \t S a f f r o n A 0000420 T D e f ; \r \r S a f f r o n A G 0000440 1 a I m p l : C E D A R P R 0000460 O G R A M I M P O R T S S a 0000500 f f r o n A G 1 a D e f E X P 0000520 O R T S S a f f r o n A G 1 a 0000540 D e f = \r B E G I N \r O P E N 0000560 S a f f r o n A G 1 a D e f , 0000600 S a f f r o n G e n e r i c D 0000620 e f , S a f f r o n A T D e f 0000640 ; \r \r - - J u n k P r o d \r \r 0000660 J u n k P r o d P r o c s : \t P 0000700 U B L I C J u n k N o d e P r 0000720 o c s _ \r \t N E W [ J u n k N 0000740 o d e P r o c s B o d y _ [ 0000760 J u n k P r o d f o o ] ] ; \r \r 0001000 B u i l d J u n k P r o d N o d 0001020 e : \t P U B L I C P R O C [ p 0001040 o s i t i o n : I N T , l e 0001060 n g t h : I N T ] \r \t R E T U 0001100 R N S [ J u n k N o d e ] = \r 0001120 \t \t B E G I N \r \t \t R E T U R N 0001140 [ N E W [ J u n k N o d e B o d 0001160 y _ [ p o s i t i o n , l e n 0001200 g t h , J u n k P r o d P r o 0001220 c s , N I L ] ] ] ; \r \t \t E N 0001240 D ; \r \r \r - - T o p m o d u l 0001260 e p P r o d \r \r T o p m o d u l 0001300 e p P r o d P r o c s : \t P U B 0001320 L I C T o p N o d e P r o c s 0001340 _ \r \t N E W [ T o p N o d e P 0001360 r o c s B o d y _ [ T o p m 0001400 o d u l e p P r o d D o T o p ] 0001420 ] ; \r \r B u i l d T o p m o d u 0001440 l e p P r o d N o d e : \t P U B 0001460 L I C P R O C [ p o s i t i o 0001500 n : I N T , l e n g t h : 0001520 I N T , M o d u l e P : M o 0001540 d u l e P N o d e ] \r \t R E T U 0001560 R N S [ T o p N o d e ] = \r \t 0001600 \t B E G I N \r \t \t d a t a : \t T 0001620 o p m o d u l e p P r o d D a t 0001640 a _ \r \t \t \t N E W [ T o p m o 0001660 d u l e p P r o d D a t a B o d 0001700 y _ [ \r \t \t \t M o d u l e P 0001720 ] ] ; \r \t \t R E T U R N [ N E W 0001740 [ T o p N o d e B o d y _ [ p o 0001760 s i t i o n , l e n g t h , 0002000 T o p m o d u l e p P r o d P r 0002020 o c s , d a t a ] ] ] ; \r \t \t 0002040 E N D ; \r \r \r - - E x p s u m 0002060 P r o d \r \r E x p s u m P r o d 0002100 P r o c s : \t P U B L I C E x 0002120 p N o d e P r o c s _ \r \t N E 0002140 W [ E x p N o d e P r o c s B o 0002160 d y _ [ E x p s u m P r o d 0002200 I d V a l , E x p s u m P r o 0002220 d C o m p i l e E x p r e s s i 0002240 o n , E x p s u m P r o d A d 0002260 d V a l u e D e p e n d e n c i 0002300 e s , E x p s u m P r o d C o 0002320 m p i l e L V a l u e , E x p 0002340 s u m P r o d E v a l u a t e E 0002360 x p r e s s i o n ] ] ; \r \r B u 0002400 i l d E x p s u m P r o d N o d 0002420 e : \t P U B L I C P R O C [ p 0002440 o s i t i o n : I N T , l e 0002460 n g t h : I N T , E x p l e 0002500 f t : E x p N o d e , A d d 0002520 O p : A d d O p N o d e , E 0002540 x p r i g h t : E x p N o d e 0002560 ] \r \t R E T U R N S [ E x p N o 0002600 d e ] = \r \t \t B E G I N \r \t \t 0002620 d a t a : \t E x p s u m P r o d 0002640 D a t a _ \r \t \t \t N E W [ E x 0002660 p s u m P r o d D a t a B o d y 0002700 _ [ \r \t \t \t E x p l e f t , 0002720 A d d O p , E x p r i g h t 0002740 ] ] ; \r \t \t R E T U R N [ N E W 0002760 [ E x p N o d e B o d y _ [ p o 0003000 s i t i o n , l e n g t h , 0003020 E x p s u m P r o d P r o c s , 0003040 d a t a ] ] ] ; \r \t \t E N D ; 0003060 \r \r \r - - E x p u n a r y s u 0003100 m P r o d \r \r E x p u n a r y s 0003120 u m P r o d P r o c s : \t P U B 0003140 L I C E x p N o d e P r o c s 0003160 _ \r \t N E W [ E x p N o d e P 0003200 r o c s B o d y _ [ E x p u 0003220 n a r y s u m P r o d I d V a l 0003240 , E x p u n a r y s u m P r o 0003260 d C o m p i l e E x p r e s s i 0003300 o n , E x p u n a r y s u m P 0003320 r o d A d d V a l u e D e p e n 0003340 d e n c i e s , E x p u n a r 0003360 y s u m P r o d C o m p i l e L 0003400 V a l u e , E x p u n a r y s 0003420 u m P r o d E v a l u a t e E x 0003440 p r e s s i o n ] ] ; \r \r B u i 0003460 l d E x p u n a r y s u m P r o 0003500 d N o d e : \t P U B L I C P R 0003520 O C [ p o s i t i o n : I N T 0003540 , l e n g t h : I N T , A 0003560 d d O p : A d d O p N o d e , 0003600 E x p : E x p N o d e ] \r \t 0003620 R E T U R N S [ E x p N o d e ] 0003640 = \r \t \t B E G I N \r \t \t d a t 0003660 a : \t E x p u n a r y s u m P r 0003700 o d D a t a _ \r \t \t \t N E W [ 0003720 E x p u n a r y s u m P r o d D 0003740 a t a B o d y _ [ \r \t \t \t A 0003760 d d O p , E x p ] ] ; \r \t \t R 0004000 E T U R N [ N E W [ E x p N o d 0004020 e B o d y _ [ p o s i t i o n , 0004040 l e n g t h , E x p u n a r 0004060 y s u m P r o d P r o c s , d 0004100 a t a ] ] ] ; \r \t \t E N D ; \r \r 0004120 \r - - E x p p r o d u c t P r 0004140 o d \r \r E x p p r o d u c t P r 0004160 o d P r o c s : \t P U B L I C 0004200 E x p N o d e P r o c s _ \r \t 0004220 N E W [ E x p N o d e P r o c s 0004240 B o d y _ [ E x p p r o d u 0004260 c t P r o d I d V a l , E x p 0004300 p r o d u c t P r o d C o m p i 0004320 l e E x p r e s s i o n , E x 0004340 p p r o d u c t P r o d A d d V 0004360 a l u e D e p e n d e n c i e s 0004400 , E x p p r o d u c t P r o d 0004420 C o m p i l e L V a l u e , E 0004440 x p p r o d u c t P r o d E v a 0004460 l u a t e E x p r e s s i o n ] 0004500 ] ; \r \r B u i l d E x p p r o d 0004520 u c t P r o d N o d e : \t P U B 0004540 L I C P R O C [ p o s i t i o 0004560 n : I N T , l e n g t h : 0004600 I N T , E x p l e f t : E x 0004620 p N o d e , M u l t O p : M 0004640 u l t O p N o d e , E x p r i 0004660 g h t : E x p N o d e ] \r \t R 0004700 E T U R N S [ E x p N o d e ] 0004720 = \r \t \t B E G I N \r \t \t d a t a 0004740 : \t E x p p r o d u c t P r o d 0004760 D a t a _ \r \t \t \t N E W [ E x 0005000 p p r o d u c t P r o d D a t a 0005020 B o d y _ [ \r \t \t \t E x p l 0005040 e f t , M u l t O p , E x p 0005060 r i g h t ] ] ; \r \t \t R E T U R 0005100 N [ N E W [ E x p N o d e B o d 0005120 y _ [ p o s i t i o n , l e n 0005140 g t h , E x p p r o d u c t P 0005160 r o d P r o c s , d a t a ] ] 0005200 ] ; \r \t \t E N D ; \r \r \r - - E 0005220 x p o r P r o d \r \r E x p o r P 0005240 r o d P r o c s : \t P U B L I C 0005260 E x p N o d e P r o c s _ \r 0005300 \t N E W [ E x p N o d e P r o c 0005320 s B o d y _ [ E x p o r P r 0005340 o d I d V a l , E x p o r P r 0005360 o d C o m p i l e E x p r e s s 0005400 i o n , E x p o r P r o d A d 0005420 d V a l u e D e p e n d e n c i 0005440 e s , E x p o r P r o d C o m 0005460 p i l e L V a l u e , E x p o 0005500 r P r o d E v a l u a t e E x p 0005520 r e s s i o n ] ] ; \r \r B u i l 0005540 d E x p o r P r o d N o d e : \t 0005560 P U B L I C P R O C [ p o s i 0005600 t i o n : I N T , l e n g t 0005620 h : I N T , E x p l e f t : 0005640 E x p N o d e , E x p r i g 0005660 h t : E x p N o d e ] \r \t R E 0005700 T U R N S [ E x p N o d e ] = 0005720 \r \t \t B E G I N \r \t \t d a t a : 0005740 \t E x p o r P r o d D a t a _ 0005760 \r \t \t \t N E W [ E x p o r P r o 0006000 d D a t a B o d y _ [ \r \t \t 0006020 \t E x p l e f t , E x p r i g 0006040 h t ] ] ; \r \t \t R E T U R N [ N 0006060 E W [ E x p N o d e B o d y _ [ 0006100 p o s i t i o n , l e n g t h 0006120 , E x p o r P r o d P r o c s 0006140 , d a t a ] ] ] ; \r \t \t E N D 0006160 ; \r \r \r - - E x p a n d P r o 0006200 d \r \r E x p a n d P r o d P r o 0006220 c s : \t P U B L I C E x p N o 0006240 d e P r o c s _ \r \t N E W [ E 0006260 x p N o d e P r o c s B o d y 0006300 _ [ E x p a n d P r o d I d V 0006320 a l , E x p a n d P r o d C o 0006340 m p i l e E x p r e s s i o n , 0006360 E x p a n d P r o d A d d V a 0006400 l u e D e p e n d e n c i e s , 0006420 E x p a n d P r o d C o m p i 0006440 l e L V a l u e , E x p a n d 0006460 P r o d E v a l u a t e E x p r 0006500 e s s i o n ] ] ; \r \r B u i l d 0006520 E x p a n d P r o d N o d e : \t 0006540 P U B L I C P R O C [ p o s i 0006560 t i o n : I N T , l e n g t 0006600 h : I N T , E x p l e f t : 0006620 E x p N o d e , E x p r i g 0006640 h t : E x p N o d e ] \r \t R E 0006660 T U R N S [ E x p N o d e ] = 0006700 \r \t \t B E G I N \r \t \t d a t a : 0006720 \t E x p a n d P r o d D a t a 0006740 _ \r \t \t \t N E W [ E x p a n d P 0006760 r o d D a t a B o d y _ [ \r 0007000 \t \t \t E x p l e f t , E x p r 0007020 i g h t ] ] ; \r \t \t R E T U R N 0007040 [ N E W [ E x p N o d e B o d y 0007060 _ [ p o s i t i o n , l e n g 0007100 t h , E x p a n d P r o d P r 0007120 o c s , d a t a ] ] ] ; \r \t \t 0007140 E N D ; \r \r \r - - E x p n o t 0007160 P r o d \r \r E x p n o t P r o d 0007200 P r o c s : \t P U B L I C E x 0007220 p N o d e P r o c s _ \r \t N E 0007240 W [ E x p N o d e P r o c s B o 0007260 d y _ [ E x p n o t P r o d 0007300 I d V a l , E x p n o t P r o 0007320 d C o m p i l e E x p r e s s i 0007340 o n , E x p n o t P r o d A d 0007360 d V a l u e D e p e n d e n c i 0007400 e s , E x p n o t P r o d C o 0007420 m p i l e L V a l u e , E x p 0007440 n o t P r o d E v a l u a t e E 0007460 x p r e s s i o n ] ] ; \r \r B u 0007500 i l d E x p n o t P r o d N o d 0007520 e : \t P U B L I C P R O C [ p 0007540 o s i t i o n : I N T , l e 0007560 n g t h : I N T , E x p : 0007600 E x p N o d e ] \r \t R E T U R N 0007620 S [ E x p N o d e ] = \r \t \t B 0007640 E G I N \r \t \t d a t a : \t E x p 0007660 n o t P r o d D a t a _ \r \t \t 0007700 \t N E W [ E x p n o t P r o d D 0007720 a t a B o d y _ [ \r \t \t \t E 0007740 x p ] ] ; \r \t \t R E T U R N [ N 0007760 E W [ E x p N o d e B o d y _ [ 0010000 p o s i t i o n , l e n g t h 0010020 , E x p n o t P r o d P r o c 0010040 s , d a t a ] ] ] ; \r \t \t E N 0010060 D ; \r \r \r - - E x p r e l a t 0010100 i o n P r o d \r \r E x p r e l a 0010120 t i o n P r o d P r o c s : \t P 0010140 U B L I C E x p N o d e P r o 0010160 c s _ \r \t N E W [ E x p N o d 0010200 e P r o c s B o d y _ [ E x 0010220 p r e l a t i o n P r o d I d V 0010240 a l , E x p r e l a t i o n P 0010260 r o d C o m p i l e E x p r e s 0010300 s i o n , E x p r e l a t i o 0010320 n P r o d A d d V a l u e D e p 0010340 e n d e n c i e s , E x p r e 0010360 l a t i o n P r o d C o m p i l 0010400 e L V a l u e , E x p r e l a 0010420 t i o n P r o d E v a l u a t e 0010440 E x p r e s s i o n ] ] ; \r \r B 0010460 u i l d E x p r e l a t i o n P 0010500 r o d N o d e : \t P U B L I C 0010520 P R O C [ p o s i t i o n : I 0010540 N T , l e n g t h : I N T , 0010560 E x p : E x p N o d e , R 0010600 e l a t i o n : R e l a t i o 0010620 n N o d e ] \r \t R E T U R N S [ 0010640 E x p N o d e ] = \r \t \t B E G 0010660 I N \r \t \t d a t a : \t E x p r e 0010700 l a t i o n P r o d D a t a _ 0010720 \r \t \t \t N E W [ E x p r e l a t 0010740 i o n P r o d D a t a B o d y 0010760 _ [ \r \t \t \t E x p , R e l a 0011000 t i o n ] ] ; \r \t \t R E T U R N 0011020 [ N E W [ E x p N o d e B o d y 0011040 _ [ p o s i t i o n , l e n g 0011060 t h , E x p r e l a t i o n P 0011100 r o d P r o c s , d a t a ] ] 0011120 ] ; \r \t \t E N D ; \r \r \r - - E 0011140 x p i f t h e n e l s e P r o d 0011160 \r \r E x p i f t h e n e l s e P 0011200 r o d P r o c s : \t P U B L I C 0011220 E x p N o d e P r o c s _ \r 0011240 \t N E W [ E x p N o d e P r o c 0011260 s B o d y _ [ E x p i f t h 0011300 e n e l s e P r o d I d V a l , 0011320 E x p i f t h e n e l s e P r 0011340 o d C o m p i l e E x p r e s s 0011360 i o n , E x p i f t h e n e l 0011400 s e P r o d A d d V a l u e D e 0011420 p e n d e n c i e s , E x p i 0011440 f t h e n e l s e P r o d C o m 0011460 p i l e L V a l u e , E x p i 0011500 f t h e n e l s e P r o d E v a 0011520 l u a t e E x p r e s s i o n ] 0011540 ] ; \r \r B u i l d E x p i f t h 0011560 e n e l s e P r o d N o d e : \t 0011600 P U B L I C P R O C [ p o s i 0011620 t i o n : I N T , l e n g t 0011640 h : I N T , E x p c o n d : 0011660 E x p N o d e , E x p t h e 0011700 n p a r t : E x p N o d e , 0011720 E x p e l s e p a r t : E x p 0011740 N o d e ] \r \t R E T U R N S [ E 0011760 x p N o d e ] = \r \t \t B E G I 0012000 N \r \t \t d a t a : \t E x p i f t 0012020 h e n e l s e P r o d D a t a 0012040 _ \r \t \t \t N E W [ E x p i f t h 0012060 e n e l s e P r o d D a t a B o 0012100 d y _ [ \r \t \t \t E x p c o n 0012120 d , E x p t h e n p a r t , 0012140 E x p e l s e p a r t ] ] ; \r \t 0012160 \t R E T U R N [ N E W [ E x p N 0012200 o d e B o d y _ [ p o s i t i o 0012220 n , l e n g t h , E x p i f 0012240 t h e n e l s e P r o d P r o c 0012260 s , d a t a ] ] ] ; \r \t \t E N 0012300 D ; \r \r \r - - E x p s e l e c 0012320 t P r o d \r \r E x p s e l e c t 0012340 P r o d P r o c s : \t P U B L I 0012360 C E x p N o d e P r o c s _ 0012400 \r \t N E W [ E x p N o d e P r o 0012420 c s B o d y _ [ E x p s e l 0012440 e c t P r o d I d V a l , E x 0012460 p s e l e c t P r o d C o m p i 0012500 l e E x p r e s s i o n , E x 0012520 p s e l e c t P r o d A d d V a 0012540 l u e D e p e n d e n c i e s , 0012560 E x p s e l e c t P r o d C o 0012600 m p i l e L V a l u e , E x p 0012620 s e l e c t P r o d E v a l u a 0012640 t e E x p r e s s i o n ] ] ; \r 0012660 \r B u i l d E x p s e l e c t P 0012700 r o d N o d e : \t P U B L I C 0012720 P R O C [ p o s i t i o n : I 0012740 N T , l e n g t h : I N T , 0012760 S e l e c t H e a d : S e l 0013000 e c t H e a d N o d e , S e l 0013020 e c t E x p L i s t : S e l e 0013040 c t E x p L i s t N o d e , E 0013060 x p d e f a u l t : E x p N o 0013100 d e ] \r \t R E T U R N S [ E x p 0013120 N o d e ] = \r \t \t B E G I N \r 0013140 \t \t d a t a : \t E x p s e l e c 0013160 t P r o d D a t a _ \r \t \t \t N 0013200 E W [ E x p s e l e c t P r o d 0013220 D a t a B o d y _ [ \r \t \t \t 0013240 S e l e c t H e a d , S e l e 0013260 c t E x p L i s t , E x p d e 0013300 f a u l t ] ] ; \r \t \t R E T U R 0013320 N [ N E W [ E x p N o d e B o d 0013340 y _ [ p o s i t i o n , l e n 0013360 g t h , E x p s e l e c t P r 0013400 o d P r o c s , d a t a ] ] ] 0013420 ; \r \t \t E N D ; \r \r \r - - E x 0013440 p a s s i g n P r o d \r \r E x p 0013460 a s s i g n P r o d P r o c s : 0013500 \t P U B L I C E x p N o d e P 0013520 r o c s _ \r \t N E W [ E x p N 0013540 o d e P r o c s B o d y _ [ 0013560 E x p a s s i g n P r o d I d V 0013600 a l , E x p a s s i g n P r o 0013620 d C o m p i l e E x p r e s s i 0013640 o n , E x p a s s i g n P r o 0013660 d A d d V a l u e D e p e n d e 0013700 n c i e s , E x p a s s i g n 0013720 P r o d C o m p i l e L V a l u 0013740 e , E x p a s s i g n P r o d 0013760 E v a l u a t e E x p r e s s i 0014000 o n ] ] ; \r \r B u i l d E x p a 0014020 s s i g n P r o d N o d e : \t P 0014040 U B L I C P R O C [ p o s i t 0014060 i o n : I N T , l e n g t h 0014100 : I N T , E x p l h s : E 0014120 x p N o d e , E x p r h s : 0014140 E x p N o d e ] \r \t R E T U R N 0014160 S [ E x p N o d e ] = \r \t \t B 0014200 E G I N \r \t \t d a t a : \t E x p 0014220 a s s i g n P r o d D a t a _ 0014240 \r \t \t \t N E W [ E x p a s s i g 0014260 n P r o d D a t a B o d y _ 0014300 [ \r \t \t \t E x p l h s , E x p 0014320 r h s ] ] ; \r \t \t R E T U R N [ 0014340 N E W [ E x p N o d e B o d y _ 0014360 [ p o s i t i o n , l e n g t 0014400 h , E x p a s s i g n P r o d 0014420 P r o c s , d a t a ] ] ] ; \r 0014440 \t \t E N D ; \r \r \r - - E x p m 0014460 u l t i a s s i g n P r o d \r \r 0014500 E x p m u l t i a s s i g n P r 0014520 o d P r o c s : \t P U B L I C 0014540 E x p N o d e P r o c s _ \r \t 0014560 N E W [ E x p N o d e P r o c s 0014600 B o d y _ [ E x p m u l t i 0014620 a s s i g n P r o d I d V a l , 0014640 E x p m u l t i a s s i g n P 0014660 r o d C o m p i l e E x p r e s 0014700 s i o n , E x p m u l t i a s 0014720 s i g n P r o d A d d V a l u e 0014740 D e p e n d e n c i e s , E x 0014760 p m u l t i a s s i g n P r o d 0015000 C o m p i l e L V a l u e , E 0015020 x p m u l t i a s s i g n P r o 0015040 d E v a l u a t e E x p r e s s 0015060 i o n ] ] ; \r \r B u i l d E x p 0015100 m u l t i a s s i g n P r o d N 0015120 o d e : \t P U B L I C P R O C 0015140 [ p o s i t i o n : I N T , 0015160 l e n g t h : I N T , E x p 0015200 L i s t : E x p L i s t N o d 0015220 e , E x p : E x p N o d e ] 0015240 \r \t R E T U R N S [ E x p N o d 0015260 e ] = \r \t \t B E G I N \r \t \t d 0015300 a t a : \t E x p m u l t i a s s 0015320 i g n P r o d D a t a _ \r \t \t 0015340 \t N E W [ E x p m u l t i a s s 0015360 i g n P r o d D a t a B o d y 0015400 _ [ \r \t \t \t E x p L i s t , 0015420 E x p ] ] ; \r \t \t R E T U R N [ 0015440 N E W [ E x p N o d e B o d y _ 0015460 [ p o s i t i o n , l e n g t 0015500 h , E x p m u l t i a s s i g 0015520 n P r o d P r o c s , d a t a 0015540 ] ] ] ; \r \t \t E N D ; \r \r \r - - 0015560 E x p i d P r o d \r \r E x p i 0015600 d P r o d P r o c s : \t P U B L 0015620 I C E x p N o d e P r o c s 0015640 _ \r \t N E W [ E x p N o d e P r 0015660 o c s B o d y _ [ E x p i d 0015700 P r o d I d V a l , E x p i d 0015720 P r o d C o m p i l e E x p r e 0015740 s s i o n , E x p i d P r o d 0015760 A d d V a l u e D e p e n d e n 0016000 c i e s , E x p i d P r o d C 0016020 o m p i l e L V a l u e , E x 0016040 p i d P r o d E v a l u a t e E 0016060 x p r e s s i o n ] ] ; \r \r B u 0016100 i l d E x p i d P r o d N o d e 0016120 : \t P U B L I C P R O C [ p o 0016140 s i t i o n : I N T , l e n 0016160 g t h : I N T , I d : I d 0016200 N o d e ] \r \t R E T U R N S [ E 0016220 x p N o d e ] = \r \t \t B E G I 0016240 N \r \t \t d a t a : \t E x p i d P 0016260 r o d D a t a _ \r \t \t \t N E W 0016300 [ E x p i d P r o d D a t a B o 0016320 d y _ [ \r \t \t \t I d ] ] ; \r 0016340 \t \t R E T U R N [ N E W [ E x p 0016360 N o d e B o d y _ [ p o s i t i 0016400 o n , l e n g t h , E x p i 0016420 d P r o d P r o c s , d a t a 0016440 ] ] ] ; \r \t \t E N D ; \r \r \r - - 0016460 E x p n u m P r o d \r \r E x p 0016500 n u m P r o d P r o c s : \t P U 0016520 B L I C E x p N o d e P r o c 0016540 s _ \r \t N E W [ E x p N o d e 0016560 P r o c s B o d y _ [ E x p 0016600 n u m P r o d I d V a l , E x 0016620 p n u m P r o d C o m p i l e E 0016640 x p r e s s i o n , E x p n u 0016660 m P r o d A d d V a l u e D e p 0016700 e n d e n c i e s , E x p n u 0016720 m P r o d C o m p i l e L V a l 0016740 u e , E x p n u m P r o d E v 0016760 a l u a t e E x p r e s s i o n 0017000 ] ] ; \r \r B u i l d E x p n u m 0017020 P r o d N o d e : \t P U B L I C 0017040 P R O C [ p o s i t i o n : 0017060 I N T , l e n g t h : I N T 0017100 , N u m : N u m N o d e ] \r 0017120 \t R E T U R N S [ E x p N o d e 0017140 ] = \r \t \t B E G I N \r \t \t d a 0017160 t a : \t E x p n u m P r o d D a 0017200 t a _ \r \t \t \t N E W [ E x p n 0017220 u m P r o d D a t a B o d y _ 0017240 [ \r \t \t \t N u m ] ] ; \r \t \t R 0017260 E T U R N [ N E W [ E x p N o d 0017300 e B o d y _ [ p o s i t i o n , 0017320 l e n g t h , E x p n u m P 0017340 r o d P r o c s , d a t a ] ] 0017360 ] ; \r \t \t E N D ; \r \r \r - - E 0017400 x p s t r i n g P r o d \r \r E x 0017420 p s t r i n g P r o d P r o c s 0017440 : \t P U B L I C E x p N o d e 0017460 P r o c s _ \r \t N E W [ E x p 0017500 N o d e P r o c s B o d y _ 0017520 [ E x p s t r i n g P r o d I d 0017540 V a l , E x p s t r i n g P r 0017560 o d C o m p i l e E x p r e s s 0017600 i o n , E x p s t r i n g P r 0017620 o d A d d V a l u e D e p e n d 0017640 e n c i e s , E x p s t r i n 0017660 g P r o d C o m p i l e L V a l 0017700 u e , E x p s t r i n g P r o 0017720 d E v a l u a t e E x p r e s s 0017740 i o n ] ] ; \r \r B u i l d E x p 0017760 s t r i n g P r o d N o d e : \t 0020000 P U B L I C P R O C [ p o s i 0020020 t i o n : I N T , l e n g t 0020040 h : I N T , S t r i n g : 0020060 S t r i n g N o d e ] \r \t R E T 0020100 U R N S [ E x p N o d e ] = \r 0020120 \t \t B E G I N \r \t \t d a t a : \t 0020140 E x p s t r i n g P r o d D a t 0020160 a _ \r \t \t \t N E W [ E x p s t 0020200 r i n g P r o d D a t a B o d y 0020220 _ [ \r \t \t \t S t r i n g ] ] 0020240 ; \r \t \t R E T U R N [ N E W [ E 0020260 x p N o d e B o d y _ [ p o s i 0020300 t i o n , l e n g t h , E x 0020320 p s t r i n g P r o d P r o c s 0020340 , d a t a ] ] ] ; \r \t \t E N D 0020360 ; \r \r \r - - E x p f l n u m P 0020400 r o d \r \r E x p f l n u m P r o 0020420 d P r o c s : \t P U B L I C E 0020440 x p N o d e P r o c s _ \r \t N 0020460 E W [ E x p N o d e P r o c s B 0020500 o d y _ [ E x p f l n u m P 0020520 r o d I d V a l , E x p f l n 0020540 u m P r o d C o m p i l e E x p 0020560 r e s s i o n , E x p f l n u 0020600 m P r o d A d d V a l u e D e p 0020620 e n d e n c i e s , E x p f l 0020640 n u m P r o d C o m p i l e L V 0020660 a l u e , E x p f l n u m P r 0020700 o d E v a l u a t e E x p r e s 0020720 s i o n ] ] ; \r \r B u i l d E x 0020740 p f l n u m P r o d N o d e : \t 0020760 P U B L I C P R O C [ p o s i 0021000 t i o n : I N T , l e n g t 0021020 h : I N T , F l n u m : F 0021040 l n u m N o d e ] \r \t R E T U R 0021060 N S [ E x p N o d e ] = \r \t \t 0021100 B E G I N \r \t \t d a t a : \t E x 0021120 p f l n u m P r o d D a t a _ 0021140 \r \t \t \t N E W [ E x p f l n u m 0021160 P r o d D a t a B o d y _ [ 0021200 \r \t \t \t F l n u m ] ] ; \r \t \t R 0021220 E T U R N [ N E W [ E x p N o d 0021240 e B o d y _ [ p o s i t i o n , 0021260 l e n g t h , E x p f l n u 0021300 m P r o d P r o c s , d a t a 0021320 ] ] ] ; \r \t \t E N D ; \r \r \r - - 0021340 E x p c h a r P r o d \r \r E x 0021360 p c h a r P r o d P r o c s : \t 0021400 P U B L I C E x p N o d e P r 0021420 o c s _ \r \t N E W [ E x p N o 0021440 d e P r o c s B o d y _ [ E 0021460 x p c h a r P r o d I d V a l , 0021500 E x p c h a r P r o d C o m p 0021520 i l e E x p r e s s i o n , E 0021540 x p c h a r P r o d A d d V a l 0021560 u e D e p e n d e n c i e s , 0021600 E x p c h a r P r o d C o m p i 0021620 l e L V a l u e , E x p c h a 0021640 r P r o d E v a l u a t e E x p 0021660 r e s s i o n ] ] ; \r \r B u i l 0021700 d E x p c h a r P r o d N o d e 0021720 : \t P U B L I C P R O C [ p o 0021740 s i t i o n : I N T , l e n 0021760 g t h : I N T , C h a r : 0022000 C h a r N o d e ] \r \t R E T U R 0022020 N S [ E x p N o d e ] = \r \t \t 0022040 B E G I N \r \t \t d a t a : \t E x 0022060 p c h a r P r o d D a t a _ \r 0022100 \t \t \t N E W [ E x p c h a r P r 0022120 o d D a t a B o d y _ [ \r \t 0022140 \t \t C h a r ] ] ; \r \t \t R E T U 0022160 R N [ N E W [ E x p N o d e B o 0022200 d y _ [ p o s i t i o n , l e 0022220 n g t h , E x p c h a r P r o 0022240 d P r o c s , d a t a ] ] ] ; 0022260 \r \t \t E N D ; \r \r \r - - E x p 0022300 a t o m P r o d \r \r E x p a t o 0022320 m P r o d P r o c s : \t P U B L 0022340 I C E x p N o d e P r o c s 0022360 _ \r \t N E W [ E x p N o d e P r 0022400 o c s B o d y _ [ E x p a t 0022420 o m P r o d I d V a l , E x p 0022440 a t o m P r o d C o m p i l e E 0022460 x p r e s s i o n , E x p a t 0022500 o m P r o d A d d V a l u e D e 0022520 p e n d e n c i e s , E x p a 0022540 t o m P r o d C o m p i l e L V 0022560 a l u e , E x p a t o m P r o 0022600 d E v a l u a t e E x p r e s s 0022620 i o n ] ] ; \r \r B u i l d E x p 0022640 a t o m P r o d N o d e : \t P U 0022660 B L I C P R O C [ p o s i t i 0022700 o n : I N T , l e n g t h : 0022720 I N T , A t o m : A t o m 0022740 N o d e ] \r \t R E T U R N S [ E 0022760 x p N o d e ] = \r \t \t B E G I 0023000 N \r \t \t d a t a : \t E x p a t o 0023020 m P r o d D a t a _ \r \t \t \t N 0023040 E W [ E x p a t o m P r o d D a 0023060 t a B o d y _ [ \r \t \t \t A t 0023100 o m ] ] ; \r \t \t R E T U R N [ N 0023120 E W [ E x p N o d e B o d y _ [ 0023140 p o s i t i o n , l e n g t h 0023160 , E x p a t o m P r o d P r o 0023200 c s , d a t a ] ] ] ; \r \t \t E 0023220 N D ; \r \r \r - - E x p n a r r 0023240 o w P r o d \r \r E x p n a r r o 0023260 w P r o d P r o c s : \t P U B L 0023300 I C E x p N o d e P r o c s 0023320 _ \r \t N E W [ E x p N o d e P r 0023340 o c s B o d y _ [ E x p n a 0023360 r r o w P r o d I d V a l , E 0023400 x p n a r r o w P r o d C o m p 0023420 i l e E x p r e s s i o n , E 0023440 x p n a r r o w P r o d A d d V 0023460 a l u e D e p e n d e n c i e s 0023500 , E x p n a r r o w P r o d C 0023520 o m p i l e L V a l u e , E x 0023540 p n a r r o w P r o d E v a l u 0023560 a t e E x p r e s s i o n ] ] ; 0023600 \r \r B u i l d E x p n a r r o w 0023620 P r o d N o d e : \t P U B L I C 0023640 P R O C [ p o s i t i o n : 0023660 I N T , l e n g t h : I N T 0023700 , E x p : E x p N o d e , 0023720 O p t T y p e : O p t T y p e 0023740 N o d e , C a t c h : C a t 0023760 c h N o d e ] \r \t R E T U R N S 0024000 [ E x p N o d e ] = \r \t \t B E 0024020 G I N \r \t \t d a t a : \t E x p n 0024040 a r r o w P r o d D a t a _ \r 0024060 \t \t \t N E W [ E x p n a r r o w 0024100 P r o d D a t a B o d y _ [ 0024120 \r \t \t \t E x p , O p t T y p e 0024140 , C a t c h ] ] ; \r \t \t R E T 0024160 U R N [ N E W [ E x p N o d e B 0024200 o d y _ [ p o s i t i o n , l 0024220 e n g t h , E x p n a r r o w 0024240 P r o d P r o c s , d a t a ] 0024260 ] ] ; \r \t \t E N D ; \r \r \r - - 0024300 E x p l o o p h o l e P r o d \r 0024320 \r E x p l o o p h o l e P r o d 0024340 P r o c s : \t P U B L I C E x 0024360 p N o d e P r o c s _ \r \t N E 0024400 W [ E x p N o d e P r o c s B o 0024420 d y _ [ E x p l o o p h o l 0024440 e P r o d I d V a l , E x p l 0024460 o o p h o l e P r o d C o m p i 0024500 l e E x p r e s s i o n , E x 0024520 p l o o p h o l e P r o d A d d 0024540 V a l u e D e p e n d e n c i e 0024560 s , E x p l o o p h o l e P r 0024600 o d C o m p i l e L V a l u e , 0024620 E x p l o o p h o l e P r o d 0024640 E v a l u a t e E x p r e s s i 0024660 o n ] ] ; \r \r B u i l d E x p l 0024700 o o p h o l e P r o d N o d e : 0024720 \t P U B L I C P R O C [ p o s 0024740 i t i o n : I N T , l e n g 0024760 t h : I N T , E x p : E x 0025000 p N o d e , O p t T y p e : 0025020 O p t T y p e N o d e ] \r \t R E 0025040 T U R N S [ E x p N o d e ] = 0025060 \r \t \t B E G I N \r \t \t d a t a : 0025100 \t E x p l o o p h o l e P r o d 0025120 D a t a _ \r \t \t \t N E W [ E x 0025140 p l o o p h o l e P r o d D a t 0025160 a B o d y _ [ \r \t \t \t E x p 0025200 , O p t T y p e ] ] ; \r \t \t R 0025220 E T U R N [ N E W [ E x p N o d 0025240 e B o d y _ [ p o s i t i o n , 0025260 l e n g t h , E x p l o o p 0025300 h o l e P r o d P r o c s , d 0025320 a t a ] ] ] ; \r \t \t E N D ; \r \r 0025340 \r - - E x p a p p l y P r o d 0025360 \r \r E x p a p p l y P r o d P r 0025400 o c s : \t P U B L I C E x p N 0025420 o d e P r o c s _ \r \t N E W [ 0025440 E x p N o d e P r o c s B o d y 0025460 _ [ E x p a p p l y P r o d 0025500 I d V a l , E x p a p p l y P 0025520 r o d C o m p i l e E x p r e s 0025540 s i o n , E x p a p p l y P r 0025560 o d A d d V a l u e D e p e n d 0025600 e n c i e s , E x p a p p l y 0025620 P r o d C o m p i l e L V a l u 0025640 e , E x p a p p l y P r o d E 0025660 v a l u a t e E x p r e s s i o 0025700 n ] ] ; \r \r B u i l d E x p a p 0025720 p l y P r o d N o d e : \t P U B 0025740 L I C P R O C [ p o s i t i o 0025760 n : I N T , l e n g t h : 0026000 I N T , E x p r a t o r : E 0026020 x p N o d e , E x p r a n d : 0026040 E x p N o d e , C a t c h : 0026060 C a t c h N o d e ] \r \t R E T 0026100 U R N S [ E x p N o d e ] = \r 0026120 \t \t B E G I N \r \t \t d a t a : \t 0026140 E x p a p p l y P r o d D a t a 0026160 _ \r \t \t \t N E W [ E x p a p p 0026200 l y P r o d D a t a B o d y _ 0026220 [ \r \t \t \t E x p r a t o r , 0026240 E x p r a n d , C a t c h ] ] 0026260 ; \r \t \t R E T U R N [ N E W [ E 0026300 x p N o d e B o d y _ [ p o s i 0026320 t i o n , l e n g t h , E x 0026340 p a p p l y P r o d P r o c s , 0026360 d a t a ] ] ] ; \r \t \t E N D ; 0026400 \r \r \r - - E x p q u a l i f i 0026420 e r P r o d \r \r E x p q u a l i 0026440 f i e r P r o d P r o c s : \t P 0026460 U B L I C E x p N o d e P r o 0026500 c s _ \r \t N E W [ E x p N o d 0026520 e P r o c s B o d y _ [ E x 0026540 p q u a l i f i e r P r o d I d 0026560 V a l , E x p q u a l i f i e 0026600 r P r o d C o m p i l e E x p r 0026620 e s s i o n , E x p q u a l i 0026640 f i e r P r o d A d d V a l u e 0026660 D e p e n d e n c i e s , E x 0026700 p q u a l i f i e r P r o d C o 0026720 m p i l e L V a l u e , E x p 0026740 q u a l i f i e r P r o d E v a 0026760 l u a t e E x p r e s s i o n ] 0027000 ] ; \r \r B u i l d E x p q u a l 0027020 i f i e r P r o d N o d e : \t P 0027040 U B L I C P R O C [ p o s i t 0027060 i o n : I N T , l e n g t h 0027100 : I N T , E x p : E x p N 0027120 o d e , Q u a l i f i e r : 0027140 Q u a l i f i e r N o d e ] \r \t 0027160 R E T U R N S [ E x p N o d e ] 0027200 = \r \t \t B E G I N \r \t \t d a t 0027220 a : \t E x p q u a l i f i e r P 0027240 r o d D a t a _ \r \t \t \t N E W 0027260 [ E x p q u a l i f i e r P r o 0027300 d D a t a B o d y _ [ \r \t \t 0027320 \t E x p , Q u a l i f i e r ] 0027340 ] ; \r \t \t R E T U R N [ N E W [ 0027360 E x p N o d e B o d y _ [ p o s 0027400 i t i o n , l e n g t h , E 0027420 x p q u a l i f i e r P r o d P 0027440 r o c s , d a t a ] ] ] ; \r \t 0027460 \t E N D ; \r \r \r - - E x p e x 0027500 p l i s t P r o d \r \r E x p e x 0027520 p l i s t P r o d P r o c s : \t 0027540 P U B L I C E x p N o d e P r 0027560 o c s _ \r \t N E W [ E x p N o 0027600 d e P r o c s B o d y _ [ E 0027620 x p e x p l i s t P r o d I d V 0027640 a l , E x p e x p l i s t P r 0027660 o d C o m p i l e E x p r e s s 0027700 i o n , E x p e x p l i s t P 0027720 r o d A d d V a l u e D e p e n 0027740 d e n c i e s , E x p e x p l 0027760 i s t P r o d C o m p i l e L V 0030000 a l u e , E x p e x p l i s t 0030020 P r o d E v a l u a t e E x p r 0030040 e s s i o n ] ] ; \r \r B u i l d 0030060 E x p e x p l i s t P r o d N o 0030100 d e : \t P U B L I C P R O C [ 0030120 p o s i t i o n : I N T , l 0030140 e n g t h : I N T , E x p L 0030160 i s t : E x p L i s t N o d e 0030200 ] \r \t R E T U R N S [ E x p N o 0030220 d e ] = \r \t \t B E G I N \r \t \t 0030240 d a t a : \t E x p e x p l i s t 0030260 P r o d D a t a _ \r \t \t \t N E 0030300 W [ E x p e x p l i s t P r o d 0030320 D a t a B o d y _ [ \r \t \t \t 0030340 E x p L i s t ] ] ; \r \t \t R E T 0030360 U R N [ N E W [ E x p N o d e B 0030400 o d y _ [ p o s i t i o n , l 0030420 e n g t h , E x p e x p l i s 0030440 t P r o d P r o c s , d a t a 0030460 ] ] ] ; \r \t \t E N D ; \r \r \r - - 0030500 E x p p r e f i x o p P r o d 0030520 \r \r E x p p r e f i x o p P r o 0030540 d P r o c s : \t P U B L I C E 0030560 x p N o d e P r o c s _ \r \t N 0030600 E W [ E x p N o d e P r o c s B 0030620 o d y _ [ E x p p r e f i x 0030640 o p P r o d I d V a l , E x p 0030660 p r e f i x o p P r o d C o m p 0030700 i l e E x p r e s s i o n , E 0030720 x p p r e f i x o p P r o d A d 0030740 d V a l u e D e p e n d e n c i 0030760 e s , E x p p r e f i x o p P 0031000 r o d C o m p i l e L V a l u e 0031020 , E x p p r e f i x o p P r o 0031040 d E v a l u a t e E x p r e s s 0031060 i o n ] ] ; \r \r B u i l d E x p 0031100 p r e f i x o p P r o d N o d e 0031120 : \t P U B L I C P R O C [ p o 0031140 s i t i o n : I N T , l e n 0031160 g t h : I N T , P r e f i x 0031200 O p : P r e f i x O p N o d e 0031220 , O r d e r L i s t : O r d 0031240 e r L i s t N o d e ] \r \t R E T 0031260 U R N S [ E x p N o d e ] = \r 0031300 \t \t B E G I N \r \t \t d a t a : \t 0031320 E x p p r e f i x o p P r o d D 0031340 a t a _ \r \t \t \t N E W [ E x p 0031360 p r e f i x o p P r o d D a t a 0031400 B o d y _ [ \r \t \t \t P r e f 0031420 i x O p , O r d e r L i s t ] 0031440 ] ; \r \t \t R E T U R N [ N E W [ 0031460 E x p N o d e B o d y _ [ p o s 0031500 i t i o n , l e n g t h , E 0031520 x p p r e f i x o p P r o d P r 0031540 o c s , d a t a ] ] ] ; \r \t \t 0031560 E N D ; \r \r E N D . . \r 0031574