(FILECREATED "13-Aug-84 16:52:06" ("compiled on " {ERIS}LEXICON>LOADFOOTPARSER.;4) " 7-Aug-84 14:53:52" recompiled changes: LOADFOOTPARSER in "INTERLISP-D 9-Aug-84 ..." dated " 9-Aug-84 18:38:02") (FILECREATED "13-Aug-84 16:51:11" {ERIS}LEXICON>LOADFOOTPARSER.;4 11938 changes to: (VARS LOADFOOTPARSERCOMS) (FNS LOADFOOTPARSER) previous date: "13-Aug-84 16:12:45" {ERIS}LEXICON>LOADFOOTPARSER.;1) LOADFOOTPARSERA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 SYMFLAG F 1 DIRS F 2 LDFLG F 3 NODBFLG F 4 SLOWFLAG F 5 FOOTPARSERFILES F 6 DLFGFILES) XiSgg`PhTg` `gcQUPR QoPR QVPR hh(121Q LOADFILES 111Q LOADFILES 76Q LOADFILES 51Q PACK*) (64Q COM 60Q LOADFILESCOMPILE.EXTENSIONS 54Q LOADFILESCOMPILE.EXTENSIONS 46Q COMPILE.EXT 43Q F 27Q LOADFILESCOMPILE.EXTENSIONS 24Q LOADFILESCOMPILE.EXTENSIONS 20Q LOADDBFLG 15Q YES 11Q NO 3 NOSPELLFLG) ( 104Q (MODIFY-LFG)) LOADFOOTPARSER D1 (I 4 NODBFLG I 3 SYMFLAG I 2 DIRS I 1 SLOWFLAG I 0 LDFLG F 2 RESETVARSLST F 3 TtyDisplayStream F 4 LFG.LISPUSERSFILES F 5 ENV.LISPUSERSFILES F 6 DLFG.LISPUSERSFILES) gg gg oT oU oV g`gg g g SgS ( g`g`g`RcRog HHXHXIdRHcR RkI Hg gl hdg gl hdg g i(360Q CHANGELFGFONTS 351Q FONTCREATE 332Q FONTCREATE 312Q DEFINEDP 303Q SETUPLFGWINDOWS 276Q ERROR! 266Q NLEFT 257Q TAILP 207Q LOADFOOTPARSERA0001 135Q PUTWINDOWPROP 130Q \INSUREWINDOW 117Q LOAD? 106Q INFILEP 76Q INFILEP 73Q PACKFILENAME 54Q DOFILESLOAD 43Q DOFILESLOAD 32Q DOFILESLOAD 21Q MOVD 10Q MOVD?) (355Q SMALL 345Q DISPLAY 336Q TIMESROMAN 326Q DISPLAY 317Q CLASSIC 307Q LAFITE 237Q LOADFILESCOMPILE.EXTENSIONS 226Q LOADDBFLG 215Q NOSPELLFLG 204Q INTERNAL 161Q LOADFILESCOMPILE.EXTENSIONS 156Q LOADFILESCOMPILE.EXTENSIONS 152Q LOADDBFLG 147Q LOADDBFLG 143Q NOSPELLFLG 140Q NOSPELLFLG 124Q TITLE 114Q SYSLOAD 103Q SYSTEMPATCH 70Q SYSTEMPATCH 65Q BODY 62Q COMPILE.EXT 57Q EXTENSION 16Q GREET 13Q GREETLFG 5 OLDGREET 2 GREET) ( 201Q (DUMMY.FOR.ERRORSET) 47Q (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) 36Q (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) 25Q (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)) UPDATELFG D1 (L (1 FILES 0 ASKFLAG)) AqHId\ ghgN _NO ]VLi lhi oi Mi lhi oi Ni li @hdo ghi hiOJ KhZHXsK&di h(244Q LOAD 203Q TERPRI 170Q ASKUSER 154Q SPACES 145Q PRIN1 137Q PRIN1 126Q TAB 116Q PRIN1 110Q PRIN1 77Q TAB 67Q PRIN1 56Q INFILEP 45Q PACKFILENAME 27Q CURRENTLFG 5 GETLFGFILES) (173Q Y 41Q BODY 35Q VERSION) ( 165Q "Load? " 133Q "Sysout: " 104Q "Dir: ") CHANGEDFILES D1 (L (4 SOURCEDIRECTORY 3 EXTENSION 2 COMPDIRECTORY 1 FILES 0 FARG)) @dAAaHIgDgL ^+i oi gDgL i i N7@*gBgL gC  ]Mg Ng NJ KhZHXK&(171Q GETFILEINFO 162Q GETFILEINFO 151Q INFILEP 146Q PACKFILENAME 136Q NAMEFIELD 114Q TERPRI 107Q PRIN1 103Q PACKFILENAME 100Q NAMEFIELD 64Q PRIN1 53Q TERPRI 44Q INFILEP 41Q PACKFILENAME 36Q NAMEFIELD) (166Q ICREATIONDATE 157Q ICREATIONDATE 141Q EXTENSION 132Q NAME 126Q DIRECTORY 74Q NAME 70Q DIRECTORY 32Q NAME 26Q DIRECTORY) ( 60Q "Can't find source file: ") COMPLFG D1 (L (0 FILES)) 5d @ di Hi @i (62Q FASTCOMPILE 57Q LFGNEEDCOMP 45Q BCOMPL 42Q PRINT 34Q TERPRI 21Q LFGNEEDCOMP 10Q LOADCOMP? 2 GETLFGFILES) NIL () CURRENTLFG D1 (L (0 FILES)) ^@AHIHhHHLgg`gL ggg` gL gJ KhZK&(106Q PACKFILENAME 77Q PACK* 55Q PACKFILENAME 5 GETLFGFILES) (111Q FILEMAP 102Q BODY 74Q COMPILE.EXT 71Q F 66Q EXTENSION 60Q FILEMAP 51Q BODY 46Q COMPILE.EXT 43Q EXTENSION 35Q FILEDATES) () GETLFGFILES D1 NIL ggg ggg (35Q SORT 32Q \APPEND2 27Q GETDEF 13Q GETDEF) (24Q LOADLFG 21Q VARS 16Q DLFGFILES 10Q LOADLFG 5 VARS 2 LFGFILES) () LISTLFG D1 (L (0 DONTASKFLAG)) UggQHI \ ]hMLoi li @gMJ KhZHXK&(72Q ASKUSER 62Q SPACES 53Q PRIN2 33Q INFILEP 25Q APPLY 10Q GETLFGFILES) (75Q Y 5 LOADLFG 2 LISTFILES) ( 46Q (not found)) (PRETTYCOMPRINT LOADFOOTPARSERCOMS) (RPAQQ LOADFOOTPARSERCOMS ((* This is the FOOTPARSER system description file. Loading it and executing (LOADFOOTPARSER) will create a new FOOTPARSER system.) (VARS DLFG.LISPUSERSFILES ENV.LISPUSERSFILES FOOTPARSERFILES LFG.LISPUSERSFILES 10LFG.LISPUSERSFILES) (VARS 10LFGFILES DLFGFILES LFG.LISPUSERSFILES LFGFILES LFGSYSFILES) (INITVARS (LFGWINDOWLST)) (VARS (DWIMIFYCOMPFLG T)) (PROP VARTYPE LFGWINDOWLST) (ADDVARS (AFTERSYSOUTFORMS (SETNM (QUOTE LFG)))) (P (SETNM (QUOTE LFG))) (* Loading LFG) (FNS LOADFOOTPARSER UPDATELFG) (INITVARS (LFGINITFILENAME)) (FNS CHANGEDFILES COMPLFG CURRENTLFG GETLFGFILES LISTLFG) (* LFG file manipulation utilities) (DECLARE: DONTEVAL@LOAD DONTCOPY EVAL@COMPILEWHEN (NEQ (COMPILEMODE) (QUOTE D)) (ADDVARS (DONTCOMPILEFNS MAKELFG COPYLFG DEMO/ LOADLFGDEMO))) (DECLARE: DONTEVAL@LOAD EVAL@COMPILE DONTCOPY (P (RESETSAVE DWIMIFYCOMPFLG T))) ( DECLARE: DOCOPY (DECLARE: EVAL@LOADWHEN (NEQ (EVALV (QUOTE LDFLG)) (QUOTE SYSLOAD)) (PROP DATABASE LOADLFG))) (LOCALVARS . T) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS ( NLAMA DEMO/) (NLAML) (LAMA))))) (RPAQQ DLFG.LISPUSERSFILES (TEDIT GRAPHER BROWSER)) (RPAQQ ENV.LISPUSERSFILES (SAMEDIR SHOW DATABASEFNS SINGLEFILEINDEX COMPILEBANG)) (RPAQQ FOOTPARSERFILES (BACKLINK REGEXP FSM GRAMMARFORMAT GRAMMARUSER LEXFORMAT GSP MORPHOLOGY STARTUP PRINTLFG)) (RPAQQ LFG.LISPUSERSFILES (LOADFILES SIMPLEFNS PERFORMTRAN DECL)) (RPAQQ 10LFG.LISPUSERSFILES (TTYINEDIT)) (RPAQQ 10LFGFILES NIL) (RPAQQ DLFGFILES (LFGWINDOWS DISPLAYENTITY LATDISPLAY)) (RPAQQ LFG.LISPUSERSFILES (LOADFILES SIMPLEFNS PERFORMTRAN DECL)) (RPAQQ LFGFILES (BACKLINK REGEXP FSM SOLVE GRAMMARFORMAT GRAMMARUSER LEXFORMAT GSP MORPHOLOGY STARTUP PRINTLFG SEMANTICS PRINTSEMANTICS ENGSEM)) (RPAQQ LFGSYSFILES (LOADLFG HOSTCHANGE SETUPTTYIN)) (RPAQ? LFGWINDOWLST) (RPAQQ DWIMIFYCOMPFLG T) (PUTPROPS LFGWINDOWLST VARTYPE ALIST) (ADDTOVAR AFTERSYSOUTFORMS (SETNM (QUOTE LFG))) (SETNM (QUOTE LFG)) (RPAQ? LFGINITFILENAME) (DECLARE: EVAL@LOADWHEN (NEQ (EVALV (QUOTE LDFLG)) (QUOTE SYSLOAD)) (PUTPROPS LOADLFG DATABASE NO)) (PRETTYCOMPRINT LOADFOOTPARSERCOMS) (RPAQQ LOADFOOTPARSERCOMS ((* This is the FOOTPARSER system description file. Loading it and executing (LOADFOOTPARSER) will create a new FOOTPARSER system.) (VARS DLFG.LISPUSERSFILES ENV.LISPUSERSFILES FOOTPARSERFILES LFG.LISPUSERSFILES 10LFG.LISPUSERSFILES) (VARS 10LFGFILES DLFGFILES LFG.LISPUSERSFILES LFGFILES LFGSYSFILES) (INITVARS (LFGWINDOWLST)) (VARS (DWIMIFYCOMPFLG T)) (PROP VARTYPE LFGWINDOWLST) (ADDVARS (AFTERSYSOUTFORMS (SETNM (QUOTE LFG)))) (P (SETNM (QUOTE LFG))) (* Loading LFG) (FNS LOADFOOTPARSER UPDATELFG) (INITVARS (LFGINITFILENAME)) (FNS CHANGEDFILES COMPLFG CURRENTLFG GETLFGFILES LISTLFG) (* LFG file manipulation utilities) (DECLARE: DONTEVAL@LOAD DONTCOPY EVAL@COMPILEWHEN (NEQ (COMPILEMODE) (QUOTE D)) (ADDVARS (DONTCOMPILEFNS MAKELFG COPYLFG DEMO/ LOADLFGDEMO))) (DECLARE: DONTEVAL@LOAD EVAL@COMPILE DONTCOPY (P (RESETSAVE DWIMIFYCOMPFLG T))) ( DECLARE: DOCOPY (DECLARE: EVAL@LOADWHEN (NEQ (EVALV (QUOTE LDFLG)) (QUOTE SYSLOAD)) (PROP DATABASE LOADLFG))) (LOCALVARS . T) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS ( NLAMA) (NLAML) (LAMA))))) (PUTPROPS LOADFOOTPARSER COPYRIGHT ("Xerox Corporation" 1984)) NIL