]> git.saurik.com Git - wxWidgets.git/blobdiff - src/iodbc/misc.c
Various changes to make pop up menus work
[wxWidgets.git] / src / iodbc / misc.c
index 713467766fb7b37327d1e3cc2dc409e5d94f2509..a31cee6cc6ecb9d4e81a97b6a03f7ee7a04be798 100644 (file)
-/** miscellaneous functions
-
-    Copyright (C) 1995 by Ke Jin <kejin@empress.com>
-
-    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      <os2.h>
-#  include      <stdio.h>
-#endif
+/*
+ *  misc.c
+ *
+ *  $Id$
+ *
+ *  Miscellaneous 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.
+ */
 
 
-#include       <../iodbc/iodbc.h>
+#include       "config.h"
 
 
-#include       <../iodbc/isql.h>
-#include       <../iodbc/isqlext.h>
+#include       "isql.h"
+#include       "isqlext.h"
 
 #include       <stdio.h>
 
 #include       <stdio.h>
-#include        <strings.h>
-
 #include        <unistd.h>
 
 #include        <unistd.h>
 
-
 static int
 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<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);
+  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      <pwd.h>
+# 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       <pwd.h>
-# 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
 #else
-#  ifdef OS2
-        *buf = '\0';
-        if( NULL != getenv("IODBC_INI") )
-        {
-                strcpy( buf, getenv("IODBC_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 ~/.iodbc.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
 
 #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;
 }
 }