aboutsummaryrefslogtreecommitdiff
path: root/dumb_render.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-06 17:42:40 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-06 17:42:40 -0400
commit09a2a56e22ce36238dce94f927f1909b63493960 (patch)
tree2a1f9c7c5287553bf29b67d86661eaede5783eb5 /dumb_render.f90
parent9c957c4a0964ee1f5b0ff582543b9f526978c47e (diff)
downloadLR-87-09a2a56e22ce36238dce94f927f1909b63493960.zip
LR-87-09a2a56e22ce36238dce94f927f1909b63493960.tar.gz
File type is now returned for evaluation. Initial routines for saving implemented but unused.
Diffstat (limited to 'dumb_render.f90')
-rw-r--r--dumb_render.f9021
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