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