EvilBeaver#392 Копирование декларации xml и типа документа.

Author: dmpas

src/OneScript.StandardLibrary/Xml/XmlWriterImpl.cs

@@ -189,6 +189,12 @@ public void WriteCurrent(XmlReaderImpl reader)
                 case XmlNodeType.Element:
                     CopyElementAndAttributes(reader, this);
                     break;
+                case XmlNodeType.XmlDeclaration:
+                    WriteXMLDeclaration();
+                    break;
+                case XmlNodeType.DocumentType:
+                    CopyDocumentType(reader, this);
+                    break;
                 case XmlNodeType.Attribute:
                     WriteAttribute(reader.Name, reader.Value);
                     break;
@@ -203,6 +209,11 @@ public void WriteCurrent(XmlReaderImpl reader)
             }
         }
 
+        private static void CopyDocumentType(XmlReaderImpl reader, XmlWriterImpl writer)
+        {
+            writer.WriteDocumentType(reader.Name, reader.Value);
+        }
+
         private static void CopyElementAndAttributes(XmlReaderImpl reader, XmlWriterImpl writer)
         {
             writer.WriteStartElement(reader.Name);

tests/xmlwrite.os

@@ -34,6 +34,8 @@
 	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_КонецЭлемента");
 	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_Текст");
 
+	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_ОбъявлениеИТипДокумента");
+	
 	Возврат ВсеТесты;
 
 КонецФункции
@@ -300,7 +302,9 @@
 
 	ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML);
 
-	ЧтениеXML.Прочитать();
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ОбъявлениеXML, "<?xml>");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ОпределениеТипаДокумента, "<!DOCTYPE>");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.НачалоЭлемента, "<xml>");
 
 	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
 	ПолученныйТекст = ЗаписьXML.Закрыть();
@@ -316,8 +320,11 @@
 
 	ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML);
 
-	ЧтениеXML.Прочитать();
-	ЧтениеXML.Прочитать();
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ОбъявлениеXML, "<?xml>");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ОпределениеТипаДокумента, "<!DOCTYPE>");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.НачалоЭлемента, "<xml>");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ПробельныеСимволы);
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.НачалоЭлемента, "<data>");
 
 	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
 	ПолученныйТекст = ЗаписьXML.Закрыть();
@@ -333,8 +340,11 @@
 
 	ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML);
 
-	ЧтениеXML.Прочитать();
-	ЧтениеXML.Прочитать();
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ОбъявлениеXML, "<?xml>");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ОпределениеТипаДокумента, "<!DOCTYPE>");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.НачалоЭлемента, "<xml>");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ПробельныеСимволы);
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.НачалоЭлемента, "<data>");
 
 	ЧтениеXML.ПервыйАтрибут();
 	ЧтениеXML.СледующийАтрибут();
@@ -354,22 +364,22 @@
 
 	ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML);
 
-	ЧтениеXML.Прочитать();
-	ЧтениеXML.Прочитать();
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ОбъявлениеXML, "<?xml>");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ОпределениеТипаДокумента, "<!DOCTYPE>");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.НачалоЭлемента, "<xml>");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ПробельныеСимволы);
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.НачалоЭлемента, "<data>");
 
 	ЧтениеXML.ПервыйАтрибут();
 	ЧтениеXML.СледующийАтрибут();
 
 	ЗаписьXML.ЗаписатьНачалоЭлемента("эл");
 	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
 
-	ЧтениеXML.Прочитать();
-	ЧтениеXML.Прочитать();
-	ЧтениеXML.Прочитать();
-
-	юТест.ПроверитьРавенство(ЧтениеXML.ТипУзла,
-		ТипУзлаXML.КонецЭлемента,
-		"Спозиционированы на КонецЭлемента");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.Текст, "Some Value");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.КонецЭлемента, "</data>");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ПробельныеСимволы);
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.КонецЭлемента, "</xml>");
 
 	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
 
