Commit | Line | Data |
---|---|---|
fb2ce452 | 1 | /* |
161423a6 RE |
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. | |
fb2ce452 | 5 | * |
161423a6 RE |
6 | * @(#)wsli.c 5.1 %G% |
7 | */ | |
8 | ||
9 | /* | |
fb2ce452 DL |
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 | } |