X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;ds=sidebyside;f=hbytes%2Fhbytes-base.tct;fp=hbytes%2Fhbytes-base.tct;h=97b7ed3ad29237aa18a0f0b73b3703ed79975e26;hb=288c17549e4d409b60147b6eb8444e72c0eea4e2;hp=0000000000000000000000000000000000000000;hpb=da1c2c3cbb87a600f19e250f93ef9fa4f89844fc;p=chiark-tcl.git

diff --git a/hbytes/hbytes-base.tct b/hbytes/hbytes-base.tct
new file mode 100644
index 0000000..97b7ed3
--- /dev/null
+++ b/hbytes/hbytes-base.tct
@@ -0,0 +1,10 @@
+Type hb:			HBytes_Value @
+Init hb				cht_hb_sentinel(&@);
+
+Type hbv:			HBytes_Var @
+Init hbv			@.hb=0; cht_init_somethingv(&@.sth);
+Fini hbv			cht_fini_somethingv(ip, rc, &@.sth);
+
+Type addrmapv:			AddrMap_Var @
+Init addrmapv			@.am=0; cht_init_somethingv(&@.sth);
+Fini addrmapv			cht_fini_somethingv(ip, rc, &@.sth);