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