The R Project SVN R

Rev

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

Rev 6430 Rev 6648
Line 31... Line 31...
31 
#include "graphapp/ga.h"
 31 
#include "graphapp/ga.h"
32 
#include "console.h"
 32 
#include "console.h"
33 
#include "rui.h"
 33 
#include "rui.h"
34 
#include "getline/getline.h"
 34 
#include "getline/getline.h"
35 
#include <windows.h>  /* for CreateEvent,.. */
 35 
#include <windows.h>  /* for CreateEvent,.. */
36 
#include <process.h> /* for _begithread,... */
 36 
#include <process.h> /* for _beginthread,... */
37 
#include "run.h"
 37 
#include "run.h"
38 
#include "Startup.h"
 38 
#include "Startup.h"
39 
 
 39 
 
40 
int SaveAction = SA_DEFAULT;
 40 
int SaveAction = SA_DEFAULT;
41 
int RestoreAction = SA_RESTORE;
 41 
int RestoreAction = SA_RESTORE;
Line 375... Line 375...
375 
    KillAllDevices();
 375 
    KillAllDevices();
376 
    AllDevicesKilled = 1;
 376 
    AllDevicesKilled = 1;
377 
    if (CharacterMode == RGui)
 377 
    if (CharacterMode == RGui)
378 
	savehistory(RConsole, ".Rhistory");
 378 
	savehistory(RConsole, ".Rhistory");
379 
    UnLoad_Unzip_Dll();
 379 
    UnLoad_Unzip_Dll();
380 
    Unload_Rbitmap_Dll();
 380 
    UnLoad_Rbitmap_Dll();
381 
    app_cleanup();
 381 
    app_cleanup();
382 
    exit(status);
 382 
    exit(status);
383 
}
 383 
}
384 
 
 384 
 
385 
/*
 385 
/*
Line 697... Line 697...
697 
 */
 697 
 */
698 
    if (!R_Interactive && SaveAction != SA_SAVE && SaveAction != SA_NOSAVE)
 698 
    if (!R_Interactive && SaveAction != SA_SAVE && SaveAction != SA_NOSAVE)
699 
	R_Suicide("you must specify `--save', `--no-save' or `--vanilla'");
 699 
	R_Suicide("you must specify `--save', `--no-save' or `--vanilla'");
700 
 
 700 
 
701 
    if (InThreadReadConsole &&
701 
    if (InThreadReadConsole &&
702 
        (!(EhiWakeUp = CreateEvent(NULL,FALSE,FALSE,NULL)) ||
 702 
        (!(EhiWakeUp = CreateEvent(NULL, FALSE, FALSE, NULL)) ||
703 
	 (_beginthread(ReaderThread,0,NULL)==-1)))
 703 
	 (_beginthread(ReaderThread, 0, NULL) == -1)))
704 
      R_Suicide("impossible to create 'reader thread'; you must free some system resources");
 704 
      R_Suicide("impossible to create 'reader thread'; you must free some system resources");
705 
    return 0;
 705 
    return 0;
706 
}
 706 
}
707 
 
 707 
 
708 
 
 708