Differences From Artifact [f9d9cfcea7]:
- File rmtmod.scm — part of check-in [2f294c2d84] at 2021-05-24 22:29:00 on branch v1.6584-tcp6 — Try switching to tcp6 (user: matt, size: 96487) [annotate] [blame] [check-ins using]
To Artifact [4d89b0adb6]:
- File rmtmod.scm — part of check-in [ccd3ea6a35] at 2021-05-24 22:39:20 on branch v1.6584-tcp6 — wip (user: matt, size: 96648) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
1524 1525 1526 1527 1528 1529 1530 |
(hash-table-ref/default *http-functions* fnkey (lambda () "nothing here yet")))
(define (http-handle-api dbstruct $)
(if (api-proc)
((api-proc) dbstruct $) ;; ($) => alist
'no-api-proc-set))
| | | > | | | > > > | | > > | 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 |
(hash-table-ref/default *http-functions* fnkey (lambda () "nothing here yet")))
(define (http-handle-api dbstruct $)
(if (api-proc)
((api-proc) dbstruct $) ;; ($) => alist
'no-api-proc-set))
(define (rmt:launch-server hostn port)
(let* ((l (tcp-listen port))
(dbstruct #f))
(let-values (((i o) (tcp-accept l)))
;; (write-line "Hello!" o)
(let loop ((indat (read i)))
(let* ((res (api:process-request dbstruct indat)))
(case res
((quit)
(close-input-port i)
(close-output-port o))
(else
(write res o))))))))
#;(define (http-transport:run hostn)
;; Configurations for server
(tcp-buffer-size 2048)
(max-connections 2048)
(debug:print 2 *default-log-port* "Attempting to start the server ...")
(let* ((db #f) ;; (open-db)) ;; we don't want the server to be opening and closing the db unnecesarily
|
| ︙ | ︙ |