#include <u.h>
#include <libc.h>
#include	<cda/fizz.h>
void f_minor(char *, ...);
void f_major(char *, ...);

#define		NPLANES		100
#define		NWIRES		100
#define		NDRILLSZ	50
#define		NBUF		5000

Drillsz dfdrillsz[] = {
'A', 33, 'a', (Point *) 0, 0, (char *)0,
'B', 34, 'a', (Point *) 0, 0, (char *)0,
'C', 39, 'a', (Point *) 0, 0, (char *)0,
'D', 42, 'a', (Point *) 0, 0, (char *)0,
'E', 50, 'a', (Point *) 0, 0, (char *)0,
'F', 62, 'a', (Point *) 0, 0, (char *)0,
'G', 106, 'a', (Point *) 0, 0, (char *)0,
'H', 107, 'a', (Point *) 0, 0, (char *)0,
'I', 108, 'a', (Point *) 0, 0, (char *)0,
'J', 20, 'a', (Point *) 0, 0, (char *)0,
'K', 110, 'a', (Point *) 0, 0, (char *)0,
'L', 111, 'a', (Point *) 0, 0, (char *)0,
'M', 112, 'a', (Point *) 0, 0, (char *)0,
'N', 113, 'a', (Point *) 0, 0, (char *)0,
'O', 114, 'a', (Point *) 0, 0, (char *)0,
'P', 115, 'a', (Point *) 0, 0, (char *)0,
'Q', 116, 'a', (Point *) 0, 0, (char *)0,
'R', 117, 'a', (Point *) 0, 0, (char *)0,
'S', 118, 'a', (Point *) 0, 0, (char *)0,
'T', 119, 'a', (Point *) 0, 0, (char *)0,
'U', 100, 'a', (Point *) 0, 0, (char *)0,
'V', 20, 'B', (Point *) 0, 0, (char *)0,
'W', 122, 'a', (Point *) 0, 0, (char *)0,
'X', 123, 'a', (Point *) 0, 0, (char *)0,
'Y', 124, 'a', (Point *) 0, 0, (char *)0,
'Z', 125, 'a', (Point *) 0, 0, (char *)0,
};

static Keymap keys[] = {
	"name", (void (*)(char *)) 0, 1,
	"align", (void (*)(char *)) 0, 2,
	"plane", NULLFN, 3,
	"layer", NULLFN, 4,
	"datums", NULLFN, 5,
	"wires", NULLFN, 6,
	"drillsz", NULLFN, 7,
	"drills", NULLFN, 8,
	"xymask", NULLFN, 9,
	0
};

