view release on metacpan or  search on metacpan

Param.xs  view on Meta::CPAN

        CIAO_Lib_ParamPtr	pfile
        char * name
  PREINIT:
        char *	mode = get_mortalspace( SZ_PFLINE );
        char *	type = get_mortalspace( SZ_PFLINE );
        char *	value = get_mortalspace( SZ_PFLINE );
        char *	min = get_mortalspace( SZ_PFLINE );
        char *	max = get_mortalspace( SZ_PFLINE );
        char *	prompt = get_mortalspace( SZ_PFLINE );
        int result;
  PPCODE:
        if ( ParamInfo( pfile->pf, name, mode, type,
                            value, min, max, prompt ) )
        {
          EXTEND(SP, 6);
          PUSHs(sv_2mortal(newSVpv(mode, 0)));
          PUSHs(sv_2mortal(newSVpv(type, 0)));
          PUSHs(sv_2mortal(newSVpv(value, 0)));
          PUSHs(sv_2mortal(newSVpv(min, 0)));
          PUSHs(sv_2mortal(newSVpv(max, 0)));
          PUSHs(sv_2mortal(newSVpv(prompt, 0)));