From 3f3d1accc32d4228ee695072994dba0a76b905b9 Mon Sep 17 00:00:00 2001
From: simon <simon@cda61777-01e9-0310-a592-d414129be87e>
Date: Wed, 14 Apr 2004 17:48:37 +0000
Subject: [PATCH] And now the page numbers in the index are PDF
 cross-references too. Funny, I thought that would be as hard again as the
 main index processing, and it turned out to be nearly trivial.

git-svn-id: svn://svn.tartarus.org/sgt/halibut@4073 cda61777-01e9-0310-a592-d414129be87e
---
 bk_paper.c | 57 +++++++++++++++++++++++++++++++++++++++++++++++++--------
 halibut.h  | 11 ++++++++++-
 2 files changed, 59 insertions(+), 9 deletions(-)

diff --git a/bk_paper.c b/bk_paper.c
index 720f088..e993ece 100644
--- a/bk_paper.c
+++ b/bk_paper.c
@@ -12,8 +12,6 @@
 /*
  * To be done:
  * 
- *  - index
- * 
  *  - header/footer? Page numbers at least would be handy. Fully
  *    configurable footer can wait, though.
  * 
@@ -89,6 +87,10 @@ struct paper_idx_Tag {
     page_data *lastpage;
 };
 
+enum {
+    word_PageXref = word_NotWordType + 1
+};
+
 static font_data *make_std_font(font_list *fontlist, char const *name);
 static void wrap_paragraph(para_data *pdata, word *words,
 			   int w, int i1, int i2);
@@ -113,6 +115,8 @@ static wchar_t *prepare_outline_title(word *first, wchar_t *separator,
 				      word *second);
 static word *fake_word(wchar_t *text);
 static word *fake_space_word(void);
+static word *fake_page_ref(page_data *page);
+static word *fake_end_ref(void);
 static word *prepare_contents_title(word *first, wchar_t *separator,
 				    word *second);
 static void fold_into_page(page_data *dest, page_data *src, int right_shift);
@@ -1113,6 +1117,7 @@ static int paper_width_internal(void *vctx, word *word, int *nspaces)
       case word_HyperEnd:
       case word_UpperXref:
       case word_LowerXref:
+      case word_PageXref:
       case word_XrefEnd:
       case word_IndexRef:
 	return 0;
@@ -1593,11 +1598,16 @@ static int render_text(page_data *page, para_data *pdata, line_data *ldata,
 	  case word_HyperLink:
 	  case word_UpperXref:
 	  case word_LowerXref:
+	  case word_PageXref:
 
 	    if (text->type == word_HyperLink) {
 		dest.type = URL;
 		dest.url = utoa_dup(text->text);
 		dest.page = NULL;
+	    } else if (text->type == word_PageXref) {
+		dest.type = PAGE;
+		dest.url = NULL;
+		dest.page = (page_data *)text->private_data;
 	    } else {
 		keyword *kwl = kw_lookup(keywords, text->text);
 		para_data *pdata;
@@ -1671,17 +1681,23 @@ static int render_text(page_data *page, para_data *pdata, line_data *ldata,
 		     * mention it once in the index.
 		     */
 		    if (pi->lastpage != page) {
+			word **wp;
+
 			if (pi->lastword) {
 			    pi->lastword = pi->lastword->next =
 				fake_word(L",");
 			    pi->lastword = pi->lastword->next =
 				fake_space_word();
-			    pi->lastword = pi->lastword->next =
-				fake_word(page->number);
-			} else {
-			    pi->lastword = pi->words =
-				fake_word(page->number);
-			}
+			    wp = &pi->lastword->next;
+			} else
+			    wp = &pi->words;
+
+			pi->lastword = *wp =
+			    fake_page_ref(page);
+			pi->lastword = pi->lastword->next =
+			    fake_word(page->number);
+			pi->lastword = pi->lastword->next =
+			    fake_end_ref();
 		    }
 
 		    pi->lastpage = page;
@@ -2201,6 +2217,31 @@ static word *fake_space_word(void)
     return ret;
 }
 
+static word *fake_page_ref(page_data *page)
+{
+    word *ret = mknew(word);
+    ret->next = NULL;
+    ret->alt = NULL;
+    ret->type = word_PageXref;
+    ret->text = NULL;
+    ret->breaks = FALSE;
+    ret->aux = 0;
+    ret->private_data = page;
+    return ret;
+}
+
+static word *fake_end_ref(void)
+{
+    word *ret = mknew(word);
+    ret->next = NULL;
+    ret->alt = NULL;
+    ret->type = word_XrefEnd;
+    ret->text = NULL;
+    ret->breaks = FALSE;
+    ret->aux = 0;
+    return ret;
+}
+
 static word *prepare_contents_title(word *first, wchar_t *separator,
 				    word *second)
 {
diff --git a/halibut.h b/halibut.h
index f9d22a2..9abc13f 100644
--- a/halibut.h
+++ b/halibut.h
@@ -114,6 +114,10 @@ enum {
     para_LcontPop,		       /* end continuation of list item */
     para_QuotePush,		       /* begin block quote */
     para_QuotePop,		       /* end block quote */
+    /*
+     * Back ends may define their own paragraph types beyond here,
+     * in case they need to use them internally.
+     */
     para_NotParaType		       /* placeholder value */
 };
 
@@ -153,7 +157,12 @@ enum {
     word_XrefEnd,		       /* (invisible; no text) */
     word_IndexRef,		       /* (always an invisible one) */
     word_HyperLink,		       /* (invisible) */
-    word_HyperEnd		       /* (also invisible; no text) */
+    word_HyperEnd,		       /* (also invisible; no text) */
+    /*
+     * Back ends may define their own word types beyond here, in
+     * case they need to use them internally.
+     */
+    word_NotWordType		       /* placeholder value */
 };
 /* aux values for attributed words */
 enum {
-- 
2.11.0