Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Similar changes to the PropagatePublicVariable machinery. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | experiment |
| Files: | files | file ages | folders |
| SHA1: |
0bd0be830c7c05e15aa0905fb6098306 |
| User & Date: | dgp 2017-07-27 16:31:38 |
Context
|
2017-07-28
| ||
| 15:57 | Take care that the right commands are resolved in the right namespaces. Closed-Leaf check-in: fd54e0d1dc user: dgp tags: experiment | |
|
2017-07-27
| ||
| 16:31 | Similar changes to the PropagatePublicVariable machinery. check-in: 0bd0be830c user: dgp tags: experiment | |
|
2017-07-25
| ||
| 20:35 | Attempt to make code say clearly what it does, instead of achieving so much with namespace context games. check-in: 4af9618d9b user: dgp tags: experiment | |
Changes
Changes to generic/itkArchBase.c.
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
....
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
|
*/
if (result == TCL_OK) {
/*
* Casting away CONST of newval only to satisfy Tcl 8.3 and
* earlier headers.
*/
val = Tcl_SetVar2(interp, Tcl_GetString(ivPtr->fullNamePtr), (char *) NULL,
(char *) newval, TCL_LEAVE_ERR_MSG);
if (!val) {
result = TCL_ERROR;
}
}
if (result != TCL_OK) {
................................................................................
* If this variable has some "config" code, invoke it now.
*
* NOTE: Invoke the "config" code in the class scope
* containing the data member.
*/
mcode = ivPtr->codePtr;
if (mcode && mcode->bodyPtr) {
Tcl_Namespace *saveNsPtr;
Itcl_SetCallFrameResolver(interp, ivPtr->iclsPtr->resolvePtr);
saveNsPtr = Tcl_GetCurrentNamespace(interp);
Itcl_SetCallFrameNamespace(interp, ivPtr->iclsPtr->nsPtr);
result = Tcl_EvalObjEx(interp, mcode->bodyPtr, 0);
Itcl_SetCallFrameNamespace(interp, saveNsPtr);
if (result == TCL_OK) {
Tcl_ResetResult(interp);
} else {
char msg[256];
sprintf(msg, "\n (error in configuration of public variable \"%.100s\")", Tcl_GetString(ivPtr->fullNamePtr));
Tcl_AddErrorInfo(interp, msg);
|
>
>
>
>
>
>
|
<
>
|
|
>
<
>
>
>
|
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
....
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
|
*/
if (result == TCL_OK) {
/*
* Casting away CONST of newval only to satisfy Tcl 8.3 and
* earlier headers.
*/
#if 1
val = ItclSetInstanceVar(interp, Tcl_GetString(ivPtr->fullNamePtr),
NULL, newval, contextObj, ivPtr->iclsPtr);
#else
val = Tcl_SetVar2(interp, Tcl_GetString(ivPtr->fullNamePtr), (char *) NULL,
(char *) newval, TCL_LEAVE_ERR_MSG);
#endif
if (!val) {
result = TCL_ERROR;
}
}
if (result != TCL_OK) {
................................................................................
* If this variable has some "config" code, invoke it now.
*
* NOTE: Invoke the "config" code in the class scope
* containing the data member.
*/
mcode = ivPtr->codePtr;
if (mcode && mcode->bodyPtr) {
Tcl_CallFrame frame;
Itcl_PushCallFrame(interp, &frame, ivPtr->iclsPtr->nsPtr, 1);
Itcl_SetContext(interp, contextObj);
result = Tcl_EvalObjEx(interp, mcode->bodyPtr, 0);
Itcl_UnsetContext(interp);
Itcl_PopCallFrame(interp);
if (result == TCL_OK) {
Tcl_ResetResult(interp);
} else {
char msg[256];
sprintf(msg, "\n (error in configuration of public variable \"%.100s\")", Tcl_GetString(ivPtr->fullNamePtr));
Tcl_AddErrorInfo(interp, msg);
|