1 /*-
2 * Copyright (c) 1986, 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * %sccs.include.proprietary.c%
6 */
7
8 #ifndef lint
9 static char copyright[] =
10 "@(#) Copyright (c) 1986, 1993\n\
11 The Regents of the University of California. All rights reserved.\n";
12 #endif /* not lint */
13
14 #ifndef lint
15 static char sccsid[] = "@(#)lrntee.c 8.1 (Berkeley) 06/06/93";
16 #endif /* not lint */
17
main()18 main()
19 {
20 int f;
21 char c;
22
23 f = creat(".ocopy", 0666);
24 while (read(0, &c, 1) == 1) {
25 write (1, &c, 1);
26 put(c, f);
27 }
28 fl(f);
29 close(f);
30 }
31
32 static char ln[512];
33 char *p = ln;
put(c,f)34 put(c, f)
35 {
36 *p++ = c;
37 if (c == '\n') {
38 fl(f);
39 p=ln;
40 }
41 }
fl(f)42 fl(f)
43 {
44 register char *s;
45
46 s = ln;
47 while (*s == '%' && *(s+1) == ' ')
48 s += 2;
49 write(f, s, p-s);
50 }
51