addons/SHA1/source/IoSHA1.c

   1 /*#io
   2 SHA1 ioDoc(
   3                  docCopyright("Steve Dekorte", 2002)
   4                  docLicense("BSD revised")
   5                  docDescription("An object for calculating SHA1 hashes. Each has calculation should instiate it's own SHA1 instance.")
   6                  docCategory("Digests")
   7                  */
   8
   9 #include "IoSHA1.h"
  10 #include "IoState.h"
  11 #include "IoSeq.h"
  12
  13 #define DATA(self) ((IoSHA1Data *)IoObject_dataPointer(self))
  14
  15 IoTag *IoSHA1_newTag(void *state)
  16 {
  17         IoTag *tag = IoTag_newWithName_("SHA1");
  18         IoTag_state_(tag, state);
  19         IoTag_freeFunc_(tag, (IoTagFreeFunc *)IoSHA1_free);
  20         IoTag_cloneFunc_(tag, (IoTagCloneFunc *)IoSHA1_rawClone);
  21         return tag;
  22 }
  23
  24 IoSHA1 *IoSHA1_proto(void *state)
  25 {
  26         IoObject *self = IoObject_new(state);
  27         IoObject_tag_(self, IoSHA1_newTag(state));
  28
  29         IoObject_setDataPointer_(self, calloc(1, sizeof(IoSHA1Data)));
  30         SHA1Init(&(DATA(self)->context));
  31
  32         IoState_registerProtoWithFunc_(state, self, IoSHA1_proto);
  33
  34         {
  35                 IoMethodTable methodTable[] = {
  36                 {"appendSeq", IoSHA1_appendSeq},
  37                 {"sha1", IoSHA1_sha1},
  38                 {"sha1String", IoSHA1_sha1String},
  39                 {NULL, NULL},
  40                 };
  41                 IoObject_addMethodTable_(self, methodTable);
  42         }
  43         return self;
  44 }
  45
  46 IoSHA1 *IoSHA1_rawClone(IoSHA1 *proto)
  47 {
  48         IoObject *self = IoObject_rawClonePrimitive(proto);
  49         IoObject_setDataPointer_(self, calloc(1, sizeof(IoSHA1Data)));
  50         SHA1Init(&(DATA(self)->context));
  51         return self;
  52 }
  53
  54 IoSHA1 *IoSHA1_new(void *state)
  55 {
  56         IoSHA1 *proto = IoState_protoWithInitFunction_(state, IoSHA1_proto);
  57         return IOCLONE(proto);
  58 }
  59
  60 void IoSHA1_free(IoSHA1 *self)
  61 {
  62         free(IoObject_dataPointer(self));
  63 }
  64
  65 /* ----------------------------------------------------------- */
  66
  67 IoObject *IoSHA1_appendSeq(IoSHA1 *self, IoObject *locals, IoMessage *m)
  68 {
  69         /*#io
  70          docSlot("appendSeq(aSequence)",
  71                     "Appends aSequence to the hash calculation. Returns self.")
  72          */
  73
  74         IoSeq *buffer = IoMessage_locals_seqArgAt_(m, locals, 0);
  75         IOASSERT(DATA(self)->isDone == 0, "cannot append to an already calculated sha1");
  76         SHA1Update(&(DATA(self)->context),
  77                          (unsigned char const *)IoSeq_rawBytes(buffer),
  78                          IoSeq_rawSize(buffer));
  79         return self;
  80 }
  81
  82 UArray *IoSHA1_sha1UArray(IoSHA1 *self)
  83 {
  84         if (DATA(self)->isDone == 0)
  85         {
  86                 SHA1Final(DATA(self)->digest, &(DATA(self)->context));
  87                 DATA(self)->isDone = 1;
  88         }
  89
  90         return UArray_newWithData_type_size_copy_(DATA(self)->digest, CTYPE_uint8_t, SHA1_DIGEST_LENGTH, 1);
  91 }
  92
  93 IoObject *IoSHA1_sha1(IoSHA1 *self, IoObject *locals, IoMessage *m)
  94 {
  95         /*#io
  96          docSlot("sha1",
  97                     "Completes the SHA1 calculation and returns the hash as a Buffer.
  98          Once this method is called, append() should not be called again on the receiver or it will raise an exception.")
  99          */
 100         return IoSeq_newWithUArray_copy_(IOSTATE, IoSHA1_sha1UArray(self), 0);
 101 }
 102
 103 IoObject *IoSHA1_sha1String(IoSHA1 *self, IoObject *locals, IoMessage *m)
 104 {
 105         /*#io
 106          docSlot("sha1String", " description: Returns a string containing a hexadecimal representation of the sha1 hash.")
 107          */
 108         UArray *ba = IoSHA1_sha1UArray(self);
 109         UArray *baString = UArray_asNewHexStringUArray(ba);
 110         UArray_free(ba);
 111         return IoState_symbolWithUArray_copy_(IOSTATE, baString, 0);
 112 }
 113
 114