1 /* smimeutil.i - SWIG (http://www.swig.org/) interface definition to 2 * produce perl module for smime tool. 3 * 4 * Copyright (c) 1999 Sampo Kellomaki <sampo@iki.fi>, All Rights Reserved. 5 * 6 * 7.10.1999, created --Sampo 7 * 17.10.1999, renamed from SMIME to SMIMEUtil --Sampo 8 */ 9 10 %module SMIMEUtil 11 12 %{ 13 #include <stdio.h> 14 #include <openssl/bio.h> 15 #include <openssl/x509.h> 16 #include <openssl/evp.h> 17 #include <openssl/pkcs12.h> 18 %} 19 20 /*%include typemaps.i 21 %apply unsigned char *REFERENCE { char** };*/ 22 23 %typemap(perl5,ignore) char** (char* junk) { 24 $target = &junk; 25 } 26 %typemap(perl5,argout) char** { 27 $target = sv_newmortal(); 28 sv_setpv($target, *$source); 29 argvi++; 30 } 31 32 %include "smimeutil.h" 33 34 /* We need ability to get rid of following objects */ 35 36 void X509_free(X509 *x509); 37 void X509_REQ_free(X509_REQ *req); 38 void EVP_PKEY_free(EVP_PKEY *pkey); 39 void PKCS12_free(PKCS12* p12); 40 41 /* EOF */