Adding upstream version 2.9.0dev.12.upstream/2.9.0dev.12upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 1163 insertions, 0 deletions

diff --git a/src/LYHistory.c b/src/LYHistory.c
new file mode 100644
index 0000000..4fd5567
--- /dev/null
+++ b/src/LYHistory.c
@@ -0,0 +1,1163 @@
+/*
+ * $LynxId: LYHistory.c,v 1.94 2021/06/09 22:55:43 tom Exp $
+ */
+#include <HTUtils.h>
+#include <HTTP.h>
+#include <GridText.h>
+#include <HTAlert.h>
+#include <HText.h>
+#include <LYGlobalDefs.h>
+#include <LYUtils.h>
+#include <LYHistory.h>
+#include <LYPrint.h>
+#include <LYDownload.h>
+#include <LYOptions.h>
+#include <LYKeymap.h>
+#include <LYList.h>
+#include <LYShowInfo.h>
+#include <LYStrings.h>
+#include <LYCharUtils.h>
+#include <LYCharSets.h>
+#include <LYrcFile.h>
+#ifdef DISP_PARTIAL
+#include <LYMainLoop.h>
+#endif
+
+#ifdef DIRED_SUPPORT
+#include <LYUpload.h>
+#include <LYLocal.h>
+#endif /* DIRED_SUPPORT */
+
+#include <LYexit.h>
+#include <LYLeaks.h>
+#include <HTCJK.h>
+
+HTList *Visited_Links = NULL;	/* List of safe popped docs. */
+int Visited_Links_As = VISITED_LINKS_AS_LATEST | VISITED_LINKS_REVERSE;
+
+static VisitedLink *PrevVisitedLink = NULL;	/* NULL on auxiliary */
+static VisitedLink *PrevActiveVisitedLink = NULL;	/* Last non-auxillary */
+static VisitedLink Latest_first;
+static VisitedLink Latest_last;
+static VisitedLink *Latest_tree;
+static VisitedLink *First_tree;
+static VisitedLink *Last_by_first;
+
+int nhist_extra;
+
+#ifdef LY_FIND_LEAKS
+static int already_registered_free_messages_stack = 0;
+static int already_registered_clean_all_history = 0;
+#endif
+
+#ifdef LY_FIND_LEAKS
+/*
+ * Utility for freeing the list of visited links.  - FM
+ */
+static void Visited_Links_free(void)
+{
+    VisitedLink *vl;
+    HTList *cur = Visited_Links;
+
+    PrevVisitedLink = NULL;
+    PrevActiveVisitedLink = NULL;
+    if (!cur)
+	return;
+
+    while (NULL != (vl = (VisitedLink *) HTList_nextObject(cur))) {
+	FREE(vl->address);
+	FREE(vl->title);
+	FREE(vl);
+    }
+    HTList_delete(Visited_Links);
+    Visited_Links = NULL;
+    Latest_last.prev_latest = &Latest_first;
+    Latest_first.next_latest = &Latest_last;
+    Last_by_first = Latest_tree = First_tree = 0;
+    return;
+}
+#endif /* LY_FIND_LEAKS */
+
+#ifdef DEBUG
+static void trace_history(const char *tag)
+{
+    if (TRACE) {
+	CTRACE((tfp, "HISTORY %s %d/%u (%d extra)\n",
+		tag, nhist, size_history, nhist_extra));
+	CTRACE_FLUSH(tfp);
+    }
+}
+#else
+#define trace_history(tag)	/* nothing */
+#endif /* DEBUG */
+
+/*
+ * Utility for listing visited links, making any repeated links the most
+ * current in the list.  - FM
+ */
+void LYAddVisitedLink(DocInfo *doc)
+{
+    VisitedLink *tmp;
+    HTList *cur;
+    const char *title = (doc->title ? doc->title : NO_TITLE);
+
+    if (isEmpty(doc->address)) {
+	PrevVisitedLink = NULL;
+	return;
+    }
+
+    /*
+     * Exclude POST or HEAD replies, and bookmark, menu or list files.  - FM
+     */
+    if (doc->post_data || doc->isHEAD || doc->bookmark ||
+	(			/* special url or a temp file */
+	    (!StrNCmp(doc->address, "LYNX", 4) ||
+	     !StrNCmp(doc->address, "file://localhost/", 17)))) {
+	int related = 1;	/* First approximation only */
+
+	if (LYIsUIPage(doc->address, UIP_HISTORY) ||
+	    LYIsUIPage(doc->address, UIP_VLINKS) ||
+	    LYIsUIPage(doc->address, UIP_SHOWINFO) ||
+	    isLYNXMESSAGES(doc->address) ||
+	    ((related = 0) != 0) ||
+#ifdef DIRED_SUPPORT
+	    LYIsUIPage(doc->address, UIP_DIRED_MENU) ||
+	    LYIsUIPage(doc->address, UIP_UPLOAD_OPTIONS) ||
+	    LYIsUIPage(doc->address, UIP_PERMIT_OPTIONS) ||
+#endif /* DIRED_SUPPORT */
+	    LYIsUIPage(doc->address, UIP_PRINT_OPTIONS) ||
+	    LYIsUIPage(doc->address, UIP_DOWNLOAD_OPTIONS) ||
+	    LYIsUIPage(doc->address, UIP_OPTIONS_MENU) ||
+	    isLYNXEDITMAP(doc->address) ||
+	    isLYNXKEYMAP(doc->address) ||
+	    LYIsUIPage(doc->address, UIP_LIST_PAGE) ||
+#ifdef USE_ADDRLIST_PAGE
+	    LYIsUIPage(doc->address, UIP_ADDRLIST_PAGE) ||
+#endif
+	    LYIsUIPage(doc->address, UIP_CONFIG_DEF) ||
+	    LYIsUIPage(doc->address, UIP_LYNXCFG) ||
+	    isLYNXCOOKIE(doc->address) ||
+	    LYIsUIPage(doc->address, UIP_TRACELOG)) {
+	    if (!related)
+		PrevVisitedLink = NULL;
+	    return;
+	}
+    }
+
+    if (!Visited_Links) {
+	Visited_Links = HTList_new();
+#ifdef LY_FIND_LEAKS
+	atexit(Visited_Links_free);
+#endif
+	Latest_last.prev_latest = &Latest_first;
+	Latest_first.next_latest = &Latest_last;
+	Latest_last.next_latest = NULL;		/* Find bugs quick! */
+	Latest_first.prev_latest = NULL;
+	Last_by_first = Latest_tree = First_tree = NULL;
+    }
+
+    cur = Visited_Links;
+    while (NULL != (tmp = (VisitedLink *) HTList_nextObject(cur))) {
+	if (!strcmp(NonNull(tmp->address),
+		    NonNull(doc->address))) {
+	    PrevVisitedLink = PrevActiveVisitedLink = tmp;
+	    /* Already visited.  Update the last-visited info. */
+	    if (tmp->next_latest == &Latest_last)	/* optimization */
+		return;
+
+	    /* Remove from "latest" chain */
+	    tmp->prev_latest->next_latest = tmp->next_latest;
+	    tmp->next_latest->prev_latest = tmp->prev_latest;
+
+	    /* Insert at the end of the "latest" chain */
+	    Latest_last.prev_latest->next_latest = tmp;
+	    tmp->prev_latest = Latest_last.prev_latest;
+	    tmp->next_latest = &Latest_last;
+	    Latest_last.prev_latest = tmp;
+	    return;
+	}
+    }
+
+    if ((tmp = typecalloc(VisitedLink)) == NULL)
+	outofmem(__FILE__, "LYAddVisitedLink");
+
+    StrAllocCopy(tmp->address, doc->address);
+    LYformTitle(&(tmp->title), title);
+
+    /* First-visited chain */
+    HTList_appendObject(Visited_Links, tmp);	/* At end */
+    tmp->prev_first = Last_by_first;
+    Last_by_first = tmp;
+
+    /* Tree structure */
+    if (PrevVisitedLink) {
+	VisitedLink *a = PrevVisitedLink;
+	VisitedLink *b = a->next_tree;
+	int l = PrevVisitedLink->level;
+
+	/* Find last on the deeper levels */
+	while (b && b->level > l)
+	    a = b, b = b->next_tree;
+
+	if (!b)			/* a == Latest_tree */
+	    Latest_tree = tmp;
+	tmp->next_tree = a->next_tree;
+	a->next_tree = tmp;
+
+	tmp->level = PrevVisitedLink->level + 1;
+    } else {
+	if (Latest_tree)
+	    Latest_tree->next_tree = tmp;
+	tmp->level = 0;
+	tmp->next_tree = NULL;
+	Latest_tree = tmp;
+    }
+    PrevVisitedLink = PrevActiveVisitedLink = tmp;
+    if (!First_tree)
+	First_tree = tmp;
+
+    /* "latest" chain */
+    Latest_last.prev_latest->next_latest = tmp;
+    tmp->prev_latest = Latest_last.prev_latest;
+    tmp->next_latest = &Latest_last;
+    Latest_last.prev_latest = tmp;
+
+    return;
+}
+
+/*
+ * Returns true if this is a page that we would push onto the stack if not
+ * forced.  If docurl is NULL, only the title is considered; otherwise also
+ * check the URL whether it is (likely to be) a generated special page.
+ */
+BOOLEAN LYwouldPush(const char *title,
+		    const char *docurl)
+{
+    BOOLEAN rc = FALSE;
+
+    /*
+     * All non-pushable generated pages have URLs that begin with
+     * "file://localhost/" and end with HTML_SUFFIX.  - kw
+     */
+    if (docurl) {
+	size_t ulen;
+
+	if (StrNCmp(docurl, "file://localhost/", 17) != 0 ||
+	    (ulen = strlen(docurl)) <= strlen(HTML_SUFFIX) ||
+	    strcmp(docurl + ulen - strlen(HTML_SUFFIX), HTML_SUFFIX) != 0) {
+	    /*
+	     * If it is not a local HTML file, it may be a Web page that
+	     * accidentally has the same title.  So return TRUE now.  - kw
+	     */
+	    return TRUE;
+	}
+    }
+
+    if (docurl) {
+	rc = (BOOLEAN)
+	    !(LYIsUIPage(docurl, UIP_HISTORY)
+	      || LYIsUIPage(docurl, UIP_PRINT_OPTIONS)
+#ifdef DIRED_SUPPORT
+	      || LYIsUIPage(docurl, UIP_DIRED_MENU)
+	      || LYIsUIPage(docurl, UIP_UPLOAD_OPTIONS)
+	      || LYIsUIPage(docurl, UIP_PERMIT_OPTIONS)
+#endif /* DIRED_SUPPORT */
+	    );
+    } else {
+	rc = (BOOLEAN)
+	    !(!strcmp(title, HISTORY_PAGE_TITLE)
+	      || !strcmp(title, PRINT_OPTIONS_TITLE)
+#ifdef DIRED_SUPPORT
+	      || !strcmp(title, DIRED_MENU_TITLE)
+	      || !strcmp(title, UPLOAD_OPTIONS_TITLE)
+	      || !strcmp(title, PERMIT_OPTIONS_TITLE)
+#endif /* DIRED_SUPPORT */
+	    );
+    }
+    return rc;
+}
+
+/*
+ * Free post-data for 'DocInfo'
+ */
+void LYFreePostData(DocInfo *doc)
+{
+    BStrFree(doc->post_data);
+    FREE(doc->post_content_type);
+}
+
+/*
+ * Free strings associated with a 'DocInfo' struct.
+ */
+void LYFreeDocInfo(DocInfo *doc)
+{
+    FREE(doc->title);
+    FREE(doc->address);
+    FREE(doc->bookmark);
+    LYFreePostData(doc);
+}
+
+/*
+ * Free the information in the last history entry.
+ */
+static void clean_extra_history(void)
+{
+    trace_history("clean_extra_history");
+    nhist += nhist_extra;
+    while (nhist_extra > 0) {
+	nhist--;
+	LYFreeDocInfo(&HDOC(nhist));
+	nhist_extra--;
+    }
+    trace_history("...clean_extra_history");
+}
+
+/*
+ * Free the entire history stack, for auditing memory leaks.
+ */
+#ifdef LY_FIND_LEAKS
+static void clean_all_history(void)
+{
+    trace_history("clean_all_history");
+    clean_extra_history();
+    while (nhist > 0) {
+	nhist--;
+	LYFreeDocInfo(&HDOC(nhist));
+    }
+    trace_history("...clean_all_history");
+}
+#endif
+
+/* FIXME What is the relationship to are_different() from the mainloop?! */
+static int are_identical(HistInfo * doc, DocInfo *doc1)
+{
+    return (STREQ(doc1->address, doc->hdoc.address)
+	    && BINEQ(doc1->post_data, doc->hdoc.post_data)
+	    && !strcmp(NonNull(doc1->bookmark),
+		       NonNull(doc->hdoc.bookmark))
+	    && doc1->isHEAD == doc->hdoc.isHEAD);
+}
+
+void LYAllocHistory(unsigned entries)
+{
+    CTRACE((tfp, "LYAllocHistory %u vs %u\n", entries, size_history));
+    if (entries + 1 >= size_history) {
+	size_t want;
+	unsigned save = size_history;
+
+	size_history += (entries + 2) * 2;
+	want = ((size_t) size_history) * sizeof(*history);
+
+	if (history == 0) {
+	    history = typecallocn(HistInfo, want);
+	} else {
+	    history = typeRealloc(HistInfo, history, want);
+	    memset(&history[save], 0, size_history - save);
+	}
+	if (history == 0)
+	    outofmem(__FILE__, "LYAllocHistory");
+    }
+    CTRACE((tfp, "...LYAllocHistory %u vs %u\n", entries, size_history));
+}
+
+/*
+ * Push the current filename, link and line number onto the history list.
+ */
+int LYpush(DocInfo *doc, int force_push)
+{
+    /*
+     * Don't push NULL file names.
+     */
+    if (*doc->address == '\0')
+	return 0;
+
+    /*
+     * Check whether this is a document we don't push unless forced.  - FM
+     */
+    if (!force_push) {
+	/*
+	 * Don't push the history, printer, or download lists.
+	 */
+	if (!LYwouldPush(doc->title, doc->address)) {
+	    if (!LYforce_no_cache)
+		LYoverride_no_cache = TRUE;
+	    return 0;
+	}
+    }
+
+    /*
+     * If file is identical to one before it, don't push it.
+     * But do not duplicate it if there is only one on the stack,
+     * note that HDOC() starts from 0, so nhist should be > 0.
+     */
+    if (nhist >= 1 && are_identical(&(history[nhist - 1]), doc)) {
+	if (HDOC(nhist - 1).internal_link == doc->internal_link) {
+	    /* But it is nice to have the last position remembered!
+	       - kw */
+	    HDOC(nhist - 1).link = doc->link;
+	    HDOC(nhist - 1).line = doc->line;
+	    return 0;
+	}
+    }
+
+    /*
+     * If file is identical to the current document, just move the pointer.
+     */
+    if (nhist_extra >= 1 && are_identical(&(history[nhist]), doc)) {
+	HDOC(nhist).link = doc->link;
+	HDOC(nhist).line = doc->line;
+	nhist_extra--;
+	LYAllocHistory((unsigned) nhist);
+	nhist++;
+	trace_history("LYpush: just move the cursor");
+	return 1;
+    }
+
+    clean_extra_history();
+#ifdef LY_FIND_LEAKS
+    if (!already_registered_clean_all_history) {
+	already_registered_clean_all_history = 1;
+	atexit(clean_all_history);
+    }
+#endif
+
+    /*
+     * OK, push it...
+     */
+    LYAllocHistory((unsigned) nhist);
+    HDOC(nhist).link = doc->link;
+    HDOC(nhist).line = doc->line;
+
+    HDOC(nhist).title = NULL;
+    LYformTitle(&(HDOC(nhist).title), doc->title);
+
+    HDOC(nhist).address = NULL;
+    StrAllocCopy(HDOC(nhist).address, doc->address);
+
+    HDOC(nhist).post_data = NULL;
+    BStrCopy(HDOC(nhist).post_data, doc->post_data);
+
+    HDOC(nhist).post_content_type = NULL;
+    StrAllocCopy(HDOC(nhist).post_content_type, doc->post_content_type);
+
+    HDOC(nhist).bookmark = NULL;
+    StrAllocCopy(HDOC(nhist).bookmark, doc->bookmark);
+
+    HDOC(nhist).isHEAD = doc->isHEAD;
+    HDOC(nhist).safe = doc->safe;
+
+    HDOC(nhist).internal_link = FALSE;	/* by default */
+    history[nhist].intern_seq_start = -1;	/* by default */
+    if (doc->internal_link) {
+	/* Now some tricky stuff: if the caller thinks that the doc
+	   to push was the result of following an internal
+	   (fragment) link, we check whether we believe it.
+	   It is only accepted as valid if the immediately preceding
+	   item on the history stack is actually the same document
+	   except for fragment and location info.  I.e. the Parent
+	   Anchors are the same.
+	   Also of course this requires that this is not the first
+	   history item. - kw */
+	if (nhist > 0) {
+	    DocAddress WWWDoc;
+	    HTParentAnchor *thisparent, *thatparent = NULL;
+
+	    WWWDoc.address = doc->address;
+	    WWWDoc.post_data = doc->post_data;
+	    WWWDoc.post_content_type = doc->post_content_type;
+	    WWWDoc.bookmark = doc->bookmark;
+	    WWWDoc.isHEAD = doc->isHEAD;
+	    WWWDoc.safe = doc->safe;
+	    thisparent =
+		HTAnchor_findAddress(&WWWDoc);
+	    /* Now find the ParentAnchor for the previous history
+	     * item - kw
+	     */
+	    if (thisparent) {
+		/* If the last-pushed item is a LYNXIMGMAP but THIS one
+		 * isn't, compare the physical URLs instead. - kw
+		 */
+		if (isLYNXIMGMAP(HDOC(nhist - 1).address) &&
+		    !isLYNXIMGMAP(doc->address)) {
+		    WWWDoc.address = HDOC(nhist - 1).address + LEN_LYNXIMGMAP;
+		    /*
+		     * If THIS item is a LYNXIMGMAP but the last-pushed one
+		     * isn't, fake it by using THIS item's address for
+		     * thatparent... - kw
+		     */
+		} else if (isLYNXIMGMAP(doc->address) &&
+			   !isLYNXIMGMAP(HDOC(nhist - 1).address)) {
+		    char *temp = NULL;
+
+		    StrAllocCopy(temp, STR_LYNXIMGMAP);
+		    StrAllocCat(temp, doc->address + LEN_LYNXIMGMAP);
+		    WWWDoc.address = temp;
+		    WWWDoc.post_content_type = HDOC(nhist - 1).post_content_type;
+		    WWWDoc.bookmark = HDOC(nhist - 1).bookmark;
+		    WWWDoc.isHEAD = HDOC(nhist - 1).isHEAD;
+		    WWWDoc.safe = HDOC(nhist - 1).safe;
+		    thatparent =
+			HTAnchor_findAddress(&WWWDoc);
+		    FREE(temp);
+		} else {
+		    WWWDoc.address = HDOC(nhist - 1).address;
+		}
+		if (!thatparent) {	/* if not yet done */
+		    WWWDoc.post_data = HDOC(nhist - 1).post_data;
+		    WWWDoc.post_content_type = HDOC(nhist - 1).post_content_type;
+		    WWWDoc.bookmark = HDOC(nhist - 1).bookmark;
+		    WWWDoc.isHEAD = HDOC(nhist - 1).isHEAD;
+		    WWWDoc.safe = HDOC(nhist - 1).safe;
+		    thatparent =
+			HTAnchor_findAddress(&WWWDoc);
+		}
+		/* In addition to equality of the ParentAnchors, require
+		 * that IF we have a HTMainText (i.e., it wasn't just
+		 * HTuncache'd by mainloop), THEN it has to be consistent
+		 * with what we are trying to push.
+		 *
+		 * This may be overkill...  - kw
+		 */
+		if (thatparent == thisparent &&
+		    (!HTMainText || HTMainAnchor == thisparent)
+		    ) {
+		    HDOC(nhist).internal_link = TRUE;
+		    history[nhist].intern_seq_start =
+			history[nhist - 1].intern_seq_start >= 0 ?
+			history[nhist - 1].intern_seq_start : nhist - 1;
+		    CTRACE((tfp, "\nLYpush: pushed as internal link, OK\n"));
+		}
+	    }
+	}
+	if (!HDOC(nhist).internal_link) {
+	    CTRACE((tfp, "\nLYpush: push as internal link requested, %s\n",
+		    "but didn't check out!"));
+	}
+    }
+    CTRACE((tfp, "\nLYpush[%d]: address:%s\n        title:%s\n",
+	    nhist, doc->address, doc->title));
+    nhist++;
+    return 1;
+}
+
+/*
+ * Pop the previous filename, link and line number from the history list.
+ */
+void LYpop(DocInfo *doc)
+{
+    if (nhist > 0) {
+	clean_extra_history();
+	nhist--;
+
+	LYFreeDocInfo(doc);
+
+	*doc = HDOC(nhist);
+
+#ifdef DISP_PARTIAL
+	/* assume we pop the 'doc' to show it soon... */
+	LYSetNewline(doc->line);	/* reinitialize */
+#endif /* DISP_PARTIAL */
+	CTRACE((tfp, "LYpop[%d]: address:%s\n     title:%s\n",
+		nhist, doc->address, doc->title));
+    }
+}
+
+/*
+ * Move to the previous filename, link and line number from the history list.
+ */
+void LYhist_prev(DocInfo *doc)
+{
+    trace_history("LYhist_prev");
+    if (nhist > 0 && (nhist_extra || (unsigned) nhist < size_history)) {
+	nhist--;
+	nhist_extra++;
+	LYpop_num(nhist, doc);
+	trace_history("...LYhist_prev");
+    }
+}
+
+/*
+ * Called before calling LYhist_prev().
+ */
+void LYhist_prev_register(DocInfo *doc)
+{
+    trace_history("LYhist_prev_register");
+    if (nhist > 1) {
+	if (nhist_extra) {	/* Make something to return back */
+	    /* Store the new position */
+	    HDOC(nhist).link = doc->link;
+	    HDOC(nhist).line = doc->line;
+	} else if (LYpush(doc, 0)) {
+	    nhist--;
+	    nhist_extra++;
+	}
+	trace_history("...LYhist_prev_register");
+    }
+}
+
+/*
+ * Move to the next filename, link and line number from the history.
+ */
+int LYhist_next(DocInfo *doc, DocInfo *newdoc)
+{
+    if (nhist_extra <= 1)	/* == 1 when we are the last one */
+	return 0;
+    /* Store the new position */
+    HDOC(nhist).link = doc->link;
+    HDOC(nhist).line = doc->line;
+    LYAllocHistory((unsigned) nhist);
+    nhist++;
+    nhist_extra--;
+    LYpop_num(nhist, newdoc);
+    return 1;
+}
+
+/*
+ * Pop the specified hist entry, link and line number from the history list but
+ * don't actually remove the entry, just return it.
+ * (This procedure is badly named :)
+ */
+void LYpop_num(int number,
+	       DocInfo *doc)
+{
+    if (number >= 0 && (nhist + nhist_extra) > number) {
+	doc->link = HDOC(number).link;
+	doc->line = HDOC(number).line;
+	StrAllocCopy(doc->title, HDOC(number).title);
+	StrAllocCopy(doc->address, HDOC(number).address);
+	BStrCopy(doc->post_data, HDOC(number).post_data);
+	StrAllocCopy(doc->post_content_type, HDOC(number).post_content_type);
+	StrAllocCopy(doc->bookmark, HDOC(number).bookmark);
+	doc->isHEAD = HDOC(number).isHEAD;
+	doc->safe = HDOC(number).safe;
+	doc->internal_link = HDOC(number).internal_link;	/* ?? */
+#ifdef DISP_PARTIAL
+	/* assume we pop the 'doc' to show it soon... */
+	LYSetNewline(doc->line);	/* reinitialize */
+#endif /* DISP_PARTIAL */
+	if (TRACE) {
+	    CTRACE((tfp, "LYpop_num(%d)\n", number));
+	    CTRACE((tfp, "  link    %d\n", doc->link));
+	    CTRACE((tfp, "  line    %d\n", doc->line));
+	    CTRACE((tfp, "  title   %s\n", NonNull(doc->title)));
+	    CTRACE((tfp, "  address %s\n", NonNull(doc->address)));
+	}
+    }
+}
+
+/*
+ * This procedure outputs the history buffer into a temporary file.
+ */
+int showhistory(char **newfile)
+{
+    static char tempfile[LY_MAXPATH] = "\0";
+    char *Title = NULL;
+    int x = 0;
+    FILE *fp0;
+
+    if ((fp0 = InternalPageFP(tempfile, TRUE)) == 0)
+	return (-1);
+
+    LYLocalFileToURL(newfile, tempfile);
+
+    LYforce_HTML_mode = TRUE;	/* force this file to be HTML */
+    LYforce_no_cache = TRUE;	/* force this file to be new */
+
+    BeginInternalPage(fp0, HISTORY_PAGE_TITLE, HISTORY_PAGE_HELP);
+
+    fprintf(fp0, "<p align=right> <a href=\"%s\">[%s]</a>\n",
+	    STR_LYNXMESSAGES, STATUSLINES_TITLE);
+
+    fprintf(fp0, "<pre>\n");
+
+    fprintf(fp0, "<em>%s</em>\n", gettext("You selected:"));
+    for (x = nhist + nhist_extra - 1; x >= 0; x--) {
+	/*
+	 * The number of the document in the hist stack, its title in a link,
+	 * and its address.  - FM
+	 */
+	if (HDOC(x).title != NULL) {
+	    StrAllocCopy(Title, HDOC(x).title);
+	    LYEntify(&Title, TRUE);
+	    LYTrimLeading(Title);
+	    LYTrimTrailing(Title);
+	    if (*Title == '\0')
+		StrAllocCopy(Title, NO_TITLE);
+	} else {
+	    StrAllocCopy(Title, NO_TITLE);
+	}
+	fprintf(fp0,
+		"%s<em>%d</em>. <tab id=t%d><a href=\"%s%d\">%s</a>\n",
+		(x > 99 ? "" : x < 10 ? "  " : " "),
+		x, x, STR_LYNXHIST, x, Title);
+	if (HDOC(x).address != NULL) {
+	    StrAllocCopy(Title, HDOC(x).address);
+	    LYEntify(&Title, TRUE);
+	} else {
+	    StrAllocCopy(Title, gettext("(no address)"));
+	}
+	if (HDOC(x).internal_link) {
+	    if (history[x].intern_seq_start == history[nhist - 1].intern_seq_start)
+		StrAllocCat(Title, gettext(" (internal)"));
+	    else
+		StrAllocCat(Title, gettext(" (was internal)"));
+	}
+	fprintf(fp0, "<tab to=t%d>%s\n", x, Title);
+    }
+    fprintf(fp0, "</pre>\n");
+    EndInternalPage(fp0);
+
+    LYCloseTempFP(fp0);
+    FREE(Title);
+    return (0);
+}
+
+/*
+ * This function makes the history page seem like any other type of file since
+ * more info is needed than can be provided by the normal link structure.  We
+ * saved out the history number to a special URL.
+ *
+ * The info looks like:  LYNXHIST:#
+ */
+BOOLEAN historytarget(DocInfo *newdoc)
+{
+    int number;
+    DocAddress WWWDoc;
+    HTParentAnchor *tmpanchor;
+    HText *text;
+    BOOLEAN treat_as_intern = FALSE;
+
+    if ((!newdoc || !newdoc->address) ||
+	strlen(newdoc->address) < 10 || !isdigit(UCH(*(newdoc->address + 9))))
+	return (FALSE);
+
+    if ((number = atoi(newdoc->address + 9)) > nhist + nhist_extra || number < 0)
+	return (FALSE);
+
+    /*
+     * Optimization: assume we came from the History Page,
+     * so never return back - always a new version next time.
+     * But check first whether HTMainText is really the History
+     * Page document - in some obscure situations this may not be
+     * the case.  If HTMainText seems to be a History Page document,
+     * also check that it really hasn't been pushed. - LP, kw
+     */
+    if (HTMainText && nhist > 0 &&
+	!strcmp(HTLoadedDocumentTitle(), HISTORY_PAGE_TITLE) &&
+	LYIsUIPage3(HTLoadedDocumentURL(), UIP_HISTORY, 0) &&
+	strcmp(HTLoadedDocumentURL(), HDOC(nhist - 1).address)) {
+	HTuncache_current_document();	/* don't waste the cache */
+    }
+
+    LYpop_num(number, newdoc);
+    if (((newdoc->internal_link &&
+	  history[number].intern_seq_start == history[nhist - 1].intern_seq_start)
+	 || (number < nhist - 1 &&
+	     HDOC(nhist - 1).internal_link &&
+	     number == history[nhist - 1].intern_seq_start))
+	&& !(LYforce_no_cache == TRUE && LYoverride_no_cache == FALSE)) {
+	if (track_internal_links) {
+	    LYforce_no_cache = FALSE;
+	    LYinternal_flag = TRUE;
+	    newdoc->internal_link = TRUE;
+	    treat_as_intern = TRUE;
+	}
+    } else {
+	newdoc->internal_link = FALSE;
+    }
+    /*
+     * If we have POST content, and have LYresubmit_posts set or have no_cache
+     * set or do not still have the text cached, ask the user whether to
+     * resubmit the form.  - FM
+     */
+    if (newdoc->post_data != NULL) {
+	WWWDoc.address = newdoc->address;
+	WWWDoc.post_data = newdoc->post_data;
+	WWWDoc.post_content_type = newdoc->post_content_type;
+	WWWDoc.bookmark = newdoc->bookmark;
+	WWWDoc.isHEAD = newdoc->isHEAD;
+	WWWDoc.safe = newdoc->safe;
+	tmpanchor = HTAnchor_findAddress(&WWWDoc);
+	text = (HText *) HTAnchor_document(tmpanchor);
+	if (((((LYresubmit_posts == TRUE) ||
+	       (LYforce_no_cache == TRUE &&
+		LYoverride_no_cache == FALSE)) &&
+	      !(treat_as_intern && !reloading)) ||
+	     text == NULL) &&
+	    (isLYNXIMGMAP(newdoc->address) ||
+	     HTConfirm(CONFIRM_POST_RESUBMISSION) == TRUE)) {
+	    LYforce_no_cache = TRUE;
+	    LYoverride_no_cache = FALSE;
+	} else if (text != NULL) {
+	    LYforce_no_cache = FALSE;
+	    LYoverride_no_cache = TRUE;
+	} else {
+	    HTInfoMsg(CANCELLED);
+	    return (FALSE);
+	}
+    }
+
+    if (number != 0)
+	StrAllocCat(newdoc->title, gettext(" (From History)"));
+    return (TRUE);
+}
+
+/*
+ * This procedure outputs the Visited Links list into a temporary file.  - FM
+ * Returns links's number to make active (1-based), or 0 if not required.
+ */
+int LYShowVisitedLinks(char **newfile)
+{
+    static char tempfile[LY_MAXPATH] = "\0";
+    char *Title = NULL;
+    char *Address = NULL;
+    int x, tot;
+    FILE *fp0;
+    VisitedLink *vl;
+    HTList *cur = Visited_Links;
+    int offset;
+    int ret = 0;
+    const char *arrow, *post_arrow;
+
+    if (!cur)
+	return (-1);
+
+    if ((fp0 = InternalPageFP(tempfile, TRUE)) == 0)
+	return (-1);
+
+    LYLocalFileToURL(newfile, tempfile);
+    LYRegisterUIPage(*newfile, UIP_VLINKS);
+
+    LYforce_HTML_mode = TRUE;	/* force this file to be HTML */
+    LYforce_no_cache = TRUE;	/* force this file to be new */
+
+    BeginInternalPage(fp0, VISITED_LINKS_TITLE, VISITED_LINKS_HELP);
+
+#ifndef NO_OPTION_FORMS
+    fprintf(fp0, "<form action=\"%s\" method=\"post\">\n", STR_LYNXOPTIONS);
+    LYMenuVisitedLinks(fp0, FALSE);
+    fprintf(fp0, "<input type=\"submit\" value=\"Accept Changes\">\n");
+    fprintf(fp0, "</form>\n");
+    fprintf(fp0, "<P>\n");
+#endif
+
+    fprintf(fp0, "<pre>\n");
+    fprintf(fp0, "<em>%s</em>\n",
+	    gettext("You visited (POSTs, bookmark, menu and list files excluded):"));
+    if (Visited_Links_As & VISITED_LINKS_REVERSE)
+	tot = x = HTList_count(Visited_Links);
+    else
+	tot = x = -1;
+
+    if (Visited_Links_As & VISITED_LINKS_AS_TREE) {
+	vl = First_tree;
+    } else if (Visited_Links_As & VISITED_LINKS_AS_LATEST) {
+	if (Visited_Links_As & VISITED_LINKS_REVERSE)
+	    vl = Latest_last.prev_latest;
+	else
+	    vl = Latest_first.next_latest;
+	if (vl == &Latest_last || vl == &Latest_first)
+	    vl = NULL;
+    } else {
+	if (Visited_Links_As & VISITED_LINKS_REVERSE)
+	    vl = Last_by_first;
+	else
+	    vl = (VisitedLink *) HTList_nextObject(cur);
+    }
+    while (NULL != vl) {
+	/*
+	 * The number of the document (most recent highest), its title in a
+	 * link, and its address.  - FM
+	 */
+	post_arrow = arrow = "";
+	if (Visited_Links_As & VISITED_LINKS_REVERSE)
+	    x--;
+	else
+	    x++;
+	if (vl == PrevActiveVisitedLink) {
+	    if (Visited_Links_As & VISITED_LINKS_REVERSE)
+		ret = tot - x + 2;
+	    else
+		ret = x + 3;
+	}
+	if (vl == PrevActiveVisitedLink) {
+	    post_arrow = "<A NAME=current></A>";
+	    /* Otherwise levels 0 and 1 look the same when with arrow: */
+	    arrow = (vl->level && (Visited_Links_As & VISITED_LINKS_AS_TREE))
+		? "==>" : "=>";
+	    StrAllocCat(*newfile, "#current");
+	}
+	if (Visited_Links_As & VISITED_LINKS_AS_TREE) {
+	    offset = 2 * vl->level;
+	    if (offset > 24)
+		offset = (offset + 24) / 2;
+	    if (offset > LYcols * 3 / 4)
+		offset = LYcols * 3 / 4;
+	} else
+	    offset = (x > 99 ? 0 : x < 10 ? 2 : 1);
+	if (non_empty(vl->title)) {
+	    StrAllocCopy(Title, vl->title);
+	    LYEntify(&Title, TRUE);
+	    LYTrimLeading(Title);
+	    LYTrimTrailing(Title);
+	    if (*Title == '\0')
+		StrAllocCopy(Title, NO_TITLE);
+	} else {
+	    StrAllocCopy(Title, NO_TITLE);
+	}
+	if (non_empty(vl->address)) {
+	    StrAllocCopy(Address, vl->address);
+	    LYEntify(&Address, FALSE);
+	    fprintf(fp0,
+		    "%-*s%s<em>%d</em>. <tab id=t%d><a href=\"%s\">%s</a>\n",
+		    offset, arrow, post_arrow,
+		    x, x, Address, Title);
+	} else {
+	    fprintf(fp0,
+		    "%-*s%s<em>%d</em>. <tab id=t%d><em>%s</em>\n",
+		    offset, arrow, post_arrow,
+		    x, x, Title);
+	}
+	if (Address != NULL) {
+	    StrAllocCopy(Address, vl->address);
+	    LYEntify(&Address, TRUE);
+	}
+	fprintf(fp0, "<tab to=t%d>%s\n", x,
+		((Address != NULL) ? Address : gettext("(no address)")));
+	if (Visited_Links_As & VISITED_LINKS_AS_TREE)
+	    vl = vl->next_tree;
+	else if (Visited_Links_As & VISITED_LINKS_AS_LATEST) {
+	    if (Visited_Links_As & VISITED_LINKS_REVERSE)
+		vl = vl->prev_latest;
+	    else
+		vl = vl->next_latest;
+	    if (vl == &Latest_last || vl == &Latest_first)
+		vl = NULL;
+	} else {
+	    if (Visited_Links_As & VISITED_LINKS_REVERSE)
+		vl = vl->prev_first;
+	    else
+		vl = (VisitedLink *) HTList_nextObject(cur);
+	}
+    }
+    fprintf(fp0, "</pre>\n");
+    EndInternalPage(fp0);
+
+    LYCloseTempFP(fp0);
+    FREE(Title);
+    FREE(Address);
+    return (ret);
+}
+
+/*
+ * Keep cycled buffer for statusline messages.
+ * But allow user to change how big it will be from userdefs.h
+ */
+#ifndef STATUSBUFSIZE
+#define STATUSBUFSIZE   40
+#endif
+
+int status_buf_size = STATUSBUFSIZE;
+
+static char **buffstack;
+static int topOfStack = 0;
+
+#ifdef LY_FIND_LEAKS
+static void free_messages_stack(void)
+{
+    if (buffstack != 0) {
+	topOfStack = status_buf_size;
+
+	while (--topOfStack >= 0) {
+	    FREE(buffstack[topOfStack]);
+	}
+	FREE(buffstack);
+    }
+}
+#endif
+
+static void to_stack(char *str)
+{
+    /*
+     * Cycle buffer:
+     */
+    if (topOfStack >= status_buf_size) {
+	topOfStack = 0;
+    }
+
+    /*
+     * Register string.
+     */
+    if (buffstack == 0)
+	buffstack = typecallocn(char *, (size_t) status_buf_size);
+
+    FREE(buffstack[topOfStack]);
+    buffstack[topOfStack] = str;
+    topOfStack++;
+#ifdef LY_FIND_LEAKS
+    if (!already_registered_free_messages_stack) {
+	already_registered_free_messages_stack = 1;
+	atexit(free_messages_stack);
+    }
+#endif
+    if (topOfStack >= status_buf_size) {
+	topOfStack = 0;
+    }
+}
+
+/*
+ * Dump statusline messages into the buffer.
+ * Called from mainloop() when exit immediately with an error:
+ * can not access startfile (first_file) so a couple of alert messages
+ * will be very useful on exit.
+ * (Don't expect everyone will look a trace log in case of difficulties:))
+ */
+void LYstatusline_messages_on_exit(char **buf)
+{
+    int i;
+
+    if (buffstack != 0) {
+	StrAllocCat(*buf, "\n");
+	/* print messages in chronological order:
+	 * probably a single message but let's do it.
+	 */
+	i = topOfStack - 1;
+	while (++i < status_buf_size) {
+	    if (buffstack[i] != NULL) {
+		StrAllocCat(*buf, buffstack[i]);
+		StrAllocCat(*buf, "\n");
+	    }
+	}
+	i = -1;
+	while (++i < topOfStack) {
+	    if (buffstack[i] != NULL) {
+		StrAllocCat(*buf, buffstack[i]);
+		StrAllocCat(*buf, "\n");
+	    }
+	}
+    }
+}
+
+void LYstore_message2(const char *message,
+		      const char *argument)
+{
+
+    if (message != NULL) {
+	char *temp = NULL;
+
+	HTSprintf0(&temp, message, NonNull(argument));
+	to_stack(temp);
+    }
+}
+
+void LYstore_message(const char *message)
+{
+    if (message != NULL) {
+	char *temp = NULL;
+
+	StrAllocCopy(temp, message);
+	to_stack(temp);
+    }
+}
+
+/*     LYLoadMESSAGES
+ *     --------------
+ *     Create a text/html stream with a list of recent statusline messages.
+ *     LYNXMESSAGES:/ internal page.
+ *     [implementation based on LYLoadKeymap()].
+ */
+
+static int LYLoadMESSAGES(const char *arg GCC_UNUSED,
+			  HTParentAnchor *anAnchor,
+			  HTFormat format_out,
+			  HTStream *sink)
+{
+    HTFormat format_in = WWW_HTML;
+    HTStream *target = NULL;
+    char *buf = NULL;
+    int nummsg = 0;
+
+    int i;
+    char *temp = NULL;
+
+    if (buffstack != 0) {
+	i = status_buf_size;
+	while (--i >= 0) {
+	    if (buffstack[i] != NULL)
+		nummsg++;
+	}
+    }
+
+    /*
+     * Set up the stream.  - FM
+     */
+    target = HTStreamStack(format_in, format_out, sink, anAnchor);
+
+    if (target == NULL) {
+	HTSprintf0(&buf, CANNOT_CONVERT_I_TO_O,
+		   HTAtom_name(format_in), HTAtom_name(format_out));
+	HTAlert(buf);
+	FREE(buf);
+	return (HT_NOT_LOADED);
+    }
+    anAnchor->no_cache = TRUE;
+
+#define PUTS(buf)    (*target->isa->put_block)(target, buf, (int) strlen(buf))
+
+    HTSprintf0(&buf, "<html>\n<head>\n");
+    PUTS(buf);
+    /*
+     * This page is a list of messages in display character set.
+     */
+    HTSprintf0(&buf, "<META %s content=\"" STR_HTML ";charset=%s\">\n",
+	       "http-equiv=\"content-type\"",
+	       LYCharSet_UC[current_char_set].MIMEname);
+    PUTS(buf);
+    HTSprintf0(&buf, "<title>%s</title>\n</head>\n<body>\n",
+	       STATUSLINES_TITLE);
+    PUTS(buf);
+
+    if (nummsg != 0) {
+	HTSprintf0(&buf, "<ol>\n");
+	PUTS(buf);
+	/* print messages in reverse order: */
+	i = topOfStack;
+	while (--i >= 0) {
+	    if (buffstack[i] != NULL) {
+		StrAllocCopy(temp, buffstack[i]);
+		LYEntify(&temp, TRUE);
+		HTSprintf0(&buf, "<li value=%d> <em>%s</em>\n", nummsg, temp);
+		nummsg--;
+		PUTS(buf);
+	    }
+	}
+	i = status_buf_size;
+	while (--i >= topOfStack) {
+	    if (buffstack[i] != NULL) {
+		StrAllocCopy(temp, buffstack[i]);
+		LYEntify(&temp, TRUE);
+		HTSprintf0(&buf, "<li value=%d> <em>%s</em>\n", nummsg, temp);
+		nummsg--;
+		PUTS(buf);
+	    }
+	}
+	FREE(temp);
+	HTSprintf0(&buf, "</ol>\n</body>\n</html>\n");
+    } else {
+	HTSprintf0(&buf, "<p>%s\n</body>\n</html>\n",
+		   gettext("(No messages yet)"));
+    }
+    PUTS(buf);
+
+    (*target->isa->_free) (target);
+    FREE(buf);
+    return (HT_LOADED);
+}
+
+#ifdef GLOBALDEF_IS_MACRO
+#define _LYMESSAGES_C_GLOBALDEF_1_INIT { "LYNXMESSAGES", LYLoadMESSAGES, 0}
+GLOBALDEF(HTProtocol, LYLynxStatusMessages, _LYMESSAGES_C_GLOBALDEF_1_INIT);
+#else
+GLOBALDEF HTProtocol LYLynxStatusMessages =
+{"LYNXMESSAGES", LYLoadMESSAGES, 0};
+#endif /* GLOBALDEF_IS_MACRO */