From 09a2a56e22ce36238dce94f927f1909b63493960 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Wed, 6 May 2020 17:42:40 -0400
Subject: File type is now returned for evaluation.  Initial routines for
 saving implemented but unused.

---
 dumb_render.f90 | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

(limited to 'dumb_render.f90')

diff --git a/dumb_render.f90 b/dumb_render.f90
index 7ff4e6d..c3b49a1 100644
--- a/dumb_render.f90
+++ b/dumb_render.f90
@@ -44,6 +44,8 @@ implicit none
         
         procedure :: request_action => dumb_action
     
+        procedure :: request_save_filename => dumb_request_save_filename
+    
     end type dumb_renderer
     
 contains
@@ -309,8 +311,25 @@ contains
             end if
         end if
         
-        
     end function dumb_action
     
+    function dumb_request_save_filename(self, url, mimetype, filename)
+    implicit none
+    
+        class(dumb_renderer)::self
+        character(*), intent(in)::url
+        character(*), intent(in)::mimetype
+        character(*), intent(out)::filename
+        logical::dumb_request_save_filename
+    
+        Print *, "*** Response type is "//trim(mimetype)
+        Write(*, '(1X, A26)', advance='no') "*** Save file as: "
+    
+        Read(*, *) filename
+    
+        dumb_request_save_filename = (len_trim(filename) > 0)
+    
+    end function dumb_request_save_filename
+    
     
 end module dumb_render
\ No newline at end of file
-- 
cgit v1.2.3