/*************************************************************************/
/* Copyright (C) 1999 Microsoft Corporation                              */
/* File: dvdplay.cpp                                                     */
/* Description: Implementation of WinMain for hosting DLL container.     */
/* This is simple stub exe, that contains resources and startups an      */
/* OLE container.                                                        */
/* Author: David Janecek                                                 */
/*************************************************************************/
#include "stdafx.h"
#include "tchar.h"
#include <stdio.h>
#include "resource.h"
#include "..\MSMFCnt\MSMFCnt.h"
#include "..\MSMFCnt\MSMFCnt_i.c"

/*************************************************************************/
/* Function: AnotherInstanceRunning                                      */
/* Description: Trys to figure out if we have another instance of this   */
/* app running. If so brings it to foregraound and exits.                */
/*************************************************************************/
BOOL AnotherInstanceRunning(){

    HWND hwnd = ::FindWindow(TEXT("MSMFVideoClass"), TEXT("DVDPlay"));

    if(NULL == hwnd){

        return(FALSE);
    }/* end of if statement */

   // OK we have something running
    HWND hwndFirstChild = ::GetLastActivePopup(hwnd);

    if(::IsIconic(hwnd)){

        ::OpenIcon(hwnd);
    }/* end of if statement */

    ::SetForegroundWindow(hwnd);

    if(hwndFirstChild != hwnd){

        if(::IsIconic(hwndFirstChild)){

            ::OpenIcon(hwndFirstChild);
        }/* end of if statement */

        ::SetForegroundWindow(hwndFirstChild);
    }/* end of if statement */

    return(TRUE);
}/* end of function AnotherInstanceRunning */

/*************************************************************************/
/* Function: FindOneOf                                                   */
/*************************************************************************/
LPCTSTR FindOneOf(LPCTSTR p1, LPCTSTR p2){

    while (p1 != NULL && *p1 != NULL){

        LPCTSTR p = p2;
        while (p != NULL && *p != NULL){

            if (*p1 == *p)
                return CharNext(p1);
            p = CharNext(p);
        }/* end of while loop */
        p1 = CharNext(p1);
    }/* end of while loop */
    return NULL;
}/* end of function FindOnOf */

