bridge/class-master/depend/pari/src/language/es.c
/* delete all "temp" files open since last reference point F */
delete all "temp" files open since last reference point F
delete all " temp " files open since last reference point F
void
tmp_restore(pariFILE *F)
{
  pariFILE *f = last_tmp_file;
  if (DEBUGFILES>1) err_printf("gp_context_restore: deleting open files...\n");
  while (f)
  {
    pariFILE *g = f->prev;
    if (f == F) break;
    pari_fclose(f); f = g;
  }
  for (; f; f = f->prev) {
    if (f->type & mf_IN) {
      pari_infile = f->file;
      if (DEBUGFILES>1)
        err_printf("restoring pari_infile to %s\n", f->name);
      break;
    }
  }
  if (!f) {
    pari_infile = stdin;
    if (DEBUGFILES>1)
      err_printf("gp_context_restore: restoring pari_infile to stdin\n");
  }
  if (DEBUGFILES>1) err_printf("done\n");
}
void tmp_restore ( pariFILE * F ) { pariFILE * f = last_tmp_file ; if ( DEBUGFILES > 1 ) err_printf ( " \n " ) ; while ( f ) { pariFILE * g = f -> prev ; if ( f == F ) break ; pari_fclose ( f ) ; f = g ; } for ( ; f ; f = f -> prev ) { if ( f -> type & mf_IN ) { pari_infile = f -> file ; if ( DEBUGFILES > 1 ) err_printf ( " \n " , f -> name ) ; break ; } } if ( ! f ) { pari_infile = stdin ; if ( DEBUGFILES > 1 ) err_printf ( " \n " ) ; } if ( DEBUGFILES > 1 ) err_printf ( " \n " ) ; }
delete all "temp" files open since last reference point F
delete all " temp " files open since last reference point F