(DEFINE-FILE-INFO §READTABLE "XCL" §PACKAGE "INTERLISP") (filecreated " 3-Nov-86 22:59:49" ("compiled on " {eris}library>copyfiles.\;50) "31-Oct-86 17:14:43" |tcompl'd| |in| "Xerox Lisp 31-Oct-86 ..." |dated| "31-Oct-86 17:48:39") (filecreated " 3-Nov-86 22:56:58" {eris}library>copyfiles.\;50 27275 |changes| |to:| (fns copiedtospec) |previous| |date:| "21-Jun-85 15:49:06" {eris}library>copyfiles.\;49) copyfilesa0001a0002 d1 (name errorset f 0 filename f 1 fromspec f 2 newfilename f 3 copyfilestospec f 4 copyfilesversions) PQST ci(6 copiedfilename) nil () copyfilesa0001a0003 d1 (name errorset f 0 filename f 1 newfilename f 2 copyfilesrename f 3 cf) R•PQ „PQ ci(12 copyfile 6 renamefile) nil () copyfilesa0001 d1 (p 6 str p 5 helpflag p 4 dt2 p 3 dt1 p 2 cf p 1 nf p 0 newfilename i 1 crdate i 0 filename f 7 copyfilesoutput f 8 copyfilesask f 9 copyfilesalways f 10 copyfiles.whentoskip f 11 dwimwait f 12 copyfilesaskdefault f 13 copyfilesterse f 14 copyfilesreplace f 15 copyfilespurgesource f 16 copyfilesrename) ë `WžjdW ¿@W ¿oi ¬W¢±ºo±­Aµ‚±ç@g »W™Wgð’±ýH YµPW¢±àW²oW ¿HW ¿oW ¿W²WWohi gð¢±Q@ ¢±Šo±‡g ¼W²RoW ¿K W ¿oW ¿oW ¿IW ¿oW ¿Lµ0oW ¿oW ¿L²IKLlW²?W¢±Ôo±Ç °Ó ±ÿ oW–NW ¿±­W¬W¢±¤o±—W’IµW²+W —o†¸°óoW ¿I³oW ¿HW ¿W²WWohi gð²Qoi ©W²Do°8W²:W³%I³"HJkhkh ²JH kØ µoŠoW ¿JW ¿W´ oW (488 prin1 473 prin1 466 prin1 450 substring 445 nchars 438 strpos 434 uppercasearray 403 copyfilesa0001a0003 389 askuser 370 prin1 363 prin1 350 prin1 299 prin1 280 idate 275 gdate 245 prin1 235 prin1 222 prin1 212 prin1 205 prin1 195 prin1 185 prin1 180 gdate 175 prin1 161 getfileinfo 144 delfile 132 askuser 113 prin1 103 prin1 96 prin1 74 infilep 56 getfileinfo 28 copyfilesa0001a0002 19 prin1 12 tab) (392 y 158 icreationdate 135 y 65 nill 53 icreationdate) ( 483 "." 461 " => " 456 "." 412 " failed." 399 (copyfilesa0001a0003) 383 "? " 358 " to (new file) " 345 " copy" 337 " rename" 317 " does not exist on destination -- skipped" 287 " couldn't delete." 269 " skipped." 240 "]" 230 "no date?" 217 "[" 200 " vs. " 190 "]" 170 " [" 152 " deleted." 126 "delete? " 108 "), " 91 " (no corresponding " 39 " illegal file name " 24 (copyfilesa0001a0002)) copyfiles d1 (p 13 x p 11 copyfilesterse p 10 copyfilespurge p 9 copyfilespurgesource p 8 copyfilesreplace p 7 copyfilesaskdefault p 6 copyfilesask p 5 copyfilesrename p 4 copyfilesversions p 3 copyfilestospec p 2 copyfilesalways p 1 copyfiles.whentoskip p 0 copyfilesoutput i 2 options i 1 tospec i 0 fromspec) ½igiA „ B OµN“H¡i¸@goL¢±:o±7¦O_¿hˆO_¿O_¿Odgð”¿h¸°Ágð—h¸i_¿°´Ogð¨Odgð”¿i½° gð—iºg¹°“Odgð˜¿g¹hº°‚gð¨Odgð™¿g¹iº±ÿlgð˜g¹hº±ÿ^Odgð•¿i¼±ÿPgð˜g¹iº±ÿBOdgð™¿g¹iº±ÿ0gð”i¾±ÿ&Odgð—¿i_¿±ÿgð˜i_¿hº±ÿOdgð—¿i_¿±þø²Odgð²gg ¸±þÜO²Odgðž¿i¾O_¿±þÁOo ¿±þ´o O²AH²H ¿oH ¿H ¿A@H´ gHhhN´ gOhho ¿H´jdH HiðhðH (442 closef 433 tab 423 copyfiles 420 \\append2 417 \\append2 382 terpri 377 prin1 368 terpri 357 mapfiles 346 error 306 openstream 8 copiedtospec) (403 ask 391 output 322 ask 303 new 300 output 292 output 272 replace 255 purgesource 242 purge 229 ask 220 ileq 214 >a 202 equal 197 \#a 186 allversions 174 equal 169 \# 160 true 154 =a 146 = 138 ileq 132 > 123 nill 116 always 106 move 98 rename 83 terse 73 quiet 30 copyfilesa0001 3 ileq) ( 414 (= purgesource) 373 "Deleting files on destination but not on source" 354 "" 343 "unrecognized option" 43 "*" 34 "*") mapfiles d1 (p 6 pair p 2 name p 1 filegroup p 0 x i 3 defaultvers i 2 defaultext i 1 fn i 0 filespec f 7 copyfilesenumerate) Ù@µ?o@ ³>@mÿ dl>ð³dl)ð¯dl]ðªdl}ð¥dl:ð²¿i°dHABC µñh¿h²{@BC oo W²Z0I ZµK°2”J €JIg ½Lµ Mh\»°ÜM&¼°×dNNlAµï°”J €JIg lA¿I Zµæh@ bd›dg lA(209 getfileinfo 198 infilep 189 \\generatenextfile 179 \\generatefileinfo 170 concatcodes 126 \\generatefileinfo 117 concatcodes 104 \\generatenextfile 90 \\generatefiles 79 directory.fill.pattern 62 mapfiles 19 nthcharcode 11 strpos) (206 creationdate 176 creationdate 123 creationdate) ( 87 (sort) 83 (creationdate) 7 "*") copiedfilename d1 (i 3 preserveversion i 2 copiedspec i 1 fromspec i 0 filename f 0 tospec) hB²(A BC‘@Šghg@ °(gPghghghgC‘@Šghg@ bdmÿ l.ð˜@kmþ@ @(99 substring 87 nthcharcode 79 packfilename.string 75 packfilename 39 concatlist 36 copiedfilepattern 33 nohost 30 unpack 27 packfilename.string 10 nohost 7 espattern) (71 body 67 version 60 body 56 directory 52 device 48 host 44 directory 23 body 19 version) () copiedfilepattern d1 (p 3 x i 2 chars i 1 topat i 0 frpat) °@µY0A™Adgð²b¿H@µ%A¢±‚Bd!I[µkJb @AB °rgð³ØB³D@oô²