d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
ceriel 1987-02-07 00:35:16 +00:00
parent a1c7298f9d
commit 729490c212
1 changed files with 7 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
mach/proto/top/top.c
View file

@ -155,9 +155,9 @@ fill_window(w,len)
write_first(w)
queue w;
{
instr_p ip;
register instr_p ip = qhead(w);
write_instr(ip = qhead(w));
fputs(ip->line, stdout);
remove_head(w);
oldinstr(ip);
}
@ -524,14 +524,15 @@ static bool junk_state = FALSE; /* TRUE while processing a very long line */
instr_p read_instr()
{
register instr_p ip;
instr_p ip;
register int c;
register char *p;
register FILE *inp = stdin;
char *plim;
ip = newinstr();
plim = &ip->line[MAXLINELEN];
if (( c = getchar()) == EOF) return NIL;
if (( c = getc(inp)) == EOF) return NIL;
for (p = ip->line; p < plim;) {
*p++ = c;
if (c == '\n') {
@ -540,26 +541,15 @@ instr_p read_instr()
junk_state = FALSE;
return ip;
}
c = getchar();
c = getc(inp);
}
ungetc(c,stdin);
ungetc(c,inp);
*p = '\0';
junk_state = ip->state = JUNK;
return ip;
}
write_instr(ip)
instr_p ip;
{
register char *p;
for (p = ip->line; *p != '\0'; p++) {
putchar(*p);
}
}
/* Core allocation.
* As all instruction struct have the same size we can re-use every struct.