Displaying 2 results from an estimated 2 matches for "tcl_getobjresult".
2018 Jul 01
2
[PATCH nbdkit] Add Tcl plugin, for writing plugins in Tcl.
...pen", -1));
+ Tcl_ListObjAppendElement (0, cmd, Tcl_NewBooleanObj (readonly));
+ r = Tcl_EvalObjEx (interp, cmd, TCL_EVAL_DIRECT);
+ Tcl_DecrRefCount (cmd);
+ if (r != TCL_OK) {
+ nbdkit_error ("plugin_open: %s", Tcl_GetStringResult (interp));
+ return NULL;
+ }
+
+ res = Tcl_GetObjResult (interp);
+ Tcl_IncrRefCount (res);
+ return res;
+}
+
+static void
+tcl_close (void *handle)
+{
+ int r;
+ Tcl_Obj *h = handle, *cmd;
+
+ if (proc_defined ("plugin_close")) {
+ cmd = Tcl_NewObj ();
+ Tcl_IncrRefCount (cmd);
+ Tcl_ListObjAppendElement (0, cmd, Tcl_NewStringO...
2002 Jul 11
1
dyn.load tcl/tk (PR#1774)
...ltk.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
Rf_isLanguage
Rf_isValidString
Rf_lcons
Rf_length
Rf_mkChar
Rf_mkString
Rf_protect
Rf_unprotec...