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

SCP: Allow commands to be enclosed in quotes.

Browse source 
This is useful when commands containing semi-colons are used in the
action steps of BREAK, EXPECT, UNTIL, IF commands.
This commit is contained in:
Mark Pizzolato 2018-01-04 07:12:43 -08:00
parent 9086b269b2
commit fbcf72abfc
2 changed files with 19 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
doc/simh_doc.doc
View file

Binary file not shown.

19
scp.c
View file

@ -3365,6 +3365,25 @@ while (sim_isspace (*ip)) { /* skip leading spac
sim_sub_instr_off[outstr_off++] = ip - instr;
*op++ = *ip++;
}
/* If entire string is within quotes, strip the quotes */
if ((*ip == '"') || (*ip == '\'')) { /* start with a quote character? */
const char *cptr = ip;
char *tp = op; /* use remainder of output buffer as temp buffer */
cptr = get_glyph_quoted (cptr, tp, 0); /* get quoted string */
while (sim_isspace (*cptr))
++cptr; /* skip over trailing spaces */
if (*cptr == '\0') { /* full string was quoted? */
uint32 dsize;
if (SCPE_OK == sim_decode_quoted_string (tp, tp, &dsize)) {
while (sim_isspace (*tp))
memmove (tp, tp + 1, strlen (tp));
strlcpy (ip, tp, instr_size - (ip - instr));/* copy quoted contents to input buffer */
strlcpy (sim_sub_instr + (ip - instr), tp, instr_size - (ip - instr));
}
}
}
istart = ip;
for (; *ip && (op < oend); ) {
if ((ip [0] == '%') && (ip [1] == '%')) { /* literal % insert? */