bridge/class-master/depend/pari/src/language/es.c
/* Remove one INFILE from the stack. Reset pari_infile (to the most recent
 * infile)
 * Return -1, if we're trying to pop out stdin itself; 0 otherwise
 * Check for leaked file handlers (temporary files) */
Remove one INFILE from the stack. Reset pari_infile (to the most recent
infile)
Return -1, if we're trying to pop out stdin itself; 0 otherwise
Check for leaked file handlers (temporary files)
Remove one INFILE from the stack . Reset pari_infile ( to the most recent infile ) Return - 1 if we ' re trying to pop out stdin itself ; 0 otherwise Check for leaked file handlers ( temporary files )
int
popinfile(void)
{
  pariFILE *f = last_tmp_file, *g;
  while (f)
  {
    if (f->type & mf_IN) break;
    pari_warn(warner, "I/O: leaked file descriptor (%d): %s", f->type, f->name);
    g = f; f = f->prev; pari_fclose(g);
  }
  last_tmp_file = f; if (!f) return -1;
  pari_fclose(last_tmp_file);
  for (f = last_tmp_file; f; f = f->prev)
    if (f->type & mf_IN) { pari_infile = f->file; return 0; }
  pari_infile = stdin; return 0;
}
int popinfile ( void ) { pariFILE * f = last_tmp_file , * g ; while ( f ) { if ( f -> type & mf_IN ) break ; pari_warn ( warner , " " , f -> type , f -> name ) ; g = f ; f = f -> prev ; pari_fclose ( g ) ; } last_tmp_file = f ; if ( ! f ) return -1 ; pari_fclose ( last_tmp_file ) ; for ( f = last_tmp_file ; f ; f = f -> prev ) if ( f -> type & mf_IN ) { pari_infile = f -> file ; return 0 ; } pari_infile = stdin ; return 0 ; }
Remove one INFILE from the stack.
Remove one INFILE from the stack .