@@ -386,13 +396,13 @@
 
 	ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML);
 
-	ЧтениеXML.Прочитать();
-	ЧтениеXML.Прочитать();
-	ЧтениеXML.Прочитать();
-
-	юТест.ПроверитьРавенство(ЧтениеXML.ТипУзла,
-		ТипУзлаXML.Текст,
-		"Спозиционированы на Текст");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ОбъявлениеXML, "<?xml>");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ОпределениеТипаДокумента, "<!DOCTYPE>");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.НачалоЭлемента, "<xml>");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ПробельныеСимволы);
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.НачалоЭлемента, "<data>");
+	
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.Текст, "Спозиционированы на текст Some text");
 
 	ЗаписьXML.ЗаписатьНачалоЭлемента("эл");
 	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
@@ -405,19 +415,65 @@
 
 КонецПроцедуры
 
+Процедура ТестДолжен_ЗаписатьТекущий_ОбъявлениеИТипДокумента() Экспорт
+
+	Перем ЧтениеXML, ЗаписьXML;
+
+	ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML);
+
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ОбъявлениеXML, "<?xml>");
+	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ОпределениеТипаДокумента, "<!DOCTYPE>");
+	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.НачалоЭлемента, "<xml>");
+
+	ЗаписьXML.ЗаписатьНачалоЭлемента("эл");
+	ЗаписьXML.ЗаписатьКонецЭлемента();
+
+	ПолученныйТекст = ЗаписьXML.Закрыть();
+	юТест.ПроверитьРавенствоСтрокБезУчетаРегистра(
+		"<?xml version=""1.0"" encoding=""UTF-8""?><!DOCTYPE example[]><эл/>",
+		ПолученныйТекст,
+		"Объявления и тип документа");
+	
+КонецПроцедуры
+
 Процедура ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML)
 
 	ПодопытныйТекст =
-		"<xml xmlns:ns=""ns"" attr=""1"" ns:attr=""value"">
+		"<?xml version=""1.0"" encoding=""UTF-8""?>
+		|<!DOCTYPE example SYSTEM ""example.dtd"">
+		|<xml xmlns:ns=""ns"" attr=""1"" ns:attr=""value"">
 		|	<ns:data inner=""123"" inner2=""456"" inner3=""789"">Some Text</ns:data>
 		|</xml>"
 	;
+
+	ПараметрыЧтения = Новый ПараметрыЧтенияXml(
+		, // Версия
+		, // Язык
+		, // ПробельныеСимволы
+		, // ТипПроверкиПравильности,
+		Ложь, // ИгнорироватьОбъявлениеXML
+		Ложь, // ИгнорироватьТипДокумента
+		Ложь, // ИгнорироватьИнструкцииОбработки
+		Ложь, // ИгнорироватьКомментарии
+		Ложь, // ИгнорироватьПробельныеСимволы
+		Ложь, // СекцииCDATAКакТекст
+		Истина // ИспользоватьИгнорируемыеПробельныеСимволы
+	);
+
 	ЧтениеXML = Новый ЧтениеXML;
-	ЧтениеXML.УстановитьСтроку(ПодопытныйТекст);
+	ЧтениеXML.УстановитьСтроку(ПодопытныйТекст, ПараметрыЧтения);
 
 	ПараметрыЗаписи = Новый ПараметрыЗаписиXml(, , Ложь); // без переносов
 
 	ЗаписьXML = Новый ЗаписьXML;
 	ЗаписьXML.УстановитьСтроку(ПараметрыЗаписи);
 
 КонецПроцедуры
+
+Процедура ПрочитатьИПроверитьТип(Знач ЧтениеXML, Знач ТипУзла, Знач Сообщение = Неопределено)
+	ЧтениеXML.Прочитать();
+	юТест.ПроверитьРавенство(ЧтениеXML.ТипУзла, ТипУзла, Сообщение);
+КонецПроцедуры
+