Megatest

Check-in [6e3332bbc0]
Login
Overview
Comment:Removed references to rpc in server.scm
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64
Files: files | file ages | folders
SHA1: 6e3332bbc06ab31d63740080d60ae5da58e9e0bc
User & Date: jmoon18 on 2017-09-27 18:04:37
Other Links: branch diff | manifest | tags
Context
2017-09-29
17:13
added missing reruns argument to runs:loop-values check-in: 72c5be5101 user: pjhatwal tags: v1.64
2017-09-27
18:04
Removed references to rpc in server.scm check-in: 6e3332bbc0 user: jmoon18 tags: v1.64
16:52
fixed version in megatest-version.scm check-in: db0a1ae391 user: pjhatwal tags: v1.64
Changes

Modified server.scm from [45bfab59ba] to [c770c96d9e].

18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
(declare (unit server))

(declare (uses common))
(declare (uses db))
(declare (uses tasks)) ;; tasks are where stuff is maintained about what is running.
;; (declare (uses synchash))
(declare (uses http-transport))
(declare (uses rpc-transport))
;;(declare (uses nmsg-transport))
(declare (uses launch))
(declare (uses daemon))

(include "common_records.scm")
(include "db_records.scm")








|







18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
(declare (unit server))

(declare (uses common))
(declare (uses db))
(declare (uses tasks)) ;; tasks are where stuff is maintained about what is running.
;; (declare (uses synchash))
(declare (uses http-transport))
;;(declare (uses rpc-transport))
;;(declare (uses nmsg-transport))
(declare (uses launch))
(declare (uses daemon))

(include "common_records.scm")
(include "db_records.scm")

48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
;;
;; start_server
;;
(define (server:launch run-id transport-type)
  (case transport-type
    ((http)(http-transport:launch))
    ;;((nmsg)(nmsg-transport:launch run-id))
    ((rpc)  (rpc-transport:launch run-id))
    (else (debug:print-error 0 *default-log-port* "unknown server type " transport-type))))

;;======================================================================
;; S E R V E R   U T I L I T I E S 
;;======================================================================

;; Get the transport







|







48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
;;
;; start_server
;;
(define (server:launch run-id transport-type)
  (case transport-type
    ((http)(http-transport:launch))
    ;;((nmsg)(nmsg-transport:launch run-id))
    ;;((rpc)  (rpc-transport:launch run-id))
    (else (debug:print-error 0 *default-log-port* "unknown server type " transport-type))))

;;======================================================================
;; S E R V E R   U T I L I T I E S 
;;======================================================================

;; Get the transport