1 import "Simantics/Entity" hiding (nameOf)
\r
3 import "StandardLibrary" hiding (group)
\r
6 importJava "java.io.File" where
\r
10 file :: String -> File
\r
14 importJava "java.util.Scanner" where
\r
18 scanner :: File -> <Proc> Scanner
\r
21 hasNext :: Scanner -> Boolean
\r
23 @JavaName "nextLine"
\r
24 nextLine :: Scanner -> String
\r
27 scanNext :: Scanner -> String
\r
29 @JavaName "nextLine"
\r
30 scanNextLine :: Scanner -> String
\r
32 importJava "java.util.regex.Pattern" where
\r
36 compile :: String -> <Proc> Pattern
\r
39 matcher :: Pattern -> String -> Matcher
\r
41 importJava "java.util.regex.Matcher" where
\r
45 matches :: Matcher -> Boolean
\r
47 group :: Matcher -> String
\r
49 importJava "org.simantics.utils.ui.BundleUtils" where
\r
50 @JavaName "findFile"
\r
51 bundleFile :: String -> String -> File
\r
53 importJava "org.simantics.modeling.SCL" where
\r
55 killPlatformWrite :: () -> <WriteGraph> ()
\r
56 killPlatformRead :: () -> <ReadGraph> ()
\r
57 killPlatform :: () -> ()
\r
58 shutdownPlatform :: () -> ()
\r
59 reconnectPlatform :: () -> ()
\r
60 sleep :: Integer -> <Proc> ()
\r
61 synchronizeOntologies :: () -> <Proc> ()
\r
63 syncGraph :: () -> <Proc> ()
\r
65 deleteMBNode :: [Resource] -> Boolean
\r
67 hasSomethingToPaste :: Resource -> <ReadGraph> Boolean
\r
68 canDelete :: Resource -> <ReadGraph> Boolean
\r
69 canRename :: Resource -> <ReadGraph> Boolean
\r
71 currentDate :: String -> String
\r
73 workspaceDirectory :: () -> File
\r
75 queryPreference :: String -> String -> <ReadGraph> String
\r
77 importJava "java.lang.Math" where
\r
79 javaRandom :: () -> Double
\r
81 loop :: Scanner -> String -> Pattern -> [String] -> <Proc> [String]
\r
82 loop testScan testName testPattern testList = do
\r
83 if (hasNext testScan) == True
\r
85 testName = nextLine testScan
\r
87 testMatcher = matcher testPattern testName
\r
88 if (matches testMatcher) == True
\r
89 then loop testScan testName testPattern (testList + [(scanNext testScan)])
\r
90 else loop testScan testName testPattern testList
\r
93 loop1 :: Scanner -> [String] -> <Proc> [String]
\r
94 loop1 testScan testList = do
\r
95 if (hasNext testScan) == True
\r
97 newList = testList + [trim (scanNextLine testScan)]
\r
98 loop1 testScan newList
\r
101 loop2 :: Scanner -> [String] -> Boolean -> <Proc> [String]
\r
102 loop2 testScan testList found = do
\r
103 if hasNext testScan
\r
105 nextline = (scanNextLine testScan)
\r
108 nextString1 = replaceString nextline "M7: " ""
\r
109 newList = testList + [replaceString nextString1 "_CM1" ""]
\r
110 found = (contains nextline "omposition ")
\r
111 loop2 testScan newList found
\r
113 found = (contains nextline "omposition ")
\r
114 loop2 testScan testList found
\r
117 loop3 :: Scanner -> [String] -> <Proc> [String]
\r
118 loop3 testScan testList = do
\r
119 if hasNext testScan
\r
121 nextString = scanNext testScan
\r
122 found = (contains nextString "_NO1")
\r
125 nextString1 = (replaceString nextString "M6: " "")
\r
126 newList = testList + [replaceString nextString1 "_NO1" ""]
\r
127 loop3 testScan newList
\r
129 loop3 testScan testList
\r
132 loop4 :: Scanner -> [String] -> Boolean -> <Proc> [String]
\r
133 loop4 testScan testList found = do
\r
134 if (hasNext testScan) == True
\r
136 nextString = (scanNext testScan)
\r
137 newList = testList + [nextString]
\r
138 loop4 testScan newList found
\r
141 importJava "java.lang.System" where
\r
142 @JavaName "getProperty"
\r
143 getSystemProperty :: String -> String
\r
145 importJava "org.simantics.modeling.LifeCycleContext" where
\r
146 data LifeCycleContext
\r
148 importJava "org.simantics.modeling.ModelingUtils" where
\r
149 trackDependencies :: <Proc> ()
\r
150 untrackDependencies :: <Proc> ()
\r