mcrypt: downcase a symbol, most names; fix copyright notices

diff --git a/src/mcrypt/README b/src/mcrypt/README
index 2595d87e2aa14f39cac5ea88268218e690f7c009..070784903b7b68bf7ff3a0d2f45307d9cf83b6f1 100644 (file)
--- a/src/mcrypt/README
+++ b/src/mcrypt/README
@@ -32,10 +32,10 @@ To use:
     (load-option 'mcrypt)
     (import-mcrypt)
 
-Import-mcrypt will modify the REPL's current environment by adding
-bindings linked to the plugin's exports.  They are not exported to the
-global environment because they would conflict with the deprecated
-exports from (runtime crypto).
+The import-mcrypt procedure will modify the REPL's current environment
+by adding bindings linked to the plugin's exports.  They are not
+exported to the global environment because they would conflict with
+the deprecated exports from (runtime crypto).
 
 To import into a CREF package set, add this to your .pkg file:
 

diff --git a/src/mcrypt/compile.scm b/src/mcrypt/compile.scm
index 5be57ba73836a9e74e1cdd7a5a5b5c79b15ac1c9..0b79e6abb3af415ec2763ef12856f5f797866477 100644 (file)
--- a/src/mcrypt/compile.scm
+++ b/src/mcrypt/compile.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*- |#
 
-;;;; Compile the MCRYPT option.
+;;;; Compile the Mcrypt option.
 
 (load-option 'cref)
 (with-working-directory-pathname (directory-pathname (current-load-pathname))

diff --git a/src/mcrypt/compile.sh b/src/mcrypt/compile.sh
index 80981fdefb57bf8209e64a4986a9c7f6960f908c..d55bf84af50a5c0d8d547f4795d966bebe60bc5f 100755 (executable)
--- a/src/mcrypt/compile.sh
+++ b/src/mcrypt/compile.sh
@@ -7,20 +7,20 @@
 #     2015, 2016, 2017, 2018, 2019 Massachusetts Institute of
 #     Technology
 #
-# This file is part of a mcrypt plugin for MIT/GNU Scheme.
+# This file is part of MIT/GNU Scheme.
 #
-# This plugin is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
+# MIT/GNU Scheme is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License as
+# published by the Free Software Foundation; either version 2 of the
+# License, or (at your option) any later version.
 #
-# This plugin is distributed in the hope that it will be useful, but
-# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MIT/GNU Scheme is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 # General Public License for more details.
 #
 # You should have received a copy of the GNU General Public License
-# along with this plugin; if not, write to the Free Software
+# along with MIT/GNU Scheme; if not, write to the Free Software
 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
 # 02110-1301, USA.
 

diff --git a/src/mcrypt/configure.ac b/src/mcrypt/configure.ac
index 3fc0ae6d805d43e8bd01933541677508af926b06..3c2c3ee5d28443625c6d399363769b02c271b1df 100644 (file)
--- a/src/mcrypt/configure.ac
+++ b/src/mcrypt/configure.ac
@@ -1,7 +1,7 @@
 dnl Process this file with autoconf to produce a configure script.
 
 AC_PREREQ([2.69])
-AC_INIT([MIT/GNU Scheme mcrypt plugin],
+AC_INIT([MIT/GNU Scheme Mcrypt plugin],
         [1.0],
         [bug-mit-scheme@gnu.org],
         [mit-scheme-mcrypt])

diff --git a/src/mcrypt/make.scm b/src/mcrypt/make.scm
index 61e1c8ad7c71c5593f3eaeb483bd4f41bf30afd1..4a0a47253809e555626440df243d1e42cc4e5298 100644 (file)
--- a/src/mcrypt/make.scm
+++ b/src/mcrypt/make.scm
@@ -1,9 +1,9 @@
 #| -*-Scheme-*- |#
 
-;;;; Load the mcrypt option.
+;;;; Load the Mcrypt option.
 
 (with-working-directory-pathname (directory-pathname (current-load-pathname))
   (lambda ()
     (load-package-set "mcrypt")))
 
-(add-subsystem-identification! "mcrypt" '(0 2))
\ No newline at end of file
+(add-subsystem-identification! "Mcrypt" '(0 2))
\ No newline at end of file

diff --git a/src/mcrypt/mcrypt-check.scm b/src/mcrypt/mcrypt-check.scm
index 468daa764875d1f60962f90412d10a3cbda8028b..4066abcb17d5e5a7221d5c6346388ac70deabfbf 100644 (file)
--- a/src/mcrypt/mcrypt-check.scm
+++ b/src/mcrypt/mcrypt-check.scm
@@ -24,7 +24,7 @@ USA.
 
 |#
 
-;;;; Test the MCRYPT option.
+;;;; Test the Mcrypt option.
 
 (define (random-string length)
   (list->string (make-initialized-list length

diff --git a/src/mcrypt/mcrypt.scm b/src/mcrypt/mcrypt.scm
index a4392b5d124be267f2f1f07c6c09878ac75b68ad..fe359a790ee5bc2488cac4c6a673f39b63977472 100644 (file)
--- a/src/mcrypt/mcrypt.scm
+++ b/src/mcrypt/mcrypt.scm
@@ -24,7 +24,7 @@ USA.
 
 |#
 
-;;;; The mcrypt option.
+;;;; The Mcrypt option.
 ;;; package: (mcrypt)
 
 (declare (usual-integrations))
@@ -331,7 +331,7 @@ USA.
 
 (define (mcrypt-encrypt-port algorithm mode input output key init-vector
                             encrypt?)
-  ;; Assumes that INPUT is in blocking mode.
+  ;; Assumes that input is in blocking mode.
   ((port-transformer (lambda ()
                       (let ((context (mcrypt-open-module algorithm mode)))
                         (mcrypt-init context key init-vector)

diff --git a/src/mcrypt/optiondb.scm b/src/mcrypt/optiondb.scm
index 049c332fe4b98e486a05ef975406899fcee748fa..f5966dc6e8bbcfb8f4c3e2682199125fc6df6677 100644 (file)
--- a/src/mcrypt/optiondb.scm
+++ b/src/mcrypt/optiondb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*- |#
 
-(define-load-option 'MCRYPT
+(define-load-option 'mcrypt
   (standard-system-loader "."))
 
 (further-load-options #t)
\ No newline at end of file