Difference for src/ScriptTcl.C from version 1.110 to 1.111

version 1.110version 1.111
Line 163
Line 163
   return robj;   return robj;
 } }
  
  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 Py_BuildValue("i", rbool);
    return Py_BuildValue("s", rstring);
  }
  
 static Tcl_Interp *static_interp; static Tcl_Interp *static_interp;
  
 static PyObject* python_tcl_call(PyObject *self, PyObject *args) { static PyObject* python_tcl_call(PyObject *self, PyObject *args) {
Line 175
Line 193
     return 0;     return 0;
   }   }
   Tcl_DecrRefCount(command);   Tcl_DecrRefCount(command);
   return Py_BuildValue("s", Tcl_GetStringResult(interp));   return tcl_python_convert(Tcl_GetObjResult(interp));
 } }
  
 static PyObject* python_tcl_eval(PyObject *self, PyObject *args) { static PyObject* python_tcl_eval(PyObject *self, PyObject *args) {
Line 186
Line 204
     PyErr_SetString(PyExc_RuntimeError, Tcl_GetStringResult(interp));     PyErr_SetString(PyExc_RuntimeError, Tcl_GetStringResult(interp));
     return 0;     return 0;
   }   }
   return Py_BuildValue("s", Tcl_GetStringResult(interp));   return tcl_python_convert(Tcl_GetObjResult(interp));
 } }
  
 static PyObject* python_tcl_write(PyObject *self, PyObject *args) { static PyObject* python_tcl_write(PyObject *self, PyObject *args) {


Legend:
Removed in v.1.110 
changed lines
 Added in v.1.111



Made by using version 1.53 of cvs2html