]> gerrit.simantics Code Review - simantics/platform.git/blob - bundles/org.simantics.modeling/scl/Simantics/Flag.scl
Change jersey from 2.25.1 to 2.26 to resolve resource-locator problems
[simantics/platform.git] / bundles / org.simantics.modeling / scl / Simantics / Flag.scl
1 include "Simantics/DB"
2 include "Simantics/Model"
3 import "Simantics/Diagram"
4
5 type Flag = Resource
6
7 // FLAGS ---------------------------
8
9 @deprecated "Unnecessary function."
10 toFlag :: Resource -> Flag
11 toFlag flag = flag
12
13 importJava "org.simantics.modeling.flags.MergeFlags" where
14     @JavaName mergeFlags
15     mergeAllFlagsInDiagram :: Resource -> <WriteGraph> String
16     
17     @JavaName expandFlags
18     expandAllFlagsInDiagram :: Resource -> <WriteGraph> ()
19     
20     @JavaName mergeWithoutMetadata
21     mergeFlags :: [Resource] -> <WriteGraph> String
22
23 importJava "org.simantics.modeling.flags.ExpandFlags" where
24     @JavaName expandFlagWithoutMetadata
25     expandFlag :: Resource -> <WriteGraph> Vector Resource
26     
27
28 importJava "org.simantics.diagram.flag.FlagUtil" where    
29     setFlagExternal :: [Flag] -> Boolean -> <WriteGraph> [Resource]
30
31 """Joins two flags."""
32 joinFlags :: Flag -> Flag -> <WriteGraph> ()
33 joinFlags flag1 flag2 = do
34     j = newEntity [
35         hasType STR.ConnectionJoin,
36         hasStatement 
37             DIA.JoinsFlag
38             flag1,
39         hasStatement
40             DIA.JoinsFlag
41             flag2
42     ]
43     ()
44
45 @deprecated "Unnecessary function."
46 flagToElement :: Flag -> Element
47 flagToElement flag = flag
48
49 getFlags :: Diagram -> <ReadGraph> [Resource]
50 getFlags dia = do
51     children = collectionToList (objects_ (singleObject dia MOD.CompositeToDiagram) L0.ConsistsOf)
52     flags = filter (\x -> isInstanceOf x DIA.Flag) children
53     flags
54    
55 getFlagByName :: Diagram -> String -> <ReadGraph> [Resource]
56 getFlagByName dia name = do
57     flags = getFlags dia
58     flags_with_name = filter (\x -> relatedValue2 x L0.HasName == name) flags
59     flags_with_name