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