|
|
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.