view release on metacpan or  search on metacpan

StackIO.xs  view on Meta::CPAN

	CIAO_Lib_StackIO *	stack

###########################################################################

SV *
read(stack, ...)
	CIAO_Lib_StackIO *	stack
  PREINIT:
	int idx;
	char *retval;
  PPCODE:
        /* no particular entry requested */
	if ( items == 1 )
	{
	  /* 
	     scalar context: return the next entry 
	  */
	  if ( GIMME_V == G_SCALAR )
          {
	    retval = stk_read_next( stack );
	    EXTEND(SP, 1);