earith.xs ecomp.xs einit.xs pairing.xs @@ -9,3 +9,7 @@ t/01_load.t t/05_boneh_franklin.t typemap t/07_BF2.t +earith.xs +ecomp.xs +einit.xs +pairing.xs MANIFEST @@ -1,5 +1,3 @@ -/* $Id: PBC.xs,v 1.14 2006/11/12 20:13:32 jettero Exp $ */ - #include <pbc.h> #include "EXTERN.h" @@ -7,150 +5,17 @@ #include "XSUB.h" #include "ppport.h" - #include "const-c.inc" MODULE = Crypt::PBC PACKAGE = Crypt::PBC -INCLUDE: const-xs.inc - PROTOTYPES: ENABLE -pairing_t * -pairing_init_stream(stream) - FILE * stream - - PREINIT: - pairing_t * pairing = malloc( sizeof(pairing_t) ); - - CODE: - // fprintf(stderr, " ... malloced a pairing ... \n"); - pairing_init_inp_str(*pairing, stream); - RETVAL = pairing; - - OUTPUT: - RETVAL - -pairing_t * -pairing_init_str(str) - SV * str - - PREINIT: - STRLEN len; - char * ptr; - pairing_t * pairing = malloc( sizeof(pairing_t) ); - - CODE: - ptr = SvPV(str, len); - pairing_init_inp_buf(*pairing, ptr, len); - RETVAL = pairing; - - OUTPUT: - RETVAL - -void -pairing_clear(pairing) - pairing_t * pairing - - CODE: - // fprintf(stderr, " ... freeing a pairing ... \n"); - pairing_clear(*pairing); - free(pairing); - -element_t * -element_init_G1(pairing) - pairing_t * pairing - - PREINIT: - element_t * element = malloc( sizeof(element_t) ); - - CODE: - // fprintf(stderr, " ... malloced a G1 element ... \n"); - element_init_G1(*element, *pairing); - RETVAL = element; - - OUTPUT: - RETVAL - -element_t * -element_init_G2(pairing) - pairing_t * pairing - - PREINIT: - element_t * element = malloc( sizeof(element_t) ); - - CODE: - // fprintf(stderr, " ... malloced a G2 element ... \n"); - element_init_G2(*element, *pairing); - RETVAL = element; - - OUTPUT: - RETVAL - -element_t * -element_init_GT(pairing) - pairing_t * pairing - - PREINIT: - element_t * element = malloc( sizeof(element_t) ); - - CODE: - // fprintf(stderr, " ... malloced a GT element ... \n"); - element_init_GT(*element, *pairing); - RETVAL = element; - - OUTPUT: - RETVAL - -element_t * -element_init_Zr(pairing) - pairing_t * pairing - - PREINIT: - element_t * element = malloc( sizeof(element_t) ); - - CODE: - // fprintf(stderr, " ... malloced a Zr element ... \n"); - element_init_Zr(*element, *pairing); - RETVAL = element; - - OUTPUT: - RETVAL - -void -element_clear(element) - element_t * element - - CODE: - // fprintf(stderr, " ... freeing an element ... \n"); - element_clear(*element); - free(element); - -void -element_random(element) - element_t * element - - CODE: - element_random(*element); - -void -element_pow_zn(LHS,RHS_base,RHS_expo) - element_t * LHS - element_t * RHS_base - element_t * RHS_expo - - CODE: - element_pow_zn(*LHS, *RHS_base, *RHS_expo); - -void -pairing_apply(LHS,RHS1,RHS2,pairing) - element_t * LHS - element_t * RHS1 - element_t * RHS2 - pairing_t * pairing - - CODE: - pairing_apply(*LHS, *RHS1, *RHS2, *pairing); +INCLUDE: const-xs.inc +INCLUDE: pairing.xs +INCLUDE: einit.xs +INCLUDE: earith.xs +INCLUDE: ecomp.xs void element_fprintf(stream,format,element) @@ -161,7 +26,6 @@ element_fprintf(stream,format,element) CODE: element_fprintf(stream, format, *element); - SV * export_element(element) element_t * element @@ -185,87 +49,3 @@ export_element(element) OUTPUT: RETVAL - -void -element_from_hash(element,hash) - element_t * element - SV * hash - - PREINIT: - STRLEN len; - char * ptr; - - CODE: - ptr = SvPV(hash, len); - element_from_hash(*element, ptr, len); - -int -element_is0(element) - element_t * element - - CODE: - RETVAL = element_is0(*element); - - OUTPUT: - RETVAL - -int -element_is1(element) - element_t * element - - CODE: - RETVAL = element_is1(*element); - - OUTPUT: - RETVAL - -int -element_is_sqr(element) - element_t * element - - CODE: - RETVAL = element_is_sqr(*element); - - OUTPUT: - RETVAL - -int -element_cmp(a,b) - element_t * a - element_t * b - - CODE: - RETVAL = element_cmp(*a, *b); - - OUTPUT: - RETVAL - -void -element_set0(element) - element_t * element - - CODE: - element_set0(*element); - -void -element_set1(element) - element_t * element - - CODE: - element_set1(*element); - -void -element_set(a,b) - element_t * a - element_t * b - - CODE: - element_set(*a, *b); - -void -element_set_si(a,b) - element_t * a - long b - - CODE: - element_set_si(*a, b); PBC.xs cb022a9ebcc9a49ceb9a5f1e431e1fc91e41482d Paul Miller jettero@voltar.org http://github.com/jettero/crypt--pbc/commit/af534a14b4b40f3260a9fa689d9fd8a5437112bf af534a14b4b40f3260a9fa689d9fd8a5437112bf 2006-11-15T11:59:28-08:00 2006-11-15T11:59:28-08:00 split out all those nasty .xs files 3ceecd6c017ccb4e015a00ecab9794983452c39e Paul Miller jettero@voltar.org