From 157aaee6f133c1e2af89ec9e17d2286a1430ab30 Mon Sep 17 00:00:00 2001
From: Holger Vogt <holger.vogt@uni-due.de>
Date: Sun, 4 Nov 2018 13:48:36 +0100
Subject: [PATCH] Bug #332, reported by M. Hendriks Add a warning if statements
 .control ... .endc are misplaced or missing

---
 src/frontend/inpcom.c | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/src/frontend/inpcom.c b/src/frontend/inpcom.c
index 325345b28..b2271e963 100644
--- a/src/frontend/inpcom.c
+++ b/src/frontend/inpcom.c
@@ -143,6 +143,7 @@ static void subckt_params_to_param(struct card *deck);
 static void inp_fix_temper_in_param(struct card *deck);
 static void inp_fix_agauss_in_param(struct card *deck, char *fcn);
 static void inp_vdmos_model(struct card *deck);
+static void inp_check_control(struct card *deck);
 
 static char *inp_spawn_brace(char *s);
 
@@ -597,6 +598,8 @@ inp_readall(FILE *fp, char *dir_name, bool comfile, bool intfile, bool *expr_w_t
             pspice_compat_a(working);
         }
 
+        inp_check_control(working);
+
         inp_fix_for_numparam(subckt_w_params, working);
 
         inp_remove_excess_ws(working);
@@ -7666,3 +7669,33 @@ ltspice_compat_a(struct card *oldcard)
 {
     oldcard->nextcard = ltspice_compat(oldcard->nextcard);
 }
+
+/* check if we have a .control ... .endc pair */
+static void inp_check_control(struct card *deck)
+{
+    struct card *card;
+    int check_control = 0;
+    for (card = deck; card; card = card->nextcard) {
+        char *cut_line = card->line;
+        if (*cut_line == '*')
+            continue;
+        // check for .control ... .endc
+        if (ciprefix(".control", cut_line)) {
+            if (check_control > 0) {
+                fprintf(cp_err, "\nError: Nesting of .control statements is not allowed!\n\n");
+                controlled_exit(EXIT_BAD);
+            }
+            check_control++;
+            continue;
+        }
+        else if (ciprefix(".endc", cut_line)) {
+            check_control--;
+            continue;
+        }
+    }
+
+    if (check_control > 0) {
+        fprintf(cp_err, "\nWarning: Missing .endc statement!\n");
+        fprintf(cp_err, "    This may cause subsequent errors.\n\n");
+    }
+}