/*
This Source Code Form is subject to the
terms of the Mozilla Public License, v.
2.0. If a copy of the MPL was not
distributed with this file, You can
obtain one at
http://mozilla.org/MPL/2.0/.
*/
/*
    MaSzyna EU07 locomotive simulator
    Copyright (C) 2001-2004  Marcin Wozniak, Maciej Czapkiewicz and others

*/
/*
Authors:
MarcinW, McZapkie, Shaxbee, ABu, nbmx, youBy, Ra, winger, mamut, Q424,
Stele, firleju, szociu, hunter, ZiomalCl, OLI_EU and others
*/

#include "stdafx.h"

#include <dsound.h> //_clear87() itp.

#include "Globals.h"
#include "Logs.h"
#include "Console.h"
#include "PyInt.h"
#include "World.h"
#include "Mover.h"
#include "usefull.h"

#pragma comment( lib, "glfw3dll.lib" )
#pragma comment( lib, "glew32.lib" )
#pragma comment( lib, "opengl32.lib" )
#pragma comment( lib, "glu32.lib" )
#pragma comment( lib, "dsound.lib" )
#pragma comment( lib, "winmm.lib" )
#pragma comment( lib, "setupapi.lib" )
#pragma comment( lib, "python27.lib" )
#pragma comment (lib, "dbghelp.lib")

#ifdef _MSC_VER
#pragma comment(linker, "/subsystem:windows /ENTRY:mainCRTStartup")
#endif

TWorld World;
PCOPYDATASTRUCT pDane;

void window_resize_callback( GLFWwindow *window, int w, int h )
{
    Global::ScreenWidth = w;
    Global::ScreenHeight = h;
    ::glViewport( 0, 0, w, h );
}

void cursor_pos_callback( GLFWwindow *window, double x, double y )
{
    World.OnMouseMove( x * 0.005, y * 0.01 );
    ::glfwSetCursorPos( window, 0.0, 0.0 );
}

void key_callback( GLFWwindow *window, int key, int scancode, int action, int mods )
{
    Global::shiftState = ( mods & GLFW_MOD_SHIFT ) ? true : false;
    Global::ctrlState = ( mods & GLFW_MOD_CONTROL ) ? true : false;

    if( ( key == GLFW_KEY_LEFT_SHIFT )
     || ( key == GLFW_KEY_LEFT_CONTROL )
     || ( key == GLFW_KEY_LEFT_ALT )
     || ( key == GLFW_KEY_RIGHT_SHIFT )
     || ( key == GLFW_KEY_RIGHT_CONTROL )
     || ( key == GLFW_KEY_RIGHT_ALT ) ) {
        // don't bother passing these
        return;
    }

    if( action == GLFW_PRESS || action == GLFW_REPEAT )
    {
        World.OnKeyDown( key );

        switch( key )
        {
            case GLFW_KEY_ESCAPE: {
                //[Esc] pauzuje tylko bez Debugmode
                if( DebugModeFlag )
                    break;

                if( Global::iPause & 1 ) // jeśli pauza startowa
                    Global::iPause &= ~1; // odpauzowanie, gdy po wczytaniu miało nie startować
                else if( !( Global::iMultiplayer & 2 ) ) // w multiplayerze pauza nie ma sensu
                    if( !Global::ctrlState ) // z [Ctrl] to radiostop jest
                        Global::iPause ^= 2; // zmiana stanu zapauzowania
                if( Global::iPause ) // jak pauza
                    Global::iTextMode = GLFW_KEY_F1; // to wyświetlić zegar i informację
                break;
            }
            case GLFW_KEY_F7:
                if( DebugModeFlag ) { // siatki wyświetlane tyko w trybie testowym
                    Global::bWireFrame = !Global::bWireFrame;
                    if( true == Global::bWireFrame ) {
                        glPolygonMode( GL_FRONT_AND_BACK, GL_LINE );
                    }
                    else {
                        glPolygonMode( GL_FRONT_AND_BACK, GL_FILL );
                    }
                    ++Global::iReCompile; // odświeżyć siatki
                    // Ra: jeszcze usunąć siatki ze skompilowanych obiektów!
                }
                break;
        }
    }
    else if( action == GLFW_RELEASE )
    {
        World.OnKeyUp( key );
    }
}

void focus_callback( GLFWwindow *window, int focus )
{
    if( Global::bInactivePause ) // jeśli ma być pauzowanie okna w tle
        if( focus )
            Global::iPause &= ~4; // odpauzowanie, gdy jest na pierwszym planie
        else
            Global::iPause |= 4; // włączenie pauzy, gdy nieaktywy
}

