From: ian <ian>
Date: Sat, 21 Sep 2002 16:09:50 +0000 (+0000)
Subject: Many improvements.  Now we get as far as SHA256 not being implemented.
X-Git-Tag: debian/1.1.1~147
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=commitdiff_plain;h=68fbf82ca3551b8c9f51937f481f6b3dcd50b4f5

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 7b66932..383eb53 100644
--- 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 0737bbb..fbcfc8f 100644
--- 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 7b66932..383eb53 100644
--- 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