static void editorsave(editor c)
{
textbox t = getdata(c);
EditorData p = getdata(t);
if (p->file) { /* save existing file without prompt */
editor_save_file(c, p->filename, CE_UTF8);
gsetmodified(t, 0);
}
/* if new file then prompt for name to save as */
else editorsaveas(c);
}
void editorsetfont(font f)
{
int i, ismod;
textbox t;
for (i = 0; i < neditors; i++) {
t = getdata(REditors[i]);
ismod = ggetmodified(t);
/* Don't change the modification flag when changing font */
settextfont(t, f);
gsetmodified(t, ismod);
show(t);
}
}
static void editor_load_file(editor c, const char *name, int enc)
{
textbox t = getdata(c);
EditorData p = getdata(t);
FILE *f;
char *buffer = NULL, tmp[MAX_PATH+50], tname[MAX_PATH+1];
const char *sname;
long num = 1, bufsize;
if(enc == CE_UTF8) {
wchar_t wname[MAX_PATH+1];
Rf_utf8towcs(wname, name, MAX_PATH+1);
f = R_wfopen(wname, L"r");
reEnc2(name, tname, MAX_PATH+1, CE_UTF8, CE_NATIVE, 3);
sname = tname;
} else {
f = R_fopen(name, "r");
sname = name;
}
if (f == NULL) {
snprintf(tmp, MAX_PATH+50,
G_("unable to open file %s for reading"), sname);
R_ShowMessage(tmp);
return;
}
p->file = 1;
strncpy(p->filename, name, MAX_PATH+1);
bufsize = 0;
while (num > 0) {
buffer = realloc(buffer, bufsize + 3000 + 1);
num = fread(buffer + bufsize, 1, 3000 - 1, f);
if (num >= 0) {
bufsize += num;
buffer[bufsize] = '\0';
}
else {
snprintf(tmp, MAX_PATH+50,
G_("Could not read from file '%s'"), sname);
askok(tmp);
}
}
setlimittext(t, 2 * strlen(buffer));
settext(t, buffer);
gsetmodified(t, 0);
free(buffer);
fclose(f);
}
static void editorsaveas(editor c)
{
textbox t = getdata(c);
EditorData p = getdata(t);
wchar_t *wname;
setuserfilterW(L"R files (*.R)\0*.R\0S files (*.q, *.ssc, *.S)\0*.q;*.ssc;*.S\0All files (*.*)\0*.*\0\0");
wname = askfilesaveW(G_("Save script as"), "");
if (wname) {
char name[4*MAX_PATH+1];
wcstoutf8(name, wname, MAX_PATH);
/* now check if it has an extension */
char *q = strchr(name, '.');
if(!q) strncat(name, ".R", 4*MAX_PATH);
editor_save_file(c, name, CE_UTF8);
p->file = 1;
reEnc2(name, p->filename, MAX_PATH+1, CE_UTF8, CE_NATIVE, 3);
gsetmodified(t, 0);
editor_set_title(c, p->filename);
}
show(c);
}
