Skip to content

Commit a047517

Browse files
committed
Fix doxygen generation
pas2dox requires the class declaration to use the end; statement
1 parent ea38fd0 commit a047517

File tree

6 files changed

+26
-10
lines changed

6 files changed

+26
-10
lines changed

source/djContextMap.pas

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -40,7 +40,9 @@ interface
4040
(**
4141
* A TContextMap holds a map of context names and their handlers.
4242
*)
43-
TdjContextMap = class(TObjectDictionary<string, TdjWebComponentContextHandler>);
43+
TdjContextMap = class(TObjectDictionary<string, TdjWebComponentContextHandler>)
44+
// pas2dox requires the class declaration to use the end; statement
45+
end;
4446

4547
implementation
4648

source/djServerContext.pas

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -42,7 +42,9 @@ interface
4242
* A subclass of the Indy context class is used for
4343
* future extensions.
4444
*)
45-
TdjServerContext = class(TIdServerContext);
45+
TdjServerContext = class(TIdServerContext)
46+
// pas2dox requires the class declaration to use the end; statement
47+
end;
4648

4749
TdjServerContextClass = class of TdjServerContext;
4850

source/djWebAppContext.pas

Lines changed: 8 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -21,7 +21,7 @@
2121
a commercial license. Buying such a license is mandatory as soon as you
2222
develop commercial activities involving the Daraja framework without
2323
disclosing the source code of your own applications. These activities
24-
include: offering paid services to customers as an ASP, shipping Daraja
24+
include: offering paid services to customers as an ASP, shipping Daraja
2525
with a closed source product.
2626
2727
*)
@@ -36,11 +36,17 @@ interface
3636
djWebComponentContextHandler;
3737

3838
type
39+
{ TdjWebAppContext }
40+
3941
(**
4042
* Main context handler class.
4143
*)
42-
TdjWebAppContext = class(TdjWebComponentContextHandler);
44+
TdjWebAppContext = class(TdjWebComponentContextHandler)
45+
// pas2dox requires the class declaration to use the end; statement
46+
end;
4347

4448
implementation
4549

50+
{ TdjWebAppContext }
51+
4652
end.

source/djWebComponentConfig.pas

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -21,7 +21,7 @@
2121
a commercial license. Buying such a license is mandatory as soon as you
2222
develop commercial activities involving the Daraja framework without
2323
disclosing the source code of your own applications. These activities
24-
include: offering paid services to customers as an ASP, shipping Daraja
24+
include: offering paid services to customers as an ASP, shipping Daraja
2525
with a closed source product.
2626
2727
*)
@@ -39,7 +39,9 @@ interface
3939
(**
4040
* Web Component configuration.
4141
*)
42-
TdjWebComponentConfig = class(TdjAbstractConfig, IWebComponentConfig);
42+
TdjWebComponentConfig = class(TdjAbstractConfig, IWebComponentConfig)
43+
// pas2dox requires the class declaration to use the end; statement
44+
end;
4345

4446
implementation
4547

source/djWebComponentContextHandler.pas

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -45,7 +45,7 @@ interface
4545
{ TdjWebComponentContextHandler }
4646

4747
(**
48-
* Context Handler for Web Components.
48+
* Context Handler for Web Components (and Web Filters).
4949
*)
5050
TdjWebComponentContextHandler = class(TdjContextHandler)
5151
private

source/djWebFilterHolder.pas

Lines changed: 7 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -112,9 +112,13 @@ TdjWebFilterHolder = class(TdjGenericHolder<TdjWebFilter>)
112112

113113
// note Delphi 2009 AVs if it is a TObjectList<>
114114
// see http://stackoverflow.com/questions/289825/why-is-tlist-remove-producing-an-eaccessviolation-error
115-
// for a workaround
116-
// use TdjWeFilterHolders.Create(TComparer<TdjWebFilterHolder>.Default);
117-
TdjWebFilterHolders = class(TObjectList<TdjWebFilterHolder>);
115+
// for a workaround use TdjWeFilterHolders.Create(TComparer<TdjWebFilterHolder>.Default);
116+
(**
117+
* A generic list of TdjWebFilterHolder objects.
118+
*)
119+
TdjWebFilterHolders = class(TObjectList<TdjWebFilterHolder>)
120+
// pas2dox requires the class declaration to use the end; statement
121+
end;
118122

119123
implementation
120124

0 commit comments

Comments
 (0)