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

Comparing OpenSSL/OpenSSL.xs (file contents):
Revision 1.1 by stefan, Sat Oct 27 01:53:22 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")
64 GEN_IO(EVP_MD_CTX, "OpenSSL::Digest") 63 GEN_IO(EVP_MD_CTX, "OpenSSL::Digest")
65 GEN_IO(EVP_CIPHER_CTX, "OpenSSL::Cipher") 64 GEN_IO(EVP_CIPHER_CTX, "OpenSSL::Cipher")
66 65
66typedef X509 *OpenSSL__X509;
67 67
68static inline SV* output_ASN1_INTEGER(ASN1_INTEGER *ai, SV *sv) 68static inline SV* output_ASN1_INTEGER(ASN1_INTEGER *ai, SV *sv)
69{ 69{
70 if(!ai) 70 if(!ai)
71 croak("got 0-ptr"); 71 croak("got 0-ptr");
… …
901 ERR_load_DSA_strings(); 901 ERR_load_DSA_strings();
902 ERR_load_RSA_strings(); 902 ERR_load_RSA_strings();
903} 903}
904 904
905 905
906void 906OpenSSL::X509
907new_X509() 907new_X509()
908 PREINIT: 908 CODE:
909 X509 *x509;
910 PPCODE:
911 if((x509=X509_new()) == NULL) 909 if ((RETVAL = X509_new ()) == NULL)
912 croak("X509_new"); 910 croak("X509_new");
911
913 if(!X509_set_version(x509, 2)) { 912 if (!X509_set_version (RETVAL, 2))
914 X509_free(x509); 913 {
914 X509_free (RETVAL);
915 croak("X509_set_version"); 915 croak ("X509_set_version");
916 } 916 }
917
917 ASN1_INTEGER_set(X509_get_serialNumber(x509),0L); 918 ASN1_INTEGER_set (X509_get_serialNumber (RETVAL), 0L);
918 EXTEND(sp, 1); 919 OUTPUT:
919 PUSHs(sv_newmortal()); 920 RETVAL
920 sv_setref_pv(ST(0), "OpenSSL::X509", (void *) x509);
921 921
922 922
923void 923void
924new_from_string(thing) 924new_from_string(thing)
925 SV *thing 925 SV *thing
… …
949 PUSHs(sv_newmortal()); 949 PUSHs(sv_newmortal());
950 sv_setref_pv(ST(0), "OpenSSL::X509", (void *) x509); 950 sv_setref_pv(ST(0), "OpenSSL::X509", (void *) x509);
951 951
952void 952void
953DESTROY(x509) 953DESTROY(x509)
954 X509 *x509 954 OpenSSL::X509 x509
955 CODE: 955 CODE:
956 if (x509) { 956 if (x509) {
957 XD("X509_free(%p)\n", x509); 957 XD("X509_free(%p)\n", x509);
958 X509_free(x509); 958 X509_free(x509);
959 x509 = 0; 959 x509 = 0;
960 } 960 }
961 961
962 962
963char * 963char *
964fingerprint_md5(x509) 964fingerprint_md5(x509)
965 X509 *x509 965 OpenSSL::X509 x509
966 ALIAS: 966 ALIAS:
967 fingerprint_md2 = 1 967 fingerprint_md2 = 1
968 fingerprint_mdc2 = 2 968 fingerprint_mdc2 = 2
969 fingerprint_sha1 = 3 969 fingerprint_sha1 = 3
970 PREINIT: 970 PREINIT:
… …
975 RETVAL 975 RETVAL
976 976
977 977
978X509_NAME * 978X509_NAME *
979subject(x509) 979subject(x509)
980 X509 *x509 980 OpenSSL::X509 x509
981 CODE: 981 CODE:
982 RETVAL = X509_get_subject_name(x509); 982 RETVAL = X509_get_subject_name(x509);
983 OUTPUT: 983 OUTPUT:
984 RETVAL 984 RETVAL
985 985
986X509_NAME * 986X509_NAME *
987issuer(x509) 987issuer(x509)
988 X509 *x509 988 OpenSSL::X509 x509
989 CODE: 989 CODE:
990 RETVAL = X509_get_issuer_name(x509); 990 RETVAL = X509_get_issuer_name(x509);
991 OUTPUT: 991 OUTPUT:
992 RETVAL 992 RETVAL
993 993
994 994
995char * 995char *
996subject_txt(x509) 996subject_txt(x509)
997 X509 *x509 997 OpenSSL::X509 x509
998 CODE: 998 CODE:
999 RETVAL = ol(X509_get_subject_name(x509)); 999 RETVAL = ol(X509_get_subject_name(x509));
1000 OUTPUT: 1000 OUTPUT:
1001 RETVAL 1001 RETVAL
1002 1002
1003 1003
1004char * 1004char *
1005issuer_txt(x509) 1005issuer_txt(x509)
1006 X509 *x509 1006 OpenSSL::X509 x509
1007 CODE: 1007 CODE:
1008 RETVAL = ol(X509_get_issuer_name(x509)); 1008 RETVAL = ol(X509_get_issuer_name(x509));
1009 OUTPUT: 1009 OUTPUT:
1010 RETVAL 1010 RETVAL
1011 1011
1012ASN1_INTEGER * 1012ASN1_INTEGER *
1013serial(x509) 1013serial(x509)
1014 X509 *x509 1014 OpenSSL::X509 x509
1015 CODE: 1015 CODE:
1016 RETVAL = X509_get_serialNumber(x509); 1016 RETVAL = X509_get_serialNumber(x509);
1017 OUTPUT: 1017 OUTPUT:
1018 RETVAL 1018 RETVAL
1019 1019
1020 1020
1021int 1021int
1022version(x509) 1022version(x509)
1023 X509 *x509 1023 OpenSSL::X509 x509
1024 CODE: 1024 CODE:
1025 RETVAL = X509_get_version(x509); 1025 RETVAL = X509_get_version(x509);
1026 OUTPUT: 1026 OUTPUT:
1027 RETVAL 1027 RETVAL
1028 1028
1029ASN1_UTCTIME * 1029ASN1_UTCTIME *
1030notBefore(x509) 1030notBefore(x509)
1031 X509 *x509 1031 OpenSSL::X509 x509
1032 CODE: 1032 CODE:
1033 RETVAL = X509_get_notBefore(x509); 1033 RETVAL = X509_get_notBefore(x509);
1034 OUTPUT: 1034 OUTPUT:
1035 RETVAL 1035 RETVAL
1036 1036
1037ASN1_UTCTIME * 1037ASN1_UTCTIME *
1038notAfter(x509) 1038notAfter(x509)
1039 X509 *x509 1039 OpenSSL::X509 x509
1040 CODE: 1040 CODE:
1041 RETVAL = X509_get_notAfter(x509); 1041 RETVAL = X509_get_notAfter(x509);
1042 OUTPUT: 1042 OUTPUT:
1043 RETVAL 1043 RETVAL
1044 1044
1045int 1045int
1046cert_type(x509) 1046cert_type(x509)
1047 X509 *x509 1047 OpenSSL::X509 x509
1048 CODE: 1048 CODE:
1049 RETVAL = X509_certificate_type(x509, 0); 1049 RETVAL = X509_certificate_type(x509, 0);
1050 OUTPUT: 1050 OUTPUT:
1051 RETVAL 1051 RETVAL
1052 1052
1053SV* 1053SV*
1054as_string(x509,...) 1054as_string(x509,...)
1055 X509 *x509 1055 OpenSSL::X509 x509
1056 ALIAS: 1056 ALIAS:
1057 as_file = 1 1057 as_file = 1
1058 PROTOTYPE: $;$ 1058 PROTOTYPE: $;$
1059 PREINIT: 1059 PREINIT:
1060 BIO *bio; 1060 BIO *bio;
… …
1076 OUTPUT: 1076 OUTPUT:
1077 RETVAL 1077 RETVAL
1078 1078
1079SV* 1079SV*
1080info(x509) 1080info(x509)
1081 X509 *x509 1081 OpenSSL::X509 x509
1082 PREINIT: 1082 PREINIT:
1083 BIO *bio; 1083 BIO *bio;
1084 CODE: 1084 CODE:
1085 bio = sv_bio_create(); 1085 bio = sv_bio_create();
1086 if(!X509_print(bio,x509)) { 1086 if(!X509_print(bio,x509)) {
… …
1091OUTPUT: 1091OUTPUT:
1092 RETVAL 1092 RETVAL
1093 1093
1094void 1094void
1095set_issuer(x509,name) 1095set_issuer(x509,name)
1096 X509 *x509 1096 OpenSSL::X509 x509
1097 X509_NAME *name 1097 X509_NAME *name
1098 CODE: 1098 CODE:
1099 X509_set_issuer_name(x509, X509_NAME_dup(name)); 1099 X509_set_issuer_name(x509, X509_NAME_dup(name));
1100 1100
1101void 1101void
1102set_subject(x509,name) 1102set_subject(x509,name)
1103 X509 *x509 1103 OpenSSL::X509 x509
1104 X509_NAME *name 1104 X509_NAME *name
1105 CODE: 1105 CODE:
1106 X509_set_subject_name(x509, X509_NAME_dup(name)); 1106 X509_set_subject_name(x509, X509_NAME_dup(name));
1107 1107
1108SV * 1108SV *
1109errstring(x509) 1109errstring(x509)
1110 X509 *x509 1110 OpenSSL::X509 x509
1111 PREINIT: 1111 PREINIT:
1112 BIO *bio; 1112 BIO *bio;
1113 CODE: 1113 CODE:
1114 bio = sv_bio_create(); 1114 bio = sv_bio_create();
1115 ERR_print_errors(bio); 1115 ERR_print_errors(bio);

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines