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