fix FILEPKG so that MAKEFILE(NEW) never references the 'previous version' and recompiles the whole file
This commit is contained in:
Larry Masinter
229
sources/FILEPKG
229
sources/FILEPKG
@@ -1,18 +1,15 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "18-Jul-2023 23:40:13" {WMEDLEY}<sources>FILEPKG.;50 274539
|
||||
(FILECREATED "30-Jan-2024 15:03:40" {DSK}<home>larry>il>medley>sources>FILEPKG.;5 277737
|
||||
|
||||
:EDIT-BY rmk
|
||||
:EDIT-BY "lmm"
|
||||
|
||||
:CHANGES-TO (FNS GATHEREXPORTS)
|
||||
:CHANGES-TO (FNS COMPILEFILES0 MAKEFILE-NEW MAKEFILE)
|
||||
(VARS FILEPKGCOMS)
|
||||
|
||||
:PREVIOUS-DATE "13-Jul-2023 14:56:21" {WMEDLEY}<sources>FILEPKG.;48)
|
||||
:PREVIOUS-DATE "18-Jul-2023 23:40:13" {DSK}<home>larry>il>medley>sources>FILEPKG.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1982-1993, 1995, 2018, 2022 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT FILEPKGCOMS)
|
||||
|
||||
(RPAQQ FILEPKGCOMS
|
||||
@@ -35,7 +32,7 @@ Copyright (c) 1982-1993, 1995, 2018, 2022 by Venue & Xerox Corporation.
|
||||
[COMS
|
||||
(* ;; "making, adding, listing, compiling files")
|
||||
|
||||
(FNS CLEANUP COMPILEFILES COMPILEFILES0 CONTINUEDIT MAKEFILE FILECHANGES
|
||||
(FNS CLEANUP COMPILEFILES COMPILEFILES0 CONTINUEDIT MAKEFILE MAKEFILE-NEW FILECHANGES
|
||||
FILEPKG.MERGECHANGES FILEPKG.CHANGEDFNS MAKEFILE1 COMPILE-FILE? MAKEFILES ADDFILE
|
||||
ADDFILE0 LISTFILES)
|
||||
(INITVARS (*DEFAULT-CLEANUP-COMPILER* 'CL:COMPILE-FILE)
|
||||
@@ -168,7 +165,7 @@ Copyright (c) 1982-1993, 1995, 2018, 2022 by Venue & Xerox Corporation.
|
||||
INFILECOMSVALS INFILEPAIRS INFILECOMSMACRO IFCPROPS IFCEXPRTYPE IFCPROPSCAN
|
||||
IFCDECLARE (LOCALFREEVARS NAME LITERALS VAL TYPE ONFILETYPE ORIGFLG)
|
||||
INFILECOMSPROP)
|
||||
(NIL MAKEFILE (LOCALVARS . T)
|
||||
(NIL MAKEFILE MAKEFILE-NEW (LOCALVARS . T)
|
||||
(SPECVARS FILE OPTIONS REPRINTFNS SOURCEFILE FILETYPE FILEDATES CHANGES))
|
||||
(ADDFILE ADDFILE ADDFILE0)
|
||||
(FILEPKGCHANGES FILEPKGCHANGES (NOLINKFNS . T))
|
||||
@@ -400,13 +397,13 @@ Copyright (c) 1982-1993, 1995, 2018, 2022 by Venue & Xerox Corporation.
|
||||
(T (COMPILEFILES0 FILES])
|
||||
|
||||
(COMPILEFILES0
|
||||
[LAMBDA (FILES OPTIONS) (* rmk%: "19-FEB-83 21:59")
|
||||
(for X OPTS (RCFLG _ T) on (OR FILES NOTCOMPILEDFILES) first (SETQ OPTS
|
||||
(SELECTQ (CAR (LISTP OPTIONS))
|
||||
(C (SETQ RCFLG NIL)
|
||||
(CDR OPTIONS))
|
||||
(RC (CDR OPTIONS))
|
||||
OPTIONS))
|
||||
[LAMBDA (FILES OPTIONS) (* ; "Edited 30-Jan-2024 15:03 by lmm")
|
||||
(* rmk%: "19-FEB-83 21:59")
|
||||
(for X OPTS RCFLG on (OR FILES NOTCOMPILEDFILES) first (SETQ OPTS (SELECTQ (CAR (LISTP OPTIONS))
|
||||
(C (SETQ RCFLG NIL)
|
||||
(CDR OPTIONS))
|
||||
(RC (CDR OPTIONS))
|
||||
OPTIONS))
|
||||
do (MAKEFILE1 (OR (MISSPELLED? (CAR X)
|
||||
70 FILELST NIL X)
|
||||
(CAR X))
|
||||
@@ -437,7 +434,8 @@ Copyright (c) 1982-1993, 1995, 2018, 2022 by Venue & Xerox Corporation.
|
||||
(RETURN FILE])
|
||||
|
||||
(MAKEFILE
|
||||
[LAMBDA (FILE OPTIONS REPRINTFNS SOURCEFILE) (* ; "Edited 10-Oct-2021 20:36 by rmk:")
|
||||
[LAMBDA (FILE OPTIONS REPRINTFNS SOURCEFILE) (* ; "Edited 30-Jan-2024 12:50 by lmm")
|
||||
(* ; "Edited 10-Oct-2021 20:36 by rmk:")
|
||||
(* ; "Edited 29-Jun-2021 17:24 by rmk:")
|
||||
|
||||
(* ;; "OPTIONS: FAST means dump with PRETTYFLG set to NIL; LIST means list the FILE; RC means RECOMPILE, C means COMPILEL; --- for C AND RC assume ST unless next option is F.")
|
||||
@@ -462,35 +460,14 @@ Copyright (c) 1982-1993, 1995, 2018, 2022 by Venue & Xerox Corporation.
|
||||
(SETQ CHANGES (fetch TOBEDUMPED of FILEPROP))
|
||||
(SETQ FILEDATES (LISTP (fetch FILEDATES of ROOTNAME)))
|
||||
(SETQ FILETYPE (GETPROP ROOTNAME 'FILETYPE))
|
||||
LP0 (if (AND (NULL (fetch LOADTYPE of FILEPROP))
|
||||
(if (AND (NULL (fetch LOADTYPE of FILEPROP))
|
||||
(NULL FILEDATES))
|
||||
then (* ;
|
||||
"File has never been loaded and never dumped i.e. user just set up COMS in core")
|
||||
elseif [OR (EQMEMB 'NEW OPTIONS)
|
||||
elseif [OR (MEMB 'NEW OPTIONS)
|
||||
(AND (NULL MAKEFILEREMAKEFLG)
|
||||
(NOT (MEMB 'REMAKE OPTIONS]
|
||||
then (COND
|
||||
((AND (fetch LOADTYPE of FILEPROP)
|
||||
(NEQ T (fetch LOADTYPE of FILEPROP)))
|
||||
(LISPXPRIN2 FILE T T)
|
||||
(LISPXPRIN1 (SELECTQ (fetch LOADTYPE of FILEPROP)
|
||||
(LOADCOMP "the file was loaded for compilation purposes only")
|
||||
((compiled Compiled COMPILED)
|
||||
" -- only the compiled file has been loaded
|
||||
")
|
||||
((loadfns LOADFNS)
|
||||
" -- only some of its symbolics have been loaded
|
||||
")
|
||||
(SHOULDNT))
|
||||
T)
|
||||
(COND
|
||||
((NEQ (ASKUSER DWIMWAIT 'Y "Go ahead and MAKEFILE anyway? ")
|
||||
'Y) (* ;
|
||||
"E.g. user loads a .com file and then resets the COMS or defines the functons by hand.")
|
||||
(GO OUT)))
|
||||
(/replace LOADTYPE of FILEPROP with NIL)))
|
||||
(SETQ SOURCEFILE NIL)
|
||||
(SETQ REPRINTFNS NIL)
|
||||
then (RETURN (MAKEFILE-NEW FILE OPTIONS))
|
||||
elseif SOURCEFILE
|
||||
then (* ; "source file given")
|
||||
elseif [AND FILEDATES (OR [AND (SETQ SOURCEFILE (FINDFILE ROOTNAME T))
|
||||
@@ -519,11 +496,7 @@ Copyright (c) 1982-1993, 1995, 2018, 2022 by Venue & Xerox Corporation.
|
||||
(LISPXPRIN2 FILE T T)
|
||||
(LISPXPRIN1 '", so it will have to be written anew
|
||||
" T)
|
||||
(SETQ SOURCEFILE NIL)
|
||||
(SETQ REPRINTFNS NIL)
|
||||
(push OPTIONS 'NEW)
|
||||
(SETQ CHANGES (fetch FILECHANGES of ROOTNAME))
|
||||
(GO LP0))
|
||||
(RETURN (MAKEFILE-NEW FILE OPTIONS)))
|
||||
(COND
|
||||
((AND SOURCEFILE (SETQ Z (SELECTQ (fetch LOADTYPE of FILEPROP)
|
||||
(LOADCOMP (* ;
|
||||
@@ -616,6 +589,76 @@ Copyright (c) 1982-1993, 1995, 2018, 2022 by Venue & Xerox Corporation.
|
||||
(RETURN FILE)
|
||||
OUT (RETURN (LIST FILE "-- MAKEFILE not performed."])
|
||||
|
||||
(MAKEFILE-NEW
|
||||
[LAMBDA (FILE OPTIONS) (* ; "Edited 30-Jan-2024 14:58 by lmm")
|
||||
(* ; "Edited 10-Oct-2021 20:36 by rmk:")
|
||||
(* ; "Edited 29-Jun-2021 17:24 by rmk:")
|
||||
|
||||
(* ;; "OPTIONS: FAST means dump with PRETTYFLG set to NIL; LIST means list the FILE; RC means RECOMPILE, C means COMPILEL; --- for C AND RC assume ST unless next option is F.")
|
||||
|
||||
(* ;; "RMK: OPTIONS can specify external format, either as a pair like (FORMAT :UTF-8) or just :UTF-8 where (FIND-FORMAT :UTF-8) is non NIL.")
|
||||
|
||||
[SETQ OPTIONS (for OPT inside OPTIONS collect (CL:IF (FIND-FORMAT OPT T)
|
||||
(LIST 'FORMAT OPT))]
|
||||
(PROG ((PRETTYFLG (AND (NOT (MEMB 'FAST OPTIONS))
|
||||
PRETTYFLG))
|
||||
(*PRINT-BASE* (if (EQ *PRINT-BASE* 8)
|
||||
then 8
|
||||
else (* ; "make sure radix is either 8 or 10, because all others don't read in like they print. Maybe obsolete now with makefile environments")
|
||||
10))
|
||||
FILETYPE ROOTNAME FILEPROP CHANGES FILEDATES (Z (ADDFILE FILE)))
|
||||
(DECLARE (CL:SPECIAL PRETTYFLG))
|
||||
(SETQ FILE (CAR Z)) (* ;
|
||||
"Necessary because FILE might have been misspelled.")
|
||||
(SETQ ROOTNAME (CADR Z)) (* ; "result of (ROOTFILENAME FILE), or if FILE is corrected, result of applying ROOTFILENAME to correct value.")
|
||||
(SETQ FILEPROP (CDDR Z))
|
||||
(UPDATEFILES) (* ; "Want updating done after file is added to filelst, so any functions that are being dumped are marked as having been dumped.")
|
||||
(SETQ CHANGES (fetch TOBEDUMPED of FILEPROP))
|
||||
(SETQ FILEDATES (LISTP (fetch FILEDATES of ROOTNAME)))
|
||||
(SETQ FILETYPE (GETPROP ROOTNAME 'FILETYPE))
|
||||
(RESETLST
|
||||
[COND
|
||||
((MEMB 'NOCLISP OPTIONS)
|
||||
(RESETSAVE PRETTYTRANFLG T))
|
||||
((MEMB 'CLISP% OPTIONS)
|
||||
(RESETSAVE PRETTYTRANFLG 'BOTH]
|
||||
(RESETSAVE %#UNDOSAVES)
|
||||
[COND
|
||||
((OR (MEMB 'CLISPIFY OPTIONS)
|
||||
(MEMB 'CLISP OPTIONS))
|
||||
(RESETSAVE CLISPIFYPRETTYFLG T))
|
||||
((OR (EQ FILETYPE 'CLISP)
|
||||
(MEMB 'CLISP (LISTP FILETYPE)))
|
||||
(RESETSAVE CLISPIFYPRETTYFLG 'CHANGES]
|
||||
(for X in MAKEFILEFORMS do (ERSETQ (EVAL X)))
|
||||
[SETQ FILE (PRETTYDEF NIL FILE (fetch COMSNAME of FILEPROP)
|
||||
T NIL CHANGES (CADR (ASSOC 'FORMAT OPTIONS])
|
||||
(SETQ LASTFILE ROOTNAME)
|
||||
(/replace TOBEDUMPED of FILEPROP with NIL)
|
||||
(COND
|
||||
((NOT (EQMEMB 'DON'TLIST FILETYPE))
|
||||
(pushnew NOTLISTEDFILES ROOTNAME)))
|
||||
(COND
|
||||
((NOT (EQMEMB 'DON'TCOMPILE FILETYPE))
|
||||
(pushnew NOTCOMPILEDFILES ROOTNAME)))
|
||||
[for TAIL OPT on OPTIONS do (SETQ OPT (CAR TAIL))
|
||||
(SELECTQ OPT
|
||||
((RC C)
|
||||
(AND (MEMB ROOTNAME NOTCOMPILEDFILES)
|
||||
(MAKEFILE1 FILE NIL (CDR TAIL))))
|
||||
(LIST (AND (MEMB ROOTNAME NOTLISTEDFILES)
|
||||
(APPLY 'LISTFILES (LIST FILE))))
|
||||
(COND
|
||||
((MEMB (CL:IF (LISTP OPT)
|
||||
(CAR OPT)
|
||||
OPT)
|
||||
MAKEFILEOPTIONS))
|
||||
((FIXSPELL OPT NIL MAKEFILEOPTIONS NIL OPTIONS)
|
||||
(GO $$LP))
|
||||
(T (ERROR "Unrecognized MAKEFILE option" OPT]
|
||||
(RETURN FILE)
|
||||
OUT (RETURN (LIST FILE "-- MAKEFILE not performed."])
|
||||
|
||||
(FILECHANGES
|
||||
[LAMBDA (FILE TYPE) (* ; "Edited 2-Mar-2022 15:43 by larry")
|
||||
(* bvm%: "30-Aug-86 15:08")
|
||||
@@ -3040,14 +3083,14 @@ compiling " T)
|
||||
|
||||
|
||||
(ADDTOVAR USERMACROS
|
||||
(M NIL (MAKE FILE FILE))
|
||||
(M (X . Y)
|
||||
(E (MARKASCHANGED (COND ((LISTP 'X)
|
||||
(CAR 'X))
|
||||
(T 'X))
|
||||
'USERMACROS)
|
||||
T)
|
||||
(ORIGINAL (M X . Y)))
|
||||
(M NIL (MAKE FILE FILE)))
|
||||
(ORIGINAL (M X . Y))))
|
||||
|
||||
(ADDTOVAR EDITMACROS
|
||||
(M (X . Y)
|
||||
@@ -4824,7 +4867,7 @@ compiling " T)
|
||||
(LOCALFREEVARS NAME LITERALS VAL TYPE ONFILETYPE ORIGFLG)
|
||||
INFILECOMSPROP)
|
||||
|
||||
(BLOCK%: NIL MAKEFILE (LOCALVARS . T)
|
||||
(BLOCK%: NIL MAKEFILE MAKEFILE-NEW (LOCALVARS . T)
|
||||
(SPECVARS FILE OPTIONS REPRINTFNS SOURCEFILE FILETYPE FILEDATES CHANGES))
|
||||
|
||||
(BLOCK%: ADDFILE ADDFILE ADDFILE0)
|
||||
@@ -4858,49 +4901,47 @@ compiling " T)
|
||||
|
||||
(ADDTOVAR LAMA FILEPKGTYPE FILEPKGCOM FILEPKGCHANGES)
|
||||
)
|
||||
(PUTPROPS FILEPKG COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1989 1990
|
||||
1991 1992 1993 1995 2018 2022))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (18975 20648 (SEARCHPRETTYTYPELST 18985 . 19954) (PRETTYDEFMACROS 19956 . 20392) (
|
||||
FILEPKGCOMPROPS 20394 . 20646)) (21461 55753 (CLEANUP 21471 . 22861) (COMPILEFILES 22863 . 23139) (
|
||||
COMPILEFILES0 23141 . 23954) (CONTINUEDIT 23956 . 25333) (MAKEFILE 25335 . 37061) (FILECHANGES 37063
|
||||
. 39827) (FILEPKG.MERGECHANGES 39829 . 40464) (FILEPKG.CHANGEDFNS 40466 . 40778) (MAKEFILE1 40780 .
|
||||
44992) (COMPILE-FILE? 44994 . 46581) (MAKEFILES 46583 . 48111) (ADDFILE 48113 . 50656) (ADDFILE0 50658
|
||||
. 54782) (LISTFILES 54784 . 55751)) (56425 90011 (FILEPKGCHANGES 56435 . 57614) (GETFILEPKGTYPE 57616
|
||||
. 60566) (MARKASCHANGED 60568 . 62199) (FILECOMS 62201 . 62585) (WHEREIS 62587 . 64116) (
|
||||
SMASHFILECOMS 64118 . 64346) (FILEFNSLST 64348 . 64514) (FILECOMSLST 64516 . 65002) (UPDATEFILES 65004
|
||||
. 69502) (INFILECOMS? 69504 . 71347) (INFILECOMTAIL 71349 . 72467) (INFILECOMS 72469 . 72630) (
|
||||
INFILECOM 72632 . 82650) (INFILECOMSVALS 82652 . 82959) (INFILECOMSVAL 82961 . 83969) (INFILECOMSPROP
|
||||
83971 . 84764) (IFCPROPS 84766 . 85846) (IFCEXPRTYPE 85848 . 86464) (IFCPROPSCAN 86466 . 87427) (
|
||||
IFCDECLARE 87429 . 88688) (INFILEPAIRS 88690 . 88989) (INFILECOMSMACRO 88991 . 90009)) (90046 120732 (
|
||||
FILES? 90056 . 92167) (FILES?1 92169 . 92871) (FILES?PRINTLST 92873 . 93655) (ADDTOFILES? 93657 .
|
||||
104200) (ADDTOFILE 104202 . 105118) (WHATIS 105120 . 107096) (ADDTOCOMS 107098 . 108636) (ADDTOCOM
|
||||
108638 . 115125) (ADDTOCOM1 115127 . 116298) (ADDNEWCOM 116300 . 117350) (MAKENEWCOM 117352 . 119199)
|
||||
(DEFAULTMAKENEWCOM 119201 . 120730)) (120802 123619 (MERGEINSERT 120812 . 123155) (MERGEINSERT1 123157
|
||||
. 123617)) (123773 125134 (ADDTOFILEKEYLST 123783 . 125132)) (125251 136052 (DELFROMFILES 125261 .
|
||||
126091) (DELFROMCOMS 126093 . 127772) (DELFROMCOM 127774 . 133539) (DELFROMCOM1 133541 . 134340) (
|
||||
REMOVEITEM 134342 . 135218) (MOVETOFILE 135220 . 136050)) (136266 138637 (SAVEPUT 136276 . 138635)) (
|
||||
138762 147005 (UNMARKASCHANGED 138772 . 140256) (PREEDITFN 140258 . 142739) (POSTEDITPROPS 142741 .
|
||||
145035) (POSTEDITALISTS 145037 . 147003)) (147150 166620 (ALISTS.GETDEF 147160 . 147539) (
|
||||
ALISTS.WHENCHANGED 147541 . 148187) (CLEARCLISPARRAY 148189 . 149367) (EXPRESSIONS.WHENCHANGED 149369
|
||||
. 149747) (MAKEALISTCOMS 149749 . 150764) (MAKEFILESCOMS 150766 . 152096) (MAKELISPXMACROSCOMS 152098
|
||||
. 154116) (MAKEPROPSCOMS 154118 . 154744) (MAKEUSERMACROSCOMS 154746 . 156563) (PROPS.WHENCHANGED
|
||||
156565 . 157186) (FILEGETDEF.LISPXMACROS 157188 . 158487) (FILEGETDEF.ALISTS 158489 . 159080) (
|
||||
FILEGETDEF.RECORDS 159082 . 160009) (FILEGETDEF.PROPS 160011 . 160806) (FILEGETDEF.MACROS 160808 .
|
||||
161690) (FILEGETDEF.VARS 161692 . 162295) (FILEGETDEF.FNS 162297 . 163537) (FILEPKGCOMS.PUTDEF 163539
|
||||
. 165481) (FILES.PUTDEF 165483 . 166351) (VARS.PUTDEF 166353 . 166496) (FILES.WHENCHANGED 166498 .
|
||||
166618)) (168642 175873 (RENAME 168652 . 170097) (CHANGECALLERS 170099 . 175871)) (175874 223783 (
|
||||
SHOWDEF 175884 . 177081) (COPYDEF 177083 . 179831) (GETDEF 179833 . 182376) (GETDEFCOM 182378 . 183344
|
||||
) (GETDEFCOM0 183346 . 184539) (GETDEFCURRENT 184541 . 190853) (GETDEFERR 190855 . 192125) (
|
||||
GETDEFFROMFILE 192127 . 196356) (GETDEFSAVED 196358 . 197446) (PUTDEF 197448 . 198155) (EDITDEF 198157
|
||||
. 199140) (DEFAULT.EDITDEF 199142 . 201980) (EDITDEF.FILES 201982 . 202187) (LOADDEF 202189 . 202365)
|
||||
(DWIMDEF 202367 . 203221) (DELDEF 203223 . 206117) (DELFROMLIST 206119 . 206623) (HASDEF 206625 .
|
||||
212862) (GETFILEDEF 212864 . 213376) (SAVEDEF 213378 . 215066) (UNSAVEDEF 215068 . 215964) (
|
||||
COMPAREDEFS 215966 . 219772) (COMPARE 219774 . 220478) (TYPESOF 220480 . 223781)) (223933 232181 (
|
||||
FILEPKGCOM 223943 . 228719) (FILEPKGTYPE 228721 . 232179)) (244214 261689 (FINDCALLERS 244224 . 244854
|
||||
) (EDITCALLERS 244856 . 255573) (EDITFROMFILE 255575 . 261004) (FINDATS 261006 . 261278) (LOOKIN
|
||||
261280 . 261687)) (261690 263361 (SEPRCASE 261700 . 263359)) (263878 268881 (IMPORTFILE 263888 .
|
||||
264858) (IMPORTEVAL 264860 . 265746) (IMPORTFILESCAN 265748 . 266161) (CHECKIMPORTS 266163 . 267419) (
|
||||
GATHEREXPORTS 267421 . 268289) (\DUMPEXPORTS 268291 . 268879)) (269219 271289 (CLEARFILEPKG 269229 .
|
||||
271287)))))
|
||||
(FILEMAP (NIL (19011 20684 (SEARCHPRETTYTYPELST 19021 . 19990) (PRETTYDEFMACROS 19992 . 20428) (
|
||||
FILEPKGCOMPROPS 20430 . 20682)) (21497 59073 (CLEANUP 21507 . 22897) (COMPILEFILES 22899 . 23175) (
|
||||
COMPILEFILES0 23177 . 24043) (CONTINUEDIT 24045 . 25422) (MAKEFILE 25424 . 35874) (MAKEFILE-NEW 35876
|
||||
. 40381) (FILECHANGES 40383 . 43147) (FILEPKG.MERGECHANGES 43149 . 43784) (FILEPKG.CHANGEDFNS 43786
|
||||
. 44098) (MAKEFILE1 44100 . 48312) (COMPILE-FILE? 48314 . 49901) (MAKEFILES 49903 . 51431) (ADDFILE
|
||||
51433 . 53976) (ADDFILE0 53978 . 58102) (LISTFILES 58104 . 59071)) (59745 93331 (FILEPKGCHANGES 59755
|
||||
. 60934) (GETFILEPKGTYPE 60936 . 63886) (MARKASCHANGED 63888 . 65519) (FILECOMS 65521 . 65905) (
|
||||
WHEREIS 65907 . 67436) (SMASHFILECOMS 67438 . 67666) (FILEFNSLST 67668 . 67834) (FILECOMSLST 67836 .
|
||||
68322) (UPDATEFILES 68324 . 72822) (INFILECOMS? 72824 . 74667) (INFILECOMTAIL 74669 . 75787) (
|
||||
INFILECOMS 75789 . 75950) (INFILECOM 75952 . 85970) (INFILECOMSVALS 85972 . 86279) (INFILECOMSVAL
|
||||
86281 . 87289) (INFILECOMSPROP 87291 . 88084) (IFCPROPS 88086 . 89166) (IFCEXPRTYPE 89168 . 89784) (
|
||||
IFCPROPSCAN 89786 . 90747) (IFCDECLARE 90749 . 92008) (INFILEPAIRS 92010 . 92309) (INFILECOMSMACRO
|
||||
92311 . 93329)) (93366 124052 (FILES? 93376 . 95487) (FILES?1 95489 . 96191) (FILES?PRINTLST 96193 .
|
||||
96975) (ADDTOFILES? 96977 . 107520) (ADDTOFILE 107522 . 108438) (WHATIS 108440 . 110416) (ADDTOCOMS
|
||||
110418 . 111956) (ADDTOCOM 111958 . 118445) (ADDTOCOM1 118447 . 119618) (ADDNEWCOM 119620 . 120670) (
|
||||
MAKENEWCOM 120672 . 122519) (DEFAULTMAKENEWCOM 122521 . 124050)) (124122 126939 (MERGEINSERT 124132 .
|
||||
126475) (MERGEINSERT1 126477 . 126937)) (127093 128454 (ADDTOFILEKEYLST 127103 . 128452)) (128571
|
||||
139372 (DELFROMFILES 128581 . 129411) (DELFROMCOMS 129413 . 131092) (DELFROMCOM 131094 . 136859) (
|
||||
DELFROMCOM1 136861 . 137660) (REMOVEITEM 137662 . 138538) (MOVETOFILE 138540 . 139370)) (139586 141957
|
||||
(SAVEPUT 139596 . 141955)) (142082 150325 (UNMARKASCHANGED 142092 . 143576) (PREEDITFN 143578 .
|
||||
146059) (POSTEDITPROPS 146061 . 148355) (POSTEDITALISTS 148357 . 150323)) (150470 169940 (
|
||||
ALISTS.GETDEF 150480 . 150859) (ALISTS.WHENCHANGED 150861 . 151507) (CLEARCLISPARRAY 151509 . 152687)
|
||||
(EXPRESSIONS.WHENCHANGED 152689 . 153067) (MAKEALISTCOMS 153069 . 154084) (MAKEFILESCOMS 154086 .
|
||||
155416) (MAKELISPXMACROSCOMS 155418 . 157436) (MAKEPROPSCOMS 157438 . 158064) (MAKEUSERMACROSCOMS
|
||||
158066 . 159883) (PROPS.WHENCHANGED 159885 . 160506) (FILEGETDEF.LISPXMACROS 160508 . 161807) (
|
||||
FILEGETDEF.ALISTS 161809 . 162400) (FILEGETDEF.RECORDS 162402 . 163329) (FILEGETDEF.PROPS 163331 .
|
||||
164126) (FILEGETDEF.MACROS 164128 . 165010) (FILEGETDEF.VARS 165012 . 165615) (FILEGETDEF.FNS 165617
|
||||
. 166857) (FILEPKGCOMS.PUTDEF 166859 . 168801) (FILES.PUTDEF 168803 . 169671) (VARS.PUTDEF 169673 .
|
||||
169816) (FILES.WHENCHANGED 169818 . 169938)) (171962 179193 (RENAME 171972 . 173417) (CHANGECALLERS
|
||||
173419 . 179191)) (179194 227103 (SHOWDEF 179204 . 180401) (COPYDEF 180403 . 183151) (GETDEF 183153 .
|
||||
185696) (GETDEFCOM 185698 . 186664) (GETDEFCOM0 186666 . 187859) (GETDEFCURRENT 187861 . 194173) (
|
||||
GETDEFERR 194175 . 195445) (GETDEFFROMFILE 195447 . 199676) (GETDEFSAVED 199678 . 200766) (PUTDEF
|
||||
200768 . 201475) (EDITDEF 201477 . 202460) (DEFAULT.EDITDEF 202462 . 205300) (EDITDEF.FILES 205302 .
|
||||
205507) (LOADDEF 205509 . 205685) (DWIMDEF 205687 . 206541) (DELDEF 206543 . 209437) (DELFROMLIST
|
||||
209439 . 209943) (HASDEF 209945 . 216182) (GETFILEDEF 216184 . 216696) (SAVEDEF 216698 . 218386) (
|
||||
UNSAVEDEF 218388 . 219284) (COMPAREDEFS 219286 . 223092) (COMPARE 223094 . 223798) (TYPESOF 223800 .
|
||||
227101)) (227253 235501 (FILEPKGCOM 227263 . 232039) (FILEPKGTYPE 232041 . 235499)) (247534 265009 (
|
||||
FINDCALLERS 247544 . 248174) (EDITCALLERS 248176 . 258893) (EDITFROMFILE 258895 . 264324) (FINDATS
|
||||
264326 . 264598) (LOOKIN 264600 . 265007)) (265010 266681 (SEPRCASE 265020 . 266679)) (267198 272201 (
|
||||
IMPORTFILE 267208 . 268178) (IMPORTEVAL 268180 . 269066) (IMPORTFILESCAN 269068 . 269481) (
|
||||
CHECKIMPORTS 269483 . 270739) (GATHEREXPORTS 270741 . 271609) (\DUMPEXPORTS 271611 . 272199)) (272539
|
||||
274609 (CLEARFILEPKG 272549 . 274607)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user