/*********************************************************************
 *
 * This is based on code created by Peter Harvey,
 * (pharvey@codebydesign.com).
 *
 * Modified and extended by Nick Gorham
 * (nick@easysoft.com).
 *
 * Any bugs or problems should be considered the fault of Nick and not
 * Peter.
 *
 * copyright (c) 1999 Nick Gorham
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 **********************************************************************
 *
 * $Id: __connection.c,v 1.2 1999/12/10 01:50:38 harvey Exp $
 *
 * $Log: __connection.c,v $
 * Revision 1.2  1999/12/10 01:50:38  harvey
 * Updated with current sources from unixODBC cvs.
 *
 * Revision 1.7  1999/11/28 18:35:50  ngorham
 *
 * Add extra ODBC3/2 Date/Time mapping
 *
 * Revision 1.6  1999/11/13 23:41:01  ngorham
 *
 * Alter the way DM logging works
 * Upgrade the Postgres driver to 6.4.6
 *
 * Revision 1.5  1999/10/09 00:56:16  ngorham
 *
 * Added Manush's patch to map ODBC 3-2 datetime values
 *
 * Revision 1.4  1999/08/03 21:47:39  shandyb
 * Moving to automake: changed files in DriverManager
 *
 * Revision 1.3  1999/07/04 21:05:08  ngorham
 *
 * Add LGPL Headers to code
 *
 * Revision 1.2  1999/06/19 17:51:41  ngorham
 *
 * Applied assorted minor bug fixes
 *
 * Revision 1.1.1.1  1999/05/29 13:41:09  sShandyb
 * first go at it
 *
 * Revision 1.1.1.1  1999/05/27 18:23:18  pharvey
 * Imported sources
 *
 * Revision 1.1  1999/04/25 23:06:11  nick
 * Initial revision
 *
 *
 **********************************************************************/

#include "drivermanager.h"

/*
 * list of places to look, a $ at the start indicates
 * then it following text should be looked in as a env
 * variable
 */

char *ini_search_list[] =
{
    INIUSER,
    "$ODBCINI",
    INISYSTEM,
};

static char const rcsid[]= "$RCSfile: __connection.c,v $ $Revision: 1.2 $";

/*
 * search for the library (.so) that the DSN points to
 */

char *__find_lib_name( char *dsn, char *lib_name, char *driver_name )
{
    char driver[ INI_MAX_PROPERTY_VALUE + 1 ];
    char driver_lib[ INI_MAX_PROPERTY_VALUE + 1 ];

    SQLSetConfigMode( ODBC_USER_DSN );

	/*
	 * GET DRIVER FROM ODBC.INI
	 */

    SQLGetPrivateProfileString( dsn, "Driver", "",
            driver_lib, sizeof( driver_lib ), "ODBC.INI" );

    if ( driver_lib[ 0 ] == 0 )
    {
        /*
         * if not found look in system DSN
         */

        SQLSetConfigMode( ODBC_SYSTEM_DSN );

        SQLGetPrivateProfileString( dsn, "Driver", "",
                driver_lib, sizeof( driver_lib ), "ODBC.INI" );
        
        SQLSetConfigMode( ODBC_BOTH_DSN );
        if ( driver_lib[ 0 ] == 0 )
            return NULL;
    }

	/*
	 * GET DRIVER FROM ODBCINST.INI IF ODBC.INI HAD USER FRIENDLY NAME
	 */

    strcpy( driver_name, "" );

    if ( driver_lib[ 0 ] != '/' )
	{
        strcpy( driver, driver_lib );

		SQLGetPrivateProfileString( driver, "Driver", "",
				driver_lib, sizeof( driver_lib ), "ODBCINST.INI" );

        strcpy( driver_name, driver );

		if ( driver_lib[ 0 ] == 0 )
			return NULL;
	}

	strcpy( lib_name, driver_lib );

    return lib_name;
}

static SQLSMALLINT sql_old_to_new(SQLSMALLINT type)
{
    switch(type) {
    case SQL_TIME:
      type=SQL_TYPE_TIME;
      break;
      
    case SQL_DATE:
      type=SQL_TYPE_DATE;
      break;

    case SQL_TIMESTAMP:
      type=SQL_TYPE_TIMESTAMP;
      break;
    }
    return type;
}
  
static SQLSMALLINT sql_new_to_old(SQLSMALLINT type)
{
    switch(type) {
    case SQL_TYPE_TIME:
      type=SQL_TIME;
      break;
      
    case SQL_TYPE_DATE:
      type=SQL_DATE;
      break;

    case SQL_TYPE_TIMESTAMP:
      type=SQL_TIMESTAMP;
      break;
    }
    return type;
}

static SQLSMALLINT c_old_to_new(SQLSMALLINT type)
{
    switch(type) {
    case SQL_C_TIME:
      type=SQL_C_TYPE_TIME;
      break;
      
    case SQL_C_DATE:
      type=SQL_C_TYPE_DATE;
      break;

    case SQL_C_TIMESTAMP:
      type=SQL_C_TYPE_TIMESTAMP;
      break;
    }
    return type;
}

static SQLSMALLINT c_new_to_old(SQLSMALLINT type)
{
    switch(type) {
    case SQL_C_TYPE_TIME:
      type=SQL_C_TIME;
      break;
      
    case SQL_C_TYPE_DATE:
      type=SQL_C_DATE;
      break;

    case SQL_C_TYPE_TIMESTAMP:
      type=SQL_C_TIMESTAMP;
      break;
    }
    return type;
}

SQLSMALLINT __map_type(int map, DMHDBC connection, SQLSMALLINT type)
{
  int driver_ver=connection->driver_act_ver;
  int wanted_ver=connection->environment->requested_version;

  if(driver_ver==SQL_OV_ODBC2 && wanted_ver==SQL_OV_ODBC3) {
    switch(map) {
    case MAP_SQL_DM2D:
      type=sql_new_to_old(type);
      break;
      
    case MAP_SQL_D2DM:
      type=sql_old_to_new(type);
      break;

    case MAP_C_DM2D:
      type=c_new_to_old(type);
      break;

    case MAP_C_D2DM:
      type=c_old_to_new(type);
      break;
    }
  } else if(driver_ver==SQL_OV_ODBC3 && wanted_ver==SQL_OV_ODBC2) {
    switch(map) {
    case MAP_SQL_DM2D:
      type=sql_old_to_new(type);
      break;
      
    case MAP_SQL_D2DM:
      type=sql_new_to_old(type);
      break;
      
    case MAP_C_DM2D:
      type=c_old_to_new(type);
      break;
      
    case MAP_C_D2DM:
      type=c_new_to_old(type);
      break;
    }
  } else if(driver_ver==SQL_OV_ODBC3 && wanted_ver==SQL_OV_ODBC3) {
    switch(map) {
    case MAP_SQL_DM2D:
    case MAP_SQL_D2DM:
      type=sql_old_to_new(type);
      break;
      
    case MAP_C_DM2D:
    case MAP_C_D2DM:
      type=c_old_to_new(type);
      break;
    }
  } else if(driver_ver==SQL_OV_ODBC2 && wanted_ver==SQL_OV_ODBC2) {
    switch(map) {
    case MAP_SQL_DM2D:
    case MAP_SQL_D2DM:
      type=sql_new_to_old(type);
      break;
      
    case MAP_C_DM2D:
    case MAP_C_D2DM:
      type=c_new_to_old(type);
      break;
    }
  }

  return type;
}

