nqp::sha1(...)

Author: jnthn

src/PAST/NQP.pir

@@ -645,6 +645,9 @@ entry to produce the node to be returned.
     maphash['box_s']      = 'repr_box_str__PsP'
     maphash['where']      = 'get_id__IP'
 
+    # serialization context related opcodes
+    maphash['sha1']       = 'nqp_sha1__Ss'
+
     # control opcodes
     $P0 = new ['Hash']
     $P0['pasttype'] = 'if'

src/ops/nqp.ops

@@ -14,6 +14,9 @@ BEGIN_OPS_PREAMBLE
 #include "../6model/serialization_context.h"
 #include "pmc_sub.h"
 
+/* SHA1 algorithm. */
+#include "../../3rdparty/sha1/sha1.h"
+
 #if PARROT_HAS_ICU
 #  include <unicode/uchar.h>
 #endif
@@ -1907,3 +1910,29 @@ inline op is_uprop(out INT, in STR, in STR, in INT) :base_core {
 }
 
 
+/*
+
+=item nqp_sha1
+
+Computes the SHA-1 hash of $2 and puts the result in $1.
+
+=cut
+
+*/
+inline op nqp_sha1(out STR, in STR) :base_core {
+    /* Grab the Parrot string as a C string. */
+    char *cstr = Parrot_str_to_encoded_cstring(interp, $2, Parrot_utf8_encoding_ptr);
+
+    /* Compute its SHA-1 and encode it. */
+    SHA1_CTX      context;
+    unsigned char digest[20];
+    char          output[80];
+    SHA1_Init(&context);
+    SHA1_Update(&context, (unsigned char*)cstr, strlen(cstr));
+    SHA1_Final(&context, digest);
+    SHA1_DigestToHex(digest, output);
+
+    /* Free the C-string and put result into a new string. */
+    Parrot_str_free_cstring(cstr);
+    $1 = Parrot_str_new_init(interp, &output, 40, Parrot_utf8_encoding_ptr, 0);
+}

tools/build/Makefile.in

@@ -491,6 +491,7 @@ CLEANUPS = \
   $(OPS_DIR)/*$(O) \
   $(OPS_DIR)/*$(LOAD_EXT) \
   3rdparty/libtommath/*$(O) \
+  3rdparty/sha1/*$(O) \
   $(DYNEXT_DIR)/*$(LOAD_EXT) \
 
 all: $(NQP_EXE) qregex
@@ -688,7 +689,8 @@ $(OPS_DIR)/$(OPS)$(LOAD_EXT): $(OPS_DIR)/$(OPS_SOURCE) $(DYNPMC)
 	cd src/6model/reprs && $(CC) -c @cc_o_out@Uninstantiable$(O) -I../../../$(PMC_DIR) $(CINCLUDES) $(CFLAGS) Uninstantiable.c
 	cd src/6model && $(CC) -c @cc_o_out@multi_dispatch$(O) -I../../$(PMC_DIR) $(CINCLUDES) $(CFLAGS) multi_dispatch.c
 	cd src/6model && $(CC) -c @cc_o_out@serialization_context$(O) -I../../$(PMC_DIR) $(CINCLUDES) $(CFLAGS) serialization_context.c
-	cd $(OPS_DIR) && $(LD) @ld_out@$(OPS)$(LOAD_EXT) $(OPS)$(O) $(METAMODEL_OBJS) $(LINKARGS)
+	cd 3rdparty/sha1 && $(CC) -c @cc_o_out@sha1$(O) $(CINCLUDES) $(CFLAGS) sha1.c
+	cd $(OPS_DIR) && $(LD) @ld_out@$(OPS)$(LOAD_EXT) $(OPS)$(O) $(METAMODEL_OBJS) ../../3rdparty/sha1/sha1$(O) $(LINKARGS)
 
 
 3rdparty/libtommath/bncore$(O): 3rdparty/libtommath/bncore.c $(LIBTOMMATH_H)