From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Sun, 2 Jul 2017 22:18:19 +0000 (-0700)
Subject: blowfish, gdbm plugins:  Export to ().  Remove (runtime blowfish).
X-Git-Tag: mit-scheme-pucked-9.2.12~116
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c240264b79e59c543042b8275f2e43e75b857b26;p=mit-scheme.git

blowfish, gdbm plugins:  Export to ().  Remove (runtime blowfish).

Punt import-blowfish and import-gdbm2.  Fix merged references to
GDBM2.
---

diff --git a/src/blowfish/blowfish.pkg b/src/blowfish/blowfish.pkg
index aad20bcdc..ec4f4abce 100644
--- a/src/blowfish/blowfish.pkg
+++ b/src/blowfish/blowfish.pkg
@@ -29,10 +29,7 @@ USA.
 (define-package (blowfish)
   (files "blowfish")
   (parent ())
-  ;; These are "exported" to (runtime blowfish) during load-option.
   (export ()
-	  import-blowfish)
-  (export (blowfish global)
 	  blowfish-cbc
 	  blowfish-cfb64
 	  blowfish-ecb
@@ -42,8 +39,4 @@ USA.
 	  blowfish-set-key
 	  compute-blowfish-init-vector
 	  read-blowfish-file-header
-	  write-blowfish-file-header))
-
-(define-package (blowfish global)
-  ;; Just to get cref to analyze whether all exports are defined.
-  )
\ No newline at end of file
+	  write-blowfish-file-header))
\ No newline at end of file
diff --git a/src/blowfish/make.scm b/src/blowfish/make.scm
index 361256f13..effb48ee4 100644
--- a/src/blowfish/make.scm
+++ b/src/blowfish/make.scm
@@ -6,21 +6,4 @@
   (lambda ()
     (load-package-set "blowfish")))
 
-(add-subsystem-identification! "Blowfish" '(0 2 1))
-
-;; "Export" these to the (runtime blowfish) package bindings.
-(let ((runtime (->environment '(runtime blowfish)))
-      (blowfish (->environment '(blowfish))))
-  (for-each
-    (lambda (name)
-       (environment-assign! runtime name (environment-lookup blowfish name)))
-    '(blowfish-cbc
-      blowfish-cfb64
-      blowfish-ecb
-      blowfish-encrypt-port
-      blowfish-file?
-      blowfish-ofb64
-      blowfish-set-key
-      compute-blowfish-init-vector
-      read-blowfish-file-header
-      write-blowfish-file-header)))
\ No newline at end of file
+(add-subsystem-identification! "Blowfish" '(0 2 1))
\ No newline at end of file
diff --git a/src/gdbm/gdbm.pkg b/src/gdbm/gdbm.pkg
index f85606372..18a20e069 100644
--- a/src/gdbm/gdbm.pkg
+++ b/src/gdbm/gdbm.pkg
@@ -34,8 +34,6 @@ USA.
 	  cp1-ref
 	  ustring-cp-size
 	  ustring?)
-  (export ()
-	  import-gdbm2)
   (export ()
 	  gdbm-close
 	  gdbm-delete
diff --git a/src/gdbm/gdbm.scm b/src/gdbm/gdbm.scm
index b337e47ff..0e8c2f668 100644
--- a/src/gdbm/gdbm.scm
+++ b/src/gdbm/gdbm.scm
@@ -24,39 +24,11 @@ USA.
 
 |#
 
-;;;; The GDBM2 option.
+;;;; The GDBM option.
 ;;; package: (gdbm)
 
 (declare (usual-integrations))
 
-(define (import-gdbm2)
-  (let ((target-environment (nearest-repl/environment))
-	(source-environment (->environment '(gdbm))))
-    (for-each (lambda (name)
-		(link-variables target-environment name
-				source-environment name))
-	      '(gdbm-close
-		gdbm-delete
-		gdbm-exists?
-		gdbm-fetch
-		gdbm-firstkey
-		gdbm-nextkey
-		gdbm-open
-		gdbm-reorganize
-		gdbm-setopt
-		gdbm-store
-		gdbm-sync
-		gdbm-version
-		gdbm_cachesize
-		gdbm_fast
-		;;gdbm_fastmode obsolete
-		gdbm_insert
-		gdbm_newdb
-		gdbm_reader
-		gdbm_replace
-		gdbm_wrcreat
-		gdbm_writer))))
-
 (C-include "gdbm")
 
 (define-integrable (every-loop proc ref string start end)
diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index fa7fd7ab5..c5bee3e2b 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -102,22 +102,6 @@ USA.
 	  unsigned-integer->bit-string
 	  write-bits!))
 
-(define-package (runtime blowfish)
-  (files "blowfish")
-  (parent (runtime))
-  (export ()
-	  blowfish-available?
-	  blowfish-cbc
-	  blowfish-cfb64
-	  blowfish-ecb
-	  blowfish-encrypt-port
-	  blowfish-file?
-	  blowfish-ofb64
-	  blowfish-set-key
-	  compute-blowfish-init-vector
-	  read-blowfish-file-header
-	  write-blowfish-file-header))
-
 (define-package (runtime boolean)
   (files "boole")
   (parent (runtime))