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

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