[7828] parsetexi create sortas in index

[gavinsmith0123]

Revision: 7828
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7828
Author:   gavin
Date:     2017-06-11 14:34:58 -0400 (Sun, 11 Jun 2017)
Log Message:
-----------
parsetexi create sortas in index

Modified Paths:
--------------
    trunk/tp/parsetexi/api.c
    trunk/tp/parsetexi/indices.c
    trunk/tp/parsetexi/tree_types.h

Modified: trunk/tp/parsetexi/api.c
===================================================================
--- trunk/tp/parsetexi/api.c    2017-06-11 18:28:30 UTC (rev 7827)
+++ trunk/tp/parsetexi/api.c    2017-06-11 18:34:58 UTC (rev 7828)
@@ -781,6 +781,8 @@
         }
       if (e->node)
         STORE2("node", newRV_inc ((SV *)e->node->hv));
+      if (e->sortas)
+        STORE2("sortas", newSVpv (e->sortas, 0));
 
       /* We set this now because the index data structures don't
          exist at the time that the main tree is built. */

Modified: trunk/tp/parsetexi/indices.c
===================================================================
--- trunk/tp/parsetexi/indices.c        2017-06-11 18:28:30 UTC (rev 7827)
+++ trunk/tp/parsetexi/indices.c        2017-06-11 18:34:58 UTC (rev 7828)
@@ -241,6 +241,7 @@
   INDEX *idx;
   INDEX_ENTRY *entry;
   INDEX_ENTRY_REF *ier;
+  KEY_PAIR *k;
 
   idx = index_of_command (index_type_command);
   if (idx->index_number == idx->index_space)
@@ -263,6 +264,12 @@
   entry->command = current;
   entry->number = idx->index_number;
 
+  k = lookup_extra_key (current, "sortas");
+  if (k)
+    {
+      entry->sortas = (char *) k->value;
+    }
+
   if (current_region ())
     entry->region = current_region ();
   entry->node = current_node;

Modified: trunk/tp/parsetexi/tree_types.h
===================================================================
--- trunk/tp/parsetexi/tree_types.h     2017-06-11 18:28:30 UTC (rev 7827)
+++ trunk/tp/parsetexi/tree_types.h     2017-06-11 18:34:58 UTC (rev 7828)
@@ -189,6 +189,7 @@
     ELEMENT *node;
     int number; /* Index of entry in containing index, 1-based. */
     ELEMENT *region;
+    char *sortas; /* the sort key for the index */
 } INDEX_ENTRY;
 
 typedef struct INDEX {