103 lines
4.3 KiB
Plaintext
103 lines
4.3 KiB
Plaintext
/-
|
|
Copyright (c) 2021 Henrik Böving. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Authors: Henrik Böving
|
|
-/
|
|
import Lean
|
|
import Lake
|
|
import DocGen4.Process
|
|
import DocGen4.Output.Base
|
|
import DocGen4.Output.Index
|
|
import DocGen4.Output.Module
|
|
import DocGen4.Output.NotFound
|
|
import DocGen4.Output.Find
|
|
import DocGen4.Output.Semantic
|
|
import DocGen4.Output.SourceLinker
|
|
import DocGen4.LeanInk.Output
|
|
|
|
namespace DocGen4
|
|
|
|
open Lean IO System Output Process
|
|
|
|
/--
|
|
The main entrypoint for outputting the documentation HTML based on an
|
|
`AnalyzerResult`.
|
|
-/
|
|
def htmlOutput (result : AnalyzerResult) (ws : Lake.Workspace) (leanHash: String) (inkPath : Option System.FilePath) : IO Unit := do
|
|
let config := {
|
|
depthToRoot := 0,
|
|
result := result,
|
|
currentName := none,
|
|
sourceLinker := ←sourceLinker ws leanHash
|
|
leanInkEnabled := inkPath.isSome
|
|
}
|
|
let basePath := FilePath.mk "." / "build" / "doc"
|
|
let srcBasePath := basePath / "src"
|
|
let indexHtml := ReaderT.run index config
|
|
let findHtml := ReaderT.run find { config with depthToRoot := 1 }
|
|
let notFoundHtml := ReaderT.run notFound config
|
|
-- Rendering the entire lean compiler takes time....
|
|
--let sourceSearchPath := ((←Lean.findSysroot) / "src" / "lean") :: ws.root.srcDir :: ws.leanSrcPath
|
|
let sourceSearchPath := ws.root.srcDir :: ws.leanSrcPath
|
|
|
|
FS.createDirAll basePath
|
|
FS.createDirAll (basePath / "find")
|
|
FS.createDirAll (basePath / "semantic")
|
|
FS.createDirAll srcBasePath
|
|
|
|
let mut declList := #[]
|
|
for (_, mod) in result.moduleInfo.toArray do
|
|
for decl in filterMapDocInfo mod.members do
|
|
let name := decl.getName.toString
|
|
let config := { config with depthToRoot := 0 }
|
|
let doc := decl.getDocString.getD ""
|
|
let root := Id.run <| ReaderT.run (getRoot) config
|
|
let link := root ++ s!"../semantic/{decl.getName.hash}.xml#"
|
|
let docLink := Id.run <| ReaderT.run (declNameToLink decl.getName) config
|
|
let sourceLink := Id.run <| ReaderT.run (getSourceUrl mod.name decl.getDeclarationRange) config
|
|
let obj := Json.mkObj [("name", name), ("doc", doc), ("link", link), ("docLink", docLink), ("sourceLink", sourceLink)]
|
|
declList := declList.push obj
|
|
let xml := toString <| Id.run <| ReaderT.run (semanticXml decl) config
|
|
FS.writeFile (basePath / "semantic" / s!"{decl.getName.hash}.xml") xml
|
|
if let some inkPath := inkPath then
|
|
if let some inputPath ← Lean.SearchPath.findModuleWithExt sourceSearchPath "lean" mod.name then
|
|
IO.println s!"Inking: {mod.name.toString}"
|
|
let srcHtml ← ReaderT.run (LeanInk.moduleToHtml mod inkPath inputPath) config
|
|
let srcDir := moduleNameToDirectory srcBasePath mod.name
|
|
let srcPath := moduleNameToFile srcBasePath mod.name
|
|
FS.createDirAll srcDir
|
|
FS.writeFile srcPath srcHtml.toString
|
|
let json := Json.arr declList
|
|
|
|
FS.writeFile (basePath / "semantic" / "docgen4.xml") <| toString <| Id.run <| ReaderT.run schemaXml config
|
|
|
|
FS.writeFile (basePath / "index.html") indexHtml.toString
|
|
FS.writeFile (basePath / "404.html") notFoundHtml.toString
|
|
FS.writeFile (basePath / "find" / "index.html") findHtml.toString
|
|
|
|
FS.writeFile (basePath / "style.css") styleCss
|
|
|
|
let declarationDataPath := basePath / "declaration-data.bmp"
|
|
FS.writeFile declarationDataPath json.compress
|
|
FS.writeFile (basePath / "declaration-data.timestamp") <| toString (←declarationDataPath.metadata).modified.sec
|
|
|
|
FS.writeFile (basePath / "declaration-data.js") declarationDataCenterJs
|
|
FS.writeFile (basePath / "nav.js") navJs
|
|
FS.writeFile (basePath / "find" / "find.js") findJs
|
|
FS.writeFile (basePath / "how-about.js") howAboutJs
|
|
FS.writeFile (basePath / "search.js") searchJs
|
|
FS.writeFile (basePath / "mathjax-config.js") mathjaxConfigJs
|
|
|
|
for (module, content) in result.moduleInfo.toArray do
|
|
let fileDir := moduleNameToDirectory basePath module
|
|
let filePath := moduleNameToFile basePath module
|
|
-- path: 'basePath/module/components/till/last.html'
|
|
-- The last component is the file name, so we drop it from the depth to root.
|
|
let config := { config with depthToRoot := module.components.dropLast.length }
|
|
let moduleHtml := ReaderT.run (moduleToHtml content) config
|
|
FS.createDirAll $ fileDir
|
|
FS.writeFile filePath moduleHtml.toString
|
|
|
|
end DocGen4
|
|
|