The R Project SVN R

Rev

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

Rev 63218 Rev 63219
Line 103... Line 103...
103 
static void editor_load_file(editor c, const char *name, int enc)
 103 
static void editor_load_file(editor c, const char *name, int enc)
104 
{
 104 
{
105 
    textbox t = getdata(c);
 105 
    textbox t = getdata(c);
106 
    EditorData p = getdata(t);
 106 
    EditorData p = getdata(t);
107 
    FILE *f;
 107 
    FILE *f;
108 
    char *buffer = NULL, tmp[MAX_PATH+50];
 108 
    char *buffer = NULL, tmp[MAX_PATH+50], tname[MAX_PATH+1];
109 
    const char *sname, tname[MAX_PATH+1];
 109 
    const char *sname;
110 
    long num = 1, bufsize;
 110 
    long num = 1, bufsize;
111 
 
 111 
 
112 
    if(enc == CE_UTF8) {
 112 
    if(enc == CE_UTF8) {
113 
	wchar_t wname[MAX_PATH+1];
 113 
	wchar_t wname[MAX_PATH+1];
114 
	Rf_utf8towcs(wname, name, MAX_PATH+1);
 114 
	Rf_utf8towcs(wname, name, MAX_PATH+1);
Line 150... Line 150...
150 
 
 150 
 
151 
static void editor_save_file(editor c, const char *name, int enc)
 151 
static void editor_save_file(editor c, const char *name, int enc)
152 
{
 152 
{
153 
    textbox t = getdata(c);
 153 
    textbox t = getdata(c);
154 
    FILE *f;
 154 
    FILE *f;
155 
    char buf[MAX_PATH+30];
 155 
    char buf[MAX_PATH+30], tname[MAX_PATH+1];
156 
    const char *sname, tname[MAX_PATH+1];
 156 
    const char *sname;
157 
 
 157 
 
158 
    if (name == NULL)
 158 
    if (name == NULL)
159 
	return;
 159 
	return;
160 
    else {
 160 
    else {
161 
	if(enc == CE_UTF8) {
 161 
	if(enc == CE_UTF8) {
Line 194... Line 194...
194 
	if(!q) strncat(name, ".R", 4*MAX_PATH);
 194 
	if(!q) strncat(name, ".R", 4*MAX_PATH);
195 
	editor_save_file(c, name, CE_UTF8);
 195 
	editor_save_file(c, name, CE_UTF8);
196 
	p->file = 1;
 196 
	p->file = 1;
197 
	reEnc2(name, p->filename, MAX_PATH+1, CE_UTF8, CE_NATIVE, 3);
 197 
	reEnc2(name, p->filename, MAX_PATH+1, CE_UTF8, CE_NATIVE, 3);
198 
	gsetmodified(t, 0);
 198 
	gsetmodified(t, 0);
199 
	editor_set_title(c, tname);
 199 
	editor_set_title(c, p->filename);
200 
    }
 200 
    }
201 
    show(c);
 201 
    show(c);
202 
}
 202 
}
203 
 
 203 
 
204 
static void menueditorsaveas(control m)
 204 
static void menueditorsaveas(control m)
Line 371... Line 371...
371 
}
 371 
}
372 
 
 372 
 
373 
static void editoropen(const char *default_name)
 373 
static void editoropen(const char *default_name)
374 
{
 374 
{
375 
    wchar_t *wname;
 375 
    wchar_t *wname;
376 
    char name[4*MAX_PATH];
 - 
 
377 
    const char title[4*MAX_PATH];
 376 
    char name[4*MAX_PATH], title[4*MAX_PATH];
378 
 
 377 
 
379 
    int i; textbox t; EditorData p;
 378 
    int i; textbox t; EditorData p;
380 
    setuserfilterW(L"R files (*.R)\0*.R\0S files (*.q, *.ssc, *.S)\0*.q;*.ssc;*.S\0All files (*.*)\0*.*\0\0");
 379 
    setuserfilterW(L"R files (*.R)\0*.R\0S files (*.q, *.ssc, *.S)\0*.q;*.ssc;*.S\0All files (*.*)\0*.*\0\0");
381 
    wname = askfilenameW(G_("Open script"), default_name); /* returns NULL if open dialog cancelled */
 380 
    wname = askfilenameW(G_("Open script"), default_name); /* returns NULL if open dialog cancelled */
382 
    if (wname) {
 381 
    if (wname) {