33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
(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 (session: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))
;; (if (> (length (sqltbl:tbl-get-rows self) 0))
;; (sqltbl:tbl-set-curr-row! self (car rows))))
|
|
|
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
(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))
;; (if (> (length (sqltbl:tbl-get-rows self) 0))
;; (sqltbl:tbl-set-curr-row! self (car rows))))
|