ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/OpenSSL/OpenSSL.xs
(Generate patch)

Comparing OpenSSL/OpenSSL.xs (file contents):
Revision 1.2 by root, Sat Oct 27 02:40:45 2001 UTC vs.
Revision 1.4 by root, Sat Oct 27 02:47:56 2001 UTC

53#define GEN_IO(type,class) \ 53#define GEN_IO(type,class) \
54 GEN_INPUT(type,class) \ 54 GEN_INPUT(type,class) \
55 GEN_OUTPUT(type,class) 55 GEN_OUTPUT(type,class)
56 56
57 57
58 GEN_IO(X509,"OpenSSL::X509")
59 GEN_IO(X509_CRL,"OpenSSL::CRL") 58 GEN_IO(X509_CRL,"OpenSSL::CRL")
60 GEN_IO(X509_NAME, "OpenSSL::Name") 59 GEN_IO(X509_NAME, "OpenSSL::Name")
61 GEN_IO(PKCS12, "OpenSSL::PKCS12") 60 GEN_IO(PKCS12, "OpenSSL::PKCS12")
62 GEN_IO(PKCS7, "OpenSSL::PKCS7") 61 GEN_IO(PKCS7, "OpenSSL::PKCS7")
63 GEN_IO(RSA, "OpenSSL::RSA") 62 GEN_IO(RSA, "OpenSSL::RSA")
902 ERR_load_DSA_strings(); 901 ERR_load_DSA_strings();
903 ERR_load_RSA_strings(); 902 ERR_load_RSA_strings();
904} 903}
905 904
906 905
907void 906OpenSSL::X509
908new_X509() 907new_X509()
909 PREINIT: 908 CODE:
910 X509 *x509;
911 PPCODE:
912 if((x509=X509_new()) == NULL) 909 if ((RETVAL = X509_new ()) == NULL)
913 croak("X509_new"); 910 croak("X509_new");
911
914 if(!X509_set_version(x509, 2)) { 912 if (!X509_set_version (RETVAL, 2))
915 X509_free(x509); 913 {
914 X509_free (RETVAL);
916 croak("X509_set_version"); 915 croak ("X509_set_version");
917 } 916 }
917
918 ASN1_INTEGER_set(X509_get_serialNumber(x509),0L); 918 ASN1_INTEGER_set (X509_get_serialNumber (RETVAL), 0L);
919 EXTEND(sp, 1); 919 OUTPUT:
920 PUSHs(sv_newmortal()); 920 RETVAL
921 sv_setref_pv(ST(0), "OpenSSL::X509", (void *) x509);
922 921
923 922
924void 923void
925new_from_string(thing) 924new_from_string(thing)
926 SV *thing 925 SV *thing
1092OUTPUT: 1091OUTPUT:
1093 RETVAL 1092 RETVAL
1094 1093
1095void 1094void
1096set_issuer(x509,name) 1095set_issuer(x509,name)
1097 X509 *x509 1096 OpenSSL::X509 x509
1098 X509_NAME *name 1097 X509_NAME *name
1099 CODE: 1098 CODE:
1100 X509_set_issuer_name(x509, X509_NAME_dup(name)); 1099 X509_set_issuer_name(x509, X509_NAME_dup(name));
1101 1100
1102void 1101void
1103set_subject(x509,name) 1102set_subject(x509,name)
1104 X509 *x509 1103 OpenSSL::X509 x509
1105 X509_NAME *name 1104 X509_NAME *name
1106 CODE: 1105 CODE:
1107 X509_set_subject_name(x509, X509_NAME_dup(name)); 1106 X509_set_subject_name(x509, X509_NAME_dup(name));
1108 1107
1109SV * 1108SV *

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines