perl/OpenSSL.xs

   1 #include "p5SSLeay.h"
   2
   3 SV *new_ref(type,obj,mort)
   4 char *type;
   5 char *obj;
   6         {
   7         SV *ret;
   8
   9         if (mort)
  10                 ret=sv_newmortal();
  11         else
  12                 ret=newSViv(0);
  13         sv_setref_pv(ret,type,(void *)obj);
  14         return(ret);
  15         }
  16
  17 int ex_new(obj,data,ad,idx,argl,argp)
  18 char *obj;
  19 SV *data;
  20 CRYPTO_EX_DATA *ad;
  21 int idx;
  22 long argl;
  23 char *argp;
  24         {
  25         SV *sv;
  26
  27 fprintf(stderr,"ex_new %08X %s\n",obj,argp);
  28         sv=sv_newmortal();
  29         sv_setref_pv(sv,argp,(void *)obj);
  30         CRYPTO_set_ex_data(ad,idx,(char *)sv);
  31         return(1);
  32         }
  33
  34 void ex_cleanup(obj,data,ad,idx,argl,argp)
  35 char *obj;
  36 SV *data;
  37 CRYPTO_EX_DATA *ad;
  38 int idx;
  39 long argl;
  40 char *argp;
  41         {
  42         pr_name("ex_cleanup");
  43 fprintf(stderr,"ex_cleanup %08X %s\n",obj,argp);
  44         if (data != NULL)
  45                 SvREFCNT_dec((SV *)data);
  46         }
  47
  48 MODULE =  SSLeay        PACKAGE = SSLeay
  49
  50 BOOT:
  51         boot_bio();
  52         boot_cipher();
  53         boot_digest();
  54         boot_err();
  55         boot_ssl();
  56         boot_SSLeay__BN();
  57         boot_SSLeay__BIO();
  58         boot_SSLeay__Cipher();
  59         boot_SSLeay__MD();
  60         boot_SSLeay__ERR();
  61         boot_SSLeay__SSL();
  62         boot_SSLeay__X509();
  63