ueda-linux: ueda/libuschem/rdschem

annotate ueda/libuschem/rdschem_parse.c @ 48:c977d637f038

pads2gpcb: decals/* writing implemented

author	Mychaela Falconia <falcon@ivan.Harhan.ORG>
date	Sat, 30 Jan 2016 17:31:20 +0000
parents	cd92449fdb51
children

rev	line source
0 cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	1 /*
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	2 * uschem schematic parser
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	3 */
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	4
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	5 #include <sys/types.h>
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	6 #include <stdio.h>
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	7 #include <strings.h>
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	8 #include "schemstruct.h"
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	9 #include "parserint.h"
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	10
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	11 extern char *copystr();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	12
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	13 extern struct schem_parse_state schem_parse_state;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	14
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	15 extern struct schemobj *parser_alloc_obj();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	16 extern struct decoration *parser_alloc_decor();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	17 extern struct netpoint *parser_alloc_netpoint();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	18 extern struct xypair parse_drawing_size_spec();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	19 extern struct graphblock *rdschem_graphblock();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	20
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	21 rdschem_parse_schemline()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	22 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	23 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	24 struct xypair drawing_size;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	25
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	26 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	27 if (t != STRING \|\| strcmp(schem_parse_state.string, "Schem")) {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	28 fprintf(stderr,
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	29 "%s is not a uschem schematic (doesn't begin with Schem)\n",
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	30 schem_parse_state.schem->orig_filename);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	31 exit(1);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	32 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	33
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	34 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	35 if (t != STRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	36 inv: rdschem_error("Schem line: syntax error");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	37 if (!strcmp(schem_parse_state.string, "graph")) {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	38 schem_parse_state.schem->is_graph = 1;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	39 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	40 if (t != STRING && t != QSTRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	41 goto inv;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	42 drawing_size =
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	43 parse_drawing_size_spec(schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	44 schem_parse_state.schem->graph_xsize = drawing_size.x;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	45 schem_parse_state.schem->graph_ysize = drawing_size.y;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	46 } else if (!strcmp(schem_parse_state.string, "nograph"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	47 schem_parse_state.schem->is_graph = 0;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	48 else
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	49 goto inv;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	50
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	51 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	52 if (t != ';')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	53 goto inv;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	54 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	55
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	56 static struct decoration *
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	57 parse_decor_attr()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	58 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	59 register struct decoration *decor;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	60 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	61
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	62 decor = parser_alloc_decor(DECOR_TYPE_ATTR);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	63 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	64 if (t != STRING && t != QSTRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	65 syntaxerr: rdschem_error("(attribute definition decoration) syntax error");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	66 if (!schem_parse_state.string[0])
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	67 rdschem_error("attribute name may not be a null string");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	68 decor->decorattr_name = copystr(schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	69 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	70 if (t != '=')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	71 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	72 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	73 if (t != STRING && t != QSTRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	74 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	75 if (!schem_parse_state.string[0])
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	76 rdschem_error("attribute value may not be a null string");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	77 decor->decorattr_value = copystr(schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	78 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	79 if (t != ')')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	80 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	81 return(decor);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	82 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	83
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	84 static struct decoration *
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	85 parse_decor_displayattr()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	86 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	87 register struct decoration *decor;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	88 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	89
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	90 decor = parser_alloc_decor(DECOR_TYPE_DISPLAYATTR);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	91 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	92 if (t != STRING && t != QSTRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	93 syntaxerr: rdschem_error("(DisplayAttr decoration) syntax error");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	94 if (!schem_parse_state.string[0])
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	95 rdschem_error("attribute name may not be a null string");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	96 decor->decordisp_attr = copystr(schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	97 decor->decordisp_x = parse_number();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	98 decor->decordisp_y = parse_number();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	99 decor->decordisp_ptsize = parse_number();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	100 decor->decordisp_rotate = parse_number();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	101 decor->decordisp_alignment = parse_number();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	102 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	103 if (t != ';')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	104 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	105 return(decor);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	106 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	107
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	108 static struct decoration *
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	109 parse_decor_displaynetname()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	110 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	111 register struct decoration *decor;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	112 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	113
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	114 decor = parser_alloc_decor(DECOR_TYPE_DISPLAYNETNAME);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	115 decor->decordisp_x = parse_number();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	116 decor->decordisp_y = parse_number();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	117 decor->decordisp_ptsize = parse_number();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	118 decor->decordisp_rotate = parse_number();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	119 decor->decordisp_alignment = parse_number();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	120 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	121 if (t != ';')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	122 rdschem_error("(DisplayNetName decoration) syntax error");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	123 return(decor);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	124 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	125
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	126 static struct decoration *
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	127 parse_decor_pintonet()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	128 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	129 register struct decoration *decor;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	130 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	131
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	132 decor = parser_alloc_decor(DECOR_TYPE_PINTONET);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	133 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	134 if (t != STRING && t != QSTRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	135 syntaxerr: rdschem_error("(PinToNet decoration) syntax error");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	136 if (!schem_parse_state.string[0])
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	137 rdschem_error("pin ID may not be a null string");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	138 if (!strcmp(schem_parse_state.string, "#"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	139 rdschem_error("pin ID \"#\" is invalid");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	140 decor->decorpincon_pin = copystr(schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	141 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	142 if (t != STRING && t != QSTRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	143 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	144 if (!schem_parse_state.string[0])
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	145 rdschem_error("net name may not be a null string");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	146 decor->decorpincon_netname = copystr(schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	147 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	148 if (t != ';')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	149 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	150 return(decor);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	151 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	152
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	153 static struct decoration *
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	154 parse_decor_noconnect()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	155 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	156 register struct decoration *decor;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	157 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	158
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	159 decor = parser_alloc_decor(DECOR_TYPE_NOCONNECT);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	160 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	161 if (t != STRING && t != QSTRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	162 syntaxerr: rdschem_error("(NoConnect decoration) syntax error");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	163 if (!schem_parse_state.string[0])
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	164 rdschem_error("pin ID may not be a null string");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	165 if (!strcmp(schem_parse_state.string, "#"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	166 rdschem_error("pin ID \"#\" is invalid");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	167 decor->decorpincon_pin = copystr(schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	168 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	169 if (t != ';')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	170 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	171 return(decor);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	172 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	173
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	174 static struct decoration *
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	175 parse_decor_symonpin()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	176 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	177 register struct decoration *decor;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	178 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	179
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	180 decor = parser_alloc_decor(DECOR_TYPE_SYMONPIN);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	181 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	182 if (t != STRING && t != QSTRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	183 syntaxerr: rdschem_error("(SymOnPin decoration) syntax error");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	184 if (!schem_parse_state.string[0])
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	185 rdschem_error("pin ID may not be a null string");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	186 if (!strcmp(schem_parse_state.string, "#"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	187 rdschem_error("pin ID \"#\" is invalid");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	188 decor->decorpinsym_pin = copystr(schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	189 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	190 if (t != STRING && t != QSTRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	191 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	192 if (!schem_parse_state.string[0])
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	193 rdschem_error("graphical symbol name may not be a null string");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	194 decor->decorpinsym_symname = copystr(schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	195 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	196 if (t == STRING && !strcmp(schem_parse_state.string, "mirror")) {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	197 decor->decorpinsym_mirror = 1;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	198 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	199 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	200 if (t != ';')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	201 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	202 return(decor);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	203 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	204
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	205 static struct decoration *
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	206 parse_decor_graphblock(type)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	207 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	208 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	209 register struct decoration *decor;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	210 register struct graphblock *blk;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	211
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	212 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	213 if (t != '{')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	214 rdschem_error("GraphBlockG/GraphBlockPS must be followed by '{'");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	215 blk = rdschem_graphblock(type);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	216 decor = parser_alloc_decor(DECOR_TYPE_GRAPHBLOCK);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	217 decor->decorgraph_body = blk;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	218 schem_parse_state.schem->has_graphblocks = 1;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	219 return(decor);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	220 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	221
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	222 static struct decoration *
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	223 parse_decor_comment()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	224 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	225 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	226 register struct decoration *decor;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	227
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	228 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	229 if (t != STRING && t != QSTRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	230 syntaxerr: rdschem_error("(Comment decoration) syntax error");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	231 if (!schem_parse_state.string[0])
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	232 rdschem_error("schematic comment may not be a null string");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	233 decor = parser_alloc_decor(DECOR_TYPE_COMMENT);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	234 decor->decorcomment_text = copystr(schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	235 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	236 if (t != ';')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	237 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	238 return(decor);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	239 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	240
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	241 struct decoration *
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	242 rdschem_parse_decor_block()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	243 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	244 struct decoration decor, head, **tailp;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	245 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	246 char errbuf[256];
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	247
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	248 for (head = NULL, tailp = &head; ; ) {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	249 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	250 switch (t) {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	251 case 0:
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	252 rdschem_error("EOF in a decoration block");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	253 case '(':
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	254 decor = parse_decor_attr();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	255 goto addit;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	256 case ';':
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	257 /* "null statement" */
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	258 continue;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	259 case '}':
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	260 return(head);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	261 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	262 if (t != STRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	263 rdschem_error("syntax error: decoration keyword expected");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	264 if (!strcmp(schem_parse_state.string, "DisplayAttr"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	265 decor = parse_decor_displayattr();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	266 else if (!strcmp(schem_parse_state.string, "DisplayNetName"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	267 decor = parse_decor_displaynetname();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	268 else if (!strcmp(schem_parse_state.string, "PinToNet"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	269 decor = parse_decor_pintonet();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	270 else if (!strcmp(schem_parse_state.string, "NoConnect"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	271 decor = parse_decor_noconnect();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	272 else if (!strcmp(schem_parse_state.string, "SymOnPin"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	273 decor = parse_decor_symonpin();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	274 else if (!strcmp(schem_parse_state.string, "GraphBlockG"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	275 decor = parse_decor_graphblock(GRAPHBLOCK_TYPE_GSCHEM);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	276 else if (!strcmp(schem_parse_state.string, "GraphBlockPS"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	277 decor = parse_decor_graphblock(GRAPHBLOCK_TYPE_PS);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	278 else if (!strcmp(schem_parse_state.string, "Comment"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	279 decor = parse_decor_comment();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	280 else {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	281 sprintf(errbuf,
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	282 "%s is not a recognized decoration keyword",
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	283 schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	284 rdschem_error(errbuf);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	285 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	286 addit: *tailp = decor;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	287 tailp = &decor->decor_next;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	288 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	289 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	290
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	291 rdschem_parse_object()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	292 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	293 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	294 char errbuf[256];
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	295
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	296 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	297 if (!t) /* EOF aka end of schematic */
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	298 return(1);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	299 if (t == ';') /* "null statement" */
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	300 return(0);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	301 if (t != STRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	302 rdschem_error("syntax error: object keyword expected");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	303
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	304 if (!strcmp(schem_parse_state.string, "Component"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	305 return(rdschem_parse_compinst());
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	306 if (!strcmp(schem_parse_state.string, "GraphSym"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	307 return(rdschem_parse_graphsym());
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	308 if (!strcmp(schem_parse_state.string, "Net"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	309 return(rdschem_parse_net());
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	310 if (!strcmp(schem_parse_state.string, "GraphNet"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	311 return(rdschem_parse_graphnet());
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	312 if (!strcmp(schem_parse_state.string, "NetLine"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	313 return(rdschem_parse_netline());
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	314 if (!strcmp(schem_parse_state.string, "BusSeg"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	315 return(rdschem_parse_busseg());
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	316 if (!strcmp(schem_parse_state.string, "GraphBlockG"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	317 return(rdschem_parse_graphblock_obj(GRAPHBLOCK_TYPE_GSCHEM));
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	318 if (!strcmp(schem_parse_state.string, "GraphBlockPS"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	319 return(rdschem_parse_graphblock_obj(GRAPHBLOCK_TYPE_PS));
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	320 if (!strcmp(schem_parse_state.string, "Comment"))
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	321 return(rdschem_parse_comment_obj());
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	322
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	323 sprintf(errbuf, "%s is not a recognized object keyword",
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	324 schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	325 rdschem_error(errbuf);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	326 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	327
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	328 rdschem_parse_compinst()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	329 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	330 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	331 register struct schemobj *obj;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	332
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	333 obj = parser_alloc_obj(OBJTYPE_COMPINST);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	334 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	335 if (t != STRING && t != QSTRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	336 syntaxerr: rdschem_error("(Component object) syntax error");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	337 if (!schem_parse_state.string[0])
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	338 rdschem_error("component instance name may not be a null string");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	339 obj->compobj_instname = copystr(schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	340
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	341 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	342 if (t == STRING && !strcmp(schem_parse_state.string, "graph")) {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	343 obj->compobj_isgraph = 1;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	344 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	345 if (t != STRING && t != QSTRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	346 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	347 if (!schem_parse_state.string[0])
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	348 rdschem_error("graphical symbol name may not be a null string");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	349 obj->compobj_graph_symname = copystr(schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	350 obj->compobj_x = parse_number();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	351 obj->compobj_y = parse_number();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	352 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	353 if (t == STRING && !strcmp(schem_parse_state.string, "rot")) {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	354 obj->compobj_rotate = parse_number();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	355 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	356 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	357 if (t == STRING && !strcmp(schem_parse_state.string, "mirror")){
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	358 obj->compobj_mirror = 1;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	359 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	360 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	361 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	362
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	363 if (t == '{') {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	364 obj->obj_decorations = rdschem_parse_decor_block();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	365 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	366 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	367
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	368 if (t != ';')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	369 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	370 parser_add_object(obj);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	371 return(0);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	372 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	373
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	374 rdschem_parse_graphsym()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	375 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	376 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	377 register struct schemobj *obj;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	378
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	379 obj = parser_alloc_obj(OBJTYPE_GRAPHSYM);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	380 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	381 if (t != STRING && t != QSTRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	382 syntaxerr: rdschem_error("(GraphSym object) syntax error");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	383 if (!schem_parse_state.string[0])
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	384 rdschem_error("graphical symbol name may not be a null string");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	385 obj->compobj_graph_symname = copystr(schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	386
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	387 obj->compobj_x = parse_number();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	388 obj->compobj_y = parse_number();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	389 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	390 if (t == STRING && !strcmp(schem_parse_state.string, "rot")) {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	391 obj->compobj_rotate = parse_number();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	392 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	393 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	394 if (t == STRING && !strcmp(schem_parse_state.string, "mirror")) {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	395 obj->compobj_mirror = 1;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	396 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	397 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	398 if (t == '{') {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	399 obj->obj_decorations = rdschem_parse_decor_block();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	400 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	401 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	402
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	403 if (t != ';')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	404 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	405 parser_add_object(obj);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	406 return(0);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	407 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	408
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	409 rdschem_parse_net()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	410 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	411 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	412 register struct schemobj *obj;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	413 register struct netpoint *netpt;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	414 struct netpoint head, *tailp;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	415
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	416 obj = parser_alloc_obj(OBJTYPE_NET);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	417 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	418 if (t != STRING && t != QSTRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	419 syntaxerr: rdschem_error("(Net object) syntax error");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	420 if (schem_parse_state.string[0])
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	421 obj->netobj_netname = copystr(schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	422
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	423 head = NULL;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	424 tailp = &head;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	425 for (;;) {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	426 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	427 if (t == ';' \|\| t == '{')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	428 break;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	429 if (t != STRING && t != QSTRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	430 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	431 if (!schem_parse_state.string[0])
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	432 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	433 netpt = parser_alloc_netpoint(NETPT_TYPE_PIN);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	434 netpt->netpt_pin_nameref = copystr(schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	435 *tailp = netpt;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	436 tailp = &netpt->netpt_next;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	437 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	438 obj->netobj_points = head;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	439
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	440 if (t == '{') {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	441 obj->obj_decorations = rdschem_parse_decor_block();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	442 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	443 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	444 if (t != ';')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	445 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	446
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	447 if (obj->netobj_points)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	448 parser_add_object(obj);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	449 else {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	450 fprintf(stderr, "%s: line %d: null Net object ignored\n",
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	451 schem_parse_state.schem->orig_filename,
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	452 schem_parse_state.lineno);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	453 free(obj);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	454 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	455 return(0);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	456 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	457
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	458 static struct xypair
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	459 parse_coord_pair()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	460 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	461 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	462 struct xypair retval;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	463
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	464 retval.x = parse_number();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	465 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	466 if (t != ',')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	467 syntaxerr: rdschem_error("syntax error in coordinate pair");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	468 retval.y = parse_number();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	469 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	470 if (t != ')')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	471 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	472 return(retval);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	473 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	474
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	475 static struct netpoint *
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	476 parse_graphnet_point()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	477 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	478 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	479 register struct netpoint *netpt;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	480 struct xypair coord_pair;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	481
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	482 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	483 if (t == '(') {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	484 netpt = parser_alloc_netpoint(NETPT_TYPE_POINT);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	485 coord_pair = parse_coord_pair();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	486 netpt->netpt_x = coord_pair.x;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	487 netpt->netpt_y = coord_pair.y;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	488 netpt->netpt_coord_valid = 1;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	489 return(netpt);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	490 } else if (t == STRING && !strcmp(schem_parse_state.string, "Pin")) {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	491 netpt = parser_alloc_netpoint(NETPT_TYPE_PIN);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	492 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	493 if (t == '(') {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	494 coord_pair = parse_coord_pair();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	495 netpt->netpt_x = coord_pair.x;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	496 netpt->netpt_y = coord_pair.y;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	497 netpt->netpt_coord_valid = 1;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	498 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	499 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	500 if (t == '=') {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	501 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	502 if (t != STRING && t != QSTRING \|\|
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	503 !schem_parse_state.string[0])
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	504 rdschem_error("syntax error: pin name reference expected");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	505 netpt->netpt_pin_nameref =
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	506 copystr(schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	507 } else if (netpt->netpt_coord_valid)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	508 schem_parse_state.pushback_token = t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	509 else
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	510 rdschem_error("syntax error: Pin must be followed by coordinates or name reference");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	511 return(netpt);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	512 } else if (t == STRING && !strcmp(schem_parse_state.string, "Tjoin")) {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	513 netpt = parser_alloc_netpoint(NETPT_TYPE_TJOIN);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	514 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	515 if (t != '(')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	516 rdschem_error("syntax error: Tjoin must be followed by coordinates");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	517 coord_pair = parse_coord_pair();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	518 netpt->netpt_x = coord_pair.x;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	519 netpt->netpt_y = coord_pair.y;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	520 netpt->netpt_coord_valid = 1;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	521 return(netpt);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	522 } else if (t == STRING && !strcmp(schem_parse_state.string, "Pseudo")) {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	523 netpt = parser_alloc_netpoint(NETPT_TYPE_PSEUDO);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	524 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	525 if (t != '(')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	526 rdschem_error("syntax error: Pseudo must be followed by coordinates");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	527 coord_pair = parse_coord_pair();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	528 netpt->netpt_x = coord_pair.x;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	529 netpt->netpt_y = coord_pair.y;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	530 netpt->netpt_coord_valid = 1;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	531 return(netpt);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	532 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	533 schem_parse_state.pushback_token = t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	534 return(NULL);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	535 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	536
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	537 rdschem_parse_graphnet()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	538 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	539 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	540 register struct schemobj *obj;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	541 register struct netpoint *netpt;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	542 struct netpoint head, *tailp;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	543
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	544 obj = parser_alloc_obj(OBJTYPE_GRAPHNET);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	545 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	546 if (t != STRING && t != QSTRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	547 syntaxerr: rdschem_error("(GraphNet object) syntax error");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	548 if (schem_parse_state.string[0])
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	549 obj->netobj_netname = copystr(schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	550
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	551 head = NULL;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	552 tailp = &head;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	553 for (;;) {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	554 netpt = parse_graphnet_point();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	555 if (!netpt)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	556 break;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	557 *tailp = netpt;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	558 tailp = &netpt->netpt_next;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	559 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	560 obj->netobj_points = head;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	561
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	562 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	563 if (t == '{') {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	564 obj->obj_decorations = rdschem_parse_decor_block();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	565 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	566 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	567 if (t != ';')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	568 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	569
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	570 if (obj->netobj_points)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	571 parser_add_object(obj);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	572 else {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	573 fprintf(stderr, "%s: line %d: null GraphNet object ignored\n",
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	574 schem_parse_state.schem->orig_filename,
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	575 schem_parse_state.lineno);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	576 free(obj);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	577 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	578 return(0);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	579 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	580
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	581 rdschem_parse_netline()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	582 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	583 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	584 register struct schemobj *obj;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	585 struct xypair coord_pair;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	586
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	587 obj = parser_alloc_obj(OBJTYPE_NETLINE);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	588
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	589 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	590 if (t != '(')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	591 syntaxerr: rdschem_error("(NetLine object) syntax error");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	592 coord_pair = parse_coord_pair();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	593 obj->lineobj_x1 = coord_pair.x;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	594 obj->lineobj_y1 = coord_pair.y;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	595 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	596 if (t != '(')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	597 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	598 coord_pair = parse_coord_pair();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	599 obj->lineobj_x2 = coord_pair.x;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	600 obj->lineobj_y2 = coord_pair.y;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	601
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	602 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	603 if (t == '{') {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	604 obj->obj_decorations = rdschem_parse_decor_block();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	605 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	606 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	607 if (t != ';')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	608 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	609 parser_add_object(obj);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	610 return(0);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	611 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	612
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	613 rdschem_parse_busseg()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	614 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	615 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	616 register struct schemobj *obj;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	617 struct xypair coord_pair;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	618
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	619 obj = parser_alloc_obj(OBJTYPE_BUSSEG);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	620
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	621 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	622 if (t != '(')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	623 syntaxerr: rdschem_error("(BusSeg object) syntax error");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	624 coord_pair = parse_coord_pair();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	625 obj->lineobj_x1 = coord_pair.x;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	626 obj->lineobj_y1 = coord_pair.y;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	627 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	628 if (t != '(')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	629 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	630 coord_pair = parse_coord_pair();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	631 obj->lineobj_x2 = coord_pair.x;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	632 obj->lineobj_y2 = coord_pair.y;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	633
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	634 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	635 if (t == '{') {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	636 obj->obj_decorations = rdschem_parse_decor_block();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	637 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	638 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	639 if (t != ';')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	640 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	641 parser_add_object(obj);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	642 return(0);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	643 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	644
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	645 rdschem_parse_graphblock_obj(type)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	646 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	647 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	648 register struct schemobj *obj;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	649 register struct graphblock *blk;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	650
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	651 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	652 if (t != '{')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	653 rdschem_error("GraphBlockG/GraphBlockPS must be followed by '{'");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	654 blk = rdschem_graphblock(type);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	655 obj = parser_alloc_obj(OBJTYPE_GRAPHBLOCK);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	656 obj->graphblockobj_body = blk;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	657 parser_add_object(obj);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	658 schem_parse_state.schem->has_graphblocks = 1;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	659 return(0);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	660 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	661
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	662 rdschem_parse_comment_obj()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	663 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	664 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	665 register struct schemobj *obj;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	666
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	667 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	668 if (t != STRING && t != QSTRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	669 syntaxerr: rdschem_error("(Comment object) syntax error");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	670 if (!schem_parse_state.string[0])
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	671 rdschem_error("schematic comment may not be a null string");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	672 obj = parser_alloc_obj(OBJTYPE_COMMENT);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	673 obj->commentobj_text = copystr(schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	674 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	675 if (t != ';')
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	676 goto syntaxerr;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	677 parser_add_object(obj);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	678 return(0);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	679 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	680
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	681 static int
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	682 parse_number()
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	683 {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	684 register int t;
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	685 char errbuf[256];
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	686
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	687 t = rdschem_token();
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	688 if (t != STRING)
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	689 rdschem_error("syntax error (number expected)");
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	690 if (!string_is_valid_decnum(schem_parse_state.string)) {
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	691 sprintf(errbuf, "\"%s\" is not a valid decimal number",
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	692 schem_parse_state.string);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	693 rdschem_error(errbuf);
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	694 }
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	695 return(atoi(schem_parse_state.string));
cd92449fdb51 initial import of ueda and ifctf-part-lib from ifctfvax CVS Space Falcon <falcon@ivan.Harhan.ORG> parents: diff changeset	696 }

FreeCalypso > hg > ueda-linux

annotate ueda/libuschem/rdschem_parse.c @ 48:c977d637f038