Overview
| Comment: | Capturing forgotten edit |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64-better-archives |
| Files: | files | file ages | folders |
| SHA1: |
3944bdfd6a0741fdd3fdf41c8e6ce4d3 |
| User & Date: | matt on 2017-08-03 23:24:18 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-12-06
| ||
| 16:54 | Merged in hierhash and minor edit check-in: 2f99cf9da6 user: mrwellan tags: v1.65 | |
|
2017-08-03
| ||
| 23:24 | Capturing forgotten edit Closed-Leaf check-in: 3944bdfd6a user: matt tags: v1.64-better-archives | |
|
2017-07-16
| ||
| 21:53 | Added hierhash check-in: f4498ccf0b user: matt tags: v1.64-better-archives | |
Changes
Modified common.scm from [1dc52e6039] to [2d1e82b36e].
| ︙ | ︙ | |||
2282 2283 2284 2285 2286 2287 2288 |
(define (nm:start-server dbconn #!key (given-host-name #f))
(let* ((srvdat (start-raw-server given-host-name: given-host-name))
(host-name (srvdat-host srvdat))
(soc (srvdat-soc srvdat)))
;; start the queue processor (save for second round of development)
;;
| | | 2282 2283 2284 2285 2286 2287 2288 2289 2290 2291 2292 2293 2294 2295 2296 |
(define (nm:start-server dbconn #!key (given-host-name #f))
(let* ((srvdat (start-raw-server given-host-name: given-host-name))
(host-name (srvdat-host srvdat))
(soc (srvdat-soc srvdat)))
;; start the queue processor (save for second round of development)
;;
(thread-start! (queue-processory dbconn) "Queue processor")
;; msg is an alist
;; 'r host:port <== where to return the data
;; 'p params <== data to apply the command to
;; 'e j|s|l <== encoding of the params. default is s (sexp), if not specified is assumed to be default
;; 'c command <== look up the function to call using this key
;;
(let loop ((msg-in (nn-recv soc)))
|
| ︙ | ︙ |
Modified mtut.scm from [de23d29c54] to [8c33d3e1d2].
| ︙ | ︙ | |||
13 14 15 16 17 18 19 |
;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)
(use srfi-1 posix srfi-69 readline ;; regex regex-case srfi-69 apropos json http-client directory-utils rpc typed-records;; (srfi 18) extras)
srfi-18 extras format pkts pkts regex regex-case
(prefix dbi dbi:)
(prefix nanomsg nmsg:))
| | | 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)
(use srfi-1 posix srfi-69 readline ;; regex regex-case srfi-69 apropos json http-client directory-utils rpc typed-records;; (srfi 18) extras)
srfi-18 extras format pkts pkts regex regex-case
(prefix dbi dbi:)
(prefix nanomsg nmsg:))
test
(declare (uses common))
(declare (uses megatest-version))
(declare (uses margs))
(declare (uses configf))
;; (declare (uses rmt))
(include "megatest-fossil-hash.scm")
|
| ︙ | ︙ |