Megatest

Check-in [97e36f1c29]
Login
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: 97e36f1c29c1e0a99454d41734a9aa35d81ab8d2
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
33

34
35

36
37
38
39
40
41
42
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.o runsmod.scm		\
            tasksmod.scm pgdb.scm launchmod.scm runsmod.scm		\
            http-transportmod.scm portloggermod.scm clientmod.scm	\
            archivemod.scm ezstepsmod.o subrunmod.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
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
89

90
91
92
93
94
95
96
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)
#;(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))