+
+importJava "org.simantics.scl.compiler.errors.Failable" where
+ data Failable a
+
+ didSucceed :: Failable a -> Boolean
+ getResult :: Failable a -> Maybe a
+
+importJava "org.simantics.scl.compiler.module.Module" where
+ data Module
+
+ @JavaName getValueNames
+ valueNamesOf_ :: Module -> [String]
+
+importJava "org.simantics.scl.compiler.common.names.Name" where
+ data Name
+
+ @JavaName module
+ moduleOf_ :: Name -> String
+ @JavaName name
+ nameOf_ :: Name -> String
+
+ @JavaName create
+ createName_ :: String -> String -> Name
+
+instance Show Name where
+ sb <+ n = sb << moduleOf n << "/" << nameOf n
+
+moduleOf = moduleOf_
+nameOf = nameOf_
+createName = createName_
+valueNamesOf = valueNamesOf_
+
+type Location = Long