173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
(define (tdb:step-stable-set-stepname! vec val)(vector-set! vec 0 val))
(define (tdb:step-stable-set-start! vec val)(vector-set! vec 1 val))
(define (tdb:step-stable-set-end! vec val)(vector-set! vec 2 val))
(define (tdb:step-stable-set-status! vec val)(vector-set! vec 3 val))
(define (tdb:step-stable-set-runtime! vec val)(vector-set! vec 4 val))
;; The data structure for handing off requests via wire
(define (make-cdb:packet)(make-vector 6))
(define (cdb:packet-get-client-sig vec) (vector-ref vec 0))
(define (cdb:packet-get-qtype vec) (vector-ref vec 1))
(define (cdb:packet-get-immediate vec) (vector-ref vec 2))
(define (cdb:packet-get-query-sig vec) (vector-ref vec 3))
(define (cdb:packet-get-params vec) (vector-ref vec 4))
(define (cdb:packet-get-qtime vec) (vector-ref vec 5))
(define (cdb:packet-set-client-sig! vec val)(vector-set! vec 0 val))
(define (cdb:packet-set-qtype! vec val)(vector-set! vec 1 val))
(define (cdb:packet-set-immediate! vec val)(vector-set! vec 2 val))
(define (cdb:packet-set-query-sig! vec val)(vector-set! vec 3 val))
(define (cdb:packet-set-params! vec val)(vector-set! vec 4 val))
(define (cdb:packet-set-qtime! vec val)(vector-set! vec 5 val))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
(define (tdb:step-stable-set-stepname! vec val)(vector-set! vec 0 val))
(define (tdb:step-stable-set-start! vec val)(vector-set! vec 1 val))
(define (tdb:step-stable-set-end! vec val)(vector-set! vec 2 val))
(define (tdb:step-stable-set-status! vec val)(vector-set! vec 3 val))
(define (tdb:step-stable-set-runtime! vec val)(vector-set! vec 4 val))
;; ;; The data structure for handing off requests via wire
;; (define (make-cdb:packet)(make-vector 6))
;; (define (cdb:packet-get-client-sig vec) (vector-ref vec 0))
;; (define (cdb:packet-get-qtype vec) (vector-ref vec 1))
;; (define (cdb:packet-get-immediate vec) (vector-ref vec 2))
;; (define (cdb:packet-get-query-sig vec) (vector-ref vec 3))
;; (define (cdb:packet-get-params vec) (vector-ref vec 4))
;; (define (cdb:packet-get-qtime vec) (vector-ref vec 5))
;; (define (cdb:packet-set-client-sig! vec val)(vector-set! vec 0 val))
;; (define (cdb:packet-set-qtype! vec val)(vector-set! vec 1 val))
;; (define (cdb:packet-set-immediate! vec val)(vector-set! vec 2 val))
;; (define (cdb:packet-set-query-sig! vec val)(vector-set! vec 3 val))
;; (define (cdb:packet-set-params! vec val)(vector-set! vec 4 val))
;; (define (cdb:packet-set-qtime! vec val)(vector-set! vec 5 val))
|