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

odbc: fix CHAR: usage

char-rename
Alexander Iljin 2016-10-29 21:36:33 +03:00 committed by John Benediktsson
parent 215ec42a05
commit b9eaaa706a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
unmaintained/odbc/odbc.factor
View File

@ -147,7 +147,7 @@ FUNCTION: SQLRETURN SQLGetData ( SQLHSTMT statementHandle, SQLUSMALLINT columnNu
SQL-HANDLE-STMT swap alloc-handle ; SQL-HANDLE-STMT swap alloc-handle ;
: temp-string ( length -- byte-array length ) : temp-string ( length -- byte-array length )
[ CHAR: \space <string> ascii string>alien ] keep ; [ CHAR: space <string> ascii string>alien ] keep ;
: odbc-init ( -- env ) : odbc-init ( -- env )
alloc-env-handle alloc-env-handle
@ -189,7 +189,7 @@ C: <column> column
: odbc-describe-column ( statement n -- column ) : odbc-describe-column ( statement n -- column )
dup >r dup >r
1024 CHAR: \space <string> ascii string>alien dup >r 1024 CHAR: space <string> ascii string>alien dup >r
1024 1024
0 <short> 0 <short>
0 <short> dup >r 0 <short> dup >r
@ -233,7 +233,7 @@ C: <field> field
: odbc-get-field ( statement column -- field ) : odbc-get-field ( statement column -- field )
dup column? [ dupd odbc-describe-column ] unless dup >r 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
f SQLGetData succeeded? [ f SQLGetData succeeded? [
r> r> [ dereference-type-pointer ] keep <field> r> r> [ dereference-type-pointer ] keep <field>