Transcription – ForOpenAI

type, public, extends(openai) :: Transcription

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	::	language
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_transcription

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

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional		Name
class(Transcription),	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(Transcription),	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(Transcription),	intent(inout)			::	this

procedure, private :: deallocate_language

private pure elemental subroutine deallocate_language(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Transcription),	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(Transcription),	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(Transcription),	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(Transcription),	intent(inout)			::	this

procedure, public :: finalize => deallocate_Transcription

private pure elemental subroutine deallocate_Transcription(this)

Author: Seyed Ali Ghasemi

Arguments

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

procedure, private :: load => load_Transcription_data

private impure elemental subroutine load_Transcription_data(this, file_name)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Transcription),	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(Transcription),	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(Transcription),	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(Transcription),	intent(inout)			::	this

procedure, private :: load_language

private impure elemental subroutine load_language(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Transcription),	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(Transcription),	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(Transcription),	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(Transcription),	intent(inout)			::	this

procedure, private :: print_language

private impure elemental subroutine print_language(this)

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	Attributes		Name
class(Transcription),	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(Transcription),	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(Transcription),	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(Transcription),	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(Transcription),	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(Transcription),	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(Transcription),	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(Transcription),	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(Transcription),	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(Transcription),	intent(inout)			::	this
real,	intent(in)			::	temperature

procedure, private :: set_language

private pure elemental subroutine set_language(this, language)

Author: Seyed Ali Ghasemi

Arguments

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

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(Transcription),	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(Transcription),	intent(inout)			::	this
character(len=*),	intent(in)			::	file

procedure, public :: set => set_Transcription_data

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

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional		Name
class(Transcription),	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	::	language
character(len=*),	intent(in),	optional	::	response_format

Source Code

   type, extends(openai) :: Transcription
      character(len=:), allocatable :: url
      character(len=:), allocatable :: model
      character(len=:), allocatable :: language
      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_transcription
      procedure, private :: deallocate_url
      procedure, private :: deallocate_model
      procedure, private :: deallocate_language
      procedure, private :: deallocate_prompt
      procedure, private :: deallocate_file
      procedure, private :: deallocate_assistant_response
      procedure :: finalize => deallocate_Transcription
      procedure, private :: load => load_Transcription_data
      procedure, private :: load_url
      procedure, private :: load_model
      procedure, private :: load_temperature
      procedure, private :: load_language
      procedure, private :: load_response_format
      procedure, private :: print_model
      procedure, private :: print_temperature
      procedure, private :: print_language
      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_language
      procedure, private :: set_response_format
      procedure, private :: set_file
      procedure :: set => set_Transcription_data
   end type Transcription

Transcription Derived Type

Contents

Variables

Type-Bound Procedures

Source Code

type, public, extends(openai) :: Transcription

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_transcription

private impure elemental subroutine create_transcription(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_language

private pure elemental subroutine deallocate_language(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_Transcription

private pure elemental subroutine deallocate_Transcription(this)

Arguments

procedure, private :: load => load_Transcription_data

private impure elemental subroutine load_Transcription_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_language

private impure elemental subroutine load_language(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_language

private impure elemental subroutine print_language(this)

Arguments

procedure, private :: print_response_format

private impure elemental subroutine print_response_format(this)