face Module

  1. face.F90
  2. face

Uses

  • module~~face~4~~UsesGraph module~face~4 face iso_fortran_env iso_fortran_env module~face~4->iso_fortran_env

Contents

Variables

Interfaces

Functions

Subroutines


Variables

TypeVisibilityAttributesNameInitial
integer, public, parameter:: ASCII =selected_char_kind('default')
integer, public, parameter:: UCS4 =selected_char_kind('default')
character(len=26), private, parameter:: UPPER_ALPHABET ='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
character(len=26), private, parameter:: LOWER_ALPHABET ='abcdefghijklmnopqrstuvwxyz'
character(len=1), private, parameter:: NL =new_line('a')
character(len=1), private, parameter:: ESCAPE =achar(27)
character(len=2), private, parameter:: CODE_START =ESCAPE//'['
character(len=1), private, parameter:: CODE_END ='m'
character(len=4), private, parameter:: CODE_CLEAR =CODE_START//'0'//CODE_END
character(len=17), private, parameter:: STYLES(1:2,1:16) =reshape(['BOLD_ON          ', '1                ', 'ITALICS_ON       ', '3                ', 'UNDERLINE_ON     ', '4                ', 'INVERSE_ON       ', '7                ', 'STRIKETHROUGH_ON ', '9                ', 'BOLD_OFF         ', '22               ', 'ITALICS_OFF      ', '23               ', 'UNDERLINE_OFF    ', '24               ', 'INVERSE_OFF      ', '27               ', 'STRIKETHROUGH_OFF', '29               ', 'FRAMED_ON        ', '51               ', 'ENCIRCLED_ON     ', '52               ', 'OVERLINED_ON     ', '53               ', 'FRAMED_OFF       ', '54               ', 'ENCIRCLED_OFF    ', '54               ', 'OVERLINED_OFF    ', '55               '], [2, 16])
character(len=15), private, parameter:: COLORS_FG(1:2,1:17) =reshape(['BLACK          ', '30             ', 'RED            ', '31             ', 'GREEN          ', '32             ', 'YELLOW         ', '33             ', 'BLUE           ', '34             ', 'MAGENTA        ', '35             ', 'CYAN           ', '36             ', 'WHITE          ', '37             ', 'DEFAULT        ', '39             ', 'BLACK_INTENSE  ', '90             ', 'RED_INTENSE    ', '91             ', 'GREEN_INTENSE  ', '92             ', 'YELLOW_INTENSE ', '93             ', 'BLUE_INTENSE   ', '94             ', 'MAGENTA_INTENSE', '95             ', 'CYAN_INTENSE   ', '96             ', 'WHITE_INTENSE  ', '97             '], [2, 17])
character(len=15), private, parameter:: COLORS_BG(1:2,1:17) =reshape(['BLACK          ', '40             ', 'RED            ', '41             ', 'GREEN          ', '42             ', 'YELLOW         ', '43             ', 'BLUE           ', '44             ', 'MAGENTA        ', '45             ', 'CYAN           ', '46             ', 'WHITE          ', '47             ', 'DEFAULT        ', '49             ', 'BLACK_INTENSE  ', '100            ', 'RED_INTENSE    ', '101            ', 'GREEN_INTENSE  ', '102            ', 'YELLOW_INTENSE ', '103            ', 'BLUE_INTENSE   ', '104            ', 'MAGENTA_INTENSE', '105            ', 'CYAN_INTENSE   ', '106            ', 'WHITE_INTENSE  ', '107            '], [2, 17])

Interfaces

public interface colorize

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

    Arguments

    TypeIntentOptionalAttributesName
    character(len=*), intent(in) :: string
    character(len=*), intent(in), optional :: color_fg
    character(len=*), intent(in), optional :: color_bg
    character(len=*), intent(in), optional :: style

    Return Value character(len=:),allocatable


Functions

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

Arguments

TypeIntentOptionalAttributesName
character(kind=ASCII,len=*), intent(in) :: string
character(len=*), intent(in), optional :: color_fg
character(len=*), intent(in), optional :: color_bg
character(len=*), intent(in), optional :: style

Return Value character(kind=ASCII,len=:),allocatable

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

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: string
character(len=*), intent(in), optional :: color_fg
character(len=*), intent(in), optional :: color_bg
character(len=*), intent(in), optional :: style

Return Value character(len=:),allocatable

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

Arguments

TypeIntentOptionalAttributesName
character(kind=UCS4,len=*), intent(in) :: string
character(len=*), intent(in), optional :: color_fg
character(len=*), intent(in), optional :: color_bg
character(len=*), intent(in), optional :: style

Return Value character(kind=UCS4,len=:),allocatable

private elemental function color_index(color)

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: color

Return Value integer(kind=int32)

private elemental function style_index(style)

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: style

Return Value integer(kind=int32)

private elemental function upper(string)

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: string

Return Value character(len=len)


Subroutines

public subroutine colors_samples()

Arguments

None

public subroutine styles_samples()

Arguments

None