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 */