Key mangling, and elliptic curves.

[catacomb-perl] / catacomb.xs

diff --git a/catacomb.xs b/catacomb.xs
index ceeb484..0f010b4 100644 (file)
--- a/catacomb.xs
+++ b/catacomb.xs
@@ -1,6 +1,6 @@
 /* ---?---
  *
- * $Id: catacomb.xs,v 1.2 2004/04/08 01:36:21 mdw Exp $
+ * $Id$
  *
  * Main interface to Catacomb functionality
  *
@@ -38,7 +38,21 @@ const(name)
 #define C(x) { #x, x }
          C(GRAND_CRYPTO),
          C(PGEN_BEGIN), C(PGEN_TRY), C(PGEN_FAIL), C(PGEN_PASS),
-         C(PGEN_DONE), C(PGEN_ABORT),
+           C(PGEN_DONE), C(PGEN_ABORT),
+         C(KF_ENCMASK), C(KENC_BINARY), C(KENC_MP), C(KENC_STRUCT), 
+           C(KENC_ENCRYPT), C(KENC_STRING), C(KENC_EC),
+         C(KF_CATMASK), C(KCAT_SYMM), C(KCAT_PRIV), C(KCAT_PUB),
+           C(KCAT_SHARE), C(KF_NONSECRET),
+         C(KF_BURN), C(KF_TEMP), C(KF_OPT),
+         C(KOPEN_READ), C(KOPEN_WRITE), C(KOPEN_MASK), C(KOPEN_NOFILE),
+         C(KEXP_FOREVER), C(KEXP_EXPIRE),
+         C(KERR_OK), C(KERR_BADTAG), C(KERR_BADTYPE), C(KERR_BADCOMMENT),
+           C(KERR_DUPID), C(KERR_DUPTAG), C(KERR_READONLY), 
+           C(KERR_WILLEXPIRE), C(KERR_EXPIRED), C(KERR_BADFLAGS),
+           C(KERR_BADPASS), C(KERR_WRONGTYPE), C(KERR_NOTFOUND),
+           C(KERR_NOTFOUND), C(KERR_BADATTR),
+         C(KWRITE_OK), C(KWRITE_FAIL), C(KWRITE_BROKEN),
+         C(FTY_PRIME), C(FTY_BINARY),
 #undef C
          { 0,                          0 },
        };
@@ -51,5 +65,9 @@ PROTOTYPES: DISABLE
 
 INCLUDE: algorithms.xs
 INCLUDE: mp.xs
+INCLUDE: gf.xs
+INCLUDE: field.xs
+INCLUDE: ec.xs
 INCLUDE: misc.xs
 INCLUDE: pgen.xs
+INCLUDE: key.xs