view release on metacpan or  search on metacpan

Ctree.xs  view on Meta::CPAN

         RETVAL = uerr_cod;
     OUTPUT:
         RETVAL

 #
 # custom GetDODA returns values as list type
 #
void
MyGetDODA(datano)
       COUNT datano
       PPCODE:
           DATOBJ doda[100];
           int    i=0;
           i=GetDODA(datano,sizeof(DATOBJ)*100,doda,SCHEMA_DODA);
           if (i)
             for(i=0; i<100 ; i++)
             {
                if (doda[i].fwhat == -1 ) break;
                EXTEND(sp, 4);
                if (doda[i].fsymb == 0 )
                   PUSHs(sv_2mortal(newSViv(i)));/*deal with null field name*/