Overview
| Comment: | Fixed typo |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | test-specific-db |
| Files: | files | file ages | folders |
| SHA1: |
df9927b712d1e0d19b599f45c7612abd |
| User & Date: | mrwellan on 2012-10-03 17:10:56 |
| Other Links: | branch diff | manifest | tags |
Context
|
2012-10-04
| ||
| 16:08 | Fixed couple tests check-in: fbca8a30c8 user: matt tags: test-specific-db | |
| 13:31 | Reworked the launch loop to fix a bug in re-running already launched tests (not yet validated) check-in: d9b1c49d16 user: mrwellan tags: test-specific-db | |
|
2012-10-03
| ||
| 17:10 | Fixed typo check-in: df9927b712 user: mrwellan tags: test-specific-db | |
| 16:46 | rpc still partially borked check-in: f8d0d7ad8c user: mrwellan tags: test-specific-db | |
Changes
Modified db.scm from [6bd5cbb9f4] to [b26dbf5b3e].
| ︙ | ︙ | |||
1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 |
res))
;;======================================================================
;; QUEUE UP META, TEST STATUS AND STEPS
;;======================================================================
(define (db:updater)
(let loop ((start-time (current-time)))
(thread-sleep! 15) ;; move save time around to minimize regular collisions?
(db:write-cached-data)
(loop start-time)))
(define (cdb:test-set-status-state test-id status state msg)
(debug:print 4 "INFO: cdb:test-set-status-state test-id=" test-id ", status=" status ", state=" state ", msg=" msg)
| > | 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 |
res))
;;======================================================================
;; QUEUE UP META, TEST STATUS AND STEPS
;;======================================================================
(define (db:updater)
(debug:print 4 "INFO: Starting cache processing")
(let loop ((start-time (current-time)))
(thread-sleep! 15) ;; move save time around to minimize regular collisions?
(db:write-cached-data)
(loop start-time)))
(define (cdb:test-set-status-state test-id status state msg)
(debug:print 4 "INFO: cdb:test-set-status-state test-id=" test-id ", status=" status ", state=" state ", msg=" msg)
|
| ︙ | ︙ |
Modified server.scm from [a7d03df806] to [69fe3ba2a6].
| ︙ | ︙ | |||
104 105 106 107 108 109 110 111 112 113 114 115 116 117 | ;;====================================================================== (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-start! th2) ;; (thread-join! th2) ;; return th2 for the calling process to do a join with th2 )))) ;; rpc:server))) (define (server:keep-running db) | > | 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 | ;;====================================================================== (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) (debug:print 0 "Server started...") (thread-start! th2) ;; (thread-join! th2) ;; return th2 for the calling process to do a join with th2 )))) ;; rpc:server))) (define (server:keep-running db) |
| ︙ | ︙ |