Many improvements. Now we get as far as SHA256 not being implemented.

diff --git a/base/chiark-tcl.h b/base/chiark-tcl.h
index 7b66932a2eb87c45ba4bcb8809a29d03f9b76582..383eb53582076f6e8f52ef2d5b2e94112843d368 100644 (file)
--- a/base/chiark-tcl.h
+++ b/base/chiark-tcl.h
@@ -41,7 +41,7 @@
  *  ulong mask A B                         => A & B
  *  ulong add A B                          => A + B  (mod 2^32)
  *  ulong subtract A B                     => A - B  (mod 2^32)
- *  ulong compare A B                      => 0/-1/1
+ *  ulong compare A B                      => 0  -1 (A<B)  +1 (A>B)
  *  ulong shift l|r ULONG BITS             fails if BITS >32
  *
  *  ulong ul2bitfields VALUE [SIZE TYPE [TYPE-ARG...] ...]  => 0/1

diff --git a/base/troglodyte-Makefile b/base/troglodyte-Makefile
index 0737bbba5cd6ee537e005f38a85169717def7594..fbcfc8fc881365b111a83091fda9823911095734 100644 (file)
--- a/base/troglodyte-Makefile
+++ b/base/troglodyte-Makefile
@@ -25,7 +25,7 @@ AUTO_HDRS=    tables.h
 AUTO_SRCS=     tables.c
 AUTOS=         $(AUTO_HDRS) $(AUTO_SRCS)
 
-TARGETS=       hbytes.so
+TARGETS=       hbytes.so autocode.tcl autococo.tcl
 
 CC_CRYPTO=     $(CC) $(CFLAGS) $(CPPFLAGS) -O3
 CFLAGS=                -g -Wall -Wmissing-prototypes -Wstrict-prototypes -Werror \
@@ -37,6 +37,10 @@ all:         $(TARGETS) $(AUTOS)
 hbytes.so:     $(OBJS)
                $(CC) $(CFLAGS) $(LDFLAGS) -o $@ -shared $(OBJS) $(LDLIBS)
 
+autoco%.tcl:   deco%gen.tcl decobogen.tcl general.tcl ./hbytes.so \
+                       protocol.deco
+               ./$< protocol.deco >$@.new && mv -f $@.new $@           
+
 %.c:           %.tct tcmdifgen
                ./tcmdifgen -wc -o$@ $<
 

diff --git a/hbytes/hbytes.h b/hbytes/hbytes.h
index 7b66932a2eb87c45ba4bcb8809a29d03f9b76582..383eb53582076f6e8f52ef2d5b2e94112843d368 100644 (file)
--- a/hbytes/hbytes.h
+++ b/hbytes/hbytes.h
@@ -41,7 +41,7 @@
  *  ulong mask A B                         => A & B
  *  ulong add A B                          => A + B  (mod 2^32)
  *  ulong subtract A B                     => A - B  (mod 2^32)
- *  ulong compare A B                      => 0/-1/1
+ *  ulong compare A B                      => 0  -1 (A<B)  +1 (A>B)
  *  ulong shift l|r ULONG BITS             fails if BITS >32
  *
  *  ulong ul2bitfields VALUE [SIZE TYPE [TYPE-ARG...] ...]  => 0/1