Add forcolormap_info module and example program.

example/info.f90

@@ -0,0 +1,59 @@
+! The MIT License (MIT)
+!
+! Copyright (c) 2023 gha3mi
+!
+! Permission is hereby granted, free of charge, to any person obtaining a copy
+! of this software and associated documentation files (the "Software"), to deal
+! in the Software without restriction, including without limitation the rights
+! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+! copies of the Software, and to permit persons to whom the Software is
+! furnished to do so, subject to the following conditions:
+!
+! The above copyright notice and this permission notice shall be included in all
+! copies or substantial portions of the Software.
+!
+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+! SOFTWARE.
+!-------------------------------------------------------------------------------
+! Contributed by gha3mi: 2023-11-05
+! Last modification: gha3mi 2023-11-05
+!-------------------------------------------------------------------------------
+
+program print_info
+ use forcolormap_info, only: Colormaps_info
+ implicit none
+
+ type(Colormaps_info) :: info
+
+ ! Set all colormap information
+ call info%set_all()
+
+ !! Print all colormap information using default verbosity (level 1)
+ ! verbose: 1 (default) prints a table , 2 prints a box, 3 prints the name
+ call info%print()
+
+
+
+ !! Filter and print colormap information
+ !! Available filters: name, family, gradient, palette, author, license, levels
+
+ ! Filter by gradient using default verbosity (level 1)
+ call info%print(gradient='Sequential', palette='Continuous')
+
+ ! Filter by gradient and palette using default verbosity (level 1)
+ call info%print(gradient='Sequential', palette='Continuous')
+
+ ! Filter by family and palette using verbosity level 2
+ call info%print(family='vik', gradient='Diverging', palette='Continuous', verbose=2)
+
+
+ ! Deallocate all colormap information
+ call info%finalize()
+
+ end program print_info
+

fpm.toml

@@ -27,6 +27,11 @@ name = "example1"
 source-dir = "example"
 main = "example1.f90"
 
+[[example]]
+name = "info"
+source-dir = "example"
+main = "info.f90"
+
 [build]
 auto-executables = true
 auto-tests = true