1*21018Slibs /* 2*21018Slibs char id_wsli[] = "@(#)wsli.c 1.1"; 3*21018Slibs * 4*21018Slibs * internal (character array) i/o: write sequential list 5*21018Slibs */ 6*21018Slibs 7*21018Slibs #include "fio.h" 8*21018Slibs #include "lio.h" 9*21018Slibs 10*21018Slibs extern int l_write(), z_putc(), z_wnew(); 11*21018Slibs 12*21018Slibs s_wsli(a) icilist *a; 13*21018Slibs { 14*21018Slibs reading = NO; 15*21018Slibs putn = z_putc; 16*21018Slibs lioproc = l_write; 17*21018Slibs line_len = a->icirlen; 18*21018Slibs return(c_li(a)); 19*21018Slibs } 20*21018Slibs 21*21018Slibs e_wsli() 22*21018Slibs { fmtbuf = NULL; 23*21018Slibs reclen = recpos; 24*21018Slibs return(z_wnew()); 25*21018Slibs } 26