steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

new accessors

db4
Doug Coleman 2008-08-31 02:59:33 -05:00
parent 8769bad2c7
commit 521188ab05
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/odbc/odbc.factor
View File

@ -213,7 +213,7 @@ C: <column> column
] if ;
: dereference-type-pointer ( byte-array column -- object )
column-type {
type>> {
{ SQL-CHAR [ ascii alien>string ] }
{ SQL-VARCHAR [ ascii alien>string ] }
{ SQL-LONGVARCHAR [ ascii alien>string ] }
@ -235,7 +235,7 @@ TUPLE: field value column ;
C: <field> field
: odbc-get-field ( statement column -- field )
dup column? [ dupd odbc-describe-column ] unless dup >r column-number
dup column? [ dupd odbc-describe-column ] unless dup >r number>>
SQL-C-DEFAULT
8192 CHAR: \space <string> ascii string>alien dup >r
8192
@ -244,15 +244,15 @@ C: <field> field
] [
r> drop r> [
"SQLGetData Failed for Column: " %
dup column-name %
" of type: " % dup column-type name>> %
dup name>> %
" of type: " % dup type>> name>> %
] "" make swap <field>
] if ;
: odbc-get-row-fields ( statement -- seq )
[
dup odbc-number-of-columns [
1+ odbc-get-field field-value ,
1+ odbc-get-field value>> ,
] with each
] { } make ;