view release on metacpan or  search on metacpan

Ex1/Ex1.xs  view on Meta::CPAN

	ex1_struct *self
    CODE:
	RETVAL = self->blue;
    OUTPUT:
	RETVAL

void
set_blue( self , val )
	ex1_struct *self
	int val
    PPCODE:
	self->blue = val;

char *
red(self)
	ex1_struct *self
    CODE:
	RETVAL = self->red;
    OUTPUT:
	RETVAL

void
set_red(self,val)
	ex1_struct *self
	char *val
    PPCODE:
	strcpy( self->red, val );


MODULE = CookBookA::Ex1		PACKAGE = CookBookA::Ex1B

ex1b_struct *
newEx1B()
    CODE:
	RETVAL = (ex1b_struct*)safemalloc( sizeof( ex1b_struct ) );
	if( RETVAL == NULL ){

Ex4/Ex4.xs  view on Meta::CPAN

	}
    OUTPUT:
	RETVAL

void
push_val(self,nval)
	AvObject *self
	char *nval
    PREINIT:
	SV *svval;
    PPCODE:
	svval = newSVpv( nval, strlen( nval ) );
	av_push( self, svval );


MODULE = CookBookA::Ex4		PACKAGE = CookBookA::Ex4A

# Creating a blessed array.  An AV is a Perl type, and Perl knows
# how to destroy it, so we won't need a C-based destructor to match
# this constructor.