Add declarations for some standard Java classes/methods/fields.

[hs-java.git] / Java / Lang.hs

diff --git a/Java/Lang.hs b/Java/Lang.hs
new file mode 100644 (file)
index 0000000..bd23f16
--- /dev/null
+++ b/Java/Lang.hs
@@ -0,0 +1,28 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Java.Lang where
+
+import Data.String
+
+import JVM.ClassFile
+import JVM.Types
+
+objectClass = ObjectType object
+stringClass = ObjectType string
+integerClass = ObjectType integer
+systemClass = ObjectType system
+
+object :: IsString s => s
+object = "java/lang/Object"
+
+string :: IsString s => s
+string = "java/lang/String"
+
+integer :: IsString s => s
+integer = "java/lang/Integer"
+
+system :: IsString s => s
+system = "java/lang/System"
+
+objectInit :: NameType Method
+objectInit = NameType "<init>" $ MethodSignature [] ReturnsVoid
+