The R Project SVN R

Rev

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

Rev 30225 Rev 30597
Line 24... Line 24...
24 
 
 24 
 
25 
#ifdef HAVE_AQUA
 25 
#ifdef HAVE_AQUA
26 
extern void R_ProcessEvents(void);
 26 
extern void R_ProcessEvents(void);
27 
#endif
 27 
#endif
28 
 
 28 
 
29 
 
 - 
 
30 
#include <Defn.h>
 29 
#include <Defn.h>
31 
/* -> Errormsg.h */
 30 
/* -> Errormsg.h */
32 
#include <Startup.h> /* rather cleanup ..*/
 31 
#include <Startup.h> /* rather cleanup ..*/
33 
#include <Rconnections.h>
 32 
#include <Rconnections.h>
34 
 
 33 
 
Line 90... Line 89...
90 
    if (R_interrupts_suspended) {
 89 
    if (R_interrupts_suspended) {
91 
	R_interrupts_pending = 1;
 90 
	R_interrupts_pending = 1;
92 
	return;
 91 
	return;
93 
    }
 92 
    }
94 
    else R_interrupts_pending = 0;
 93 
    else R_interrupts_pending = 0;
95 
 
 - 
 
96 
    signalInterrupt();
 94 
    signalInterrupt();
97 
 
 95 
 
98 
    REprintf("\n");
 96 
    REprintf("\n");
99 
    /* Attempt to run user error option, save a traceback, show
 97 
    /* Attempt to run user error option, save a traceback, show
100 
       warnings, and reset console; also stop at restart (try/browser)
 98 
       warnings, and reset console; also stop at restart (try/browser)
Line 626... Line 624...
626 
       exit.  */
 624 
       exit.  */
627 
 
 625 
 
628 
    /* jump to a browser/try if one is on the stack */
 626 
    /* jump to a browser/try if one is on the stack */
629 
    if (! ignoreRestartContexts)
 627 
    if (! ignoreRestartContexts)
630 
	try_jump_to_restart();
 628 
	try_jump_to_restart();
631 
 
 - 
 
632 
    /* at this point, i.e. if we have not exited in
 629 
    /* at this point, i.e. if we have not exited in
633 
       try_jump_to_restart, we are heading for R_ToplevelContext */
 630 
       try_jump_to_restart, we are heading for R_ToplevelContext */
634 
 
 631 
 
635 
    /* only run traceback if we are not going to bail out of a
 632 
    /* only run traceback if we are not going to bail out of a
636 
       non-interactive session */
 633 
       non-interactive session */
Line 665... Line 662...
665 
	R_CleanUp(SA_NOSAVE, 1, 0); /* quit, no save, no .Last, status=1 */
 662 
	R_CleanUp(SA_NOSAVE, 1, 0); /* quit, no save, no .Last, status=1 */
666 
    }
 663 
    }
667 
 
 664 
 
668 
    R_GlobalContext = R_ToplevelContext;
 665 
    R_GlobalContext = R_ToplevelContext;
669 
    R_restore_globals(R_GlobalContext);
 666 
    R_restore_globals(R_GlobalContext);
670 
 
 - 
 
671 
    LONGJMP(R_ToplevelContext->cjmpbuf, 0);
 667 
    LONGJMP(R_ToplevelContext->cjmpbuf, 0);
672 
 
 - 
 
673 
    /* not reached */
 668 
    /* not reached */
674 
    endcontext(&cntxt);
 669 
    endcontext(&cntxt);
675 
    inError = oldInError;
 670 
    inError = oldInError;
676 
}
 671 
}
677 
 
 672