1 /*- 2 * Copyright (c) 1980 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * %sccs.include.proprietary.c% 6 */ 7 8 #ifndef lint 9 static char sccsid[] = "@(#)wsli.c 5.2 (Berkeley) 04/12/91"; 10 #endif /* not lint */ 11 12 /* 13 * internal (character array) i/o: write sequential list 14 */ 15 16 #include "fio.h" 17 #include "lio.h" 18 19 extern int l_write(), z_putc(), z_wnew(); 20 21 s_wsli(a) icilist *a; 22 { 23 reading = NO; 24 putn = z_putc; 25 lioproc = l_write; 26 line_len = a->icirlen; 27 return(c_li(a)); 28 } 29 30 e_wsli() 31 { fmtbuf = NULL; 32 reclen = recpos; 33 return(z_wnew()); 34 } 35