X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/bd7d06f23d25df834c30d386dcf3b561c4c79a27..6afa47d63d56094958ed4d2528bf45ad67340954:/src/iodbc/info.c diff --git a/src/iodbc/info.c b/src/iodbc/info.c index 600bcc6a3a..f5efc7e3f7 100644 --- a/src/iodbc/info.c +++ b/src/iodbc/info.c @@ -1,392 +1,521 @@ -/** Information functions - - Copyright (C) 1995 by Ke Jin - - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2 of the License, or - (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. -**/ - -#include <../iodbc/iodbc.h> - -#include <../iodbc/isql.h> -#include <../iodbc/isqlext.h> - -#include <../iodbc/dlproc.h> - -#include <../iodbc/herr.h> -#include <../iodbc/henv.h> -#include <../iodbc/hdbc.h> -#include <../iodbc/hstmt.h> - -#include <../iodbc/itrace.h> - -#include -#include - -RETCODE SQL_API SQLDataSources( - HENV henv, - UWORD fDir, - UCHAR FAR* szDSN, - SWORD cbDSNMax, - SWORD FAR* pcbDSN, - UCHAR FAR* szDesc, - SWORD cbDescMax, - SWORD FAR* pcbDesc ) +/* + * info.c + * + * $Id$ + * + * Information functions + * + * The iODBC driver manager. + * + * Copyright (C) 1995 by Ke Jin + * + * This library is free software; you can redistribute it and/or + * modify it under the terms of the GNU Library General Public + * License as published by the Free Software Foundation; either + * version 2 of the License, or (at your option) any later version. + * + * This library is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * Library General Public License for more details. + * + * You should have received a copy of the GNU Library General Public + * License along with this library; if not, write to the Free + * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + */ + +#include "config.h" + +#include "isql.h" +#include "isqlext.h" + +#include "dlproc.h" + +#include "herr.h" +#include "henv.h" +#include "hdbc.h" +#include "hstmt.h" + +#include "itrace.h" + +#include +#include + +#define SECT1 "ODBC Data Sources" +#define SECT2 "Default" +#define MAX_ENTRIES 1024 + +extern char * _iodbcdm_getinifile (char *buf, int size); +extern char * _iodbcdm_getkeyvalbydsn (char *dsn, int dsnlen, char *keywd, char *value, int size); + +static int +stricmp (const char *s1, const char *s2) { - GENV_t FAR* genv = (GENV_t FAR*)henv; - - if( henv == SQL_NULL_HENV ) + int cmp; + + while (*s1) + { + if ((cmp = toupper (*s1) - toupper (*s2)) != 0) + return cmp; + s1++; + s2++; + } + return (*s2) ? -1 : 0; +} + +static int +SectSorter (const void *p1, const void *p2) +{ + char **s1 = (char **) p1; + char **s2 = (char **) p2; + + return stricmp (*s1, *s2); +} + + +RETCODE SQL_API +SQLDataSources ( + HENV henv, + UWORD fDir, + UCHAR FAR * szDSN, + SWORD cbDSNMax, + SWORD FAR * pcbDSN, + UCHAR FAR * szDesc, + SWORD cbDescMax, + SWORD FAR * pcbDesc) +{ + GENV_t FAR *genv = (GENV_t FAR *) henv; + char *path; + char buf[1024]; + FILE *fp; + int i; + static int cur_entry = -1; + static int num_entries = 0; + static char **sect = NULL; + + if (henv == SQL_NULL_HENV) + { + return SQL_INVALID_HANDLE; + } + /* check argument */ + if (cbDSNMax < 0 || cbDescMax < 0) + { + PUSHSQLERR (genv->herr, en_S1090); + + return SQL_ERROR; + } + if (fDir != SQL_FETCH_FIRST + && fDir != SQL_FETCH_NEXT) + { + PUSHSQLERR (genv->herr, en_S1103); + + return SQL_ERROR; + } + if (cur_entry < 0 || fDir == SQL_FETCH_FIRST) + { + cur_entry = 0; + num_entries = 0; + + + /* + * Open the odbc.ini file + */ + path = (char *) _iodbcdm_getinifile (buf, sizeof (buf)); + if ((fp = fopen (path, "r")) == NULL) { - return SQL_INVALID_HANDLE; + return SQL_NO_DATA_FOUND; } - - /* check argument */ - if( cbDSNMax < 0 || cbDescMax < 0 ) + /* + * Free old section list + */ + if (sect) { - PUSHSQLERR ( genv->herr, en_S1090 ); - - return SQL_ERROR; + for (i = 0; i < MAX_ENTRIES; i++) + if (sect[i]) + free (sect[i]); + free (sect); } - - if( fDir != SQL_FETCH_FIRST - && fDir != SQL_FETCH_NEXT ) + if ((sect = (char **) calloc (MAX_ENTRIES, sizeof (char *))) == NULL) { - PUSHSQLERR ( genv->herr, en_S1103 ); + PUSHSQLERR (genv->herr, en_S1011); - return SQL_ERROR; + return SQL_ERROR; } + /* + * Build a dynamic list of sections + */ + while (1) + { + char *str, *p; - /*************************/ + str = fgets (buf, sizeof (buf), fp); - return SQL_NO_DATA_FOUND; -} + if (str == NULL) + break; -RETCODE SQL_API SQLDrivers( - HENV henv, - UWORD fDir, - UCHAR FAR* szDrvDesc, - SWORD cbDrvDescMax, - SWORD FAR* pcbDrvDesc, - UCHAR FAR* szDrvAttr, - SWORD cbDrvAttrMax, - SWORD FAR* pcbDrvAttr ) -{ - GENV_t FAR* genv = (GENV_t FAR*)henv; + if (*str == '[') + { + str++; + for (p = str; *p; p++) + if (*p == ']') + *p = '\0'; - if( henv == SQL_NULL_HENV ) - { - return SQL_INVALID_HANDLE; - } + if (!strcmp (str, SECT1)) + continue; + if (!strcmp (str, SECT2)) + continue; - if( cbDrvDescMax < 0 - || cbDrvAttrMax < 0 - || cbDrvAttrMax == 1 ) - { - PUSHSQLERR ( genv->herr, en_S1090 ); + /* + * Add this section to the comma separated list + */ + if (num_entries >= MAX_ENTRIES) + break; /* Skip the rest */ - return SQL_ERROR; + sect[num_entries++] = (char *) strdup (str); + } } - if( fDir != SQL_FETCH_FIRST - || fDir != SQL_FETCH_NEXT ) - { - PUSHSQLERR ( genv->herr, en_S1103 ); - - return SQL_ERROR; - } - - /*********************/ - return SQL_SUCCESS; + /* + * Sort all entries so we can present a nice list + */ + if (num_entries > 1) + qsort (sect, num_entries, sizeof (char *), SectSorter); + } + /* + * Try to get to the next item + */ + if (cur_entry >= num_entries) + { + cur_entry = 0; /* Next time, start all over again */ + return SQL_NO_DATA_FOUND; + } + /* + * Copy DSN information + */ + STRNCPY (szDSN, sect[cur_entry], cbDSNMax); +/* +glt??? pcbDSN = strlen(szDSN); +*/ + /* + * And find the description that goes with this entry + */ + _iodbcdm_getkeyvalbydsn (sect[cur_entry], strlen (sect[cur_entry]), + "Description", (char*) szDesc, cbDescMax); +/* +glt??? pcbDesc = strlen(szDesc); +*/ + /* + * Next record + */ + cur_entry++; + + return SQL_SUCCESS; } -RETCODE SQL_API SQLGetInfo( - HDBC hdbc, - UWORD fInfoType, - PTR rgbInfoValue, - SWORD cbInfoValueMax, - SWORD FAR* pcbInfoValue ) +RETCODE SQL_API +SQLDrivers ( + HENV henv, + UWORD fDir, + UCHAR FAR * szDrvDesc, + SWORD cbDrvDescMax, + SWORD FAR * pcbDrvDesc, + UCHAR FAR * szDrvAttr, + SWORD cbDrvAttrMax, + SWORD FAR * pcbDrvAttr) { - DBC_t FAR* pdbc = (DBC_t FAR*)hdbc; - ENV_t FAR* penv; - STMT_t FAR* pstmt = NULL; - STMT_t FAR* tpstmt; - HPROC hproc; - RETCODE retcode = SQL_SUCCESS; - - DWORD dword = 0; - int size = 0, len = 0; - char buf[16] = { '\0' }; - - if( hdbc == SQL_NULL_HDBC - || pdbc->henv == SQL_NULL_HENV ) - { - return SQL_INVALID_HANDLE; - } + GENV_t FAR *genv = (GENV_t FAR *) henv; - if( cbInfoValueMax < 0 ) - { - PUSHSQLERR ( pdbc->herr, en_S1090 ); + if (henv == SQL_NULL_HENV) + { + return SQL_INVALID_HANDLE; + } - return SQL_ERROR; - } + if (cbDrvDescMax < 0 || cbDrvAttrMax < 0 || cbDrvAttrMax == 1) + { + PUSHSQLERR (genv->herr, en_S1090); - if( /* fInfoType < SQL_INFO_FIRST || */ - ( fInfoType > SQL_INFO_LAST - && fInfoType < SQL_INFO_DRIVER_START ) ) - { - PUSHSQLERR ( pdbc->herr, en_S1096 ); + return SQL_ERROR; + } - return SQL_ERROR; - } + if (fDir != SQL_FETCH_FIRST || fDir != SQL_FETCH_NEXT) + { + PUSHSQLERR (genv->herr, en_S1103); - if( fInfoType == SQL_ODBC_VER ) - { - sprintf( buf, "%02d.%02d", - (ODBCVER)>>8, 0x00FF&(ODBCVER) ); + return SQL_ERROR; + } - - if( rgbInfoValue != NULL - && cbInfoValueMax > 0 ) - { - len = STRLEN( buf ); +/*********************/ + return SQL_NO_DATA_FOUND; +} - if( len < cbInfoValueMax - 1 ) - { - len = cbInfoValueMax - 1; - PUSHSQLERR ( pdbc->herr, en_01004 ); - retcode = SQL_SUCCESS_WITH_INFO; - } +RETCODE SQL_API +SQLGetInfo ( + HDBC hdbc, + UWORD fInfoType, + PTR rgbInfoValue, + SWORD cbInfoValueMax, + SWORD FAR * pcbInfoValue) +{ + DBC_t FAR *pdbc = (DBC_t FAR *) hdbc; + ENV_t FAR *penv; + STMT_t FAR *pstmt = NULL; + STMT_t FAR *tpstmt; + HPROC hproc; + RETCODE retcode = SQL_SUCCESS; + + DWORD dword; + int size = 0, len = 0; + char buf[16] = {'\0'}; + + if (hdbc == SQL_NULL_HDBC || pdbc->henv == SQL_NULL_HENV) + { + return SQL_INVALID_HANDLE; + } + + if (cbInfoValueMax < 0) + { + PUSHSQLERR (pdbc->herr, en_S1090); + + return SQL_ERROR; + } + + if ( /* fInfoType < SQL_INFO_FIRST || */ + (fInfoType > SQL_INFO_LAST + && fInfoType < SQL_INFO_DRIVER_START)) + { + PUSHSQLERR (pdbc->herr, en_S1096); + + return SQL_ERROR; + } + + if (fInfoType == SQL_ODBC_VER) + { + sprintf (buf, "%02d.%02d", + (ODBCVER) >> 8, 0x00FF & (ODBCVER)); + + + if (rgbInfoValue != NULL + && cbInfoValueMax > 0) + { + len = STRLEN (buf); - STRNCPY( rgbInfoValue, buf, len ); - ((char FAR*)rgbInfoValue)[len] = '\0'; - } + if (len < cbInfoValueMax - 1) + { + len = cbInfoValueMax - 1; + PUSHSQLERR (pdbc->herr, en_01004); - if( pcbInfoValue != NULL ) - { - *pcbInfoValue = (SWORD)len; - } + retcode = SQL_SUCCESS_WITH_INFO; + } - return retcode; + STRNCPY (rgbInfoValue, buf, len); + ((char FAR *) rgbInfoValue)[len] = '\0'; } - if( pdbc->state == en_dbc_allocated - || pdbc->state == en_dbc_needdata ) + if (pcbInfoValue != NULL) { - PUSHSQLERR ( pdbc->herr, en_08003 ); - - return SQL_ERROR; + *pcbInfoValue = (SWORD) len; } - switch( fInfoType ) + return retcode; + } + + if (pdbc->state == en_dbc_allocated || pdbc->state == en_dbc_needdata) + { + PUSHSQLERR (pdbc->herr, en_08003); + + return SQL_ERROR; + } + + switch (fInfoType) + { + case SQL_DRIVER_HDBC: + dword = (DWORD) (pdbc->dhdbc); + size = sizeof (dword); + break; + + case SQL_DRIVER_HENV: + penv = (ENV_t FAR *) (pdbc->henv); + dword = (DWORD) (penv->dhenv); + size = sizeof (dword); + break; + + case SQL_DRIVER_HLIB: + penv = (ENV_t FAR *) (pdbc->henv); + dword = (DWORD) (penv->hdll); + size = sizeof (dword); + break; + + case SQL_DRIVER_HSTMT: + if (rgbInfoValue != NULL) + { + pstmt = *((STMT_t FAR **) rgbInfoValue); + } + + for (tpstmt = (STMT_t FAR *) (pdbc->hstmt); + tpstmt != NULL; + tpstmt = tpstmt->next) + { + if (tpstmt == pstmt) + { + break; + } + } + + if (tpstmt == NULL) + { + PUSHSQLERR (pdbc->herr, en_S1009); + + return SQL_ERROR; + } + + dword = (DWORD) (pstmt->dhstmt); + size = sizeof (dword); + break; + + default: + break; + } + + if (size) + { + if (rgbInfoValue != NULL) { - case SQL_DRIVER_HDBC: - dword = (DWORD)(pdbc->dhdbc); - size = sizeof(dword); - break; - - case SQL_DRIVER_HENV: - penv = (ENV_t FAR*)(pdbc->henv); - dword = (DWORD)(penv->dhenv); - size = sizeof(dword); - break; - - case SQL_DRIVER_HLIB: - penv = (ENV_t FAR*)(pdbc->henv); - dword = (DWORD)(penv->hdll); - size = sizeof(dword); - break; - - case SQL_DRIVER_HSTMT: - if( rgbInfoValue != NULL ) - { - pstmt = *((STMT_t FAR**)rgbInfoValue); - } - - for( tpstmt = (STMT_t FAR*)(pdbc->hstmt); - tpstmt != NULL; - tpstmt = tpstmt->next ) - { - if( tpstmt == pstmt ) - { - break; - } - } - - if( tpstmt == NULL ) - { - PUSHSQLERR ( pdbc->herr, en_S1009 ); - - return SQL_ERROR; - } - - dword = (DWORD)(pstmt->dhstmt); - size = sizeof(dword); - break; - - default: - break; + *((DWORD *) rgbInfoValue) = dword; } - if( size ) + if (pcbInfoValue != NULL) { - if( rgbInfoValue != NULL ) - { - *((DWORD*)rgbInfoValue) = dword; - } + *(pcbInfoValue) = (SWORD) size; + } - if( pcbInfoValue != NULL ) - { - *(pcbInfoValue) = (SWORD)size; - } + return SQL_SUCCESS; + } - return SQL_SUCCESS; - } + hproc = _iodbcdm_getproc (hdbc, en_GetInfo); + + if (hproc == SQL_NULL_HPROC) + { + PUSHSQLERR (pdbc->herr, en_IM001); + + return SQL_ERROR; + } + + CALL_DRIVER (hdbc, retcode, hproc, en_GetInfo, + (pdbc->dhdbc, fInfoType, rgbInfoValue, cbInfoValueMax, pcbInfoValue)) - hproc = _iodbcdm_getproc( hdbc, en_GetInfo ); + if (retcode == SQL_ERROR + && fInfoType == SQL_DRIVER_ODBC_VER) + { + STRCPY (buf, "01.00"); - if( hproc == SQL_NULL_HPROC ) + if (rgbInfoValue != NULL + && cbInfoValueMax > 0) { - PUSHSQLERR ( pdbc->herr, en_IM001 ); + len = STRLEN (buf); - return SQL_ERROR; + if (len < cbInfoValueMax - 1) + { + len = cbInfoValueMax - 1; + PUSHSQLERR (pdbc->herr, en_01004); + } + + STRNCPY (rgbInfoValue, buf, len); + ((char FAR *) rgbInfoValue)[len] = '\0'; } - CALL_DRIVER ( hdbc, retcode, hproc, en_GetInfo, ( - pdbc->dhdbc, - fInfoType, - rgbInfoValue, - cbInfoValueMax, - pcbInfoValue ) ) - -#if 0 - retcode = hproc(pdbc->dhdbc, - fInfoType, - rgbInfoValue, - cbInfoValueMax, - pcbInfoValue ); -#endif - - if( retcode == SQL_ERROR - && fInfoType == SQL_DRIVER_ODBC_VER ) + if (pcbInfoValue != NULL) { - STRCPY( buf, "01.00" ); + *pcbInfoValue = (SWORD) len; + } - if( rgbInfoValue != NULL - && cbInfoValueMax > 0 ) - { - len = STRLEN( buf ); + /* what should we return in this case ???? */ + } - if( len < cbInfoValueMax - 1 ) - { - len = cbInfoValueMax - 1; - PUSHSQLERR ( pdbc->herr, en_01004 ); - } + return retcode; +} - STRNCPY( rgbInfoValue, buf, len ); - ((char FAR*)rgbInfoValue)[len] = '\0'; - } - if( pcbInfoValue != NULL ) - { - *pcbInfoValue = (SWORD)len; - } +RETCODE SQL_API +SQLGetFunctions ( + HDBC hdbc, + UWORD fFunc, + UWORD FAR * pfExists) +{ + DBC_t FAR *pdbc = (DBC_t FAR *) hdbc; + HPROC hproc; + RETCODE retcode; - /* what should we return in this case ???? */ - } + if (hdbc == SQL_NULL_HDBC) + { + return SQL_INVALID_HANDLE; + } - return retcode; -} + if (fFunc > SQL_EXT_API_LAST) + { + PUSHSQLERR (pdbc->herr, en_S1095); -RETCODE SQL_API SQLGetFunctions( - HDBC hdbc, - UWORD fFunc, - UWORD FAR* pfExists ) -{ - DBC_t FAR* pdbc = (DBC_t FAR*)hdbc; - HPROC hproc; - RETCODE retcode; + return SQL_ERROR; + } - if( hdbc == SQL_NULL_HDBC ) - { - return SQL_INVALID_HANDLE; - } + if (pdbc->state == en_dbc_allocated + || pdbc->state == en_dbc_needdata) + { + PUSHSQLERR (pdbc->herr, en_S1010); - if( fFunc > SQL_EXT_API_LAST ) - { - PUSHSQLERR ( pdbc->herr, en_S1095 ); + return SQL_ERROR; + } - return SQL_ERROR; - } + if (pfExists == NULL) + { + return SQL_SUCCESS; + } - if( pdbc->state == en_dbc_allocated - || pdbc->state == en_dbc_needdata ) - { - PUSHSQLERR ( pdbc->herr, en_S1010 ); + hproc = _iodbcdm_getproc (hdbc, en_GetFunctions); - return SQL_ERROR; - } + if (hproc != SQL_NULL_HPROC) + { + CALL_DRIVER (hdbc, retcode, hproc, en_GetFunctions, + (pdbc->dhdbc, fFunc, pfExists)) - if( pfExists == NULL ) - { - return SQL_SUCCESS; - } + return retcode; + } - hproc = _iodbcdm_getproc( hdbc, en_GetFunctions ); + if (fFunc == SQL_API_SQLSETPARAM) + { + fFunc = SQL_API_SQLBINDPARAMETER; + } - if( hproc != SQL_NULL_HPROC ) - { - CALL_DRIVER ( hdbc, retcode, hproc, en_GetFunctions, ( - pdbc->dhdbc, fFunc, pfExists ) ) + if (fFunc != SQL_API_ALL_FUNCTIONS) + { + hproc = _iodbcdm_getproc (hdbc, fFunc); -#if 0 - retcode = hproc( pdbc->dhdbc, fFunc, pfExists ); -#endif - return retcode; + if (hproc == SQL_NULL_HPROC) + { + *pfExists = (UWORD) 0; } - - if( fFunc == SQL_API_SQLSETPARAM ) + else { - fFunc = SQL_API_SQLBINDPARAMETER; + *pfExists = (UWORD) 1; } - if( fFunc != SQL_API_ALL_FUNCTIONS ) + return SQL_SUCCESS; + } + + for (fFunc = 0; fFunc < 100; fFunc++) + { + hproc = _iodbcdm_getproc (hdbc, fFunc); + + if (hproc == SQL_NULL_HPROC) { - hproc = _iodbcdm_getproc( hdbc, fFunc ); - - if( hproc == SQL_NULL_HPROC ) - { - *pfExists = (UWORD)0; - } - else - { - *pfExists = (UWORD)1; - } - - return SQL_SUCCESS; + pfExists[fFunc] = (UWORD) 0; } - - for( fFunc=0 ; fFunc < 100; fFunc ++ ) + else { - hproc = _iodbcdm_getproc( hdbc, fFunc ); - - if( hproc == SQL_NULL_HPROC ) - { - pfExists[fFunc] = (UWORD)0; - } - else - { - pfExists[fFunc] = (UWORD)1; - } + pfExists[fFunc] = (UWORD) 1; } + } - return SQL_SUCCESS; + return SQL_SUCCESS; }