The R Project SVN – R – Diff – /trunk/src/unix/sys-std.c

 /*
  *  R : A Computer Language for Statistical Data Analysis
+ *  Copyright (C) 1997--2026  The R Core Team
  *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
- *  Copyright (C) 1997--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.
 		buf[len - 1] = '\0';
 		rl_rest_offset += len - 1;
+	    }
 	    return 1;
+	}
 	R_ReadlineData rl_data;
 	if (UsingReadline) {
 	    rl_data.readline_gotaline = 0;
 	    rl_data.readline_buf = buf;
 	    rl_data.readline_rest = NULL;
 #include <ctype.h>  /* for isspace */
 attribute_hidden int Rstd_ChooseFile(int _new, char *buf, int len)
+{
-    size_t namelen;
-    char *bufp;
-    R_ReadConsole("Enter file name: ", (unsigned char *)buf, len, 0);
+    if (!R_ReadConsole("Enter file name: ", (unsigned char *)buf, len, 0))
+	return 0;
-    namelen = strlen(buf);
+    size_t namelen = strlen(buf);
+    if (namelen == 0)
+	return 0;
-    bufp = &buf[namelen - 1];
+    char *bufp = &buf[namelen - 1];
     while (bufp >= buf && isspace((int)*bufp))
 	*bufp-- = '\0';
     return (int) strlen(buf);
+}

The R Project SVN R