X-Git-Url: http://nitlanguage.org diff --git a/src/doc/vim_autocomplete.nit b/src/doc/vim_autocomplete.nit index 7781fe8..395a57d 100644 --- a/src/doc/vim_autocomplete.nit +++ b/src/doc/vim_autocomplete.nit @@ -31,7 +31,7 @@ module vim_autocomplete import modelbuilder import phase import modelize::modelize_class -import model_utils +import model::model_collect redef class ToolContext # Phase generating the files for the Vim plugin @@ -45,6 +45,7 @@ redef class ToolContext do super option_context.add_option opt_vim_autocomplete + opt_vim_autocomplete.hidden = true end end @@ -52,7 +53,7 @@ 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 @@ -78,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 @@ -92,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 @@ -103,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 @@ -153,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 @@ -167,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 @@ -176,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 @@ -184,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 @@ -197,37 +230,26 @@ redef class MClassType stream.write line_separator*2 stream.write "## Properties" stream.write line_separator - var props = mclass.all_mproperties(mainmodule, protected_visibility).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 - - if prop.visibility == public_visibility then - stream.write "+ " - else stream.write "~ " # protected_visibility - - if prop isa MMethod then - if prop.is_init and prop.name != "init" then stream.write "init " - if prop.is_new and prop.name != "new" then stream.write "new " - end - - stream.write prop.name - - if prop isa MMethod then - stream.write prop.intro.msignature.to_s - end - - var mdoc = prop.intro.mdoc - if mdoc != null then - stream.write " # " - stream.write mdoc.content.first - end - stream.write line_separator + 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 @@ -249,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 @@ -263,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.all_mproperties(mainmodule, public_visibility) 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 @@ -284,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 @@ -292,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 @@ -307,3 +330,75 @@ private class AutocompletePhase end end end + +redef class MModule + redef fun write_extra_doc(view, stream) + do + # Introduced classes + 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 + stream.write "## Introduced classes" + + for c in class_intros do + stream.write line_separator + stream.write "* {c.name}" + var doc = c.intro.mdoc + if doc != null then stream.write ": {doc.content.first}" + end + end + + # Introduced properties + var prop_intros = new Array[MPropDef] + for c in mclassdefs do + prop_intros.add_all c.collect_intro_mpropdefs(view) + end + + if prop_intros.not_empty then + alpha_comparator.sort prop_intros + stream.write line_separator*2 + stream.write "## Introduced properties" + stream.write line_separator + + for p in prop_intros do + p.mproperty.write_synopsis(view.mainmodule, stream) + end + end + end +end + +redef class MProperty + private fun write_synopsis(mainmodule: MModule, stream: Writer) + do + if visibility == public_visibility then + stream.write "+ " + else stream.write "~ " # protected_visibility + + if self isa MMethod then + if is_new and name != "new" then + stream.write "new " + else if is_init and name != "init" then + stream.write "init " + end + end + + stream.write name + + if self isa MMethod then + var intro = intro + assert intro isa MMethodDef + var msignature = intro.msignature + if msignature != null then + stream.write msignature.to_s + end + end + + var mdoc = intro.mdoc + if mdoc != null then + stream.write " # " + stream.write mdoc.content.first + end + stream.write line_separator + end +end