diff options
Diffstat (limited to 'captain/response.f90')
| -rw-r--r-- | captain/response.f90 | 18 |
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 |