GEItemScriptsDlg.cpp

Go to the documentation of this file.

/*
===========================================================================

Doom 3 GPL Source Code
Copyright (C) 1999-2011 id Software LLC, a ZeniMax Media company. 

This file is part of the Doom 3 GPL Source Code (?Doom 3 Source Code?).  

Doom 3 Source Code 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 3 of the License, or
(at your option) any later version.

Doom 3 Source Code 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.

You should have received a copy of the GNU General Public License
along with Doom 3 Source Code.  If not, see <http://www.gnu.org/licenses/>.

In addition, the Doom 3 Source Code is also subject to certain additional terms. You should have received a copy of these additional terms immediately following the terms and conditions of the GNU General Public License which accompanied the Doom 3 Source Code.  If not, please request a copy in writing from id Software at the address below.

If you have questions concerning this license or the applicable additional terms, you may contact in writing id Software LLC, c/o ZeniMax Media Inc., Suite 120, Rockville, Maryland 20850 USA.

===========================================================================
*/

#include "../../idlib/precompiled.h"
#pragma hdrstop

#include "../../sys/win32/rc/guied_resource.h"

#include "GEApp.h"
#include "GEPropertyPage.h"

LRESULT CALLBACK GEScriptEdit_WndProc ( HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam )
{
        WNDPROC wndproc = (WNDPROC) GetWindowLong ( hwnd, GWL_USERDATA );
        
        switch ( msg )
        {
                case WM_CHAR:
                        if ( wParam == VK_ESCAPE )
                        {
                                SendMessage ( GetParent ( hwnd ), WM_CLOSE, 0, 0 );
                        }
                        break;
                        
                case WM_GETDLGCODE:
                        return DLGC_WANTALLKEYS;
        }
        
        return CallWindowProc ( wndproc, hwnd, msg, wParam, lParam );
}       

bool GEItescriptsDlg_Init ( HWND hwnd )
{
        idWindow*                       window;
        rvGEWindowWrapper*      wrapper;
        HWND                            script;
        
        // Extract the window pointer from the win32 windows user data long
        window = (idWindow*)GetWindowLong ( hwnd, GWL_USERDATA );
        assert ( window );
        
        // Get the window wrapper of the script window
        wrapper = rvGEWindowWrapper::GetWrapper ( window );
        assert ( wrapper );
        
        // Get the edit box used to edit the script
        script = GetDlgItem ( hwnd, IDC_GUIED_SCRIPT );

        UINT tabsize = 16;
        SendMessage ( script, EM_SETTABSTOPS, 1, (LPARAM)&tabsize );
        SetWindowLong ( script, GWL_USERDATA, GetWindowLong ( script, GWL_WNDPROC ) );
        SetWindowLong ( script, GWL_WNDPROC, (LONG) GEScriptEdit_WndProc );                                     

        TEXTMETRIC tm;
        HDC dc;
        dc = GetDC ( script );
        GetTextMetrics ( dc, &tm );
        ReleaseDC ( script, dc );

        LOGFONT lf;
        ZeroMemory ( &lf, sizeof(lf) );
        lf.lfHeight = tm.tmHeight;
        strcpy ( lf.lfFaceName, "Courier New" );        
        
        SendMessage ( script, WM_SETFONT, (WPARAM)CreateFontIndirect ( &lf ), 0 );

        SendMessage ( script, EM_SETMARGINS, EC_LEFTMARGIN|EC_RIGHTMARGIN, MAKELONG(10,10) );

        int i;

        for ( i = 0; i < wrapper->GetVariableDict().GetNumKeyVals ( ); i ++ )
        {
                const idKeyValue* key = wrapper->GetVariableDict().GetKeyVal ( i );
                
                SendMessage ( script, EM_SETSEL, -1, -1 );
                SendMessage ( script, EM_REPLACESEL, FALSE, (LPARAM)key->GetKey().c_str() );            
                SendMessage ( script, EM_SETSEL, -1, -1 );
                SendMessage ( script, EM_REPLACESEL, FALSE, (LPARAM)"\t" );             
                SendMessage ( script, EM_SETSEL, -1, -1 );
                SendMessage ( script, EM_REPLACESEL, FALSE, (LPARAM)key->GetValue().c_str() );          
                SendMessage ( script, EM_SETSEL, -1, -1 );
                SendMessage ( script, EM_REPLACESEL, FALSE, (LPARAM)"\r\n" );   
        }
        
        if ( i )
        {
                SendMessage ( script, EM_SETSEL, -1, -1 );
                SendMessage ( script, EM_REPLACESEL, FALSE, (LPARAM)"\r\n" );   
        }
        
        for ( i = 0; i < wrapper->GetScriptDict().GetNumKeyVals ( ); i ++ )
        {
                const idKeyValue* key = wrapper->GetScriptDict().GetKeyVal ( i );
                
                SendMessage ( script, EM_SETSEL, -1, -1 );
                SendMessage ( script, EM_REPLACESEL, FALSE, (LPARAM)va("%s\r\n", key->GetKey().c_str() ) );
                SendMessage ( script, EM_SETSEL, -1, -1 );
                SendMessage ( script, EM_REPLACESEL, FALSE, (LPARAM)key->GetValue().c_str() );
                SendMessage ( script, EM_SETSEL, -1, -1 );
                SendMessage ( script, EM_REPLACESEL, FALSE, (LPARAM)"\r\n\r\n" );       
        }

        SendMessage ( script, EM_SETSEL, 0, 0 );
        SendMessage ( script, EM_SCROLLCARET, 0, 0 );
        
        return true;    
}

