$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLPATHNAME!19
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 2
0000120 8 - O c t - 8 6 2 2 : 1 6 : 4
0000140 0 " 006 004 { E R I S } < L I S P
0000160 C O R E > S O U R C E S > C M L
0000200 P A T H N A M E . ; 1 9 006 001 3
0000220 7 9 2 0 \r \r c h
0000240 a n g e s t o % : ( F N S
0000260 C L : M A K E - P A T H N A M
0000300 E ) \r \r p r e v i o
0000320 u s d a t e % : " 2 3 - O c
0000340 t - 8 6 1 6 : 4 5 : 2 9 " {
0000360 E R I S } < L I S P C O R E > S
0000400 O U R C E S > C M L P A T H N A
0000420 M E . ; 1 8 ) \r \r \r ( * " \r C
0000440 o p y r i g h t ( c ) 1 9 8
0000460 6 b y X e r o x C o r p o
0000500 r a t i o n . A l l r i g
0000520 h t s r e s e r v e d . \r " )
0000540 \r \r ( P R E T T Y C O M P R I N
0000560 T C M L P A T H N A M E C O M
0000600 S ) \r \r ( R P A Q Q 006 002 C M L
0000620 P A T H N A M E C O M S 006 001 \r
0000640 ( ( * ; ; " C
0000660 o m m o n L i s p p a t h n
0000700 a m e f u n c t i o n s " ) \r
0000720 ( P R O P F I
0000740 L E T Y P E C M L P A T H N A
0000760 M E ) \r ( C O M
0001000 S ( * ; ; " u s e f u l
0001020 m a c r o s " ) \r
0001040 ( F U N C T I O N
0001060 S % % W I L D - N A M E % %
0001100 C O M P O N E N T - S T R I N G
0001120 % % U N P A C K F I L E 1 ) )
0001140 \r ( S T R U C T
0001160 U R E S P A T H N A M E ) \r
0001200 ( F N S % % P R
0001220 I N T - P A T H N A M E C L :
0001240 M A K E - P A T H N A M E C L
0001260 : P A T H N A M E - H O S T C
0001300 L : P A T H N A M E - D E V I C
0001320 E \r
0001340 C L : P A T H N A M E - D I R E
0001360 C T O R Y C L : P A T H N A M
0001400 E - N A M E C L : P A T H N A
0001420 M E - T Y P E C L : P A T H N
0001440 A M E - V E R S I O N ) \r
0001460 ( F N S P A T H N A
0001500 M E C L : M E R G E - P A T H
0001520 N A M E S F I L E - N A M E
0001540 C L : H O S T - N A M E S T R I
0001560 N G C L : E N O U G H - N A M
0001600 E S T R I N G \r
0001620 % % N U M E R I C -
0001640 S T R I N G - P ) \r
0001660 ( F U N C T I O N S C L :
0001700 N A M E S T R I N G C L : P A
0001720 R S E - N A M E S T R I N G P
0001740 A R S E - N A M E S T R I N G 1
0001760 C L : T R U E N A M E ) \r
0002000 ( F U N C T I O N S
0002020 % % M A K E - P A T H N A M E
0002040 ) \r ( F U N C T
0002060 I O N S I N T E R L I S P - N
0002100 A M E S T R I N G ) \r
0002120 ( F U N C T I O N S % %
0002140 P A T H N A M E - E Q U A L ) \r
0002160 ( F U N C T I O
0002200 N S % % I N I T I A L I Z E -
0002220 D E F A U L T - P A T H N A M E
0002240 ) \r ( V A R I A
0002260 B L E S * D E F A U L T - P A
0002300 T H N A M E - D E F A U L T S *
0002320 ) \r ( C O M S
0002340 ( * ; ; " I n t e r l i s p
0002360 - D c o m p a t i b i l i t y
0002400 " ) \r
0002420 ( F U N C T I O N S U N P A
0002440 C K P A T H N A M E . S T R I N
0002460 G ) ) \r ( F U N
0002500 C T I O N S C L : F I L E - N
0002520 A M E S T R I N G C L : D I R
0002540 E C T O R Y - N A M E S T R I N
0002560 G ) \r ( D E C L
0002600 A R E % : D O N T E V A L @ L
0002620 O A D D O C O P Y ( P ( %
0002640 % I N I T I A L I Z E - D E F A
0002660 U L T - P A T H N A M E ) ) ) \r
0002700 ( D E C L A R E
0002720 % : D O N T E V A L @ L O A D
0002740 D O E V A L @ C O M P I L E
0002760 D O N T C O P Y C O M P I L E
0003000 R V A R S \r
0003020 ( A D D V A R S ( N
0003040 L A M A ) \r
0003060 ( N L A
0003100 M L ) \r
0003120 ( L A M A
0003140 C L : E N O U G H - N A M E S T
0003160 R I N G C L : H O S T - N A M
0003200 E S T R I N G F I L E - N A M
0003220 E C L : M E R G E - P A T H N
0003240 A M E S \r
0003260
0003300 P A T H N A M E C L : P A
0003320 T H N A M E - V E R S I O N C
0003340 L : P A T H N A M E - T Y P E
0003360 C L : P A T H N A M E - N A M E
0003400 \r
0003420 C L
0003440 : P A T H N A M E - D I R E C T
0003460 O R Y C L : P A T H N A M E -
0003500 D E V I C E C L : P A T H N A
0003520 M E - H O S T \r
0003540
0003560 C L : M A K E - P A T
0003600 H N A M E % % P R I N T - P A
0003620 T H N A M E ) ) ) ) ) \r \r \r \r 006
0003640 004 ( * ; ; " C o m m o n L
0003660 i s p p a t h n a m e f u n
0003700 c t i o n s " ) 006 001 \r \r \r ( P U
0003720 T P R O P S 006 002 C M L P A T H
0003740 N A M E F I L E T Y P E 006 001
0003760 C L : C O M P I L E - F I L E )
0004000 \r \r \r \r 006 004 ( * ; ; " u s e
0004020 f u l m a c r o s " ) 006 001 \r \r
0004040 ( D E F M A C R O 006 002 % % W I
0004060 L D - N A M E 006 001 ( S T R I N
0004100 G ) ` ( L E T ( ( S , S T
0004120 R I N G ) ) \r
0004140
0004160 ( C L :
0004200 I F ( S T R I N G - E Q U A L
0004220 S " * " ) \r
0004240
*
0004300 : W I L D S ) ) ) \r \r
0004320 ( D E F M A C R O 006 002 % % C O
0004340 M P O N E N T - S T R I N G 006 001
0004360 ( C O M P O N E N T ) ` ( O
0004400 R , C O M P O N E N T " " )
0004420 ) \r \r ( D E F M A C R O 006 002 %
0004440 % U N P A C K F I L E 1 006 001 (
0004460 N A M S T E N D F I L E
0004500 P A C K F L G O N E F I E L D
0004520 F L G V A L ) \r ` ( 006 002
0004540 i f 006 001 ( N O T , O N E F I
0004560 E L D F L G ) \r
0004600 006 002 t h e n 006 001 ( S E T Q ,
0004620 V A L ( C O N S ( C O N D \r
0004640
*
0004700 ( , P A C K F L G ( S U B A
0004720 T O M , F I L E , S T , E
0004740 N D ) ) \r
0004760
0005000 ( T ( O R ( S U
0005020 B S T R I N G , F I L E , S
0005040 T , E N D ) \r
0005060
*
0005120 " " ) ) ) \r
0005140
0005160 ( C O N S , N A M ,
0005200 V A L ) ) ) \r 006 002 e
0005220 l s e i f 006 001 ( E Q M E M B
0005240 , N A M , O N E F I E L D F L
0005260 G ) \r 006 002 t h e
0005300 n 006 001 ( R E T U R N ( C O N
0005320 D \r
0005340 ( , P A C K
0005360 F L G ( S U B A T O M , F I
0005400 L E , S T , E N D ) ) \r
0005420
0005440 ( T ( O R ( S U
0005460 B S T R I N G , F I L E , S
0005500 T , E N D ) \r
0005520
0005540 " " ) ) ) ) ) ) \r
0005560 \r ( C L : D E F S T R U C T (
0005600 006 002 P A T H N A M E 006 001 ( : C
0005620 O N C - N A M E % % P A T H N
0005640 A M E - ) \r
0005660 ( :
0005700 P R I N T - F U N C T I O N %
0005720 % P R I N T - P A T H N A M E )
0005740 \r
0005760 ( : C O N S T
0006000 R U C T O R % % % % M A K E -
0006020 P A T H N A M E ) \r
0006040
0006060 ( : P R E D I C A T E C L
0006100 : P A T H N A M E P ) ) H O S
0006120 T D E V I C E D I R E C T O
0006140 R Y N A M E T Y P E V E R
0006160 S I O N ) \r \r ( D E F I N E Q \r
0006200 \r ( 006 004 % % P R I N T - P A T H
0006220 N A M E 006 001 \r ( C L : L A M
0006240 B D A ( S S T R E A M D )
0006260 006 006 006 001
0006300
0006320 006 006 ( * h d j
0006340 " 1 9 - S e p - 8 6 1 5 : 4
0006360 9 " ) 006 001 \r (
0006400 006 002 D E C L A R E 006 001 ( I G N
0006420 O R E D ) ) \r
0006440 ( F O R M A T S T R E A M
0006460 " # . ( P A T H N A M E ~ S )
0006500 " ( C L : N A M E S T R I N G
0006520 S ) ) ) ) \r \r ( 006 004 C L : M A
0006540 K E - P A T H N A M E 006 001 \r
0006560 ( C L : L A M B D A ( & K E Y
0006600 D E F A U L T S ( H O S T
0006620 N I L H O S T P ) \r
0006640 ( D
0006660 E V I C E N I L D E V I C E
0006700 P ) \r
0006720 ( D I R E C T O R Y
0006740 N I L D I R E C T O R Y P )
0006760 \r
0007000 ( N A M E N I L N A
0007020 M E P ) \r
0007040 ( T Y P E N I
0007060 L T Y P E P ) \r
0007100 ( V E R
0007120 S I O N N I L V E R S I O N
0007140 P ) ) 006 006 006 001
0007160 006 006 ( * h
0007200 d j " 2 3 - O c t - 8 6 1 6
0007220 : 3 4 " ) 006 001 006 006 006 001 \r
0007240
*
0007300 006 006
0007320 ( * ; ; " C r e a t e a
0007340 p a t h n a m e f r o m h o
0007360 s t , d e v i c e , d i r e
0007400 c t o r y , n a m e , t y p
0007420 e a n d v e r s i o n .
0007440 I f a n y f i e l d i s
0007460 o m i t t e d , i t i s o
0007500 b t a i n e d f r o m d e f
0007520 a u l t s a s t h o u g h
0007540 b y m e r g e - p a t h n a m
0007560 e s . " ) 006 001 \r
0007600 ( C L : I F D E F A U L T S
0007620 ( L E T ( ( D E F A U L T S
0007640 ( 006 002 P A T H N A M E 006 001 D
0007660 E F A U L T S ) ) ) \r
0007700
0007720 ( C L : U N L
0007740 E S S H O S T P ( S E T Q
0007760 H O S T ( % % P A T H N A M E
0010000 - H O S T D E F A U L T S ) )
0010020 ) \r
0010040
0010060 ( C L : U N L E S S D E V I C
0010100 E P ( S E T Q D E V I C E
0010120 ( % % P A T H N A M E - D E V I
0010140 C E D E F A U L T S ) ) ) \r
0010160
0010200 ( C L
0010220 : U N L E S S D I R E C T O R
0010240 Y P ( S E T Q D I R E C T O
0010260 R Y ( % % P A T H N A M E - D
0010300 I R E C T O R Y D E F A U L T
0010320 S ) ) ) \r
0010340
0010360 ( C L : U N L E S S N A
0010400 M E P ( S E T Q N A M E (
0010420 % % P A T H N A M E - N A M E
0010440 D E F A U L T S ) ) ) \r
0010460
0010500 ( C L : U N
0010520 L E S S T Y P E P ( S E T Q
0010540 T Y P E ( % % P A T H N A M
0010560 E - T Y P E D E F A U L T S )
0010600 ) ) \r
0010620
0010640 ( C L : U N L E S S V E R S
0010660 I O N P ( S E T Q V E R S I
0010700 O N ( % % P A T H N A M E - V
0010720 E R S I O N D E F A U L T S )
0010740 ) ) ) \r
0010760 ( C L : U N L E S S H
0011000 O S T P ( S E T Q H O S T
0011020 ( % % P A T H N A M E - H O S T
0011040 * D E F A U L T - P A T H N A
0011060 M E - D E F A U L T S * ) ) ) )
0011100 \r ( % % M A K
0011120 E - P A T H N A M E ( C L : I
0011140 F ( S T R I N G P H O S T )
0011160 \r
0011200
0011220 ( C O E R C E H O S T '
0011240 C L : S I M P L E - S T R I N G
0011260 ) \r
0011300
0011320 H O S T ) \r
0011340 ( C L : I F
0011360 ( S T R I N G P D E V I C E )
0011400 \r
0011420 ( C O E R C E
0011440 D E V I C E ' C L : S I M P L
0011460 E - S T R I N G ) \r
0011500
0011520 D E V I C E ) \r
0011540 D I R E C T O
0011560 R Y \r
0011600 ( C L : I F ( S T R I N
0011620 G P N A M E ) \r
0011640
0011660 ( C O E R C E N A M E ' C L
0011700 : S I M P L E - S T R I N G ) \r
0011720
0011740 N A M E ) \r
0011760 ( C L
0012000 : I F ( S T R I N G P T Y P
0012020 E ) \r
0012040 ( C O E R C
0012060 E T Y P E ' C L : S I M P L
0012100 E - S T R I N G ) \r
0012120
0012140 T Y P E ) \r
0012160 V E R S I O N ) )
0012200 ) \r \r ( 006 004 C L : P A T H N A M
0012220 E - H O S T 006 001 \r ( C L : L
0012240 A M B D A ( 006 002 P A T H N A M
0012260 E 006 001 ) \r \r
0012300 006 006 ( * T
0012320 h e s e c a n n o t b e
0012340 d o n e b y t h e a c c e
0012360 s s o r s b e c a u s e t h
0012400 e p a t h n a m e a r g m
0012420 a y b e a \r 006 001
0012440 006 006 s t r i n g o r
0012460 a s y m b o l o r e t c
0012500 . * ) 006 001 \r
0012520 \r 006 006 ( *
0012540 R e t u r n s t h e h o s
0012560 t s l o t o f p a t h n a
0012600 m e . P a t h n a m e m a y
0012620 b e a s t r i n g , s y
0012640 m b o l , o r \r 006 001
0012660 006 006 s t r e a m .
0012700 * ) 006 001 \r \r (
0012720 % % P A T H N A M E - H O S T
0012740 ( C L : I F ( C L : P A T H N
0012760 A M E P P A T H N A M E ) \r
0013000
*
0013040 P A T H N A M E \r
0013060
0013100 ( 006 002 P A T
0013120 H N A M E 006 001 P A T H N A M E
0013140 ) ) ) ) ) \r \r ( 006 004 C L : P A T
0013160 H N A M E - D E V I C E 006 001 \r
0013200 ( C L : L A M B D A ( 006 002 P
0013220 A T H N A M E 006 001 ) 006 006 006 001
0013240
*
0013300 006 006 ( * h d j " 1 9
0013320 - S e p - 8 6 1 5 : 5 0 " ) 006
0013340 001 \r ( % % P A
0013360 T H N A M E - D E V I C E ( C
0013400 L : I F ( C L : P A T H N A M
0013420 E P P A T H N A M E ) \r
0013440
*
0013500 P A T H N A M E \r
0013520
0013540 ( 006 002 P
0013560 A T H N A M E 006 001 P A T H N A
0013600 M E ) ) ) ) ) \r \r ( 006 004 C L : P
0013620 A T H N A M E - D I R E C T O R
0013640 Y 006 001 \r ( C L : L A M B D A
0013660 ( 006 002 P A T H N A M E 006 001 ) 006
0013700 006 006 001
0013720
0013740 006 006 ( * h d
0013760 j " 1 9 - S e p - 8 6 1 5 :
0014000 5 0 " ) 006 001 \r
0014020 ( % % P A T H N A M E - D I R E
0014040 C T O R Y ( C L : I F ( C L
0014060 : P A T H N A M E P P A T H N
0014100 A M E ) \r
0014120
0014140 P A T H N
0014160 A M E \r
0014200
0014220 ( 006 002 P A T
0014240 H N A M E 006 001 P A T H N A M E
0014260 ) ) ) ) ) \r \r ( 006 004 C L : P A T
0014300 H N A M E - N A M E 006 001 \r (
0014320 C L : L A M B D A ( 006 002 P A T
0014340 H N A M E 006 001 ) 006 006 006 001
0014360
*
0014420 006 006 ( * h d j " 1 9 - S
0014440 e p - 8 6 1 5 : 5 0 " ) 006 001 \r
0014460 ( % % P A T H
0014500 N A M E - N A M E ( C L : I F
0014520 ( C L : P A T H N A M E P P
0014540 A T H N A M E ) \r
0014560
0014600 P A T H N A
0014620 M E \r
0014640
0014660 ( 006 002 P A T H N A M E 006
0014700 001 P A T H N A M E ) ) ) ) ) \r
0014720 \r ( 006 004 C L : P A T H N A M E -
0014740 T Y P E 006 001 \r ( C L : L A M
0014760 B D A ( 006 002 P A T H N A M E 006
0015000 001 ) 006 006 006 001
0015020
0015040 006 006 ( *
0015060 h d j " 1 9 - S e p - 8 6
0015100 1 5 : 5 0 " ) 006 001 \r
0015120 ( % % P A T H N A M E - T
0015140 Y P E ( C L : I F ( C L : P
0015160 A T H N A M E P P A T H N A M
0015200 E ) \r
0015220
0015240 P A T H N A M E \r
0015260
0015300 ( 006
0015320 002 P A T H N A M E 006 001 P A T H
0015340 N A M E ) ) ) ) ) \r \r ( 006 004 C L
0015360 : P A T H N A M E - V E R S I O
0015400 N 006 001 \r ( C L : L A M B D A
0015420 ( 006 002 P A T H N A M E 006 001 ) 006
0015440 006 006 001
0015460
0015500 006 006 ( * h d
0015520 j " 1 9 - S e p - 8 6 1 5 :
0015540 5 0 " ) 006 001 \r
0015560 ( % % P A T H N A M E - V E R S
0015600 I O N ( C L : I F ( C L : P
0015620 A T H N A M E P P A T H N A M
0015640 E ) \r
0015660
0015700 P A T H N A M E \r
0015720
*
0015760 ( 006 002 P A T H N A M E 006
0016000 001 P A T H N A M E ) ) ) ) ) \r
0016020 ) \r ( D E F I N E Q \r \r ( 006 004 P
0016040 A T H N A M E 006 001 \r ( C L :
0016060 L A M B D A ( T H I N G ) 006 006
0016100 006 001
0016120
0016140 006 006 ( *
0016160 h d j " 2 - A p r - 8 6 1
0016200 1 : 0 1 " ) 006 001 \r
0016220 \r 006 006
0016240 ( * T u r n s T h i n g i
0016260 n t o a p a t h n a m e .
0016300 T h i n g m a y b e a s
0016320 t r i n g , s y m b o l , s
0016340 t r e a m , o r \r 006 001
0016360 006 006 p a t h n a m
0016400 e . * ) 006 001 \r \r
0016420 ( C L : V A L U E S ( C L
0016440 : P A R S E - N A M E S T R I N
0016460 G T H I N G ) ) ) ) \r \r ( 006 004
0016500 C L : M E R G E - P A T H N A M
0016520 E S 006 001 \r ( C L : L A M B D
0016540 A ( 006 002 P A T H N A M E 006 001
0016560 & O P T I O N A L ( D E F A U
0016600 L T S * D E F A U L T - P A T
0016620 H N A M E - D E F A U L T S * )
0016640 \r
0016660 D E F A U L T - V E R
0016700 S I O N ) 006 006 006 001
0016720
0016740 006 006 ( * h d j " 2 0 - J
0016760 u n - 8 6 1 1 : 3 4 " ) 006 001 \r
0017000 \r
0017020 006 006 ( * * " M e r
0017040 g e - P a t h n a m e s - -
0017060 P u b l i c R e t u r n s a
0017100 n e w p a t h n a m e w h
0017120 o s e f i e l d s a r e t
0017140 h e s a m e a s t h e f
0017160 i e l d s i n P A T H N A M
0017200 E e x c e p t t h a t N I
0017220 L f i e l d s a r e f i l
0017240 l e d i n f r o m d e f a
0017260 u l t s . T y p e a n d
0017300 V e r s i o n f i e l d a r
0017320 e o n l y d o n e i f n
0017340 a m e f i e l d h a s t o
0017360 b e d o n e ( s e e m a
0017400 n u a l f o r e x p l a n a
0017420 t i o n ) . F i l l s i n
0017440 u n s p e c i f i e d s l o t
0017460 s o f P a t h n a m e f r
0017500 o m D e f a u l t s ( d e f
0017520 a u l t s t o * d e f a u l
0017540 t - p a t h n a m e - d e f a u
0017560 l t s * ) . I f t h e v
0017600 e r s i o n r e m a i n s u
0017620 n s p e c i f i e d , g e t s
0017640 i t f r o m D e f a u l t
0017660 - V e r s i o n . " ) 006 001 \r \r
0017700 ( L E T * ( (
0017720 P A T H ( 006 002 P A T H N A M E
0017740 006 001 P A T H N A M E ) ) \r
0017760 ( D
0020000 E F A U L T - P A T H ( 006 002 P
0020020 A T H N A M E 006 001 D E F A U L
0020040 T S ) ) \r
0020060 ( N A M E ( % % P A
0020100 T H N A M E - N A M E P A T H
0020120 ) ) \r
0020140 ( D E V I C E ( % % P A
0020160 T H N A M E - D E V I C E P A
0020200 T H ) ) ) \r
0020220 ( % % M A K E - P A T
0020240 H N A M E ( O R ( % % P A T
0020260 H N A M E - H O S T P A T H )
0020300 \r
0020320
0020340 ( % % P A T H N A M E
0020360 - H O S T D E F A U L T - P A
0020400 T H ) ) \r
0020420 ( O R D
0020440 E V I C E ( % % P A T H N A M
0020460 E - D E V I C E D E F A U L T
0020500 - P A T H ) ) \r
0020520 ( O
0020540 R ( % % P A T H N A M E - D I
0020560 R E C T O R Y P A T H ) \r
0020600
0020620 ( % % P A T H N
0020640 A M E - D I R E C T O R Y D E
0020660 F A U L T - P A T H ) ) \r
0020700
0020720 ( O R N A M E ( % % P
0020740 A T H N A M E - N A M E D E F
0020760 A U L T - P A T H ) ) \r
0021000
0021020 ( O R ( % % P A T H N A M
0021040 E - T Y P E P A T H ) \r
0021060
0021100 ( % % P A T H N A
0021120 M E - T Y P E D E F A U L T -
0021140 P A T H ) ) \r
0021160 ( O R
0021200 ( % % P A T H N A M E - V E R
0021220 S I O N P A T H ) \r
0021240
0021260 ( C L : I F N A M E
0021300 D E F A U L T - V E R S I O N
0021320 ( O R ( % % P A T H N A M E
0021340 - V E R S I O N D E F A U L T
0021360 - P A T H ) \r
0021400
*
0021460 D E F A U L T - V E R S I O N
0021500 ) ) ) ) ) ) ) \r \r ( 006 004 F I L E
0021520 - N A M E 006 001 \r ( C L : L A
0021540 M B D A ( F I L E ) 006 006 006 001
0021560
*
0021620 006 006 ( * h d
0021640 j " 9 - O c t - 8 6 1 5 :
0021660 1 2 " ) 006 001 \r
0021700 ( L E T ( ( N A M E ( F U L
0021720 L N A M E F I L E ) ) ) \r
0021740 ( 006 002 i
0021760 f 006 001 ( S T R E A M P N A M
0022000 E ) \r
0022020 006 002 t h e n 006 001 " "
0022040 \r
0022060 006 002 e l s e 006 001 ( M K S T R
0022100 I N G N A M E ) ) ) ) ) \r \r (
0022120 006 004 C L : H O S T - N A M E S T
0022140 R I N G 006 001 \r ( C L : L A M
0022160 B D A ( 006 002 P A T H N A M E 006
0022200 001 ) 006 006 006 001
0022220
0022240 006 006 ( *
0022260 h d j " 1 1 - J u n - 8 6
0022300 1 1 : 2 9 " ) 006 001 \r
0022320 \r 006
0022340 006 ( * R e t u r n s t h e
0022360 h o s t p a r t o f P A T
0022400 H N A M E a s a s t r i n
0022420 g . \r 006 001 006
0022440 006 * ) 006 001 \r \r
0022460 ( % % C O M P O N E N T - S T R
0022500 I N G ( % % P A T H N A M E -
0022520 H O S T ( 006 002 P A T H N A M E
0022540 006 001 P A T H N A M E ) ) ) ) )
0022560 \r \r ( 006 004 C L : E N O U G H - N
0022600 A M E S T R I N G 006 001 \r ( C
0022620 L : L A M B D A ( 006 002 P A T H
0022640 N A M E 006 001 & O P T I O N A L
0022660 ( D E F A U L T S * D E F A
0022700 U L T - P A T H N A M E - D E F
0022720 A U L T S * ) ) 006 006 006 001 \r
0022740
*
0023020 006 006 ( * h
0023040 d j " 1 9 - S e p - 8 6 1 5
0023060 : 5 1 " ) 006 001 006 006 006 001 \r
0023100
*
0023160 006 006 ( * ;
0023200 " E n o u g h - N a m e s t r i
0023220 n g " ) 006 001 006 006 006 001 \r
0023240
*
0023300 006 006 (
0023320 * ; \r 006 001
0023340
0023360 006 006 " R e t u r n s
0023400 a s t r i n g w h i c h u
0023420 n i q u e l y i d e n t i f i
0023440 e s P A T H N A M E w . r .
0023460 t . D E F A U L T S . " ) 006
0023500 001 \r ( L E T *
0023520 ( ( P A T H ( 006 002 P A T H N
0023540 A M E 006 001 P A T H N A M E ) )
0023560 \r
0023600 ( D E F A U L T - P A T H N A
0023620 M E ( 006 002 P A T H N A M E 006 001
0023640 D E F A U L T S ) ) \r
0023660 ( D E V
0023700 I C E ( % % P A T H N A M E -
0023720 D E V I C E P A T H ) ) \r
0023740 ( D
0023760 I R E C T O R Y ( % % P A T H
0024000 N A M E - D I R E C T O R Y P
0024020 A T H ) ) \r
0024040 ( N A M E ( % % P
0024060 A T H N A M E - N A M E P A T
0024100 H ) ) \r
0024120 ( T Y P E ( % % P A T
0024140 H N A M E - T Y P E P A T H )
0024160 ) \r
0024200 ( V E R S I O N ( % % P A
0024220 T H N A M E - V E R S I O N P
0024240 A T H ) ) \r
0024260 ( R E S U L T " "
0024300 ) \r
0024320 ( N E E D - N A M E N I L
0024340 ) ) \r
0024360 ( 006 002 D E C L A R E 006 001 (
0024400 C L : S I M P L E - S T R I N G
0024420 R E S U L T ) ) \r
0024440 ( C L : W H E
0024460 N ( A N D D E V I C E ( C
0024500 L : S T R I N G - N O T - E Q U
0024520 A L D E V I C E ( % % C O M
0024540 P O N E N T - S T R I N G ( \r
0024560
*
0024700 % % P A T H N A M E - D
0024720 E V I C E \r
0024740
*
0025040 D E F A U
0025060 L T - P A T H N A M E \r
0025100
*
0025220 ) ) ) ) \r
0025240 ( S E T
0025260 Q R E S U L T D E V I C E )
0025300 ) \r
0025320 ( C L : W H E N ( A N D D
0025340 I R E C T O R Y ( N O T ( C
0025360 L : E Q U A L P D I R E C T O
0025400 R Y ( % % C O M P O N E N T -
0025420 S T R I N G ( \r
0025440
*
0025540 % % P A T H
0025560 N A M E - D I R E C T O R Y \r
0025600
*
0025720 \r
0025740
*
0026040 D E F A U
0026060 L T - P A T H N A M E \r
0026100
*
0026220 ) ) ) ) ) \r
0026240 ( S
0026260 E T Q R E S U L T ( C L : C
0026300 O N C A T E N A T E ' C L : S
0026320 I M P L E - S T R I N G R E S
0026340 U L T " < " ( T H E C L :
0026360 S I M P L E - S T R I N G \r
0026400
*
0026520 D I R E C T O R Y ) \r
0026540
*
0026600 " > " ) ) ) \r
0026620 (
0026640 C L : W H E N ( A N D N A M
0026660 E ( C L : S T R I N G - N O T
0026700 - E Q U A L N A M E ( % % C
0026720 O M P O N E N T - S T R I N G
0026740 ( % % P A T H N A M E - N A M E
0026760 \r
0027000
*
0027100 D E F A U L T - P A T H N A
0027120 M E ) ) ) ) \r
0027140 ( C L
0027160 : S E T Q R E S U L T ( C L
0027200 : C O N C A T E N A T E ' C L
0027220 : S I M P L E - S T R I N G R
0027240 E S U L T ( T H E C L : S I
0027260 M P L E - S T R I N G \r
0027300
*
0027420 N A M E ) ) \r
0027440
0027460 N E E D - N A M E T
0027500 ) ) \r
0027520 ( C L : W H E N ( A N D
0027540 T Y P E ( O R N E E D - N A
0027560 M E ( C L : S T R I N G - N O
0027600 T - E Q U A L T Y P E ( % %
0027620 C O M P O N E N T - S T R I N G
0027640 \r
0027660
*
0027740 ( % % P
0027760 A T H N A M E - T Y P E \r
0030000
*
0030120 D E F A U L T - P A T H N A M E
0030140 ) ) ) \r
0030160
0030200 ) ) \r
0030220
0030240 ( S E T Q R E S U L T
0030260 ( C L : C O N C A T E N A T E
0030300 ' C L : S I M P L E - S T R I N
0030320 G R E S U L T " . " ( T H
0030340 E C L : S I M P L E - S T R I
0030360 N G \r
0030400
*
0030500 T Y P E ) ) )
0030520 ) \r
0030540 ( C L : W H E N ( A N D V
0030560 E R S I O N ( O R N E E D -
0030600 N A M E ( N O T ( E Q L V
0030620 E R S I O N ( % % P A T H N A
0030640 M E - V E R S I O N \r
0030660
*
0030760 D E F A U L T -
0031000 P A T H N A M E ) ) ) ) ) \r
0031020
0031040 ( S E T Q R E S U L T
0031060 ( C L : C O N C A T E N A T E
0031100 ' C L : S I M P L E - S T R I
0031120 N G R E S U L T " ; " ( T
0031140 H E C L : S I M P L E - S T R
0031160 I N G \r
0031200
*
0031300 ( \r
0031320
*
0031420 % %
0031440 C O M P O N E N T - S T R I N G
0031460 \r
0031500
*
0031600 V E R S I O N ) )
0031620 ) ) ) \r
0031640 R E S U L T ) ) ) \r \r ( 006
0031660 004 % % N U M E R I C - S T R I N
0031700 G - P 006 001 \r ( L A M B D A
0031720 ( S T R I N G ) 006 006 006 001
0031740
*
0032000 006 006 ( * h d j
0032020 " 2 8 - J u l - 8 6 1 2 : 2 5
0032040 " ) 006 001 \r ( A N D ( C
0032060 L : S T R I N G P S T R I N G
0032100 ) \r ( 006 002 f o
0032120 r 006 001 C H A R 006 002 i n s t r
0032140 i n g 006 001 S T R I N G 006 002 d
0032160 o 006 001 ( 006 002 i f 006 001 ( O R
0032200 ( I L E S S P C H A R ( C H
0032220 A R C O D E 0 ) ) \r
0032240
*
0032300 ( I G R E A T
0032320 E R P C H A R ( C H A R C O
0032340 D E 9 ) ) ) \r
0032360
*
0032420 006 002 t h e n 006 001 ( R E T U
0032440 R N N I L ) ) 006 002 f i n a l
0032460 l y 006 001 ( R E T U R N T ) )
0032500 ) ) ) \r ) \r ( C L : D E F U N
0032520 006 002 C L : N A M E S T R I N G 006
0032540 001 ( P A T H N A M E ) 006 006 006
0032560 001
0032600 006 006 ( * ; ; ; \r 006 001
0032620
*
0032660 006 006
0032700 " R e t u r n s t h e f u l
0032720 l f o r m o f P A T H N A
0032740 M E a s a s t r i n g . "
0032760 ) 006 001 \r ( 006 002 i f 006 001 (
0033000 A N D ( S T R E A M P P A T
0033020 H N A M E ) \r
0033040 ( N O T ( 006 002 f e t c h
0033060 006 001 ( S T R E A M N A M E D
0033100 P ) 006 002 o f 006 001 P A T H N A
0033120 M E ) ) ) \r 006 002 t
0033140 h e n 006 001 ( C L : R E T U R N
0033160 - F R O M C L : N A M E S T R
0033200 I N G " " ) ) \r ( S E T
0033220 Q P A T H N A M E ( P A T H
0033240 N A M E P A T H N A M E ) ) \r
0033260 ( L E T * ( ( H O S T
0033300 ( % % P A T H N A M E - H O S T
0033320 P A T H N A M E ) ) \r
0033340 ( D E V I C E ( %
0033360 % P A T H N A M E - D E V I C E
0033400 P A T H N A M E ) ) \r
0033420 ( D I R E C T O R Y
0033440 ( % % P A T H N A M E - D I R
0033460 E C T O R Y P A T H N A M E )
0033500 ) \r ( N A M
0033520 E ( % % P A T H N A M E - N A
0033540 M E P A T H N A M E ) ) \r
0033560 ( T Y P E ( %
0033600 % P A T H N A M E - T Y P E P
0033620 A T H N A M E ) ) \r
0033640 ( V E R S I O N ( % %
0033660 P A T H N A M E - V E R S I O N
0033700 P A T H N A M E ) ) \r
0033720 ( R E S U L T N I
0033740 L ) ) \r ( 006 002
0033760 D E C L A R E 006 001 ( C L : S I
0034000 M P L E - S T R I N G R E S U
0034020 L T ) ) \r ( C
0034040 L : W H E N H O S T ( S E T
0034060 Q R E S U L T ( C L : C O N
0034100 C A T E N A T E ' C L : S I M
0034120 P L E - S T R I N G " { " (
0034140 T H E C L : S I M P L E - S T
0034160 R I N G H O S T ) \r
0034200
*
0034240 " } " ) ) ) 006 006 006 001
0034260 006 006 ( * ; ; \r 006 001
0034300
0034320 006 006 " d e v i c e w i l l
0034340 h a v e ` : ' o n e n d
0034360 b e c a u s e i t a l l o
0034400 w s y o u t o h a v e a
0034420 d e v i c e c a l l e d N
0034440 I L " ) 006 001 \r
0034460 ( C L : W H E N D E V I C E
0034500 ( S E T Q R E S U L T ( C L
0034520 : C O N C A T E N A T E ' C L
0034540 : S I M P L E - S T R I N G R
0034560 E S U L T ( T H E C L : S I
0034600 M P L E - S T R I N G \r
0034620
*
0034740 D E V I C E ) ) ) ) \r
0034760 ( C L : W H E N D I
0035000 R E C T O R Y ( S E T Q R E
0035020 S U L T ( C L : C O N C A T E
0035040 N A T E ' C L : S I M P L E -
0035060 S T R I N G R E S U L T " <
0035100 " \r
0035120
*
0035160 ( C L : I F ( E Q D I R
0035200 E C T O R Y : W I L D ) \r
0035220
*
0035300 " * " \r
0035320
*
0035400 ( T H E C L : S I M P L E - S
0035420 T R I N G D I R E C T O R Y )
0035440 ) \r
0035460
*
0035520 " > " ) ) ) \r
0035540 ( C L : W H E N N A M E
0035560 ( S E T Q R E S U L T ( C L
0035600 : C O N C A T E N A T E ' C L
0035620 : S I M P L E - S T R I N G R
0035640 E S U L T ( C L : I F ( E Q
0035660 N A M E : W I L D ) \r
0035700
*
0036020 " * " \r
0036040
*
0036140 ( T H E \r
0036160
*
0036300 C L : S I M P L E - S T
0036320 R I N G \r
0036340
*
0036440 N
0036460 A M E ) ) ) ) ) \r
0036500 ( C L : W H E N T Y P E
0036520 ( S E T Q R E S U L T ( C L
0036540 : C O N C A T E N A T E ' C L
0036560 : S I M P L E - S T R I N G R
0036600 E S U L T " . " \r
0036620
*
0036660 ( C L : I F ( E Q
0036700 T Y P E : W I L D ) \r
0036720
*
0036760 " *
0037000 " \r
0037020
*
0037060 ( T H E C L : S I M P
0037100 L E - S T R I N G T Y P E ) )
0037120 ) ) ) \r ( C L
0037140 : W H E N V E R S I O N ( S
0037160 E T Q R E S U L T ( C L : C
0037200 O N C A T E N A T E ' C L : S
0037220 I M P L E - S T R I N G R E S
0037240 U L T \r
0037260
*
0037320 ( C A S E V E R S I O N
0037340 ( : W I L D " ; * " ) \r
0037360
*
0037440 ( ( : N E W E S T N I L ) \r
0037460
*
0037540 " " ) \r
0037560
*
0037620 ( O T
0037640 H E R W I S E ( C L : C O N C
0037660 A T E N A T E ' C L : S I M P
0037700 L E - S T R I N G " ; " \r
0037720
*
0040020 ( C L : P R I N C - T O
0040040 - S T R I N G V E R S I O N )
0040060 ) ) ) \r
0040100
*
0040140 ) ) ) \r R
0040160 E S U L T ) ) \r \r ( C L : D E F
0040200 U N 006 002 C L : P A R S E - N A
0040220 M E S T R I N G 006 001 ( T H I N
0040240 G & O P T I O N A L H O S T
0040260 ( D E F A U L T S * D E F A
0040300 U L T - P A T H N A M E - D E F
0040320 A U L T S * ) \r
0040340
0040360 & K E
0040400 Y \r
0040420
0040440 ( S T A R T 0 )
0040460 \r
0040500
0040520 E N D \r
0040540
0040560 (
0040600 J U N K - A L L O W E D N I L
0040620 ) ) 006 006 006 001 \r
0040640
*
0040700 006 006 ( * ;
0040720 ; ; " P a r s e s a s t r
0040740 i n g r e p r e s e n t a t i
0040760 o n o f a p a t h n a m e
0041000 i n t o a p a t h n a m e
0041020 . F o r d e t a i l s o
0041040 n t h e o t h e r s i l l
0041060 y a r g u m e n t s s e e
0041100 t h e m a n u a l . N O T
0041120 E t h a t t h i s v e r s
0041140 i o n i g n o r e s J U N K
0041160 - A L L O W E D ( b e c a u s
0041200 e U N P A C K F I L E N A M E
0041220 a . k . a . P A R S E - N A
0041240 M E S T R I N G 1 w i l l p
0041260 a r s e a n y t h i n g ) " )
0041300 006 001 \r ( C L : U N L E S S
0041320 D E F A U L T S ( C L : S E
0041340 T Q D E F A U L T S * D E F
0041360 A U L T - P A T H N A M E - D E
0041400 F A U L T S * ) ) \r ( C L
0041420 : U N L E S S H O S T ( S E
0041440 T Q H O S T ( % % P A T H N
0041460 A M E - H O S T D E F A U L T
0041500 S ) ) ) \r ( C L : T Y P E
0041520 C A S E T H I N G ( S T R I
0041540 N G ( S E T Q T H I N G (
0041560 C O E R C E T H I N G ' C L
0041600 : S I M P L E - S T R I N G ) )
0041620 ) \r ( P A T
0041640 H N A M E ( C L : R E T U R N
0041660 - F R O M C L : P A R S E - N
0041700 A M E S T R I N G ( C L : V A
0041720 L U E S T H I N G S T A R T
0041740 ) ) ) \r ( S
0041760 T R E A M ( S E T Q T H I N
0042000 G ( F I L E - N A M E T H I
0042020 N G ) ) ) \r
0042040 ( C L : S Y M B O L ( S E T Q
0042060 T H I N G ( C L : S Y M B O
0042100 L - N A M E T H I N G ) ) ) \r
0042120 ( T ( C L
0042140 : E R R O R " T h i s i s
0042160 o f a n i n a p p r o p r i
0042200 a t e t y p e f o r p a r
0042220 s e - n a m e s t r i n g : ~
0042240 S " T H I N G ) ) ) \r (
0042260 C L : U N L E S S E N D ( S
0042300 E T Q E N D ( C L : L E N G
0042320 T H ( T H E C L : S I M P L
0042340 E - S T R I N G T H I N G ) )
0042360 ) ) \r ( L E T * ( ( R E
0042400 S U L T ( P A R S E - N A M E
0042420 S T R I N G 1 ( M K S T R I N
0042440 G ( C L : S U B S E Q T H I
0042460 N G S T A R T E N D ) ) ) )
0042500 \r ( P A T H
0042520 - L I S T ( C D R R E S U L
0042540 T ) ) ) \r ( C
0042560 L : V A L U E S ( C L : M A K
0042600 E - P A T H N A M E : H O S T
0042620 ( L I S T G E T P A T H - L
0042640 I S T ' H O S T ) \r
0042660
0042700 : D E V I C E \r
0042720
0042740 ( L I S T G E
0042760 T P A T H - L I S T ' D E V
0043000 I C E ) \r
0043020
0043040 : D I R E C T O R Y \r
0043060
0043100 ( % % W I L D - N A
0043120 M E ( L I S T G E T P A T H
0043140 - L I S T ' D I R E C T O R Y
0043160 ) ) \r
0043200 : N
0043220 A M E \r
0043240 (
0043260 % % W I L D - N A M E ( L I S
0043300 T G E T P A T H - L I S T '
0043320 N A M E ) ) \r
0043340
0043360 : T Y P E \r
0043400
0043420 ( % % W I L D - N A M E
0043440 ( L I S T G E T P A T H - L I
0043460 S T ' T Y P E ) ) \r
0043500
0043520 : V E R S I O N \r
0043540
0043560 ( L E T (
0043600 ( V E R S I O N ( L I S T G E
0043620 T P A T H - L I S T ' V E R
0043640 S I O N ) ) ) \r
0043660
0043700 ( C L : I F (
0043720 O R ( N U L L V E R S I O N
0043740 ) \r
0043760
0044000 ( C L
0044020 : E Q U A L V E R S I O N "
0044040 " ) ) \r
0044060
0044100 : N E W E
0044120 S T \r
0044140
0044160 ( C L : I F
0044200 ( C L : E Q U A L V E R S I
0044220 O N " * " ) \r
0044240
*
0044300 : W I L D \r
0044320
*
0044360 ( M K A T O
0044400 M V E R S I O N ) ) ) ) ) \r
0044420 (
0044440 + S T A R T ( C A R R E S
0044460 U L T ) ) ) ) ) \r \r ( C L : D E
0044500 F U N 006 002 P A R S E - N A M E
0044520 S T R I N G 1 006 001 ( F I L E )
0044540 006 006 006 001
0044560 006 006 ( * ; ; ; \r 006 001
0044600 006 006 " G i
0044620 v e n a s t r i n g o r
0044640 a t o m r e p r e s e n t a t
0044660 i o n o f a f i l e n a
0044700 m e , u n p a c k i t i n
0044720 t o i t s c o m p o n e n t
0044740 p a r t s " ) 006 001 \r 006 006
0044760 006 001
0045000
*
0045040 006 006 ( * ; ; ; " c r u d e
0045060 l y h a c k e d f r o m U
0045100 N P A C K F I L E N A M E . S T
0045120 R I N G " ) 006 001 \r ( P R O
0045140 G ( ( P O S 1 ) \r
0045160 T E M T E M 2 B E
0045200 Y O N D N A M E B E Y O N D E
0045220 X T V A L C O D E H O S T
0045240 P S U B D I R E N D P A C K
0045260 F L G D I R F L G O N E F I
0045300 E L D F L G ) \r
0045320 ( C O N D \r
0045340 ( ( N U L L F I L E ) \r
0045360 ( R E
0045400 T U R N ( C O N S P O S N
0045420 I L ) ) ) \r
0045440 ( ( O R ( L I T A T O M
0045460 F I L E ) \r
0045500 ( C L : S T R I N
0045520 G P F I L E ) \r
0045540 ( N U M B E
0045560 R P F I L E ) ) ) \r
0045600 ( ( 006 002 t y p e ?
0045620 006 001 S T R E A M F I L E ) 006
0045640 006 006 001
0045660 006 006 ( * ; \r 006 001
0045700
*
0045760 006 006 " F o r s t r e a m s ,
0046000 u s e f u l l n a m e .
0046020 I f a n o n y m o u s , f a
0046040 k e i t " ) 006 001 \r
0046060 ( S E T Q F I L
0046100 E ( O R ( 006 002 f f e t c h 006
0046120 001 F U L L F I L E N A M E 006
0046140 002 o f 006 001 F I L E ) \r
0046160
0046200 ( R E T U R N
0046220 ( C O N S P O S ( L I S T
0046240 ' N A M E F I L E ) ) ) ) ) )
0046260 \r ( T
0046300 ( \ I L L E G A L . A R G F I
0046320 L E ) ) ) \r (
0046340 C O N D \r
0046360 ( ( S E L C H A R Q ( N T H
0046400 C H A R C O D E F I L E 1 )
0046420 \r
0046440 ( { 006 006 006 001
0046460
*
0046520 006 006 ( * ; " n o r m a l
0046540 u s e i n I n t e r l i s
0046560 p - D " ) 006 001 \r
0046600 ( S E
0046620 T Q T E M ( S U B 1 ( O R
0046640 ( \ U P F . N E X T P O S (
0046660 C H A R C O D E } ) \r
0046700
*
0046740 F I L E
0046760 2 ) \r
0047000
0047020 0 ) )
0047040 ) ) \r
0047060 ( % [ 006 006 006 001
0047100
0047120 006 006 ( * ;
0047140 \r 006 001
0047160
*
0047220 006 006 " s o m e X e r
0047240 o x a n d A r p a n e t s
0047260 y s t e m s u s e ` [ ' f
0047300 o r h o s t " ) 006 001 \r
0047320
0047340 ( S E T Q T E M ( S U B
0047360 1 ( O R ( \ U P F . N E X T
0047400 P O S ( C H A R C O D E " ]
0047420 " ) \r
0047440
*
0047500 F I L E 2 ) \r
0047520
*
0047560 0 ) ) ) ) \r
0047600 ( %
0047620 ( 006 006 006 001
0047640
0047660 006 006 ( * ; \r 006 001
0047700
*
0047740 006 006 " t
0047760 h i s i s t h e s t a n d
0050000 a r d f o r X e r o x p r
0050020 o d u c t f i l e s e r v e
0050040 r s " ) 006 001 \r
0050060 ( S E
0050100 T Q T E M ( S U B 1 ( O R
0050120 ( \ U P F . N E X T P O S (
0050140 C H A R C O D E " ) " ) \r
0050160
*
0050220 F
0050240 I L E 2 ) \r
0050260
*
0050320 0 ) ) ) ) \r
0050340 N I L ) \r
0050360 ( % % U N
0050400 P A C K F I L E 1 ' H O S T
0050420 2 T E M F I L E P A C K F
0050440 L G O N E F I E L D F L G V
0050460 A L ) \r
0050500 ( C O N D \r
0050520 ( ( E Q T E M
0050540 - 1 ) \r
0050560 ( R E T U R N ( C O
0050600 N S P O S ( D R E V E R S E
0050620 V A L ) ) ) ) ) \r
0050640 ( S E T Q P O S
0050660 ( I P L U S T E M 2 ) ) \r
0050700 ( S E
0050720 T Q H O S T P T ) ) ) \r
0050740 ( C O N D \r
0050760 ( ( S E T Q
0051000 T E M ( L A S T C H P O S (
0051020 C H A R C O D E 006 002 % : 006 001 )
0051040 \r
0051060 F
0051100 I L E P O S ) ) 006 006 006 001
0051120 006 006 ( * ; \r 006
0051140 001
0051160
0051200 006 006 "
0051220 a l l d e v i c e r e t u r
0051240 n e d h a v e : o n i t
0051260 s o t h a t N I L : w i
0051300 l l w o r k " ) 006 001 \r
0051320 ( % % U N P A
0051340 C K F I L E 1 ' D E V I C E
0051360 P O S T E M F I L E P A C
0051400 K F L G O N E F I E L D F L G
0051420 V A L ) \r
0051440 ( S E T Q P O S ( A D
0051460 D 1 T E M ) ) \r
0051500 ( S E T Q H O S T
0051520 P T ) ) ) \r
0051540 ( C O N D \r
0051560 ( ( E Q D I R F L G ' R
0051600 E T U R N ) \r
0051620 ( L E T ( ( T Y P E
0051640 ' D I R E C T O R Y ) \r
0051660 (
0051700 S T A R T ( S E L C H A R Q
0051720 ( N T H C H A R C O D E F I L
0051740 E P O S ) \r
0051760
0052000 ( N I L ( R E T U
0052020 R N ( C O N S P O S ( D R
0052040 E V E R S E V A L ) ) ) ) \r
0052060
0052100 ( (
0052120 / < ) \r
0052140
0052160 ( A D D 1
0052200 P O S ) ) \r
0052220
0052240 P O S ) ) \r
0052260 E N
0052300 D ) \r
0052320 ( S E T Q E N D (
0052340 S E L C H A R Q ( N T H C H A
0052360 R C O D E F I L E - 1 ) \r
0052400
*
0052440 ( ( / > ) \r
0052460
0052500 ( C
0052520 O N D \r
0052540
0052560 ( ( A
0052600 N D ( E Q S T A R T P O S
0052620 ) \r
0052640
*
0052700 ( N O T H O S T P ) ) 006 006 006
0052720 001 \r
0052740
*
0053000 006 006 ( * ; \r 006 001
0053020 006 006 " D i d n ' t s t
0053040 a r t w i t h a d i r e c
0053060 t o r y d e l i m i t e r ,
0053100 b u t i t e n d s w i t h
0053120 o n e , s o t h i s m u
0053140 s t b e a s u b d i r e c
0053160 t o r y " ) 006 001 \r
0053200
*
0053240 ( S E T Q T Y P E ' S
0053260 U B D I R E C T O R Y ) ) ) \r
0053300
*
0053340 - 2 ) \r
0053360
0053400 ( P R O G N
0053420 - 1 ) ) ) \r
0053440 ( % % U N P A
0053460 C K F I L E 1 T Y P E S T A
0053500 R T E N D F I L E P A C K
0053520 F L G O N E F I E L D F L G
0053540 V A L ) ) \r
0053560 ( R E T U R N ( C O N S
0053600 P O S ( D R E V E R S E V
0053620 A L ) ) ) ) \r
0053640 ( ( S E L C H A R Q ( N
0053660 T H C H A R C O D E F I L E
0053700 P O S ) \r
0053720 ( / 006 006 006 001
0053740
0053760 006 006 ( *
0054000 ; \r 006 001
0054020
*
0054060 006 006 " u n i x a
0054100 n d t h e ` x e r o x s t
0054120 a n d a r d ' u s e / f o
0054140 r d e l i m i t e r " ) 006 001 \r
0054160
0054200 ( S E T Q T E M (
0054220 L A S T C H P O S ( C H A R C
0054240 O D E / ) \r
0054260
0054300 F I L
0054320 E \r
0054340
0054360 ( A D D 1 P O
0054400 S ) ) ) ) \r
0054420 ( ( < > ) 006
0054440 006 006 001
0054460 006 006 ( *
0054500 ; \r 006 001
0054520 006 006 " I n t e r l i s
0054540 p - D a n d m o s t o t h
0054560 e r X e r o x s y s t e m s
0054600 , a n d T o p s - 2 0 / T e
0054620 n e x u s e < > . J e r
0054640 i c h o u s e s > > " ) 006 001
0054660 \r
0054700 ( S E T Q T E
0054720 M ( L A S T C H P O S ( C H
0054740 A R C O D E > ) \r
0054760
*
0055020 F I L E \r
0055040
0055060 (
0055100 A D D 1 P O S ) ) ) ) \r
0055120 N
0055140 I L ) \r
0055160 ( % % U N P A C K F I L E 1
0055200 ' D I R E C T O R Y ( A D D 1
0055220 P O S ) \r
0055240 ( S U B 1
0055260 T E M ) \r
0055300 F I L E P A
0055320 C K F L G O N E F I E L D F L
0055340 G V A L ) \r
0055360 ( S E T Q P O S ( A
0055400 D D 1 T E M ) ) \r
0055420 ( S E T Q H O S
0055440 T P T ) ) ) \r
0055460 ( O R ( S E T Q C O D E
0055500 ( N T H C H A R C O D E F I L
0055520 E ( S E T Q T E M P O S )
0055540 ) ) \r
0055560 ( R E T U R N ( C O N S P O
0055600 S ( D R E V E R S E V A L )
0055620 ) ) ) \r N A M E L P \r
0055640 ( S E L C H A
0055660 R Q C O D E \r
0055700 ( ( % . ! ; N
0055720 I L ) 006 006 006 001
0055740 006 006
0055760 ( * ; \r 006 001
0056000
*
0056040 006 006 " N A M E a n d S U
0056060 B D I R E C T O R Y f i e l d
0056100 s d e f i n i t e l y t e r
0056120 m i n a t e d b y n o w " )
0056140 006 001 \r
0056160 ( C O N D \r
0056200
0056220 ( ( A N D ( E Q C O D E
0056240 ( C H A R C O D E % . ) ) \r
0056260
0056300 ( N O T
0056320 B E Y O N D N A M E ) \r
0056340
0056360 ( S E T Q T
0056400 E M 2 ( S T R P O S " . "
0056420 F I L E ( A D D 1 T E M ) )
0056440 ) \r
0056460 ( S
0056500 E T Q T E M 2 ( N T H C H A
0056520 R F I L E ( A D D 1 T E M
0056540 2 ) ) ) \r
0056560
0056600 ( N O T ( F I X P T E M 2
0056620 ) ) ) 006 006 006 001 006 006 ( *
0056640 ; ; " I f t h e r e ' s a
0056660 n o t h e r d o t f o l l o
0056700 w e d b y s o m e t h i n g
0056720 o t h e r t h a n a n u
0056740 m e r i c e x t e n s i o n ,
0056760 t h e n i g n o r e t h i
0057000 s d o t , s i n c e w e '
0057020 l l g e t a n o t h e r c
0057040 h a n c e " ) 006 001 \r
0057060
0057100 ( G O N E X T C H A R ) ) )
0057120 \r
0057140 ( C O N D \r
0057160
0057200 ( S U B D I R E N D ( % % U N
0057220 P A C K F I L E 1 ' S U B D I
0057240 R E C T O R Y P O S ( S U B
0057260 1 S U B D I R E N D ) \r
0057300
*
0057340 F I L E P A C K F L
0057360 G O N E F I E L D F L G V A
0057400 L ) \r
0057420
0057440 ( S E T Q P O S ( A D D 1
0057460 S U B D I R E N D ) ) \r
0057500
0057520 ( S E T Q S
0057540 U B D I R E N D ) \r
0057560
0057600 ( C O N D \r
0057620
0057640 ( ( A
0057660 N D ( N U L L C O D E ) \r
0057700
*
0057740 ( E Q P O S T E M
0057760 ) ) 006 006 006 001 \r
0060000
*
0060040 006 006 ( * ;
0060060 \r 006 001
0060100
0060120 006 006 " N o
0060140 t h i n g f o l l o w s t h
0060160 e s u b d i r e c t o r y ;
0060200 n u l l n a m e i s N O
0060220 T i m p l i e d " ) 006 001 \r
0060240
0060260 (
0060300 R E T U R N ( C O N S P O S
0060320 ( D R E V E R S E V A L ) )
0060340 ) ) ) ) ) \r
0060360 ( % % U N P A
0060400 C K F I L E 1 ( C O N D \r
0060420
*
0060460 ( ( N O T B E Y O N D N
0060500 A M E ) \r
0060520
0060540 ( C O N D
0060560 \r
0060600
0060620 ( ( N E Q
0060640 C O D E ( C H A R C O D E %
0060660 . ) ) \r
0060700
0060720 ( S
0060740 E T Q Q B E Y O N D E X T ;
0060760 ) ) ) \r
0061000
0061020 ( S E T Q Q
0061040 B E Y O N D N A M E N A M E
0061060 ) ) \r
0061100
0061120 ( ( N O T B E
0061140 Y O N D E X T ) \r
0061160
0061200 (
0061220 S E T Q B E Y O N D E X T (
0061240 C O N D \r
0061260
*
0061320 ( (
0061340 N E Q C O D E ( C H A R C O
0061360 D E % . ) ) \r
0061400
*
0061460 ' ; ) \r
0061500
*
0061540 (
0061560 T T ) ) ) \r
0061600
0061620 ' T Y
0061640 P E ) \r
0061660
0061700 ( T ( S E L
0061720 C H A R Q ( A N D ( E Q B
0061740 E Y O N D E X T ' ; ) \r
0061760
*
0062040 ( N T H C H A R C O D E
0062060 F I L E P O S ) ) \r
0062100
*
0062140 ( P ' P R O
0062160 T E C T I O N ) \r
0062200
*
0062240 ( A ( 006 002 a d d 006
0062260 001 P O S 1 ) \r
0062300
*
0062340 ' A C C O U N
0062360 T ) \r
0062400
*
0062440 ( ( T S ) \r
0062460
*
0062520 ' T E M P O
0062540 R A R Y ) \r
0062560
*
0062620 ' V E R S I O N ) ) ) \r
0062640
0062660 P O S \r
0062700
0062720 ( S U B 1 T E M
0062740 ) \r
0062760 F I L E
0063000 P A C K F L G O N E F I E L
0063020 D F L G V A L ) \r
0063040 ( C O
0063060 N D \r
0063100 ( ( N U L L
0063120 C O D E ) 006 006 006 001
0063140
0063160 006 006 ( * ; " E n d
0063200 o f s t r i n g " ) 006 001 \r
0063220
0063240 ( R E T U R N ( C O
0063260 N S P O S ( D R E V E R S E
0063300 V A L ) ) ) ) ) \r
0063320 ( S E
0063340 T Q P O S ( A D D 1 T E M
0063360 ) ) ) \r
0063400 ( % ' 006 006 006 001
0063420
*
0063460 006 006 ( * ; " Q u o
0063500 t e r " ) 006 001 \r
0063520 ( 006 002 a d d
0063540 006 001 T E M 1 ) ) \r
0063560 ( ( / > )
0063600 006 006 006 001
0063620
0063640 006 006 ( * ;
0063660 " S u b d i r e c t o r y t e
0063700 r m i n a t i n g c h a r a c
0063720 t e r " ) 006 001 \r
0063740 ( C O N D
0063760 \r
0064000 ( ( A N D ( N O
0064020 T H O S T P ) \r
0064040
0064060 ( N O T B E Y O N D
0064100 N A M E ) \r
0064120
0064140 D I R F L G ) 006 006 006 001
0064160
0064200 006 006 ( * ; " O k t
0064220 o t r e a t t h i s a s
0064240 a s u b d i r e c t o r y " )
0064260 006 001 \r
0064300 ( S E T Q
0064320 S U B D I R E N D T E M ) ) )
0064340 ) \r
0064360 N I L ) \r N E X T C H
0064400 A R \r ( S E T
0064420 Q C O D E ( N T H C H A R C
0064440 O D E F I L E ( 006 002 a d d 006
0064460 001 T E M 1 ) ) ) \r
0064500 ( G O N A M E L P ) )
0064520 ) \r \r ( C L : D E F U N 006 002 C
0064540 L : T R U E N A M E 006 001 ( P A
0064560 T H N A M E ) 006 006 006 001
0064600 006 006 (
0064620 * ; ; ; " R e t u r n t h
0064640 e p a t h n a m e f o r t
0064660 h e a c t u a l f i l e d
0064700 e s c r i b e d b y t h e
0064720 p a t h n a m e . A n e r
0064740 r o r i s s i g n a l e d
0064760 i f n o s u c h f i l e
0065000 e x i s t s . P A T H N A M
0065020 E c a n b e a p a t h n
0065040 a m e , s t r i n g , s y m
0065060 b o l , o r s t r e a m . "
0065100 ) 006 001 \r ( 006 002 i f 006 001 (
0065120 A N D ( S T R E A M P P A T
0065140 H N A M E ) \r
0065160 ( N O T ( 006 002 f e t c h
0065200 006 001 ( S T R E A M N A M E D
0065220 P ) 006 002 o f 006 001 P A T H N A
0065240 M E ) ) ) \r 006 002 t
0065260 h e n 006 001 006 006 006 001
0065300
*
0065340 006 006 ( * ; \r 006 001
0065360 006 006 " l e t ' s c a t c
0065400 h t h i s c a s e , r a t
0065420 h e r t h a n h a v e t h
0065440 e m e s s a g e ' T h e f
0065460 i l e % " % " d o e s n o
0065500 t e x i s t ' a p p e a r .
0065520 " ) 006 001 \r
0065540 ( C L : E R R O R " T h e
0065560 s t r e a m ~ S h a s n o
0065600 c o r r e s p o n d i n g n
0065620 a m e d f i l e . " P A T H
0065640 N A M E ) \r 006 002 e l s
0065660 e 006 001 ( L E T ( ( R E S U L
0065700 T ( C L : P R O B E - F I L E
0065720 P A T H N A M E ) ) ) \r
0065740 ( C L :
0065760 U N L E S S R E S U L T ( C
0066000 L : E R R O R " T h e f i l
0066020 e ~ S d o e s n o t e x
0066040 i s t . " ( C L : N A M E S T
0066060 R I N G P A T H N A M E ) ) )
0066100 \r
0066120 R E S U L T ) ) ) \r \r ( C L : D
0066140 E F U N 006 002 % % M A K E - P A
0066160 T H N A M E 006 001 ( H O S T D
0066200 E V I C E D I R E C T O R Y
0066220 N A M E T Y P E V E R S I O
0066240 N ) ( % % % % M A K E - P A T
0066260 H N A M E : H O S T H O S T
0066300 \r
0066320
*
0066400 : D E
0066420 V I C E D E V I C E : D I R
0066440 E C T O R Y \r
0066460
*
0066560 D I R E C T O R Y : N A
0066600 M E N A M E : T Y P E \r
0066620
*
0066720 T Y P E :
0066740 V E R S I O N V E R S I O N )
0066760 ) \r \r ( C L : D E F U N 006 002 I
0067000 N T E R L I S P - N A M E S T R
0067020 I N G 006 001 ( P A T H N A M E )
0067040 006 006 006 001 006 006 (
0067060 * ; ; ; \r 006 001
0067100
*
0067140 006 006 " R e t u r n s t h
0067160 e f u l l f o r m o f P
0067200 A T H N A M E a s a n I n
0067220 t e r l i s p s t r i n g . "
0067240 ) 006 001 \r ( 006 002 i f 006 001 (
0067260 A N D ( S T R E A M P P A T
0067300 H N A M E ) \r
0067320 ( N O T ( 006 002 f e t c h
0067340 006 001 ( S T R E A M N A M E D
0067360 P ) 006 002 o f 006 001 P A T H N A
0067400 M E ) ) ) \r 006 002 t
0067420 h e n 006 001 ( C L : R E T U R N
0067440 - F R O M I N T E R L I S P -
0067460 N A M E S T R I N G " " ) ) \r
0067500 ( S E T Q P A T H N A M
0067520 E ( P A T H N A M E P A T H
0067540 N A M E ) ) \r ( L E T (
0067560 ( H O S T ( % % P A T H N A M
0067600 E - H O S T P A T H N A M E )
0067620 ) \r ( D E V I
0067640 C E ( % % P A T H N A M E - D
0067660 E V I C E P A T H N A M E ) )
0067700 \r ( D I R E C
0067720 T O R Y ( % % P A T H N A M E
0067740 - D I R E C T O R Y P A T H N
0067760 A M E ) ) \r (
0070000 N A M E ( % % P A T H N A M E
0070020 - N A M E P A T H N A M E ) )
0070040 \r ( T Y P E
0070060 ( % % P A T H N A M E - T Y P E
0070100 P A T H N A M E ) ) \r
0070120 ( V E R S I O N ( %
0070140 % P A T H N A M E - V E R S I O
0070160 N P A T H N A M E ) ) \r
0070200 ( R E S U L T " "
0070220 ) ) \r ( 006 002 D E
0070240 C L A R E 006 001 ( C L : S I M P
0070260 L E - S T R I N G R E S U L T
0070300 ) ) \r ( C L : W
0070320 H E N H O S T ( S E T Q R
0070340 E S U L T ( C O N C A T " {
0070360 " ( T H E C L : S I M P L E
0070400 - S T R I N G H O S T ) \r
0070420
*
0070460 " } " ) ) ) 006 006
0070500 006 001 006 006 ( * ; ; " d e v
0070520 i c e w i l l h a v e ` :
0070540 ' o n e n d b e c a u s e
0070560 o f P A R S E - N A M E S T
0070600 R I N G 1 s i l l i n e s s
0070620 ( i t a l l o w s y o u t
0070640 o h a v e a d e v i c e
0070660 c a l l e d N I L ) " ) 006 001 \r
0070700 ( C L : W H E N
0070720 D E V I C E ( S E T Q R E
0070740 S U L T ( C O N C A T R E S
0070760 U L T ( T H E C L : S I M P
0071000 L E - S T R I N G D E V I C E
0071020 ) ) ) ) \r ( C L
0071040 : W H E N D I R E C T O R Y
0071060 ( S E T Q R E S U L T ( C O
0071100 N C A T R E S U L T " < "
0071120 ( C L : I F ( E Q D I R E C
0071140 T O R Y : W I L D ) \r
0071160
*
0071240 " *
0071260 " \r
0071300
*
0071360 ( T H E C L : S I M P
0071400 L E - S T R I N G D I R E C T
0071420 O R Y ) ) \r
0071440
*
0071500 " > " ) ) ) \r
0071520 ( C L : W H E N N A M
0071540 E ( S E T Q R E S U L T (
0071560 C O N C A T R E S U L T ( C
0071600 L : I F ( E Q N A M E : W
0071620 I L D ) \r
0071640
*
0071700 " *
0071720 " \r
0071740
*
0072000 ( T H E
0072020 C L : S I M P L E - S T R I N G
0072040 N A M E ) ) ) ) ) \r
0072060 ( C L : W H E N T Y P E
0072100 ( S E T Q R E S U L T ( C
0072120 O N C A T R E S U L T " . "
0072140 ( C L : I F ( E Q T Y P E
0072160 : W I L D ) \r
0072200
*
0072260 " * " \r
0072300
*
0072360 ( T H E C L : S I
0072400 M P L E - S T R I N G T Y P E
0072420 ) ) ) ) ) \r ( C
0072440 L : W H E N V E R S I O N (
0072460 S E T Q R E S U L T ( C O N
0072500 C A T R E S U L T ( C A S E
0072520 V E R S I O N ( : W I L D
0072540 " ; * " ) \r
0072560
*
0072640 ( : N E W E S T " ; " ) \r
0072660
*
0072740 ( N I L "
0072760 " ) \r
0073000
*
0073040 ( O
0073060 T H E R W I S E ( C O N C A T
0073100 " ; " ( C L : P R I N C - T
0073120 O - S T R I N G \r
0073140
*
0073240 V E R S
0073260 I O N ) ) ) ) ) ) ) \r
0073300 R E S U L T ) ) \r \r ( C L
0073320 : D E F U N 006 002 % % P A T H N
0073340 A M E - E Q U A L 006 001 ( P A T
0073360 H N A M E 1 P A T H N A M E 2
0073400 ) ( A N D ( C L : E Q U A L
0073420 ( % % P A T H N A M E - H O S
0073440 T P A T H N A M E 1 ) \r
0073460
*
0073540 ( % % P A T
0073560 H N A M E - H O S T P A T H N
0073600 A M E 2 ) ) \r
0073620
*
0073660 ( C L
0073700 : E Q U A L ( % % P A T H N A
0073720 M E - D E V I C E P A T H N A
0073740 M E 1 ) \r
0073760
*
0074040 ( % % P A T H N A M E - D E
0074060 V I C E P A T H N A M E 2 ) )
0074100 \r
0074120
*
0074160 ( C L : E Q U A L
0074200 ( % % P A T H N A M E - D I R
0074220 E C T O R Y P A T H N A M E 1
0074240 ) \r
0074260
*
0074320 (
0074340 % % P A T H N A M E - D I R E C
0074360 T O R Y P A T H N A M E 2 ) )
0074400 \r
0074420
*
0074460 ( C L : E Q U A L
0074500 ( % % P A T H N A M E - N A M
0074520 E P A T H N A M E 1 ) \r
0074540
*
0074620 ( % % P A T
0074640 H N A M E - N A M E P A T H N
0074660 A M E 2 ) ) \r
0074700
*
0074740 ( C L
0074760 : E Q U A L ( % % P A T H N A
0075000 M E - T Y P E P A T H N A M E
0075020 1 ) \r
0075040
*
0075120 ( % % P A T H N A M E - T Y P E
0075140 P A T H N A M E 2 ) ) \r
0075160
*
0075240 ( C L : E Q U A L ( % %
0075260 P A T H N A M E - V E R S I O N
0075300 P A T H N A M E 1 ) \r
0075320
*
0075400 ( % % P A T H
0075420 N A M E - V E R S I O N P A T
0075440 H N A M E 2 ) ) ) ) \r \r ( C L :
0075460 D E F U N 006 002 % % I N I T I A
0075500 L I Z E - D E F A U L T - P A T
0075520 H N A M E 006 001 N I L ( 006 002 D
0075540 E C L A R E 006 001 ( G L O B A L
0075560 V A R S * D E F A U L T - P A
0075600 T H N A M E - D E F A U L T S *
0075620 \r
0075640
*
0075700 \ C
0075720 O N N E C T E D . D I R E C T O
0075740 R Y ) ) \r
0075760
*
0076020 ( 006 002 i f 006 001 ( N O T ( B
0076040 O U N D P ' \ C O N N E C T E
0076060 D . D I R E C T O R Y ) ) \r
0076100
*
0076140 006 002
0076160 t h e n 006 001 ( S E T Q \ C O
0076200 N N E C T E D . D I R E C T O R
0076220 Y ' { D S K } ) ) \r
0076240
*
0076300 ( S E T Q * D E
0076320 F A U L T - P A T H N A M E - D
0076340 E F A U L T S * \r
0076360
*
0076420 ( C L : P A R S E -
0076440 N A M E S T R I N G \ C O N N
0076460 E C T E D . D I R E C T O R Y \r
0076500
*
0076560 ( F I L E N A M E F I E
0076600 L D \ C O N N E C T E D . D I
0076620 R E C T O R Y ' H O S T ) ) )
0076640 \r
0076660
0076700 ( C L
0076720 : S E T F ( % % P A T H N A M
0076740 E - V E R S I O N * D E F A U
0076760 L T - P A T H N A M E - D E F A
0077000 U L T S * ) \r
0077020
*
0077060 : N E W E S
0077100 T ) \r
0077120
0077140 *
0077160 D E F A U L T - P A T H N A M E
0077200 - D E F A U L T S * ) \r \r ( D E
0077220 F G L O B A L V A R 006 002 * D E
0077240 F A U L T - P A T H N A M E - D
0077260 E F A U L T S * 006 001 ) \r \r \r \r
0077300 \r 006 004 ( * ; ; " I n t e r l
0077320 i s p - D c o m p a t i b i l
0077340 i t y " ) 006 001 \r \r ( C L : D E F
0077360 U N 006 002 U N P A C K P A T H N
0077400 A M E . S T R I N G 006 001 ( F I
0077420 L E & O P T I O N A L O N E
0077440 F I E L D F L G D I R F L G
0077460 A T O M F L G ) 006 006 006 001 \r
0077500
*
0077560 006 006 ( * ; ; \r 006 001
0077600
*
0077640 006 006 " S i m u l a t e
0077660 t h e a c t i o n o f U N
0077700 P A C K F I L E N A M E . S T R
0077720 I N G o n a p a t h n a m
0077740 e " ) 006 001 \r 006 006 006 001
0077760
*
0100040 006 006 ( * ; ; "
0100060 " ) 006 001 \r ( 006 002 D E C L A
0100100 R E 006 001 ( I G N O R E D I R
0100120 F L G ) ) \r ( 006 002 i f 006 001
0100140 O N E F I E L D F L G \r
0100160 006 002 t h e n 006 001 ( A N
0100200 D ( C L : C O N S P O N E F
0100220 I E L D F L G ) \r
0100240 ( S E T Q
0100260 O N E F I E L D F L G ( C A R
0100300 ( C L : I N T E R S E C T I O
0100320 N O N E F I E L D F L G \r
0100340
*
0100400 ' ( H
0100420 O S T D E V I C E D I R E C
0100440 T O R Y N A M E E X T E N S
0100460 I O N V E R S I O N ) ) ) ) )
0100500 \r ( L E
0100520 T ( ( R E S U L T ( C A S E
0100540 O N E F I E L D F L G ( H O
0100560 S T ( C L : P A T H N A M E -
0100600 H O S T F I L E ) ) \r
0100620
0100640 ( D E V
0100660 I C E ( C L : P A T H N A M E
0100700 - D E V I C E F I L E ) ) \r
0100720
0100740 (
0100760 D I R E C T O R Y ( C L : P A
0101000 T H N A M E - D I R E C T O R Y
0101020 F I L E ) ) \r
0101040
0101060 ( N A M E ( C
0101100 L : P A T H N A M E - N A M E
0101120 F I L E ) ) \r
0101140
0101160 ( E X T E N S I O
0101200 N ( C L : P A T H N A M E - T
0101220 Y P E F I L E ) ) \r
0101240
0101260 ( V E R S
0101300 I O N ( C L : P A T H N A M E
0101320 - V E R S I O N F I L E ) ) \r
0101340
*
0101400 ( O T H E R W I S E N I L ) )
0101420 ) ) \r
0101440 ( 006 002 i f 006 001 A T O M
0101460 F L G \r
0101500 006 002 t h e n 006
0101520 001 ( M K A T O M R E S U L T
0101540 ) \r
0101560 006 002 e l s e 006 001 R E
0101600 S U L T ) ) \r 006 002 e l
0101620 s e 006 001 ( L E T ( ( C O M P
0101640 O N E N T ) ) \r
0101660 ( A P P E N D (
0101700 006 002 i f 006 001 ( S E T Q C O M
0101720 P O N E N T ( C L : P A T H N
0101740 A M E - H O S T F I L E ) ) \r
0101760
0102000 006 002 t h e
0102020 n 006 001 ( L I S T ' H O S T
0102040 ( 006 002 i f 006 001 A T O M F L G \r
0102060
*
0102140 006 002 t h e n 006 001 ( M K A T O M
0102160 C O M P O N E N T ) \r
0102200
*
0102240 006 002 e l s e
0102260 006 001 C O M P O N E N T ) \r
0102300
*
0102340 C O M P O N E N T ) ) \r
0102360
0102400 ( 006 002 i f 006 001 ( S
0102420 E T Q C O M P O N E N T ( C
0102440 L : P A T H N A M E - D E V I C
0102460 E F I L E ) ) \r
0102500
0102520 006 002 t h e n 006 001 ( L I S
0102540 T ' D E V I C E ( 006 002 i f 006
0102560 001 A T O M F L G \r
0102600
*
0102640 006 002 t h e
0102660 n 006 001 ( M K A T O M C O M P
0102700 O N E N T ) \r
0102720
*
0102760 006 002 e l s e 006 001 C
0103000 O M P O N E N T ) ) ) \r
0103020
0103040 ( 006 002 i f 006 001 ( S E T Q
0103060 C O M P O N E N T ( C L : P A
0103100 T H N A M E - D I R E C T O R Y
0103120 F I L E ) ) \r
0103140
0103160 006 002 t h e n 006 001 ( L I S T
0103200 ' D I R E C T O R Y ( 006 002 i
0103220 f 006 001 A T O M F L G \r
0103240
*
0103320 006 002 t h e n 006 001 ( M K A T O M
0103340 C O M P O N E N T ) \r
0103360
*
0103420 006 002
0103440 e l s e 006 001 C O M P O N E N T
0103460 ) ) ) \r
0103500 ( 006 002 i f 006
0103520 001 ( S E T Q C O M P O N E N
0103540 T ( C L : P A T H N A M E - N
0103560 A M E F I L E ) ) \r
0103600
0103620 006 002 t h e n 006 001 ( L
0103640 I S T ' N A M E ( 006 002 i f 006
0103660 001 A T O M F L G \r
0103700
*
0103740 006 002 t h e n 006
0103760 001 ( M K A T O M C O M P O N
0104000 E N T ) \r
0104020
*
0104060 006 002 e l s e 006 001 C O M P O
0104100 N E N T ) ) ) \r
0104120 ( 006
0104140 002 i f 006 001 ( S E T Q C O M P
0104160 O N E N T ( C L : P A T H N A
0104200 M E - T Y P E F I L E ) ) \r
0104220
0104240 006 002 t h e n 006
0104260 001 ( L I S T ' E X T E N S I
0104300 O N ( 006 002 i f 006 001 A T O M F
0104320 L G \r
0104340
*
0104400 006 002 t h e n 006 001
0104420 ( M K A T O M C O M P O N E N
0104440 T ) \r
0104460
*
0104520 006 002 e l s e 006 001 C O
0104540 M P O N E N T ) ) ) \r
0104560
0104600 ( 006 002 i f 006 001 ( S E T Q C
0104620 O M P O N E N T ( C L : P A T
0104640 H N A M E - V E R S I O N F I
0104660 L E ) ) \r
0104700 006
0104720 002 t h e n 006 001 ( L I S T ' V
0104740 E R S I O N ( 006 002 i f 006 001 A
0104760 T O M F L G \r
0105000
*
0105040 006 002 t h e n 006
0105060 001 ( M K A T O M C O M P O N
0105100 E N T ) \r
0105120
*
0105160 006 002 e l s e 006 001 ( M
0105200 K S T R I N G C O M P O N E N
0105220 T ) ) ) ) ) ) ) ) \r \r ( C L : D
0105240 E F U N 006 002 C L : F I L E - N
0105260 A M E S T R I N G 006 001 ( P A T
0105300 H N A M E ) ( L E T * ( ( P
0105320 A T H ( P A T H N A M E P A
0105340 T H N A M E ) ) \r
0105360
*
0105420 ( R E S U L T
0105440 ( C L : C O N C A T E N A T E
0105460 ' C L : S I M P L E - S T R I N
0105500 G \r
0105520
*
0105600 ( % % C O M P O N E N T - S T R
0105620 I N G ( % % P A T H N A M E -
0105640 N A M E \r
0105660
*
0105760 P A T H ) ) \r
0106000
*
0106060 " . "
0106100 \r
0106120
*
0106160 (
0106200 % % C O M P O N E N T - S T R I
0106220 N G ( % % P A T H N A M E - T
0106240 Y P E \r
0106260
*
0106360 P A T H ) ) ) ) \r
0106400
*
0106440 (
0106460 V E R S I O N ( % % P A T H N
0106500 A M E - V E R S I O N P A T H
0106520 ) ) ) \r
0106540
*
0106600 ( C L : W H E N V E R S I
0106620 O N \r
0106640
*
0106700 ( S E T Q R E
0106720 S U L T \r
0106740
*
0107000 ( C L : C
0107020 O N C A T E N A T E \r
0107040
*
0107120 ' C L : S I M P L E - S T R
0107140 I N G R E S U L T \r
0107160
*
0107240 ( C A S E V E R S I O N
0107260 ( : W I L D " ; * " ) \r
0107300
*
0107360 ( : N E W E
0107400 S T " ; " ) \r
0107420
*
0107500 ( N I L " " ) \r
0107520
*
0107600 ( O T H E
0107620 R W I S E ( C L : C O N C A T
0107640 E N A T E ' \r
0107660
*
0107760 C L : S I M P L E
0110000 - S T R I N G " ; " \r
0110020
*
0110120 ( C L : P
0110140 R I N C - T O - S T R I N G \r
0110160
*
0110260 V
0110300 E R S I O N ) ) ) ) ) ) ) \r
0110320
*
0110360 R E S U
0110400 L T ) ) \r \r ( C L : D E F U N
0110420 006 002 C L : D I R E C T O R Y - N
0110440 A M E S T R I N G 006 001 ( P A T
0110460 H N A M E ) 006 006 006 001
0110500 006 006 ( * ; ; \r 006 001
0110520
*
0110560 006 006 " R e
0110600 t u r n s t h e d i r e c t
0110620 o r y p a r t o f P A T H
0110640 N A M E a s a s t r i n g
0110660 . " ) 006 001 \r ( % % C O M P
0110700 O N E N T - S T R I N G ( % %
0110720 P A T H N A M E - D I R E C T O
0110740 R Y ( P A T H N A M E P A T
0110760 H N A M E ) ) ) ) \r \r ( D E C L
0111000 A R E % : D O N T E V A L @ L
0111020 O A D D O C O P Y \r ( % % I
0111040 N I T I A L I Z E - D E F A U L
0111060 T - P A T H N A M E ) \r ) \r ( D
0111100 E C L A R E % : D O N T E V A
0111120 L @ L O A D D O E V A L @ C O
0111140 M P I L E D O N T C O P Y C
0111160 O M P I L E R V A R S \r \r ( A
0111200 D D T O V A R 006 002 N L A M A 006
0111220 001 ) \r \r ( A D D T O V A R 006
0111240 002 N L A M L 006 001 ) \r \r ( A D D
0111260 T O V A R 006 002 L A M A 006 001 C
0111300 L : E N O U G H - N A M E S T R
0111320 I N G C L : H O S T - N A M E
0111340 S T R I N G F I L E - N A M E
0111360 C L : M E R G E - P A T H N A
0111400 M E S P A T H N A M E \r
0111420
0111440 C L : P A T H N A M E - V
0111460 E R S I O N C L : P A T H N A
0111500 M E - T Y P E C L : P A T H N
0111520 A M E - N A M E C L : P A T H
0111540 N A M E - D I R E C T O R Y \r
0111560
0111600 C L : P A T H N A M E
0111620 - D E V I C E C L : P A T H N
0111640 A M E - H O S T C L : M A K E
0111660 - P A T H N A M E % % P R I N
0111700 T - P A T H N A M E ) \r ) \r ( P
0111720 U T P R O P S C M L P A T H N
0111740 A M E C O P Y R I G H T ( "
0111760 X e r o x C o r p o r a t i o
0112000 n " 1 9 8 6 ) ) \r ( D E C L A
0112020 R E % : D O N T C O P Y \r
0112040 ( F I L E M A P ( N I L ( 3
0112060 1 9 1 7 1 8 5 ( % % P R I N
0112100 T - P A T H N A M E 3 2 0 1
0112120 . 3 4 1 4 ) ( C L : M A K E
0112140 - P A T H N A M E 3 4 1 6 .
0112160 5 2 4 9 ) ( C L : P A T H N
0112200 A M E - H O S T \r 5 2 5 1 .
0112220 5 7 3 3 ) ( C L : P A T H N
0112240 A M E - D E V I C E 5 7 3 5
0112260 . 6 0 2 3 ) ( C L : P A T H
0112300 N A M E - D I R E C T O R Y 6
0112320 0 2 5 . 6 3 2 5 ) ( C L :
0112340 P A T H N A M E - N A M E \r 6
0112360 3 2 7 . 6 6 0 7 ) ( C L :
0112400 P A T H N A M E - T Y P E 6 6
0112420 0 9 . 6 8 8 9 ) ( C L : P
0112440 A T H N A M E - V E R S I O N
0112460 6 8 9 1 . 7 1 8 3 ) ) ( 7
0112500 1 8 6 1 3 6 3 7 ( P A T H N
0112520 A M E \r 7 1 9 6 . 7 4 8 3
0112540 ) ( C L : M E R G E - P A T H
0112560 N A M E S 7 4 8 5 . 9 0 3
0112600 1 ) ( F I L E - N A M E 9 0
0112620 3 3 . 9 2 9 3 ) ( C L : H
0112640 O S T - N A M E S T R I N G 9
0112660 2 9 5 . 9 5 8 4 ) \r ( C L
0112700 : E N O U G H - N A M E S T R I
0112720 N G 9 5 8 6 . 1 3 2 2 8 )
0112740 ( % % N U M E R I C - S T R I
0112760 N G - P 1 3 2 3 0 . 1 3 6
0113000 3 5 ) ) ) ) ) \r S T O P \r
0113015