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