Differences From Artifact [63d775f5dc]:
- File megatest.scm — part of check-in [dddccecb45] at 2016-12-09 08:44:53 on branch v1.63 — Fixed -list-targets and removed run data filtering based on file timestamps from -list-runs (user: mrwellan, size: 83320) [annotate] [blame] [check-ins using]
To Artifact [8f5d47927b]:
- File
megatest.scm
— part of check-in
[c9ec425fc4]
at
2016-12-09 17:33:35
on branch v1.63-fix-db-sync
— merged v1.62-rpc. Adds rpc transport capability but leaves default http.
NOTE: This commit appears to have broken the db sync-back to megatest.db. Moving this to side branch for repairs. (user: bjbarcla, size: 83184) [annotate] [blame] [check-ins using] [more...]
| ︙ | ︙ | |||
325 326 327 328 329 330 331 332 333 334 335 336 337 338 | "-q" ;; quiet 0, errors/warnings only ) args:arg-hash 0)) ;; Add args that use remargs here ;; (if (and (not (null? remargs)) (not (or (args:get-arg "-runstep") (args:get-arg "-envcap") (args:get-arg "-envdelta") ) )) | > | 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 | "-q" ;; quiet 0, errors/warnings only ) args:arg-hash 0)) ;; Add args that use remargs here ;; (if (and (not (null? remargs)) (not (or (args:get-arg "-runstep") (args:get-arg "-envcap") (args:get-arg "-envdelta") ) )) |
| ︙ | ︙ | |||
697 698 699 700 701 702 703 |
(if (args:get-arg "-server")
;; Server? Start up here.
;;
(let ((tl (launch:setup))
;; (run-id (and (args:get-arg "-run-id")
;; (string->number (args:get-arg "-run-id"))))
| | < < | 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 |
(if (args:get-arg "-server")
;; Server? Start up here.
;;
(let ((tl (launch:setup))
;; (run-id (and (args:get-arg "-run-id")
;; (string->number (args:get-arg "-run-id"))))
(transport-type *transport-type* ))
(server:launch 0 transport-type)
(set! *didsomething* #t)))
;; ;; (debug:print-error 0 *default-log-port* "server requires run-id be specified with -run-id")))
;;
;; ;; Not a server? This section will decide how to communicate
;; ;;
;; ;; Setup client for all expect listed here
|
| ︙ | ︙ | |||
1983 1984 1985 1986 1987 1988 1989 |
(debug:print 0 *default-log-port* "Failed to create HTML output in " toppath "/lt/runs-index.html"))
(set! *didsomething* #t)))
;;======================================================================
;; Exit and clean up
;;======================================================================
| < | 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 |
(debug:print 0 *default-log-port* "Failed to create HTML output in " toppath "/lt/runs-index.html"))
(set! *didsomething* #t)))
;;======================================================================
;; Exit and clean up
;;======================================================================
(if (not *didsomething*)
(debug:print 0 *default-log-port* help))
(set! *time-to-exit* #t)
(thread-join! *watchdog*)
|
| ︙ | ︙ |