hbytes and crypto compile now

[chiark-tcl.git] / hbytes / hbytes-base.tct

diff --git a/hbytes/hbytes-base.tct b/hbytes/hbytes-base.tct
new file mode 100644 (file)
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);