diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-06 08:34:27 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-06 08:34:27 -0400 |
commit | aa6707d3e3b6e449eb6b2299091cfaefe52ae849 (patch) | |
tree | 13bc501ded6690cb4cbd1983a1c462f54efce096 /main.F90 | |
parent | b063cac571202757ec25f2c6e2a772684b88d4ae (diff) | |
download | LR-87-aa6707d3e3b6e449eb6b2299091cfaefe52ae849.tar.gz LR-87-aa6707d3e3b6e449eb6b2299091cfaefe52ae849.zip |
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.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() |