Skip to content

Add COPYRIGHTFLG=PRESERVE meaning 'no new copyright dates, but keep previous' #468

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 1 commit into from
Sep 12, 2021
Merged

Add COPYRIGHTFLG=PRESERVE meaning 'no new copyright dates, but keep previous' #468

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
60 changes: 33 additions & 27 deletions sources/PRETTY
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,15 +1,14 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
(FILECREATED " 9-Jul-2021 14:12:19" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRETTY.;19 64744
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "11-Sep-2021 09:14:19" {DSK}<home>larry>medley>sources>PRETTY.;5 65019

changes to%: (FNS PRETTYDEF)
changes to%: (VARS PRETTYCOMS)
(FNS PRINTCOPYRIGHT)

previous date%: " 3-Jul-2021 15:24:17"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRETTY.;17)
previous date%: " 9-Jul-2021 14:12:19" {DSK}<home>larry>medley>sources>PRETTY.;1)


(* ; "
Copyright (c) 1984-1990, 1999, 2018, 2021 by Venue & Xerox Corporation.
Copyright (c) 1984-1990, 1999, 2018 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
Expand All @@ -24,7 +23,7 @@ with the terms of said license.
PRETTYPRINT2 PRETTYPRINT3 PRINTDEF1 SUPERPRINTEQ SUPERPRINTGETPROP CHANGEFONT)
(FNS READARRAY PRINTARRAY READARRAY-FROM-LIST PRINTARRAY-TO-LIST)
(COMS (DECLARE%: DONTCOPY (MACROS CHANGFONT)))
(COMS (* ; "COPYRIGHT")
(COMS (* ; "COPYRIGHT")
(FNS PRINTCOPYRIGHT PRINTCOPYRIGHT1 SAVECOPYRIGHT)
(BLOCKS (NIL PRINTCOPYRIGHT PRINTCOPYRIGHT1 SAVECOPYRIGHT (LOCALVARS . T)
(NOLINKFNS PRINTCOPYRIGHT1)))
Expand Down Expand Up @@ -89,8 +88,8 @@ with the terms of said license.
[DECLARE%: EVAL@COMPILE DOCOPY (P (CL:PROCLAIM '(CL:SPECIAL DEFAULTFONT LAMBDAFONT
PRETTYCOMFONT COMMENTFONT
**COMMENT**FLG PRETTYPRINTMACROS]
(DECLARE%: DOEVAL@COMPILE DONTCOPY (* ;
 "IMPORT because FILEPKG has records EXPORTed but is not a member of EXPORTFILES")
(DECLARE%: DOEVAL@COMPILE DONTCOPY (* ;
 "IMPORT because FILEPKG has records EXPORTed but is not a member of EXPORTFILES")
(FILES (IMPORT)
FILEPKG))
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPT PP* PP)
Expand Down Expand Up @@ -455,15 +454,18 @@ must replace the declare: by a nop addvars.") (SETQ PRTTYCOM (SUBPAIR (QUOTE (NL
(DEFINEQ

(PRINTCOPYRIGHT
[LAMBDA (FILENAME) (* ; "Edited 31-Aug-99 09:06 by rmk:")
(* ; "Edited 31-Aug-99 09:01 by rmk:")
(* edited%: " 1-Jan-85 20:16")
[LAMBDA (FILENAME) (* ; "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 * *")
(* ;;; "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")

(PROG [(OWNER (GETPROP FILENAME 'COPYRIGHT]
(AND [OR OWNER
(AND COPYRIGHTFLG
(AND COPYRIGHTFLG (NEQ COPYRIGHTFLG 'PRESERVE)
(SETQ OWNER
(ASKUSER (if (EQ COPYRIGHTFLG 'DEFAULT)
then 0
Expand Down Expand Up @@ -500,7 +502,11 @@ must replace the declare: by a nop addvars.") (SETQ PRTTYCOM (SUBPAIR (QUOTE (NL
'NONE)
(PROG ((CURRENTYEAR (SUBATOM (DATE (DATEFORMAT YEAR.LONG NO.TIME))
-4 -1)))
(OR (MEMBER CURRENTYEAR (CDR OWNER))

(* ;; " see github Interlisp/medley issue #207 (lmm 9/11/2021)")

(OR (EQ COPYRIGHTFLG 'PRESERVE)
(MEMBER CURRENTYEAR (CDR OWNER))
(NCONC1 OWNER CURRENTYEAR)))
(PRINTCOPYRIGHT1 OWNER])

Expand Down Expand Up @@ -687,16 +693,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
2021))
))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (5950 48101 (PRETTYDEF 5960 . 21633) (PRETTYDEFCOMS 21635 . 22317) (PRETTYDEF0 22319 .
22510) (PRETTYDEF1 22512 . 24275) (PRINTDATE 24277 . 25513) (PRINTDATE1 25515 . 26720) (PRINTFNS 26722
. 27291) (PRETTYCOM 27293 . 33634) (PRETTYVAR 33636 . 34674) (PRETTYVAR1 34676 . 36894) (PRETTYCOM1
36896 . 37600) (ENDFILE 37602 . 37698) (MAKEDEFLIST 37700 . 38104) (PP 38106 . 38382) (PP* 38384 .
38697) (PPT 38699 . 39018) (PRETTYPRINT 39020 . 42172) (PRETTYPRINT1 42174 . 44060) (PRETTYPRINT2
44062 . 45378) (PRETTYPRINT3 45380 . 46335) (PRINTDEF1 46337 . 47345) (SUPERPRINTEQ 47347 . 47441) (
SUPERPRINTGETPROP 47443 . 47587) (CHANGEFONT 47589 . 48099)) (48102 53448 (READARRAY 48112 . 49038) (
PRINTARRAY 49040 . 50780) (READARRAY-FROM-LIST 50782 . 51887) (PRINTARRAY-TO-LIST 51889 . 53446)) (
53575 60788 (PRINTCOPYRIGHT 53585 . 57357) (PRINTCOPYRIGHT1 57359 . 60483) (SAVECOPYRIGHT 60485 .
60786)))))
(FILEMAP (NIL (5925 48076 (PRETTYDEF 5935 . 21608) (PRETTYDEFCOMS 21610 . 22292) (PRETTYDEF0 22294 .
22485) (PRETTYDEF1 22487 . 24250) (PRINTDATE 24252 . 25488) (PRINTDATE1 25490 . 26695) (PRINTFNS 26697
. 27266) (PRETTYCOM 27268 . 33609) (PRETTYVAR 33611 . 34649) (PRETTYVAR1 34651 . 36869) (PRETTYCOM1
36871 . 37575) (ENDFILE 37577 . 37673) (MAKEDEFLIST 37675 . 38079) (PP 38081 . 38357) (PP* 38359 .
38672) (PPT 38674 . 38993) (PRETTYPRINT 38995 . 42147) (PRETTYPRINT1 42149 . 44035) (PRETTYPRINT2
44037 . 45353) (PRETTYPRINT3 45355 . 46310) (PRINTDEF1 46312 . 47320) (SUPERPRINTEQ 47322 . 47416) (
SUPERPRINTGETPROP 47418 . 47562) (CHANGEFONT 47564 . 48074)) (48077 53423 (READARRAY 48087 . 49013) (
PRINTARRAY 49015 . 50755) (READARRAY-FROM-LIST 50757 . 51862) (PRINTARRAY-TO-LIST 51864 . 53421)) (
53550 61068 (PRINTCOPYRIGHT 53560 . 57637) (PRINTCOPYRIGHT1 57639 . 60763) (SAVECOPYRIGHT 60765 .
61066)))))
STOP
Binary file modified sources/PRETTY.LCOM
View file
Open in desktop
Binary file not shown.