mirror of
https://git.code.sf.net/p/quake/quakeforge
synced 2024-11-10 15:22:04 +00:00
make global printing a little more robust
This commit is contained in:
Bill Currie
parent
e1afa3221c
commit
718c708cec
2 changed files with 238 additions and 262 deletions
|
|
@ -614,3 +614,241 @@ PR_Profile (progs_t * pr)
|
|||
}
|
||||
} while (best);
|
||||
}
|
||||
|
||||
static const char *
|
||||
value_string (progs_t *pr, etype_t type, pr_type_t *val)
|
||||
{
|
||||
static dstring_t *line;
|
||||
ddef_t *def;
|
||||
int ofs;
|
||||
dfunction_t *f;
|
||||
|
||||
if (!line)
|
||||
line = dstring_new ();
|
||||
|
||||
type &= ~DEF_SAVEGLOBAL;
|
||||
|
||||
switch (type) {
|
||||
case ev_string:
|
||||
if (!PR_StringValid (pr, val->string_var))
|
||||
return "*** invalid ***";
|
||||
dsprintf (line, "\"%s\"", PR_GetString (pr, val->string_var));
|
||||
break;
|
||||
case ev_entity:
|
||||
dsprintf (line, "entity %i",
|
||||
NUM_FOR_BAD_EDICT (pr, PROG_TO_EDICT (pr, val->entity_var)));
|
||||
break;
|
||||
case ev_func:
|
||||
if (val->func_var < 0 || val->func_var >= pr->progs->numfunctions)
|
||||
dsprintf (line, "INVALID:%d", val->func_var);
|
||||
else if (!val->func_var)
|
||||
return "NULL";
|
||||
else {
|
||||
f = pr->pr_functions + val->func_var;
|
||||
dsprintf (line, "%s()", PR_GetString (pr, f->s_name));
|
||||
}
|
||||
break;
|
||||
case ev_field:
|
||||
def = ED_FieldAtOfs (pr, val->integer_var);
|
||||
dsprintf (line, ".%s", PR_GetString (pr, def->s_name));
|
||||
break;
|
||||
case ev_void:
|
||||
return "void";
|
||||
case ev_float:
|
||||
dsprintf (line, "%g", val->float_var);
|
||||
break;
|
||||
case ev_vector:
|
||||
dsprintf (line, "'%g %g %g'",
|
||||
val->vector_var[0], val->vector_var[1],
|
||||
val->vector_var[2]);
|
||||
break;
|
||||
case ev_pointer:
|
||||
def = 0;
|
||||
ofs = val->integer_var;
|
||||
if (pr_debug->int_val && pr->debug)
|
||||
def = PR_Get_Local_Def (pr, ofs);
|
||||
if (!def)
|
||||
def = ED_GlobalAtOfs (pr, ofs);
|
||||
if (def && def->s_name)
|
||||
dsprintf (line, "&%s", PR_GetString (pr, def->s_name));
|
||||
else
|
||||
dsprintf (line, "[$%x]", ofs);
|
||||
break;
|
||||
case ev_quaternion:
|
||||
dsprintf (line, "'%g %g %g %g'",
|
||||
val->vector_var[0], val->vector_var[1],
|
||||
val->vector_var[2], val->vector_var[3]);
|
||||
break;
|
||||
case ev_integer:
|
||||
dsprintf (line, "%d", val->integer_var);
|
||||
break;
|
||||
case ev_uinteger:
|
||||
dsprintf (line, "$%08x", val->uinteger_var);
|
||||
break;
|
||||
case ev_sel:
|
||||
dsprintf (line, "(SEL) %s", PR_GetString (pr, val->string_var));
|
||||
break;
|
||||
default:
|
||||
dsprintf (line, "bad type %i", type);
|
||||
break;
|
||||
}
|
||||
|
||||
return line->str;
|
||||
}
|
||||
|
||||
static ddef_t *
|
||||
def_string (progs_t *pr, int ofs, dstring_t *dstr)
|
||||
{
|
||||
ddef_t *def;
|
||||
const char *name;
|
||||
|
||||
if (pr_debug->int_val && pr->debug)
|
||||
def = PR_Get_Local_Def (pr, ofs);
|
||||
if (!def)
|
||||
def = ED_GlobalAtOfs (pr, ofs);
|
||||
if (!def || !*(name = PR_GetString (pr, def->s_name)))
|
||||
dsprintf (dstr, "[$%x]", ofs);
|
||||
else
|
||||
dsprintf (dstr, "%s", name);
|
||||
return def;
|
||||
}
|
||||
|
||||
/*
|
||||
PR_GlobalString
|
||||
|
||||
Returns a string with a description and the contents of a global
|
||||
*/
|
||||
const char *
|
||||
PR_GlobalString (progs_t *pr, int ofs, etype_t type)
|
||||
{
|
||||
ddef_t *def = NULL;
|
||||
static dstring_t *line = NULL;
|
||||
const char *s;
|
||||
|
||||
if (!line)
|
||||
line = dstring_newstr();
|
||||
|
||||
if (type == ev_short) {
|
||||
dsprintf (line, "%04x", (short) ofs);
|
||||
return line->str;
|
||||
}
|
||||
|
||||
def = def_string (pr, ofs, line);
|
||||
|
||||
if (def || type != ev_void) {
|
||||
const char *oi = "";
|
||||
if (def) {
|
||||
if (type == ev_void)
|
||||
type = def->type;
|
||||
if (type != (etype_t) (def->type & ~DEF_SAVEGLOBAL))
|
||||
oi = "?";
|
||||
}
|
||||
|
||||
if (ofs > pr->globals_size)
|
||||
s = "Out of bounds";
|
||||
else
|
||||
s = value_string (pr, type, &pr->pr_globals[ofs]);
|
||||
|
||||
if (strequal(line->str, "IMMEDIATE") || strequal(line->str, ".imm")) {
|
||||
dsprintf (line, "%s", s);
|
||||
} else {
|
||||
if (!def)
|
||||
dasprintf (line, "(%08x)", ofs);
|
||||
dasprintf (line, "%s(%s)", oi, s);
|
||||
}
|
||||
}
|
||||
return line->str;
|
||||
}
|
||||
|
||||
const char *
|
||||
PR_GlobalStringNoContents (progs_t *pr, int ofs, etype_t type)
|
||||
{
|
||||
static dstring_t *line = NULL;
|
||||
|
||||
if (!line)
|
||||
line = dstring_newstr();
|
||||
|
||||
if (type == ev_short) {
|
||||
dsprintf (line, "%x", (short) ofs);
|
||||
return line->str;
|
||||
}
|
||||
|
||||
def_string (pr, ofs, line);
|
||||
|
||||
return line->str;
|
||||
}
|
||||
|
||||
/*
|
||||
ED_Print
|
||||
|
||||
For debugging
|
||||
*/
|
||||
void
|
||||
ED_Print (progs_t *pr, edict_t *ed)
|
||||
{
|
||||
int l;
|
||||
unsigned int i;
|
||||
const char *name;
|
||||
int type;
|
||||
ddef_t *d;
|
||||
pr_type_t *v;
|
||||
|
||||
if (ed->free) {
|
||||
Sys_Printf ("FREE\n");
|
||||
return;
|
||||
}
|
||||
|
||||
Sys_Printf ("\nEDICT %i:\n", NUM_FOR_BAD_EDICT (pr, ed));
|
||||
for (i = 0; i < pr->progs->numfielddefs; i++) {
|
||||
d = &pr->pr_fielddefs[i];
|
||||
if (!d->s_name) // null field def (probably 1st)
|
||||
continue;
|
||||
name = PR_GetString (pr, d->s_name);
|
||||
if (name[strlen (name) - 2] == '_')
|
||||
continue; // skip _x, _y, _z vars
|
||||
|
||||
v = ed->v + d->ofs;
|
||||
|
||||
// if the value is still all 0, skip the field
|
||||
type = d->type & ~DEF_SAVEGLOBAL;
|
||||
|
||||
switch (type) {
|
||||
case ev_entity:
|
||||
case ev_integer:
|
||||
case ev_uinteger:
|
||||
case ev_pointer:
|
||||
case ev_func:
|
||||
case ev_field:
|
||||
if (!v->integer_var)
|
||||
continue;
|
||||
break;
|
||||
case ev_sel:
|
||||
if (!v[0].integer_var
|
||||
&& !PR_GetString (pr, v[1].string_var)[0])
|
||||
continue;
|
||||
break;
|
||||
case ev_string:
|
||||
if (PR_StringValid (pr, v->string_var))
|
||||
if (!PR_GetString (pr, v->string_var)[0])
|
||||
continue;
|
||||
break;
|
||||
case ev_float:
|
||||
if (!v->float_var)
|
||||
continue;
|
||||
break;
|
||||
case ev_vector:
|
||||
if (!v[0].float_var && !v[1].float_var && !v[2].float_var)
|
||||
continue;
|
||||
break;
|
||||
default:
|
||||
PR_Error (pr, "ED_Print: Unhandled type %d", type);
|
||||
}
|
||||
|
||||
Sys_Printf ("%s", name);
|
||||
l = strlen (name);
|
||||
while (l++ < 15)
|
||||
Sys_Printf (" ");
|
||||
|
||||
Sys_Printf ("%s\n", value_string (pr, d->type, v));
|
||||
}
|
||||
}
|
||||
|
|
|
|||
|
|
@ -184,268 +184,6 @@ ED_Free (progs_t *pr, edict_t *ed)
|
|||
|
||||
//===========================================================================
|
||||
|
||||
/*
|
||||
PR_ValueString
|
||||
|
||||
Returns a string describing *data in a type-specific manner
|
||||
*/
|
||||
static const char *
|
||||
PR_ValueString (progs_t *pr, etype_t type, pr_type_t *val)
|
||||
{
|
||||
static char line[256];
|
||||
ddef_t *def;
|
||||
int ofs;
|
||||
dfunction_t *f;
|
||||
|
||||
type &= ~DEF_SAVEGLOBAL;
|
||||
|
||||
switch (type) {
|
||||
case ev_string:
|
||||
if (PR_StringValid (pr, val->string_var))
|
||||
snprintf (line, sizeof (line), "%s",
|
||||
PR_GetString (pr, val->string_var));
|
||||
else
|
||||
strcpy (line, "*** invalid ***");
|
||||
break;
|
||||
case ev_entity:
|
||||
snprintf (line, sizeof (line), "entity %i",
|
||||
NUM_FOR_BAD_EDICT (pr, PROG_TO_EDICT (pr, val->entity_var)));
|
||||
break;
|
||||
case ev_func:
|
||||
if (val->func_var < 0 || val->func_var >= pr->progs->numfunctions)
|
||||
snprintf (line, sizeof (line), "INVALID:%d", val->func_var);
|
||||
else if (!val->func_var)
|
||||
return "NULL";
|
||||
else {
|
||||
f = pr->pr_functions + val->func_var;
|
||||
snprintf (line, sizeof (line), "%s()",
|
||||
PR_GetString (pr, f->s_name));
|
||||
}
|
||||
break;
|
||||
case ev_field:
|
||||
def = ED_FieldAtOfs (pr, val->integer_var);
|
||||
snprintf (line, sizeof (line), ".%s",
|
||||
PR_GetString (pr, def->s_name));
|
||||
break;
|
||||
case ev_void:
|
||||
strcpy (line, "void");
|
||||
break;
|
||||
case ev_float:
|
||||
snprintf (line, sizeof (line), "%g", val->float_var);
|
||||
break;
|
||||
case ev_vector:
|
||||
snprintf (line, sizeof (line), "'%g %g %g'",
|
||||
val->vector_var[0], val->vector_var[1],
|
||||
val->vector_var[2]);
|
||||
break;
|
||||
case ev_pointer:
|
||||
def = 0;
|
||||
ofs = val->integer_var;
|
||||
if (pr_debug->int_val && pr->debug)
|
||||
def = PR_Get_Local_Def (pr, ofs);
|
||||
if (!def)
|
||||
def = ED_GlobalAtOfs (pr, ofs);
|
||||
if (def && def->s_name)
|
||||
snprintf (line, sizeof (line), "&%s",
|
||||
PR_GetString (pr, def->s_name));
|
||||
else
|
||||
snprintf (line, sizeof (line), "[$%x]", ofs);
|
||||
break;
|
||||
case ev_quaternion:
|
||||
snprintf (line, sizeof (line), "'%g %g %g %g'",
|
||||
val->vector_var[0], val->vector_var[1],
|
||||
val->vector_var[2], val->vector_var[3]);
|
||||
break;
|
||||
case ev_integer:
|
||||
snprintf (line, sizeof (line), "%d", val->integer_var);
|
||||
break;
|
||||
case ev_uinteger:
|
||||
snprintf (line, sizeof (line), "$%08x", val->uinteger_var);
|
||||
break;
|
||||
case ev_sel:
|
||||
snprintf (line, sizeof (line), "(SEL) %s",
|
||||
PR_GetString (pr, val->string_var));
|
||||
break;
|
||||
default:
|
||||
snprintf (line, sizeof (line), "bad type %i", type);
|
||||
break;
|
||||
}
|
||||
|
||||
return line;
|
||||
}
|
||||
|
||||
/*
|
||||
PR_GlobalString
|
||||
|
||||
Returns a string with a description and the contents of a global
|
||||
*/
|
||||
const char *
|
||||
PR_GlobalString (progs_t *pr, int ofs, etype_t type)
|
||||
{
|
||||
ddef_t *def = NULL;
|
||||
static dstring_t *line = NULL;
|
||||
const char *s;
|
||||
|
||||
if (!line)
|
||||
line = dstring_newstr();
|
||||
|
||||
if (type == ev_short) {
|
||||
dsprintf (line, "%04x", (short) ofs);
|
||||
return line->str;
|
||||
}
|
||||
|
||||
if (pr_debug->int_val && pr->debug)
|
||||
def = PR_Get_Local_Def (pr, ofs);
|
||||
if (!def)
|
||||
def = ED_GlobalAtOfs (pr, ofs);
|
||||
if (!def && type == ev_void)
|
||||
dsprintf (line, "[$%x]", ofs);
|
||||
else {
|
||||
const char *name = "?";
|
||||
const char *oi = "";
|
||||
if (def) {
|
||||
if (type == ev_void)
|
||||
type = def->type;
|
||||
name = PR_GetString (pr, def->s_name);
|
||||
if (!*name)
|
||||
dsprintf (line, "[$%x]", ofs);
|
||||
if (type != (etype_t) (def->type & ~DEF_SAVEGLOBAL))
|
||||
oi = "?";
|
||||
}
|
||||
|
||||
if (ofs > pr->globals_size)
|
||||
s = "Out of bounds";
|
||||
else
|
||||
s = PR_ValueString (pr, type, &pr->pr_globals[ofs]);
|
||||
|
||||
if (strequal(name, "IMMEDIATE") || strequal(name, ".imm")) {
|
||||
if (type == ev_string)
|
||||
dsprintf (line, "\"%s\"", s);
|
||||
else
|
||||
dsprintf (line, "%s", s);
|
||||
} else if (strequal(name, "?"))
|
||||
if (type == ev_string)
|
||||
dsprintf (line, "[$%x](%08x)\"%s\"", ofs,
|
||||
pr->pr_globals[ofs].integer_var, s);
|
||||
else
|
||||
dsprintf (line, "[$%x](%08x)%s", ofs,
|
||||
pr->pr_globals[ofs].integer_var, s);
|
||||
else {
|
||||
if (type == ev_func)
|
||||
dsprintf (line, "%s%s", name, oi);
|
||||
else if (type == ev_string)
|
||||
dsprintf (line, "%s%s\"%s\"", name, oi, s);
|
||||
else
|
||||
dsprintf (line, "%s%s(%s)", name, oi, s);
|
||||
}
|
||||
}
|
||||
return line->str;
|
||||
}
|
||||
|
||||
const char *
|
||||
PR_GlobalStringNoContents (progs_t *pr, int ofs, etype_t type)
|
||||
{
|
||||
static dstring_t *line = NULL;
|
||||
ddef_t *def = NULL;
|
||||
const char *name;
|
||||
|
||||
if (!line)
|
||||
line = dstring_newstr();
|
||||
|
||||
if (type == ev_short) {
|
||||
dsprintf (line, "%x", (short) ofs);
|
||||
return line->str;
|
||||
}
|
||||
|
||||
if (pr_debug->int_val && pr->debug)
|
||||
def = PR_Get_Local_Def (pr, ofs);
|
||||
if (!def)
|
||||
def = ED_GlobalAtOfs (pr, ofs);
|
||||
if (!def)
|
||||
dsprintf (line, "[$%x]", ofs);
|
||||
else if (!*(name = PR_GetString (pr, def->s_name)))
|
||||
dsprintf (line, "[$%x]", ofs);
|
||||
else
|
||||
dsprintf (line, "%s", name);
|
||||
|
||||
return line->str;
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
ED_Print
|
||||
|
||||
For debugging
|
||||
*/
|
||||
void
|
||||
ED_Print (progs_t *pr, edict_t *ed)
|
||||
{
|
||||
int l;
|
||||
unsigned int i;
|
||||
const char *name;
|
||||
int type;
|
||||
ddef_t *d;
|
||||
pr_type_t *v;
|
||||
|
||||
if (ed->free) {
|
||||
Sys_Printf ("FREE\n");
|
||||
return;
|
||||
}
|
||||
|
||||
Sys_Printf ("\nEDICT %i:\n", NUM_FOR_BAD_EDICT (pr, ed));
|
||||
for (i = 0; i < pr->progs->numfielddefs; i++) {
|
||||
d = &pr->pr_fielddefs[i];
|
||||
if (!d->s_name) // null field def (probably 1st)
|
||||
continue;
|
||||
name = PR_GetString (pr, d->s_name);
|
||||
if (name[strlen (name) - 2] == '_')
|
||||
continue; // skip _x, _y, _z vars
|
||||
|
||||
v = ed->v + d->ofs;
|
||||
|
||||
// if the value is still all 0, skip the field
|
||||
type = d->type & ~DEF_SAVEGLOBAL;
|
||||
|
||||
switch (type) {
|
||||
case ev_entity:
|
||||
case ev_integer:
|
||||
case ev_uinteger:
|
||||
case ev_pointer:
|
||||
case ev_func:
|
||||
case ev_field:
|
||||
if (!v->integer_var)
|
||||
continue;
|
||||
break;
|
||||
case ev_sel:
|
||||
if (!v[0].integer_var
|
||||
&& !PR_GetString (pr, v[1].string_var)[0])
|
||||
continue;
|
||||
break;
|
||||
case ev_string:
|
||||
if (PR_StringValid (pr, v->string_var))
|
||||
if (!PR_GetString (pr, v->string_var)[0])
|
||||
continue;
|
||||
break;
|
||||
case ev_float:
|
||||
if (!v->float_var)
|
||||
continue;
|
||||
break;
|
||||
case ev_vector:
|
||||
if (!v[0].float_var && !v[1].float_var && !v[2].float_var)
|
||||
continue;
|
||||
break;
|
||||
default:
|
||||
PR_Error (pr, "ED_Print: Unhandled type %d", type);
|
||||
}
|
||||
|
||||
Sys_Printf ("%s", name);
|
||||
l = strlen (name);
|
||||
while (l++ < 15)
|
||||
Sys_Printf (" ");
|
||||
|
||||
Sys_Printf ("%s\n", PR_ValueString (pr, d->type, v));
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
void
|
||||
|
|
|
|||
Loading…
Reference in a new issue