use Perl6::Ops;

# Provides various properties of the type of type a given meta-object
# implements. This are used in various ways by the compiler and meta-model
# to do correct code generation or to detect illegal use of types in
# contexts with certain requirements.
class Perl6::Metamodel::Archetypes {
    # Can this serve as a nominal type? Implies memoizability
    # amongst other things.
    has $!nominal;

    # If it's not nominal, does it know how to provide a nominal
    # type part of itself?
    has $!nominalizable;

    # Can this be inherited from?
    has $!inheritable;

    # If it's not inheritable, does it know how to produce something
    # that is?
    has $!inheritalizable;

    # Can this be composed (either with flattening composition, or used
    # as a mixin)?
    has $!composable;

    # If it's not composable, does it know how to produce something
    # that is?
    has $!composalizable;

    # Is it generic, in the sense of "we don't know what type this is
    # yet"? Note that a parametric type would not be generic - even if
    # it has missing parts, it defines a type. A type variable is generic,
    # however. This tends to cause various kinds of late (or at least
    # delayed) reification. In some contexts, an unresolved generic is
    # fatal.
    has $!generic;

    # Is it a parametric type - that is, it has missing bits that need
    # to be filled out before it can be used? Unlike generic, something
    # that is parametric does define a type - though we may need the gaps
    # filled it before it's useful in some way.
    has $!parametric;

    # Is it a coercive type?
    has $!coercive;

    # Is it a definite type?
    has $!definite;

    # Are we allowed to augment the type?
    has $!augmentable;

    method nominal() { $!nominal // 0 }
    method nominalizable() { $!nominalizable // 0 }
    method inheritable() { $!inheritable // 0 }
    method inheritalizable() { $!inheritalizable // 0 }
    method composable() { $!composable // 0 }
    method composalizable() { $!composalizable // 0 }
    method generic() { $!generic // 0 }
    method parametric() { $!parametric // 0 }
    method coercive() { $!coercive // 0 }
    method definite() { $!definite // 0 }
    method augmentable() { $!augmentable // 0 }
}

# vim: expandtab sw=4