[7901] parsetexi dircategory_direntry array

[gavinsmith0123]

Revision: 7901
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7901
Author:   gavin
Date:     2017-07-02 06:55:24 -0400 (Sun, 02 Jul 2017)
Log Message:
-----------
parsetexi dircategory_direntry array

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

Modified: trunk/tp/parsetexi/api.c
===================================================================
--- trunk/tp/parsetexi/api.c    2017-07-02 10:30:40 UTC (rev 7900)
+++ trunk/tp/parsetexi/api.c    2017-07-02 10:55:24 UTC (rev 7901)
@@ -834,6 +834,8 @@
 build_global_info (void)
 {
   HV *hv;
+  int i;
+  ELEMENT *e;
 
   dTHX;
 
@@ -844,6 +846,20 @@
   if (global_info.input_perl_encoding)
     hv_store (hv, "input_perl_encoding", strlen ("input_perl_encoding"),
               newSVpv (global_info.input_perl_encoding, 0), 0);
+
+  if (global_info.dircategory_direntry.contents.number > 0)
+    {
+      AV *av = newAV ();
+      hv_store (hv, "dircategory_direntry", strlen ("dircategory_direntry"),
+                newRV_inc ((SV *) av), 0);
+      for (i = 0; i < global_info.dircategory_direntry.contents.number; i++)
+        {
+          e = contents_child_by_index (&global_info.dircategory_direntry, i);
+          if (e->hv)
+            av_push (av, newRV_inc ((SV *) e->hv));
+        }
+    }
+
   if (global_info.novalidate)
     {
       hv_store (hv, "novalidate", strlen ("novalidate"),

Modified: trunk/tp/parsetexi/handle_commands.c
===================================================================
--- trunk/tp/parsetexi/handle_commands.c        2017-07-02 10:30:40 UTC (rev 
7900)
+++ trunk/tp/parsetexi/handle_commands.c        2017-07-02 10:55:24 UTC (rev 
7901)
@@ -792,6 +792,8 @@
 
   if (misc)
     register_global_command (cmd, misc);
+  if (cmd == CM_dircategory)
+    add_to_contents_as_array (&global_info.dircategory_direntry, misc);
 
 funexit:
   *line_inout = line;
@@ -1091,7 +1093,9 @@
               else
                 push_context (ct_menu);
 
-              // Record dir entry here
+              if (cmd == CM_direntry)
+                add_to_contents_as_array (&global_info.dircategory_direntry, 
+                                          block);
 
               if (current_node) // 4793
                 {

Modified: trunk/tp/parsetexi/tree_types.h
===================================================================
--- trunk/tp/parsetexi/tree_types.h     2017-07-02 10:30:40 UTC (rev 7900)
+++ trunk/tp/parsetexi/tree_types.h     2017-07-02 10:55:24 UTC (rev 7901)
@@ -113,6 +113,7 @@
     char *input_encoding_name;
     char *input_perl_encoding;
     int sections_level;
+    ELEMENT dircategory_direntry;
 
     /* Elements that should be unique. */
     // 288 and Common.pm:164