folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

SCP: Properly handle literal strings in expression string comparisons

Browse source
This commit is contained in:
Mark Pizzolato 2018-06-09 08:16:39 -07:00
parent 5ca02d3f98
commit 5700b1f477
1 changed files with 20 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
scp.c
View file

@ -13673,7 +13673,6 @@ return ((sim_switches & SWMASK('I')) ? strcasecmp (s2, s1) : strcmp (s2, s1));
static t_svalue _op_str_eq (const char *str1, const char *str2)
{
return (0 == _i_strcmp (str2, str1));
}
@ -13684,22 +13683,22 @@ return (0 != _i_strcmp (str2, str1));
static t_svalue _op_str_le (const char *str1, const char *str2)
{
return (0 > _i_strcmp (str2, str1));
return (0 <= _i_strcmp (str2, str1));
}
static t_svalue _op_str_lt (const char *str1, const char *str2)
{
return (0 >= _i_strcmp (str2, str1));
return (0 < _i_strcmp (str2, str1));
}
static t_svalue _op_str_ge (const char *str1, const char *str2)
{
return (0 < _i_strcmp (str2, str1));
return (0 >= _i_strcmp (str2, str1));
}
static t_svalue _op_str_gt (const char *str1, const char *str2)
{
return (0 <= _i_strcmp (str2, str1));
return (0 > _i_strcmp (str2, str1));
}
/*
@ -13924,6 +13923,7 @@ return cptr; /* return any unprocessed input */
static t_bool _value_of (const char *data, t_svalue *svalue, char *string, size_t string_size)
{
CONST char *gptr;
size_t data_size = strlen (data);
if (isalpha (*data) || (*data == '_')) {
REG *rptr = NULL;
@ -13961,13 +13961,24 @@ if (isalpha (*data) || (*data == '_')) {
strlcpy (&string[strlen (string)], "\"", string_size - strlen (string));
return numeric;
}
else
else {
data = "";
data_size = 0;
}
}
string[0] = '\0';
if ((data[0] == '\'') && (data_size > 1) && (data[data_size - 1] == '\''))
snprintf (string, string_size - 1, "\"%*.*s\"", (int)(data_size - 2), (int)(data_size - 2), data + 1);
if ((data[0] == '"') && (data_size > 1) && (data[data_size - 1] == '"'))
strlcpy (string, data, string_size);
if (string[0] == '\0') {
*svalue = strtotsv(data, &gptr, 0);
snprintf (string, string_size - 1, "\"%s\"", data);
return (*gptr == '\0');
}
*svalue = strtotsv(string + 1, &gptr, 0);
return ((*gptr == '\"') && ((gptr - string) == (strlen (string) - 2)));
}
/*
* Evaluate a given stack1 containing a postfix expression