(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "26-Mar-2022 11:43:49" ("compiled on " {DSK}kaplan>Local>medley3.5>my-medley>library>COPYFILES.;3) "25-Mar-2022 23:17:33" brecompiled exprs%: MAPFILES in "FULL 25-Mar-2022 ..." dated "25-Mar-2022 23:17:39") (FILECREATED "26-Mar-2022 11:43:49" {DSK}kaplan>Local>medley3.5>my-medley>library>COPYFILES.;3 23773 :CHANGES-TO (FNS MAPFILES) :PREVIOUS-DATE " 6-Apr-2018 21:14:29" {DSK}kaplan>Local>medley3.5>my-medley>library>COPYFILES.;1) COPYFILESA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 SOURCE F 3 FULLDST F 4 COPYFILESFROMSPEC F 5 SECONDARYSPEC F 6 DST F 7 SI::NLSETQ-VALUE) :i@RTU c cRg Sg hcg(45 GETFILEINFO 34 GETFILEINFO 19 INFILEP 12 COPIEDFILENAME) (55 :NORMAL 40 ICREATIONDATE 29 ICREATIONDATE) () COPYFILESA0001 :D8 (P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 1 FULLDST P 0 DST I 1 DEST I 0 SOURCE F 5 COPYFILESOUTPUT F 6 *PROCEED-CASES*) Y `VK gJ.oU IU oU U o@H (86 COPYFILE 73 TERPRI 66 PRIN1 54 PRIN1 46 PRIN1 21 COPYFILESA0001A0002) (27 :NORMAL 10 SI::NLSETQ-PROCEED-CASE) ( 78 "!" 60 "]" 40 "[backed up on ") COPYFILESA0003 :D8 (P 1 BK P 0 BACKUP I 0 SOURCE F 2 COPYFILESOUTPUT F 3 COPYFILESFROMSPEC F 4 SECONDARYSPEC) X@ST H YhoR IR oR I oR hoR (83 PRIN1 70 PRIN1 58 DELFILE 51 PRIN1 39 PRIN1 31 PRIN1 16 INFILEP 7 COPIEDFILENAME) NIL ( 77 "ok]" 64 "couldn't!]" 45 "..." 25 " [deleting ") COPYFILESA0004A0005 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FILENAME F 3 COPYFILESFROMSPEC F 4 COPYFILESTOSPEC F 5 SI::NLSETQ-VALUE F 6 COPYFILESVERSIONS F 7 NEWFILENAME) i@RSTV chc g(13 COPIEDFILENAME) (24 :NORMAL) () COPYFILESA0004A0006 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FILENAME F 3 NEWFILENAME F 4 SI::NLSETQ-VALUE F 5 COPYFILESFN F 6 CF) i@RSlUc hcgNIL (21 :NORMAL) () COPYFILESA0004 :D8 (P 8 STR P 7 SI::*NLSETQFLAG* P 6 *PROCEED-CASES* P 5 SI::NLSETQ-VALUE P 4 HELPFLAG P 3 DT2 P 2 CF P 1 NF P 0 NEWFILENAME I 1 DT1 I 0 FILENAME F 9 COPYFILESOUTPUT F 10 COPYFILESASK F 11 DONTCOPY F 12 *PROCEED-CASES* F 13 COPYFILESALWAYS F 14 COPYFILES.WHENTOSKIP F 15 COPYFILESTERSE F 16 COPYFILESASKDEFAULT F 17 COPYFILESSKIPFN F 18 COPYFILESREPLACE F 19 COPYFILESPURGESOURCE F 20 COPYFILESFN)  PWF@g Wgg (W@W oW W vWjdW @W `WN gMW:o*WWg " 679 "." 626 " failed." 569 "? " 536 " to (new file) " 520 " process" 514 " rename" 497 " copy" 468 " does not exist on destination -- skipped" 427 " couldn't delete." 412 " skipped." 375 "]" 362 "no date?" 346 "[" 324 " vs. " 311 "]" 284 " [" 261 " deleted." 228 "delete? " 204 "), " 182 " (no corresponding " 140 " illegal file name " 56 " ignored.") COPYFILES :D8 (P 18 X P 16 COPYFILESFROMSPEC P 15 DONTCOPY P 14 SECONDARYSPEC P 13 COPYFILESTERSE P 12 COPYFILESPURGE P 11 COPYFILESPURGESOURCE P 10 COPYFILESREPLACE P 9 COPYFILESASKDEFAULT P 8 COPYFILESASK P 7 COPYFILESVERSIONS P 6 *UPPER-CASE-FILE-NAMES* P 5 COPYFILESSKIPFN P 4 COPYFILESFN P 3 COPYFILESTOSPEC P 2 COPYFILESALWAYS P 1 COPYFILES.WHENTOSKIP P 0 COPYFILESOUTPUT I 2 OPTIONS I 1 TOSPEC I 0 FROMSPEC)  A b@ bigiA ggBO"8OHiKO@ _ @gooO od_$h_$O"_"O$gO$dghgO$dghi_g O$gO$gO$dggVgO$dgig9ggh'O$gO$dggigO$dgghgi_O$gO$dggiggiO$gO$dgi_gO$dgi_xgO$dgi_h]gO$dgi_DdgO$gg !dgi_O$_ dgO$_dgO$gO$ _ggO$o oh@ dgdgdgdgih OTHH oH H A@H gHhhOgOhho HjdH H (797 CLOSEF 791 TAB 779 COPYFILES 774 \APPEND2 769 \APPEND2 726 TERPRI 719 PRIN1 707 TERPRI 694 MAPFILES 648 \GETDEVICEFROMNAME 632 ERROR 602 COPIEDTOSPEC 523 OPENSTREAM 70 COPIEDFROMSPEC 28 COPIEDTOSPEC 13 \ADD.CONNECTED.DIR 5 \ADD.CONNECTED.DIR) (752 ASK 737 OUTPUT 681 \TCPFTP.GENERATEFILES 673 \NSFILING.GENERATEFILES 665 \LEAF.GENERATEFILES 656 \FTP.GENERATEFILES 616 COPYFILESA0003 610 COPYFILESA0001 590 SECONDARY 574 COPYFN 556 DONTCOPY 533 ASK 518 NEW 513 OUTPUT 500 OUTPUT 482 :REPLACE 472 REPLACE 455 :PURGESOURCE 445 PURGESOURCE 430 :PURGE 420 PURGE 405 :ASK 395 ASK 382 ILEQ 375 >A 364 EQUAL 356 /=A 346 %#A 330 ALLVERSIONS 319 EQUAL 311 /= 301 %# 290 TRUE 282 =A 272 = 259 ILEQ 252 > 243 NILL 233 :ALWAYS 223 ALWAYS 214 RENAMEFILE 206 :MOVE 196 :RENAME 186 MOVE 176 RENAME 160 :TERSE 150 TERSE 138 :QUIET 128 QUIET 79 COPYFILESA0004 38 NILL 33 COPYFILE 21 ILEQ) ( 764 (= PURGESOURCE) 713 "Deleting files on destination but not on source" 641 "" 627 "unrecognized option" 100 "*" 89 "*" 84 (ICREATIONDATE)) MAPFILESA0001 :D8 (L (0 -args-) F 9 SI::$WITH-COLLECTION-TAIL$ F 10 SI::$WITH-COLLECTION-RESULT$) P eka!Hl2MLNIJW)WK&c'Ma_OOh_Mk]O&_KhccKNIL NIL () MAPFILES :D8 (P 10 ATTR P 5 CNT P 4 FN P 3 PAIR P 2 SI::$WITH-COLLECTION-TAIL$ P 1 SI::$WITH-COLLECTION-RESULT$ P 0 X I 6 ENUMERATE-FIRST I 5 INCLUDE-DIRECTORIES I 4 DEFAULTVERS I 3 DEFAULTEXT I 2 ATTRIBUTES I 1 FN I 0 FILESPEC) < @Po@ L@m dl/dl>dl)dl]dl}dl:idHACDBEF hha@CD bFJ @BEg I0dAkKKdnMk]hl4 MLh@BEA g@gCgD  baAk@BA NOJN_hN_N@O _O Oh__O&_dnMk]hl4 ML(307 \LISPERROR 260 GETFILEINFO 214 INFILEP 209 PACKFILENAME.STRING 184 MAPFILES1 161 \LISPERROR 119 MAPFILES1 98 DIRECTORY.FILL.PATTERN 79 MAPFILES 24 NTHCHARCODE 14 STRPOS) (202 VERSION 196 EXTENSION 190 BODY 114 MAPFILESA0001) ( 8 "*") MAPFILES1A0001 :D8 (NAME SI::*UNWIND-PROTECT* P 9 ATTR P 5 CNT P 4 FN P 3 A0109 P 2 LEN P 1 NAME P 0 FILEGROUP I 0 SI::*CLEANUP-FORMS* F 10 ATTRIBUTES F 11 FN F 12 FILESPEC F 13 INCLUDE-DIRECTORIES) WWddhco !H YhlI ZIogJl WIJ dl/dl>ihWWIHW lKWkI@ W d_HO ONh_N&_OdnMk]hl4 MLM(197 \LISPERROR 151 \GENERATEFILEINFO 117 \GENERATEFILEINFO 80 NTHCHARCODE 67 STRING-EQUAL 43 NCHARS 31 \GENERATENEXTFILE 22 \GENERATEFILES) (58 :START1) ( 53 ".;1" 17 (SORT RESETLST)) MAPFILES1 :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 FN I 2 INCLUDE-DIRECTORIES I 1 ATTRIBUTES I 0 FILESPEC F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 MAPFILES1A0001) (8 SI::RESETUNWIND) () COPIEDFILENAME :D8 (P 0 FROMCHARS I 3 PRESERVEVERSION I 2 COPIEDTOSPEC I 1 COPIEDFROMSPEC I 0 FILENAME) B5@ CHkgH hABH  =ggBghghghChog@h bdm l.@km@ @(137 SUBSTRING 123 NTHCHARCODE 113 CL:APPLY 107 CL:APPEND 52 CONCATLIST 46 COPIEDFILEPATTERN 34 NLEFT 14 NOHOST 9 UNPACK) (98 BODY 82 DIRECTORY 76 DEVICE 70 HOST 64 DIRECTORY 59 PACKFILENAME.STRING 27 ;) ( 93 (VERSION NIL)) COPIEDFILEPATTERN :D8 (P 3 X I 2 CHARS I 1 TOPAT I 0 FRPAT) @!B@ B @bBb0AAdgnH@,ABd!I[{Jb @AB gBH@dgdgb@o&AdQoFIJhYAbyJ&o %@ KKwB@ o h (232 \NCONC2 225 ERROR 214 COPIEDFILEMATCH 199 COPIEDFILEMATCH 190 ERROR 95 \NCONC2 90 COPIEDFILEPATTERN 80 LDIFF 19 U-CASE 12 U-CASE) (128 * 118 %. 104 * 47 *) ( 220 "file pattern doesn't match" 185 "--From Spec doesn't match generated file" 153 (*) 141 (; *)) COPIEDFILEMATCH :D8 (P 2 X P 0 SEMI* I 1 FRPAT I 0 CHARS) doA@hg*AbhAH @IZhA JiJ@AHAAb @@b 氧(93 U-CASE 81 U-CASE 53 COPIEDFILEMATCH) (20 *) ( 4 (; *)) COPIEDFROMSPEC :D8 (P 4 CAN P 3 DIREND P 1 I I 0 FROMSPEC) @ bjo@ @ kHI&@IZo:Jo:Jo:IImԹhK@jKk \-@ bg@&dggh @Kk @(156 CONCAT 151 CL:SUBSEQ 141 \NCONC2 111 NOHOST 106 ESPATTERN 96 DIRECTORYNAME 91 CL:SUBSEQ 27 NCHARS 19 CL:POSITION 5 MKSTRING) (133 * 128 ; 118 ;) ( 62 #\} 54 #\> 46 #\/ 13 #\*) COPIEDTOSPEC :D8 (I 0 SPEC) =o@ g@ @g @hi @o (58 ERROR 45 DIRECTORYNAME 35 UNPACKFILENAME.STRING 22 ESPATTERN 10 STRPOS) (30 NAME 16 PATTERN) ( 53 "not a valid directory" 4 "*") ESPATTERN :D8 (I 0 X) T@ bdEdHg5Hg*HgHddgihHd@(5 UNPACK) (60 ; 44 * 32 %. 21 *) () NOHOST :D8 (L (0 UP)) M@dgdgdg@b@dgdgdg@g@NIL (68 %' 57 %] 49 %) 41 } 23 %[ 15 %( 7 {) () COMPAREFILESA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* P 6 BYTEPOS P 4 NBYTE P 3 OBYTE P 2 NBYTES P 1 NLEN P 0 OLEN I 0 SI::*CLEANUP-FORMS* F 7 OSTART F 8 OSTREAM F 9 NSTREAM F 10 OEND F 11 A0112) PWg Wg W"WWjc;WW WWٺjc&jcHZI oHoI H}JkWNMoW [W \^oi Ni oi Ki oi Li oi i hdo Nk^W W  hc$(248 \MVLIST 242 CLOSEF? 234 CLOSEF? 219 ASKUSER 206 TERPRI 199 PRIN1 187 PRIN1 179 PRIN1 167 PRIN1 159 PRIN1 147 PRIN1 139 PRIN1 100 ERROR 95 CONCAT 76 EQP 52 SETFILEPTR 27 GETFILEINFO 14 GETFILEINFO) (22 LENGTH 9 LENGTH) ( 214 "Continue comparing?" 193 "." 173 " but new file has " 153 ", old-file has " 133 "Files differ at byte " 89 " vs " 83 "File lengths differ: ") COMPAREFILESA0001A0003 :D8 (F 0 NSTREAM F 1 A0112) PgQ (11 CL:CLOSE) (5 :ABORT) () COMPAREFILESA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 A0112 P 0 NSTREAM I 0 SI::*CLEANUP-FORMS* F 2 NEWFILE F 3 A0111) GRggo ig HgI $ hc$(61 \MVLIST 51 CL:CLOSE 39 \MVLIST 34 COMPAREFILESA0001A0002 20 OPENSTREAM) (45 :ABORT 29 COMPAREFILESA0001A0003 10 OLD 5 INPUT) ( 15 (SEQUENTIAL T)) COMPAREFILESA0004 :D8 (F 0 OSTREAM F 1 A0111) PgQ (11 CL:CLOSE) (5 :ABORT) () COMPAREFILES :D8 (P 1 A0111 P 0 OSTREAM I 3 OEND I 2 OSTART I 1 NEWFILE I 0 OLDFILE) ;@ggo ig HgI $i(51 CL:CLOSE 39 \MVLIST 34 COMPAREFILESA0001 20 OPENSTREAM) (45 :ABORT 29 COMPAREFILESA0004 10 OLD 5 INPUT) ( 15 (SEQUENTIAL T)) CONCATFILESA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 IN F 1 OUT F 2 A0114) PQ hc$(11 \MVLIST 6 COPYBYTES) NIL () CONCATFILESA0001A0003 :D8 (F 0 IN F 1 A0114) PgQ (11 CL:CLOSE) (5 :ABORT) () CONCATFILESA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 A0114 P 1 IN P 0 FILE I 0 SI::*CLEANUP-FORMS* F 3 INPUT-FILES F 4 A0113) USBdHggo ig IgJ $h hc$(75 \MVLIST 59 CL:CLOSE 47 \MVLIST 42 CONCATFILESA0001A0002 28 OPENSTREAM) (53 :ABORT 37 CONCATFILESA0001A0003 18 OLD 13 INPUT) ( 23 (SEQUENTIAL T)) CONCATFILESA0004 :D8 (F 0 OUT F 1 A0113) PgQ (11 CL:CLOSE) (5 :ABORT) () CONCATFILES :D8 (P 1 A0113 P 0 OUT I 1 OUTPUT-FILE I 0 INPUT-FILES) :Aggo ig HgI $(51 CL:CLOSE 39 \MVLIST 34 CONCATFILESA0001 20 OPENSTREAM) (45 :ABORT 29 CONCATFILESA0004 10 NEW 5 OUTPUT) ( 15 (SEQUENTIAL T)) SPLITFILEA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 2 INSTR F 3 START F 4 OUTSTR F 5 A0116 F 6 SPLIT-SIZE) *RTSR SVHdII hc $(32 \MVLIST 27 COPYBYTES 8 GETEOFPTR) NIL () SPLITFILEA0001A0005 :D8 (F 0 OUTSTR F 1 A0116) PgQ (11 CL:CLOSE) (5 :ABORT) () SPLITFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 A0116 P 2 OUTSTR P 1 START P 0 I I 0 SI::*CLEANUP-FORMS* F 4 FILE F 5 INSTR F 6 A0115 F 7 SPLIT-SIZE) kjIU h hc $ghgTg H gT gg ig JgK $HkԸIWY(115 CL:CLOSE 103 \MVLIST 98 SPLITFILEA0001A0002 84 OPENSTREAM 69 PACKFILENAME 57 CONCAT 51 UNPACKFILENAME.STRING 21 \MVLIST 11 GETEOFPTR) (109 :ABORT 93 SPLITFILEA0001A0005 79 NEW 74 OUTPUT 62 BODY 46 NAME 40 NAME 34 VERSION) () SPLITFILEA0006 :D8 (F 0 INSTR F 1 A0115) PgQ (11 CL:CLOSE) (5 :ABORT) () SPLITFILE :D8 (P 1 A0115 P 0 INSTR I 1 SPLIT-SIZE I 0 FILE) 5@gg ig HgI $(46 CL:CLOSE 34 \MVLIST 29 SPLITFILEA0001 15 OPENSTREAM) (40 :ABORT 24 SPLITFILEA0006 10 OLD 5 INPUT) () DOSLINKER :D8 (P 0 FILE I 2 STREAM I 1 OLDDIR I 0 FILES) @doB AB HB oB Hg l B oB Hg l B B h(126 TERPRI 119 PRIN1 113 L-CASE 108 SHORTEN 101 UNPACKFILENAME.STRING 89 PRIN1 77 PRIN1 71 L-CASE 66 SHORTEN 59 UNPACKFILENAME.STRING 47 PRIN1 35 PRIN1 27 PRIN1 19 PRIN1) (96 EXTENSION 54 NAME) ( 83 "." 41 " " 13 "ln -s ") SHORTEN :D8 (I 1 LEN I 0 STRING) @kA@ HdII (24 SUBSTRING 8 NCHARS) NIL () (PRETTYCOMPRINT COPYFILESCOMS) (RPAQQ COPYFILESCOMS ((FNS COPYFILES MAPFILES MAPFILES1 COPIEDFILENAME COPIEDFILEPATTERN COPIEDFILEMATCH COPIEDFROMSPEC COPIEDTOSPEC ESPATTERN NOHOST COMPAREFILES) (COMS (* ;; "For concatenating a list of files into one file.") (FNS CONCATFILES)) (COMS (* ;; "For splitting a big file into several files.") (FNS SPLITFILE)) (COMS (* ;; "For making DOS file systems") (FNS DOSLINKER SHORTEN)) (I.S.OPRS INFILES))) (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 ("Venue & Xerox Corporation" 1989 1990 1991 1993 2018)) NIL