123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
-
+
|
if (package_count_p == NULL) {
return(NULL);
}
objv[0] = Tcl_NewStringObj("::appfs::getindex", -1);
objv[1] = Tcl_NewStringObj(hostname, -1);
tcl_ret = Tcl_EvalObjv(interp, 2, &objv, 0);
tcl_ret = Tcl_EvalObjv(interp, 2, objv, 0);
if (tcl_ret != TCL_OK) {
APPFS_DEBUG("Call to ::appfs::getindex failed: %s", Tcl_GetStringResult(interp));
return(NULL);
}
packages_tcl = Tcl_GetObjResult(interp);
|