The R Project SVN R

Rev

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

Rev 6098 Rev 6626
Line 1192... Line 1192...
1192 
    }
 1192 
    }
1193 
    for (i = NHISTORY - 1; i >= 0; i--) {
 1193 
    for (i = NHISTORY - 1; i >= 0; i--) {
1194 
       fprintf(fp, "%s", HISTORY(i));
 1194 
       fprintf(fp, "%s", HISTORY(i));
1195 
       if (i > 0) fprintf(fp, "\n");
 1195 
       if (i > 0) fprintf(fp, "\n");
1196 
    }
 1196 
    }
- 
 
 1197 
    fclose(fp);
1197 
FVOIDEND
 1198 
FVOIDEND
1198 
 
 1199 
 
1199 
void readhistory(control c, char *s)
 1200 
void readhistory(control c, char *s)
1200 
FBEGIN
 1201 
FBEGIN
1201 
    FILE *fp;
 1202 
    FILE *fp;
1202 
    int c;
 1203 
    int c;
1203 
 
 1204 
 
1204 
    if (!s || !(fp = fopen(s, "r"))) FVOIDRETURN;
 1205 
    if (!s || !(fp = fopen(s, "r"))) FVOIDRETURN;
1205 
    while ((c = getc(fp)) != EOF) xbufaddc(p->history, c);
 1206 
    while ((c = getc(fp)) != EOF) xbufaddc(p->history, c);
- 
 
 1207 
    fclose(fp);
1206 
FVOIDEND
 1208 
FVOIDEND
1207 
 
 1209 
 
1208 
static void sbf(control c, int pos)
 1210 
static void sbf(control c, int pos)
1209 
FBEGIN
 1211 
FBEGIN
1210 
    if (pos < 0) return;
 1212 
    if (pos < 0) return;
Line 1486... Line 1488...
1486 
    freeConsoleData(getdata(m));
 1488 
    freeConsoleData(getdata(m));
1487 
}
 1489 
}
1488 
 
 1490 
 
1489 
static void pagerbclose(control m)
 1491 
static void pagerbclose(control m)
1490 
{
 1492 
{
- 
 
 1493 
    show(RConsole);
1491 
    if (!pagerMultiple) {
 1494 
    if (!pagerMultiple) {
- 
 
 1495 
        hide(pagerInstance);
1492 
	del(pagerInstance);
 1496 
	del(pagerInstance);
1493 
	pagerInstance = pagerBar = NULL;
 1497 
	pagerInstance = pagerBar = NULL;
1494 
    }
 1498 
    }
1495 
    else
 1499 
    else {
- 
 
 1500 
        hide(m);
1496 
	del(m);
 1501 
	del(m);
- 
 
 1502 
    }
1497 
}
 1503 
}
1498 
 
 1504 
 
1499 
static void pagerclose(control m)
 1505 
static void pagerclose(control m)
1500 
{
 1506 
{
1501 
    pagerbclose(getdata(m));
 1507 
    pagerbclose(getdata(m));