1 /**************************************************************
2 *
3 * Licensed to the Apache Software Foundation (ASF) under one
4 * or more contributor license agreements. See the NOTICE file
5 * distributed with this work for additional information
6 * regarding copyright ownership. The ASF licenses this file
7 * to you under the Apache License, Version 2.0 (the
8 * "License"); you may not use this file except in compliance
9 * with the License. You may obtain a copy of the License at
10 *
11 * http://www.apache.org/licenses/LICENSE-2.0
12 *
13 * Unless required by applicable law or agreed to in writing,
14 * software distributed under the License is distributed on an
15 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16 * KIND, either express or implied. See the License for the
17 * specific language governing permissions and limitations
18 * under the License.
19 *
20 *************************************************************/
21
22
23
24 // MARKER(update_precomp.py): autogen include statement, do not remove
25 #include "precompiled_connectivity.hxx"
26
27 //--------------------------------------------------------------------------
28 #include "odbc/OFunctions.hxx"
29 #include <osl/process.h>
30
31 // Implib-Definitionen fuer ODBC-DLL/shared library:
32
33 namespace connectivity
34 {
35 T3SQLAllocHandle pODBC3SQLAllocHandle;
36 T3SQLConnect pODBC3SQLConnect;
37 T3SQLDriverConnect pODBC3SQLDriverConnect;
38 T3SQLBrowseConnect pODBC3SQLBrowseConnect;
39 T3SQLDataSources pODBC3SQLDataSources;
40 T3SQLDrivers pODBC3SQLDrivers;
41 T3SQLGetInfo pODBC3SQLGetInfo;
42 T3SQLGetFunctions pODBC3SQLGetFunctions;
43 T3SQLGetTypeInfo pODBC3SQLGetTypeInfo;
44 T3SQLSetConnectAttr pODBC3SQLSetConnectAttr;
45 T3SQLGetConnectAttr pODBC3SQLGetConnectAttr;
46 T3SQLSetEnvAttr pODBC3SQLSetEnvAttr;
47 T3SQLGetEnvAttr pODBC3SQLGetEnvAttr;
48 T3SQLSetStmtAttr pODBC3SQLSetStmtAttr;
49 T3SQLGetStmtAttr pODBC3SQLGetStmtAttr;
50 //T3SQLSetDescField pODBC3SQLSetDescField;
51 //T3SQLGetDescField pODBC3SQLGetDescField;
52 //T3SQLGetDescRec pODBC3SQLGetDescRec;
53 //T3SQLSetDescRec pODBC3SQLSetDescRec;
54 T3SQLPrepare pODBC3SQLPrepare;
55 T3SQLBindParameter pODBC3SQLBindParameter;
56 //T3SQLGetCursorName pODBC3SQLGetCursorName;
57 T3SQLSetCursorName pODBC3SQLSetCursorName;
58 T3SQLExecute pODBC3SQLExecute;
59 T3SQLExecDirect pODBC3SQLExecDirect;
60 //T3SQLNativeSql pODBC3SQLNativeSql;
61 T3SQLDescribeParam pODBC3SQLDescribeParam;
62 T3SQLNumParams pODBC3SQLNumParams;
63 T3SQLParamData pODBC3SQLParamData;
64 T3SQLPutData pODBC3SQLPutData;
65 T3SQLRowCount pODBC3SQLRowCount;
66 T3SQLNumResultCols pODBC3SQLNumResultCols;
67 T3SQLDescribeCol pODBC3SQLDescribeCol;
68 T3SQLColAttribute pODBC3SQLColAttribute;
69 T3SQLBindCol pODBC3SQLBindCol;
70 T3SQLFetch pODBC3SQLFetch;
71 T3SQLFetchScroll pODBC3SQLFetchScroll;
72 T3SQLGetData pODBC3SQLGetData;
73 T3SQLSetPos pODBC3SQLSetPos;
74 T3SQLBulkOperations pODBC3SQLBulkOperations;
75 T3SQLMoreResults pODBC3SQLMoreResults;
76 //T3SQLGetDiagField pODBC3SQLGetDiagField;
77 T3SQLGetDiagRec pODBC3SQLGetDiagRec;
78 T3SQLColumnPrivileges pODBC3SQLColumnPrivileges;
79 T3SQLColumns pODBC3SQLColumns;
80 T3SQLForeignKeys pODBC3SQLForeignKeys;
81 T3SQLPrimaryKeys pODBC3SQLPrimaryKeys;
82 T3SQLProcedureColumns pODBC3SQLProcedureColumns;
83 T3SQLProcedures pODBC3SQLProcedures;
84 T3SQLSpecialColumns pODBC3SQLSpecialColumns;
85 T3SQLStatistics pODBC3SQLStatistics;
86 T3SQLTablePrivileges pODBC3SQLTablePrivileges;
87 T3SQLTables pODBC3SQLTables;
88 T3SQLFreeStmt pODBC3SQLFreeStmt;
89 T3SQLCloseCursor pODBC3SQLCloseCursor;
90 T3SQLCancel pODBC3SQLCancel;
91 T3SQLEndTran pODBC3SQLEndTran;
92 T3SQLDisconnect pODBC3SQLDisconnect;
93 T3SQLFreeHandle pODBC3SQLFreeHandle;
94 T3SQLGetCursorName pODBC3SQLGetCursorName;
95 T3SQLNativeSql pODBC3SQLNativeSql;
96
97 sal_Bool LoadFunctions(oslModule pODBCso);
98 // -------------------------------------------------------------------------
99 // Dynamisches Laden der DLL/shared lib und Adressen der Funktionen besorgen:
100 // Liefert sal_True bei Erfolg.
LoadLibrary_ODBC3(::rtl::OUString & _rPath)101 sal_Bool LoadLibrary_ODBC3(::rtl::OUString &_rPath)
102 {
103 static sal_Bool bLoaded = sal_False;
104 static oslModule pODBCso = NULL;
105
106 if (bLoaded)
107 return sal_True;
108 #ifdef WNT
109 _rPath = ::rtl::OUString::createFromAscii("ODBC32.DLL");
110 #endif
111 #ifdef UNX
112 #ifdef MACOSX
113 _rPath = ::rtl::OUString::createFromAscii("libiodbc.dylib");
114 #else
115 // Try unixODBC first, since we have a long history of only using it:
116 _rPath = ::rtl::OUString::createFromAscii("libodbc.so.1");
117 pODBCso = osl_loadModule( _rPath.pData,SAL_LOADMODULE_NOW );
118 if ( !pODBCso )
119 {
120 _rPath = ::rtl::OUString::createFromAscii("libodbc.so");
121 pODBCso = osl_loadModule( _rPath.pData,SAL_LOADMODULE_NOW );
122 // If no unixODBC, try iODBC instead:
123 if ( !pODBCso )
124 _rPath = ::rtl::OUString::createFromAscii("libiodbc.so");
125 }
126 #endif /* MACOSX */
127 #endif
128 #ifdef OS2
129 _rPath = ::rtl::OUString::createFromAscii("ODBC");
130 #endif
131
132 if ( !pODBCso )
133 pODBCso = osl_loadModule( _rPath.pData,SAL_LOADMODULE_NOW );
134 if( !pODBCso)
135 #ifdef OS2
136 {
137 delete pODBCso;
138 _rPath = ::rtl::OUString::createFromAscii("WOD402");
139 pODBCso = osl_loadModule( _rPath.pData,SAL_LOADMODULE_NOW );
140 if( !pODBCso)
141 return sal_False;
142 }
143 #else
144 return sal_False;
145 #endif
146
147 return bLoaded = LoadFunctions(pODBCso);
148 }
149 // -------------------------------------------------------------------------
150
LoadFunctions(oslModule pODBCso)151 sal_Bool LoadFunctions(oslModule pODBCso)
152 {
153
154 if( ( pODBC3SQLAllocHandle = (T3SQLAllocHandle)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLAllocHandle").pData )) == NULL )
155 return sal_False;
156 if( ( pODBC3SQLConnect = (T3SQLConnect)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLConnect").pData )) == NULL )
157 return sal_False;
158 if( ( pODBC3SQLDriverConnect = (T3SQLDriverConnect)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLDriverConnect").pData )) == NULL )
159 return sal_False;
160 if( ( pODBC3SQLBrowseConnect = (T3SQLBrowseConnect)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLBrowseConnect").pData )) == NULL )
161 return sal_False;
162 if(( pODBC3SQLDataSources = (T3SQLDataSources)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLDataSources").pData )) == NULL )
163 return sal_False;
164 if(( pODBC3SQLDrivers = (T3SQLDrivers)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLDrivers").pData )) == NULL )
165 return sal_False;
166 if( ( pODBC3SQLGetInfo = (T3SQLGetInfo)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetInfo").pData )) == NULL )
167 return sal_False;
168 if(( pODBC3SQLGetFunctions = (T3SQLGetFunctions)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetFunctions").pData )) == NULL )
169 return sal_False;
170 if( ( pODBC3SQLGetTypeInfo = (T3SQLGetTypeInfo)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetTypeInfo").pData )) == NULL )
171 return sal_False;
172 if( ( pODBC3SQLSetConnectAttr = (T3SQLSetConnectAttr)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLSetConnectAttr").pData )) == NULL )
173 return sal_False;
174 if( ( pODBC3SQLGetConnectAttr = (T3SQLGetConnectAttr)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetConnectAttr").pData )) == NULL )
175 return sal_False;
176 if( ( pODBC3SQLSetEnvAttr = (T3SQLSetEnvAttr)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLSetEnvAttr").pData )) == NULL )
177 return sal_False;
178 if( ( pODBC3SQLGetEnvAttr = (T3SQLGetEnvAttr)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetEnvAttr").pData )) == NULL )
179 return sal_False;
180 if( ( pODBC3SQLSetStmtAttr = (T3SQLSetStmtAttr)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLSetStmtAttr").pData )) == NULL )
181 return sal_False;
182 if( ( pODBC3SQLGetStmtAttr = (T3SQLGetStmtAttr)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetStmtAttr").pData )) == NULL )
183 return sal_False;
184 /*if( ( pODBC3SQLSetDescField = (T3SQLSetDescField)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLSetDescField").pData )) == NULL )
185 return sal_False;
186 if( ( pODBC3SQLGetDescField = (T3SQLGetDescField)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetDescField").pData )) == NULL )
187 return sal_False;*/
188 /*if( ( pODBC3SQLGetDescRec = (T3SQLGetDescRec)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetDescRec").pData )) == NULL )
189 return sal_False;
190 if( ( pODBC3SQLSetDescRec = (T3SQLSetDescRec)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLSetDescRec").pData )) == NULL )
191 return sal_False;*/
192 if( ( pODBC3SQLPrepare = (T3SQLPrepare)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLPrepare").pData )) == NULL )
193 return sal_False;
194 if( ( pODBC3SQLBindParameter = (T3SQLBindParameter)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLBindParameter").pData )) == NULL )
195 return sal_False;
196 // if( ( pODBC3SQLGetCursorName = (T3SQLGetCursorName)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetCursorName").pData )) == NULL )
197 // return sal_False;
198 if( ( pODBC3SQLSetCursorName = (T3SQLSetCursorName)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLSetCursorName").pData )) == NULL )
199 return sal_False;
200 if( ( pODBC3SQLExecute = (T3SQLExecute)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLExecute").pData )) == NULL )
201 return sal_False;
202 if( ( pODBC3SQLExecDirect = (T3SQLExecDirect)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLExecDirect").pData )) == NULL )
203 return sal_False;
204 /*if( ( pODBC3SQLNativeSql = (T3SQLNativeSql)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLNativeSql").pData )) == NULL )
205 return sal_False;*/
206 if( ( pODBC3SQLDescribeParam = (T3SQLDescribeParam)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLDescribeParam").pData )) == NULL )
207 return sal_False;
208 if( ( pODBC3SQLNumParams = (T3SQLNumParams)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLNumParams").pData )) == NULL )
209 return sal_False;
210 if( ( pODBC3SQLParamData = (T3SQLParamData)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLParamData").pData )) == NULL )
211 return sal_False;
212 if( ( pODBC3SQLPutData = (T3SQLPutData)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLPutData").pData )) == NULL )
213 return sal_False;
214 if( ( pODBC3SQLRowCount = (T3SQLRowCount)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLRowCount").pData )) == NULL )
215 return sal_False;
216 if( ( pODBC3SQLNumResultCols = (T3SQLNumResultCols)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLNumResultCols").pData )) == NULL )
217 return sal_False;
218 if( ( pODBC3SQLDescribeCol = (T3SQLDescribeCol)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLDescribeCol").pData )) == NULL )
219 return sal_False;
220 if( ( pODBC3SQLColAttribute = (T3SQLColAttribute)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLColAttribute").pData )) == NULL )
221 return sal_False;
222 if( ( pODBC3SQLBindCol = (T3SQLBindCol)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLBindCol").pData )) == NULL )
223 return sal_False;
224 if( ( pODBC3SQLFetch = (T3SQLFetch)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLFetch").pData )) == NULL )
225 return sal_False;
226 if( ( pODBC3SQLFetchScroll = (T3SQLFetchScroll)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLFetchScroll").pData )) == NULL )
227 return sal_False;
228 if( ( pODBC3SQLGetData = (T3SQLGetData)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetData").pData )) == NULL )
229 return sal_False;
230 if( ( pODBC3SQLSetPos = (T3SQLSetPos)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLSetPos").pData )) == NULL )
231 return sal_False;
232 if( ( pODBC3SQLBulkOperations = (T3SQLBulkOperations)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLBulkOperations").pData )) == NULL )
233 return sal_False;
234 if( ( pODBC3SQLMoreResults = (T3SQLMoreResults)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLMoreResults").pData )) == NULL )
235 return sal_False;
236 /*if( ( pODBC3SQLGetDiagField = (T3SQLGetDiagField)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetDiagField").pData )) == NULL )
237 return sal_False;*/
238 if( ( pODBC3SQLGetDiagRec = (T3SQLGetDiagRec)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetDiagRec").pData )) == NULL )
239 return sal_False;
240 if( ( pODBC3SQLColumnPrivileges = (T3SQLColumnPrivileges)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLColumnPrivileges").pData )) == NULL )
241 return sal_False;
242 if( ( pODBC3SQLColumns = (T3SQLColumns)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLColumns").pData )) == NULL )
243 return sal_False;
244 if( ( pODBC3SQLForeignKeys = (T3SQLForeignKeys)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLForeignKeys").pData )) == NULL )
245 return sal_False;
246 if( ( pODBC3SQLPrimaryKeys = (T3SQLPrimaryKeys)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLPrimaryKeys").pData )) == NULL )
247 return sal_False;
248 if( ( pODBC3SQLProcedureColumns = (T3SQLProcedureColumns)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLProcedureColumns").pData )) == NULL )
249 return sal_False;
250 if( ( pODBC3SQLProcedures = (T3SQLProcedures)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLProcedures").pData )) == NULL )
251 return sal_False;
252 if( ( pODBC3SQLSpecialColumns = (T3SQLSpecialColumns)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLSpecialColumns").pData )) == NULL )
253 return sal_False;
254 if( ( pODBC3SQLStatistics = (T3SQLStatistics)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLStatistics").pData )) == NULL )
255 return sal_False;
256 if( ( pODBC3SQLTablePrivileges = (T3SQLTablePrivileges)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLTablePrivileges").pData )) == NULL )
257 return sal_False;
258 if( ( pODBC3SQLTables = (T3SQLTables)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLTables").pData )) == NULL )
259 return sal_False;
260 if( ( pODBC3SQLFreeStmt = (T3SQLFreeStmt)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLFreeStmt").pData )) == NULL )
261 return sal_False;
262 if( ( pODBC3SQLCloseCursor = (T3SQLCloseCursor)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLCloseCursor").pData )) == NULL )
263 return sal_False;
264 if( ( pODBC3SQLCancel = (T3SQLCancel)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLCancel").pData )) == NULL )
265 return sal_False;
266 if( ( pODBC3SQLEndTran = (T3SQLEndTran)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLEndTran").pData )) == NULL )
267 return sal_False;
268 if( ( pODBC3SQLDisconnect = (T3SQLDisconnect)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLDisconnect").pData )) == NULL )
269 return sal_False;
270 if( ( pODBC3SQLFreeHandle = (T3SQLFreeHandle)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLFreeHandle").pData )) == NULL )
271 return sal_False;
272 if( ( pODBC3SQLGetCursorName = (T3SQLGetCursorName)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetCursorName").pData )) == NULL )
273 return sal_False;
274 if( ( pODBC3SQLNativeSql = (T3SQLNativeSql)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLNativeSql").pData )) == NULL )
275 return sal_False;
276
277 return sal_True;
278 }
279 // -------------------------------------------------------------------------
280
281 }
282