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: }