The COPYFILES Package Stored on: {Phylum}Library>CopyFiles.Tedit, .Press Last Modified: 12 June 84 By: Sybalsky This is a package of extensions to the COPYFILE function, to make it easy to copy groups of files and to copy files only when the source is newer than the target. There are four functions: (COPYFILE? FROM TO) Copies the file FROM to the file TO, only if FROM's creation date is later than TO's. Returns T if the copy was done, NIL if it wasn't. (COPYFILES FILES FROMLIB TOLIB VERBOSE?) Copies each file in FILES from FROMLIB to TOLIB. This is done by PACKing FROMLIB and TOLIB onto each filename, so you can use this for arbitrary host/directory/sub-directory changes. If VERBOSE? is non-NIL, it is a stream on which the function will print a message for each file it copies. (COPYFILES? FILES FROMLIB TOLIB VERBOSE?) Copies each file in FILES from FROMLIB to TOLIB; however, a file is copied only if (1) it doesn't exist on TOLIB, or (2) the creation date on FROMLIB is newer than on TOLIB. Again, this is done by PACKing FROMLIB and TOLIB onto each filename, so you can use this for arbitrary host/directory/sub-directory changes. If VERBOSE? is non-NIL, it is a stream on which the function will print a message for each file it copies. (COMPAREFILES OLDFILE NEWFILE) Coimpares the files OLDFILE and NEWFILE to see if they are identical; if they aren't the same, COMPAREFILES will break. Examples: (COPYFILE? '{PHYLUM}COPYFILE.DCOM '{PHYLUM}LIBRARY>COPYFILE.DCOM) Would be a reasonable way to install this package. (COPYFILES? '(COPYFILES COPYFILES.DCOM) '{PHYLUM} '{PHLYUM}LIBRARY> PROMPTWINDOW) Would be better yet, and would mark its progress with messages in the prompt window.Ô HELVETICAÔ g HELVETICAÔ$¾GACHA ÔGACHA ¼‰GACHA Ô)GACHA ¼$GACHA Ô*GACHA ¼¨GACHA ÔGACHA ¼xGACHA Ô$ HELVETICA Ô,GACHA Ô5GACHA ¼3GACHA Ô(GACHA Ô GACHA Ô6GACHA ¼TGACHA þ&z¸