Regenerate with SWIG 4.1.0+fortran

Author: sethrj

src/flc.f90

@@ -1,7 +1,7 @@
-! This file was automatically generated by SWIG (http://www.swig.org).
+! This file was automatically generated by SWIG (https://www.swig.org).
 ! Version 4.1.0+fortran
 !
-! Do not make changes to this file unless you know what you are doing--modify
+! Do not make changes to this file unless you know what you are doing - modify
 ! the SWIG interface file instead.
 
 ! Flibcpp project, https://github.com/swig-fortran/flibcpp

src/flcFORTRAN_wrap.cxx

@@ -1,11 +1,9 @@
 /* ----------------------------------------------------------------------------
- * This file was automatically generated by SWIG (http://www.swig.org).
+ * This file was automatically generated by SWIG (https://www.swig.org).
  * Version 4.1.0+fortran
  *
- * This file is not intended to be easily readable and contains a number of
- * coding conventions designed to improve portability and efficiency. Do not make
- * changes to this file unless you know what you are doing--modify the SWIG
- * interface file instead.
+ * Do not make changes to this file unless you know what you are doing - modify
+ * the SWIG interface file instead.
  * ----------------------------------------------------------------------------- */
 
 /*
@@ -14,36 +12,6 @@
  * Distributed under an MIT open source license: see LICENSE for details.
  */
 
-
-
-#ifndef SWIGFORTRAN
-#define SWIGFORTRAN
-#endif
-
-
-#ifdef __cplusplus
-/* SwigValueWrapper is described in swig.swg */
-template<typename T> class SwigValueWrapper {
-  struct SwigMovePointer {
-    T *ptr;
-    SwigMovePointer(T *p) : ptr(p) { }
-    ~SwigMovePointer() { delete ptr; }
-    SwigMovePointer& operator=(SwigMovePointer& rhs) { T* oldptr = ptr; ptr = 0; delete oldptr; ptr = rhs.ptr; rhs.ptr = 0; return *this; }
-  } pointer;
-  SwigValueWrapper& operator=(const SwigValueWrapper<T>& rhs);
-  SwigValueWrapper(const SwigValueWrapper<T>& rhs);
-public:
-  SwigValueWrapper() : pointer(0) { }
-  SwigValueWrapper& operator=(const T& t) { SwigMovePointer tmp(new T(t)); pointer = tmp; return *this; }
-  operator T&() const { return *pointer.ptr; }
-  T *operator&() { return pointer.ptr; }
-};
-
-template <typename T> T SwigValueInit() {
-  return T();
-}
-#endif
-
 /* -----------------------------------------------------------------------------
  *  This section contains generic SWIG labels for method/variable
  *  declarations/attributes, and other compiler dependent labels.
@@ -181,7 +149,7 @@ template <typename T> T SwigValueInit() {
 #define SWIG_exception_impl(DECL, CODE, MSG, RETURNNULL) \
  { throw std::logic_error("In " DECL ": " MSG); }
 
-/*  Errors in SWIG */
+/* SWIG Errors applicable to all language modules, values are reserved from -1 to -99 */
 #define  SWIG_UnknownError    	   -1
 #define  SWIG_IOError        	   -2
 #define  SWIG_RuntimeError   	   -3
@@ -198,7 +166,6 @@ template <typename T> T SwigValueInit() {
 
 
 
-
 #ifdef __cplusplus
 extern "C" {
 #endif
@@ -214,6 +181,58 @@ SWIGEXPORT void SWIG_store_exception(const char* decl, int errcode, const char *
     SWIG_store_exception(DECL, CODE, MSG); RETURNNULL;
 
 
+
+#define SWIG_VERSION 0x040100
+#define SWIGFORTRAN
+
+#ifdef __cplusplus
+#include <utility>
+/* SwigValueWrapper is described in swig.swg */
+template<typename T> class SwigValueWrapper {
+  struct SwigSmartPointer {
+    T *ptr;
+    SwigSmartPointer(T *p) : ptr(p) { }
+    ~SwigSmartPointer() { delete ptr; }
+    SwigSmartPointer& operator=(SwigSmartPointer& rhs) { T* oldptr = ptr; ptr = 0; delete oldptr; ptr = rhs.ptr; rhs.ptr = 0; return *this; }
+    void reset(T *p) { T* oldptr = ptr; ptr = 0; delete oldptr; ptr = p; }
+  } pointer;
+  SwigValueWrapper& operator=(const SwigValueWrapper<T>& rhs);
+  SwigValueWrapper(const SwigValueWrapper<T>& rhs);
+public:
+  SwigValueWrapper() : pointer(0) { }
+  SwigValueWrapper& operator=(const T& t) { SwigSmartPointer tmp(new T(t)); pointer = tmp; return *this; }
+#if __cplusplus >=201103L
+  SwigValueWrapper& operator=(T&& t) { SwigSmartPointer tmp(new T(std::move(t))); pointer = tmp; return *this; }
+  operator T&&() const { return std::move(*pointer.ptr); }
+#else
+  operator T&() const { return *pointer.ptr; }
+#endif
+  T *operator&() const { return pointer.ptr; }
+  static void reset(SwigValueWrapper& t, T *p) { t.pointer.reset(p); }
+};
+
+/*
+ * SwigValueInit() is a generic initialisation solution as the following approach:
+ * 
+ *       T c_result = T();
+ * 
+ * doesn't compile for all types for example:
+ * 
+ *       unsigned int c_result = unsigned int();
+ */
+template <typename T> T SwigValueInit() {
+  return T();
+}
+
+#if __cplusplus >=201103L
+# define SWIG_STD_MOVE(OBJ) std::move(OBJ)
+#else
+# define SWIG_STD_MOVE(OBJ) OBJ
+#endif
+
+#endif
+
+
 #include <stdexcept>
 
 
@@ -226,10 +245,6 @@ SWIGEXPORT void SWIG_store_exception(const char* decl, int errcode, const char *
  if (!(EXPR)) { SWIG_exception_impl("$decl", SWIG_ValueError, MSG, RETURNNULL); } 
 
 
-#define SWIGVERSION 0x040100 
-#define SWIG_VERSION SWIGVERSION
-
-
 #define SWIG_as_voidptr(a) const_cast< void * >(static_cast< const void * >(a)) 
 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),reinterpret_cast< void** >(a)) 
 
@@ -286,10 +301,10 @@ SWIGEXPORT const char* flc_get_serr() {
 #include <string>
 
 
-extern "C" {
-
 #include <cctype>
 
+extern "C" {
+
 // Call this function before any new action
 SWIGEXPORT void SWIG_check_unhandled_exception_impl(const char* decl) {
   if (flc_ierr != 0) {

src/flc_algorithm.f90

@@ -1,7 +1,7 @@
-! This file was automatically generated by SWIG (http://www.swig.org).
+! This file was automatically generated by SWIG (https://www.swig.org).
 ! Version 4.1.0+fortran
 !
-! Do not make changes to this file unless you know what you are doing--modify
+! Do not make changes to this file unless you know what you are doing - modify
 ! the SWIG interface file instead.
 
 ! Flibcpp project, https://github.com/swig-fortran/flibcpp
@@ -34,45 +34,45 @@ module flc_algorithm
   type(C_PTR), public :: cptr = C_NULL_PTR
   integer(C_INT), public :: cmemflags = 0
  end type
- interface binary_search
-  module procedure swigf_binary_search__SWIG_1, swigf_binary_search__SWIG_2, swigf_binary_search__SWIG_3, &
-    swigf_binary_search__SWIG_4, swigf_binary_search__SWIG_5, swigf_binary_search__SWIG_6, swigf_binary_search__SWIG_7
+ interface sort
+  module procedure swigf_sort__SWIG_1, swigf_sort__SWIG_2, swigf_sort__SWIG_3, swigf_sort__SWIG_4, swigf_sort__SWIG_5, &
+    swigf_sort__SWIG_6, swigf_sort__SWIG_7
  end interface
- public :: binary_search
+ public :: sort
+ interface argsort
+  module procedure swigf_argsort__SWIG_1, swigf_argsort__SWIG_2, swigf_argsort__SWIG_3, swigf_argsort__SWIG_4, &
+    swigf_argsort__SWIG_5, swigf_argsort__SWIG_6, swigf_argsort__SWIG_7
+ end interface
+ public :: argsort
+ interface equal_range
+  module procedure swigf_equal_range__SWIG_1, swigf_equal_range__SWIG_2, swigf_equal_range__SWIG_3, swigf_equal_range__SWIG_4, &
+    swigf_equal_range__SWIG_5, swigf_equal_range__SWIG_6, swigf_equal_range__SWIG_7
+ end interface
+ public :: equal_range
  interface minmax_element
   module procedure swigf_minmax_element__SWIG_1, swigf_minmax_element__SWIG_2, swigf_minmax_element__SWIG_3, &
     swigf_minmax_element__SWIG_4, swigf_minmax_element__SWIG_5, swigf_minmax_element__SWIG_6, swigf_minmax_element__SWIG_7
  end interface
  public :: minmax_element
- interface shuffle
-  module procedure swigf_shuffle__SWIG_1, swigf_shuffle__SWIG_2, swigf_shuffle__SWIG_3, swigf_shuffle__SWIG_4
- end interface
- public :: shuffle
  interface includes
   module procedure swigf_includes__SWIG_1, swigf_includes__SWIG_2, swigf_includes__SWIG_3, swigf_includes__SWIG_4, &
     swigf_includes__SWIG_5, swigf_includes__SWIG_6, swigf_includes__SWIG_7
  end interface
  public :: includes
+ interface shuffle
+  module procedure swigf_shuffle__SWIG_1, swigf_shuffle__SWIG_2, swigf_shuffle__SWIG_3, swigf_shuffle__SWIG_4
+ end interface
+ public :: shuffle
+ interface binary_search
+  module procedure swigf_binary_search__SWIG_1, swigf_binary_search__SWIG_2, swigf_binary_search__SWIG_3, &
+    swigf_binary_search__SWIG_4, swigf_binary_search__SWIG_5, swigf_binary_search__SWIG_6, swigf_binary_search__SWIG_7
+ end interface
+ public :: binary_search
  interface is_sorted
   module procedure swigf_is_sorted__SWIG_1, swigf_is_sorted__SWIG_2, swigf_is_sorted__SWIG_3, swigf_is_sorted__SWIG_4, &
     swigf_is_sorted__SWIG_5, swigf_is_sorted__SWIG_6, swigf_is_sorted__SWIG_7
  end interface
  public :: is_sorted
- interface equal_range
-  module procedure swigf_equal_range__SWIG_1, swigf_equal_range__SWIG_2, swigf_equal_range__SWIG_3, swigf_equal_range__SWIG_4, &
-    swigf_equal_range__SWIG_5, swigf_equal_range__SWIG_6, swigf_equal_range__SWIG_7
- end interface
- public :: equal_range
- interface sort
-  module procedure swigf_sort__SWIG_1, swigf_sort__SWIG_2, swigf_sort__SWIG_3, swigf_sort__SWIG_4, swigf_sort__SWIG_5, &
-    swigf_sort__SWIG_6, swigf_sort__SWIG_7
- end interface
- public :: sort
- interface argsort
-  module procedure swigf_argsort__SWIG_1, swigf_argsort__SWIG_2, swigf_argsort__SWIG_3, swigf_argsort__SWIG_4, &
-    swigf_argsort__SWIG_5, swigf_argsort__SWIG_6, swigf_argsort__SWIG_7
- end interface
- public :: argsort
 
 ! FUNCTION POINTER DECLARATIONS
 abstract interface
@@ -598,35 +598,35 @@ function swigc_includes__SWIG_7(farg1, farg3, farg5) &
 subroutine swigc_shuffle__SWIG_1(farg1, farg2) &
 bind(C, name="_wrap_shuffle__SWIG_1")
 use, intrinsic :: ISO_C_BINDING
-import :: swigclasswrapper
 import :: swigarraywrapper
+import :: swigclasswrapper
 type(SwigClassWrapper), intent(in) :: farg1
 type(SwigArrayWrapper) :: farg2
 end subroutine
 
 subroutine swigc_shuffle__SWIG_2(farg1, farg2) &
 bind(C, name="_wrap_shuffle__SWIG_2")
 use, intrinsic :: ISO_C_BINDING
-import :: swigclasswrapper
 import :: swigarraywrapper
+import :: swigclasswrapper
 type(SwigClassWrapper), intent(in) :: farg1
 type(SwigArrayWrapper) :: farg2
 end subroutine
 
 subroutine swigc_shuffle__SWIG_3(farg1, farg2) &
 bind(C, name="_wrap_shuffle__SWIG_3")
 use, intrinsic :: ISO_C_BINDING
-import :: swigclasswrapper
 import :: swigarraywrapper
+import :: swigclasswrapper
 type(SwigClassWrapper), intent(in) :: farg1
 type(SwigArrayWrapper) :: farg2
 end subroutine
 
 subroutine swigc_shuffle__SWIG_4(farg1, farg2) &
 bind(C, name="_wrap_shuffle__SWIG_4")
 use, intrinsic :: ISO_C_BINDING
-import :: swigclasswrapper
 import :: swigarraywrapper
+import :: swigclasswrapper
 type(SwigClassWrapper), intent(in) :: farg1
 type(SwigArrayWrapper) :: farg2
 end subroutine