X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FMisc.scl;h=1aed9d43eacfda41b6f63be5dce29dc3ad52f0bf;hp=e3c7977155964bea6611bafe067df0d05f277211;hb=77d7e2176bf9b031dbe216339568d316066bcfc1;hpb=0ae2b770234dfc3cbb18bd38f324125cf0faca07

diff --git a/bundles/org.simantics.modeling/scl/Simantics/Misc.scl b/bundles/org.simantics.modeling/scl/Simantics/Misc.scl
index e3c797715..1aed9d43e 100644
--- a/bundles/org.simantics.modeling/scl/Simantics/Misc.scl
+++ b/bundles/org.simantics.modeling/scl/Simantics/Misc.scl
@@ -2,15 +2,6 @@ import "Simantics/Entity" hiding (nameOf)
 include "File"
 import "StandardLibrary" hiding (group)
 
-/*
-importJava "java.io.File" where
-    data File
-    
-    @JavaName "<init>"
-    file :: String -> File
-    
-*/
-
 importJava "java.util.Scanner" where
     data Scanner
     
@@ -29,22 +20,7 @@ importJava "java.util.Scanner" where
     @JavaName "nextLine"
     scanNextLine :: Scanner -> String
 
-importJava "java.util.regex.Pattern" where
-    data Pattern
-    
-    @JavaName "compile"
-    compile :: String -> <Proc> Pattern
-    
-    @JavaName "matcher"
-    matcher :: Pattern -> String -> Matcher
-
-importJava "java.util.regex.Matcher" where
-    data Matcher
-    
-    @JavaName "matches"
-    matches :: Matcher -> Boolean
-    
-    group :: Matcher -> String
+include "String"
 
 importJava "org.simantics.utils.ui.BundleUtils" where
     @JavaName "findFile"
@@ -140,13 +116,22 @@ loop4 testScan testList found = do
 
 importJava "java.lang.System" where
     @JavaName "getProperty"
-    getSystemProperty :: String -> String
+    getSystemProperty :: String -> Maybe String
+    @JavaName setProperty
+    setSystemProperty :: String -> String -> <Proc> String
     
+    currentTimeMillis :: Long
+
 importJava "org.simantics.modeling.LifeCycleContext" where
     data LifeCycleContext
 
 importJava "org.simantics.modeling.ModelingUtils" where
     trackDependencies :: <Proc> ()
     untrackDependencies :: <Proc> ()
-    
+    trackOntologicalRequirements :: <Proc> ()
+    untrackOntologicalRequirements :: <Proc> ()
+
+importJava "org.simantics.modeling.scl.SCLDependencyChangeListener" where
+    @JavaName "create"
+    createDependencyChangeListener :: (<Proc> Boolean) -> (MetadataI -> DependencyChanges -> <ReadGraph,Proc> ()) -> ChangeListener
     
\ No newline at end of file