Megatest

Check-in [14b1b076b5]
Login
Overview
Comment:Switch to using ip address instead of host name for rpc
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | archiving
Files: files | file ages | folders
SHA1: 14b1b076b573510aa3547a55860c94bf4fe9527a
User & Date: matt on 2012-02-24 00:09:10
Other Links: branch diff | manifest | tags
Context
2012-02-24
00:22
Typo check-in: 80e341f6e8 user: matt tags: archiving
00:09
Switch to using ip address instead of host name for rpc check-in: 14b1b076b5 user: matt tags: archiving
00:02
Corrected typo check-in: 22a0698c7c user: matt tags: archiving
Changes

Modified server.scm from [172fb1d317] to [440cb8b9ae].

91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
    (rpc:publish-procedure!
     'rpc:test-set-log!
     (lambda (run-id test-name item-path logf)
       (db:test-set-log! db run-id test-name item-path logf)))

    (set! *rpc:listener* rpc:listener)
    (on-exit (lambda ()
	       (sqlite3:execute db "DELETE FROM metadat WHERE var='SERVER' and val=?;" host:port)
	       (sqlite3:finalize! db)))
    (thread-start! th1)
    (thread-join! th1))) ;; rpc:server)))

(define (server:find-free-port-and-open port)
  (handle-exceptions
   exn







|







91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
    (rpc:publish-procedure!
     'rpc:test-set-log!
     (lambda (run-id test-name item-path logf)
       (db:test-set-log! db run-id test-name item-path logf)))

    (set! *rpc:listener* rpc:listener)
    (on-exit (lambda ()
	       (sqlite3:execute db "DELETE FROM metadat WHERE var='SERVER' and val=?;" ipaddr:port)
	       (sqlite3:finalize! db)))
    (thread-start! th1)
    (thread-join! th1))) ;; rpc:server)))

(define (server:find-free-port-and-open port)
  (handle-exceptions
   exn