static int
ThreadedReadConsole(const char *prompt, char *buf, int len, int addtohistory)
{
sighandler_t oldint,oldbreak;
/*
* SIGINT/SIGBREAK when ESS is waiting for output are a real pain:
* they get processed after user hit <return>.
* The '^C\n' in raw Rterm is nice. But, do we really need it ?
*/
oldint = signal(SIGINT, SIG_IGN);
oldbreak = signal(SIGBREAK, SIG_IGN);
mainThreadId = GetCurrentThreadId();
lineavailable = 0;
tprompt = prompt;
tbuf = buf;
tlen = len;
thist = addtohistory;
SetEvent(EhiWakeUp);
while (1) {
if (!peekevent()) WaitMessage();
if (lineavailable) break;
doevent();
if(R_Tcl_do) R_Tcl_do();
}
lineavailable = 0;
/* restore handler */
signal(SIGINT, oldint);
signal(SIGBREAK, oldbreak);
return tlen;
}
int
rpipeGetc(rpipe * r)
{
DWORD a, b;
char c;
if (!r)
return NOLAUNCH;
while (PeekNamedPipe(r->read, NULL, 0, NULL, &a, NULL)) {
if (!a && !r->active) {
/* I got a case in which process terminated after Peek.. */
PeekNamedPipe(r->read, NULL, 0, NULL, &a, NULL);
if (!a) return NOLAUNCH;/* end of pipe */
}
if (a) {
if (ReadFile(r->read, &c, 1, &b, NULL) == TRUE)
return c;
else
return NOLAUNCH;/* error but...treated as eof */
}
/* we want to look for user break here */
while (peekevent()) doevent();
if (UserBreak) {
rpipeTerminate(r);
break;
}
R_ProcessEvents();
Sleep(100);
}
return NOLAUNCH; /* again.. */
}
void R_ProcessEvents(void)
{
while (peekevent()) doevent();
if (cpuLimit > 0.0 || elapsedLimit > 0.0) {
double cpu, data[5];
R_getProcTime(data);
cpu = data[0] + data[1]; /* children? */
if (elapsedLimit > 0.0 && data[2] > elapsedLimit) {
cpuLimit = elapsedLimit = -1;
if (elapsedLimit2 > 0.0 && data[2] > elapsedLimit2) {
elapsedLimit2 = -1.0;
error(_("reached session elapsed time limit"));
} else
error(_("reached elapsed time limit"));
}
if (cpuLimit > 0.0 && cpu > cpuLimit) {
cpuLimit = elapsedLimit = -1;
if (cpuLimit2 > 0.0 && cpu > cpuLimit2) {
cpuLimit2 = -1.0;
error(_("reached session CPU time limit"));
} else
error(_("reached CPU time limit"));
}
}
if (UserBreak) {
UserBreak = FALSE;
onintr();
}
R_CallBackHook();
if(R_Tcl_do) R_Tcl_do();
}
wchar_t *askfilenamesW(const wchar_t *title, const wchar_t *default_name,
int multi,
const wchar_t *filters, int filterindex,
const wchar_t *dir)
{
int i;
OPENFILENAMEW ofn;
char cwd[MAX_PATH];
wchar_t wcod[MAX_PATH];
HWND prev = GetFocus();
if (!default_name) default_name = L"";
memset(wcsbuf, 0, sizeof(wcsbuf));
wcscpy(wcsbuf, default_name);
GetCurrentDirectory(MAX_PATH, cwd);
if (!strcmp(cod, "")) {
if (!dir) GetCurrentDirectoryW(MAX_PATH, wcod); else wcscpy(wcod, dir);
} else
mbstowcs(wcod, cod, MAX_PATH);
ofn.lStructSize = sizeof(OPENFILENAME);
ofn.hwndOwner = current_window ? current_window->handle : 0;
ofn.hInstance = 0;
ofn.lpstrFilter = filters;
ofn.lpstrCustomFilter = NULL;
ofn.nMaxCustFilter = 0;
ofn.nFilterIndex = filterindex;
ofn.lpstrFile = wcsbuf;
ofn.nMaxFile = 65520; /* precaution against overflow */
ofn.lpstrFileTitle = NULL;
ofn.nMaxFileTitle = _MAX_FNAME + _MAX_EXT;
ofn.lpstrInitialDir = wcod;
ofn.lpstrTitle = title;
ofn.Flags = OFN_CREATEPROMPT | OFN_HIDEREADONLY | OFN_EXPLORER;
if (multi) ofn.Flags |= OFN_ALLOWMULTISELECT;
ofn.nFileOffset = 0;
ofn.nFileExtension = 0;
ofn.lpstrDefExt = L"*";
ofn.lCustData = 0L;
ofn.lpfnHook = NULL;
ofn.lpTemplateName = NULL;
if (GetOpenFileNameW(&ofn) == 0) {
/* This could fail if the Unicode name is not a native name */
DWORD res = GetCurrentDirectory(MAX_PATH, cod);
if(res) strcpy(cod, cwd);
SetCurrentDirectory(cwd);
wcsbuf[0] = 0;
wcsbuf[1] = 0;
} else {
DWORD res = GetCurrentDirectory(MAX_PATH, cod);
if(res) strcpy(cod, cwd);
SetCurrentDirectory(cwd);
for (i = 0; i < 10; i++) if (peekevent()) doevent();
}
SetFocus(prev);
return wcsbuf;
}
void R_ProcessEvents(void)
{
while (peekevent()) doevent();
if (UserBreak) {
UserBreak = FALSE;
onintr();
}
R_CallBackHook();
if(R_tcldo) R_tcldo();
}
char *askfilesavewithdir(const char *title, const char *default_name,
const char *dir)
{
int i;
OPENFILENAME ofn;
char cwd[MAX_PATH], *defext = NULL;
if (!default_name) default_name = "";
else if(default_name[0] == '|') {
defext = (char *)default_name + 2;
default_name = "";
}
strcpy(strbuf, default_name);
ofn.lStructSize = sizeof(OPENFILENAME);
ofn.hwndOwner = current_window ? current_window->handle : 0;
ofn.hInstance = 0;
ofn.lpstrFilter = userfilter?userfilter:filter[0];
ofn.lpstrCustomFilter = NULL;
ofn.nMaxCustFilter = 0;
ofn.nFilterIndex = 0;
ofn.lpstrFile = strbuf;
ofn.nMaxFile = BUFSIZE;
ofn.lpstrFileTitle = NULL;
ofn.nMaxFileTitle = _MAX_FNAME + _MAX_EXT;
if(dir && strlen(dir) > 0) {
strcpy(cwd, dir);
/* This should have been set to use backslashes in the caller */
ofn.lpstrInitialDir = cwd;
} else {
if (GetCurrentDirectory(MAX_PATH, cwd))
ofn.lpstrInitialDir = cwd;
else
ofn.lpstrInitialDir = NULL;
}
ofn.lpstrTitle = title;
ofn.Flags = OFN_OVERWRITEPROMPT |
OFN_NOCHANGEDIR | OFN_HIDEREADONLY;
ofn.nFileOffset = 0;
ofn.nFileExtension = 0;
ofn.lpstrDefExt = defext;
ofn.lCustData = 0L;
ofn.lpfnHook = NULL;
ofn.lpTemplateName = NULL;
if (GetSaveFileName(&ofn) == 0)
return NULL;
else {
for (i = 0; i < 10; i++) if (peekevent()) doevent();
return strbuf;
}
}
char *askfilenames(const char *title, const char *default_name, int multi,
const char *filters, int filterindex,
char *strbuf, int bufsize,
const char *dir)
{
int i;
OPENFILENAME ofn;
char cwd[MAX_PATH] = "";
HWND prev = GetFocus();
if (!default_name) default_name = "";
strcpy(strbuf, default_name);
GetCurrentDirectory(MAX_PATH, cwd);
if (!cod[0]) strcpy(cod, cwd);
ofn.lStructSize = sizeof(OPENFILENAME);
ofn.hwndOwner = current_window ? current_window->handle : 0;
ofn.hInstance = 0;
ofn.lpstrFilter = filters;
ofn.lpstrCustomFilter = NULL;
ofn.nMaxCustFilter = 0;
ofn.nFilterIndex = filterindex;
ofn.lpstrFile = strbuf;
ofn.nMaxFile = bufsize;
ofn.lpstrFileTitle = NULL;
ofn.nMaxFileTitle = _MAX_FNAME + _MAX_EXT;
ofn.lpstrInitialDir = dir ? dir : cod;
ofn.lpstrTitle = title;
ofn.Flags = OFN_CREATEPROMPT | OFN_HIDEREADONLY | OFN_EXPLORER;
if (multi) ofn.Flags |= OFN_ALLOWMULTISELECT;
ofn.nFileOffset = 0;
ofn.nFileExtension = 0;
ofn.lpstrDefExt = "*";
ofn.lCustData = 0L;
ofn.lpfnHook = NULL;
ofn.lpTemplateName = NULL;
if (GetOpenFileName(&ofn) == 0) {
if(!dir) GetCurrentDirectory(MAX_PATH, cod);
SetCurrentDirectory(cwd);
strbuf[0] = 0;
strbuf[1] = 0;
} else {
if(!dir) GetCurrentDirectory(MAX_PATH, cod);
SetCurrentDirectory(cwd);
for (i = 0; i < 10; i++) if (peekevent()) doevent();
}
SetFocus(prev);
return strbuf;
}
wchar_t *askfilesaveW(const char *title, const char *default_name)
{
int i;
OPENFILENAMEW ofn;
wchar_t cwd[MAX_PATH], wdef_name[MAX_PATH], wtitle[1000];
if (!default_name) wcscpy(wdef_name, L"");
else mbstowcs(wdef_name, default_name, MAX_PATH);
wcscpy(wcsbuf, wdef_name);
mbstowcs(wtitle, title, 1000);
ofn.lStructSize = sizeof(OPENFILENAME);
ofn.hwndOwner = current_window ? current_window->handle : 0;
ofn.hInstance = 0;
ofn.lpstrFilter = userfilterW ? userfilterW : wfilter[0];
ofn.lpstrCustomFilter = NULL;
ofn.nMaxCustFilter = 0;
ofn.nFilterIndex = 0;
ofn.lpstrFile = wcsbuf;
ofn.nMaxFile = BUFSIZE;
ofn.lpstrFileTitle = NULL;
ofn.nMaxFileTitle = _MAX_FNAME + _MAX_EXT;
if (GetCurrentDirectoryW(MAX_PATH, cwd))
ofn.lpstrInitialDir = cwd;
else
ofn.lpstrInitialDir = NULL;
ofn.lpstrTitle = wtitle;
ofn.Flags = OFN_OVERWRITEPROMPT |
OFN_NOCHANGEDIR | OFN_HIDEREADONLY;
ofn.nFileOffset = 0;
ofn.nFileExtension = 0;
ofn.lpstrDefExt = NULL;
ofn.lCustData = 0L;
ofn.lpfnHook = NULL;
ofn.lpTemplateName = NULL;
if (GetSaveFileNameW(&ofn) == 0)
return NULL;
else {
for (i = 0; i < 10; i++) if (peekevent()) doevent();
return wcsbuf;
}
}
/*
* Handle the events from a message dialog, hide the window afterwards.
*/
static int handle_message_dialog(window w)
{
window old;
dialog_data *d = data(w);
old = currentdrawing();
d->hit = NOT_CHOSEN_YET;
show(w);
while (d->hit == NOT_CHOSEN_YET) {
if (!peekevent()) WaitMessage();
doevent();
}
hide(w);
if (old) drawto(old);
return d->hit;
}
void R_WaitEvent(void)
{
if (!peekevent()) waitevent();
}
