Function tcl_python_convert

namd/src/ScriptTcl.C:191–205

static int atoBool(const char *s);

static PyObject* tcl_python_convert(Tcl_Obj *obj) {
  long rlong;
  if ( TCL_OK == Tcl_GetLongFromObj(0, obj, &rlong) )
    return Py_BuildValue("l", rlong);
  double rdouble;
  if ( TCL_OK == Tcl_GetDoubleFromObj(0, obj, &rdouble) )
    return Py_BuildValue("d", rdouble);
  const char *rstring = Tcl_GetString(obj);
  if ( rstring[0] == '\0' )
    return Py_None;
  int rbool = atoBool(rstring);
  if ( rbool >= 0 )
    return PyBool_FromLong(rbool);
  return Py_BuildValue("s", rstring);
}

static Tcl_Interp *static_interp;