Return to wc.c CVS log

Up to [MW Coherent from dump] / coherent / b / bin

coherent

/*
 * wc - word count
 * Counts characters, lines, and words in all
 * of the input files.
 *
 * Usage: wc [-lwc] [name ...]
 *
 * Revised June '93 for POSIX.2: changed output format and uses isspace () to
 * delimit words.
 */

#include <stdio.h>
#include <ctype.h>
#ifdef COHERENT
#include <access.h>
#endif

char	_cmdname[] = "wc";
int	nfiles;
int	lineflg;
int	wordflg;
int	charflg;
long	chars, words, lines;
long	tchars, twords, tlines;

main(argc, argv)
char *argv[];
{
	register int i = 0;
	register char *ap;
	register FILE *fp;

	while (argv[1] != NULL && *argv[1] == '-') {
		for (ap = &argv[1][1]; *ap; ap++)
			switch (*ap) {
			case 'l':
				lineflg = 1;
				break;

			case 'w':
				wordflg = 1;
				break;

			case 'c':
				charflg = 1;
				break;

			default:
				usage();
			}
		argv++;
		argc--;
	}
	if (argc == 1) {
#ifdef	MSDOS
		_setbinary(stdin);
#endif
		wc(stdin);
		print(NULL);
	} else {
		argv++;  /* adjust args */

		while (*argv)
		{
#ifdef COHERENT
		   if (access(*argv, AREAD))
		    {  fprintf(stderr, "wc: can't open %s\n", *argv);
		       *argv[0] = 0;  /* flag arg as invalid */
		    }
#endif
		    i++;     /* count the arg */
		    argv++;  /* advance to next arg */
		}
		
		argv -= i;  /* back to start of filename args to process */
		argc--; 

		for (i=0; i<argc; i++) {
			if (*argv[i] == 0)  /* arg to skip? */ 
			   continue;        /* yes */
			if ((fp = fopen(argv[i], "rb")) == NULL) {
				fprintf(stderr,
				   "wc: can't open %s\n", argv[i]);
				continue;
			}
			nfiles++;
			wc(fp);
			print(argv[i]);
			tchars += chars;
			twords += words;
			tlines += lines;
			fclose(fp);
		}
		if (nfiles >= 2) {
			chars = tchars;
			words = twords;
			lines = tlines;
			print("Total");
		}
	}
}

/*
 * Count words, lines and characters in the input file
 * descriptor and put into global variables.
 */
wc(in)
register FILE *in;
{
	register c;
	int inw;

	inw = 0;
	chars = words = lines = 0;
	while ((c = getc(in)) != EOF) {
		chars++;

		if (c == '\n')
			lines++;

		if (isspace (c))
			inw = 0;
		else if (!inw) {
			inw = 1;
			words++;
		}
	}
}

/*
 * Print according to option flags to totals
 */
print(name)
char *name;
{
	if (!lineflg && !wordflg && !charflg)
		printf("%7ld %7ld %7ld", lines, words, chars);
	else {
		if (lineflg) {
			printf("%7ld", lines);
			if (wordflg || charflg)
				putchar (' ');
		}
		if (wordflg) {
			printf("%7ld", words);
			if (charflg)
				putchar (' ');
		}
		if (charflg)
			printf("%7ld", chars);
	}
	if (name != NULL)
		printf(" %s", name);
	printf("\n");
}

usage()
{
	fprintf(stderr, "Usage: wc [-lwc] [name ...]\n");
	exit(1);
}

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