wc: import new wc from sources
This commit is contained in:
cinap_lenrek
parent
995379e388
commit
b06a35ba56
1 changed files with 90 additions and 271 deletions
361
sys/src/cmd/wc.c
361
sys/src/cmd/wc.c
|
|
@ -1,26 +1,84 @@
|
||||||
/*
|
/*
|
||||||
* wc -- count things in utf-encoded text files
|
* Count bytes within runes, if it fits in a uvlong, and other things.
|
||||||
* Bugs:
|
|
||||||
* The only white space characters recognized are ' ', '\t' and '\n', even though
|
|
||||||
* ISO 10646 has many more blanks scattered through it.
|
|
||||||
* Should count characters that cannot occur in any rune (hex f0-ff) separately.
|
|
||||||
* Should count non-canonical runes (e.g. hex c1,80 instead of hex 40).
|
|
||||||
*/
|
*/
|
||||||
#include <u.h>
|
#include <u.h>
|
||||||
#include <libc.h>
|
#include <libc.h>
|
||||||
#define NBUF (8*1024)
|
#include <bio.h>
|
||||||
uvlong nline, tnline, pline;
|
|
||||||
uvlong nword, tnword, pword;
|
/* flags, per-file counts, and total counts */
|
||||||
uvlong nrune, tnrune, prune;
|
static int pline, pword, prune, pbadr, pchar;
|
||||||
uvlong nbadr, tnbadr, pbadr;
|
static uvlong nline, nword, nrune, nbadr, nchar;
|
||||||
uvlong nchar, tnchar, pchar;
|
static uvlong tnline, tnword, tnrune, tnbadr, tnchar;
|
||||||
void count(int, char *);
|
|
||||||
void report(uvlong, uvlong, uvlong, uvlong, uvlong, char *);
|
enum{Space, Word};
|
||||||
|
|
||||||
|
static void
|
||||||
|
wc(Biobuf *bin)
|
||||||
|
{
|
||||||
|
int where;
|
||||||
|
long r;
|
||||||
|
|
||||||
|
nline = 0;
|
||||||
|
nword = 0;
|
||||||
|
nrune = 0;
|
||||||
|
nbadr = 0;
|
||||||
|
where = Space;
|
||||||
|
while ((long)(r = Bgetrune(bin)) >= 0) {
|
||||||
|
nrune++;
|
||||||
|
if(r == Runeerror) {
|
||||||
|
nbadr++;
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
if(r == '\n')
|
||||||
|
nline++;
|
||||||
|
if(where == Word){
|
||||||
|
if(isspacerune(r))
|
||||||
|
where = Space;
|
||||||
|
}else
|
||||||
|
if(isspacerune(r) == 0){
|
||||||
|
where = Word;
|
||||||
|
nword++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
nchar = Boffset(bin);
|
||||||
|
tnline += nline;
|
||||||
|
tnword += nword;
|
||||||
|
tnrune += nrune;
|
||||||
|
tnbadr += nbadr;
|
||||||
|
tnchar += nchar;
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
report(uvlong nline, uvlong nword, uvlong nrune, uvlong nbadr, uvlong nchar, char *fname)
|
||||||
|
{
|
||||||
|
char line[1024], *s, *e;
|
||||||
|
|
||||||
|
s = line;
|
||||||
|
e = line + sizeof line;
|
||||||
|
line[0] = 0;
|
||||||
|
if(pline)
|
||||||
|
s = seprint(s, e, " %7llud", nline);
|
||||||
|
if(pword)
|
||||||
|
s = seprint(s, e, " %7llud", nword);
|
||||||
|
if(prune)
|
||||||
|
s = seprint(s, e, " %7llud", nrune);
|
||||||
|
if(pbadr)
|
||||||
|
s = seprint(s, e, " %7llud", nbadr);
|
||||||
|
if(pchar)
|
||||||
|
s = seprint(s, e, " %7llud", nchar);
|
||||||
|
if(fname != nil)
|
||||||
|
seprint(s, e, " %s", fname);
|
||||||
|
print("%s\n", line+1);
|
||||||
|
}
|
||||||
|
|
||||||
void
|
void
|
||||||
main(int argc, char *argv[])
|
main(int argc, char *argv[])
|
||||||
{
|
{
|
||||||
char *status="";
|
char *sts;
|
||||||
int i, f;
|
Biobuf *bin;
|
||||||
|
int i;
|
||||||
|
|
||||||
|
sts = nil;
|
||||||
ARGBEGIN {
|
ARGBEGIN {
|
||||||
case 'l': pline++; break;
|
case 'l': pline++; break;
|
||||||
case 'w': pword++; break;
|
case 'w': pword++; break;
|
||||||
|
|
@ -31,269 +89,30 @@ main(int argc, char *argv[])
|
||||||
fprint(2, "Usage: %s [-lwrbc] [file ...]\n", argv0);
|
fprint(2, "Usage: %s [-lwrbc] [file ...]\n", argv0);
|
||||||
exits("usage");
|
exits("usage");
|
||||||
} ARGEND
|
} ARGEND
|
||||||
if(pline+pword+prune+pbadr+pchar == 0) {
|
if(pline+pword+prune+pbadr+pchar == 0){
|
||||||
pline = 1;
|
pline = 1;
|
||||||
pword = 1;
|
pword = 1;
|
||||||
pchar = 1;
|
pchar = 1;
|
||||||
}
|
}
|
||||||
if(argc==0)
|
if(argc == 0){
|
||||||
count(0, nil);
|
bin = Bfdopen(0, OREAD);
|
||||||
else{
|
wc(bin);
|
||||||
for(i=0;i<argc;i++){
|
report(nline, nword, nrune, nbadr, nchar, nil);
|
||||||
f=open(argv[i], OREAD);
|
Bterm(bin);
|
||||||
if(f<0){
|
}else{
|
||||||
|
for(i = 0; i < argc; i++){
|
||||||
|
bin = Bopen(argv[i], OREAD);
|
||||||
|
if(bin == nil){
|
||||||
perror(argv[i]);
|
perror(argv[i]);
|
||||||
status="can't open";
|
sts = "can't open";
|
||||||
}
|
continue;
|
||||||
else{
|
|
||||||
count(f, argv[i]);
|
|
||||||
tnline+=nline;
|
|
||||||
tnword+=nword;
|
|
||||||
tnrune+=nrune;
|
|
||||||
tnbadr+=nbadr;
|
|
||||||
tnchar+=nchar;
|
|
||||||
close(f);
|
|
||||||
}
|
}
|
||||||
|
wc(bin);
|
||||||
|
report(nline, nword, nrune, nbadr, nchar, argv[i]);
|
||||||
|
Bterm(bin);
|
||||||
}
|
}
|
||||||
if(argc>1)
|
if(argc>1)
|
||||||
report(tnline, tnword, tnrune, tnbadr, tnchar, "total");
|
report(tnline, tnword, tnrune, tnbadr, tnchar, "total");
|
||||||
}
|
}
|
||||||
exits(status);
|
exits(sts);
|
||||||
}
|
|
||||||
void
|
|
||||||
report(uvlong nline, uvlong nword, uvlong nrune, uvlong nbadr, uvlong nchar, char *fname)
|
|
||||||
{
|
|
||||||
char line[128], *e;
|
|
||||||
line[0] = '\0';
|
|
||||||
e = line;
|
|
||||||
if(pline)
|
|
||||||
e += sprint(e, " %7llud", nline);
|
|
||||||
if(pword)
|
|
||||||
e += sprint(e, " %7llud", nword);
|
|
||||||
if(prune)
|
|
||||||
e += sprint(e, " %7llud", nrune);
|
|
||||||
if(pbadr)
|
|
||||||
e += sprint(e, " %7llud", nbadr);
|
|
||||||
if(pchar)
|
|
||||||
sprint(e, " %7llud", nchar);
|
|
||||||
if(fname)
|
|
||||||
print("%s %s\n", line+1, fname);
|
|
||||||
else
|
|
||||||
print("%s\n", line+1);
|
|
||||||
}
|
|
||||||
/*
|
|
||||||
* How it works. Start in statesp. Each time we read a character,
|
|
||||||
* increment various counts, and do state transitions according to the
|
|
||||||
* following table. If we're not in statesp or statewd when done, the
|
|
||||||
* file ends with a partial rune.
|
|
||||||
* | character
|
|
||||||
* state |09,20| 0a |00-7f|80-bf|c0-df|e0-ef|f0-ff
|
|
||||||
* -------+-----+-----+-----+-----+-----+-----+-----
|
|
||||||
* statesp|ASP |ASPN |AWDW |AWDWX|AC2W |AC3W |AWDWX
|
|
||||||
* statewd|ASP |ASPN |AWD |AWDX |AC2 |AC3 |AWDX
|
|
||||||
* statec2|ASPX |ASPNX|AWDX |AWDR |AC2X |AC3X |AWDX
|
|
||||||
* statec3|ASPX |ASPNX|AWDX |AC2R |AC2X |AC3X |AWDX
|
|
||||||
*/
|
|
||||||
enum{ /* actions */
|
|
||||||
AC2, /* enter statec2 */
|
|
||||||
AC2R, /* enter statec2, don't count a rune */
|
|
||||||
AC2W, /* enter statec2, count a word */
|
|
||||||
AC2X, /* enter statec2, count a bad rune */
|
|
||||||
AC3, /* enter statec3 */
|
|
||||||
AC3W, /* enter statec3, count a word */
|
|
||||||
AC3X, /* enter statec3, count a bad rune */
|
|
||||||
ASP, /* enter statesp */
|
|
||||||
ASPN, /* enter statesp, count a newline */
|
|
||||||
ASPNX, /* enter statesp, count a newline, count a bad rune */
|
|
||||||
ASPX, /* enter statesp, count a bad rune */
|
|
||||||
AWD, /* enter statewd */
|
|
||||||
AWDR, /* enter statewd, don't count a rune */
|
|
||||||
AWDW, /* enter statewd, count a word */
|
|
||||||
AWDWX, /* enter statewd, count a word, count a bad rune */
|
|
||||||
AWDX, /* enter statewd, count a bad rune */
|
|
||||||
};
|
|
||||||
uchar statesp[256]={ /* looking for the start of a word */
|
|
||||||
AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 00-07 */
|
|
||||||
AWDW, ASP, ASPN, AWDW, AWDW, AWDW, AWDW, AWDW, /* 08-0f */
|
|
||||||
AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 10-17 */
|
|
||||||
AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 18-1f */
|
|
||||||
ASP, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 20-27 */
|
|
||||||
AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 28-2f */
|
|
||||||
AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 30-37 */
|
|
||||||
AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 38-3f */
|
|
||||||
AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 40-47 */
|
|
||||||
AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 48-4f */
|
|
||||||
AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 50-57 */
|
|
||||||
AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 58-5f */
|
|
||||||
AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 60-67 */
|
|
||||||
AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 68-6f */
|
|
||||||
AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 70-77 */
|
|
||||||
AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 78-7f */
|
|
||||||
AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* 80-87 */
|
|
||||||
AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* 88-8f */
|
|
||||||
AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* 90-97 */
|
|
||||||
AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* 98-9f */
|
|
||||||
AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* a0-a7 */
|
|
||||||
AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* a8-af */
|
|
||||||
AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* b0-b7 */
|
|
||||||
AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* b8-bf */
|
|
||||||
AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, /* c0-c7 */
|
|
||||||
AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, /* c8-cf */
|
|
||||||
AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, /* d0-d7 */
|
|
||||||
AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, /* d8-df */
|
|
||||||
AC3W, AC3W, AC3W, AC3W, AC3W, AC3W, AC3W, AC3W, /* e0-e7 */
|
|
||||||
AC3W, AC3W, AC3W, AC3W, AC3W, AC3W, AC3W, AC3W, /* e8-ef */
|
|
||||||
AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* f0-f7 */
|
|
||||||
AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* f8-ff */
|
|
||||||
};
|
|
||||||
uchar statewd[256]={ /* looking for the next character in a word */
|
|
||||||
AWD, AWD, AWD, AWD, AWD, AWD, AWD, AWD, /* 00-07 */
|
|
||||||
AWD, ASP, ASPN, AWD, AWD, AWD, AWD, AWD, /* 08-0f */
|
|
||||||
AWD, AWD, AWD, AWD, AWD, AWD, AWD, AWD, /* 10-17 */
|
|
||||||
AWD, AWD, AWD, AWD, AWD, AWD, AWD, AWD, /* 18-1f */
|
|
||||||
ASP, AWD, AWD, AWD, AWD, AWD, AWD, AWD, /* 20-27 */
|
|
||||||
AWD, AWD, AWD, AWD, AWD, AWD, AWD, AWD, /* 28-2f */
|
|
||||||
AWD, AWD, AWD, AWD, AWD, AWD, AWD, AWD, /* 30-37 */
|
|
||||||
AWD, AWD, AWD, AWD, AWD, AWD, AWD, AWD, /* 38-3f */
|
|
||||||
AWD, AWD, AWD, AWD, AWD, AWD, AWD, AWD, /* 40-47 */
|
|
||||||
AWD, AWD, AWD, AWD, AWD, AWD, AWD, AWD, /* 48-4f */
|
|
||||||
AWD, AWD, AWD, AWD, AWD, AWD, AWD, AWD, /* 50-57 */
|
|
||||||
AWD, AWD, AWD, AWD, AWD, AWD, AWD, AWD, /* 58-5f */
|
|
||||||
AWD, AWD, AWD, AWD, AWD, AWD, AWD, AWD, /* 60-67 */
|
|
||||||
AWD, AWD, AWD, AWD, AWD, AWD, AWD, AWD, /* 68-6f */
|
|
||||||
AWD, AWD, AWD, AWD, AWD, AWD, AWD, AWD, /* 70-77 */
|
|
||||||
AWD, AWD, AWD, AWD, AWD, AWD, AWD, AWD, /* 78-7f */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 80-87 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 88-8f */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 90-97 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 98-9f */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* a0-a7 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* a8-af */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* b0-b7 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* b8-bf */
|
|
||||||
AC2, AC2, AC2, AC2, AC2, AC2, AC2, AC2, /* c0-c7 */
|
|
||||||
AC2, AC2, AC2, AC2, AC2, AC2, AC2, AC2, /* c8-cf */
|
|
||||||
AC2, AC2, AC2, AC2, AC2, AC2, AC2, AC2, /* d0-d7 */
|
|
||||||
AC2, AC2, AC2, AC2, AC2, AC2, AC2, AC2, /* d8-df */
|
|
||||||
AC3, AC3, AC3, AC3, AC3, AC3, AC3, AC3, /* e0-e7 */
|
|
||||||
AC3, AC3, AC3, AC3, AC3, AC3, AC3, AC3, /* e8-ef */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* f0-f7 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* f8-ff */
|
|
||||||
};
|
|
||||||
uchar statec2[256]={ /* looking for 10xxxxxx to complete a rune */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 00-07 */
|
|
||||||
AWDX, ASPX, ASPNX,AWDX, AWDX, AWDX, AWDX, AWDX, /* 08-0f */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 10-17 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 18-1f */
|
|
||||||
ASPX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 20-27 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 28-2f */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 30-37 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 38-3f */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 40-47 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 48-4f */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 50-57 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 58-5f */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 60-67 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 68-6f */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 70-77 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 78-7f */
|
|
||||||
AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, /* 80-87 */
|
|
||||||
AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, /* 88-8f */
|
|
||||||
AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, /* 90-97 */
|
|
||||||
AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, /* 98-9f */
|
|
||||||
AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, /* a0-a7 */
|
|
||||||
AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, /* a8-af */
|
|
||||||
AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, /* b0-b7 */
|
|
||||||
AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, /* b8-bf */
|
|
||||||
AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* c0-c7 */
|
|
||||||
AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* c8-cf */
|
|
||||||
AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* d0-d7 */
|
|
||||||
AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* d8-df */
|
|
||||||
AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, /* e0-e7 */
|
|
||||||
AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, /* e8-ef */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* f0-f7 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* f8-ff */
|
|
||||||
};
|
|
||||||
uchar statec3[256]={ /* looking for 10xxxxxx,10xxxxxx to complete a rune */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 00-07 */
|
|
||||||
AWDX, ASPX, ASPNX,AWDX, AWDX, AWDX, AWDX, AWDX, /* 08-0f */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 10-17 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 18-1f */
|
|
||||||
ASPX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 20-27 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 28-2f */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 30-37 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 38-3f */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 40-47 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 48-4f */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 50-57 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 58-5f */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 60-67 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 68-6f */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 70-77 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 78-7f */
|
|
||||||
AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, /* 80-87 */
|
|
||||||
AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, /* 88-8f */
|
|
||||||
AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, /* 90-97 */
|
|
||||||
AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, /* 98-9f */
|
|
||||||
AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, /* a0-a7 */
|
|
||||||
AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, /* a8-af */
|
|
||||||
AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, /* b0-b7 */
|
|
||||||
AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, /* b8-bf */
|
|
||||||
AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* c0-c7 */
|
|
||||||
AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* c8-cf */
|
|
||||||
AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* d0-d7 */
|
|
||||||
AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* d8-df */
|
|
||||||
AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, /* e0-e7 */
|
|
||||||
AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, /* e8-ef */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* f0-f7 */
|
|
||||||
AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* f8-ff */
|
|
||||||
};
|
|
||||||
void
|
|
||||||
count(int f, char *name)
|
|
||||||
{
|
|
||||||
int n;
|
|
||||||
uchar buf[NBUF];
|
|
||||||
uchar *bufp, *ebuf;
|
|
||||||
uchar *state=statesp;
|
|
||||||
|
|
||||||
nline = 0;
|
|
||||||
nword = 0;
|
|
||||||
nrune = 0;
|
|
||||||
nbadr = 0;
|
|
||||||
nchar = 0;
|
|
||||||
|
|
||||||
for(;;){
|
|
||||||
n=read(f, buf, NBUF);
|
|
||||||
if(n<=0)
|
|
||||||
break;
|
|
||||||
nchar+=n;
|
|
||||||
nrune+=n; /* might be too large, gets decreased later */
|
|
||||||
bufp=buf;
|
|
||||||
ebuf=buf+n;
|
|
||||||
do{
|
|
||||||
switch(state[*bufp]){
|
|
||||||
case AC2: state=statec2; break;
|
|
||||||
case AC2R: state=statec2; --nrune; break;
|
|
||||||
case AC2W: state=statec2; nword++; break;
|
|
||||||
case AC2X: state=statec2; nbadr++; break;
|
|
||||||
case AC3: state=statec3; break;
|
|
||||||
case AC3W: state=statec3; nword++; break;
|
|
||||||
case AC3X: state=statec3; nbadr++; break;
|
|
||||||
case ASP: state=statesp; break;
|
|
||||||
case ASPN: state=statesp; nline++; break;
|
|
||||||
case ASPNX: state=statesp; nline++; nbadr++; break;
|
|
||||||
case ASPX: state=statesp; nbadr++; break;
|
|
||||||
case AWD: state=statewd; break;
|
|
||||||
case AWDR: state=statewd; --nrune; break;
|
|
||||||
case AWDW: state=statewd; nword++; break;
|
|
||||||
case AWDWX: state=statewd; nword++; nbadr++; break;
|
|
||||||
case AWDX: state=statewd; nbadr++; break;
|
|
||||||
}
|
|
||||||
}while(++bufp!=ebuf);
|
|
||||||
}
|
|
||||||
if(state!=statesp && state!=statewd)
|
|
||||||
nbadr++;
|
|
||||||
if(n<0)
|
|
||||||
perror(name);
|
|
||||||
report(nline, nword, nrune, nbadr, nchar, name);
|
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue