forgex_cli_utils_m Module


Uses


Interfaces

public interface operator(.in.)

  • private pure function does_flag_exist(arg, flag_list) result(res)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: arg
    type(flag_t), intent(in) :: flag_list(:)

    Return Value logical

  • private pure function does_command_exist(arg, cmd_list) result(res)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: arg
    character(len=LEN_CMD), intent(in) :: cmd_list(:)

    Return Value logical

  • private pure function does_command_exist_type_cmd(arg, cmd_list) result(res)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: arg
    type(cmd_t), intent(in) :: cmd_list(:)

    Return Value logical

  • private function is_arg_contained_in_flags(arg, flags) result(res)

    Arguments

    Type IntentOptional Attributes Name
    type(arg_element_t), intent(in) :: arg
    type(flag_t), intent(in) :: flags(:)

    Return Value logical


Functions

public function get_flag_index(arg, flags) result(res)

Arguments

Type IntentOptional Attributes Name
type(arg_element_t), intent(in) :: arg
type(flag_t), intent(in) :: flags(:)

Return Value integer

public function get_os_type() result(res)

Read more…

Arguments

None

Return Value integer

public function text_highlight_green(string, from, to) result(res)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: string
integer(kind=int32), intent(in) :: from
integer(kind=int32), intent(in) :: to

Return Value character(len=:), allocatable

private pure function does_command_exist(arg, cmd_list) result(res)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: arg
character(len=LEN_CMD), intent(in) :: cmd_list(:)

Return Value logical

private pure function does_command_exist_type_cmd(arg, cmd_list) result(res)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: arg
type(cmd_t), intent(in) :: cmd_list(:)

Return Value logical

private pure function does_flag_exist(arg, flag_list) result(res)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: arg
type(flag_t), intent(in) :: flag_list(:)

Return Value logical

private function is_arg_contained_in_flags(arg, flags) result(res)

Arguments

Type IntentOptional Attributes Name
type(arg_element_t), intent(in) :: arg
type(flag_t), intent(in) :: flags(:)

Return Value logical


Subroutines

public subroutine get_arg_command_line(argc, arg, entire)

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(inout) :: argc
type(arg_element_t), intent(inout), allocatable :: arg(:)
character(len=:), intent(inout), allocatable :: entire

public subroutine info(str)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: str

public subroutine register_cmd(cmd, name)

Arguments

Type IntentOptional Attributes Name
type(cmd_t), intent(inout) :: cmd
character(len=*), intent(in) :: name

public subroutine register_flag(flag, name, long, short)

Arguments

Type IntentOptional Attributes Name
type(flag_t), intent(inout) :: flag
character(len=*), intent(in) :: name
character(len=*), intent(in) :: long
character(len=*), intent(in), optional :: short

public subroutine right_justify(array)

Arguments

Type IntentOptional Attributes Name
character(len=NUM_DIGIT_KEY), intent(inout) :: array(:)