(FILECREATED "29-Dec-84 10:47:28" ("compiled on " {ERIS}LIBRARY>SINGLEFILEINDEX.;25) "22-Dec-84 04:22:04" recompiled changes: SINGLEFILEINDEX SINGLEFILEINDEX2 SINGLEFILEINDEX1 \SFI.AnalyzeLine in "INTERLISP-D 22-Dec-84 ..." dated "22-Dec-84 07:51:50") (FILECREATED "29-Dec-84 10:41:40" {ERIS}LIBRARY>SINGLEFILEINDEX.;25 64664 changes to: (FNS \SFI.AnalyzeLine SINGLEFILEINDEX1 SINGLEFILEINDEX SINGLEFILEINDEX2) (VARS SINGLEFILEINDEXCOMS) previous date: "19-Dec-84 05:00:03" {ERIS}LIBRARY>SINGLEFILEINDEX.;19) \SFI.LISPSOURCEFILEPA0001A0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 C F 2 FULL F 3 FILERDTBL F 4 MAPADDR) ^RS g>oH5h/R R RS cdoR ohciYRS IiHX(117Q READC 72Q GETEOFPTR 50Q READ 42Q SKREAD 35Q SKREAD 4 SKIPSEPRS) (7 %() ( 100Q 17777777777Q 66Q 17777777777Q 16Q (%( F I L E C R E A T E D % )) \SFI.LISPSOURCEFILEPA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 ERRORTYPELST F 1 FULL F 2 RESETVARSLST F 3 FILE F 4 RESETY) IQgQd hhhRcQj oSg chRcoo hci(101Q \SFI.LISPSOURCEFILEPA0001A0002 51Q OPENFILE 34Q SETFILEPTR 12Q GETFILEPTR) (46Q INPUT 5 SETFILEPTR) ( 76Q (DUMMY.FOR.ERRORSET) 67Q ((20Q (ERROR!))) 42Q (PROGN (CLOSEF? OLDVALUE))) \SFI.LISPSOURCEFILEP D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 MAPADDR P 0 FULL I 0 FILE F 5 LISPXHIST F 6 RESETVARSLST) 3@ HU!Vog h hg\ LI(57Q ERROR! 51Q RESETRESTORE 36Q RANDACCESSP 30Q \SFI.LISPSOURCEFILEPA0001 3 OPENP) (45Q ERROR 25Q INTERNAL) ( 22Q (DUMMY.FOR.ERRORSET)) \SFI.GETFILEMAPA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 C F 2 FILE F 3 FILERDTBL F 4 MAPADDR F 5 MAP) hRS gHoH?h9R R RS cdoR oRT RS c iYRS IiHX(131Q READC 116Q READ 110Q SETFILEPTR 72Q GETEOFPTR 50Q READ 42Q SKREAD 35Q SKREAD 4 SKIPSEPRS) (7 %() ( 100Q 17777777777Q 66Q 17777777777Q 16Q (%( F I L E C R E A T E D % )) \SFI.GETFILEMAP D1 (P 3 ERRORTYPELST P 2 OPOS P 1 MAPADDR P 0 MAP I 1 FL I 0 FILE F 4 USEMAPFLG) ]TZ A@AgXH@ l @h @ h@ hX@j oo @J HgH(116Q SETFILEPTR 110Q \SFI.GETFILEMAPA0001 72Q SETFILEPTR 60Q GETFILEPTR 51Q RANDACCESSP 44Q ERRORX 32Q OPENP) (124Q FILEMAP 14Q FILEMAP) ( 105Q (DUMMY.FOR.ERRORSET) 76Q ((20Q (ERROR!)))) ILESSCADR D1 (L (1 J 0 I)) @Ah @ANIL NIL () UALPHORDERCAR D1 (I 1 B I 0 A) @A (6 UALPHORDER) NIL () PUTSASSOC D1 (P 1 foundFlg P 0 newList I 2 ALST I 1 VAL I 0 KEY) A00B%dIJd@ iJAJLKh]K&MXId@Ah H(74Q \APPEND2 24Q EQUAL) NIL () PRINTDOTS D1 (P 0 STRM I 1 FILE I 0 N) Ag @dj Hl. kٰ(25Q BOUT 6 GETSTREAM) (3 OUTPUT) () \SFI.PLURALIZE D1 (P 2 SUFFIX P 1 LEN P 0 LITP I 0 X) p@l!H@o@ @d Y)dlXdlSo1dlH@Ik)lSolY@kIk booZ@J bHd @(153Q MKATOM 143Q CONCAT 121Q SUBSTRING 33Q NCHARS 25Q \LISPERROR) NIL ( 135Q "S" 130Q "IES" 103Q "ES" 54Q "ES" 21Q "ARG NOT LITATOM") NDINFILECOMS? D1 (P 1 list I 5 items I 4 MAP I 3 COMS I 2 FULL I 1 TYPE I 0 NAME) B l Bh DVAgO@diDdi DdddEEb EDHh6i@I IiHXCd @Eh@i@E i(201Q MEMBER 154Q \NDINFILECOMS1 131Q ASSOC 15Q ERRORX 3 OPENP) (25Q FNS) () \NDINFILECOMS1 D1 (P 5 fileVar P 4 list P 3 TEM P 2 item P 0 list I 0 COM F 6 items F 7 TYPE F 10Q FULL F 11Q MAP F 12Q COMMENTFLG F 13Q NAME) 9@h0@g<@HXdd$dgdgdgdgH׿ Wd@v@dgAl9@ddiih%Wg@dVVc @WW h!IhWJJd[V KVc IYg$W@@dgdVVVc @gA @dg]lMdih MWW \dWWWLWV c h(463Q NDINFILECOMS? 437Q \SFI.GETFILVARDEF 273Q MEMBER 232Q \SFI.GETFILVARDEF 110Q \NDINFILECOMS1) (401Q * 364Q COMS 333Q * 312Q VARS 175Q VARS 133Q * 72Q COMPILERVARS 64Q EVAL@LOADWHEN 56Q EVAL@COMPILEWHEN 47Q COPYWHEN 16Q DECLARE:) () \SFI.LOADCOMSA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 C F 2 FULL F 3 FILERDTBL F 4 TEM F 5 NEWCOMS F 6 COMSNAME) oRS gcoH/hTRj R R kXl:RS cHkذYRS IiHXgVTTc i(111Q READC 70Q READ 50Q SKREAD 43Q SKREAD 36Q SETFILEPTR 4 SKIPSEPRS) (132Q RPAQQ 7 %() ( 16Q (%( F I L E C R E A T E D % )) \SFI.LOADCOMS D1 (P 2 NEWCOMS P 1 ERRORTYPELST P 0 COMSNAME I 1 MAP I 0 FULL F 3 FILE) <@g l @h A@ So @j @ oo J(70Q \SFI.LOADCOMSA0001 52Q FILECOMS 46Q SETFILEPTR 40Q ERROR 27Q LISPSOURCEFILEP 20Q ERRORX 6 OPENP) (3 INPUT) ( 65Q (DUMMY.FOR.ERRORSET) 56Q ((20Q (ERROR!))) 35Q "Not a Lisp source file.") \SFI.GETFILVARDEF D1 (P 0 VAL I 2 MAP I 1 FULL I 0 NAME F 1 \SFI.GETDEF.HASH) S@d"lQ QgBA gchl hc@QX@gAg @HQQ HQh(111Q PUTHASH 77Q GETDEF 51Q HARRAY 34Q LISPSOURCEFILEP) (74Q NOERROR 70Q VARS 40Q ERROR 24Q ERROR) () \SFI.CENTERPRINT D1 (I 2 DontPrintPageNbrFlg I 1 BOLDFLG I 0 STR F 0 FILELINELENGTH) +P@ A` @ ` @ B (50Q INDEXNEWLINE 43Q PRIN1 36Q CHANGEFONT 27Q PRIN1 22Q CHANGEFONT 11Q TAB 4 NCHARS) (33Q DEFAULTFONT 17Q BOLDFONT) () \SFI.LISTINGHEADER D1 (I 0 dontPrintPageNumberFlg F 0 currentItem F 1 FNUM F 2 PAGECOUNT F 3 FULL F 4 RELATIVEINDEXFLG F 5 FILELINELENGTH) qS+PFQ+T(o P o Q o Po P o Ul i R@o oR (156Q INDEXNEWLINE 153Q INDEXNEWLINE 147Q PRINTNUM 136Q PRIN1 121Q TAB 110Q PRIN1 100Q PRIN2 73Q PRIN1 56Q PRIN1 44Q PRIN1 37Q PRIN1 27Q PRIN2 22Q PRIN1) NIL ( 143Q (FIX 4) 133Q "Page " 105Q " cont.)" 70Q " (" 51Q "] cont.)" 34Q "[" 17Q " (") \SFI.BreakLine D1 (P 0 STRM) 'i hg `djHl~ kٰi (44Q INDEXNEWLINE 32Q BOUT 12Q GETSTREAM 3 INDEXNEWLINE) (20Q FILELINELENGTH 7 OUTPUT) () SINGLEFILEINDEX D1 (P 0 FULL I 2 mergedIndexFlg I 1 OUTF I 0 INF F 2 ERRORMESSAGESTREAM) @@ H!Rdi`@I oI I h`HAB gHAB H(74Q \SFI.Q1UP 62Q SINGLEFILEINDEX2 46Q TERPRI 41Q PRIN1 30Q PRIN1 3 FINDFILE) (66Q SINGLEFILEINDEX2 53Q \SINGLEFILEINDEX.DONTSPAWN 22Q PROMPTWINDOW) ( 35Q " not found.") \SFI.Q1UP D1 (I 3 mergedIndexFlg I 2 OUTF I 1 FULL I 0 FUN) .`gABCh g ogg ` (53Q NOTIFY.EVENT 44Q ADD.PROCESS 26Q FIND.PROCESS 20Q TCONC) (50Q \SFI.LISTFILESEVENT 41Q DON'T 36Q BEFOREEXIT 23Q \FILELISTING 5 SINGLEFILEINDEX2 2 \SFI.FILESTCONC) ( 33Q (\FILELISTING)) \FILELISTING D1 (P 0 FORM F 1 RESETVARSLST) OohhQc`nN `d` ``h`XH `d(113Q BLOCK 77Q APPLY 45Q DEL.PROCESS 27Q AWAIT.EVENT) (103Q \SFI.FILESTCONC 66Q \SFI.FILESTCONC 56Q \SFI.FILESTCONC 51Q \SFI.FILESTCONC 42Q \RUNNING.PROCESS 33Q \SFI.FILESTCONC 21Q \SFI.LISTFILESEVENT) ( 3 (SELECTQ RESETSTATE ((ERROR RESET) (SETQ \SFI.FILESTCONC (LIST NIL))) NIL)) SINGLEFILEINDEX2 D1 (I 2 mergedIndexFlg I 1 OUTF I 0 FULL F 1 ERRORMESSAGESTREAM F 2 NOTLISTEDFILES) v@AB 9A3Qdi`oH @H oH `H H i*A#Qdi`@H oH H @ @ R ch(160Q REMOVE 154Q ROOTFILENAME 146Q OLDLISTFILES1 140Q TERPRI 133Q PRIN1 122Q PRIN1 72Q TERPRI 65Q PRIN1 55Q PRIN1 44Q PRIN1 36Q PRIN1 5 SINGLEFILEINDEX1) (112Q PROMPTWINDOW 61Q PRINTER 23Q PROMPTWINDOW) ( 127Q " is not LISPSOURCEFILEP -- COPYFILE being called" 51Q " => " 32Q "indexed version of ") SINGLEFILEINDEX1A0001 D1 (NAME ERRORSET P 33Q function P 32Q newPos P 31Q linePos P 30Q currentPos P 27Q items P 26Q type P 21Q TEM P 20Q FNSMAPSL P 17Q nextFnStart P 16Q nextFnGroup P 15Q currentItem P 14Q \SFI.GETDEF.HASH P 13Q lastPage P 12Q typeNames P 11Q ItemPages P 10Q FULLS P 7 FULLEOLC P 6 PAGECOUNT P 5 LINECOUNT P 4 MAP P 3 COMS P 2 FNUM P 1 typesLST P 0 LINESPERPAGE F 34Q FULL F 35Q RESETVARSLST F 36Q OUTF F 37Q LINESPERPAGE F 40Q INDEXEDTYPESLST F 41Q RESETY F 42Q mergedIndexFlg) 'W>``gW@joW8gg c8hW:c:W8d g_"O"`ohhW:c:iW8 ILLW8 \W8 hW<`cSOURCES>)) FILEIO)) (DECLARE: EVAL@COMPILEWHEN (EQ COMPILEMODE (QUOTE PDP-10)) EVAL@LOADWHEN (EQ COMPILEMODE (QUOTE PDP-10)) (FILES (SYSLOAD FROM LISPUSERS) CJSYS))) (DECLARE: COPYWHEN (NEQ COMPILEMODE (QUOTE D)) (FNS \SFI.UALPHORDER)) (DECLARE: DOCOPY DONTEVAL@LOAD (P (MOVD? (QUOTE LISTFILES1) (QUOTE OLDLISTFILES1)) (/MOVD (QUOTE SINGLEFILEINDEX ) (QUOTE LISTFILES1)) (SELECTQ (SYSTEMTYPE) (D (PUTD (QUOTE \SFI.UALPHORDER))) (MOVD? (QUOTE \SFI.UALPHORDER) (QUOTE UALPHORDER))) (OR (FIXP (GETTOPVAL (QUOTE LINESPERPAGE))) (SAVESETQ LINESPERPAGE (SELECTQ (SYSTEMTYPE) (D 65) 58))))) (GLOBALVARS FONTCHANGEFLG DEFAULTFONT PRETTYCOMFONT) )) (AND (BOUNDP (QUOTE INDEXEDTYPESLST)) (NULL INDEXEDTYPESLST) (SETQ INDEXEDTYPESLST (QUOTE NOBIND))) (RPAQ? PRINTER (SELECTQ (SYSTEMTYPE) (D (QUOTE {LPT})) (QUOTE LPT:))) (RPAQ? RELATIVEINDEXFLG) (RPAQ? \SFI.INDIRECTION "Indirection Marker") (RPAQ? \SINGLEFILEINDEX.DONTSPAWN) (RPAQ? \SFI.LISTFILESEVENT (CREATE.EVENT (QUOTE SINGLEFILEINDEX))) (RPAQ \SFI.FILESTCONC (LIST NIL)) (RPAQ DEFAULTINDEXEDTYPESLST (SUBST \SFI.INDIRECTION (QUOTE \SFI.INDIRECTION) (QUOTE ((MACRO PUTPROPS TestForMacro) (BITMAP "RPAQ " TestForBitmap T) (VAR (RPAQ ADDTOVAR) TestForVar) (CONSTANTS CONSTANTS TestForConstants) (RECORD (\SFI.INDIRECTION CLISPRECORDTYPES)) (RESOURCE PUTDEF TestForResource) ( CLASS "DEFCLASS ") (INSTANCE DEFINST TestForInstance) (METHOD METH TestForMethod) (GLOBALRESOURCE PUTDEF TestForGenericDefinition))))) (RPAQ INDEXEDTYPESLST DEFAULTINDEXEDTYPESLST) (COND ((MOVD? (QUOTE \SFI.LISPSOURCEFILEP) (QUOTE LISPSOURCEFILEP)) (MOVD? (QUOTE \SFI.GETFILEMAP) ( QUOTE GETFILEMAP))) (T (PUTD (QUOTE \SFI.LISPSOURCEFILEP)) (PUTD (QUOTE \SFI.GETFILEMAP)))) (RPAQ? \SFI.GETDEF.HASH NIL) (RPAQ? ERRORMESSAGESTREAM T) (RPAQQ FileIndexingFns (SINGLEFILEINDEX \SFI.Q1UP \FILELISTING SINGLEFILEINDEX2 SINGLEFILEINDEX1 \SFI.AnalyzeLine \SFI.FLUSHFONTCHANGE PrintFnDef PrintOneTypeIndex PrintRelativeFunctionIndex DetermineLinesPerPage INDEXCOPYBYTES INDEXNEWLINE INDEXNEWPAGE MERGEDFILEINDEX MERGEDFILEINDEX2 MERGEDFILEINDEX1 PrintFileTitle PrintIndex PrintMergedIndex \SFI.PrintIndexFactors)) (RPAQQ TypeFindingFns (TestForVar TestForMacro TestForBitmap TestForResource TestForGenericDefinition TestForConstants TestForInstance TestForMethod TestForType PositionForTest)) (/SETTOPVAL (QUOTE \\A&PSTR.GLOBALRESOURCE)) (MOVD? (QUOTE LISTFILES1) (QUOTE OLDLISTFILES1)) (/MOVD (QUOTE SINGLEFILEINDEX) (QUOTE LISTFILES1)) (SELECTQ (SYSTEMTYPE) (D (PUTD (QUOTE \SFI.UALPHORDER))) (MOVD? (QUOTE \SFI.UALPHORDER) (QUOTE UALPHORDER))) (OR (FIXP (GETTOPVAL (QUOTE LINESPERPAGE))) (SAVESETQ LINESPERPAGE (SELECTQ (SYSTEMTYPE) (D 65) 58))) (PUTPROPS SINGLEFILEINDEX COPYRIGHT ("Xerox Corporation" 1984)) NIL