-int cht_initextension(Tcl_Interp *ip, const TopLevel_Command *cmds,
- int *donep /* or 0, meaning no types follow */,
- ... /* types, terminated by 0 */) {
- static int cht_initd;
-
- const TopLevel_Command *cmd;
- Tcl_ObjType *ot;
-
- va_list al;
-
- if (!cht_initd) {
- cht_initd= 1;
- Tcl_RegisterObjType(&cht_tabledataid_nearlytype);
- Tcl_RegisterObjType(&cht_enum_nearlytype);
- Tcl_RegisterObjType(&cht_enum1_nearlytype);
- }