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

odbc: factor some common code into a private word

char-rename
Alexander Iljin 2016-10-30 01:08:21 +03:00 committed by John Benediktsson
parent 013dc6a7e8
commit ca0fa560da
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
unmaintained/odbc/odbc.factor
View File

@ -147,8 +147,15 @@ FUNCTION: SQLRETURN SQLGetData ( SQLHSTMT statementHandle, SQLUSMALLINT columnNu
: alloc-stmt-handle ( dbc -- handle ) : alloc-stmt-handle ( dbc -- handle )
SQL-HANDLE-STMT swap alloc-handle ; SQL-HANDLE-STMT swap alloc-handle ;
<PRIVATE
: alien-space-str ( len -- alien )
CHAR: space <string> ascii string>alien ;
PRIVATE>
: temp-string ( length -- byte-array length ) : temp-string ( length -- byte-array length )
[ CHAR: space <string> ascii string>alien ] keep ; [ alien-space-str ] keep ;
: odbc-init ( -- env ) : odbc-init ( -- env )
alloc-env-handle alloc-env-handle
@ -190,7 +197,7 @@ C: <column> column
:: odbc-describe-column ( statement columnNumber -- column ) :: odbc-describe-column ( statement columnNumber -- column )
1024 :> bufferLen 1024 :> bufferLen
bufferLen CHAR: space <string> ascii string>alien :> columnName bufferLen alien-space-str :> columnName
0 short <ref> :> nameLengthPtr 0 short <ref> :> nameLengthPtr
0 short <ref> :> dataTypePtr 0 short <ref> :> dataTypePtr
0 uint <ref> :> columnSizePtr 0 uint <ref> :> columnSizePtr
@ -234,8 +241,7 @@ C: <field> field
:: odbc-get-field ( statement column! -- field ) :: odbc-get-field ( statement column! -- field )
column column? [ statement column odbc-describe-column column! ] unless column column? [ statement column odbc-describe-column column! ] unless
8192 :> bufferLen 8192 :> bufferLen
bufferLen CHAR: space <string> ascii string>alien :> targetValuePtr bufferLen alien-space-str :> targetValuePtr
statement column number>> SQL-C-DEFAULT statement column number>> SQL-C-DEFAULT
targetValuePtr bufferLen f SQLGetData succeeded? [ targetValuePtr bufferLen f SQLGetData succeeded? [
targetValuePtr column [ dereference-type-pointer ] keep <field> targetValuePtr column [ dereference-type-pointer ] keep <field>