Add module for handling version information of stdlib

Author: awvwgk

CMakeLists.txt

@@ -1,9 +1,17 @@
 cmake_minimum_required(VERSION 3.14.0)
 project(fortran_stdlib
         LANGUAGES Fortran
-        VERSION 0.1.0
         DESCRIPTION "Community driven and agreed upon de facto standard library for Fortran"
 )
+
+# Read version from file
+file(STRINGS "${PROJECT_SOURCE_DIR}/VERSION" PROJECT_VERSION)
+string(REPLACE "." ";" VERSION_LIST ${PROJECT_VERSION})
+list(GET VERSION_LIST 0 PROJECT_VERSION_MAJOR)
+list(GET VERSION_LIST 1 PROJECT_VERSION_MINOR)
+list(GET VERSION_LIST 2 PROJECT_VERSION_PATCH)
+unset(VERSION_LIST)
+
 enable_testing()
 
 # Follow GNU conventions for installation directories

Makefile.manual

@@ -4,6 +4,11 @@ FC ?= gfortran
 FFLAGS ?= -Wall -Wextra -Wimplicit-interface -fPIC -g -fcheck=all
 FYPPFLAGS ?=
 
+FYPPFLAGS += \
+             -DPROJECT_VERSION_MAJOR=$(shell cut -d. -f1 VERSION) \
+             -DPROJECT_VERSION_MINOR=$(shell cut -d. -f2 VERSION) \
+             -DPROJECT_VERSION_PATCH=$(shell cut -d. -f3 VERSION)
+
 export FC
 export FFLAGS
 export FYPPFLAGS

VERSION

@@ -0,0 +1 @@
+0.1.0

ci/fpm-deployment.sh

@@ -22,6 +22,7 @@ fi
 include=(
   "ci/fpm.toml"
   "LICENSE"
+  "VERSION"
 )
 
 # Files to remove from collection

ci/fpm.toml

@@ -1,5 +1,5 @@
 name = "stdlib"
-version = "0.1.0"
+version = "VERSION"
 license = "MIT"
 author = "stdlib contributors"
 maintainer = "@fortran-lang/stdlib"

doc/specs/index.md

@@ -28,6 +28,7 @@ This is and index/directory of the specifications (specs) for each new module/fe
  - [string\_type](./stdlib_string_type.html) - Basic string support
  - [strings](./stdlib_strings.html) - String handling and manipulation routines
  - [stringlist_type](./stdlib_stringlist_type.html) - 1-Dimensional list of strings
+ - [version](./stdlib_version.html) - Version information
 
 ## Released/Stable Features & Modules
 

doc/specs/stdlib_version.md

@@ -0,0 +1,64 @@
+---
+title: Version information
+---
+
+# The `stdlib_version` module
+
+[TOC]
+
+## Introduction
+
+The `stdlib_version` module contains the version of the standard library.
+The version information an be used as compile time constant or retrieved from a getter function at runtime.
+In case the standard library is dynamically linked, the version number retrieved from the getter might mismatch the compile time constants provided from the version built against.
+Therefore, it is recommended to retrieve the version information always at runtime.
+
+
+## Constants provided by `stdlib_version`
+
+### `stdlib_version_string`
+
+String contant representing the version number.
+
+### `stdlib_version_compact`
+
+Compact representation of the version string following the scheme:
+major * 10000 + minor * 100 + patch.
+
+
+### `get_stdlib_version`
+
+#### Status
+
+Experimental
+
+#### Description
+
+Getter function to retrieve version information
+
+#### Syntax
+
+`res = [[stdlib_version(module):get_stdlib_version(function)]] ([major], [minor], [patch], [string])`
+
+#### Class
+
+Pure subroutine.
+
+#### Argument
+
+`major`: shall be an intrinsic integer type. It is an optional, `intent(out)` argument.
+`minor`: shall be an intrinsic integer type. It is an optional, `intent(out)` argument.
+`patch`: shall be an intrinsic integer type. It is an optional, `intent(out)` argument.
+`string`: shall be a deferred length character type. It is an optional, `intent(out)` argument.
+
+#### Example
+
+```fortran
+program demo_version
+    use stdlib_version, only : get_stdlib_version
+    implicit none
+    character(len=:), allocatable :: version
+    call get_stdlib_version(string=version)
+    print '(a)', version
+end program demo_to_lower
+``` 

src/CMakeLists.txt

@@ -39,6 +39,7 @@ set(fppFiles
     stdlib_string_type_constructor.fypp
     stdlib_strings_to_string.fypp
     stdlib_strings.fypp
+    stdlib_version.fypp
 )
 
 
@@ -55,6 +56,9 @@ list(
   APPEND fyppFlags
   "-DWITH_QP=$<BOOL:${WITH_QP}>"
   "-DWITH_XDP=$<BOOL:${WITH_XDP}>"
+  "-DPROJECT_VERSION_MAJOR=${PROJECT_VERSION_MAJOR}"
+  "-DPROJECT_VERSION_MINOR=${PROJECT_VERSION_MINOR}"
+  "-DPROJECT_VERSION_PATCH=${PROJECT_VERSION_PATCH}"
 )
 
 fypp_f90("${fyppFlags}" "${fppFiles}" outFiles)

src/Makefile.manual

@@ -35,7 +35,8 @@ SRCFYPP = \
         stdlib_string_type.fypp \
         stdlib_string_type_constructor.fypp \
         stdlib_strings.fypp \
-        stdlib_strings_to_string.fypp
+        stdlib_strings_to_string.fypp \
+        stdlib_version.fypp
 
 SRC = f18estop.f90 \
       stdlib_error.f90 \

src/common.fypp

@@ -1,5 +1,8 @@
 #:mute
 
+#! Project version number
+#:set PROJECT_VERSION = "{}.{}.{}".format(PROJECT_VERSION_MAJOR, PROJECT_VERSION_MINOR, PROJECT_VERSION_PATCH)
+
 #! Support for quadruple precision floating point numbers
 #:if not defined("WITH_QP")
 #:set WITH_QP = False