ClassDec.ceylon

import ceylon.ast.core {
    ClassDec
}
import com.redhat.ceylon.compiler.typechecker.tree {
    Tree {
        JBaseType=BaseType,
        JClassLiteral=ClassLiteral,
        JQualifiedType=QualifiedType
    }
}

"Converts a RedHat AST [[ClassLiteral|JClassLiteral]] to a `ceylon.ast` [[ClassDec]]."
shared ClassDec classDecToCeylon(JClassLiteral classDec) {
    if (exists jType = classDec.type) {
        assert (!classDec.objectExpression exists);
        assert (is JBaseType|JQualifiedType jType);
        switch (jType)
        case (is JBaseType) { return ClassDec(uIdentifierToCeylon(jType.identifier)); }
        case (is JQualifiedType) { return ClassDec(uIdentifierToCeylon(jType.identifier), decQualifierToCeylon(jType.outerType)); }
    } else {
        assert (exists jObjectExpression = classDec.objectExpression);
        return ClassDec(lIdentifierToCeylon(jObjectExpression.identifier));
    }
}

"Compiles the given [[code]] for a Class Dec
 into a [[ClassDec]] using the Ceylon compiler
 (more specifically, the rule for a `metaLiteral`)."
shared ClassDec? compileClassDec(String code) {
    if (is JClassLiteral jMetaLiteral = createParser(code).metaLiteral()) {
        return classDecToCeylon(jMetaLiteral);
    } else {
        return null;
    }
}