2 * Copyright (c) 1980, 1993
3 * The Regents of the University of California. All rights reserved.
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 * notice, this list of conditions and the following disclaimer in the
12 * documentation and/or other materials provided with the distribution.
13 * 3. Neither the name of the University nor the names of its contributors
14 * may be used to endorse or promote products derived from this software
15 * without specific prior written permission.
17 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
18 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
21 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * @(#) Copyright (c) 1980, 1993 The Regents of the University of California. All rights reserved.
30 * @(#)unexpand.c 8.1 (Berkeley) 6/6/93
31 * $FreeBSD: head/usr.bin/unexpand/unexpand.c 227192 2011-11-06 08:18:05Z ed $
35 * unexpand - put tabs into a file replacing blanks
50 static int tabstops
[100];
52 static void getstops(const char *);
53 static void usage(void);
54 static int tabify(const char *);
57 main(int argc
, char *argv
[])
62 setlocale(LC_CTYPE
, "");
66 while ((ch
= getopt(argc
, argv
, "at:")) != -1) {
68 case 'a': /* Un-expand all spaces, not just leading. */
71 case 't': /* Specify tab list, implies -a. */
85 failed
|= tabify("stdin");
87 while ((filename
= *argv
++) != NULL
) {
88 if (freopen(filename
, "r", stdin
) == NULL
) {
92 failed
|= tabify(filename
);
101 fprintf(stderr
, "usage: unexpand [-a | -t tablist] [file ...]\n");
106 tabify(const char *curfile
)
108 int dcol
, doneline
, limit
, n
, ocol
, width
;
111 limit
= nstops
== 1 ? INT_MAX
: tabstops
[nstops
- 1] - 1;
113 doneline
= ocol
= dcol
= 0;
114 while ((ch
= getwchar()) != WEOF
) {
115 if (ch
== ' ' && !doneline
) {
119 } else if (ch
== '\t') {
121 dcol
= (1 + dcol
/ tabstops
[0]) *
125 for (n
= 0; tabstops
[n
] - 1 < dcol
&&
128 if (n
< nstops
- 1 && tabstops
[n
] - 1 < limit
) {
136 /* Output maximal number of tabs. */
138 while (((ocol
+ tabstops
[0]) / tabstops
[0])
139 <= (dcol
/ tabstops
[0])) {
143 ocol
= (1 + ocol
/ tabstops
[0]) *
147 for (n
= 0; tabstops
[n
] - 1 < ocol
&& n
< nstops
; n
++)
149 while (ocol
< dcol
&& n
< nstops
&& ocol
< limit
) {
151 ocol
= tabstops
[n
++];
156 while (ocol
< dcol
&& ocol
< limit
) {
165 } else if (ch
== '\n') {
167 doneline
= ocol
= dcol
= 0;
169 } else if (ch
!= ' ' || dcol
> limit
) {
171 if ((width
= wcwidth(ch
)) > 0)
172 ocol
+= width
, dcol
+= width
;
176 * Only processing leading blanks or we've gone past the
177 * last tab stop. Emit remainder of this line unchanged.
179 if (!all
|| dcol
>= limit
) {
180 while ((ch
= getwchar()) != '\n' && ch
!= WEOF
)
184 doneline
= ocol
= dcol
= 0;
195 getstops(const char *cp
)
202 while (*cp
>= '0' && *cp
<= '9')
203 i
= i
* 10 + *cp
++ - '0';
205 errx(1, "bad tab stop spec");
206 if (nstops
> 0 && i
<= tabstops
[nstops
-1])
207 errx(1, "bad tab stop spec");
208 if (nstops
== sizeof(tabstops
) / sizeof(*tabstops
))
209 errx(1, "too many tab stops");
210 tabstops
[nstops
++] = i
;
213 if (*cp
!= ',' && !isblank((unsigned char)*cp
))
214 errx(1, "bad tab stop spec");