search for: tcl_newobj

...ringResult (interp)); + exit (EXIT_FAILURE); + } +} + +static void +tcl_unload (void) +{ + if (interp) + Tcl_DeleteInterp (interp); + Tcl_Finalize (); +} + +/* Test if proc was defined by the Tcl code. */ +static int +proc_defined (const char *name) +{ + int r; + Tcl_Obj *cmd; + + cmd = Tcl_NewObj (); + Tcl_IncrRefCount (cmd); + Tcl_ListObjAppendElement (0, cmd, Tcl_NewStringObj ("info", -1)); + Tcl_ListObjAppendElement (0, cmd, Tcl_NewStringObj ("procs", -1)); + Tcl_ListObjAppendElement (0, cmd, Tcl_NewStringObj (name, -1)); + r = Tcl_EvalObjEx (interp, cmd, TCL_EVA...

While working on can_FOO caching, at one point I got confused by whether 'readonly' meant the global set by -r or a local passed to .open(). A quick attempt to compile with -Wshadow found several other confusing points; this series gets us to the point that we can add -Wshadow to builds with --enable-gcc-warnings. Eric Blake (10): server: Avoid -Wshadow warnings guestfs: Avoid

...de -c tcltk.c -o tcltk.o /usr/bin/cc -shared -L/soft/readline/v4.2.1/lib -o tcltk.so tcltk.o -L/soft/tcl/v8.3.4/lib -lm ld: Warning: Unresolved: TclFreeObj Tcl_GetDoubleFromObj Tcl_GetIntFromObj Tcl_GetStringFromObj Tcl_ListObjAppendElement Tcl_ListObjGetElements Tcl_NewDoubleObj Tcl_NewIntObj Tcl_NewObj Tcl_SetStringObj Tcl_CreateCommand Tcl_CreateInterp Tcl_DoOneEvent Tcl_Eval Tcl_GetObjResult Tcl_Init Tcl_SetResult Tcl_StaticPackage Tcl_GetVar2Ex Tcl_SetVar2Ex Tcl_GetString Tk_Init Tk_SafeInit R_NaReal Rf_error R_GlobalEnv R_NilValue R_DotsSymbol Rf_allocVector Rf_eval Rf_install Rf_isFunction R...