include "Simantics/Model"
import "Simantics/Diagram"
import "Simantics/Flag"
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 (toResource 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 (toResource flag)
    if result == Nothing
    then singleObject (toResource flag) DIA.IsLiftedAs
    else do
        show result
        (toResource flag)
    
configToDiagram :: Resource -> Diagram
configToDiagram config = do
    fromResource config

populateTerminalToSymbol :: Resource  -> (Double, Double) -> <WriteGraph> Element
populateTerminalToSymbol terminal (x, y) = do
    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))
    (fromResource element)

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