113 	INPUT *F1, *F2;  in main()  local
117 	F1 = &input1;  in main()
126 			F1->unpair = F2->unpair = 1;  in main()
129 			if ((F1->joinf = strtol(optarg, &end, 10)) < 1)  in main()
133 			--F1->joinf;  in main()
146 				F1->unpair = 1;  in main()
162 			if ((F1->joinf = F2->joinf = strtol(optarg, &end, 10)) < 1)  in main()
166 			--F1->joinf;  in main()
182 				F1->unpair = 1;  in main()
210 		F1->fp = stdin;  in main()
211 	else if ((F1->fp = fopen(*argv, "r")) == NULL)  in main()
218 	if (F1->fp == stdin && F2->fp == stdin)  in main()
221 	F1->setusedc = 0;  in main()
223 	slurp(F1);  in main()
225 	F1->set->cfieldc = 0;  in main()
233 	while (F1->setcnt && F2->setcnt) {  in main()
234 		cval = cmp(F1->set, F1->joinf, F2->set, F2->joinf);  in main()
238 				joinlines(F1, F2);  in main()
239 			slurp(F1);  in main()
243 			if (F1->unpair  in main()
245 				joinlines(F1, NULL);  in main()
246 				slurp(F1);  in main()
250 				slurp(F1);  in main()
252 			&& (cval > 0 || F1->set->cfieldc == F1->setusedc -1)) {  in main()
266 	if (F1->unpair)  in main()
267 		while (F1->setcnt) {  in main()
268 			joinlines(F1, NULL);  in main()
269 			slurp(F1);  in main()
414 joinlines(INPUT *F1, INPUT *F2)  in joinlines()  argument
424 		for (cnt1 = 0; cnt1 < F1->setcnt; ++cnt1)  in joinlines()
425 			outoneline(F1, &F1->set[cnt1]);  in joinlines()
428 	for (cnt1 = 0; cnt1 < F1->setcnt; ++cnt1)  in joinlines()
430 			outtwoline(F1, &F1->set[cnt1], F2, &F2->set[cnt2]);  in joinlines()
469 outtwoline(INPUT *F1, LINE *lp1, INPUT *F2, LINE *lp2)  in outtwoline()  argument
477 				if (lp1->fieldcnt >= F1->joinf)  in outtwoline()
478 					outfield(lp1, F1->joinf, 0);  in outtwoline()
490 		outfield(lp1, F1->joinf, 0);  in outtwoline()
492 			if (F1->joinf != cnt)  in outtwoline()