/*************************************************************************/
/* Function: WinMain                                                     */
/* Description: Initializes the object, and sets the script to it        */
/*************************************************************************/
#if 0
extern "C" int WINAPI _tWinMain(HINSTANCE /* hInstance */, 
                                HINSTANCE /*hPrevInstance*/, LPTSTR lpCmdLine, int /*nShowCmd*/){

#else
int APIENTRY WinMain(HINSTANCE /* hInst */,
                     HINSTANCE /*hPrevInstance*/,
                     LPSTR     /*lpCmdLine*/,
                     int       /*nCmdShow*/){
#endif

    try {
        BSTR strFileName = NULL;
        BSTR strScriptFile = ::SysAllocString(L"dvdlayout.js");

        if(AnotherInstanceRunning()){
            // only one instance at a time
            return(-1);
        }/* end of if statement */

         TCHAR szTokens[] = _T("-/ ");

        LPTSTR lpCmdLine = ::GetCommandLine();
        LPCTSTR lpszToken = FindOneOf(lpCmdLine, szTokens);
        while (lpszToken != NULL)
        {
            // Read the command line argument
            TCHAR opt[MAX_PATH];

#ifdef _UNICODE
            _stscanf(lpszToken, TEXT("%ws"), opt);
#else
            _stscanf(lpszToken, TEXT("%s"), opt);
#endif
                
            // Set run the default directory name
            if (lstrcmpi(opt, _T("play"))==0) {
                lpszToken = FindOneOf(lpszToken, szTokens);
                TCHAR fileName[MAX_PATH];

                

    #ifdef _UNICODE
                _stscanf(lpszToken, TEXT("%ws"), fileName);
                //*( _tcsrchr( fileName, '\\' ) + 1 ) = TEXT('\0');

                strFileName = SysAllocString(fileName);
    #else                
                _stscanf(lpszToken, "%s", fileName);

#ifdef _DEBUG
                ::MessageBox(::GetFocus(), TEXT("test"), fileName, MB_OK);
#endif
               // *( _tcsrchr( fileName, '\\' ) + 1 ) = TEXT('\0');


                WCHAR strTmpFileName[MAX_PATH];

                LONG lLength = _tcslen(fileName) + 1;
                 
                ::MultiByteToWideChar(CP_ACP, 0, fileName, lLength, strTmpFileName, MAX_PATH); 

                strFileName = ::SysAllocString(strTmpFileName);
    #endif
            }/* end of if statement */

             if (lstrcmpi(opt, _T("script"))==0) {
                lpszToken = FindOneOf(lpszToken, szTokens);
                TCHAR scriptFile[MAX_PATH];

            

    #ifdef _UNICODE
                _stscanf(lpszToken, TEXT("%ws"), scriptFile);           

                if(NULL != strFileName){

                    ::SysFreeString(strFileName);
                }/* end of if statement */

                strScriptFile = ::SysAllocString(scriptFile);
    #else                
                _stscanf(lpszToken, "%s", scriptFile);

                WCHAR strTmpFileName[MAX_PATH];

                LONG lLength = _tcslen(scriptFile) + 1;
             
                ::MultiByteToWideChar(CP_ACP, 0, scriptFile, lLength, strTmpFileName, MAX_PATH); 

                if(NULL != strFileName){

                    ::SysFreeString(strFileName);
                }/* end of if statement */

                strScriptFile = SysAllocString(strTmpFileName);
        #endif
                }/* end of if statement */

            lpszToken = FindOneOf(lpszToken, szTokens);
        }/* end of if statement */

        HRESULT hr = ::CoInitialize(NULL);

#ifdef _DEBUG
        bool fReload;

        do {
            fReload = false;
#endif

            IMSMFBar* pIMFBar = NULL;

            hr = ::CoCreateInstance(
                CLSID_MSMFBar,
                NULL,
                CLSCTX_SERVER,
                IID_IMSMFBar,
                (LPVOID*) &pIMFBar);

            if(FAILED(hr)){

                return (-2);
            }/* end of if statement */
            
            hr = pIMFBar->put_CmdLine(strFileName);

            if(SUCCEEDED(hr)){

                hr = pIMFBar->put_ScriptFile(strScriptFile);
            }/* end of if statement */

            if(SUCCEEDED(hr)){
                
                MSG msg;
                while (::GetMessage(&msg, 0, 0, 0)){
                    
#ifdef _DEBUG
                    // enable restarting of the app via F6 key
                    // did not use F5 since that is overused and if debugging could trigger unvanted behavior
                    if(WM_KEYUP == msg.message && VK_F6 == msg.wParam){
                        
                        fReload = true;
                        ::PostMessage(msg.hwnd, WM_CLOSE, NULL, NULL); // tell our container to close
                    }/* end of if statement */
#endif
                    //ATLTRACE2(atlTraceHosting, 20, TEXT("Message = %x \n"), msg.message);
                    ::DispatchMessage(&msg);
                }/* end of while loop */
            }/* end of if statement */
            
            // release the site
            if(NULL != pIMFBar){

                pIMFBar->Release();
                pIMFBar = NULL;
            }/* end of if statement */

            if(NULL != strFileName){

                ::SysFreeString(strFileName);
            }/* end of if statement */

            if(NULL != strScriptFile){

                ::SysFreeString(strScriptFile);
            }/* end of if statement */
#ifdef _DEBUG
        }
        while (fReload);
#endif

    ::CoUninitialize();
   }
   catch(...){
       return(-1);
   }/* end of catch statement */

    return 0;
}/* end of function WinMain */

/*************************************************************************/
/* End of file: dvdplay.cpp                                              */
/*************************************************************************/