From ea35d105ec8dbf421ad1803bcb72e097d2295a18 Mon Sep 17 00:00:00 2001
From: Lucas Kanashiro <kanashiro@debian.org>
Date: Sun, 25 Jun 2017 00:00:40 -0300
Subject: Import original source of CryptX 0.048

---
 inc/CryptX_Checksum_Adler32.xs.inc | 70 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 70 insertions(+)
 create mode 100644 inc/CryptX_Checksum_Adler32.xs.inc

(limited to 'inc/CryptX_Checksum_Adler32.xs.inc')

diff --git a/inc/CryptX_Checksum_Adler32.xs.inc b/inc/CryptX_Checksum_Adler32.xs.inc
new file mode 100644
index 00000000..5a95e723
--- /dev/null
+++ b/inc/CryptX_Checksum_Adler32.xs.inc
@@ -0,0 +1,70 @@
+MODULE = CryptX         PACKAGE = Crypt::Checksum::Adler32
+
+Crypt::Checksum::Adler32
+new(Class)
+    CODE:
+        Newz(0, RETVAL, 1, adler32_state);
+        if (!RETVAL) croak("FATAL: Newz failed");
+        adler32_init(RETVAL);
+    OUTPUT:
+        RETVAL
+
+void
+DESTROY(Crypt::Checksum::Adler32 self)
+    CODE:
+        Safefree(self);
+
+void
+reset(Crypt::Checksum::Adler32 self)
+    CODE:
+        adler32_init(self);
+
+Crypt::Checksum::Adler32
+clone(Crypt::Checksum::Adler32 self)
+    CODE:
+        Newz(0, RETVAL, 1, adler32_state);
+        if (!RETVAL) croak("FATAL: Newz failed");
+        Copy(self, RETVAL, 1, adler32_state);
+    OUTPUT:
+        RETVAL
+
+void
+add(Crypt::Checksum::Adler32 self, ...)
+    PPCODE:
+    {
+        STRLEN inlen;
+        int i;
+        unsigned char *in;
+        for(i=1; i<items; i++) {
+          in = (unsigned char *)SvPVbyte(ST(i), inlen);
+          if (inlen>0) adler32_update(self, in, (unsigned long)inlen);
+        }
+        XPUSHs(ST(0)); /* return self */
+    }
+
+SV *
+digest(Crypt::Checksum::Adler32 self)
+    CODE:
+    {
+        unsigned char hash[4];
+        adler32_finish(self, hash, 4);
+        RETVAL = newSVpvn((char *) hash, 4);
+    }
+    OUTPUT:
+        RETVAL
+
+SV *
+hexdigest(Crypt::Checksum::Adler32 self)
+    CODE:
+    {
+        unsigned long i;
+        unsigned char hash[4];
+        char hash_hex[4*2 + 1];
+        adler32_finish(self, hash, 4);
+        hash_hex[0] = '\0';
+        for(i=0; i<4; i++) sprintf(&hash_hex[2*i], "%02x", hash[i]);
+        RETVAL = newSVpvn(hash_hex, strlen(hash_hex));
+    }
+    OUTPUT:
+        RETVAL
+
-- 
cgit v1.2.3