Fixed stack overflow described in issue #8

Author: wlandgraf

Source/OpenApiGen.CustomAnalyzer.pas

@@ -20,6 +20,7 @@   TOpenApiCustomAnalyzer = class
     FMetaClient: TMetaClient;
     FOptions: TBuilderOptions;
     FOwnsOptions: Boolean;
+    FObjectTypes: TDictionary<string, IMetaType>;
   strict private
     FOnGetMethodName: TGetIdentifierProc;
     FOnGetTypeName: TGetIdentifierProc;
@@ -134,10 +135,12 @@ constructor TOpenApiCustomAnalyzer.Create(Options: TBuilderOptions; AOwnsOptions
   FOwnsOptions := AOwnsOptions;
   FLogger := TLogManager.Instance.GetLogger(Self);
   FMetaClient := TMetaClient.Create;
+  FObjectTypes := TDictionary<string, IMetaType>.Create;
 end;
 
 destructor TOpenApiCustomAnalyzer.Destroy;
 begin
+  FObjectTypes.Free;
   FMetaClient.Free;
   if FOwnsOptions then
     FOptions.Free;
@@ -239,8 +242,12 @@ function TOpenApiCustomAnalyzer.MetaTypeFromObject(const Name: string; Schema: T
   MetaProp: TMetaProperty;
 begin
   DoGetTypeName(TypeName, Name);
+  if FObjectTypes.TryGetValue(TypeName, Result) then
+    Exit;
+
   ObjType := TObjectMetaType.Create(TypeName);
   Result := ObjType;
+  FObjectTypes.Add(TypeName, Result);
   ObjType.SetDescription(Schema.Description);
   for SchemaProp in Schema.Properties do
   begin

Source/OpenApiGen.V3.Analyzer.pas

@@ -292,7 +292,7 @@ function TOpenApiAnalyzer.GetBaseUrl: string;
   if Pos('://', Result) = 0 then
   begin
     if Options.DocumentUrl = '' then
-      raise Exception.Create('Cannot determine the URL of the API spe, please provide it using DocumentUrl param');
+      raise Exception.Create('Cannot determine the URL of the API spec, please provide it using DocumentUrl param');
     Result := Options.DocumentUrl + Result;
   end;
 end;

Tests/OpenApiDelphiGenTests.dpr

@@ -23,9 +23,6 @@ uses
   PetStoreDtos in 'PetStore\PetStoreDtos.pas',
   PetStoreJson in 'PetStore\PetStoreJson.pas',
   PetStoreClient in 'PetStore\PetStoreClient.pas',
-  NuvemFiscalJson in 'S:\nuvem-fiscal\nuvemfiscal-sdk-delphi\Source\NuvemFiscalJson.pas',
-  NuvemFiscalClient in 'S:\nuvem-fiscal\nuvemfiscal-sdk-delphi\Source\NuvemFiscalClient.pas',
-  NuvemFiscalDtos in 'S:\nuvem-fiscal\nuvemfiscal-sdk-delphi\Source\NuvemFiscalDtos.pas',
   OpenApiUtils in '..\Dist\OpenApiUtils.pas',
   PetStore3Client in 'PetStore3\PetStore3Client.pas',
   PetStore3Dtos in 'PetStore3\PetStore3Dtos.pas',