Regenerate clients using spec 5.12.0 .

clients/ada-server/generated/.openapi-generator-ignore

@@ -0,0 +1,23 @@
+# OpenAPI Generator Ignore
+# Generated by openapi-generator https://github.com/openapitools/openapi-generator
+
+# Use this file to prevent files from being overwritten by the generator.
+# The patterns follow closely to .gitignore or .dockerignore.
+
+# As an example, the C# client generator defines ApiClient.cs.
+# You can make changes and tell OpenAPI Generator to ignore just this file by uncommenting the following line:
+#ApiClient.cs
+
+# You can match any string of characters against a directory, file or extension with a single asterisk (*):
+#foo/*/qux
+# The above matches foo/bar/qux and foo/baz/qux, but not foo/bar/baz/qux
+
+# You can recursively match patterns against a directory, file or extension with a double asterisk (**):
+#foo/**/qux
+# This matches foo/bar/qux, foo/baz/qux, and foo/bar/baz/qux
+
+# You can also negate patterns with an exclamation (!).
+# For example, you can ignore all files in a docs folder with the file extension .md:
+#docs/*.md
+# Then explicitly reverse the ignore rule for a single file:
+#!docs/README.md

clients/ada-server/generated/.openapi-generator/FILES

@@ -0,0 +1,16 @@
+.openapi-generator-ignore
+.properties
+README.md
+config.gpr
+defaultpackage.gpr
+src/-server.adb
+src/-servers.adb
+src/-servers.ads
+src/.ads
+src/aws/_aws.adb
+src/ews/_ews.adb
+src/model/-models.adb
+src/model/-models.ads
+src/server/-skeletons.adb
+src/server/-skeletons.ads
+web/swagger/openapi.json

clients/ada-server/generated/.openapi-generator/VERSION

@@ -0,0 +1 @@
+7.4.0

clients/ada-server/generated/.properties

@@ -0,0 +1,35 @@
+swagger.dir=web
+swagger.web.enable=false
+swagger.ui.enable=true
+swagger.port=8080
+swagger.apps=app
+swagger.users=users
+swagger.key=NTk4YzEyODNhMjM4IDJjMjNkOGFiNThkYSBkZWExOTQ1MTQ2YjkgZmIxNGM4NWY4OGQzCg
+
+app.list=1
+app.1.client_id=test-app
+app.1.client_secret=test-app-secret
+app.1.scope=none
+
+users.list=1,2
+users.1.username=admin
+users.1.password=admin
+users.2.username=test
+users.2.password=test
+
+# Configuration for log4j
+log4j.rootCategory=DEBUG,console,result
+log4j.appender.console=Console
+log4j.appender.console.level=DEBUG
+log4j.appender.console.layout=level-message
+log4j.appender.result=File
+log4j.appender.result.File=defaultPackage.log
+
+# Logger configuration
+log4j.logger.log=WARN
+log4j.logger.Util.Properties=DEBUG
+log4j.logger.Util.Log=WARN
+log4j.logger.Util=DEBUG
+log4j.logger.Servlet=DEBUG
+log4j.logger.Util.Serialize.Mappers=WARN
+log4j.logger.Util.Serialize.IO=INFO

clients/ada-server/generated/config.gpr

@@ -0,0 +1,78 @@
+abstract project Config is
+   for Source_Dirs use ();
+
+   type Yes_No is ("yes", "no");
+
+   type Library_Type_Type is ("relocatable", "static", "static-pic");
+
+   type Build_Type is ("distrib", "debug", "optimize", "profile", "coverage");
+   Mode : Build_Type := external ("BUILD", "debug");
+
+   Processors := External ("PROCESSORS", "1");
+
+   package Builder is
+       for Default_Switches ("Ada") use ("-j" & Processors);
+   end Builder;
+
+   package compiler is
+      warnings := ("-gnatwua");
+      defaults := ("-gnat2012");
+      case Mode is
+         when "distrib" =>
+            for Default_Switches ("Ada") use defaults & ("-O2", "-gnatafno", "-gnatVa", "-gnatwa");
+
+         when "debug" =>
+            for Default_Switches ("Ada") use defaults & warnings
+               & ("-g", "-gnata", "-gnatVaMI", "-gnaty3abcefhiklmnprstxM127");
+
+         when "coverage" =>
+            for Default_Switches ("Ada") use defaults & warnings
+               & ("-g", "-O2", "-gnata", "-gnatVaMI", "-gnaty3abcefhiklmnprstxM127",
+                  "-fprofile-arcs", "-ftest-coverage");
+
+         when "optimize" =>
+            for Default_Switches ("Ada") use defaults & warnings
+               & ("-O2", "-gnatn", "-gnatp", "-fdata-sections", "-ffunction-sections");
+
+         when "profile" =>
+            for Default_Switches ("Ada") use defaults & warnings & ("-pg");
+
+      end case;
+   end compiler;
+
+   package binder is
+      case Mode is
+         when "debug" =>
+            for Default_Switches ("Ada") use ("-E");
+
+         when others =>
+            for Default_Switches ("Ada") use ("-E");
+
+      end case;
+   end binder;
+
+   package linker is
+      case Mode is
+         when "profile" =>
+            for Default_Switches ("Ada") use ("-pg");
+
+         when "distrib" =>
+            for Default_Switches ("Ada") use ("-s");
+
+         when "optimize" =>
+            for Default_Switches ("Ada") use ("-Wl,--gc-sections");
+
+         when "coverage" =>
+            for Default_Switches ("ada") use ("-fprofile-arcs");
+
+         when others =>
+            null;
+      end case;
+
+   end linker;
+
+   package Ide is
+      for VCS_Kind use "git";
+   end Ide;
+
+end Config;

clients/ada-server/generated/defaultpackage.gpr

@@ -0,0 +1,50 @@
+--  Pinterest REST API
+--  Pinterest's REST API
+--  The version of the OpenAPI document: 1.0.0
+--
+--  https://openapi-generator.tech
+--
+--  NOTE: Auto generated by OpenAPI Generator (https://openapi-generator.tech).
+with "config";
+with "utilada_sys";
+with "utilada_xml";
+with "utilada_curl";
+with "security";
+with "swagger";
+with "servletada";
+with "servletada_aws";
+--  with "servletada_ews";
+with "swagger_server";
+project defaultPackage is
+
+   for Object_Dir use "obj/";
+   for Source_Dirs use ("src", "src/model", "src/server");
+   for Main use ();
+
+   Build_AWS : Config.Yes_No := external ("BUILD_AWS", "yes");
+   Build_EWS : Config.Yes_No := external ("BUILD_EWS", "no");
+
+   case Build_AWS is
+      when "yes" =>
+         for Main use Project'Main & ("_aws.adb");
+         for Source_Dirs use Project'Source_Dirs & ("src/aws");
+
+      when others =>
+         null;
+   end case;
+
+   case Build_EWS is
+      when "yes" =>
+         for Main use Project'Main & ("_ews.adb");
+         for Source_Dirs use Project'Source_Dirs & ("src/ews");
+
+      when others =>
+         null;
+   end case;
+
+   package Binder renames Config.Binder;
+   package Builder renames Config.Builder;
+   package Compiler renames Config.Compiler;
+   package Linker renames Config.Linker;
+
+end defaultPackage;

clients/ada-server/generated/src/-server.adb

@@ -0,0 +1,41 @@
+with Ada.IO_Exceptions;
+with Servlet.Server;
+with Swagger.Servers.Applications;
+with Util.Strings;
+with Util.Log.Loggers;
+with Util.Properties;
+with Util.Properties.Basic;
+with .Servers;
+procedure .Server (Server : in out Servlet.Server.Container'Class) is
+   use Util.Properties.Basic;
+
+   CONFIG_PATH  : constant String := ".properties";
+
+   Port    : Natural := 8080;
+   App     : aliased Swagger.Servers.Applications.Application_Type;
+   Log     : constant Util.Log.Loggers.Logger := Util.Log.Loggers.Create (".Server");
+   Props   : Util.Properties.Manager;
+   Config  : Servlet.Server.Configuration;
+begin
+   Props.Load_Properties (CONFIG_PATH);
+   Util.Log.Loggers.Initialize (Props);
+
+   Port := Integer_Property.Get (Props, "swagger.port", Port);
+   Config.Listening_Port := Port;
+   App.Configure (Props);
+   .Servers.Server_Impl.Register (App);
+
+   Server.Configure (Config);
+   Server.Register_Application ("/v5", App'Unchecked_Access);
+   App.Dump_Routes (Util.Log.INFO_LEVEL);
+   Log.Info ("Connect your browser to: http://localhost:{0}/v5/ui/index.html",
+             Util.Strings.Image (Port));
+
+   Server.Start;
+
+   delay 6000.0;
+
+exception
+   when Ada.IO_Exceptions.Name_Error =>
+      Log.Error ("Cannot read application configuration file {0}", CONFIG_PATH);
+end .Server;