bridge/class-master/depend/pari/src/language/es.c
/* Read a "complete line" and filter it. Return: 0 if EOF, 1 otherwise */
Read a "complete line" and filter it. Return: 0 if EOF, 1 otherwise
Read a " complete line " and filter it . Return : 0 if EOF 1 otherwise
int
input_loop(filtre_t *F, input_method *IM)
{
  Buffer *b = (Buffer*)F->buf;
  char *to_read, *s = b->buf;
  if (! (to_read = IM->getline(&s,1, IM, F)) )
  {
    if (F->in_string)
    {
      pari_warn(warner,"run-away string. Closing it");
      F->in_string = 0;
    }
    if (F->in_comment)
    {
      pari_warn(warner,"run-away comment. Closing it");
      F->in_comment = 0;
    }
    return 0;
  }
  F->in_string = 0;
  F->more_input= 0;
  F->wait_for_brace = 0;
  for(;;)
  {
    if (GP_DATA->echo == 2) gp_echo_and_log("", strip_last_nl(to_read));
    F->s = to_read;
    F->t = s;
    (void)filtre0(F); 
    if (IM->free) pari_free(to_read);
    if (! F->more_input) break;
    s = F->end;
    to_read = IM->getline(&s,0, IM, F);
    if (!to_read) break;
  }
  return 1;
}
int input_loop ( filtre_t * F , input_method * IM ) { Buffer * b = ( Buffer * ) F -> buf ; char * to_read , * s = b -> buf ; if ( ! ( to_read = IM -> getline ( & s , 1 , IM , F ) ) ) { if ( F -> in_string ) { pari_warn ( warner , " " ) ; F -> in_string = 0 ; } if ( F -> in_comment ) { pari_warn ( warner , " " ) ; F -> in_comment = 0 ; } return 0 ; } F -> in_string = 0 ; F -> more_input = 0 ; F -> wait_for_brace = 0 ; for ( ; ; ) { if ( GP_DATA -> echo == 2 ) gp_echo_and_log ( " " , strip_last_nl ( to_read ) ) ; F -> s = to_read ; F -> t = s ; ( void ) filtre0 ( F ) ; if ( IM -> free ) pari_free ( to_read ) ; if ( ! F -> more_input ) break ; s = F -> end ; to_read = IM -> getline ( & s , 0 , IM , F ) ; if ( ! to_read ) break ; } return 1 ; }
Read a "complete line" and filter it.
Read a " complete line " and filter it .
/* read first line */ /* buffer is not empty, init filter */ /* pre-processing of line, read by previous call to IM->getline */ /* read continuation line */