bin/rcs/rcsgen.c

467 	register FILE *fout;
472 	if (!(fout = frewrite)) {
475 			fout = fopenSafer(makedirtemp(0), FOPEN_WB);
479 			fout = fdopen(fo, FOPEN_WB);
482 		if (!(frewrite = fout))
490 	aputc_(*Khead, fout)
491 	aprintf(fout, "%s\t%s;\n", Khead + 1, Head?Head->num:"");
493 		aprintf(fout, "%s\t%s;\n", Kbranch, Dbranch);
495 	aputs(Kaccess, fout);
498 	       aprintf(fout, "\n\t%s", curaccess->login);
501 	aprintf(fout, ";\n%s", Ksymbols);
504 	       aprintf(fout, "\n\t%s:%s", curassoc->symbol, curassoc->num);
507 	aprintf(fout, ";\n%s", Klocks);
510 	       aprintf(fout, "\n\t%s:%s", curlock->login, curlock->delta->num);
513 	if (StrictLocks) aprintf(fout, "; %s", Kstrict);
514 	aprintf(fout, ";\n");
516 		aprintf(fout, "%s\t", Kcomment);
517 		putstring(fout, true, Comment, false);
518 		aprintf(fout, ";\n");
521 		aprintf(fout, "%s\t%c%s%c;\n",
524 	awrite(Ignored.string, Ignored.size, fout);
525 	aputc_('\n', fout)
530 putdelta(node, fout)
532 	register FILE * fout;
539 	aprintf(fout, "\n%s\n%s\t%s;\t%s %s;\t%s %s;\nbranches",
547 	       aprintf(fout, "\n\t%s", nextbranch->hsh->num);
551 	aprintf(fout, ";\n%s\t%s;\n", Knext, node->next?node->next->num:"");
552 	awrite(node->ig.string, node->ig.size, fout);
557 puttree(root, fout)
559 	register FILE *fout;
567 		putdelta(root, fout);
569 	puttree(root->next, fout);
573 	     puttree(nextbranch->hsh, fout);
580 putdtext(delta, srcname, fout, diffmt)
583 	FILE *fout;
599 	putdftext(delta, fin, fout, diffmt);
639 	register FILE *fout;
645 	fout = foutfile;
646 	aprintf(fout, DELNUMFORM, delta->num, Klog);
649 	putstring(fout, true, delta->log, true);
650 	aputc_('\n', fout)
653 	awrite(delta->igtext.string, delta->igtext.size, fout);
656 	aprintf(fout, "%s\n%c", Ktext, SDELIM);
665 		if (c==SDELIM) aputc_(SDELIM, fout) /*double up SDELIM*/
666 		aputc_(c, fout)
670 	    while (0  <=  (ed = getdiffcmd(fin, false, fout, &dc)))
677 				aputc_(SDELIM, fout)
678 			    aputc_(c, fout)
684 	aprintf(fout, "%c\n", SDELIM);