aboutsummaryrefslogtreecommitdiff
path: root/main.F90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-21 12:25:14 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-21 12:25:14 -0400
commitf32d7d30c9cd38544349697e475355e8a2e2a478 (patch)
tree20538809141ec6dfb6954ae7d892680d13c138fe /main.F90
parentf46daf7de9884e32c8141ef761940f8f0a6e0249 (diff)
downloadLR-87-f32d7d30c9cd38544349697e475355e8a2e2a478.tar.gz
LR-87-f32d7d30c9cd38544349697e475355e8a2e2a478.zip
Binary files are now actually handled in the dumb terminal version.
Diffstat (limited to 'main.F90')
-rw-r--r--main.F906
1 files changed, 4 insertions, 2 deletions
diff --git a/main.F90 b/main.F90
index 6d6b78d..af4a29d 100644
--- a/main.F90
+++ b/main.F90
@@ -27,6 +27,7 @@ use request
use ag_render, only: appgraphics_renderer
#else
use dumb_render
+use dumb_binary
#endif
use render
@@ -50,6 +51,7 @@ implicit none
type(appgraphics_renderer)::r
#else
type(dumb_renderer)::r
+ type(dumb_binary_handler)::bh
#endif
logical::running
@@ -103,7 +105,7 @@ implicit none
do while(running)
if(index(current_url, "gemini://") /= 1) then
- call r%draw_error("Only gemini:// URLs supported ("//trim(current_url)//")")
+ call r%report_unsupported_protocol(trim(current_url))
populated = .false.
loaded = .true.
return_code = STATUS_LOCALFAIL
@@ -113,7 +115,7 @@ implicit none
call r%report_status("Requesting "//trim(current_url))
- return_code = request_url(current_url, io, return_type)
+ return_code = request_url(current_url, io, return_type, bh)
populated = .true.
call update_status(r, current_url, return_code)