color_index Function

private elemental function color_index(color)

Return the array-index corresponding to the queried color.

Note

Because Foreground and backround colors lists share the same name, no matter what array is used to find the color index. Thus, the foreground array is used.

Arguments

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

Color definition.

Return Value integer(kind=int32)

Index into the colors arrays.


Called by

proc~~color_index~~CalledByGraph proc~color_index face::color_index proc~colorize_ascii face::colorize_ascii proc~colorize_ascii->proc~color_index proc~colorize_default face::colorize_default proc~colorize_default->proc~color_index proc~colorize_ucs4 face::colorize_ucs4 proc~colorize_ucs4->proc~color_index interface~colorize face::colorize interface~colorize->proc~colorize_default proc~colors_samples face::colors_samples proc~colors_samples->interface~colorize proc~errored flap_command_line_arguments_group_t::command_line_arguments_group%errored proc~errored->interface~colorize proc~errored~2 flap_command_line_argument_t::command_line_argument%errored proc~errored~2->interface~colorize proc~errored~3 flap_command_line_interface_t::command_line_interface%errored proc~errored~3->interface~colorize proc~styles_samples face::styles_samples proc~styles_samples->interface~colorize proc~usage~2 flap_command_line_argument_t::command_line_argument%usage proc~usage~2->interface~colorize program~face_test_colors face_test_colors program~face_test_colors->interface~colorize program~face_test_styles face_test_styles program~face_test_styles->interface~colorize proc~check flap_command_line_arguments_group_t::command_line_arguments_group%check proc~check->proc~errored proc~check_action_consistency flap_command_line_argument_t::command_line_argument%check_action_consistency proc~check_action_consistency->proc~errored~2 proc~check_choices flap_command_line_argument_t::command_line_argument%check_choices proc~check_choices->proc~errored~2 proc~check_envvar_consistency flap_command_line_argument_t::command_line_argument%check_envvar_consistency proc~check_envvar_consistency->proc~errored~2 proc~check_list_size flap_command_line_argument_t::command_line_argument%check_list_size proc~check_list_size->proc~errored~2 proc~check_m_exclude_consistency flap_command_line_argument_t::command_line_argument%check_m_exclude_consistency proc~check_m_exclude_consistency->proc~errored~2 proc~check_named_consistency flap_command_line_argument_t::command_line_argument%check_named_consistency proc~check_named_consistency->proc~errored~2 proc~check_optional_consistency flap_command_line_argument_t::command_line_argument%check_optional_consistency proc~check_optional_consistency->proc~errored~2 proc~check_positional_consistency flap_command_line_argument_t::command_line_argument%check_positional_consistency proc~check_positional_consistency->proc~errored~2 proc~get_cla flap_command_line_argument_t::command_line_argument%get_cla proc~get_cla->proc~errored~2 proc~get_cla->proc~check_choices proc~get_cla_from_buffer flap_command_line_argument_t::command_line_argument%get_cla_from_buffer proc~get_cla->proc~get_cla_from_buffer proc~is_required_passed~2 flap_command_line_argument_t::command_line_argument%is_required_passed proc~get_cla->proc~is_required_passed~2 proc~get_cla_from_buffer->proc~errored~2 proc~get_cla_list flap_command_line_argument_t::command_line_argument%get_cla_list proc~get_cla_list->proc~errored~2 proc~get_cla_list_from_buffer flap_command_line_argument_t::command_line_argument%get_cla_list_from_buffer proc~get_cla_list->proc~get_cla_list_from_buffer proc~get_cla_list->proc~is_required_passed~2 proc~get_cla_list_from_buffer->proc~errored~2 proc~get_cla_list_from_buffer->proc~check_choices proc~get_cla_list_varying_char flap_command_line_argument_t::command_line_argument%get_cla_list_varying_char proc~get_cla_list_varying_char->proc~errored~2 proc~get_cla_list_varying_char->proc~check_list_size proc~get_cla_list_varying_char->proc~is_required_passed~2 proc~get_cla_list_varying_char~2 flap_command_line_interface_t::command_line_interface%get_cla_list_varying_char proc~get_cla_list_varying_char~2->proc~errored~3 none~get_varying flap_command_line_argument_t::command_line_argument%get_varying proc~get_cla_list_varying_char~2->none~get_varying proc~parse~2 flap_command_line_interface_t::command_line_interface%parse proc~get_cla_list_varying_char~2->proc~parse~2 proc~get_cla_list_varying_i1p flap_command_line_argument_t::command_line_argument%get_cla_list_varying_I1P proc~get_cla_list_varying_i1p->proc~errored~2 proc~get_cla_list_varying_i1p->proc~check_list_size proc~get_cla_list_varying_i1p->proc~is_required_passed~2 proc~get_cla_list_varying_i1p~2 flap_command_line_interface_t::command_line_interface%get_cla_list_varying_I1P proc~get_cla_list_varying_i1p~2->proc~errored~3 proc~get_cla_list_varying_i1p~2->none~get_varying proc~get_cla_list_varying_i1p~2->proc~parse~2 proc~get_cla_list_varying_i2p flap_command_line_argument_t::command_line_argument%get_cla_list_varying_I2P proc~get_cla_list_varying_i2p->proc~errored~2 proc~get_cla_list_varying_i2p->proc~check_list_size proc~get_cla_list_varying_i2p->proc~is_required_passed~2 proc~get_cla_list_varying_i2p~2 flap_command_line_interface_t::command_line_interface%get_cla_list_varying_I2P proc~get_cla_list_varying_i2p~2->proc~errored~3 proc~get_cla_list_varying_i2p~2->none~get_varying proc~get_cla_list_varying_i2p~2->proc~parse~2 proc~get_cla_list_varying_i4p flap_command_line_argument_t::command_line_argument%get_cla_list_varying_I4P proc~get_cla_list_varying_i4p->proc~errored~2 proc~get_cla_list_varying_i4p->proc~check_list_size proc~get_cla_list_varying_i4p->proc~is_required_passed~2 proc~get_cla_list_varying_i4p~2 flap_command_line_interface_t::command_line_interface%get_cla_list_varying_I4P proc~get_cla_list_varying_i4p~2->proc~errored~3 proc~get_cla_list_varying_i4p~2->none~get_varying proc~get_cla_list_varying_i4p~2->proc~parse~2 proc~get_cla_list_varying_i8p flap_command_line_argument_t::command_line_argument%get_cla_list_varying_I8P proc~get_cla_list_varying_i8p->proc~errored~2 proc~get_cla_list_varying_i8p->proc~check_list_size proc~get_cla_list_varying_i8p->proc~is_required_passed~2 proc~get_cla_list_varying_i8p~2 flap_command_line_interface_t::command_line_interface%get_cla_list_varying_I8P proc~get_cla_list_varying_i8p~2->proc~errored~3 proc~get_cla_list_varying_i8p~2->none~get_varying proc~get_cla_list_varying_i8p~2->proc~parse~2 proc~get_cla_list_varying_logical flap_command_line_argument_t::command_line_argument%get_cla_list_varying_logical proc~get_cla_list_varying_logical->proc~errored~2 proc~get_cla_list_varying_logical->proc~check_list_size proc~get_cla_list_varying_logical->proc~is_required_passed~2 proc~get_cla_list_varying_logical~2 flap_command_line_interface_t::command_line_interface%get_cla_list_varying_logical proc~get_cla_list_varying_logical~2->proc~errored~3 proc~get_cla_list_varying_logical~2->none~get_varying proc~get_cla_list_varying_logical~2->proc~parse~2 proc~get_cla_list_varying_r16p flap_command_line_argument_t::command_line_argument%get_cla_list_varying_R16P proc~get_cla_list_varying_r16p->proc~errored~2 proc~get_cla_list_varying_r16p->proc~check_list_size proc~get_cla_list_varying_r16p->proc~is_required_passed~2 proc~get_cla_list_varying_r16p~2 flap_command_line_interface_t::command_line_interface%get_cla_list_varying_R16P proc~get_cla_list_varying_r16p~2->proc~errored~3 proc~get_cla_list_varying_r16p~2->none~get_varying proc~get_cla_list_varying_r16p~2->proc~parse~2 proc~get_cla_list_varying_r4p flap_command_line_argument_t::command_line_argument%get_cla_list_varying_R4P proc~get_cla_list_varying_r4p->proc~errored~2 proc~get_cla_list_varying_r4p->proc~check_list_size proc~get_cla_list_varying_r4p->proc~is_required_passed~2 proc~get_cla_list_varying_r4p~2 flap_command_line_interface_t::command_line_interface%get_cla_list_varying_R4P proc~get_cla_list_varying_r4p~2->proc~errored~3 proc~get_cla_list_varying_r4p~2->none~get_varying proc~get_cla_list_varying_r4p~2->proc~parse~2 proc~get_cla_list_varying_r8p flap_command_line_argument_t::command_line_argument%get_cla_list_varying_R8P proc~get_cla_list_varying_r8p->proc~errored~2 proc~get_cla_list_varying_r8p->proc~check_list_size proc~get_cla_list_varying_r8p->proc~is_required_passed~2 proc~get_cla_list_varying_r8p~2 flap_command_line_interface_t::command_line_interface%get_cla_list_varying_R8P proc~get_cla_list_varying_r8p~2->proc~errored~3 proc~get_cla_list_varying_r8p~2->none~get_varying proc~get_cla_list_varying_r8p~2->proc~parse~2 proc~get_cla_list~2 flap_command_line_interface_t::command_line_interface%get_cla_list proc~get_cla_list~2->proc~errored~3 none~get flap_command_line_argument_t::command_line_argument%get proc~get_cla_list~2->none~get proc~get_cla_list~2->proc~parse~2 proc~get_cla~2 flap_command_line_interface_t::command_line_interface%get_cla proc~get_cla~2->proc~errored~3 proc~get_cla~2->none~get proc~get_cla~2->proc~parse~2 proc~is_required_passed~2->proc~errored~2 proc~is_required_val_passed flap_command_line_argument_t::is_required_val_passed proc~is_required_val_passed->proc~errored~2 proc~raise_error_duplicated_clas flap_command_line_argument_t::command_line_argument%raise_error_duplicated_clas proc~raise_error_duplicated_clas->proc~errored~2 proc~raise_error_m_exclude flap_command_line_arguments_group_t::command_line_arguments_group%raise_error_m_exclude proc~raise_error_m_exclude->proc~errored proc~raise_error_m_exclude~2 flap_command_line_argument_t::command_line_argument%raise_error_m_exclude proc~raise_error_m_exclude~2->proc~errored~2 proc~raise_error_nargs_insufficient flap_command_line_argument_t::command_line_argument%raise_error_nargs_insufficient proc~raise_error_nargs_insufficient->proc~errored~2 proc~raise_error_switch_unknown flap_command_line_argument_t::command_line_argument%raise_error_switch_unknown proc~raise_error_switch_unknown->proc~errored~2 proc~raise_error_value_missing flap_command_line_argument_t::command_line_argument%raise_error_value_missing proc~raise_error_value_missing->proc~errored~2 proc~usage flap_command_line_arguments_group_t::command_line_arguments_group%usage proc~usage->proc~usage~2 program~face_test_basic face_test_basic program~face_test_basic->proc~colors_samples program~face_test_basic->proc~styles_samples none~get->proc~get_cla none~get->proc~get_cla_list none~get_varying->proc~get_cla_list_varying_char none~get_varying->proc~get_cla_list_varying_i1p none~get_varying->proc~get_cla_list_varying_i2p none~get_varying->proc~get_cla_list_varying_i4p none~get_varying->proc~get_cla_list_varying_i8p none~get_varying->proc~get_cla_list_varying_logical none~get_varying->proc~get_cla_list_varying_r4p none~get_varying->proc~get_cla_list_varying_r8p none~get_varying~2 flap_command_line_interface_t::command_line_interface%get_varying none~get_varying~2->proc~get_cla_list_varying_char~2 none~get_varying~2->proc~get_cla_list_varying_i1p~2 none~get_varying~2->proc~get_cla_list_varying_i2p~2 none~get_varying~2->proc~get_cla_list_varying_i4p~2 none~get_varying~2->proc~get_cla_list_varying_i8p~2 none~get_varying~2->proc~get_cla_list_varying_logical~2 none~get_varying~2->proc~get_cla_list_varying_r4p~2 none~get_varying~2->proc~get_cla_list_varying_r8p~2 none~get~2 flap_command_line_interface_t::command_line_interface%get none~get~2->proc~get_cla_list~2 none~get~2->proc~get_cla~2 proc~add flap_command_line_arguments_group_t::command_line_arguments_group%add proc~add->proc~check proc~check_m_exclusive flap_command_line_arguments_group_t::command_line_arguments_group%check_m_exclusive proc~check_m_exclusive->proc~raise_error_m_exclude~2 proc~check_m_exclusive~2 flap_command_line_interface_t::command_line_interface%check_m_exclusive proc~check_m_exclusive~2->proc~raise_error_m_exclude proc~check~2 flap_command_line_argument_t::command_line_argument%check proc~check~2->proc~check_action_consistency proc~check~2->proc~check_envvar_consistency proc~check~2->proc~check_m_exclude_consistency proc~check~2->proc~check_named_consistency proc~check~2->proc~check_optional_consistency proc~check~2->proc~check_positional_consistency proc~check~3 flap_command_line_interface_t::command_line_interface%check proc~check~3->proc~check proc~is_required_passed flap_command_line_arguments_group_t::command_line_arguments_group%is_required_passed proc~is_required_passed->proc~is_required_passed~2 proc~is_required_passed->proc~usage proc~parse flap_command_line_arguments_group_t::command_line_arguments_group%parse proc~parse->proc~raise_error_duplicated_clas proc~parse->proc~raise_error_nargs_insufficient proc~parse->proc~raise_error_switch_unknown proc~parse->proc~raise_error_value_missing proc~parse->proc~add proc~parse->proc~check_m_exclusive proc~usage~3 flap_command_line_interface_t::command_line_interface%usage proc~usage~3->proc~usage proc~add~2 flap_command_line_interface_t::command_line_interface%add proc~add~2->proc~add proc~add~2->proc~check~2 proc~fake_call flap_test_group::fake_call proc~fake_call->none~get~2 proc~fake_call->proc~add~2 proc~fake_call->proc~parse~2 proc~parse~2->proc~check_m_exclusive~2 proc~parse~2->proc~check~3 proc~parse~2->proc~is_required_passed proc~parse~2->proc~parse proc~parse~2->proc~usage~3 proc~parse~2->proc~add~2 proc~save_usage_to_markdown flap_command_line_interface_t::command_line_interface%save_usage_to_markdown proc~parse~2->proc~save_usage_to_markdown proc~print_usage flap_command_line_interface_t::command_line_interface%print_usage proc~print_usage->proc~usage~3 proc~save_man_page flap_command_line_interface_t::command_line_interface%save_man_page proc~save_man_page->proc~usage~3 proc~save_usage_to_markdown->proc~usage~3 program~flap_save_man_page flap_save_man_page program~flap_save_man_page->none~get~2 program~flap_save_man_page->proc~add~2 program~flap_save_man_page->proc~save_man_page program~flap_save_usage_to_markdown flap_save_usage_to_markdown program~flap_save_usage_to_markdown->none~get~2 program~flap_save_usage_to_markdown->proc~add~2 program~flap_save_usage_to_markdown->proc~save_usage_to_markdown program~flap_test_action_store flap_test_action_store program~flap_test_action_store->none~get_varying~2 program~flap_test_action_store->none~get~2 program~flap_test_action_store->proc~add~2 program~flap_test_ansi_color_style flap_test_ansi_color_style program~flap_test_ansi_color_style->none~get~2 program~flap_test_ansi_color_style->proc~add~2 program~flap_test_basic flap_test_basic program~flap_test_basic->none~get_varying~2 program~flap_test_basic->none~get~2 program~flap_test_basic->proc~add~2 program~flap_test_basic->proc~parse~2 program~flap_test_basic->proc~save_man_page program~flap_test_choices_logical flap_test_choices_logical program~flap_test_choices_logical->none~get~2 program~flap_test_choices_logical->proc~add~2 program~flap_test_choices_logical->proc~parse~2 program~flap_test_duplicated_clas flap_test_duplicated_clas program~flap_test_duplicated_clas->none~get~2 program~flap_test_duplicated_clas->proc~add~2 program~flap_test_group_examples flap_test_group_examples program~flap_test_group_examples->none~get~2 program~flap_test_group_examples->proc~add~2 program~flap_test_hidden flap_test_hidden program~flap_test_hidden->none~get~2 program~flap_test_hidden->proc~add~2 program~flap_test_ignore_unknown_clas flap_test_ignore_unknown_clas program~flap_test_ignore_unknown_clas->none~get~2 program~flap_test_ignore_unknown_clas->proc~add~2 program~flap_test_minimal flap_test_minimal program~flap_test_minimal->none~get~2 program~flap_test_minimal->proc~add~2 program~flap_test_nargs_insufficient flap_test_nargs_insufficient program~flap_test_nargs_insufficient->none~get~2 program~flap_test_nargs_insufficient->proc~add~2 program~flap_test_nargs_insufficient~2 flap_test_nargs_insufficient program~flap_test_nargs_insufficient~2->none~get~2 program~flap_test_nargs_insufficient~2->proc~add~2 program~flap_test_nested flap_test_nested program~flap_test_nested->none~get~2 program~flap_test_nested->proc~add~2 program~flap_test_nested->proc~parse~2 program~flap_test_string flap_test_string program~flap_test_string->none~get~2 program~flap_test_string->proc~add~2 program~flap_test_string->proc~parse~2 program~flap_save_bash_completion flap_save_bash_completion program~flap_save_bash_completion->proc~add~2 program~flap_save_bash_completion->proc~parse~2 program~flap_test_group flap_test_group program~flap_test_group->proc~fake_call

Source Code

   elemental function color_index(color)
   !< Return the array-index corresponding to the queried color.
   !<
   !< @note Because Foreground and backround colors lists share the same name, no matter what array is used to find the color index.
   !< Thus, the foreground array is used.
   character(len=*), intent(in) :: color       !< Color definition.
   integer(int32)               :: color_index !< Index into the colors arrays.
   integer(int32)               :: c           !< Counter.

   color_index = 0
   do c=1, size(COLORS_FG, dim=2)
      if (trim(COLORS_FG(1, c))==trim(adjustl(color))) then
         color_index = c
         exit
      endif
   enddo
   endfunction color_index