Internal global variable Infile_Path is a file search path made

available for the code models. It is set when command 'source' is used.

This patch makes the first entry in var 'sourcepath' available to
the code models as well by setting Infile_Path, when 'sourcepath'
is set in .spiceinit.

src/sharedspice.c

@@ -153,6 +153,7 @@ static bool cont_condition;
 #include "frontend/com_measure2.h"
 #include "frontend/misccoms.h"
 #include "ngspice/stringskip.h"
+#include "variable.h"
 
 #ifdef HAVE_FTIME
 #include <sys/timeb.h>
@@ -388,7 +389,6 @@ static SendEvtData* sendevt;
 static void* euserptr;
 static wordlist *shcontrols;
 
-
 // thread IDs
 unsigned int main_id, ng_id, command_id;
 
@@ -822,6 +822,8 @@ ngSpice_Init(SendChar* printfcn, SendStat* statusfcn, ControlledExit* ngspiceexi
 {
     sighandler old_sigsegv = NULL;
 
+    struct variable* sourcepathvar;
+
     pfcn = printfcn;
     /* if caller sends NULL, don't send printf strings */
     if (!pfcn)
@@ -998,6 +1000,11 @@ ngSpice_Init(SendChar* printfcn, SendStat* statusfcn, ControlledExit* ngspiceexi
     if(!myvec)
         myvec = TMALLOC(vector_info, sizeof(vector_info));
 
+    /* Read first entry of sourcepath var, set Infile_path for code models */
+    if ( cp_getvar("sourcepath", CP_LIST, &sourcepathvar, 0)) {
+        Infile_Path = copy(sourcepathvar->va_string);
+    }
+
 #if !defined(low_latency)
     /* If caller has sent valid address for pfcn */
     if (!noprintfwanted)