* Write class local consts and types in correct way

git-svn-id: trunk@22151 -

utils/fpdoc/dw_html.pp

@@ -88,6 +88,7 @@ type
     FOnTest: TNotifyEvent;
     FPackage: TPasPackage;
     FCharSet : String;
+    procedure AppendTypeDecl(AType: TPasType; TableEl, CodeEl: TDomElement);
     function GetPageCount: Integer;
     procedure SetOnTest(const AValue: TNotifyEvent);
   protected
@@ -260,6 +261,7 @@ type
     Procedure WriteDoc; override;
     Class Function FileNameExtension : String; override;
     class procedure Usage(List: TStrings); override;
+    Class procedure SplitImport(var AFilename, ALinkPrefix: String); override;
     Property SearchPage: String Read FSearchPage Write FSearchPage;
     property Allocator: TFileAllocator read FAllocator;
     property Package: TPasPackage read FPackage;
@@ -2713,37 +2715,16 @@ begin
   FinishElementPage(AConst);
 end;
 
-procedure THTMLWriter.CreateTypePageBody(AType: TPasType);
+procedure THTMLWriter.AppendTypeDecl(AType: TPasType; TableEl,CodeEl : TDomElement);
-var
+
-  TableEl, TREl, TDEl, CodeEl: TDOMElement;
+Var
-  DocNode: TDocNode;
+  TREl : TDomElement;
   i: Integer;
   s: String;
   EnumType: TPasEnumType;
   EnumValue: TPasEnumValue;
   Variable: TPasVariable;
-begin
-  AppendMenuBar(-1);
-  AppendTitle(AType.Name);
-  AppendShortDescr(CreatePara(BodyElement), AType);
-  AppendText(CreateH2(BodyElement), SDocDeclaration);
-  AppendSourceRef(AType);
 
-  TableEl := CreateTable(BodyElement);
-  TREl := CreateTR(TableEl);
-  TDEl := CreateTD(TREl);
-  CodeEl := CreateCode(CreatePara(TDEl));
-
-  DocNode := Engine.FindDocNode(AType);
-  AppendKw(CodeEl, 'type ');
-  AppendText(CodeEl, AType.Name);
-  AppendSym(CodeEl, ' = ');
-
-  If Assigned(DocNode) and
-     Assigned(DocNode.Node) and
-     (Docnode.Node['opaque']='1') then
-    AppendText(CodeEl,SDocOpaque)
-  else
 begin
   // Alias
   if AType.ClassType = TPasAliasType then
@@ -2841,6 +2822,41 @@ begin
   // Probably one of the simple types, which allowed in other places as wel...
     AppendSym(AppendType(CodeEl, TableEl, TPasType(AType), True), ';');
 end;
+
+procedure THTMLWriter.CreateTypePageBody(AType: TPasType);
+var
+  TableEl, TREl, TDEl, CodeEl: TDOMElement;
+  DocNode: TDocNode;
+  i: Integer;
+  s: String;
+  EnumType: TPasEnumType;
+  EnumValue: TPasEnumValue;
+  Variable: TPasVariable;
+begin
+  AppendMenuBar(-1);
+  AppendTitle(AType.Name);
+  AppendShortDescr(CreatePara(BodyElement), AType);
+  AppendText(CreateH2(BodyElement), SDocDeclaration);
+  AppendSourceRef(AType);
+
+  TableEl := CreateTable(BodyElement);
+  TREl := CreateTR(TableEl);
+  TDEl := CreateTD(TREl);
+  CodeEl := CreateCode(CreatePara(TDEl));
+
+  DocNode := Engine.FindDocNode(AType);
+  AppendKw(CodeEl, 'type ');
+  AppendText(CodeEl, AType.Name);
+  AppendSym(CodeEl, ' = ');
+
+  If Assigned(DocNode) and
+     Assigned(DocNode.Node) and
+     (Docnode.Node['opaque']='1') then
+    AppendText(CodeEl,SDocOpaque)
+  else
+    begin
+    AppendTypeDecl(AType,TableEl,CodeEl);
+    end;
   FinishElementPage(AType);
 end;
 
@@ -2917,9 +2933,11 @@ var
     TableEl, TREl, TDEl, CodeEl: TDOMElement;
     DocNode: TDocNode;
     Member: TPasElement;
+    MVisibility,
     CurVisibility: TPasMemberVisibility;
     i: Integer;
     s: String;
+    ah,ol,wt,ct,wc,cc  : boolean;
     ThisInterface,
     ThisClass: TPasClassType;
     HaveSeenTObject: Boolean;
@@ -2976,57 +2994,81 @@ var
         AppendSym(CodeEl, ')');
         end;
     end;
-
     if AClass.Members.Count > 0 then
       begin
+      wt:=False;
+      wc:=False;
       CurVisibility := visDefault;
       for i := 0 to AClass.Members.Count - 1 do
         begin
         Member := TPasElement(AClass.Members[i]);
-        if CurVisibility <> Member.Visibility then
+        MVisibility:=Member.Visibility;
+        ol:=(Member is TPasOverloadedProc);
+        ah:=ol or ((Member is TPasProcedure) and (TPasProcedure(Member).ProcType.Args.Count > 0));
+        if ol then
+          Member:=TPasElement((Member as TPasOverloadedProc).Overloads[0]);
+        if ((MVisibility = visPrivate) and Engine.HidePrivate) or
+          ( (MVisibility = visProtected) and Engine.HideProtected) then
+          continue;
+        if (CurVisibility <> MVisibility) then
           begin
-          CurVisibility := Member.Visibility;
+          CurVisibility := MVisibility;
-          if ((CurVisibility = visPrivate) and Engine.HidePrivate) or
+          s:=VisibilityNames[MVisibility];
-            ((CurVisibility = visProtected) and Engine.HideProtected) then
-            continue;
-          case CurVisibility of
-            visPrivate: s := 'private';
-            visProtected: s := 'protected';
-            visPublic: s := 'public';
-            visPublished: s := 'published';
-            visAutomated: s := 'automated';
-          end;
           AppendKw(CreateCode(CreatePara(CreateTD(CreateTR(TableEl)))), s);
-        end else
+          end;
-          if ((CurVisibility = visPrivate) and Engine.HidePrivate) or
+        ct:=(Member is TPasType);
-            ((CurVisibility = visProtected) and Engine.HideProtected) then
+        if ct and (not wt) then
-            continue;
+          begin
-
+          AppendKw(CreateCode(CreatePara(CreateTD(CreateTR(TableEl)))), 'Type');
+          end;
+        wt:=ct;
+        cc:=(Member is TPasConst);
+        if cc and (not wc) then
+          begin
+          AppendKw(CreateCode(CreatePara(CreateTD(CreateTR(TableEl)))), 'Const');
+          end;
+        wc:=cc;
         TREl := CreateTR(TableEl);
         CodeEl := CreateCode(CreatePara(CreateTD_vtop(TREl)));
         AppendNbSp(CodeEl, 2);
         AppendShortDescrCell(TREl, Member);
 
-        if Member.InheritsFrom(TPasProcedureBase) then
+        if (Member is TPasProcedureBase) then
           begin
           AppendKw(CodeEl, TPasProcedureBase(Member).TypeName + ' ');
           AppendHyperlink(CodeEl, Member);
-          if (Member.ClassType = TPasOverloadedProc) or
+          if ah then
-            (TPasProcedure(Member).ProcType.Args.Count > 0) then
             AppendSym(CodeEl, '();')
           else
             AppendSym(CodeEl, ';');
-          if Member.ClassType <> TPasOverloadedProc then
+          if Not OL then
             AppendProcExt(CodeEl, TPasProcedure(Member));
-        end else
+          end
-        if Member.ClassType = TPasVariable then
+        else if (Member is TPasConst) then
+          begin
+          AppendHyperlink(CodeEl, Member);
+          If Assigned(TPasConst(Member).VarType) then
+            begin
+            AppendSym(CodeEl, ' = ');
+            AppendTypeDecl(TPasType(Member),TableEl,CodeEl);
+            end;
+          AppendSym(CodeEl, ' = ');
+          AppendText(CodeEl,TPasConst(Member).Expr.GetDeclaration(True));
+          end
+        else if (Member is TPasVariable) then
           begin
           AppendHyperlink(CodeEl, Member);
           AppendSym(CodeEl, ': ');
           AppendHyperlink(CodeEl, TPasVariable(Member).VarType);
           AppendSym(CodeEl, ';');
-        end else
+          end
-        if Member.ClassType = TPasProperty then
+        else if (Member is TPasType) then
+          begin
+          AppendHyperlink(CodeEl, Member);
+          AppendSym(CodeEl, ' = ');
+          AppendTypeDecl(TPasType(Member),TableEl,CodeEl);
+          end
+        else if (Member is TPasProperty) then
           begin
           AppendKw(CodeEl, 'property ');
           AppendHyperlink(CodeEl, Member);
@@ -3056,7 +3098,8 @@ var
             s := s + 's';
           if Length(s) > 0 then
             AppendText(CodeEl, '  [' + s + ']');
-        end else
+          end
+        else
           AppendText(CreateWarning(CodeEl), '<' + Member.ClassName + '>');
       end;
 
@@ -3302,6 +3345,30 @@ var
     end;
   end;
 
