|
From: <iro...@us...> - 2003-04-27 20:02:25
|
Update of /cvsroot/perl-openssl/Crypt/OpenSSL/Bignum
In directory sc8-pr-cvs1:/tmp/cvs-serv21733/Bignum
Modified Files:
Bignum.xs
Log Message:
It turns out that h2xs isn't as smart under perl 5.005 - go back to old
style so that we compile under that perl.
Index: Bignum.xs
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/Bignum/Bignum.xs,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Bignum.xs 17 Feb 2003 03:48:26 -0000 1.13
--- Bignum.xs 27 Apr 2003 20:02:21 -0000 1.14
***************
*** 9,13 ****
croak( "OpenSSL error: %s", ERR_reason_error_string( ERR_get_error() ) );
! SV * new_obj( SV * p_proto, void* obj )
{
return sv_2mortal( sv_bless( newRV_noinc( newSViv( (IV)obj ) ),
--- 9,13 ----
croak( "OpenSSL error: %s", ERR_reason_error_string( ERR_get_error() ) );
! SV* new_obj( SV * p_proto, void* obj )
{
return sv_2mortal( sv_bless( newRV_noinc( newSViv( (IV)obj ) ),
***************
*** 33,41 ****
ERR_load_crypto_strings();
! void _free_BN( BIGNUM* self )
CODE:
BN_clear_free( self );
! BIGNUM* new_from_word( SV* p_proto, unsigned long p_word )
PREINIT:
BIGNUM* bn;
--- 33,46 ----
ERR_load_crypto_strings();
! void
! _free_BN(self)
! BIGNUM* self;
CODE:
BN_clear_free( self );
! BIGNUM*
! new_from_word(p_proto, p_word)
! SV* p_proto;
! unsigned long p_word;
PREINIT:
BIGNUM* bn;
***************
*** 47,51 ****
RETVAL
! BIGNUM* new_from_decimal( SV* p_proto, char* p_dec_string )
PREINIT:
BIGNUM* bn;
--- 52,59 ----
RETVAL
! BIGNUM*
! new_from_decimal(p_proto, p_dec_string)
! SV* p_proto;
! char* p_dec_string;
PREINIT:
BIGNUM* bn;
***************
*** 57,61 ****
RETVAL
! BIGNUM* new_from_hex( SV* p_proto, char* p_hex_string )
PREINIT:
BIGNUM* bn;
--- 65,72 ----
RETVAL
! BIGNUM*
! new_from_hex(p_proto, p_hex_string)
! SV* p_proto;
! char* p_hex_string;
PREINIT:
BIGNUM* bn;
***************
*** 67,71 ****
RETVAL
! BIGNUM* new_from_bin( SV* p_proto, SV* p_bin_string_SV )
PREINIT:
BIGNUM* bn;
--- 78,85 ----
RETVAL
! BIGNUM*
! new_from_bin(p_proto, p_bin_string_SV)
! SV* p_proto;
! SV* p_bin_string_SV;
PREINIT:
BIGNUM* bn;
***************
*** 79,83 ****
RETVAL
! BIGNUM* zero( SV* p_proto )
PREINIT:
BIGNUM *bn;
--- 93,99 ----
RETVAL
! BIGNUM*
! zero(p_proto)
! SV* p_proto;
PREINIT:
BIGNUM *bn;
***************
*** 89,93 ****
RETVAL
! BIGNUM* one( SV* p_proto )
PREINIT:
BIGNUM *bn;
--- 105,111 ----
RETVAL
! BIGNUM*
! one(p_proto)
! SV* p_proto;
PREINIT:
BIGNUM *bn;
***************
*** 101,105 ****
! char* to_decimal( BIGNUM* self )
CODE:
checkOpenSslCall( RETVAL = BN_bn2dec( self ) );
--- 119,125 ----
! char*
! to_decimal(self)
! BIGNUM* self;
CODE:
checkOpenSslCall( RETVAL = BN_bn2dec( self ) );
***************
*** 110,114 ****
! char* to_hex( BIGNUM* self )
CODE:
checkOpenSslCall( RETVAL = BN_bn2hex( self ) );
--- 130,136 ----
! char*
! to_hex(self)
! BIGNUM* self;
CODE:
checkOpenSslCall( RETVAL = BN_bn2hex( self ) );
***************
*** 118,122 ****
OPENSSL_free( RETVAL );
! SV* to_bin( BIGNUM* self )
PREINIT:
char* bin;
--- 140,146 ----
OPENSSL_free( RETVAL );
! SV*
! to_bin(self)
! BIGNUM* self;
PREINIT:
char* bin;
***************
*** 131,139 ****
RETVAL
! unsigned long BN_get_word( BIGNUM* self )
PROTOTYPES: DISABLE
! SV* add( BIGNUM* a, BIGNUM* b, ... )
PREINIT:
BIGNUM *bn;
--- 155,168 ----
RETVAL
! unsigned long
! BN_get_word(self)
! BIGNUM* self;
PROTOTYPES: DISABLE
! SV*
! add(a, b, ...)
! BIGNUM* a;
! BIGNUM* b;
PREINIT:
BIGNUM *bn;
***************
*** 146,150 ****
XSRETURN(1);
! SV* sub( BIGNUM* a, BIGNUM* b, ... )
PREINIT:
BIGNUM *bn;
--- 175,182 ----
XSRETURN(1);
! SV*
! sub(a, b, ...)
! BIGNUM* a;
! BIGNUM* b;
PREINIT:
BIGNUM *bn;
***************
*** 157,161 ****
XSRETURN(1);
! SV* mul( BIGNUM* a, BIGNUM* b, BN_CTX* ctx, ... )
PREINIT:
BIGNUM* bn;
--- 189,197 ----
XSRETURN(1);
! SV*
! mul(a, b, ctx, ...)
! BIGNUM* a;
! BIGNUM* b;
! BN_CTX* ctx;
PREINIT:
BIGNUM* bn;
***************
*** 168,172 ****
XSRETURN(1);
! SV* div( BIGNUM* a, BIGNUM* b, BN_CTX* ctx, ... )
PREINIT:
BIGNUM* quotient;
--- 204,212 ----
XSRETURN(1);
! SV*
! div(a, b, ctx, ...)
! BIGNUM* a;
! BIGNUM* b;
! BN_CTX* ctx;
PREINIT:
BIGNUM* quotient;
***************
*** 182,186 ****
XSRETURN(2);
! BIGNUM* sqr( BIGNUM* a, BN_CTX* ctx )
PREINIT:
BIGNUM* bn;
--- 222,229 ----
XSRETURN(2);
! BIGNUM*
! sqr(a, ctx)
! BIGNUM* a;
! BN_CTX* ctx;
PREINIT:
BIGNUM* bn;
***************
*** 194,198 ****
RETVAL
! SV* mod( BIGNUM* a, BIGNUM* b, BN_CTX* ctx, ... )
PREINIT:
BIGNUM* bn;
--- 237,245 ----
RETVAL
! SV*
! mod(a, b, ctx, ...)
! BIGNUM* a;
! BIGNUM* b;
! BN_CTX* ctx;
PREINIT:
BIGNUM* bn;
***************
*** 205,209 ****
XSRETURN(1);
! BIGNUM* mod_mul( BIGNUM* a, BIGNUM* b, BIGNUM* m, BN_CTX* ctx )
PREINIT:
BIGNUM* bn;
--- 252,261 ----
XSRETURN(1);
! BIGNUM*
! mod_mul(a, b, m, ctx)
! BIGNUM* a;
! BIGNUM* b;
! BIGNUM* m;
! BN_CTX* ctx;
PREINIT:
BIGNUM* bn;
***************
*** 217,221 ****
RETVAL
! BIGNUM* exp( BIGNUM* a, BIGNUM* p, BN_CTX* ctx )
PREINIT:
BIGNUM* bn;
--- 269,277 ----
RETVAL
! BIGNUM*
! exp(a, p, ctx)
! BIGNUM* a;
! BIGNUM* p;
! BN_CTX* ctx;
PREINIT:
BIGNUM* bn;
***************
*** 229,233 ****
RETVAL
! BIGNUM* mod_exp( BIGNUM* a, BIGNUM* p, BIGNUM* m, BN_CTX* ctx )
PREINIT:
BIGNUM* bn;
--- 285,294 ----
RETVAL
! BIGNUM*
! mod_exp(a, p, m, ctx)
! BIGNUM* a;
! BIGNUM* p;
! BIGNUM* m;
! BN_CTX* ctx;
PREINIT:
BIGNUM* bn;
***************
*** 241,245 ****
RETVAL
! BIGNUM* mod_inverse( BIGNUM* a, BIGNUM* n, BN_CTX* ctx )
PREINIT:
BIGNUM* bn;
--- 302,310 ----
RETVAL
! BIGNUM*
! mod_inverse(a, n, ctx)
! BIGNUM* a;
! BIGNUM* n;
! BN_CTX* ctx;
PREINIT:
BIGNUM* bn;
***************
*** 253,257 ****
RETVAL
! BIGNUM* gcd( BIGNUM* a, BIGNUM* b, BN_CTX* ctx )
PREINIT:
BIGNUM* bn;
--- 318,326 ----
RETVAL
! BIGNUM*
! gcd(a, b, ctx)
! BIGNUM* a;
! BIGNUM* b;
! BN_CTX* ctx;
PREINIT:
BIGNUM* bn;
***************
*** 265,277 ****
RETVAL
! int BN_cmp( BIGNUM* a, BIGNUM* b )
! int BN_is_zero( BIGNUM* a )
! int BN_is_one( BIGNUM* a )
! int BN_is_odd( BIGNUM* a )
! BIGNUM* copy( BIGNUM* a )
PREINIT:
SV* p_proto;
--- 334,357 ----
RETVAL
! int
! BN_cmp(a, b)
! BIGNUM* a;
! BIGNUM* b;
! int
! BN_is_zero(a)
! BIGNUM* a;
! int
! BN_is_one(a)
! BIGNUM* a;
! int
! BN_is_odd(a)
! BIGNUM* a;
! BIGNUM*
! copy(a)
! BIGNUM* a;
PREINIT:
SV* p_proto;
***************
*** 282,286 ****
RETVAL
! IV pointer_copy( BIGNUM* a )
PREINIT:
CODE:
--- 362,368 ----
RETVAL
! IV
! pointer_copy(a)
! BIGNUM* a;
PREINIT:
CODE:
***************
*** 291,298 ****
MODULE = Crypt::OpenSSL::Bignum PACKAGE = Crypt::OpenSSL::Bignum::CTX PREFIX=BN_CTX_
! BN_CTX* BN_CTX_new( SV* p_proto );
C_ARGS:
! void _free_BN_CTX( BN_CTX* self )
CODE:
BN_CTX_free( self );
--- 373,384 ----
MODULE = Crypt::OpenSSL::Bignum PACKAGE = Crypt::OpenSSL::Bignum::CTX PREFIX=BN_CTX_
! BN_CTX*
! BN_CTX_new(p_proto)
! SV* p_proto;
C_ARGS:
! void
! _free_BN_CTX(self)
! BN_CTX* self;
CODE:
BN_CTX_free( self );
|