$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron3.0>Derived>SaffronAddPairsToFieldListImpl.Mesa!38 0000000 - - S a f f r o n A d d P a i 0000020 r s T o F i e l d L i s t I m p 0000040 l . m e s a \r - - C o p y r 0000060 i g h t 323 1 9 8 7 b y X 0000100 e r o x C o r p o r a t i o n 0000120 . A l l r i g h t s r e 0000140 s e r v e d . \r - - G e n e 0000160 r a t e d b y R a u e n . p 0000200 a a t S e p t e m b e r 1 0000220 , 1 9 8 8 6 : 2 9 : 5 7 p 0000240 m P D T \r - - u s i n g 0000260 T h r e e C a s a b a F o u r 0000300 [ 1 . 2 ] o f J u n e 1 0000320 , 1 9 8 7 6 : 0 0 : 0 0 p 0000340 m P D T \r \r D I R E C T O R Y 0000360 \r \t S a f f r o n A G 7 a D e f 0000400 , \r \t S a f f r o n A G 6 c D e 0000420 f , \r \t T h r e e C 4 S u p p o 0000440 r t , \r \t S a f f r o n B a s e 0000460 D e f , \r \t S a f f r o n A T D 0000500 e f ; \r \r S a f f r o n A d d P 0000520 a i r s T o F i e l d L i s t I 0000540 m p l : C E D A R P R O G R 0000560 A M I M P O R T S T h r e e 0000600 C 4 S u p p o r t , S a f f r 0000620 o n B a s e D e f E X P O R T 0000640 S S a f f r o n A G 7 a D e f 0000660 , S a f f r o n A G 6 c D e f 0000700 = \r B E G I N \r O P E N S a 0000720 f f r o n A G 7 a D e f , S a 0000740 f f r o n A G 6 c D e f , T h 0000760 r e e C 4 S u p p o r t , S a 0001000 f f r o n B a s e D e f , S a 0001020 f f r o n A T D e f ; \r P a i r 0001040 L i s t m a n y P r o d A d d P 0001060 a i r s T o F i e l d L i s t : 0001100 \t P U B L I C P R O C [ r e f 0001120 : R E F A N Y , l o c a l 0001140 C o n t e x t : L o c a l C o 0001160 n t e x t N o d e , f i e l d 0001200 L i s t : F i e l d L i s t N 0001220 o d e , p a i n t R e c o r d 0001240 s : B O O L E A N , c s : 0001260 C o m p i l e r S t a t e N o d 0001300 e ] R E T U R N S [ t e m p 0 0001320 : L o c a l C o n t e x t N o 0001340 d e , t e m p 1 : F i e l d 0001360 L i s t N o d e ] = \r B E G I 0001400 N \r t r e e : \t P a i r L i s t 0001420 N o d e _ N A R R O W [ r e f 0001440 ] ; \r B E G I N \r E N A B L E 0001460 T h r e e C 4 S u p p o r t . G 0001500 e t S o u r c e I n f o = > 0001520 R E S U M E [ t r e e . p o s i 0001540 t i o n , t r e e . l e n g t 0001560 h ] ; \r t r e e D a t a : \t P a 0001600 i r L i s t m a n y P r o d D a 0001620 t a _ N A R R O W [ t r e e 0001640 . d a t a ] ; \r B E G I N \r l o 0001660 c a l C o n t e x t 1 : \t L o c 0001700 a l C o n t e x t N o d e ; \r f 0001720 i e l d L i s t 1 : \t F i e l d 0001740 L i s t N o d e ; \r [ l o c a l 0001760 C o n t e x t 1 , f i e l d L 0002000 i s t 1 ] _ t r e e D a t a 0002020 . P a i r L i s t h e a d . p r 0002040 o c s . A d d P a i r s T o F i 0002060 e l d L i s t [ t r e e D a t a 0002100 . P a i r L i s t h e a d , l 0002120 o c a l C o n t e x t , f i e 0002140 l d L i s t , p a i n t R e c 0002160 o r d s , c s ] ; \r [ t e m p 0002200 0 , t e m p 1 ] _ t r e e 0002220 D a t a . P a i r L i s t t a i 0002240 l . p r o c s . A d d P a i r s 0002260 T o F i e l d L i s t [ t r e e 0002300 D a t a . P a i r L i s t t a i 0002320 l , l o c a l C o n t e x t 1 0002340 , f i e l d L i s t 1 , p a 0002360 i n t R e c o r d s , c s ] ; 0002400 \r E N D ; \r E N D \r E N D ; \r \r 0002420 P a i r L i s t o n e P r o d A 0002440 d d P a i r s T o F i e l d L i 0002460 s t : \t P U B L I C P R O C [ 0002500 r e f : R E F A N Y , l o 0002520 c a l C o n t e x t : L o c a 0002540 l C o n t e x t N o d e , f i 0002560 e l d L i s t : F i e l d L i 0002600 s t N o d e , p a i n t R e c 0002620 o r d s : B O O L E A N , c 0002640 s : C o m p i l e r S t a t e 0002660 N o d e ] R E T U R N S [ t e 0002700 m p 0 : L o c a l C o n t e x 0002720 t N o d e , t e m p 1 : F i 0002740 e l d L i s t N o d e ] = \r B 0002760 E G I N \r t r e e : \t P a i r L 0003000 i s t N o d e _ N A R R O W [ 0003020 r e f ] ; \r B E G I N \r E N A B 0003040 L E T h r e e C 4 S u p p o r 0003060 t . G e t S o u r c e I n f o 0003100 = > R E S U M E [ t r e e . p 0003120 o s i t i o n , t r e e . l e 0003140 n g t h ] ; \r t r e e D a t a : 0003160 \t P a i r L i s t o n e P r o d 0003200 D a t a _ N A R R O W [ t r 0003220 e e . d a t a ] ; \r [ t e m p 0 0003240 , t e m p 1 ] _ t r e e D 0003260 a t a . P a i r I t e m . p r o 0003300 c s . A d d P a i r s T o F i e 0003320 l d L i s t [ t r e e D a t a . 0003340 P a i r I t e m , l o c a l C 0003360 o n t e x t , f i e l d L i s 0003400 t , p a i n t R e c o r d s , 0003420 c s ] ; \r E N D \r E N D ; \r \r 0003440 P a i r I t e m P r o d A d d P 0003460 a i r s T o F i e l d L i s t : 0003500 \t P U B L I C P R O C [ r e f 0003520 : R E F A N Y , l o c a l 0003540 C o n t e x t : L o c a l C o 0003560 n t e x t N o d e , f i e l d 0003600 L i s t : F i e l d L i s t N 0003620 o d e , p a i n t R e c o r d 0003640 s : B O O L E A N , c s : 0003660 C o m p i l e r S t a t e N o d 0003700 e ] R E T U R N S [ t e m p 0 0003720 : L o c a l C o n t e x t N o 0003740 d e , t e m p 1 : F i e l d 0003760 L i s t N o d e ] = \r B E G I 0004000 N \r t r e e : \t P a i r I t e m 0004020 N o d e _ N A R R O W [ r e f 0004040 ] ; \r B E G I N \r E N A B L E 0004060 T h r e e C 4 S u p p o r t . G 0004100 e t S o u r c e I n f o = > 0004120 R E S U M E [ t r e e . p o s i 0004140 t i o n , t r e e . l e n g t 0004160 h ] ; \r t r e e D a t a : \t P a 0004200 i r I t e m P r o d D a t a _ 0004220 N A R R O W [ t r e e . d a t 0004240 a ] ; \r B E G I N \r l o c a l C 0004260 o n t e x t 1 : \t L o c a l C o 0004300 n t e x t N o d e ; \r t g n : \t 0004320 T y p e G r a p h N o d e N o d 0004340 e ; \r a c c e s s V a l : \t A c 0004360 c e s s V a l N o d e ; \r d e f 0004400 a u l t E x p : \t D e f a u l t 0004420 E x p N o d e ; \r d e f a u l t 0004440 E x p _ t r e e D a t a . D 0004460 e f a u l t . p r o c s . G e t 0004500 D e f a u l t E x p V a l [ t r 0004520 e e D a t a . D e f a u l t ] ; 0004540 \r a c c e s s V a l _ t r e 0004560 e D a t a . A c c e s s . p r o 0004600 c s . G e t A c c e s s V a l [ 0004620 t r e e D a t a . A c c e s s , 0004640 G e t D e f a u l t A c c e s 0004660 s [ c s ] ] ; \r [ l o c a l C o 0004700 n t e x t 1 , t g n ] _ t 0004720 r e e D a t a . T y p e E x p . 0004740 p r o c s . M a k e T y p e [ t 0004760 r e e D a t a . T y p e E x p , 0005000 l o c a l C o n t e x t , p 0005020 a i n t R e c o r d s , c s ] 0005040 ; \r t e m p 1 _ t r e e D a 0005060 t a . I d e n t L i s t . p r o 0005100 c s . A d d N a m e s T o F i e 0005120 l d L i s t [ t r e e D a t a . 0005140 I d e n t L i s t , a c c e s 0005160 s V a l , t g n , d e f a u 0005200 l t E x p , f i e l d L i s t 0005220 ] ; \r t e m p 0 _ l o c a l 0005240 C o n t e x t 1 ; \r E N D ; \r E 0005260 N D \r E N D ; \r \r A c c e s s e 0005300 m p t y P r o d G e t A c c e s 0005320 s V a l : \t P U B L I C P R O 0005340 C [ r e f : R E F A N Y , 0005360 d e f a u l t : A c c e s s V 0005400 a l N o d e ] R E T U R N S [ 0005420 t e m p 0 : A c c e s s V a l 0005440 N o d e ] = \r B E G I N \r t r 0005460 e e : \t A c c e s s N o d e _ 0005500 N A R R O W [ r e f ] ; \r B E G 0005520 I N \r E N A B L E T h r e e C 0005540 4 S u p p o r t . G e t S o u r 0005560 c e I n f o = > R E S U M E 0005600 [ t r e e . p o s i t i o n , 0005620 t r e e . l e n g t h ] ; \r t e 0005640 m p 0 _ F a k e C o p y A c 0005660 c e s s V a l [ d e f a u l t ] 0005700 ; \r E N D \r E N D ; \r \r A c c e 0005720 s s p u b l i c P r o d G e t A 0005740 c c e s s V a l : \t P U B L I C 0005760 P R O C [ r e f : R E F A 0006000 N Y , d e f a u l t : A c c 0006020 e s s V a l N o d e ] R E T U 0006040 R N S [ t e m p 0 : A c c e s 0006060 s V a l N o d e ] = \r B E G I 0006100 N \r t r e e : \t A c c e s s N o 0006120 d e _ N A R R O W [ r e f ] ; 0006140 \r B E G I N \r E N A B L E T h 0006160 r e e C 4 S u p p o r t . G e t 0006200 S o u r c e I n f o = > R E 0006220 S U M E [ t r e e . p o s i t i 0006240 o n , t r e e . l e n g t h ] 0006260 ; \r t e m p 0 _ A c c e s s 0006300 V a l C o n s t [ " p u b l i c 0006320 " ] ; \r E N D \r E N D ; \r \r A c 0006340 c e s s p r i v a t e P r o d G 0006360 e t A c c e s s V a l : \t P U B 0006400 L I C P R O C [ r e f : R E 0006420 F A N Y , d e f a u l t : 0006440 A c c e s s V a l N o d e ] R 0006460 E T U R N S [ t e m p 0 : A c 0006500 c e s s V a l N o d e ] = \r B 0006520 E G I N \r t r e e : \t A c c e s 0006540 s N o d e _ N A R R O W [ r e 0006560 f ] ; \r B E G I N \r E N A B L E 0006600 T h r e e C 4 S u p p o r t . 0006620 G e t S o u r c e I n f o = > 0006640 R E S U M E [ t r e e . p o s 0006660 i t i o n , t r e e . l e n g 0006700 t h ] ; \r t e m p 0 _ A c c 0006720 e s s V a l C o n s t [ " p r i 0006740 v a t e " ] ; \r E N D \r E N D ; 0006760 \r \r E N D . . \r 0006770