Overview
| Comment: | Added exception handling to cdb:remote run to better support remote access to regression directories |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 | v1.5514 |
| Files: | files | file ages | folders |
| SHA1: |
c98c7b6bd9c150f8ea2dbdd17ea09532 |
| User & Date: | mrwellan on 2013-11-21 12:35:20 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-11-25
| ||
| 13:59 | Fixed -list-runs to work with -target filter check-in: 21925e0dcb user: mrwellan tags: v1.55, v1.5514 | |
|
2013-11-23
| ||
| 22:52 | Merged from v1.55 check-in: 0e5db02276 user: matt tags: trunk | |
|
2013-11-21
| ||
| 12:35 | Added exception handling to cdb:remote run to better support remote access to regression directories check-in: c98c7b6bd9 user: mrwellan tags: v1.55, v1.5514 | |
|
2013-11-20
| ||
| 17:48 | Added first pass on mtgetfile check-in: 117e4b22f4 user: mrwellan tags: v1.55 | |
Changes
Modified db.scm from [d8224faa91] to [ef9d107a30].
| ︙ | ︙ | |||
1710 1711 1712 1713 1714 1715 1716 |
(hash-table-set! *test-info* test-id (vector (current-seconds) test-dat)) ;; cached for use where up-to-date info is not needed
test-dat))
;; db should be db open proc or #f
(define (cdb:remote-run proc db . params)
(if (or *db-write-access*
(not (member proc *db:all-write-procs*)))
| > > > > > > | | 1710 1711 1712 1713 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 1729 1730 |
(hash-table-set! *test-info* test-id (vector (current-seconds) test-dat)) ;; cached for use where up-to-date info is not needed
test-dat))
;; db should be db open proc or #f
(define (cdb:remote-run proc db . params)
(if (or *db-write-access*
(not (member proc *db:all-write-procs*)))
(handle-exceptions
exn
(begin
(debug:print 0 "Problem with call to cdb:remote-run, database may be locked and read-only, waiting and trying again ...")
(thread-sleep! 10)
(apply cdb:remote-run proc db params))
(apply cdb:client-call *runremote* 'immediate #f *default-numtries* open-run-close proc #f params))
(begin
(debug:print 0 "ERROR: Attempt to access read-only database")
#f)))
(define (db:test-get-logfile-info db run-id test-name)
(let ((res #f))
(sqlite3:for-each-row
|
| ︙ | ︙ |