Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63-stackdumpfix |
| Files: | files | file ages | folders |
| SHA1: |
b3d324d50ff4946f29d9e54c57d99a7a |
| User & Date: | bjbarcla on 2017-01-06 14:31:05 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-01-06
| ||
| 20:28 | wip check-in: fc4e43d81e user: bjbarcla tags: v1.63-stackdumpfix | |
| 14:31 | wip check-in: b3d324d50f user: bjbarcla tags: v1.63-stackdumpfix | |
|
2017-01-05
| ||
| 15:43 | addressed stach dump in db:get-run-stats check-in: bd4a33953c user: bjbarcla tags: v1.63-stackdumpfix | |
Changes
Modified db.scm from [270a2d0497] to [a169cd3703].
| ︙ | ︙ | |||
1959 1960 1961 1962 1963 1964 1965 | "SELECT state,status,count(id) AS count FROM tests WHERE run_id=? AND NOT(uname='n/a' AND item_path='') GROUP BY state,status;;" run-id)))) ;; Update run_stats for given run_id ;; input data is a list (state status count) ;; (define (db:update-run-stats dbstruct run-id stats) | | | 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 |
"SELECT state,status,count(id) AS count FROM tests WHERE run_id=? AND NOT(uname='n/a' AND item_path='') GROUP BY state,status;;"
run-id))))
;; Update run_stats for given run_id
;; input data is a list (state status count)
;;
(define (db:update-run-stats dbstruct run-id stats)
;;(mutex-lock! *db-stats-mutex*)
(db:with-db
dbstruct
#f
#f
(lambda (db)
;; remove previous data
|
| ︙ | ︙ | |||
1981 1982 1983 1984 1985 1986 1987 |
(for-each
(lambda (dat)
(sqlite3:execute stmt1 run-id (car dat)(cadr dat))
(apply sqlite3:execute stmt2 run-id dat))
stats)))))
(sqlite3:finalize! stmt1)
(sqlite3:finalize! stmt2)
| | | 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 |
(for-each
(lambda (dat)
(sqlite3:execute stmt1 run-id (car dat)(cadr dat))
(apply sqlite3:execute stmt2 run-id dat))
stats)))))
(sqlite3:finalize! stmt1)
(sqlite3:finalize! stmt2)
;;(mutex-unlock! *db-stats-mutex*)
res))))
(define (db:get-main-run-stats dbstruct run-id)
(db:with-db
dbstruct
#f ;; this data comes from main
#f
|
| ︙ | ︙ |