PT_Production SDFProductionToPtProduction(SDF_Production sdfProduction)
{
SDF_Symbol sdfResult;
SDF_Attributes sdfAttributes;
PT_Symbols ptSymbols;
PT_Symbol ptResult;
PT_Attributes ptAttributes;
sdfResult = SDF_getProductionResult(sdfProduction);
sdfAttributes = SDF_getProductionAttributes(sdfProduction);
ptResult = SDFSymbolToPtSymbol(sdfResult);
ptAttributes = SDFAttributesToPtAttributes(sdfAttributes);
if (SDF_isProductionProd(sdfProduction)) {
SDF_Symbols sdfSymbols = SDF_getProductionSymbols(sdfProduction);
ptSymbols = SDFSymbolsToPtSymbols(sdfSymbols);
}
else {
ATwarning("SDFProductionToPtProduction: unable to convert %s\n",
PT_yieldTreeToString((PT_Tree) sdfProduction, ATfalse));
return NULL;
}
return PT_makeProductionDefault(ptSymbols, ptResult, ptAttributes);
}
ATbool SDF_hasAvoidAttribute(SDF_Production prod)
{
ATbool found = ATfalse;
SDF_Attributes attrs = SDF_getProductionAttributes(prod);
if (!SDF_isAttributesNoAttrs(attrs)) {
SDF_AttributeList attrList = SDF_getAttributesList(attrs);
while (SDF_hasAttributeListHead(attrList) && !found) {
SDF_Attribute attr = SDF_getAttributeListHead(attrList);
if (SDF_isAttributeAvoid(attr)) {
found = ATtrue;
}
if (SDF_isAttributeListSingle(attrList)) {
break;
}
attrList = SDF_getAttributeListTail(attrList);
}
}
return found;
}