FreeCalypso > hg > ueda-linux
view ueda/libueda/mclacc.c @ 139:bf188727e606
donl-rename-parts reader: no tEDAx-style escapes
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Mon, 07 Sep 2020 04:25:11 +0000 |
parents | c91e7a30fab3 |
children |
line wrap: on
line source
/* * These are the libueda routines for accessing the parsed MCL. */ #include <stdio.h> #include <stdlib.h> #include <string.h> #include <strings.h> #include "mcl.h" extern struct component components[], partdefs[]; extern int ncomponents, npartdefs; struct component * find_partdef_by_name(partname) register char *partname; { register struct component *part; register int i; for (part = partdefs, i = 0; i < npartdefs; part++, i++) if (!strcmp(part->name, partname)) return(part); return(NULL); } char * get_comp_attr(comp, attrname) struct component *comp; char *attrname; { register struct attrib *attr; register int i; for (; comp; comp = comp->partdef) { attr = comp->attrs; for (i = 0; i < comp->nattrs; attr++, i++) if (!strcmp(attr->name, attrname)) return(attr->value); if (comp->partdef == comp) break; } return(NULL); } char * get_comp_multiattr(comp, attrname, cntp) struct component *comp; char *attrname; int *cntp; { register struct attrib *attrs; register int i; attrs = comp->attrs; for (i = *cntp; i < comp->nattrs; i++) if (!strcmp(attrs[i].name, attrname)) { *cntp = i + 1; return(attrs[i].value); } return(NULL); }