From addf8be57a1c104a264f377d110dd0a7b3e198da Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 7 May 2001 21:24:33 +0000 Subject: [PATCH] . original commit: 9527ba8a9d865033d48bc08259583cc18bc7f455 --- collects/net/pop3.ss | 12 ++++++------ collects/net/{open-url.ss => sendurl.ss} | 9 +++++---- 2 files changed, 11 insertions(+), 10 deletions(-) rename collects/net/{open-url.ss => sendurl.ss} (81%) diff --git a/collects/net/pop3.ss b/collects/net/pop3.ss index 1e30c920ce..e625094901 100644 --- a/collects/net/pop3.ss +++ b/collects/net/pop3.ss @@ -13,24 +13,24 @@ #| > (require-library "pop3.ss" "net") -> (define c (pop3:connect-to-server "cs.rice.edu")) -> (pop3:authenticate/plain-text "scheme" "********" c) -> (pop3:get-mailbox-status c) +> (define c (connect-to-server "cs.rice.edu")) +> (authenticate/plain-text "scheme" "********" c) +> (get-mailbox-status c) 100 177824 -> (pop3:get-message/headers c 100) +> (get-message/headers c 100) ("Date: Thu, 6 Nov 1997 12:34:18 -0600 (CST)" "Message-Id: <199711061834.MAA11961@new-world.cs.rice.edu>" "From: Shriram Krishnamurthi " ... "Status: RO") -> (pop3:get-message/complete c 100) +> (get-message/complete c 100) ("Date: Thu, 6 Nov 1997 12:34:18 -0600 (CST)" "Message-Id: <199711061834.MAA11961@new-world.cs.rice.edu>" "From: Shriram Krishnamurthi " ... "Status: RO") ("some body" "text" "goes" "." "here" "." "") -> (pop3:disconnect-from-server c) +> (disconnect-from-server c) |# diff --git a/collects/net/open-url.ss b/collects/net/sendurl.ss similarity index 81% rename from collects/net/open-url.ss rename to collects/net/sendurl.ss index be5511919d..d947b08bf7 100644 --- a/collects/net/open-url.ss +++ b/collects/net/sendurl.ss @@ -1,9 +1,10 @@ -(module open-url mzscheme + +(module send-url mzscheme (require (lib "process.ss")) - (provide open-url) + (provide send-url) - (define (open-url str) + (define (send-url str) (case (system-type) [(macos) (send-event "MACS" "GURL" "GURL" str)] @@ -17,4 +18,4 @@ (close-output-port in) (close-input-port out) (close-input-port err))))] - [else (error 'open-url "don't know how to open url on platform: ~s" (system-type))]))) + [else (error 'send-url "don't know how to open url on platform: ~s" (system-type))])))