/*
 *      PROGRAM:        InterBase Window platforms
 *      MODULE:         ibinitdll.c
 *      DESCRIPTION:    DLL entry/exit function
 *
 * The contents of this file are subject to the Interbase Public
 * License Version 1.0 (the "License"); you may not use this file
 * except in compliance with the License. You may obtain a copy
 * of the License at http://www.Inprise.com/IPL.html
 *
 * Software distributed under the License is distributed on an
 * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
 * or implied. See the License for the specific language governing
 * rights and limitations under the License.
 *
 * The Original Code was created by Inprise Corporation
 * and its predecessors. Portions created by Inprise Corporation are
 * Copyright (C) Inprise Corporation.
 *
 * All Rights Reserved.
 * Contributor(s): ______________________________________.
 */

#include "firebird.h"
#include <windows.h>

HINSTANCE hIBDLLInstance;

#ifdef GDS32
HINSTANCE hFBDLLInstance;
const char *FBDLLNAME = "fbclient.dll";
#endif

#ifdef SUPERSERVER

#ifdef  _MSC_VER
BOOL WINAPI _CRT_INIT(HINSTANCE, DWORD, LPVOID);
#else
BOOL WINAPI _CRT_INIT(HINSTANCE HIdummy, DWORD DWdummy, LPVOID LPVdummy)
{
	return TRUE;
}
#endif

#else /* SUPERSERVER */

BOOL WINAPI DllMain(HINSTANCE h, DWORD reason, LPVOID reserved)
{
	/* save instance value */
	hIBDLLInstance = h;

#ifdef GDS32
	char buffer[MAXPATHLEN], *p;
	int l;

	switch (reason)	{
	case DLL_PROCESS_ATTACH:
		GetModuleFileName(hIBDLLInstance, buffer, sizeof(buffer));
		l = strlen(buffer);
		p = buffer + l;
		while (l-- && *p-- != '\\');
		p++;
		strcpy(++p, FBDLLNAME);
		p += strlen(FBDLLNAME);
		*p = 0;
		hFBDLLInstance = LoadLibrary(buffer);
		if (!hFBDLLInstance) {
			hFBDLLInstance = LoadLibrary(FBDLLNAME);
		}
		break;
	case DLL_PROCESS_DETACH:
		FreeLibrary(hFBDLLInstance);
	}
#endif

	return TRUE;
}

#endif /* SUPERSERVER */