+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
\ No newline at end of file