w6vvn/gem300
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: w6vvn:b02f59c17fd813374f6ce8bdec860dbe26dedd79
Branches Tags
w6vvn:master
..
compare: w6vvn:f02b2c976e2370e0bb50af5b283ef394ff8e1f92
Branches Tags
w6vvn:master

2 Commits
b02f59c17f ... f02b2c976e

Author SHA1 Message Date
w6vvn
f02b2c976e correctly handle bottoming out document buffer 2025-09-04 19:39:01 -07:00
w6vvn
566d2ff40e net/url includes http stuff. net/url-string is all we want or need 2025-09-04 18:04:13 -07:00
2 changed files with 3 additions and 2 deletions
Expand all files Collapse all files

3
gem300.rkt
View File

@@ -31,7 +31,8 @@
(define (next-cmd) (define (next-cmd)
(define (iter depth) (define (iter depth)
(when (> depth 0) (when (and (> depth 0)
(> (pipe-content-length document-buffer) 0))
(let () (let ()
(displayln (read-line document-buffer)) (displayln (read-line document-buffer))
(iter (sub1 depth))))) (iter (sub1 depth)))))

2
net.rkt
View File

@@ -3,7 +3,7 @@
(provide get) (provide get)
(require openssl) (require openssl)
(require net/url) (require net/url-string)
;; sends a request to a gemini server, and returns the status, header, ;; sends a request to a gemini server, and returns the status, header,
;; and the input port for the rest of the body. ;; and the input port for the rest of the body.