+  procedure CreateTypePage(Element: TPasType);
+  begin
+    AppendKw(CodeEl, 'type ');
+    AppendHyperlink(CodeEl, Element.Parent);
+    AppendSym(CodeEl, '.');
+    AppendText(CodeEl, Element.Name);
+    AppendSym(CodeEl, ' = ');
+    AppendTypeDecl(Element,TableEl,CodeEl)
+  end;
+
+  procedure CreateConstPage(Element: TPasConst);
+  begin
+    AppendKw(CodeEl, 'const ');
+    AppendHyperlink(CodeEl, Element.Parent);
+    AppendSym(CodeEl, '.');
+    AppendText(CodeEl, Element.Name);
+    if Assigned(Element.VarType) then
+      begin
+      AppendSym(CodeEl, ': ');
+      AppendType(CodeEl, TableEl, Element.VarType, False);
+      end;
+    AppendPasSHFragment(CodeEl, ' = ' + Element.Expr.GetDeclaration(True) + ';', 0);
+  end;
+
   procedure CreatePropertyPage(Element: TPasProperty);
   var
     NeedBreak: Boolean;
@@ -3390,24 +3457,23 @@ begin
   CodeEl := CreateCode(CreatePara(CreateTD(TREl)));
   AppendText(CodeEl, ' ');      // !!!: Workaround for current HTML writer
 
-  case AElement.Visibility of
+  if (AElement.Visibility<>visDefault) then
-    visPrivate: s := 'private';
+    begin
-    visProtected: s := 'protected';
+    s:=VisibilityNames[AElement.Visibility];
-    visPublic: s := 'public';
-    visPublished: s := 'published';
-    visAutomated: s := 'automated';
-    else s := '';
-  end;
-  if Length(s) > 0 then
     AppendKw(CodeEl, s);
+    end;
   AppendText(CodeEl, ' ');
 
-  if AElement.ClassType = TPasVariable then
+  if AElement is TPasProperty then
-    CreateVarPage(TPasVariable(AElement))
-  else if AElement.InheritsFrom(TPasProcedureBase) then
-    AppendProcDecl(CodeEl, TableEl, TPasProcedureBase(AElement))
-  else if AElement.ClassType = TPasProperty then
     CreatePropertyPage(TPasProperty(AElement))
+  else if AElement is TPasConst then
+    CreateConstPage(TPasConst(AElement))
+  else if (AElement is TPasVariable) then
+    CreateVarPage(TPasVariable(AElement))
+  else if AElement is TPasProcedureBase then
+    AppendProcDecl(CodeEl, TableEl, TPasProcedureBase(AElement))
+  else if AElement is TPasType then
+    CreateTypePage(TPasType(AElement))
   else
     AppendText(CreateWarning(BodyElement), '<' + AElement.ClassName + '>');
 
@@ -3518,6 +3584,23 @@ begin
   List.Add(SHTMLDisableMenuBrackets);
 end;
 
+class procedure THTMLWriter.SplitImport(var AFilename, ALinkPrefix: String);
+var
+  i: integer;
+begin
+  i := Pos(',', AFilename);
+  if i > 0 then
+    begin  //split into filename and prefix
+    ALinkPrefix := Copy(AFilename,i+1,Length(AFilename));
+    SetLength(AFilename, i-1);
+    end
+  else if ALinkPrefix = '' then
+    begin  //synthesize outdir\pgk.xct, ..\pkg
+    ALinkPrefix := '../' + ChangeFileExt(ExtractFileName(AFilename), '');
+    AFilename := ChangeFileExt(AFilename, '.xct');
+    end;
+end;
+
 Class Function THTMLWriter.FileNameExtension : String; 
 begin
   result:='';

utils/fpdoc/dw_htmlchm.inc

@@ -32,7 +32,7 @@ type
 
     class procedure Usage(List: TStrings); override;
     Class Function FileNameExtension : String; override;
-    
+    Class procedure SplitImport(var AFilename, ALinkPrefix: String); override;
   end;
 {$ELSE} // implementation
 
@@ -565,4 +565,21 @@ begin
   result:='.chm';
 end;
 
+class procedure TCHMHTMLWriter.SplitImport(var AFilename, ALinkPrefix: String);
+var
+  i: integer;
+begin
+  i := Pos(',', AFilename);
+  if i > 0 then
+    begin  //split into filename and prefix
+    ALinkPrefix := Copy(AFilename,i+1,Length(AFilename));
+    SetLength(AFilename, i-1);
+    end
+  else if ALinkPrefix = '' then
+    begin  //synthesize outdir\pgk.xct, ms-its:pkg.chm::/
+    ALinkPrefix := 'ms-its:' + ChangeFileExt(ExtractFileName(AFilename), '.chm') + '::/';
+    AFilename := ChangeFileExt(AFilename, '.xct');
+    end;
+end;
+
 {$ENDIF}