1 #include <u.h>
2 #include <libc.h>
3 #include <bio.h>
4
5 Biobuf *fin;
6 Biobuf fout;
7
8 #define MINSPAN 6 /* Min characters in string */
9
10 #define BUFSIZE 70
11
12 void stringit(char *);
13 #undef isprint
14 #define isprint risprint
15 int isprint(Rune);
16
17 void
main(int argc,char ** argv)18 main(int argc, char **argv)
19 {
20 int i;
21
22 Binit(&fout, 1, OWRITE);
23 if(argc < 2) {
24 stringit("/dev/stdin");
25 exits(0);
26 }
27
28 for(i = 1; i < argc; i++) {
29 if(argc > 2)
30 print("%s:\n", argv[i]);
31
32 stringit(argv[i]);
33 }
34
35 exits(0);
36 }
37
38 void
stringit(char * str)39 stringit(char *str)
40 {
41 long posn, start;
42 int cnt = 0;
43 long c;
44
45 Rune buf[BUFSIZE];
46
47 if ((fin = Bopen(str, OREAD)) == 0) {
48 perror("open");
49 return;
50 }
51
52 start = 0;
53 posn = Boffset(fin);
54 while((c = Bgetrune(fin)) >= 0) {
55 if(isprint(c)) {
56 if(start == 0)
57 start = posn;
58 buf[cnt++] = c;
59 if(cnt == BUFSIZE-1) {
60 buf[cnt] = 0;
61 Bprint(&fout, "%8ld: %S ...\n", start, buf);
62 start = 0;
63 cnt = 0;
64 }
65 } else {
66 if(cnt >= MINSPAN) {
67 buf[cnt] = 0;
68 Bprint(&fout, "%8ld: %S\n", start, buf);
69 }
70 start = 0;
71 cnt = 0;
72 }
73 posn = Boffset(fin);
74 }
75
76 if(cnt >= MINSPAN){
77 buf[cnt] = 0;
78 Bprint(&fout, "%8ld: %S\n", start, buf);
79 }
80 Bterm(fin);
81 }
82
83 int
isprint(Rune r)84 isprint(Rune r)
85 {
86 if ((r >= ' ' && r <0x7f) || r > 0xA0)
87 return 1;
88 else
89 return 0;
90 }
91