Destructure.ceylon
import ceylon.ast.core {
Destructure,
EntryPattern,
Node,
TuplePattern
}
import com.redhat.ceylon.compiler.typechecker.tree {
JNode=Node,
Tree {
JDestructure=Destructure
}
}
"Converts a RedHat AST [[Destructure|JDestructure]] to a `ceylon.ast` [[Destructure]]."
shared Destructure destructureToCeylon(JDestructure destructure, Anything(JNode,Node) update = noop) {
assert (is TuplePattern|EntryPattern pattern = patternToCeylon(destructure.pattern, update));
value specifier = specifierToCeylon(destructure.specifierExpression, update);
value valueModifier = valueModifierToCeylon(destructure.type, update);
value result = Destructure(pattern, specifier, valueModifier);
update(destructure, result);
return result;
}
"Compiles the given [[code]] for a Destructure
into a [[Destructure]] using the Ceylon compiler
(more specifically, the rule for a `destructure`)."
shared Destructure? compileDestructure(String code, Anything(JNode,Node) update = noop) {
if (exists jDestructure = createParser(code).destructure()) {
return destructureToCeylon(jDestructure, update);
} else {
return null;
}
}