Index: dw_ipflin.pas =================================================================== --- dw_ipflin.pas (revision 20081) +++ dw_ipflin.pas (working copy) @@ -89,7 +89,6 @@ procedure EndOverview; override; procedure WriteOverviewMember(const ALabel,AName,Access,ADescr : String); override; procedure WriteOverviewMember(const ALabel,AName,ADescr : String); override; - class function FileNameExtension: string; override; procedure DescrBeginURL(const AURL: DOMString); override; procedure DescrEndURL; override; // Description node conversion. Overrides for TFPDocWriter. @@ -141,6 +140,7 @@ // TFPDocWriter class methods public constructor Create(APackage: TPasPackage; AEngine: TFPDocEngine); override; + class function FileNameExtension: string; override; end; Index: dw_latex.pp =================================================================== --- dw_latex.pp (revision 20081) +++ dw_latex.pp (working copy) @@ -79,7 +79,6 @@ procedure EndOverview; override; procedure WriteOverviewMember(const ALabel,AName,Access,ADescr : String); override; procedure WriteOverviewMember(const ALabel,AName,ADescr : String); override; - Class Function FileNameExtension : String; override; // Description node conversion procedure DescrBeginBold; override; procedure DescrEndBold; override; @@ -131,6 +130,8 @@ // TFPDocWriter class methods Function InterPretOption(Const Cmd,Arg : String) : boolean; override; Property ImageDir : String Read FImageDir Write FImageDir; + public + Class Function FileNameExtension : String; override; end; Index: dw_linrtf.pp =================================================================== --- dw_linrtf.pp (revision 20081) +++ dw_linrtf.pp (working copy) @@ -114,7 +114,6 @@ procedure WriteOverviewMember(const ALabel,AName,Access,ADescr : String); override; procedure WriteOverviewMember(const ALabel,AName,ADescr : String); override; procedure EndOverview; override; - Class Function FileNameExtension : String; override; // Description node conversion procedure DescrBeginBold; override; procedure DescrEndBold; override; @@ -162,6 +161,8 @@ procedure DescrEndTableCell; override; // TFPDocWriter class methods Function InterPretOption(Const Cmd,Arg : String) : boolean; override; + public + Class Function FileNameExtension : String; override; end; Index: dw_lintmpl.pp =================================================================== --- dw_lintmpl.pp (revision 20081) +++ dw_lintmpl.pp (working copy) @@ -91,7 +91,6 @@ procedure EndOverview; override; procedure WriteOverviewMember(const ALabel,AName,Access,ADescr : String); override; procedure WriteOverviewMember(const ALabel,AName,ADescr : String); override; - Class Function FileNameExtension : String; override; // Description node conversion. Overrides for TFPDocWriter. procedure DescrBeginBold; override; procedure DescrEndBold; override; @@ -139,6 +138,8 @@ procedure DescrEndTableCell; override; // TFPDocWriter class methods Function InterPretOption(Const Cmd,Arg : String) : boolean; override; + public + Class Function FileNameExtension : String; override; Class procedure Usage(List: TStrings); override; end; Index: dw_man.pp =================================================================== --- dw_man.pp (revision 20081) +++ dw_man.pp (working copy) @@ -97,7 +97,6 @@ procedure WriteCommentLine; procedure WriteComment(Comment : String); Procedure WriteExampleFile(FN : String); virtual; - Class Function FileNameExtension : String;virtual; procedure WriteExample(ADocNode: TDocNode); procedure WriteSeeAlso(ADocNode: TDocNode; Comma : Boolean); Public @@ -178,6 +177,7 @@ procedure DescrBeginTableCell; override; procedure DescrEndTableCell; override; Function InterPretOption(Const Cmd,Arg : String) : boolean; override; + Class Function FileNameExtension : String; override; Class procedure Usage(List: TStrings); override; end; Index: dw_template.pp =================================================================== --- dw_template.pp (revision 20081) +++ dw_template.pp (working copy) @@ -161,7 +161,7 @@ // Provide feedback about usage of this backend. Class procedure Usage(List: TStrings); override; // For info only. See linear writer for an example. - Class Function FileNameExtension : String;virtual; + Class Function FileNameExtension : String; override; end; implementation Index: dw_txt.pp =================================================================== --- dw_txt.pp (revision 20081) +++ dw_txt.pp (working copy) @@ -82,7 +82,6 @@ procedure EndOverview; override; procedure WriteOverviewMember(const ALabel,AName,Access,ADescr : String); override; procedure WriteOverviewMember(const ALabel,AName,ADescr : String); override; - Class Function FileNameExtension : String; override; // Description node conversion procedure DescrBeginBold; override; procedure DescrEndBold; override; @@ -130,6 +129,7 @@ procedure DescrEndTableCell; override; Public Constructor Create(APackage: TPasPackage; AEngine: TFPDocEngine); override; + Class Function FileNameExtension : String; override; Class Procedure Usage(List : TStrings) ; override; Function InterpretOption(Const Cmd,Arg : String) : Boolean; override; end; Index: dwlinear.pp =================================================================== --- dwlinear.pp (revision 20081) +++ dwlinear.pp (working copy) @@ -85,7 +85,6 @@ procedure StartUnitOverview(AModuleName,AModuleLabel : String);virtual; Abstract; procedure WriteUnitEntry(UnitRef : TPasType);virtual; Abstract; procedure EndUnitOverview; virtual; Abstract; - Class Function FileNameExtension : String;virtual; Abstract; Property LastURL : DomString Read FLastURL Write FLastURL; Public Constructor Create(APackage: TPasPackage; AEngine: TFPDocEngine); override; Index: dwriter.pp =================================================================== --- dwriter.pp (revision 20081) +++ dwriter.pp (working copy) @@ -160,6 +160,7 @@ Property ImageExtension : String Read FImgExt Write FImgExt; // Should return True if option was succesfully interpreted. Function InterpretOption(Const Cmd,Arg : String) : Boolean; Virtual; + Class Function FileNameExtension : String; virtual; Class Procedure Usage(List : TStrings); virtual; procedure WriteDoc; virtual; Abstract; Function WriteDescr(Element: TPasElement) : TDocNode; @@ -350,6 +351,12 @@ Result:=False; end; +class function TFPDocWriter.FileNameExtension: String; +begin +//Override in linear writers with the expected extension. + Result := ''; //Output must not contain an extension. +end; + Class procedure TFPDocWriter.Usage(List: TStrings); begin // Do nothing.