Flute acoustics: measurement, modelling and design - School of ...

288 APPENDIX B. PROGRAM LISTINGS
/* check if validation succeeded */
if (ctxt->valid == 0) {
fprintf(stderr, "XML Error: Failed to validate %s\n",
xml_filename);
return 0;
}
xmlFreeParserCtxt(ctxt);
return 1;
}
int parseWoodwind(xmlDocPtr doc, Woodwind* w) {
xmlNodePtr curnode;
EmbouchureHole embouchureHole = NULL;
Vector upstreamBore, downstreamBore, cells;
double upstreamFlange, flange;
Head head;
/* Retrieve and validate root node */
if((curnode = getAndAssertDocRoot(doc)) == NULL)
return 0;
curnode = curnode->children;
while(curnode != NULL) {
if(isXMLElement(curnode, EMBOUCHUREHOLE))
if(!parseEmbouchureHole(doc, curnode, &embouchureHole))
return 0;
if(isXMLElement(curnode, UPSTREAM))
if(!parseUpstream(doc, curnode, &upstreamBore, &upstreamFlange))
return 0;
if(isXMLElement(curnode, DOWNSTREAM))
if(!parseDownstream(doc, curnode, &downstreamBore, &cells, &
flange)) return 0;
curnode = curnode->next;
}
head = createHead(embouchureHole, upstreamBore, upstreamFlange,
downstreamBore);
*w = createWoodwind(head, cells, flange);
return 1;
}
int parseEmbouchureHole(xmlDocPtr doc, xmlNodePtr node, EmbouchureHole
* h) {
double radiusin, radiusout, length, boreRadius;
node = node->children;
while(node != NULL) {
/* Fill Hole data */
if(isXMLElement(node, RADIUSIN))
radiusin = getAndScaleXMLDimensionData(doc, node);
if(isXMLElement(node, RADIUSOUT))
radiusout = getAndScaleXMLDimensionData(doc, node);
if(isXMLElement(node, LENGTH))
length = getAndScaleXMLDimensionData(doc, node);
if(isXMLElement(node, BORERADIUS))
boreRadius = getAndScaleXMLDimensionData(doc, node);
node = node->next;
}
/* Ensure dimensions as expected */
if((radiusin