* mymalloc.h: always allocate one extra byte, since some malloc's
return NULL for malloc(0) or realloc(p, 0). (This should be done
differently than wasting one byte, but alas...)
* Moved "add'l libraries" option in Makefile to an earlier place.
* Remove argument compatibility hacks (b) and (c).
* Add grey2mono, dither2mono and mono2grey to imageop.
* Dup the fd in socket.fromfd().
* Added new modules mpz, md5 (by JH, requiring GNU MP 1.2). Affects
Makefile and config.c.
* socketmodule.c: added socket.fromfd(fd, family, type, [proto]),
converted socket() to use of getargs().
diff --git a/Modules/md5module.c b/Modules/md5module.c
new file mode 100644
index 0000000..3347067
--- /dev/null
+++ b/Modules/md5module.c
@@ -0,0 +1,222 @@
+/***********************************************************
+Copyright 1992 by Stichting Mathematisch Centrum, Amsterdam, The
+Netherlands.
+
+ All Rights Reserved
+
+Permission to use, copy, modify, and distribute this software and its
+documentation for any purpose and without fee is hereby granted,
+provided that the above copyright notice appear in all copies and that
+both that copyright notice and this permission notice appear in
+supporting documentation, and that the names of Stichting Mathematisch
+Centrum or CWI not be used in advertising or publicity pertaining to
+distribution of the software without specific, written prior permission.
+
+STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
+THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
+FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE
+FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
+OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+******************************************************************/
+/* MD5 module */
+
+/* This module provides an interface to a message digest algorithm,
+ MD5 in this case */
+
+/* MD5 objects */
+
+#include "allobjects.h"
+#include "modsupport.h" /* For getargs() etc. */
+
+#include "md5.h"
+typedef struct {
+ OB_HEAD
+ MD5_CTX md5; /* the context holder */
+} md5object;
+
+extern typeobject MD5type; /* Really static, forward */
+
+#define is_md5object(v) ((v)->ob_type == &MD5type)
+
+static const char initialiser_name[] = "md5";
+
+/* #define MD5_DEBUG */
+
+static md5object *
+newmd5object()
+{
+ md5object *md5p;
+
+
+#ifdef MD5_DEBUG
+ fputs( "md5_object() called...\n", stderr );
+#endif /* def MD5_DEBUG */
+ md5p = NEWOBJ(md5object, &MD5type);
+ if (md5p == NULL)
+ return NULL;
+
+ MD5Init(&md5p->md5); /* actual initialisation */
+ return md5p;
+} /* newmd5object() */
+
+
+/* MD5 methods */
+
+static void
+md5_dealloc(md5p)
+ md5object *md5p;
+{
+#ifdef MD5_DEBUG
+ fputs( "md5_dealloc() called...\n", stderr );
+#endif /* def MD5_DEBUG */
+
+ DEL(md5p);
+} /* md5_dealloc() */
+
+
+/* MD5 initialisation */
+
+static object *
+MD5_md5(self, args)
+ object *self;
+ object *args;
+{
+ md5object *md5p;
+ char *cp = (char *)NULL;
+ int len;
+
+
+#ifdef MD5_DEBUG
+ fputs("MD5_md5() called...\n", stderr);
+#endif /* def MD5_DEBUG */
+
+ if (!getargs(args, "")) {
+ err_clear();
+ if (!getargs(args, "s#", &cp, &len))
+ return NULL;
+ }
+
+ if ((md5p = newmd5object()) == NULL)
+ return NULL;
+
+ if (cp)
+ MD5Update(&md5p->md5, cp, len);
+
+ return (object *)md5p;
+} /* MD5_md5() */
+
+
+/* MD5 methods-as-attributes */
+static object *
+md5_update(self, args)
+ md5object *self;
+ object *args;
+{
+ char *cp;
+ int len;
+
+
+ if (!getargs(args, "s#", &cp, &len))
+ return NULL;
+
+ MD5Update(&self->md5, cp, len);
+
+ INCREF(None);
+ return None;
+} /* md5_update() */
+
+static object *
+md5_digest(self, args)
+ md5object *self;
+ object *args;
+{
+ MD5_CTX mdContext;
+ stringobject *strobjp;
+
+ if (!getnoarg(args))
+ return NULL;
+
+ /* make a temporary copy, and perform the final */
+ mdContext = self->md5;
+ MD5Final(&mdContext);
+
+ return newsizedstringobject((char *)mdContext.digest, 16);
+} /* md5_digest() */
+
+static object *
+md5_copy(self, args)
+ md5object *self;
+ object *args;
+{
+ md5object *md5p;
+
+
+ if (!getnoarg(args))
+ return NULL;
+
+ if ((md5p = newmd5object()) == NULL)
+ return NULL;
+
+ md5p->md5 = self->md5;
+
+ return (object *)md5p;
+} /* md5_copy() */
+
+
+static struct methodlist md5_methods[] = {
+ {"update", md5_update},
+ {"digest", md5_digest},
+ {"copy", md5_copy},
+ {NULL, NULL} /* sentinel */
+};
+
+static object *
+md5_getattr(self, name)
+ md5object *self;
+ char *name;
+{
+ return findmethod(md5_methods, (object *)self, name);
+} /* md5_getattr() */
+
+
+static typeobject MD5type = {
+ OB_HEAD_INIT(&Typetype)
+ 0, /*ob_size*/
+ "md5", /*tp_name*/
+ sizeof(md5object), /*tp_size*/
+ 0, /*tp_itemsize*/
+ /* methods */
+ md5_dealloc, /*tp_dealloc*/
+ 0, /*tp_print*/
+ md5_getattr, /*tp_getattr*/
+ 0, /*tp_setattr*/
+ 0, /*tp_compare*/
+ 0, /*tp_repr*/
+ 0, /*tp_as_number*/
+};
+
+/* List of functions exported by this module */
+
+static struct methodlist md5_functions[] = {
+ {initialiser_name, MD5_md5},
+ {NULL, NULL} /* Sentinel */
+};
+
+
+/* Initialize this module. */
+
+void
+initmd5()
+{
+#ifdef MD5_DEBUG
+ fputs( "initmd5() called...\n", stderr );
+#endif /* def MD5_DEBUG */
+ (void)initmodule("md5", md5_functions);
+} /* initmd5() */
+
+#ifdef MAKEDUMMYINT
+int _md5_dummy_int; /* XXX otherwise, we're .bss-less (DYNLOAD->Jack?) */
+#endif /* def MAKEDUMMYINT */