#include <iodbc.h>
#include <sql.h>
#include <sqlext.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#ifdef _MAC
#include <getfpn.h>
#endif
static int
upper_strneq (
char *s1,
char *s2,
int n)
{
int i;
char c1, c2;
for (i = 1; i < n; i++)
{
c1 = s1[i];
c2 = s2[i];
if (c1 >= 'a' && c1 <= 'z')
{
c1 += ('A' - 'a');
}
else if (c1 == '\n')
{
c1 = '\0';
}
if (c2 >= 'a' && c2 <= 'z')
{
c2 += ('A' - 'a');
}
else if (c2 == '\n')
{
c2 = '\0';
}
if ((c1 - c2) || !c1 || !c2)
{
break;
}
}
return (int) !(c1 - c2);
}
static char *
readtoken (
char *istr,
char *obuf,
int skipcomment)
{
char *start = obuf;
while (*istr == ' ' || *istr == '\t')
istr++;
for (; *istr && *istr != '\n'; istr++)
{
char c, nx;
c = *(istr);
nx = *(istr + 1);
if (c == ';')
{
if (skipcomment)
for (; *istr && *istr != '\n'; istr++);
else
{
*obuf = c;
obuf++;
istr++;
}
break;
}
*obuf = c;
obuf++;
if (nx == ';' || nx == '=' || c == '=')
{
istr++;
break;
}
}
*obuf = '\0';
for (; obuf > start && (*(obuf - 1) == ' ' || *(obuf - 1) == '\t');)
*--obuf = '\0';
return istr;
}
#if !defined(WINDOWS) && !defined(WIN32) && !defined(OS2) && !defined(_MAC)
#include <pwd.h>
#define UNIX_PWD
#endif
char *
_iodbcdm_getinifile (char *buf, int size)
{
#ifdef _MAC
OSErr result;
long fldrDid;
short fldrRef;
#endif
int i, j;
char *ptr;
#ifdef _MAC
# ifdef __POWERPC__
j = STRLEN (":ODBC Preferences PPC") + 1;
# else
j = STRLEN (":ODBC Preferences") + 1;
# endif
#else
j = STRLEN ("/odbc.ini") + 1;
#endif
if (size < j)
return NULL;
#if !defined(UNIX_PWD)
# ifdef _MAC
result =
FindFolder (kOnSystemDisk, kPreferencesFolderType, kDontCreateFolder,
&fldrRef, &fldrDid);
if (result != noErr)
return NULL;
ptr = get_full_pathname (fldrDid, fldrRef);
i = (ptr) ? STRLEN (ptr) : 0;
if (i == 0 || i > size - j)
{
if (ptr)
free (ptr);
return NULL;
}
# ifdef __POWERPC__
STRCPY (buf, ptr);
STRCAT (buf, ":ODBC Preferences PPC");
# else
STRCPY (buf, ptr);
STRCAT (buf, ":ODBC Preferences");
# endif
free (ptr);
return buf;
# else
i = GetWindowsDirectory ((LPSTR) buf, size);
if (i == 0 || i > size - j)
return NULL;
snprintf (buf + i, size - i, "/odbc.ini");
return buf;
# endif
#else
if ((ptr = getenv ("ODBCINI")) != NULL)
{
STRNCPY (buf, ptr, size);
if (access (buf, R_OK) == 0)
return buf;
}
#ifdef VMS
STRNCPY (buf, "SYS$LOGIN:ODBC.INI", size);
if (access (buf, R_OK) == 0)
return buf;
# else
if ((ptr = getenv ("HOME")) == NULL)
{
ptr = (char *) getpwuid (getuid ());
if (ptr != NULL)
ptr = ((struct passwd *) ptr)->pw_dir;
}
if (ptr != NULL)
{
# ifdef __APPLE__
snprintf (buf, size, "%s" ODBC_INI_APP, ptr);
if (access (buf, R_OK) == 0)
return buf;
# endif
snprintf (buf, size, "%s/.odbc.ini", ptr);
if (access (buf, R_OK) == 0)
return buf;
}
# endif
if ((ptr = getenv ("SYSODBCINI")) != NULL)
{
STRNCPY (buf, ptr, size);
if (access (buf, R_OK) == 0)
return buf;
}
STRNCPY (buf, SYS_ODBC_INI, size);
if (access (buf, R_OK) == 0)
return buf;
# ifdef __APPLE__
snprintf (buf, size, "%s", ODBC_INI_APP);
if (access (buf, R_OK) == 0)
return buf;
# endif
return NULL;
#endif
}
char *
_iodbcdm_getkeyvalbydsn (
char *dsn,
int dsnlen,
char *keywd,
char *value,
int size)
{
char buf[1024];
char dsntk[SQL_MAX_DSN_LENGTH + 3] = {'[', '\0'};
char token[1024];
FILE *file;
char pathbuf[1024];
char *path;
int nKeyWordLength = 0, nTokenLength = 0;
#define DSN_NOMATCH 0
#define DSN_NAMED 1
#define DSN_DEFAULT 2
int dsnid = DSN_NOMATCH;
int defaultdsn = DSN_NOMATCH;
if (dsn == NULL || *dsn == 0)
{
dsn = "default";
dsnlen = STRLEN (dsn);
}
if (dsnlen == SQL_NTS)
{
dsnlen = STRLEN (dsn);
}
if (dsnlen <= 0 || keywd == NULL || buf == 0 || size <= 0)
{
return NULL;
}
if (dsnlen > sizeof (dsntk) - 2)
{
return NULL;
}
value[0] = '\0';
nKeyWordLength = STRLEN (keywd);
STRNCAT (dsntk, dsn, dsnlen);
STRCAT (dsntk, "]");
dsnlen = dsnlen + 2;
path = _iodbcdm_getinifile (pathbuf, sizeof (pathbuf));
if (path == NULL)
{
return NULL;
}
file = (FILE *) fopen (path, "r");
if (file == NULL)
{
return NULL;
}
for (;;)
{
char *str;
str = fgets (buf, sizeof (buf), file);
if (str == NULL)
break;
if (*str == '[')
{
if (upper_strneq (str, "[default]", STRLEN ("[default]")))
{
if (defaultdsn == DSN_NOMATCH)
{
dsnid = DSN_DEFAULT;
defaultdsn = DSN_DEFAULT;
}
else
dsnid = DSN_NOMATCH;
continue;
}
else if (upper_strneq (str, dsntk, dsnlen))
{
dsnid = DSN_NAMED;
}
else
{
dsnid = DSN_NOMATCH;
}
continue;
}
else if (dsnid == DSN_NOMATCH)
{
continue;
}
str = readtoken (str, token, 1);
if (token)
nTokenLength = STRLEN (token);
else
nTokenLength = 0;
if (upper_strneq (keywd, token, nTokenLength > nKeyWordLength ? nTokenLength : nKeyWordLength))
{
str = readtoken (str, token, 1);
if (!STREQ (token, "="))
{
continue;
}
str = readtoken (str, token, 1);
if (STRLEN (token) > size - 1)
{
break;
}
STRNCPY (value, token, size);
if (dsnid != DSN_DEFAULT)
{
break;
}
}
}
fclose (file);
return (*value) ? value : NULL;
}
char *
_iodbcdm_getkeyvalinstr (
char *cnstr,
int cnlen,
char *keywd,
char *value,
int size)
{
char token[1024] = {'\0'};
int flag = 0;
if (cnstr == NULL || value == NULL || keywd == NULL || size < 1)
{
return NULL;
}
if (cnlen == SQL_NTS)
{
cnlen = STRLEN (cnstr);
}
if (cnlen <= 0)
{
return NULL;
}
for (;;)
{
cnstr = readtoken (cnstr, token, 0);
if (*token == '\0')
break;
if (STREQ (token, ";"))
{
flag = 0;
continue;
}
switch (flag)
{
case 0:
if (upper_strneq (token, keywd, STRLEN (keywd)))
flag = 1;
break;
case 1:
if (STREQ (token, "="))
flag = 2;
break;
case 2:
if (size < STRLEN (token) + 1)
return NULL;
STRNCPY (value, token, size);
return value;
default:
break;
}
}
return NULL;
}
#if 0
int
SQLGetPrivateProfileString (
char *lpszSection,
char *lpszEntry,
char *lpszDefault,
char *RetBuffer,
int cbRetBuffer,
char *lpzFilename)
{
char *value;
value = _iodbcdm_getkeyvalbydsn (
lpszSection, SQL_NTS,
lpszEntry, RetBuffer, cbRetBuffer);
if (value == NULL)
strncpy (RetBuffer, lpszDefault, cbRetBuffer);
return strlen (RetBuffer);
}
#endif