suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Recketizing much in `net/*', mass ".ss" -> ".rkt" conversion in .scrbl files.

Browse Source 
(Some other minor things here and there.)

original commit: debd1f9f1e6899e2a7e4ab5de929a49df490b5c7
This commit is contained in:
Eli Barzilay 2011-06-20 04:00:14 -04:00
parent 785cd52135
commit 760adf6428
28 changed files with 64 additions and 75 deletions

2
collects/net/base64-sig.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/signature #lang racket/signature
base64-encode-stream base64-encode-stream
base64-decode-stream base64-decode-stream

4
collects/net/base64-unit.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/unit #lang racket/unit
(require "base64-sig.ss") (require "base64-sig.rkt")
(import) (import)
(export base64^) (export base64^)

2
collects/net/cgi-sig.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/signature #lang racket/signature
;; -- exceptions raised -- ;; -- exceptions raised --
(struct cgi-error ()) (struct cgi-error ())

4
collects/net/cgi-unit.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/unit #lang racket/unit
(require "cgi-sig.ss" "uri-codec.ss") (require "cgi-sig.rkt" "uri-codec.rkt")
(import) (import)
(export cgi^) (export cgi^)

2
collects/net/cookie-sig.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/signature #lang racket/signature
cookie-name? cookie-name?
cookie-value? cookie-value?

8
collects/net/cookie-unit.rkt
View File

@ -1,5 +1,5 @@
;;; ;;;
;;; <cookie-unit.ss> ---- HTTP cookies library ;;; <cookie-unit.rkt> ---- HTTP cookies library
;;; Time-stamp: <03/04/25 10:50:05 noel> ;;; Time-stamp: <03/04/25 10:50:05 noel>
;;; ;;;
;;; Copyright (C) 2002 by Francisco Solsona. ;;; Copyright (C) 2002 by Francisco Solsona.
@ -48,9 +48,9 @@
;; ;;
;; You should think of this procedures as a `format' for cookies. ;; You should think of this procedures as a `format' for cookies.
#lang scheme/unit #lang racket/unit
(require srfi/13/string srfi/14/char-set "cookie-sig.ss") (require srfi/13/string srfi/14/char-set "cookie-sig.rkt")
(import) (import)
(export cookie^) (export cookie^)
@ -323,4 +323,4 @@
(define (valid-path? v) (define (valid-path? v)
(and (string? v) (rfc2109:value? v))) (and (string? v) (rfc2109:value? v)))
;;; cookie-unit.ss ends here ;;; cookie-unit.rkt ends here

2
collects/net/dns-sig.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/signature #lang racket/signature
dns-get-address dns-get-address
dns-get-name dns-get-name

4
collects/net/dns-unit.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/unit #lang racket/unit
(require "dns-sig.ss" scheme/system scheme/udp) (require "dns-sig.rkt" racket/system racket/udp)
(import) (import)
(export dns^) (export dns^)

2
collects/net/head-sig.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/signature #lang racket/signature
empty-header empty-header
validate-header validate-header

4
collects/net/head-unit.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/unit #lang racket/unit
(require mzlib/date mzlib/string "head-sig.ss") (require racket/date racket/string "head-sig.rkt")
(import) (import)
(export head^) (export head^)

2
collects/net/imap-sig.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/signature #lang racket/signature
imap-port-number imap-port-number
imap-connection? imap-connection?

6
collects/net/imap-unit.rkt
View File

@ -1,8 +1,6 @@
#lang scheme/unit #lang racket/unit
(require scheme/tcp (require racket/tcp "imap-sig.rkt" "private/rbtree.rkt")
"imap-sig.ss"
"private/rbtree.ss")
(import) (import)
(export imap^) (export imap^)

