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

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

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

Modified Files:
	Jedi.Docs.System.pas 
Log Message:
Output parameters get the ampersand after their type if they are output parameters (out or var) but these need to be at-symbols in the xml files.

Index: Jedi.Docs.System.pas
===================================================================
RCS file: /cvsroot/jedidotnet/tools/docs/common/Jedi.Docs.System.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Jedi.Docs.System.pas	26 Nov 2004 09:57:56 -0000	1.3
--- Jedi.Docs.System.pas	26 Nov 2004 15:12:47 -0000	1.4
***************
*** 242,245 ****
--- 242,246 ----
    isFirst: Boolean;
    i: Integer;
+   s: string;
  begin
    sb := StringBuilder.Create;
***************
*** 251,255 ****
      else
        isFirst := False;
!     sb.Append(params[i].ParameterType.FullName);
    end;
    if not isFirst then
--- 252,259 ----
      else
        isFirst := False;
!     s := params[i].ParameterType.FullName;
!     if s.EndsWith('&') then
!       s := s.Substring(0, s.Length - 1) + '@';
!     sb.Append(s);
    end;
    if not isFirst then
***************
*** 304,313 ****
      params := nil;
    if isCtor and ConstructorInfo(member).IsStatic then
!     Result := member.ReflectedType.FullName + '.#cctor' + NameMapper.ParametersToXMLString(params)
    else
    if isCtor and not ConstructorInfo(member).IsStatic then
!     Result := member.ReflectedType.FullName + '.#ctor' + NameMapper.ParametersToXMLString(params)
    else
!     Result := member.ReflectedType.FullName + '.' + member.Name + NameMapper.ParametersToXMLString(params);
  end;
  
--- 308,317 ----
      params := nil;
    if isCtor and ConstructorInfo(member).IsStatic then
!     Result := TypeToXMLName(member.ReflectedType) + '.#cctor' + NameMapper.ParametersToXMLString(params)
    else
    if isCtor and not ConstructorInfo(member).IsStatic then
!     Result := TypeToXMLName(member.ReflectedType) + '.#ctor' + NameMapper.ParametersToXMLString(params)
    else
!     Result := TypeToXMLName(member.ReflectedType)  + '.' + member.Name + NameMapper.ParametersToXMLString(params);
  end;
  
***************
*** 316,320 ****
    i: integer;
  begin
!   i := id.IndexOf('@');
    Inc(i);
    while (i < Length(id)) and (id.Chars[i] <= '9') do
--- 320,324 ----
    i: integer;
  begin
!   i := id.LastIndexOf('@');
    Inc(i);
    while (i < Length(id)) and (id.Chars[i] <= '9') do