From 9483efeed62905e2ce64c5c70117125b3b025691 Mon Sep 17 00:00:00 2001 From: Pedro Castro Date: Mon, 25 Jul 2022 14:37:02 -0300 Subject: [PATCH 1/2] add Pstr_primitive --- analysis/src/SemanticTokens.ml | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/analysis/src/SemanticTokens.ml b/analysis/src/SemanticTokens.ml index e4b277e0b..100b796f4 100644 --- a/analysis/src/SemanticTokens.ml +++ b/analysis/src/SemanticTokens.ml @@ -395,6 +395,14 @@ let command ~debug ~emitter ~path = Ast_iterator.default_iterator.constructor_declaration iterator cd in + let structure_item (iterator : Ast_iterator.iterator) + (item : Parsetree.structure_item) = + (match item.pstr_desc with + | Pstr_primitive {pval_name = {txt = id; loc}} -> emitter |> emitVariable ~id ~debug ~loc; + | _ -> ()); + Ast_iterator.default_iterator.structure_item iterator item + in + let iterator = { Ast_iterator.default_iterator with @@ -410,6 +418,7 @@ let command ~debug ~emitter ~path = pat; typ; type_declaration; + structure_item; } in From 4b1e518f6d478c53cf975ff5f3717c77c6d9e4b9 Mon Sep 17 00:00:00 2001 From: Pedro Castro Date: Mon, 25 Jul 2022 14:50:02 -0300 Subject: [PATCH 2/2] add .resi file --- analysis/src/SemanticTokens.ml | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/analysis/src/SemanticTokens.ml b/analysis/src/SemanticTokens.ml index 100b796f4..80a1badb5 100644 --- a/analysis/src/SemanticTokens.ml +++ b/analysis/src/SemanticTokens.ml @@ -403,6 +403,14 @@ let command ~debug ~emitter ~path = Ast_iterator.default_iterator.structure_item iterator item in + let signature_item (iterator : Ast_iterator.iterator) + (item : Parsetree.signature_item) = + (match item.psig_desc with + | Psig_value {pval_name = {txt = id; loc}} -> emitter |> emitVariable ~id ~debug ~loc; + | _ -> ()); + Ast_iterator.default_iterator.signature_item iterator item + in + let iterator = { Ast_iterator.default_iterator with @@ -419,6 +427,7 @@ let command ~debug ~emitter ~path = typ; type_declaration; structure_item; + signature_item; } in