Megatest

Diff
Login

Differences From Artifact [8f450896f9]:

To Artifact [73558fec1c]:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
;;======================================================================
;; Copyright 2006-2012, Matthew Welland.
;; 
;;  This program is made available under the GNU GPL version 2.0 or
;;  greater. See the accompanying file COPYING for details.
;; 
;;  This program is distributed WITHOUT ANY WARRANTY; without even the
;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;;  PURPOSE.
;;======================================================================

;; 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-inline (tasks:task-get-id               vec)    (vector-ref  vec 0))
(define-inline (tasks:task-get-action           vec)    (vector-ref  vec 1))
(define-inline (tasks:task-get-owner            vec)    (vector-ref  vec 2))
(define-inline (tasks:task-get-state            vec)    (vector-ref  vec 3))
(define-inline (tasks:task-get-target           vec)    (vector-ref  vec 4))
(define-inline (tasks:task-get-name             vec)    (vector-ref  vec 5))
(define-inline (tasks:task-get-test             vec)    (vector-ref  vec 6))
(define-inline (tasks:task-get-item             vec)    (vector-ref  vec 7))
(define-inline (tasks:task-get-params           vec)    (vector-ref  vec 8))
(define-inline (tasks:task-get-creation_time    vec)    (vector-ref  vec 9))
(define-inline (tasks:task-get-execution_time   vec)    (vector-ref  vec 10))

(define-inline (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-inline (tasks:monitor-get-id            vec)    (vector-ref  vec 0))
(define-inline (tasks:monitor-get-pid           vec)    (vector-ref  vec 1))
(define-inline (tasks:monitor-get-start_time    vec)    (vector-ref  vec 2))
(define-inline (tasks:monitor-get-last_update   vec)    (vector-ref  vec 3))
(define-inline (tasks:monitor-get-hostname      vec)    (vector-ref  vec 4))
(define-inline (tasks:monitor-get-username      vec)    (vector-ref  vec 5))













|
|
|
|
|
|
|
|
|
|
|






|
|
|
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
;;======================================================================
;; Copyright 2006-2012, Matthew Welland.
;; 
;;  This program is made available under the GNU GPL version 2.0 or
;;  greater. See the accompanying file COPYING for details.
;; 
;;  This program is distributed WITHOUT ANY WARRANTY; without even the
;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;;  PURPOSE.
;;======================================================================

;; 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-inline (tasks:task-get-id               vec)    (safe-vector-ref  vec 0))
(define-inline (tasks:task-get-action           vec)    (safe-vector-ref  vec 1))
(define-inline (tasks:task-get-owner            vec)    (safe-vector-ref  vec 2))
(define-inline (tasks:task-get-state            vec)    (safe-vector-ref  vec 3))
(define-inline (tasks:task-get-target           vec)    (safe-vector-ref  vec 4))
(define-inline (tasks:task-get-name             vec)    (safe-vector-ref  vec 5))
(define-inline (tasks:task-get-test             vec)    (safe-vector-ref  vec 6))
(define-inline (tasks:task-get-item             vec)    (safe-vector-ref  vec 7))
(define-inline (tasks:task-get-params           vec)    (safe-vector-ref  vec 8))
(define-inline (tasks:task-get-creation_time    vec)    (safe-vector-ref  vec 9))
(define-inline (tasks:task-get-execution_time   vec)    (safe-vector-ref  vec 10))

(define-inline (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-inline (tasks:monitor-get-id            vec)    (safe-vector-ref  vec 0))
(define-inline (tasks:monitor-get-pid           vec)    (safe-vector-ref  vec 1))
(define-inline (tasks:monitor-get-start_time    vec)    (safe-vector-ref  vec 2))
(define-inline (tasks:monitor-get-last_update   vec)    (safe-vector-ref  vec 3))
(define-inline (tasks:monitor-get-hostname      vec)    (safe-vector-ref  vec 4))
(define-inline (tasks:monitor-get-username      vec)    (safe-vector-ref  vec 5))