xref: /onnv-gate/usr/src/cmd/vi/misc/fold.c (revision 0)
1*0Sstevel@tonic-gate /*
2*0Sstevel@tonic-gate  * CDDL HEADER START
3*0Sstevel@tonic-gate  *
4*0Sstevel@tonic-gate  * The contents of this file are subject to the terms of the
5*0Sstevel@tonic-gate  * Common Development and Distribution License, Version 1.0 only
6*0Sstevel@tonic-gate  * (the "License").  You may not use this file except in compliance
7*0Sstevel@tonic-gate  * with the License.
8*0Sstevel@tonic-gate  *
9*0Sstevel@tonic-gate  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10*0Sstevel@tonic-gate  * or http://www.opensolaris.org/os/licensing.
11*0Sstevel@tonic-gate  * See the License for the specific language governing permissions
12*0Sstevel@tonic-gate  * and limitations under the License.
13*0Sstevel@tonic-gate  *
14*0Sstevel@tonic-gate  * When distributing Covered Code, include this CDDL HEADER in each
15*0Sstevel@tonic-gate  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16*0Sstevel@tonic-gate  * If applicable, add the following below this CDDL HEADER, with the
17*0Sstevel@tonic-gate  * fields enclosed by brackets "[]" replaced with your own identifying
18*0Sstevel@tonic-gate  * information: Portions Copyright [yyyy] [name of copyright owner]
19*0Sstevel@tonic-gate  *
20*0Sstevel@tonic-gate  * CDDL HEADER END
21*0Sstevel@tonic-gate  */
22*0Sstevel@tonic-gate /*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
23*0Sstevel@tonic-gate /*	  All Rights Reserved  	*/
24*0Sstevel@tonic-gate 
25*0Sstevel@tonic-gate 
26*0Sstevel@tonic-gate /*
27*0Sstevel@tonic-gate  * University Copyright- Copyright (c) 1982, 1986, 1988
28*0Sstevel@tonic-gate  * The Regents of the University of California
29*0Sstevel@tonic-gate  * All Rights Reserved
30*0Sstevel@tonic-gate  *
31*0Sstevel@tonic-gate  * University Acknowledgment- Portions of this document are derived from
32*0Sstevel@tonic-gate  * software developed by the University of California, Berkeley, and its
33*0Sstevel@tonic-gate  * contributors.
34*0Sstevel@tonic-gate  */
35*0Sstevel@tonic-gate 
36*0Sstevel@tonic-gate #pragma ident	"%Z%%M%	%I%	%E% SMI"
37*0Sstevel@tonic-gate 
38*0Sstevel@tonic-gate #include <stdio.h>
39*0Sstevel@tonic-gate /*
40*0Sstevel@tonic-gate  * fold - fold long lines for finite output devices
41*0Sstevel@tonic-gate  *
42*0Sstevel@tonic-gate  */
43*0Sstevel@tonic-gate 
44*0Sstevel@tonic-gate int	fold =  80;
45*0Sstevel@tonic-gate 
46*0Sstevel@tonic-gate main(argc, argv)
47*0Sstevel@tonic-gate 	int argc;
48*0Sstevel@tonic-gate 	char *argv[];
49*0Sstevel@tonic-gate {
50*0Sstevel@tonic-gate 	register c;
51*0Sstevel@tonic-gate 	FILE *f;
52*0Sstevel@tonic-gate 	char obuf[BUFSIZ];
53*0Sstevel@tonic-gate 
54*0Sstevel@tonic-gate 	argc--, argv++;
55*0Sstevel@tonic-gate 	setbuf(stdout, obuf);
56*0Sstevel@tonic-gate 	if (argc > 0 && argv[0][0] == '-') {
57*0Sstevel@tonic-gate 		fold = 0;
58*0Sstevel@tonic-gate 		argv[0]++;
59*0Sstevel@tonic-gate 		while (*argv[0] >= '0' && *argv[0] <= '9')
60*0Sstevel@tonic-gate 			fold *= 10, fold += *argv[0]++ - '0';
61*0Sstevel@tonic-gate 		if (*argv[0]) {
62*0Sstevel@tonic-gate 			printf("Bad number for fold\n");
63*0Sstevel@tonic-gate 			exit(1);
64*0Sstevel@tonic-gate 		}
65*0Sstevel@tonic-gate 		argc--, argv++;
66*0Sstevel@tonic-gate 	}
67*0Sstevel@tonic-gate 	do {
68*0Sstevel@tonic-gate 		if (argc > 0) {
69*0Sstevel@tonic-gate 			if (freopen(argv[0], "r", stdin) == NULL) {
70*0Sstevel@tonic-gate 				perror(argv[0]);
71*0Sstevel@tonic-gate 				exit(1);
72*0Sstevel@tonic-gate 			}
73*0Sstevel@tonic-gate 			argc--, argv++;
74*0Sstevel@tonic-gate 		}
75*0Sstevel@tonic-gate 		for (;;) {
76*0Sstevel@tonic-gate 			c = getc(stdin);
77*0Sstevel@tonic-gate 			if (c == -1)
78*0Sstevel@tonic-gate 				break;
79*0Sstevel@tonic-gate 			putch(c);
80*0Sstevel@tonic-gate 		}
81*0Sstevel@tonic-gate 	} while (argc > 0);
82*0Sstevel@tonic-gate 	exit(0);
83*0Sstevel@tonic-gate }
84*0Sstevel@tonic-gate 
85*0Sstevel@tonic-gate int	col;
86*0Sstevel@tonic-gate 
87*0Sstevel@tonic-gate putch(c)
88*0Sstevel@tonic-gate 	register c;
89*0Sstevel@tonic-gate {
90*0Sstevel@tonic-gate 	register ncol;
91*0Sstevel@tonic-gate 
92*0Sstevel@tonic-gate 	switch (c) {
93*0Sstevel@tonic-gate 		case '\n':
94*0Sstevel@tonic-gate 			ncol = 0;
95*0Sstevel@tonic-gate 			break;
96*0Sstevel@tonic-gate 		case '\t':
97*0Sstevel@tonic-gate 			ncol = (col + 8) &~ 7;
98*0Sstevel@tonic-gate 			break;
99*0Sstevel@tonic-gate 		case '\b':
100*0Sstevel@tonic-gate 			ncol = col ? col - 1 : 0;
101*0Sstevel@tonic-gate 			break;
102*0Sstevel@tonic-gate 		case '\r':
103*0Sstevel@tonic-gate 			ncol = 0;
104*0Sstevel@tonic-gate 			break;
105*0Sstevel@tonic-gate 		default:
106*0Sstevel@tonic-gate 			ncol = col + 1;
107*0Sstevel@tonic-gate 	}
108*0Sstevel@tonic-gate 	if (ncol > fold)
109*0Sstevel@tonic-gate 		putchar('\n'), col = 0;
110*0Sstevel@tonic-gate 	putchar(c);
111*0Sstevel@tonic-gate 	switch (c) {
112*0Sstevel@tonic-gate 		case '\n':
113*0Sstevel@tonic-gate 			col = 0;
114*0Sstevel@tonic-gate 			break;
115*0Sstevel@tonic-gate 		case '\t':
116*0Sstevel@tonic-gate 			col += 8;
117*0Sstevel@tonic-gate 			col &= ~7;
118*0Sstevel@tonic-gate 			break;
119*0Sstevel@tonic-gate 		case '\b':
120*0Sstevel@tonic-gate 			if (col)
121*0Sstevel@tonic-gate 				col--;
122*0Sstevel@tonic-gate 			break;
123*0Sstevel@tonic-gate 		case '\r':
124*0Sstevel@tonic-gate 			col = 0;
125*0Sstevel@tonic-gate 			break;
126*0Sstevel@tonic-gate 		default:
127*0Sstevel@tonic-gate 			col++;
128*0Sstevel@tonic-gate 			break;
129*0Sstevel@tonic-gate 	}
130*0Sstevel@tonic-gate }
131