From aeef47ae624c1072bbb612713b143c144eeaf7ee Mon Sep 17 00:00:00 2001 From: Anthony Carrico Date: Sun, 14 Mar 2004 22:59:57 +0000 Subject: [PATCH] Moved package and interface definition to packages.scm. Generate load scripts. --- build/dirs.scm | 3 ++- s48/args-fold/{load.scm => packages.scm} | 0 s48/args-fold/pkg-def.scm | 6 +++++- s48/banana/{load.scm => packages.scm} | 0 s48/banana/pkg-def.scm | 5 ++++- s48/binary-parse/{load.scm => packages.scm} | 0 s48/binary-parse/pkg-def.scm | 5 ++++- s48/cml/{load.scm => packages.scm} | 0 s48/cml/pkg-def.scm | 5 ++++- s48/concurrency/{load.scm => packages.scm} | 0 s48/concurrency/pkg-def.scm | 5 ++++- s48/continuation-data-type/{load.scm => packages.scm} | 0 s48/continuation-data-type/pkg-def.scm | 5 ++++- s48/exceptions/{load.scm => packages.scm} | 0 s48/exceptions/pkg-def.scm | 5 ++++- s48/heap-images/{load.scm => packages.scm} | 0 s48/heap-images/pkg-def.scm | 5 ++++- s48/intsets/{load.scm => packages.scm} | 0 s48/intsets/pkg-def.scm | 5 ++++- s48/krims/{load.scm => packages.scm} | 0 s48/krims/pkg-def.scm | 5 ++++- s48/module-system/{load.scm => packages.scm} | 0 s48/module-system/pkg-def.scm | 5 ++++- s48/procedure-tables/{load.scm => packages.scm} | 0 s48/procedure-tables/pkg-def.scm | 5 ++++- s48/profile/{load.scm => packages.scm} | 0 s48/profile/pkg-def.scm | 5 ++++- s48/srfi-10/{load.scm => packages.scm} | 0 s48/srfi-10/pkg-def.scm | 5 ++++- scsh/afs/{load.scm => packages.scm} | 0 scsh/afs/pkg-def.scm | 5 ++++- scsh/base64/{load.scm => packages.scm} | 0 scsh/base64/pkg-def.scm | 5 ++++- scsh/bytio/{load.scm => packages.scm} | 0 scsh/bytio/pkg-def.scm | 5 ++++- scsh/dir-streams/{load.scm => packages.scm} | 0 scsh/dir-streams/pkg-def.scm | 5 ++++- scsh/file-mode/{load.scm => packages.scm} | 0 scsh/file-mode/pkg-def.scm | 5 ++++- scsh/image-info/{load.scm => packages.scm} | 0 scsh/image-info/pkg-def.scm | 5 ++++- scsh/interaction/{load.scm => packages.scm} | 0 scsh/interaction/pkg-def.scm | 5 ++++- scsh/pps/{load.scm => packages.scm} | 0 scsh/pps/pkg-def.scm | 5 ++++- scsh/scsh-packages/pkg-def.scm | 5 ++++- scsh/sequences/{load.scm => packages.scm} | 0 scsh/sequences/pkg-def.scm | 5 ++++- scsh/tiff/{load.scm => packages.scm} | 0 scsh/tiff/pkg-def.scm | 5 ++++- scsh/treaps/{load.scm => packages.scm} | 0 scsh/treaps/pkg-def.scm | 5 ++++- 52 files changed, 107 insertions(+), 27 deletions(-) rename s48/args-fold/{load.scm => packages.scm} (100%) rename s48/banana/{load.scm => packages.scm} (100%) rename s48/binary-parse/{load.scm => packages.scm} (100%) rename s48/cml/{load.scm => packages.scm} (100%) rename s48/concurrency/{load.scm => packages.scm} (100%) rename s48/continuation-data-type/{load.scm => packages.scm} (100%) rename s48/exceptions/{load.scm => packages.scm} (100%) rename s48/heap-images/{load.scm => packages.scm} (100%) rename s48/intsets/{load.scm => packages.scm} (100%) rename s48/krims/{load.scm => packages.scm} (100%) rename s48/module-system/{load.scm => packages.scm} (100%) rename s48/procedure-tables/{load.scm => packages.scm} (100%) rename s48/profile/{load.scm => packages.scm} (100%) rename s48/srfi-10/{load.scm => packages.scm} (100%) rename scsh/afs/{load.scm => packages.scm} (100%) rename scsh/base64/{load.scm => packages.scm} (100%) rename scsh/bytio/{load.scm => packages.scm} (100%) rename scsh/dir-streams/{load.scm => packages.scm} (100%) rename scsh/file-mode/{load.scm => packages.scm} (100%) rename scsh/image-info/{load.scm => packages.scm} (100%) rename scsh/interaction/{load.scm => packages.scm} (100%) rename scsh/pps/{load.scm => packages.scm} (100%) rename scsh/sequences/{load.scm => packages.scm} (100%) rename scsh/tiff/{load.scm => packages.scm} (100%) rename scsh/treaps/{load.scm => packages.scm} (100%) diff --git a/build/dirs.scm b/build/dirs.scm index 2cf6a94..592f3ab 100644 --- a/build/dirs.scm +++ b/build/dirs.scm @@ -8,7 +8,8 @@ -mindepth 1 -type d ! -name CVS - ! -name rt-modules))) + ! -name rt-modules + ! -name sequences))) (define scsh-dirs (run/strings (find scsh diff --git a/s48/args-fold/load.scm b/s48/args-fold/packages.scm similarity index 100% rename from s48/args-fold/load.scm rename to s48/args-fold/packages.scm diff --git a/s48/args-fold/pkg-def.scm b/s48/args-fold/pkg-def.scm index 79d9091..ede7194 100644 --- a/s48/args-fold/pkg-def.scm +++ b/s48/args-fold/pkg-def.scm @@ -1,8 +1,12 @@ (define-package "srfi-37" (0 4) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) + (install-file "packages.scm" 'scheme) (install-file "args-fold.scm" 'scheme)) diff --git a/s48/banana/load.scm b/s48/banana/packages.scm similarity index 100% rename from s48/banana/load.scm rename to s48/banana/packages.scm diff --git a/s48/banana/pkg-def.scm b/s48/banana/pkg-def.scm index b345cd0..eb05977 100644 --- a/s48/banana/pkg-def.scm +++ b/s48/banana/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "banana" (0 1) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/binary-parse/load.scm b/s48/binary-parse/packages.scm similarity index 100% rename from s48/binary-parse/load.scm rename to s48/binary-parse/packages.scm diff --git a/s48/binary-parse/pkg-def.scm b/s48/binary-parse/pkg-def.scm index 14da078..4bde92c 100644 --- a/s48/binary-parse/pkg-def.scm +++ b/s48/binary-parse/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "binary-parse" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/cml/load.scm b/s48/cml/packages.scm similarity index 100% rename from s48/cml/load.scm rename to s48/cml/packages.scm diff --git a/s48/cml/pkg-def.scm b/s48/cml/pkg-def.scm index d12c1f1..9bdec30 100644 --- a/s48/cml/pkg-def.scm +++ b/s48/cml/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "cml" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/concurrency/load.scm b/s48/concurrency/packages.scm similarity index 100% rename from s48/concurrency/load.scm rename to s48/concurrency/packages.scm diff --git a/s48/concurrency/pkg-def.scm b/s48/concurrency/pkg-def.scm index e9667eb..770760e 100644 --- a/s48/concurrency/pkg-def.scm +++ b/s48/concurrency/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "concurrency" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/continuation-data-type/load.scm b/s48/continuation-data-type/packages.scm similarity index 100% rename from s48/continuation-data-type/load.scm rename to s48/continuation-data-type/packages.scm diff --git a/s48/continuation-data-type/pkg-def.scm b/s48/continuation-data-type/pkg-def.scm index ca28ca4..c4c491e 100644 --- a/s48/continuation-data-type/pkg-def.scm +++ b/s48/continuation-data-type/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "continuation-data-type" (0 1) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/exceptions/load.scm b/s48/exceptions/packages.scm similarity index 100% rename from s48/exceptions/load.scm rename to s48/exceptions/packages.scm diff --git a/s48/exceptions/pkg-def.scm b/s48/exceptions/pkg-def.scm index 3114658..a025d82 100644 --- a/s48/exceptions/pkg-def.scm +++ b/s48/exceptions/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "exceptions" (0 1) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) (install-file "restart.scm" 'scheme) diff --git a/s48/heap-images/load.scm b/s48/heap-images/packages.scm similarity index 100% rename from s48/heap-images/load.scm rename to s48/heap-images/packages.scm diff --git a/s48/heap-images/pkg-def.scm b/s48/heap-images/pkg-def.scm index c788c1e..a423c26 100644 --- a/s48/heap-images/pkg-def.scm +++ b/s48/heap-images/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "heap-images" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/intsets/load.scm b/s48/intsets/packages.scm similarity index 100% rename from s48/intsets/load.scm rename to s48/intsets/packages.scm diff --git a/s48/intsets/pkg-def.scm b/s48/intsets/pkg-def.scm index 1ab087f..de23e6c 100644 --- a/s48/intsets/pkg-def.scm +++ b/s48/intsets/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "intsets" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/krims/load.scm b/s48/krims/packages.scm similarity index 100% rename from s48/krims/load.scm rename to s48/krims/packages.scm diff --git a/s48/krims/pkg-def.scm b/s48/krims/pkg-def.scm index 7e75b7b..da4e7b7 100644 --- a/s48/krims/pkg-def.scm +++ b/s48/krims/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "krims" (0 1) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/module-system/load.scm b/s48/module-system/packages.scm similarity index 100% rename from s48/module-system/load.scm rename to s48/module-system/packages.scm diff --git a/s48/module-system/pkg-def.scm b/s48/module-system/pkg-def.scm index d7dc702..ed84bcc 100644 --- a/s48/module-system/pkg-def.scm +++ b/s48/module-system/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "module-system" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/procedure-tables/load.scm b/s48/procedure-tables/packages.scm similarity index 100% rename from s48/procedure-tables/load.scm rename to s48/procedure-tables/packages.scm diff --git a/s48/procedure-tables/pkg-def.scm b/s48/procedure-tables/pkg-def.scm index 17eea7f..764fbb3 100644 --- a/s48/procedure-tables/pkg-def.scm +++ b/s48/procedure-tables/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "procedure-tables" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/profile/load.scm b/s48/profile/packages.scm similarity index 100% rename from s48/profile/load.scm rename to s48/profile/packages.scm diff --git a/s48/profile/pkg-def.scm b/s48/profile/pkg-def.scm index 94e6564..7d9518f 100644 --- a/s48/profile/pkg-def.scm +++ b/s48/profile/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "profile" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/srfi-10/load.scm b/s48/srfi-10/packages.scm similarity index 100% rename from s48/srfi-10/load.scm rename to s48/srfi-10/packages.scm diff --git a/s48/srfi-10/pkg-def.scm b/s48/srfi-10/pkg-def.scm index 503076c..ba4810b 100644 --- a/s48/srfi-10/pkg-def.scm +++ b/s48/srfi-10/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "srfi-10" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/afs/load.scm b/scsh/afs/packages.scm similarity index 100% rename from scsh/afs/load.scm rename to scsh/afs/packages.scm diff --git a/scsh/afs/pkg-def.scm b/scsh/afs/pkg-def.scm index 1d6ac11..04084ac 100644 --- a/scsh/afs/pkg-def.scm +++ b/scsh/afs/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "afs" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/base64/load.scm b/scsh/base64/packages.scm similarity index 100% rename from scsh/base64/load.scm rename to scsh/base64/packages.scm diff --git a/scsh/base64/pkg-def.scm b/scsh/base64/pkg-def.scm index e79e276..15b52a4 100644 --- a/scsh/base64/pkg-def.scm +++ b/scsh/base64/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "base64" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/bytio/load.scm b/scsh/bytio/packages.scm similarity index 100% rename from scsh/bytio/load.scm rename to scsh/bytio/packages.scm diff --git a/scsh/bytio/pkg-def.scm b/scsh/bytio/pkg-def.scm index 954571c..9f82c3a 100644 --- a/scsh/bytio/pkg-def.scm +++ b/scsh/bytio/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "bytio" (0 1) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/dir-streams/load.scm b/scsh/dir-streams/packages.scm similarity index 100% rename from scsh/dir-streams/load.scm rename to scsh/dir-streams/packages.scm diff --git a/scsh/dir-streams/pkg-def.scm b/scsh/dir-streams/pkg-def.scm index e902789..c7c4a59 100644 --- a/scsh/dir-streams/pkg-def.scm +++ b/scsh/dir-streams/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "dir-streams" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/file-mode/load.scm b/scsh/file-mode/packages.scm similarity index 100% rename from scsh/file-mode/load.scm rename to scsh/file-mode/packages.scm diff --git a/scsh/file-mode/pkg-def.scm b/scsh/file-mode/pkg-def.scm index 3c4b556..a3971dd 100644 --- a/scsh/file-mode/pkg-def.scm +++ b/scsh/file-mode/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "file-mode" (0 1) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/image-info/load.scm b/scsh/image-info/packages.scm similarity index 100% rename from scsh/image-info/load.scm rename to scsh/image-info/packages.scm diff --git a/scsh/image-info/pkg-def.scm b/scsh/image-info/pkg-def.scm index 62a2cbd..b039c6f 100644 --- a/scsh/image-info/pkg-def.scm +++ b/scsh/image-info/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "image-info" (1 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/interaction/load.scm b/scsh/interaction/packages.scm similarity index 100% rename from scsh/interaction/load.scm rename to scsh/interaction/packages.scm diff --git a/scsh/interaction/pkg-def.scm b/scsh/interaction/pkg-def.scm index add514a..7928b48 100644 --- a/scsh/interaction/pkg-def.scm +++ b/scsh/interaction/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "interaction" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/pps/load.scm b/scsh/pps/packages.scm similarity index 100% rename from scsh/pps/load.scm rename to scsh/pps/packages.scm diff --git a/scsh/pps/pkg-def.scm b/scsh/pps/pkg-def.scm index d62904a..1a340d2 100644 --- a/scsh/pps/pkg-def.scm +++ b/scsh/pps/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "pps" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/scsh-packages/pkg-def.scm b/scsh/scsh-packages/pkg-def.scm index 055652a..16e1bf6 100644 --- a/scsh/scsh-packages/pkg-def.scm +++ b/scsh/scsh-packages/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "scsh-packages" (0 0) () - ; (install-file "load.scm" 'base) + ;(write-to-load-script + ; `((config) + ; (load ,(absolute-file-name "packages.scm" + ; (get-directory 'scheme #f))))) ; (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/sequences/load.scm b/scsh/sequences/packages.scm similarity index 100% rename from scsh/sequences/load.scm rename to scsh/sequences/packages.scm diff --git a/scsh/sequences/pkg-def.scm b/scsh/sequences/pkg-def.scm index 582bc3c..f36d182 100644 --- a/scsh/sequences/pkg-def.scm +++ b/scsh/sequences/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "sequences" (1 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/tiff/load.scm b/scsh/tiff/packages.scm similarity index 100% rename from scsh/tiff/load.scm rename to scsh/tiff/packages.scm diff --git a/scsh/tiff/pkg-def.scm b/scsh/tiff/pkg-def.scm index f38b1b6..607e237 100644 --- a/scsh/tiff/pkg-def.scm +++ b/scsh/tiff/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "tiff" (1 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/treaps/load.scm b/scsh/treaps/packages.scm similarity index 100% rename from scsh/treaps/load.scm rename to scsh/treaps/packages.scm diff --git a/scsh/treaps/pkg-def.scm b/scsh/treaps/pkg-def.scm index 5039ca6..d7d33ac 100644 --- a/scsh/treaps/pkg-def.scm +++ b/scsh/treaps/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "treaps" (0 1) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc)