Add a few char sets used in many RFCs.

diff --git a/v7/src/runtime/chrset.scm b/v7/src/runtime/chrset.scm
index c107d1762981b058f13bb3d684f6278fcf9a96cf..1738a7484d2577825374611458701155ca5d0682 100644 (file)
--- a/v7/src/runtime/chrset.scm
+++ b/v7/src/runtime/chrset.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: chrset.scm,v 14.23 2008/01/30 20:02:28 cph Exp $
+$Id: chrset.scm,v 14.24 2008/07/08 06:14:26 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -171,6 +171,11 @@ USA.
 (define char-set:not-alphanumeric)
 (define char-set:not-standard)
 
+;;; Used in RFCs:
+(define char-set:ascii)
+(define char-set:ctls)
+(define char-set:wsp)
+
 (define (initialize-package!)
   (set! char-set:upper-case
        (char-set-union (ascii-range->char-set #x41 #x5B)
@@ -194,6 +199,7 @@ USA.
   (set! char-set:standard
        (char-set-union char-set:graphic (char-set #\newline)))
   (set! char-set:newline (char-set #\newline))
+
   (set! char-set:not-upper-case   (char-set-invert char-set:upper-case))
   (set! char-set:not-lower-case   (char-set-invert char-set:lower-case))
   (set! char-set:not-numeric      (char-set-invert char-set:numeric))
@@ -202,6 +208,12 @@ USA.
   (set! char-set:not-alphabetic   (char-set-invert char-set:alphabetic))
   (set! char-set:not-alphanumeric (char-set-invert char-set:alphanumeric))
   (set! char-set:not-standard     (char-set-invert char-set:standard))
+
+  (set! char-set:ascii (ascii-range->char-set #x00 #x80))
+  (set! char-set:ctls
+       (char-set-union (ascii-range->char-set #x00 #x20)
+                       (ascii-range->char-set #x7F #x80)))
+  (set! char-set:wsp (char-set #\space #\tab))
   unspecific)
 \f
 (define (char-upper-case? char)

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index dee9e04826f23f24cc07c47dc154fa70719ebe20..88341c98165c45742406e09678fa113b0bc02d7b 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.646 2008/02/15 05:06:01 cph Exp $
+$Id: runtime.pkg,v 14.647 2008/07/08 06:14:43 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -1047,6 +1047,8 @@ USA.
          char-set-union
          char-set:alphabetic
          char-set:alphanumeric
+         char-set:ascii
+         char-set:ctls
          char-set:graphic
          char-set:lower-case
          char-set:newline
@@ -1062,6 +1064,7 @@ USA.
          char-set:standard
          char-set:upper-case
          char-set:whitespace
+         char-set:wsp
          char-set=?
          char-set?
          char-standard?