bundles/org.simantics.scl.compiler/scl/SCL/Common.scl

   1 module {
   2     export = [moduleOfName, nameOfName, createName]
   3 }
   4
   5 // Names
   6
   7 importJava "org.simantics.scl.compiler.common.names.Name" where
   8     data Name
   9
  10     @JavaName module
  11     moduleOfName_ :: Name -> String
  12     @JavaName name
  13     nameOfName_ :: Name -> String
  14
  15     @JavaName create
  16     createName_ :: String -> String -> Name
  17
  18 instance Show Name where
  19     sb <+ n = sb << moduleOfName n << "/" << nameOfName n
  20
  21 moduleOfName = moduleOfName_
  22 nameOfName = nameOfName_
  23 createName = createName_
  24
  25 // Locations
  26
  27 type Location = Long