TokenStack Derived Type

3-Clause BSD
11 statements
Source File

type, public :: TokenStack

Contents

Variables

tokens top_index

Type-Bound Procedures

Construct Finalize IsEmpty Pop Push TopToken

Components

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

Type-Bound Procedures

procedure, public :: Construct => Construct_TokenStack

public subroutine Construct_TokenStack(stack, N)

Arguments

Type Intent Optional Attributes Name

class(TokenStack), intent(out) :: stack

integer, intent(in) :: N

procedure, public :: Finalize => Finalize_TokenStack

public subroutine Finalize_TokenStack(stack)

Arguments

Type Intent Optional Attributes Name

class(TokenStack), intent(inout) :: stack

procedure, public :: IsEmpty => IsEmpty_TokenStack

public function IsEmpty_TokenStack(stack)

Arguments

Type Intent Optional Attributes Name

class(TokenStack) :: stack

Return Value logical

procedure, public :: Pop => Pop_TokenStack

public subroutine Pop_TokenStack(stack, tok)

Arguments

Type Intent Optional Attributes Name

class(TokenStack), intent(inout) :: stack

type(Token), intent(out) :: tok

procedure, public :: Push => Push_TokenStack

public subroutine Push_TokenStack(stack, tok)

Arguments

Type Intent Optional Attributes Name

class(TokenStack), intent(inout) :: stack

type(Token), intent(in) :: tok

procedure, public :: TopToken

public function TopToken(stack)

Arguments

Type Intent Optional Attributes Name

class(TokenStack) :: stack

Return Value type(Token)