The R Project SVN R

Rev

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

Rev 43767 Rev 43847
Line 73... Line 73...
73 
 
 73 
 
74 
static void my_onintr(int sig)
 74 
static void my_onintr(int sig)
75 
{
 75 
{
76 
    UserBreak = 1;
 76 
    UserBreak = 1;
77 
}
 77 
}
78 
static void wrap_askok(const char *info)
 - 
 
79 
{
 - 
 
80 
    askok(info);
 - 
 
81 
}
 - 
 
82 
 
 - 
 
83 
static int wrap_askyesnocancel(const char *question)
 - 
 
84 
{
 - 
 
85 
    return askyesnocancel(question);
- 
 
86 
}
 - 
 
87 
 
 78 
 
88 
int Rf_initialize_R(int argc, char **argv)
 79 
int Rf_initialize_R(int argc, char **argv)
89 
{
 80 
{
90 
    structRstart rp;
 81 
    structRstart rp;
91 
    Rstart Rp = &rp;
 82 
    Rstart Rp = &rp;
Line 108... Line 99...
108 
    Rp->home = getRUser();
 99 
    Rp->home = getRUser();
109 
    Rp->CharacterMode = LinkDLL;
 100 
    Rp->CharacterMode = LinkDLL;
110 
    Rp->ReadConsole = myReadConsole;
 101 
    Rp->ReadConsole = myReadConsole;
111 
    Rp->WriteConsole = myWriteConsole;
 102 
    Rp->WriteConsole = myWriteConsole;
112 
    Rp->CallBack = myCallBack;
 103 
    Rp->CallBack = myCallBack;
113 
    Rp->ShowMessage = wrap_askok;
 104 
    Rp->ShowMessage = askok;
114 
    Rp->YesNoCancel = wrap_askyesnocancel;
 105 
    Rp->YesNoCancel = askyesnocancel;
115 
    Rp->Busy = myBusy;
 106 
    Rp->Busy = myBusy;
116 
 
 107 
 
117 
    Rp->R_Quiet = TRUE;
 108 
    Rp->R_Quiet = TRUE;
118 
    Rp->R_Interactive = TRUE;
 109 
    Rp->R_Interactive = TRUE;
119 
    Rp->RestoreAction = SA_RESTORE;
 110 
    Rp->RestoreAction = SA_RESTORE;