Overview
| Comment: | Compile errors missed ... |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | multi-transport |
| Files: | files | file ages | folders |
| SHA1: |
6ede23fb86599084d082ef16c691ef4b |
| User & Date: | matt on 2013-01-27 23:06:50 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-01-28
| ||
| 22:14 | Enabled http transport check-in: c3d256ef96 user: matt tags: multi-transport | |
|
2013-01-27
| ||
| 23:06 | Compile errors missed ... check-in: 6ede23fb86 user: matt tags: multi-transport | |
| 22:59 | Most cleanup done, routines consolidated check-in: 12356df330 user: matt tags: multi-transport | |
Changes
Modified megatest.scm from [b6130dd2a9] to [52774a1066].
| ︙ | ︙ | |||
283 284 285 286 287 288 289 | ;;====================================================================== ;; Start the server - can be done in conjunction with -runall or -runtests (one day...) ;; we start the server if not running else start the client thread ;;====================================================================== (if (args:get-arg "-server") | | | | 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 |
;;======================================================================
;; Start the server - can be done in conjunction with -runall or -runtests (one day...)
;; we start the server if not running else start the client thread
;;======================================================================
(if (args:get-arg "-server")
(let ((transport (args:get-arg "-transport" "http")))
(debug:print 2 "Launching server using transport " transport)
(server:launch (string->symbol transport))))
(if (args:get-arg "-list-servers")
;; (args:get-arg "-kill-server"))
(let ((tl (setup-for-run)))
(if tl
(let ((servers (open-run-close tasks:get-all-servers tasks:open-db))
(fmtstr "~5a~8a~8a~20a~20a~10a~10a~10a~10a~10a\n")
|
| ︙ | ︙ |
Modified server.scm from [a8bffe61f3] to [64baef49da].
| ︙ | ︙ | |||
129 130 131 132 133 134 135 136 137 138 139 140 141 142 |
;; (send-message pubsock
(case *transport-type*
((fs) result)
((http)(db:obj->string (vector success/fail query-sig result)))
((zmq)
(send-message pubsock target send-more: #t)
(send-message pubsock (db:obj->string (vector success/fail query-sig result))))
;;======================================================================
;; C L I E N T S
;;======================================================================
(define (server:get-client-signature)
(if *my-client-signature* *my-client-signature*
| > > > | 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 |
;; (send-message pubsock
(case *transport-type*
((fs) result)
((http)(db:obj->string (vector success/fail query-sig result)))
((zmq)
(send-message pubsock target send-more: #t)
(send-message pubsock (db:obj->string (vector success/fail query-sig result))))
(else
(debug:print 0 "ERROR: unrecognised transport type: " *transport-type*)
result)))
;;======================================================================
;; C L I E N T S
;;======================================================================
(define (server:get-client-signature)
(if *my-client-signature* *my-client-signature*
|
| ︙ | ︙ |