|
|
1.1 ! root 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: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.