Megatest

Diff
Login

Differences From Artifact [08c9f6257d]:

To Artifact [fe3b733b14]:


95
96
97
98
99
100
101




















95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121







+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
		))))))

;; if a value is printable (i.e. string or number) return the value
;; else return an empty string
(define-inline (printable val)
  (if (or (number? val)(string? val)) val ""))

;;======================================================================
;; T E S T S U I T E   R E C O R D S
;;======================================================================

;; make-vector-record common_records testsuite toppath linktree configdat envvars
(define (make-common_records:testsuite)(make-vector 4))
(define-inline (common_records:testsuite-get-toppath     vec)    (vector-ref  vec 0))
(define-inline (common_records:testsuite-get-linktree    vec)    (vector-ref  vec 1))
(define-inline (common_records:testsuite-get-configdat   vec)    (vector-ref  vec 2))
(define-inline (common_records:testsuite-get-envvars     vec)    (vector-ref  vec 3))
(define-inline (common_records:testsuite-set-toppath!    vec val)(vector-set! vec 0 val))
(define-inline (common_records:testsuite-set-linktree!   vec val)(vector-set! vec 1 val))
(define-inline (common_records:testsuite-set-configdat!  vec val)(vector-set! vec 2 val))
(define-inline (common_records:testsuite-set-envvars!    vec val)(vector-set! vec 3 val))

(define (common_records:testsuite-add-envvar! vec var val)
  (let ((envvars (cons (cons var val) 
		       (or (common_records:testsuite-get-envvars vec) '()))))
    (common_records:testsuite-set-envvars! vec envvars)
    envvars))