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

SCP: Add missing case independent string compare in expressions

Browse source
This commit is contained in:
Mark Pizzolato 2018-06-09 06:20:32 -07:00
parent 188e8cfe8f
commit 5ca02d3f98
1 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
scp.c
View file

@ -13666,35 +13666,40 @@ static t_svalue _op_gt (t_svalue data1, t_svalue data2)
return data2 > data1; return data2 > data1;
} }
static int _i_strcmp (const char *s1, const char *s2)
{
return ((sim_switches & SWMASK('I')) ? strcasecmp (s2, s1) : strcmp (s2, s1));
}
static t_svalue _op_str_eq (const char *str1, const char *str2) static t_svalue _op_str_eq (const char *str1, const char *str2)
{ {
return (0 == strcmp (str2, str1));
return (0 == _i_strcmp (str2, str1));
} }
static t_svalue _op_str_ne (const char *str1, const char *str2) static t_svalue _op_str_ne (const char *str1, const char *str2)
{ {
return (0 != strcmp (str2, str1)); return (0 != _i_strcmp (str2, str1));
} }
static t_svalue _op_str_le (const char *str1, const char *str2) static t_svalue _op_str_le (const char *str1, const char *str2)
{ {
return (0 > strcmp (str2, str1)); return (0 > _i_strcmp (str2, str1));
} }
static t_svalue _op_str_lt (const char *str1, const char *str2) static t_svalue _op_str_lt (const char *str1, const char *str2)
{ {
return (0 >= strcmp (str2, str1)); return (0 >= _i_strcmp (str2, str1));
} }
static t_svalue _op_str_ge (const char *str1, const char *str2) static t_svalue _op_str_ge (const char *str1, const char *str2)
{ {
return (0 < strcmp (str2, str1)); return (0 < _i_strcmp (str2, str1));
} }
static t_svalue _op_str_gt (const char *str1, const char *str2) static t_svalue _op_str_gt (const char *str1, const char *str2)
{ {
return (0 <= strcmp (str2, str1)); return (0 <= _i_strcmp (str2, str1));
} }
/* /*