/*
 * w95inf16.c
 *
 * Copyright (c) 1995 Microsoft Corporation
 *
 * 16bit portion of the INFINST program.   This DLL contains all the
 * stuff to drive GenInstall (a 16 bit DLL)
 *
 */
#include "w95inf16.h"
#include <regstr.h>
#include <cpldebug.h>
#include <memory.h>
#include <string.h>
//#include "..\core\infinst.h"

#pragma message("If you change W95INF16.DLL, you need to manually increase")
#pragma message("the version number in w95inf16.rcv. This is not done automatically.")
#define SHORTSTRING 256

    /*
     * GLOBALS
     */
HINSTANCE   hInstance;

CHAR    szDll16[] = "W95INF16.DLL";
CHAR    szDll32[] = "W95INF32.DLL";

static  char    g_szRunOnceExe[] = {"runonce"};

    /*
     * S T R I N G S
     */
char    *szSectVersion          = "version";
char    *szKeySignature         = "signature";
char    *szValSignature         = "$CHICAGO$";

    /*
     * Declarations
     */
BOOL FAR PASCAL w95thk_ThunkConnect16(LPSTR pszDLL16, LPSTR pszDll32, WORD hInst, DWORD dwReason);
VOID WINAPI GetSETUPXErrorText16(DWORD,LPSTR, DWORD);
WORD WINAPI CtlSetLddPath16(UINT, LPSTR);
WORD WINAPI GenInstall16(LPSTR, LPSTR, LPSTR, DWORD);
BOOL WINAPI GenFormStrWithoutPlaceHolders16(LPSTR, LPSTR, LPSTR);

    /*
     * Library Initialization
     *
     * Call by LibInit
     */
BOOL FAR PASCAL LibMain(HINSTANCE hInst, WORD wDataSeg, WORD wHeapSize, LPSTR lpszCmdLine)
{
    // Keep Copy of Instance
    hInstance = hInst;

    DEBUGMSG("W95INF16.DLL - LibMain()");

    return( TRUE );
}

    /*
     * Thunk Entry Point
     */
BOOL FAR PASCAL DllEntryPoint(DWORD dwReason, WORD hInst, WORD wDS, WORD wHeapSize, DWORD dwReserved1, WORD wReserved2)
{

    DEBUGMSG("W95INF16.DLL - DllEntryPoint()");
    if (! (w95thk_ThunkConnect16(szDll16, szDll32, hInst, dwReason)))  {
        DEBUGMSG("W95INF16.DLL - w95thk_ThunkConnect16() Failed");
        return( FALSE );
    }

    return( TRUE );
}


/*
 *  O P E N _ V A L I D A T E _ I N F
 *
 * Routine:     OpenValidateInf
 *
 * Purpose:     Open INF and validate internals
 *
 * Notes:       Stolen from setupx
 *
 * 
 */

RETERR OpenValidateInf(LPCSTR lpszInfFile, HINF FAR * phInf )
{
    RETERR  err;            
    HINF    hInfFile;
    char    szTmpBuf[SHORTSTRING];


	ASSERT(lpszInfFile);
	ASSERT(phInf);

    DEBUGMSG("OpenValidateInf([%s])", lpszInfFile );

    *phInf = NULL;
        /*
         * Open the INF
         */
    err = IpOpen( lpszInfFile, &hInfFile );
	if (err != OK) {
		DEBUGMSG("IpOpen(%s) returned %u",(LPSTR) lpszInfFile,err);
		return err;
	}

        /*
         * Get INF signature
         */
    err = IpGetProfileString( hInfFile, szSectVersion, szKeySignature, szTmpBuf, sizeof(szTmpBuf));
	if (err != OK) {
        DEBUGMSG("IpGetProfileString returned %u",err);
		return err;
	}

        /*
         * Check INF signature
         */
    if ( lstrcmpi(szTmpBuf,szValSignature) != 0 )   {
		DEBUGMSG("signature error in %s",(LPSTR) lpszInfFile);		
        IpClose(hInfFile);
		return ERR_IP_INVALID_INFFILE;
    }

        /*
         * Set Out Parameter phInf
         */
    *phInf = hInfFile;

    DEBUGMSG("OpenValidateInf([%s]) Complete", lpszInfFile );
    return OK;
}

