FEQParse_TokenStack Module

3-Clause BSD
77 statements
Source File

Uses

- iso_fortran_env

Contents

Derived Types

Token TokenStack

Functions

Copy IsEmpty_TokenStack TopToken

Subroutines

Construct_TokenStack Finalize_TokenStack Pop_TokenStack Push_TokenStack

Derived Types

type, public :: Token

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	tokenIndex
character(len=48),	public		::	tokenString
integer,	public		::	tokenType

Type-Bound Procedures

procedure, public :: Copy

type, public :: TokenStack

Components

Type	Visibility	Attributes		Name		Initial
type(Token),	public,	allocatable	::	tokens(:)
integer,	public		::	top_index	=	0

Type-Bound Procedures

procedure, public :: Construct => Construct_TokenStack
procedure, public :: Finalize => Finalize_TokenStack
procedure, public :: IsEmpty => IsEmpty_TokenStack
procedure, public :: Pop => Pop_TokenStack
procedure, public :: Push => Push_TokenStack
procedure, public :: TopToken

Functions

public function Copy(this) result(that)

Arguments

Type	Intent	Optional	Attributes		Name
class(Token)				::	this

Return Value type(Token)

public function IsEmpty_TokenStack(stack)

Arguments

Type	Intent	Optional	Attributes		Name
class(TokenStack)				::	stack

Return Value logical

public function TopToken(stack)

Arguments

Type	Intent	Optional	Attributes		Name
class(TokenStack)				::	stack

Return Value type(Token)

Subroutines

public subroutine Construct_TokenStack(stack, N)

Arguments

Type	Intent	Optional	Attributes		Name
class(TokenStack),	intent(out)			::	stack
integer,	intent(in)			::	N

public subroutine Finalize_TokenStack(stack)

Arguments

Type	Intent	Optional	Attributes		Name
class(TokenStack),	intent(inout)			::	stack

public subroutine Pop_TokenStack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(TokenStack),	intent(inout)			::	stack
type(Token),	intent(out)			::	tok

public subroutine Push_TokenStack(stack, tok)

Arguments

Type	Intent	Optional	Attributes		Name
class(TokenStack),	intent(inout)			::	stack
type(Token),	intent(in)			::	tok