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);
if( pairing_init_set_buf(*pairing, ptr, len) )
pbc_die("pairing init failed");
RETVAL = pairing;
OUTPUT:
RETVAL
void
pairing_clear(pairing)
pairing_t * pairing
CODE:
// fprintf(stderr, " ... freeing a pairing ... \n");
pairing_clear(*pairing);
free(pairing);
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);
int
pairing_is_symmetric(me)
pairing_t * me
CODE:
RETVAL = pairing_is_symmetric(*me);
OUTPUT:
RETVAL