Function getInterpPWD

SRC/runtime/commands/interpreter.cpp:242–269

}

const char *
getInterpPWD(Tcl_Interp *interp)
{
  static char *pwd = 0;

  if (pwd != 0)
    delete[] pwd;

#ifdef _TCL84
  Tcl_Obj *cwd = Tcl_FSGetCwd(interp);
  if (cwd != NULL) {
    int length;
    const char *objPWD = Tcl_GetStringFromObj(cwd, &length);
    pwd = new char[length + 1];
    strcpy(pwd, objPWD);
    Tcl_DecrRefCount(cwd);
  }
#else
  Tcl_DString buf;
  const char *objPWD = Tcl_GetCwd(interp, &buf);

  pwd = new char[strlen(objPWD) + 1];
  strcpy(pwd, objPWD);

  Tcl_DStringFree(&buf);
#endif
  return pwd;
}

int
OPS_SourceCmd(ClientData dummy,      /* Not used. */