X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=blobdiff_plain;f=base%2Fchiark-tcl.h;h=5ee975aa072b4975a8b36c5a97ebda7ebad746e2;hp=b28c2b1f5bc963e8f1daa9d7bca88109d2a8191e;hb=86161db08f15e223ff453f08436724ff1fedd88d;hpb=c1d91496221c3816863d258fc79660615e2e884a diff --git a/base/chiark-tcl.h b/base/chiark-tcl.h index b28c2b1..5ee975a 100644 --- a/base/chiark-tcl.h +++ b/base/chiark-tcl.h @@ -105,10 +105,6 @@ int cht_newfdposixerr(Tcl_Interp *ip, int fd, const char *m); void cht_objfreeir(Tcl_Obj *o); int cht_get_urandom(Tcl_Interp *ip, Byte *buffer, int l); -void cht_obj_updatestr_array(Tcl_Obj *o, const Byte *array, int l); -void cht_obj_updatestr_array_prefix(Tcl_Obj *o, const Byte *byte, - int l, const char *prefix); - void cht_obj_updatestr_vstringls(Tcl_Obj *o, ...); /* const char*, int, const char*, int, ..., (const char*)0 */ void cht_obj_updatestr_string_len(Tcl_Obj *o, const char *str, int l); @@ -223,11 +219,12 @@ int cht_enum1_lookup_cached_func(Tcl_Interp *ip, Tcl_Obj *o, initd= 1; \ return TCL_OK; \ } - + #define CHTI_OTHER(e) \ { extern void cht_prepare_##e(Tcl_Interp *ip); cht_prepare_##e(ip); } #define CHTI_TYPE(ot) { Tcl_RegisterObjType(&(ot)); } + #define CHTI_COMMANDS(cl) { cht_setup__commands(ip,cl); } #endif /*CHIARK_TCL_H*/