diff options
Diffstat (limited to 'main.F90')
| -rw-r--r-- | main.F90 | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -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() |