[Perl-openssl-checkins] Crypt/OpenSSL/Bignum Bignum.xs,1.13,1.14

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

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 );