From a653a4e0e99637d5858f085b1adeb527e2b9b170 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 19 Jun 2022 22:18:34 +0200
Subject: [PATCH] webidltopas: started split TWebIDLToPas2js

---
 packages/webidl/src/webidltopas.pp | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/packages/webidl/src/webidltopas.pp b/packages/webidl/src/webidltopas.pp
index 26296d23a7..8964fd55f1 100644
--- a/packages/webidl/src/webidltopas.pp
+++ b/packages/webidl/src/webidltopas.pp
@@ -40,6 +40,7 @@ Type
     coAddOptionsToHeader
     );
   TBaseConversionOptions = Set of TBaseConversionOption;
+
 const
   BaseConversionOptionName: array[TBaseConversionOption] of string = (
     'ExpandUnionTypeArgs',
@@ -161,6 +162,7 @@ type
     p2jcoExternalConst
     );
   TPas2jsConversionOptions = Set of TPas2jsConversionOption;
+
 const
   Pas2jsConversionOptionNames: array[TPas2jsConversionOption] of string = (
     'DictionaryAsClass',
@@ -178,6 +180,7 @@ type
   Protected
     // Auxiliary routines
     function AllocatePasName(D: TIDLDefinition; ParentName: String=''): TPasData; override;
+    procedure GetOptions(L: TStrings; Full: boolean); override;
     function GetTypeName(const aTypeName: String; ForTypeDef: Boolean=False
       ): String; override;
     // Code generation routines. Return the number of actually written defs.
@@ -295,6 +298,12 @@ begin
     end;
 end;
 
+procedure TWebIDLToPas2js.GetOptions(L: TStrings; Full: boolean);
+begin
+  inherited GetOptions(L, Full);
+  L.Add('Extended Options : '+Pas2jsConversionOptionsToStr(Pas2jsOptions));
+end;
+
 function TWebIDLToPas2js.GetTypeName(const aTypeName: String;
   ForTypeDef: Boolean): String;
 
@@ -1419,7 +1428,6 @@ begin
     L.Add('InputFileName : '+InputFileName);
     L.Add('OutputFileName : '+OutputFileName);
     end;
-  L.Add('Options : '+BaseConversionOptionsToStr(BaseOptions));
   L.Add('Keyword prefix : '+KeywordPrefix);
   L.Add('Keyword suffix : '+KeywordSuffix);
   L.Add('Class prefix : '+ClassPrefix);
@@ -1438,6 +1446,7 @@ begin
     L.Add('Include interface code : '+CodeInfo(IncludeInterfaceCode));
     L.Add('Include implementation code : '+CodeInfo(IncludeImplementationCode));
     end;
+  L.Add('Base Options : '+BaseConversionOptionsToStr(BaseOptions));
 end;
 
 procedure TBaseWebIDLToPas.AddOptionsToHeader;