[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[7854] parsetexi verbatiminclude
From: |
gavinsmith0123 |
Subject: |
[7854] parsetexi verbatiminclude |
Date: |
Sun, 25 Jun 2017 11:49:25 -0400 (EDT) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [7854] parsetexi verbatiminclude,
gavinsmith0123 <=