search for: tcl_listobjappendelement

...); + } +} + +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_EVAL_DIRECT); + Tcl_DecrRefCount (cmd); + if (r != TCL_OK) {...

...dline/v4.2.1/include -std1 -ieee_with_inexact -I/soft/readline/v4.2.1/include -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_NilVal...