Compare commits
1 Commits
makefile-n
...
mth3--Exte
| Author | SHA1 | Date | |
|---|---|---|---|
|
7f9eb4d0ff |
149
sources/FILEPKG
149
sources/FILEPKG
@@ -1,15 +1,18 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "18-Apr-2024 12:53:26" {DSK}<home>larry>il>medley>sources>FILEPKG.;53 273166
|
||||
(FILECREATED "18-Jul-2023 23:40:13" {WMEDLEY}<sources>FILEPKG.;50 274539
|
||||
|
||||
:EDIT-BY "lmm"
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (VARS FILEPKGCOMS)
|
||||
(FNS MAKEFILE)
|
||||
:CHANGES-TO (FNS GATHEREXPORTS)
|
||||
|
||||
:PREVIOUS-DATE "18-Apr-2024 12:33:38" {DSK}<home>larry>il>medley>sources>FILEPKG.;52)
|
||||
:PREVIOUS-DATE "13-Jul-2023 14:56:21" {WMEDLEY}<sources>FILEPKG.;48)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1982-1993, 1995, 2018, 2022 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT FILEPKGCOMS)
|
||||
|
||||
(RPAQQ FILEPKGCOMS
|
||||
@@ -397,13 +400,13 @@
|
||||
(T (COMPILEFILES0 FILES])
|
||||
|
||||
(COMPILEFILES0
|
||||
[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))
|
||||
[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))
|
||||
do (MAKEFILE1 (OR (MISSPELLED? (CAR X)
|
||||
70 FILELST NIL X)
|
||||
(CAR X))
|
||||
@@ -434,8 +437,7 @@
|
||||
(RETURN FILE])
|
||||
|
||||
(MAKEFILE
|
||||
[LAMBDA (FILE OPTIONS REPRINTFNS SOURCEFILE) (* ; "Edited 30-Jan-2024 12:50 by lmm")
|
||||
(* ; "Edited 10-Oct-2021 20:36 by rmk:")
|
||||
[LAMBDA (FILE OPTIONS REPRINTFNS SOURCEFILE) (* ; "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.")
|
||||
@@ -460,14 +462,35 @@
|
||||
(SETQ CHANGES (fetch TOBEDUMPED of FILEPROP))
|
||||
(SETQ FILEDATES (LISTP (fetch FILEDATES of ROOTNAME)))
|
||||
(SETQ FILETYPE (GETPROP ROOTNAME 'FILETYPE))
|
||||
(if (AND (NULL (fetch LOADTYPE of FILEPROP))
|
||||
LP0 (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 (MEMB 'NEW OPTIONS)
|
||||
elseif [OR (EQMEMB 'NEW OPTIONS)
|
||||
(AND (NULL MAKEFILEREMAKEFLG)
|
||||
(NOT (MEMB 'REMAKE OPTIONS]
|
||||
then (RETURN (MAKEFILE-NEW FILE 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)
|
||||
elseif SOURCEFILE
|
||||
then (* ; "source file given")
|
||||
elseif [AND FILEDATES (OR [AND (SETQ SOURCEFILE (FINDFILE ROOTNAME T))
|
||||
@@ -496,7 +519,11 @@
|
||||
(LISPXPRIN2 FILE T T)
|
||||
(LISPXPRIN1 '", so it will have to be written anew
|
||||
" T)
|
||||
(RETURN (MAKEFILE-NEW FILE OPTIONS)))
|
||||
(SETQ SOURCEFILE NIL)
|
||||
(SETQ REPRINTFNS NIL)
|
||||
(push OPTIONS 'NEW)
|
||||
(SETQ CHANGES (fetch FILECHANGES of ROOTNAME))
|
||||
(GO LP0))
|
||||
(COND
|
||||
((AND SOURCEFILE (SETQ Z (SELECTQ (fetch LOADTYPE of FILEPROP)
|
||||
(LOADCOMP (* ;
|
||||
@@ -4831,47 +4858,49 @@ 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 (18960 20633 (SEARCHPRETTYTYPELST 18970 . 19939) (PRETTYDEFMACROS 19941 . 20377) (
|
||||
FILEPKGCOMPROPS 20379 . 20631)) (21446 54515 (CLEANUP 21456 . 22846) (COMPILEFILES 22848 . 23124) (
|
||||
COMPILEFILES0 23126 . 23992) (CONTINUEDIT 23994 . 25371) (MAKEFILE 25373 . 35823) (FILECHANGES 35825
|
||||
. 38589) (FILEPKG.MERGECHANGES 38591 . 39226) (FILEPKG.CHANGEDFNS 39228 . 39540) (MAKEFILE1 39542 .
|
||||
43754) (COMPILE-FILE? 43756 . 45343) (MAKEFILES 45345 . 46873) (ADDFILE 46875 . 49418) (ADDFILE0 49420
|
||||
. 53544) (LISTFILES 53546 . 54513)) (55187 88773 (FILEPKGCHANGES 55197 . 56376) (GETFILEPKGTYPE 56378
|
||||
. 59328) (MARKASCHANGED 59330 . 60961) (FILECOMS 60963 . 61347) (WHEREIS 61349 . 62878) (
|
||||
SMASHFILECOMS 62880 . 63108) (FILEFNSLST 63110 . 63276) (FILECOMSLST 63278 . 63764) (UPDATEFILES 63766
|
||||
. 68264) (INFILECOMS? 68266 . 70109) (INFILECOMTAIL 70111 . 71229) (INFILECOMS 71231 . 71392) (
|
||||
INFILECOM 71394 . 81412) (INFILECOMSVALS 81414 . 81721) (INFILECOMSVAL 81723 . 82731) (INFILECOMSPROP
|
||||
82733 . 83526) (IFCPROPS 83528 . 84608) (IFCEXPRTYPE 84610 . 85226) (IFCPROPSCAN 85228 . 86189) (
|
||||
IFCDECLARE 86191 . 87450) (INFILEPAIRS 87452 . 87751) (INFILECOMSMACRO 87753 . 88771)) (88808 119494 (
|
||||
FILES? 88818 . 90929) (FILES?1 90931 . 91633) (FILES?PRINTLST 91635 . 92417) (ADDTOFILES? 92419 .
|
||||
102962) (ADDTOFILE 102964 . 103880) (WHATIS 103882 . 105858) (ADDTOCOMS 105860 . 107398) (ADDTOCOM
|
||||
107400 . 113887) (ADDTOCOM1 113889 . 115060) (ADDNEWCOM 115062 . 116112) (MAKENEWCOM 116114 . 117961)
|
||||
(DEFAULTMAKENEWCOM 117963 . 119492)) (119564 122381 (MERGEINSERT 119574 . 121917) (MERGEINSERT1 121919
|
||||
. 122379)) (122535 123896 (ADDTOFILEKEYLST 122545 . 123894)) (124013 134814 (DELFROMFILES 124023 .
|
||||
124853) (DELFROMCOMS 124855 . 126534) (DELFROMCOM 126536 . 132301) (DELFROMCOM1 132303 . 133102) (
|
||||
REMOVEITEM 133104 . 133980) (MOVETOFILE 133982 . 134812)) (135028 137399 (SAVEPUT 135038 . 137397)) (
|
||||
137524 145767 (UNMARKASCHANGED 137534 . 139018) (PREEDITFN 139020 . 141501) (POSTEDITPROPS 141503 .
|
||||
143797) (POSTEDITALISTS 143799 . 145765)) (145912 165382 (ALISTS.GETDEF 145922 . 146301) (
|
||||
ALISTS.WHENCHANGED 146303 . 146949) (CLEARCLISPARRAY 146951 . 148129) (EXPRESSIONS.WHENCHANGED 148131
|
||||
. 148509) (MAKEALISTCOMS 148511 . 149526) (MAKEFILESCOMS 149528 . 150858) (MAKELISPXMACROSCOMS 150860
|
||||
. 152878) (MAKEPROPSCOMS 152880 . 153506) (MAKEUSERMACROSCOMS 153508 . 155325) (PROPS.WHENCHANGED
|
||||
155327 . 155948) (FILEGETDEF.LISPXMACROS 155950 . 157249) (FILEGETDEF.ALISTS 157251 . 157842) (
|
||||
FILEGETDEF.RECORDS 157844 . 158771) (FILEGETDEF.PROPS 158773 . 159568) (FILEGETDEF.MACROS 159570 .
|
||||
160452) (FILEGETDEF.VARS 160454 . 161057) (FILEGETDEF.FNS 161059 . 162299) (FILEPKGCOMS.PUTDEF 162301
|
||||
. 164243) (FILES.PUTDEF 164245 . 165113) (VARS.PUTDEF 165115 . 165258) (FILES.WHENCHANGED 165260 .
|
||||
165380)) (167404 174635 (RENAME 167414 . 168859) (CHANGECALLERS 168861 . 174633)) (174636 222545 (
|
||||
SHOWDEF 174646 . 175843) (COPYDEF 175845 . 178593) (GETDEF 178595 . 181138) (GETDEFCOM 181140 . 182106
|
||||
) (GETDEFCOM0 182108 . 183301) (GETDEFCURRENT 183303 . 189615) (GETDEFERR 189617 . 190887) (
|
||||
GETDEFFROMFILE 190889 . 195118) (GETDEFSAVED 195120 . 196208) (PUTDEF 196210 . 196917) (EDITDEF 196919
|
||||
. 197902) (DEFAULT.EDITDEF 197904 . 200742) (EDITDEF.FILES 200744 . 200949) (LOADDEF 200951 . 201127)
|
||||
(DWIMDEF 201129 . 201983) (DELDEF 201985 . 204879) (DELFROMLIST 204881 . 205385) (HASDEF 205387 .
|
||||
211624) (GETFILEDEF 211626 . 212138) (SAVEDEF 212140 . 213828) (UNSAVEDEF 213830 . 214726) (
|
||||
COMPAREDEFS 214728 . 218534) (COMPARE 218536 . 219240) (TYPESOF 219242 . 222543)) (222695 230943 (
|
||||
FILEPKGCOM 222705 . 227481) (FILEPKGTYPE 227483 . 230941)) (242976 260451 (FINDCALLERS 242986 . 243616
|
||||
) (EDITCALLERS 243618 . 254335) (EDITFROMFILE 254337 . 259766) (FINDATS 259768 . 260040) (LOOKIN
|
||||
260042 . 260449)) (260452 262123 (SEPRCASE 260462 . 262121)) (262640 267643 (IMPORTFILE 262650 .
|
||||
263620) (IMPORTEVAL 263622 . 264508) (IMPORTFILESCAN 264510 . 264923) (CHECKIMPORTS 264925 . 266181) (
|
||||
GATHEREXPORTS 266183 . 267051) (\DUMPEXPORTS 267053 . 267641)) (267981 270051 (CLEARFILEPKG 267991 .
|
||||
270049)))))
|
||||
(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)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
159
sources/PRETTY
159
sources/PRETTY
@@ -1,16 +1,16 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 8-Feb-2023 16:21:26" {DSK}<home>larry>il>medley>sources>PRETTY.;3 65500
|
||||
(FILECREATED " 2-Feb-2024 17:54:23" {DSK}<mnt>e>Interlisp>medley>sources>PRETTY.;2 66897
|
||||
|
||||
:EDIT-BY "lmm"
|
||||
:EDIT-BY "mth"
|
||||
|
||||
:CHANGES-TO (FNS PRINTDATE1)
|
||||
:CHANGES-TO (FNS PRINTCOPYRIGHT1 PRINTCOPYRIGHT)
|
||||
|
||||
:PREVIOUS-DATE "19-Jan-2022 20:35:18" {DSK}<home>larry>il>medley>sources>PRETTY.;1)
|
||||
:PREVIOUS-DATE " 8-Feb-2023 16:21:26" {DSK}<mnt>e>Interlisp>medley>sources>PRETTY.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1984-1990, 1999, 2018, 2023 by Venue & Xerox Corporation.
|
||||
Copyright (c) 1984-1990, 1999, 2018, 2023-2024 by Venue & Xerox Corporation.
|
||||
The following program was created in 1984 but has not been published
|
||||
within the meaning of the copyright law, is furnished under license,
|
||||
and may not be used, copied and/or disclosed except in accordance
|
||||
@@ -491,14 +491,15 @@ must replace the declare: by a nop addvars.") (SETQ PRTTYCOM (SUBPAIR (QUOTE (NL
|
||||
(DEFINEQ
|
||||
|
||||
(PRINTCOPYRIGHT
|
||||
[LAMBDA (FILENAME) (* ; "Edited 11-Sep-2021 09:07 by larry")
|
||||
(* ; "Edited 31-Aug-99 09:01 by rmk:")
|
||||
[LAMBDA (FILENAME) (* ; "Edited 2-Feb-2024 17:18 by mth")
|
||||
(* ; "Edited 11-Sep-2021 09:07 by larry")
|
||||
(* ; "Edited 31-Aug-99 09:01 by rmk:")
|
||||
(* edited%: " 1-Jan-85 20:16")
|
||||
|
||||
(* ;;; "CALLED BY PRETTYDEF TO PUT a copyright notice on a file. The globalvar COPYRIGHTOWNERS is used to determine the possible copyright owners when it is determined the file doesn't have a copyright yet and has never been asked if the programmer wanted one. The whole copyright mechanism can be turned off by setting COPYRIGHTFLG to NEVER -- originaly NIL. If the file is copyrighted, any year the file is editted the new year is tacked on to the list of copyright years. The copyright notice comes immediately after the FILECREATED expression ")
|
||||
|
||||
(* ;;
|
||||
"9/10/2021 LMM: Add COPYRIGHTFLG value PRESERVE meaning no new copyright (or year) but retain old")
|
||||
"9/10/2021 LMM: Add COPYRIGHTFLG value PRESERVE meaning no new copyright (or year) but retain old")
|
||||
|
||||
(PROG [(OWNER (GETPROP FILENAME 'COPYRIGHT]
|
||||
(AND [OR OWNER
|
||||
@@ -520,14 +521,14 @@ must replace the declare: by a nop addvars.") (SETQ PRTTYCOM (SUBPAIR (QUOTE (NL
|
||||
(CADR X)
|
||||
'CONFIRMFLG T]
|
||||
(CONS (if (SETQ OWNER (ASSOC DEFAULTCOPYRIGHTOWNER
|
||||
COPYRIGHTOWNERS))
|
||||
COPYRIGHTOWNERS))
|
||||
then (LIST (CONSTANT (CHARACTER (CHARCODE LF)))
|
||||
(CONCAT DEFAULTCOPYRIGHTOWNER "
|
||||
(CONCAT DEFAULTCOPYRIGHTOWNER "
|
||||
")
|
||||
'EXPLAINSTRING
|
||||
(CONCAT "<LF> - " (CADR OWNER)
|
||||
" [Default]")
|
||||
'NOECHOFLG T 'RETURN (CADR OWNER))
|
||||
'EXPLAINSTRING
|
||||
(CONCAT "<LF> - " (CADR OWNER)
|
||||
" [Default]")
|
||||
'NOECHOFLG T 'RETURN (CADR OWNER))
|
||||
else '(%
|
||||
"No copyright notice now
|
||||
" EXPLAINSTRING "<LF> - no copyright notice now [Default]" NOECHOFLG T RETURN NIL))
|
||||
@@ -537,67 +538,85 @@ must replace the declare: by a nop addvars.") (SETQ PRTTYCOM (SUBPAIR (QUOTE (NL
|
||||
(COND
|
||||
((NEQ (CAR OWNER)
|
||||
'NONE)
|
||||
(PROG ((CURRENTYEAR (SUBATOM (DATE (DATEFORMAT YEAR.LONG NO.TIME))
|
||||
-4 -1)))
|
||||
[PROG ((CURRENTYEAR (SUBATOM (DATE (DATEFORMAT YEAR.LONG NO.TIME))
|
||||
-4 -1))
|
||||
LATESTOWNER)
|
||||
|
||||
(* ;; " see github Interlisp/medley issue #207 (lmm 9/11/2021)")
|
||||
|
||||
(OR (EQ COPYRIGHTFLG 'PRESERVE)
|
||||
(MEMBER CURRENTYEAR (CDR OWNER))
|
||||
(NCONC1 OWNER CURRENTYEAR)))
|
||||
(if (NEQ COPYRIGHTFLG 'PRESERVE)
|
||||
then (if (LISTP (CAR OWNER))
|
||||
then (SETQ LATESTOWNER (CAR (LAST OWNER)))
|
||||
else (SETQ LATESTOWNER OWNER))
|
||||
(if (NEQ CURRENTYEAR (CAR (LAST LATESTOWNER)))
|
||||
then (NCONC1 LATESTOWNER CURRENTYEAR]
|
||||
(PRINTCOPYRIGHT1 OWNER])
|
||||
|
||||
(PRINTCOPYRIGHT1
|
||||
[LAMBDA (OWNER) (* ; "Edited 21-Feb-2021 10:58 by rmk:")
|
||||
(* ; "Edited 6-Apr-90 10:36 by jds")
|
||||
(PROG ((DATES (CDR OWNER))
|
||||
(SEMICOLON (AND (READTABLEPROP *READTABLE* 'COMMONLISP)
|
||||
"; "))
|
||||
(PRIVATE NIL))
|
||||
[LAMBDA (OWNER) (* ; "Edited 2-Feb-2024 17:45 by mth")
|
||||
(* ; "Edited 21-Feb-2021 10:58 by rmk:")
|
||||
(* ; "Edited 6-Apr-90 10:36 by jds")
|
||||
(PROG (DATES CREATEDYEAR (SEMICOLON (AND (READTABLEPROP *READTABLE* 'COMMONLISP)
|
||||
"; "))
|
||||
(PRIVATE NIL))
|
||||
(if (NOT (LISTP (CAR OWNER)))
|
||||
then (SETQ OWNER (LIST OWNER)) (* ;
|
||||
"Make the old format into the new format")
|
||||
)
|
||||
(COND
|
||||
((EQ (CAR DATES)
|
||||
T)
|
||||
(SETQ PRIVATE T)
|
||||
(pop DATES)))
|
||||
(COND
|
||||
(SEMICOLON (* ; "do CommonLisp style comment")
|
||||
(SEMICOLON (* ; "do CommonLisp style comment")
|
||||
(PRIN1 SEMICOLON))
|
||||
(T (* ;
|
||||
"Print IL-style comment, with a ; in it so the pretty printer will render it as a CL-style comment.")
|
||||
(T (* ;
|
||||
"Print IL-style comment, with a ; in it so the pretty printer will render it as a CL-style comment.")
|
||||
(printout NIL "(* ; %"" T)))
|
||||
(PRIN3 "Copyright (c) ")
|
||||
[for Y START END on DATES do (* ;
|
||||
"print years of copyright, e.g., 1985, 1986. Print intervals for successive years")
|
||||
(SETQ START (SETQ END (CAR Y)))
|
||||
(FOR NEXT IN (CDR Y)
|
||||
WHILE (EQ (ADD1 END)
|
||||
NEXT) DO (SETQ END NEXT)
|
||||
(POP Y))
|
||||
(PRIN3 START)
|
||||
(CL:UNLESS (EQ START END)
|
||||
(PRIN3 "-")
|
||||
(PRIN3 END))
|
||||
(COND
|
||||
((CDR Y)
|
||||
(PRIN3 ", "]
|
||||
(PRIN3 " by ")
|
||||
(PRIN3 (CAR OWNER))
|
||||
(PRIN3 ".")
|
||||
(for OT O on OWNER do [SETQ DATES (CDR (SETQ O (CAR OT]
|
||||
(COND
|
||||
((EQ (CAR DATES)
|
||||
T)
|
||||
(SETQ PRIVATE T)
|
||||
(pop DATES)))
|
||||
[for Y START END on DATES
|
||||
do (* ;
|
||||
"print years of copyright, e.g., 1985, 1986. Print intervals for successive years")
|
||||
(SETQ START (SETQ END (CAR Y)))
|
||||
|
||||
(* ;;
|
||||
"For the PRIVATE notice below. It is always the EARLIEST year")
|
||||
|
||||
(SETQ CREATEDYEAR (OR CREATEDYEAR START))
|
||||
(for NEXT in (CDR Y) while (EQ (ADD1 END)
|
||||
NEXT) do (SETQ END NEXT)
|
||||
(pop Y))
|
||||
(PRIN3 START)
|
||||
(CL:UNLESS (EQ START END)
|
||||
(PRIN3 "-")
|
||||
(PRIN3 END))
|
||||
(COND
|
||||
((CDR Y)
|
||||
(PRIN3 ", "]
|
||||
(PRIN3 " by ")
|
||||
(PRIN3 (CAR O))
|
||||
(PRIN3 ".")
|
||||
(if (CDR OT)
|
||||
then (TERPRI)
|
||||
(COND
|
||||
(SEMICOLON (PRIN1 SEMICOLON)))
|
||||
(PRIN3 " And ")))
|
||||
(AND COPYRIGHTSRESERVED (PRIN3 " All rights reserved."))
|
||||
(TERPRI)
|
||||
[COND
|
||||
(PRIVATE (for LINE in (CONS (CONCAT "The following program was created in "
|
||||
(CAR DATES)
|
||||
" but has not been published")
|
||||
'(
|
||||
(PRIVATE (for LINE in (CONS (CONCAT "The following program was created in " (CAR DATES)
|
||||
" but has not been published")
|
||||
'(
|
||||
"within the meaning of the copyright law, is furnished under license,"
|
||||
|
||||
|
||||
"and may not be used, copied and/or disclosed except in accordance"
|
||||
"with the terms of said license."))
|
||||
"with the terms of said license."))
|
||||
do (COND
|
||||
(SEMICOLON (PRIN1 SEMICOLON)))
|
||||
(PRIN3 LINE)
|
||||
(TERPRI]
|
||||
(SEMICOLON (PRIN1 SEMICOLON)))
|
||||
(PRIN3 LINE)
|
||||
(TERPRI]
|
||||
(COND
|
||||
((NOT SEMICOLON)
|
||||
(PRIN3 "%")")
|
||||
@@ -730,16 +749,16 @@ must replace the declare: by a nop addvars.") (SETQ PRTTYCOM (SUBPAIR (QUOTE (NL
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(PUTPROPS PRETTY COPYRIGHT ("Venue & Xerox Corporation" T 1984 1985 1986 1987 1988 1989 1990 1999 2018
|
||||
2023))
|
||||
2023 2024))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (5917 48569 (PRETTYDEF 5927 . 21600) (PRETTYDEFCOMS 21602 . 22284) (PRETTYDEF0 22286 .
|
||||
22477) (PRETTYDEF1 22479 . 24242) (PRINTDATE 24244 . 25480) (PRINTDATE1 25482 . 27260) (PRINTFNS 27262
|
||||
. 27831) (PRETTYCOM 27833 . 34174) (PRETTYVAR 34176 . 35214) (PRETTYVAR1 35216 . 37434) (PRETTYCOM1
|
||||
37436 . 38140) (ENDFILE 38142 . 38238) (MAKEDEFLIST 38240 . 38644) (PP 38646 . 38922) (PP* 38924 .
|
||||
39237) (PPT 39239 . 39558) (PRETTYPRINT 39560 . 42712) (PRETTYPRINT1 42714 . 44600) (PRETTYPRINT2
|
||||
44602 . 45918) (PRETTYPRINT3 45920 . 46875) (PRINTDEF1 46877 . 47813) (SUPERPRINTEQ 47815 . 47909) (
|
||||
SUPERPRINTGETPROP 47911 . 48055) (CHANGEFONT 48057 . 48567)) (48570 53916 (READARRAY 48580 . 49506) (
|
||||
PRINTARRAY 49508 . 51248) (READARRAY-FROM-LIST 51250 . 52355) (PRINTARRAY-TO-LIST 52357 . 53914)) (
|
||||
54043 61561 (PRINTCOPYRIGHT 54053 . 58130) (PRINTCOPYRIGHT1 58132 . 61256) (SAVECOPYRIGHT 61258 .
|
||||
61559)))))
|
||||
(FILEMAP (NIL (5946 48598 (PRETTYDEF 5956 . 21629) (PRETTYDEFCOMS 21631 . 22313) (PRETTYDEF0 22315 .
|
||||
22506) (PRETTYDEF1 22508 . 24271) (PRINTDATE 24273 . 25509) (PRINTDATE1 25511 . 27289) (PRINTFNS 27291
|
||||
. 27860) (PRETTYCOM 27862 . 34203) (PRETTYVAR 34205 . 35243) (PRETTYVAR1 35245 . 37463) (PRETTYCOM1
|
||||
37465 . 38169) (ENDFILE 38171 . 38267) (MAKEDEFLIST 38269 . 38673) (PP 38675 . 38951) (PP* 38953 .
|
||||
39266) (PPT 39268 . 39587) (PRETTYPRINT 39589 . 42741) (PRETTYPRINT1 42743 . 44629) (PRETTYPRINT2
|
||||
44631 . 45947) (PRETTYPRINT3 45949 . 46904) (PRINTDEF1 46906 . 47842) (SUPERPRINTEQ 47844 . 47938) (
|
||||
SUPERPRINTGETPROP 47940 . 48084) (CHANGEFONT 48086 . 48596)) (48599 53945 (READARRAY 48609 . 49535) (
|
||||
PRINTARRAY 49537 . 51277) (READARRAY-FROM-LIST 51279 . 52384) (PRINTARRAY-TO-LIST 52386 . 53943)) (
|
||||
54072 62953 (PRINTCOPYRIGHT 54082 . 58556) (PRINTCOPYRIGHT1 58558 . 62648) (SAVECOPYRIGHT 62650 .
|
||||
62951)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user