Now importing endpoints with empty OperationId and with global Consumes tag

- Some Swagger documents did not have the OperationId for endpoints. Now for those cases the OpenAPI generator automatically creates a method name based on path and HTTP method.
- Some Swagger documents did not have the Consumes tag specified for each endpoint, but just a single one global. The generator was not taking the global Consumes tag into account, ignoring those endpoints without the tag.

Author: wlandgraf

Source/OpenApiGen.CustomAnalyzer.pas

@@ -3,7 +3,7 @@
 interface
 
 uses
-  Generics.Collections, SysUtils, Character,
+  Generics.Collections, SysUtils, Character, StrUtils,
   Bcl.Logging,
   XData.JSchema.Classes,
   OpenApiGen.Options,
@@ -20,7 +20,6 @@   TOpenApiCustomAnalyzer = class
     FMetaClient: TMetaClient;
     FOptions: TBuilderOptions;
     FOwnsOptions: Boolean;
-    function ToId(const S: string): string; virtual;
   strict private
     FOnGetMethodName: TGetIdentifierProc;
     FOnGetTypeName: TGetIdentifierProc;
@@ -30,6 +29,9 @@   TOpenApiCustomAnalyzer = class
     FOnGetInterfaceName: TGetIdentifierProc;
     FOnGetServiceClassName: TGetIdentifierProc;
   strict protected
+    function ToId(const S: string): string; virtual;
+    function BuildOperationName(const Path, HttpMethod: string): string;
+
     function ProcessNaming(const S: string; Options: TNamingOptions): string;
     procedure DoGetPropName(var PropName: string; const Original: string);
     procedure DoGetFieldName(var FieldName: string; const Original: string);
@@ -66,6 +68,8 @@   TOpenApiCustomAnalyzer = class
   EOpenApiAnalyzerException = class(Exception)
   end;
 
+function ToPascalCase(const S: string): string;
+
 implementation
 
 uses
@@ -103,6 +107,26 @@ function ToPascalCase(const S: string): string;
 
 { TOpenApiCustomAnalyzer }
 
+function TOpenApiCustomAnalyzer.BuildOperationName(const Path, HttpMethod: string): string;
+var
+  TempName: string;
+  Parts: TArray<string>;
+  Part: string;
+begin
+  TempName := Path;
+  TempName := StringReplace(TempName, '{', '', [rfReplaceAll]);
+  TempName := StringReplace(TempName, '}', '', [rfReplaceAll]);
+  Parts := SplitString(TempName + '/' + LowerCase(HttpMethod), '/');
+  if TempName = '/' then
+    Result := 'Root'
+  else
+    Result := '';
+  for Part in Parts do
+    if Part <> '' then
+      Result := Result + ToPascalCase(Part);
+  Result := ToId(Result);
+end;
+
 constructor TOpenApiCustomAnalyzer.Create(Options: TBuilderOptions; AOwnsOptions: Boolean);
 begin
   inherited Create;

Source/OpenApiGen.V2.Analyzer.pas

@@ -78,7 +78,11 @@ function TOpenApiAnalyzer.BuildMetaMethod(Method: TMetaMethod; const Path: strin
   Result := False;
   try
     ConsumesJson := Operation.Consumes.Contains(MimeTypeJson);
+    if not ConsumesJson and (Operation.Consumes.Count = 0) then
+      ConsumesJson := Document.Consumes.Contains(MimeTypeJson);
     ProducesJson := Operation.Produces.Contains(MimeTypeJson);
+    if not ProducesJson and (Operation.Produces.Count = 0) then
+      ProducesJson := Document.Produces.Contains(MimeTypeJson);
 
     Method.HttpMethod := HttpMethod;
     Method.UrlPath := Path;
@@ -261,6 +265,10 @@ procedure TOpenApiAnalyzer.ProcessOperation(const Path: string; PathItem: TPathI
   // Service Mode
   DoSolveServiceOperation(ServiceName, ServiceDescription, OperationName, Path, PathItem, Operation);
 
+  // Auto-generate operation name
+  if OperationName = '' then
+    OperationName := BuildOperationName(Path, HttpMethod);
+
   // Find or create the service
   DoGetServiceName(ServiceName, ServiceName);
   Service := MetaClient.FindService(ServiceName);

Source/OpenApiGen.V3.Analyzer.pas

@@ -329,6 +329,10 @@ procedure TOpenApiAnalyzer.ProcessOperation(const Path: string; PathItem: TPathI
   // Service Mode
   DoSolveServiceOperation(ServiceName, ServiceDescription, OperationName, Path, PathItem, Operation);
 
+  // Auto-generate operation name
+  if OperationName = '' then
+    OperationName := BuildOperationName(Path, HttpMethod);
+
   // Find or create the service
   DoGetServiceName(ServiceName, ServiceName);
   Service := MetaClient.FindService(ServiceName);