sys/src/cmd/wc.c

   1 /*
   2  * wc -- count things in utf-encoded text files
   3  * Bugs:
   4  *      The only white space characters recognized are ' ', '\t' and '\n', even though
   5  *      ISO 10646 has many more blanks scattered through it.
   6  *      Should count characters that cannot occur in any rune (hex f8-ff) separately.
   7  *      Should count non-canonical runes (e.g. hex c1,80 instead of hex 40).
   8  */
   9 #include <u.h>
  10 #include <libc.h>
  11 #define NBUF    (8*1024)
  12 uvlong nline, tnline; int pline;
  13 uvlong nword, tnword; int pword;
  14 uvlong nrune, tnrune; int prune;
  15 uvlong nbadr, tnbadr; int pbadr;
  16 uvlong nchar, tnchar; int pchar;
  17 void count(int, char *);
  18 void report(uvlong, uvlong, uvlong, uvlong, uvlong, char *);
  19 void
  20 main(int argc, char *argv[])
  21 {
  22         char *status="";
  23         int i, f;
  24         ARGBEGIN {
  25         case 'l': pline++; break;
  26         case 'w': pword++; break;
  27         case 'r': prune++; break;
  28         case 'b': pbadr++; break;
  29         case 'c': pchar++; break;
  30         default:
  31                 fprint(2, "Usage: %s [-lwrbc] [file ...]\n", argv0);
  32                 exits("usage");
  33         } ARGEND
  34         if(pline+pword+prune+pbadr+pchar == 0) {
  35                 pline = 1;
  36                 pword = 1;
  37                 pchar = 1;
  38         }
  39         if(argc==0)
  40                 count(0, nil);
  41         else{
  42                 for(i=0;i<argc;i++){
  43                         f=open(argv[i], OREAD);
  44                         if(f<0){
  45                                 perror(argv[i]);
  46                                 status="can't open";
  47                         }
  48                         else{
  49                                 count(f, argv[i]);
  50                                 tnline+=nline;
  51                                 tnword+=nword;
  52                                 tnrune+=nrune;
  53                                 tnbadr+=nbadr;
  54                                 tnchar+=nchar;
  55                                 close(f);
  56                         }
  57                 }
  58                 if(argc>1)
  59                         report(tnline, tnword, tnrune, tnbadr, tnchar, "total");
  60         }
  61         exits(status);
  62 }
  63 void
  64 report(uvlong nline, uvlong nword, uvlong nrune, uvlong nbadr, uvlong nchar, char *fname)
  65 {
  66         char line[128], *e;
  67         line[0] = '\0';
  68         e = line;
  69         if(pline)
  70                 e += sprint(e, " %7llud", nline);
  71         if(pword)
  72                 e += sprint(e, " %7llud", nword);
  73         if(prune)
  74                 e += sprint(e, " %7llud", nrune);
  75         if(pbadr)
  76                 e += sprint(e, " %7llud", nbadr);
  77         if(pchar)
  78                 sprint(e, " %7llud", nchar);
  79         if(fname)
  80                 print("%s %s\n", line+1, fname);
  81         else
  82                 print("%s\n", line+1);
  83 }
  84 /*
  85  * How it works.  Start in statesp.  Each time we read a character,
  86  * increment various counts, and do state transitions according to the
  87  * following table.  If we're not in statesp or statewd when done, the
  88  * file ends with a partial rune.
  89  *        |                character
  90  *  state |09,20| 0a  |00-7f|80-bf|c0-df|e0-ef|f0-f7|f8-ff
  91  * -------+-----+-----+-----+-----+-----+-----+-----+-----
  92  * statesp|ASP  |ASPN |AWDW |AWDWX|AC2W |AC3W |AC4W |AWDWX
  93  * statewd|ASP  |ASPN |AWD  |AWDX |AC2  |AC3  |AC4  |AWDX
  94  * statec2|ASPX |ASPNX|AWDX |AWDR |AC2X |AC3X |AC4X |AWDX
  95  * statec3|ASPX |ASPNX|AWDX |AC2R |AC2X |AC3X |AC4X |AWDX
  96  * statec4|ASPX |ASPNX|AWDX |AC3R |AC2X |AC3X |AC4X |AWDX
  97  */
  98 enum{                   /* actions */
  99         AC2,            /* enter statec2 */
 100         AC2R,           /* enter statec2, don't count a rune */
 101         AC2W,           /* enter statec2, count a word */
 102         AC2X,           /* enter statec2, count a bad rune */
 103         AC3,            /* enter statec3 */
 104         AC3R,           /* enter statec3, don't count a rune */
 105         AC3W,           /* enter statec3, count a word */
 106         AC3X,           /* enter statec3, count a bad rune */
 107         AC4,            /* enter statec4 */
 108         AC4W,           /* enter statec4, count a word */
 109         AC4X,           /* enter statec4, count a bad rune */
 110         ASP,            /* enter statesp */
 111         ASPN,           /* enter statesp, count a newline */
 112         ASPNX,          /* enter statesp, count a newline, count a bad rune */
 113         ASPX,           /* enter statesp, count a bad rune */
 114         AWD,            /* enter statewd */
 115         AWDR,           /* enter statewd, don't count a rune */
 116         AWDW,           /* enter statewd, count a word */
 117         AWDWX,          /* enter statewd, count a word, count a bad rune */
 118         AWDX,           /* enter statewd, count a bad rune */
 119 };
 120 uchar statesp[256]={    /* looking for the start of a word */
 121 AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 00-07 */
 122 AWDW, ASP,  ASPN, AWDW, AWDW, AWDW, AWDW, AWDW, /* 08-0f */
 123 AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 10-17 */
 124 AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 18-1f */
 125 ASP,  AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 20-27 */
 126 AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 28-2f */
 127 AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 30-37 */
 128 AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 38-3f */
 129 AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 40-47 */
 130 AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 48-4f */
 131 AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 50-57 */
 132 AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 58-5f */
 133 AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 60-67 */
 134 AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 68-6f */
 135 AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 70-77 */
 136 AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, AWDW, /* 78-7f */
 137 AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* 80-87 */
 138 AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* 88-8f */
 139 AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* 90-97 */
 140 AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* 98-9f */
 141 AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* a0-a7 */
 142 AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* a8-af */
 143 AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* b0-b7 */
 144 AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* b8-bf */
 145 AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, /* c0-c7 */
 146 AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, /* c8-cf */
 147 AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, /* d0-d7 */
 148 AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, AC2W, /* d8-df */
 149 AC3W, AC3W, AC3W, AC3W, AC3W, AC3W, AC3W, AC3W, /* e0-e7 */
 150 AC3W, AC3W, AC3W, AC3W, AC3W, AC3W, AC3W, AC3W, /* e8-ef */
 151 AC4W, AC4W, AC4W, AC4W, AC4W, AC4W, AC4W, AC4W, /* f0-f7 */
 152 AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,AWDWX,/* f8-ff */
 153 };
 154 uchar statewd[256] = {  /* looking for the next character in a word */
 155 AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  /* 00-07 */
 156 AWD,  ASP,  ASPN, AWD,  AWD,  AWD,  AWD,  AWD,  /* 08-0f */
 157 AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  /* 10-17 */
 158 AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  /* 18-1f */
 159 ASP,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  /* 20-27 */
 160 AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  /* 28-2f */
 161 AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  /* 30-37 */
 162 AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  /* 38-3f */
 163 AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  /* 40-47 */
 164 AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  /* 48-4f */
 165 AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  /* 50-57 */
 166 AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  /* 58-5f */
 167 AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  /* 60-67 */
 168 AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  /* 68-6f */
 169 AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  /* 70-77 */
 170 AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  AWD,  /* 78-7f */
 171 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 80-87 */
 172 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 88-8f */
 173 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 90-97 */
 174 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 98-9f */
 175 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* a0-a7 */
 176 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* a8-af */
 177 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* b0-b7 */
 178 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* b8-bf */
 179 AC2,  AC2,  AC2,  AC2,  AC2,  AC2,  AC2,  AC2,  /* c0-c7 */
 180 AC2,  AC2,  AC2,  AC2,  AC2,  AC2,  AC2,  AC2,  /* c8-cf */
 181 AC2,  AC2,  AC2,  AC2,  AC2,  AC2,  AC2,  AC2,  /* d0-d7 */
 182 AC2,  AC2,  AC2,  AC2,  AC2,  AC2,  AC2,  AC2,  /* d8-df */
 183 AC3,  AC3,  AC3,  AC3,  AC3,  AC3,  AC3,  AC3,  /* e0-e7 */
 184 AC3,  AC3,  AC3,  AC3,  AC3,  AC3,  AC3,  AC3,  /* e8-ef */
 185 AC4,  AC4,  AC4,  AC4,  AC4,  AC4,  AC4,  AC4,  /* f0-f7 */
 186 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* f8-ff */
 187 };
 188 uchar statec2[256] = {  /* looking for 10xxxxxx to complete a rune */
 189 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 00-07 */
 190 AWDX, ASPX, ASPNX,AWDX, AWDX, AWDX, AWDX, AWDX, /* 08-0f */
 191 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 10-17 */
 192 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 18-1f */
 193 ASPX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 20-27 */
 194 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 28-2f */
 195 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 30-37 */
 196 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 38-3f */
 197 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 40-47 */
 198 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 48-4f */
 199 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 50-57 */
 200 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 58-5f */
 201 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 60-67 */
 202 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 68-6f */
 203 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 70-77 */
 204 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 78-7f */
 205 AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, /* 80-87 */
 206 AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, /* 88-8f */
 207 AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, /* 90-97 */
 208 AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, /* 98-9f */
 209 AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, /* a0-a7 */
 210 AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, /* a8-af */
 211 AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, /* b0-b7 */
 212 AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, AWDR, /* b8-bf */
 213 AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* c0-c7 */
 214 AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* c8-cf */
 215 AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* d0-d7 */
 216 AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* d8-df */
 217 AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, /* e0-e7 */
 218 AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, /* e8-ef */
 219 AC4X, AC4X, AC4X, AC4X, AC4X, AC4X, AC4X, AC4X, /* f0-f7 */
 220 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* f8-ff */
 221 };
 222 uchar statec3[256] = {  /* looking for 10xxxxxx,10xxxxxx to complete a rune */
 223 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 00-07 */
 224 AWDX, ASPX, ASPNX,AWDX, AWDX, AWDX, AWDX, AWDX, /* 08-0f */
 225 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 10-17 */
 226 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 18-1f */
 227 ASPX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 20-27 */
 228 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 28-2f */
 229 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 30-37 */
 230 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 38-3f */
 231 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 40-47 */
 232 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 48-4f */
 233 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 50-57 */
 234 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 58-5f */
 235 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 60-67 */
 236 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 68-6f */
 237 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 70-77 */
 238 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 78-7f */
 239 AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, /* 80-87 */
 240 AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, /* 88-8f */
 241 AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, /* 90-97 */
 242 AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, /* 98-9f */
 243 AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, /* a0-a7 */
 244 AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, /* a8-af */
 245 AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, /* b0-b7 */
 246 AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, AC2R, /* b8-bf */
 247 AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* c0-c7 */
 248 AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* c8-cf */
 249 AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* d0-d7 */
 250 AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* d8-df */
 251 AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, /* e0-e7 */
 252 AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, /* e8-ef */
 253 AC4X, AC4X, AC4X, AC4X, AC4X, AC4X, AC4X, AC4X, /* f0-f7 */
 254 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* f8-ff */
 255 };
 256 uchar statec4[256] = {  /* looking for 10xxxxxx,10xxxxxx,10xxxxxx to complete a rune */
 257 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 00-07 */
 258 AWDX, ASPX, ASPNX,AWDX, AWDX, AWDX, AWDX, AWDX, /* 08-0f */
 259 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 10-17 */
 260 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 18-1f */
 261 ASPX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 20-27 */
 262 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 28-2f */
 263 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 30-37 */
 264 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 38-3f */
 265 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 40-47 */
 266 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 48-4f */
 267 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 50-57 */
 268 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 58-5f */
 269 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 60-67 */
 270 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 68-6f */
 271 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 70-77 */
 272 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* 78-7f */
 273 AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, /* 80-87 */
 274 AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, /* 88-8f */
 275 AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, /* 90-97 */
 276 AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, /* 98-9f */
 277 AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, /* a0-a7 */
 278 AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, /* a8-af */
 279 AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, /* b0-b7 */
 280 AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, AC3R, /* b8-bf */
 281 AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* c0-c7 */
 282 AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* c8-cf */
 283 AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* d0-d7 */
 284 AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, AC2X, /* d8-df */
 285 AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, /* e0-e7 */
 286 AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, AC3X, /* e8-ef */
 287 AC4X, AC4X, AC4X, AC4X, AC4X, AC4X, AC4X, AC4X, /* f0-f7 */
 288 AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, AWDX, /* f8-ff */
 289 };
 290
 291 void
 292 count(int f, char *name)
 293 {
 294         int n;
 295         uchar buf[NBUF];
 296         uchar *bufp, *ebuf;
 297         uchar *state = statesp;
 298
 299         nline = 0;
 300         nword = 0;
 301         nrune = 0;
 302         nbadr = 0;
 303         nchar = 0;
 304
 305         for(;;){
 306                 n=read(f, buf, NBUF);
 307                 if(n<=0)
 308                         break;
 309                 nchar+=n;
 310                 nrune+=n;       /* might be too large, gets decreased later */
 311                 bufp=buf;
 312                 ebuf=buf+n;
 313                 do{
 314                         switch(state[*bufp]){
 315                         case AC2:   state=statec2;                   break;
 316                         case AC2R:  state=statec2; --nrune;          break;
 317                         case AC2W:  state=statec2; nword++;          break;
 318                         case AC2X:  state=statec2;          nbadr++; break;
 319                         case AC3:   state=statec3;                   break;
 320                         case AC3R:  state=statec3; --nrune;          break;
 321                         case AC3W:  state=statec3; nword++;          break;
 322                         case AC3X:  state=statec3;          nbadr++; break;
 323                         case AC4:   state=statec4;                   break;
 324                         case AC4W:  state=statec4; nword++;          break;
 325                         case AC4X:  state=statec4;          nbadr++; break;
 326                         case ASP:   state=statesp;                   break;
 327                         case ASPN:  state=statesp; nline++;          break;
 328                         case ASPNX: state=statesp; nline++; nbadr++; break;
 329                         case ASPX:  state=statesp;          nbadr++; break;
 330                         case AWD:   state=statewd;                   break;
 331                         case AWDR:  state=statewd; --nrune;          break;
 332                         case AWDW:  state=statewd; nword++;          break;
 333                         case AWDWX: state=statewd; nword++; nbadr++; break;
 334                         case AWDX:  state=statewd;          nbadr++; break;
 335                         }
 336                 }while(++bufp!=ebuf);
 337         }
 338         if(state != statesp && state != statewd)
 339                 nbadr++;
 340         if(n<0)
 341                 perror(name);
 342         report(nline, nword, nrune, nbadr, nchar, name);
 343 }