definition:
|
makeDocWithComments :: DocType -> DocOptions -> Bool -> String -> AnaInfo
-> String -> String -> [(SourceLine,String)] -> IO ()
makeDocWithComments HtmlDoc docopts recursive docdir anainfo modname
modcmts progcmts = do
-- ensure that the AbstractCurry file for the module exists
Just (dir,_) <- lookupModuleSourceInLoadPath modname
let acyfile = dir </> abstractCurryFileName modname
exacy <- doesFileExist acyfile
unless exacy $ callFrontend ACY modname
writeOutfile docopts recursive docdir modname
(generateHtmlDocs docopts anainfo modname modcmts progcmts)
translateSource2ColoredHtml docdir modname
writeOutfile docopts { docType = CDoc, withIndex = False
, withMarkdown = False }
False docdir modname
(generateCDoc modname modcmts progcmts anainfo)
makeDocWithComments TexDoc docopts recursive docdir anainfo modname
modcmts progcmts = do
writeOutfile docopts recursive docdir modname
(generateTexDocs docopts anainfo modname modcmts progcmts)
makeDocWithComments CDoc docopts recursive docdir anainfo modname
modcmts progcmts = do
writeOutfile docopts recursive docdir modname
(generateCDoc modname modcmts progcmts anainfo)
|
iotype:
|
{({HtmlDoc},_,_,_,_,_,_,_) |-> _ || ({TexDoc},_,_,_,_,_,_,_) |-> _ || ({CDoc},_,_,_,_,_,_,_) |-> _}
|