Java/Lang.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2 module Java.Lang where
   3
   4 import Data.String
   5
   6 import JVM.ClassFile
   7 import JVM.Types
   8
   9 objectClass = ObjectType object
  10 stringClass = ObjectType string
  11 integerClass = ObjectType integer
  12 systemClass = ObjectType system
  13
  14 object :: IsString s => s
  15 object = "java/lang/Object"
  16
  17 string :: IsString s => s
  18 string = "java/lang/String"
  19
  20 integer :: IsString s => s
  21 integer = "java/lang/Integer"
  22
  23 system :: IsString s => s
  24 system = "java/lang/System"
  25
  26 objectInit :: NameType Method
  27 objectInit = NameType "<init>" $ MethodSignature [] ReturnsVoid
  28
  29 valueOfInteger :: NameType Method
  30 valueOfInteger = NameType "valueOf" $ MethodSignature [IntType] (Returns Java.Lang.integerClass)
  31