CaseTypes.ceylon

import ceylon.ast.core {
    CaseTypes,
    MemberName,
    PrimaryType,
    UIdentifier,
    LIdentifier
}

shared alias CaseTypeIsh => PrimaryTypeIsh|IdentifierIsh;

"""Converts a stream of [[primary types and anonymous class names|caseTypes]]
   to [[CaseTypes]].
   
   Usage examples:
   
       caseTypes("Other") // self type constraint
       caseTypes("true", "false")"""
shared CaseTypes caseTypes(CaseTypeIsh+ caseTypes) {
    value seq = caseTypes.collect {
        PrimaryType|MemberName collecting(PrimaryTypeIsh|IdentifierIsh element) {
            switch (element)
            case (is PrimaryType) { return element; }
            case (is IdentifierIsh) {
                value id = identifier(element);
                switch (id)
                case (is UIdentifier) { return primaryType(id); }
                case (is LIdentifier) { return id; }
            }
        }
    };
    return CaseTypes(seq);
}

"Internal version of [[ceylon.ast.create::caseTypes]]
 that also accepts a [[CaseTypes]] argument or an empty argument."
CaseTypes? caseTypes_internal(CaseTypes|{CaseTypeIsh*}? caseTypes) {
    if (is CaseTypes caseTypes) {
        return caseTypes;
    } else {
        if (exists caseTypes, nonempty seq = caseTypes.sequence()) {
            return package.caseTypes(*seq);
        } else {
            return null;
        }
    }
}