[[project @ 2001-08-01 17:22:58 by ghouston]
ghouston**20010801172258
 Ignore-this: bf7625df0cf3a89d13939d8ea14642c2
 	* 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.
] addfile ./char-p.scm
hunk ./ChangeLog 1
+2001-08-01  Gary Houston  <ghouston@arglist.com>
+
+	* 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  <ghouston@arglist.com>
+
+	* 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.
+
hunk ./Makefile.am 6
-	char-set.scm define-foreign-syntax.scm \
+	char-set.scm char-p.scm define-foreign-syntax.scm \
hunk ./THANKS 8
+Thien-Thi Nguyen
hunk ./USAGE 43
-should be list here.
+should be listed here.
hunk ./USAGE 123
-(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?)
hunk ./USAGE 257
-;; (scsh rx re-syntax), (scsh rx re) (scsh rx re-high)
+;; (scsh rx re-syntax) (scsh rx re) (scsh rx re-high)
hunk ./char-p.scm 1
+;; scsh/lib/char-package.scm in scsh 0.5.3.
+
+(define-module (scsh char-p)
+  :use-module (srfi srfi-14))
+
+(export
+ ;; R5RS
+ ;; char-lower-case? char-upper-case? char-alphabetic? char-numeric?
+ ;; char-whitespace?
+
+ 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?
+
+ ;; Obsolete.
+ char-alphanumeric? char-control?
+)
+
+;; These are scsh extensions to R5RS.
+(define (char-letter?       c) (char-set-contains? char-set:letter       c))
+(define (char-digit?        c) (char-set-contains? char-set:digit        c))
+(define (char-letter+digit? c) (char-set-contains? char-set:letter+digit c))
+(define (char-graphic?      c) (char-set-contains? char-set:graphic      c))
+(define (char-printing?     c) (char-set-contains? char-set:printing     c))
+(define (char-blank?        c) (char-set-contains? char-set:blank        c))
+(define (char-iso-control?  c) (char-set-contains? char-set:iso-control  c))
+(define (char-punctuation?  c) (char-set-contains? char-set:punctuation  c))
+(define (char-symbol?       c) (char-set-contains? char-set:symbol       c))
+(define (char-hex-digit?    c) (char-set-contains? char-set:hex-digit    c))
+(define (char-ascii?        c) (char-set-contains? char-set:ascii        c))
+
+;; Obsolete scsh.
+(define (char-alphanumeric? c)
+  (issue-deprecation-warning
+   "char-alphanumeric? is deprecated.  Use char-letter+digit? instead")
+  (char-letter+digit? c))
+
+(define (char-control? c)
+  (issue-deprecation-warning
+   "char-control? is deprecated.  Use char-iso-control? instead")
+  (char-iso-control? c))
hunk ./char-set.scm 100
-	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?
-
hunk ./char-set.scm 397
-
-
-(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))
hunk ./init.scm 31
+	     (scsh char-p)
hunk ./make-module-list 26
+	 char-p