110 lines
1.7 KiB
C
110 lines
1.7 KiB
C
/*
|
|
* Copyright (c) 1980 Regents of the University of California.
|
|
* All rights reserved. The Berkeley software License Agreement
|
|
* specifies the terms and conditions for redistribution.
|
|
*/
|
|
|
|
#ifndef lint
|
|
char copyright[] =
|
|
"@(#) Copyright (c) 1980 Regents of the University of California.\n\
|
|
All rights reserved.\n";
|
|
#endif not lint
|
|
|
|
#ifndef lint
|
|
static char sccsid[] = "@(#)fold.c 1.1 92/07/30 SMI"; /* from UCB 5.1 5/31/85 */
|
|
#endif not lint
|
|
|
|
#include <stdio.h>
|
|
/*
|
|
* fold - fold long lines for finite output devices
|
|
*
|
|
* Bill Joy UCB June 28, 1977
|
|
*/
|
|
|
|
int fold = 80;
|
|
|
|
main(argc, argv)
|
|
int argc;
|
|
char *argv[];
|
|
{
|
|
register c;
|
|
FILE *f;
|
|
|
|
argc--, argv++;
|
|
if (argc > 0 && argv[0][0] == '-') {
|
|
fold = 0;
|
|
argv[0]++;
|
|
while (*argv[0] >= '0' && *argv[0] <= '9')
|
|
fold *= 10, fold += *argv[0]++ - '0';
|
|
if (*argv[0]) {
|
|
printf("Bad number for fold\n");
|
|
exit(1);
|
|
}
|
|
argc--, argv++;
|
|
}
|
|
do {
|
|
if (argc > 0) {
|
|
if (freopen(argv[0], "r", stdin) == NULL) {
|
|
perror(argv[0]);
|
|
exit(1);
|
|
}
|
|
argc--, argv++;
|
|
}
|
|
for (;;) {
|
|
c = getc(stdin);
|
|
if (c == -1)
|
|
break;
|
|
putch(c);
|
|
}
|
|
} while (argc > 0);
|
|
exit(0);
|
|
/* NOTREACHED */
|
|
}
|
|
|
|
int col;
|
|
|
|
putch(c)
|
|
register c;
|
|
{
|
|
register ncol;
|
|
|
|
switch (c) {
|
|
case '\n':
|
|
ncol = 0;
|
|
break;
|
|
case '\t':
|
|
ncol = (col + 8) &~ 7;
|
|
break;
|
|
case '\b':
|
|
ncol = col ? col - 1 : 0;
|
|
break;
|
|
case '\r':
|
|
ncol = 0;
|
|
break;
|
|
default:
|
|
ncol = col + 1;
|
|
}
|
|
if (ncol > fold)
|
|
putchar('\n'), col = 0;
|
|
putchar(c);
|
|
switch (c) {
|
|
case '\n':
|
|
col = 0;
|
|
break;
|
|
case '\t':
|
|
col += 8;
|
|
col &= ~7;
|
|
break;
|
|
case '\b':
|
|
if (col)
|
|
col--;
|
|
break;
|
|
case '\r':
|
|
col = 0;
|
|
break;
|
|
default:
|
|
col++;
|
|
break;
|
|
}
|
|
}
|