//***************************************************************************
//*                                                                         *
//* NAME:       AddPath                                                     *
//*                                                                         *
//* SYNOPSIS:                                                               *
//*                                                                         *
//* REQUIRES:                                                               *
//*                                                                         *
//* RETURNS:                                                                *
//*                                                                         *
//***************************************************************************
VOID AddPath(LPSTR szPath, LPCSTR szName )
{
    LPSTR szTmp;

        // Find end of the string
    szTmp = szPath + lstrlen(szPath);

        // If no trailing backslash then add one
    if ( szTmp > szPath && *(AnsiPrev( szPath, szTmp )) != '\\' )
        *(szTmp++) = '\\';

        // Add new name to existing path string
    while ( *szName == ' ' ) szName++;
    lstrcpy( szTmp, szName );
}


//BUGBUG:  Ideally, we would like to use the HWND in here, but in 32-bit land,
//         HWND is 32-bits and in 16-bit land, HWND is 16-bits, so we have a
//         problem.

//WORD WINAPI GenInstall16(LPSTR lpszInf, LPSTR lpszSection, LPSTR lpszDirectory, DWORD dwQuietMode, DWORD hWnd )
WORD WINAPI GenInstall16(LPSTR lpszInf, LPSTR lpszSection, LPSTR lpszDirectory, DWORD dwQuietMode )
{
    VCPUIINFO   VcpUiInfo;
    RETERR      err;
	BYTE		fNeedBoot	= 1;
    char        szPrevSourcePath[MAX_PATH+1]    = "";
    BOOL        fNeedToRestorePrevSourcePath    = FALSE;
    HINF        hInf = NULL;

    ASSERT(lpszInf);
    ASSERT(lpszSection);

        /*
         * Open INF
         */
    err = OpenValidateInf(lpszInf, &hInf);
    if (err != OK) {
            DEBUGMSG("OpenValidateInf(%s) returned %u",lpszInf, err);
            goto done;
    }
    ASSERT(hInf);

        /*
         * Save source path for restoration
         *
         *      If we get a non-zero length string for the old
         *      source path then we will restore it when finished
         */
    err = CtlGetLddPath(LDID_SRCPATH,szPrevSourcePath);
    if ((err == OK) && (lstrlen(szPrevSourcePath)))  {
        DEBUGMSG("Saved Sourcpath [%s]", szPrevSourcePath );
        fNeedToRestorePrevSourcePath = TRUE;
    }


        /*
         * Set Source Path for GenInstall
         */                                                                   

    DEBUGMSG("Setting Source path to [%s]", lpszDirectory );
    CtlSetLddPath(LDID_SRCPATH, lpszDirectory );

        /*
         * Set Up GenInstall UI
         */
    _fmemset(&VcpUiInfo,0,sizeof(VcpUiInfo));
    if ( ! dwQuietMode ) {
        VcpUiInfo.flags = VCPUI_CREATEPROGRESS;
    } else {
        VcpUiInfo.flags = 0;
    }

    VcpUiInfo.hwndParent = 0;           // Our parent
    VcpUiInfo.hwndProgress = NULL;        // No progress DLG
    VcpUiInfo.idPGauge = 0;
    VcpUiInfo.lpfnStatCallback = NULL;    // No stat callback
    VcpUiInfo.lUserData = 0L;             // No client data.


        /*
         * Open VCP to batch copy requests
         */
    DEBUGMSG("Setting up VCP");
    err = VcpOpen((VIFPROC) vcpUICallbackProc, (LPARAM)(LPVCPUIINFO)&VcpUiInfo);
	if (err != OK) 
	{
		DEBUGMSG("VcpOpen returned %u",err);
		goto done;
	}
    DEBUGMSG("VCP Setup Complete");


        /*
         * Call GenInstall to Install Files
         */

        /*
         * GenInstall Go Do your thing
         */
    err = GenInstall(hInf,lpszSection, GENINSTALL_DO_FILES );

    // err = InstallFilesFromINF(0, lpszInf, lpszSection, GENINSTALL_DO_FILES);
    DEBUGMSG("GeInstall() DO_FILE Returned %d", err);
    if (err == OK) 
	{
        err = VcpClose(VCPFL_COPY | VCPFL_DELETE | VCPFL_RENAME, NULL);
        if (err != OK) 
		{
            DEBUGMSG("VcpClose returned %u", err);
            goto done;
        }
    }
	else
	{
        err = VcpClose(VCPFL_ABANDON, NULL);
        if (err != OK)
		{
            DEBUGMSG("VcpClose returned %u", err);
            goto done;
        }
    }


        /*
         * Now have GenInstall do rest of install
         */
    err = GenInstall(hInf, lpszSection, GENINSTALL_DO_ALL ^ GENINSTALL_DO_FILES );

    //DEBUGMSG("Installing everything else using InstallFilesFromINF()");
    //err = InstallFilesFromINF(0, lpszInf, lpszSection, GENINSTALL_DO_ALL ^ GENINSTALL_DO_FILES);
    if (err != OK)
	{
        DEBUGMSG("GenInstall() Non Files returned %d", err );
        goto done;
    }

done:
        /*
         * Restore Source LDID
         */
	if (fNeedToRestorePrevSourcePath) {
		DEBUGMSG("Restoring source path to: %s",(LPSTR) szPrevSourcePath);
		err=CtlSetLddPath(LDID_SRCPATH,szPrevSourcePath);
		ASSERT(err == OK);
	}

    if ( hInf )
        IpClose( hInf );

    return(err);
}



