5 lines
3.5 KiB
Plaintext
5 lines
3.5 KiB
Plaintext
XEROX CHECKSET
|
||
2
|
||
|
||
4
|
||
|
||
1
|
||
|
||
CHECKSET
|
||
1
|
||
|
||
4
|
||
|
||
By: >>Your Name<< (>>Your net address<<)
|
||
>>Other packages necessary to run this one<<
|
||
This document last edited on >>DATE<<
|
||
This package checks source files against compiled files in a directory and prompts you about whether you want to (RE)COMPILE the files that need it. It compares the FILECREATED expressions, and determines whether a BRECOMPILE with CHANGES will suffice or if it is necessary to BCOMPL the file.
|
||
(CHECKSET FILES COMPFLG) [Function]
|
||
FILES is a list of files. If FILES is NIL, CHECKSET is driven by the variable FILESETS.
|
||
COMPFLG can be:
|
||
N don't compile, just return list. List can be passed to COMPFILES.
|
||
Y or NIL compile
|
||
ASK ask, for each file, whether to compile it.
|
||
FILESETS [Variable]
|
||
Used by (CHECKSET NIL): FILESETS is a list of variables, each of which has a value that is a list of files. (CHECKSET NIL) peforms (for X in FILESETS join (CHECKSET (EVALV X))). For example,
|
||
if FILESETS = (0LISPSET 1LISPSET) and 0LISPSET = (ATERM LLREAD BREAK), 1LISPSET = (WINDOW EDIT) then (CHECKSET) will check if each of those files in turn need recompiling.
|
||
(COMPFILES LST) [Function]
|
||
takes a list of elements of the form (RECOMPILE FILE) (COMPILE FILE) as returned by CHECKSET with COMPFLG=N and performs the corresponding operation.
|
||
(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 127) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) 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)) (270 12 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE RECTOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 618) NIL))) (PAGE NIL (PAPERSIZE NIL FOLIOINFO (ARABIC) STARTINGPAGE# NIL) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM) FORMATINFO (ARABIC)) (270 12 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE RECTOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 618) NIL))) (PAGE NIL (PAPERSIZE NIL FOLIOINFO (ARABIC) STARTINGPAGE# NIL) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM) FORMATINFO (ARABIC)) (270 12 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE RECTOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 618) NIL))))) . <01> <01> ( <01> ( <00> <00>8 ( <00> <00>8 D <01> <01> PAGEHEADING RUNNINGHEAD ( <01> MODERN MODERN LOGO MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN HRULE.GETFN MODERN * - & ' $ X E 0 <00> <00> <00> 5z<35> |