(FILECREATED "21-Jun-85 15:50:18" ("compiled on " {ERIS}LIBRARY>COPYFILES.;49) "16-Jun-85 14:20:10" recompiled changes: nothing in "INTERLISP-D 16-Jun-85 ..." dated "16-Jun-85 14:32:13") (FILECREATED "21-Jun-85 15:49:06" {ERIS}LIBRARY>COPYFILES.;49 17430 changes to: (I.S.OPRS INFILES) (VARS COPYFILESCOMS) previous date: " 6-Jun-85 14:09:14" {ERIS}LIBRARY>COPYFILES.;48) 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) RPQ PQ ci(14Q 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 10Q COPYFILESASK F 11Q COPYFILESALWAYS F 12Q COPYFILES.WHENTOSKIP F 13Q DWIMWAIT F 14Q COPYFILESASKDEFAULT F 15Q COPYFILESTERSE F 16Q COPYFILESREPLACE F 17Q COPYFILESPURGESOURCE F 20Q COPYFILESRENAME)  `WjdW @W oi WoA@g WWgH YPWWoW HW oW WWWohi gQ@ og WRoW K W oW oW IW oW L0oW oW LIKLlW?Wo oWNW WWoWIW+W ooW IoW HW WWWohi gQoi WDo8W:W%I"HJkhkh JH k ooW JW W oW (750Q PRIN1 731Q PRIN1 722Q PRIN1 702Q SUBSTRING 675Q NCHARS 666Q STRPOS 662Q UPPERCASEARRAY 623Q COPYFILESA0001A0003 605Q ASKUSER 562Q PRIN1 553Q PRIN1 536Q PRIN1 453Q PRIN1 430Q IDATE 423Q GDATE 365Q PRIN1 353Q PRIN1 336Q PRIN1 324Q PRIN1 315Q PRIN1 303Q PRIN1 271Q PRIN1 264Q GDATE 257Q PRIN1 241Q GETFILEINFO 220Q DELFILE 204Q ASKUSER 161Q PRIN1 147Q PRIN1 140Q PRIN1 112Q INFILEP 70Q GETFILEINFO 34Q COPYFILESA0001A0002 23Q PRIN1 14Q TAB) (610Q Y 236Q ICREATIONDATE 207Q Y 101Q NILL 65Q ICREATIONDATE) ( 743Q "." 715Q " => " 710Q "." 634Q " failed." 617Q (COPYFILESA0001A0003) 577Q "? " 546Q " to (new file) " 531Q " copy" 521Q " rename" 475Q " does not exist on destination -- skipped" 437Q " couldn't delete." 415Q " skipped." 360Q "]" 346Q "no date?" 331Q "[" 310Q " vs. " 276Q "]" 252Q " [" 230Q " deleted." 176Q "delete? " 154Q "), " 133Q " (no corresponding " 47Q " illegal file name " 30Q (COPYFILESA0001A0002)) COPYFILES D1 (P 15Q X P 13Q COPYFILESTERSE P 12Q COPYFILESPURGE P 11Q COPYFILESPURGESOURCE P 10Q 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 ONHi@goL:o7O_hO_O_Odghghi_OgOdgigigOdgghgOdggilggh^OdgiPggiBOdggi0gi&Odgi_gi_hOdgi_Odggg OOdgiO_Oo o OAHH oH H A@H gHhhN gOhho HjdH HihH (672Q CLOSEF 661Q TAB 647Q COPYFILES 644Q \APPEND2 641Q \APPEND2 576Q TERPRI 571Q PRIN1 560Q TERPRI 545Q MAPFILES 532Q ERROR 462Q OPENSTREAM 10Q COPIEDTOSPEC) (623Q ASK 607Q OUTPUT 502Q ASK 457Q NEW 454Q OUTPUT 444Q OUTPUT 420Q REPLACE 377Q PURGESOURCE 362Q PURGE 345Q ASK 334Q ILEQ 326Q >A 312Q EQUAL 305Q %#A 272Q ALLVERSIONS 256Q EQUAL 251Q %# 240Q TRUE 232Q =A 222Q = 212Q ILEQ 204Q > 173Q NILL 164Q ALWAYS 152Q MOVE 142Q RENAME 123Q TERSE 111Q QUIET 36Q COPYFILESA0001 3 ILEQ) ( 636Q (= PURGESOURCE) 565Q "Deleting files on destination but not on source" 542Q "" 527Q "unrecognized option" 53Q "*" 42Q "*") 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:idHABC hh{@BC oo WZ0I ZK2J JIg L Mh\M&dNNlAJ JIg lAI Zh@ bddg lA(317Q GETFILEINFO 304Q INFILEP 273Q \GENERATENEXTFILE 261Q \GENERATEFILEINFO 250Q CONCATCODES 174Q \GENERATEFILEINFO 163Q CONCATCODES 146Q \GENERATENEXTFILE 130Q \GENERATEFILES 115Q DIRECTORY.FILL.PATTERN 74Q MAPFILES 13Q STRPOS) (314Q CREATIONDATE 256Q CREATIONDATE 171Q CREATIONDATE) ( 125Q (SORT) 121Q (CREATIONDATE) 7 "*") COPIEDFILENAME D1 (I 3 PRESERVEVERSION I 2 COPIEDSPEC I 1 FROMSPEC I 0 FILENAME F 0 TOSPEC) fB(A BC@ghg@ (gPghghghgC@ghg@ bdm)l.@km@ @(141Q SUBSTRING 117Q PACKFILENAME.STRING 113Q PACKFILENAME 47Q CONCATLIST 44Q COPIEDFILEPATTERN 41Q NOHOST 36Q UNPACK 33Q PACKFILENAME.STRING 12Q NOHOST 7 ESPATTERN) (107Q BODY 103Q VERSION 74Q BODY 70Q DIRECTORY 64Q DEVICE 60Q HOST 54Q DIRECTORY 27Q BODY 23Q VERSION) () COPIEDFILEPATTERN D1 (P 3 X I 2 CHARS I 1 TOPAT I 0 FRPAT) @]0AAdgfH@%ABd!I[oJb @AB vgBH@o >Ad^o 1R B @bBbI JhYAbJ&o @ KKB@ o h (261Q \NCONC2 254Q ERROR 244Q COPIEDFILEMATCH 230Q COPIEDFILEMATCH 221Q ERROR 146Q U-CASE 141Q U-CASE 131Q EQUAL 114Q EQUAL 70Q \NCONC2 65Q COPIEDFILEPATTERN 55Q LDIFF) (76Q * 16Q *) ( 251Q "file pattern doesn't match" 216Q "FROMSPEC doesn't match generated file" 126Q (*) 111Q (%. *)) COPIEDFILEMATCH D1 (P 1 X I 1 FRPAT I 0 CHARS) HA@hg"Ah@HYhA IiIAAb @@b ð(101Q U-CASE 67Q U-CASE 43Q COPIEDFILEMATCH) (12Q *) () COPIEDTOSPEC D1 (I 0 SPEC) "o@ g@ @ @o (37Q ERROR 25Q DIRECTORYNAME 17Q ESPATTERN 7 STRPOS) (13Q PATTERN) ( 34Q "not a valid directory" 3 "*") ESPATTERN D1 (I 0 X) W@@ Jd[dg2g&KgKddgihKdgIHhZH&J(6 UNPACK) (101Q * 57Q ; 41Q * 27Q %. 17Q *) () NOHOST D1 (L (0 UP)) ?@dgdgdg@b@dgdgdg@g@NIL (66Q ' 55Q %] 47Q %) 41Q } 21Q %[ 13Q %( 5 {) () COMPAREFILES D1 (P 5 BYTEPOS P 3 NLEN P 2 OLEN P 1 NSTREAM P 0 OSTREAM I 1 NEWFILE I 0 OLDFILE) y@ggo Aggo "Hg Ig JK oJoK J H I ikjMLH I oM Mk](155Q ERROR 122Q CLOSEF? 115Q CLOSEF? 105Q ERROR 102Q CONCAT 63Q EQP 55Q GETFILEINFO 45Q GETFILEINFO 33Q OPENSTREAM 15Q OPENSTREAM) (52Q LENGTH 42Q LENGTH 24Q OLD 21Q INPUT 6 OLD 3 INPUT) ( 151Q "Files differ at byte " 76Q " vs " 71Q "File lengths differ: " 30Q (SEQUENTIAL T) 12Q (SEQUENTIAL T)) (PRETTYCOMPRINT COPYFILESCOMS) (RPAQQ COPYFILESCOMS ((FNS COPYFILES MAPFILES COPIEDFILENAME COPIEDFILEPATTERN COPIEDFILEMATCH COPIEDTOSPEC ESPATTERN NOHOST COMPAREFILES) (VARS COPYFILESENUMERATE) (I.S.OPRS INFILES))) (RPAQQ COPYFILESENUMERATE T) (I.S.OPR (QUOTE INFILES) NIL (QUOTE (SUBST (GENSYM) (QUOTE GENVAR) (QUOTE (BIND GENVAR _ ( \GENERATEFILES BODY NIL (QUOTE (SORT))) EACHTIME (PROGN (OR (SETQ I.V. (\GENERATENEXTFILE GENVAR)) (GO $$OUT)) (IF (LISTP I.V.) THEN (SETQ I.V. (CONCATCODES I.V.)))))))) T) (PUTPROPS COPYFILES COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL