The R Project SVN – R – Diff – /trunk/src/gnuwin32/editor.c

 /*
  *  R : A Computer Language for Statistical Data Analysis
- *  Copyright (C) 1999-2023  The R Core Team
+ *  Copyright (C) 1999-2025  The R Core Team
+ *
  *  This program is free software; you can redistribute it and/or modify
  *  it under the terms of the GNU General Public License as published by
  *  the Free Software Foundation; either version 2 of the License, or
  *  (at your option) any later version.
 static EditorData neweditordata (int file)
+{
     EditorData p;
     p = (EditorData) malloc(sizeof(struct structEditorData));
+    if (!p)
+	return NULL;
     p->file = file;
     p->filename = NULL;
     p->title = (char *) malloc((EDITORMAXTITLE + 1)*sizeof(char));
+    if (!p->title) {
+	free(p);
+	return NULL;
+    }
     p->title[EDITORMAXTITLE] = p->title[0] = '\0';
     return p;
+}
 void deleditordata(EditorData p)
     const char *sname;
     long num = 1, bufsize;
     if(enc == CE_UTF8) {
 	wchar_t *wname = utf8_to_wchar(name);
+	if (!wname) {
+	    R_ShowMessage(G_("Not enough memory"));
+	    return;
+	}
 	f = R_wfopen(wname, L"r");
 	free(wname);
 	sname = utf8_to_native(name);
+	if (!sname) {
+	    R_ShowMessage(G_("Not enough memory"));
+	    return;
+	}
     } else {
 	f = R_fopen(name, "r");
 	sname = name;
+    }
     if (f == NULL) {
     p->file = 1;
     if (p->filename)
 	free(p->filename);
     if (enc == CE_UTF8) {
 	p->filename = (char *) malloc(strlen(name) + 1);
+	if (!p->filename) {
+	    free((char *)sname);
+	    R_ShowMessage(G_("Not enough memory"));
+	    return;
+	}
 	strcpy(p->filename, name);
-    } else
+    } else {
 	p->filename = native_to_utf8(name);
+	if (!p->filename) {
+	    R_ShowMessage(G_("Not enough memory"));
+	    return;
+	}
+    }
     bufsize = 0;
     while (num > 0) {
 	buffer = realloc(buffer, bufsize + 3000 + 1);
+	if (!buffer) {
+	    if (enc == CE_UTF8)
+		free((char *)sname);
+	    R_ShowMessage(G_("Not enough memory"));
+	    return;
+	}
 	num = fread(buffer + bufsize, 1, 3000 - 1, f);
 	if (num >= 0) {
 	    bufsize += num;
 	    buffer[bufsize] = '\0';
+	}
 	    if (tmp) {
 		strcpy(tmp, name);
 		strcat(tmp, ".R");
 		free(name);
 		name = tmp;
+	    } else {
+		R_ShowMessage(G_("Not enough memory"));
+		return;
+	    }
+	}
 	editor_save_file(c, name, CE_UTF8);
 	p->file = 1;
 	p->filename = name; /* keeps name */
 	gsetmodified(t, 0);
 	char *sname = utf8_to_native(name);
+	if (sname) {
-	editor_set_title(c, sname);
+	    editor_set_title(c, sname);
-	free(sname);
+	    free(sname);
+	} else
+	    R_ShowMessage(G_("Not enough memory"));
+    }
     show(c);
+}
 static void menueditorsaveas(control m)
 	istartline = i;
 	while (contents[i] != '\n' && contents[i] != '\0') {
 	    ++i; ++j;
+	}
 	linebuf = realloc(linebuf, (j+1)*sizeof(char));
+	if (!linebuf) {
+	    del(lpr);
+	    R_ShowMessage(G_("Not enough memory"));
+	    return;
+	}
 	strncpy(linebuf, &contents[istartline], j);
 	linebuf[j] = '\0';
 	gdrawstr(lpr, f, Black, pt(left, linep), linebuf);
 	linep += fh;
 	++i;
+{
     int length = getlinelength(t); /* return character num */
     /* Extra space for null and word length in getcurrentline */
     size_t alength = length * MB_CUR_MAX + 1 + sizeof(WORD);
     char *line = malloc(alength);
+    if (!line) {
+	R_ShowMessage(G_("Not enough memory"));
+	return;
+    }
     memset(line, 0, alength);
     getcurrentline(t, line, length);
     consolecmd(RConsole, line);
     free(line);
     scrollcaret(t, 1);
     long flags;
     font editorfn = (consolefn ? consolefn : FixedFont);
     EditorData p = neweditordata(0);
     DWORD rand;
+    if (!p)
+	return NULL;
     w = (pagercol + 1)*fontwidth(editorfn);
     h = (pagerrow + 1)*fontheight(editorfn) + 1;
 #ifdef USE_MDI
     if(ismdi()) {
 	RECT *pR = RgetMDIsize();
     MCHECK(m = newmenuitem("-", 0, NULL));
     MCHECK(newmenuitem(G_("GUI preferences..."), 0, menuconfig));
     /* Packages menu should go here */
     p->pmenu = (PkgMenuItems) malloc(sizeof(struct structPkgMenuItems));
+    if (!p->pmenu)
+	return NULL;
     RguiPackageMenu(p->pmenu);
 #ifdef USE_MDI
     newmdimenu(); /* Create and fill the 'Window' menu */
 #endif
     MCHECK(m = newmenu(G_("Help")));
     MCHECK(newmenuitem(G_("Editor"), 0, menueditorhelp));
     MCHECK(newmenuitem("-", 0, NULL));
     p->hmenu = (HelpMenuItems) malloc(sizeof(struct structHelpMenuItems));
+    if (!p->hmenu)
+	return NULL;
     RguiCommonHelp(m, p->hmenu);
     settextfont(t, editorfn);
     setforeground(t, guiColors[editorfg]);
     setresize(c, editorresize);

The R Project SVN R

(root)/trunk/src/gnuwin32/editor.c @ 63243 – Rev 83709 → 88761