467 	register FILE *fout;  in putadmin()  local
472 	if (!(fout = frewrite)) {  in putadmin()
475 			fout = fopenSafer(makedirtemp(0), FOPEN_WB);  in putadmin()
479 			fout = fdopen(fo, FOPEN_WB);  in putadmin()
482 		if (!(frewrite = fout))  in putadmin()
490 	aputc_(*Khead, fout)  in putadmin()
491 	aprintf(fout, "%s\t%s;\n", Khead + 1, Head?Head->num:"");  in putadmin()
493 		aprintf(fout, "%s\t%s;\n", Kbranch, Dbranch);  in putadmin()
495 	aputs(Kaccess, fout);  in putadmin()
498 	       aprintf(fout, "\n\t%s", curaccess->login);  in putadmin()
501 	aprintf(fout, ";\n%s", Ksymbols);  in putadmin()
504 	       aprintf(fout, "\n\t%s:%s", curassoc->symbol, curassoc->num);  in putadmin()
507 	aprintf(fout, ";\n%s", Klocks);  in putadmin()
510 	       aprintf(fout, "\n\t%s:%s", curlock->login, curlock->delta->num);  in putadmin()
513 	if (StrictLocks) aprintf(fout, "; %s", Kstrict);  in putadmin()
514 	aprintf(fout, ";\n");  in putadmin()
516 		aprintf(fout, "%s\t", Kcomment);  in putadmin()
517 		putstring(fout, true, Comment, false);  in putadmin()
518 		aprintf(fout, ";\n");  in putadmin()
521 		aprintf(fout, "%s\t%c%s%c;\n",  in putadmin()
524 	awrite(Ignored.string, Ignored.size, fout);  in putadmin()
525 	aputc_('\n', fout)  in putadmin()
530 putdelta(node, fout)  in putdelta()  argument
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)  in puttree()  argument
559 	register FILE *fout;
567 		putdelta(root, fout);
569 	puttree(root->next, fout);
573 	     puttree(nextbranch->hsh, fout);
580 putdtext(delta, srcname, fout, diffmt)  in putdtext()  argument
583 	FILE *fout;
599 	putdftext(delta, fin, fout, diffmt);
639 	register FILE *fout;  local
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);