#ifdef _WINDOWS

extern "C"
{
    GLFWAPI HWND glfwGetWin32Window( GLFWwindow* window );
}

HWND Hwnd;
WNDPROC BaseWindowProc;

LRESULT APIENTRY WndProc( HWND hWnd, // handle for this window
                         UINT uMsg, // message for this window
                         WPARAM wParam, // additional message information
                         LPARAM lParam) // additional message information
{
    switch( uMsg ) // check for windows messages
    {
        case WM_COPYDATA: {
            // obsługa danych przesłanych przez program sterujący
            pDane = (PCOPYDATASTRUCT)lParam;
            if( pDane->dwData == MAKE_ID4( 'E', 'U', '0', '7' ) ) // sygnatura danych
                World.OnCommandGet( (DaneRozkaz *)( pDane->lpData ) );
            break;
        }
    }
    // pass all unhandled messages to DefWindowProc
    return CallWindowProc( BaseWindowProc, Hwnd, uMsg, wParam, lParam );
};

void make_minidump( ::EXCEPTION_POINTERS* e ) {

    auto hDbgHelp = ::LoadLibraryA( "dbghelp" );
    if( hDbgHelp == nullptr )
        return;
    auto pMiniDumpWriteDump = (decltype( &MiniDumpWriteDump ))::GetProcAddress( hDbgHelp, "MiniDumpWriteDump" );
    if( pMiniDumpWriteDump == nullptr )
        return;

    char name[ MAX_PATH ];
    {
        auto nameEnd = name + ::GetModuleFileNameA( ::GetModuleHandleA( 0 ), name, MAX_PATH );
        ::SYSTEMTIME t;
        ::GetSystemTime( &t );
        wsprintfA( nameEnd - strlen( ".exe" ),
            "_crashdump_%4d%02d%02d_%02d%02d%02d.dmp",
            t.wYear, t.wMonth, t.wDay, t.wHour, t.wMinute, t.wSecond );
    }

    auto hFile = ::CreateFileA( name, GENERIC_WRITE, FILE_SHARE_READ, 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0 );
    if( hFile == INVALID_HANDLE_VALUE )
        return;

    ::MINIDUMP_EXCEPTION_INFORMATION exceptionInfo;
    exceptionInfo.ThreadId = ::GetCurrentThreadId();
    exceptionInfo.ExceptionPointers = e;
    exceptionInfo.ClientPointers = FALSE;

    auto dumped = pMiniDumpWriteDump(
        ::GetCurrentProcess(),
        ::GetCurrentProcessId(),
        hFile,
        ::MINIDUMP_TYPE( ::MiniDumpWithIndirectlyReferencedMemory | ::MiniDumpScanMemory ),
        e ? &exceptionInfo : nullptr,
        nullptr,
        nullptr );

    ::CloseHandle( hFile );

    return;
}

LONG CALLBACK unhandled_handler( ::EXCEPTION_POINTERS* e ) {
    make_minidump( e );
    return EXCEPTION_CONTINUE_SEARCH;
}
#endif

