include "Simantics/Model"
import "Simantics/Diagram"
import "Simantics/Flag"
import "Simantics/Workbench"
include "Simantics/Ontologies"

type UserComponent = Resource
type ComponentTypeConfiguration = Resource
type ComponentTypeProperty = Resource
    
importJava "org.simantics.modeling.NewComponentType" where
    @JavaName createComponentType
    createUserComponent :: Model -> <WriteGraph> UserComponent
    
configurationOfComponentType :: UserComponent -> <ReadGraph> Resource
configurationOfComponentType component = do
      config = singleObject component STR.IsDefinedBy 
      config
      
importJava "org.simantics.modeling.flags.LiftFlag" where
    liftFlag :: Resource -> <WriteGraph> Maybe String
    
flagToTerminal :: Flag -> <WriteGraph> Resource
flagToTerminal flag = do
    result = liftFlag flag
    if result == Nothing
    then singleObject flag DIA.IsLiftedAs
    else flag

@deprecated "Calling this function is unnecessary."  
configToDiagram :: Resource -> Diagram
configToDiagram config = config

populateTerminalToSymbol :: Resource  -> (Double, Double) -> <WriteGraph> Element
populateTerminalToSymbol terminal (x, y) = element
  where
    uc = singleObject terminal L0.PartOf
    symbol = singleObject uc MOD.ComponentTypeToSymbol
    diagram = singleObject symbol STR.IsDefinedBy
    element = newResource ()
    addToOrderedSet diagram element
    claim diagram
        L0.ConsistsOf
        element
    elementClass = singleObject terminal MOD.ConnectionRelationToTerminal
    claim element
        L0.InstanceOf
        elementClass
    s = ((match possibleRelatedValue diagram DIA.HasModCount with Nothing -> 1 ; Just v -> v) :: Long)
    claimRelatedValue element
        L0.HasName
        (show s)
    claimRelatedValue diagram 
        DIA.HasModCount
        ((match possibleRelatedValue diagram DIA.HasModCount with Nothing -> 1 ; Just v -> v+1) :: Long)
    claimRelatedValueWithType element
        DIA.HasTransform
        G2D.Transform
        (toDoubleArray [1,0,0,1,x,y])
    addToGraph diagram terminal element
    addCommentMetadata ("Populated terminal " + (show element) + " to user component " + (show uc))
    

importJava "org.simantics.modeling.symbolEditor.PopulateTerminal" where
    addToGraph :: Resource -> Resource -> Resource -> <WriteGraph> ()

importJava "org.simantics.modeling.NewSymbolGroupRequest" where
    createNewSymbolGroup :: Model -> String -> <WriteGraph> Resource

importJava "org.simantics.modeling.AssignSymbolGroupRequest" where
    assignSymbolGroup :: [Resource] -> [Resource] -> [UserComponent] -> <WriteGraph> ()

importJava "org.simantics.modeling.GetSymbolGroups" where
    getSymbolGroups :: Resource -> <ReadGraph> [Resource]

importJava "org.simantics.modeling.userComponent.ComponentTypeCommands" where
    @JavaName createPropertyWithDefaults
    createUserComponentProperty :: UserComponent -> <WriteGraph> Resource
     
    @JavaName rename
    renameUserComponentProperty :: Resource -> String -> <WriteGraph> ()
    
    @JavaName setDescription
    setUserComponentPropertyDescription :: Resource -> String -> <WriteGraph> ()
    
    @JavaName createMonitorPropertyWithDefaults
    createUserComponentMonitorProperty :: UserComponent -> <WriteGraph> Resource
    
    setMonitorExpression :: Resource -> Resource -> String -> <WriteGraph> ()
    
    @JavaName setDefaultValue 
    setUserComponentPropertyDefaultValue :: Resource -> Resource -> String -> <WriteGraph> ()
    
    @JavaName setUnit
    setUserComponentPropertyUnit :: Resource -> Resource -> String -> <WriteGraph> ()
    
    @JavaName setRange
    setUserComponentPropertyRange :: Resource -> Resource -> String -> <WriteGraph> ()
    
    @JavaName setLabel
    setUserComponentPropertyLabel :: Resource -> String -> <WriteGraph> ()

    @private
    editType :: Resource -> Resource -> Boolean -> String -> <WriteGraph> ()
    
setUserComponentPropertyRequiredType :: Resource -> Resource -> String -> <WriteGraph> ()
setUserComponentPropertyRequiredType componentType property newValue = do
    editType componentType property True newValue
 
importJava "org.simantics.modeling.UserComponentMigration" where
    migrateUserComponents :: UserComponent -> UserComponent -> [Component] -> <WriteGraph> ()


/*
    @JavaName newAnnotationProperty
    createProperty :: UserComponent -> <WriteGraph> ComponentTypeProperty
    
    @JavaName advancedAnnotationProperty
    createAdvancedProperty :: UserComponent -> String -> String -> String -> String -> String -> String -> <WriteGraph> ComponentTypeProperty

    @JavaName removeAnnotationProperty
    removeProperty :: UserComponent -> ComponentTypeProperty -> <WriteGraph> ()
*/

"""
`addUserComponentScript userComponent scriptType scriptCode` adds the script to the user component.
"""
addUserComponentScript :: Resource -> String -> String -> String -> <WriteGraph> ()
addUserComponentScript userComponent scriptName scriptType scriptCode = do
    script = newResource ()
    claim script L0.InstanceOf STR.ComponentTypeScript
    claim userComponent STR.ComponentType.hasScript script
    claimRelatedValue script L0.HasName scriptName
    claimRelatedValue script STR.ComponentTypeScript.type scriptType 
    claimRelatedValue script STR.ComponentTypeScript.code scriptCode 

@private
possibleSubstructure :: Resource -> <ReadGraph> Maybe Resource
possibleSubstructure element = do
     match possibleObject element MOD.ElementToComponent with
       Nothing -> Nothing
       Just component -> match possibleTypeOf component STR.Component with
         Nothing -> Nothing
         Just componentType -> match possibleObject componentType STR.IsDefinedBy with
           Nothing -> Nothing
           Just configuration -> Just configuration

@private
possibleSubstructureEditor :: Resource -> <ReadGraph,Proc> Maybe (Resource,EditorAdapter)
possibleSubstructureEditor element = match possibleSubstructure element with
  Nothing -> Nothing
  Just configuration -> do
    adapters = editorAdapters configuration
    if(length adapters > 0) then Just (configuration, adapters!0) else Nothing

navigateToSubstructureAction :: Resource -> <Proc> ()
navigateToSubstructureAction element = do
 match (syncRead (\x -> possibleSubstructureEditor element)) with
   Nothing -> ()
   Just (configuration,editor) -> openEditor editor configuration

importJava "org.simantics.modeling.MigrateModel" where
    "changeAllComponentTypes model oldComponentType newComponentType"
    changeAllComponentTypes :: Resource -> Resource -> Resource -> <WriteGraph> ()