Started work on API implementation

1 files changed, 16 insertions, 2 deletions

diff --git a/captain/response.f90 b/captain/response.f90
index 37eaf58..e1d80eb 100644
--- a/captain/response.f90
+++ b/captain/response.f90
@@ -41,7 +41,8 @@ module server_response
         procedure :: destroy => request_destroy
         procedure :: last_component => request_last_component
         procedure :: path_component => request_component
-    
+        procedure :: component => request_component_func
+
     end type request
     
 contains
@@ -136,6 +137,19 @@ contains
         end if
         
     end subroutine request_component
+    
+    function request_component_func(self, i) result(res)
+    implicit none
+    
+        class(request) :: self
+        integer, intent(in)::i
+        character(128) :: res
+        
+        res = " "
+        
+        call self%path_component(i, res)
+    
+    end function request_component_func
 
     subroutine request_last_component(self, res)
     implicit none
@@ -165,7 +179,7 @@ contains
         end if
         
     end subroutine request_last_component
-
+    
     subroutine request_destroy(self)
     implicit none