Stack overflow

[rhmskerk]

I'm trying to use the generator on a large swagger-file 154 kB, swagger version 2.0 and I get

OpenApi Client Generator for Delphi version 1.1.1
Copyright (c) Landgraf.dev - all rights reserved.

EStackOverflow: Stack overflow

[wlandgraf]

Can you please provide the steps to reproduce the issue?

[rhmskerk]

The problem occurred because the json definition of two dto's referenced each other.
I'm sorry I can't include the json, because it is owned by a 3rd party.

I'm quite new to GitHub, so I didn't change any source on the project.
I've adapted the source in my local version to overcome the problem.

unit OpenApiGen.CustomAnalyzer
function MetaTypeFromObject(const Name: string; Schema: TObjectSchema; const Propagate: boolean): IMetaType;

function TOpenApiCustomAnalyzer.MetaTypeFromObject(const Name: string; Schema: TObjectSchema; const Propagate: boolean): IMetaType;
...
begin
DoGetTypeName(TypeName, Name);
ObjType := TObjectMetaType.Create(TypeName);
Result := ObjType;
ObjType.SetDescription(Schema.Description);
if Propagate then
for SchemaProp in Schema.Properties do
begin

function TOpenApiCustomAnalyzer.MetaTypeFromSchema(Schema: TJsonSchema; const DefaultTypeName: string;
ListType: TListType): IMetaType;
...
begin
...
else
if Schema is TObjectSchema then
Result := MetaTypeFromObject(DefaultTypeName, TObjectSchema(Schema), true)

unit OpenApiGen.V2.Analyzer
function TOpenApiAnalyzer.MetaTypeFromReference(RefSchema: TReferenceSchema; const DefaultTypeName: string;
ListType: TListType): IMetaType;
var
ReferencedSchema: TJsonSchema;
begin
if not Document.Definitions.TryGetValue(RefSchema.DefinitionName, ReferencedSchema) then
raise EOpenApiAnalyzerException.CreateFmt('Reference not in definition "%s"', [RefSchema.Ref]);

// if it's object, then just reference the type. Otherwise, use the referenced type inline
if ReferencedSchema is TObjectSchema then
Result := MetaTypeFromObject(RefSchema.DefinitionName, TObjectSchema(ReferencedSchema), false)

unit OpenApiGen.V3.Analyzer
function TOpenApiAnalyzer.MetaTypeFromReference(RefSchema: TReferenceSchema; const DefaultTypeName: string;
ListType: TListType): IMetaType;
var
ReferencedSchema: TJsonSchema;
begin
if not Document.Components.Schemas.TryGetValue(RefSchema.SchemaName, ReferencedSchema) then
raise Exception.CreateFmt('Could not solve reference "%s"', [RefSchema.Ref]);

// if it's object, then just reference the type. Otherwise, use the referenced type inline
if ReferencedSchema is TObjectSchema then
Result := MetaTypeFromObject(RefSchema.SchemaName, TObjectSchema(ReferencedSchema), false)