Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Revise cget method to direct C implementation. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | dgp-method-type |
| Files: | files | file ages | folders |
| SHA1: |
0614e72ef99e64ebf28609f988dcabfb |
| User & Date: | dgp 2015-10-22 15:48:03.832 |
Context
|
2016-02-11
| ||
| 21:00 | merge trunk check-in: 47c1ffeb42 user: dgp tags: dgp-method-type | |
|
2015-10-22
| ||
| 15:48 | Revise cget method to direct C implementation. check-in: 0614e72ef9 user: dgp tags: dgp-method-type | |
| 14:45 | compiler warning check-in: ed627972ff user: dgp tags: dgp-method-type | |
Changes
Changes to generic/itkArchetype.c.
| ︙ | ︙ | |||
61 62 63 64 65 66 67 |
struct NameProcMap { const char *name; Tcl_ObjCmdProc *proc; };
/*
* List of commands that are used to implement the [info object] subcommands.
*/
static const struct NameProcMap archetypeCmds[] = {
| < | 61 62 63 64 65 66 67 68 69 70 71 72 73 74 |
struct NameProcMap { const char *name; Tcl_ObjCmdProc *proc; };
/*
* List of commands that are used to implement the [info object] subcommands.
*/
static const struct NameProcMap archetypeCmds[] = {
{ "::itcl::builtin::Archetype::delete", Itk_ArchDeleteOptsCmd },
{ "::itcl::builtin::Archetype::init", Itk_ArchInitOptsCmd },
{ NULL, NULL }
};
/*
|
| ︙ | ︙ | |||
1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 |
CONST char *token;
CONST char *val;
ItclClass *contextClass;
ItclObject *contextObj;
ArchInfo *info;
Tcl_HashEntry *entry;
ArchOption *archOpt;
ItclShowArgs(2, "Itk_ArchCgetCmd", objc, objv);
contextClass = NULL;
if (Itcl_GetContext(interp, &contextClass, &contextObj) != TCL_OK ||
!contextObj) {
token = Tcl_GetString(objv[0]);
| > | 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 |
CONST char *token;
CONST char *val;
ItclClass *contextClass;
ItclObject *contextObj;
ArchInfo *info;
Tcl_HashEntry *entry;
ArchOption *archOpt;
Tcl_Namespace *save = Tcl_GetCurrentNamespace(interp);
ItclShowArgs(2, "Itk_ArchCgetCmd", objc, objv);
contextClass = NULL;
if (Itcl_GetContext(interp, &contextClass, &contextObj) != TCL_OK ||
!contextObj) {
token = Tcl_GetString(objv[0]);
|
| ︙ | ︙ | |||
1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 |
Tcl_AppendStringsToObj(Tcl_GetObjResult(interp),
"unknown option \"", token, "\"",
(char*)NULL);
return TCL_ERROR;
}
archOpt = (ArchOption*)Tcl_GetHashValue(entry);
val = Tcl_GetVar2(interp, "itk_option", archOpt->switchName, 0);
if (!val) {
Itk_ArchOptAccessError(interp, info, archOpt);
return TCL_ERROR;
}
/*
* Casting away CONST is safe because TCL_VOLATILE guarantees
* CONST treatment.
*/
Tcl_SetResult(interp, (char *) val, TCL_VOLATILE);
return TCL_OK;
}
| > > | 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 |
Tcl_AppendStringsToObj(Tcl_GetObjResult(interp),
"unknown option \"", token, "\"",
(char*)NULL);
return TCL_ERROR;
}
archOpt = (ArchOption*)Tcl_GetHashValue(entry);
Itcl_SetCallFrameNamespace(interp, contextObj->iclsPtr->nsPtr);
val = Tcl_GetVar2(interp, "itk_option", archOpt->switchName, 0);
Itcl_SetCallFrameNamespace(interp, save);
if (!val) {
Itk_ArchOptAccessError(interp, info, archOpt);
return TCL_ERROR;
}
/*
* Casting away CONST is safe because TCL_VOLATILE guarantees
* CONST treatment.
*/
Tcl_SetResult(interp, (char *) val, TCL_VOLATILE);
return TCL_OK;
}
|
Changes to library/Archetype.itk.
| ︙ | ︙ | |||
58 59 60 61 62 63 64 |
eval itk_initialize $args
}
destructor {
::itcl::builtin::Archetype delete
}
| | < < | 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 |
eval itk_initialize $args
}
destructor {
::itcl::builtin::Archetype delete
}
method cget {option} @Archetype-cget
method configure {{option ""} args} @Archetype-configure
method config {{option ""} args} @Archetype-configure
method component {{name ""} args} @Archetype-component
|
| ︙ | ︙ |