Exemplos de wsfe em C++ (Cpp)

Exemplo n.º 1

Arquivo: wsfe.c Projeto: sharugupta/OpenUH

static int32 s_wsfe_com (cilist64 *a, unit **fu)
{
   unit           *ftnunit;
   int             n = wsfe(a, fu, 0);

   ftnunit = *fu;
   if (n)
      return n;
   if (ftnunit->uacc != KEYED) {
      if (f77nowwriting (ftnunit))
	 errret(a->cierr, 160, "startwrt");
   }

#ifdef I90
   ftnunit->f90sw = 0;
   ftnunit->f90nadv = 0;
   ftnunit->f77recpos = 0;
   ftnunit->f77recend = 0;
#endif
   ftnunit->dowrite = x_wEND;
   return (0);
}

Exemplo n.º 2

int
s_xsfe_mp (cilist *a, unit **fu)
#endif
{
   int             n = wsfe(a, fu, 0);
   unit		  *ftnunit;
   
   ftnunit = *fu;
   ftnunit->f77idxlist.cimatch = a->cimatch;
   ftnunit->f77idxlist.cikeytype = a->cikeytype;
   ftnunit->f77idxlist.cikeyval.cicharval = a->cikeyval.cicharval;
   ftnunit->f77idxlist.cikeyid = a->cikeyid;
   ftnunit->f77idxlist.cinml = a->cinml;
   ftnunit->f77idxlist.cikeyvallen = a->cikeyvallen;
   if (n) {
      return n;
   }
   if (ftnunit->uacc != KEYED)
      errret(a->cierr, 162, "rewrite");
   ftnunit->dowrite = idxrewrite;
   return (0);
}