config/gen/crypto/digest_pmc.in

   1 /*
   2 Copyright (C) 2008, The Perl Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 src/dynpmc/@md_file@.pmc - @md_name@ wrapper of libcrypto (libssl)
   8
   9 =head1 DESCRIPTION
  10
  11 See L<www.openssl.org>
  12
  13 =head2 Methods
  14
  15 =over 4
  16
  17 =cut
  18
  19 */
  20
  21 #include <openssl/@md_inc@.h>
  22
  23 pmclass @md_name@
  24     dynpmc
  25     need_ext
  26     group digest_group {
  27
  28 /*
  29
  30 =item C<void init()>
  31
  32 =cut
  33
  34 */
  35     void init() {
  36 @md_guard@
  37         @md_ctx@ *c     = mem_allocate_zeroed_typed(@md_ctx@);
  38         PMC_data(SELF) = c;
  39         PObj_active_destroy_SET(SELF);
  40 #else
  41         real_exception(interp, NULL, ILL_INHERIT, "@md_name@ is disabled");
  42 #endif
  43     }
  44
  45 /*
  46
  47 =item C<void destroy()>
  48
  49 =cut
  50
  51 */
  52     void destroy() {
  53 @md_guard@
  54         @md_ctx@ *c = PMC_data_typed(SELF, @md_ctx@ *);
  55         if (c) {
  56             mem_sys_free(c);
  57             PMC_data(SELF) = NULL;
  58         }
  59 #endif
  60     }
  61
  62 /*
  63
  64 =item C<PMC* clone()>
  65
  66 =cut
  67
  68 */
  69     PMC* clone() {
  70 @md_guard@
  71         PMC     *retval  = pmc_new_noinit(INTERP, SELF->vtable->base_type);
  72         @md_ctx@ *c       = mem_allocate_zeroed_typed(@md_ctx@);
  73
  74         memcpy(c, PMC_data(SELF), sizeof (@md_ctx@));
  75         PMC_data(retval) = c;
  76
  77         PObj_active_destroy_SET(retval);
  78         return retval;
  79 #else
  80         return NULL;
  81 #endif
  82     }
  83
  84
  85 /*
  86
  87 =back
  88
  89 =head2 Specific Methods
  90
  91 =over 4
  92
  93 =item C<void Init()>
  94
  95 =cut
  96
  97 */
  98     METHOD void Init() {
  99 @md_guard@
 100         @md_ctx@ *c = PMC_data_typed(SELF, @md_ctx@ *);
 101         (void)@md_name@_Init(c);
 102 #endif
 103     }
 104
 105 /*
 106
 107 =item C<void Update(STRING *buf)>
 108
 109 =cut
 110
 111 */
 112     METHOD void Update(STRING *buf) {
 113 @md_guard@
 114         @md_ctx@ *c = PMC_data_typed(SELF, @md_ctx@ *);
 115         (void)@md_name@_Update(c, (unsigned char *)buf->strstart, buf->bufused);
 116 #endif
 117     }
 118
 119 /*
 120
 121 =item C<STRING* Final()>
 122
 123 =cut
 124
 125 */
 126     METHOD STRING* Final() {
 127 @md_guard@
 128         unsigned char digest[@md_digest@_LENGTH];
 129         @md_ctx@      *c = PMC_data_typed(SELF, @md_ctx@ *);
 130         STRING       *retval;
 131
 132         (void)@md_name@_Final(digest, c);
 133         retval = string_from_cstring(INTERP, (char *)digest, @md_digest@_LENGTH);
 134
 135         RETURN(STRING *retval);
 136 #else
 137         return;
 138 #endif
 139     }
 140
 141 }
 142
 143 /*
 144
 145 =back
 146
 147 =head1 AUTHORS
 148
 149 Francois Perrad
 150
 151 =cut
 152
 153 */
 154
 155 /*
 156  * Local variables:
 157  *   c-file-style: "parrot"
 158  * End:
 159  * vim: expandtab shiftwidth=4:
 160  */