68 lines
1.7 KiB
Racket
68 lines
1.7 KiB
Racket
#lang racket
|
|
|
|
(require openssl)
|
|
(require net/url)
|
|
|
|
(define (request url-str)
|
|
(define url (string->url url-str))
|
|
(define-values (c-in c-out)
|
|
(ssl-connect (url-host url)
|
|
(or (url-port url) 1965)))
|
|
|
|
(write-string url-str c-out)
|
|
(write-string "\r\n" c-out)
|
|
|
|
(define-values (status header)
|
|
(read-response c-in))
|
|
|
|
(println status)
|
|
(println header))
|
|
|
|
(define (read-response (c-in (current-input-port)))
|
|
(define maxlen 1027)
|
|
|
|
(let ([header (peek-string maxlen 0 c-in)])
|
|
|
|
(if (not (string-contains? header "\r\n"))
|
|
(error "header exceeds maximum length")
|
|
|
|
(let ([header (read-line c-in 'return-linefeed)])
|
|
(define-values (status meta)
|
|
(let ([status-meta (string-split header " ")])
|
|
(values (car status-meta)
|
|
(string-join (cdr status-meta)))))
|
|
|
|
(cond
|
|
[(> (string-length status) 2)
|
|
(error "status code exceeds maximum length")]
|
|
|
|
[(andmap (compose not char-numeric?) (string->list status))
|
|
(error "status code is not numeric")]
|
|
|
|
[else
|
|
(values (string->number status) meta)])))))
|
|
|
|
(define commands
|
|
(list
|
|
(cons "default" (lambda (line) (void)))
|
|
(cons "go" (lambda (line)
|
|
(request line)))))
|
|
|
|
(define (dispatch-command line)
|
|
(let ([split (string-split line " ")])
|
|
|
|
(let ([cmd (assoc (cond [(null? split) "default"]
|
|
[else (first split)])
|
|
commands)])
|
|
(if cmd
|
|
((cdr cmd) (string-join (cdr split)))
|
|
(displayln "no such command")))))
|
|
|
|
|
|
(define (repl)
|
|
(display "G300> ")
|
|
(dispatch-command (read-line))
|
|
(repl))
|
|
|
|
(repl)
|