From c493170e73506e974a0644452fc5a334c08171bc Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Wed, 7 Apr 2021 14:21:35 -0400
Subject: Fixed many issues related to reporting status.  Initial debugging of
 titan upload handling.

---
 captain/response.f90 | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'captain/response.f90')

diff --git a/captain/response.f90 b/captain/response.f90
index 3526766..1c7a0b5 100644
--- a/captain/response.f90
+++ b/captain/response.f90
@@ -45,6 +45,7 @@ implicit none
         procedure :: destroy => request_destroy
         procedure :: last_component => request_last_component
         procedure :: path_component => request_component
+        procedure :: path_component_int => request_component_int
         procedure :: component => request_component_func
 
     end type request
@@ -158,6 +159,25 @@ contains
         
     end subroutine request_component
     
+    
+    function request_component_int(self, i) result(res)
+    implicit none
+    
+        class(request) :: self
+        integer, intent(in)::i
+        integer :: res
+        
+        character(24)::restext
+        
+        restext = " "
+        
+        call self%path_component(i, restext)
+        
+        read(restext, '(I16)') res
+    
+    end function request_component_int
+    
+    
     function request_component_func(self, i) result(res)
     implicit none
     
-- 
cgit v1.2.3