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 6/7/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: }