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

static char *sccsid = "@(#)comm.c	4.1 (Berkeley) 10/1/80";
#include <stdio.h>
#define LB 256
int	one;
int	two;
int	three;

char	*ldr[3];

FILE *ib1;
FILE *ib2;
FILE *openfil();
main(argc,argv)
char	*argv[];
{
	int	l;
	char	lb1[LB],lb2[LB];

	ldr[0] = "";
	ldr[1] = "\t";
	ldr[2] = "\t\t";
	if(argc > 1)  {
		if(*argv[1] == '-' && argv[1][1] != 0) {
			l = 1;
			while(*++argv[1]) {
				switch(*argv[1]) {
				case'1':
					if(!one) {
						one = 1;
						ldr[1][0] =
						ldr[2][l--] = '\0';
					}
					break;
				case '2':
					if(!two) {
						two = 1;
						ldr[2][l--] = '\0';
					}
					break;
				case '3':
					three = 1;
					break;
				default:
				fprintf(stderr,"comm: illegal flag\n");
				exit(1);
				}
			}
			argv++;
			argc--;
		}
	}

	if(argc < 3) {
		fprintf(stderr,"comm: arg count\n");
		exit(1);
	}

	ib1 = openfil(argv[1]);
	ib2 = openfil(argv[2]);


	if(rd(ib1,lb1) < 0) {
		if(rd(ib2,lb2) < 0)	exit(0);
		copy(ib2,lb2,2);
	}
	if(rd(ib2,lb2) < 0)	copy(ib1,lb1,1);

	while(1) {

		switch(compare(lb1,lb2)) {

			case 0:
				wr(lb1,3);
				if(rd(ib1,lb1) < 0) {
					if(rd(ib2,lb2) < 0)	exit(0);
					copy(ib2,lb2,2);
				}
				if(rd(ib2,lb2) < 0)	copy(ib1,lb1,1);
				continue;

			case 1:
				wr(lb1,1);
				if(rd(ib1,lb1) < 0)	copy(ib2,lb2,2);
				continue;

			case 2:
				wr(lb2,2);
				if(rd(ib2,lb2) < 0)	copy(ib1,lb1,1);
				continue;
		}
	}
}

rd(file,buf)
FILE *file;
char *buf;
{

	register int i, c;
	i = 0;
	while((c = getc(file)) != EOF) {
		*buf = c;
		if(c == '\n' || i > LB-2) {
			*buf = '\0';
			return(0);
		}
		i++;
		buf++;
	}
	return(-1);
}

wr(str,n)
	char	*str;
{

	switch(n) {

		case 1:
			if(one)	return;
			break;

		case 2:
			if(two)	return;
			break;

		case 3:
			if(three)	return;
	}
	printf("%s%s\n",ldr[n-1],str);
}

copy(ibuf,lbuf,n)
FILE *ibuf;
char *lbuf;
{
	do {
		wr(lbuf,n);
	} while(rd(ibuf,lbuf) >= 0);

	exit(0);
}

