Implement and use EOF-OBJECT procedure.
authorChris Hanson <org/chris-hanson/cph>
Sat, 7 Jul 2007 17:22:19 +0000 (17:22 +0000)
committerChris Hanson <org/chris-hanson/cph>
Sat, 7 Jul 2007 17:22:19 +0000 (17:22 +0000)
v7/src/edwin/bufinp.scm
v7/src/imail/imail-rmail.scm
v7/src/imail/imail-util.scm
v7/src/runtime/genio.scm
v7/src/runtime/input.scm
v7/src/runtime/parse.scm
v7/src/runtime/runtime.pkg
v7/src/runtime/unicode.scm

index f0572da95fa3de0800cb7405d35d561ed28e86be..b11462aa9e130b5fa81dff92cd1dfd0c9903653d 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: bufinp.scm,v 1.15 2007/01/05 21:19:23 cph Exp $
+$Id: bufinp.scm,v 1.16 2007/07/07 17:22:19 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -89,7 +89,7 @@ USA.
                 (let ((char (group-right-char (bstate-group state) start)))
                   (set-bstate-start! state (fix:+ start 1))
                   char)
-                (make-eof-object port))))))
+                (eof-object))))))
      (WRITE-SELF
       ,(lambda (port output)
         (write-string " from buffer at " output)
index 7dac1a33107ec744d90bd20057b4e88b301f232a..18813471ff852ee8f5028cedb8153d59ebbf2cad 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: imail-rmail.scm,v 1.75 2007/01/05 21:19:25 cph Exp $
+$Id: imail-rmail.scm,v 1.76 2007/07/07 17:22:19 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -365,7 +365,7 @@ USA.
      (if (eqv? rmail-message:end-char (peek-char port))
         (begin
           (read-char port)             ;discard
-          (make-eof-object port))
+          (eof-object))
         (read-required-line port)))))
 
 (define (read-to-eom port)
index 73c61c6ee47cbe9ca682825fd4f352d387cecac4..e8b311daa197a6add6dc6a850be133f36393eb5d 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: imail-util.scm,v 1.49 2007/04/01 17:33:07 riastradh Exp $
+$Id: imail-util.scm,v 1.50 2007/07/07 17:22:19 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -52,7 +52,7 @@ USA.
        (let ((item (car items)))
          (set! items (cdr items))
          item)
-       (make-eof-object #f))))
+       (eof-object))))
 
 (define (cut-list! items predicate)
   (if (or (not (pair? items)) (predicate (car items)))
@@ -526,7 +526,7 @@ USA.
                      (if (read-xstring-buffer state)
                          (loop p)
                          p)))))))
-       (make-eof-object port))))
+       (eof-object))))
 
 (define xstring-input-type
   (make-port-type
@@ -541,7 +541,7 @@ USA.
                                    (- position (istate-buffer-start state)))))
                   (set-istate-position! state (+ position 1))
                   char)
-                (make-eof-object port))))))
+                (eof-object))))))
      (EOF?
       ,(lambda (port)
         (let ((state (port/state port)))
index 4aba4faf90ee311302e070fdbe1d27f07a4ca607..e3a100ceef9e1c3519dcac084202d26ebaac598f 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: genio.scm,v 1.52 2007/05/01 14:12:52 cph Exp $
+$Id: genio.scm,v 1.53 2007/07/07 17:22:19 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -189,7 +189,7 @@ USA.
            (case r
              ((OK) (loop))
              ((WOULD-BLOCK) #f)
-             ((EOF) (make-eof-object port))
+             ((EOF) (eof-object))
              (else (error "Unknown result:" r))))))))
 
 (define (generic-io/read-substring port string start end)
index 7e887ea8697449820fee34aa9945ed323d90a34b..5ff127e8b071e6b6da0790e42bb5c19eac5ec064 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: input.scm,v 14.35 2007/06/06 19:42:42 cph Exp $
+$Id: input.scm,v 14.36 2007/07/07 17:22:19 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -132,6 +132,9 @@ USA.
 
 (define (make-eof-object port)
   port
+  (eof-object))
+
+(define (eof-object)
   (object-new-type (ucode-type constant) 6))
 
 (define (eof-object? object)
@@ -178,7 +181,7 @@ USA.
        (let ((eof? (port/operation port 'EOF?)))
          (and eof?
               (eof? port)
-              (make-eof-object port))))))
+              (eof-object))))))
 
 (define (read-string delimiters #!optional port)
   (input-port/read-string (optional-input-port port 'READ-STRING) delimiters))
index 04de22fafe90995ff42d91ad934240da898a1595..f9b5fa22de2d4045f221d37268cb5aedc4110c3f 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: parse.scm,v 14.66 2007/01/09 06:16:49 cph Exp $
+$Id: parse.scm,v 14.67 2007/07/07 17:22:19 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -529,7 +529,7 @@ USA.
          ((string-ci=? name "rest") lambda-rest-tag)
          ((string-ci=? name "key") lambda-key-tag)
          ((string-ci=? name "aux") lambda-aux-tag)
-         ((string-ci=? name "eof") (make-eof-object #f))
+         ((string-ci=? name "eof") (eof-object))
          ((string-ci=? name "default") (default-object))
          ((string-ci=? name "unspecific") unspecific)
          (else (error:illegal-named-constant name)))))
index 4dae1f7f0c3c14d24ae4fa6a7f78e31080eab898..77729b2c006ad22f1c93251fd5e4c43a252a1d29 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.619 2007/06/07 15:12:17 cph Exp $
+$Id: runtime.pkg,v 14.620 2007/07/07 17:22:19 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -2046,6 +2046,7 @@ USA.
          (discard-char read-char)
          (input-port/discard-char input-port/read-char)
          char-ready?
+         eof-object
          eof-object?
          input-port/char-ready?
          input-port/discard-chars
index 4b57278beb818b1a529750bad85375b234912f19..ea5c28061478d92200e6c233c997a24444cf82e7 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unicode.scm,v 1.33 2007/05/07 05:32:24 cph Exp $
+$Id: unicode.scm,v 1.34 2007/07/07 17:22:19 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -1242,7 +1242,7 @@ USA.
                `((READ-CHAR
                   ,(lambda (port)
                      (or ((port/state port))
-                         (make-eof-object port))))
+                         (eof-object))))
                  (WRITE-SELF
                   ,(lambda (port output-port)
                      port