bundles/org.simantics.structural2/scl/Structural/Procedural.scl

   1 include "Simantics/DB"
   2
   3 @JavaType "org.simantics.structural2.procedural.Property"
   4 data Property =
   5     @FieldNames [relation, value]
   6     Property Resource a
   7
   8 instance Show Property where
   9     sb <+ Property relation value = sb << "(Property " <+ relation << ")"
  10
  11 @JavaType "org.simantics.structural2.procedural.ConnectionPoint"
  12 data ConnectionPoint =
  13     @JavaType "org.simantics.structural2.procedural.Terminal"
  14     @FieldNames [component, relation]
  15     Terminal String Resource
  16   | @JavaType "org.simantics.structural2.procedural.Interface"
  17     @FieldNames [relation]
  18     Interface Resource
  19
  20 deriving instance Show ConnectionPoint
  21
  22 @JavaType "org.simantics.structural2.procedural.SubstructureElement"
  23 data SubstructureElement =
  24     @JavaType "org.simantics.structural2.procedural.Component"
  25     @FieldNames [name, "type", properties]
  26     Component String Resource [Property]
  27   | @JavaType "org.simantics.structural2.procedural.Connection"
  28     @FieldNames [connectionPoints]
  29     Connection [ConnectionPoint]
  30
  31 deriving instance Show SubstructureElement