Function EvalFileWithParameters

SRC/tcl/commands.cpp:10278–10341

extern "C" int
EvalFileWithParameters(Tcl_Interp *interp, 
				char *tclStartupFileScript, 
				OpenSeesTcl_Parameter *theInputParameters,  
				int currentParam, 
				int rank, 
				int np)
{
  if (theInputParameters == 0)
	  theInputParameters = theParameters;

  if (currentParam < numParam) {
    OpenSeesTcl_Parameter *theCurrentParam = theInputParameters;
    OpenSeesTcl_Parameter *theNextParam = theParameters->next;
    char *paramName = theCurrentParam->name;
    paramNames[currentParam] = paramName;

    OpenSeesTcl_ParameterValues *theValue = theCurrentParam->values;
    int nextParam = currentParam+1;
    while (theValue != 0) {
      char *paramValue = theValue->value;
      paramValues[currentParam] = paramValue;
      EvalFileWithParameters(interp, 
			     tclStartupFileScript, 
			     theNextParam, 
			     nextParam, 
			     rank, 
			     np);

      theValue=theValue->next;
    } 
  } else {
    
    simulationInfo.start();
    static int count = 0;
    
    if ((count % np) == rank) {
      Tcl_Eval(interp, "wipe");
     
	  
      for (int i=0; i<numParam; i++) {
		  
	Tcl_SetVar(interp, paramNames[i], paramValues[i], TCL_GLOBAL_ONLY);	
    
	simulationInfo.addParameter(paramNames[i], paramValues[i]); 
     }

      count++;

      const char *pwd = getInterpPWD(interp);
      simulationInfo.addInputFile(tclStartupFileScript, pwd);

      int ok = Tcl_EvalFile(interp, tclStartupFileScript);

      simulationInfo.end();
      
      return ok;
    }