-- OpenAI Client -- API to make requests on OpenAPI service -- -- The version of the OpenAPI document: 1.0.0 -- Contact: laidani.dev@gmail.com, Stephane.Carrez@gmail.com -- -- NOTE: This package is auto generated by OpenAPI-Generator 7.0.1-2023-08-27. -- https://openapi-generator.tech -- Do not edit the class manually. with OpenAPI.Streams; with Ada.Containers.Vectors; package OpenAI.Models is pragma Style_Checks ("-bmrIu"); -- ------------------------------ -- Category_Score -- ------------------------------ type CategoryScore_Type is record Hate : OpenAPI.Number; Hate_Threatening : OpenAPI.Number; Self_Harm : OpenAPI.Number; Sexual : OpenAPI.Number; Sexual_Minors : OpenAPI.Number; Violence : OpenAPI.Number; Violence_Graphic : OpenAPI.Number; end record; package CategoryScore_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.CategoryScore_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.CategoryScore_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in CategoryScore_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.CategoryScore_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out CategoryScore_Type_Vectors.Vector); type ChatMessage_Type is record Role : OpenAPI.UString; Content : OpenAPI.UString; Name : OpenAPI.Nullable_UString; end record; package ChatMessage_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.ChatMessage_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.ChatMessage_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in ChatMessage_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.ChatMessage_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out ChatMessage_Type_Vectors.Vector); type ChatResponseMessage_Type is record Role : OpenAPI.UString; Content : OpenAPI.UString; Finish_Reason : OpenAPI.UString; end record; package ChatResponseMessage_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.ChatResponseMessage_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.ChatResponseMessage_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in ChatResponseMessage_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.ChatResponseMessage_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out ChatResponseMessage_Type_Vectors.Vector); -- ------------------------------ -- Completion_Choice -- ------------------------------ type CompletionChoice_Type is record Text : OpenAPI.Nullable_UString; Index : OpenAPI.Nullable_Integer; Logprobs : OpenAPI.Nullable_UString; Finish_Reason : OpenAPI.Nullable_UString; end record; package CompletionChoice_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.CompletionChoice_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.CompletionChoice_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in CompletionChoice_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.CompletionChoice_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out CompletionChoice_Type_Vectors.Vector); type CompletionRequest_Type is record Model : OpenAPI.UString; Prompt : OpenAPI.Nullable_UString; Suffix : OpenAPI.Nullable_UString; Max_Tokens : OpenAPI.Nullable_Integer; Temperature : OpenAPI.Number; Top_P : OpenAPI.Number; N : OpenAPI.Nullable_Integer; Stream : OpenAPI.Nullable_Boolean; Logprobs : OpenAPI.Nullable_Integer; Echo : OpenAPI.Nullable_Boolean; Stop : OpenAPI.Nullable_UString; Presence_Penalty : OpenAPI.Number; Frequency_Penalty : OpenAPI.Number; Best_Of : OpenAPI.Nullable_Integer; Logit_Bias : OpenAPI.Object; User : OpenAPI.Nullable_UString; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.CompletionRequest_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.CompletionRequest_Type); -- ------------------------------ -- Completion_Usage -- ------------------------------ type CompletionUsage_Type is record Prompt_Tokens : OpenAPI.Nullable_Integer; Completion_Tokens : OpenAPI.Nullable_Integer; Total_Tokens : OpenAPI.Nullable_Integer; end record; package CompletionUsage_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.CompletionUsage_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.CompletionUsage_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in CompletionUsage_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.CompletionUsage_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out CompletionUsage_Type_Vectors.Vector); type CreateImagesRequest_Type is record Prompt : OpenAPI.UString; N : OpenAPI.Nullable_Integer; Size : OpenAPI.Nullable_UString; Response_Format : OpenAPI.Nullable_UString; User : OpenAPI.Nullable_UString; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.CreateImagesRequest_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.CreateImagesRequest_Type); type DeleteFileResponse_Type is record Id : OpenAPI.Nullable_UString; Object : OpenAPI.Nullable_UString; Deleted : OpenAPI.Nullable_Boolean; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.DeleteFileResponse_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.DeleteFileResponse_Type); type DeleteFineTuneResponse_Type is record Id : OpenAPI.Nullable_UString; Object : OpenAPI.Nullable_UString; Deleted : OpenAPI.Nullable_Boolean; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.DeleteFineTuneResponse_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.DeleteFineTuneResponse_Type); -- ------------------------------ -- Edit_Choice -- ------------------------------ type EditChoice_Type is record Text : OpenAPI.Nullable_UString; Index : OpenAPI.Nullable_Integer; end record; package EditChoice_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.EditChoice_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.EditChoice_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in EditChoice_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.EditChoice_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out EditChoice_Type_Vectors.Vector); type EditRequest_Type is record Model : OpenAPI.UString; Input : OpenAPI.Nullable_UString; Instruction : OpenAPI.UString; N : OpenAPI.Nullable_Integer; Temperature : OpenAPI.Number; Top_P : OpenAPI.Number; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.EditRequest_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.EditRequest_Type); -- ------------------------------ -- Edit_Usage -- ------------------------------ type EditUsage_Type is record Prompt_Tokens : OpenAPI.Nullable_Integer; Completion_Tokens : OpenAPI.Nullable_Integer; Total_Tokens : OpenAPI.Nullable_Integer; end record; package EditUsage_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.EditUsage_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.EditUsage_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in EditUsage_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.EditUsage_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out EditUsage_Type_Vectors.Vector); -- ------------------------------ -- Embedding_Usage -- ------------------------------ type EmbeddingUsage_Type is record Prompt_Tokens : OpenAPI.Nullable_Integer; Total_Tokens : OpenAPI.Nullable_Integer; end record; package EmbeddingUsage_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.EmbeddingUsage_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.EmbeddingUsage_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in EmbeddingUsage_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.EmbeddingUsage_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out EmbeddingUsage_Type_Vectors.Vector); -- ------------------------------ -- Embedding -- ------------------------------ type Embedding_Type is record Object : OpenAPI.Nullable_UString; Embedding : OpenAPI.Number_Vector; Index : OpenAPI.Nullable_Integer; end record; package Embedding_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.Embedding_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.Embedding_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in Embedding_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.Embedding_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out Embedding_Type_Vectors.Vector); type EmbeddingsRequest_Type is record Model : OpenAPI.UString; Input : OpenAPI.UString_Vector; User : OpenAPI.Nullable_UString; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.EmbeddingsRequest_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.EmbeddingsRequest_Type); type Error_Type is record Message : OpenAPI.Nullable_UString; P_Type : OpenAPI.Nullable_UString; Param : OpenAPI.Nullable_UString; Code : OpenAPI.Nullable_UString; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.Error_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.Error_Type); -- ------------------------------ -- File_Info -- ------------------------------ type FileInfo_Type is record Id : OpenAPI.Nullable_UString; Object : OpenAPI.Nullable_UString; Bytes : OpenAPI.Nullable_Integer; Created_At : OpenAPI.Nullable_Integer; Filename : OpenAPI.Nullable_UString; Purpose : OpenAPI.Nullable_UString; end record; package FileInfo_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.FileInfo_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.FileInfo_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in FileInfo_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.FileInfo_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out FileInfo_Type_Vectors.Vector); type FineTunesRequest_Type is record Training_File : OpenAPI.UString; Validation_File : OpenAPI.Nullable_UString; Model : OpenAPI.Nullable_UString; N_Epochs : OpenAPI.Nullable_Integer; Batch_Size : OpenAPI.Nullable_Integer; Learning_Rate_Multiplier : OpenAPI.Number; Prompt_Loss_Weight : OpenAPI.Number; Compute_Classification_Metrics : OpenAPI.Nullable_Boolean; Classification_N_Classes : OpenAPI.Nullable_Integer; Classification_Positive_Class : OpenAPI.Nullable_UString; Classification_Betas : OpenAPI.Number_Vector; Suffix : OpenAPI.Nullable_UString; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.FineTunesRequest_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.FineTunesRequest_Type); type FunctionCall_Type is record Name : OpenAPI.UString; Arguments : OpenAPI.UString; end record; package FunctionCall_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.FunctionCall_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.FunctionCall_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in FunctionCall_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.FunctionCall_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out FunctionCall_Type_Vectors.Vector); type FunctionDeclaration_Type is record Name : OpenAPI.UString; Description : OpenAPI.Nullable_UString; Parameters : OpenAPI.UString; end record; package FunctionDeclaration_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.FunctionDeclaration_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.FunctionDeclaration_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in FunctionDeclaration_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.FunctionDeclaration_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out FunctionDeclaration_Type_Vectors.Vector); type ImageEditRequest_Type is record Image : OpenAPI.UString; Mask : OpenAPI.Nullable_UString; Prompt : OpenAPI.UString; N : OpenAPI.Nullable_Integer; Size : OpenAPI.Nullable_UString; Response_Format : OpenAPI.Nullable_UString; User : OpenAPI.Nullable_UString; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.ImageEditRequest_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.ImageEditRequest_Type); type ImageValidationRequest_Type is record Image : OpenAPI.UString; N : OpenAPI.Nullable_Integer; Size : OpenAPI.Nullable_UString; Response_Format : OpenAPI.Nullable_UString; User : OpenAPI.Nullable_UString; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.ImageValidationRequest_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.ImageValidationRequest_Type); -- ------------------------------ -- Moderation_Category -- ------------------------------ type ModerationCategory_Type is record Hate : OpenAPI.Nullable_Boolean; Hate_Threatening : OpenAPI.Nullable_Boolean; Self_Harm : OpenAPI.Nullable_Boolean; Sexual : OpenAPI.Nullable_Boolean; Sexual_Minors : OpenAPI.Nullable_Boolean; Violence : OpenAPI.Nullable_Boolean; Violence_Graphic : OpenAPI.Nullable_Boolean; end record; package ModerationCategory_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.ModerationCategory_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.ModerationCategory_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in ModerationCategory_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.ModerationCategory_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out ModerationCategory_Type_Vectors.Vector); type ModerationRequest_Type is record Input : OpenAPI.UString; Model : OpenAPI.Nullable_UString; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.ModerationRequest_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.ModerationRequest_Type); -- ------------------------------ -- Permission -- ------------------------------ type Permission_Type is record Id : OpenAPI.Nullable_UString; Object : OpenAPI.Nullable_UString; Created : OpenAPI.Number; Allow_Create_Engine : OpenAPI.Nullable_Boolean; Allow_Sampling : OpenAPI.Nullable_Boolean; Allow_Logprobs : OpenAPI.Nullable_Boolean; Allow_Search_Indices : OpenAPI.Nullable_Boolean; Allow_View : OpenAPI.Nullable_Boolean; Allow_Fine_Tuning : OpenAPI.Nullable_Boolean; Organization : OpenAPI.Nullable_UString; Group : OpenAPI.Nullable_UString; Is_Blocking : OpenAPI.Nullable_Boolean; end record; package Permission_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.Permission_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.Permission_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in Permission_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.Permission_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out Permission_Type_Vectors.Vector); type RetrieveFileResponse_Type is record Id : OpenAPI.Nullable_UString; Object : OpenAPI.Nullable_UString; Bytes : OpenAPI.Nullable_Integer; Created_At : OpenAPI.Nullable_Integer; Filename : OpenAPI.Nullable_UString; Purpose : OpenAPI.Nullable_UString; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.RetrieveFileResponse_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.RetrieveFileResponse_Type); -- ------------------------------ -- Tune_Event -- ------------------------------ type TuneEvent_Type is record Object : OpenAPI.Nullable_UString; Created_At : OpenAPI.Nullable_Integer; Level : OpenAPI.Nullable_UString; Message : OpenAPI.Nullable_UString; end record; package TuneEvent_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.TuneEvent_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.TuneEvent_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in TuneEvent_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.TuneEvent_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out TuneEvent_Type_Vectors.Vector); -- ------------------------------ -- Tune_Param -- ------------------------------ type TuneParam_Type is record Batch_Size : OpenAPI.Nullable_Integer; Learning_Rate_Multiplier : OpenAPI.Number; N_Epochs : OpenAPI.Nullable_Integer; Prompt_Loss_Weight : OpenAPI.Number; end record; package TuneParam_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.TuneParam_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.TuneParam_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in TuneParam_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.TuneParam_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out TuneParam_Type_Vectors.Vector); -- ------------------------------ -- Tune_Result -- ------------------------------ type TuneResult_Type is record Id : OpenAPI.Nullable_UString; Object : OpenAPI.Nullable_UString; Bytes : OpenAPI.Nullable_Integer; Created_At : OpenAPI.Nullable_Integer; Filename : OpenAPI.Nullable_UString; Purpose : OpenAPI.Nullable_UString; end record; package TuneResult_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.TuneResult_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.TuneResult_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in TuneResult_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.TuneResult_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out TuneResult_Type_Vectors.Vector); -- ------------------------------ -- Tune_Training_File -- ------------------------------ type TuneTrainingFile_Type is record Id : OpenAPI.Nullable_UString; Object : OpenAPI.Nullable_UString; Bytes : OpenAPI.Nullable_Integer; Created_At : OpenAPI.Nullable_Integer; Filename : OpenAPI.Nullable_UString; Purpose : OpenAPI.Nullable_UString; end record; package TuneTrainingFile_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.TuneTrainingFile_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.TuneTrainingFile_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in TuneTrainingFile_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.TuneTrainingFile_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out TuneTrainingFile_Type_Vectors.Vector); -- ------------------------------ -- Tune_Training -- ------------------------------ type TuneTraining_Type is record Id : OpenAPI.Nullable_UString; Object : OpenAPI.Nullable_UString; Bytes : OpenAPI.Nullable_Integer; Created_At : OpenAPI.Nullable_Integer; Filename : OpenAPI.Nullable_UString; Purpose : OpenAPI.Nullable_UString; end record; package TuneTraining_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.TuneTraining_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.TuneTraining_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in TuneTraining_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.TuneTraining_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out TuneTraining_Type_Vectors.Vector); -- ------------------------------ -- URL -- ------------------------------ type URL_Type is record Url : OpenAPI.Nullable_UString; B_64_Json : OpenAPI.Nullable_UString; end record; package URL_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.URL_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.URL_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in URL_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.URL_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out URL_Type_Vectors.Vector); type UploadFileRequest_Type is record File : OpenAPI.UString; Purpose : OpenAPI.UString; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.UploadFileRequest_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.UploadFileRequest_Type); type UploadFileResponse_Type is record Id : OpenAPI.Nullable_UString; Object : OpenAPI.Nullable_UString; Bytes : OpenAPI.Nullable_Integer; Created_At : OpenAPI.Nullable_Integer; Filename : OpenAPI.Nullable_UString; Purpose : OpenAPI.Nullable_UString; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.UploadFileResponse_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.UploadFileResponse_Type); type ChatChoice_Type is record Index : Integer; Message : OpenAI.Models.ChatResponseMessage_Type; Name : OpenAPI.Nullable_UString; end record; package ChatChoice_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.ChatChoice_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.ChatChoice_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in ChatChoice_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.ChatChoice_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out ChatChoice_Type_Vectors.Vector); type ChatRequest_Type is record Model : OpenAPI.UString; Messages : OpenAI.Models.ChatMessage_Type_Vectors.Vector; Function_Call : OpenAPI.Nullable_UString; Temperature : OpenAPI.Number; Top_P : OpenAPI.Number; N : OpenAPI.Nullable_Integer; Stream : OpenAPI.Nullable_Boolean; Stop : OpenAPI.Nullable_UString; Max_Tokens : OpenAPI.Nullable_Integer; Presence_Penalty : OpenAPI.Number; Frequency_Penalty : OpenAPI.Number; Best_Of : OpenAPI.Nullable_Integer; Logit_Bias : OpenAPI.Object; User : OpenAPI.Nullable_UString; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.ChatRequest_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.ChatRequest_Type); type FileResponse_Type is record Object : OpenAPI.Nullable_UString; Data : OpenAI.Models.FileInfo_Type_Vectors.Vector; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.FileResponse_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.FileResponse_Type); type FineTuneEventsResponse_Type is record Object : OpenAPI.Nullable_UString; Data : OpenAI.Models.TuneEvent_Type_Vectors.Vector; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.FineTuneEventsResponse_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.FineTuneEventsResponse_Type); type ImagesResponse_Type is record Created : OpenAPI.Nullable_Integer; Data : OpenAI.Models.URL_Type_Vectors.Vector; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.ImagesResponse_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.ImagesResponse_Type); type Model_Type is record Id : OpenAPI.Nullable_UString; Object : OpenAPI.Nullable_UString; Created : OpenAPI.Number; Owned_By : OpenAPI.Nullable_UString; Permission : OpenAI.Models.Permission_Type_Vectors.Vector; Root : OpenAPI.Nullable_UString; Parent : OpenAPI.Nullable_UString; end record; package Model_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.Model_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.Model_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in Model_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.Model_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out Model_Type_Vectors.Vector); type Models_Type is record Object : OpenAPI.Nullable_UString; Data : OpenAI.Models.Model_Type_Vectors.Vector; end record; package Models_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.Models_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.Models_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in Models_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.Models_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out Models_Type_Vectors.Vector); -- ------------------------------ -- Moderation -- ------------------------------ type Moderation_Type is record Categories : OpenAI.Models.ModerationCategory_Type; Category_Scores : OpenAI.Models.CategoryScore_Type; Flagged : OpenAPI.Nullable_Boolean; end record; package Moderation_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.Moderation_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.Moderation_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in Moderation_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.Moderation_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out Moderation_Type_Vectors.Vector); type ModerationResponse_Type is record Id : OpenAPI.Nullable_UString; Model : OpenAPI.Nullable_UString; Results : OpenAI.Models.Moderation_Type_Vectors.Vector; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.ModerationResponse_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.ModerationResponse_Type); -- ------------------------------ -- Tune_Info -- ------------------------------ type TuneInfo_Type is record Id : OpenAPI.Nullable_UString; Object : OpenAPI.Nullable_UString; Model : OpenAPI.Nullable_UString; Created_At : OpenAPI.Nullable_Integer; Fine_Tuned_Model : OpenAPI.Object; Hyperparams : OpenAPI.Object; Organization_Id : OpenAPI.Nullable_UString; Result_Files : OpenAPI.Object_Vector; Status : OpenAPI.Nullable_UString; Validation_Files : OpenAPI.Object_Vector; Training_Files : OpenAPI.Object_Vector; Updated_At : OpenAPI.Nullable_Integer; end record; package TuneInfo_Type_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => OpenAI.Models.TuneInfo_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.TuneInfo_Type); procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in TuneInfo_Type_Vectors.Vector); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.TuneInfo_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : in out TuneInfo_Type_Vectors.Vector); type GetFineTunesResponse_Type is record Object : OpenAPI.Nullable_UString; Data : OpenAI.Models.TuneInfo_Type_Vectors.Vector; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.GetFineTunesResponse_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.GetFineTunesResponse_Type); type ChatResponse_Type is record Id : OpenAPI.UString; Object : OpenAPI.UString; Created : Integer; Model : OpenAPI.UString; Choices : OpenAI.Models.ChatChoice_Type_Vectors.Vector; Usage : OpenAI.Models.CompletionUsage_Type; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.ChatResponse_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.ChatResponse_Type); type CompletionResponse_Type is record Id : OpenAPI.Nullable_UString; Object : OpenAPI.Nullable_UString; Created : OpenAPI.Nullable_Integer; Model : OpenAPI.Nullable_UString; Choices : OpenAI.Models.CompletionChoice_Type_Vectors.Vector; Usage : OpenAI.Models.CompletionUsage_Type; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.CompletionResponse_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.CompletionResponse_Type); type EditResponse_Type is record Object : OpenAPI.Nullable_UString; Created : OpenAPI.Nullable_Integer; Choices : OpenAI.Models.EditChoice_Type_Vectors.Vector; Usage : OpenAI.Models.EditUsage_Type; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.EditResponse_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.EditResponse_Type); type EmbeddingsResponse_Type is record Object : OpenAPI.Nullable_UString; Data : OpenAI.Models.Embedding_Type_Vectors.Vector; Model : OpenAPI.Nullable_UString; Usage : OpenAI.Models.EmbeddingUsage_Type; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.EmbeddingsResponse_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.EmbeddingsResponse_Type); type FineTunesResponse_Type is record Id : OpenAPI.Nullable_UString; Object : OpenAPI.Nullable_UString; Model : OpenAPI.Nullable_UString; Created_At : OpenAPI.Nullable_Integer; Events : OpenAI.Models.TuneEvent_Type_Vectors.Vector; Fine_Tuned_Model : OpenAPI.Object; Hyperparams : OpenAI.Models.TuneParam_Type; Organization_Id : OpenAPI.Nullable_UString; Result_Files : OpenAPI.Object_Vector; Status : OpenAPI.Nullable_UString; Validation_Files : OpenAPI.Object_Vector; Training_Files : OpenAI.Models.TuneTraining_Type_Vectors.Vector; Updated_At : OpenAPI.Nullable_Integer; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.FineTunesResponse_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.FineTunesResponse_Type); type GetFineTuneResponse_Type is record Id : OpenAPI.Nullable_UString; Object : OpenAPI.Nullable_UString; Model : OpenAPI.Nullable_UString; Created_At : OpenAPI.Nullable_Integer; Events : OpenAI.Models.TuneEvent_Type_Vectors.Vector; Fine_Tuned_Model : OpenAPI.Nullable_UString; Hyperparams : OpenAI.Models.TuneParam_Type; Organization_Id : OpenAPI.Nullable_UString; Result_Files : OpenAI.Models.TuneResult_Type_Vectors.Vector; Status : OpenAPI.Nullable_UString; Validation_Files : OpenAPI.Object_Vector; Training_Files : OpenAI.Models.TuneTrainingFile_Type_Vectors.Vector; Updated_At : OpenAPI.Nullable_Integer; end record; procedure Serialize (Into : in out OpenAPI.Streams.Output_Stream'Class; Name : in String; Value : in OpenAI.Models.GetFineTuneResponse_Type); procedure Deserialize (From : in OpenAPI.Value_Type; Name : in String; Value : out OpenAI.Models.GetFineTuneResponse_Type); end OpenAI.Models;