CTclGrammerApp

	CTclGrammerApp::SourceFunctionalScripts

static const char* kpUserInitFile  = "/SpecTclRC.tcl";
...

void 
CTclGrammerApp::SourceFunctionalScripts(CTCLInterpreter& rInterp)  
{ 
  try {				// First run the ~ script:
    if(getenv("HOME")) {
      string RCFilename(getenv("HOME"));
      RCFilename += kpUserInitFile;
      rInterp.EvalFile(RCFilename);
    }
  }
  catch (...) {
  }

  try {
    string RCFilename(".");
    RCFilename += kpUserInitFile;
    rInterp.EvalFile(RCFilename);
  }
  catch (...) {
  }
}