Lines Matching refs:res
65 (setq res (pq-exec conn "BEGIN"))
68 (pq-clear res)
72 (pq-clear res)
74 (setq res (pq-exec conn "DECLARE mycursor BINARY CURSOR FOR select * from test1"))
77 (pq-clear res)
79 (pq-clear res)
81 (setq res (pq-exec conn "FETCH ALL in mycursor"))
82 (when (or (null res) (not (= (pq-result-status res) pgres-tuples-ok)))
84 (pq-clear res)
87 (setq i-fnum (pq-fnumber res "i"))
88 (setq d-fnum (pq-fnumber res "d"))
89 (setq p-fnum (pq-fnumber res "p"))
93 i (pq-ftype res i) i (pq-fsize res i))
96 (dotimes (i (pq-ntuples res))
97 (setq i-val (pq-getvalue res i i-fnum 'int32))
98 (setq d-val (pq-getvalue res i d-fnum 'float))
99 (setq p-val (pq-getvalue res i p-fnum 'pg-polygon))
101 (format t " i = (~D bytes) ~D~%" (pq-getlength res i i-fnum) i-val)
102 (format t " d = (~D bytes) ~D~%" (pq-getlength res i d-fnum) d-val)
104 (pq-getlength res i d-fnum) (pg-polygon-num-points p-val)
110 (pq-clear res)
112 (setq res (pq-exec conn "CLOSE mycursor"))
113 (pq-clear res)
115 (setq res (pq-exec conn "COMMIT"))
116 (pq-clear res)