Playing around

Author: mzecc

src/example_fgen_basic/result/result.f90

@@ -4,7 +4,7 @@
 !> https://github.com/samharrison7/fortran-error-handler
 module m_result
 
-    use m_error_v, only: ErrorV
+    use m_error_v, only: ErrorV, NO_ERROR_CODE
 
     implicit none
     private
@@ -40,10 +40,10 @@ module m_result
 
     end type Result
 
-    interface Result
+  !  interface Result
     !! Constructor interface - see build (TODO: figure out cross-ref syntax) for details
-        module procedure :: constructor
-    end interface Result
+    !    module procedure :: constructor
+   ! end interface Result
 
 contains
 
@@ -71,6 +71,26 @@ module m_result
     !
     ! end subroutine build
 
+    !subroutine constructor(self, code, message)
+    !     !! Build instance
+    !
+     !    class(*), allocatable :: data_v(..)
+     !    class(ErrorV), intent(inout) :: self
+    !     ! Hopefully can leave without docstring (like Python)
+      !   integer, intent(in) :: code = NO_ERROR_CODE
+    !     !! Error code
+    !     !!
+    !     !! Use [TODO: figure out xref] `NO_ERROR_CODE` if there is no error
+       !  character(len=*), optional, intent(in) :: message = ""
+    !     !! Error message
+    !
+    !     self % code = code
+    !     if (present(message)) then
+    !         self % message = message
+    !     end if
+    !
+    !end subroutine constructor
+
     function finalise(self) result(res)
         !! Finalise the instance (i.e. free/deallocate)
 

src/example_fgen_basic/result/result_int.f90

@@ -37,6 +37,25 @@ module m_result_int
 
 contains
 
+    function constructor(res, data_v, error_v) result(self)
+        !! Build instance
+
+        type(ResultInteger), intent(out) :: self
+        ! Hopefully can leave without docstring (like Python)
+
+        class(ErrorV), intent(in) :: error_v
+        !! Error message
+
+        integer, optional, intent(in) :: data_v
+        !! Data
+
+        self%error_v = ErrorV()
+
+        if (present(error_v))  self%error_v = error_v
+        if (present(data_v))  self%data_v = data_v
+
+    end function constructor
+
     subroutine build(self, res, data_v, error_v)
         !! Build instance
 
@@ -49,11 +68,11 @@ subroutine build(self, res, data_v, error_v)
         integer, optional, intent(in) :: data_v
         !! Data
 
-        res = Result()
-
         class(ErrorV), optional, intent(in) :: error_v
         !! Error message
 
+        res = Result()
+
         if (present(data_v) and present(error_v)) then
             call res % build(message="Both data and error were provided")
         elseif (present(data_v)) then