From 016097e8bfb2a6fe81ca7caa5a23c6163f150ef0 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Mon, 3 Oct 2022 12:01:16 -0700 Subject: [PATCH] COMPAREDIRECTORIES: upper-case-file-names Plus typo fixes in the TEDIT file. Note that the MATCHNAME has always been uppercase, and that the directory matching has been filtered using the FILEDIRCASEARRAY --- lispusers/COMPAREDIRECTORIES | 56 +++++++++++++++-------------- lispusers/COMPAREDIRECTORIES.LCOM | Bin 40797 -> 40812 bytes lispusers/COMPAREDIRECTORIES.TEDIT | 37 +++++++++---------- 3 files changed, 48 insertions(+), 45 deletions(-) diff --git a/lispusers/COMPAREDIRECTORIES b/lispusers/COMPAREDIRECTORIES index dcdebeb6..3ab7bd04 100644 --- a/lispusers/COMPAREDIRECTORIES +++ b/lispusers/COMPAREDIRECTORIES @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "14-Aug-2022 12:13:45"  -{DSK}kaplan>local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;250 128556 +(FILECREATED " 3-Oct-2022 11:56:59"  +{DSK}kaplan>local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;251 128694 - :CHANGES-TO (FNS CDBROWSER.STRINGS) + :CHANGES-TO (FNS CDFILES) - :PREVIOUS-DATE "11-Aug-2022 21:10:25" -{DSK}kaplan>local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;249) + :PREVIOUS-DATE "14-Aug-2022 12:13:45" +{DSK}kaplan>local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;250) (* ; " @@ -388,7 +388,8 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp (DEFINEQ (CDFILES - [LAMBDA (DIR INCLUDEDFILES EXCLUDEDFILES ALLVERSIONS DEPTH)(* ; "Edited 25-Apr-2022 08:42 by rmk") + [LAMBDA (DIR INCLUDEDFILES EXCLUDEDFILES ALLVERSIONS DEPTH)(* ; "Edited 3-Oct-2022 11:55 by rmk") + (* ; "Edited 25-Apr-2022 08:42 by rmk") (* ; "Edited 5-Mar-2022 15:05 by rmk") (* ; "Edited 16-Oct-2020 13:42 by rmk:") @@ -416,6 +417,7 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp (SETQ EXCLUDEDFILES (LDIFFERENCE EXCLUDEDFILES INCLUDEDFILES)) (LET ([INCLUDES (CDFILES.PATS (OR INCLUDEDFILES '*.*] (EXCLUDES (AND EXCLUDEDFILES (CDFILES.PATS EXCLUDEDFILES))) + (*UPPER-CASE-FILE-NAMES NIL) HOST ENUMPAT) (SETQ HOST (FILENAMEFIELD.STRING DIR 'HOST)) (SETQ DIR (FILENAMEFIELD.STRING DIR 'DIRECTORY)) @@ -2155,25 +2157,25 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp (PUTPROPS COMPAREDIRECTORIES COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1994 1998 2018 2020 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2634 22191 (COMPAREDIRECTORIES 2644 . 7477) (COMPAREDIRECTORIES.INFOS 7479 . 10353) ( -COMPAREDIRECTORIES.CANDIDATES 10355 . 13740) (CDENTRIES.SELECT 13742 . 18517) ( -COMPAREDIRECTORIES.INFOS.TYPE 18519 . 19425) (MATCHNAME 19427 . 20107) (CD.INSURECDVALUE 20109 . 21723 -) (CD.UPDATEWIDTHS 21725 . 22189)) (22192 31861 (CDFILES 22202 . 27955) (CDFILES.MATCH 27957 . 29582) -(CDFILES.PATS 29584 . 31859)) (31862 49683 (CDPRINT 31872 . 34389) (CDPRINT.HEADER 34391 . 35288) ( -CDPRINT.LINE 35290 . 38522) (CDPRINT.MAXWIDTHS 38524 . 42639) (CDPRINT.COLHEADERS 42641 . 43926) ( -CDPRINT.COLUMNS 43928 . 49048) (CDTEDIT 49050 . 49681)) (49684 58053 (CDMAP 49694 . 51126) (CDENTRY -51128 . 51437) (CDSUBSET 51439 . 52878) (CDMERGE 52880 . 56734) (CDMERGE.COMMON 56736 . 58051)) (58054 - 65592 (BINCOMP 58064 . 62353) (EOLTYPE 62355 . 64917) (EOLTYPE.SHOW 64919 . 65590)) (66120 78647 ( -FIND-UNCOMPILED-FILES 66130 . 69773) (FIND-UNSOURCED-FILES 69775 . 72159) (FIND-SOURCE-FILES 72161 . -73899) (FIND-COMPILED-FILES 73901 . 75778) (FIND-UNLOADED-FILES 75780 . 76633) (FIND-LOADED-FILES -76635 . 77063) (FIND-MULTICOMPILED-FILES 77065 . 78645)) (78648 87079 (CREATED-AS 78658 . 83455) ( -SOURCE-FOR-COMPILED-P 83457 . 86384) (COMPILE-SOURCE-DATE-DIFF 86386 . 87077)) (87080 97386 ( -FIX-DIRECTORY-DATES 87090 . 90083) (FIX-EQUIV-DATES 90085 . 91610) (COPY-COMPARED-FILES 91612 . 93433) - (COPY-MISSING-FILES 93435 . 95592) (COMPILED-ON-SAME-SOURCE 95594 . 97384)) (97580 105418 (CDBROWSER -97590 . 101517) (CDBROWSER.STRINGS 101519 . 105416)) (105580 107316 (CD.TABLEITEM 105590 . 105810) ( -CD.TABLEITEM.PRINTFN 105812 . 106011) (CD.TABLEITEM.COPYFN 106013 . 107071) ( -CDTABLEBROWSER.HEADING.REPAINTFN 107073 . 107314)) (107317 127972 (CDTABLEBROWSER.WHENSELECTEDFN -107327 . 107795) (CD.COMMANDSELECTEDFN 107797 . 112898) (CD-MENUFN 112900 . 117211) (CD-COMPARE-FILES -117213 . 120565) (CDBROWSER-COPY 120567 . 124236) (CDBROWSER-DELETE-FILE 124238 . 127451) (CD-SWAPDIRS - 127453 . 127970))))) + (FILEMAP (NIL (2624 22181 (COMPAREDIRECTORIES 2634 . 7467) (COMPAREDIRECTORIES.INFOS 7469 . 10343) ( +COMPAREDIRECTORIES.CANDIDATES 10345 . 13730) (CDENTRIES.SELECT 13732 . 18507) ( +COMPAREDIRECTORIES.INFOS.TYPE 18509 . 19415) (MATCHNAME 19417 . 20097) (CD.INSURECDVALUE 20099 . 21713 +) (CD.UPDATEWIDTHS 21715 . 22179)) (22182 31999 (CDFILES 22192 . 28093) (CDFILES.MATCH 28095 . 29720) +(CDFILES.PATS 29722 . 31997)) (32000 49821 (CDPRINT 32010 . 34527) (CDPRINT.HEADER 34529 . 35426) ( +CDPRINT.LINE 35428 . 38660) (CDPRINT.MAXWIDTHS 38662 . 42777) (CDPRINT.COLHEADERS 42779 . 44064) ( +CDPRINT.COLUMNS 44066 . 49186) (CDTEDIT 49188 . 49819)) (49822 58191 (CDMAP 49832 . 51264) (CDENTRY +51266 . 51575) (CDSUBSET 51577 . 53016) (CDMERGE 53018 . 56872) (CDMERGE.COMMON 56874 . 58189)) (58192 + 65730 (BINCOMP 58202 . 62491) (EOLTYPE 62493 . 65055) (EOLTYPE.SHOW 65057 . 65728)) (66258 78785 ( +FIND-UNCOMPILED-FILES 66268 . 69911) (FIND-UNSOURCED-FILES 69913 . 72297) (FIND-SOURCE-FILES 72299 . +74037) (FIND-COMPILED-FILES 74039 . 75916) (FIND-UNLOADED-FILES 75918 . 76771) (FIND-LOADED-FILES +76773 . 77201) (FIND-MULTICOMPILED-FILES 77203 . 78783)) (78786 87217 (CREATED-AS 78796 . 83593) ( +SOURCE-FOR-COMPILED-P 83595 . 86522) (COMPILE-SOURCE-DATE-DIFF 86524 . 87215)) (87218 97524 ( +FIX-DIRECTORY-DATES 87228 . 90221) (FIX-EQUIV-DATES 90223 . 91748) (COPY-COMPARED-FILES 91750 . 93571) + (COPY-MISSING-FILES 93573 . 95730) (COMPILED-ON-SAME-SOURCE 95732 . 97522)) (97718 105556 (CDBROWSER +97728 . 101655) (CDBROWSER.STRINGS 101657 . 105554)) (105718 107454 (CD.TABLEITEM 105728 . 105948) ( +CD.TABLEITEM.PRINTFN 105950 . 106149) (CD.TABLEITEM.COPYFN 106151 . 107209) ( +CDTABLEBROWSER.HEADING.REPAINTFN 107211 . 107452)) (107455 128110 (CDTABLEBROWSER.WHENSELECTEDFN +107465 . 107933) (CD.COMMANDSELECTEDFN 107935 . 113036) (CD-MENUFN 113038 . 117349) (CD-COMPARE-FILES +117351 . 120703) (CDBROWSER-COPY 120705 . 124374) (CDBROWSER-DELETE-FILE 124376 . 127589) (CD-SWAPDIRS + 127591 . 128108))))) STOP diff --git a/lispusers/COMPAREDIRECTORIES.LCOM b/lispusers/COMPAREDIRECTORIES.LCOM index 600b162367e3b469b36716e1c97c0435d7fa40c2..394d58610e25e316dd27608f7b00764ceed70d45 100644 GIT binary patch delta 1264 zcmZux&1)N15ZA66(m0K!Ufb^|0xy@A$fAaqp) z6tz;W>QJ+sy8D6c7Xw^@{Eq7{IBY}B>)5+Z?E1w9wHxgUgV7h))00#2c52lYA+st0=O@{^;KNf%s@+ z^lW`^sJ`{!(-?g#Ogvh$_hXIUoVD9m+wtj%o7{gpazsZE96@BiD6FNgV{rYPm=P%wu12prEC-X(g4i#ZrrO!_BjSb$F-)9awm6d;?8w(* ze>mb#N57|9qgR>2FoW6n^a|cu6+-D6V;UAXsdvMz2p489!mSBlZoED}T8`fxRUCyZ z^_()Ni(@`PKI|Q zXPhFy7UuA-bK?r5GrqG3H0Oay8l?~-+?=Kmj&6pV;jIX>VwgR@tRdvW&FJjUSl%cb zi#aZ}>w)Efp;!JF(P{cUH*jbHIuX=3*R+x461g05)u1<(u?=3Ar5CKP~{ zl1ZXZQmt?)!>--oFqL5cHBpHf=cAbAB@&7$&-Wp&7{;i-(Xe#|BzihDQwNDuxdKvw nv{8Y)g)Mq7f^DL%v7}Nhb5$`xx=(I}pzo0`tCPPsj=%jEz_u}e delta 1235 zcmZux&uiOO9Jge;bYU%tV`o_i;aibriAh|&r=K>XRF%}ptF7lsa(|36vBahh@!HaM zFbc)H?6yOT4!i6!$}ZauiH%_}7X1^w_752JVA{hDg{JR4*Gni9===Ng(f7gU>BWKg z{6KtsEsxYq>)TtKSjHF-t{|nNYEO3CJ$W6bC4`Tfn0EAvqDioIuf2Weo4Y&Rb_?3y z-Mx4JYz1uRVnD8iZcqxNpz41f!p?1wE;Va4%6ddnDwQN?ef@wU|CimA)~DAlRcr2) z9k^EHI>|pmcZyP&nx-eIP*C6d%sNyWfqS(|n&GBH0U#lC^f`ext;>HA3+1?nXAkph`eg(xQ)nTsSHiOVcC~yjLHx;FFMtL#U{Ad84MZVTXmO3 zI5VL>d5D=@-U_TH!==q7$>$Q`&hn872$k=4!gz zniW4Lt7L;0THW)bUt8UCqyAhLV7Po;vU%69#*N_: select entries where file1 has a later date than file2 BEFORE or <: select entries where file1 has an earlier date than file2 SAMEDATE or =: select entries where file1 and file2 have the same date -*: exclude entries where file1 does not exist *-: exclude entries where file2 does not exist ~=: exclude entries where file1 and file2 are byte-equivalent SELECT = NIL is equivalent to (< > -* *-). Excludes files with matching dates, a useful default for identifying files that may require further attention. SELECT = T is equivalent to (= < > -* *-). Includes all files for processing by other functions or later filtering by CDSUBSET (below). SELECT may also contain the token AUTHOR to indicate that authors should be provided in the printed output (see CDPRINT below). Unless USEDIRECTORYDATES, the FILECREATED date is used for the date comparison of Lisp source and compiled files, otherwise the file-system CREATIONDATE is used. If OUTPUTFILE=NIL, then the value is a CDVALUE structure with fields (CDPARAMETERS . CDENTRIES). CDPARAMETERS records the parameters in the call to COMPAREDIRECTORIES and CDENTRIES is the list of per-file comparison results. CDPARAMETERS has fields +SELECT specifies the match/mismatch criteria for filtering the output. If SELECT is or contains AFTER or >: select entries where file1 has a later date than file2 BEFORE or <: select entries where file1 has an earlier date than file2 SAMEDATE or =: select entries where file1 and file2 have the same date -*: exclude entries where file1 does not exist *-: exclude entries where file2 does not exist ~=: exclude entries where file1 and file2 are byte-equivalent SELECT = NIL is equivalent to (< > -* *-). Excludes files with matching dates, a useful default for identifying files that may require further attention. SELECT = T is equivalent to (= < > -* *-). Includes all files for processing by other functions or later filtering by CDSUBSET (below). SELECT may also contain the token AUTHOR to indicate that authors should be provided in the printed output (see CDPRINT below). Unless USEDIRECTORYDATES, the FILECREATED date is used for the date comparison of Lisp source and compiled files, otherwise the file-system CREATIONDATE is used. If OUTPUTFILE=NIL, then the value is a CDVALUE structure with fields (CDPARAMETERS . CDENTRIES). CDPARAMETERS records the parameters in the call to COMPAREDIRECTORIES and CDENTRIES is the list of per-file comparison results. CDPARAMETERS has fields CDDIR1 CDDIR2 CDCOMPAREDATE CDSELECT. CDENTRIES contains one entry for each of the file-comparisons that meets the SELECT criteria. Each entry is a CDENTRY record with fields MATCHNAME INFO1 DATERULE INFO2 EQUIV where MATCHNAME is the name.extension shared by the two files, and each file info is either NIL (for nonexistent files) or a CDINFO record with fields (FULLNAME DATE LENGTH AUTHOR TYPE EOL) TYPE is SOURCE for Lisp source (filecreated) files, COMPILED for Lisp compiled files, otherwise the PRINTFILETYPE (TEXT, TEDIT...) or NIL. EOL is CR, LF, CRLF, or NIL. When both files exist, the date relation is one of <, =, or >. Otherwise, the date relation is * if only one file exists. EQUIV is T for files that contain the same bytes. In that case, the date of the earlier file is assumed to be more accurate, it replaces the CREATIONDATE of the earlier file, and the date relation is changed to =. If OUTPUTFILE is not NIL, then it is a filename or open stream on which selected entries will be printed (T for the terminal) by CDPRINT. COMPAREDIRECTORIES always sets the variable LASTCDVALUE to the CDVALUE data structure. This is used by the functions below if their CDENTRIES is NIL. (CDPRINT CDVALUE FILE COLHEADINGS PRINTAUTHOR ) [Function] Prints CDVALUE on FILE, with one line for each entry. The line for each entry is of the form FILE1 (AUTHOR) SIZE DATE DATEREL DATE FILE2 (AUTHOR) SIZE For example ACE.;1 (Joe) 235 2-May-1985 18:03:54 < 30-Sep-1985 11:14:48 ACE.;3 (Sam) 396 The line for byte-equivalent files is prefixed with ==. If the files are equivalent except for a difference in end-of-line conventions, the equivalence prefix will indicate the convention for each file (C for CR, L, for LF, 2 for CRLF). Thus C2 indicates that the files are equivalent except that file1 marks line ends with CR and file2 with CRLF. @@ -18,24 +18,25 @@ Produce the CDPRINT output in a TABLEBROWSER window with menu commands for compa (CDFILES DIR INCLUDEDFILES EXCLUDEDFILES ALLVERSIONS DEPTH) [Function] Returns a list of full filenames for files in directory DIR (NIL=T=the connected directory) that match the other file-name filtering criteria. Files are excluded if: Their name does not match a pattern in INCLUDEDFILES (NIL = *.*). Dotted files are excluded unless FILEPATTERNS includes .* and files in subdirectories are excluded if the number of subdirectories exceeds DEPTH (below). They do not match patterns on the list EXCLUDEDFILES. *.* excludes all extensions, *.COM or just COM excludes extentsions on *COMPILED-EXTENSIONS*. EXCLUDEDFILES contains .* to suppress dotted files unless .* also appears in INCLUDEDFILES. They are not the highest version unless ALLVERSIONS=T. DEPTH controls the depth of subdirectory exploration. T means all levels, NIL means no subdirectories. Otherwise the maximum number of > or / characters below the starting DIR in the fullname of files. (CDFILES) produces all the newest, undotted files in the immediate connected directory. (CDMERGE CDVALUES) [Function] Merges all subsets of CDVALUES that have the same CDSELECT into a single CDVALUE with the union of their CDENTRIES. The CDCOMPAREDATE of the merger will be the latest of the dates, and the directories and match names will be adjusted to reflect the original subdirectory sources. (CDMAP CDVALUE FN) [Function] (CDSUBSET CDVALUE FN) [Function] CDMAP and CDSUBSET both apply FN to each CDENTRY in CDVALUE, perhaps modifying the information in the entry. CDSUBSET returns a new cdvalue structure whose entries are the subset of the entries (perhaps modified) for which FN is non-NIL. For convenience, at each invocation the variables MATCHNAME INFO1 DATEREL INFO2 and EQUIV are bound to the corresponding fields and can be used freely by FN. USEFUL UTILITIES (FIX-DIRECTORY-DATES FILES) [Function] For every file included in or specified by FILES, if it is a Lisp source or compiled whose directory creation date is more than 30 seconds later than its internal filecreated date (presumably because of copying), then its directory date is reset to match the internal date. FILES can be a list of file names or a pattern interpretable by FILDIR. Returns a list of files whose dates have been changed. (FIX-EQUIV-DATES CDVALUE) [Function] If there is an entry in CDVALUE whose files are EQUIVALENT but with different directory creation dates, the directory date of the file with the later date (presumably a copy) is reset to match the date of the earlier file. In the end all equivalent files will have the same (earliest) date. Returns a list of files whose dates have been changed. (COPY-MISSING-FILES CDVALUE TARGET MATCHNAMES) [Function] Target is 1 or 2, indicating the direction of potential copies. If an entry with a source file but no target file has a matchname in MATCHNAMES, the source file is copied to the target directory. All target-absent files are copied if MATCNAMES is NIL. Source properties (including version number) are preserved in the target. (COPY-COMPARED-FILES CDVALUE TARGET MATCHNAMES) [Function] TARGET is 1 or 2, indicating the direction of potential copies. If an entry with both source and target files has a matchname in MATCHNAMES, the source file is copied to a new version of the target file. All files are copied if MATCHNAMES is NIL. (COMPILED-ON-SAME-SOURCE CDVALUE) [Function] Returns the subset of entries with Lisp compiled files (dfasl or lcom) that are compiled on the same source, according to SOURCE-FOR-COMPILED-P below. Presumably one should be removed to avoid confusion. (FIND-SOURCE-FILES CFILES SDIRS DFASLMARGIN) [Function] Returns (CFILE . SFILES) pairs where CFILE is a Lisp compiled file in CFILES and SFILES is list of files in SDIRS that CFILE was compiled on according to SOURCE-FOR-COMPILED-P. This suggests that at least one of SFILES should be copied to CFILE's location (or vice versa). (FIND-COMPILED-FILES SFILES CDIRS DFASLMARGIN) [Function] Returns (CFILE . SFILES) pairs where SFILE is a Lisp source file in SFILES and CFILES are files in CDIRS that are compiled on SFILE according to SOURCE-FOR-COMPILED-P. This suggests that at least one of CFILES should be copied to SFILE's location. (FIND-UNCOMPILED-FILES FILES DFASLMARGIN COMPILEXTS) [Function] Returns a list of elements each of which corresponds to a source file in FILES for which no appropriate compiled file can be found. An appropriate compiled file is a file in the same location with extension in COMPILEEXTS (defaulting to *COMPILED-EXTENSIONS*) that satisfies SOURCE-FOR-COMPILED-P. Each element is a list of the form (sourcefile . cfiles) cfiles contains compiled files that were compiled on a different version of sourcefile, NIL if no such files exist. Each cfile item is a pair (cfile timediff) where timediff is the time difference (in minutes) between the creation date of the compiled-file's source and the creation date of sourcefile (positive if the cfile was compiled later, as should be the case). FILES can be an explicit list of files, or a file specification interpretable by FILDIR; in that case only the newest source-file versions are processed. (FIND-UNSOURCED-FILES CFILES DFASLMARGIN COMPILEXTS) [Function] Returns the subset of the compiled files specified by CFILES for which a corresponding source file according to SOURCE-FOR-COMPILED-P cannot be found in the same directory. CFILES can be a list of files or a pattern that FILDIR can interpret. COMPILEEXTS can be one or more explicit compile-file extensions, defaulting to *COMPILED-EXTENSIONS*. (SOURCE-FOR-COMPILED-P SOURCE COMPILED DFASLMARGIN) [Function] Returns T if it can confirm that Lisp COMPILED file was compiled on Lisp SOURCE file. SOURCE and COMPILED can be provided as CREATED-AS values, to avoid repetitive computation. This compares the information in the filecreated expressions, original file names and original dates, and not the current directory names and dates. It appears that the times in DFASL files may differ from the filecreated source dates by a few minutes. The DFASLMARGIN can be provided to loosen up the date matching criterion. DFASLMARGIN is a pair (max min) and a DFASL COMPILED is deemed to be compiled on SOURCE if the compiled's source date is no more than max and no less than min minutes after the source date. A negative min allows for the possibility that the compiled-source date is earlier than the candidate source date. DFASLMARGIN defaults to (20 0). A single positive number x is coerced to (x 0). A single negative number is coerced to (-x x) (compiled file is no more than x minutes later or earlier). T is infinity in either direction. Examples: (T 0): COMPILED compiled on source later than SOURCE (0 T): COMPILED compiled on source earlier than SOURCE (odd) - 12: COMPILED compiled on source later than SOURCE by no more than 12 minutes -12: COMPILED compiled on source 12 minutes before or after SOURCE (FIND-MULTICOMPILED-FILES FILES SHOWINFO) [Function] Returns a list of files in FILES that have more than one type of compiled file (e.g. LCOM and DFASL). FILES is interpretable by FILDIR. If SHOWINFO, then the value contains a list for each file of the form (rootname loaded-version . CREATED-AS information for each compile-type) Otherwise just the rootname of the source is returns. (CREATED-AS FILE) [Function] If FILE is a Lisp source or compiled file, returns a record of its original filename and filecreated dates, and for compiled files, also the original compiled-on name and date. The return for a source file is a pair (sfullname sfilecreateddate) The return for a compiled file is a quadruple (cfullname cfilecreated sfullname sfilecreateddate) where sfullname and sourcefilecreated are extracted from the file's compiled-on information. The return is (fullname NIL) for a non-Lisp file. (EOLTYPE FILE SHOWCONTEXT) [Function] Returns the EOLTYPE of FILE (CR, LF, CRLF) if the type is unmistakable: contains at least one instance of one type and no instances of any others. Returns NIL if there is evidence of inconsistent types. If SHOWCONTEXT is an integer, it is the number of bytes for EOLTYPE to display before and after an instance of an inconsistent type. At each instance, the user is asked whether to continue scanning for other instances. SHOWCONTEXT = T is interpreted as 100. (BINCOMP FILE1 FILE2 EOLDIFFOK) [Function] Returns T if FILE1 and FILE2 are byte-identical. If EOLDIFFOK and FILE1 and FILE2 differ only in their eol conventions, the value is a list of the form (EOL1 EOL2), e.g. (CR CRLF). Otherwise the value is NIL. (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))))) 444 4.4@4..8.8J PAGEHEADING RUNNINGHEAD.MODERNTERMINALMODERN + 12: COMPILED compiled on source later than SOURCE by no more than 12 minutes -12: COMPILED compiled on source 12 minutes before or after SOURCE (FIND-MULTICOMPILED-FILES FILES SHOWINFO) [Function] Returns a list of files in FILES that have more than one type of compiled file (e.g. LCOM and DFASL). FILES is interpretable by FILDIR. If SHOWINFO, then the value contains a list for each file of the form (rootname loaded-version . CREATED-AS information for each compile-type) Otherwise just the rootname of the source is returns. (CREATED-AS FILE) [Function] If FILE is a Lisp source or compiled file, returns a record of its original filename and filecreated dates, and for compiled files, also the original compiled-on name and date. The return for a source file is a pair (sfullname sfilecreateddate) The return for a compiled file is a quadruple (cfullname cfilecreated sfullname sfilecreateddate) where sfullname and sourcefilecreated are extracted from the file's compiled-on information. The return is (fullname NIL) for a non-Lisp file. (EOLTYPE FILE SHOWCONTEXT) [Function] Returns the EOLTYPE of FILE (CR, LF, CRLF) if the type is unmistakable: contains at least one instance of one type and no instances of any others. Returns NIL if there is evidence of inconsistent types. If SHOWCONTEXT is an integer, it is the number of bytes for EOLTYPE to display before and after an instance of an inconsistent type. At each instance, the user is asked whether to continue scanning for other instances. SHOWCONTEXT = T is interpreted as 100. (BINCOMP FILE1 FILE2 EOLDIFFOK) [Function] Returns T if FILE1 and FILE2 are byte-identical. If EOLDIFFOK and FILE1 and FILE2 differ only in their eol conventions, the value is a list of the form (EOL1 EOL2), e.g. (CR CRLF). Otherwise the value is NIL. (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))))) +444 4.4..8.8J PAGEHEADING RUNNINGHEADMODERNTERMINALMODERN TERMINAL MODERN MODERN LOGOMODERN -   HRULE.GETFNMODERN - + + +  HRULE.GETFNMODERN - - HRULE.GETFNMODERN -   HRULE.GETFNMODERN  - HRULE.GETFNMODERN #!'o K  Of@A?44C  m -H  c   ' .   $ D( o*&m{ = -~ ?  -<G@ L]  .   .. @@ * m    H= 8k' / ^ '    -! (  O"3A _A'+c& -!< -\ T=| +  HRULE.GETFNMODERN +  HRULE.GETFNMODERN + HRULE.GETFNMODERN   HRULE.GETFNMODERN #!'o K  OO@A?44C  m +H  c   ' .   $ D( o*&m{ = +~ ?  +<G@ L]  .   .. @@ * m    H= 8k' / ^ '    +! (  O"3A _A'+c& +!< +\ T=| Z - .z=: %< &AI %A64)* D@& -K <    ! &/65;  -$7".9'  . -  G "  5_z \ No newline at end of file + .z=: %< &AI %A64)* D@& +K <    ! &/65;  +$7".9'  . -  G  5Wz \ No newline at end of file