projects
/
openssl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Initial support for ASN1_ITEM_FUNCTION option to
[openssl.git]
/
perl
/
openssl_digest.xs
diff --git
a/perl/openssl_digest.xs
b/perl/openssl_digest.xs
index 5738b09e48b36dde421cda348a3132d61c69988f..4f2f8938cfc63d7e7804d47760d15d37c2609f94 100644
(file)
--- a/
perl/openssl_digest.xs
+++ b/
perl/openssl_digest.xs
@@
-1,4
+1,5
@@
-#include "p5SSLeay.h"
+
+#include "openssl.h"
int boot_digest()
{
int boot_digest()
{
@@
-6,12
+7,12
@@
int boot_digest()
return(1);
}
return(1);
}
-MODULE =
SSLeay::MD PACKAGE = SSLeay::MD
PREFIX = p5_EVP_MD_
+MODULE =
OpenSSL::MD PACKAGE = OpenSSL::MD
PREFIX = p5_EVP_MD_
PROTOTYPES: ENABLE
VERSIONCHECK: DISABLE
PROTOTYPES: ENABLE
VERSIONCHECK: DISABLE
-#
SSLeay
::MD::new(name) name= md2, md5, sha, sha1, or mdc2
+#
OpenSSL
::MD::new(name) name= md2, md5, sha, sha1, or mdc2
# md->name() - returns the name
# md->init() - reinitalises the digest
# md->update(data) - adds more data to digest
# md->name() - returns the name
# md->init() - reinitalises the digest
# md->update(data) - adds more data to digest
@@
-22,30
+23,31
@@
void
p5_EVP_MD_new(...)
PREINIT:
EVP_MD_CTX *ctx;
p5_EVP_MD_new(...)
PREINIT:
EVP_MD_CTX *ctx;
- EVP_MD *md;
+
const
EVP_MD *md;
char *name;
PPCODE:
if ((items == 1) && SvPOK(ST(0)))
char *name;
PPCODE:
if ((items == 1) && SvPOK(ST(0)))
- name=SvPV
(ST(0),na
);
+ name=SvPV
_nolen(ST(0)
);
else if ((items == 2) && SvPOK(ST(1)))
else if ((items == 2) && SvPOK(ST(1)))
- name=SvPV
(ST(1),na
);
+ name=SvPV
_nolen(ST(1)
);
else
else
- croak("Usage:
SSLeay
::MD::new(type)");
+ croak("Usage:
OpenSSL
::MD::new(type)");
PUSHs(sv_newmortal());
md=EVP_get_digestbyname(name);
if (md != NULL)
{
ctx=malloc(sizeof(EVP_MD_CTX));
EVP_DigestInit(ctx,md);
PUSHs(sv_newmortal());
md=EVP_get_digestbyname(name);
if (md != NULL)
{
ctx=malloc(sizeof(EVP_MD_CTX));
EVP_DigestInit(ctx,md);
- sv_setref_pv(ST(0), "
SSLeay
::MD", (void*)ctx);
+ sv_setref_pv(ST(0), "
OpenSSL
::MD", (void*)ctx);
}
datum
p5_EVP_MD_name(ctx)
EVP_MD_CTX *ctx
CODE:
}
datum
p5_EVP_MD_name(ctx)
EVP_MD_CTX *ctx
CODE:
- RETVAL.dptr=OBJ_nid2ln(EVP_MD_
type(EVP_MD_CTX_type(ctx)
));
+ RETVAL.dptr=OBJ_nid2ln(EVP_MD_
CTX_type(ctx
));
RETVAL.dsize=strlen(RETVAL.dptr);
RETVAL.dsize=strlen(RETVAL.dptr);
+
OUTPUT:
RETVAL
OUTPUT:
RETVAL