From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 14 Jan 1999 21:38:02 +0000 (+0000)
Subject: Implement M-x view-password-file to allow a password to be looked up
X-Git-Tag: 20090517-FFI~4686
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bffdc9376688dcdbb0f4c681add9e611dae404bc;p=mit-scheme.git

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 bb121509b..f82e7ab75 100644
--- 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 19650fe39..f25d44a3f 100644
--- 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 6b74c3eb2..80c3081ad 100644
--- 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 2fd1b2e08..61fcaac2c 100644
--- 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?)
 
+;;;; 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.")
+
 ;;;; DOS-specific commands
 
 (if (memq microcode-id/operating-system '(DOS))