texinfo/makeinfo xml.c,1.5,1.6

[dirt]

Update of /cvsroot/texinfo/texinfo/makeinfo
In directory sheep:/tmp/cvs-serv21034/makeinfo

Modified Files:
        xml.c 
Log Message:
2003-12-16  Alper Ersoy  <address@hidden>

        * makeinfo/xml.c (xml_begin_document): output xml process instruction
        also in the Docbook prolog.



Index: xml.c
===================================================================
RCS file: /cvsroot/texinfo/texinfo/makeinfo/xml.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** xml.c       2003/12/13 11:29:50     1.5
--- xml.c       2003/12/16 21:29:40     1.6
***************
*** 572,575 ****
--- 572,585 ----
  
    book_started = 1;
+ 
+   insert_string ("<?xml version=\"1.0\"");
+   if (document_encoding_code != no_encoding)
+     {
+       insert_string (" encoding=\"");
+       insert_string (current_document_encoding ());
+       insert_string ("\"");
+     }
+   insert_string ("?>");
+ 
    if (docbook)
      {
***************
*** 579,590 ****
    else
      {
!       insert_string ("<?xml version=\"1.0\"");
!       if (document_encoding_code != no_encoding)
!         {
!           insert_string (" encoding=\"");
!           insert_string (current_document_encoding ());
!           insert_string ("\"");
!         }
!       insert_string ("?><!DOCTYPE texinfo SYSTEM \"texinfo.dtd\">");
        xml_element_list = texinfoml_element_list;
      }
--- 589,593 ----
    else
      {
!       insert_string ("<!DOCTYPE texinfo SYSTEM \"texinfo.dtd\">");
        xml_element_list = texinfoml_element_list;
      }