compare(a,b)
	char	*a,*b;
{
	register char *ra,*rb;

	ra = --a;
	rb = --b;
	while(*++ra == *++rb)
		if(*ra == '\0')	return(0);
	if(*ra < *rb)	return(1);
	return(2);
}
FILE *openfil(s)
char *s;
{
	FILE *b;
	if(s[0]=='-' && s[1]==0)
		b = stdin;
	else if((b=fopen(s,"r")) == NULL) {
		fprintf(stderr,"comm: cannot open %s\n",s);
		exit(1);
	}
	return(b);
}
Commit	Line	Data
31cef89c	1	static char *sccsid = "@(#)comm.c 4.1 (Berkeley) 10/1/80";
6fe4541f BJ	2	#include <stdio.h>
	3	#define LB 256
	4	int one;
	5	int two;
	6	int three;
	7
	8	char *ldr[3];
	9
	10	FILE *ib1;
	11	FILE *ib2;
	12	FILE *openfil();
	13	main(argc,argv)
	14	char *argv[];
	15	{
	16	int l;
	17	char lb1[LB],lb2[LB];
	18
	19	ldr[0] = "";
	20	ldr[1] = "\t";
	21	ldr[2] = "\t\t";
	22	if(argc > 1) {
	23	if(*argv[1] == '-' && argv[1][1] != 0) {
	24	l = 1;
	25	while(*++argv[1]) {
	26	switch(*argv[1]) {
	27	case'1':
	28	if(!one) {
	29	one = 1;
	30	ldr[1][0] =
	31	ldr[2][l--] = '\0';
	32	}
	33	break;
	34	case '2':
	35	if(!two) {
	36	two = 1;
	37	ldr[2][l--] = '\0';
	38	}
	39	break;
	40	case '3':
	41	three = 1;
	42	break;
	43	default:
	44	fprintf(stderr,"comm: illegal flag\n");
	45	exit(1);
	46	}
	47	}
	48	argv++;
	49	argc--;
	50	}
	51	}
	52
	53	if(argc < 3) {
	54	fprintf(stderr,"comm: arg count\n");
	55	exit(1);
	56	}
	57
	58	ib1 = openfil(argv[1]);
	59	ib2 = openfil(argv[2]);
	60
	61
	62	if(rd(ib1,lb1) < 0) {
	63	if(rd(ib2,lb2) < 0) exit(0);
	64	copy(ib2,lb2,2);
	65	}
66	if(rd(ib2,lb2) < 0) copy(ib1,lb1,1);
67
68	while(1) {
69
70	switch(compare(lb1,lb2)) {
71
72	case 0:
73	wr(lb1,3);
74	if(rd(ib1,lb1) < 0) {
75	if(rd(ib2,lb2) < 0) exit(0);
76	copy(ib2,lb2,2);
77	}
78	if(rd(ib2,lb2) < 0) copy(ib1,lb1,1);
79	continue;
80
81	case 1:
82	wr(lb1,1);
83	if(rd(ib1,lb1) < 0) copy(ib2,lb2,2);
84	continue;
85
86	case 2:
87	wr(lb2,2);
88	if(rd(ib2,lb2) < 0) copy(ib1,lb1,1);
89	continue;
90	}
91	}
92	}
93
94	rd(file,buf)
95	FILE *file;
96	char *buf;
97	{
98
99	register int i, c;
100	i = 0;
101	while((c = getc(file)) != EOF) {
102	*buf = c;
103	if(c == '\n' \|\| i > LB-2) {
104	*buf = '\0';
105	return(0);
106	}
107	i++;
108	buf++;
109	}
110	return(-1);
111	}
112
113	wr(str,n)
114	char *str;
115	{
116
117	switch(n) {
118
119	case 1:
120	if(one) return;
121	break;
122
123	case 2:
124	if(two) return;
125	break;
126
127	case 3:
128	if(three) return;
129	}
130	printf("%s%s\n",ldr[n-1],str);
131	}
132
133	copy(ibuf,lbuf,n)
134	FILE *ibuf;
135	char *lbuf;
136	{
137	do {
138	wr(lbuf,n);
139	} while(rd(ibuf,lbuf) >= 0);
140
141	exit(0);
142	}
143
144	compare(a,b)
145	char a,b;
146	{
147	register char ra,rb;
148
149	ra = --a;
150	rb = --b;
151	while(++ra == ++rb)
152	if(*ra == '\0') return(0);
153	if(ra < rb) return(1);
154	return(2);
155	}
156	FILE *openfil(s)
157	char *s;
158	{
159	FILE *b;
160	if(s[0]=='-' && s[1]==0)
161	b = stdin;
162	else if((b=fopen(s,"r")) == NULL) {
163	fprintf(stderr,"comm: cannot open %s\n",s);
164	exit(1);
165	}
166	return(b);
167	}