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

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