fix: use preprocessor to avoid -Wunused-function warning

gha3mi · gha3mi · commit 127ff47cfe2f · 2025-07-22T12:57:27.000+02:00
diff --git a/src/lib/face.F90 b/src/lib/face.F90
@@ -133,6 +133,7 @@ subroutine styles_samples()
    enddo
    endsubroutine styles_samples
 
+#if defined ASCII_SUPPORTED && defined ASCII_NEQ_DEFAULT
    ! private procedures
    pure function colorize_ascii(string, color_fg, color_bg, style) result(colorized)
    !< Colorize and stylize strings, ASCII kind.
@@ -173,7 +174,7 @@ pure function colorize_ascii(string, color_fg, color_bg, style) result(colorized
       endif
    endif
    endfunction colorize_ascii
-
+#else
    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.
@@ -197,7 +198,8 @@ pure function colorize_default(string, color_fg, color_bg, style) result(coloriz
       if (i>0) colorized = CODE_START//trim(STYLES(2, i))//CODE_END//colorized//CODE_CLEAR
    endif
    endfunction colorize_default
-
+#endif
+#ifdef UCS4_SUPPORTED
    pure function colorize_ucs4(string, color_fg, color_bg, style) result(colorized)
    !< Colorize and stylize strings, UCS4 kind.
    character(len=*, kind=UCS4), intent(in)           :: string    !< Input string.
@@ -237,7 +239,7 @@ pure function colorize_ucs4(string, color_fg, color_bg, style) result(colorized)
       endif
    endif
    endfunction colorize_ucs4
-
+#endif
    elemental function color_index(color)
    !< Return the array-index corresponding to the queried color.
    !<
