Implement M-x view-password-file to allow a password to be looked up

in public without revealing other passwords in the file.

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index bb121509b35a3779429d5e11600fb42e8ff330db..f82e7ab757caa7f0055c06b6a1294091729f997b 100644 (file)
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: decls.scm,v 1.62 1999/01/02 06:11:34 cph Exp $
+$Id: decls.scm,v 1.63 1999/01/14 21:37:52 cph Exp $
 
 Copyright (c) 1989-1999 Massachusetts Institute of Technology
 
@@ -177,6 +177,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
                "print"
                "process"
                "prompt"
+               "pwedit"
+               "pwparse"
                ;;"rcs"
                "reccom"
                "regcom"

diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm
index 19650fe398e374aaab60cfbfe8abd0e207cce34b..f25d44a3f1109beff54fb52480443b1f03ff3410 100644 (file)
--- a/v7/src/edwin/ed-ffi.scm
+++ b/v7/src/edwin/ed-ffi.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ed-ffi.scm,v 1.45 1999/01/02 06:11:34 cph Exp $
+$Id: ed-ffi.scm,v 1.46 1999/01/14 21:37:56 cph Exp $
 
 Copyright (c) 1990-1999 Massachusetts Institute of Technology
 
@@ -220,6 +220,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
                edwin-syntax-table)
     ("prompt"  (edwin prompt)
                edwin-syntax-table)
+    ("pwedit"  (edwin password-edit)
+               edwin-syntax-table)
+    ("pwparse" (edwin password-edit)
+               edwin-syntax-table)
     #|("rcs"   (edwin rcs)
               edwin-syntax-table)|#
     ("rcsparse"        (edwin rcs-parse)

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 6b74c3eb28c79ffb3fd897ee827da760b3fc00d0..80c3081ad0ca010e727dc6040af9ebed6e82bccd 100644 (file)
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.231 1999/01/02 06:11:34 cph Exp $
+$Id: edwin.pkg,v 1.232 1999/01/14 21:38:02 cph Exp $
 
 Copyright (c) 1989-1999 Massachusetts Institute of Technology
 
@@ -1890,4 +1890,13 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (parent (edwin))
   (export (edwin)
          edwin-command$vhdl-mode
-         edwin-mode$vhdl))
\ No newline at end of file
+         edwin-mode$vhdl))
+
+(define-package (edwin password-edit)
+  (files "pwedit" "pwparse")
+  (parent (edwin))
+  (export (edwin)
+         edwin-command$mouse-toggle-pw-form
+         edwin-command$toggle-pw-form
+         edwin-command$view-password-file
+         edwin-mode$password-view))
\ No newline at end of file

diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index 2fd1b2e0871243da7e9d8b4cb52ca707cca4e7ff..61fcaac2ce6685aed285a80678d109ce962f9b74 100644 (file)
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: loadef.scm,v 1.35 1999/01/02 06:11:34 cph Exp $
+;;; $Id: loadef.scm,v 1.36 1999/01/14 21:37:46 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -311,6 +311,25 @@ This is usually 103 or 2627."
   "*webster*"
   string?)
 \f
+;;;; Password Editor
+
+(define-library 'PASSWORD-EDIT
+  '("pwedit" (EDWIN PASSWORD-EDIT))
+  '("pwparse" (EDWIN PASSWORD-EDIT)))
+
+(define-autoload-command 'view-password-file 'PASSWORD-EDIT
+  "Read in a password file and show it in password-view mode.")
+
+(define-autoload-major-mode 'password-view 'read-only "Password-View"
+  'PASSWORD-EDIT
+  "Major mode specialized for viewing password files.")
+
+(define-autoload-command toggle-pw-form 'PASSWORD-EDIT
+  "Toggle the body of the password form under point.")
+
+(define-autoload-command mouse-toggle-pw-form 'PASSWORD-EDIT
+  "Toggle the body of the password form under mouse.")
+\f
 ;;;; DOS-specific commands
 
 (if (memq microcode-id/operating-system '(DOS))