static PT_Tree implode_tree(PT_Tree tree)
{
PT_ParseTree pt = PT_makeValidParseTreeFromTree(tree);
return (PT_Tree)PTPT_liftATerm(PT_implodeParseTree(pt,
ATtrue,
ATtrue,
ATtrue,
ATtrue,
ATtrue,
ATtrue,
ATfalse,
ATtrue,
ATtrue,
ATtrue,
ATtrue));
}
ATerm STRSGLR_implode_parsetree(ATerm t)
{
return PT_implodeParseTree(
PT_ParseTreeFromTerm(t),
ATtrue, /* cons */
ATtrue, /* layout */
ATtrue, /* literals */
ATtrue, /* injections */
ATtrue, /* parsetree */
ATtrue, /* implode lexicals */
ATfalse, /* don't keep annotations */
ATtrue, /* alt */
ATtrue, /* seq */
ATtrue, /* opt */
ATfalse /* layout placeholder */
);
}
