$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron2.0>Methods-Derived>SaffronAddToFieldListImpl.Mesa!24 0000000 - - S a f f r o n A d d T o F 0000020 i e l d L i s t I m p l . m e s 0000040 a \r - - C o p y r i g h t 0000060 323 1 9 8 7 b y X e r o x 0000100 C o r p o r a t i o n . A l 0000120 l r i g h t s r e s e r v e 0000140 d . \r - - G e n e r a t e d 0000160 b y h e d e r m a n . p a 0000200 a t A u g u s t 1 7 , 1 9 0000220 8 7 6 : 5 9 : 3 2 p m P D 0000240 T \r - - u s i n g T h r 0000260 e e C a s a b a F o u r [ 1 . 0000300 2 ] o f J u n e 1 , 1 9 0000320 8 7 6 : 0 0 : 0 0 p m P D 0000340 T \r \r D I R E C T O R Y \r \t S a 0000360 f f r o n A G 6 D e f , \r \t T h 0000400 r e e C 4 S u p p o r t , \r \t S 0000420 a f f r o n B a s e D e f , \r \t 0000440 S a f f r o n A T D e f ; \r \r S 0000460 a f f r o n A d d T o F i e l d 0000500 L i s t I m p l : C E D A R 0000520 P R O G R A M I M P O R T S 0000540 T h r e e C 4 S u p p o r t , 0000560 S a f f r o n B a s e D e f E 0000600 X P O R T S S a f f r o n A G 0000620 6 D e f = \r B E G I N \r O P E 0000640 N S a f f r o n A G 6 D e f , 0000660 T h r e e C 4 S u p p o r t , 0000700 S a f f r o n B a s e D e f , 0000720 S a f f r o n A T D e f ; \r T 0000740 y p e L i s t m a n y P r o d A 0000760 d d T o F i e l d L i s t : \t P 0001000 U B L I C P R O C [ r e f : 0001020 R E F A N Y , l o c a l C o 0001040 n t e x t : L o c a l C o n t 0001060 e x t N o d e , f i e l d L i 0001100 s t : F i e l d L i s t N o d 0001120 e , p a i n t R e c o r d s : 0001140 B O O L E A N ] R E T U R N 0001160 S [ t e m p 0 : L o c a l C o 0001200 n t e x t N o d e , t e m p 1 0001220 : F i e l d L i s t N o d e ] 0001240 = \r B E G I N \r t r e e : \t T 0001260 y p e L i s t N o d e _ N A R 0001300 R O W [ r e f ] ; \r B E G I N \r 0001320 E N A B L E T h r e e C 4 S u 0001340 p p o r t . G e t S o u r c e I 0001360 n f o = > R E S U M E [ t r 0001400 e e . p o s i t i o n , t r e 0001420 e . l e n g t h ] ; \r t r e e D 0001440 a t a : \t T y p e L i s t m a n 0001460 y P r o d D a t a _ N A R R 0001500 O W [ t r e e . d a t a ] ; \r B 0001520 E G I N \r l o c a l C o n t e x 0001540 t 1 : \t L o c a l C o n t e x t 0001560 N o d e ; \r f i e l d L i s t 1 0001600 : \t F i e l d L i s t N o d e ; 0001620 \r [ l o c a l C o n t e x t 1 , 0001640 f i e l d L i s t 1 ] _ t 0001660 r e e D a t a . T y p e L i s t 0001700 h e a d . p r o c s . A d d T o 0001720 F i e l d L i s t [ t r e e D a 0001740 t a . T y p e L i s t h e a d , 0001760 l o c a l C o n t e x t , f 0002000 i e l d L i s t , p a i n t R 0002020 e c o r d s ] ; \r [ t e m p 0 , 0002040 t e m p 1 ] _ t r e e D a 0002060 t a . T y p e L i s t t a i l . 0002100 p r o c s . A d d T o F i e l d 0002120 L i s t [ t r e e D a t a . T y 0002140 p e L i s t t a i l , l o c a 0002160 l C o n t e x t 1 , f i e l d 0002200 L i s t 1 , p a i n t R e c o 0002220 r d s ] ; \r E N D ; \r E N D \r E 0002240 N D ; \r \r T y p e L i s t o n e 0002260 P r o d A d d T o F i e l d L i 0002300 s t : \t P U B L I C P R O C [ 0002320 r e f : R E F A N Y , l o 0002340 c a l C o n t e x t : L o c a 0002360 l C o n t e x t N o d e , f i 0002400 e l d L i s t : F i e l d L i 0002420 s t N o d e , p a i n t R e c 0002440 o r d s : B O O L E A N ] R 0002460 E T U R N S [ t e m p 0 : L o 0002500 c a l C o n t e x t N o d e , 0002520 t e m p 1 : F i e l d L i s t 0002540 N o d e ] = \r B E G I N \r t r 0002560 e e : \t T y p e L i s t N o d e 0002600 _ N A R R O W [ r e f ] ; \r B 0002620 E G I N \r E N A B L E T h r e 0002640 e C 4 S u p p o r t . G e t S o 0002660 u r c e I n f o = > R E S U 0002700 M E [ t r e e . p o s i t i o n 0002720 , t r e e . l e n g t h ] ; \r 0002740 t r e e D a t a : \t T y p e L i 0002760 s t o n e P r o d D a t a _ 0003000 N A R R O W [ t r e e . d a t a 0003020 ] ; \r [ t e m p 0 , t e m p 1 0003040 ] _ t r e e D a t a . T y p 0003060 e I t e m . p r o c s . A d d T 0003100 o F i e l d L i s t [ t r e e D 0003120 a t a . T y p e I t e m , l o 0003140 c a l C o n t e x t , f i e l 0003160 d L i s t , p a i n t R e c o 0003200 r d s ] ; \r E N D \r E N D ; \r \r 0003220 T y p e I t e m P r o d A d d T 0003240 o F i e l d L i s t : \t P U B L 0003260 I C P R O C [ r e f : R E F 0003300 A N Y , l o c a l C o n t e 0003320 x t : L o c a l C o n t e x t 0003340 N o d e , f i e l d L i s t : 0003360 F i e l d L i s t N o d e , 0003400 p a i n t R e c o r d s : B O 0003420 O L E A N ] R E T U R N S [ t 0003440 e m p 0 : L o c a l C o n t e 0003460 x t N o d e , t e m p 1 : F 0003500 i e l d L i s t N o d e ] = \r 0003520 B E G I N \r t r e e : \t T y p e 0003540 I t e m N o d e _ N A R R O W 0003560 [ r e f ] ; \r B E G I N \r E N A 0003600 B L E T h r e e C 4 S u p p o 0003620 r t . G e t S o u r c e I n f o 0003640 = > R E S U M E [ t r e e . 0003660 p o s i t i o n , t r e e . l 0003700 e n g t h ] ; \r t r e e D a t a 0003720 : \t T y p e I t e m P r o d D a 0003740 t a _ N A R R O W [ t r e e 0003760 . d a t a ] ; \r B E G I N \r f i 0004000 e l d L i s t 1 : \t F i e l d L 0004020 i s t N o d e ; \r f i e l d : \t 0004040 F i e l d N o d e ; \r l o c a l 0004060 C o n t e x t 1 : \t L o c a l C 0004100 o n t e x t N o d e ; \r t g n : 0004120 \t T y p e G r a p h N o d e N o 0004140 d e ; \r d e f a u l t E x p : \t 0004160 D e f a u l t E x p N o d e ; \r 0004200 d e f a u l t E x p _ t r e 0004220 e D a t a . D e f a u l t . p r 0004240 o c s . G e t D e f a u l t E x 0004260 p V a l [ t r e e D a t a . D e 0004300 f a u l t ] ; \r [ l o c a l C o 0004320 n t e x t 1 , t g n ] _ t 0004340 r e e D a t a . T y p e E x p . 0004360 p r o c s . M a k e T y p e [ t 0004400 r e e D a t a . T y p e E x p , 0004420 l o c a l C o n t e x t , p 0004440 a i n t R e c o r d s ] ; \r f i 0004460 e l d _ C r e a t e U n n a 0004500 m e d F i e l d [ t g n , d e 0004520 f a u l t E x p ] ; \r f i e l d 0004540 L i s t 1 _ A p p e n d F i 0004560 e l d T o F i e l d L i s t [ f 0004600 i e l d L i s t , f i e l d ] 0004620 ; \r t e m p 1 _ f i e l d L 0004640 i s t 1 ; \r t e m p 0 _ l o 0004660 c a l C o n t e x t 1 ; \r E N D 0004700 ; \r E N D \r E N D ; \r \r E N D . 0004720 . \r 0004722