github.com/open-simh.simtools
1
0
Fork 0
mirror of https://github.com/open-simh/simtools.git synced 2026-01-14 07:39:37 +00:00
Code Issues Projects Releases Wiki Activity

.IF B,< > is supposed to be TRUE

Browse Source 
because spaces are blank.
Seen in Kermit, although perhaps the author didn't mean that (MESSAGE < >).
This commit is contained in:
Olaf Seibert 2015-05-22 01:32:45 +02:00
parent 60af942129
commit 536d1856f0
1 changed files with 13 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
assemble.c
View File

@ -758,26 +758,24 @@ static int assemble(
cp = value->cp;
ok = eval_undefined(value);
free_tree(value);
} else if (strcmp(label, "B") == 0) {
} else if (strcmp(label, "B") == 0 ||
strcmp(label, "NB") == 0) {
char *thing;
cp = skipwhite(cp);
if (!EOL(*cp))
thing = getstring(cp, &cp);
else
thing = memcheck(strdup(""));
ok = (*thing == 0);
free(thing);
} else if (strcmp(label, "NB") == 0) {
char *thing;
if (EOL(*cp)) {
ok = 1;
} else {
char *thing, *end;
cp = skipwhite(cp);
if (!EOL(*cp))
thing = getstring(cp, &cp);
else
thing = memcheck(strdup(""));
ok = (*thing != 0);
free(thing);
end = skipwhite(thing);
ok = (*end == 0);
free(thing);
}
if (label[0] == 'N') {
ok = !ok;
}
} else if (strcmp(label, "IDN") == 0) {
char *thing1,
*thing2;