|
|
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.