Update of /cvsroot/scsh/scsh/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv11197/scsh
Modified Files:
Tag: srfi13and14_integration_2000_3_10
fr.scm glob.scm meta-arg.scm scsh-interfaces.scm
scsh-package.scm
Log Message:
Integrated srfi-13 (string lib)& srfi-14 (char-set lib)
- Ported sources to use these libs instead of older string & cset libs
- Wrote backwards-compatibility libs for now-deprecated procs in the
scsh API
- Hacked the makefile/package/interfaces glue
Whew.
Index: fr.scm
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/fr.scm,v
retrieving revision 1.5
retrieving revision 1.5.2.1
diff -C2 -r1.5 -r1.5.2.1
*** fr.scm 1999/09/08 15:19:16 1.5
--- fr.scm 2001/03/11 03:47:00 1.5.2.1
***************
*** 319,323 ****
((concat) ; CONCAT-delimiter reader.
! (let ((not-delims (char-set-invert delims)))
(lambda maybe-port
(let* ((p (:optional maybe-port (current-input-port)))
--- 319,323 ----
((concat) ; CONCAT-delimiter reader.
! (let ((not-delims (char-set-complement delims)))
(lambda maybe-port
(let* ((p (:optional maybe-port (current-input-port)))
***************
*** 329,333 ****
((split) ; SPLIT-delimiter reader.
! (let ((not-delims (char-set-invert delims)))
(lambda maybe-port
(let ((p (:optional maybe-port (current-input-port))))
--- 329,333 ----
((split) ; SPLIT-delimiter reader.
! (let ((not-delims (char-set-complement delims)))
(lambda maybe-port
(let ((p (:optional maybe-port (current-input-port))))
Index: glob.scm
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/glob.scm,v
retrieving revision 1.5
retrieving revision 1.5.2.1
diff -C2 -r1.5 -r1.5.2.1
*** glob.scm 2000/02/09 15:21:07 1.5
--- glob.scm 2001/03/11 03:47:00 1.5.2.1
***************
*** 152,165 ****
((#\])
(let ((cset (fold (lambda (elt cset)
! (char-set-union
! cset
! (if (char? elt)
! (char-set elt)
! (ascii-range->char-set (char->ascii
(car elt))
! (+ 1
(char->ascii (cdr elt)))))))
! char-set:empty
elts)))
(values (re-char-set (if negate?
! (char-set-invert cset)
cset))
i)))
--- 152,164 ----
((#\])
(let ((cset (fold (lambda (elt cset)
! (if (char? elt)
! (char-set-adjoin! cset elt)
! (ucs-range->char-set! (char->ascii
(car elt))
! (+ 1
(char->ascii (cdr elt)))
! #f cset)))
! (char-set-copy char-set:empty)
elts)))
(values (re-char-set (if negate?
! (char-set-complement! cset)
cset))
i)))
Index: meta-arg.scm
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/meta-arg.scm,v
retrieving revision 1.6
retrieving revision 1.6.2.1
diff -C2 -r1.6 -r1.6.2.1
*** meta-arg.scm 1999/08/06 13:27:59 1.6
--- meta-arg.scm 2001/03/11 03:47:00 1.6.2.1
***************
*** 53,57 ****
(define read-files-secondary-args
! (let ((non-newline (char-set-invert (char-set #\newline))))
(lambda (fname)
(call-with-input-file fname
--- 53,57 ----
(define read-files-secondary-args
! (let ((non-newline (char-set-complement! (char-set #\newline))))
(lambda (fname)
(call-with-input-file fname
Index: scsh-interfaces.scm
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/scsh-interfaces.scm,v
retrieving revision 1.27
retrieving revision 1.27.2.1
diff -C2 -r1.27 -r1.27.2.1
*** scsh-interfaces.scm 2001/02/25 19:51:56 1.27
--- scsh-interfaces.scm 2001/03/11 03:47:00 1.27.2.1
***************
*** 685,764 ****
- (define-interface char-set-interface
- (export char:newline char:tab char:page char:return char:space char:vtab
- char-ascii?
-
- char-set?
- char-set-copy
- char-set=
- char-set<=
- char-set-size
-
- char-set-adjoin char-set-delete
- char-set-adjoin! char-set-delete!
- char-set-for-each
- char-set-fold reduce-char-set
-
- char-set
- chars->char-set
- string->char-set
- ascii-range->char-set
- predicate->char-set
- ->char-set
-
- char-set-members
- char-set-contains?
-
- char-set-every?
- char-set-any
-
- char-set-invert
- char-set-union
- char-set-intersection
- char-set-difference
-
- char-set-invert!
- char-set-union!
- char-set-intersection!
- char-set-difference!
-
- char-set:lower-case
- char-set:upper-case
- char-set:alphabetic
- char-set:numeric
- char-set:alphanumeric
- char-set:graphic
- char-set:printing
- char-set:whitespace
- char-set:blank
- char-set:control
- char-set:punctuation
- char-set:hex-digit
- char-set:ascii
- char-set:empty
- char-set:full
-
- char-lower-case?
- char-upper-case?
- char-alphabetic?
- char-numeric?
- char-alphanumeric?
- char-graphic?
- char-printing?
- char-whitespace?
- char-blank?
- char-control?
- char-punctuation?
- char-hex-digit?
- char-ascii?
-
- ;; This is not properly part of the interface,
- ;; and should be moved to an internals interface --
- ;; it is used by rdelim.scm code.
- char-set:s))
-
-
(define-interface scsh-field-reader-interface
! (export join-strings
field-splitter infix-splitter suffix-splitter sloppy-suffix-splitter
record-reader
--- 685,690 ----
(define-interface scsh-field-reader-interface
! (export join-strings ; Obsolete. Has become SRFI-13's STRING-JOIN.
field-splitter infix-splitter suffix-splitter sloppy-suffix-splitter
record-reader
Index: scsh-package.scm
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/scsh-package.scm,v
retrieving revision 1.16
retrieving revision 1.16.2.1
diff -C2 -r1.16 -r1.16.2.1
*** scsh-package.scm 2001/02/25 19:51:56 1.16
--- scsh-package.scm 2001/03/11 03:47:00 1.16.2.1
***************
*** 62,76 ****
- (define-structure char-set-package char-set-interface
- (open error-package
- ascii
- define-record-types ; JAR's record macro.
- scsh-utilities ; For DEPRECATED-PROC
- scheme)
- (files char-set)
- (optimize auto-integrate)
- )
-
-
(define-structures ((tty-flags tty-flags-interface)
(scsh-internal-tty-flags scsh-internal-tty-flags-interface))
--- 62,65 ----
***************
*** 167,173 ****
weak
; scsh-regexp-package
; scsh-regexp-internals
! char-set-package
scsh-version
tty-flags
--- 156,163 ----
weak
+ scsh-char-set-low-level-lib ; rdelim.scm needs it.
; scsh-regexp-package
; scsh-regexp-internals
! char-set-lib
scsh-version
tty-flags
***************
*** 289,303 ****
(define-structure field-reader-package scsh-field-reader-interface
(open receiving ; receive
! char-set-package
! scsh-utilities ; nth
error-package ; error
scsh-level-0 ; delimited readers
; scsh-regexp-package
re-exports
- string-lib ; join-strings
let-opt ; optional-arg parsing & defaulting
scheme
)
(files fr)
(optimize auto-integrate)
)
--- 279,295 ----
(define-structure field-reader-package scsh-field-reader-interface
(open receiving ; receive
! scsh-utilities ; nth & deprecated-proc (for join-strings)
error-package ; error
+ string-lib ; string-join for obsolete join-strings
scsh-level-0 ; delimited readers
; scsh-regexp-package
re-exports
let-opt ; optional-arg parsing & defaulting
scheme
)
(files fr)
+ ;; Handle a little bit of backwards compatibility.
+ (begin (define join-strings (deprecated-proc string-join 'join-strings
+ "Use SRFI-13 STRING-JOIN.")))
(optimize auto-integrate)
)
***************
*** 365,371 ****
--- 357,366 ----
awk-interface
odbc-interface
+ char-set-predicates-interface; Urk -- Some of this is
R5RS!
+ obsolete-char-set-interface
)
(open structure-refs
+ obsolete-char-set-lib
scsh-level-0
scsh-level-0-internals
***************
*** 378,381 ****
--- 373,377 ----
odbc-package
field-reader-package
+ char-set-predicates-lib ; Urk -- Some of this is R5RS!
scheme)
|