sketch_MM.mvc 583 B

12345678910111213141516171819202122232425262728293031
  1. include "primitives.alh"
  2. SimpleAttribute String {
  3. constraint = $
  4. String function constraint(value : Element):
  5. if (is_physical_string(value)):
  6. return "OK"!
  7. else:
  8. return "String has a non-string value"!
  9. $
  10. }
  11. Class Symbol {
  12. name = "Symbol"
  13. typeID : String
  14. }
  15. Class Attribute {
  16. name = "Attribute"
  17. key : String
  18. value : String
  19. }
  20. Association SymbolAttribute (Symbol, Attribute) {
  21. name = "SymbolAttribute"
  22. }
  23. Association Link (Symbol, Symbol) {
  24. name = "Link"
  25. }