import "Simantics/DB"
import "Simantics/Variables"
import "Simantics/Model"
import "Simantics/Diagram"
import "Simantics/Library"
import "Simantics/Misc"
import "Simantics/DB" as DB

import "http://www.simantics.org/Layer0-1.1" as L0
import "http://www.simantics.org/Layer0-1.1/HasRange" as HasRange
import "http://www.simantics.org/Annotation-1.0" as ANNO

type Annotation = Resource
type AnnotationPropertyRelation = Resource
type AnnotationType = Resource
type AnnotationValue = Resource
type AnnotationProperty = Resource

importJava "org.simantics.annotation.ui.SCLAnnotation" where
    @JavaName newAnnotationType
    """
    Creates new AnnotationType under the given Library instance and returns it without PropertyRelation
    """
    newAnnotationType :: Library -> <WriteGraph> AnnotationType
    
    @JavaName newAnnotationValue
    """
    Creates new AnnotationValue under the given Library instance with the AnnotationType reference. Returns the created AnnotationValue.
    """
    newAnnotationValue :: Library -> AnnotationType -> <WriteGraph> AnnotationValue
    newAnnotationValueWithName :: Library -> String -> AnnotationType -> <WriteGraph> AnnotationValue
    
    @JavaName newAnnotationType1
    """
    Creates new AnnotationType under the given Library instance. Returns a Tuple2 consisting the AnnotationPropertyRelation and AnnotationType instances.
    """
    newAnnotationType1 :: Library -> <WriteGraph> (AnnotationPropertyRelation, AnnotationType)
    
    @JavaName newAnnotationProperty
    """
    Creates new AnnotationProperty under the given AnnotatoinType instance. Returns the created AnnotationProperty.
    """
    newAnnotationProperty :: AnnotationType -> <WriteGraph> AnnotationProperty
    
    @JavaName advancedAnnotationProperty
    """
    Creates new AnnotationProperty under the given AnnotationType instance with advanced options for user to define non-default parameters for the following values
    
    * name
    * type
    * unit
    * range
    * label
    * description
    """
    advancedAnnotationProperty :: AnnotationType -> String -> String -> String -> String -> String -> String -> <WriteGraph> AnnotationProperty
    
    @JavaName removeAnnotationProperty
    """
    Removes the given AnnotationProperty instance.
    """
    removeAnnotationProperty :: AnnotationProperty -> <WriteGraph> ()
    
    @JavaName attachAnnotation
    """
    Attaches the given AnnotationType to the given Resource which can be for example a Diagram or a Symbol.
    """
    attachAnnotationType :: Resource -> AnnotationType -> <WriteGraph> Annotation
    
    @JavaName setPropertyLabel
    setPropertyLabel :: AnnotationProperty -> String -> <WriteGraph> ()
    
    @JavaName setPropertyUnit
    setPropertyUnit :: AnnotationProperty -> String -> <WriteGraph> ()
    
    @JavaName setPropertyRange
    setPropertyRange :: AnnotationProperty -> String -> <WriteGraph> ()
    
    @JavaName setPropertyDescription
    setPropertyDescription :: AnnotationProperty -> String -> <WriteGraph> ()
    
    @JavaName setPropertyType
    setPropertyType :: AnnotationProperty -> String -> <WriteGraph> ()
    
    @JavaName saveAnnotation
    saveAnnotation :: Annotation -> Library -> String -> <WriteGraph> Resource
    
    @JavaName importAnnotationFromFile
    importAnnotation :: File -> Library -> <Proc> ()
    
    @JavaName exportAnnotationToFile
    exportAnnotationType :: File -> AnnotationType -> <Proc> ()
    
    @JavaName copyAnnotationData
    copyAnnotationData :: Resource -> Resource -> <WriteGraph> ()

getAnnotationNameFromType :: Resource -> <ReadGraph> String
getAnnotationNameFromType annotationType = do
    relation = singleObject annotationType HasRange.Inverse
    untypedRelatedValue relation L0.HasName

getPossibleAnnotationType :: Resource -> String -> <ReadGraph> Maybe AnnotationType
getPossibleAnnotationType model name = do
    all = searchByType model ANNO.AnnotationType
    named = filter (\x -> (getAnnotationNameFromType x) == name) all 
    if ((length named) == 1)
     then Just (named!0) 
     else Nothing
    
setAnnotationPropertyValue :: AnnotationPropertyRelation -> Resource -> String -> String -> <WriteGraph> ()
setAnnotationPropertyValue annotation resource property newValue = do
    resourceUri = uriOf resource
    annotationName = DB.nameOf annotation
    completeUri = resourceUri + "#" + annotationName + "#" + property + "#HasDisplayValue"
    propertyVariable = variable completeUri
    setValue propertyVariable newValue
    
/*  
findAnnotationType :: Model -> [AnnotationType]
findAnnotationType m = do
    fromResource $ searchByQuery m "Types: AnnotationType"
*/