121018Slibs /* 2*23096Skre * Copyright (c) 1980 Regents of the University of California. 3*23096Skre * All rights reserved. The Berkeley software License Agreement 4*23096Skre * specifies the terms and conditions for redistribution. 521018Slibs * 6*23096Skre * @(#)wsli.c 5.1 06/07/85 7*23096Skre */ 8*23096Skre 9*23096Skre /* 1021018Slibs * internal (character array) i/o: write sequential list 1121018Slibs */ 1221018Slibs 1321018Slibs #include "fio.h" 1421018Slibs #include "lio.h" 1521018Slibs 1621018Slibs extern int l_write(), z_putc(), z_wnew(); 1721018Slibs 1821018Slibs s_wsli(a) icilist *a; 1921018Slibs { 2021018Slibs reading = NO; 2121018Slibs putn = z_putc; 2221018Slibs lioproc = l_write; 2321018Slibs line_len = a->icirlen; 2421018Slibs return(c_li(a)); 2521018Slibs } 2621018Slibs 2721018Slibs e_wsli() 2821018Slibs { fmtbuf = NULL; 2921018Slibs reclen = recpos; 3021018Slibs return(z_wnew()); 3121018Slibs } 32