summaryrefslogtreecommitdiff
path: root/devel/tcl-neo/files/patch-md5
blob: 439ae5d48267f607d6420ca4bc4159743c8a808f (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Everybody and  their cat  try to  ship their  own implementation  of md5
functions. Force FreeBSD's -lmd here.  Also, when creating the resulting
string-object, use our  advanced knowledge, that all md5  digests are 32
characters long.
--- neoXgeneral.c	Thu Apr 20 09:16:01 2000
+++ neoXgeneral.c	Thu Aug 16 20:46:02 2001
@@ -10,1 +10,2 @@
-#include "util_md5.h"
+#include <sys/types.h>
+#include <md5.h>
@@ -94,11 +95,13 @@
 {
     char *digest;
+    int length;
  
     if (objc != 2) {
-        Tcl_SetResult(interp, "usage: md5 string", TCL_STATIC);
+        Tcl_WrongNumArgs(interp, 1, objv, "<string>");
         return TCL_ERROR;
     }
-    digest = md5(Tcl_GetStringFromObj(objv[1], (int*)NULL));
-    Tcl_SetObjResult(interp, Tcl_NewStringObj(digest, -1));
+    digest = Tcl_GetStringFromObj(objv[1], &length);
+    digest = MD5Data(digest, length, NULL);
+    Tcl_SetObjResult(interp, Tcl_NewStringObj(digest, 32));
     return TCL_OK;
 }