From 97db8366c09dcdf005255d05eaf6dc9402764af3 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 17 Sep 1992 23:48:42 +0000
Subject: [PATCH] Add code to recognize the "write-protected" error when
 writing to the floppy, and to give a more succinct error message.

---
 v7/src/6001/floppy.scm | 25 ++++++++++++++++++++++---
 1 file changed, 22 insertions(+), 3 deletions(-)

diff --git a/v7/src/6001/floppy.scm b/v7/src/6001/floppy.scm
index 04262fb76..6f7b53c73 100644
--- a/v7/src/6001/floppy.scm
+++ b/v7/src/6001/floppy.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: floppy.scm,v 1.6 1992/09/14 21:43:09 cph Exp $
+$Id: floppy.scm,v 1.7 1992/09/17 23:48:42 cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -697,6 +697,11 @@ M-x rename-file, or use the `r' command in Dired.")
 		      make-condition:no-floppy-in-drive)
 		     ((string-prefix? non-dos-floppy-in-drive output)
 		      make-condition:non-dos-floppy-in-drive)
+		     ((re-match-forward floppy-write-protected-regexp
+					(buffer-start buffer)
+					(buffer-end buffer)
+					false)
+		      make-condition:floppy-write-protected)
 		     (else
 		      make-condition:floppy-error))
 	       command output)))))))
@@ -704,10 +709,11 @@ M-x rename-file, or use the `r' command in Dired.")
 (define no-floppy-in-drive
   "Error reading. block = 0 on device /dev/rfd")
 
+(define floppy-write-protected-regexp
+  "Error writing. block = [0-9]+ on device /dev/rfd\nErrno = 13$")
+
 (define non-dos-floppy-in-drive
   "Unrecognizable disc format on /dev/rfd")
-
-;;;; Floppy Errors
 
 (define (handle-floppy-errors continue abort thunk)
   (fluid-let ((*floppy-abort-handler* abort))
@@ -734,6 +740,8 @@ M-x rename-file, or use the `r' command in Dired.")
 (define (default-floppy-abort-handler)
   (message "OK, aborting command")
   (abort-current-command))
+
+;;;; Floppy Errors
 
 (define condition-type:floppy-error
   (make-condition-type 'FLOPPY-ERROR condition-type:error
@@ -768,6 +776,17 @@ M-x rename-file, or use the `r' command in Dired.")
 		       '(COMMAND OUTPUT)
 		       standard-error-handler))
 
+(define condition-type:floppy-write-protected
+  (make-condition-type 'FLOPPY-WRITE-PROTECTED condition-type:floppy-error '()
+    (lambda (condition port)
+      condition
+      (write-string "The floppy disk is write-protected." port))))
+
+(define make-condition:floppy-write-protected
+  (condition-signaller condition-type:floppy-write-protected
+		       '(COMMAND OUTPUT)
+		       standard-error-handler))
+
 (define condition-type:floppy-drive-busy
   (make-condition-type 'FLOPPY-DRIVE-BUSY condition-type:floppy-error '()
     (lambda (condition port)
-- 
2.25.1