module {
    export = [moduleOfName, nameOfName, createName]
}

// Names

importJava "org.simantics.scl.compiler.common.names.Name" where
    data Name
    
    @JavaName module
    moduleOfName_ :: Name -> String
    @JavaName name
    nameOfName_ :: Name -> String
    
    @JavaName create
    createName_ :: String -> String -> Name

instance Show Name where
    sb <+ n = sb << moduleOfName n << "/" << nameOfName n
    
moduleOfName = moduleOfName_
nameOfName = nameOfName_
createName = createName_    
    
// Locations

type Location = Long