From aa6707d3e3b6e449eb6b2299091cfaefe52ae849 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Wed, 6 May 2020 08:34:27 -0400
Subject: Fixed silly Fortran mistakes regarding functions returning allocated
 strings.  Added an unused history system.  Fixed URL handling.

---
 main.F90 | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'main.F90')

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()
-- 
cgit v1.2.3