guile/guile-scsh ChangeLog Makefile.am THANKS U...

[Gary Houston]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Gary Houston <address@hidden>   01/08/01 10:22:58

Modified files:
        guile-scsh     : ChangeLog Makefile.am THANKS USAGE char-set.scm 
                         init.scm make-module-list 
Added files:
        guile-scsh     : char-p.scm 

Log message:
        * char-p.scm: new file, for new module (scsh char-p).
        (char-alphanumeric? char-graphic? char-printing? char-blank?
        char-control? char-punctuation? char-hex-digit? char-ascii?): moved
        from char-set.scm.
        (char-letter? char-digit? char-letter+digit? char-iso-control?
        char-symbol?): new from scsh-0.5.3.
        * init.scm, USAGE, Makefile.am, make-module-list: updated.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-scsh/char-p.scm?cvsroot=OldCVS&rev=1.1
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-scsh/ChangeLog.diff?cvsroot=OldCVS&tr1=1.67&tr2=1.68&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-scsh/Makefile.am.diff?cvsroot=OldCVS&tr1=1.26&tr2=1.27&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-scsh/THANKS.diff?cvsroot=OldCVS&tr1=1.6&tr2=1.7&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-scsh/USAGE.diff?cvsroot=OldCVS&tr1=1.17&tr2=1.18&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-scsh/char-set.scm.diff?cvsroot=OldCVS&tr1=1.4&tr2=1.5&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-scsh/init.scm.diff?cvsroot=OldCVS&tr1=1.40&tr2=1.41&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-scsh/make-module-list.diff?cvsroot=OldCVS&tr1=1.5&tr2=1.6&r1=text&r2=text

