| ︙ | | |
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
|
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
|
-
-
+
+
|
return TCL_ERROR;
}
if (Tcl_GetIndexFromObj(interp, objv[2], traceTypeOptions, "option",
0, &typeIndex) != TCL_OK) {
return TCL_ERROR;
}
return traceSubCmds[typeIndex](interp, optionIndex, objc, objv);
break;
default:
TCL_UNREACHABLE();
}
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
|
| ︙ | | |
340
341
342
343
344
345
346
347
348
349
350
351
352
353
|
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
|
+
+
|
break;
case TRACE_EXEC_ENTER_STEP:
flags |= TCL_TRACE_ENTER_DURING_EXEC;
break;
case TRACE_EXEC_LEAVE_STEP:
flags |= TCL_TRACE_LEAVE_DURING_EXEC;
break;
default:
TCL_UNREACHABLE();
}
}
command = TclGetStringFromObj(objv[5], &length);
if (optionIndex == TRACE_ADD) {
TraceCommandInfo *tcmdPtr = (TraceCommandInfo *)Tcl_Alloc(
offsetof(TraceCommandInfo, command) + 1 + length);
|
| ︙ | | |
496
497
498
499
500
501
502
503
504
505
506
507
508
509
|
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
|
+
+
|
Tcl_ListObjAppendElement(NULL, eachTraceObjPtr,
Tcl_NewStringObj(tcmdPtr->command, -1));
Tcl_ListObjAppendElement(interp, resultListPtr, eachTraceObjPtr);
}
Tcl_SetObjResult(interp, resultListPtr);
break;
}
default:
TCL_UNREACHABLE();
}
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
|
| ︙ | | |
576
577
578
579
580
581
582
583
584
585
586
587
588
589
|
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
|
+
+
|
switch (index) {
case TRACE_CMD_RENAME:
flags |= TCL_TRACE_RENAME;
break;
case TRACE_CMD_DELETE:
flags |= TCL_TRACE_DELETE;
break;
default:
TCL_UNREACHABLE();
}
}
command = TclGetStringFromObj(objv[5], &length);
if (optionIndex == TRACE_ADD) {
TraceCommandInfo *tcmdPtr = (TraceCommandInfo *)Tcl_Alloc(
offsetof(TraceCommandInfo, command) + 1 + length);
|
| ︙ | | |
690
691
692
693
694
695
696
697
698
699
700
701
702
703
|
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
|
+
+
|
elemObjPtr = Tcl_NewStringObj(tcmdPtr->command, -1);
Tcl_ListObjAppendElement(NULL, eachTraceObjPtr, elemObjPtr);
Tcl_ListObjAppendElement(interp, resultListPtr, eachTraceObjPtr);
}
Tcl_SetObjResult(interp, resultListPtr);
break;
}
default:
TCL_UNREACHABLE();
}
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
|
| ︙ | | |
781
782
783
784
785
786
787
788
789
790
791
792
793
794
|
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
|
+
+
|
break;
case TRACE_VAR_UNSET:
flags |= TCL_TRACE_UNSETS;
break;
case TRACE_VAR_WRITE:
flags |= TCL_TRACE_WRITES;
break;
default:
TCL_UNREACHABLE();
}
}
command = TclGetStringFromObj(objv[5], &length);
if (optionIndex == TRACE_ADD) {
CombinedTraceVarInfo *ctvarPtr = (CombinedTraceVarInfo *)Tcl_Alloc(
offsetof(CombinedTraceVarInfo, traceCmdInfo.command)
+ 1 + length);
|
| ︙ | | |
874
875
876
877
878
879
880
881
882
883
884
885
886
887
|
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
|
+
+
|
Tcl_ListObjAppendElement(NULL, eachTraceObjPtr, elemObjPtr);
Tcl_ListObjAppendElement(interp, resultListPtr,
eachTraceObjPtr);
}
Tcl_SetObjResult(interp, resultListPtr);
break;
}
default:
TCL_UNREACHABLE();
}
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
|
| ︙ | | |