include "Simantics/DB"\r
import "Simantics/DB" as DB\r
\r
-importJava "java.lang.Object" where\r
- @JavaName equals\r
- """\r
-Function **variableEquals** compares the given input variables and returns True if they are the same.\r
-\r
-Example:\r
-\r
- import "Simantics/Variables"\r
- import "Apros/Module"\r
- my_variable_1 = moduleVariable "PO01"\r
- my_variable_2 = moduleVariable "PO02"\r
- variableEquals my_variable_1 my_variable_2\r
- \r
- > False\r
- \r
- """\r
- variableEquals :: Variable -> Variable -> Boolean\r
- @JavaName hashCode\r
- variableHash :: Variable -> Integer\r
-\r
-instance Eq Variable where\r
- (==) = variableEquals\r
- \r
-instance Hashable Variable where\r
- hashP = hashP . variableHash\r
-\r
importJava "org.simantics.db.layer0.variable.Variables" where\r
@JavaName getVariable\r
"""\r
\r
@JavaName getProperties\r
properties_ :: Variable -> <ReadGraph> Collection Variable\r
+ \r
+ @JavaName getProperties\r
+ propertiesClassified_ :: Variable -> Resource -> <ReadGraph> Collection Variable\r
+ \r
@JavaName getChildren\r
children_ :: Variable -> <ReadGraph> Collection Variable\r
\r
valueOf v = untypedValue v\r
variantValueOf v = createVariant (datatype v) (untypedValue v :: Dynamic)\r
child = child_\r
- possibleChild = possibleChild_
\ No newline at end of file
+ possibleChild = possibleChild_\r
+\r
+propertiesClassified :: Variable -> Resource -> <ReadGraph> [Variable]\r
+propertiesClassified parent classified = do\r
+ collectionToList $ propertiesClassified_ parent classified
\ No newline at end of file