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 * @(#)wsli.c 5.1 06/07/85 7 */ 8 9 /* 10 * internal (character array) i/o: write sequential list 11 */ 12 13 #include "fio.h" 14 #include "lio.h" 15 16 extern int l_write(), z_putc(), z_wnew(); 17 18 s_wsli(a) icilist *a; 19 { 20 reading = NO; 21 putn = z_putc; 22 lioproc = l_write; 23 line_len = a->icirlen; 24 return(c_li(a)); 25 } 26 27 e_wsli() 28 { fmtbuf = NULL; 29 reclen = recpos; 30 return(z_wnew()); 31 } 32