28894
((3) 0 () 63 ((q lib "net/http-client.rkt") (q lib "net/pop3.rkt") (q lib "net/qp.rkt") (q lib "net/imap.rkt") (q lib "net/mime.rkt") (q 36791 . 3) (q 36613 . 3) (q lib "net/nntp.rkt") (q lib "net/url.rkt") (q lib "net/url-structs.rkt") (q 5234 . 18) (q 40465 . 4) (q lib "net/cookie.rkt") (q 40033 . 5) (q 35407 . 3) (q 34209 . 16) (q 33446 . 26) (q 32766 . 4) (q 32020 . 4) (q 32571 . 5) (q lib "net/uri-codec.rkt") (q 5797 . 5) (q lib "net/head.rkt") (q 29358 . 8) (q 40197 . 4) (q 33272 . 6) (q 34860 . 4) (q 41113 . 3) (q 32185 . 5) (q 37907 . 7) (q 47199 . 3) (q lib "net/ftp.rkt") (q lib "net/unihead.rkt") (q 35154 . 4) (q lib "net/tcp-sig.rkt") (q lib "net/sendurl.rkt") (q lib "net/base64.rkt") (q 35303 . 3) (q lib "net/cgi.rkt") (q 31816 . 3) (q 35601 . 3) (q lib "net/dns.rkt") (q 34768 . 3) (q 40973 . 4) (q lib "net/git-checkout.rkt") (q 49679 . 4) (q lib "net/sendmail.rkt") (q lib "net/smtp.rkt") (q 35501 . 3) (q 40871 . 3) (q 40320 . 4) (q 32373 . 5) (q 31918 . 3) (q 31645 . 3) (q 36691 . 3) (q 32921 . 4) (q 40594 . 4) (q 37361 . 7) (q 31720 . 3) (q 40725 . 4) (q 35001 . 4) (q 39958 . 3) (q lib "net/url-sig.rkt")) () (h ! (equal) ((c def c (c (? . 8) q post-pure-port)) q (8172 . 5)) ((c def c (c (? . 1) q illegal-message-number-communicator)) c (? . 51)) ((c def c (c (? . 4) q make-disposition)) c (? . 15)) ((c def c (c (? . 0) q http-conn-close!)) q (1200 . 3)) ((c def c (c (? . 0) q base-ssl?-tnl/c)) q (5198 . 2)) ((c def c (c (? . 2) q qp-error)) c (? . 6)) ((c form c (c (? . 62) q url^)) q (11791 . 2)) ((c def c (c (? . 1) q communicator)) c (? . 23)) ((c def c (c (? . 3) q imap-connect*)) q (24256 . 20)) ((c def c (c (? . 2) q make-qp-wrong-line-size)) c (? . 5)) ((q def ((lib "net/smtp-unit.rkt") smtp@)) q (20014 . 2)) ((c def c (c (? . 3) q imap-create-mailbox)) q (28592 . 4)) ((c def c (c (? . 3) q imap-unseen)) q (25895 . 3)) ((c def c (c (? . 1) q struct:disconnect-not-quiet)) c (? . 17)) ((c def c (c (? . 4) q entity-id)) c (? . 16)) ((c def c (c (? . 36) q base64-encode-stream)) q (35944 . 5)) ((c def c (c (? . 3) q imap-port-number)) q (24133 . 4)) ((c def c (c (? . 1) q cannot-delete-message-communicator)) c (? . 19)) ((c def c (c (? . 9) q struct:url)) c (? . 10)) ((c def c (c (? . 7) q newnews-since)) q (39197 . 4)) ((c def c (c (? . 2) q qp-wrong-line-size?)) c (? . 5)) ((c def c (c (? . 2) q make-qp-error)) c (? . 6)) ((c def c (c (? . 7) q communicator-server)) c (? . 29)) ((c def c (c (? . 1) q make-not-ready-for-transaction)) c (? . 18)) ((c def c (c (? . 8) q tcp-or-tunnel-connect)) q (11428 . 6)) ((c def c (c (? . 7) q struct:unexpected-response)) c (? . 13)) ((q form ((lib "net/pop3-sig.rkt") pop3^)) q (33108 . 2)) ((c def c (c (? . 4) q mime-error?)) c (? . 42)) ((c def c (c (? . 1) q get-message/headers)) q (30525 . 6)) ((c def c (c (? . 7) q bad-newsgroup-line?)) c (? . 11)) ((c def c (c (? . 9) q url-path-absolute?)) c (? . 10)) ((q def ((lib "net/nntp-unit.rkt") nntp@)) q (41227 . 2)) ((c def c (c (? . 9) q url-port)) c (? . 10)) ((c def c (c (? . 9) q path/param)) c (? . 21)) ((c def c (c (? . 4) q struct:empty-type)) c (? . 14)) ((c def c (c (? . 12) q print-cookie)) q (46887 . 3)) ((c sig-val c (c (? . 34) q tcp^ tcp-accept/enable-break)) q (42518 . 3)) ((c def c (c (? . 4) q empty-disposition-type)) c (? . 40)) ((c def c (c (? . 4) q empty-mechanism?)) c (? . 37)) ((c def c (c (? . 7) q make-desired-header)) q (39729 . 3)) ((c def c (c (? . 9) q url-fragment)) c (? . 10)) ((c def c (c (? . 7) q make-bad-newsgroup-line)) c (? . 11)) ((c def c (c (? . 22) q data-lines->data)) q (22696 . 3)) ((c def c (c (? . 12) q cookie:add-path)) q (46458 . 4)) ((c def c (c (? . 32) q generalize-encoding)) q (23251 . 3)) ((c def c (c (? . 8) q head-impure-port)) q (7807 . 4)) ((c def c (c (? . 0) q http-conn-abandon!)) q (1266 . 3)) ((c def c (c (? . 7) q make-unexpected-response)) c (? . 13)) ((c def c (c (? . 2) q qp-wrong-line-size)) c (? . 5)) ((c def c (c (? . 20) q uri-path-segment-unreserved-encode)) q (12410 . 3)) ((c def c (c (? . 4) q empty-type?)) c (? . 14)) ((c def c (c (? . 7) q disconnect-from-server)) q (38282 . 3)) ((c def c (c (? . 4) q disposition-modification)) c (? . 15)) ((c def c (c (? . 7) q non-existent-group)) c (? . 56)) ((c def c (c (? . 4) q make-unexpected-termination)) c (? . 26)) ((c def c (c (? . 4) q disposition-creation)) c (? . 15)) ((c def c (c (? . 4) q entity-fields)) c (? . 16)) ((c def c (c (? . 8) q proxiable-url-schemes)) q (10328 . 3)) ((c def c (c (? . 0) q http-conn-sendrecv!)) q (2660 . 18)) ((c def c (c (? . 4) q message?)) c (? . 25)) ((c def c (c (? . 0) q base-ssl?/c)) q (5161 . 2)) ((c def c (c (? . 1) q get-unique-id/single)) q (31103 . 5)) ((c def c (c (? . 1) q disconnect-not-quiet)) c (? . 17)) ((c def c (c (? . 7) q unexpected-response-text)) c (? . 13)) ((q form ((lib "net/sendmail-sig.rkt") sendmail^)) q (21144 . 2)) ((q def ((lib "net/ssl-tcp-unit.rkt") make-ssl-tcp@)) q (43316 . 15)) ((c def c (c (? . 1) q not-ready-for-transaction-communicator)) c (? . 18)) ((c def c (c (? . 12) q set-cookie)) q (46009 . 4)) ((c def c (c (? . 46) q send-mail-message/port)) q (20066 . 13)) ((c def c (c (? . 8) q current-url-encode-mode)) q (6862 . 4)) ((c def c (c (? . 1) q cannot-delete-message?)) c (? . 19)) ((c def c (c (? . 38) q generate-link-text)) q (45373 . 4)) ((c def c (c (? . 7) q make-bad-status-line)) c (? . 24)) ((c def c (c (? . 4) q entity-other)) c (? . 16)) ((c def c (c (? . 1) q pop3)) c (? . 53)) ((c def c (c (? . 12) q cookie:add-max-age)) q (46331 . 4)) ((c def c (c (? . 0) q http-conn-send!)) q (1402 . 17)) ((c def c (c (? . 1) q disconnect-from-server)) q (29805 . 3)) ((c def c (c (? . 20) q form-urlencoded->alist)) q (12844 . 4)) ((c def c (c (? . 0) q http-conn-CONNECT-tunnel)) q (4458 . 14)) ((c def c (c (? . 9) q path/param?)) c (? . 21)) ((c def c (c (? . 22) q assemble-address-field)) q (22984 . 3)) ((c def c (c (? . 1) q communicator-receiver)) c (? . 23)) ((c def c (c (? . 0) q http-conn-live?)) q (56 . 3)) ((c def c (c (? . 8) q url->path)) q (6385 . 4)) ((c def c (c (? . 0) q http-conn-enliven!)) q (1334 . 3)) ((c def c (c (? . 1) q not-ready-for-transaction?)) c (? . 18)) ((c def c (c (? . 7) q make-authentication-rejected)) c (? . 27)) ((c def c (c (? . 7) q bad-status-line?)) c (? . 24)) ((c def c (c (? . 1) q not-given-headers?)) c (? . 28)) ((c def c (c (? . 7) q unexpected-response-code)) c (? . 13)) ((c def c (c (? . 8) q http-sendrecv/url)) q (10861 . 12)) ((c def c (c (? . 7) q bad-status-line)) c (? . 24)) ((c def c (c (? . 3) q imap-force-disconnect)) q (25020 . 3)) ((c def c (c (? . 22) q validate-header)) q (21209 . 3)) ((c def c (c (? . 4) q message)) c (? . 25)) ((c def c (c (? . 4) q missing-multipart-boundary-parameter?)) c (? . 60)) ((q def ((lib "net/head-unit.rkt") head@)) q (23071 . 2)) ((c def c (c (? . 4) q unexpected-termination?)) c (? . 26)) ((c def c (c (? . 1) q struct:communicator)) c (? . 23)) ((c def c (c (? . 8) q combine-url/relative)) q (6061 . 4)) ((c def c (c (? . 7) q authentication-rejected?)) c (? . 27)) ((c def c (c (? . 12) q make-cookie-error)) c (? . 30)) ((c def c (c (? . 7) q bad-newsgroup-line)) c (? . 11)) ((c def c (c (? . 22) q extract-field)) q (21299 . 4)) ((c def c (c (? . 31) q ftp-make-directory)) q (16567 . 4)) ((c def c (c (? . 4) q message-fields)) c (? . 25)) ((c def c (c (? . 12) q cookie:add-comment)) q (46112 . 4)) ((c def c (c (? . 47) q smtp-sending-end-of-message)) q (19889 . 4)) ((c def c (c (? . 3) q imap-recent)) q (25803 . 3)) ((c def c (c (? . 1) q make-username-rejected)) c (? . 39)) ((c def c (c (? . 8) q netscape/string->url)) q (6163 . 3)) ((c def c (c (? . 1) q malformed-server-response-communicator)) c (? . 55)) ((c def c (c (? . 7) q extract-desired-headers)) q (39813 . 4)) ((c def c (c (? . 1) q disconnect-not-quiet-communicator)) c (? . 17)) ((c def c (c (? . 1) q make-not-given-headers)) c (? . 28)) ((c def c (c (? . 1) q not-given-headers-communicator)) c (? . 28)) ((c def c (c (? . 22) q extract-all-fields)) q (21450 . 5)) ((q def ((lib "net/cookie-unit.rkt") cookie@)) q (47295 . 2)) ((c def c (c (? . 3) q imap-messages)) q (25709 . 3)) ((c def c (c (? . 7) q struct:communicator)) c (? . 29)) ((c def c (c (? . 12) q struct:cookie-error)) c (? . 30)) ((c def c (c (? . 7) q communicator?)) c (? . 29)) ((c def c (c (? . 31) q ftp-download-file)) q (15215 . 14)) ((c def c (c (? . 20) q uri-unreserved-decode)) q (12338 . 3)) ((c def c (c (? . 4) q struct:entity)) c (? . 16)) ((q form ((lib "net/qp-sig.rkt") qp^)) q (36919 . 2)) ((c def c (c (? . 1) q make-cannot-delete-message)) c (? . 19)) ((c def c (c (? . 4) q struct:malformed-multipart-entity)) c (? . 33)) ((q def ((lib "net/ftp-unit.rkt") ftp@)) q (16949 . 2)) ((c def c (c (? . 32) q encode-for-header)) q (23123 . 3)) ((c def c (c (? . 0) q http-conn-open!)) q (220 . 11)) ((c def c (c (? . 7) q authenticate-user)) q (38586 . 7)) ((c def c (c (? . 4) q malformed-multipart-entity-msg)) c (? . 33)) ((c def c (c (? . 4) q struct:disposition)) c (? . 15)) ((c def c (c (? . 41) q dns-get-name)) q (37570 . 4)) ((c def c (c (? . 4) q entity-disposition)) c (? . 16)) ((c def c (c (? . 12) q cookie:version)) q (46764 . 4)) ((c sig-val c (c (? . 34) q tcp^ tcp-accept)) q (42423 . 3)) ((c def c (c (? . 7) q struct:bad-newsgroup-line)) c (? . 11)) ((c def c (c (? . 4) q unexpected-termination-msg)) c (? . 26)) ((c def c (c (? . 35) q unix-browser-list)) q (18397 . 2)) ((c def c (c (? . 35) q send-url/file)) q (17224 . 9)) ((c def c (c (? . 36) q base64-encode)) q (35771 . 4)) ((c def c (c (? . 8) q url-exception?)) q (10801 . 3)) ((c def c (c (? . 7) q struct:premature-close)) c (? . 50)) ((c def c (c (? . 4) q entity-subtype)) c (? . 16)) ((c def c (c (? . 44) q exn:fail:git)) c (? . 45)) ((c def c (c (? . 3) q imap-get-hierarchy-delimiter)) q (29078 . 3)) ((c def c (c (? . 4) q entity-params)) c (? . 16)) ((c def c (c (? . 3) q imap-reset-new!)) q (26285 . 3)) ((c def c (c (? . 8) q file-url-path-convention-type)) q (6705 . 4)) ((c def c (c (? . 20) q uri-unreserved-encode)) q (12266 . 3)) ((c def c (c (? . 1) q make-cannot-connect)) c (? . 58)) ((c def c (c (? . 4) q make-empty-mechanism)) c (? . 37)) ((c def c (c (? . 38) q string->html)) q (45310 . 3)) ((c def c (c (? . 20) q uri-path-segment-encode)) q (11978 . 3)) ((c def c (c (? . 4) q disposition-type)) c (? . 15)) ((c def c (c (? . 3) q imap-flag->symbol)) q (27187 . 3)) ((c def c (c (? . 7) q communicator-port)) c (? . 29)) ((c def c (c (? . 1) q make-communicator)) c (? . 23)) ((c def c (c (? . 20) q uri-userinfo-encode)) q (12126 . 3)) ((q form ((lib "net/ftp-sig.rkt") ftp^)) q (16970 . 2)) ((c def c (c (? . 1) q username-rejected?)) c (? . 39)) ((q def ((lib "net/sendmail-unit.rkt") sendmail@)) q (21118 . 2)) ((c def c (c (? . 3) q imap-store)) q (27325 . 6)) ((c def c (c (? . 4) q empty-disposition-type?)) c (? . 40)) ((c def c (c (? . 3) q imap-list-child-mailboxes)) q (28720 . 9)) ((c def c (c (? . 38) q output-http-headers)) q (44662 . 2)) ((c def c (c (? . 41) q srv-rr-target)) c (? . 57)) ((c def c (c (? . 4) q mime-error)) c (? . 42)) ((c def c (c (? . 7) q communicator)) c (? . 29)) ((c def c (c (? . 35) q browser-preference?)) q (18291 . 3)) ((c def c (c (? . 20) q uri-path-segment-unreserved-decode)) q (12495 . 3)) ((c def c (c (? . 4) q empty-subtype?)) c (? . 48)) ((c def c (c (? . 1) q make-desired-header)) q (31416 . 3)) ((c def c (c (? . 7) q article-not-found)) c (? . 43)) ((c def c (c (? . 7) q unexpected-response?)) c (? . 13)) ((c def c (c (? . 4) q struct:mime-error)) c (? . 42)) ((q form ((lib "net/smtp-sig.rkt") smtp^)) q (20036 . 2)) ((c def c (c (? . 7) q struct:article-not-found)) c (? . 43)) ((c def c (c (? . 8) q make-http-connection)) q (9586 . 2)) ((c sig-val c (c (? . 34) q tcp^ tcp-accept-ready?)) q (42626 . 3)) ((c def c (c (? . 1) q communicator-sender)) c (? . 23)) ((c def c (c (? . 44) q struct:exn:fail:git)) c (? . 45)) ((c def c (c (? . 38) q get-bindings/post)) q (44133 . 3)) ((c def c (c (? . 12) q valid-domain?)) q (45833 . 3)) ((c def c (c (? . 1) q extract-desired-headers)) q (31500 . 4)) ((c def c (c (? . 31) q ftp-rename-file)) q (16809 . 5)) ((q form ((lib "net/uri-codec-sig.rkt") uri-codec^)) q (13189 . 2)) ((q def ((lib "net/url-connect.rkt") current-https-protocol)) q (11593 . 4)) ((c def c (c (? . 46) q send-mail-message)) q (20577 . 15)) ((c def c (c (? . 12) q cookie:secure)) q (46662 . 4)) ((c def c (c (? . 0) q http-conn-open)) q (753 . 9)) ((c def c (c (? . 3) q imap-mailbox-flags)) q (29167 . 4)) ((c def c (c (? . 9) q url-query)) c (? . 10)) ((c def c (c (? . 35) q send-url)) q (16999 . 7)) ((c def c (c (? . 7) q make-no-group-selected)) c (? . 49)) ((c def c (c (? . 8) q options-impure-port)) q (8049 . 4)) ((c def c (c (? . 4) q disposition-filename)) c (? . 15)) ((c def c (c (? . 35) q external-browser)) q (18170 . 4)) ((c def c (c (? . 1) q disconnect-not-quiet?)) c (? . 17)) ((c def c (c (? . 4) q struct:message)) c (? . 25)) ((c def c (c (? . 12) q cookie?)) q (45780 . 3)) ((c def c (c (? . 7) q bad-status-line-line)) c (? . 24)) ((c def c (c (? . 0) q http-conn-recv!)) q (2240 . 10)) ((c def c (c (? . 8) q path->url)) q (6290 . 3)) ((c def c (c (? . 1) q communicator-server)) c (? . 23)) ((c def c (c (? . 1) q get-mailbox-status)) q (30140 . 4)) ((c def c (c (? . 3) q imap-get-expunges)) q (26360 . 3)) ((c def c (c (? . 9) q url-path)) c (? . 10)) ((c def c (c (? . 3) q imap-expunge)) q (27546 . 3)) ((c def c (c (? . 1) q cannot-delete-message-message)) c (? . 19)) ((c def c (c (? . 0) q http-conn)) q (182 . 2)) ((q def ((lib "net/tcp-redirect.rkt") tcp-redirect)) q (43212 . 3)) ((c def c (c (? . 1) q authenticate/plain-text)) q (29900 . 7)) ((c def c (c (? . 3) q imap-get-updates)) q (26553 . 5)) ((c def c (c (? . 2) q struct:qp-wrong-input)) c (? . 54)) ((c def c (c (? . 12) q cookie-name?)) q (45892 . 3)) ((c sig-val c (c (? . 34) q tcp^ tcp-addresses)) q (42917 . 7)) ((c def c (c (? . 7) q communicator-sender)) c (? . 29)) ((c def c (c (? . 22) q extract-addresses)) q (22777 . 6)) ((c def c (c (? . 1) q password-rejected)) c (? . 52)) ((c def c (c (? . 2) q qp-encode-stream)) q (36365 . 5)) ((c def c (c (? . 47) q smtp-send-message)) q (18443 . 33)) ((c def c (c (? . 4) q make-empty-subtype)) c (? . 48)) ((c def c (c (? . 7) q no-group-selected)) c (? . 49)) ((c def c (c (? . 44) q current-git-username)) q (49401 . 4)) ((c def c (c (? . 1) q get-unique-id/all)) q (31287 . 4)) ((c def c (c (? . 8) q call/input-url)) q (9734 . 10)) ((c def c (c (? . 8) q head-pure-port)) q (7329 . 4)) ((c def c (c (? . 9) q url-scheme)) c (? . 10)) ((c def c (c (? . 38) q generate-html-output)) q (44705 . 15)) ((c def c (c (? . 4) q malformed-multipart-entity)) c (? . 33)) ((c def c (c (? . 35) q browser-list)) q (18356 . 2)) ((c def c (c (? . 1) q cannot-delete-message)) c (? . 19)) ((c def c (c (? . 22) q empty-header)) q (21178 . 2)) ((c def c (c (? . 7) q make-article-not-in-group)) c (? . 59)) ((q def ((lib "net/qp-unit.rkt") qp@)) q (36899 . 2)) ((c def c (c (? . 7) q nntp)) c (? . 61)) ((c def c (c (? . 7) q premature-close-communicator)) c (? . 50)) ((c def c (c (? . 4) q entity)) c (? . 16)) ((c def c (c (? . 38) q generate-error-output)) q (45477 . 3)) ((c def c (c (? . 38) q get-bindings)) q (44048 . 3)) ((c def c (c (? . 1) q make-illegal-message-number)) c (? . 51)) ((c def c (c (? . 1) q make-password-rejected)) c (? . 52)) ((c def c (c (? . 7) q generic-message-command)) q (39359 . 9)) ((c def c (c (? . 4) q empty-subtype)) c (? . 48)) ((q def ((lib "net/url-unit.rkt") url@)) q (11770 . 2)) ((c def c (c (? . 7) q communicator-receiver)) c (? . 29)) ((c def c (c (? . 4) q disposition)) c (? . 15)) ((c def c (c (? . 8) q post-impure-port)) q (8459 . 5)) ((c def c (c (? . 7) q open-news-group)) q (38377 . 7)) ((c def c (c (? . 20) q current-alist-separator-mode)) q (12958 . 5)) ((c def c (c (? . 7) q make-communicator)) c (? . 29)) ((q form ((lib "net/mime-sig.rkt") mime^)) q (35741 . 2)) ((c def c (c (? . 4) q entity-encoding)) c (? . 16)) ((c def c (c (? . 22) q standard-message-header)) q (22325 . 11)) ((c def c (c (? . 4) q struct:empty-mechanism)) c (? . 37)) ((c def c (c (? . 4) q make-malformed-multipart-entity)) c (? . 33)) ((c def c (c (? . 20) q form-urlencoded-encode)) q (12580 . 3)) ((c def c (c (? . 8) q options-pure-port)) q (7567 . 4)) ((c def c (c (? . 1) q struct:cannot-delete-message)) c (? . 19)) ((c def c (c (? . 7) q connect-to-server)) q (38136 . 4)) ((c def c (c (? . 9) q struct:path/param)) c (? . 21)) ((c def c (c (? . 1) q pop3?)) c (? . 53)) ((c def c (c (? . 38) q bindings-as-html)) q (45611 . 3)) ((c def c (c (? . 8) q delete-impure-port)) q (7927 . 4)) ((c def c (c (? . 31) q ftp-delete-file)) q (16443 . 4)) ((c def c (c (? . 4) q entity?)) c (? . 16)) ((c def c (c (? . 3) q imap-pending-expunges?)) q (26468 . 3)) ((c def c (c (? . 20) q alist->form-urlencoded)) q (12726 . 3)) ((c def c (c (? . 2) q qp-decode)) q (36305 . 3)) ((c def c (c (? . 31) q ftp-cd)) q (14762 . 4)) ((c def c (c (? . 3) q imap-append)) q (27810 . 12)) ((q form ((lib "net/cgi-sig.rkt") cgi^)) q (45751 . 2)) ((q def ((lib "net/pop3-unit.rkt") pop3@)) q (33086 . 2)) ((c def c (c (? . 3) q symbol->imap-flag)) q (27257 . 3)) ((c def c (c (? . 3) q imap-status)) q (28295 . 5)) ((c def c (c (? . 31) q ftp-directory-list)) q (14868 . 7)) ((c def c (c (? . 3) q imap-copy)) q (27618 . 5)) ((c def c (c (? . 4) q make-entity)) c (? . 16)) ((c def c (c (? . 7) q article-not-found?)) c (? . 43)) ((c def c (c (? . 2) q qp-wrong-input?)) c (? . 54)) ((c def c (c (? . 38) q get-cgi-method)) q (45557 . 2)) ((c def c (c (? . 1) q illegal-message-number)) c (? . 51)) ((c def c (c (? . 4) q make-empty-disposition-type)) c (? . 40)) ((c def c (c (? . 4) q unexpected-termination)) c (? . 26)) ((c def c (c (? . 41) q dns-get-mail-exchanger)) q (37680 . 4)) ((c def c (c (? . 2) q struct:qp-error)) c (? . 6)) ((c def c (c (? . 8) q url->string)) q (6231 . 3)) ((c def c (c (? . 2) q qp-error?)) c (? . 6)) ((c def c (c (? . 4) q struct:empty-disposition-type)) c (? . 40)) ((c def c (c (? . 31) q ftp-upload-file)) q (15853 . 13)) ((c def c (c (? . 12) q cookie-value?)) q (45950 . 3)) ((c def c (c (? . 41) q dns-get-srv)) q (37174 . 6)) ((c def c (c (? . 1) q malformed-server-response?)) c (? . 55)) ((c def c (c (? . 44) q current-git-password)) q (49540 . 4)) ((c def c (c (? . 7) q non-existent-group?)) c (? . 56)) ((c def c (c (? . 44) q exn:fail:git?)) c (? . 45)) ((c def c (c (? . 7) q no-group-selected?)) c (? . 49)) ((c def c (c (? . 41) q srv-rr-priority)) c (? . 57)) ((q form ((lib "net/dns-sig.rkt") dns^)) q (37878 . 2)) ((c def c (c (? . 4) q message-entity)) c (? . 25)) ((c def c (c (? . 1) q cannot-connect?)) c (? . 58)) ((c def c (c (? . 7) q head-of-message)) q (38811 . 5)) ((c def c (c (? . 41) q dns-get-address)) q (36947 . 7)) ((c def c (c (? . 0) q http-sendrecv)) q (3516 . 20)) ((c def c (c (? . 7) q article-not-in-group?)) c (? . 59)) ((c def c (c (? . 20) q uri-decode)) q (11917 . 3)) ((c def c (c (? . 8) q put-impure-port)) q (8605 . 5)) ((c def c (c (? . 3) q imap-noop)) q (25503 . 4)) ((q def ((lib "net/imap-unit.rkt") imap@)) q (29306 . 2)) ((c def c (c (? . 41) q dns-find-nameserver)) q (37800 . 2)) ((c def c (c (? . 31) q ftp-close-connection)) q (14675 . 3)) ((c def c (c (? . 8) q http-connection-close)) q (9641 . 3)) ((c def c (c (? . 1) q communicator-port)) c (? . 23)) ((c def c (c (? . 7) q struct:bad-status-line)) c (? . 24)) ((c def c (c (? . 8) q string->url)) q (5999 . 3)) ((c def c (c (? . 8) q http-connection?)) q (9524 . 3)) ((c sig-val c (c (? . 34) q tcp^ tcp-connect/enable-break)) q (42023 . 10)) ((c def c (c (? . 12) q cookie:add-domain)) q (46220 . 4)) ((c def c (c (? . 20) q uri-encode)) q (11856 . 3)) ((c def c (c (? . 9) q url-host)) c (? . 10)) ((c def c (c (? . 1) q communicator?)) c (? . 23)) ((c def c (c (? . 41) q srv-rr?)) c (? . 57)) ((c def c (c (? . 7) q premature-close?)) c (? . 50)) ((c def c (c (? . 38) q extract-binding/single)) q (44489 . 4)) ((c def c (c (? . 3) q imap-disconnect)) q (24945 . 3)) ((q form ((lib "net/cookie-sig.rkt") cookie^)) q (47319 . 2)) ((c def c (c (? . 12) q get-cookie)) q (46956 . 4)) ((c sig-val c (c (? . 34) q tcp^ tcp-listener?)) q (42785 . 3)) ((c def c (c (? . 7) q premature-close)) c (? . 50)) ((c def c (c (? . 8) q put-pure-port)) q (8316 . 5)) ((q form ((lib "net/base64-sig.rkt") base64^)) q (36213 . 2)) ((c def c (c (? . 20) q uri-path-segment-decode)) q (12052 . 3)) ((c def c (c (? . 1) q illegal-message-number-message)) c (? . 51)) ((c def c (c (? . 3) q imap-uidnext)) q (25999 . 3)) ((c def c (c (? . 1) q not-given-headers-message)) c (? . 28)) ((c def c (c (? . 4) q disposition-params)) c (? . 15)) ((c sig-val c (c (? . 34) q tcp^ tcp-listen)) q (41308 . 9)) ((c def c (c (? . 9) q path/param-path)) c (? . 21)) ((c def c (c (? . 7) q article-not-found-article)) c (? . 43)) ((c def c (c (? . 4) q missing-multipart-boundary-parameter)) c (? . 60)) ((c def c (c (? . 1) q struct:password-rejected)) c (? . 52)) ((c def c (c (? . 1) q illegal-message-number?)) c (? . 51)) ((c def c (c (? . 8) q get-impure-port)) q (7688 . 4)) ((c def c (c (? . 7) q make-article-not-found)) c (? . 43)) ((c def c (c (? . 7) q struct:nntp)) c (? . 61)) ((c def c (c (? . 1) q connect-to-server)) q (29659 . 4)) ((c def c (c (? . 9) q url)) c (? . 10)) ((c def c (c (? . 0) q data-procedure/c)) q (5114 . 2)) ((c def c (c (? . 8) q purify-port)) q (8818 . 3)) ((c def c (c (? . 3) q imap-connect)) q (23407 . 17)) ((c def c (c (? . 3) q imap-get-messages)) q (26807 . 9)) ((c def c (c (? . 0) q http-conn?)) q (0 . 3)) ((c def c (c (? . 1) q not-ready-for-transaction)) c (? . 18)) ((c def c (c (? . 4) q entity-type)) c (? . 16)) ((c def c (c (? . 41) q srv-rr)) c (? . 57)) ((c def c (c (? . 22) q insert-field)) q (21784 . 5)) ((c def c (c (? . 35) q send-url/contents)) q (17574 . 11)) ((c sig-val c (c (? . 34) q tcp^ tcp-abandon-port)) q (42844 . 3)) ((q def ((lib "net/dns-unit.rkt") dns@)) q (37857 . 2)) ((c def c (c (? . 4) q empty-mechanism)) c (? . 37)) ((c form c (c (? . 62) q url+scheme^)) q (11820 . 2)) ((c def c (c (? . 12) q get-cookie/single)) q (47073 . 4)) ((c def c (c (? . 7) q article-not-in-group)) c (? . 59)) ((c def c (c (? . 8) q get-pure-port/headers)) q (8882 . 14)) ((c def c (c (? . 4) q message-version)) c (? . 25)) ((c def c (c (? . 3) q imap-reselect)) q (25101 . 5)) ((c def c (c (? . 22) q replace-field)) q (21975 . 5)) ((c def c (c (? . 1) q struct:pop3)) c (? . 53)) ((c def c (c (? . 1) q malformed-server-response)) c (? . 55)) ((c def c (c (? . 4) q disposition?)) c (? . 15)) ((c def c (c (? . 38) q extract-bindings)) q (44312 . 4)) ((c def c (c (? . 1) q get-message/complete)) q (30316 . 6)) ((c def c (c (? . 1) q make-malformed-server-response)) c (? . 55)) ((c sig-val c (c (? . 34) q tcp^ tcp-connect)) q (41650 . 9)) ((c def c (c (? . 36) q base64-decode)) q (35880 . 3)) ((c def c (c (? . 7) q unexpected-response)) c (? . 13)) ((q def ((lib "net/uri-codec-unit.rkt") uri-codec@)) q (13162 . 2)) ((c def c (c (? . 4) q entity-parts)) c (? . 16)) ((c def c (c (? . 1) q struct:cannot-connect)) c (? . 58)) ((c def c (c (? . 2) q qp-encode)) q (36245 . 3)) ((c def c (c (? . 41) q srv-rr-port)) c (? . 57)) ((c def c (c (? . 41) q srv-rr-weight)) c (? . 57)) ((c def c (c (? . 7) q make-non-existent-group)) c (? . 56)) ((c def c (c (? . 8) q proxy-server-for)) q (10600 . 5)) ((c def c (c (? . 1) q struct:illegal-message-number)) c (? . 51)) ((c def c (c (? . 2) q qp-decode-stream)) q (36516 . 4)) ((c def c (c (? . 4) q entity-description)) c (? . 16)) ((c def c (c (? . 9) q path/param-param)) c (? . 21)) ((c def c (c (? . 9) q make-url)) c (? . 10)) ((c sig-val c (c (? . 34) q tcp^ tcp-close)) q (42711 . 3)) ((c form c (c (? . 34) q tcp^)) q (41279 . 2)) ((c def c (c (? . 2) q struct:qp-wrong-line-size)) c (? . 5)) ((c def c (c (? . 31) q ftp-make-file-seconds)) q (15126 . 3)) ((c def c (c (? . 3) q imap-examine)) q (25303 . 5)) ((c def c (c (? . 7) q authentication-rejected)) c (? . 27)) ((c def c (c (? . 3) q imap-pending-updates?)) q (26723 . 3)) ((c def c (c (? . 4) q make-empty-type)) c (? . 14)) ((c def c (c (? . 7) q struct:non-existent-group)) c (? . 56)) ((c def c (c (? . 22) q append-headers)) q (22171 . 4)) ((c def c (c (? . 1) q username-rejected)) c (? . 39)) ((c def c (c (? . 7) q struct:article-not-in-group)) c (? . 59)) ((c def c (c (? . 31) q ftp-establish-connection*)) q (13950 . 15)) ((c def c (c (? . 1) q password-rejected?)) c (? . 52)) ((c def c (c (? . 1) q struct:not-given-headers)) c (? . 28)) ((c def c (c (? . 7) q make-nntp)) c (? . 61)) ((c def c (c (? . 7) q bad-newsgroup-line-line)) c (? . 11)) ((q form ((lib "net/head-sig.rkt") head^)) q (23093 . 2)) ((c def c (c (? . 4) q make-missing-multipart-boundary-parameter)) c (? . 60)) ((q def ((lib "net/cgi-unit.rkt") cgi@)) q (45730 . 2)) ((c def c (c (? . 20) q uri-userinfo-decode)) q (12196 . 3)) ((q form ((lib "net/imap-sig.rkt") imap^)) q (29328 . 2)) ((c def c (c (? . 38) q get-bindings/get)) q (44223 . 3)) ((c def c (c (? . 4) q disposition-read)) c (? . 15)) ((c def c (c (? . 20) q form-urlencoded-decode)) q (12653 . 3)) ((c def c (c (? . 7) q non-existent-group-group)) c (? . 56)) ((c def c (c (? . 2) q make-qp-wrong-input)) c (? . 54)) ((c def c (c (? . 31) q ftp-delete-directory)) q (16687 . 4)) ((c def c (c (? . 8) q current-no-proxy-servers)) q (10409 . 4)) ((c def c (c (? . 3) q imap-uidvalidity)) q (26104 . 3)) ((c def c (c (? . 1) q struct:username-rejected)) c (? . 39)) ((c def c (c (? . 9) q make-path/param)) c (? . 21)) ((c def c (c (? . 1) q get-message/body)) q (30732 . 6)) ((c def c (c (? . 4) q struct:missing-multipart-boundary-parameter)) c (? . 60)) ((c def c (c (? . 1) q make-pop3)) c (? . 53)) ((c def c (c (? . 12) q cookie-error)) c (? . 30)) ((c def c (c (? . 8) q relative-path->relative-url-string)) q (6535 . 4)) ((c def c (c (? . 3) q imap-mailbox-exists?)) q (28460 . 4)) ((c def c (c (? . 1) q delete-message)) q (30933 . 5)) ((q form ((lib "net/nntp-sig.rkt") nntp^)) q (41249 . 2)) ((q def ((lib "net/base64-unit.rkt") base64@)) q (36189 . 2)) ((c def c (c (? . 44) q git-checkout)) q (47351 . 40)) ((c def c (c (? . 1) q make-disconnect-not-quiet)) c (? . 17)) ((c def c (c (? . 4) q empty-type)) c (? . 14)) ((c def c (c (? . 4) q disposition-size)) c (? . 15)) ((c def c (c (? . 4) q make-message)) c (? . 25)) ((c def c (c (? . 0) q http-conn-liveable?)) q (117 . 3)) ((c def c (c (? . 7) q struct:no-group-selected)) c (? . 49)) ((c def c (c (? . 7) q struct:authentication-rejected)) c (? . 27)) ((c def c (c (? . 41) q struct:srv-rr)) c (? . 57)) ((c def c (c (? . 3) q imap-connection?)) q (23345 . 3)) ((c def c (c (? . 7) q article-not-in-group-article)) c (? . 59)) ((c def c (c (? . 7) q make-premature-close)) c (? . 50)) ((c def c (c (? . 7) q body-of-message)) q (39004 . 5)) ((c def c (c (? . 4) q entity-body)) c (? . 16)) ((q def ((lib "net/mime-unit.rkt") mime@)) q (35719 . 2)) ((c def c (c (? . 8) q display-pure-port)) q (8750 . 3)) ((c def c (c (? . 7) q nntp?)) c (? . 61)) ((c def c (c (? . 9) q url-user)) c (? . 10)) ((c def c (c (? . 4) q malformed-multipart-entity?)) c (? . 33)) ((c def c (c (? . 1) q cannot-connect)) c (? . 58)) ((c def c (c (? . 12) q cookie:add-expires)) q (46561 . 4)) ((c def c (c (? . 8) q current-proxy-servers)) q (10106 . 5)) ((c def c (c (? . 22) q remove-field)) q (21638 . 4)) ((c def c (c (? . 4) q entity-charset)) c (? . 16)) ((c def c (c (? . 32) q decode-for-header)) q (23187 . 3)) ((c def c (c (? . 31) q ftp-connection?)) q (13224 . 3)) ((c def c (c (? . 8) q url-regexp)) q (5970 . 2)) ((c def c (c (? . 12) q cookie-error?)) c (? . 30)) ((c def c (c (? . 9) q url?)) c (? . 10)) ((c def c (c (? . 35) q send-url/mac)) q (18044 . 4)) ((c def c (c (? . 4) q struct:empty-subtype)) c (? . 48)) ((c def c (c (? . 1) q communicator-state)) c (? . 23)) ((c def c (c (? . 4) q struct:unexpected-termination)) c (? . 26)) ((c def c (c (? . 3) q imap-poll)) q (25640 . 3)) ((c def c (c (? . 1) q not-given-headers)) c (? . 28)) ((c def c (c (? . 31) q ftp-establish-connection)) q (13285 . 14)) ((c def c (c (? . 4) q mime-analyze)) q (33138 . 4)) ((c def c (c (? . 2) q qp-wrong-input)) c (? . 54)) ((c def c (c (? . 8) q delete-pure-port)) q (7447 . 4)) ((c def c (c (? . 1) q struct:malformed-server-response)) c (? . 55)) ((c def c (c (? . 44) q make-exn:fail:git)) c (? . 45)) ((c def c (c (? . 8) q get-pure-port)) q (7027 . 7)) ((q def ((lib "net/tcp-unit.rkt") tcp@)) q (43191 . 2)) ((c def c (c (? . 3) q imap-new?)) q (26213 . 3)) ((c def c (c (? . 36) q base64-decode-stream)) q (36088 . 4)) ((c def c (c (? . 4) q make-mime-error)) c (? . 42)) ((c def c (c (? . 1) q struct:not-ready-for-transaction)) c (? . 18))))
procedure
(http-conn? x) -> boolean?
  x : any/c
