[7854] parsetexi verbatiminclude

[gavinsmith0123]

Revision: 7854
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7854
Author:   gavin
Date:     2017-06-25 11:49:25 -0400 (Sun, 25 Jun 2017)
Log Message:
-----------
parsetexi verbatiminclude

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

Modified: trunk/tp/parsetexi/end_line.c
===================================================================
--- trunk/tp/parsetexi/end_line.c       2017-06-25 15:35:12 UTC (rev 7853)
+++ trunk/tp/parsetexi/end_line.c       2017-06-25 15:49:25 UTC (rev 7854)
@@ -1554,6 +1554,12 @@
                     included_file = 1;
                 }
             }
+          else if (current->cmd == CM_verbatiminclude)
+            {
+              if (global_info.input_perl_encoding)
+                add_extra_string (current, "input_perl_encoding",
+                                  global_info.input_perl_encoding);
+            }
           else if (current->cmd == CM_documentencoding) // 3190
             {
               int i; char *p, *text2;
@@ -1636,6 +1642,7 @@
                     }
                   add_extra_string (current, "input_perl_encoding",
                                     perl_encoding);
+                  global_info.input_perl_encoding = perl_encoding;
                 }
               else
                 {

Modified: trunk/tp/parsetexi/tree_types.h
===================================================================
--- trunk/tp/parsetexi/tree_types.h     2017-06-25 15:35:12 UTC (rev 7853)
+++ trunk/tp/parsetexi/tree_types.h     2017-06-25 15:49:25 UTC (rev 7854)
@@ -110,6 +110,7 @@
 typedef struct GLOBAL_INFO {
     char *input_file_name;
     char *input_encoding_name;
+    char *input_perl_encoding;
 
     /* Elements that should be unique. */
     // 288 and Common.pm:164