/*
 * Printing object decorations
 */

#include <sys/types.h>
#include <stdio.h>
#include <strings.h>
#include "../libueda/mcl.h"
#include "../libuschem/schemstruct.h"
#include "../libuschem/graphsym.h"

extern char *get_comp_attr();
extern struct graphsym_pininst *find_comp_pininst();

extern struct schem *schem_being_printed;

extern char *gschem_text_halign[9];
extern char *gschem_text_valign[9];

static int decor_font_ptsize;

char *
pull_attr_from_obj(obj, attrname)
	register struct schemobj *obj;
	register char *attrname;
{
	register struct decoration *decor;

	if (obj->obj_type == OBJTYPE_COMPINST) {
		if (!strcmp(attrname, "refdes"))
			return(obj->compobj_mclcomp->name);
		if (!strcmp(attrname, "instname"))
			return(obj->compobj_instname);
	}
	for (decor = obj->obj_decorations; decor; decor = decor->decor_next)
		if (decor->decor_type == DECOR_TYPE_ATTR &&
		    !strcmp(decor->decorattr_name, attrname))
			return(decor->decorattr_value);
	if (obj->obj_type == OBJTYPE_COMPINST)
		return(get_comp_attr(obj->compobj_mclcomp, attrname));
	else
		return(NULL);
}

reset_decor_font()
{
	decor_font_ptsize = 0;
}

print_obj_decors(obj)
	struct schemobj *obj;
{
	register struct decoration *decor;
	register char *dispval;

	for (decor = obj->obj_decorations; decor; decor = decor->decor_next)
	switch (decor->decor_type) {
	case DECOR_TYPE_DISPLAYATTR:
		dispval = pull_attr_from_obj(obj, decor->decordisp_attr);
		if (dispval)
			print_textdisp_decor(decor, dispval);
		else
			fprintf(stderr,
			"%s: line %d: DisplayAttr: attribute %s unknown\n",
				schem_being_printed->orig_filename,
				decor->decor_lineno, decor->decordisp_attr);
		continue;
	case DECOR_TYPE_DISPLAYNETNAME:
		if (obj->obj_type != OBJTYPE_GRAPHNET) {
			fprintf(stderr,
	"%s: line %d: DisplayNetName invalid in objects other than GraphNet\n",
				schem_being_printed->orig_filename,
				decor->decor_lineno);
			continue;
		}
		dispval = obj->netobj_netname;
		if (dispval)
			print_textdisp_decor(decor, dispval);
		else
			fprintf(stderr,
			"%s: line %d: DisplayNetName on an unnamed GraphNet\n",
				schem_being_printed->orig_filename,
				decor->decor_lineno);
		continue;
	case DECOR_TYPE_SYMONPIN:
		if (obj->obj_type != OBJTYPE_COMPINST) {
			fprintf(stderr,
	"%s: line %d: SymOnPin invalid in objects other than components\n",
				schem_being_printed->orig_filename,
				decor->decor_lineno);
			continue;
		}
		print_symonpin(obj, decor);
		continue;
	case DECOR_TYPE_GRAPHBLOCK:
		print_graphblock(decor->decorgraph_body);
		continue;
	}
}

print_textdisp_decor(decor, dispval)
	register struct decoration *decor;
	char *dispval;
{
	if (decor->decordisp_alignment < 0 || decor->decordisp_alignment > 8) {
		fprintf(stderr,
		"%s: line %d: display decoration: alignment %d is invalid\n",
			schem_being_printed->orig_filename,
			decor->decor_lineno, decor->decordisp_alignment);
		return;
	}
	if (decor_font_ptsize != decor->decordisp_ptsize) {
		decor_font_ptsize = decor->decordisp_ptsize;
		printf("/Helvetica %d selisofnt\n", decor_font_ptsize);
	}
	emit_ps_string(dispval);
	printf(" %s %s %d %d %d Tshow\n",
		gschem_text_halign[decor->decordisp_alignment],
		gschem_text_valign[decor->decordisp_alignment],
		decor->decordisp_rotate,
		decor->decordisp_x, decor->decordisp_y);
}

print_symonpin(comp, symdec)
	struct schemobj *comp;
	struct decoration *symdec;
{
	struct graphsym *sop_gs;
	register struct graphsym_pindef *sop_pindef;
	register char *soughtpin;
	int bynum;
	register struct graphsym_pininst *hostpin;
	struct schemobj fakeobj;

	sop_gs = symdec->decorpinsym_gs;
	if (sop_gs->gs_npins > 1) {
		fprintf(stderr,
		"%s: line %d: SymOnPin symbols may not have more than 1 pin\n",
			schem_being_printed->orig_filename,
			symdec->decor_lineno);
		return;
	}
	sop_pindef = sop_gs->gs_pins;
	soughtpin = symdec->decorpinsym_pin;
	if (soughtpin[0] == '#') {
		bynum = 1;
		soughtpin++;
	} else
		bynum = 0;
	hostpin = find_comp_pininst(comp, soughtpin, bynum);
	if (!hostpin) {
		fprintf(stderr, "%s: line %d: SymOnPin: %s pin %s not found\n",
			schem_being_printed->orig_filename,
			symdec->decor_lineno, comp->compobj_instname,
			symdec->decorpinsym_pin);
		return;
	}
	/* everything located, do it */
	bzero(&fakeobj, sizeof fakeobj);
	fakeobj.obj_type = OBJTYPE_GRAPHSYM;
	fakeobj.obj_lineno = symdec->decor_lineno;
	fakeobj.compobj_graphsym = sop_gs;
	fakeobj.compobj_x = -sop_pindef->gspd_x;
	fakeobj.compobj_y = -sop_pindef->gspd_y;
	if (symdec->decorpinsym_mirror) {
		fakeobj.compobj_mirror = 1;
		fakeobj.compobj_x = -fakeobj.compobj_x;
	}
	fakeobj.compobj_x += hostpin->x;
	fakeobj.compobj_y += hostpin->y;
	print_graph_compinst(&fakeobj);
}