]> gerrit.simantics Code Review - simantics/platform.git/blob - bundles/org.simantics.scl.runtime/scl/URL.scl
New parametrisation of OpenDiagramFromConfigurationAdapter.openEditor
[simantics/platform.git] / bundles / org.simantics.scl.runtime / scl / URL.scl
1 import "Prelude"
2
3 importJava "java.net.URL" where
4     data URL
5     
6     @JavaName "<init>"
7     urlSimple :: String -> URL
8     
9     @JavaName "<init>"
10     url :: String -> String -> Integer -> String -> URL
11     
12     @JavaName "getQuery"
13     getURLQuery :: URL -> String 
14     
15     @JavaName "getPath"
16     getURLPath :: URL -> String
17     
18     @JavaName "getHost"
19     getURLHost :: URL -> String
20     
21     @JavaName "getPort"
22     getURLPort :: URL -> Integer
23     
24     @JavaName "getProtocol"
25     getURLScheme :: URL -> String
26     
27     @JavaName "toExternalForm"
28     urlToString :: URL -> String
29     
30 instance Show URL where
31     show = urlToString