-int cht_do_hbytestoplevel_hbytes(ClientData cd, Tcl_Interp *ip,
- const HBytes_SubCommand *subcmd,
- int objc, Tcl_Obj *const *objv) {
- return subcmd->func(0,ip,objc,objv);
-}
-
-int cht_do_hbytestoplevel_ulong(ClientData cd, Tcl_Interp *ip,
- const ULong_SubCommand *subcmd,
- int objc, Tcl_Obj *const *objv) {
- return subcmd->func(0,ip,objc,objv);
-}
-
-int Chiark_tcl_hbytes_Init(Tcl_Interp *ip) {
- static int initd;
-
- return cht_initextension(ip, cht_hbytestoplevel_entries, &initd,
- &cht_hbytes_type,
- &cht_ulong_type,
- (Tcl_ObjType*)0);
-}
+CHT_INIT(hbytes,
+ CHTI_TYPE(cht_hbytes_type) CHTI_TYPE(cht_ulong_type),
+ CHTI_COMMANDS(cht_hbytestoplevel_entries))