10 lines
4.3 KiB
Plaintext
10 lines
4.3 KiB
Plaintext
XEROX COMPAREDIRECTORIES
|
||
2
|
||
|
||
4
|
||
|
||
1
|
||
|
||
COMPAREDIRECTORIES
|
||
1
|
||
|
||
4
|
||
|
||
By: Larry Masinter (Masinter.pa@Xerox)
|
||
This document edited on
|
||
December 2, 1987
|
||
December 28, 1998 (Ron Kaplan
|
||
April 7, 2018 (Ron Kaplan)
|
||
INTRODUCTION
|
||
COMPAREDIRECTORIES compares the contents of two directories, checking to see if all of the files in both match in respect to name and creation date. It is called using the function
|
||
MODULE DESCRIPTION
|
||
(COMPAREDIRECTORIES FROMDIR TODIR SHOW=FILESTOO USELISPFILEDATE FILEPATTERN LISTINGFILE EXTENSIONSTOAVOID ALLVERSIONS) [Function]
|
||
This says that for each file in FROMDIR, see if a file with the same name and creation date exists on TODIR.
|
||
If it doesn't exist, or exists with a different date, COMPAREDIRECTORIES will print a message. If the file is the same, no message will be printed (unless SHOW=FILESTOO is non-NIL).
|
||
If USELISPFILEDATE is non-NIL, then comparison is based on the date returned by FILEDATE, if any, instead of the file's creation date. FILEDATE returns the FILECREATED date of Lisp source and compiled files.
|
||
FILEPATTERN and EXTENSIONSTOAVOID can be used to restrict the files that enter into the comparison. If EXTENSIONSTOAVOID is or contains *, then files with any extension will be ignored. If ALLVERSIONS, then all versions will be compared, otherwise only the newest.
|
||
LISTINGFILE can be a filename or stream to print the results on.
|
||
The messages are generally of the form
|
||
SOURCEFILE(AUTHOR) [DATE] comparison [DATE] TOFILE(AUTHOR)
|
||
For example
|
||
ACE.;1(Sannella) [2-May-85 18:03:54] << [30-Sep-85 11:14:48] ACE.;3(Sybalsky)
|
||
Where "<" means "older than", ">" means "newer than" and "==" means the same date. "**" indicates that the file is missing from one of the directories.
|
||
|
||
(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))) 4 @ È 4 È È . È . Š Š8 . Š Š8 J È È PAGEHEADING RUNNINGHEAD . MODERN
|
||
MODERN
|
||
TERMINAL
|
||
MODERN MODERN
|
||
MODERN LOGO MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN HRULE.GETFN MODERN ( µ b o ›
|
||
Ð
|
||
A ' = N ™ ¿ Izº |