Java/IO.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2 module Java.IO where
   3
   4 import Data.String
   5
   6 import JVM.Common ()  -- import instances only
   7 import JVM.ClassFile
   8
   9 import qualified Java.Lang
  10
  11 printStream :: IsString s => s
  12 printStream = "java/io/PrintStream"
  13
  14 printStreamClass = ObjectType printStream
  15
  16 println :: NameType Method
  17 println = NameType "println" $ MethodSignature [Java.Lang.stringClass] ReturnsVoid
  18
  19 out :: NameType Field
  20 out = NameType "out" printStreamClass
  21
  22 printf :: NameType Method
  23 printf =
  24   NameType "printf" $ MethodSignature [Java.Lang.stringClass,
  25                                        Array Nothing Java.Lang.objectClass] (Returns printStreamClass)
  26