diff options
Diffstat (limited to 'dumb_render.f90')
-rw-r--r-- | dumb_render.f90 | 21 |
1 files changed, 20 insertions, 1 deletions
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 |