2
===================================================================
3
--- dw_ipflin.pas (revision 20081)
4
+++ dw_ipflin.pas (working copy)
6
procedure EndOverview; override;
7
procedure WriteOverviewMember(const ALabel,AName,Access,ADescr : String); override;
8
procedure WriteOverviewMember(const ALabel,AName,ADescr : String); override;
9
- class function FileNameExtension: string; override;
10
procedure DescrBeginURL(const AURL: DOMString); override;
11
procedure DescrEndURL; override;
12
// Description node conversion. Overrides for TFPDocWriter.
14
// TFPDocWriter class methods
16
constructor Create(APackage: TPasPackage; AEngine: TFPDocEngine); override;
17
+ class function FileNameExtension: string; override;
22
===================================================================
23
--- dw_latex.pp (revision 20081)
24
+++ dw_latex.pp (working copy)
26
procedure EndOverview; override;
27
procedure WriteOverviewMember(const ALabel,AName,Access,ADescr : String); override;
28
procedure WriteOverviewMember(const ALabel,AName,ADescr : String); override;
29
- Class Function FileNameExtension : String; override;
30
// Description node conversion
31
procedure DescrBeginBold; override;
32
procedure DescrEndBold; override;
34
// TFPDocWriter class methods
35
Function InterPretOption(Const Cmd,Arg : String) : boolean; override;
36
Property ImageDir : String Read FImageDir Write FImageDir;
38
+ Class Function FileNameExtension : String; override;
43
===================================================================
44
--- dw_linrtf.pp (revision 20081)
45
+++ dw_linrtf.pp (working copy)
47
procedure WriteOverviewMember(const ALabel,AName,Access,ADescr : String); override;
48
procedure WriteOverviewMember(const ALabel,AName,ADescr : String); override;
49
procedure EndOverview; override;
50
- Class Function FileNameExtension : String; override;
51
// Description node conversion
52
procedure DescrBeginBold; override;
53
procedure DescrEndBold; override;
55
procedure DescrEndTableCell; override;
56
// TFPDocWriter class methods
57
Function InterPretOption(Const Cmd,Arg : String) : boolean; override;
59
+ Class Function FileNameExtension : String; override;
64
===================================================================
65
--- dw_lintmpl.pp (revision 20081)
66
+++ dw_lintmpl.pp (working copy)
68
procedure EndOverview; override;
69
procedure WriteOverviewMember(const ALabel,AName,Access,ADescr : String); override;
70
procedure WriteOverviewMember(const ALabel,AName,ADescr : String); override;
71
- Class Function FileNameExtension : String; override;
72
// Description node conversion. Overrides for TFPDocWriter.
73
procedure DescrBeginBold; override;
74
procedure DescrEndBold; override;
76
procedure DescrEndTableCell; override;
77
// TFPDocWriter class methods
78
Function InterPretOption(Const Cmd,Arg : String) : boolean; override;
80
+ Class Function FileNameExtension : String; override;
81
Class procedure Usage(List: TStrings); override;
85
===================================================================
86
--- dw_man.pp (revision 20081)
87
+++ dw_man.pp (working copy)
89
procedure WriteCommentLine;
90
procedure WriteComment(Comment : String);
91
Procedure WriteExampleFile(FN : String); virtual;
92
- Class Function FileNameExtension : String;virtual;
93
procedure WriteExample(ADocNode: TDocNode);
94
procedure WriteSeeAlso(ADocNode: TDocNode; Comma : Boolean);
97
procedure DescrBeginTableCell; override;
98
procedure DescrEndTableCell; override;
99
Function InterPretOption(Const Cmd,Arg : String) : boolean; override;
100
+ Class Function FileNameExtension : String; override;
101
Class procedure Usage(List: TStrings); override;
104
Index: dw_template.pp
105
===================================================================
106
--- dw_template.pp (revision 20081)
107
+++ dw_template.pp (working copy)
109
// Provide feedback about usage of this backend.
110
Class procedure Usage(List: TStrings); override;
111
// For info only. See linear writer for an example.
112
- Class Function FileNameExtension : String;virtual;
113
+ Class Function FileNameExtension : String; override;
118
===================================================================
119
--- dw_txt.pp (revision 20081)
120
+++ dw_txt.pp (working copy)
122
procedure EndOverview; override;
123
procedure WriteOverviewMember(const ALabel,AName,Access,ADescr : String); override;
124
procedure WriteOverviewMember(const ALabel,AName,ADescr : String); override;
125
- Class Function FileNameExtension : String; override;
126
// Description node conversion
127
procedure DescrBeginBold; override;
128
procedure DescrEndBold; override;
130
procedure DescrEndTableCell; override;
132
Constructor Create(APackage: TPasPackage; AEngine: TFPDocEngine); override;
133
+ Class Function FileNameExtension : String; override;
134
Class Procedure Usage(List : TStrings) ; override;
135
Function InterpretOption(Const Cmd,Arg : String) : Boolean; override;
138
===================================================================
139
--- dwlinear.pp (revision 20081)
140
+++ dwlinear.pp (working copy)
142
procedure StartUnitOverview(AModuleName,AModuleLabel : String);virtual; Abstract;
143
procedure WriteUnitEntry(UnitRef : TPasType);virtual; Abstract;
144
procedure EndUnitOverview; virtual; Abstract;
145
- Class Function FileNameExtension : String;virtual; Abstract;
146
Property LastURL : DomString Read FLastURL Write FLastURL;
148
Constructor Create(APackage: TPasPackage; AEngine: TFPDocEngine); override;
150
===================================================================
151
--- dwriter.pp (revision 20081)
152
+++ dwriter.pp (working copy)
154
Property ImageExtension : String Read FImgExt Write FImgExt;
155
// Should return True if option was succesfully interpreted.
156
Function InterpretOption(Const Cmd,Arg : String) : Boolean; Virtual;
157
+ Class Function FileNameExtension : String; virtual;
158
Class Procedure Usage(List : TStrings); virtual;
159
procedure WriteDoc; virtual; Abstract;
160
Function WriteDescr(Element: TPasElement) : TDocNode;
165
+class function TFPDocWriter.FileNameExtension: String;
167
+//Override in linear writers with the expected extension.
168
+ Result := ''; //Output must not contain an extension.
171
Class procedure TFPDocWriter.Usage(List: TStrings);