From ecc8990e20938551223eea5718727d6bb700817c Mon Sep 17 00:00:00 2001
From: Holger Vogt <holger.vogt@uni-due.de>
Date: Wed, 28 Aug 2024 16:20:10 +0200
Subject: [PATCH] Make error messages more verbose: add line number and source
 file name.

---
 src/frontend/subckt.c | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/frontend/subckt.c b/src/frontend/subckt.c
index d3fcb81c8..b93424801 100644
--- a/src/frontend/subckt.c
+++ b/src/frontend/subckt.c
@@ -1220,6 +1220,7 @@ translate(struct card *deck, char *formal, int flen, char *actual, char *scname,
 
                     if ((paren_ptr = strchr(name, ')')) == NULL) {
                         fprintf(cp_err, "Error: missing closing ')' for .save statement %s\n", c->line);
+                        fprintf(cp_err, "    line no. %d from file %s\n", c->linenum_orig, c->linesource);
                         goto quit;
                     }
 
@@ -1254,6 +1255,7 @@ translate(struct card *deck, char *formal, int flen, char *actual, char *scname,
 
                     if ((paren_ptr = strchr(name, ')')) == NULL) {
                         fprintf(cp_err, "Error: missing closing ')' for .ic|.nodeset statement %s\n", c->line);
+                        fprintf(cp_err, "    line no. %d from file %s\n", c->linenum_orig, c->linesource);
                         goto quit;
                     }
 
@@ -1387,6 +1389,7 @@ translate(struct card *deck, char *formal, int flen, char *actual, char *scname,
                 if (name == NULL) {
                     fprintf(cp_err, "Error: too few nodes: %s\n",
                             c->line);
+                    fprintf(cp_err, "    line no. %d from file %s\n", c->linenum_orig, c->linesource);
                     goto quit;
                 }
 
@@ -1410,6 +1413,7 @@ translate(struct card *deck, char *formal, int flen, char *actual, char *scname,
                 if (get_l_paren(&s) == 1) {
                     fprintf(cp_err, "Error: no left paren after POLY %s\n",
                             c->line);
+                    fprintf(cp_err, "    line no. %d from file %s\n", c->linenum_orig, c->linesource);
                     tfree(next_name);
                     goto quit;
                 }
@@ -1422,6 +1426,7 @@ translate(struct card *deck, char *formal, int flen, char *actual, char *scname,
                 if (get_r_paren(&s) == 1) {
                     fprintf(cp_err, "Error: no right paren after POLY %s\n",
                             c->line);
+                    fprintf(cp_err, "    line no. %d from file %s\n", c->linenum_orig, c->linesource);
                     tfree(next_name);
                     goto quit;
                 }
@@ -1439,6 +1444,7 @@ translate(struct card *deck, char *formal, int flen, char *actual, char *scname,
                 name = gettok_node(&s);   /* name points to the returned token */
                 if (name == NULL) {
                     fprintf(cp_err, "Error: too few devs: %s\n", c->line);
+                    fprintf(cp_err, "    line no. %d from file %s\n", c->linenum_orig, c->linesource);
                     goto quit;
                 }
 
@@ -1478,6 +1484,7 @@ translate(struct card *deck, char *formal, int flen, char *actual, char *scname,
                 name = gettok_node(&s);
                 if (name == NULL) {
                     fprintf(cp_err, "Error: too few nodes: %s\n", c->line);
+                    fprintf(cp_err, "    line no. %d from file %s\n", c->linenum_orig, c->linesource);
                     goto quit;
                 }
 
@@ -1495,6 +1502,7 @@ translate(struct card *deck, char *formal, int flen, char *actual, char *scname,
                 name = gettok_node(&s);
                 if (name == NULL) {
                     fprintf(cp_err, "Error: too few devs: %s\n", c->line);
+                    fprintf(cp_err, "    line no. %d from file %s\n", c->linenum_orig, c->linesource);
                     goto quit;
                 }