The R Project SVN R

Rev

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

Rev 50479 Rev 52103
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Language for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
 3 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
4 
 *  Copyright (C) 1997--2008  The R Development Core Team.
 4 
 *  Copyright (C) 1997--2010  The R Development Core Team.
5 
 *
 5 
 *
6 
 *  This program is free software; you can redistribute it and/or modify
 6 
 *  This program is free software; you can redistribute it and/or modify
7 
 *  it under the terms of the GNU General Public License as published by
 7 
 *  it under the terms of the GNU General Public License as published by
8 
 *  the Free Software Foundation; either version 2 of the License, or
 8 
 *  the Free Software Foundation; either version 2 of the License, or
9 
 *  (at your option) any later version.
 9 
 *  (at your option) any later version.
Line 20... Line 20...
20 
 
 20 
 
21 
#ifdef HAVE_CONFIG_H
 21 
#ifdef HAVE_CONFIG_H
22 
#include <config.h>
 22 
#include <config.h>
23 
#endif
 23 
#endif
24 
 
 24 
 
25 
/* Now in Defn.h
 - 
 
26 
#ifdef HAVE_AQUA
 - 
 
27 
extern void R_ProcessEvents(void);
 - 
 
28 
#endif
 - 
 
29 
*/
 - 
 
30 
 
 - 
 
31 
#include <Defn.h>
 25 
#include <Defn.h>
32 
/* -> Errormsg.h */
 26 
/* -> Errormsg.h */
33 
#include <Startup.h> /* rather cleanup ..*/
 27 
#include <Startup.h> /* rather cleanup ..*/
34 
#include <Rconnections.h>
 28 
#include <Rconnections.h>
35 
#include <Rinterface.h>
 29 
#include <Rinterface.h>
Line 118... Line 112...
118 
       pending.  Need to be careful not to do too much event
 112 
       pending.  Need to be careful not to do too much event
119 
       processing though: if event handlers written in R are allowed
 113 
       processing though: if event handlers written in R are allowed
120 
       to run at this point then we end up with concurrent R
 114 
       to run at this point then we end up with concurrent R
121 
       evaluations and that can cause problems until we have proper
 115 
       evaluations and that can cause problems until we have proper
122 
       concurrency support. LT */
 116 
       concurrency support. LT */
123 
#if  ( defined(HAVE_AQUA) || defined(Win32) )
 117 
#if defined(HAVE_AQUA) || defined(Win32)
124 
    R_ProcessEvents();
 118 
    R_ProcessEvents();
125 
#else
 119 
#else
126 
    R_PolledEvents();
 120 
    R_PolledEvents();
127 
    /* the same code is in R_ProcessEvents on Windows and AQUA */
 121 
    /* the same code is in R_ProcessEvents on Windows and AQUA */
128 
    if (cpuLimit > 0.0 || elapsedLimit > 0.0) {
 122 
    if (cpuLimit > 0.0 || elapsedLimit > 0.0) {