XEROX LOADPATCHES 2 4 1 LoadPatches 1 4 By: Stan Lanning (lanning.pa@xerox.com) DESCRIPTION The LoadPatches package contains the following function, useful for automatically loading the latest set of "patch" files from a directory. (LoadPatches directory ldflg afterDate) [Function] loads the latest version of each file found on directory. If a .DCOM file can be found, it will be loaded, otherwise a source file (a file with no extension) will be loaded. Files are loaded with LDFLG set to ldflg (except if ldflg=(QUOTE HIDDEN); see below). Files are loaded in order of creation date, so patches that depend on older patches will be loaded properly. If afterDate is given, it should be a string sutible for passing on to IDATE. In that case, only files created after afterDate will be loaded. If ldflg=(QUOTE HIDDEN), then the files will be loaded with LDFLG set to T, and the files will be removed from FILELST. This hides the files from the users, but does not smash the filecoms and property lists the way that LDFLG=(QUOTE SYSLOAD) does. For example, lets say that patch files for your current system are kept in directory PatchDirectory (actually the value of PatchDirectory). You can automatically load the most recent patches by adding the two forms (FILES (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) LoadPatches) (P (LoadPatches PatchDirectory (QUOTE SYSLOAD) MAKESYSDATE)) to your INIT.LISP filecoms. Note that files created before the current system was made will not be loaded. (LIST ((PAGE NIL (FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))((È1È È1È ¼È(ŠŠ8(È (ŠŠ8DÈÈ PAGEHEADING RUNNINGHEADMODERN TERMINAL MODERN MODERN MODERN MODERNMODERN LOGO  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN ) Œ úØ@=lå1zº