projects
/
unix-history
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Bell 32V development
[unix-history]
/
usr
/
src
/
cmd
/
und.c
#include <stdio.h>
main
(
argc
,
argv
)
char
**
argv
;
{
register
bflg
,
c
,
n
;
int
undc
=
8
;
bflg
=
1
;
if
(
argc
>
1
&&
argv
[
1
][
0
]==
'-'
) {
undc
=
atoi
(&
argv
[
1
][
1
]);
if
(
undc
>
16
)
undc
=
0
;
argc
--;
argv
++;
}
if
(
argc
>
1
) {
if
((
freopen
(
argv
[
1
],
"r"
,
stdin
))==
NULL
) {
fprintf
(
stderr
,
"Cannot open %s
\n
"
,
argv
[
1
]);
exit
(
1
);
}
}
while
((
c
=
getchar
()) !=
EOF
) {
if
(
c
==
'
\n
'
||
c
==
014
) {
bflg
=
1
;
putchar
(
c
);
continue
;
}
if
(
bflg
) {
for
(
n
=
0
;
n
<
undc
;
n
++)
putchar
(
'
\b
'
);
bflg
=
0
;
}
putchar
(
c
);
}
return
(
0
);
}