2
collects/net/mime-sig.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/signature #lang racket/signature
;; -- exceptions raised -- ;; -- exceptions raised --
(struct mime-error () #:omit-constructor) (struct mime-error () #:omit-constructor)

13
collects/net/mime-unit.rkt
View File

@ -1,5 +1,5 @@
;;; ;;;
;;; <mime-unit.ss> ---- MIME support ;;; <mime-unit.rkt> ---- MIME support
;;; ;;;
;;; Copyright (C) 2002 by PLT. ;;; Copyright (C) 2002 by PLT.
;;; Copyright (C) 2001 by Wish Computing. ;;; Copyright (C) 2001 by Wish Computing.
@ -27,14 +27,11 @@
;; Commentary: MIME support for PLT Scheme: an implementation of ;; Commentary: MIME support for PLT Scheme: an implementation of
;; rfc2045, rfc2046, rfc2047, rfc2048, and rfc2049. ;; rfc2045, rfc2046, rfc2047, rfc2048, and rfc2049.
#lang scheme/unit #lang racket/unit
(require "mime-sig.ss" (require "mime-sig.rkt" "qp-sig.rkt" "base64-sig.rkt" "head-sig.rkt"
"qp-sig.ss" "mime-util.rkt"
"base64-sig.ss" racket/port)
"head-sig.ss"
"mime-util.ss"
scheme/port)
(import base64^ qp^ head^) (import base64^ qp^ head^)
(export mime^) (export mime^)

2
collects/net/nntp-sig.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/signature #lang racket/signature
(struct communicator (sender receiver server port)) (struct communicator (sender receiver server port))
connect-to-server connect-to-server* disconnect-from-server connect-to-server connect-to-server* disconnect-from-server

4
collects/net/nntp-unit.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/unit #lang racket/unit
(require scheme/tcp "nntp-sig.ss") (require racket/tcp "nntp-sig.rkt")
(import) (import)
(export nntp^) (export nntp^)

2
collects/net/pop3-sig.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/signature #lang racket/signature
(struct communicator (sender receiver server port state)) (struct communicator (sender receiver server port state))
connect-to-server connect-to-server* disconnect-from-server connect-to-server connect-to-server* disconnect-from-server

4
collects/net/pop3-unit.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/unit #lang racket/unit
(require scheme/tcp "pop3-sig.ss") (require racket/tcp "pop3-sig.rkt")
(import) (import)
(export pop3^) (export pop3^)

2
collects/net/qp-sig.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/signature #lang racket/signature
;; -- exceptions raised -- ;; -- exceptions raised --
(struct qp-error () #:omit-constructor) (struct qp-error () #:omit-constructor)

8
collects/net/qp-unit.rkt
View File

@ -1,5 +1,5 @@
;;; ;;;
;;; <qp-unit.ss> ---- Quoted Printable Implementation ;;; <qp-unit.rkt> ---- Quoted Printable Implementation
;;; ;;;
;;; Copyright (C) 2002 by PLT. ;;; Copyright (C) 2002 by PLT.
;;; Copyright (C) 2001 by Francisco Solsona. ;;; Copyright (C) 2001 by Francisco Solsona.
@ -26,9 +26,9 @@
;; ;;
;; Commentary: ;; Commentary:
#lang scheme/unit #lang racket/unit
(require "qp-sig.ss") (require "qp-sig.rkt")
(import) (import)
(export qp^) (export qp^)
@ -162,4 +162,4 @@
(vector-set! hex-bytes (+ 10 i) (+ i 65)) (vector-set! hex-bytes (+ 10 i) (+ i 65))
(loop (add1 i)))) (loop (add1 i))))
;;; qp-unit.ss ends here ;;; qp-unit.rkt ends here

2
collects/net/sendmail-sig.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/signature #lang racket/signature
send-mail-message/port send-mail-message/port
send-mail-message send-mail-message

4
collects/net/sendmail-unit.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/unit #lang racket/unit
(require mzlib/process "sendmail-sig.ss") (require racket/system "sendmail-sig.rkt")
(import) (import)
(export sendmail^) (export sendmail^)

2
collects/net/smtp-sig.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/signature #lang racket/signature
smtp-sending-server smtp-sending-server
smtp-send-message smtp-send-message

