1 include "Simantics/DB"
\r
3 @JavaType "org.simantics.structural2.procedural.Property"
\r
5 @FieldNames [relation, value]
\r
8 instance Show Property where
\r
9 sb <+ Property relation value = sb << "(Property " <+ relation << ")"
\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
20 deriving instance Show ConnectionPoint
\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
31 deriving instance Show SubstructureElement