void
f_board(char *s)
{
	register nm, loop;
	int i;
	int lo, hi;
	char *os;
	Plane planes[NPLANES], wires[NWIRES];
	Drillsz  drillsz[NDRILLSZ];
	register Plane *pp = planes, *qq = wires;
	Drillsz *rr = drillsz;
	char buf[NBUF], *nxt;


	BLANK(s);
	if(loop = *s == '{')
		s = f_inline();
	do {
		if(*s == '}') break;
		switch(f_keymap(keys, &s))
		{
		case 1:
			f_b->name = f_strdup(s);
			break;
		case 2:
			COORD(s, f_b->align[0].x, f_b->align[0].y);
			COORD(s, f_b->align[1].x, f_b->align[1].y);
			COORD(s, f_b->align[2].x, f_b->align[2].y);
			COORD(s, f_b->align[3].x, f_b->align[3].y);
			break;
		case 3:
			NUM(s, i)
			if((i < 0) || (i >= MAXLAYER))
				f_minor("bad layer number %d", i);
			pp->layer = LAYER(i);
			BLANK(s);
			if(*s == '+')
				pp->sense = 1;
			else if(*s == '-')
				pp->sense = -1;
			else
				f_minor("expected a sense [+-], got '%c'", *s);
			s++;
			BLANK(s);
			os = s;
			NAME(s);
			pp->sig = f_strdup(os);
			NUM(s, pp->r.min.x)
			NUM(s, pp->r.min.y)
			NUM(s, pp->r.max.x)
			NUM(s, pp->r.max.y)
			if(++pp >= &planes[NPLANES])
				f_major("Too many (%d) plane defns", NPLANES);
			break;
		case 4:
			BLANK(s);
			os = s;
			NAME(s);
			NUM(s, i);
			if((i < 0) || (i >= MAXLAYER)){
				f_minor("bad layer number %d", i);
				break;
			}
			if(f_b->layer[i])
				f_minor("Redefining layer %d from %s to %s", i, f_b->layer[i], os);
			else
				f_b->layer[i] = f_strdup(os);
			break;
		case 5:
			NUM(s, f_b->datums[0].p.x)
			NUM(s, f_b->datums[0].p.y)
			NUM(s, i)
			if((i != 45) && (i != 135))
				f_minor("bad datum orientation %d", i);
			else
				f_b->datums[0].drill = i == 135 ? '\\' : '/';
			NUM(s, f_b->datums[1].p.x)
			NUM(s, f_b->datums[1].p.y)
			NUM(s, i)
			if((i != 45) && (i != 135))
				f_minor("bad datum orientation %d", i);
			else
				f_b->datums[1].drill = i == 135 ? '\\' : '/';
			NUM(s, f_b->datums[2].p.x)
			NUM(s, f_b->datums[2].p.y)
			NUM(s, i)
			if((i != 45) && (i != 135))
				f_minor("bad datum orientation %d", i);
			else
				f_b->datums[2].drill = i == 135 ? '\\' : '/';
			break;
		case 6:
			BLANK(s);
			if(isdigit(*s)) {
				qq->layer = *s-'0';
				s++;
				BLANK(s);
			}
			else
				qq->layer = 3;
			if(*s == '+')
				qq->sense = 1;
			else if(*s == '-')
				qq->sense = -1;
			else
				f_minor("expected a smell [+-], got '%c'", *s);
			s++;
			BLANK(s);
			NUM(s, qq->r.min.x)
			NUM(s, qq->r.min.y)
			NUM(s, qq->r.max.x)
			NUM(s, qq->r.max.y)
			if(++qq >= &wires[NWIRES])
				f_major("Too many (%d) wires defns", NPLANES);
			break;
		case 7:
			BLANK(s);
			if(loop = *s == '{')
				s = f_inline();
			do {
				BLANK(s);
				if(*s == '}') break;
				rr->letter = *s++;
				BLANK(s);
				NUM(s, rr->dia);
				BLANK(s);
				rr->type = *s++;
				BLANK(s);
				if(*s) {
					os = s;
					NAME(s)
					rr->xydef = f_strdup(os);
				}
				else {
					rr->xydef = (char *)0;
				}
				if(*s) EOLN(s)
				if(++rr >= &drillsz[NDRILLSZ])
					f_major("Too many (%d) drillsz defns", NDRILLSZ);
			} while(loop && (s = f_inline()));
			break;

		case 8:
			NUM(s, lo)
			NUM(s, hi)
			if(f_b->ndrills)
				f_major("Board: drills defined twice");
			f_b->ndrills = hi-lo+1;
			f_b->drills = f_pins(s, lo, hi);
			break;
		case 9:
			BLANK(s)
			os = s;
			NAME(s)
			f_b->xyid = f_strdup(os);
			BLANK(s)
			if(*s != '{')
				break;
			nxt = buf;
			while(s = f_tabline()){
				if(*s == '}') break;
				lo = strlen(s);
				if(nxt+lo+1 >= buf+NBUF){
					f_major("XY mask defn for %s too big (>= %d)\n", f_b->xyid, NBUF);
				}
				memcpy(nxt, s, lo);
				nxt += lo;
				*nxt++ = '\n';
			}
			*nxt++ = 0;
			lo = nxt-buf;
			f_b->xydef = lmalloc((long) lo);
			memcpy(f_b->xydef, buf, lo);
			break;

		default:
			f_minor("Board: unknown field: '%s'\n", s);
			break;
		}
	} while(loop && (s = f_inline()));
	if(pp != planes){
		f_b->nplanes = pp-planes;
		f_b->planes = (Plane *)f_malloc(f_b->nplanes*(long)sizeof(Plane));
		memcpy((char *)f_b->planes, (char *)planes, f_b->nplanes*sizeof(Plane));
	}
	if(rr != drillsz){
		f_b->ndrillsz = rr-drillsz;
		f_b->drillsz = (Drillsz *)f_malloc(f_b->ndrillsz*(long)sizeof(Drillsz));
		memcpy((char *)f_b->drillsz, (char *)drillsz, f_b->ndrillsz*sizeof(Drillsz));
	}
	else {
		f_b->drillsz = dfdrillsz;
		f_b->ndrillsz = 26;
	}
	if(qq != wires){
		f_b->nkeepouts = qq-wires;
		f_b->keepouts = (Plane *)f_malloc(f_b->nkeepouts*(long)sizeof(Plane));
		memcpy((char *)f_b->keepouts, (char *)wires, f_b->nkeepouts*sizeof(Plane));
	}
}