Amebis/wxWidgets
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

iODBC v2.5

Browse Source 
git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@1446 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
Robert Roebling
1999-01-22 10:52:42 +00:00
parent 5b077d483b
commit cd5bf2a6e3
49 changed files with 10572 additions and 9484 deletions
Download Patch File Download Diff File Expand all files Collapse all files

819
src/iodbc/info.c
View File

@@ -1,392 +1,517 @@
/** Information functions
/*
* info.c
*
* $Id$
*
* Information functions
*
* The iODBC driver manager.
*
* Copyright (C) 1995 by Ke Jin <kejin@empress.com>
*
* 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.
*/
Copyright (C) 1995 by Ke Jin <kejin@empress.com>
#include <config.h>
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.
#include <isql.h>
#include <isqlext.h>
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 <dlproc.h>
#include <../iodbc/iodbc.h>
#include <herr.h>
#include <henv.h>
#include <hdbc.h>
#include <hstmt.h>
#include <../iodbc/isql.h>
#include <../iodbc/isqlext.h>
#include <itrace.h>
#include <../iodbc/dlproc.h>
#include <stdio.h>
#include <ctype.h>
#include <../iodbc/herr.h>
#include <../iodbc/henv.h>
#include <../iodbc/hdbc.h>
#include <../iodbc/hstmt.h>
#define SECT1 "ODBC Data Sources"
#define SECT2 "Default"
#define MAX_ENTRIES 1024
#include <../iodbc/itrace.h>
extern char * _iodbcdm_getinifile (char *buf, int size);
extern char * _iodbcdm_getkeyvalbydsn (char *dsn, int dsnlen, char *keywd, char *value, int size);
#include <strings.h>
#include <stdio.h>
RETCODE SQL_API SQLDataSources(
HENV henv,
UWORD fDir,
UCHAR FAR* szDSN,
SWORD cbDSNMax,
SWORD FAR* pcbDSN,
UCHAR FAR* szDesc,
SWORD cbDescMax,
SWORD FAR* pcbDesc )
static int
stricmp (const char *s1, const char *s2)
{
GENV_t FAR* genv = (GENV_t FAR*)henv;
int cmp;
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;
}
/*************************/
return SQL_SUCCESS;
while (*s1)
{
if ((cmp = toupper (*s1) - toupper (*s2)) != 0)
return cmp;
s1++;
s2++;
}
return (*s2) ? -1 : 0;
}
RETCODE SQL_API SQLDrivers(
HENV henv,
UWORD fDir,
UCHAR FAR* szDrvDesc,
SWORD cbDrvDescMax,
SWORD FAR* pcbDrvDesc,
UCHAR FAR* szDrvAttr,
SWORD cbDrvAttrMax,
SWORD FAR* pcbDrvAttr )
static int
SectSorter (const void *p1, const void *p2)
{
GENV_t FAR* genv = (GENV_t FAR*)henv;
char **s1 = (char **) p1;
char **s2 = (char **) p2;
if( henv == SQL_NULL_HENV )
{
return SQL_INVALID_HANDLE;
}
if( cbDrvDescMax < 0
|| cbDrvAttrMax < 0
|| cbDrvAttrMax == 1 )
{
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;
}
/*********************/
return SQL_SUCCESS;
return stricmp (*s1, *s2);
}
RETCODE SQL_API SQLGetInfo(
HDBC hdbc,
UWORD fInfoType,
PTR rgbInfoValue,
SWORD cbInfoValueMax,
SWORD FAR* pcbInfoValue )
RETCODE SQL_API
SQLDataSources (
HENV henv,
UWORD fDir,
UCHAR FAR * szDSN,
SWORD cbDSNMax,
SWORD FAR * pcbDSN,
UCHAR FAR * szDesc,
SWORD cbDescMax,
SWORD FAR * pcbDesc)
{
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;
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;
DWORD dword;
int size = 0, len = 0;
char buf[16] = { '\0' };
if (henv == SQL_NULL_HENV)
{
return SQL_INVALID_HANDLE;
}
/* check argument */
if (cbDSNMax < 0 || cbDescMax < 0)
{
PUSHSQLERR (genv->herr, en_S1090);
if( hdbc == SQL_NULL_HDBC
|| pdbc->henv == SQL_NULL_HENV )
{
return SQL_INVALID_HANDLE;
}
return SQL_ERROR;
}
if (fDir != SQL_FETCH_FIRST
&& fDir != SQL_FETCH_NEXT)
{
PUSHSQLERR (genv->herr, en_S1103);
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) );
return SQL_ERROR;
}
if (cur_entry < 0 || fDir == SQL_FETCH_FIRST)
{
cur_entry = 0;
num_entries = 0;
if( rgbInfoValue != NULL
&& cbInfoValueMax > 0 )
{
len = STRLEN( buf );
/*
* Open the odbc.ini file
*/
path = (char *) _iodbcdm_getinifile (buf, sizeof (buf));
if ((fp = fopen (path, "r")) == NULL)
{
return SQL_NO_DATA_FOUND;
}
/*
* Free old section list
*/
if (sect)
{
for (i = 0; i < MAX_ENTRIES; i++)
if (sect[i])
free (sect[i]);
free (sect);
}
if ((sect = (char **) calloc (MAX_ENTRIES, sizeof (char *))) == NULL)
{
PUSHSQLERR (genv->herr, en_S1011);
if( len < cbInfoValueMax - 1 )
{
len = cbInfoValueMax - 1;
PUSHSQLERR ( pdbc->herr, en_01004 );
return SQL_ERROR;
}
/*
* Build a dynamic list of sections
*/
while (1)
{
char *str, *p;
retcode = SQL_SUCCESS_WITH_INFO;
}
str = fgets (buf, sizeof (buf), fp);
STRNCPY( rgbInfoValue, buf, len );
((char FAR*)rgbInfoValue)[len] = '\0';
}
if (str == NULL)
break;
if( pcbInfoValue != NULL )
{
*pcbInfoValue = (SWORD)len;
}
if (*str == '[')
{
str++;
for (p = str; *p; p++)
if (*p == ']')
*p = '\0';
return retcode;
}
if (!strcmp (str, SECT1))
continue;
if (!strcmp (str, SECT2))
continue;
if( pdbc->state == en_dbc_allocated
|| pdbc->state == en_dbc_needdata )
{
PUSHSQLERR ( pdbc->herr, en_08003 );
/*
* 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);
}
}
switch( fInfoType )
{
case SQL_DRIVER_HDBC:
dword = (DWORD)(pdbc->dhdbc);
size = sizeof(dword);
break;
/*
* 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);
case SQL_DRIVER_HENV:
penv = (ENV_t FAR*)(pdbc->henv);
dword = (DWORD)(penv->dhenv);
size = sizeof(dword);
break;
/*
* And find the description that goes with this entry
*/
_iodbcdm_getkeyvalbydsn (sect[cur_entry], strlen (sect[cur_entry]),
"Description", szDesc, cbDescMax);
case SQL_DRIVER_HLIB:
penv = (ENV_t FAR*)(pdbc->henv);
dword = (DWORD)(penv->hdll);
size = sizeof(dword);
break;
/*
* Next record
*/
cur_entry++;
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 )
{
*((DWORD*)rgbInfoValue) = dword;
}
if( pcbInfoValue != NULL )
{
*(pcbInfoValue) = (SWORD)size;
}
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 ) )
#if 0
retcode = hproc(pdbc->dhdbc,
fInfoType,
rgbInfoValue,
cbInfoValueMax,
pcbInfoValue );
#endif
if( retcode == SQL_ERROR
&& fInfoType == SQL_DRIVER_ODBC_VER )
{
STRCPY( buf, "01.00" );
if( rgbInfoValue != NULL
&& cbInfoValueMax > 0 )
{
len = STRLEN( buf );
if( len < cbInfoValueMax - 1 )
{
len = cbInfoValueMax - 1;
PUSHSQLERR ( pdbc->herr, en_01004 );
}
STRNCPY( rgbInfoValue, buf, len );
((char FAR*)rgbInfoValue)[len] = '\0';
}
if( pcbInfoValue != NULL )
{
*pcbInfoValue = (SWORD)len;
}
/* what should we return in this case ???? */
}
return retcode;
return SQL_SUCCESS;
}
RETCODE SQL_API SQLGetFunctions(
HDBC hdbc,
UWORD fFunc,
UWORD FAR* pfExists )
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;
HPROC hproc;
RETCODE retcode;
GENV_t FAR *genv = (GENV_t FAR *) henv;
if( hdbc == SQL_NULL_HDBC )
{
return SQL_INVALID_HANDLE;
}
if (henv == SQL_NULL_HENV)
{
return SQL_INVALID_HANDLE;
}
if( fFunc > SQL_EXT_API_LAST )
{
PUSHSQLERR ( pdbc->herr, en_S1095 );
if (cbDrvDescMax < 0 || cbDrvAttrMax < 0 || cbDrvAttrMax == 1)
{
PUSHSQLERR (genv->herr, en_S1090);
return SQL_ERROR;
}
return SQL_ERROR;
}
if( pdbc->state == en_dbc_allocated
|| pdbc->state == en_dbc_needdata )
{
PUSHSQLERR ( pdbc->herr, en_S1010 );
if (fDir != SQL_FETCH_FIRST || fDir != SQL_FETCH_NEXT)
{
PUSHSQLERR (genv->herr, en_S1103);
return SQL_ERROR;
}
return SQL_ERROR;
}
if( pfExists == NULL )
{
return SQL_SUCCESS;
}
hproc = _iodbcdm_getproc( hdbc, en_GetFunctions );
if( hproc != SQL_NULL_HPROC )
{
CALL_DRIVER ( hdbc, retcode, hproc, en_GetFunctions, (
pdbc->dhdbc, fFunc, pfExists ) )
#if 0
retcode = hproc( pdbc->dhdbc, fFunc, pfExists );
#endif
return retcode;
}
if( fFunc == SQL_API_SQLSETPARAM )
{
fFunc = SQL_API_SQLBINDPARAMETER;
}
if( fFunc != SQL_API_ALL_FUNCTIONS )
{
hproc = _iodbcdm_getproc( hdbc, fFunc );
if( hproc == SQL_NULL_HPROC )
{
*pfExists = (UWORD)0;
}
else
{
*pfExists = (UWORD)1;
}
return SQL_SUCCESS;
}
for( fFunc=0 ; fFunc < 100; fFunc ++ )
{
hproc = _iodbcdm_getproc( hdbc, fFunc );
if( hproc == SQL_NULL_HPROC )
{
pfExists[fFunc] = (UWORD)0;
}
else
{
pfExists[fFunc] = (UWORD)1;
}
}
return SQL_SUCCESS;
/*********************/
return SQL_NO_DATA_FOUND;
}
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);
if (len < cbInfoValueMax - 1)
{
len = cbInfoValueMax - 1;
PUSHSQLERR (pdbc->herr, en_01004);
retcode = SQL_SUCCESS_WITH_INFO;
}
STRNCPY (rgbInfoValue, buf, len);
((char FAR *) rgbInfoValue)[len] = '\0';
}
if (pcbInfoValue != NULL)
{
*pcbInfoValue = (SWORD) len;
}
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)
{
*((DWORD *) rgbInfoValue) = dword;
}
if (pcbInfoValue != NULL)
{
*(pcbInfoValue) = (SWORD) size;
}
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))
if (retcode == SQL_ERROR
&& fInfoType == SQL_DRIVER_ODBC_VER)
{
STRCPY (buf, "01.00");
if (rgbInfoValue != NULL
&& cbInfoValueMax > 0)
{
len = STRLEN (buf);
if (len < cbInfoValueMax - 1)
{
len = cbInfoValueMax - 1;
PUSHSQLERR (pdbc->herr, en_01004);
}
STRNCPY (rgbInfoValue, buf, len);
((char FAR *) rgbInfoValue)[len] = '\0';
}
if (pcbInfoValue != NULL)
{
*pcbInfoValue = (SWORD) len;
}
/* what should we return in this case ???? */
}
return retcode;
}
RETCODE SQL_API
SQLGetFunctions (
HDBC hdbc,
UWORD fFunc,
UWORD FAR * pfExists)
{
DBC_t FAR *pdbc = (DBC_t FAR *) hdbc;
HPROC hproc;
RETCODE retcode;
if (hdbc == SQL_NULL_HDBC)
{
return SQL_INVALID_HANDLE;
}
if (fFunc > SQL_EXT_API_LAST)
{
PUSHSQLERR (pdbc->herr, en_S1095);
return SQL_ERROR;
}
if (pdbc->state == en_dbc_allocated
|| pdbc->state == en_dbc_needdata)
{
PUSHSQLERR (pdbc->herr, en_S1010);
return SQL_ERROR;
}
if (pfExists == NULL)
{
return SQL_SUCCESS;
}
hproc = _iodbcdm_getproc (hdbc, en_GetFunctions);
if (hproc != SQL_NULL_HPROC)
{
CALL_DRIVER (hdbc, retcode, hproc, en_GetFunctions,
(pdbc->dhdbc, fFunc, pfExists))
return retcode;
}
if (fFunc == SQL_API_SQLSETPARAM)
{
fFunc = SQL_API_SQLBINDPARAMETER;
}
if (fFunc != SQL_API_ALL_FUNCTIONS)
{
hproc = _iodbcdm_getproc (hdbc, fFunc);
if (hproc == SQL_NULL_HPROC)
{
*pfExists = (UWORD) 0;
}
else
{
*pfExists = (UWORD) 1;
}
return SQL_SUCCESS;
}
for (fFunc = 0; fFunc < 100; fFunc++)
{
hproc = _iodbcdm_getproc (hdbc, fFunc);
if (hproc == SQL_NULL_HPROC)
{
pfExists[fFunc] = (UWORD) 0;
}
else
{
pfExists[fFunc] = (UWORD) 1;
}
}
return SQL_SUCCESS;
}