X-Git-Url: http://nitlanguage.org diff --git a/src/doc/vim_autocomplete.nit b/src/doc/vim_autocomplete.nit index 3d632c6..395a57d 100644 --- a/src/doc/vim_autocomplete.nit +++ b/src/doc/vim_autocomplete.nit @@ -49,21 +49,11 @@ redef class ToolContext end end -redef class Model - - # Get a custom view for vimautocomplete. - private fun vim_view: ModelView do - var view = new ModelView(self) - view.min_visibility = protected_visibility - return view - end -end - redef class MEntity private fun field_separator: String do return "#====#" private fun line_separator: String do return "#nnnn#" - private fun write_doc(mainmodule: MModule, stream: Writer) + private fun write_doc(view: ModelView, stream: Writer) do # 1. Short name for autocompletion stream.write complete_name @@ -89,7 +79,10 @@ redef class MEntity for i in 2.times do stream.write line_separator stream.write mdoc.content.join(line_separator) end - write_extra_doc(mainmodule, stream) + + write_location(view.mainmodule, stream) + + write_extra_doc(view, stream) stream.write "\n" end @@ -103,7 +96,16 @@ redef class MEntity private fun complete_mdoc: nullable MDoc do return mdoc # Extra auto documentation to append to the `stream` - private fun write_extra_doc(mainmodule: MModule, stream: Writer) do end + private fun write_extra_doc(view: ModelView, stream: Writer) do end + + # Location (file and line when available) of related declarations + private fun write_location(mainmodule: MModule, stream: Writer) + do + for i in 2.times do stream.write line_separator + stream.write "## Location" + stream.write line_separator + stream.write "* {location}" + end end redef class MMethodDef @@ -114,6 +116,26 @@ redef class MMethodDef stream.write msignature.to_s end end + + redef fun write_location(mainmodule, stream) + do + for i in 2.times do stream.write line_separator + stream.write "## Location of introduction and refinements" + + # Group locations in the same file + var file_to_location = new MultiHashMap[nullable SourceFile, Location] + for c in mproperty.mpropdefs do + file_to_location[c.location.file].add c.location + end + + # Write one file per location + for file, locations in file_to_location do + var l = locations.first + stream.write line_separator + stream.write "* {l}" + if locations.length > 1 then stream.write " ({locations.length-1} more)" + end + end end redef class MAttributeDef @@ -164,13 +186,13 @@ redef class MClassDef end redef class MClassType - redef fun write_extra_doc(mainmodule, stream) + redef fun write_extra_doc(view, stream) do # Super classes stream.write line_separator*2 stream.write "## Class hierarchy" - var direct_supers = [for s in mclass.in_hierarchy(mainmodule).direct_greaters do s.name] + var direct_supers = [for s in mclass.in_hierarchy(view.mainmodule).direct_greaters do s.name] if not direct_supers.is_empty then alpha_comparator.sort direct_supers stream.write line_separator @@ -178,7 +200,7 @@ redef class MClassType stream.write direct_supers.join(", ") end - var supers = [for s in mclass.in_hierarchy(mainmodule).greaters do s.name] + var supers = [for s in mclass.in_hierarchy(view.mainmodule).greaters do s.name] supers.remove mclass.name if not supers.is_empty then alpha_comparator.sort supers @@ -187,7 +209,7 @@ redef class MClassType stream.write supers.join(", ") end - var direct_subs = [for s in mclass.in_hierarchy(mainmodule).direct_smallers do s.name] + var direct_subs = [for s in mclass.in_hierarchy(view.mainmodule).direct_smallers do s.name] if not direct_subs.is_empty then alpha_comparator.sort direct_subs stream.write line_separator @@ -195,7 +217,7 @@ redef class MClassType stream.write direct_subs.join(", ") end - var subs = [for s in mclass.in_hierarchy(mainmodule).smallers do s.name] + var subs = [for s in mclass.in_hierarchy(view.mainmodule).smallers do s.name] subs.remove mclass.name if not subs.is_empty then alpha_comparator.sort subs @@ -208,16 +230,26 @@ redef class MClassType stream.write line_separator*2 stream.write "## Properties" stream.write line_separator - var props = mclass.collect_accessible_mproperties(model.protected_view).to_a + var props = mclass.collect_accessible_mproperties(view).to_a alpha_comparator.sort props for prop in props do if mclass.name == "Object" or prop.intro.mclassdef.mclass.name != "Object" then - prop.write_synopsis(mainmodule, stream) + prop.write_synopsis(view.mainmodule, stream) end end end redef fun complete_mdoc do return mclass.intro.mdoc + + redef fun write_location(mainmodule, stream) + do + for i in 2.times do stream.write line_separator + stream.write "## Location of introduction and refinements" + for c in mclass.mclassdefs do + stream.write line_separator + stream.write "* {c.location}" + end + end end private class AutocompletePhase @@ -239,8 +271,9 @@ private class AutocompletePhase # Got all known modules var model = mainmodule.model + var view = new ModelView(model, mainmodule) for mmodule in model.mmodules do - mmodule.write_doc(mainmodule, modules_stream) + mmodule.write_doc(view, modules_stream) end # TODO list other modules from the Nit lib @@ -253,18 +286,18 @@ private class AutocompletePhase # Can it be instantiated? if mclass.kind != interface_kind and mclass.kind != abstract_kind then - for prop in mclass.collect_accessible_mproperties(model.public_view) do + for prop in mclass.collect_accessible_mproperties(view) do if prop isa MMethod and prop.is_init then mclass_intro.target_constructor = prop.intro - mclass_intro.write_doc(mainmodule, constructors_stream) + mclass_intro.write_doc(view, constructors_stream) end end mclass_intro.target_constructor = null end # Always add to types and classes - mclass.mclass_type.write_doc(mainmodule, classes_stream) - mclass.mclass_type.write_doc(mainmodule, types_stream) + mclass.mclass_type.write_doc(view, classes_stream) + mclass.mclass_type.write_doc(view, types_stream) end # Get all known properties @@ -274,7 +307,7 @@ private class AutocompletePhase # Is it a virtual type? if mproperty isa MVirtualTypeProp then - mproperty.intro.write_doc(mainmodule, types_stream) + mproperty.intro.write_doc(view, types_stream) continue end @@ -282,7 +315,7 @@ private class AutocompletePhase var first_letter = mproperty.name.chars.first if first_letter == '@' or first_letter == '_' then continue - mproperty.intro.write_doc(mainmodule, properties_stream) + mproperty.intro.write_doc(view, properties_stream) end # Close streams @@ -299,10 +332,10 @@ private class AutocompletePhase end redef class MModule - redef fun write_extra_doc(mainmodule, stream) + redef fun write_extra_doc(view, stream) do # Introduced classes - var class_intros = collect_intro_mclasses(model.protected_view).to_a + var class_intros = collect_intro_mclasses(view).to_a if class_intros.not_empty then alpha_comparator.sort class_intros stream.write line_separator*2 @@ -319,7 +352,7 @@ redef class MModule # Introduced properties var prop_intros = new Array[MPropDef] for c in mclassdefs do - prop_intros.add_all c.collect_intro_mpropdefs(model.protected_view) + prop_intros.add_all c.collect_intro_mpropdefs(view) end if prop_intros.not_empty then @@ -329,7 +362,7 @@ redef class MModule stream.write line_separator for p in prop_intros do - p.mproperty.write_synopsis(mainmodule, stream) + p.mproperty.write_synopsis(view.mainmodule, stream) end end end