procedure
(http-conn-live? x) -> boolean?
  x : any/c
procedure
(http-conn-liveable? x) -> boolean?
  x : any/c
procedure
(http-conn) -> http-conn?
procedure
(http-conn-open!  hc                                      
                  host                                    
                 [#:ssl? ssl?                             
                  #:port port                             
                  #:auto-reconnect? auto-reconnect?]) -> void?
  hc : http-conn?
  host : (or/c bytes? string?)
  ssl? : base-ssl?-tnl/c = #f
  port : (between/c 1 65535) = (if ssl? 443 80)
  auto-reconnect? : boolean? = #f
procedure
(http-conn-open  host                                    
                [#:ssl? ssl?                             
                 #:port port                             
                 #:auto-reconnect? auto-reconnect?]) -> http-conn?
  host : (or/c bytes? string?)
  ssl? : base-ssl?-tnl/c = #f
  port : (between/c 1 65535) = (if ssl? 443 80)
  auto-reconnect? : boolean? = #f
procedure
(http-conn-close! hc) -> void?
  hc : http-conn?
procedure
(http-conn-abandon! hc) -> void?
  hc : http-conn?
procedure
(http-conn-enliven! hc) -> void?
  hc : http-conn?
procedure
(http-conn-send!  hc                           
                  uri                          
                 [#:version version            
                  #:method method              
                  #:close? close?              
                  #:headers headers            
                  #:content-decode decodes     
                  #:data data])            -> void?
  hc : http-conn-liveable?
  uri : (or/c bytes? string?)
  version : (or/c bytes? string?) = #"1.1"
  method : (or/c bytes? string? symbol?) = #"GET"
  close? : boolean? = #f
  headers : (listof (or/c bytes? string?)) = empty
  decodes : (listof symbol?) = '(gzip deflate)
  data : (or/c #f bytes? string? data-procedure/c) = #f
procedure
(http-conn-recv!  hc                       
                 [#:content-decode decodes 
                  #:method method          
                  #:close? close?])        
 -> bytes? (listof bytes?) input-port?
  hc : http-conn-liveable?
  decodes : (listof symbol?) = '(gzip deflate)
  method : (or/c bytes? string? symbol?) = #"GET"
  close? : boolean? = #f
procedure
(http-conn-sendrecv!  hc                       
                      uri                      
                     [#:version version        
                      #:method method          
                      #:headers headers        
                      #:data data              
                      #:content-decode decodes 
                      #:close? close?])        
 -> bytes? (listof bytes?) input-port?
  hc : http-conn-liveable?
  uri : (or/c bytes? string?)
  version : (or/c bytes? string?) = #"1.1"
  method : (or/c bytes? string? symbol?) = #"GET"
  headers : (listof (or/c bytes? string?)) = empty
  data : (or/c #f bytes? string? data-procedure/c) = #f
  decodes : (listof symbol?) = '(gzip deflate)
  close? : boolean? = #f
procedure
(http-sendrecv  host                       
                uri                        
               [#:ssl? ssl?                
                #:port port                
                #:version version          
                #:method method            
                #:headers headers          
                #:data data                
                #:content-decode decodes]) 
 -> bytes? (listof bytes?) input-port?
  host : (or/c bytes? string?)
  uri : (or/c bytes? string?)
  ssl? : base-ssl?-tnl/c = #f
  port : (between/c 1 65535) = (if ssl? 443 80)
  version : (or/c bytes? string?) = #"1.1"
  method : (or/c bytes? string? symbol?) = #"GET"
  headers : (listof (or/c bytes? string?)) = empty
  data : (or/c #f bytes? string? data-procedure/c) = #f
  decodes : (listof symbol?) = '(gzip deflate)
procedure
(http-conn-CONNECT-tunnel  proxy-host        
                           proxy-port        
                           target-host       
                           target-port       
                          [#:ssl? ssl?]) -> base-ssl?/c
                                            input-port?
                                            output-port?
                                            (-> port? void?)
  proxy-host : (or/c bytes? string?)
  proxy-port : (between/c 1 65535)
  target-host : (or/c bytes? string?)
  target-port : (between/c 1 65535)
  ssl? : base-ssl?/c = #f
value
data-procedure/c : chaperone-contract?
value
base-ssl?/c : flat-contract?
value
base-ssl?-tnl/c : contract?
struct
(struct url (scheme
             user
             host
             port
             path-absolute?
             path
             query
             fragment)
    #:extra-constructor-name make-url)
  scheme : (or/c #f string?)
  user : (or/c #f string?)
  host : (or/c #f string?)
  port : (or/c #f exact-nonnegative-integer?)
  path-absolute? : boolean?
  path : (listof path/param?)
  query : (listof (cons/c symbol? (or/c #f string?)))
  fragment : (or/c #f string?)
struct
(struct path/param (path param)
    #:extra-constructor-name make-path/param)
  path : (or/c string? (or/c 'up 'same))
  param : (listof string?)
value
url-regexp : regexp?
procedure
(string->url str) -> url?
  str : url-regexp
procedure
(combine-url/relative base relative) -> url?
  base : url?
  relative : string?
procedure
(netscape/string->url str) -> url?
  str : string?
procedure
(url->string URL) -> string?
  URL : url?
procedure
(path->url path) -> url?
  path : (or/c path-string? path-for-some-system?)
procedure
(url->path URL [kind]) -> path-for-some-system?
  URL : url?
  kind : (or/c 'unix 'windows) = (system-path-convention-type)
procedure
(relative-path->relative-url-string path) -> string?
  path : (and/c (or/c path-string? path-for-some-system?)
                relative-path?)
parameter
(file-url-path-convention-type) -> (or/c 'unix 'windows)
(file-url-path-convention-type kind) -> void?
  kind : (or/c 'unix 'windows)
parameter
(current-url-encode-mode) -> (or/c 'recommended 'unreserved)
(current-url-encode-mode mode) -> void?
  mode : (or/c 'recommended 'unreserved)
procedure
(get-pure-port  URL                               
               [header                            
                #:redirections redirections]) -> input-port?
  URL : url?
  header : (listof string?) = null
  redirections : exact-nonnegative-integer? = 0
procedure
(head-pure-port URL [header]) -> input-port?
  URL : url?
  header : (listof string?) = null
procedure
(delete-pure-port URL [header]) -> input-port?
  URL : url?
  header : (listof string?) = null
procedure
(options-pure-port URL [header]) -> input-port?
  URL : url?
  header : (listof string?) = null
procedure
(get-impure-port URL [header]) -> input-port?
  URL : url?
  header : (listof string?) = null
procedure
(head-impure-port URL [header]) -> input-port?
  URL : url?
  header : (listof string?) = null
procedure
(delete-impure-port URL [header]) -> input-port?
  URL : url?
  header : (listof string?) = null
procedure
(options-impure-port URL [header]) -> input-port?
  URL : url?
  header : (listof string?) = null
procedure
(post-pure-port URL post [header]) -> input-port?
  URL : url?
  post : bytes?
  header : (listof string?) = null
procedure
(put-pure-port URL post [header]) -> input-port?
  URL : url?
  post : bytes?
  header : (listof string?) = null
procedure
(post-impure-port URL post [header]) -> input-port?
  URL : url?
  post : bytes?
  header : (listof string?) = null
procedure
(put-impure-port URL post [header]) -> input-port?
  URL : url?
  post : bytes?
  header : (listof string?) = null
procedure
(display-pure-port in) -> void?
  in : input-port?
procedure
(purify-port in) -> string?
  in : input-port?
procedure
(get-pure-port/headers  url                         
                       [headers                     
                        #:method method             
                        #:redirections redirections 
                        #:status? status?]          
                        #:connection connection)    
 -> input-port? string?
  url : url?
  headers : (listof string?) = '()
  method : (or/c #"GET" #"HEAD" #"DELETE" #"OPTIONS") = #"GET"
  redirections : exact-nonnegative-integer? = 0
  status? : boolean? = #f
  connection : (or/c #f http-connection?)
procedure
(http-connection? v) -> boolean?
  v : any/c
procedure
(make-http-connection) -> http-connection?
procedure
(http-connection-close connection) -> void?
  connection : http-connection?
procedure
(call/input-url URL connect handle) -> any
  URL : url?
  connect : (url? . -> . input-port?)
  handle : (input-port? . -> . any)
(call/input-url URL connect handle header) -> any
  URL : url?
  connect : (url? (listof string?) . -> . input-port?)
  handle : (input-port? . -> . any)
  header : (listof string?)
parameter
(current-proxy-servers)
 -> (listof (list/c string? string? (integer-in 0 65535)))
(current-proxy-servers mapping) -> void?
  mapping : (listof (list/c string? string? (integer-in 0 65535)))
value
proxiable-url-schemes : (listof string?)
 = '("http" "https" "git")
parameter
(current-no-proxy-servers) -> (listof (or/c string? regexp?))
(current-no-proxy-servers dest-hosts-list) -> void?
  dest-hosts-list : (listof (or/c string? regexp?))
procedure
(proxy-server-for url-schm [dest-host-name])
 -> (or/c (list/c string? string? (integer-in 0 65535)) #f)
  url-schm : string?
  dest-host-name : (or/c #f string?) = #f
procedure
(url-exception? x) -> boolean?
  x : any/c
procedure
(http-sendrecv/url  u                          
                   [#:method method            
                    #:headers headers          
                    #:data data                
                    #:content-decode decodes]) 
 -> bytes? (listof bytes?) input-port?
  u : url?
  method : (or/c bytes? string? symbol?) = #"GET"
  headers : (listof (or/c bytes? string?)) = empty
  data : (or/c #f bytes? string? data-procedure/c) = #f
  decodes : (listof symbol?) = '(gzip deflate)
procedure
(tcp-or-tunnel-connect scheme host port)
 -> input-port? output-port?
  scheme : string?
  host : string?
  port : (between/c 1 65535)
parameter
(current-https-protocol) -> (or/c ssl-client-context? symbol?)
(current-https-protocol protocol) -> void?
  protocol : (or/c ssl-client-context? symbol?)
value
url@ : unit?
signature
url^ : signature
signature
url+scheme^ : signature
procedure
(uri-encode str) -> string?
  str : string?
procedure
(uri-decode str) -> string?
  str : string?
procedure
(uri-path-segment-encode str) -> string?
  str : string?
procedure
(uri-path-segment-decode str) -> string?
  str : string?
procedure
(uri-userinfo-encode str) -> string?
  str : string?
procedure
(uri-userinfo-decode str) -> string?
  str : string?
procedure
(uri-unreserved-encode str) -> string?
  str : string?
procedure
(uri-unreserved-decode str) -> string?
  str : string?
procedure
(uri-path-segment-unreserved-encode str) -> string?
  str : string?
procedure
(uri-path-segment-unreserved-decode str) -> string?
  str : string?
procedure
(form-urlencoded-encode str) -> string?
  str : string?
procedure
(form-urlencoded-decode str) -> string?
  str : string?
procedure
(alist->form-urlencoded alist) -> string?
  alist : (listof (cons/c symbol? (or/c #f string?)))
procedure
(form-urlencoded->alist str)
 -> (listof (cons/c symbol? (or/c #f string?)))
  str : string
parameter
(current-alist-separator-mode)
 -> (or/c 'amp 'semi 'amp-or-semi 'semi-or-amp)
(current-alist-separator-mode mode) -> void?
  mode : (or/c 'amp 'semi 'amp-or-semi 'semi-or-amp)
value
uri-codec@ : unit?
signature
uri-codec^ : signature
procedure
(ftp-connection? v) -> boolean?
  v : any/c
procedure
(ftp-establish-connection  server                                
                           port-no                               
                           user                                  
                           passwd                                
                          [#:ports->ssl-ports ports->ssl-ports]) 
 -> ftp-connection?
  server : string?
  port-no : (integer-in 0 65535)
  user : string?
  passwd : string?
  ports->ssl-ports : (or/c #f (-> (input-port? output-port?)
                                  (values input-port? output-port?)))
                   = #f
procedure
(ftp-establish-connection*                                        
                            in                                    
                            out                                   
                            user                                  
                            passwd                                
                           [#:ports->ssl-ports ports->ssl-ports]) 
 -> ftp-connection?
  in : input-port?
  out : output-port?
  user : string?
  passwd : string?
  ports->ssl-ports : (or/c #f (-> (input-port? output-port?)
                                  (values input-port? output-port?)))
                   = #f
procedure
(ftp-close-connection ftp-conn) -> void?
  ftp-conn : ftp-connection?
procedure
(ftp-cd ftp-conn new-dir) -> void?
  ftp-conn : ftp-connection?
  new-dir : string?
procedure
(ftp-directory-list ftp-conn [path])
 -> (listof (list/c (or/c "-" "d" "l")
                    string?
                    string?))
  ftp-conn : ftp-connection?
  path : (or/c #f string?) = #f
procedure
(ftp-make-file-seconds ftp-date) -> exact-integer?
  ftp-date : string?
procedure
(ftp-download-file  ftp-conn                       
                    local-dir-or-port              
                    file                           
                   [#:progress progress-proc]) -> void?
  ftp-conn : ftp-connection?
  local-dir-or-port : (or/c path-string?
                            output-port?)
  file : string?
  progress-proc : (or/c #f
                        (-> (-> (values exact-nonnegative-integer?
                                        evt?))
                            any))
                = #f
procedure
(ftp-upload-file  ftp-conn                       
                  file-path                      
                 [port                           
                  #:progress progress-proc]) -> void?
  ftp-conn : ftp-connection?
  file-path : path-string?
  port : (or/c #f input-port?) = #f
  progress-proc : (or/c #f
                        (-> (-> (values exact-nonnegative-integer?
                                        evt?))
                            any))
                = #f
procedure
(ftp-delete-file ftp-conn file-path) -> void?
  ftp-conn : ftp-connection?
  file-path : path-string?
procedure
(ftp-make-directory ftp-conn dir-name) -> void?
  ftp-conn : ftp-connection?
  dir-name : string?
procedure
(ftp-delete-directory ftp-conn dir-name) -> void?
  ftp-conn : ftp-connection?
  dir-name : string?
procedure
(ftp-rename-file ftp-conn origin dest) -> void?
  ftp-conn : ftp-connection?
  origin : string?
  dest : string?
value
ftp@ : unit?
signature
ftp^ : signature
procedure
(send-url  str                     
          [separate-window?        
           #:escape? escape?]) -> void?
  str : string?
  separate-window? : any/c = #t
  escape? : any/c = #t
procedure
(send-url/file  path                    
               [separate-window?        
                #:fragment fragment     
                #:query query])     -> void?
  path : path-string?
  separate-window? : any/c = #t
  fragment : (or/c string? #f) = #f
  query : (or/c string? #f) = #f
procedure
(send-url/contents  contents                  
                   [separate-window?          
                    #:fragment fragment       
                    #:query query             
                    #:delete-at seconds]) -> void?
  contents : string?
  separate-window? : any/c = #t
  fragment : (or/c string? #f) = #f
  query : (or/c string? #f) = #f
  seconds : (or/c number? #f) = #f
procedure
(send-url/mac url [#:browser browser]) -> void?
  url : string?
  browser : (or/c string? #f) = #f
parameter
(external-browser) -> browser-preference?
(external-browser cmd) -> void?
  cmd : browser-preference?
procedure
(browser-preference? a) -> boolean?
  a : any/c
value
browser-list : (listof symbol?)
value
unix-browser-list : (listof symbol?)
procedure
(smtp-send-message  server-address            
                    from                      
                    to                        
                    header                    
                    message                   
                   [#:port-no port-no/k       
                    #:auth-user user          
                    #:auth-passwd pw          
                    #:xoauth2? xoauth2?       
                    #:tcp-connect connect     
                    #:tls-encode encode       
                    port-no])             -> void?
  server-address : string?
  from : string?
  to : (listof string?)
  header : string?
  message : (listof (or/c string? bytes?))
  port-no/k : (integer-in 0 65535) = 25
  user : (or/c string? #f) = #f
  pw : (or/c string? #f) = #f
  xoauth2? : any/c = #f
  connect : (string? (integer-in 0 65535)
             . -> . (values input-port? output-port?))
          = tcp-connect
  encode : (or/c #f
                 (input-port? output-port?
                  #:mode 'connect
                  #:encrypt 'tls
                  #:close-original? #t
                  . -> . (values input-port? output-port?)))
         = #f
  port-no : (integer-in 0 65535) = port-no/k
parameter
(smtp-sending-end-of-message) -> (-> any)
(smtp-sending-end-of-message proc) -> void?
  proc : (-> any)
value
smtp@ : unit?
signature
smtp^ : signature
procedure
(send-mail-message/port from                  
                        subject               
                        to                    
                        cc                    
                        bcc                   
                        extra-header ...) -> output-port?
  from : (or/c string? #f)
  subject : string?
  to : (listof string?)
  cc : (listof string?)
  bcc : (listof string?)
  extra-header : string?
procedure
(send-mail-message from                  
                   subject               
                   to                    
                   cc                    
                   bcc                   
                   body                  
                   extra-header ...) -> void?
  from : string?
  subject : string?
  to : (listof string?)
  cc : (listof string?)
  bcc : (listof string?)
  body : (listof string?)
  extra-header : string?
value
sendmail@ : unit?
signature
sendmail^ : signature
value
empty-header : string?
procedure
(validate-header candidate) -> void?
  candidate : (or string? bytes?)
procedure
(extract-field field header) -> (or/c string? bytes? #f)
  field : (or/c string? bytes?)
  header : (or/c string? bytes?)
procedure
(extract-all-fields header)
 -> (listof (cons/c (or/c string? bytes?)
                    (or/c string? bytes?)))
  header : (or/c string? bytes?)
procedure
(remove-field field header) -> (or/c string? bytes?)
  field : (or/c string? bytes?)
  header : (or/c string? bytes?)
procedure
(insert-field field value header) -> (or/c string? bytes?)
  field : (or/c string? bytes?)
  value : (or/c string? bytes?)
  header : (or/c string? bytes?)
procedure
(replace-field field value header) -> (or/c string? bytes?)
  field : (or/c string? bytes?)
  value : (or/c string? bytes? #f)
  header : (or/c string? bytes?)
procedure
(append-headers header1 header2) -> (or/c string? bytes?)
  header1 : (or/c string? bytes?)
  header2 : (or/c string? bytes?)
procedure
(standard-message-header from         
                         to           
                         cc           
                         bcc          
                         subject) -> string?
  from : string?
  to : (listof string?)
  cc : (listof string?)
  bcc : (listof string?)
  subject : string?
procedure
(data-lines->data lines) -> string?
  lines : (listof string?)
procedure
(extract-addresses line kind)
 -> (or/c (listof string?)
          (listof (list/c string? string? string?)))
  line : string?
  kind : (or/c 'name 'address 'full 'all)
procedure
(assemble-address-field addrs) -> string?
  addrs : (listof string?)
value
head@ : unit?
signature
head^ : signature
procedure
(encode-for-header s) -> string?
  s : string?
procedure
(decode-for-header s) -> string?
  s : string?
procedure
(generalize-encoding s) -> (or string? bytes?)
  s : (or string? bytes?)
procedure
(imap-connection? v) -> boolean?
  v : any/c
procedure
(imap-connect  server                    
               username                  
               password                  
               mailbox                   
              [#:tls? tls?               
               #:try-tls? try-tls?       
               #:xoauth2? xoauth2?]) -> imap-connection?
                                        exact-nonnegative-integer?
                                        exact-nonnegative-integer?
  server : string?
  username : (or/c string? bytes?)
  password : (or/c string? bytes?)
  mailbox : (or/c string? bytes?)
  tls? : any/c = #f
  try-tls? : any/c = #t
  xoauth2? : any/c = #f
parameter
(imap-port-number) -> (integer-in 0 65535)
(imap-port-number k) -> void?
  k : (integer-in 0 65535)
procedure
(imap-connect*  in                    
                out                   
                username              
                password              
                mailbox               
               [#:tls? tls?           
                #:try-tls? try-tls?   
                #:xoauth2? xoauth2?]) 
 -> imap-connection?
    exact-nonnegative-integer?
    exact-nonnegative-integer?
  in : input-port?
  out : output-port?
  username : (or/c string? bytes?)
  password : (or/c string? bytes?)
  mailbox : (or/c string? bytes?)
  tls? : any/c = #f
  try-tls? : any/c = #t
  xoauth2? : any/c = #f
procedure
(imap-disconnect imap) -> void?
  imap : imap-connection?
procedure
(imap-force-disconnect imap) -> void?
  imap : imap-connection?
procedure
(imap-reselect imap mailbox) -> exact-nonnegative-integer?
                                exact-nonnegative-integer?
  imap : imap-connection?
  mailbox : (or/c string? bytes?)
procedure
(imap-examine imap mailbox) -> exact-nonnegative-integer?
                               exact-nonnegative-integer?
  imap : imap-connection?
  mailbox : (or/c string? bytes?)
procedure
(imap-noop imap) -> exact-nonnegative-integer?
                    exact-nonnegative-integer?
  imap : imap-connection?
procedure
(imap-poll imap) -> void?
  imap : imap-connection?
procedure
(imap-messages imap) -> exact-nonnegative-integer?
  imap : imap-connection?
procedure
(imap-recent imap) -> exact-nonnegative-integer?
  imap : imap-connection?
procedure
(imap-unseen imap) -> (or/c exact-nonnegative-integer? #f)
  imap : imap-connection?
procedure
(imap-uidnext imap) -> (or/c exact-nonnegative-integer? #f)
  imap : imap-connection?
procedure
(imap-uidvalidity imap) -> (or/c exact-nonnegative-integer? #f)
  imap : imap-connection?
procedure
(imap-new? imap) -> boolean?
  imap : imap-connection?
procedure
(imap-reset-new! imap) -> void?
  imap : imap-connection?
procedure
(imap-get-expunges imap) -> (listof exact-nonnegative-integer?)
  imap : imap-connection?
procedure
(imap-pending-expunges? imap) -> boolean?
  imap : imap-connection?
procedure
(imap-get-updates imap)
 -> (listof (cons/c exact-nonnegative-integer?
                    (listof pair?)))
  imap : imap-connection?
procedure
(imap-pending-updates? imap) -> boolean?
  imap : imap-connection?
procedure
(imap-get-messages imap msg-nums fields) -> (listof list?)
  imap : imap-connection?
  msg-nums : (listof exact-nonnegative-integer?)
  fields : (listof (or/c 'uid
                         'header
                         'body
                         'flags
                         'date))
procedure
(imap-flag->symbol flag) -> symbol?
  flag : symbol?
procedure
(symbol->imap-flag sym) -> symbol?
  sym : symbol?
procedure
(imap-store imap mode msg-nums imap-flags) -> void?
  imap : imap-connection?
  mode : (or/c '+ '- '!)
  msg-nums : (listof exact-nonnegative-integer?)
  imap-flags : (listof symbol?)
procedure
(imap-expunge imap) -> void?
  imap : imap-connection?
procedure
(imap-copy imap msg-nums dest-mailbox) -> void?
  imap : imap-connection?
  msg-nums : (listof exact-nonnegative-integer?)
  dest-mailbox : (or/c string? bytes?)
procedure
(imap-append  imap              
              mailbox           
              message           
             [flags             
              #:date date]) -> void?
  imap : imap-connection?
  mailbox : string?
  message : (or/c string? bytes?)
  flags : (listof (or/c 'seen 'answered 'flagged  = '(seen)
                        'deleted 'draft 'recent))
  date : (or/c string? bytes? #f) = #f
procedure
(imap-status imap mailbox statuses) -> list?
  imap : imap-connection?
  mailbox : (or/c string? bytes?)
  statuses : (listof symbol?)
procedure
(imap-mailbox-exists? imap mailbox) -> boolean?
  imap : imap-connection?
  mailbox : (or/c string? bytes?)
procedure
(imap-create-mailbox imap mailbox) -> void?
  imap : imap-connection?
  mailbox : (or/c string? bytes?)
procedure
(imap-list-child-mailboxes  imap        
                            mailbox     
                           [delimiter]) 
 -> (listof (list/c (listof symbol?) bytes?))
  imap : imap-connection?
  mailbox : (or/c string? bytes? #f)
  delimiter : (or/c string? bytes?)
            = (imap-get-hierarchy-delimiter)
procedure
(imap-get-hierarchy-delimiter imap) -> bytes?
  imap : imap-connection?
procedure
(imap-mailbox-flags imap mailbox) -> (listof symbol?)
  imap : imap-connection?
  mailbox : (or/c string? bytes?)
value
imap@ : unit?
signature
imap^ : signature
struct
(struct communicator (sender receiver server port state)
    #:extra-constructor-name make-communicator)
  sender : output-port?
  receiver : input-port?
  server : string?
  port : (integer-in 0 65535)
  state : (or/c 'disconnected 'authorization 'transaction)
procedure
(connect-to-server server [port-number]) -> communicator?
  server : string?
  port-number : (integer-in 0 65535) = 110
procedure
(disconnect-from-server communicator) -> void?
  communicator : communicator?
procedure
(authenticate/plain-text user              
                         passwd            
                         communicator) -> void?
  user : string?
  passwd : string?
  communicator : communicator?
procedure
(get-mailbox-status communicator) -> exact-nonnegative-integer?
                                     exact-nonnegative-integer?
  communicator : communicator?
procedure
(get-message/complete communicator    
                      message-number) 
 -> (listof string?) (listof string?)
  communicator : communicator?
  message-number : exact-integer?
procedure
(get-message/headers communicator    
                     message-number) 
 -> (listof string?) (listof string?)
  communicator : communicator?
  message-number : exact-integer?
procedure
(get-message/body communicator    
                  message-number) 
 -> (listof string?) (listof string?)
  communicator : communicator?
  message-number : exact-integer?
procedure
(delete-message communicator        
                message-number) -> void?
  communicator : communicator?
  message-number : exact-integer?
procedure
(get-unique-id/single communicator        
                      message-number) -> string?
  communicator : communicator?
  message-number : exact-integer?
procedure
(get-unique-id/all communicator)
 -> (listof (cons/c exact-integer? string?))
  communicator : communicator?
procedure
(make-desired-header tag-string) -> regexp?
  tag-string : string?
procedure
(extract-desired-headers header desireds) -> (listof string?)
  header : (listof string?)
  desireds : (listof regexp?)
struct
(struct pop3 exn ()
    #:extra-constructor-name make-pop3)
struct
(struct cannot-connect pop3 ()
    #:extra-constructor-name make-cannot-connect)
struct
(struct username-rejected pop3 ()
    #:extra-constructor-name make-username-rejected)
struct
(struct password-rejected pop3 ()
    #:extra-constructor-name make-password-rejected)
struct
(struct not-ready-for-transaction pop3 (communicator)
    #:extra-constructor-name make-not-ready-for-transaction)
  communicator : communicator?
struct
(struct not-given-headers pop3 (communicator message)
    #:extra-constructor-name make-not-given-headers)
  communicator : communicator?
  message : exact-integer?
struct
(struct illegal-message-number pop3 (communicator message)
    #:extra-constructor-name make-illegal-message-number)
  communicator : communicator?
  message : exact-integer?
struct
(struct cannot-delete-message exn (communicator message)
    #:extra-constructor-name make-cannot-delete-message)
  communicator : communicator?
  message : exact-integer?
struct
(struct disconnect-not-quiet pop3 (communicator)
    #:extra-constructor-name make-disconnect-not-quiet)
  communicator : communicator?
struct
(struct malformed-server-response pop3 (communicator)
    #:extra-constructor-name make-malformed-server-response)
  communicator : communicator?
value
pop3@ : unit?
signature
pop3^ : signature
procedure
(mime-analyze message-in [part?]) -> message?
  message-in : (or/c bytes? input-port?)
  part? : any/c = #f
struct
(struct message (version entity fields)
    #:extra-constructor-name make-message)
  version : real?
  entity : entity
  fields : (listof string?)
struct
(struct entity (type
                subtype
                charset
                encoding
                disposition
                params
                id
                description
                other
                fields
                parts
                body)
    #:extra-constructor-name make-entity)
  type : symbol?
  subtype : symbol?
  charset : symbol?
  encoding : symbol?
  disposition : disposition?
  params : (listof (cons/c symbol? string?))
  id : string?
  description : string?
  other : (listof string?)
  fields : (listof string?)
  parts : (listof message?)
  body : (or/c (output-port? . -> . void?) null?)
struct
(struct disposition (type
                     filename
                     creation
                     modification
                     read
                     size
                     params)
    #:extra-constructor-name make-disposition)
  type : symbol?
  filename : (or/c string? #f)
  creation : (or/c string? #f)
  modification : (or/c string? #f)
  read : (or/c string? #f)
  size : (or/c exact-nonnegative-integer? #f)
  params : (listof (cons/c symbol? string?))
struct
(struct mime-error exn:fail ()
    #:extra-constructor-name make-mime-error)
struct
(struct unexpected-termination mime-error (msg)
    #:extra-constructor-name make-unexpected-termination)
  msg : string?
struct
(struct missing-multipart-boundary-parameter mime-error ()
    #:extra-constructor-name
    make-missing-multipart-boundary-parameter)
struct
(struct malformed-multipart-entity mime-error (msg)
    #:extra-constructor-name make-malformed-multipart-entity)
  msg : string?
struct
(struct empty-mechanism mime-error ()
    #:extra-constructor-name make-empty-mechanism)
struct
(struct empty-type mime-error ()
    #:extra-constructor-name make-empty-type)
struct
(struct empty-subtype mime-error ()
    #:extra-constructor-name make-empty-subtype)
struct
(struct empty-disposition-type mime-error ()
    #:extra-constructor-name make-empty-disposition-type)
value
mime@ : unit?
signature
mime^ : signature
procedure
(base64-encode bstr [newline]) -> bytes?
  bstr : bytes?
  newline : any/c = #"\r\n"
procedure
(base64-decode bstr) -> bytes?
  bstr : bytes?
procedure
(base64-encode-stream in out [newline]) -> void?
  in : input-port?
  out : output-port?
  newline : any/c = #"\n"
procedure
(base64-decode-stream in out) -> void?
  in : input-port?
  out : output-port?
value
base64@ : unit?
signature
base64^ : signature
procedure
(qp-encode bstr) -> bytes?
  bstr : bytes?
procedure
(qp-decode bstr) -> bytes?
  bstr : bytes?
procedure
(qp-encode-stream in out [newline-bstr]) -> void?
  in : input-port?
  out : output-port?
  newline-bstr : bytes? = #"\n"
procedure
(qp-decode-stream in out) -> void?
  in : input-port?
  out : output-port?
struct
(struct qp-error ()
    #:extra-constructor-name make-qp-error)
struct
(struct qp-wrong-input qp-error ()
    #:extra-constructor-name make-qp-wrong-input)
struct
(struct qp-wrong-line-size qp-error ()
    #:extra-constructor-name make-qp-wrong-line-size)
value
qp@ : unit?
signature
qp^ : signature
procedure
(dns-get-address  nameserver          
                  address             
                 [#:ipv6? ipv6?]) -> string?
  nameserver : string?
  address : string?
  ipv6? : any/c = #f
procedure
(dns-get-srv nameserver name service [proto]) -> (listof srv-rr?)
  nameserver : string?
  name : string?
  service : string?
  proto : string? = "tcp"
struct
(struct srv-rr (priority weight port target)
    #:prefab)
  priority : (integer-in 0 65535)
  weight : (integer-in 0 65535)
  port : (integer-in 0 65535)
  target : string?
procedure
(dns-get-name nameserver address) -> string?
  nameserver : string?
  address : string?
procedure
(dns-get-mail-exchanger nameserver address) -> string?
  nameserver : string?
  address : string?
procedure
(dns-find-nameserver) -> (or/c string? #f)
value
dns@ : unit?
signature
dns^ : signature
struct
(struct communicator (sender receiver server port)
    #:extra-constructor-name make-communicator)
  sender : output-port?
  receiver : input-port?
  server : string?
  port : (integer-in 0 65535)
procedure
(connect-to-server server [port-number]) -> communicator?
  server : string?
  port-number : (integer-in 0 65535) = 119
procedure
(disconnect-from-server communicator) -> void?
  communicator : communicator?
procedure
(open-news-group communicator newsgroup)
 -> exact-nonnegative-integer?
    exact-nonnegative-integer?
    exact-nonnegative-integer?
  communicator : communicator?
  newsgroup : string?
procedure
(authenticate-user communicator     
                   username         
                   password)    -> void?
  communicator : communicator?
  username : string?
  password : string?
procedure
(head-of-message communicator       
                 message-index) -> (listof string?)
  communicator : communicator?
  message-index : exact-nonnegative-integer?
procedure
(body-of-message communicator       
                 message-index) -> (listof string?)
  communicator : communicator?
  message-index : exact-nonnegative-integer?
procedure
(newnews-since communicator message-index) -> (listof string?)
  communicator : communicator?
  message-index : exact-nonnegative-integer?
procedure
((generic-message-command command            
                          ok-code)           
                          communicator       
                          message-index) -> (listof string?)
  command : string?
  ok-code : exact-integer?
  communicator : communicator?
  message-index : exact-nonnegative-integer?
procedure
(make-desired-header tag-string) -> regexp?
  tag-string : string?
procedure
(extract-desired-headers header desireds) -> (listof string?)
  header : (listof string?)
  desireds : (listof regexp?)
struct
(struct nntp exn ()
    #:extra-constructor-name make-nntp)
struct
(struct unexpected-response nntp (code text)
    #:extra-constructor-name make-unexpected-response)
  code : exact-integer?
  text : string?
struct
(struct bad-status-line nntp (line)
    #:extra-constructor-name make-bad-status-line)
  line : string?
struct
(struct premature-close nntp (communicator)
    #:extra-constructor-name make-premature-close)
  communicator : communicator?
struct
(struct bad-newsgroup-line nntp (line)
    #:extra-constructor-name make-bad-newsgroup-line)
  line : string?
struct
(struct non-existent-group nntp (group)
    #:extra-constructor-name make-non-existent-group)
  group : string?
struct
(struct article-not-in-group nntp (article)
    #:extra-constructor-name make-article-not-in-group)
  article : exact-integer?
struct
(struct no-group-selected nntp ()
    #:extra-constructor-name make-no-group-selected)
struct
(struct article-not-found nntp (article)
    #:extra-constructor-name make-article-not-found)
  article : exact-integer?
struct
(struct authentication-rejected nntp ()
    #:extra-constructor-name make-authentication-rejected)
value
nntp@ : unit?
signature
nntp^ : signature
signature
tcp^ : signature
procedure
(tcp-listen  port-no            
            [max-allow-wait     
             reuse?             
             hostname])     -> tcp-listener?
  port-no : (integer-in 0 65535)
  max-allow-wait : exact-nonnegative-integer? = 4
  reuse? : any/c = #f
  hostname : (or/c string? #f) = #f
procedure
(tcp-connect  hostname            
              port-no             
             [local-hostname      
              local-port-no]) -> input-port? output-port?
  hostname : string?
  port-no : (integer-in 1 65535)
  local-hostname : (or/c string? #f) = #f
  local-port-no : (or/c (integer-in 1 65535) #f) = #f
procedure
(tcp-connect/enable-break  hostname        
                           port-no         
                          [local-hostname] 
                           local-port-no)  
 -> input-port? output-port?
  hostname : string?
  port-no : (integer-in 1 65535)
  local-hostname : (or/c string? #f) = #f
  local-port-no : (or/c (integer-in 1 65535) #f)
procedure
(tcp-accept listener) -> input-port? output-port?
  listener : tcp-listener?
procedure
(tcp-accept/enable-break listener) -> input-port? output-port?
  listener : tcp-listener?
procedure
(tcp-accept-ready? listener) -> boolean?
  listener : tcp-listener?
procedure
(tcp-close listener) -> void?
  listener : tcp-listener?
procedure
(tcp-listener? v) -> boolean?
  v : any/c
procedure
(tcp-abandon-port tcp-port) -> void?
  tcp-port : port?
procedure
(tcp-addresses tcp-port [port-numbers?])
 -> (or/c (values string? string?)
          (values string? (integer-in 1 65535)
                  string? (integer-in 1 65535)))
  tcp-port : port?
  port-numbers? : any/c = #f
value
tcp@ : unit?
procedure
(tcp-redirect port-numbers) -> unit?
  port-numbers : (listof (integer-in 0 65535))
procedure
(make-ssl-tcp@ server-cert-file             
               server-key-file              
               server-root-cert-files       
               server-suggest-auth-file     
               client-cert-file             
               client-key-file              
               client-root-cert-files)  -> unit?
  server-cert-file : (or/c path-string? #f)
  server-key-file : (or/c path-string? #f)
  server-root-cert-files : (or/c (listof path-string?) #f)
  server-suggest-auth-file : path-string?
  client-cert-file : (or/c path-string? #f)
  client-key-file : (or/c path-string? #f)
  client-root-cert-files : (listof path-string?)
procedure
(get-bindings)
 -> (listof (cons/c (or/c symbol? string?) string?))
procedure
(get-bindings/post)
 -> (listof (cons/c (or/c symbol? string?) string?))
procedure
(get-bindings/get)
 -> (listof (cons/c (or/c symbol? string?) string?))
procedure
(extract-bindings key? bindings) -> (listof string?)
  key? : (or/c symbol? string?)
  bindings : (listof (cons/c (or/c symbol? string?) string?))
procedure
(extract-binding/single key? bindings) -> string?
  key? : (or/c symbol? string?)
  bindings : (listof (cons/c (or/c symbol? string?) string?))
procedure
(output-http-headers) -> void?
procedure
(generate-html-output  title             
                       body              
                      [text-color        
                       bg-color          
                       link-color        
                       vlink-color       
                       alink-color]) -> void?
  title : string?
  body : (listof string?)
  text-color : string? = "#000000"
  bg-color : string? = "#ffffff"
  link-color : string? = "#cc2200"
  vlink-color : string? = "#882200"
  alink-color : string? = "#444444"
procedure
(string->html str) -> string?
  str : string?
procedure
(generate-link-text str html-str) -> string?
  str : string?
  html-str : string?
procedure
(generate-error-output strs) -> any
  strs : (listof string?)
procedure
(get-cgi-method) -> (or/c "GET" "POST")
procedure
(bindings-as-html listof) -> (listof string?)
  listof : (cons/c (or/c symbol? string?) string?)
value
cgi@ : unit?
signature
cgi^ : signature
procedure
(cookie? v) -> boolean?
  v : any/c
procedure
(valid-domain? v) -> boolean?
  v : any/c
procedure
(cookie-name? v) -> boolean?
  v : any/c
procedure
(cookie-value? v) -> boolean?
  v : any/c
procedure
(set-cookie name value) -> cookie?
  name : cookie-name?
  value : cookie-value?
procedure
(cookie:add-comment cookie comment) -> cookie?
  cookie : cookie?
  comment : string?
procedure
(cookie:add-domain cookie domain) -> cookie?
  cookie : cookie?
  domain : valid-domain?
procedure
(cookie:add-max-age cookie seconds) -> cookie?
  cookie : cookie?
  seconds : exact-nonnegative-integer?
procedure
(cookie:add-path cookie path) -> cookie?
  cookie : cookie?
  path : valid-path?
procedure
(cookie:add-expires cookie path) -> cookie?
  cookie : cookie?
  path : string
procedure
(cookie:secure cookie secure) -> cookie?
  cookie : cookie?
  secure : boolean?
procedure
(cookie:version cookie version) -> cookie?
  cookie : cookie?
  version : exact-nonnegative-integer?
procedure
(print-cookie cookie) -> string?
  cookie : cookie?
procedure
(get-cookie name cookies) -> (listof cookie-value?)
  name : cookie-name?
  cookies : string?
procedure
(get-cookie/single name cookies) -> (or/c cookie-value? #f)
  name : cookie-name?
  cookies : string?
struct
(struct cookie-error exn:fail ()
    #:extra-constructor-name make-cookie-error)
value
cookie@ : unit?
signature
cookie^ : signature
procedure
(git-checkout  hostname                                
               repository                              
               #:dest-dir dest-dir                     
              [#:ref ref                               
               #:initial-search-ref initial-search-ref 
               #:transport transport                   
               #:depth depth                           
               #:status-printf status-printf           
               #:initial-error initial-error           
               #:tmp-dir tmp-dir                       
               #:clean-tmp-dir? clean-tmp-dir?         
               #:verify-server? verify-server?         
               #:port port                             
               #:strict-links? strict-links?           
               #:username username                     
               #:password password])                   
 -> string?
  hostname : string?
  repository : string?
  dest-dir : (or/c path-string? #f)
  ref : (or/c string? 'head) = 'head
  initial-search-ref : string? = "master"
  transport : (or/c 'git 'http 'https) = 'git
  depth : (or/c #f exact-positive-integer?) = 1
  status-printf : (string? any/c ... . -> . void?)
                = (lambda args
                    (apply printf args)
                    (flush-output))
  initial-error : (or #f (-> any)) = #f
  tmp-dir : (or/c #f path-string?) = #f
  clean-tmp-dir? : any/c = (not tmp-dir)
  verify-server? : any/c = #t
  port : (or/c #f (integer-in 1 65535)) = (case transport
                                            [(git) 9418]
                                            [(http) 80]
                                            [(https) 443])
  strict-links? : any/c = #f
  username : (or/c string? #f) = (current-git-username)
  password : (or/c string? #f) = (current-git-password)
parameter
(current-git-username) -> (or/c string? #f)
(current-git-username username) -> void?
  username : (or/c string? #f)
parameter
(current-git-password) -> (or/c string? #f)
(current-git-password password) -> void?
  password : (or/c string? #f)
struct
(struct exn:fail:git exn:fail ()
    #:extra-constructor-name make-exn:fail:git
    #:transparent)
