Console_ Derived Type

type, public :: Console_

It is inspired by the console of Javascript.

Components

Type	Visibility	Attributes		Name		Initial
character(len=:),	public,	allocatable	::	line

Type-Bound Procedures

procedure, public :: log => logConsole

Similar to console.log() in Javascript.

public subroutine logConsole(obj, line)

Arguments

Type	Intent	Optional	Attributes		Name
class(Console_),	intent(inout)			::	obj
character(len=*),	intent(in)			::	line

procedure, public :: write => logConsole

public subroutine logConsole(obj, line)

Arguments

Type	Intent	Optional	Attributes		Name
class(Console_),	intent(inout)			::	obj
character(len=*),	intent(in)			::	line

procedure, public :: writeLine => logConsole

public subroutine logConsole(obj, line)

Arguments

Type	Intent	Optional	Attributes		Name
class(Console_),	intent(inout)			::	obj
character(len=*),	intent(in)			::	line

procedure, public :: read => readConsole

public subroutine readConsole(obj)

Arguments

Type	Intent	Optional	Attributes		Name
class(Console_),	intent(inout)			::	obj

procedure, public :: readLine => readLineConsole

public function readLineConsole(obj) result(line)

Arguments

Type	Intent	Optional	Attributes		Name
class(Console_),	intent(inout)			::	obj

Return Value character(len=:), allocatable

procedure, public :: argument => argumentConsole

public function argumentConsole(obj) result(cmd_arg)

Arguments

Type	Intent	Optional	Attributes		Name
class(Console_),	intent(inout)			::	obj

Return Value character(len=:), allocatable

procedure, public :: in => inConsole

public function inConsole(obj, word) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
class(Console_),	intent(inout)			::	obj
character(len=*),	intent(in)			::	word

Return Value logical

procedure, public :: asInt => asIntConsole

public function asIntConsole(obj) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
class(Console_),	intent(inout)			::	obj

Return Value integer(kind=int32)

procedure, public :: asInteger => asIntConsole

public function asIntConsole(obj) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
class(Console_),	intent(inout)			::	obj

Return Value integer(kind=int32)

procedure, public :: as_Int => asIntConsole

public function asIntConsole(obj) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
class(Console_),	intent(inout)			::	obj

Return Value integer(kind=int32)

procedure, public :: as_Integer => asIntConsole

public function asIntConsole(obj) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
class(Console_),	intent(inout)			::	obj

Return Value integer(kind=int32)

procedure, public :: asReal => asRealConsole

public function asRealConsole(obj) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
class(Console_),	intent(inout)			::	obj

Return Value real(kind=real64)

procedure, public :: as_Real => asRealConsole

public function asRealConsole(obj) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
class(Console_),	intent(inout)			::	obj

Return Value real(kind=real64)

procedure, public :: asFloat => asRealConsole

public function asRealConsole(obj) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
class(Console_),	intent(inout)			::	obj

Return Value real(kind=real64)

procedure, public :: as_Float => asRealConsole

public function asRealConsole(obj) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
class(Console_),	intent(inout)			::	obj

Return Value real(kind=real64)

procedure, public :: asDouble => asRealConsole

public function asRealConsole(obj) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
class(Console_),	intent(inout)			::	obj

Return Value real(kind=real64)

procedure, public :: as_Double => asRealConsole

public function asRealConsole(obj) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
class(Console_),	intent(inout)			::	obj

Return Value real(kind=real64)

procedure, public :: asChar => asCharConsole

public function asCharConsole(obj) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
class(Console_),	intent(inout)			::	obj

Return Value character(len=:), allocatable