37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
(declare (uses pgdb))
(declare (uses mtmod))
(declare (uses megatestmod))
(use srfi-69)
(module tasksmod
*
|
>
>
>
>
>
>
>
>
>
|
>
>
>
>
>
>
>
>
>
|
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
(declare (uses pgdb))
(declare (uses mtmod))
(declare (uses megatestmod))
(use srfi-69)
(module tasksmod
(
configf:write-alist
common:simple-unlock
common:simple-lock
tests:test-set-status!
common:get-launcher
tasks:kill-runner
tests:get-testconfig
tests:get-waitons
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
ports
|
1865
1866
1867
1868
1869
1870
1871
1872
1873
|
(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))
)
|