6a758f1aa9
this will give us a stable point on which we can make changes in coordination via git. NO MORE USING A SHARED DROPBOX Last major commit wihout a PR against a Medley issue.
9 lines
4.1 KiB
Plaintext
9 lines
4.1 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).
|
||
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) [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's 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.
|
||
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))))) 2 @ È 2 È È , È , Š Š8 , Š Š8 H È È 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 ( I µ V o š
|
||
Ð d A ' = N ™ î Czº |