53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
tests:get-test-path-from-environment
common:exit-on-version-changed
task:get-run-times
task:get-test-times
tasks:sync-to-postgres
tests:get-full-data
)
(import scheme)
(cond-expand
(chicken-4
(import chicken
|
>
>
|
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
tests:get-test-path-from-environment
common:exit-on-version-changed
task:get-run-times
task:get-test-times
tasks:sync-to-postgres
tests:get-full-data
tasks:task-get-testpatt
)
(import scheme)
(cond-expand
(chicken-4
(import chicken
|
1881
1882
1883
1884
1885
1886
1887
1888
1889
|
(lambda (missing-waiton)
(debug:print-error 0 *default-log-port* "non-existent test \"" missing-waiton "\" is a waiton for tests " (hash-table-ref missing-waitons missing-waiton))
)
(hash-table-keys missing-waitons)
)
))
)
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
>
>
>
>
>
>
>
>
>
>
>
|
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
|
(lambda (missing-waiton)
(debug:print-error 0 *default-log-port* "non-existent test \"" missing-waiton "\" is a waiton for tests " (hash-table-ref missing-waitons missing-waiton))
)
(hash-table-keys missing-waitons)
)
))
;; make-vector-record tasks task id action owner state target name test item params creation_time execution_time
(define (make-tasks:task)(make-vector 11))
(define (tasks:task-get-id vec) (vector-ref vec 0))
(define (tasks:task-get-action vec) (vector-ref vec 1))
(define (tasks:task-get-owner vec) (vector-ref vec 2))
(define (tasks:task-get-state vec) (vector-ref vec 3))
(define (tasks:task-get-target vec) (vector-ref vec 4))
(define (tasks:task-get-name vec) (vector-ref vec 5))
(define (tasks:task-get-testpatt vec) (vector-ref vec 6))
(define (tasks:task-get-keylock vec) (vector-ref vec 7))
(define (tasks:task-get-params vec) (vector-ref vec 8))
(define (tasks:task-get-creation_time vec) (vector-ref vec 9))
(define (tasks:task-get-execution_time vec) (vector-ref vec 10))
(define (tasks:task-set-state! vec val)(vector-set! vec 3 val))
;; make-vector-record tasks monitor id pid start_time last_update hostname username
(define (make-tasks:monitor)(make-vector 5))
(define (tasks:monitor-get-id vec) (vector-ref vec 0))
(define (tasks:monitor-get-pid vec) (vector-ref vec 1))
(define (tasks:monitor-get-start_time vec) (vector-ref vec 2))
(define (tasks:monitor-get-last_update vec) (vector-ref vec 3))
(define (tasks:monitor-get-hostname vec) (vector-ref vec 4))
(define (tasks:monitor-get-username vec) (vector-ref vec 5))
)
|