8 use vars qw(@ISA @EXPORT @EXPORT_OK);
14 my $module_declarations = {
15 "SQLAllocConnect" => ["long", ["long", "ptr"]],
16 "SQLAllocEnv" => ["long", ["ptr"]],
17 "SQLAllocStmt" => ["long", ["long", "ptr"]],
18 "SQLBindCol" => ["long", ["long", "long", "long", "ptr", "long", "ptr"]],
19 "SQLCancel" => ["long", ["long"]],
20 "SQLColAttributes" => ["long", ["long", "long", "long", "ptr", "long", "ptr", "ptr"]],
21 "SQLConnect" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long"]],
22 "SQLDescribeCol" => ["long", ["long", "long", "ptr", "long", "ptr", "ptr", "ptr", "ptr", "ptr"]],
23 "SQLDisconnect" => ["long", ["long"]],
24 "SQLError" => ["long", ["long", "long", "long", "ptr", "ptr", "ptr", "long", "ptr"]],
25 "SQLExecDirect" => ["long", ["long", "ptr", "long"]],
26 "SQLExecute" => ["long", ["long"]],
27 "SQLFetch" => ["long", ["long"]],
28 "SQLFreeConnect" => ["long", ["long"]],
29 "SQLFreeEnv" => ["long", ["long"]],
30 "SQLFreeStmt" => ["long", ["long", "long"]],
31 "SQLGetCursorName" => ["long", ["long", "ptr", "long", "ptr"]],
32 "SQLNumResultCols" => ["long", ["long", "ptr"]],
33 "SQLPrepare" => ["long", ["long", "ptr", "long"]],
34 "SQLRowCount" => ["long", ["long", "ptr"]],
35 "SQLSetCursorName" => ["long", ["long", "ptr", "long"]],
36 "SQLSetParam" => ["long", ["long", "long", "long", "long", "long", "long", "ptr", "ptr"]],
37 "SQLTransact" => ["long", ["long", "long", "long"]],
38 "SQLAllocHandle" => ["long", ["long", "long", "ptr"]],
39 "SQLBindParam" => ["long", ["long", "long", "long", "long", "long", "long", "ptr", "ptr"]],
40 "SQLCloseCursor" => ["long", ["long"]],
41 "SQLColAttribute" => ["long", ["long", "long", "long", "ptr", "long", "ptr", "ptr"]],
42 "SQLCopyDesc" => ["long", ["long", "long"]],
43 "SQLEndTran" => ["long", ["long", "long", "long"]],
44 "SQLFetchScroll" => ["long", ["long", "long", "long"]],
45 "SQLFreeHandle" => ["long", ["long", "long"]],
46 "SQLGetConnectAttr" => ["long", ["long", "long", "ptr", "long", "ptr"]],
47 "SQLGetDescField" => ["long", ["long", "long", "long", "ptr", "long", "ptr"]],
48 "SQLGetDescRec" => ["long", ["long", "long", "ptr", "long", "ptr", "ptr", "ptr", "ptr", "ptr", "ptr", "ptr"]],
49 "SQLGetDiagField" => ["long", ["long", "long", "long", "long", "ptr", "long", "ptr"]],
50 "SQLGetDiagRec" => ["long", ["long", "long", "long", "ptr", "ptr", "ptr", "long", "ptr"]],
51 "SQLGetEnvAttr" => ["long", ["long", "long", "ptr", "long", "ptr"]],
52 "SQLGetStmtAttr" => ["long", ["long", "long", "ptr", "long", "ptr"]],
53 "SQLSetConnectAttr" => ["long", ["long", "long", "ptr", "long"]],
54 "SQLColumns" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
55 "SQLDriverConnect" => ["long", ["long", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
56 "SQLGetConnectOption" => ["long", ["long", "long", "ptr"]],
57 "SQLGetData" => ["long", ["long", "long", "long", "ptr", "long", "ptr"]],
58 "SQLGetFunctions" => ["long", ["long", "long", "ptr"]],
59 "SQLGetInfo" => ["long", ["long", "long", "ptr", "long", "ptr"]],
60 "SQLGetStmtOption" => ["long", ["long", "long", "ptr"]],
61 "SQLGetTypeInfo" => ["long", ["long", "long"]],
62 "SQLParamData" => ["long", ["long", "ptr"]],
63 "SQLPutData" => ["long", ["long", "ptr", "long"]],
64 "SQLSetConnectOption" => ["long", ["long", "long", "long"]],
65 "SQLSetStmtOption" => ["long", ["long", "long", "long"]],
66 "SQLSpecialColumns" => ["long", ["long", "long", "ptr", "long", "ptr", "long", "ptr", "long", "long", "long"]],
67 "SQLStatistics" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long", "long", "long"]],
68 "SQLTables" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
69 "SQLBrowseConnect" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr"]],
70 "SQLColumnPrivileges" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
71 "SQLDataSources" => ["long", ["long", "long", "ptr", "long", "ptr", "ptr", "long", "ptr"]],
72 "SQLDescribeParam" => ["long", ["long", "long", "ptr", "ptr", "ptr", "ptr"]],
73 "SQLExtendedFetch" => ["long", ["long", "long", "long", "ptr", "ptr"]],
74 "SQLForeignKeys" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
75 "SQLMoreResults" => ["long", ["long"]],
76 "SQLNativeSql" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr"]],
77 "SQLNumParams" => ["long", ["long", "ptr"]],
78 "SQLParamOptions" => ["long", ["long", "long", "ptr"]],
79 "SQLPrimaryKeys" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long"]],
80 "SQLProcedureColumns" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
81 "SQLProcedures" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long"]],
82 "SQLSetPos" => ["long", ["long", "long", "long", "long"]],
83 "SQLSetScrollOptions" => ["long", ["long", "long", "long", "long"]],
84 "SQLTablePrivileges" => ["long", ["long", "ptr", "long", "ptr", "long", "ptr", "long"]],
85 "SQLDrivers" => ["long", ["long", "long", "ptr", "long", "ptr", "ptr", "long", "ptr"]],
86 "SQLBindParameter" => ["long", ["long", "long", "long", "long", "long", "long", "long", "ptr", "long", "ptr"]],
87 "SQLSetDescField" => ["long", ["long", "long", "long", "ptr", "long"]],
88 "SQLSetDescRec" => ["long", ["long", "long", "long", "long", "long", "long", "long", "ptr", "ptr", "ptr"]],
89 "SQLSetEnvAttr" => ["long", ["long", "long", "ptr", "long"]],
90 "SQLSetStmtAttr" => ["long", ["long", "long", "ptr", "long"]],
91 "SQLAllocHandleStd" => ["long", ["long", "long", "ptr"]],
92 "SQLBulkOperations" => ["long", ["long", "long"]]
95 &wine::declare("odbc32",%$module_declarations);
96 push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));