Overview
| Comment: | compiles, help and repl work - if you run with path to executable |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6584-ck5 |
| Files: | files | file ages | folders |
| SHA1: |
97e36f1c29c1e0a99454d41734a9aa35 |
| User & Date: | matt on 2021-04-15 20:08:39 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-04-15
| ||
| 20:44 | wip - moving globals into *bdat* check-in: 921126fb6b user: matt tags: v1.6584-ck5 | |
| 20:08 | compiles, help and repl work - if you run with path to executable check-in: 97e36f1c29 user: matt tags: v1.6584-ck5 | |
| 15:23 | converted db accessors to procedures check-in: e2dacbec3a user: matt tags: v1.6584-ck5 | |
Changes
Modified Makefile from [9608a7fac5] to [62190f81bd].
| ︙ | ︙ | |||
26 27 28 29 30 31 32 |
# module source files
MSRCFILES = autoload.scm dbi.scm ducttape-lib.scm pkts.scm stml2.scm \
cookie.scm mutils.scm mtargs.scm apimod.scm \
configfmod.scm commonmod.scm dbmod.scm rmtmod.scm \
debugprint.scm mtver.scm csv-xml.scm servermod.scm \
hostinfo.scm adjutant.scm processmod.scm testsmod.scm \
itemsmod.scm keysmod.scm mtmod.scm rmtmod.scm \
| | | | 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
# module source files
MSRCFILES = autoload.scm dbi.scm ducttape-lib.scm pkts.scm stml2.scm \
cookie.scm mutils.scm mtargs.scm apimod.scm \
configfmod.scm commonmod.scm dbmod.scm rmtmod.scm \
debugprint.scm mtver.scm csv-xml.scm servermod.scm \
hostinfo.scm adjutant.scm processmod.scm testsmod.scm \
itemsmod.scm keysmod.scm mtmod.scm rmtmod.scm \
tasksmod.scm pgdb.scm launchmod.scm runsmod.scm \
http-transportmod.scm portloggermod.scm clientmod.scm \
archivemod.scm ezstepsmod.scm subrunmod.scm
GUISRCF = dashboard-context-menu.scm dashboard-tests.scm \
dashboard-guimonitor.scm gutils.scm dcommon.scm tree.scm \
vg.scm
OFILES = $(SRCFILES:%.scm=%.o)
GOFILES = $(GUISRCF:%.scm=%.o)
|
| ︙ | ︙ |
Modified megatest.scm from [9175824e00] to [c9b0038b4d].
| ︙ | ︙ | |||
2608 2609 2610 2611 2612 2613 2614 2615 2616 |
((1)(exit 1))
((2)(exit 2))
(else (exit 3)))))
)
)
(main)
| > | 2608 2609 2610 2611 2612 2613 2614 2615 2616 2617 |
((1)(exit 1))
((2)(exit 2))
(else (exit 3)))))
)
)
(import megatest-main)
(main)
|
Modified server.scm from [98353dafaa] to [643d5fcda0].
| ︙ | ︙ | |||
82 83 84 85 86 87 88 |
((rpc) (db:obj->string (vector success/fail query-sig result)))
((http) (db:obj->string (vector success/fail query-sig result)))
((fs) result)
(else
(debug:print-error 0 *default-log-port* "unrecognised transport type: " *transport-type*)
result)))
| | | 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 |
((rpc) (db:obj->string (vector success/fail query-sig result)))
((http) (db:obj->string (vector success/fail query-sig result)))
((fs) result)
(else
(debug:print-error 0 *default-log-port* "unrecognised transport type: " *transport-type*)
result)))
#;(define (server:record->url servr)
(handle-exceptions
exn
(begin
(debug:print-info 0 *default-log-port* "Unable to get server url from " servr ", exn=" exn)
#f)
(match-let (((mod-time host port start-time server-id pid)
servr))
|
| ︙ | ︙ |