311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
|
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
|
-
+
-
+
|
*/
result = TclListObjLength(interp, objv[4], &listLen);
if (result != TCL_OK) {
return result;
}
if (listLen == 0) {
Tcl_SetObjResult(interp, Tcl_NewStringObj(
TclPrintfResult(interp,
"bad operation list \"\": must be one or more of"
" enter, leave, enterstep, or leavestep", -1));
" enter, leave, enterstep, or leavestep");
TclSetErrorCode(interp, "TCL", "OPERATION", "TRACE", "NOOPS");
return TCL_ERROR;
}
result = TclListObjGetElements(interp, objv[4], &listLen, &elemPtrs);
if (result != TCL_OK) {
return result;
}
|
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
|
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
|
-
+
-
+
|
*/
result = TclListObjLength(interp, objv[4], &listLen);
if (result != TCL_OK) {
return result;
}
if (listLen == 0) {
Tcl_SetObjResult(interp, Tcl_NewStringObj(
TclPrintfResult(interp,
"bad operation list \"\": must be one or more of"
" delete or rename", -1));
" delete or rename");
TclSetErrorCode(interp, "TCL", "OPERATION", "TRACE", "NOOPS");
return TCL_ERROR;
}
result = TclListObjGetElements(interp, objv[4], &listLen, &elemPtrs);
if (result != TCL_OK) {
return result;
}
|
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
|
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
|
-
+
-
+
|
*/
result = TclListObjLength(interp, objv[4], &listLen);
if (result != TCL_OK) {
return result;
}
if (listLen == 0) {
Tcl_SetObjResult(interp, Tcl_NewStringObj(
TclPrintfResult(interp,
"bad operation list \"\": must be one or more of"
" array, read, unset, or write", -1));
" array, read, unset, or write");
TclSetErrorCode(interp, "TCL", "OPERATION", "TRACE", "NOOPS");
return TCL_ERROR;
}
result = TclListObjGetElements(interp, objv[4], &listLen, &elemPtrs);
if (result != TCL_OK) {
return result;
}
|