Bell 32V development
[unix-history] / usr / src / cmd / und.c
CommitLineData
3b600ead
TL
1#include <stdio.h>
2
3main(argc, argv)
4char **argv;
5{
6 register bflg, c, n;
7 int undc=8;
8
9 bflg = 1;
10 if (argc>1 && argv[1][0]=='-') {
11 undc = atoi(&argv[1][1]);
12 if (undc>16)
13 undc = 0;
14 argc--;
15 argv++;
16 }
17 if (argc>1) {
18 if ((freopen(argv[1], "r", stdin))==NULL) {
19 fprintf(stderr, "Cannot open %s\n", argv[1]);
20 exit(1);
21 }
22 }
23 while((c = getchar()) != EOF) {
24 if(c == '\n' || c == 014) {
25 bflg = 1;
26 putchar(c);
27 continue;
28 }
29 if(bflg) {
30 for (n=0; n<undc; n++)
31 putchar('\b');
32 bflg = 0;
33 }
34 putchar(c);
35 }
36 return(0);
37}