void Cvar_Set_ex_f (void)
{
cvar_t *var;
char *var_name;
char *st = NULL;
char text_exp[1024];
if (Cmd_Argc() != 3) {
Com_Printf ("usage: set_ex <cvar> <value>\n");
return;
}
var_name = Cmd_Argv (1);
var = Cvar_Find (var_name);
if ( !var ) {
if (Cmd_Exists(var_name)) {
Com_Printf ("\"%s\" is a command\n", var_name);
return;
}
var = Cvar_Create(var_name, "", 0);
}
Cmd_ExpandString( Cmd_Argv(2), text_exp);
st = TP_ParseMacroString( text_exp );
st = TP_ParseFunChars(st, false);
Cvar_Set (var, st );
}
void Cmd_ExecuteString (const char *text)
{
cmd_function_t *cmd;
cmd_alias_t *a;
int key;
static char buf[1024];
Cmd_ExpandString (text, buf);
Cmd_TokenizeString (buf);
// execute the command line
if (!Cmd_Argc())
return; // no tokens
key = Com_HashKey (cmd_argv[0]);
// check functions
for (cmd=cmd_hash_array[key] ; cmd ; cmd=cmd->hash_next)
{
if (!strcasecmp (cmd_argv[0], cmd->name))
{
if (cmd->function)
cmd->function ();
return;
}
}
// check cvars
if (Cvar_Command())
return;
// check alias
for (a=cmd_alias_hash[key] ; a ; a=a->hash_next)
{
if (!strcasecmp (cmd_argv[0], a->name))
{
Cbuf_InsertText ("\n");
Cbuf_InsertText (a->value);
return;
}
}
if (PR_ConsoleCmd())
return;
Con_Printf ("Unknown command \"%s\"\n", Cmd_Argv(0));
}
/*
===============
CL_Say
Handles both say and say_team
===============
*/
void CL_Say (qbool team)
{
extern cvar_t cl_fakename;
char text[1024], sendtext[1024], *s;
if (Cmd_Argc() < 2) {
if (team)
Com_Printf ("say_team <text>: send a team message\n");
else
Com_Printf ("say <text>: send a chat message\n");
return;
}
if (cls.state == ca_disconnected) {
Com_Printf ("Can't \"%s\", not connected\n", Cmd_Argv(0));
return;
}
MSG_WriteByte (&cls.netchan.message, clc_stringcmd);
SZ_Print (&cls.netchan.message, team ? "say_team " : "say ");
s = TP_ParseMacroString (Cmd_Args());
strlcpy (text, TP_ParseFunChars (s, true), sizeof(text));
sendtext[0] = 0;
if (team && !cl.spectator && cl_fakename.string[0] &&
!strchr(s, '\x0d') /* explicit $\ in message overrides cl_fakename */) {
char buf[1024];
Cmd_ExpandString (cl_fakename.string, buf);
strcpy (buf, TP_ParseMacroString (buf));
Q_snprintf (sendtext, sizeof(sendtext), "\x0d%s: ", TP_ParseFunChars(buf, true));
}
strlcat (sendtext, text, sizeof(sendtext));
if (sendtext[0] < 32)
SZ_Print (&cls.netchan.message, "\""); // add quotes so that old servers parse the message correctly
SZ_Print (&cls.netchan.message, sendtext);
if (sendtext[0] < 32)
SZ_Print (&cls.netchan.message, "\""); // add quotes so that old servers parse the message correctly
}
/*
============
Cmd_ExecuteString
A complete command line has been parsed, so try to execute it
FIXME: this function is getting really messy...
============
*/
void Cmd_ExecuteString (char *text)
{
cmd_function_t *cmd;
cmd_alias_t *a;
int key;
static char buf[1024];
cbuf_t *inserttarget;
#ifndef SERVERONLY
char **s;
#endif
Cmd_ExpandString (text, buf);
Cmd_TokenizeString (buf);
// execute the command line
if (!Cmd_Argc())
return; // no tokens
inserttarget = &cbuf_main;
#ifndef SERVERONLY
if (cbuf_current == &cbuf_safe)
inserttarget = &cbuf_safe;
if (cbuf_current == &cbuf_svc) {
if (CL_CheckServerCommand())
return;
}
#endif
key = Com_HashKey (cmd_argv[0]);
// check functions
for (cmd=cmd_hash_array[key] ; cmd ; cmd=cmd->hash_next)
{
if (!Q_stricmp (cmd_argv[0], cmd->name))
{
#ifndef SERVERONLY
// special check for msg_trigger commands
if (cbuf_current == &cbuf_safe) {
for (s = safe_commands; *s; s++) {
if (!Q_stricmp(cmd_argv[0], *s))
break;
}
if (!*s) {
if (cl_warncmd.value || developer.value)
Com_Printf ("\"%s\" cannot be used in message triggers\n", cmd_argv[0]);
return;
}
}
#endif
if (cmd->function)
cmd->function ();
else
Cmd_ForwardToServer ();
return;
}
}
// some bright guy decided to use "skill" as a mod command in Custom TF, sigh
if (!strcmp(Cmd_Argv(0), "skill") && Cmd_Argc() == 1 && Cmd_FindAlias("skill"))
goto checkaliases;
// check cvars
if (Cvar_Command())
return;
// check alias
checkaliases:
for (a=cmd_alias_hash[key] ; a ; a=a->hash_next)
{
if (!Q_stricmp (cmd_argv[0], a->name))
{
#ifndef SERVERONLY
if (cbuf_current == &cbuf_svc) {
Cbuf_AddText (a->value);
Cbuf_AddText ("\n");
}
else
#endif
{
Cbuf_InsertTextEx (inserttarget, "\n");
// if the alias value is a command or cvar and
// the alias is called with parameters, add them
if (Cmd_Argc() > 1 && !strchr(a->value, ' ') && !strchr(a->value, '\t')
&& (Cvar_FindVar(a->value) || (Cmd_FindCommand(a->value)
&& a->value[0] != '+' && a->value[0] != '-')))
{
Cbuf_InsertTextEx (inserttarget, Cmd_Args());
Cbuf_InsertTextEx (inserttarget, " ");
}
Cbuf_InsertTextEx (inserttarget, a->value);
}
return;
}
}
if (Cmd_LegacyCommand())
return;
if (!host_initialized && Cmd_Argc() > 1) {
if (Cvar_CreateTempVar())
return;
}
#ifndef SERVERONLY
if (cbuf_current != &cbuf_svc)
#endif
if (cl_warncmd.value || developer.value)
Com_Printf ("Unknown command \"%s\"\n", Cmd_Argv(0));
}
