Add URL-encoding support.

diff --git a/v7/src/runtime/Makefile.in b/v7/src/runtime/Makefile.in
index 0c39e347ef869c615b9875b06d98b9dce4fa2188..eaa3fab3ab0f53c87bbaacb01082c12a9017ddba 100644 (file)
--- a/v7/src/runtime/Makefile.in
+++ b/v7/src/runtime/Makefile.in
@@ -1,4 +1,4 @@
-# $Id: Makefile.in,v 1.4 2001/10/05 15:43:38 cph Exp $
+# $Id: Makefile.in,v 1.5 2001/10/05 15:58:10 cph Exp $
 #
 # Copyright (c) 2000 Massachusetts Institute of Technology
 #
@@ -63,7 +63,7 @@ mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
 AUXDIR = @AUXDIR@
 RODIR = $(AUXDIR)/options
 RUNOPTS = chrsyn cpress format gdbm hashtb krypt mime-codec numint optiondb \
-         ordvec process rbtree regexp rexp rgxcmp syncproc wttree ystep
+         ordvec process rbtree regexp rexp rgxcmp syncproc url wttree ystep
 
 all:
        echo "No ALL action"

diff --git a/v7/src/runtime/ed-ffi.scm b/v7/src/runtime/ed-ffi.scm
index fee331df1b75eacb1adb4621f8508eaa4081065e..091a38672353813ad3ae779bdbd23930c0ea8487 100644 (file)
--- a/v7/src/runtime/ed-ffi.scm
+++ b/v7/src/runtime/ed-ffi.scm
@@ -1,6 +1,6 @@
 #| -*- Scheme -*-
 
-$Id: ed-ffi.scm,v 1.26 2001/10/05 15:48:10 cph Exp $
+$Id: ed-ffi.scm,v 1.27 2001/10/05 15:58:12 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -296,6 +296,8 @@ USA.
                syntax-table/system-internal)
     ("uproc"   (runtime procedure)
                syntax-table/system-internal)
+    ("url"     (runtime url)
+               syntax-table/system-internal)
     ("urtrap"  (runtime reference-trap)
                syntax-table/system-internal)
     ("usrint"  (runtime user-interface)

diff --git a/v7/src/runtime/optiondb.scm b/v7/src/runtime/optiondb.scm
index 31b27d059e30fe62ba526ab7ad5dbfbf652326cb..5df514ce76752069079a3c3d17e12b025303e1e7 100644 (file)
--- a/v7/src/runtime/optiondb.scm
+++ b/v7/src/runtime/optiondb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: optiondb.scm,v 1.10 2001/10/05 15:43:43 cph Exp $
+$Id: optiondb.scm,v 1.11 2001/10/05 15:58:15 cph Exp $
 
 Copyright (c) 1994-2001 Massachusetts Institute of Technology
 
@@ -71,6 +71,7 @@ USA.
    (STEPPER    (RUNTIME STEPPER)       #F                      "ystep")
    (SUBPROCESS (RUNTIME SUBPROCESS)    (INITIALIZE-PACKAGE!)   "process")
    (SYNCHRONOUS-SUBPROCESS (RUNTIME SYNCHRONOUS-SUBPROCESS) #F "syncproc")
+   (URL                (RUNTIME url)           #F                      "url")
    (WT-TREE    (RUNTIME WT-TREE)       #F                      "wttree")
    ))
 

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 802c345abc32c57ae845fcd088406ab497b2df0e..d5bda88e79df4e6f36304ad721fb354005b8287d 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.377 2001/10/05 15:43:46 cph Exp $
+$Id: runtime.pkg,v 14.378 2001/10/05 15:58:18 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -3753,4 +3753,32 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
          encode-quoted-printable:update
          make-decode-base64-port
          make-decode-binhex40-port
-         make-decode-quoted-printable-port))
\ No newline at end of file
+         make-decode-quoted-printable-port))
+
+(define-package (runtime url)
+  (file-case options
+    ((load) "url")
+    (else))
+  (parent ())
+  (export ()
+         url:char-set:escaped
+         url:char-set:extra
+         url:char-set:national
+         url:char-set:punctuation
+         url:char-set:reserved
+         url:char-set:safe
+         url:char-set:unescaped
+         url:char-set:unreserved
+         url:decode-string
+         url:decode-substring
+         url:encode-string
+         url:encode-substring
+         url:rexp:escape
+         url:rexp:host
+         url:rexp:hostname
+         url:rexp:hostnumber
+         url:rexp:hostport
+         url:rexp:uchar
+         url:rexp:xchar
+         url:string-encoded?
+         url:substring-encoded?))
\ No newline at end of file