bool GEItescriptsDlg_Apply ( HWND hwnd )
{
        idWindow*                       window;
        rvGEWindowWrapper*      wrapper;
        HWND                            script;
        
        // Extract the window pointer from the win32 windows user data long
        window = (idWindow*)GetWindowLong ( hwnd, GWL_USERDATA );
        assert ( window );
        
        // Get the window wrapper of the script window
        wrapper = rvGEWindowWrapper::GetWrapper ( window );
        assert ( wrapper );
        
        // Get the edit box used to edit the script
        script = GetDlgItem ( hwnd, IDC_GUIED_SCRIPT );

        GETTEXTLENGTHEX textLen;
        int                             chars;
        textLen.flags = GTL_DEFAULT|GTL_USECRLF;
        textLen.codepage = CP_ACP;
        chars = SendMessage ( script, EM_GETTEXTLENGTHEX, (WPARAM)&textLen, 0 );
        
        char* text = new char[chars+1];
        
        GETTEXTEX getText;
        getText.cb = chars+1;
        getText.codepage = CP_ACP;
        getText.flags = GT_DEFAULT|GT_USECRLF;
        getText.lpDefaultChar = NULL;
        getText.lpUsedDefChar = NULL;
        SendMessage ( script, EM_GETTEXTEX, (WPARAM)&getText, (LPARAM)text );
        
        idStr parse = text;
        delete[] text;
        
        try 
        {
                idParser src ( parse, parse.Length(), "", LEXFL_ALLOWMULTICHARLITERALS | LEXFL_NOSTRINGCONCAT | LEXFL_ALLOWBACKSLASHSTRINGCONCAT );
                idToken token;

                wrapper->GetVariableDict().Clear ( );
                wrapper->GetScriptDict().Clear ( );

                while ( src.ReadToken ( &token ) )
                {               
                        idStr scriptName;
                        idStr out;

                        if ( !token.Icmp ("definevec4") )
                        {
                                idToken token2;
                                idStr   result;

                                if ( !src.ReadToken ( &token2 ) )
                                {
                                        src.Error ( "expected define name" );
                                        return false;
                                }

                                idWinVec4                               var;
                                idUserInterfaceLocal    ui;
                                idWindow                                tempwin ( &ui );
                                idStr                                   out;
                                int                                             i;
                                
                                src.SetMarker ( );
                                for ( i = 0; i < 3; i ++ )
                                {
                                        tempwin.ParseExpression ( &src, &var );
                                        src.ExpectTokenString(",");
                                }

                                tempwin.ParseExpression ( &src, &var );                                                         
                                src.GetStringFromMarker ( out, true );
                                
                                wrapper->GetVariableDict().Set ( token + "\t\"" + token2 + "\"", out );

                                continue;
                        }
                        else if ( !token.Icmp ( "definefloat" ) || !token.Icmp ( "float" ) )
                        {
                                idToken token2;
                                idStr   result;

                                if ( !src.ReadToken ( &token2 ) )
                                {
                                        src.Error ( "expected define name" );
                                        return false;
                                }
                                
                                idWinFloat                              var;
                                idUserInterfaceLocal    ui;
                                idWindow                                tempwin ( &ui );
                                idStr                                   out;

                                src.SetMarker ( );
                                tempwin.ParseExpression ( &src, &var );
                                src.GetStringFromMarker ( out, true );

                                wrapper->GetVariableDict().Set ( token + "\t\"" + token2 + "\"", out );
                                
                                continue;
                        }               
                        // If the token is a scriptdef then just parse out the 
                        // braced section and add it to the list.  Right now only
                        // one scriptdef per window is supported
                        else if ( !token.Icmp ( "scriptdef" ) )
                        {
                                scriptName = "scriptDef";
                        }
                        else if ( !token.Icmp ( "ontime" ) )
                        {
                                if ( !src.ReadToken ( &token ) )
                                {
                                        src.Error ( "expected time" );
                                        return false;
                                }
                                
                                scriptName = "onTime ";
                                scriptName.Append ( token );
                        }
                        else if ( !token.Icmp ( "onevent" ) )
                        {
                                if ( !src.ReadToken ( &token ) )
                                {
                                        src.Error ( "expected time" );
                                        return false;
                                }
                                
                                scriptName = "onEvent ";
                                scriptName.Append ( token );
                        }
                        else
                        {
                                int i;
                                
                                for( i = 0; i < idWindow::SCRIPT_COUNT; i ++ )
                                {
                                        if ( idStr::Icmp ( idWindow::ScriptNames[i], token ) == 0 )
                                        {
                                                scriptName = idWindow::ScriptNames[i];
                                                break;
                                        }
                                }                                                               

                                if ( i >= idWindow::SCRIPT_COUNT )
                                {
                                        src.Error ( "expected script name" );
                                        return false;
                                }
                        }                       
                        
                        if ( !src.ParseBracedSectionExact ( out, 1) )
                        {
                                return false;
                        }
                        
                        wrapper->GetScriptDict().Set ( scriptName, out );
                }
        }
        catch ( idException &e )
        {               
                MessageBox ( hwnd, e.error, "Script Error", MB_OK|MB_ICONERROR);
                return false;
        }
        
        return true;
}