VOID WINAPI GetSETUPXErrorText16(DWORD dwError,LPSTR pszErrorDesc, DWORD cbErrorDesc)
{
	WORD wID;	// ID of string resource in SETUPX with error description	

	// get string ID with this error from setupx
    wID = suErrorToIds((WORD) dwError,E2I_SETUPX);

	if (wID) {
		CHAR szSetupxFilename[13];	// big enough for 8.3
		HMODULE hInstSetupx;

		// get setupx filename out of resource
		LoadString(hInstance,IDS_SETUPX_FILENAME,szSetupxFilename,
			sizeof(szSetupxFilename));

		// get the module handle for setupx
		hInstSetupx = GetModuleHandle(szSetupxFilename);
		ASSERT(hInstSetupx);	// pretty weird if this fails
		if (hInstSetupx) {

			// load the string from setupx
			if (LoadString(hInstSetupx,wID,pszErrorDesc,(int) cbErrorDesc)) {
				return;	// got it
			}																	   	
		}
	} 

	// we get here if couldn't map error to string ID, couldn't get
	// SETUPX module handle, or couldn't find string ID in setupx.  1st
	// case is relatively likely, other cases are pretty unlikely.
	{
		CHAR szFmt[SMALL_BUF_LEN+1];
		// load generic text and insert error number
		LoadString(hInstance,IDS_GENERIC_SETUPX_ERR,szFmt,sizeof(szFmt));
		wsprintf(pszErrorDesc,szFmt,wID);
	}
}



WORD WINAPI CtlSetLddPath16(UINT uiLDID, LPSTR lpszPath)
{
	return(CtlSetLddPath(uiLDID, lpszPath));
}

BOOL WINAPI GenFormStrWithoutPlaceHolders16( LPSTR lpszDst, LPSTR lpszSrc, LPSTR lpszInfFilename )
{
    RETERR  err = OK;
    HINF hInf;

    err = OpenValidateInf(lpszInfFilename, &hInf);
	if (err != OK) {
        DEBUGMSG("OpenValidateInf(%s) returned %u",lpszInfFilename, err);
        return FALSE;
	}

    GenFormStrWithoutPlaceHolders( lpszDst, (LPCSTR) lpszSrc, hInf );

    IpClose( hInf );

    return TRUE;
}