guile/guile-scsh ChangeLog INCOMPAT rw.scm

[Gary Houston]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Gary Houston <address@hidden>   01/06/04 15:06:13

Modified files:
        guile-scsh     : ChangeLog INCOMPAT rw.scm 

Log message:
        * rw.scm (generic-write-string/partial, write-string/partial):
        removed.  write-string/partial is now in (ice-9 rw).

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-scsh/ChangeLog.diff?cvsroot=OldCVS&tr1=1.58&tr2=1.59&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-scsh/INCOMPAT.diff?cvsroot=OldCVS&tr1=1.21&tr2=1.22&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-scsh/rw.scm.diff?cvsroot=OldCVS&tr1=1.10&tr2=1.11&r1=text&r2=text

Patches:
Index: guile/guile-scsh/ChangeLog
diff -u guile/guile-scsh/ChangeLog:1.58 guile/guile-scsh/ChangeLog:1.59
--- guile/guile-scsh/ChangeLog:1.58     Tue May 29 13:53:57 2001
+++ guile/guile-scsh/ChangeLog  Mon Jun  4 15:06:13 2001
@@ -1,3 +1,8 @@
+2001-06-04  Gary Houston  <address@hidden>
+
+       * rw.scm (generic-write-string/partial, write-string/partial):
+       removed.  write-string/partial is now in (ice-9 rw).
+
 2001-05-29  Gary Houston  <address@hidden>
 
        * rx/re-subst.scm: export regexp-substitute/global.  otherwise
Index: guile/guile-scsh/INCOMPAT
diff -u guile/guile-scsh/INCOMPAT:1.21 guile/guile-scsh/INCOMPAT:1.22
--- guile/guile-scsh/INCOMPAT:1.21      Thu Jan 25 13:50:54 2001
+++ guile/guile-scsh/INCOMPAT   Mon Jun  4 15:06:13 2001
@@ -1,8 +1,6 @@
 Bugs:
 ====
 
-write-string/partial will block until all data is written.
-
 Incompatibilities with the original scsh:
 ========================================
 
Index: guile/guile-scsh/rw.scm
diff -u guile/guile-scsh/rw.scm:1.10 guile/guile-scsh/rw.scm:1.11
--- guile/guile-scsh/rw.scm:1.10        Sun Apr 29 06:55:53 2001
+++ guile/guile-scsh/rw.scm     Mon Jun  4 15:06:13 2001
@@ -9,10 +9,10 @@
   :use-module (scsh let-opt)
 )
 (export bogus-substring-spec? read-string/partial
-       read-string! read-string write-string write-string/partial)
+       read-string! read-string write-string)
 
 ;; from (ice-9 rw)
-(export read-string!/partial)
+(export read-string!/partial write-string/partial)
 
 (define (bogus-substring-spec? s start end)
   (or (< start 0)
@@ -74,30 +74,30 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Non-blocking output to a buffered port is not defined.
 
-(define (generic-write-string/partial s start end writer target)
-  (if (bogus-substring-spec? s start end)
-      (error "Bad substring indices" writer s start end target))
-
-  (if (= start end) 0                  ; Vacuous request.
-      (let loop ()
-       (catch 'system-error
-              (lambda ()
-                (let ((nwritten (writer s target start end start)))
-                  nwritten))
-              (lambda args 
-                (let ((err (car (list-ref args 4))))
-                  (cond ;; ((= err errno/intr) (loop)) ; handled by primitive.
-                       ((or (= err errno/wouldblock); No forward-progess here.
-                            (= err errno/again))
-                        0)
-                       (else (apply scm-error args)))))))))
-
-(define (write-string/partial s . args)
-  (let-optionals args ((fd/port (current-output-port))
-                      (start 0)
-                      (end (string-length s)))
-                (generic-write-string/partial s start end
-                                        uniform-array-write fd/port)))
+; (define (generic-write-string/partial s start end writer target)
+;   (if (bogus-substring-spec? s start end)
+;       (error "Bad substring indices" writer s start end target))
+
+;   (if (= start end) 0                        ; Vacuous request.
+;       (let loop ()
+;      (catch 'system-error
+;             (lambda ()
+;               (let ((nwritten (writer s target start end start)))
+;                 nwritten))
+;             (lambda args 
+;               (let ((err (car (list-ref args 4))))
+;                 (cond ;; ((= err errno/intr) (loop)) ; handled by primitive.
+;                      ((or (= err errno/wouldblock); No forward-progess here.
+;                           (= err errno/again))
+;                       0)
+;                      (else (apply scm-error args)))))))))
+
+; (define (write-string/partial s . args)
+;   (let-optionals args ((fd/port (current-output-port))
+;                     (start 0)
+;                     (end (string-length s)))
+;               (generic-write-string/partial s start end
+;                                       uniform-array-write fd/port)))
 
 
 ;;; Persistent writing