forgex_syntax_tree_error_m Module


Variables

Type Visibility Attributes Name Initial
character(len=*), public, parameter :: err_generic = "ERROR: Pattern includes some syntax error."
character(len=*), public, parameter :: err_invalid_range = "ERROR: Given range is invalid."
character(len=*), public, parameter :: err_is_nothing = "Given pattern is valid."
character(len=*), public, parameter :: err_r_bracket_missing = "ERROR: Closing square bracket is expected."
character(len=*), public, parameter :: err_r_bracket_unexpected = "ERROR: Unexpected closing square bracket error."
character(len=*), public, parameter :: err_r_curlybrace_missing = "ERROR: Closing right curlybrace is expected."
character(len=*), public, parameter :: err_r_curlybrace_unexpected = "ERROR: Unexpected closing right curlybrace error."
character(len=*), public, parameter :: err_r_parenthesis_missing = "ERROR: Closing parenthesis is expected."
character(len=*), public, parameter :: err_r_parenthesis_unexpected = "ERROR: Unexpected closing parenthesis error."

Enumerations

enum, bind(c)

Enumerators

enumerator:: SYNTAX_VALID = 0
enumerator:: SYNTAX_ERR = 1
enumerator:: SYNTAX_ERR_PARENTHESIS_MISSING = 2
enumerator:: SYNTAX_ERR_PARENTHESIS_UNEXPECTED = 3
enumerator:: SYNTAX_ERR_BRACKET_MISSING = 4
enumerator:: SYNTAX_ERR_BRACKET_UNEXPECTED = 5
enumerator:: SYNTAX_ERR_CURLYBRACE_MISSING = 6
enumerator:: SYNTAX_ERR_CURLYBRACE_UNEXPECTED = 7
enumerator:: SYNTAX_ERR_INVALID_RANGE = 8

Functions

public pure function get_error_message(code) result(msg)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: code

Return Value character(len=:), allocatable