command.c, inpcom.c, add command 'setcs': like command 'set',

but case sensitive, and thus keeping upper or lower case
of subsequently following variable name and other letters.

examples/Monte_Carlo/MC_2_control.sp

@@ -2,7 +2,7 @@
 * Perform Monte Carlo simulation in ngspice
 * script for use with 25 stage Ring-Osc. BSIM3
 * circuit is in MC_2_circ.sp
-* edit 'set sourcepath' for your path to circuit file
+* edit 'setcs sourcepath' for your path to circuit file
 * start script by 'ngspice -o MC_2_control.log MC_2_control.sp'
 *
 .control
@@ -10,7 +10,7 @@
   let run = 1                     $ number of the actual run
 
 * Where to find the circuit netlist file MC_2_circ.sp
-  set sourcepath = ( D:\Spice_general\ngspice\examples\Monte_Carlo )
+  setcs sourcepath = ( D:\Spice_general\ngspice\examples\Monte_Carlo )
 
 * create file for frequency information
   echo Monte Carlo, frequency of R.O. > MC_frequ.log

examples/Monte_Carlo/MC_ring_ts.sp

@@ -30,7 +30,7 @@ begin
   echo source the input file
 * Path of your circuit file and library file here
 * Will be added to the already existing sourcepath
-  set sourcepath = ( $inputdir $sourcepath ./ngspice/examples/Monte_Carlo )
+  setcs sourcepath = ( $inputdir $sourcepath ./ngspice/examples/Monte_Carlo )
 * source with file name of your circuit file
   source mc_ring_circ.net
 

src/frontend/commands.c

@@ -127,7 +127,10 @@ struct comm spcp_coms[] = {
       { 020000, 020000, 020000, 020000 }, E_DEFHMASK, 0, LOTS,
       arg_set,
       "[option] [option = value] ... : Set a variable." } ,
-
+    { "setcs", com_set, FALSE, TRUE,
+      { 020000, 020000, 020000, 020000 }, E_DEFHMASK, 0, LOTS,
+      arg_set,
+      "[option] [option = value] ... : Set a variable, case remains as given." } ,
 
 /* support for altering options in interactive mode,
    using either command 'option' or 'options'*/
@@ -634,7 +637,10 @@ struct comm nutcp_coms[] = {
       { 020000, 020000, 020000, 020000 }, E_DEFHMASK, 0, LOTS,
       arg_set,
       "[option] [option = value] ... : Set a variable." } ,
-
+    { "setcs", com_set, FALSE, TRUE,
+      { 020000, 020000, 020000, 020000 }, E_DEFHMASK, 0, LOTS,
+      arg_set,
+      "[option] [option = value] ... : Set a variable, case remains as given." } ,
 #ifdef EXPERIMENTAL_CODE
 /* PN support for altering options in interactive mode */
     { "option", com_option, TRUE, TRUE,

src/frontend/inpcom.c

@@ -963,11 +963,8 @@ inp_read(FILE *fp, int call_depth, char *dir_name, bool comfile, bool intfile)
                 !ciprefix("source", buffer) &&
                 !ciprefix("load", buffer) &&
                 !ciprefix("plot", buffer) &&
-                !ciprefix("print", buffer) &&
-                !ciprefix("asciiplot", buffer) &&
-                !ciprefix("gnuplot", buffer) &&
                 !ciprefix("hardcopy", buffer) &&
-                !(ciprefix("set", buffer) && strstr(buffer, "sourcepath"))
+                !ciprefix("setcf", buffer)
                 )
             {
                 /* lower case for all other lines */