modelverse/integration/code/fsa_design.mvc

import models/SimpleClassDiagrams as SCD
include "primitives.alh"

SCD FiniteStateAutomata_Design{
    AttributeValue String {
        constraint = $
            String constraint(model : Element, name : String):
                if (bool_not(is_physical_string(model["model"][name]))):
                    return "String has no string value"!
                else:
                    return "OK"!
            $
    }

    Class State {
        name : String
    }

    Class InitialState {
        lower_cardinality = 1
        upper_cardinality = 1
    }

    Association Transition (State, State) {
        event : String
        raise? : String
    }

    Inheritance (InitialState, State){}
}

export FiniteStateAutomata_Design to models/FiniteStateAutomata_Design