[JEDI.NET-commits] tools/docs/common Jedi.Docs.System.pas,NONE,1.1

[Marcel B. <jed...@us...>]

Update of /cvsroot/jedidotnet/tools/docs/common
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15052/tools/docs/common

Added Files:
	Jedi.Docs.System.pas 
Log Message:
* Fixed issue where procedures where wrongly marked as function (procedures have a ReturnType = System.Void)
* Fixed issue where two procedures with the same base name (i.e. OnClear and OnClearComplete) would get the second procedure as a parameter of the first.

--- NEW FILE: Jedi.Docs.System.pas ---
unit Jedi.Docs.System;

interface

{$REGION 'interface uses'}
uses
  System.Collections,
  System.Collections.Specialized,
  System.IO,
  System.Reflection,
  System.Text,
  System.Xml;
{$ENDREGION}

type
  ParameterInfoArray = array of ParameterInfo;
  [Flags]
  MemberFlags = (None = 0, InAssembly = 1, InXML = 2, InBoth = InAssembly + InXML, IsOptionalClass = 4, IsInherited = 8,
    IsNamespace = 16, IsType = 32, IsMethod = 64, IsProperty = 128, IsEvent = 256, IsCtor = 512, IsParameter = 1024,
[...1068 lines suppressed...]
end;

function OutputGenerator.XmlWriter: XmlTextWriter;
begin
  Result := FXmlWriter;
end;

class procedure OutputGenerator.GenerateDocFiles(overview: AssemblyOverview);
var
  i: Integer;
begin
  with OutputGenerator.Create(overview) do
  begin
    for i := 0 to overview.Namespaces.Count - 1 do
      GenerateNamespaceDoc(string(overview.Namespaces.GetKey(i)));
  end;
end;
{$ENDREGION}

end.