9
collects/net/smtp-unit.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/unit #lang racket/unit
(require scheme/tcp "base64.ss" "smtp-sig.ss") (require racket/tcp "base64.rkt" "smtp-sig.rkt")
(import) (import)
(export smtp^) (export smtp^)
@ -9,9 +9,8 @@
(define debug-via-stdio? #f) (define debug-via-stdio? #f)
(define (log . args) ;; (define log printf)
;; (apply printf args) (define log void)
(void))
(define (starts-with? l n) (define (starts-with? l n)
(and (>= (string-length l) (string-length n)) (and (>= (string-length l) (string-length n))

2
collects/net/uri-codec-sig.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/signature #lang racket/signature
uri-encode uri-encode
uri-decode uri-decode

27
collects/net/uri-codec-unit.rkt
View File

@ -15,7 +15,7 @@ See more in PR8831.
;;; ;;;
;;; <uri-codec-unit.ss> ---- En/Decode URLs and form-urlencoded data ;;; <uri-codec-unit.rkt> ---- En/Decode URLs and form-urlencoded data
;;; Time-stamp: <03/04/25 10:31:31 noel> ;;; Time-stamp: <03/04/25 10:31:31 noel>
;;; ;;;
;;; Copyright (C) 2002 by Noel Welsh. ;;; Copyright (C) 2002 by Noel Welsh.
@ -86,13 +86,9 @@ See more in PR8831.
;; Draws inspiration from encode-decode.scm by Kurt Normark and a code ;; Draws inspiration from encode-decode.scm by Kurt Normark and a code
;; sample provided by Eli Barzilay ;; sample provided by Eli Barzilay
#lang scheme/unit #lang racket/unit
(require mzlib/match (require racket/match racket/string racket/list "uri-codec-sig.rkt")
mzlib/string
mzlib/list
mzlib/etc
"uri-codec-sig.ss")
(import) (import)
(export uri-codec^) (export uri-codec^)
@ -151,7 +147,7 @@ See more in PR8831.
(let ([encoding-table (build-vector ascii-size number->hex-string)] (let ([encoding-table (build-vector ascii-size number->hex-string)]
[decoding-table (build-vector ascii-size values)]) [decoding-table (build-vector ascii-size values)])
(for-each (match-lambda (for-each (match-lambda
[(orig . enc) [(cons orig enc)
(vector-set! encoding-table (vector-set! encoding-table
(char->integer orig) (char->integer orig)
(string enc)) (string enc))
@ -188,17 +184,16 @@ See more in PR8831.
;; vector string -> string ;; vector string -> string
(define (decode table str) (define (decode table str)
(define internal-decode (define internal-decode
(match-lambda [() (list)] (match-lambda [(list) (list)]
[(#\% (? hex-digit? char1) (? hex-digit? char2) . rest) [(list* #\% (? hex-digit? char1) (? hex-digit? char2) rest)
;; This used to consult the table again, but I think that's ;; This used to consult the table again, but I think that's
;; wrong. For example %2b should produce +, not a space. ;; wrong. For example %2b should produce +, not a space.
(cons (string->number (string char1 char2) 16) (cons (string->number (string char1 char2) 16)
(internal-decode rest))] (internal-decode rest))]
[((? ascii-char? char) . rest) [(cons (? ascii-char? char) rest)
(cons (cons (vector-ref table (char->integer char))
(vector-ref table (char->integer char)) (internal-decode rest))]
(internal-decode rest))] [(cons char rest)
[(char . rest)
(append (append
(bytes->list (string->bytes/utf-8 (string char))) (bytes->list (string->bytes/utf-8 (string char)))
(internal-decode rest))])) (internal-decode rest))]))
@ -292,4 +287,4 @@ See more in PR8831.
s)) s))
s))) s)))
;;; uri-codec-unit.ss ends here ;;; uri-codec-unit.rkt ends here

2
collects/net/url-sig.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/signature #lang racket/signature
get-pure-port get-pure-port
get-impure-port get-impure-port

12
collects/net/url-unit.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/unit #lang racket/unit
;; To do: ;; To do:
;; Handle HTTP/file errors. ;; Handle HTTP/file errors.
@ -11,11 +11,11 @@
;; "impure" = they have text waiting ;; "impure" = they have text waiting
;; "pure" = the MIME headers have been read ;; "pure" = the MIME headers have been read
(require scheme/port scheme/string (require racket/port racket/string
"url-structs.ss" "url-structs.rkt"
"uri-codec.ss" "uri-codec.rkt"
"url-sig.ss" "url-sig.rkt"
"tcp-sig.ss") "tcp-sig.rkt")
(import tcp^) (import tcp^)
(export url^) (export url^)