Function python_tcl_eval

namd/src/ScriptTcl.C:222–231

}

static PyObject* python_tcl_eval(PyObject *self, PyObject *args) {
  Tcl_Interp *interp = static_interp;
  const char *command;
  if ( ! PyArg_ParseTuple(args, "s", &command) ) return 0;
  if ( TCL_OK != Tcl_EvalEx(interp,command,-1,TCL_EVAL_DIRECT) ) {
    PyErr_SetString(PyExc_RuntimeError, Tcl_GetStringResult(interp));
    return 0;
  }
  return tcl_python_convert(Tcl_GetObjResult(interp));
}

static PyObject* python_tcl_write(PyObject *self, PyObject *args) {
  const char *string;