include "Simantics/All"
include "SWT/All"

usedSharedOntologies2 :: Variable -> <ReadGraph> [Resource]
usedSharedOntologies2 model = usedSharedOntologies $ represents model

availableSharedOntologies2 :: Variable -> <ReadGraph> [Resource]
availableSharedOntologies2 model = availableSharedOntologies $ represents model

useSelectedHandler :: Variable -> (String -> Maybe String) -> <WriteGraph> String
useSelectedHandler input parameters = do
  model = represents input
  resources = map wseResource $ decodeWSES $ parameters "selection"
  for resources $ linkSharedOntology model
  ""

unlinkSelectedHandler :: Variable -> (String -> Maybe String) -> <WriteGraph> String
unlinkSelectedHandler input parameters = do
  model = represents input
  resources = map wseResource $ decodeWSES $ parameters "selection"
  unlinkSharedOntologyWithUI input resources
  ""

createNewHandler :: Variable -> (String -> Maybe String) -> <WriteGraph> String
createNewHandler input parameters = do
  createSharedOntologyWithUI L0.SharedOntology
  ""

importHandler :: Variable -> (String -> Maybe String) -> <WriteGraph> String
importHandler input parameters = do
  importSharedOntologyWithUI input
  ""

fooHandler :: Variable -> CommandContext -> <WriteGraph> Maybe CommandResult
fooHandler self ctx = do
  val = fromJust $ possibleString ctx "selected"
  setProjectComponentState self "currentSelection" val
  Nothing
  
availableRanges :: Variable -> <ReadGraph> [String]
availableRanges input = do
  u = uri input
  res = represents input
  ranges = objectsWithType res L0.ConsistsOf SHEET.Range
  map nameOf ranges
  
defaultRange :: Variable -> <ReadGraph> String
defaultRange input = do
  ranges = availableRanges input
  if (length ranges) == 0 then "" else ranges!0

currentRangeName :: Variable -> Variable -> <ReadGraph> String
currentRangeName self input = 
  projectComponentState self "#currentSelection" (defaultRange input)

currentRangeExpressionVariable :: Variable -> Variable -> <ReadGraph> Variable
currentRangeExpressionVariable self input = do
  name = projectComponentState self "./Combo#currentSelection" (defaultRange input)
  browse input ("/" + name + "#cells")

currentRangeExpression :: Variable -> Variable -> <ReadGraph> String
currentRangeExpression self input = do
  variable = currentRangeExpressionVariable self input
  value $ browse variable "#expression"

currentRangeTextAndErrors :: Variable -> Variable -> <ReadGraph> TextAndErrors
currentRangeTextAndErrors self input = do
  expression = currentRangeExpression self input
  createTextAndErrors expression []

fooHandler2 :: Variable -> CommandContext -> <WriteGraph> Maybe CommandResult
fooHandler2 self ctx = do
  val = fromJust $ possibleString ctx "text"
  setExpression self val
  Nothing

modifyCodeHandler :: Variable -> Variable -> CommandContext -> <WriteGraph> Maybe CommandResult
modifyCodeHandler self input ctx = do
  val = fromJust $ possibleString ctx "text"
  variable = currentRangeExpressionVariable self input
  setExpression variable val
  Nothing

standardPropertiesElementTransformation :: Variable -> <ReadGraph> Variable
standardPropertiesElementTransformation var = do
  match getPossibleType var with
    Nothing -> var
    Just resourceType -> if isInheritedFrom resourceType DIA.Element then do
        match possibleObject (represents var) MOD.ElementToComponent with
          Nothing -> var
          Just component -> resourceVariable component
      else var