INT_PTR CALLBACK GEItescriptsDlg_WndProc ( HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam )
{
        switch ( msg )
        {
                case WM_INITDIALOG:
                        SetWindowLong ( hwnd, GWL_USERDATA, lParam );
                        GEItescriptsDlg_Init ( hwnd );

                        gApp.GetOptions().GetWindowPlacement ( "scripts", hwnd );

                        // Let it fall through so the scripts window gets resized.

                case WM_SIZE:
                {
                        RECT rClient;
                        GetClientRect ( hwnd, &rClient );
                        MoveWindow ( GetDlgItem ( hwnd, IDC_GUIED_SCRIPT ), 
                                                 rClient.left, rClient.top, 
                                                 rClient.right - rClient.left,
                                                 rClient.bottom - rClient.top, 
                                                 FALSE );
                        break;
                }

                case WM_ERASEBKGND:
                        return TRUE;

                        
                case WM_CLOSE:
                        if ( !GEItescriptsDlg_Apply ( hwnd ) )
                        {
                                return TRUE;
                        }
                        gApp.GetOptions().SetWindowPlacement ( "scripts", hwnd );
                        EndDialog ( hwnd, 1 );
                        break;
        }
        
        return FALSE;
}

/*
================
GEItemScriptsDlg_DoModal

Starts the item properties dialog
================
*/
bool GEItemScriptsDlg_DoModal ( HWND parent, idWindow* window )
{
        LoadLibrary ( "Riched20.dll" );

        if ( DialogBoxParam ( gApp.GetInstance(), MAKEINTRESOURCE(IDD_GUIED_SCRIPTS), parent, GEItescriptsDlg_WndProc, (LPARAM) window ) )
        {
                return true;
        }
        
        return false;
}