Megatest

Differences From Artifact [12f5deda72]:

• File fs-transport.scm — part of check-in [66763d5399] at 2013-01-27 13:14:31 on branch multi-transport — Creating branch for multi transport options, http, rpc, zmq, and network fs (user: matt, size: 15767) [annotate] [blame] [check-ins using]
• File http-transport.scm — part of check-in [66763d5399] at 2013-01-27 13:14:31 on branch multi-transport — Creating branch for multi transport options, http, rpc, zmq, and network fs (user: matt, size: 15767) [annotate] [blame] [check-ins using]
• File rpc-transport.scm — part of check-in [66763d5399] at 2013-01-27 13:14:31 on branch multi-transport — Creating branch for multi transport options, http, rpc, zmq, and network fs (user: matt, size: 15767) [annotate] [blame] [check-ins using]
• File server.scm — part of check-in [a893c641ca] at 2013-01-27 10:04:16 on branch http-transport — Streamlined db access a little, test4 completes in reasonable time (user: matt, size: 15767) [annotate] [blame] [check-ins using]
• File zmq-transport.scm — part of check-in [66763d5399] at 2013-01-27 13:14:31 on branch multi-transport — Creating branch for multi transport options, http, rpc, zmq, and network fs (user: matt, size: 15767) [annotate] [blame] [check-ins using]

To Artifact [78dbb4bb4d]:

• File server.scm — part of check-in [7bd6b6dae6] at 2013-01-27 13:11:52 on branch sqlite3-logging — merged trunk into sqlite3-logging (user: matt, size: 15817) [annotate] [blame] [check-ins using] [more...]

30
31
32
33
34
35
36

37
38
39
40
41
42
43

(define (server:make-server-url hostport)
  (if (not hostport)
      #f
      (conc "http://" (car hostport) ":" (cadr hostport))))

(define  *server-loop-heart-beat* (current-seconds))
(define *heartbeat-mutex* (make-mutex))


;;======================================================================
;; S E R V E R
;;======================================================================

;; Call this to start the actual server
;;

>

30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

(define (server:make-server-url hostport)
  (if (not hostport)
      #f
      (conc "http://" (car hostport) ":" (cadr hostport))))

(define  *server-loop-heart-beat* (current-seconds))
(define *heartbeat-mutex* (make-mutex))
	  (debug:print 0 "Server started on " host:port)

;;======================================================================
;; S E R V E R
;;======================================================================

;; Call this to start the actual server
;;