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 06/07/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 } 34