github.com/open-simh.simtools
1
0
Fork 0
mirror of https://github.com/open-simh/simtools.git synced 2026-03-05 10:54:07 +00:00
Code Issues Projects Releases Wiki Activity

Allow formal name of .IRP and .IRPC to be enclosed in < >.

Browse Source
This commit is contained in:
Paul Koning
2022-06-26 14:48:22 -04:00
parent 5f71c6b7c3
commit 2969c16583
1 changed files with 25 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
rept_irpc.c
View File

@@ -193,6 +193,29 @@ STREAM_VTBL irp_stream_vtbl = {
irp_stream_delete, irp_stream_getline, buffer_stream_rewind
};
/* We occasionally see .IRP with the formal name in angle brackets. I
* have no idea why, but it appears to be legal. So allow that. Not
* sure if it should be allowed elsewhere, e.g., in .MACRO. For now,
* don't. */
static char *get_irp_sym (char *cp, char **endcp, int *islocal)
{
char *ret = NULL;
cp = skipwhite(cp);
if (*cp == '<') {
ret = get_symbol (cp + 1, &cp, islocal);
if (*cp++ != '>') {
*endcp = cp;
return NULL;
}
}
else {
ret = get_symbol (cp, &cp, islocal);
}
*endcp = cp;
return ret;
}
/* expand_irp is called when a .IRP is encountered in the input. */
STREAM *expand_irp(
@@ -205,7 +228,7 @@ STREAM *expand_irp(
int levelmod = 0;
IRP_STREAM *str;
label = get_symbol(cp, &cp, NULL);
label = get_irp_sym(cp, &cp, NULL);
if (!label) {
report(stack->top, "Illegal .IRP syntax\n");
return NULL;
@@ -335,7 +358,7 @@ STREAM *expand_irpc(
int levelmod = 0;
IRPC_STREAM *str;
label = get_symbol(cp, &cp, NULL);
label = get_irp_sym(cp, &cp, NULL);
if (!label) {
report(stack->top, "Illegal .IRPC syntax\n");
return NULL;