commands.c, inp.c, new command 'mc_source' to internally reload circuit for Monte Carlo simulation

src/frontend/commands.c

@@ -325,6 +325,10 @@ struct comm spcp_coms[] = {
       { 1, 0, 0, 0 }, E_DEFHMASK, 0, 1,
       NULL,
       "[filename] : Edit a spice deck and then load it in." } ,
+    { "mc_source", com_mc_source, TRUE, FALSE,
+      { 0, 0, 0, 0 }, E_DEFHMASK, 0, 0,
+        NULL,
+        ": Re-source the actual circuit deck for MC simulation." },
     { "dump", com_dump, TRUE, FALSE,
       { 0, 0, 0, 0 }, E_DEFHMASK, 0, 0,
       NULL,

src/frontend/inp.c

@@ -382,7 +382,7 @@ inp_spsource(FILE *fp, bool comfile, char *filename, bool intfile)
         if (!deck->li_next)
             fprintf(cp_err, "Warning: no lines in input\n");
     }
-    if (!intfile)
+    if (fp && !intfile)
         fclose(fp);
 
     /* Now save the IO context and start a new control set.  After we
@@ -1070,6 +1070,14 @@ inp_dodeck(
 }
 
 
+void
+com_mc_source(wordlist *wl)
+{
+    NG_IGNORE(wl);
+    inp_spsource(NULL, FALSE, NULL, FALSE);
+}
+
+
 /* Edit and re-load the current input deck.  Note that if these
  * commands are used on a non-unix machine, they will leave spice.tmp
  * junk files lying around.  */

src/frontend/inp.h

@@ -9,6 +9,7 @@
 void com_listing(wordlist *wl);
 void com_edit(wordlist *wl);
 void com_source(wordlist *wl);
+void com_mc_source(wordlist *wl);
 void com_circbyline(wordlist *wl);