Added regedit unit test, a couple minor changes to regedit.
[wine] / programs / winetest / include / odbc32.pm
1 package odbc32;
2
3 use strict;
4
5 require Exporter;
6
7 use wine;
8 use vars qw(@ISA @EXPORT @EXPORT_OK);
9
10 @ISA = qw(Exporter);
11 @EXPORT = qw();
12 @EXPORT_OK = qw();
13
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"]]
93 };
94
95 &wine::declare("odbc32",%$module_declarations);
96 push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
97 1;