/*
 * dcscan.c		Jim Piper		21-01-87
 *
 * scan feature file, pulling out desired conditions
 */

#include <stdio.h>
#include <math.h>
#include <wstruct.h>
#include <chromanal.h>
#include <dicen.h>
#include <otypes.h>


main(argc,argv)
char **argv;
{
	struct object *spobj, *mpol, *cvh, *rect;
	struct chromosome *obj, *readobj();
	struct chromplist *plist, *makechromplist();
	struct object *fipconvhull(), *spinsqueeze(), *minwrect();
	struct object *cpol, *centpoly(), *chromaxis2();
	struct object *prof, *p[2], *cprof, *polyprof();
	struct intervaldomain *idom;
	struct polygondomain *poly, *uspaxis8();
	struct frect *rdom;
	struct chromcands *chcp,chc[MAXOBJS];
	struct cand *cndp,cnd[MAXCANDS];
	int i, j, number, numberused, candcount;
	int PC1, PC2;
	char *cell,s[256];
	FILE *infile, *pf;
	struct dcresults r;
	int CANDSEL = 1;
	int NEARDIST = 1;
	if (argc > 1) {
		cell = argv[1];
		infile = fopen(cell,"r");
		if (infile == NULL) {
			fprintf(stderr,"Can't open %s\n",cell);
			exit(1);
		}
	} else {
		cell = "<stdin";
		infile = stdin;
	}
	pf = stdout;
	/*
	 * read data
	 */
	numberused = dcread(chc,cnd,infile,CANDSEL,NEARDIST,NEARDIST,0,&r);
	chcp = chc;
	for (i=0; i<numberused; i++,chcp++) {
		candcount = 0;
		cndp = chcp->cands;
		if ((chcp->Cbtype&DICENTRIC)) {
			printf("%s: %2d",cell,chcp->number);
			if (chcp->Cbtype & ACROCENTRIC)
				printf(" A");
			if (chcp->Cbtype & UNSHURE)
				printf(" U");
			printf("\n");
		}
	}
}