colorize_default Function

private pure function colorize_default(string, color_fg, color_bg, style) result(colorized)

Colorize and stylize strings, DEFAULT kind.

Arguments

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

Input string.
character(len=*), intent(in), optional :: color_fg

Foreground color definition.
character(len=*), intent(in), optional :: color_bg

Background color definition.
character(len=*), intent(in), optional :: style

Style definition.

Return Value character(len=:), allocatable

Colorized string.


Calls

proc~~colorize_default~~CallsGraph proc~colorize_default face::colorize_default proc~color_index face::color_index proc~colorize_default->proc~color_index proc~style_index face::style_index proc~colorize_default->proc~style_index proc~upper face::upper proc~colorize_default->proc~upper

Called by

proc~~colorize_default~~CalledByGraph proc~colorize_default face::colorize_default 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

   pure function colorize_default(string, color_fg, color_bg, style) result(colorized)
   !< Colorize and stylize strings, DEFAULT kind.
   character(len=*), intent(in)           :: string    !< Input string.
   character(len=*), intent(in), optional :: color_fg  !< Foreground color definition.
   character(len=*), intent(in), optional :: color_bg  !< Background color definition.
   character(len=*), intent(in), optional :: style     !< Style definition.
   character(len=:), allocatable          :: colorized !< Colorized string.
   integer(int32)                         :: i         !< Counter.

   colorized = string
   if (present(color_fg)) then
      i = color_index(upper(color_fg))
      if (i>0) colorized = CODE_START//trim(COLORS_FG(2, i))//CODE_END//colorized//CODE_CLEAR
   endif
   if (present(color_bg)) then
      i = color_index(upper(color_bg))
      if (i>0) colorized = CODE_START//trim(COLORS_BG(2, i))//CODE_END//colorized//CODE_CLEAR
   endif
   if (present(style)) then
      i = style_index(upper(style))
      if (i>0) colorized = CODE_START//trim(STYLES(2, i))//CODE_END//colorized//CODE_CLEAR
   endif
   endfunction colorize_default