#include	"focas1.h"


/* FILTER - Filter catalog files */

dofilter (input, output)
char	*input;
char	*output;
{
    FILE *fin, *fout;
    struct objrec ob;

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

    for (;;) {
	if (rdcatob (fin, 0L, &ob))
	    break;
	if (ffilter (&ob))
	    wtcat (&ob, fout);
    }

    fclose (fin);
    fclose (fout);
}