Overview
| Comment: | Ensured that servermod is available from the repl |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6584-ck5 |
| Files: | files | file ages | folders |
| SHA1: |
80cccdf80ea0d9e344449615b340c2ac |
| User & Date: | matt on 2021-04-19 23:42:17 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-04-20
| ||
| 06:15 | wip check-in: 0b376e3ac3 user: matt tags: v1.6584-ck5 | |
|
2021-04-19
| ||
| 23:42 | Ensured that servermod is available from the repl check-in: 80cccdf80e user: matt tags: v1.6584-ck5 | |
| 23:18 | Added basic server pkt stuff check-in: 51b1485d60 user: matt tags: v1.6584-ck5 | |
Changes
Modified megatest.scm from [62df76911c] to [0ef412667c].
| ︙ | ︙ | |||
51 52 53 54 55 56 57 58 59 60 61 62 63 64 | (declare (uses debugprint.import)) (declare (uses mtargs.import)) (declare (uses commonmod.import)) (declare (uses configfmod.import)) (declare (uses bigmod.import)) (declare (uses dbmod.import)) (declare (uses rmtmod.import)) ;; (include "call-with-environment-variables/call-with-environment-variables.scm") (module megatest-main * (import scheme | > | 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 | (declare (uses debugprint.import)) (declare (uses mtargs.import)) (declare (uses commonmod.import)) (declare (uses configfmod.import)) (declare (uses bigmod.import)) (declare (uses dbmod.import)) (declare (uses rmtmod.import)) (declare (uses servermod.import)) ;; (include "call-with-environment-variables/call-with-environment-variables.scm") (module megatest-main * (import scheme |
| ︙ | ︙ |
Modified servermod.scm from [e889c966f5] to [d4e6207e5f].
| ︙ | ︙ | |||
79 80 81 82 83 84 85 86 87 88 89 90 91 92 |
(ipaddr . ,ipaddr)
(dbpath . ,dbpath))))
(write-alist->pkt
pkts-dir
pkt-dat
pktspec: pkt-spec
ptype: 'server)))
;; given a pkts dir read
;;
(define (get-all-server-pkts pktsdir-in pktspec)
(let* ((pktsdir (if (file-exists? pktsdir-in)
pktsdir-in
(begin
| > > > > > > > > > | 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 |
(ipaddr . ,ipaddr)
(dbpath . ,dbpath))))
(write-alist->pkt
pkts-dir
pkt-dat
pktspec: pkt-spec
ptype: 'server)))
(define (get-pkts-dir)
(assert *toppath* "ERROR: get-pkts-dir called without *toppath* set. Exiting.")
(let* ((pdir (conc *toppath* "/.pkts")))
(if (file-exists? pdir)
pdir
(begin
(create-directory pdir #t)
pdir))))
;; given a pkts dir read
;;
(define (get-all-server-pkts pktsdir-in pktspec)
(let* ((pktsdir (if (file-exists? pktsdir-in)
pktsdir-in
(begin
|
| ︙ | ︙ |