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