Patches:
Index: guile/guile-scsh/ChangeLog
diff -u guile/guile-scsh/ChangeLog:1.67 guile/guile-scsh/ChangeLog:1.68
--- guile/guile-scsh/ChangeLog:1.67     Sun Jul 22 21:15:26 2001
+++ guile/guile-scsh/ChangeLog  Wed Aug  1 10:22:58 2001
@@ -1,3 +1,21 @@
+2001-08-01  Gary Houston  <address@hidden>
+
+       * char-p.scm: new file, for new module (scsh char-p).
+       (char-alphanumeric? char-graphic? char-printing? char-blank?
+       char-control? char-punctuation? char-hex-digit? char-ascii?): moved
+       from char-set.scm.
+       (char-letter? char-digit? char-letter+digit? char-iso-control?
+       char-symbol?): new from scsh-0.5.3.
+       * init.scm, USAGE, Makefile.am, make-module-list: updated.
+
+2001-07-30  Gary Houston  <address@hidden>
+
+       * char-set.scm (char:newline, char:tab, char:page, char:return,
+       char:space, char:vtab): don't export, since they are not part of
+       the interface in scsh 0.5.3.
+       (char-alphabetic?, char-numeric?, char-lower-case?, char-upper-case?,
+       char-whitespace?): removed, since all R5RS and in guile-core.
+
 2001-07-22  Thien-Thi Nguyen  <address@hidden>
 
        * rw.scm (generic-write-string): Fix typo in `writer' call.
Index: guile/guile-scsh/Makefile.am
diff -u guile/guile-scsh/Makefile.am:1.26 guile/guile-scsh/Makefile.am:1.27
--- guile/guile-scsh/Makefile.am:1.26   Fri Jul  6 14:47:58 2001
+++ guile/guile-scsh/Makefile.am        Wed Aug  1 10:22:58 2001
@@ -3,7 +3,7 @@
 pkgdatadir = ${datadir}/guile/site/scsh
 
 pkgdata_DATA = alt-syntax.scm ascii.scm awk.scm bitwise.scm \
-       char-set.scm define-foreign-syntax.scm \
+       char-set.scm char-p.scm define-foreign-syntax.scm \
        defrec.scm ekko.scm errno.scm fdports.scm features.scm \
        fileinfo.scm filesys.scm \
        fluid.scm fname.scm fr.scm glob.scm here.scm \
Index: guile/guile-scsh/THANKS
diff -u guile/guile-scsh/THANKS:1.6 guile/guile-scsh/THANKS:1.7
--- guile/guile-scsh/THANKS:1.6 Fri May 25 10:06:59 2001
+++ guile/guile-scsh/THANKS     Wed Aug  1 10:22:58 2001
@@ -5,3 +5,4 @@
 Paul.Emsley
 David Lutterkort
 Russ McManus
+Thien-Thi Nguyen
Index: guile/guile-scsh/USAGE
diff -u guile/guile-scsh/USAGE:1.17 guile/guile-scsh/USAGE:1.18
--- guile/guile-scsh/USAGE:1.17 Sat Jul  7 08:35:28 2001
+++ guile/guile-scsh/USAGE      Wed Aug  1 10:22:58 2001
@@ -40,7 +40,7 @@
 =======================
 
 FIXME: various scsh facilities are available by default in guile-core and
-should be list here.
+should be listed here.
 
 (ice-9 format)
 (format)
@@ -120,8 +120,11 @@
 (define-record-type define-accessor define-accessors)
 
 (scsh char-set)
-(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? 
char-set:s)
+(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-set:s)
 
+(scsh char-p)
+(char-letter? char-digit? char-letter+digit? char-graphic? char-printing? 
char-blank? char-iso-control? char-punctuation? char-symbol? char-hex-digit? 
char-ascii? char-alphanumeric? char-control?)
+
 (scsh defrec)
 (define-record-discloser define-record)
 
@@ -251,7 +254,7 @@
 
 (scsh awk)
 ;; the awk macro generates code that requires:
-;; (scsh rx re-syntax), (scsh rx re) (scsh rx re-high)
+;; (scsh rx re-syntax) (scsh rx re) (scsh rx re-high)
 (awk)
 
 (scsh netconst)
Index: guile/guile-scsh/char-set.scm
diff -u guile/guile-scsh/char-set.scm:1.4 guile/guile-scsh/char-set.scm:1.5
--- guile/guile-scsh/char-set.scm:1.4   Sat Jul  7 08:35:28 2001
+++ guile/guile-scsh/char-set.scm       Wed Aug  1 10:22:58 2001
@@ -97,20 +97,6 @@
        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.
@@ -408,20 +394,3 @@
 (define char-set:ascii (ascii-range->char-set 0 128))
 (define char-set:empty (char-set))
 (define char-set:full (char-set-invert char-set:empty))
-
-
-(define (char-set->pred cs) (lambda (c) (char-set-contains? cs c)))
-
-(define char-lower-case?       (char-set->pred char-set:lower-case))
-(define char-upper-case?       (char-set->pred char-set:upper-case))
-(define char-alphabetic?       (char-set->pred char-set:alphabetic))
-(define char-numeric?          (char-set->pred char-set:numeric))
-(define char-alphanumeric?     (char-set->pred char-set:alphanumeric))
-(define char-graphic?          (char-set->pred char-set:graphic))
-(define char-printing?         (char-set->pred char-set:printing))
-(define char-whitespace?       (char-set->pred char-set:whitespace))
-(define char-blank?            (char-set->pred char-set:blank))
-(define char-control?          (char-set->pred char-set:control))
-(define char-punctuation?      (char-set->pred char-set:punctuation))
-(define char-hex-digit?                (char-set->pred char-set:hex-digit))
-(define char-ascii?            (char-set->pred char-set:ascii))
Index: guile/guile-scsh/init.scm
diff -u guile/guile-scsh/init.scm:1.40 guile/guile-scsh/init.scm:1.41
--- guile/guile-scsh/init.scm:1.40      Fri Jul  6 14:47:58 2001
+++ guile/guile-scsh/init.scm   Wed Aug  1 10:22:58 2001
@@ -28,6 +28,7 @@
             (scsh reading)
             (scsh jar-defrecord)
             (scsh char-set)
+            (scsh char-p)
             (scsh defrec)
             (scsh errno)
             (scsh rw)
Index: guile/guile-scsh/make-module-list
diff -u guile/guile-scsh/make-module-list:1.5 
guile/guile-scsh/make-module-list:1.6
--- guile/guile-scsh/make-module-list:1.5       Sat Jul  7 08:35:28 2001
+++ guile/guile-scsh/make-module-list   Wed Aug  1 10:22:58 2001
@@ -23,6 +23,7 @@
         reading
         jar-defrecord
         char-set
+        char-p
         defrec
         errno
         rw