@@ -37,11 +37,11 @@
37 37 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_IncrRefCount(objPtr);
38 38 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
rc = Tcl_EvalObjEx(tclInterp, objPtr, 0);
39 39 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_DecrRefCount(objPtr);
40 40 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
}else{
41 41 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
int objc = argc-1;
42 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
- Tcl_Obj **objv = ckalloc((unsigned)(objc * sizeof(Tcl_Obj *)));
42 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
+ Tcl_Obj **objv = (Tcl_Obj **)ckalloc((unsigned)(objc * sizeof(Tcl_Obj *)));
43 43 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
int i;
44 44 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
for(i=1; i<argc; i++){
45 45 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
objv[i-1] = Tcl_NewStringObj(argv[i], argl[i]);
46 46 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_IncrRefCount(objv[i-1]);
47 47 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
}
@@ -92,11 +92,11 @@
92 92 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_IncrRefCount(objPtr);
93 93 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
rc = Tcl_ExprObj(tclInterp, objPtr, &resultObjPtr);
94 94 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_DecrRefCount(objPtr);
95 95 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
}else{
96 96 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
int objc = argc-1;
97 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
- Tcl_Obj **objv = ckalloc((unsigned)(objc * sizeof(Tcl_Obj *)));
97 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
+ Tcl_Obj **objv = (Tcl_Obj **)ckalloc((unsigned)(objc * sizeof(Tcl_Obj *)));
98 98 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
int i;
99 99 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
for(i=1; i<argc; i++){
100 100 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
objv[i-1] = Tcl_NewStringObj(argv[i], argl[i]);
101 101 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_IncrRefCount(objv[i-1]);
102 102 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
}
@@ -143,21 +143,22 @@
143 143 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
tclInterp = (Tcl_Interp *)ctx;
144 144 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
if( !tclInterp ){
145 145 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Th_ErrorMessage(interp, "invalid Tcl interpreter", (const char *)"", 0);
146 146 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
return TH_ERROR;
147 147 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
}
148 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
- if (Tcl_GetCommandInfo(tclInterp, argv[1], &cmdInfo) == 0) {
148 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
+ if (Tcl_GetCommandInfo(tclInterp, argv[1], &cmdInfo) == 0){
149 149 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Th_ErrorMessage(interp, "Tcl command not found:", argv[1], argl[1]);
150 150 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
return TH_ERROR;
151 151 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
}
152 152 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
objc = argc-1;
153 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
- objv = ckalloc((unsigned)(objc * sizeof(Tcl_Obj *)));
153 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
+ objv = (Tcl_Obj **)ckalloc((unsigned)(objc * sizeof(Tcl_Obj *)));
154 154 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
for(i=1; i<argc; i++){
155 155 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
objv[i-1] = Tcl_NewStringObj(argv[i], argl[i]);
156 156 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_IncrRefCount(objv[i-1]);
157 157 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
}
158 158 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_Preserve((ClientData)tclInterp);
159 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
+ Tcl_ResetResult(tclInterp);
159 160 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
rc = cmdInfo.objProc(cmdInfo.objClientData, tclInterp, objc, objv);
160 161 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
for(i=1; i<argc; i++){
161 162 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_DecrRefCount(objv[i-1]);
162 163 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
}
163 164 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
ckfree((char *)objv);
@@ -186,16 +187,14 @@
186 187 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
187 188 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
if( objc!=2 ){
188 189 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_WrongNumArgs(interp, 1, objv, "arg");
189 190 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
return TCL_ERROR;
190 191 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
}
191 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
-
192 192 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
if( !th1Interp ){
193 193 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_AppendResult(interp, "invalid TH1 interpreter", NULL);
194 194 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
return TCL_ERROR;
195 195 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
}
196 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
-
197 196 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
arg = Tcl_GetStringFromObj(objv[1], &nArg);
198 197 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
rc = Th_Eval(th1Interp, 0, arg, nArg);
199 198 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
arg = Th_GetResult(th1Interp, &nArg);
200 199 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_SetObjResult(interp, Tcl_NewStringObj(arg, nArg));
201 200 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
return rc;
@@ -219,16 +218,14 @@
219 218 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
220 219 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
if( objc!=2 ){
221 220 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_WrongNumArgs(interp, 1, objv, "arg");
222 221 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
return TCL_ERROR;
223 222 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
}
224 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
-
225 223 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
if( !th1Interp ){
226 224 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_AppendResult(interp, "invalid TH1 interpreter", NULL);
227 225 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
return TCL_ERROR;
228 226 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
}
229 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
-
230 227 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
arg = Tcl_GetStringFromObj(objv[1], &nArg);
231 228 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
rc = Th_Expr(th1Interp, arg, nArg);
232 229 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
arg = Th_GetResult(th1Interp, &nArg);
233 230 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_SetObjResult(interp, Tcl_NewStringObj(arg, nArg));
234 231 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
return rc;
@@ -277,27 +274,23 @@
277 274 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
if( !tclInterp ){
278 275 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Th_ErrorMessage(interp,
279 276 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
"Could not create Tcl interpreter", (const char *)"", 0);
280 277 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
return TH_ERROR;
281 278 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
}
282 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
-
283 279 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
if( Tcl_Init(tclInterp)!=TCL_OK ){
284 280 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Th_ErrorMessage(interp,
285 281 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
"Tcl initialization error:", Tcl_GetStringResult(tclInterp), -1);
286 282 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_DeleteInterp(tclInterp);
287 283 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
return TH_ERROR;
288 284 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
}
289 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
-
290 285 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_CallWhenDeleted(tclInterp, Th1DeleteProc, interp);
291 286 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_CreateObjCommand(tclInterp, "th1Eval", Th1EvalObjCmd, interp, NULL);
292 287 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Tcl_CreateObjCommand(tclInterp, "th1Expr", Th1ExprObjCmd, interp, NULL);
293 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
-
294 288 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
/* Add the Tcl integration commands. */
295 289 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
for(i=0; i<(sizeof(aCommand)/sizeof(aCommand[0])); i++){
296 290 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
void *ctx = aCommand[i].pContext;
297 291 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
/* Use Tcl interpreter for context? */
298 292 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
if( !ctx ) ctx = tclInterp;
299 293 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
Th_CreateCommand(interp, aCommand[i].zName, aCommand[i].xProc, ctx, 0);
300 294 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
}
301 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
-
302 295 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
return TH_OK;
303 296 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!
}
304 297 { copied = false; pop = false }, 1000)" :class="copied && 'copied'">Copy link Copied!