The R Project SVN – R – Diff – /branches/R-NaString/src/main/devPS.c

 #include "Graphics.h"
 #include "R_ext/Error.h"
 #include "Fileio.h"
 #include <Rdevices.h>
+#ifdef __MRC__
+extern char *R_fgets(char *buf, int i, FILE *fp);
+#endif
 #define INVALID_COL 0xff0a0b0c
 /* Define this to use hyphen except in -[0-9] */
 #undef USE_HYPHEN
 /* In ISOLatin1, minus is 45 and hyphen is 173 */
+}
 static int KeyType(char *s)
+{
     int i;
+#ifdef __MRC__
+    if (*s == '\n' || *s == '\r')
+#else
     if (*s == '\n')
+#endif
 	return Empty;
     for (i = 0; KeyWordDictionary[i].keyword; i++)
 	if (MatchKey(s, KeyWordDictionary[i].keyword))
 	    return KeyWordDictionary[i].code;
     return Unknown;
     if (c < 0) p = NULL;
     while (1) {
 	if (feof(fp)) { p = NULL; return 1; }
 	if (!p || *p == '\n' || *p == '\0') {
+#ifdef __MRC__
+	p = R_fgets(buf, 1000, fp);
+#else
 	    p = fgets(buf, 1000, fp);
+#endif
+	}
 	while (isspace((int)*p)) p++;
 	if (p == '\0' || *p == '%'|| *p == '\n') { p = NULL; continue; }
 	p0 = p;
 	while (!isspace((int)*p)) p++;
     for (ii = 0; ii < 256; ii++) {
 	charnames[ii][0] = '\0';
 	metrics->CharInfo[ii].WX = NA_SHORT;
 	for(j = 0; j < 4; j++) metrics->CharInfo[ii].BBox[j] = 0;
+    }
+#ifdef __MRC__
+    while (R_fgets(buf, BUFSIZE, fp)) {
+#else
     while (fgets(buf, BUFSIZE, fp)) {
+#endif
 	switch(KeyType(buf)) {
 	case StartFontMetrics:
 	    mode = StartFontMetrics;
 	    break;

The R Project SVN R