#include "focas1.h"


/* UNSPLIT -- Remove split objects and reset remaining object flags */

unsplit (input, output)
char	input[];
char	output[];
{
    FILE    *fin, *fout;
    struct objrec   ob;

    fin = catopen (input, 0);
    cmmnt ("unsplit");
    fout = catopen (output, 1);

    for (;;) {
	if (rdcatob (fin, 0L, &ob))
	    break;
	if (ob.subent == 0) {
	    ob.eflgs &= ~SNGL;
	    if (ob.class[0] == 'm') {
		strcpy (ob.class, "u");
		classes (&ob);
	    }
	    wtcat (&ob, fout);
	}
    }

    fclose (fin);
    fclose (fout);
}