Return to cf.c CVS log

Up to [Research Unix] / researchv10no / cmd / lcc / tst

Annotation of researchv10no/cmd/lcc/tst/cf.c, revision 1.1.1.1

1.1       root        1: /* cf - print character frequencies */
                      2: float f[128];
                      3: 
                      4: main(argc, argv)
                      5: int argc;
                      6: char *argv[];
                      7: {
                      8:        int i, c, nc;
                      9:        float cutoff, atof();
                     10: 
                     11:        if (argc <= 1)
                     12:                cutoff = 0.0;
                     13:        else
                     14:                cutoff = atof(argv[1])/100;
                     15:        for (i = 0; i <= 127; )
                     16:                f[i++] = 0.0;
                     17:        nc = 0;
                     18:        while ((c = getchar()) != -1) {
                     19:                f[c] += 1;
                     20:                nc++;
                     21:        }
                     22:        printf("char\tfreq\n");
                     23:        for (i = 0; i <= 127; ++i)
                     24:                if (f[i] && f[i]/nc >= cutoff) {
                     25:                        if (i <= ' ')
                     26:                                printf("%03o", i);
                     27:                        else
                     28:                                printf("%c", i);
                     29:                        printf("\t%.1f\n", 100*f[i]/nc);
                     30:                }
                     31:        return 0;
                     32: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.