490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
|
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
|
-
+
|
}
eachTraceObjPtr = Tcl_NewListObj(0, NULL);
Tcl_ListObjAppendElement(NULL, eachTraceObjPtr, elemObjPtr);
Tcl_DecrRefCount(elemObjPtr);
elemObjPtr = NULL;
Tcl_ListObjAppendElement(NULL, eachTraceObjPtr,
Tcl_NewStringObj(tcmdPtr->command, -1));
TclNewString(tcmdPtr->command));
Tcl_ListObjAppendElement(interp, resultListPtr, eachTraceObjPtr);
}
Tcl_SetObjResult(interp, resultListPtr);
break;
}
}
return TCL_OK;
|
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
|
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
|
-
+
|
Tcl_DecrRefCount(elemObjPtr);
continue;
}
eachTraceObjPtr = Tcl_NewListObj(0, NULL);
Tcl_ListObjAppendElement(NULL, eachTraceObjPtr, elemObjPtr);
Tcl_DecrRefCount(elemObjPtr);
elemObjPtr = Tcl_NewStringObj(tcmdPtr->command, -1);
elemObjPtr = TclNewString(tcmdPtr->command);
Tcl_ListObjAppendElement(NULL, eachTraceObjPtr, elemObjPtr);
Tcl_ListObjAppendElement(interp, resultListPtr, eachTraceObjPtr);
}
Tcl_SetObjResult(interp, resultListPtr);
break;
}
}
|
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
|
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
|
-
+
|
if (tvarPtr->flags & TCL_TRACE_UNSETS) {
TclNewLiteralStringObj(opObjPtr, "unset");
Tcl_ListObjAppendElement(NULL, elemObjPtr, opObjPtr);
}
eachTraceObjPtr = Tcl_NewListObj(0, NULL);
Tcl_ListObjAppendElement(NULL, eachTraceObjPtr, elemObjPtr);
elemObjPtr = Tcl_NewStringObj(tvarPtr->command, -1);
elemObjPtr = TclNewString(tvarPtr->command);
Tcl_ListObjAppendElement(NULL, eachTraceObjPtr, elemObjPtr);
Tcl_ListObjAppendElement(interp, resultListPtr,
eachTraceObjPtr);
}
Tcl_SetObjResult(interp, resultListPtr);
break;
}
|