Translation – ForOpenAI

type, public, extends(openai) :: Translation

Inherits

Help

Components

Type	Visibility	Attributes		Name		Initial
character(len=:),	public,	allocatable	::	organization
character(len=:),	public,	allocatable	::	api_key
character(len=:),	public,	allocatable	::	file_name
character(len=14),	public		::	api_key_env	=	'OPENAI_API_KEY'
character(len=10),	public		::	organization_env	=	'OPENAI_ORG'
character(len=:),	public,	allocatable	::	url
character(len=:),	public,	allocatable	::	model
character(len=:),	public,	allocatable	::	prompt
character(len=:),	public,	allocatable	::	file
character(len=:),	public,	allocatable	::	assistant_response
character(len=4),	public		::	response_format	=	'json'
real,	public		::	temperature	=	0.0

Type-Bound Procedures

procedure, public :: load_base_data

private impure elemental subroutine load_base_data(this, file_name)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(openai),	intent(inout)			::	this
character(len=*),	intent(in)			::	file_name

procedure, public :: print_api_key

private impure elemental subroutine print_api_key(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(openai),	intent(inout)			::	this

procedure, public :: print_organization

private impure elemental subroutine print_organization(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(openai),	intent(inout)			::	this

procedure, public :: print_file_name

private impure elemental subroutine print_file_name(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(openai),	intent(inout)			::	this

procedure, public :: set_file_name

private pure elemental subroutine set_file_name(this, file_name)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(openai),	intent(inout)			::	this
character(len=*),	intent(in)			::	file_name

procedure, public :: set_base_data

private impure elemental subroutine set_base_data(this, file_name, api_key, organization)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional		Name
class(openai),	intent(inout)		::	this
character(len=*),	intent(in),	optional	::	file_name
character(len=*),	intent(in),	optional	::	api_key
character(len=*),	intent(in),	optional	::	organization

procedure, public :: create => create_translation

private impure elemental subroutine create_translation(this, file, prompt)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional		Name
class(Translation),	intent(inout)		::	this
character(len=*),	intent(in)		::	file
character(len=*),	intent(in),	optional	::	prompt

procedure, private :: deallocate_url

private pure elemental subroutine deallocate_url(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this

procedure, private :: deallocate_model

private pure elemental subroutine deallocate_model(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this

procedure, private :: deallocate_prompt

private pure elemental subroutine deallocate_prompt(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this

procedure, private :: deallocate_file

private pure elemental subroutine deallocate_file(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this

procedure, private :: deallocate_assistant_response

private pure elemental subroutine deallocate_assistant_response(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this

procedure, public :: finalize => deallocate_Translation

private pure elemental subroutine deallocate_Translation(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this

procedure, private :: load => load_Translation_data

private impure elemental subroutine load_Translation_data(this, file_name)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this
character(len=*),	intent(in)			::	file_name

procedure, private :: load_url

private impure elemental subroutine load_url(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this

procedure, private :: load_model

private impure elemental subroutine load_model(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this

procedure, private :: load_temperature

private impure elemental subroutine load_temperature(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this

procedure, private :: load_response_format

private impure elemental subroutine load_response_format(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this

procedure, private :: print_model

private impure elemental subroutine print_model(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this

procedure, private :: print_temperature

private impure elemental subroutine print_temperature(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this

procedure, private :: print_response_format

private impure elemental subroutine print_response_format(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this

procedure, private :: print_prompt

private impure elemental subroutine print_prompt(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this

procedure, public :: print_assistant_response

private impure elemental subroutine print_assistant_response(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this

procedure, public :: print_file

private impure elemental subroutine print_file(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this

procedure, private :: set_assistant_response

private pure elemental subroutine set_assistant_response(this, assistant_response)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this
character(len=*),	intent(in)			::	assistant_response

procedure, private :: set_prompt

private pure elemental subroutine set_prompt(this, prompt)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this
character(len=*),	intent(in)			::	prompt

procedure, private :: set_url

private pure elemental subroutine set_url(this, url)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this
character(len=*),	intent(in)			::	url

procedure, private :: set_model

private pure elemental subroutine set_model(this, model)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this
character(len=*),	intent(in)			::	model

procedure, private :: set_temperature

private pure elemental subroutine set_temperature(this, temperature)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this
real,	intent(in)			::	temperature

procedure, private :: set_response_format

private pure elemental subroutine set_response_format(this, response_format)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this
character(len=*),	intent(in)			::	response_format

procedure, private :: set_file

private pure elemental subroutine set_file(this, file)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Translation),	intent(inout)			::	this
character(len=*),	intent(in)			::	file

procedure, public :: set => set_Translation_data

private impure elemental subroutine set_Translation_data(this, file_name, url, model, temperature, response_format)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional		Name
class(Translation),	intent(inout)		::	this
character(len=*),	intent(in),	optional	::	file_name
character(len=*),	intent(in),	optional	::	url
character(len=*),	intent(in),	optional	::	model
real,	intent(in),	optional	::	temperature
character(len=*),	intent(in),	optional	::	response_format

Source Code

   type, extends(openai) :: Translation
      character(len=:), allocatable :: url
      character(len=:), allocatable :: model
      character(len=:), allocatable :: prompt
      character(len=:), allocatable :: file
      character(len=:), allocatable :: assistant_response
      character(len=4)              :: response_format='json'
      real                          :: temperature=0.0
   contains
      procedure :: create => create_translation
      procedure, private :: deallocate_url
      procedure, private :: deallocate_model
      procedure, private :: deallocate_prompt
      procedure, private :: deallocate_file
      procedure, private :: deallocate_assistant_response
      procedure :: finalize => deallocate_Translation
      procedure, private :: load => load_Translation_data
      procedure, private :: load_url
      procedure, private :: load_model
      procedure, private :: load_temperature
      procedure, private :: load_response_format
      procedure, private :: print_model
      procedure, private :: print_temperature
      procedure, private :: print_response_format
      procedure, private :: print_prompt
      procedure :: print_assistant_response
      procedure :: print_file
      procedure, private :: set_assistant_response
      procedure, private :: set_prompt
      procedure, private :: set_url
      procedure, private :: set_model
      procedure, private :: set_temperature
      procedure, private :: set_response_format
      procedure, private :: set_file
      procedure :: set => set_Translation_data
   end type Translation

Translation Derived Type

Contents

Variables

Type-Bound Procedures

Source Code

type, public, extends(openai) :: Translation

Inherits

Components

Type-Bound Procedures

procedure, public :: load_base_data

private impure elemental subroutine load_base_data(this, file_name)

Arguments

procedure, public :: print_api_key

private impure elemental subroutine print_api_key(this)

Arguments

procedure, public :: print_organization

private impure elemental subroutine print_organization(this)

Arguments

procedure, public :: print_file_name

private impure elemental subroutine print_file_name(this)

Arguments

procedure, public :: set_file_name

private pure elemental subroutine set_file_name(this, file_name)

Arguments

procedure, public :: set_base_data

private impure elemental subroutine set_base_data(this, file_name, api_key, organization)

Arguments

procedure, public :: create => create_translation

private impure elemental subroutine create_translation(this, file, prompt)

Arguments

procedure, private :: deallocate_url

private pure elemental subroutine deallocate_url(this)

Arguments

procedure, private :: deallocate_model

private pure elemental subroutine deallocate_model(this)

Arguments

procedure, private :: deallocate_prompt

private pure elemental subroutine deallocate_prompt(this)

Arguments

procedure, private :: deallocate_file

private pure elemental subroutine deallocate_file(this)

Arguments

procedure, private :: deallocate_assistant_response

private pure elemental subroutine deallocate_assistant_response(this)

Arguments

procedure, public :: finalize => deallocate_Translation

private pure elemental subroutine deallocate_Translation(this)

Arguments

procedure, private :: load => load_Translation_data

private impure elemental subroutine load_Translation_data(this, file_name)

Arguments

procedure, private :: load_url

private impure elemental subroutine load_url(this)

Arguments

procedure, private :: load_model

private impure elemental subroutine load_model(this)

Arguments

procedure, private :: load_temperature

private impure elemental subroutine load_temperature(this)

Arguments

procedure, private :: load_response_format

private impure elemental subroutine load_response_format(this)

Arguments

procedure, private :: print_model

private impure elemental subroutine print_model(this)

Arguments

procedure, private :: print_temperature

private impure elemental subroutine print_temperature(this)

Arguments

procedure, private :: print_response_format

private impure elemental subroutine print_response_format(this)

Arguments

procedure, private :: print_prompt

private impure elemental subroutine print_prompt(this)

Arguments

procedure, public :: print_assistant_response

private impure elemental subroutine print_assistant_response(this)

Arguments

procedure, public :: print_file

private impure elemental subroutine print_file(this)