qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2024-11-10 23:32:09 +00:00
Code Issues Projects Releases Packages Wiki Activity

Cleaned up the return builtin and made variable stripping ([foo:bar])

Browse source 
more robust.
This commit is contained in:
Brian Koropoff 2002-08-23 07:45:46 +00:00
parent 6e8bd2aeb0
commit 5e9330ca21
2 changed files with 38 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
libs/util/gib_builtin.c
View file

@ -226,11 +226,13 @@ GIB_Return_f (void)
dstring_clearstr (sp->line);
if (GIB_Argc () == 1)
return;
if (!sp->up || !sp->up->up)
Cbuf_Error ("stack","return attempted at top of stack");
else if (sp->up->up->interpreter != &gib_interp)
Cbuf_Error ("stack","return to non-GIB command buffer attempted");
else if (GIB_DATA(sp->up->up)->ret.waiting) {
if (!sp->up || // Nothing above us on the stack
GIB_DATA(sp->up)->type != GIB_BUFFER_PROXY || // No proxy buffer created
!sp->up->up || // Nothing above proxy buffer on the stack
sp->up->up->interpreter != &gib_interp || // Not a GIB buffer
!GIB_DATA(sp->up->up)->ret.waiting) // Buffer doesn't want a return value
Sys_Printf("Warning: unwanted return value discarded.\n"); // Not a serious error
else {
dstring_clearstr (GIB_DATA(sp->up->up)->ret.retval);
dstring_appendstr (GIB_DATA(sp->up->up)->ret.retval, GIB_Argv(1));
GIB_DATA(sp->up->up)->ret.available = true;

46
libs/util/gib_process.c
View file

@ -63,24 +63,11 @@ GIB_Process_Index (dstring_t *index, unsigned int pos, int *i1, int *i2)
return -1;
}
v1 = atoi (index->str+pos+1);
if (v1 < 0) {
Cbuf_Error ("index", "Negative index found in sub-string expression");
return -1;
}
if ((p = strchr (index->str+pos, ':'))) {
v2 = atoi (p+1);
if (v2 < 0) {
Cbuf_Error ("index", "Negative index found in sub-string expression");
return -1;
}
} else
v2 = v1;
dstring_snip (index, pos, i - pos + 1);
if (v2 < v1) {
v1 ^= v2;
v2 ^= v1;
v1 ^= v2;
}
*i1 = v1;
*i2 = v2;
return 0;
@ -121,9 +108,11 @@ GIB_Process_Variables_All (struct dstring_s *token)
char c = 0;
char *p;
int i1, i2;
qboolean index;
for (i = 0; token->str[i]; i++) {
if (token->str[i] == '$') {
index = false;
if (token->str[i+1] == '{') {
n = i+1;
if ((c = GIB_Parse_Match_Brace (token->str, &n))) {
@ -133,6 +122,7 @@ GIB_Process_Variables_All (struct dstring_s *token)
if (token->str[n+1] == '[') {
// Cut index out and put it with the variable
m = n+1;
index = true;
if ((c = GIB_Parse_Match_Index (token->str, &m))) {
Cbuf_Error ("parse", "Could not find match for %c", c);
goto ERROR;
@ -149,8 +139,11 @@ GIB_Process_Variables_All (struct dstring_s *token)
token->str[i+n] == '$' ||
token->str[i+n] == '_' ||
token->str[i+n] == '[' ||
token->str[i+n] == ']' ||
token->str[i+n] == ':'; n++); // find end of var
token->str[i+n] == ':'; n++) {
if (token->str[i+n] == '[')
while (token->str[i+n] && token->str[i+n] != ']')
n++;
}
dstring_insert (var, 0, token->str+i, n); // extract it
}
for (m = 1; var->str[m]; m++) {
@ -158,17 +151,32 @@ GIB_Process_Variables_All (struct dstring_s *token)
m += GIB_Process_Variable (var, m, false) - 1;
}
i1 = -1;
if (var->str[strlen(var->str)-1] == ']' && (p = strrchr (var->str, '[')))
if (var->str[strlen(var->str)-1] == ']' && (p = strrchr (var->str, '['))) {
index = true;
if (GIB_Process_Index(var, p-var->str, &i1, &i2)) {
c = '[';
goto ERROR;
}
}
GIB_Process_Variable (var, 0, true);
if (i1 >= 0) {
if (i1 >= strlen (var->str))
if (index) {
if (i1 < 0) {
i1 += strlen(var->str);
if (i1 < 0)
i1 = 0;
} else if (i1 >= strlen (var->str))
i1 = strlen(var->str)-1;
if (i2 >= strlen (var->str))
if (i2 < 0) {
i2 += strlen(var->str);
if (i2 < 0)
i2 = 0;
} else if (i2 >= strlen (var->str))
i2 = strlen(var->str)-1;
if (i2 < i1) {
i1 ^= i2;
i2 ^= i1;
i1 ^= i2;
}
if (i2 < strlen(var->str)-1) // Snip everthing after index 2
dstring_snip (var, i2+1, strlen(var->str)-i2-1);
if (i1 > 0) // Snip everything before index 1