int main( int argc, char *argv[] ) {

#if defined(_MSC_VER) && defined (_DEBUG)
    // memory leaks
    _CrtSetDbgFlag( _CrtSetDbgFlag( _CRTDBG_REPORT_FLAG ) | _CRTDBG_LEAK_CHECK_DF );
    // floating point operation errors
    auto state = _clearfp();
    state = _control87( 0, 0 );
    // this will turn on FPE for #IND and zerodiv
    state = _control87( state & ~( _EM_ZERODIVIDE | _EM_INVALID ), _MCW_EM );
#endif
#ifdef _WINDOWS
    ::SetUnhandledExceptionFilter( unhandled_handler );
#endif

    if( !glfwInit() )
        return -1;

    DeleteFile( "errors.txt" );
    Global::LoadIniFile( "eu07.ini" );
    Global::InitKeys();

    // hunter-271211: ukrywanie konsoli
    if( Global::iWriteLogEnabled & 2 ) {
        AllocConsole();
        SetConsoleTextAttribute( GetStdHandle( STD_OUTPUT_HANDLE ), FOREGROUND_GREEN );
    }

    for( int i = 1; i < argc; i++ ) {
        std::string token( argv[ i ] );

        if( token == "-modifytga" )
            Global::iModifyTGA = -1;
        else if( token == "-e3d" ) {
            if( Global::iConvertModels > 0 )
                Global::iConvertModels = -Global::iConvertModels;
            else
                Global::iConvertModels = -7; // z optymalizacją, bananami i prawidłowym Opacity
        }
        else if( i + 1 < argc && token == "-s" )
            Global::SceneryFile = std::string( argv[ ++i ] );
        else if( i + 1 < argc && token == "-v" ) {
            std::string v( argv[ ++i ] );
            std::transform( v.begin(), v.end(), v.begin(), ::tolower );
            Global::asHumanCtrlVehicle = v;
        }
        else {
            std::cout << "usage: " << std::string( argv[ 0 ] ) << " [-s sceneryfilepath] "
                << "[-v vehiclename] [-modifytga] [-e3d]" << std::endl;
            return -1;
        }
    }

    // match requested video mode to current to allow for
    // fullwindow creation when resolution is the same
    GLFWmonitor *monitor = glfwGetPrimaryMonitor();
    const GLFWvidmode *vmode = glfwGetVideoMode( monitor );

    glfwWindowHint( GLFW_RED_BITS, vmode->redBits );
    glfwWindowHint( GLFW_GREEN_BITS, vmode->greenBits );
    glfwWindowHint( GLFW_BLUE_BITS, vmode->blueBits );
    glfwWindowHint( GLFW_REFRESH_RATE, vmode->refreshRate );

    glfwWindowHint( GLFW_AUTO_ICONIFY, GLFW_FALSE );
    glfwWindowHint( GLFW_SAMPLES, 1 << Global::iMultisampling );

    if( Global::bFullScreen ) {
        // match screen dimensions with selected monitor, for 'borderless window' in fullscreen mode
        Global::iWindowWidth = vmode->width;
        Global::iWindowHeight = vmode->height;
    }

    GLFWwindow *window =
        glfwCreateWindow( Global::iWindowWidth, Global::iWindowHeight,
        "EU07", Global::bFullScreen ? monitor : nullptr, nullptr );

    if( !window ) {
        std::cout << "failed to create window" << std::endl;
        return -1;
    }
    glfwMakeContextCurrent( window );
    glfwSwapInterval( (Global::VSync ? 1 : 0) ); //vsync
    glfwSetInputMode( window, GLFW_CURSOR, GLFW_CURSOR_DISABLED ); //capture cursor
    glfwSetCursorPos( window, 0.0, 0.0 );
    glfwSetFramebufferSizeCallback( window, window_resize_callback );
    glfwSetCursorPosCallback( window, cursor_pos_callback );
    glfwSetKeyCallback( window, key_callback );
    glfwSetWindowFocusCallback( window, focus_callback );
    {
        int width, height;
        glfwGetFramebufferSize( window, &width, &height );
        window_resize_callback( window, width, height );
    }

    if( glewInit() != GLEW_OK ) {
        std::cout << "failed to init GLEW" << std::endl;
        return -1;
    }

#ifdef _WINDOWS
    // setup wrapper for base glfw window proc, to handle copydata messages
    Hwnd = glfwGetWin32Window( window );
    BaseWindowProc = (WNDPROC)::SetWindowLongPtr( Hwnd, GWLP_WNDPROC, (LONG)WndProc );
    // switch off the topmost flag
    ::SetWindowPos( Hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE );
#endif

    GfxRenderer.Init();

    Global::pWorld = &World; // Ra: wskaźnik potrzebny do usuwania pojazdów
    if( !World.Init( window ) ) {
        std::cout << "failed to init TWorld" << std::endl;
        return -1;
    }

    Console *pConsole = new Console(); // Ra: nie wiem, czy ma to sens, ale jakoś zainicjowac trzeba

    if( !joyGetNumDevs() )
        WriteLog( "No joystick" );
    if( Global::iModifyTGA < 0 ) { // tylko modyfikacja TGA, bez uruchamiania symulacji
        Global::iMaxTextureSize = 64; //żeby nie zamulać pamięci
        World.ModifyTGA(); // rekurencyjne przeglądanie katalogów
    }
    else {
        if( Global::iConvertModels < 0 ) {
            Global::iConvertModels = -Global::iConvertModels;
            World.CreateE3D( "models\\" ); // rekurencyjne przeglądanie katalogów
            World.CreateE3D( "dynamic\\", true );
        } // po zrobieniu E3D odpalamy normalnie scenerię, by ją zobaczyć

        Console::On(); // włączenie konsoli
        while( !glfwWindowShouldClose( window ) && World.Update() ) {
            glfwSwapBuffers( window );
            glfwPollEvents();
        }
        Console::Off(); // wyłączenie konsoli (komunikacji zwrotnej)
    }

    TPythonInterpreter::killInstance();
    delete pConsole;

    glfwDestroyWindow( window );
    glfwTerminate();
    return 0;
}