module Lastik.Scala.Scaladoc(
Scaladoc,
debug,
nowarn,
verbose,
deprecation,
unchecked,
classpath,
sourcepath,
bootclasspath,
extdirs,
directory,
encoding,
target,
print,
optimise,
explaintypes,
uniqid,
version,
help,
(#),
access,
bottom,
charset,
doctitle,
footer,
header,
linksource,
nocomment,
stylesheetfile,
top,
windowtitle,
etc,
scaladoc,
scaladoc'
)where
import Prelude hiding (print)
import Lastik.Util
import Lastik.Scala.Target
import Lastik.Scala.Debug
import Lastik.Scala.Access
import Lastik.Scala.Scalac (kscalac, scalac')
import Lastik.Compile
import Lastik.Output
import Lastik.Extension
data Scaladoc = Scaladoc {
debug :: Maybe Debug,
nowarn :: Bool,
verbose :: Bool,
deprecation :: Bool,
unchecked :: Bool,
classpath :: [FilePath],
sourcepath :: [FilePath],
bootclasspath :: [FilePath],
extdirs :: [FilePath],
directory :: Maybe FilePath,
encoding :: Maybe String,
target :: Maybe Target,
print :: Bool,
optimise :: Bool,
explaintypes :: Bool,
uniqid :: Bool,
version :: Bool,
help :: Bool,
(#) :: Maybe FilePath,
access :: Maybe Access,
bottom :: Maybe String,
charset :: Maybe String,
doctitle :: Maybe String,
footer :: Maybe String,
header :: Maybe String,
linksource :: Bool,
nocomment :: Bool,
stylesheetfile :: Maybe String,
top :: Maybe String,
windowtitle :: Maybe String,
etc :: Maybe String
}
scaladoc :: Scaladoc
scaladoc = Scaladoc Nothing False False False False [] [] [] [] Nothing Nothing Nothing False False False False False False Nothing Nothing Nothing Nothing Nothing Nothing Nothing False False Nothing Nothing Nothing Nothing
scaladoc' :: Maybe Debug
-> Bool
-> Bool
-> Bool
-> Bool
-> [FilePath]
-> [FilePath]
-> [FilePath]
-> [FilePath]
-> Maybe FilePath
-> Maybe String
-> Maybe Target
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Maybe FilePath
-> Maybe Access
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Bool
-> Bool
-> Maybe String
-> Maybe String
-> Maybe String
-> Maybe String
-> Scaladoc
scaladoc' = Scaladoc
instance Show Scaladoc where
show (Scaladoc debug
nowarn
verbose
deprecation
unchecked
classpath
sourcepath
bootclasspath
extdirs
directory
encoding
target
print
optimise
explaintypes
uniqid
version
help
script
access
bottom
charset
doctitle
footer
header
linksource
nocomment
stylesheetfile
top
windowtitle
etc) = (kscalac (scalac' debug nowarn verbose deprecation unchecked classpath sourcepath bootclasspath extdirs directory encoding target print optimise explaintypes uniqid version help script etc) ++ ["access" -~> show $ access,
"bottom" ~~~> bottom,
"charset" ~~~> charset,
"doctitle" ~~~> doctitle,
"footer" ~~~> footer,
"header" ~~~> header,
"linksource" ~~ linksource,
"nocomment" ~~ nocomment,
"stylesheetfile" ~~~> stylesheetfile,
"top" ~~~> top,
"windowtitle" ~~~> windowtitle]) ^^^ " "
instance Compile Scaladoc where
compile s ps = "scaladoc " ++ show s ++ ' ' : space ps
instance Output Scaladoc where
output = Lastik.Scala.Scaladoc.directory
instance Extension Scaladoc where
ext _ = "scala"
instance OutputReference Scaladoc where
reference p s = s { Lastik.Scala.Scaladoc.classpath = p }
reference' = Lastik.Scala.Scaladoc.classpath