1*47943Sbostic /*- 2*47943Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*47943Sbostic * All rights reserved. 421018Slibs * 5*47943Sbostic * %sccs.include.proprietary.c% 623096Skre */ 723096Skre 8*47943Sbostic #ifndef lint 9*47943Sbostic static char sccsid[] = "@(#)wsli.c 5.2 (Berkeley) 04/12/91"; 10*47943Sbostic #endif /* not lint */ 11*47943Sbostic 1223096Skre /* 1321018Slibs * internal (character array) i/o: write sequential list 1421018Slibs */ 1521018Slibs 1621018Slibs #include "fio.h" 1721018Slibs #include "lio.h" 1821018Slibs 1921018Slibs extern int l_write(), z_putc(), z_wnew(); 2021018Slibs s_wsli(a)2121018Slibss_wsli(a) icilist *a; 2221018Slibs { 2321018Slibs reading = NO; 2421018Slibs putn = z_putc; 2521018Slibs lioproc = l_write; 2621018Slibs line_len = a->icirlen; 2721018Slibs return(c_li(a)); 2821018Slibs } 2921018Slibs e_wsli()3021018Slibse_wsli() 3121018Slibs { fmtbuf = NULL; 3221018Slibs reclen = recpos; 3321018Slibs return(z_wnew()); 3421018Slibs } 35