ModuleBody.ceylon

import ceylon.ast.core {
    ModuleBody,
    Node
}
import com.redhat.ceylon.compiler.typechecker.tree {
    JNode=Node,
    Tree {
        JImportModuleList=ImportModuleList
    }
}
import ceylon.interop.java {
    CeylonIterable
}

"Converts a RedHat AST [[ImportModuleList|JImportModuleList]] to a `ceylon.ast` [[ModuleBody]]."
shared ModuleBody moduleBodyToCeylon(JImportModuleList moduleBody, Anything(JNode,Node) update = noop) {
    value result = ModuleBody(CeylonIterable(moduleBody.importModules).collect(propagateUpdate(moduleImportToCeylon, update)));
    update(moduleBody, result);
    return result;
}

"Compiles the given [[code]] for a Module Body
 into a [[ModuleBody]] using the Ceylon compiler
 (more specifically, the rule for a `moduleBody`)."
shared ModuleBody? compileModuleBody(String code, Anything(JNode,Node) update = noop) {
    if (exists jImportModuleList = createParser(code).importModuleList()) {
        return moduleBodyToCeylon(jImportModuleList, update);
    } else {
        return null;
    }
}