src/iodbc/dlproc.c

/** Load driver and resolve driver's function entry point

    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.
**/

#include	<../iodbc/iodbc.h>

#include	<../iodbc/isql.h>
#include	<../iodbc/isqlext.h>

#include        <../iodbc/dlproc.h>

#include	<../iodbc/herr.h>
#include	<../iodbc/henv.h>
#include	<../iodbc/hdbc.h>

#include	<../iodbc/itrace.h>

#include	"../iodbc/henv.ci"

HPROC	_iodbcdm_getproc( HDBC hdbc, int idx )
{
	DBC_t FAR*	pdbc	= (DBC_t FAR*)hdbc;
	ENV_t FAR*	penv;
	HDLL		hdll;
	HPROC FAR*	phproc;

	if( idx <= 0 || idx > SQL_EXT_API_LAST )
	/* first entry naver used */
	{
		return SQL_NULL_HPROC;
	}

	penv = (ENV_t FAR*)(pdbc->henv);

	if( penv == NULL )
	{
		return SQL_NULL_HPROC;
	}

	phproc = penv->dllproc_tab + idx;

	if( *phproc == SQL_NULL_HPROC )
	{
		int	i, en_idx;

		for( i=0 ; ; i++ )
		{
			en_idx = odbcapi_symtab[i].en_idx;

			if( en_idx == en_NullProc )
			{
				break;
			}

			if( en_idx == idx )
			{
				*phproc = _iodbcdm_dllproc( penv->hdll,
					odbcapi_symtab[i].symbol );

				break;
			}
		}
	}

	return *phproc;
}

HDLL	_iodbcdm_dllopen( char FAR* path )
{
	return	(HDLL)DLL_OPEN( path );
}

HPROC	_iodbcdm_dllproc( HDLL hdll, char FAR* sym )
{
	return (HPROC)DLL_PROC( hdll, sym );
}

int	_iodbcdm_dllclose( HDLL hdll )
{
	DLL_CLOSE( hdll );

	return 0;
}

char*	_iodbcdm_dllerror( )
{
	return DLL_ERROR();
}
Commit	Line	Data
	1	/** Load driver and resolve driver's function entry point
	2
	3	Copyright (C) 1995 by Ke Jin <kejin@empress.com>
	4
	5	This program is free software; you can redistribute it and/or modify
	6	it under the terms of the GNU General Public License as published by
	7	the Free Software Foundation; either version 2 of the License, or
	8	(at your option) any later version.
	9
	10	This program is distributed in the hope that it will be useful,
	11	but WITHOUT ANY WARRANTY; without even the implied warranty of
	12	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	13	GNU General Public License for more details.
	14	**/
	15
	16	#include <../iodbc/iodbc.h>
	17
	18	#include <../iodbc/isql.h>
	19	#include <../iodbc/isqlext.h>
	20
	21	#include <../iodbc/dlproc.h>
	22
	23	#include <../iodbc/herr.h>
	24	#include <../iodbc/henv.h>
	25	#include <../iodbc/hdbc.h>
	26
	27	#include <../iodbc/itrace.h>
	28
	29	#include "../iodbc/henv.ci"
	30
	31	HPROC _iodbcdm_getproc( HDBC hdbc, int idx )
	32	{
	33	DBC_t FAR* pdbc = (DBC_t FAR*)hdbc;
	34	ENV_t FAR* penv;
	35	HDLL hdll;
	36	HPROC FAR* phproc;
	37
	38	if( idx <= 0 \|\| idx > SQL_EXT_API_LAST )
	39	/* first entry naver used */
	40	{
	41	return SQL_NULL_HPROC;
	42	}
	43
	44	penv = (ENV_t FAR*)(pdbc->henv);
	45
	46	if( penv == NULL )
	47	{
	48	return SQL_NULL_HPROC;
	49	}
	50
	51	phproc = penv->dllproc_tab + idx;
	52
	53	if( *phproc == SQL_NULL_HPROC )
	54	{
	55	int i, en_idx;
	56
	57	for( i=0 ; ; i++ )
	58	{
	59	en_idx = odbcapi_symtab[i].en_idx;
	60
	61	if( en_idx == en_NullProc )
	62	{
	63	break;
	64	}
	65
	66	if( en_idx == idx )
	67	{
	68	*phproc = _iodbcdm_dllproc( penv->hdll,
	69	odbcapi_symtab[i].symbol );
	70
	71	break;
	72	}
	73	}
	74	}
	75
	76	return *phproc;
	77	}
	78
	79	HDLL _iodbcdm_dllopen( char FAR* path )
	80	{
	81	return (HDLL)DLL_OPEN( path );
	82	}
	83
	84	HPROC _iodbcdm_dllproc( HDLL hdll, char FAR* sym )
	85	{
	86	return (HPROC)DLL_PROC( hdll, sym );
	87	}
	88
	89	int _iodbcdm_dllclose( HDLL hdll )
	90	{
	91	DLL_CLOSE( hdll );
	92
	93	return 0;
	94	}
	95
	96	char* _iodbcdm_dllerror( )
	97	{
	98	return DLL_ERROR();
	99	}