Merge branch 'master' into netgen-1.5
This commit is contained in:
commit
93b9cf6577
|
|
@ -6124,7 +6124,9 @@ PropertyMatch(struct Element *E1, struct Element *E2,
|
||||||
if (kl2 != NULL)
|
if (kl2 != NULL)
|
||||||
break; // Property is required
|
break; // Property is required
|
||||||
}
|
}
|
||||||
else if (vl2->value.ival != 1)
|
else if ((vl2->type == PROP_INTEGER) && (vl2->value.ival != 1))
|
||||||
|
break; // Property M != 1 or S != 1 is a mismatch.
|
||||||
|
else if ((vl2->type == PROP_DOUBLE) && (vl2->value.dval != 1))
|
||||||
break; // Property M != 1 or S != 1 is a mismatch.
|
break; // Property M != 1 or S != 1 is a mismatch.
|
||||||
}
|
}
|
||||||
if (vl2->type != PROP_ENDLIST) {
|
if (vl2->type != PROP_ENDLIST) {
|
||||||
|
|
|
||||||
|
|
@ -587,6 +587,12 @@ void SkipTokNoNewline(char *delimiter)
|
||||||
/* */
|
/* */
|
||||||
/* Modified 3/30/2015 to include the condition where a comment line is */
|
/* Modified 3/30/2015 to include the condition where a comment line is */
|
||||||
/* in the middle of a series of continuation lines. */
|
/* in the middle of a series of continuation lines. */
|
||||||
|
/* */
|
||||||
|
/* Modified 1/3/2024 to avoid skipping two lines if a line has only the */
|
||||||
|
/* comment character '*' followed by a newline. It seems that '\n' is */
|
||||||
|
/* being ignored in WHITESPACE_DELIMITER, but it's easier to write the */
|
||||||
|
/* code to find the exception rather than track down the problem in */
|
||||||
|
/* GetNextLine(). */
|
||||||
/*----------------------------------------------------------------------*/
|
/*----------------------------------------------------------------------*/
|
||||||
|
|
||||||
void SpiceTokNoNewline(void)
|
void SpiceTokNoNewline(void)
|
||||||
|
|
@ -598,8 +604,14 @@ void SpiceTokNoNewline(void)
|
||||||
while (nexttok == NULL) {
|
while (nexttok == NULL) {
|
||||||
contline = getc(infile);
|
contline = getc(infile);
|
||||||
if (contline == '*') {
|
if (contline == '*') {
|
||||||
GetNextLine(WHITESPACE_DELIMITER);
|
char testline = ' ';
|
||||||
SkipNewLine(NULL);
|
while ((testline == ' ') || (testline == '\t'))
|
||||||
|
testline = getc(infile);
|
||||||
|
if (testline != '\n') {
|
||||||
|
ungetc(testline, infile);
|
||||||
|
GetNextLine(WHITESPACE_DELIMITER);
|
||||||
|
SkipNewLine(NULL);
|
||||||
|
}
|
||||||
continue;
|
continue;
|
||||||
}
|
}
|
||||||
else if (contline != '+') {
|
else if (contline != '+') {
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue