Initial unfinished pass to generate IMAP URL parser.

diff --git a/v7/src/imail/compile.scm b/v7/src/imail/compile.scm
index 3961cd5a38d8696ce7b401c71a04f44edb71f89c..5371c130d7d106065007742d47265fa36ad59362 100644 (file)
--- a/v7/src/imail/compile.scm
+++ b/v7/src/imail/compile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: compile.scm,v 1.1 2000/01/18 20:56:05 cph Exp $
+;;; $Id: compile.scm,v 1.2 2000/04/12 03:54:04 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -27,10 +27,12 @@
     (for-each compile-file
              '("imail-core"
                "imail-file"
+               "imail-imap"
                "imail-rmail"
                "imail-umail"
                "imail-util"
-               "rfc822"))
+               "rfc822"
+               "url"))
     (for-each (let ((syntax-table
                     (access edwin-syntax-table (->environment '(EDWIN)))))
                (lambda (filename)

diff --git a/v7/src/imail/imail-imap-url.scm b/v7/src/imail/imail-imap-url.scm
index 3703ae83679d572512ceda2e035c6b9994161bb1..f877ccd8309fb23b0ad333ff2e9e4221914aa6fb 100644 (file)
--- a/v7/src/imail/imail-imap-url.scm
+++ b/v7/src/imail/imail-imap-url.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-imap-url.scm,v 1.1 2000/04/12 03:52:38 cph Exp $
+;;; $Id: imail-imap-url.scm,v 1.2 2000/04/12 03:56:33 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -80,10 +80,10 @@
                                    mailbox-list list-type)))))))))
 
 (define (parse-imap-url:server string start end)
-  )
+  ???)
 
 (define (parse-imap-url:command string start end if-mailbox if-search if-list)
-  )
+  ???)
 \f
 ;;;; Matcher language
 
@@ -175,18 +175,18 @@
                  (string->char-set "&=~")))
 
 (define imap:regexp:achar
-  (regexp-group (char-set->regexp url:char-set:achar)
+  (regexp-group (char-set->regexp imap:char-set:achar)
                url:regexp:escape))
 
 (define imap:regexp:achar+
   (string-append imap:regexp:achar "+"))
 
 (define imap:char-set:bchar
-  (char-set-union url:char-set:achar
+  (char-set-union imap:char-set:achar
                  (string->char-set ":@/")))
 
 (define imap:regexp:bchar
-  (regexp-group (char-set->regexp url:char-set:bchar)
+  (regexp-group (char-set->regexp imap:char-set:bchar)
                url:regexp:escape))
 
 (define imap:regexp:bchar+