luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Allow ';' also at the beginning of a line.

This commit is contained in:
Holger Vogt 2023-06-04 14:53:38 +02:00
parent a99caf504f
commit 5e73be130a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/frontend/inpcom.c
View File

@ -8349,14 +8349,14 @@ static void inp_check_syntax(struct card *deck)
if (*cut_line == '*' || *cut_line == '\0')
continue;
// check for unusable leading characters and change them to '*'
if (strchr("=[]?()&%$\"!:,\f;", *cut_line)) {
if (strchr("=[]?()&%$\"!:,\f", *cut_line)) {
if (ft_stricterror) {
fprintf(stderr, "Error: '%c' is not allowed as first character in line %s.\n", *cut_line, cut_line);
controlled_exit(EXIT_BAD);
}
else {
if (!check_ch) {
fprintf(stderr, "Warning: Unusual leading characters like '%c' or others out of '= [] ? () & %% $\"!:,;\\f'\n", *cut_line);
fprintf(stderr, "Warning: Unusual leading characters like '%c' or others out of '= [] ? () & %% $\"!:,\\f'\n", *cut_line);
fprintf(stderr, " in netlist or included files, will be replaced with '*'.\n");
fprintf(stderr, " Check line no %d: %s\n\n", card->linenum_orig, cut_line);
check_ch = 1; /* just one warning */
@ -8364,6 +8364,10 @@ static void inp_check_syntax(struct card *deck)
*cut_line = '*';
}
}
/* leading end-of-line delimiter ';' silently change to '*' */
else if (*cut_line == ';') {
*cut_line = '*';
}
// check for .control ... .endc
if (ciprefix(".control", cut_line)) {
if (check_control > 0) {