mirror of
https://github.com/ZDoom/qzdoom.git
synced 2024-12-16 07:21:28 +00:00
f85e3fb9a0
This may look as a workaround, it is not. nosave cvars are meant to be used as a storage for statistical data that doesn't affect gameplay. That's why this data isn't saved to the savefile in the first place. Therefore, there is no point in sending this data over network. It would have no meaning on machines other than local.
1854 lines
37 KiB
C++
1854 lines
37 KiB
C++
/*
|
|
** c_cvars.cpp
|
|
** Defines all the different console variable types
|
|
**
|
|
**---------------------------------------------------------------------------
|
|
** Copyright 1998-2006 Randy Heit
|
|
** All rights reserved.
|
|
**
|
|
** Redistribution and use in source and binary forms, with or without
|
|
** modification, are permitted provided that the following conditions
|
|
** are met:
|
|
**
|
|
** 1. Redistributions of source code must retain the above copyright
|
|
** notice, this list of conditions and the following disclaimer.
|
|
** 2. Redistributions in binary form must reproduce the above copyright
|
|
** notice, this list of conditions and the following disclaimer in the
|
|
** documentation and/or other materials provided with the distribution.
|
|
** 3. The name of the author may not be used to endorse or promote products
|
|
** derived from this software without specific prior written permission.
|
|
**
|
|
** THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
|
|
** IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
|
** OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
|
** IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
|
** INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
|
** NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
|
** DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
|
** THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
** (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
|
** THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
**---------------------------------------------------------------------------
|
|
**
|
|
*/
|
|
|
|
#include <string.h>
|
|
#include <assert.h>
|
|
|
|
#include "cmdlib.h"
|
|
#include "configfile.h"
|
|
#include "c_console.h"
|
|
#include "c_dispatch.h"
|
|
|
|
#include "g_game.h"
|
|
#include "d_player.h"
|
|
#include "v_video.h"
|
|
#include "d_netinf.h"
|
|
#include "serializer.h"
|
|
|
|
#include "menu/menu.h"
|
|
#include "vm.h"
|
|
|
|
#include "version.h"
|
|
|
|
struct FLatchedValue
|
|
{
|
|
FBaseCVar *Variable;
|
|
UCVarValue Value;
|
|
ECVarType Type;
|
|
bool UnsafeContext;
|
|
};
|
|
|
|
static TArray<FLatchedValue> LatchedValues;
|
|
|
|
bool FBaseCVar::m_DoNoSet = false;
|
|
bool FBaseCVar::m_UseCallback = false;
|
|
|
|
FBaseCVar *CVars = NULL;
|
|
|
|
int cvar_defflags;
|
|
|
|
FBaseCVar::FBaseCVar (const char *var_name, uint32_t flags, void (*callback)(FBaseCVar &))
|
|
{
|
|
if (var_name != nullptr && (flags & CVAR_SERVERINFO))
|
|
{
|
|
// This limitation is imposed by network protocol which uses only 6 bits
|
|
// for name's length with terminating null character
|
|
static const size_t NAME_LENGHT_MAX = 63;
|
|
|
|
if (strlen(var_name) > NAME_LENGHT_MAX)
|
|
{
|
|
I_FatalError("Name of the server console variable \"%s\" is too long.\n"
|
|
"Its length should not exceed %zu characters.\n", var_name, NAME_LENGHT_MAX);
|
|
}
|
|
}
|
|
|
|
FBaseCVar *var;
|
|
|
|
var = FindCVar (var_name, NULL);
|
|
|
|
m_Callback = callback;
|
|
Flags = 0;
|
|
Name = NULL;
|
|
inCallback = false;
|
|
|
|
if (var_name)
|
|
{
|
|
C_AddTabCommand (var_name);
|
|
Name = copystring (var_name);
|
|
m_Next = CVars;
|
|
CVars = this;
|
|
}
|
|
|
|
if (var)
|
|
{
|
|
ECVarType type;
|
|
UCVarValue value;
|
|
|
|
value = var->GetFavoriteRep (&type);
|
|
ForceSet (value, type);
|
|
|
|
if (var->Flags & CVAR_AUTO)
|
|
delete var;
|
|
else
|
|
var->~FBaseCVar();
|
|
|
|
Flags = flags;
|
|
}
|
|
else
|
|
{
|
|
Flags = flags | CVAR_ISDEFAULT;
|
|
}
|
|
}
|
|
|
|
FBaseCVar::~FBaseCVar ()
|
|
{
|
|
if (Name)
|
|
{
|
|
FBaseCVar *var, *prev;
|
|
|
|
var = FindCVar (Name, &prev);
|
|
|
|
if (var == this)
|
|
{
|
|
if (prev)
|
|
prev->m_Next = m_Next;
|
|
else
|
|
CVars = m_Next;
|
|
}
|
|
C_RemoveTabCommand(Name);
|
|
delete[] Name;
|
|
}
|
|
}
|
|
|
|
const char *FBaseCVar::GetHumanString(int precision) const
|
|
{
|
|
return GetGenericRep(CVAR_String).String;
|
|
}
|
|
|
|
void FBaseCVar::ForceSet (UCVarValue value, ECVarType type, bool nouserinfosend)
|
|
{
|
|
DoSet (value, type);
|
|
if ((Flags & CVAR_USERINFO) && !nouserinfosend && !(Flags & CVAR_IGNORE))
|
|
D_UserInfoChanged (this);
|
|
if (m_UseCallback)
|
|
Callback ();
|
|
|
|
if ((Flags & CVAR_ARCHIVE) && !(Flags & CVAR_UNSAFECONTEXT))
|
|
{
|
|
SafeValue = GetGenericRep(CVAR_String).String;
|
|
}
|
|
|
|
Flags &= ~(CVAR_ISDEFAULT | CVAR_UNSAFECONTEXT);
|
|
}
|
|
|
|
void FBaseCVar::SetGenericRep (UCVarValue value, ECVarType type)
|
|
{
|
|
if ((Flags & CVAR_NOSET) && m_DoNoSet)
|
|
{
|
|
return;
|
|
}
|
|
else if ((Flags & CVAR_LATCH) && gamestate != GS_FULLCONSOLE && gamestate != GS_STARTUP)
|
|
{
|
|
FLatchedValue latch;
|
|
|
|
latch.Variable = this;
|
|
latch.Type = type;
|
|
if (type != CVAR_String)
|
|
latch.Value = value;
|
|
else
|
|
latch.Value.String = copystring(value.String);
|
|
latch.UnsafeContext = !!(Flags & CVAR_UNSAFECONTEXT);
|
|
LatchedValues.Push (latch);
|
|
|
|
Flags &= ~CVAR_UNSAFECONTEXT;
|
|
}
|
|
else if ((Flags & CVAR_SERVERINFO) && gamestate != GS_STARTUP && !demoplayback)
|
|
{
|
|
if (netgame && !players[consoleplayer].settings_controller)
|
|
{
|
|
Printf ("Only setting controllers can change %s\n", Name);
|
|
Flags &= ~CVAR_UNSAFECONTEXT;
|
|
return;
|
|
}
|
|
if (Flags & CVAR_NOSAVEGAME)
|
|
{
|
|
ForceSet (value, type);
|
|
}
|
|
else
|
|
{
|
|
D_SendServerInfoChange (this, value, type);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
ForceSet (value, type);
|
|
}
|
|
}
|
|
|
|
DEFINE_ACTION_FUNCTION(_CVar, GetInt)
|
|
{
|
|
PARAM_SELF_STRUCT_PROLOGUE(FBaseCVar);
|
|
auto v = self->GetGenericRep(CVAR_Int);
|
|
ACTION_RETURN_INT(v.Int);
|
|
}
|
|
|
|
DEFINE_ACTION_FUNCTION(_CVar, GetFloat)
|
|
{
|
|
PARAM_SELF_STRUCT_PROLOGUE(FBaseCVar);
|
|
auto v = self->GetGenericRep(CVAR_Float);
|
|
ACTION_RETURN_FLOAT(v.Float);
|
|
}
|
|
|
|
DEFINE_ACTION_FUNCTION(_CVar, GetString)
|
|
{
|
|
PARAM_SELF_STRUCT_PROLOGUE(FBaseCVar);
|
|
auto v = self->GetGenericRep(CVAR_String);
|
|
ACTION_RETURN_STRING(v.String);
|
|
}
|
|
|
|
DEFINE_ACTION_FUNCTION(_CVar, SetInt)
|
|
{
|
|
// Only menus are allowed to change CVARs.
|
|
PARAM_SELF_STRUCT_PROLOGUE(FBaseCVar);
|
|
if (!(self->GetFlags() & CVAR_MOD))
|
|
{
|
|
// Only menus are allowed to change non-mod CVARs.
|
|
if (DMenu::InMenu == 0)
|
|
{
|
|
ThrowAbortException(X_OTHER, "Attempt to change CVAR '%s' outside of menu code", self->GetName());
|
|
}
|
|
}
|
|
PARAM_INT(val);
|
|
UCVarValue v;
|
|
v.Int = val;
|
|
self->SetGenericRep(v, CVAR_Int);
|
|
return 0;
|
|
}
|
|
|
|
DEFINE_ACTION_FUNCTION(_CVar, SetFloat)
|
|
{
|
|
PARAM_SELF_STRUCT_PROLOGUE(FBaseCVar);
|
|
if (!(self->GetFlags() & CVAR_MOD))
|
|
{
|
|
// Only menus are allowed to change non-mod CVARs.
|
|
if (DMenu::InMenu == 0)
|
|
{
|
|
ThrowAbortException(X_OTHER, "Attempt to change CVAR '%s' outside of menu code", self->GetName());
|
|
}
|
|
}
|
|
PARAM_FLOAT(val);
|
|
UCVarValue v;
|
|
v.Float = (float)val;
|
|
self->SetGenericRep(v, CVAR_Float);
|
|
return 0;
|
|
}
|
|
|
|
DEFINE_ACTION_FUNCTION(_CVar, SetString)
|
|
{
|
|
// Only menus are allowed to change CVARs.
|
|
PARAM_SELF_STRUCT_PROLOGUE(FBaseCVar);
|
|
if (!(self->GetFlags() & CVAR_MOD))
|
|
{
|
|
// Only menus are allowed to change non-mod CVARs.
|
|
if (DMenu::InMenu == 0)
|
|
{
|
|
ThrowAbortException(X_OTHER, "Attempt to change CVAR '%s' outside of menu code", self->GetName());
|
|
}
|
|
}
|
|
PARAM_STRING(val);
|
|
UCVarValue v;
|
|
v.String = val.GetChars();
|
|
self->SetGenericRep(v, CVAR_String);
|
|
return 0;
|
|
}
|
|
|
|
bool FBaseCVar::ToBool (UCVarValue value, ECVarType type)
|
|
{
|
|
switch (type)
|
|
{
|
|
case CVAR_Bool:
|
|
return value.Bool;
|
|
|
|
case CVAR_Int:
|
|
return !!value.Int;
|
|
|
|
case CVAR_Float:
|
|
return value.Float != 0.f;
|
|
|
|
case CVAR_String:
|
|
if (stricmp (value.String, "true") == 0)
|
|
return true;
|
|
else if (stricmp (value.String, "false") == 0)
|
|
return false;
|
|
else
|
|
return !!strtoll (value.String, NULL, 0);
|
|
|
|
default:
|
|
return false;
|
|
}
|
|
}
|
|
|
|
int FBaseCVar::ToInt (UCVarValue value, ECVarType type)
|
|
{
|
|
int res;
|
|
#if __GNUC__ <= 2
|
|
float tmp;
|
|
#endif
|
|
|
|
switch (type)
|
|
{
|
|
case CVAR_Bool: res = (int)value.Bool; break;
|
|
case CVAR_Int: res = value.Int; break;
|
|
#if __GNUC__ <= 2
|
|
case CVAR_Float: tmp = value.Float; res = (int)tmp; break;
|
|
#else
|
|
case CVAR_Float: res = (int)value.Float; break;
|
|
#endif
|
|
case CVAR_String:
|
|
{
|
|
if (stricmp (value.String, "true") == 0)
|
|
res = 1;
|
|
else if (stricmp (value.String, "false") == 0)
|
|
res = 0;
|
|
else
|
|
res = (int)strtoll (value.String, NULL, 0);
|
|
break;
|
|
}
|
|
default: res = 0; break;
|
|
}
|
|
return res;
|
|
}
|
|
|
|
float FBaseCVar::ToFloat (UCVarValue value, ECVarType type)
|
|
{
|
|
switch (type)
|
|
{
|
|
case CVAR_Bool:
|
|
return (float)value.Bool;
|
|
|
|
case CVAR_Int:
|
|
return (float)value.Int;
|
|
|
|
case CVAR_Float:
|
|
return value.Float;
|
|
|
|
case CVAR_String:
|
|
return (float)strtod (value.String, NULL);
|
|
|
|
default:
|
|
return 0.f;
|
|
}
|
|
}
|
|
|
|
static char cstrbuf[40];
|
|
static GUID cGUID;
|
|
static char truestr[] = "true";
|
|
static char falsestr[] = "false";
|
|
|
|
const char *FBaseCVar::ToString (UCVarValue value, ECVarType type)
|
|
{
|
|
switch (type)
|
|
{
|
|
case CVAR_Bool:
|
|
return value.Bool ? truestr : falsestr;
|
|
|
|
case CVAR_String:
|
|
return value.String;
|
|
|
|
case CVAR_Int:
|
|
mysnprintf (cstrbuf, countof(cstrbuf), "%i", value.Int);
|
|
break;
|
|
|
|
case CVAR_Float:
|
|
IGNORE_FORMAT_PRE
|
|
mysnprintf (cstrbuf, countof(cstrbuf), "%H", value.Float);
|
|
IGNORE_FORMAT_POST
|
|
break;
|
|
|
|
default:
|
|
strcpy (cstrbuf, "<huh?>");
|
|
break;
|
|
}
|
|
return cstrbuf;
|
|
}
|
|
|
|
UCVarValue FBaseCVar::FromBool (bool value, ECVarType type)
|
|
{
|
|
UCVarValue ret;
|
|
|
|
switch (type)
|
|
{
|
|
case CVAR_Bool:
|
|
ret.Bool = value;
|
|
break;
|
|
|
|
case CVAR_Int:
|
|
ret.Int = value;
|
|
break;
|
|
|
|
case CVAR_Float:
|
|
ret.Float = value;
|
|
break;
|
|
|
|
case CVAR_String:
|
|
ret.String = value ? truestr : falsestr;
|
|
break;
|
|
|
|
default:
|
|
break;
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
UCVarValue FBaseCVar::FromInt (int value, ECVarType type)
|
|
{
|
|
UCVarValue ret;
|
|
|
|
switch (type)
|
|
{
|
|
case CVAR_Bool:
|
|
ret.Bool = value != 0;
|
|
break;
|
|
|
|
case CVAR_Int:
|
|
ret.Int = value;
|
|
break;
|
|
|
|
case CVAR_Float:
|
|
ret.Float = (float)value;
|
|
break;
|
|
|
|
case CVAR_String:
|
|
mysnprintf (cstrbuf, countof(cstrbuf), "%i", value);
|
|
ret.String = cstrbuf;
|
|
break;
|
|
|
|
default:
|
|
break;
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
UCVarValue FBaseCVar::FromFloat (float value, ECVarType type)
|
|
{
|
|
UCVarValue ret;
|
|
|
|
switch (type)
|
|
{
|
|
case CVAR_Bool:
|
|
ret.Bool = value != 0.f;
|
|
break;
|
|
|
|
case CVAR_Int:
|
|
ret.Int = (int)value;
|
|
break;
|
|
|
|
case CVAR_Float:
|
|
ret.Float = value;
|
|
break;
|
|
|
|
case CVAR_String:
|
|
IGNORE_FORMAT_PRE
|
|
mysnprintf (cstrbuf, countof(cstrbuf), "%H", value);
|
|
IGNORE_FORMAT_POST
|
|
ret.String = cstrbuf;
|
|
break;
|
|
|
|
default:
|
|
break;
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
static uint8_t HexToByte (const char *hex)
|
|
{
|
|
uint8_t v = 0;
|
|
for (int i = 0; i < 2; ++i)
|
|
{
|
|
v <<= 4;
|
|
if (hex[i] >= '0' && hex[i] <= '9')
|
|
{
|
|
v += hex[i] - '0';
|
|
}
|
|
else if (hex[i] >= 'A' && hex[i] <= 'F')
|
|
{
|
|
v += hex[i] - 'A';
|
|
}
|
|
else // The string is already verified to contain valid hexits
|
|
{
|
|
v += hex[i] - 'a';
|
|
}
|
|
}
|
|
return v;
|
|
}
|
|
|
|
UCVarValue FBaseCVar::FromString (const char *value, ECVarType type)
|
|
{
|
|
UCVarValue ret;
|
|
|
|
switch (type)
|
|
{
|
|
case CVAR_Bool:
|
|
if (stricmp (value, "true") == 0)
|
|
ret.Bool = true;
|
|
else if (stricmp (value, "false") == 0)
|
|
ret.Bool = false;
|
|
else
|
|
ret.Bool = strtoll (value, NULL, 0) != 0;
|
|
break;
|
|
|
|
case CVAR_Int:
|
|
if (stricmp (value, "true") == 0)
|
|
ret.Int = 1;
|
|
else if (stricmp (value, "false") == 0)
|
|
ret.Int = 0;
|
|
else
|
|
ret.Int = (int)strtoll (value, NULL, 0);
|
|
break;
|
|
|
|
case CVAR_Float:
|
|
ret.Float = (float)strtod (value, NULL);
|
|
break;
|
|
|
|
case CVAR_String:
|
|
ret.String = const_cast<char *>(value);
|
|
break;
|
|
|
|
default:
|
|
break;
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
FBaseCVar *cvar_set (const char *var_name, const char *val)
|
|
{
|
|
FBaseCVar *var;
|
|
|
|
if ( (var = FindCVar (var_name, NULL)) )
|
|
{
|
|
UCVarValue value;
|
|
value.String = const_cast<char *>(val);
|
|
var->SetGenericRep (value, CVAR_String);
|
|
}
|
|
|
|
return var;
|
|
}
|
|
|
|
FBaseCVar *cvar_forceset (const char *var_name, const char *val)
|
|
{
|
|
FBaseCVar *var;
|
|
UCVarValue vval;
|
|
|
|
if ( (var = FindCVar (var_name, NULL)) )
|
|
{
|
|
vval.String = const_cast<char *>(val);
|
|
var->ForceSet (vval, CVAR_String);
|
|
}
|
|
|
|
return var;
|
|
}
|
|
|
|
void FBaseCVar::EnableNoSet ()
|
|
{
|
|
m_DoNoSet = true;
|
|
}
|
|
|
|
void FBaseCVar::EnableCallbacks ()
|
|
{
|
|
m_UseCallback = true;
|
|
FBaseCVar *cvar = CVars;
|
|
|
|
while (cvar)
|
|
{
|
|
if (!(cvar->Flags & CVAR_NOINITCALL))
|
|
{
|
|
cvar->Callback ();
|
|
}
|
|
cvar = cvar->m_Next;
|
|
}
|
|
}
|
|
|
|
void FBaseCVar::DisableCallbacks ()
|
|
{
|
|
m_UseCallback = false;
|
|
}
|
|
|
|
DEFINE_ACTION_FUNCTION(_CVar, GetRealType)
|
|
{
|
|
PARAM_SELF_STRUCT_PROLOGUE(FBaseCVar);
|
|
ACTION_RETURN_INT(self->GetRealType());
|
|
}
|
|
|
|
//
|
|
// Boolean cvar implementation
|
|
//
|
|
|
|
FBoolCVar::FBoolCVar (const char *name, bool def, uint32_t flags, void (*callback)(FBoolCVar &))
|
|
: FBaseCVar (name, flags, reinterpret_cast<void (*)(FBaseCVar &)>(callback))
|
|
{
|
|
DefaultValue = def;
|
|
if (Flags & CVAR_ISDEFAULT)
|
|
Value = def;
|
|
}
|
|
|
|
ECVarType FBoolCVar::GetRealType () const
|
|
{
|
|
return CVAR_Bool;
|
|
}
|
|
|
|
UCVarValue FBoolCVar::GetGenericRep (ECVarType type) const
|
|
{
|
|
return FromBool (Value, type);
|
|
}
|
|
|
|
UCVarValue FBoolCVar::GetFavoriteRep (ECVarType *type) const
|
|
{
|
|
UCVarValue ret;
|
|
*type = CVAR_Bool;
|
|
ret.Bool = Value;
|
|
return ret;
|
|
}
|
|
|
|
UCVarValue FBoolCVar::GetGenericRepDefault (ECVarType type) const
|
|
{
|
|
return FromBool (DefaultValue, type);
|
|
}
|
|
|
|
UCVarValue FBoolCVar::GetFavoriteRepDefault (ECVarType *type) const
|
|
{
|
|
UCVarValue ret;
|
|
*type = CVAR_Bool;
|
|
ret.Bool = DefaultValue;
|
|
return ret;
|
|
}
|
|
|
|
void FBoolCVar::SetGenericRepDefault (UCVarValue value, ECVarType type)
|
|
{
|
|
DefaultValue = ToBool (value, type);
|
|
if (Flags & CVAR_ISDEFAULT)
|
|
{
|
|
SetGenericRep (value, type);
|
|
Flags |= CVAR_ISDEFAULT;
|
|
}
|
|
}
|
|
|
|
void FBoolCVar::DoSet (UCVarValue value, ECVarType type)
|
|
{
|
|
Value = ToBool (value, type);
|
|
}
|
|
|
|
//
|
|
// Integer cvar implementation
|
|
//
|
|
|
|
FIntCVar::FIntCVar (const char *name, int def, uint32_t flags, void (*callback)(FIntCVar &))
|
|
: FBaseCVar (name, flags, reinterpret_cast<void (*)(FBaseCVar &)>(callback))
|
|
{
|
|
DefaultValue = def;
|
|
if (Flags & CVAR_ISDEFAULT)
|
|
Value = def;
|
|
}
|
|
|
|
ECVarType FIntCVar::GetRealType () const
|
|
{
|
|
return CVAR_Int;
|
|
}
|
|
|
|
UCVarValue FIntCVar::GetGenericRep (ECVarType type) const
|
|
{
|
|
return FromInt (Value, type);
|
|
}
|
|
|
|
UCVarValue FIntCVar::GetFavoriteRep (ECVarType *type) const
|
|
{
|
|
UCVarValue ret;
|
|
*type = CVAR_Int;
|
|
ret.Int = Value;
|
|
return ret;
|
|
}
|
|
|
|
UCVarValue FIntCVar::GetGenericRepDefault (ECVarType type) const
|
|
{
|
|
return FromInt (DefaultValue, type);
|
|
}
|
|
|
|
UCVarValue FIntCVar::GetFavoriteRepDefault (ECVarType *type) const
|
|
{
|
|
UCVarValue ret;
|
|
*type = CVAR_Int;
|
|
ret.Int = DefaultValue;
|
|
return ret;
|
|
}
|
|
|
|
void FIntCVar::SetGenericRepDefault (UCVarValue value, ECVarType type)
|
|
{
|
|
DefaultValue = ToInt (value, type);
|
|
if (Flags & CVAR_ISDEFAULT)
|
|
{
|
|
SetGenericRep (value, type);
|
|
Flags |= CVAR_ISDEFAULT;
|
|
}
|
|
}
|
|
|
|
void FIntCVar::DoSet (UCVarValue value, ECVarType type)
|
|
{
|
|
Value = ToInt (value, type);
|
|
}
|
|
|
|
//
|
|
// Floating point cvar implementation
|
|
//
|
|
|
|
FFloatCVar::FFloatCVar (const char *name, float def, uint32_t flags, void (*callback)(FFloatCVar &))
|
|
: FBaseCVar (name, flags, reinterpret_cast<void (*)(FBaseCVar &)>(callback))
|
|
{
|
|
DefaultValue = def;
|
|
if (Flags & CVAR_ISDEFAULT)
|
|
Value = def;
|
|
}
|
|
|
|
ECVarType FFloatCVar::GetRealType () const
|
|
{
|
|
return CVAR_Float;
|
|
}
|
|
|
|
const char *FFloatCVar::GetHumanString(int precision) const
|
|
{
|
|
if (precision < 0)
|
|
{
|
|
precision = 6;
|
|
}
|
|
mysnprintf(cstrbuf, countof(cstrbuf), "%.*g", precision, Value);
|
|
return cstrbuf;
|
|
}
|
|
|
|
UCVarValue FFloatCVar::GetGenericRep (ECVarType type) const
|
|
{
|
|
return FromFloat (Value, type);
|
|
}
|
|
|
|
UCVarValue FFloatCVar::GetFavoriteRep (ECVarType *type) const
|
|
{
|
|
UCVarValue ret;
|
|
*type = CVAR_Float;
|
|
ret.Float = Value;
|
|
return ret;
|
|
}
|
|
|
|
UCVarValue FFloatCVar::GetGenericRepDefault (ECVarType type) const
|
|
{
|
|
return FromFloat (DefaultValue, type);
|
|
}
|
|
|
|
UCVarValue FFloatCVar::GetFavoriteRepDefault (ECVarType *type) const
|
|
{
|
|
UCVarValue ret;
|
|
*type = CVAR_Float;
|
|
ret.Float = DefaultValue;
|
|
return ret;
|
|
}
|
|
|
|
void FFloatCVar::SetGenericRepDefault (UCVarValue value, ECVarType type)
|
|
{
|
|
DefaultValue = ToFloat (value, type);
|
|
if (Flags & CVAR_ISDEFAULT)
|
|
{
|
|
SetGenericRep (value, type);
|
|
Flags |= CVAR_ISDEFAULT;
|
|
}
|
|
}
|
|
|
|
void FFloatCVar::DoSet (UCVarValue value, ECVarType type)
|
|
{
|
|
Value = ToFloat (value, type);
|
|
}
|
|
|
|
//
|
|
// String cvar implementation
|
|
//
|
|
|
|
FStringCVar::FStringCVar (const char *name, const char *def, uint32_t flags, void (*callback)(FStringCVar &))
|
|
: FBaseCVar (name, flags, reinterpret_cast<void (*)(FBaseCVar &)>(callback))
|
|
{
|
|
DefaultValue = copystring (def);
|
|
if (Flags & CVAR_ISDEFAULT)
|
|
Value = copystring (def);
|
|
else
|
|
Value = NULL;
|
|
}
|
|
|
|
FStringCVar::~FStringCVar ()
|
|
{
|
|
if (Value != NULL)
|
|
{
|
|
delete[] Value;
|
|
}
|
|
delete[] DefaultValue;
|
|
}
|
|
|
|
ECVarType FStringCVar::GetRealType () const
|
|
{
|
|
return CVAR_String;
|
|
}
|
|
|
|
UCVarValue FStringCVar::GetGenericRep (ECVarType type) const
|
|
{
|
|
return FromString (Value, type);
|
|
}
|
|
|
|
UCVarValue FStringCVar::GetFavoriteRep (ECVarType *type) const
|
|
{
|
|
UCVarValue ret;
|
|
*type = CVAR_String;
|
|
ret.String = Value;
|
|
return ret;
|
|
}
|
|
|
|
UCVarValue FStringCVar::GetGenericRepDefault (ECVarType type) const
|
|
{
|
|
return FromString (DefaultValue, type);
|
|
}
|
|
|
|
UCVarValue FStringCVar::GetFavoriteRepDefault (ECVarType *type) const
|
|
{
|
|
UCVarValue ret;
|
|
*type = CVAR_String;
|
|
ret.String = DefaultValue;
|
|
return ret;
|
|
}
|
|
|
|
void FStringCVar::SetGenericRepDefault (UCVarValue value, ECVarType type)
|
|
{
|
|
ReplaceString(&DefaultValue, ToString(value, type));
|
|
if (Flags & CVAR_ISDEFAULT)
|
|
{
|
|
SetGenericRep (value, type);
|
|
Flags |= CVAR_ISDEFAULT;
|
|
}
|
|
}
|
|
|
|
void FStringCVar::DoSet (UCVarValue value, ECVarType type)
|
|
{
|
|
ReplaceString (&Value, ToString (value, type));
|
|
}
|
|
|
|
//
|
|
// Color cvar implementation
|
|
//
|
|
|
|
FColorCVar::FColorCVar (const char *name, int def, uint32_t flags, void (*callback)(FColorCVar &))
|
|
: FIntCVar (name, def, flags, reinterpret_cast<void (*)(FIntCVar &)>(callback))
|
|
{
|
|
}
|
|
|
|
ECVarType FColorCVar::GetRealType () const
|
|
{
|
|
return CVAR_Color;
|
|
}
|
|
|
|
UCVarValue FColorCVar::GetGenericRep (ECVarType type) const
|
|
{
|
|
return FromInt2 (Value, type);
|
|
}
|
|
|
|
UCVarValue FColorCVar::GetGenericRepDefault (ECVarType type) const
|
|
{
|
|
return FromInt2 (DefaultValue, type);
|
|
}
|
|
|
|
void FColorCVar::SetGenericRepDefault (UCVarValue value, ECVarType type)
|
|
{
|
|
DefaultValue = ToInt2 (value, type);
|
|
if (Flags & CVAR_ISDEFAULT)
|
|
{
|
|
SetGenericRep (value, type);
|
|
Flags |= CVAR_ISDEFAULT;
|
|
}
|
|
}
|
|
|
|
void FColorCVar::DoSet (UCVarValue value, ECVarType type)
|
|
{
|
|
Value = ToInt2 (value, type);
|
|
if (screen)
|
|
Index = ColorMatcher.Pick (RPART(Value), GPART(Value), BPART(Value));
|
|
}
|
|
|
|
UCVarValue FColorCVar::FromInt2 (int value, ECVarType type)
|
|
{
|
|
if (type == CVAR_String)
|
|
{
|
|
UCVarValue ret;
|
|
mysnprintf (cstrbuf, countof(cstrbuf), "%02x %02x %02x",
|
|
RPART(value), GPART(value), BPART(value));
|
|
ret.String = cstrbuf;
|
|
return ret;
|
|
}
|
|
return FromInt (value, type);
|
|
}
|
|
|
|
int FColorCVar::ToInt2 (UCVarValue value, ECVarType type)
|
|
{
|
|
int ret;
|
|
|
|
if (type == CVAR_String)
|
|
{
|
|
FString string;
|
|
// Only allow named colors after the screen exists (i.e. after
|
|
// we've got some lumps loaded, so X11R6RGB can be read). Since
|
|
// the only time this might be called before that is when loading
|
|
// zdoom.ini, this shouldn't be a problem.
|
|
if (screen && !(string = V_GetColorStringByName (value.String)).IsEmpty() )
|
|
{
|
|
ret = V_GetColorFromString (NULL, string);
|
|
}
|
|
else
|
|
{
|
|
ret = V_GetColorFromString (NULL, value.String);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
ret = ToInt (value, type);
|
|
}
|
|
return ret;
|
|
}
|
|
|
|
//
|
|
// More base cvar stuff
|
|
//
|
|
|
|
void FBaseCVar::ResetColors ()
|
|
{
|
|
FBaseCVar *var = CVars;
|
|
|
|
while (var)
|
|
{
|
|
if (var->GetRealType () == CVAR_Color)
|
|
{
|
|
var->DoSet (var->GetGenericRep (CVAR_Int), CVAR_Int);
|
|
}
|
|
var = var->m_Next;
|
|
}
|
|
}
|
|
|
|
void FBaseCVar::ResetToDefault ()
|
|
{
|
|
if (!(Flags & CVAR_ISDEFAULT))
|
|
{
|
|
UCVarValue val;
|
|
ECVarType type;
|
|
|
|
val = GetFavoriteRepDefault (&type);
|
|
SetGenericRep (val, type);
|
|
Flags |= CVAR_ISDEFAULT;
|
|
}
|
|
}
|
|
|
|
DEFINE_ACTION_FUNCTION(_CVar, ResetToDefault)
|
|
{
|
|
PARAM_SELF_STRUCT_PROLOGUE(FBaseCVar);
|
|
if (!(self->GetFlags() & CVAR_MOD))
|
|
{
|
|
// Only menus are allowed to change non-mod CVARs.
|
|
if (DMenu::InMenu == 0)
|
|
{
|
|
ThrowAbortException(X_OTHER, "Attempt to change CVAR '%s' outside of menu code", self->GetName());
|
|
}
|
|
}
|
|
|
|
self->ResetToDefault();
|
|
return 0;
|
|
}
|
|
|
|
void FBaseCVar::MarkUnsafe()
|
|
{
|
|
if (!(Flags & CVAR_MOD) && UnsafeExecutionContext)
|
|
{
|
|
Flags |= CVAR_UNSAFECONTEXT;
|
|
}
|
|
}
|
|
|
|
//
|
|
// Flag cvar implementation
|
|
//
|
|
// This type of cvar is not a "real" cvar. Instead, it gets and sets
|
|
// the value of a FIntCVar, modifying it bit-by-bit. As such, it has
|
|
// no default, and is not written to the .cfg or transferred around
|
|
// the network. The "host" cvar is responsible for that.
|
|
//
|
|
|
|
FFlagCVar::FFlagCVar (const char *name, FIntCVar &realvar, uint32_t bitval)
|
|
: FBaseCVar (name, 0, NULL),
|
|
ValueVar (realvar),
|
|
BitVal (bitval)
|
|
{
|
|
int bit;
|
|
|
|
Flags &= ~CVAR_ISDEFAULT;
|
|
|
|
assert (bitval != 0);
|
|
|
|
bit = 0;
|
|
while ((bitval >>= 1) != 0)
|
|
{
|
|
++bit;
|
|
}
|
|
BitNum = bit;
|
|
|
|
assert ((1u << BitNum) == BitVal);
|
|
}
|
|
|
|
ECVarType FFlagCVar::GetRealType () const
|
|
{
|
|
return CVAR_DummyBool;
|
|
}
|
|
|
|
UCVarValue FFlagCVar::GetGenericRep (ECVarType type) const
|
|
{
|
|
return FromBool ((ValueVar & BitVal) != 0, type);
|
|
}
|
|
|
|
UCVarValue FFlagCVar::GetFavoriteRep (ECVarType *type) const
|
|
{
|
|
UCVarValue ret;
|
|
*type = CVAR_Bool;
|
|
ret.Bool = (ValueVar & BitVal) != 0;
|
|
return ret;
|
|
}
|
|
|
|
UCVarValue FFlagCVar::GetGenericRepDefault (ECVarType type) const
|
|
{
|
|
ECVarType dummy;
|
|
UCVarValue def;
|
|
def = ValueVar.GetFavoriteRepDefault (&dummy);
|
|
return FromBool ((def.Int & BitVal) != 0, type);
|
|
}
|
|
|
|
UCVarValue FFlagCVar::GetFavoriteRepDefault (ECVarType *type) const
|
|
{
|
|
ECVarType dummy;
|
|
UCVarValue def;
|
|
def = ValueVar.GetFavoriteRepDefault (&dummy);
|
|
def.Bool = (def.Int & BitVal) != 0;
|
|
*type = CVAR_Bool;
|
|
return def;
|
|
}
|
|
|
|
void FFlagCVar::SetGenericRepDefault (UCVarValue value, ECVarType type)
|
|
{
|
|
bool newdef = ToBool (value, type);
|
|
ECVarType dummy;
|
|
UCVarValue def;
|
|
def = ValueVar.GetFavoriteRepDefault (&dummy);
|
|
if (newdef)
|
|
def.Int |= BitVal;
|
|
else
|
|
def.Int &= ~BitVal;
|
|
ValueVar.SetGenericRepDefault (def, CVAR_Int);
|
|
}
|
|
|
|
void FFlagCVar::DoSet (UCVarValue value, ECVarType type)
|
|
{
|
|
bool newval = ToBool (value, type);
|
|
|
|
// Server cvars that get changed by this need to use a special message, because
|
|
// changes are not processed until the next net update. This is a problem with
|
|
// exec scripts because all flags will base their changes off of the value of
|
|
// the "master" cvar at the time the script was run, overriding any changes
|
|
// another flag might have made to the same cvar earlier in the script.
|
|
if ((ValueVar.GetFlags() & CVAR_SERVERINFO) && gamestate != GS_STARTUP && !demoplayback)
|
|
{
|
|
if (netgame && !players[consoleplayer].settings_controller)
|
|
{
|
|
Printf ("Only setting controllers can change %s\n", Name);
|
|
return;
|
|
}
|
|
D_SendServerFlagChange (&ValueVar, BitNum, newval);
|
|
}
|
|
else
|
|
{
|
|
int val = *ValueVar;
|
|
if (newval)
|
|
val |= BitVal;
|
|
else
|
|
val &= ~BitVal;
|
|
ValueVar = val;
|
|
}
|
|
}
|
|
|
|
//
|
|
// Mask cvar implementation
|
|
//
|
|
// Similar to FFlagCVar but can have multiple bits
|
|
//
|
|
|
|
FMaskCVar::FMaskCVar (const char *name, FIntCVar &realvar, uint32_t bitval)
|
|
: FBaseCVar (name, 0, NULL),
|
|
ValueVar (realvar),
|
|
BitVal (bitval)
|
|
{
|
|
int bit;
|
|
|
|
Flags &= ~CVAR_ISDEFAULT;
|
|
|
|
assert (bitval != 0);
|
|
|
|
bit = 0;
|
|
while ((bitval & 1) == 0)
|
|
{
|
|
++bit;
|
|
bitval >>= 1;
|
|
}
|
|
BitNum = bit;
|
|
}
|
|
|
|
ECVarType FMaskCVar::GetRealType () const
|
|
{
|
|
return CVAR_DummyInt;
|
|
}
|
|
|
|
UCVarValue FMaskCVar::GetGenericRep (ECVarType type) const
|
|
{
|
|
return FromInt ((ValueVar & BitVal) >> BitNum, type);
|
|
}
|
|
|
|
UCVarValue FMaskCVar::GetFavoriteRep (ECVarType *type) const
|
|
{
|
|
UCVarValue ret;
|
|
*type = CVAR_Int;
|
|
ret.Int = (ValueVar & BitVal) >> BitNum;
|
|
return ret;
|
|
}
|
|
|
|
UCVarValue FMaskCVar::GetGenericRepDefault (ECVarType type) const
|
|
{
|
|
ECVarType dummy;
|
|
UCVarValue def;
|
|
def = ValueVar.GetFavoriteRepDefault (&dummy);
|
|
return FromInt ((def.Int & BitVal) >> BitNum, type);
|
|
}
|
|
|
|
UCVarValue FMaskCVar::GetFavoriteRepDefault (ECVarType *type) const
|
|
{
|
|
ECVarType dummy;
|
|
UCVarValue def;
|
|
def = ValueVar.GetFavoriteRepDefault (&dummy);
|
|
def.Int = (def.Int & BitVal) >> BitNum;
|
|
*type = CVAR_Int;
|
|
return def;
|
|
}
|
|
|
|
void FMaskCVar::SetGenericRepDefault (UCVarValue value, ECVarType type)
|
|
{
|
|
int val = ToInt(value, type) << BitNum;
|
|
ECVarType dummy;
|
|
UCVarValue def;
|
|
def = ValueVar.GetFavoriteRepDefault (&dummy);
|
|
def.Int &= ~BitVal;
|
|
def.Int |= val;
|
|
ValueVar.SetGenericRepDefault (def, CVAR_Int);
|
|
}
|
|
|
|
void FMaskCVar::DoSet (UCVarValue value, ECVarType type)
|
|
{
|
|
int val = ToInt(value, type) << BitNum;
|
|
|
|
// Server cvars that get changed by this need to use a special message, because
|
|
// changes are not processed until the next net update. This is a problem with
|
|
// exec scripts because all flags will base their changes off of the value of
|
|
// the "master" cvar at the time the script was run, overriding any changes
|
|
// another flag might have made to the same cvar earlier in the script.
|
|
if ((ValueVar.GetFlags() & CVAR_SERVERINFO) && gamestate != GS_STARTUP && !demoplayback)
|
|
{
|
|
if (netgame && !players[consoleplayer].settings_controller)
|
|
{
|
|
Printf ("Only setting controllers can change %s\n", Name);
|
|
return;
|
|
}
|
|
// Ugh...
|
|
for(int i = 0; i < 32; i++)
|
|
{
|
|
if (BitVal & (1<<i))
|
|
{
|
|
D_SendServerFlagChange (&ValueVar, i, !!(val & (1<<i)));
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
int vval = *ValueVar;
|
|
vval &= ~BitVal;
|
|
vval |= val;
|
|
ValueVar = vval;
|
|
}
|
|
}
|
|
|
|
|
|
////////////////////////////////////////////////////////////////////////
|
|
static int sortcvars (const void *a, const void *b)
|
|
{
|
|
return strcmp (((*(FBaseCVar **)a))->GetName(), ((*(FBaseCVar **)b))->GetName());
|
|
}
|
|
|
|
void FilterCompactCVars (TArray<FBaseCVar *> &cvars, uint32_t filter)
|
|
{
|
|
// Accumulate all cvars that match the filter flags.
|
|
for (FBaseCVar *cvar = CVars; cvar != NULL; cvar = cvar->m_Next)
|
|
{
|
|
if ((cvar->Flags & filter) && !(cvar->Flags & CVAR_IGNORE))
|
|
cvars.Push(cvar);
|
|
}
|
|
// Now sort them, so they're in a deterministic order and not whatever
|
|
// order the linker put them in.
|
|
if (cvars.Size() > 0)
|
|
{
|
|
qsort(&cvars[0], cvars.Size(), sizeof(FBaseCVar *), sortcvars);
|
|
}
|
|
}
|
|
|
|
void C_WriteCVars (uint8_t **demo_p, uint32_t filter, bool compact)
|
|
{
|
|
FString dump = C_GetMassCVarString(filter, compact);
|
|
size_t dumplen = dump.Len() + 1; // include terminating \0
|
|
memcpy(*demo_p, dump.GetChars(), dumplen);
|
|
*demo_p += dumplen;
|
|
}
|
|
|
|
FString C_GetMassCVarString (uint32_t filter, bool compact)
|
|
{
|
|
FBaseCVar *cvar;
|
|
FString dump;
|
|
|
|
if (compact)
|
|
{
|
|
TArray<FBaseCVar *> cvars;
|
|
dump.AppendFormat("\\\\%ux", filter);
|
|
FilterCompactCVars(cvars, filter);
|
|
while (cvars.Pop (cvar))
|
|
{
|
|
UCVarValue val = cvar->GetGenericRep(CVAR_String);
|
|
dump << '\\' << val.String;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
for (cvar = CVars; cvar != NULL; cvar = cvar->m_Next)
|
|
{
|
|
if ((cvar->Flags & filter) && !(cvar->Flags & (CVAR_NOSAVE|CVAR_IGNORE|CVAR_NOSAVEGAME)))
|
|
{
|
|
UCVarValue val = cvar->GetGenericRep(CVAR_String);
|
|
dump << '\\' << cvar->GetName() << '\\' << val.String;
|
|
}
|
|
}
|
|
}
|
|
return dump;
|
|
}
|
|
|
|
void C_SerializeCVars(FSerializer &arc, const char *label, uint32_t filter)
|
|
{
|
|
FBaseCVar* cvar;
|
|
FString dump;
|
|
|
|
if (arc.BeginObject(label))
|
|
{
|
|
if (arc.isWriting())
|
|
{
|
|
for (cvar = CVars; cvar != NULL; cvar = cvar->m_Next)
|
|
{
|
|
if ((cvar->Flags & filter) && !(cvar->Flags & (CVAR_NOSAVE | CVAR_IGNORE | CVAR_NOSAVEGAME)))
|
|
{
|
|
UCVarValue val = cvar->GetGenericRep(CVAR_String);
|
|
char* c = const_cast<char*>(val.String);
|
|
arc(cvar->GetName(), c);
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
for (cvar = CVars; cvar != NULL; cvar = cvar->m_Next)
|
|
{
|
|
if ((cvar->Flags & filter) && !(cvar->Flags & (CVAR_NOSAVE | CVAR_IGNORE | CVAR_NOSAVEGAME)))
|
|
{
|
|
UCVarValue val;
|
|
char *c = nullptr;
|
|
arc(cvar->GetName(), c);
|
|
if (c != nullptr)
|
|
{
|
|
val.String = c;
|
|
cvar->SetGenericRep(val, CVAR_String);
|
|
delete[] c;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
arc.EndObject();
|
|
}
|
|
}
|
|
|
|
void C_ReadCVars (uint8_t **demo_p)
|
|
{
|
|
char *ptr = *((char **)demo_p);
|
|
char *breakpt;
|
|
|
|
if (*ptr++ != '\\')
|
|
return;
|
|
|
|
if (*ptr == '\\')
|
|
{ // compact mode
|
|
TArray<FBaseCVar *> cvars;
|
|
FBaseCVar *cvar;
|
|
uint32_t filter;
|
|
|
|
ptr++;
|
|
breakpt = strchr (ptr, '\\');
|
|
*breakpt = 0;
|
|
filter = strtoul (ptr, NULL, 16);
|
|
*breakpt = '\\';
|
|
ptr = breakpt + 1;
|
|
|
|
FilterCompactCVars (cvars, filter);
|
|
|
|
while (cvars.Pop (cvar))
|
|
{
|
|
UCVarValue val;
|
|
breakpt = strchr (ptr, '\\');
|
|
if (breakpt)
|
|
*breakpt = 0;
|
|
val.String = ptr;
|
|
cvar->ForceSet (val, CVAR_String);
|
|
if (breakpt)
|
|
{
|
|
*breakpt = '\\';
|
|
ptr = breakpt + 1;
|
|
}
|
|
else
|
|
break;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
char *value;
|
|
|
|
while ( (breakpt = strchr (ptr, '\\')) )
|
|
{
|
|
*breakpt = 0;
|
|
value = breakpt + 1;
|
|
if ( (breakpt = strchr (value, '\\')) )
|
|
*breakpt = 0;
|
|
|
|
cvar_set (ptr, value);
|
|
|
|
*(value - 1) = '\\';
|
|
if (breakpt)
|
|
{
|
|
*breakpt = '\\';
|
|
ptr = breakpt + 1;
|
|
}
|
|
else
|
|
{
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
*demo_p += strlen (*((char **)demo_p)) + 1;
|
|
}
|
|
|
|
struct FCVarBackup
|
|
{
|
|
FString Name, String;
|
|
};
|
|
static TArray<FCVarBackup> CVarBackups;
|
|
|
|
void C_BackupCVars (void)
|
|
{
|
|
assert(CVarBackups.Size() == 0);
|
|
CVarBackups.Clear();
|
|
|
|
FCVarBackup backup;
|
|
|
|
for (FBaseCVar *cvar = CVars; cvar != NULL; cvar = cvar->m_Next)
|
|
{
|
|
if ((cvar->Flags & (CVAR_SERVERINFO|CVAR_DEMOSAVE)) && !(cvar->Flags & CVAR_LATCH))
|
|
{
|
|
backup.Name = cvar->GetName();
|
|
backup.String = cvar->GetGenericRep(CVAR_String).String;
|
|
CVarBackups.Push(backup);
|
|
}
|
|
}
|
|
}
|
|
|
|
void C_RestoreCVars (void)
|
|
{
|
|
for (unsigned int i = 0; i < CVarBackups.Size(); ++i)
|
|
{
|
|
cvar_set(CVarBackups[i].Name, CVarBackups[i].String);
|
|
}
|
|
C_ForgetCVars();
|
|
}
|
|
|
|
void C_ForgetCVars (void)
|
|
{
|
|
CVarBackups.Clear();
|
|
}
|
|
|
|
FBaseCVar *FindCVar (const char *var_name, FBaseCVar **prev)
|
|
{
|
|
FBaseCVar *var;
|
|
FBaseCVar *dummy;
|
|
|
|
if (var_name == NULL)
|
|
return NULL;
|
|
|
|
if (prev == NULL)
|
|
prev = &dummy;
|
|
|
|
var = CVars;
|
|
*prev = NULL;
|
|
while (var)
|
|
{
|
|
if (stricmp (var->GetName (), var_name) == 0)
|
|
break;
|
|
*prev = var;
|
|
var = var->m_Next;
|
|
}
|
|
return var;
|
|
}
|
|
|
|
DEFINE_ACTION_FUNCTION(_CVar, FindCVar)
|
|
{
|
|
PARAM_PROLOGUE;
|
|
PARAM_NAME(name);
|
|
ACTION_RETURN_POINTER(FindCVar(name, nullptr));
|
|
}
|
|
|
|
DEFINE_ACTION_FUNCTION(_CVar, GetCVar)
|
|
{
|
|
PARAM_PROLOGUE;
|
|
PARAM_NAME(name);
|
|
PARAM_POINTER(plyr, player_t);
|
|
ACTION_RETURN_POINTER(GetCVar(plyr ? int(plyr - players) : -1, name));
|
|
}
|
|
|
|
FBaseCVar *FindCVarSub (const char *var_name, int namelen)
|
|
{
|
|
FBaseCVar *var;
|
|
|
|
if (var_name == NULL)
|
|
return NULL;
|
|
|
|
var = CVars;
|
|
while (var)
|
|
{
|
|
const char *probename = var->GetName ();
|
|
|
|
if (strnicmp (probename, var_name, namelen) == 0 &&
|
|
probename[namelen] == 0)
|
|
{
|
|
break;
|
|
}
|
|
var = var->m_Next;
|
|
}
|
|
return var;
|
|
}
|
|
|
|
FBaseCVar *GetCVar(int playernum, const char *cvarname)
|
|
{
|
|
FBaseCVar *cvar = FindCVar(cvarname, nullptr);
|
|
// Either the cvar doesn't exist, or it's for a mod that isn't loaded, so return nullptr.
|
|
if (cvar == nullptr || (cvar->GetFlags() & CVAR_IGNORE))
|
|
{
|
|
return nullptr;
|
|
}
|
|
else
|
|
{
|
|
// For userinfo cvars, redirect to GetUserCVar
|
|
if (cvar->GetFlags() & CVAR_USERINFO)
|
|
{
|
|
return GetUserCVar(playernum, cvarname);
|
|
}
|
|
return cvar;
|
|
}
|
|
}
|
|
|
|
FBaseCVar *GetUserCVar(int playernum, const char *cvarname)
|
|
{
|
|
if ((unsigned)playernum >= MAXPLAYERS || !playeringame[playernum])
|
|
{
|
|
return nullptr;
|
|
}
|
|
FBaseCVar **cvar_p = players[playernum].userinfo.CheckKey(FName(cvarname, true));
|
|
FBaseCVar *cvar;
|
|
if (cvar_p == nullptr || (cvar = *cvar_p) == nullptr || (cvar->GetFlags() & CVAR_IGNORE))
|
|
{
|
|
return nullptr;
|
|
}
|
|
return cvar;
|
|
}
|
|
|
|
//===========================================================================
|
|
//
|
|
// C_CreateCVar
|
|
//
|
|
// Create a new cvar with the specified name and type. It should not already
|
|
// exist.
|
|
//
|
|
//===========================================================================
|
|
|
|
FBaseCVar *C_CreateCVar(const char *var_name, ECVarType var_type, uint32_t flags)
|
|
{
|
|
assert(FindCVar(var_name, NULL) == NULL);
|
|
flags |= CVAR_AUTO;
|
|
switch (var_type)
|
|
{
|
|
case CVAR_Bool: return new FBoolCVar(var_name, 0, flags);
|
|
case CVAR_Int: return new FIntCVar(var_name, 0, flags);
|
|
case CVAR_Float: return new FFloatCVar(var_name, 0, flags);
|
|
case CVAR_String: return new FStringCVar(var_name, NULL, flags);
|
|
case CVAR_Color: return new FColorCVar(var_name, 0, flags);
|
|
default: return NULL;
|
|
}
|
|
}
|
|
|
|
void UnlatchCVars (void)
|
|
{
|
|
for (const FLatchedValue& var : LatchedValues)
|
|
{
|
|
uint32_t oldflags = var.Variable->Flags;
|
|
var.Variable->Flags &= ~(CVAR_LATCH | CVAR_SERVERINFO);
|
|
if (var.UnsafeContext)
|
|
var.Variable->Flags |= CVAR_UNSAFECONTEXT;
|
|
var.Variable->SetGenericRep (var.Value, var.Type);
|
|
if (var.Type == CVAR_String)
|
|
delete[] var.Value.String;
|
|
var.Variable->Flags = oldflags;
|
|
}
|
|
|
|
LatchedValues.Clear();
|
|
}
|
|
|
|
void DestroyCVarsFlagged (uint32_t flags)
|
|
{
|
|
FBaseCVar *cvar = CVars;
|
|
FBaseCVar *next = cvar;
|
|
|
|
while(cvar)
|
|
{
|
|
next = cvar->m_Next;
|
|
|
|
if(cvar->Flags & flags)
|
|
delete cvar;
|
|
|
|
cvar = next;
|
|
}
|
|
}
|
|
|
|
void C_SetCVarsToDefaults (void)
|
|
{
|
|
FBaseCVar *cvar = CVars;
|
|
|
|
while (cvar)
|
|
{
|
|
// Only default save-able cvars
|
|
if (cvar->Flags & CVAR_ARCHIVE)
|
|
{
|
|
UCVarValue val;
|
|
ECVarType type;
|
|
val = cvar->GetFavoriteRepDefault (&type);
|
|
cvar->SetGenericRep (val, type);
|
|
}
|
|
cvar = cvar->m_Next;
|
|
}
|
|
}
|
|
|
|
static int cvarcmp(const void* a, const void* b)
|
|
{
|
|
FBaseCVar** A = (FBaseCVar**)a;
|
|
FBaseCVar** B = (FBaseCVar**)b;
|
|
return strcmp((*A)->GetName(), (*B)->GetName());
|
|
}
|
|
|
|
void C_ArchiveCVars (FConfigFile *f, uint32_t filter)
|
|
{
|
|
FBaseCVar *cvar = CVars;
|
|
TArray<FBaseCVar*> cvarlist;
|
|
|
|
while (cvar)
|
|
{
|
|
if ((cvar->Flags &
|
|
(CVAR_GLOBALCONFIG|CVAR_ARCHIVE|CVAR_MOD|CVAR_AUTO|CVAR_USERINFO|CVAR_SERVERINFO|CVAR_NOSAVE))
|
|
== filter)
|
|
{
|
|
cvarlist.Push(cvar);
|
|
}
|
|
cvar = cvar->m_Next;
|
|
}
|
|
qsort(cvarlist.Data(), cvarlist.Size(), sizeof(FBaseCVar*), cvarcmp);
|
|
for (auto cvar : cvarlist)
|
|
{
|
|
const char* const value = (cvar->Flags & CVAR_ISDEFAULT)
|
|
? cvar->GetGenericRep(CVAR_String).String
|
|
: cvar->SafeValue.GetChars();
|
|
f->SetValueForKey(cvar->GetName(), value);
|
|
}
|
|
}
|
|
|
|
EXTERN_CVAR(Bool, sv_cheats);
|
|
|
|
void FBaseCVar::CmdSet (const char *newval)
|
|
{
|
|
if ((GetFlags() & CVAR_CHEAT) && CheckCheatmode ())
|
|
return;
|
|
|
|
MarkUnsafe();
|
|
|
|
UCVarValue val;
|
|
|
|
// Casting away the const is safe in this case.
|
|
val.String = const_cast<char *>(newval);
|
|
SetGenericRep (val, CVAR_String);
|
|
|
|
if (GetFlags() & CVAR_NOSET)
|
|
Printf ("%s is write protected.\n", GetName());
|
|
else if (GetFlags() & CVAR_LATCH)
|
|
Printf ("%s will be changed for next game.\n", GetName());
|
|
}
|
|
|
|
CCMD (set)
|
|
{
|
|
if (argv.argc() != 3)
|
|
{
|
|
Printf ("usage: set <variable> <value>\n");
|
|
}
|
|
else
|
|
{
|
|
FBaseCVar *var;
|
|
|
|
var = FindCVar (argv[1], NULL);
|
|
if (var == NULL)
|
|
var = new FStringCVar (argv[1], NULL, CVAR_AUTO | CVAR_UNSETTABLE | cvar_defflags);
|
|
|
|
var->CmdSet (argv[2]);
|
|
}
|
|
}
|
|
|
|
CCMD (unset)
|
|
{
|
|
if (argv.argc() != 2)
|
|
{
|
|
Printf ("usage: unset <variable>\n");
|
|
}
|
|
else
|
|
{
|
|
FBaseCVar *var = FindCVar (argv[1], NULL);
|
|
if (var != NULL)
|
|
{
|
|
if (var->GetFlags() & CVAR_UNSETTABLE)
|
|
{
|
|
delete var;
|
|
}
|
|
else
|
|
{
|
|
Printf ("Cannot unset %s\n", argv[1]);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
CCMD (get)
|
|
{
|
|
FBaseCVar *var, *prev;
|
|
|
|
if (argv.argc() >= 2)
|
|
{
|
|
if ( (var = FindCVar (argv[1], &prev)) )
|
|
{
|
|
UCVarValue val;
|
|
val = var->GetGenericRep (CVAR_String);
|
|
Printf ("\"%s\" is \"%s\"\n", var->GetName(), val.String);
|
|
}
|
|
else
|
|
{
|
|
Printf ("\"%s\" is unset\n", argv[1]);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
Printf ("get: need variable name\n");
|
|
}
|
|
}
|
|
|
|
CCMD (toggle)
|
|
{
|
|
FBaseCVar *var, *prev;
|
|
UCVarValue val;
|
|
|
|
if (argv.argc() > 1)
|
|
{
|
|
if ( (var = FindCVar (argv[1], &prev)) )
|
|
{
|
|
var->MarkUnsafe();
|
|
|
|
val = var->GetGenericRep (CVAR_Bool);
|
|
val.Bool = !val.Bool;
|
|
var->SetGenericRep (val, CVAR_Bool);
|
|
Printf ("\"%s\" = \"%s\"\n", var->GetName(),
|
|
val.Bool ? "true" : "false");
|
|
}
|
|
}
|
|
}
|
|
|
|
void FBaseCVar::ListVars (const char *filter, bool plain)
|
|
{
|
|
FBaseCVar *var = CVars;
|
|
int count = 0;
|
|
|
|
while (var)
|
|
{
|
|
if (CheckWildcards (filter, var->GetName()))
|
|
{
|
|
uint32_t flags = var->GetFlags();
|
|
if (plain)
|
|
{ // plain formatting does not include user-defined cvars
|
|
if (!(flags & CVAR_UNSETTABLE))
|
|
{
|
|
++count;
|
|
Printf ("%s : %s\n", var->GetName(), var->GetHumanString());
|
|
}
|
|
}
|
|
else
|
|
{
|
|
++count;
|
|
Printf ("%c%c%c%c%c %s = %s\n",
|
|
flags & CVAR_ARCHIVE ? 'A' : ' ',
|
|
flags & CVAR_USERINFO ? 'U' :
|
|
flags & CVAR_SERVERINFO ? 'S' :
|
|
flags & CVAR_AUTO ? 'C' : ' ',
|
|
flags & CVAR_NOSET ? '-' :
|
|
flags & CVAR_LATCH ? 'L' :
|
|
flags & CVAR_UNSETTABLE ? '*' : ' ',
|
|
flags & CVAR_MOD ? 'M' : ' ',
|
|
flags & CVAR_IGNORE ? 'X' : ' ',
|
|
var->GetName(),
|
|
var->GetHumanString());
|
|
}
|
|
}
|
|
var = var->m_Next;
|
|
}
|
|
Printf ("%d cvars\n", count);
|
|
}
|
|
|
|
CCMD (cvarlist)
|
|
{
|
|
if (argv.argc() == 1)
|
|
{
|
|
FBaseCVar::ListVars (NULL, false);
|
|
}
|
|
else
|
|
{
|
|
FBaseCVar::ListVars (argv[1], false);
|
|
}
|
|
}
|
|
|
|
CCMD (cvarlistplain)
|
|
{
|
|
FBaseCVar::ListVars (NULL, true);
|
|
}
|
|
|
|
CCMD (archivecvar)
|
|
{
|
|
|
|
if (argv.argc() == 1)
|
|
{
|
|
Printf ("Usage: archivecvar <cvar>\n");
|
|
}
|
|
else
|
|
{
|
|
FBaseCVar *var = FindCVar (argv[1], NULL);
|
|
|
|
if (var != NULL && (var->GetFlags() & CVAR_AUTO))
|
|
{
|
|
var->SetArchiveBit ();
|
|
}
|
|
}
|
|
}
|
|
|
|
void C_GrabCVarDefaults ()
|
|
{
|
|
int lump, lastlump = 0;
|
|
int lumpversion, gamelastrunversion;
|
|
gamelastrunversion = atoi(LASTRUNVERSION);
|
|
|
|
while ((lump = Wads.FindLump("DEFCVARS", &lastlump)) != -1)
|
|
{
|
|
// don't parse from wads
|
|
if (lastlump > Wads.GetLastLump(Wads.GetMaxIwadNum()))
|
|
I_FatalError("Cannot load DEFCVARS from a wadfile!\n");
|
|
|
|
FScanner sc(lump);
|
|
|
|
sc.MustGetString();
|
|
if (!sc.Compare("version"))
|
|
sc.ScriptError("Must declare version for defcvars! (currently: %i)", gamelastrunversion);
|
|
sc.MustGetNumber();
|
|
lumpversion = sc.Number;
|
|
if (lumpversion > gamelastrunversion)
|
|
sc.ScriptError("Unsupported version %i (%i supported)", lumpversion, gamelastrunversion);
|
|
if (lumpversion < 219)
|
|
sc.ScriptError("Version must be at least 219 (current version %i)", gamelastrunversion);
|
|
|
|
FBaseCVar *var;
|
|
|
|
while (sc.GetString())
|
|
{
|
|
if (sc.Compare("set"))
|
|
{
|
|
sc.MustGetString();
|
|
}
|
|
var = FindCVar (sc.String, NULL);
|
|
if (var != NULL)
|
|
{
|
|
if (var->GetFlags() & CVAR_ARCHIVE)
|
|
{
|
|
UCVarValue val;
|
|
|
|
sc.MustGetString();
|
|
val.String = const_cast<char *>(sc.String);
|
|
var->SetGenericRepDefault(val, CVAR_String);
|
|
}
|
|
else
|
|
{
|
|
sc.ScriptError("Cannot set cvar default for non-config cvar '%s'", sc.String);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
sc.ScriptError("Unknown cvar '%s'", sc.String);
|
|
}
|
|
}
|
|
}
|
|
}
|