X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb-perl/blobdiff_plain/68e68e18c457d31c1c61bc08dd14a56e7e7ac21e..a1a90aaf554eb974e39e34b513747eb666180776:/algs.PL

diff --git a/algs.PL b/algs.PL
index ce7d504..26c1fe3 100644
--- a/algs.PL
+++ b/algs.PL
@@ -1,6 +1,6 @@
 # -*-perl-*-
 #
-# $Id: algs.PL,v 1.2 2004/04/08 01:36:21 mdw Exp $
+# $Id$
 #
 # Create tables of algorithms
 #
@@ -31,13 +31,13 @@
 	     idea safer safersk
 	     rc2 rc5
 	     square rijndael rijndael192 rijndael256
-	     serpent
+	     serpent noekeon
 	     skipjack
 	     mars
 	     tea xtea);
 @stream = qw(rc4 seal);
-@hash = qw(md5 md4 md2 tiger
-	   sha sha256 sha384 sha512 
+@hash = qw(md5 md4 md2 tiger has160
+	   sha sha224 sha256 sha384 sha512 
 	   rmd128 rmd160 rmd256 rmd320);
 
 sub enum {
@@ -72,41 +72,12 @@ print OUT <<EOF;
 
 #include "catacomb-perl.h"
 
-#include <catacomb/crc32.h>
-
 EOF
 print OUT cross("#include <catacomb/", \@cipher, "-",
-		[qw(ecb cbc cfb counter ofb)], ".h>\n"), "\n";
-print OUT cross("#include <catacomb/", \@stream, ".h>\n"), "\n";
-print OUT cross("#include <catacomb/", \@hash, ".h>\n"), "\n";
-print OUT cross("#include <catacomb/", \@hash, "-",
-		[qw(mgf hmac)], ".h>\n"), "\n";
-
-print OUT <<EOF;
+		[qw(counter ofb)], ".h>\n"), "\n";
+print OUT cross("#include <catacomb/", \@hash, "-mgf.h>\n"), "\n";
 
-const gccipher *ciphertab[] = {
-EOF
-print OUT cross("  &", \@cipher, "_", [qw(ecb cbc cfb counter ofb)], ",\n");
-print OUT cross("  &", \@hash, "_", [qw(mgf)], ",\n");
-print OUT cross("  &", \@stream, ",\n");
 print OUT <<EOF;
-  0
-};
-
-const gchash *hashtab[] = {
-EOF
-print OUT cross("  &", \@hash, ",\n");
-print OUT <<EOF;
-  &gcrc32,
-  0
-};
-
-const gcmac *mactab[] = {
-EOF
-print OUT cross("  &", \@hash, "_", [qw(hmac nmac sslmac)], ",\n");
-print OUT <<EOF;
-  0
-};
 
 const struct randtab mgftab[] = {
 EOF