mirror of
https://github.com/dhewm/dhewm3.git
synced 2024-11-30 16:11:11 +00:00
363 lines
No EOL
9.4 KiB
C++
363 lines
No EOL
9.4 KiB
C++
/*
|
|
===========================================================================
|
|
|
|
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;
|
|
}
|
|
|