Appendix A: Platform Specific Information

/*
 * main.c
 *
 * Modified from ``The C Programming Language'' 
 *     by Kernighan & Ritchie, 1978.
 * page 18.
 *
 */

#include <stdio.h>

main(argc,argv)
  int argc;
  char **argv;
{
 char	*p;
 int	linect, wordct, charct;
 long	tlinect = 0;
 long	twordct = 0;
 long	tcharct = 0;
 int	doline = 0;
 int	doword = 0;
 int	dochar = 0;
 FILE	*file;

 if (argc > 1 && argv[1][0] == `-') {
    for (p = argv[1] + 1; *p; ++p)
         switch(*p) {
         case `l':
            doline = 1;
            break;
         case `w':
            doword = 1;
            break;
         case `c':
            dochar = 1;
            break;
         default:
            fprintf(stderr, "invalid option: -%c\n",
                    *p);
         case `?':
            fputs("usage: wc [-lwc] [files]\n",
                  stderr);
            return 1;
         }
    argv += 2;
 }

 else {
    ++argv;
    doline = 1;
    doword = 1;
    dochar = 1;
 }
 do {
    if (!*argv) {
        count(stdin, &linect, &wordct, &charct);
        print(doline, doword, dochar, linect, 
              wordct, charct, "");
        return;
    }
    else {
        file = fopen(*argv, "r");
        if (file == NULL) {
        perror(*argv);
        return 1;
    }
    count(file, &linect, &wordct, &charct);
    fclose(file);
    print(doline, doword, dochar, linect, wordct, 
          charct, *argv);
    }
    tlinect += linect;
    twordct += wordct;
    tcharct += charct;
 } while(*++argv);

 print(doline, doword, dochar, tlinect, twordct, 
       tcharct, "total");
 return 0;
}

static print(doline, doword, dochar, linect, 
             wordct, charct, file)
   int  doline, doword, dochar;
   int  linect, wordct, charct;
   char *file;    
{
   if (doline)
       printf(" %7ld", linect);
   if (doword)
       printf(" %7ld", wordct);
   if (dochar)
       printf(" %7ld", charct);
   printf(" %s\n", file);
}

/*
 * wc.c
 *
 * Modified from ``The C Programming Language'' 
 *     by Kernighan & Ritchie, 1978.
 * page 18.
 *
 */

#include <stdio.h>

#define IN1   /* inside a word */
#define OUT0  /* outside a word */

/* count lines, words and characters in input */

count(file, p_nl, p_nw, p_nc)
FILE *file;
int  *p_nl, *p_nw, *p_nc;
{

 int c, nl, nw, nc, state;
 state = OUT;
 nl = 0;
 nw = 0;
 nc = 0;
 while (EOF != (c = getc(file))) {
    ++nc;
    if (c == `\n')
        ++nl;
    if (c == ` ` || c == `\n' || c == `\t')
        state = OUT;
    else if (state == OUT) {
        state = IN;
        ++nw;
    }
 }
 *p_nl = nl;
 *p_nw = nw;
 *p_nc = nc;
}

CFLAGS=-g

wordcount:	wc.o main.o
		$(CC) -g -o wordcount wc.o main.o

wc_err:		wc.o main_err.o
		$(CC) -g -o wc_err wc.o main_err.o

clean:
		-@atactm wordcount.trace
		-@atactm wc_err.trace
		rm -f *.o wordcount wc_err
		rm -f *.atac *.trace *.dif *.features tests_log