projects
/
hs-java.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
cabal: bump data-default dependency to 0.5.0.
[hs-java.git]
/
Java
/
Lang.hs
diff --git
a/Java/Lang.hs
b/Java/Lang.hs
index d11f7bd5a715267bd7da3f243100f073d16b85f9..428689ec7356cadab19d9274f13e24d727e72172 100644
(file)
--- a/
Java/Lang.hs
+++ b/
Java/Lang.hs
@@
-1,14
+1,22
@@
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE OverloadedStrings #-}
+-- | This module exports some definitions from standard Java java.lang package.
module Java.Lang where
import Data.String
module Java.Lang where
import Data.String
+import JVM.Common () -- import instances only
import JVM.ClassFile
import JVM.ClassFile
-import JVM.Types
+objectClass :: FieldType
objectClass = ObjectType object
objectClass = ObjectType object
+
+stringClass :: FieldType
stringClass = ObjectType string
stringClass = ObjectType string
+
+integerClass :: FieldType
integerClass = ObjectType integer
integerClass = ObjectType integer
+
+systemClass :: FieldType
systemClass = ObjectType system
object :: IsString s => s
systemClass = ObjectType system
object :: IsString s => s
@@
-23,9
+31,11
@@
integer = "java/lang/Integer"
system :: IsString s => s
system = "java/lang/System"
system :: IsString s => s
system = "java/lang/System"
-objectInit :: NameType Method
+-- | java.lang.Object.<init>() method
+objectInit :: NameType (Method Direct)
objectInit = NameType "<init>" $ MethodSignature [] ReturnsVoid
objectInit = NameType "<init>" $ MethodSignature [] ReturnsVoid
-valueOfInteger :: NameType Method
+-- | java.lang.Integer.valueOf() method
+valueOfInteger :: NameType (Method Direct)
valueOfInteger = NameType "valueOf" $ MethodSignature [IntType] (Returns Java.Lang.integerClass)
valueOfInteger = NameType "valueOf" $ MethodSignature [IntType] (Returns Java.Lang.integerClass)