16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
;; curr-row-ptr ;; number of the current row
;; curr-row ;; the current row vector (?? do we really want this ??)
;; ))
(declare (unit sqltbl))
(define (make-sqltbl:tbl)(make-vector 9))
(define-inline (sqltbl:tbl-get-rows vec) (vector-ref vec 0))
(define-inline (sqltbl:tbl-get-fields vec) (vector-ref vec 1))
(define-inline (sqltbl:tbl-get-fields-hash vec) (vector-ref vec 2))
(define-inline (sqltbl:tbl-get-query vec) (vector-ref vec 3))
(define-inline (sqltbl:tbl-get-query-params vec) (vector-ref vec 4))
(define-inline (sqltbl:tbl-get-conn vec) (vector-ref vec 5))
(define-inline (sqltbl:tbl-get-num-rows vec) (vector-ref vec 6))
(define-inline (sqltbl:tbl-get-curr-row-ptr vec) (vector-ref vec 7))
(define-inline (sqltbl:tbl-get-curr-row vec) (vector-ref vec 8))
(define-inline (sqltbl:tbl-set-rows! vec val)(vector-set! vec 0 val))
(define-inline (sqltbl:tbl-set-fields! vec val)(vector-set! vec 1 val))
(define-inline (sqltbl:tbl-set-fields-hash! vec val)(vector-set! vec 2 val))
(define-inline (sqltbl:tbl-set-query! vec val)(vector-set! vec 3 val))
(define-inline (sqltbl:tbl-set-query-params! vec val)(vector-set! vec 4 val))
(define-inline (sqltbl:tbl-set-conn! vec val)(vector-set! vec 5 val))
(define-inline (sqltbl:tbl-set-num-rows! vec val)(vector-set! vec 6 val))
(define-inline (sqltbl:tbl-set-curr-row-ptr! vec val)(vector-set! vec 7 val))
(define-inline (sqltbl:tbl-set-curr-row! vec val)(vector-set! vec 8 val))
(define (sqltbl:initialize self);; initargs)
(sqltbl:tbl-set-num-rows! self 0)
(sqltbl:tbl-set-curr-row-ptr! self 0)
(sqltbl:tbl-set-fields! self '())
(sqltbl:tbl-set-fields-hash! self (make-hash-table)))
;; (initialize-slots self initargs))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
;; curr-row-ptr ;; number of the current row
;; curr-row ;; the current row vector (?? do we really want this ??)
;; ))
(declare (unit sqltbl))
(define (make-sqltbl:tbl)(make-vector 9))
(define (sqltbl:tbl-get-rows vec) (vector-ref vec 0))
(define (sqltbl:tbl-get-fields vec) (vector-ref vec 1))
(define (sqltbl:tbl-get-fields-hash vec) (vector-ref vec 2))
(define (sqltbl:tbl-get-query vec) (vector-ref vec 3))
(define (sqltbl:tbl-get-query-params vec) (vector-ref vec 4))
(define (sqltbl:tbl-get-conn vec) (vector-ref vec 5))
(define (sqltbl:tbl-get-num-rows vec) (vector-ref vec 6))
(define (sqltbl:tbl-get-curr-row-ptr vec) (vector-ref vec 7))
(define (sqltbl:tbl-get-curr-row vec) (vector-ref vec 8))
(define (sqltbl:tbl-set-rows! vec val)(vector-set! vec 0 val))
(define (sqltbl:tbl-set-fields! vec val)(vector-set! vec 1 val))
(define (sqltbl:tbl-set-fields-hash! vec val)(vector-set! vec 2 val))
(define (sqltbl:tbl-set-query! vec val)(vector-set! vec 3 val))
(define (sqltbl:tbl-set-query-params! vec val)(vector-set! vec 4 val))
(define (sqltbl:tbl-set-conn! vec val)(vector-set! vec 5 val))
(define (sqltbl:tbl-set-num-rows! vec val)(vector-set! vec 6 val))
(define (sqltbl:tbl-set-curr-row-ptr! vec val)(vector-set! vec 7 val))
(define (sqltbl:tbl-set-curr-row! vec val)(vector-set! vec 8 val))
(define (sqltbl:initialize self);; initargs)
(sqltbl:tbl-set-num-rows! self 0)
(sqltbl:tbl-set-curr-row-ptr! self 0)
(sqltbl:tbl-set-fields! self '())
(sqltbl:tbl-set-fields-hash! self (make-hash-table)))
;; (initialize-slots self initargs))
|