The R Project SVN R

Rev

Rev 26619 | Rev 29410 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 26619 Rev 28045
Line 402... Line 402...
402 
    vmaxset(vmax);
 402 
    vmaxset(vmax);
403 
}
 403 
}
404 
 
 404 
 
405 
void Rvprintf(const char *format, va_list arg)
 405 
void Rvprintf(const char *format, va_list arg)
406 
{
 406 
{
407 
    Rconnection con = getConnection(R_OutputCon);
 407 
    int i=0, con_num=R_OutputCon;
- 
 
 408 
    Rconnection con;
408 
    static int printcount = 0;
 409 
    static int printcount = 0;
409 
    if (++printcount > 100) {
 410 
    if (++printcount > 100) {
410 
	R_CheckUserInterrupt();
 411 
	R_CheckUserInterrupt();
411 
	printcount = 0 ;
 412 
	printcount = 0 ;
412 
    }
 413 
    }
413 
 
 414
- 
 
 415 
    do{
- 
 
 416 
      con = getConnection(con_num);
414 
    con->vfprintf(con, format, arg);
 417 
      con->vfprintf(con, format, arg);
415 
    con->fflush(con);
 418 
      con->fflush(con);
- 
 
 419 
      con_num = getActiveSink(i++);
- 
 
 420 
    } while(con_num>0);
- 
 
 421
- 
 
 422
416 
}
 423 
}
417 
 
 424 
 
418 
/*
 425 
/*
419 
   REvprintf is part of the error handler.
 426 
   REvprintf is part of the error handler.
420 
   Do not change it unless you are SURE that
 427 
   Do not change it unless you are SURE that