From 46309852cb23cef42702f4ec8c99285dca1538d9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 12 Apr 2000 03:56:33 +0000
Subject: [PATCH] Initial unfinished pass to generate IMAP URL parser.

---
 v7/src/imail/compile.scm        |  6 ++++--
 v7/src/imail/imail-imap-url.scm | 12 ++++++------
 2 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/v7/src/imail/compile.scm b/v7/src/imail/compile.scm
index 3961cd5a3..5371c130d 100644
--- 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 3703ae836..f877ccd83 100644
--- 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)
-  )
+  ???)
 
 ;;;; 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+
-- 
2.25.1