X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.annotation.ui%2Fscl%2FSimantics%2FAnnotation2.scl;fp=bundles%2Forg.simantics.annotation.ui%2Fscl%2FSimantics%2FAnnotation2.scl;h=ab97387d6be76b82605fe97909b578da6fedf80c;hp=0000000000000000000000000000000000000000;hb=969bd23cab98a79ca9101af33334000879fb60c5;hpb=866dba5cd5a3929bbeae85991796acb212338a08

diff --git a/bundles/org.simantics.annotation.ui/scl/Simantics/Annotation2.scl b/bundles/org.simantics.annotation.ui/scl/Simantics/Annotation2.scl
new file mode 100644
index 000000000..ab97387d6
--- /dev/null
+++ b/bundles/org.simantics.annotation.ui/scl/Simantics/Annotation2.scl
@@ -0,0 +1,122 @@
+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 (fromResource $ named!0) 
+     else Nothing
+    
+setAnnotationPropertyValue :: AnnotationPropertyRelation -> Resource -> String -> String -> <WriteGraph> ()
+setAnnotationPropertyValue annotation resource property newValue = do
+    resourceUri = uriOf resource
+    annotationName = DB.nameOf (toResource annotation)
+    completeUri = resourceUri + "#" + annotationName + "#" + property + "#HasDisplayValue"
+    propertyVariable = variable completeUri
+    setValue propertyVariable newValue
+    
+/*  
+findAnnotationType :: Model -> [AnnotationType]
+findAnnotationType m = do
+    fromResource $ searchByQuery m "Types: AnnotationType"
+*/