98 lines
5.9 KiB
Perl
98 lines
5.9 KiB
Perl
package odbc32;
|
|
|
|
use strict;
|
|
|
|
require Exporter;
|
|
|
|
use wine;
|
|
use vars qw(@ISA @EXPORT @EXPORT_OK);
|
|
|
|
@ISA = qw(Exporter);
|
|
@EXPORT = qw();
|
|
@EXPORT_OK = qw();
|
|
|
|
my $module_declarations = {
|
|
"SQLAllocConnect" => ["long", ["long", "ptr"]],
|
|
"SQLAllocEnv" => ["long", ["ptr"]],
|
|
"SQLAllocStmt" => ["long", ["long", "ptr"]],
|
|
"SQLBindCol" => ["long", ["long", "long", "long", "ptr", "long", "ptr"]],
|
|
"SQLCancel" => ["long", ["long"]],
|
|
"SQLColAttributes" => ["long", ["long", "long", "long", "ptr", "long", "ptr", "ptr"]],
|
|
"SQLConnect" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long"]],
|
|
"SQLDescribeCol" => ["long", ["long", "long", "ptr", "long", "ptr", "ptr", "ptr", "ptr", "ptr"]],
|
|
"SQLDisconnect" => ["long", ["long"]],
|
|
"SQLError" => ["long", ["long", "long", "long", "ptr", "ptr", "ptr", "long", "ptr"]],
|
|
"SQLExecDirect" => ["long", ["long", "ptr", "long"]],
|
|
"SQLExecute" => ["long", ["long"]],
|
|
"SQLFetch" => ["long", ["long"]],
|
|
"SQLFreeConnect" => ["long", ["long"]],
|
|
"SQLFreeEnv" => ["long", ["long"]],
|
|
"SQLFreeStmt" => ["long", ["long", "long"]],
|
|
"SQLGetCursorName" => ["long", ["long", "ptr", "long", "ptr"]],
|
|
"SQLNumResultCols" => ["long", ["long", "ptr"]],
|
|
"SQLPrepare" => ["long", ["long", "ptr", "long"]],
|
|
"SQLRowCount" => ["long", ["long", "ptr"]],
|
|
"SQLSetCursorName" => ["long", ["long", "ptr", "long"]],
|
|
"SQLSetParam" => ["long", ["long", "long", "long", "long", "long", "long", "ptr", "ptr"]],
|
|
"SQLTransact" => ["long", ["long", "long", "long"]],
|
|
"SQLAllocHandle" => ["long", ["long", "long", "ptr"]],
|
|
"SQLBindParam" => ["long", ["long", "long", "long", "long", "long", "long", "ptr", "ptr"]],
|
|
"SQLCloseCursor" => ["long", ["long"]],
|
|
"SQLColAttribute" => ["long", ["long", "long", "long", "ptr", "long", "ptr", "ptr"]],
|
|
"SQLCopyDesc" => ["long", ["long", "long"]],
|
|
"SQLEndTran" => ["long", ["long", "long", "long"]],
|
|
"SQLFetchScroll" => ["long", ["long", "long", "long"]],
|
|
"SQLFreeHandle" => ["long", ["long", "long"]],
|
|
"SQLGetConnectAttr" => ["long", ["long", "long", "ptr", "long", "ptr"]],
|
|
"SQLGetDescField" => ["long", ["long", "long", "long", "ptr", "long", "ptr"]],
|
|
"SQLGetDescRec" => ["long", ["long", "long", "ptr", "long", "ptr", "ptr", "ptr", "ptr", "ptr", "ptr", "ptr"]],
|
|
"SQLGetDiagField" => ["long", ["long", "long", "long", "long", "ptr", "long", "ptr"]],
|
|
"SQLGetDiagRec" => ["long", ["long", "long", "long", "ptr", "ptr", "ptr", "long", "ptr"]],
|
|
"SQLGetEnvAttr" => ["long", ["long", "long", "ptr", "long", "ptr"]],
|
|
"SQLGetStmtAttr" => ["long", ["long", "long", "ptr", "long", "ptr"]],
|
|
"SQLSetConnectAttr" => ["long", ["long", "long", "ptr", "long"]],
|
|
"SQLColumns" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
|
|
"SQLDriverConnect" => ["long", ["long", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
|
|
"SQLGetConnectOption" => ["long", ["long", "long", "ptr"]],
|
|
"SQLGetData" => ["long", ["long", "long", "long", "ptr", "long", "ptr"]],
|
|
"SQLGetFunctions" => ["long", ["long", "long", "ptr"]],
|
|
"SQLGetInfo" => ["long", ["long", "long", "ptr", "long", "ptr"]],
|
|
"SQLGetStmtOption" => ["long", ["long", "long", "ptr"]],
|
|
"SQLGetTypeInfo" => ["long", ["long", "long"]],
|
|
"SQLParamData" => ["long", ["long", "ptr"]],
|
|
"SQLPutData" => ["long", ["long", "ptr", "long"]],
|
|
"SQLSetConnectOption" => ["long", ["long", "long", "long"]],
|
|
"SQLSetStmtOption" => ["long", ["long", "long", "long"]],
|
|
"SQLSpecialColumns" => ["long", ["long", "long", "ptr", "long", "ptr", "long", "ptr", "long", "long", "long"]],
|
|
"SQLStatistics" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long", "long", "long"]],
|
|
"SQLTables" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
|
|
"SQLBrowseConnect" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr"]],
|
|
"SQLColumnPrivileges" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
|
|
"SQLDataSources" => ["long", ["long", "long", "ptr", "long", "ptr", "ptr", "long", "ptr"]],
|
|
"SQLDescribeParam" => ["long", ["long", "long", "ptr", "ptr", "ptr", "ptr"]],
|
|
"SQLExtendedFetch" => ["long", ["long", "long", "long", "ptr", "ptr"]],
|
|
"SQLForeignKeys" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
|
|
"SQLMoreResults" => ["long", ["long"]],
|
|
"SQLNativeSql" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr"]],
|
|
"SQLNumParams" => ["long", ["long", "ptr"]],
|
|
"SQLParamOptions" => ["long", ["long", "long", "ptr"]],
|
|
"SQLPrimaryKeys" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long"]],
|
|
"SQLProcedureColumns" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
|
|
"SQLProcedures" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long"]],
|
|
"SQLSetPos" => ["long", ["long", "long", "long", "long"]],
|
|
"SQLSetScrollOptions" => ["long", ["long", "long", "long", "long"]],
|
|
"SQLTablePrivileges" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long"]],
|
|
"SQLDrivers" => ["long", ["long", "long", "ptr", "long", "ptr", "ptr", "long", "ptr"]],
|
|
"SQLBindParameter" => ["long", ["long", "long", "long", "long", "long", "long", "long", "ptr", "long", "ptr"]],
|
|
"SQLSetDescField" => ["long", ["long", "long", "long", "ptr", "long"]],
|
|
"SQLSetDescRec" => ["long", ["long", "long", "long", "long", "long", "long", "long", "ptr", "ptr", "ptr"]],
|
|
"SQLSetEnvAttr" => ["long", ["long", "long", "ptr", "long"]],
|
|
"SQLSetStmtAttr" => ["long", ["long", "long", "ptr", "long"]],
|
|
"SQLAllocHandleStd" => ["long", ["long", "long", "ptr"]],
|
|
"SQLBulkOperations" => ["long", ["long", "long"]]
|
|
};
|
|
|
|
&wine::declare("odbc32",%$module_declarations);
|
|
push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
|
|
1;
|