1*47943Sbostic /*- 2*47943Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*47943Sbostic * All rights reserved. 420994Slibs * 5*47943Sbostic * %sccs.include.proprietary.c% 623089Skre */ 723089Skre 8*47943Sbostic #ifndef lint 9*47943Sbostic static char sccsid[] = "@(#)rsli.c 5.2 (Berkeley) 04/12/91"; 10*47943Sbostic #endif /* not lint */ 11*47943Sbostic 1223089Skre /* 1320994Slibs * internal (character array) i/o: read sequential list 1420994Slibs */ 1520994Slibs 1620994Slibs #include "fio.h" 1720994Slibs #include "lio.h" 1820994Slibs 1920994Slibs extern int l_read(), z_getc(), z_ungetc(); 2020994Slibs s_rsli(a)2120994Slibss_rsli(a) icilist *a; 2220994Slibs { 2320994Slibs reading = YES; 2420994Slibs lioproc = l_read; 2520994Slibs getn = z_getc; 2620994Slibs ungetn = z_ungetc; 2720994Slibs l_first = YES; 2820994Slibs lcount = 0; 2920994Slibs lquit = NO; 3020994Slibs return(c_li(a)); 3120994Slibs } 3220994Slibs e_rsli()3320994Slibse_rsli() 3420994Slibs { fmtbuf = NULL; 3520994Slibs return(OK); 3620994Slibs } 37