|
|
1.1 root 1: /*
2: * Copyright (c) 1980 Regents of the University of California.
3: * All rights reserved. The Berkeley software License Agreement
4: * specifies the terms and conditions for redistribution.
5: *
6: * @(#)rsli.c 5.1 6/7/85
7: */
8:
9: /*
10: * internal (character array) i/o: read sequential list
11: */
12:
13: #include "fio.h"
14: #include "lio.h"
15:
16: extern int l_read(), z_getc(), z_ungetc();
17:
18: s_rsli(a) icilist *a;
19: {
20: reading = YES;
21: lioproc = l_read;
22: getn = z_getc;
23: ungetn = z_ungetc;
24: l_first = YES;
25: lcount = 0;
26: lquit = NO;
27: return(c_li(a));
28: }
29:
30: e_rsli()
31: { fmtbuf = NULL;
32: return(OK);
33: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.