(DEFINE-FILE-INFO §READTABLE "XCL" §PACKAGE "INTERLISP") (FILECREATED "27-Nov-86 15:21:56" ("compiled on " {ERIS}LIBRARY>COPYFILES.\;50) "25-Nov-86 00:46:57" |bcompl'd| |in| "Xerox Lisp 25-Nov-86 ..." |dated| "25-Nov-86 01:18:01") (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 :D4 (P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 PROCEED-CASE0753 F 5 *PROCEED-CASES* F 6 FILENAME F 7 NEWFILENAME F 8 FROMSPEC F 9 COPYFILESTOSPEC F 10 COPYFILESVERSIONS) Ji@ggggTgjgg gg UVWWW ch (69 \\MVLIST 61 COPIEDFILENAME 43 MAKE-PROCEED-CASE 39 CL:SYMBOL-FUNCTION 30 CL:SYMBOL-FUNCTION) (36 SI::ERRORSET-PRINT-FUNCTION 33 :REPORT 27 TRUE 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) () COPYFILESA0001A0003 :D4 (P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 FILENAME F 5 NEWFILENAME F 6 PROCEED-CASE0760 F 7 *PROCEED-CASES* F 8 COPYFILESRENAME F 9 CF) Oi@ggggVgjgg gg WW•TU „TU ch (74 \\MVLIST 66 COPYFILE 60 RENAMEFILE 43 MAKE-PROCEED-CASE 39 CL:SYMBOL-FUNCTION 30 CL:SYMBOL-FUNCTION) (36 SI::ERRORSET-PRINT-FUNCTION 33 :REPORT 27 TRUE 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) () COPYFILESA0001 :D4 (P 16 PROCEED-CASE0758 P 15 A0762 P 14 PROCEED-CASE0759 P 13 A0761 P 12 PROCEED-CASE0760 P 11 STR P 10 PROCEED-CASE0751 P 9 A0755 P 8 PROCEED-CASE0752 P 7 A0754 P 6 PROCEED-CASE0753 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 17 COPYFILESOUTPUT F 18 COPYFILESASK F 19 COPYFILESALWAYS F 20 COPYFILES.WHENTOSKIP F 21 DWIMWAIT F 22 COPYFILESASKDEFAULT F 23 COPYFILESTERSE F 24 COPYFILESREPLACE F 25 COPYFILESPURGESOURCE F 26 COPYFILESRENAME) @ `W"´jdW" ¿@W" ¿hhN 1 O_¿O__¿Odgð–¿O „j:´h¬W"¢±åo±ØAµ‚±ç@g »W&™W(gð’±þH YµPW2¢±áW"²oW" ¿HW" ¿oW" ¿W$²W*W,ohi gð¢±|@ ¢±Šo±‡g ¼W"²RoW" ¿K W" ¿oW" ¿oW" ¿IW" ¿oW" ¿Lµ0oW" ¿oW" ¿L²JKLlW(²@W"¢±ÿo±ò °Ó ±ÿ o W"—OW" ¿±×W&¬W"¢±Îo±ÁW0’IµW"²+W4—o†¸°óoW" ¿I³oW" ¿HW" ¿W$´W*W,ohi gð²{hh O 1O_ ¿O__¿O dgð–¿O „j:´h©W"²Do°8W"²:W$³%I³"HJkhkh ²JH kØ µoŠoW" ¿JW" ¿W.´ oW. (573 PRIN1 558 PRIN1 551 PRIN1 535 SUBSTRING 530 NCHARS 523 STRPOS 519 UPPERCASEARRAY 481 CL:VALUES-LIST 449 COPYFILESA0001A0003 432 ASKUSER 413 PRIN1 406 PRIN1 393 PRIN1 342 PRIN1 322 IDATE 317 GDATE 287 PRIN1 277 PRIN1 264 PRIN1 254 PRIN1 247 PRIN1 237 PRIN1 227 PRIN1 222 GDATE 217 PRIN1 203 GETFILEINFO 186 DELFILE 174 ASKUSER 155 PRIN1 145 PRIN1 138 PRIN1 116 INFILEP 98 GETFILEINFO 63 CL:VALUES-LIST 31 COPYFILESA0001A0002 20 PRIN1 13 TAB) (473 :NORMAL 435 Y 200 ICREATIONDATE 177 Y 107 NILL 95 ICREATIONDATE 55 :NORMAL) ( 568 "." 546 " => " 541 "." 497 " failed." 426 "? " 401 " to (new file) " 388 " copy" 380 " rename" 360 " does not exist on destination -- skipped" 329 " couldn't delete." 311 " skipped." 282 "]" 272 "no date?" 259 "[" 242 " vs. " 232 "]" 212 " [" 194 " deleted." 168 "delete? " 150 "), " 133 " (no corresponding " 81 " illegal file name ") COPYFILES :D4 (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 :D4 (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 :D4 (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 :D4 (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ô²