include "Simantics/Entity" hiding (nameOf)
include "Simantics/Ontologies"

type Model = Resource
type Configuration = Resource

"""
    model name
    
Returns an existing model in the current project with the given `name`
"""
model :: String -> <ReadGraph> Model
model name = match possibleResourceChild (currentProject ()) name with
    Just m -> m
    Nothing -> fail $ "Didn't find a model " + name + "." 

"""
    configurationOf model
    
Returns the configuration of the given `model`
and returns the `configuration` resource
"""
configurationOf :: Model -> <ReadGraph> Configuration
configurationOf m = singleObject m SIMU.HasConfiguration

"""
Returns the list of all models in the current project.
"""
allModels :: () -> <ReadGraph> [Model]
allModels _ = objectsWithType (currentProject ()) L0.ConsistsOf SIMU.Model

importJava "org.simantics.modeling.ModelingUtils" where
    """Removes the index associated with the model."""
    removeIndex :: Model -> <WriteGraph> ()
    
    resetIssueSources :: Model -> <WriteGraph> ()
    
    """Copies annotation types from one model to another."""
    copyAnnotationTypes :: Model -> Model -> <WriteGraph> ()
    
    deleteIndex :: Resource -> <WriteGraph> ()
    releaseMemory :: () -> <WriteGraph> ()
    
    searchByType :: Resource -> Resource -> <ReadGraph> [Resource]
    searchByTypeShallow :: Resource -> Resource -> <ReadGraph> [Resource]
    searchByTypeAndName :: Resource -> Resource -> String -> <ReadGraph> [Resource]
    searchByTypeAndNameShallow :: Resource -> Resource -> String -> <ReadGraph> [Resource]
    searchByQuery :: Resource -> String -> <ReadGraph> [Resource]
    searchByQueryShallow :: Resource -> String -> <ReadGraph> [Resource]
    searchByTypeAndFilter :: Resource -> Resource -> (Resource -> <ReadGraph> Boolean) -> <ReadGraph> [Resource]
    
    listIndexEntries :: Resource -> String -> <ReadGraph> String
    activateModel :: Resource -> <WriteGraph> Boolean
    
    @JavaName createModel
    createGenericModel :: Resource -> String -> <WriteGraph> Resource

importJava "org.simantics.modeling.ModelingUtils" where
    @JavaName getPossibleModel
    getPossibleModel :: Resource -> <ReadGraph> Model
    possibleIndexRoot :: Resource -> <ReadGraph> Maybe Resource

activateModelAction :: Resource -> <Proc> ()
activateModelAction model = do
  syncWrite (\() -> activateModel model)
  ()