diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixes for modules, buffering, YP_*, live vars for gc, and nth(0).

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@20 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2001-04-27 16:02:43 +00:00
parent 70dda6cc70
commit 1a8009654f
16 changed files with 247 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
C/init.c
View File

@@ -205,7 +205,7 @@ int
DebugPutc(int sno, int ch)
{
if (Option['l' - 96])
(void) YP_putc(ch, logfile);
(void) putc(ch, logfile);
return (YP_putc(ch, YP_stderr));
}
@@ -236,13 +236,13 @@ InTTYLine(char *line)
void
DebugSetIFile(char *fname)
{
if (curfile)
YP_fclose(curfile);
curfile = YP_fopen(fname, "r");
if (curfile == Nill) {
curfile = YP_stdin;
YP_fprintf(YP_stderr,"[ Warning: can not open %s for input]\n", fname);
}
if (curfile)
YP_fclose(curfile);
curfile = YP_fopen(fname, "r");
if (curfile == Nill) {
curfile = stdin;
YP_fprintf(YP_stderr,"[ Warning: can not open %s for input]\n", fname);
}
}
void
@@ -257,22 +257,22 @@ static int eolflg = 1;
int
DebugGetc()
{
int ch;
if (eolflg) {
if (curfile != Nill) {
if (YP_fgets(my_line, 200, curfile) == 0)
curfile = Nill;
}
if (curfile == Nill)
YP_fgets(my_line, 200, YP_stdin);
eolflg = 0;
lp = my_line;
}
if ((ch = *lp++) == 0)
ch = '\n', eolflg = 1;
if (Option['l' - 96])
YP_putc(ch, logfile);
return (ch);
int ch;
if (eolflg) {
if (curfile != Nill) {
if (YP_fgets(my_line, 200, curfile) == 0)
curfile = Nill;
}
if (curfile == Nill)
YP_fgets(my_line, 200, stdin);
eolflg = 0;
lp = my_line;
}
if ((ch = *lp++) == 0)
ch = '\n', eolflg = 1;
if (Option['l' - 96])
putc(ch, logfile);
return (ch);
}
#endif