p-wc.cc

#include "p-lib.hh"

static int unparse_counts(char* buff, size_t buffsz, int mode,
                          const size_t* counts, const char* fname) {
    const char* sep = strlen(fname) ? " " : "";
    if (mode < 0) {
        return snprintf(buff, buffsz, "%8zu %7zu %7zu%s%s\n",
                        counts[0], counts[1], counts[2], sep, fname);
    } else if (*sep) {
        return snprintf(buff, buffsz, "%8zu%s%s\n",
                        counts[mode], sep, fname);
    } else {
        return snprintf(buff, buffsz, "%zu\n", counts[mode]);
    }
}

void process_main(int argc, char** argv) {
    sys_kdisplay(KDISPLAY_NONE);
    static char buff[4096];

    int mode = -1;
    int argno = 1;
    if (argno < argc) {
        if (strcmp(argv[argno], "-c") == 0) {
            mode = 0;
            ++argno;
        } else if (strcmp(argv[argno], "-w") == 0) {
            mode = 1;
            ++argno;
        } else if (strcmp(argv[argno], "-l") == 0) {
            mode = 2;
            ++argno;
        } else if (argv[argno][0] == '-' && argv[argno][1]) {
            sys_write(2, "wc: bad argument\n", 17);
            sys_exit(1);
        }
    }

    size_t totals[3] = {0, 0, 0};
    unsigned nfiles = 0;

    while (argno < argc || nfiles == 0) {
        int fd = 0;
        bool newfd = false;
        if (argno < argc && strcmp(argv[argno], "-") != 0) {
            fd = sys_open(argv[argno], OF_READ);
            if (fd < 0) {
                dprintf(2, "%s: error %d\n", argv[argno], fd);
                sys_exit(1);
            }
            newfd = true;
        }

        size_t counts[3] = {0, 0, 0};
        bool inword = false;
        while (1) {
            ssize_t n = sys_read(fd, buff, sizeof(buff));
            if (n == 0 || (n < 0 && n != E_AGAIN)) {
                break;
            }
            for (ssize_t i = 0; i < n; ++i) {
                ++counts[0];
                if (!inword && !isspace(buff[i])) {
                    ++counts[1];
                }
                inword = !isspace(buff[i]);
                if (buff[i] == '\n') {
                    ++counts[2];
                }
            }
        }

        int n = unparse_counts(buff, sizeof(buff), mode, counts,
                               argno < argc ? argv[argno] : "");
        ssize_t w = sys_write(1, buff, n);
        assert(w == n);

        for (int i = 0; i < 3; ++i) {
            totals[i] += counts[i];
        }
        ++nfiles;
        ++argno;
    }

    if (nfiles > 1) {
        int n = unparse_counts(buff, sizeof(buff), mode, totals, "total");
        ssize_t w = sys_write(1, buff, n);
        assert(w == n);
    }

    sys_exit(0);
}