Bell 32V development

[unix-history] / usr / src / cmd / cmp.c

#include <stdio.h>
#include <ctype.h>

FILE	*file1,*file2;
int	eflg;
int	lflg	= 1;
long	line	= 1;
long	chr	= 0;
long	skip1;
long	skip2;

long	otoi();

main(argc, argv)
char **argv;
{
	register c1, c2;
	char *arg;

	if(argc < 3)
		goto narg;
	arg = argv[1];
	if(arg[0] == '-' && arg[1] == 's') {
		lflg--;
		argv++;
		argc--;
	}
	arg = argv[1];
	if(arg[0] == '-' && arg[1] == 'l') {
		lflg++;
		argv++;
		argc--;
	}
	if(argc < 3)
		goto narg;
	arg = argv[1];
	if( arg[0]=='-' && arg[1]==0 )
		file1 = stdin;
	else if((file1 = fopen(arg, "r")) == NULL)
		goto barg;
	arg = argv[2];
	if((file2 = fopen(arg, "r")) == NULL)
		goto barg;
	if (argc>3)
		skip1 = otoi(argv[3]);
	if (argc>4)
		skip2 = otoi(argv[4]);
	while (skip1) {
		if ((c1 = getc(file1)) == EOF) {
			arg = argv[1];
			goto earg;
		}
		skip1--;
	}
	while (skip2) {
		if ((c2 = getc(file2)) == EOF) {
			arg = argv[2];
			goto earg;
		}
		skip2--;
	}

loop:
	chr++;
	c1 = getc(file1);
	c2 = getc(file2);
	if(c1 == c2) {
		if (c1 == '\n')
			line++;
		if(c1 == EOF) {
			if(eflg)
				exit(1);
			exit(0);
		}
		goto loop;
	}
	if(lflg == 0)
		exit(1);
	if(c1 == EOF) {
		arg = argv[1];
		goto earg;
	}
	if(c2 == EOF)
		goto earg;
	if(lflg == 1) {
		printf("%s %s differ: char %ld, line %ld\n", argv[1], arg,
			chr, line);
		exit(1);
	}
	eflg = 1;
	printf("%6ld %3o %3o\n", chr, c1, c2);
	goto loop;

narg:
	printf("cmp: arg count\n");
	exit(2);

barg:
	if (lflg)
	printf("cmp: cannot open %s\n", arg);
	exit(2);

earg:
	printf("cmp: EOF on %s\n", arg);
	exit(1);
}

long otoi(s)
char *s;
{
	long v;
	int base;

	v = 0;
	base = 10;
	if (*s == '0')
		base = 8;
	while(isdigit(*s))
		v = v*base + *s++ - '0';
	return(v);
}