bundles/org.simantics.scl.runtime/scl/URL.scl

   1 import "Prelude"\r
   2 \r
   3 importJava "java.net.URL" where\r
   4     data URL\r
   5     \r
   6     @JavaName "<init>"\r
   7     urlSimple :: String -> URL\r
   8     \r
   9     @JavaName "<init>"\r
  10     url :: String -> String -> Integer -> String -> URL\r
  11     \r
  12     @JavaName "getQuery"\r
  13     getURLQuery :: URL -> String \r
  14     \r
  15     @JavaName "getPath"\r
  16     getURLPath :: URL -> String\r
  17     \r
  18     @JavaName "getHost"\r
  19     getURLHost :: URL -> String\r
  20     \r
  21     @JavaName "getPort"\r
  22     getURLPort :: URL -> Integer\r
  23     \r
  24     @JavaName "getProtocol"\r
  25     getURLScheme :: URL -> String\r
  26     \r
  27     @JavaName "toExternalForm"\r
  28     urlToString :: URL -> String\r
  29     \r
  30 instance Show URL where\r
  31     show = urlToString