Lines Matching full:f1

108 	INPUT *F1, *F2;
114 	F1 = &input1;
123 			F1->unpair = F2->unpair = 1;
126 			if ((F1->joinf = strtol(optarg, &end, 10)) < 1)
130 			--F1->joinf;
143 				F1->unpair = 1;
159 			if ((F1->joinf = F2->joinf =
164 			--F1->joinf;
182 				F1->unpair = 1;
210 		F1->fp = stdin;
211 	else if ((F1->fp = fopen(*argv, "r")) == NULL)
218 	if (F1->fp == stdin && F2->fp == stdin)
221 	slurp(F1);
223 	while (F1->setcnt && F2->setcnt) {
224 		cval = cmp(F1->set, F1->joinf, F2->set, F2->joinf);
228 				joinlines(F1, F2);
229 			slurp(F1);
233 			if (F1->unpair)
234 				joinlines(F1, NULL);
235 			slurp(F1);
248 	if (F1->unpair)
249 		while (F1->setcnt) {
250 			joinlines(F1, NULL);
251 			slurp(F1);
422 joinlines(INPUT *F1, INPUT *F2)
432 		for (cnt1 = 0; cnt1 < F1->setcnt; ++cnt1)
433 			outoneline(F1, &F1->set[cnt1]);
436 	for (cnt1 = 0; cnt1 < F1->setcnt; ++cnt1)
438 			outtwoline(F1, &F1->set[cnt1], F2, &F2->set[cnt2]);
476 outtwoline(INPUT *F1, LINE *lp1, INPUT *F2, LINE *lp2)
484 				if (lp1->fieldcnt >= F1->joinf)
485 					outfield(lp1, F1->joinf, 0);
494 		 * Output the join field, then the remaining fields from F1
497 		outfield(lp1, F1->joinf, 0);
499 			if (F1->joinf != cnt)