Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6584-tcp6 |
| Files: | files | file ages | folders |
| SHA1: |
ccd3ea6a358abbd59679c841ca835937 |
| User & Date: | matt on 2021-05-24 22:39:20 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-05-27
| ||
| 23:01 | wip, getting tcp6 workign check-in: 913149fcbe user: matt tags: v1.6584-tcp6 | |
|
2021-05-24
| ||
| 22:39 | wip check-in: ccd3ea6a35 user: matt tags: v1.6584-tcp6 | |
| 22:29 | Try switching to tcp6 check-in: 2f294c2d84 user: matt tags: v1.6584-tcp6 | |
Changes
Modified rmtmod.scm from [f9d9cfcea7] to [4d89b0adb6].
| ︙ | ︙ | |||
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
|
| ︙ | ︙ |