aboutsummaryrefslogtreecommitdiff
path: root/main.F90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-06 08:34:27 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-06 08:34:27 -0400
commitaa6707d3e3b6e449eb6b2299091cfaefe52ae849 (patch)
tree13bc501ded6690cb4cbd1983a1c462f54efce096 /main.F90
parentb063cac571202757ec25f2c6e2a772684b88d4ae (diff)
downloadLR-87-aa6707d3e3b6e449eb6b2299091cfaefe52ae849.zip
LR-87-aa6707d3e3b6e449eb6b2299091cfaefe52ae849.tar.gz
Fixed silly Fortran mistakes regarding functions returning allocated strings. Added an unused history system. Fixed URL handling.
Diffstat (limited to 'main.F90')
-rw-r--r--main.F907
1 files changed, 6 insertions, 1 deletions
diff --git a/main.F90 b/main.F90
index a457d01..f31a3ca 100644
--- a/main.F90
+++ b/main.F90
@@ -4,6 +4,7 @@ use dumb_render
use gemini_protocol
use layout
use file_handling
+use history
#ifdef WINDOWS
use wsa_network, only: windows_network_startup => startup
@@ -25,6 +26,7 @@ implicit none
integer, parameter::io = 100
type(line), pointer::first_line
+ type(location), pointer::locations_visited
#ifdef WINDOWS
call windows_network_startup()
@@ -57,6 +59,7 @@ implicit none
loaded = .false.
call r%initialize()
+ locations_visited => null()
current_url = initial_site
open(unit=io, form="formatted", status="scratch", access='stream')
@@ -74,7 +77,7 @@ implicit none
call r%report_status("Requesting "//trim(current_url))
- return_code = request_url(trim(current_url), io)
+ return_code = request_url(current_url, io)
populated = .true.
call update_status(r, current_url, return_code)
@@ -98,6 +101,8 @@ implicit none
else if(populated) then
+ locations_visited => add_location(locations_visited, current_url)
+
first_line => load_unit(io, file_type_gemini)
loaded = .true.
call r%new_page()