$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>COPYFILES!1
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 " X C
0000040 L " 247 P A C K A G E " I N T
0000060 E R L I S P " ) \r 006 001 ( f i l e
0000100 c r e a t e d " 3 - N o v -
0000120 8 6 2 2 : 5 6 : 5 8 " 006 004 {
0000140 e r i s } < l i s p c o r e > l
0000160 i b r a r y > c o p y f i l e s
0000200 . \ ; 5 0 006 001 2 7 2 7 5 \r
0000220 \r | c h a n g e s |
0000240 | t o : | ( f n s c o p
0000260 i e d t o s p e c ) \r \r
0000300 | p r e v i o u s | | d a
0000320 t e : | " 2 1 - J u n - 8 5
0000340 1 5 : 4 9 : 0 6 " { e r i s }
0000360 < l i s p c o r e > l i b r a r
0000400 y > c o p y f i l e s . \ ; 4 9
0000420 ) \r \r \r ; C o p y r i g h t
0000440 ( c ) 1 9 8 4 , 1 9 8 5 ,
0000460 1 9 8 6 b y X e r o x C o
0000500 r p o r a t i o n . A l l
0000520 r i g h t s r e s e r v e d .
0000540 \r \r ( p r e t t y c o m p r i n
0000560 t c o p y f i l e s c o m s )
0000600 \r \r ( r p a q q 006 002 c o p y f
0000620 i l e s c o m s 006 001 ( ( f n s
0000640 c o p y f i l e s m a p f i
0000660 l e s c o p i e d f i l e n a
0000700 m e c o p i e d f i l e p a t
0000720 t e r n c o p i e d f i l e m
0000740 a t c h \r
0000760
0001000 c o p i e d t o s p e c e s
0001020 p a t t e r n n o h o s t c
0001040 o m p a r e f i l e s ) \r
0001060
0001100 ( v a r s c o p y f i l
0001120 e s e n u m e r a t e ) \r
0001140
0001160 ( i . s . o p r s i n f
0001200 i l e s ) ) ) \r ( d e f i n e q
0001220 \r \r ( 006 004 c o p y f i l e s 006 001
0001240 \r ( l a m b d a ( f r o m
0001260 s p e c t o s p e c o p t i
0001300 o n s ) 006 006 006 001
0001320
0001340 006 006 ( * | l m m | " 6
0001360 - J u n - 8 5 1 4 : 0 8 " ) 006
0001400 001 \r \r
0001420 006 006 ( * | C o p
0001440 i e s | | t h e | | f i l e
0001460 s | | s p e c i f i e d | |
0001500 i n | f r o m s p e c | t o
0001520 | | t h e | | d e s t i n a
0001540 t i o n | \r 006 001
0001560 006 006 | i n | t o s p e c
0001600 . | W h i c h | | v e r s i
0001620 o n s | | g e t | | c o p i
0001640 e d , | | w h e t h e r | |
0001660 t o | | c o p y | | o l d |
0001700 \r 006 001 006 006
0001720 | f i l e s , | | e t c . |
0001740 | i s | | c o n t r o l l e d
0001760 | | b y | o p t i o n s . )
0002000 006 001 \r \r ( l e t ( ( c
0002020 o p y f i l e s o u t p u t t
0002040 ) \r ( c o p
0002060 y f i l e s . w h e n t o s k i
0002100 p ( f u n c t i o n i l e q
0002120 ) ) \r ( c o
0002140 p y f i l e s a l w a y s t )
0002160 \r ( c o p y
0002200 f i l e s v e r s i o n s n i
0002220 l ) \r ( c o
0002240 p y f i l e s r e n a m e n i
0002260 l ) \r ( c o
0002300 p y f i l e s a s k n i l ) \r
0002320 ( c o p y f
0002340 i l e s a s k d e f a u l t ) \r
0002360 ( c o p y f
0002400 i l e s r e p l a c e n i l )
0002420 \r ( c o p y
0002440 f i l e s p u r g e s o u r c e
0002460 n i l ) \r
0002500 ( c o p y f i l e s p u r g e
0002520 n i l ) \r (
0002540 c o p y f i l e s t e r s e ) \r
0002560 ( c o p y f
0002600 i l e s t o s p e c ( 006 002 c o
0002620 p i e d t o s p e c 006 001 t o s
0002640 p e c ) ) ) \r
0002660 ( 006 002 d e c l a r e 006 001 ( s p
0002700 e c v a r s . t ) ) \r
0002720 ( 006 002 | f o r | 006 001
0002740 x 006 002 | i n s i d e | 006 001
0002760 o p t i o n s 006 002 | d o | 006 001
0003000 \r \r
0003020 006 006 ( * | R u n
0003040 | | t h r u | | t h e | |
0003060 o p t i o n s , | | t u r n i
0003100 n g | | t h e m | | i n t o
0003120 | | i n t e r n a l | | f l
0003140 a g | \r 006 001
0003160 006 006 | s e t t i n g s | | a
0003200 n d | | f u n c t i o n a l |
0003220 | s p e c i f i c a t i o n s
0003240 . | ) 006 001 \r \r
0003260
0003300 (
0003320 s e l e c t q x \r
0003340
*
0003400 ( q u i e t \r
0003420 \r
0003440 006 006 ( * | D o n ' t |
0003460 | w a n t | | t o | | h e a
0003500 r | | a b o u t | | f i l e
0003520 s | | a s | | t h e y ' r e
0003540 | | c o p i e d . | \r 006 001
0003560 006 006 | S e t |
0003600 | t h e | | o u t p u t | |
0003620 f i l e | | t o | n i l |
0003640 t o | | s u p p r e s s | |
0003660 p r i n t i n g . | ) 006 001 \r \r
0003700
*
0003760 ( s e t q c o p y f i l e
0004000 s o u t p u t n i l ) ) \r
0004020
*
0004060 ( t e r s e
0004100 \r \r
0004120 006 006 ( * | O n l
0004140 y | | p r i n t | \ a \ .
0004160 | p e r | | f i l e | | c
0004200 o p i e d . | \r 006 001
0004220 006 006 | S e t | | t h e
0004240 | t e r s e | f l a g . | )
0004260 006 001 \r \r
0004300
*
0004340 ( s e t q c o p
0004360 y f i l e s o u t p u t n i l
0004400 ) \r
0004420
*
0004460 ( s e t q c o p y f
0004500 i l e s t e r s e t ) ) \r
0004520
*
0004560 ( ( r e n a
0004600 m e m o v e ) 006 006 ( *
0004620 h \ e | w a n t s | | t h e
0004640 | | f i l e s | | m o v e d
0004660 , | \r 006 001
0004700
*
0004760 006 006 | n o t | | c o p i
0005000 e d . | ) 006 001 \r
0005020
*
0005060 ( s e t q c
0005100 o p y f i l e s r e n a m e t
0005120 ) ) \r
0005140
0005160 (
0005200 a l w a y s
0005220 006 006 ( * a l w a y s | c o p
0005240 y | | t h e | | f i l e s |
0005260 \r 006 001
0005300
*
0005360 006 006 | s p e c i f i e d . | )
0005400 006 001 \r
0005420
*
0005460 ( s e t q c o p
0005500 y f i l e s a l w a y s t ) \r
0005520
*
0005600 006 006 (
0005620 * | T e l l | | i t | | s
0005640 o | ) 006 001 \r
0005660
*
0005720 ( s e t q
0005740 c o p y f i l e s . w h e n t o
0005760 s k i p ( f u n c t i o n n
0006000 i l l ) ) \r
0006020
*
0006100 006 006 ( * | A n d | | s
0006120 a y | | n e v e r | | t o |
0006140 | s k i p | \ a \r 006 001
0006160
*
0006240 006 006 | p o
0006260 t e n t i a l | | f i l e | )
0006300 006 001 \r
0006320
*
0006360 ) \r
0006400
*
0006440 ( > \r
0006460 \r 006 006
0006500 ( * | O n l y | | c o p y |
0006520 | i f | | t h e | | s o u
0006540 r c e | | h a s | \ a | n
0006560 e w e r | | v e r s i o n |
0006600 | t h a n | | t h e | \r 006 001
0006620 006 006 | d e s
0006640 t i n a t i o n . | ) 006 001 \r \r
0006660
*
0006720 ( s
0006740 e t q c o p y f i l e s . w h
0006760 e n t o s k i p ( f u n c t i
0007000 o n i l e q ) ) \r
0007020
*
0007060 ( s e t q c
0007100 o p y f i l e s a l w a y s n
0007120 i l ) ) \r
0007140
*
0007200 ( ( = = a )
0007220 006 006 ( * = | w i t h o u
0007240 t | a l w a y s | d o e s n
0007260 ' t | | m a k e | \r 006 001
0007300
*
0007360 006 006 \ a
0007400 | l o t | | o f | | s e n s
0007420 e | ) 006 001 \r
0007440
*
0007500 ( s e t q c o p
0007520 y f i l e s . w h e n t o s k i
0007540 p ( f u n c t i o n t r u e
0007560 ) ) \r
0007600
*
0007640 ( s e t q c o p y f i
0007660 l e s a l w a y s t ) ) \r
0007700
*
0007740 ( \ #
0007760 006 006 ( *
0010000 | S k i p | | f i l e s | |
0010020 t h a t | | a r e | | t h e
0010040 | \r 006 001
0010060
*
0010140 006 006 | s a m e | | o n |
0010160 | t h e | | d e s t i n a t i
0010200 o n | ) 006 001 \r
0010220
*
0010260 ( s e t q c o p
0010300 y f i l e s . w h e n t o s k i
0010320 p ( f u n c t i o n 006 002 e q
0010340 u a l 006 001 ) ) \r
0010360
*
0010420 ( s e t q c o
0010440 p y f i l e s a l w a y s n i
0010460 l ) ) \r
0010500
*
0010540 ( a l l v e r s i o n s ( s e
0010560 t q c o p y f i l e s v e r s
0010600 i o n s t ) ) \r
0010620
*
0010660 ( \ # a ( s e t q
0010700 c o p y f i l e s . w h e n t o
0010720 s k i p ( f u n c t i o n 006
0010740 002 e q u a l 006 001 ) ) \r
0010760
*
0011020 ( s e t
0011040 q c o p y f i l e s a l w a y
0011060 s t ) ) \r
0011100
*
0011140 ( > a ( s e t q c o p y
0011160 f i l e s . w h e n t o s k i p
0011200 ( f u n c t i o n i l e q )
0011220 ) \r
0011240
*
0011300 ( s e t q c o p y f i l e
0011320 s a l w a y s t ) ) \r
0011340
*
0011400 ( a s k ( s e
0011420 t q c o p y f i l e s a s k
0011440 t ) ) \r
0011460
*
0011520 ( p u r g e ( s e t q c o p
0011540 y f i l e s p u r g e t ) ) \r
0011560
*
0011620 ( p u r
0011640 g e s o u r c e ( s e t q c
0011660 o p y f i l e s p u r g e s o u
0011700 r c e t ) \r
0011720
*
0012000 ( s e t q c o p y f i l e s a
0012020 l w a y s n i l ) ) \r
0012040
*
0012100 ( r e p l a c e
0012120 ( s e t q c o p y f i l e s
0012140 r e p l a c e t ) ) \r
0012160
*
0012220 ( c o n d \r
0012240
*
0012300 ( ( a
0012320 n d ( l i s t p x ) \r
0012340
*
0012420 ( e q ( c a r x ) \r
0012440
*
0012520 ' o u t p u t ) )
0012540 \r
0012560
*
0012620 ( s e t q c o p y f i l e s
0012640 o u t p u t ( o p e n s t r e
0012660 a m ( c a d r x ) \r
0012700
*
0013000 ' o u t p u t
0013020 \r
0013040
*
0013120 ' n
0013140 e w ) ) ) \r
0013160
*
0013220 ( ( a n d ( l i s t
0013240 p x ) \r
0013260
*
0013320 ( e q ( c
0013340 a r x ) \r
0013360
*
0013420 '
0013440 a s k ) ) \r
0013460
*
0013520 ( s e t q c o p y
0013540 f i l e s a s k t ) \r
0013560
*
0013620 ( s e t
0013640 q c o p y f i l e s a s k d e
0013660 f a u l t ( c a d r x ) ) )
0013700 \r
0013720
*
0013760 ( t ( e r r o r x " u n r
0014000 e c o g n i z e d o p t i o n
0014020 " ) ) ) ) ) \r
0014040 ( a n d c o p y f i l e s a s
0014060 k ( n o t c o p y f i l e s
0014100 o u t p u t ) \r
0014120 ( s e t q c o p y
0014140 f i l e s o u t p u t t ) ) \r
0014160 ( 006 002 m a p f
0014200 i l e s 006 001 f r o m s p e c \r
0014220
0014240 ( f u n c t i o n ( l a m b d
0014260 a ( f i l e n a m e c r d a
0014300 t e ) \r
0014320
0014340 ( p r o g ( n e w f i l e n a
0014360 m e n f c f d t 1 d t 2
0014400 h e l p f l a g ) \r
0014420
0014440 ( 006 002
0014460 d e c l a r e 006 001 ( s p e c v
0014500 a r s h e l p f l a g ) ) \r
0014520
*
0014560 ( a n d c o p y f i l e s o
0014600 u t p u t ( | p r i n t o u t
0014620 | c o p y f i l e s o u t p u
0014640 t . t a b 0 0 f i l e n a
0014660 m e ) ) \r
0014700
*
0014760 006 006 ( * | L i s t | | t
0015000 h e | | c a n d i d a t e |
0015020 | f i l e ' s | \r 006 001
0015040
*
0015120 006 006 | n a m e
0015140 | ) 006 001 \r
0015160
0015200 ( o r ( e r s e
0015220 t q ( s e t q n e w f i l e
0015240 n a m e ( 006 002 c o p i e d f i
0015260 l e n a m e 006 001 f i l e n a m
0015300 e f r o m s p e c \r
0015320
*
0015420 c o p y f i l e s t o s p
0015440 e c \r
0015460
*
0015540 c o p y f
0015560 i l e s v e r s i o n s ) ) ) \r
0015600
*
0015640 ( r e t u r n ( a
0015660 n d c o p y f i l e s o u t p
0015700 u t ( | p r i n t o u t | c
0015720 o p y f i l e s o u t p u t \r
0015740
*
0016040 " i l l e
0016060 g a l f i l e n a m e " )
0016100 ) ) ) \r \r
0016120 006 006 ( * | F
0016140 i n d | | o u t | | w h a t
0016160 | | t h e | | f i l e ' s |
0016200 | n a m e | | w o u l d |
0016220 | b e | | a t | | t h e |
0016240 \r 006 001 006 006 |
0016260 d e s t i n a t i o n . | ) 006 001
0016300 \r \r
0016320
0016340 ( s e t q d t 1 ( 006
0016360 002 | i f | 006 001 c r d a t e \r
0016400
*
0016440 006
0016460 002 | t h e n | 006 001 ( i d a t e
0016500 c r d a t e ) \r
0016520
*
0016560 006 002 | e l s e | 006
0016600 001 ( g e t f i l e i n f o f
0016620 i l e n a m e ' i c r e a t i
0016640 o n d a t e ) ) ) \r
0016660
0016700 ( 006 002 |
0016720 i f | 006 001 ( o r ( n o t c
0016740 o p y f i l e s a l w a y s ) \r
0016760
*
0017020 ( n e q
0017040 c o p y f i l e s . w h e n t
0017060 o s k i p ' n i l l ) ) \r
0017100
*
0017140 006 002 | t h e n | 006 001 \r
0017160 \r
0017200 006 006 ( * w \ e | a
0017220 r e n ' t | a l w a y s | c
0017240 o p y i n g . | s \ o | h a
0017260 v e | | t o | | c h e c k |
0017300 | t h i s | | f i l e | |
0017320 t o | \r 006 001
0017340 006 006 | s e e | | i f | | i
0017360 t | | m e e t s | | t h e |
0017400 | c o p y | | c r i t e r i
0017420 a . | ) 006 001 \r \r
0017440
*
0017500 ( c o n d \r
0017520
*
0017560 ( ( s e t q
0017600 n f ( i n f i l e p n e w f
0017620 i l e n a m e ) ) \r
0017640 \r 006
0017660 006 ( * | T h e r e | | i s |
0017700 \ a | f i l e | | o f |
0017720 | t h e | | s a m e | | n a
0017740 m e | | a t | | t h e | |
0017760 d e s t i n a t i o n . | \r 006 001
0020000 006 006 | C H e
0020020 c k | | i t | | o u t . | )
0020040 006 001 \r \r
0020060
*
0020120 ( s e t q d t 2 ( g
0020140 e t f i l e i n f o n f ' i
0020160 c r e a t i o n d a t e ) ) \r
0020200
*
0020260 006 006 ( *
0020300 | T h e | | d e s t i n a t
0020320 i o n | | f i l e ' s | \r 006
0020340 001
0020360
*
0020420 006 006
0020440 | c r e a t e | | d a t e | )
0020460 006 001 \r
0020500
*
0020540 ( a n d c o p y f i l e
0020560 s o u t p u t ( | p r i n t o
0020600 u t | \r
0020620
*
0020700 c o p y f i
0020720 l e s o u t p u t " [ " \r
0020740
*
0021040 ( g d a t e d t 1 )
0021060 \r
0021100
*
0021160 " ] " " v s .
0021200 " n f " [ " \r
0021220
*
0021320 ( 006 002 | i f | 006 001 d t 2 \r
0021340
*
0021440 006 002 | t h e n |
0021460 006 001 ( g d a t e d t 2 ) \r
0021500
*
0021600 006 002 | e l s e | 006
0021620 001 " n o d a t e ? " ) \r
0021640
*
0021740 " ] " ) ) \r
0021760
*
0022040 006 006 ( * | T e l
0022060 l | | t h e | | u s e r |
0022100 | w e ' r e | \r 006 001
0022120
*
0022200 006 006 | c o m p a
0022220 r i n g | | d a t e s | ) 006 001
0022240 \r
0022260
*
0022320 ( c o n d \r
0022340
*
0022400 ( ( a n d
0022420 d t 2 ( a p p l y * c o p y
0022440 f i l e s . w h e n t o s k i p
0022460 d t 1 d t 2 ) ) \r
0022500 \r
0022520 006 006 ( * i \ f | t h e | |
0022540 f i l e | | h a s | \ a |
0022560 c r e a t e | | d a t e , |
0022600 | a n d | | i t | | m e e t
0022620 s | | t h e | s k i p \r 006
0022640 001 006 006 | c r
0022660 i t e r i a , | | t h e n |
0022700 | s k i p | | o v e r | | t
0022720 h i s | | f i l e | ) 006 001 \r \r
0022740
*
0023020 ( a n d c o p y f i l
0023040 e s o u t p u t ( | p r i n t
0023060 o u t | c o p y f i l e s o u
0023100 t p u t \r
0023120
*
0023220 " s k i p p e d .
0023240 " ) ) \r
0023260
*
0023320 ( r e t u r n )
0023340 ) ) ) \r
0023360
*
0023420 ( c o p y f i l e s p u r
0023440 g e s o u r c e \r
0023460
*
0023540 006 006 ( * | W e ' r
0023560 e | | t o | | p u r g e |
0023600 | t h e | | s o u r c e | \r
0023620 006 001
0023640
*
0023700 006
0023720 006 | d i r e c t o r y | | o f
0023740 | | n o n - c o r r e s p o n
0023760 d i n g | \r 006 001
0024000
*
0024060 006 006 | f i l e s | )
0024100 006 001 \r
0024120
*
0024160 ( c o n d \r
0024200
*
0024240 ( ( p r
0024260 o g n ( a n d c o p y f i l
0024300 e s o u t p u t \r
0024320
*
0024400 ( | p r i n t
0024420 o u t | c o p y f i l e s o u
0024440 t p u t \r
0024460
*
0024540 " (
0024560 n o c o r r e s p o n d i n g
0024600 " \r
0024620
*
0024700 n e w f i
0024720 l e n a m e " ) , " ) ) \r
0024740
*
0025020 ( o r ( n
0025040 o t c o p y f i l e s a s k )
0025060 \r
0025100
*
0025160 ( e q ' y ( a s k u s e r
0025200 d w i m w a i t \r
0025220
*
0025320 c o p y f i l e s
0025340 a s k d e f a u l t \r
0025360
*
0025460 " d e l e t e
0025500 ? " n i l t ) ) ) ) \r
0025520
*
0025600 ( ( l a m b d a ( s t r )
0025620 \r
0025640
*
0025700 ( a n d c o p
0025720 y f i l e s o u t p u t ( | p
0025740 r i n t o u t | \r
0025760
*
0026060 c o p
0026100 y f i l e s o u t p u t \r
0026120
*
0026240 s t r ) ) ) \r
0026260
*
0026320 ( 006 002
0026340 | i f | 006 001 ( d e l f i l e
0026360 f i l e n a m e ) \r
0026400
*
0026460 006 002 | t h e n | 006 001 "
0026500 d e l e t e d . " \r
0026520
*
0026600 006 002 | e l s e | 006 001 " c o
0026620 u l d n ' t d e l e t e . " )
0026640 ) ) ) \r
0026660
*
0026720 ( r e t u r n ) ) \r
0026740
*
0027000 ( ( n
0027020 o t c o p y f i l e s a l w a
0027040 y s ) \r
0027060
*
0027140 006 006 ( * | f i l e | | d o
0027160 e s n ' t | | e x i s t | |
0027200 o n | \r 006 001
0027220
*
0027300 006 006 | d e s t i n a t i
0027320 o n | ) 006 001 \r
0027340
*
0027400 ( a n d c o p y
0027420 f i l e s o u t p u t ( | p r
0027440 i n t o u t | c o p y f i l e
0027460 s o u t p u t \r
0027500
*
0027560 " d o e s n o t e x
0027600 i s t o n d e s t i n a t i
0027620 o n - - s k i p p e d " \r
0027640
*
0027740 ) ) \r
0027760
*
0030020 ( r
0030040 e t u r n ) ) ) ) \r
0030060
0030100 ( 006 002 |
0030120 i f | 006 001 ( a n d c o p y f
0030140 i l e s r e p l a c e n f ) \r
0030160
*
0030220 006 002 | t h e n | 006 001
0030240 ( s e t q n e w f i l e n a
0030260 m e n f ) ) \r
0030300
0030320 ( 006 002 | i f
0030340 | 006 001 c o p y f i l e s o u t
0030360 p u t \r
0030400
0030420 006 002 | t h e
0030440 n | 006 001 \r
0030460 \r 006 006 ( *
0030500 | W r i t e | | o u t | | t
0030520 h e | | f i l e ' s | | n e
0030540 w | | n a m e , | | a n d |
0030560 | t e l l | | h i m | | w
0030600 e ' r e | \r 006 001
0030620 006 006 | c o p y i n g | |
0030640 o r | | m o v i n g | | i t
0030660 . | ) 006 001 \r \r
0030700
*
0030740 ( | p r i n t o u t | c
0030760 o p y f i l e s o u t p u t \r
0031000
*
0031060 ( 006 002 | i f | 006 001 c o p y
0031100 f i l e s r e n a m e \r
0031120
*
0031200 006 002 | t h e n | 006 001 "
0031220 r e n a m e " \r
0031240
*
0031300 006 002 |
0031320 e l s e | 006 001 " c o p y " )
0031340 ) \r
0031360
0031400 ( 006
0031420 002 | i f | 006 001 ( n o t n f )
0031440 \r
0031460
*
0031520 006 002 | t h e n | 006 001 ( | p r
0031540 i n t o u t | c o p y f i l e
0031560 s o u t p u t " t o ( n e
0031600 w f i l e ) " \r
0031620
*
0031700 n e w f i l e
0031720 n a m e ) ) ) \r
0031740
0031760 ( c o n d \r
0032000
*
0032040 ( ( a n d c o p y f
0032060 i l e s a s k ( n e q ( a s
0032100 k u s e r d w i m w a i t c
0032120 o p y f i l e s a s k d e f a u
0032140 l t \r
0032160
*
0032240 " ? " n i l
0032260 t ) \r
0032300
*
0032360 ' y ) ) \r
0032400
0032420 ( r e t
0032440 u r n ) ) ) \r
0032460
0032500 ( o r ( e r
0032520 s e t q ( s e t q c f ( c
0032540 o n d \r
0032560
*
0032620 ( c
0032640 o p y f i l e s r e n a m e (
0032660 r e n a m e f i l e f i l e n
0032700 a m e \r
0032720
*
0033020 n e w f i l e n a
0033040 m e ) ) \r
0033060
*
0033120 (
0033140 t ( c o p y f i l e f i l e
0033160 n a m e n e w f i l e n a m e
0033200 ) ) ) ) ) \r
0033220
0033240 ( r e t
0033260 u r n ( a n d c o p y f i l
0033300 e s o u t p u t ( | p r i n t
0033320 o u t | c o p y f i l e s o u
0033340 t p u t \r
0033360
*
0033460 " f a i l e d . " ) ) ) ) \r
0033500
*
0033540 ( 006 002 | i f | 006 001 c o p y f
0033560 i l e s o u t p u t \r
0033600
*
0033640 006 002 | t h e n | 006 001 ( 006 002 |
0033660 i f | 006 001 ( a n d ( n o t
0033700 c o p y f i l e s a s k ) \r
0033720
*
0034000 ( n o t n f ) \r
0034020
*
0034100 ( s t r p o s n
0034120 e w f i l e n a m e c f 1
0034140 n i l 1 n i l ( \r
0034160
*
0034300 u p p e r c a s e a r r a
0034320 y \r
0034340
*
0034440 ) )
0034460 ) \r
0034500
*
0034540 006 002 | t h e n | 006 001 ( |
0034560 p r i n t o u t | c o p y f i
0034600 l e s o u t p u t \r
0034620
*
0034700 ( o r ( s u
0034720 b s t r i n g c f ( a d d 1
0034740 ( n c h a r s \r
0034760
*
0035100 n e w f i l e n a m e \r
0035120
*
0035240 ) )
0035260 ) \r
0035300
*
0035360 " . " ) ) \r
0035400
*
0035440 006 002 | e l s
0035460 e | 006 001 ( | p r i n t o u t |
0035500 c o p y f i l e s o u t p u t
0035520 " = > " c f ) ) ) ) \r
0035540
0035560 ( a n d
0035600 c o p y f i l e s t e r s e (
0035620 p r i n 1 " . " c o p y f i
0035640 l e s t e r s e ) ) ) ) \r
0035660 " * "
0035700 \r
0035720 ( 006 002 | i f | 006 001 c o p y f
0035740 i l e s v e r s i o n s \r
0035760
0036000 006 002 | t h e n | 006 001 " * " \r
0036020
0036040 006 002 | e l s e | 006 001 " " )
0036060 ) \r ( 006 002 | i
0036100 f | 006 001 c o p y f i l e s p u
0036120 r g e \r
0036140 006 002 | t h e n | 006 001
0036160
*
0036220 006 006 ( * | d e l e t
0036240 e | | f r o m | | s o u r c
0036260 e | | i f | \r 006 001
0036300
*
0036360 006 006 | d o e s n
0036400 ' t | | e x i s t | | o n |
0036420 | d e s t i n a t i o n | ) 006
0036440 001 \r
0036460 ( a n d c o p y f i
0036500 l e s o u t p u t ( | p r i n
0036520 t o u t | c o p y f i l e s o
0036540 u t p u t t \r
0036560
*
0036620 " D e l e t i n
0036640 g f i l e s o n d e s t i
0036660 n a t i o n b u t n o t o
0036700 n s o u r c e " t ) ) \r
0036720
0036740 ( 006 002 c o p y f i l e s 006 001
0036760 t o s p e c f r o m s p e c
0037000 ( a p p e n d ( 006 002 | i f | 006
0037020 001 c o p y f i l e s o u t p u
0037040 t \r
0037060
*
0037120 006 002 | t
0037140 h e n | 006 001 ( l i s t ( l i
0037160 s t ' o u t p u t c o p y f
0037200 i l e s o u t p u t ) \r
0037220
*
0037320 ) ) \r
0037340
*
0037400 ( 006 002 | i
0037420 f | 006 001 c o p y f i l e s a s
0037440 k \r
0037460
*
0037520 006 002 | t h
0037540 e n | 006 001 ( l i s t ( l i s
0037560 t ' a s k c o p y f i l e s
0037600 a s k d e f a u l t ) \r
0037620
*
0037720 ) ) \r
0037740
*
0040000 ' ( = p u
0040020 r g e s o u r c e ) ) ) ) \r
0040040 ( c o n d \r
0040060 ( c o p y f i
0040100 l e s o u t p u t ( t a b 0
0040120 0 c o p y f i l e s o u t p
0040140 u t ) \r
0040160 ( n e q c o p y
0040200 f i l e s o u t p u t t ) \r
0040220
0040240 ( c l o s e f c o p y f i
0040260 l e s o u t p u t ) ) ) ) ) ) \r
0040300 \r ( 006 004 m a p f i l e s 006 001 \r
0040320 ( l a m b d a ( f i l e s p
0040340 e c f n d e f a u l t e x t
0040360 d e f a u l t v e r s ) 006 006 006
0040400 001
0040420 006 006 ( * | j d s | " 2 7 - F
0040440 e b - 8 5 1 1 : 4 6 " ) 006 001 \r
0040460 \r
0040500 006 006 ( * | R u n |
0040520 | t h r u | | a l l | | t h
0040540 e | | f i l e s | | t h a t
0040560 | | m a t c h | f i l e s p
0040600 e c \ , | c a l l i n g | f
0040620 n | o n | \r 006 001
0040640 006 006 | e a c h | | s u
0040660 c h | | f i l e | | n a m e
0040700 | ) 006 001 \r \r ( 006 002 | i f
0040720 | 006 001 ( l i s t p f i l e s
0040740 p e c ) \r 006 002 |
0040760 t h e n | 006 001 ( 006 002 | f o r |
0041000 006 001 x 006 002 | i n | 006 001 f i
0041020 l e s p e c 006 002 | d o | 006 001
0041040 ( 006 002 m a p f i l e s 006 001 x
0041060 f n d e f a u l t e x t d e
0041100 f a u l t v e r s ) ) \r
0041120 006 002 | e l s e i f | 006 001 (
0041140 o r ( s t r p o s " * " f
0041160 i l e s p e c ) \r
0041200 ( f m e
0041220 m b ( n t h c h a r c o d e
0041240 f i l e s p e c - 1 ) \r
0041260
0041300 ( c h a r c o d e
0041320 ( > \ ) ] } 006 002 \ : 006
0041340 001 ) ) ) ) \r 006 002
0041360 | t h e n | 006 001 ( p r o g (
0041400 ( f i l e g r o u p ( \ \ g e
0041420 n e r a t e f i l e s ( d i r
0041440 e c t o r y . f i l l . p a t t
0041460 e r n f i l e s p e c d e f
0041500 a u l t e x t \r
0041520
*
0041600 d e f a u l t v e r s ) \r
0041620
*
0041660 ' ( c r e a t i o
0041700 n d a t e ) \r
0041720
0041740 '
0041760 ( s o r t ) ) ) \r
0042000 n
0042020 a m e ) \r
0042040 ( 006 002 | i f
0042060 | 006 001 c o p y f i l e s e n u
0042100 m e r a t e \r
0042120
0042140 006 002 | t h e n | 006 001 ( 006 002 | f
0042160 o r | 006 001 p a i r \r
0042200
0042220 006 002
0042240 | i n | 006 001 ( 006 002 | w h i l e
0042260 | 006 001 ( s e t q n a m e (
0042300 \ \ g e n e r a t e n e x t f i
0042320 l e f i l e g r o u p ) ) \r
0042340
*
0042400 006 002 | c o l
0042420 l e c t | 006 001 ( c o n s ( 006
0042440 002 | i f | 006 001 ( l i s t p n
0042460 a m e ) \r
0042500
*
0042560 006 002 | t h e n | 006 001 (
0042600 c o n c a t c o d e s n a m e
0042620 ) \r
0042640
*
0042700 006
0042720 002 | e l s e | 006 001 n a m e ) \r
0042740
*
0043020 ( \ \ g e
0043040 n e r a t e f i l e i n f o f
0043060 i l e g r o u p ' \r
0043100
*
0043160 c r e
0043200 a t i o n d a t e ) ) ) \r
0043220
*
0043260 006 002 | d o | 006 001 ( a p p l y *
0043300 f n ( c a r p a i r ) \r
0043320
*
0043360 ( c
0043400 d r p a i r ) ) ) \r
0043420
0043440 006 002 | e l s e | 006 001 ( 006 002
0043460 | w h i l e | 006 001 ( s e t q
0043500 n a m e ( \ \ g e n e r a t e
0043520 n e x t f i l e f i l e g r o
0043540 u p ) ) \r
0043560
0043600 006 002 | d o | 006 001 (
0043620 a p p l y * f n ( 006 002 | i f
0043640 | 006 001 ( l i s t p n a m e )
0043660 \r
0043700
*
0043740 006 002 | t h e n | 006 001
0043760 ( c o n c a t c o d e s n a
0044000 m e ) \r
0044020
*
0044060 006 002 | e l s e | 006
0044100 001 n a m e ) \r
0044120
*
0044160 ( \ \ g e n e r a t e
0044200 f i l e i n f o f i l e g r o
0044220 u p ' c r e a t i o n d a t e
0044240 ) ) ) ) ) \r 006 002 | e
0044260 l s e i f | 006 001 ( s e t q f
0044300 i l e s p e c ( i n f i l e p
0044320 f i l e s p e c ) ) \r
0044340 006 002 | t h e n | 006 001 (
0044360 a p p l y * f n f i l e s p
0044400 e c ( g e t f i l e i n f o
0044420 f i l e s p e c ' c r e a t i
0044440 o n d a t e ) ) ) ) ) \r \r ( 006 004
0044460 c o p i e d f i l e n a m e 006 001
0044500 \r ( l a m b d a ( f i l e
0044520 n a m e f r o m s p e c c o
0044540 p i e d s p e c p r e s e r v
0044560 e v e r s i o n ) 006 006 006 001
0044600 006 006 ( * | l m m | " 2 3
0044620 - N o v - 8 4 1 4 : 3 8 " ) 006
0044640 001 \r \r
0044660 006 006 ( * f i l e
0044700 n a m e | i s | | t h e |
0044720 | f i l e | | p r o d u c e d
0044740 | | b y | | t h e | | d i
0044760 r e c t o r y | | e n u m e r
0045000 a t i o n . | \r 006 001
0045020 006 006 f r o m s p e c |
0045040 i s | | t h e | | o r i g i
0045060 n a l | " F R O M " | s p e
0045100 c i f i c a t i o n , | | a n
0045120 d | c o p i e d s p e c | i
0045140 s | \r 006 001
0045160 006 006 | e i t h e r | \ a | d
0045200 i r e c t o r y | | s p e c i
0045220 f i c a t i o n | ( | s t r i
0045240 n g | ) | o r | | e l s e |
0045260 \ a | l i s t , | c d r
0045300 \r 006 001 006 006 |
0045320 o f | | w h i c h | | i s |
0045340 \ a | l i s t | | o f |
0045360 | c h a r a c t e r | | a t o
0045400 m s . | ) 006 001 \r \r ( s e
0045420 t q f i l e n a m e ( c o n
0045440 d \r
0045460 ( ( l i s t p
0045500 c o p i e d s p e c )
0045520 006
0045540 006 ( * n o h o s t | s t r i
0045560 p s | | o f f | | t h e |
0045600 h o s t \r 006 001
0045620
*
0045700 006 006 | o r t i o n | )
0045720 006 001 \r
0045740 ( c o n c a
0045760 t l i s t ( 006 002 c o p i e d f
0046000 i l e p a t t e r n 006 001 ( 006 002
0046020 n o h o s t 006 001 ( 006 002 e s p a
0046040 t t e r n 006 001 f r o m s p e c
0046060 ) ) \r
0046100
0046120 ( c d
0046140 r c o p i e d s p e c ) \r
0046160
*
0046220 ( 006 002 n o h o s
0046240 t 006 001 ( u n p a c k ( c o n
0046260 d \r
0046300
*
0046340 (
0046360 p r e s e r v e v e r s i o n
0046400 f i l e n a m e ) \r
0046420
*
0046500 ( t ( p a c k f
0046520 i l e n a m e . s t r i n g '
0046540 v e r s i o n n i l \r
0046560
*
0046660 ' b o d y f i l e n a m
0046700 e ) ) ) ) ) ) ) ) \r
0046720
0046740 ( t ( p a c k f i l e n a m e
0046760 . s t r i n g ' d i r e c t o
0047000 r y t o s p e c ' h o s t
0047020 n i l ' d e v i c e n i l
0047040 ' d i r e c t o r y n i l \r
0047060
0047100 '
0047120 b o d y \r
0047140
0047160 ( 006 002 | i f | 006 001 p
0047200 r e s e r v e v e r s i o n \r
0047220
*
0047260 006 002 | t h e n | 006 001 f i
0047300 l e n a m e \r
0047320
0047340 006 002 | e l s e
0047360 | 006 001 ( p a c k f i l e n a m
0047400 e ' v e r s i o n n i l '
0047420 b o d y f i l e n a m e ) ) )
0047440 ) ) ) \r ( 006 002 | i f | 006
0047460 001 ( e q ( n t h c h a r c o
0047500 d e f i l e n a m e - 1 ) \r
0047520 ( c
0047540 h a r c o d e \ . ) ) \r
0047560 006 002 | t h e n | 006 001
0047600 \r \r
0047620 006 006 ( * | t h i s
0047640 | | i s | \ a | t e r r i
0047660 b l e | | k l u d g e , | |
0047700 t o | | g e t | | a r o u n
0047720 d | | t h e | | p r o b l e
0047740 m | \r 006 001
0047760 006 006 | t h a t | | f o r | |
0050000 s o m e | | d e v i c e s , |
0050020 ( i n f i l e p " F O O . "
0050040 ) | f a i l s | | w h i l e
0050060 | \r 006 001 006 006
0050100 ( i n f i l e p " F O O " )
0050120 | d o e s n ' t . | | T h i s
0050140 | | s t r i p p i n g | | o
0050160 f f | | o f | \ a | t e r
0050200 m i n a l | " . " \r 006 001
0050220 006 006 | d o e s n
0050240 ' t | | h u r t , | | b u t
0050260 | | d o e s n ' t | | b e l
0050300 o n g | | h e r e . | \r 006 001
0050320 006 006 | N e c e
0050340 s s a r y | | f o r | | g e
0050360 t t i n g | \ a | w o r k i
0050400 n g | | v e r s i o n | | f
0050420 o r | | t h e | | h a r m o
0050440 n y | \r 006 001
0050460 006 006 | r e l e a s e . | ) 006 001
0050500 \r \r
0050520 ( s u b s t r i n g f i l e n
0050540 a m e 1 - 2 f i l e n a m
0050560 e ) \r 006 002 | e l s e
0050600 | 006 001 f i l e n a m e ) ) ) \r
0050620 \r ( 006 004 c o p i e d f i l e p a
0050640 t t e r n 006 001 \r ( l a m b d
0050660 a ( f r p a t t o p a t c
0050700 h a r s ) 006 006 006 001
0050720
0050740 006 006 ( * | l
0050760 m m | " 2 3 - N o v - 8 4 1
0051000 7 : 4 9 " ) 006 001 \r ( p r
0051020 o g n i l \r
0051040 ( 006 002 | w h i l e | 006 001 ( a
0051060 n d f r p a t ( e q ( u -
0051100 c a s e ( c a r f r p a t )
0051120 ) \r
0051140
0051160 ( u - c a s e ( c a r
0051200 c h a r s ) ) ) ) 006 002 | d o
0051220 | 006 001 ( 006 002 | p o p | 006 001 f
0051240 r p a t ) \r
0051260
*
0051340 ( 006 002 | p o p | 006 001 c
0051360 h a r s ) ) \r
0051400 ( r e t u r n ( n c o n c
0051420 ( 006 002 | o n | 006 001 006 002 | o l d
0051440 | 006 001 t o p a t 006 002 | w h i
0051460 l e | 006 001 ( n e q ( c a r
0051500 t o p a t ) \r
0051520
*
0051560 '
0051600 * ) 006 002 | c o l l e c t | 006 001
0051620 ( c a r t o p a t ) ) \r
0051640
0051660 ( c o n d \r
0051700
0051720 ( ( a n d f
0051740 r p a t ( n e q ( c a r f
0051760 r p a t ) \r
0052000
*
0052040 ' * ) ) \r
0052060
0052100 ( 006 002 | i f | 006 001 (
0052120 a n d ( n u l l c h a r s )
0052140 \r
0052160
0052200 ( e q u a l
0052220 f r p a t ' ( \ . 006 002 * 006 001
0052240 ) ) \r
0052260
0052300 ( o r (
0052320 n u l l t o p a t ) \r
0052340
*
0052400 ( e q u a l t
0052420 o p a t ' 006 006 ( * ) 006 001
0052440 ) ) ) \r
0052460
0052500 006 002 | t h e n | 006 001
0052520 n i l \r
0052540
0052560 006 002 | e l s e | 006 001 ( e
0052600 r r o r " F R O M S P E C d
0052620 o e s n ' t m a t c h g e n
0052640 e r a t e d f i l e " ) ) ) \r
0052660
0052700 ( t o p
0052720 a t
0052740 006 006 (
0052760 * | b o t h | t o p a t |
0053000 a n d | f r p a t | s t a r
0053020 t | \r 006 001
0053040
*
0053120 006 006 | w i t h | * ) 006 001
0053140 \r
0053160
0053200 ( n c o n c ( l d i f
0053220 f c h a r s ( s e t q c h
0053240 a r s ( 006 002 | f o r | 006 001 x
0053260 006 002 | o n | 006 001 c h a r s \r
0053300
*
0053400 006 002 | w h e n | 006 001
0053420 ( 006 002 c o p i e d f i l e m a
0053440 t c h 006 001 \r
0053460
*
0053560 x \r
0053600
*
0053700 ( c d r f r p a t ) )
0053720 \r
0053740
*
0054020 006 002 | d o | 006 001
0054040 ( s e t q $ $ v a l x ) ) )
0054060 ) \r
0054100
0054120 ( 006 002 c
0054140 o p i e d f i l e p a t t e r n
0054160 006 001 ( c d r f r p a t ) \r
0054200
*
0054260 ( c d r t o p a t ) \r
0054300
*
0054340 c h a
0054360 r s ) ) ) \r
0054400
0054420 ( t ( o r ( 006 002 c o p i
0054440 e d f i l e m a t c h 006 001 c h
0054460 a r s f r p a t ) \r
0054500
0054520 ( e
0054540 r r o r " f i l e p a t t e
0054560 r n d o e s n ' t m a t c h
0054600 " ) ) \r
0054620
0054640 n i l ) ) ) ) ) ) ) \r \r (
0054660 006 004 c o p i e d f i l e m a t c
0054700 h 006 001 \r ( l a m b d a ( c
0054720 h a r s f r p a t ) 006 006 006 001
0054740
*
0055000 006 006 ( * | l m m |
0055020 " 3 0 - O c t - 8 4 1 3 : 3 3
0055040 " ) 006 001 \r ( p r o g n
0055060 i l \r l p ( 006 002
0055100 | i f | 006 001 ( n u l l f r p
0055120 a t ) \r
0055140 006 002 | t h e n | 006 001 ( r e
0055160 t u r n ( n u l l c h a r s
0055200 ) ) \r 006
0055220 002 | e l s e i f | 006 001 ( e q
0055240 ( c a r f r p a t ) \r
0055260
0055300 ' * ) \r
0055320 006 002 | t h e n | 006
0055340 001 ( r e t u r n ( o r ( n
0055360 u l l ( c d r f r p a t ) )
0055400 \r
0055420
0055440 ( 006 002 | f i n d | 006 001 x
0055460 006 002 | o n | 006 001 c h a r s 006
0055500 002 | s u c h t h a t | 006 001 ( 006
0055520 002 c o p i e d f i l e m a t c h
0055540 006 001 x ( c d r f r p a t )
0055560 ) ) ) ) \r
0055600 006 002 | e l s e i f | 006 001 ( e
0055620 q ( u - c a s e ( 006 002 p o p
0055640 006 001 f r p a t ) ) \r
0055660
0055700 ( u - c a s e ( 006 002 p
0055720 o p 006 001 c h a r s ) ) ) \r
0055740 006 002 | t
0055760 h e n | 006 001 ( g o l p ) \r
0056000 006 002 | e l
0056020 s e | 006 001 ( r e t u r n ) ) )
0056040 ) ) \r \r ( 006 004 c o p i e d t o s
0056060 p e c 006 001 \r ( l a m b d a
0056100 ( s p e c ) 006 006 006 001
0056120
*
0056160 006 006 ( * | l m m
0056200 | " 3 - N o v - 8 6 1 9 :
0056220 0 6 " ) 006 001 \r ( 006 002 | i
0056240 f | 006 001 ( s t r p o s " * "
0056260 s p e c ) \r 006
0056300 002 | t h e n | 006 001 ( c o n s
0056320 ' p a t t e r n ( 006 002 e s p a
0056340 t t e r n 006 001 s p e c ) ) \r
0056360 006 002 | e l s e | 006 001
0056400 ( o r ( d i r e c t o r y n a
0056420 m e s p e c n i l t ) \r
0056440
0056460 ( e r r o r s p e c " n o t
0056500 a v a l i d d i r e c t o
0056520 r y " ) ) ) ) ) \r \r ( 006 004 e s p
0056540 a t t e r n 006 001 \r ( l a m b
0056560 d a ( x ) 006 006 006 001
0056600
*
0056640 006 006 ( * |
0056660 l m m | " 2 3 - N o v - 8 4
0056700 1 0 : 5 3 " ) 006 001 \r ( 006
0056720 002 | f o r | 006 001 y 006 002 | o n
0056740 | 006 001 ( u n p a c k x ) 006
0056760 002 | c o l l e c t | 006 001 ( 006 002
0057000 | i f | 006 001 ( e q ( c a r
0057020 y ) \r
0057040
*
0057100 ' * ) \r
0057120
*
0057160 006 002 | t h e n | 006 001 ( 006
0057200 002 | i f | 006 001 ( a n d ( e q
0057220 ( c a d r y ) \r
0057240
*
0057320 ' \ . ) \r
0057340
*
0057420 ( e q
0057440 ( c a d d r y ) \r
0057460
*
0057540 ' * ) \r
0057560
*
0057640 ( f m
0057660 e m b ( c a d d d r y ) \r
0057700
*
0060000 ' ( n i l \ ; ) ) ) \r
0060020
*
0060100 006 002 | t h e n | 006 001
0060120 ( r p l a c d y ( c d d d r
0060140 y ) ) ) \r
0060160
*
0060220 ' * \r
0060240
*
0060300 006 002 | e l s e | 006 001 ( c
0060320 a r y ) ) ) ) ) \r \r ( 006 004 n o
0060340 h o s t 006 001 \r ( l a m b d a
0060360 ( u p ) \r ( s e l e c
0060400 t q ( c a r u p ) \r
0060420 ( ( { \ ( [ ) \r
0060440 ( 006 002 |
0060460 d o | 006 001 ( 006 002 | p o p | 006 001
0060500 u p ) \r
0060520 ( s e l e c t q
0060540 ( c a r u p ) \r
0060560
0060600 ( n i l ( r e t u r n ) ) \r
0060620
0060640 ( ( } \ ) ] )
0060660 \r
0060700 ( r
0060720 e t u r n ( 006 002 | p o p | 006 001
0060740 u p ) ) ) \r
0060760 ( \
0061000 ' ( 006 002 | p o p | 006 001 u p )
0061020 ) \r
0061040 n i l ) ) ) \r
0061060 n i l ) \r
0061100 u p ) ) \r \r ( 006 004 c o m p a r
0061120 e f i l e s 006 001 \r ( l a m b
0061140 d a ( o l d f i l e n e w f
0061160 i l e ) 006 006 006 001
0061200
0061220 006 006 ( * |
0061240 l m m | " 7 - S e p - 8 4
0061260 1 1 : 5 7 " ) 006 001 \r
0061300 \r 006
0061320 006 ( * | C o m p a r e | | t
0061340 w o | | f i l e s | | t o |
0061360 | s e e | | i f | | t h e
0061400 i r | | c o n t e n t s | |
0061420 a r e | | t h e | \r 006 001
0061440 006 006 | s a m e .
0061460 | ) 006 001 \r \r ( p r o g
0061500 ( ( o s t r e a m ( o p e n s
0061520 t r e a m o l d f i l e ' i
0061540 n p u t ' o l d ' ( s e q u
0061560 e n t i a l t ) ) ) \r
0061600 ( n s t r e a m
0061620 ( o p e n s t r e a m n e w f
0061640 i l e ' i n p u t ' o l d
0061660 ' ( s e q u e n t i a l t ) )
0061700 ) \r o l e
0061720 n n l e n ) \r
0061740 ( s e t q o l e n ( g e
0061760 t f i l e i n f o o s t r e a
0062000 m ' l e n g t h ) ) \r
0062020 ( s e t q n l e n
0062040 ( g e t f i l e i n f o n s
0062060 t r e a m ' l e n g t h ) ) \r
0062100 ( c o n d \r
0062120 ( ( n
0062140 o t ( e q p o l e n n l e
0062160 n ) ) \r \r
0062200 006 006 ( * i \
0062220 f | t h e y | | f i l e s |
0062240 | a r e | | o f | | d i f
0062260 f e r e n t | | l e n g t h s
0062300 , | | t h e y | | a r e n '
0062320 t | | t h e | \r 006 001
0062340 006 006 | s a m e . | )
0062360 006 001 \r \r
0062400 ( e r r o r " F i l e l
0062420 e n g t h s d i f f e r :
0062440 " ( c o n c a t o l e n "
0062460 v s " n l e n ) ) ) ) \r
0062500 ( c o n d \r
0062520 ( o l e
0062540 n \r \r
0062560 006 006 ( * f t p
0062600 | r e t u r n s | n i l |
0062620 f o r | | t h e | | l e n g
0062640 t h | | o f | | a n | | e
0062660 m p t y | | f i l e ! | ) 006 001
0062700 \r \r
0062720 ( 006 002 | f o r | 006 001
0062740 b y t e p o s 006 002 | f r o m |
0062760 006 001 0 006 002 | t o | 006 001 ( s
0063000 u b 1 o l e n ) 006 002 | d o |
0063020 006 001 ( c o n d \r
0063040
*
0063120 ( ( n
0063140 e q ( b i n o s t r e a m )
0063160 \r
0063200
*
0063260 ( b i n
0063300 n s t r e a m ) ) \r
0063320
*
0063400 (
0063420 e r r o r " F i l e s d i f
0063440 f e r a t b y t e " \r
0063460
*
0063560 b y t e p
0063600 o s ) ) ) ) ) ) \r
0063620 ( c l o s e f ? o s t r
0063640 e a m ) \r (
0063660 c l o s e f ? n s t r e a m )
0063700 ) \r t ) ) \r ) \r \r ( r p
0063720 a q q 006 002 c o p y f i l e s e
0063740 n u m e r a t e 006 001 t ) \r ( d
0063760 e c l a r e \ : e v a l @ c o
0064000 m p i l e \r ( i . s . o p r
0064020 ' i n f i l e s n i l ' ( s
0064040 u b s t ( g e n s y m ) \r
0064060
0064100 ' g e n
0064120 v a r \r
0064140
0064160 ' ( b i n d g e n v a r
0064200 _ ( \ \ g e n e r a t e f i l
0064220 e s b o d y n i l ' ( s o
0064240 r t ) ) \r
0064260
0064300 e a c h t i
0064320 m e \r
0064340
0064360 ( p r o g n (
0064400 o r ( s e t q i . v . ( \
0064420 \ g e n e r a t e n e x t f i l
0064440 e g e n v a r ) ) \r
0064460
*
0064520 ( g o $
0064540 $ o u t ) ) \r
0064560
*
0064620 ( i f ( l i s t p i .
0064640 v . ) \r
0064660
*
0064720 t h e n \r
0064740
*
0065000 ( s e t q i
0065020 . v . ( c o n c a t c o d e s
0065040 i . v . ) ) ) ) ) ) t ) \r )
0065060 \r ( p u t p r o p s c o p y f
0065100 i l e s c o p y r i g h t (
0065120 " X e r o x C o r p o r a t i
0065140 o n " 1 9 8 4 1 9 8 5 1 9
0065160 8 6 ) ) \r ( d e c l a r e \ :
0065200 d o n t c o p y \r ( f i l e
0065220 m a p ( n i l ( 6 4 8 2 6
0065240 5 7 1 ( c o p y f i l e s 6
0065260 5 8 . 1 6 5 7 5 ) ( m a p
0065300 f i l e s 1 6 5 7 7 . 1 8
0065320 7 3 1 ) ( c o p i e d f i l e
0065340 n a m e 1 8 7 3 3 . \r 2 0
0065360 8 7 9 ) ( c o p i e d f i l e
0065400 p a t t e r n 2 0 8 8 1 .
0065420 2 2 9 5 7 ) ( c o p i e d f i
0065440 l e m a t c h 2 2 9 5 9 .
0065460 2 3 5 8 6 ) ( c o p i e d t o
0065500 s p e c 2 3 5 8 8 . 2 3 8
0065520 9 6 ) \r ( e s p a t t e r n
0065540 2 3 8 9 8 . 2 4 7 9 3 ) (
0065560 n o h o s t 2 4 7 9 5 . 2
0065600 5 1 5 7 ) ( c o m p a r e f i
0065620 l e s 2 5 1 5 9 . 2 6 5 6
0065640 9 ) ) ) ) ) \r s t o p \r
0065654