[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-scsh ChangeLog INCOMPAT rw.scm
From: |
Gary Houston |
Subject: |
guile/guile-scsh ChangeLog INCOMPAT rw.scm |
Date: |
Mon, 04 Jun 2001 15:06:13 -0700 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-scsh ChangeLog INCOMPAT rw.scm,
Gary Houston <=