[8040] parsetexi propagate documentlanguage from command line

[gavinsmith0123]

Revision: 8040
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8040
Author:   gavin
Date:     2018-08-10 11:34:07 -0400 (Fri, 10 Aug 2018)
Log Message:
-----------
parsetexi propagate documentlanguage from command line

Modified Paths:
--------------
    trunk/tp/parsetexi/Parsetexi.pm
    trunk/tp/parsetexi/Parsetexi.xs
    trunk/tp/parsetexi/api.h
    trunk/tp/parsetexi/parser.c

Modified: trunk/tp/parsetexi/Parsetexi.pm
===================================================================
--- trunk/tp/parsetexi/Parsetexi.pm     2018-08-10 15:19:50 UTC (rev 8039)
+++ trunk/tp/parsetexi/Parsetexi.pm     2018-08-10 15:34:07 UTC (rev 8040)
@@ -151,9 +151,7 @@
       }
 
       if ($key eq 'include_directories') {
-        #warn "Passed include_directories\n";
         foreach my $d (@{$conf->{'include_directories'}}) {
-          #warn "got dir $d\n";
           add_include_directory ($d);
         }
       } elsif ($key eq 'values') {
@@ -175,6 +173,8 @@
         for my $f (@{$parser->{$key}}) {
           add_expanded_format ($f);
         }
+      } elsif ($key eq 'documentlanguage') {
+        set_documentlanguage ($conf->{$key});
       } elsif ($key eq 'SHOW_MENU') {
         conf_set_show_menu ($conf->{$key});
       } elsif ($key eq 'CPP_LINE_DIRECTIVES') {

Modified: trunk/tp/parsetexi/Parsetexi.xs
===================================================================
--- trunk/tp/parsetexi/Parsetexi.xs     2018-08-10 15:19:50 UTC (rev 8039)
+++ trunk/tp/parsetexi/Parsetexi.xs     2018-08-10 15:34:07 UTC (rev 8040)
@@ -137,4 +137,8 @@
 conf_set_CPP_LINE_DIRECTIVES (int i)
 
 void
+set_documentlanguage (value)
+     char *value
+
+void
 set_debug (int i)

Modified: trunk/tp/parsetexi/api.h
===================================================================
--- trunk/tp/parsetexi/api.h    2018-08-10 15:19:50 UTC (rev 8039)
+++ trunk/tp/parsetexi/api.h    2018-08-10 15:34:07 UTC (rev 8040)
@@ -9,6 +9,9 @@
 int num_args_children (ELEMENT *e);
 void reset_parser (void);
 
+/* In parser.c */
+void set_documentlanguage (char *);
+
 //HV *build_global_info (void);
 //HV *build_global_info2 (void);
 

Modified: trunk/tp/parsetexi/parser.c
===================================================================
--- trunk/tp/parsetexi/parser.c 2018-08-10 15:19:50 UTC (rev 8039)
+++ trunk/tp/parsetexi/parser.c 2018-08-10 15:34:07 UTC (rev 8040)
@@ -118,6 +118,12 @@
 enum kbd_enum global_kbdinputstyle = kbd_distinct;
 
 void
+set_documentlanguage (char *value)
+{
+  global_documentlanguage = value;
+}
+
+void
 wipe_global_info (void)
 {
   global_clickstyle = "arrow";