r
/
bookshelf-doc
mirror of https://github.com/jrpotter/bookshelf-doc
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

feat: cleanup def rendering and add reducible attribute

main
Henrik 2023-08-28 20:38:19 +02:00
parent 34165f36e6
commit dc9549e2e6
2 changed files with 34 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
DocGen4/Process/Attributes.lean
View File

@ -62,34 +62,42 @@ open Compiler in
instance : ToString InlineAttributeKind where instance : ToString InlineAttributeKind where
toString kind := toString kind :=
match kind with match kind with
| InlineAttributeKind.inline => "inline" | .inline => "inline"
| InlineAttributeKind.noinline => "noinline" | .noinline => "noinline"
| InlineAttributeKind.macroInline => "macro_inline" | .macroInline => "macro_inline"
| InlineAttributeKind.inlineIfReduce => "inline_if_reduce" | .inlineIfReduce => "inline_if_reduce"
| InlineAttributeKind.alwaysInline => "always_inline" | .alwaysInline => "always_inline"
open Compiler in open Compiler in
instance : ToString SpecializeAttributeKind where instance : ToString SpecializeAttributeKind where
toString kind := toString kind :=
match kind with match kind with
| SpecializeAttributeKind.specialize => "specialize" | .specialize => "specialize"
| SpecializeAttributeKind.nospecialize => "nospecialize" | .nospecialize => "nospecialize"
instance : ToString ReducibilityStatus where
toString kind :=
match kind with
| .reducible => "reducible"
| .semireducible => "semireducible"
| .irreducible => "irreducible"
/-- /--
The list of all enum based attributes doc-gen knows about and can recover. The list of all enum based attributes doc-gen knows about and can recover.
-/ -/
def enumAttributes : Array EnumAttrWrapper := #[⟨Compiler.inlineAttrs⟩] @[reducible]
def enumAttributes : Array EnumAttrWrapper := #[⟨Compiler.inlineAttrs⟩, ⟨reducibilityAttrs⟩]
instance : ToString ExternEntry where instance : ToString ExternEntry where
toString entry := toString entry :=
match entry with match entry with
| ExternEntry.adhoc `all => "" | .adhoc `all => ""
| ExternEntry.adhoc backend => s!"{backend} adhoc" | .adhoc backend => s!"{backend} adhoc"
| ExternEntry.standard `all fn => fn | .standard `all fn => fn
| ExternEntry.standard backend fn => s!"{backend} {fn}" | .standard backend fn => s!"{backend} {fn}"
| ExternEntry.inline backend pattern => s!"{backend} inline {String.quote pattern}" | .inline backend pattern => s!"{backend} inline {String.quote pattern}"
-- TODO: The docs in the module dont specific how to render this -- TODO: The docs in the module dont specific how to render this
| ExternEntry.foreign backend fn => s!"{backend} foreign {fn}" | .foreign backend fn => s!"{backend} foreign {fn}"
instance : ToString ExternAttrData where instance : ToString ExternAttrData where
toString data := (data.arity?.map toString |>.getD "") ++ " " ++ String.intercalate " " (data.entries.map toString) toString data := (data.arity?.map toString |>.getD "") ++ " " ++ String.intercalate " " (data.entries.map toString)

10
DocGen4/Process/DocInfo.lean
View File

@ -190,16 +190,18 @@ def getKindDescription : DocInfo → String
| DefinitionSafety.unsafe => "unsafe opaque" | DefinitionSafety.unsafe => "unsafe opaque"
| DefinitionSafety.partial => "partial def" | DefinitionSafety.partial => "partial def"
| definitionInfo i => Id.run do | definitionInfo i => Id.run do
if i.hints.isAbbrev then
return "abbrev"
else
let mut modifiers := #[] let mut modifiers := #[]
if i.isUnsafe then if i.isUnsafe then
modifiers := modifiers.push "unsafe" modifiers := modifiers.push "unsafe"
if i.isNonComputable then if i.isNonComputable then
modifiers := modifiers.push "noncomputable" modifiers := modifiers.push "noncomputable"
modifiers := modifiers.push "def" let defKind :=
if i.hints.isAbbrev then
"abbrev"
else
"def"
modifiers := modifiers.push defKind
return String.intercalate " " modifiers.toList return String.intercalate " " modifiers.toList
| instanceInfo i => Id.run do | instanceInfo i => Id.run do
let mut modifiers := #[] let mut modifiers := #[]