From 46439007cf417cbd9ac8049bb4122c890097a0fa Mon Sep 17 00:00:00 2001
From: "Charles.Forsyth" <devnull@localhost>
Date: Fri, 22 Dec 2006 20:52:35 +0000
Subject: 20060303-partial

---
 module/crc.m | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 module/crc.m

(limited to 'module/crc.m')

diff --git a/module/crc.m b/module/crc.m
new file mode 100644
index 00000000..408af38e
--- /dev/null
+++ b/module/crc.m
@@ -0,0 +1,23 @@
+Crc: module
+{
+	PATH: con "/dis/lib/crc.dis";
+
+	CRCstate: adt {
+		crc: int;
+		crctab: array of int;
+		reg: int;
+	};
+
+	# setup crc table with given polynomial (if 0 default polynomial used) 
+	# (the polynomial has an implicit top bit set)
+	# reg is the initial value of the CRC register 
+	# (usually 0 but 16rfffffffrf in the CRC32 algorithm for example)
+	init: fn(poly: int, reg: int): ref CRCstate;
+
+	# calculate crc of first nb bytes in given array of bytes and return its value
+	# may be called repeatedly to calculate crc of a series of arrays of bytes
+	crc :	fn(state: ref CRCstate, buf: array of byte, nb: int): int;
+
+	# reset crc state to its initial value
+	reset: fn(state: ref CRCstate);
+};
-- 
cgit v1.2.3