Add CMake version export

Author: sethrj

cmake/flibcpp_version.cpp.in

@@ -0,0 +1 @@
+extern "C" const char flibcpp_version_string[] = "@Flibcpp_VERSION@";

example/sort.f90

@@ -5,16 +5,21 @@
 program main
     use ISO_FORTRAN_ENV
     use, intrinsic :: ISO_C_BINDING
+    use flc, only : get_flibcpp_version_string
     use flc_algorithm, only : sort
 
     implicit none
     integer :: n = 10000
     real(c_double), dimension(:), allocatable :: x
 
+    write(*,*) "Flibcpp version ", get_flibcpp_version_string()
+
     allocate(x(n))
     ! TODO: fill randomly
     x = 1
     call sort(x)
+
+    write(*,*) "Success!"
 end program
 
 

src/flc.i

@@ -55,3 +55,17 @@ using std::size_t;
        (const int32_t  *DATA, size_t DATASIZE),
        (const int64_t  *DATA, size_t DATASIZE),
        (const double   *DATA, size_t DATASIZE) };
+
+/************************
+ * Version information
+ *
+ * Linked into auto-generated file flibcpp_version.cpp
+ ************************/
+
+%apply const char* { const char flibcpp_version_string[] };
+
+%inline %{
+extern "C" {
+extern const char flibcpp_version_string[];
+}
+%}

src/generated/flc.f90

@@ -14,5 +14,56 @@ module flc
  private
 
  ! DECLARATION CONSTRUCTS
+ type, bind(C) :: SwigArrayWrapper
+  type(C_PTR), public :: data = C_NULL_PTR
+  integer(C_SIZE_T), public :: size = 0
+ end type
+ public :: get_flibcpp_version_string
+
+! WRAPPER DECLARATIONS
+interface
+function swigc_flibcpp_version_string_get() &
+bind(C, name="_wrap_flibcpp_version_string_get") &
+result(fresult)
+use, intrinsic :: ISO_C_BINDING
+import :: swigarraywrapper
+type(SwigArrayWrapper) :: fresult
+end function
+
+ subroutine SWIG_free(cptr) &
+  bind(C, name="free")
+ use, intrinsic :: ISO_C_BINDING
+ type(C_PTR), value :: cptr
+end subroutine
+end interface
+
+
+contains
+ ! MODULE SUBPROGRAMS
+
+subroutine SWIG_chararray_to_string(wrap, string)
+  use, intrinsic :: ISO_C_BINDING
+  type(SwigArrayWrapper), intent(IN) :: wrap
+  character(kind=C_CHAR, len=:), allocatable, intent(OUT) :: string
+  character(kind=C_CHAR), dimension(:), pointer :: chars
+  integer(kind=C_SIZE_T) :: i
+  call c_f_pointer(wrap%data, chars, [wrap%size])
+  allocate(character(kind=C_CHAR, len=wrap%size) :: string)
+  do i=1, wrap%size
+    string(i:i) = chars(i)
+  end do
+end subroutine
+
+function get_flibcpp_version_string() &
+result(swig_result)
+use, intrinsic :: ISO_C_BINDING
+character(kind=C_CHAR, len=:), allocatable :: swig_result
+type(SwigArrayWrapper) :: fresult 
+
+fresult = swigc_flibcpp_version_string_get()
+call SWIG_chararray_to_string(fresult, swig_result)
+if (.false.) call SWIG_free(fresult%data)
+end function
+
 
 end module

src/generated/flcFORTRAN_wrap.cxx

@@ -221,6 +221,50 @@ using std::size_t;
 
 #include <stdint.h>
 
+
+extern "C" {
+extern const char flibcpp_version_string[];
+}
+
+
+#include <stdlib.h>
+#ifdef _MSC_VER
+# ifndef strtoull
+#  define strtoull _strtoui64
+# endif
+# ifndef strtoll
+#  define strtoll _strtoi64
+# endif
+#endif
+
+
+struct SwigArrayWrapper {
+    void* data;
+    size_t size;
+};
+
+
+SWIGINTERN SwigArrayWrapper SwigArrayWrapper_uninitialized() {
+  SwigArrayWrapper result;
+  result.data = NULL;
+  result.size = 0;
+  return result;
+}
+
+
+#include <string.h>
+
 extern "C" {
+SWIGEXPORT SwigArrayWrapper _wrap_flibcpp_version_string_get() {
+  SwigArrayWrapper fresult ;
+  char *result = 0 ;
+  
+  result = (char *)(char *)flibcpp_version_string;
+  fresult.size = strlen(reinterpret_cast< const char* >(result));
+  fresult.data = const_cast< char * >(result);
+  return fresult;
+}
+
+
 } // extern