1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
/* fold.c - Line wrap input.
*
* Copyright 2023 Rob Landley <rob@landley.net>
*
* See http://pubs.opengroup.org/onlinepubs/9699919799/utilities/fold.html
USE_FOLD(NEWTOY(fold, "bsw#<1=80", TOYFLAG_USR|TOYFLAG_BIN))
config FOLD
bool "fold"
default y
help
usage: fold [-bsSu] [-w WIDTH] [FILE...]
Break long lines by inserting newlines.
-b Count bytes instead of utf-8 unicode columns
-s Wrap at whitespace when possible
-w Break at WIDTH columns (default 80)
*/
#define FOR_fold
#include "toys.h"
GLOBALS(
long w;
)
// wcwidth utf8towc
void do_fold(int fd, char *name)
{
FILE *fp = fd ? fdopen(fd, "r") : stdin;
char *rr, *ss;
long ii, bb, ww, width, space;
unsigned cc;
// Note: not bothering to handle embedded NUL bytes, they truncate the line.
// Loop reading/printing lines
while ((ss = rr = xgetdelim(fp, '\n'))) for (ii = width = space = 0;;) {
// Parse next character's byte length and column width
bb = ww = 1;
if (ss[ii]<32) ww = FLAG(b);
if (FLAG(b)) cc = ss[ii];
else {
if ((bb = utf8towc(&cc, ss+ii, 4))>0 && (ww = wcwidth(cc))<0) ww = 0;
if (cc=='\t') ww = 8-(width&7);
}
// Did line end?
if (!cc || cc=='\r' || cc=='\n') {
if (cc) ii++;
if (ii) {
xwrite(1, ss, ii);
ss += ii;
ii = width = space = 0;
} else {
free(rr);
break;
}
// backspace?
} else if (!FLAG(b) && cc=='\b') {
if (width) width--;
ii++;
// Is it time to wrap?
} else if (width+ww>TT.w && ss[ii+bb]!='\b'
&& (ii || !strchr("\r\n", ss[ii+bb])))
{
if (!ii) ii += bb;
if (!space) space = ii;
cc = ss[space];
ss[space] = '\n';
xwrite(1, ss, space+1);
ss += space;
*ss = cc;
ii = width = space = 0;
// move the cursor
} else {
ii += bb;
width += ww;
if (FLAG(s) && iswspace(cc)) space = ii;
}
}
if (fp != stdin) fclose(fp);
}
void fold_main(void)
{
loopfiles(toys.optargs, do_fold);
loopfiles_rw(toys.optargs, O_RDONLY|WARN_ONLY, 0, do_fold);
}
|
