Add a code model function cm_exit(const int exitcode).

This function calls controlled_exit(exitcode) to shut
down gracefully.

src/include/ngspice/cmproto.h

@@ -125,4 +125,6 @@ FILE *fopen_with_path(const char *path, const char *mode);
 
 #define CM_IGNORE(x) (void) (x)
 
+void cm_cexit(const int);
+
 #endif /* include guard */

src/include/ngspice/dllitf.h

@@ -83,6 +83,7 @@ struct coreInfo_t {
 	void *    ((*dllitf_tmalloc)(size_t));
 	void *    ((*dllitf_trealloc)(const void *, size_t));
 	void      ((*dllitf_txfree)(const void *));
+	void      ((*dllitf_cexit)(const int));
 
 #ifdef KLU
         int ((*dllitf_MIFbindCSC) (GENmodel *, CKTcircuit *)) ;

src/xspice/cm/cmexport.c

@@ -81,7 +81,8 @@ struct coreInfo_t  coreInfo =
   txfree,
   tmalloc,
   trealloc,
-  txfree
+  txfree,
+  cm_cexit
 #else
   GC_malloc,
   tcalloc,

src/xspice/cm/cmutil.c

@@ -36,7 +36,7 @@ INTERFACES
     cm_complex_subtract()
     cm_complex_multiply()
     cm_complex_divide()
-    
+    cm_cexit()
 
 REFERENCED FILES
 
@@ -52,6 +52,8 @@ NON-STANDARD FEATURES
 #include <math.h>
 #include "ngspice/cm.h"
 
+extern void controlled_exit(const int);
+ 
 /* Corner Smoothing Function ************************************
 *                                                               *
 * The following function smooths the transition between two     *
@@ -525,4 +527,7 @@ Complex_t cm_complex_divide(Complex_t x, Complex_t y)
     return(c);
 }
 
-
+void cm_cexit(const int exitcode)
+{
+    controlled_exit(exitcode);
+}

src/xspice/icm/dlmain.c

@@ -430,6 +430,10 @@ void txfree(const void *ptr) {
 	(coreitf->dllitf_txfree)(ptr);
 }
 
+void cm_cexit(const int exitcode) {
+	(coreitf->dllitf_cexit)(exitcode);
+}
+
 #ifdef KLU
 int MIFbindCSC (GENmodel *inModel, CKTcircuit *ckt) {
     return (coreitf->dllitf_MIFbindCSC) (inModel, ckt) ;