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

Comparing OpenSSL/OpenSSL.xs (file contents):
Revision 1.5 by root, Sat Oct 27 02:52:56 2001 UTC vs.
Revision 1.6 by root, Sat Oct 27 02:55:31 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_NAME, "OpenSSL::Name")
59 GEN_IO(PKCS12, "OpenSSL::PKCS12") 58 GEN_IO(PKCS12, "OpenSSL::PKCS12")
60 GEN_IO(PKCS7, "OpenSSL::PKCS7") 59 GEN_IO(PKCS7, "OpenSSL::PKCS7")
61 GEN_IO(RSA, "OpenSSL::RSA") 60 GEN_IO(RSA, "OpenSSL::RSA")
62 GEN_IO(EVP_MD_CTX, "OpenSSL::Digest") 61 GEN_IO(EVP_MD_CTX, "OpenSSL::Digest")
63 GEN_IO(EVP_CIPHER_CTX, "OpenSSL::Cipher") 62 GEN_IO(EVP_CIPHER_CTX, "OpenSSL::Cipher")
64 63
65typedef X509 *OpenSSL__X509; 64typedef X509 *OpenSSL__X509;
66typedef X509_CRL *OpenSSL__CRL; 65typedef X509_CRL *OpenSSL__CRL;
66typedef X509_NAME *OpenSSL__Name;
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");
… …
740 740
741MODULE = OpenSSL PACKAGE = OpenSSL::Name 741MODULE = OpenSSL PACKAGE = OpenSSL::Name
742 742
743PROTOTYPES: ENABLE 743PROTOTYPES: ENABLE
744 744
745void 745OpenSSL::Name
746new_name() 746new_name()
747 PREINIT:
748 X509_NAME *name;
749 PPCODE: 747 CODE:
750 if(!(name = X509_NAME_new())) { 748 if(!(RETVAL = X509_NAME_new())) {
751 croak("X509_NAME_new"); 749 croak("X509_NAME_new");
752 } 750 }
753 EXTEND(sp, 1); 751 OUTPUT:
754 PUSHs(sv_newmortal()); 752 RETVAL
755 sv_setref_pv(ST(0), "OpenSSL::Name", (void *) name);
756 753
757 754
758void 755void
759add(name, key, string) 756add(name, key, string)
760 X509_NAME *name 757 OpenSSL::Name name
761 SV *key 758 SV *key
762 SV *string 759 SV *string
763 PREINIT: 760 PREINIT:
764 STRLEN l, kl; 761 STRLEN l, kl;
765 char *p, *k; 762 char *p, *k;
… …
775 if(!ok) 772 if(!ok)
776 croak("X509_NAME_add_entry_by_*: %s", ssl_error()); 773 croak("X509_NAME_add_entry_by_*: %s", ssl_error());
777 774
778IV 775IV
779count(name) 776count(name)
780 X509_NAME *name 777 OpenSSL::Name name
781 CODE: 778 CODE:
782 RETVAL = X509_NAME_entry_count(name); 779 RETVAL = X509_NAME_entry_count(name);
783 OUTPUT: 780 OUTPUT:
784 RETVAL 781 RETVAL
785 782
786void 783void
787getall(name) 784getall(name)
788 X509_NAME *name 785 OpenSSL::Name name
789 PREINIT: 786 PREINIT:
790 int cnt, i; 787 int cnt, i;
791 X509_NAME_ENTRY *e; 788 X509_NAME_ENTRY *e;
792 int nid; 789 int nid;
793 ASN1_STRING *s; 790 ASN1_STRING *s;
… …
808 805
809 806
810 807
811void 808void
812DESTROY(name) 809DESTROY(name)
813 X509_NAME *name 810 OpenSSL::Name name
814 CODE: 811 CODE:
815 if(name) { 812 if(name) {
816 XD("X509_NAME_free(%p)\n", name); 813 XD("X509_NAME_free(%p)\n", name);
817 X509_NAME_free(name); 814 X509_NAME_free(name);
818 } 815 }
… …
973 RETVAL = dofp(x509, mds[ix]); 970 RETVAL = dofp(x509, mds[ix]);
974 OUTPUT: 971 OUTPUT:
975 RETVAL 972 RETVAL
976 973
977 974
978X509_NAME * 975OpenSSL::Name
979subject(x509) 976subject(x509)
980 OpenSSL::X509 x509 977 OpenSSL::X509 x509
981 CODE: 978 CODE:
982 RETVAL = X509_get_subject_name(x509); 979 RETVAL = X509_get_subject_name(x509);
983 OUTPUT: 980 OUTPUT:
984 RETVAL 981 RETVAL
985 982
986X509_NAME * 983OpenSSL::Name
987issuer(x509) 984issuer(x509)
988 OpenSSL::X509 x509 985 OpenSSL::X509 x509
989 CODE: 986 CODE:
990 RETVAL = X509_get_issuer_name(x509); 987 RETVAL = X509_get_issuer_name(x509);
991 OUTPUT: 988 OUTPUT:
… …
1092 RETVAL 1089 RETVAL
1093 1090
1094void 1091void
1095set_issuer(x509,name) 1092set_issuer(x509,name)
1096 OpenSSL::X509 x509 1093 OpenSSL::X509 x509
1097 X509_NAME *name 1094 OpenSSL::Name name
1098 CODE: 1095 CODE:
1099 X509_set_issuer_name(x509, X509_NAME_dup(name)); 1096 X509_set_issuer_name(x509, X509_NAME_dup(name));
1100 1097
1101void 1098void
1102set_subject(x509,name) 1099set_subject(x509,name)
1103 OpenSSL::X509 x509 1100 OpenSSL::X509 x509
1104 X509_NAME *name 1101 OpenSSL::Name name
1105 CODE: 1102 CODE:
1106 X509_set_subject_name(x509, X509_NAME_dup(name)); 1103 X509_set_subject_name(x509, X509_NAME_dup(name));
1107 1104
1108SV * 1105SV *
1109errstring(x509) 1106errstring(x509)

Diff Legend

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