X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/1acd7ba6f2ffc10369ed74a2ac4d8a28eadf1151..00c813596e3eefdd028365acf9542355937e5531:/src/iodbc/misc.c?ds=sidebyside diff --git a/src/iodbc/misc.c b/src/iodbc/misc.c index 4535ecd892..a31cee6cc6 100644 --- a/src/iodbc/misc.c +++ b/src/iodbc/misc.c @@ -1,422 +1,413 @@ -/** miscellaneous 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. -**/ - -#ifdef DLDAPI_OS2 -# define INCL_DOSMODULEMGR /* Module Manager values */ -# define INCL_DOSERRORS /* Error values */ -# include -# include -#endif +/* + * misc.c + * + * $Id$ + * + * Miscellaneous 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 <../iodbc/iodbc.h> +#include "config.h" -#include <../iodbc/isql.h> -#include <../iodbc/isqlext.h> +#include "isql.h" +#include "isqlext.h" #include -#include - #include - static int -upper_strneq( - char* s1, - char* s2, - int n ) +upper_strneq ( + char *s1, + char *s2, + int n) { - int i; - char c1, c2; - - for(i=1;i= '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); + 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* /* return new position in input str */ -readtoken( - char* istr, /* old position in input buf */ - char* obuf ) /* token string ( if "\0", then finished ) */ +static char * /* return new position in input str */ +readtoken ( + char *istr, /* old position in input buf */ + char *obuf) /* token string ( if "\0", then finished ) */ { - for(; *istr && *istr != '\n' ; istr ++ ) - { - char c, nx; - - c = *(istr); - - if( c == ' ' || c == '\t' ) - { - continue; - } - - nx = *(istr + 1); - - *obuf = c; - obuf ++; + char *start = obuf; + + /* Skip leading white space */ + while (*istr == ' ' || *istr == '\t') + istr++; + + for (; *istr && *istr != '\n'; istr++) + { + char c, nx; + + c = *(istr); + nx = *(istr + 1); + + if (c == ';') + { + for (; *istr && *istr != '\n'; istr++); + break; + } + *obuf = c; + obuf++; + + if (nx == ';' || nx == '=' || c == '=') + { + istr++; + break; + } + } + *obuf = '\0'; + + /* Trim end of token */ + for (; obuf > start && (*(obuf - 1) == ' ' || *(obuf - 1) == '\t');) + *--obuf = '\0'; + + return istr; +} - if( c == ';' || c == '=' ) - { - istr ++; - break; - } +#if !defined(WINDOWS) && !defined(WIN32) && !defined(OS2) +# include +# define UNIX_PWD +#endif - if( nx == ' ' || nx == '\t' || nx == ';' || nx == '=' ) - { - istr ++; - break; - } - } +char * +_iodbcdm_getinifile (char *buf, int size) +{ + int i, j; + char *ptr; - *obuf = '\0'; + j = STRLEN ("/odbc.ini") + 1; - return istr; -} + if (size < j) + { + return NULL; + } -#if !defined(WINDOWS) && !defined(WIN32) && !defined(OS2) -# include -# define UNIX_PWD -#endif +#if !defined(UNIX_PWD) -static char* -getinitfile(char* buf, int size) -{ - int i, j; - char* ptr; + i = GetWindowsDirectory ((LPSTR) buf, size); - j = STRLEN("/odbc.ini") + 1; + if (i == 0 || i > size - j) + { + return NULL; + } - if( size < j ) - { - return NULL; - } + sprintf (buf + i, "/odbc.ini"); -#ifdef FIX_INI_FILE - sprintf( buf, "%s/odbc.ini", DIR_INI_FILE ); + return buf; #else -# ifdef OS2 - *buf = '\0'; - if( NULL != getenv("ODBC_INI") ) - { - strcpy( buf, getenv("ODBC_INI") ); - } - else - { - HMODULE hModule; - - if( NO_ERROR == DosQueryModuleHandle(DLL_NAME, &hModule) && - NO_ERROR == DosQueryModuleName(hModule, 256L, buf) ) - { - if( NULL != strrchr(buf, '.') ) - *(strchr(buf, '.')) = '\0'; - strcat( buf, ".ini" ); - } - else - { - strcpy( buf, "odbc.ini" ); - } - - } - return buf; -# else -# if !defined(UNIX_PWD) - - i = GetWindowsDirectory((LPSTR)buf, size ); - - if( i == 0 || i > size - j ) - { - return NULL; - } - - sprintf( buf + i, "/odbc.ini"); - - return buf; -# else - ptr = (char*)getpwuid(getuid()); - - if( ptr == NULL ) - { - return NULL; - } - - ptr = ((struct passwd*)ptr)->pw_dir; - - if( ptr == NULL || *ptr == '\0' ) - { - ptr = "/home"; - } - - if( size < STRLEN(ptr) + j ) - { - return NULL; - } - - sprintf( buf, "%s%s", ptr, "/.odbc.ini"); - /* i.e. searching ~/.odbc.ini */ -# endif -# endif + if ((ptr = getenv ("ODBCINI")) != NULL) + { + strcpy (buf, ptr); + return buf; + } + + if ((ptr = getenv ("IODBCINI")) != NULL) + { + strcpy (buf, ptr); + return buf; + } + + if ((ptr = getenv ("HOME")) == NULL) + { + ptr = (char *) getpwuid (getuid ()); + + if (ptr == NULL) + { + return NULL; + } + + ptr = ((struct passwd *) ptr)->pw_dir; + } + + if (ptr == NULL || *ptr == '\0') + { + ptr = "/home"; + } + + if (size < STRLEN (ptr) + j) + { + return NULL; + } + + sprintf (buf, "%s%s", ptr, "/.odbc.ini"); + /* i.e. searching ~/.odbc.ini */ #endif - return buf; + return buf; } -char* _iodbcdm_getkeyvalbydsn( - char* dsn, - int dsnlen, - char* keywd, - char* value, - int size ) -/* read odbc init file to resolve the value of specified - * key from named or defaulted dsn section + +/* + * read odbc init file to resolve the value of specified + * key from named or defaulted dsn section */ +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]; /* large enough */ - FILE* file; - char pathbuf[1024]; - char* path; - -#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'; - - STRNCAT( dsntk, dsn, dsnlen ); - STRCAT( dsntk, "]" ); - - dsnlen = dsnlen + 2; - - path = getinitfile(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; - } - - strtok( str, "\n\r" ); - - if( *str == '[' ) - { - if( upper_strneq(str, "[default]", STRLEN("[default]")) ) - { - /* we only read first dsn default dsn - * section (as well as named dsn). - */ - 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); - - if( upper_strneq( keywd, token, STRLEN(keywd)) ) - { - str = readtoken(str, token); - - if( ! STREQ( token, "=") ) - /* something other than = */ - { - continue; - } - - str = readtoken(str, token); - - if( STRLEN(token) > size - 1) - { - break; - } - - STRNCPY(value, token, size); - /* copy the value(i.e. next token) to buf */ - - if( dsnid != DSN_DEFAULT ) - { - break; - } - } - } - - fclose(file); - - return (*value)? value:NULL; + char buf[1024]; + char dsntk[SQL_MAX_DSN_LENGTH + 3] = {'[', '\0'}; + char token[1024]; /* large enough */ + FILE *file; + char pathbuf[1024]; + char *path; + +#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'; + + 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]"))) + { + /* we only read first dsn default dsn + * section (as well as named dsn). + */ + 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); + + if (upper_strneq (keywd, token, STRLEN (keywd))) + { + str = readtoken (str, token); + + if (!STREQ (token, "=")) + /* something other than = */ + { + continue; + } + + str = readtoken (str, token); + + if (STRLEN (token) > size - 1) + { + break; + } + + STRNCPY (value, token, size); + /* copy the value(i.e. next token) to buf */ + + 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 * +_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); - - 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; + 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); + + 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; }