The R Project SVN R

#include <windows.h>
#include <stdio.h>
#include "Platform.h"
#include "Startup.h"
#include "graphapp/graphapp.h"

/* one way to allow user interrupts: called in ProcessEvents */
#define UserBreak     (*__imp_UserBreak)
extern int UserBreak;
static BOOL hCtrlc(DWORD type)
{
    if (type == CTRL_BREAK_EVENT) 
    UserBreak = 1;
    return TRUE;
}

/* calls into the R DLL */
extern char *getDLLVersion();
extern void R_SetParams(Rstart);
extern void setup_term_ui(void);
extern void ProcessEvents(void);
extern void setup_Rmainloop(), end_Rmainloop(), R_ReplDLLinit();
extern int R_ReplDLLdo1();

/* getline-based input, simple output */
#include <string.h>
#include "../getline/getline.h"
static char LastLine[512];

int myReadConsole(char *prompt, char *buf, int len, int addtohistory)
{
    static char *gl = NULL;
    int   i;

    if (!gl) {
    strcat(LastLine, prompt);
    gl = getline(LastLine);
    LastLine[0] = '\0';
    if (addtohistory) gl_histadd(gl);
    }
    for (i = 0; *gl && (*gl != '\n') && (i < len - 2); gl++, i++)
    buf[i] = *gl;
    buf[i] = '\n';
    buf[i + 1] = '\0';
    if (!*gl || (*gl == '\n')) gl = NULL;
    return 1;
}

void myWriteConsole(char *buf, int len)
{
    char *p = strrchr(buf, '\n');

    if (p) strcpy(LastLine, p + 1);
    else strcat(LastLine, buf);
    printf("%s", buf);
}

void myCallBack()
{
    /* called during i/o, eval, graphics in ProcessEvents */
}

void myBusy(int which)
{
    /* set a busy cursor ... in which = 1, unset if which = 0 */
}


int main (int argc, char **argv)
{
    structRstart rp;
    Rstart Rp = &rp;
    char Rversion[25];
    
    sprintf(Rversion, "%s.%s", R_MAJOR, R_MINOR);
    if(strcmp(getDLLVersion(), Rversion) != 0) {
    fprintf(stderr, "Error: R.DLL version does not match\n");
    exit(1);
    }

    Rp->rhome = "c:/R/rw0650";
    Rp->home = "c:/bdr";
    Rp->CharacterMode = LinkDLL;
    Rp->ReadConsole = myReadConsole;
    Rp->WriteConsole = myWriteConsole;
    Rp->CallBack = myCallBack;
    Rp->message = askok;
    Rp->yesnocancel = askyesnocancel;
    Rp->busy = myBusy;
    Rp->R_Quiet = 1;
    Rp->R_Slave = Rp->R_Interactive = Rp->R_Verbose = 0;
    Rp->RestoreAction = 0; /* no restore */
    Rp->SaveAction = 2;    /* no save */
    Rp->LoadSiteFile = Rp->LoadInitFile = 1;
    Rp->DebugInitFile = 0;
    Rp->NoRenviron = 0;
    Rp->nsize = 300000;
    Rp->vsize = 6e6;
    R_SetParams(Rp);

    FlushConsoleInputBuffer(GetStdHandle(STD_INPUT_HANDLE));
/*    SetConsoleCtrlHandler(hCtrlc, TRUE);  typedef problem on VC++ */
    LastLine[0] = 0;

    setup_term_ui();
    setup_Rmainloop();
    run_Rmainloop();
/*    R_ReplDLLinit();
      while(R_ReplDLLdo1() > 0);*/
    end_Rmainloop();
    return 0;
}