From 60e390789cc3bcbad2bd5ecd66c59a2c092f2520 Mon Sep 17 00:00:00 2001 From: Matt Heffron Date: Mon, 19 Feb 2024 16:34:26 -0800 Subject: [PATCH] Change the default value for DEFAULTDATABASECOPYRIGHTOWNER to 'NEVER. This is so dumping the database never asks about copyright. Copyright on these database files is pretty nonsensical. --- library/DATABASEFNS | 16 ++++++++-------- library/DATABASEFNS.LCOM | Bin 7420 -> 7383 bytes 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/library/DATABASEFNS b/library/DATABASEFNS index c6ed0691..190d038b 100644 --- a/library/DATABASEFNS +++ b/library/DATABASEFNS @@ -1,11 +1,11 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 7-Feb-2024 18:26:12" {DSK}e>Interlisp>medley>library>DATABASEFNS.;13 17643 +(FILECREATED "19-Feb-2024 16:29:44" {LIB}DATABASEFNS.;15 17624 :EDIT-BY "mth" - :CHANGES-TO (FNS DUMPDB) - (VARS DATABASEFNSCOMS) + :CHANGES-TO (VARS DATABASEFNSCOMS) + (FNS DUMPDB) :PREVIOUS-DATE "27-Oct-2021 10:55:18" {DSK}e>Interlisp>medley>library>DATABASEFNS.;1) @@ -35,7 +35,7 @@ Copyright (c) 1986, 1990-1993, 2024 by Xerox Corporation. (SAVEDBFLG 'ASK)) (ADDVARS (MAKEFILEFORMS (MAKEDB FILE))) (INITVARS (MSFILETABLE) - (DEFAULTDATABASECOPYRIGHTOWNER)) + (DEFAULTDATABASECOPYRIGHTOWNER 'NEVER)) (* ; "To permit MSHASH interface") (LOCALVARS . T) (BLOCKS (LOADDB LOADDB DBFILE DBFILE1 DBFILE2 (NOLINKFNS . T))) @@ -350,7 +350,7 @@ Copyright (c) 1986, 1990-1993, 2024 by Xerox Corporation. (RPAQ? MSFILETABLE ) -(RPAQ? DEFAULTDATABASECOPYRIGHTOWNER ) +(RPAQ? DEFAULTDATABASECOPYRIGHTOWNER 'NEVER) @@ -370,7 +370,7 @@ Copyright (c) 1986, 1990-1993, 2024 by Xerox Corporation. ) (PUTPROPS DATABASEFNS COPYRIGHT ("Xerox Corporation" 1986 1990 1991 1992 1993 2024)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1803 6828 (DBFILE 1813 . 3458) (DBFILE1 3460 . 4970) (DBFILE2 4972 . 6194) (LOAD 6196 - . 6426) (LOADFROM 6428 . 6616) (MAKEFILE 6618 . 6826)) (6884 17042 (DUMPDB 6894 . 11077) (LOADDB -11079 . 15954) (MAKEDB 15956 . 17040))))) + (FILEMAP (NIL (1778 6803 (DBFILE 1788 . 3433) (DBFILE1 3435 . 4945) (DBFILE2 4947 . 6169) (LOAD 6171 + . 6401) (LOADFROM 6403 . 6591) (MAKEFILE 6593 . 6801)) (6859 17017 (DUMPDB 6869 . 11052) (LOADDB +11054 . 15929) (MAKEDB 15931 . 17015))))) STOP diff --git a/library/DATABASEFNS.LCOM b/library/DATABASEFNS.LCOM index 0663e6e410134d61a03ba17abe004b1e9b8c891c..44c2991c81d6c2be9ee1ab226676b85859036f24 100644 GIT binary patch delta 317 zcmexkdEIhCc)g*eu3Ku7u91O}iGrb-m64^DiK&u;hEj5VZb4>FYKlUBo`RA>wU4J$ zt&3xbqmyH>tD9f2p0%N=rh<}@k*-%_9z?T&p_PHLl`&8=S5i?bTzhgxVqSV`v8t7V zOQ>&vi<3eo&^)(LA0Gv<=84}e46!)D1iO_AhUR8KcTR3(lu-(E3<_4@LUNO{zi+Un zf(FoaP^&iYW7L=AQ_u(u^$&4X@N*4w4bq(aR?1wA%gM*z**jQ4!^hvz1?VIQHF<-i g#N;4pb8fC6*I?I>V8<|5h0Rl>c^T1-SSS+>0CCw?l>h($ delta 205 zcmca^`NwiXxQc?gu3Ku7u91O}iGrbpm64g1p^=h;hEj5VZb4>FYKlUBp2FnCjAo3+ z6DLZFCl#f_C6Y4|^U_m`Rjm}bCLZ(^!*0;zWsJt0#tMe!W+ui8T$Ak?Wfa}~f)!js zeFI#aG!-<$9D{&7#}G#+$6!~WjI+OQ@a9@ZeaXqYq|61JeEglggB3J<{2g6foPhcn cr9-)cT!URhf*r$L6}UDhO7k*Ku91lb0FS;nW&i*H