Skip to content

[DocGen]: Polish #796

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 11 commits into from
Oct 2, 2023
Merged

[DocGen]: Polish #796

Changes from 1 commit
Commits
Show all changes
11 commits
Select commit Hold shift + click to select a range
b7683c8
emit items from module alias
aspeddro Jul 27, 2023
ec7c53a
Merge branch 'doc-extraction' into doc-extraction-expand-module-alias
aspeddro Sep 27, 2023
37a5df7
add error msg
aspeddro Sep 28, 2023
f7e94d3
rename fields
aspeddro Sep 28, 2023
6756e0d
remove double name field
aspeddro Sep 29, 2023
4b3479b
add ocaml.text attr
aspeddro Sep 29, 2023
01631e9
search for all attrs
aspeddro Sep 30, 2023
e5937e0
fix id module
aspeddro Sep 30, 2023
323758d
update tests
aspeddro Sep 30, 2023
70f19fa
emit valid id path
aspeddro Oct 2, 2023
14fabbd
update tests
aspeddro Oct 2, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
38 changes: 26 additions & 12 deletions analysis/src/DocExtraction.ml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -6,13 +6,6 @@ type constructorDoc = {
signature: string;
}

type docsForModuleAlias = {
id: string;
docstring: string list;
name: string;
signature: string;
}

type docItemDetail =
| Record of {fieldDocs: fieldDoc list}
| Variant of {constructorDocs: constructorDoc list}
Expand All @@ -32,7 +25,12 @@ type docItem =
(** Additional documentation for constructors and record fields, if available. *)
}
| Module of docsForModule
| ModuleAlias of docsForModuleAlias
| ModuleAlias of {
id: string;
docstring: string list;
name: string;
items: docItem list;
}
and docsForModule = {
id: string;
docstring: string list;
Expand Down Expand Up @@ -137,9 +135,15 @@ let rec stringifyDocItem ?(indentation = 0) ~originalEnv (item : docItem) =
stringifyObject ~startOnNewline:true ~indentation
[
("id", Some (wrapInQuotes m.id));
("name", Some (wrapInQuotes m.name));
("kind", Some (wrapInQuotes "moduleAlias"));
("docstrings", Some (stringifyDocstrings m.docstring));
("signature", Some (m.signature |> Json.escape |> wrapInQuotes));
( "items",
Some
(m.items
|> List.map
(stringifyDocItem ~originalEnv ~indentation:(indentation + 1))
|> array) );
]

and stringifyDocsForModule ?(indentation = 0) ~originalEnv (d : docsForModule) =
Expand Down Expand Up @@ -257,14 +261,24 @@ let extractDocs ~path ~debug =
(* module Whatever = OtherModule *)
let aliasToModule = p |> pathIdentToString in
let modulePath = aliasToModule :: modulePath in
let items =
match
ProcessCmt.fileForModule ~package:full.package
aliasToModule
with
| None -> []
| Some file ->
let docs =
extractDocsForModule ~modulePath file.structure
in
docs.items
in
Some
(ModuleAlias
{
id = modulePath |> List.rev |> SharedTypes.ident;
signature =
Printf.sprintf "module %s = %s" item.name
aliasToModule;
name = item.name;
items;
docstring = item.docstring |> List.map String.trim;
})
| Module (Structure m) ->
Expand Down