НотацияDOM.ВставитьПеред

Проверить ограничения дочерних операций у объявлений DTD

Один свой элемент-кандидат не является ребёнком сущности или нотации. Четыре недопустимых операции должны завершиться отказами, а основной XML остаться прежним.

Подготовка

1. Только отдельная учебная база. Создайте серверный общий модуль УчебныеЗадачи с процедурой ВыполнитьПример() Экспорт. Полный модуль каждого урока вставьте целиком, включая уже показанную процедуру.

2. XML содержит только собственный внутренний DTD. Внешнего подмножества DOCTYPE нет, SYSTEM/PUBLIC в двух объявлениях — учебные URN, не пути и не HTTP-адреса.

3. guideIcon — неразбираемая сущность NDATA; она объявлена, но не используется как &guideIcon; в тексте. Её ресурс не загружается. Нотация описывает формат, не изображение.

4. Параметры и построитель создаются заново для этой известной строки. Никогда не переносите разрешение DTD на произвольный XML из интернета или API.

5. Вызовите УчебныеЗадачи.ВыполнитьПример() из серверной учебной команды. Нет записи базы, файлов или сетевых соединений; поведение DOM 1С ещё требует контрольного запуска в учебной базе.

Процедура ВыполнитьПример() Экспорт
    Параметры = Новый ПараметрыЧтенияXML(, , , , , Ложь);
    Чтение = Новый ЧтениеXML;
    Чтение.УстановитьСтроку("<?xml version=""1.0""?>
    |<!DOCTYPE products [
    |<!NOTATION guideMark PUBLIC ""guide-marker"" ""urn:guide:marker-format"">
    |<!ENTITY guideIcon SYSTEM ""urn:guide:marker-payload"" NDATA guideMark>
    |]>
    |<products xmlns:g=""urn:guide:dtd""><product>Книга</product></products>", Параметры);
    Построитель = Новый ПостроительDOM;
    Настройки = Построитель.КонфигурацияDOM;
    Если НЕ Настройки.ВозможноУстановитьПараметр("disallow-doctype", Ложь) Тогда
        Чтение.Закрыть();
        ВызватьИсключение "Построитель не разрешает собственный внутренний DTD";
    КонецЕсли;
    Настройки.УстановитьПараметр("disallow-doctype", Ложь);
    Попытка
        Документ = Построитель.Прочитать(Чтение);
    Исключение
        Чтение.Закрыть();
        ВызватьИсключение;
    КонецПопытки;
    Чтение.Закрыть();
    ОписаниеТипа = Документ.ОпределениеТипаДокумента;
    Если ОписаниеТипа = Неопределено Тогда
        ВызватьИсключение "Включите чтение типа документа, не подменяйте его пустым новым DOCTYPE";
    КонецЕсли;
    Сущность = ОписаниеТипа.Сущности.ПолучитьИменованныйЭлемент("guideIcon");
    Нотация = ОписаниеТипа.Нотации.ПолучитьИменованныйЭлемент("guideMark");
    Если ТипЗнч(Сущность) <> Тип("СущностьDOM") ИЛИ ТипЗнч(Нотация) <> Тип("НотацияDOM") Тогда
        ВызватьИсключение "Построитель не сохранил ожидаемые собственные объявления DTD";
    КонецЕсли;
    Узлы = Новый Массив;
    Узлы.Добавить(Сущность);
    Узлы.Добавить(Нотация);
    Отказов = 0;
    Для Каждого Узел Из Узлы Цикл
        Кандидат = Документ.СоздатьЭлемент("ownChild");
        Попытка
            Узел.ДобавитьДочерний(Кандидат);
        Исключение
            Отказов = Отказов + 1;
            Сообщить("Ожидаемое ограничение узла DTD: " + ОписаниеОшибки());
        КонецПопытки;
        Попытка
            Узел.ВставитьПеред(Кандидат, Кандидат);
        Исключение
            Отказов = Отказов + 1;
            Сообщить("Ожидаемое ограничение узла DTD: " + ОписаниеОшибки());
        КонецПопытки;
        Попытка
            Узел.ЗаменитьДочерний(Кандидат, Кандидат);
        Исключение
            Отказов = Отказов + 1;
            Сообщить("Ожидаемое ограничение узла DTD: " + ОписаниеОшибки());
        КонецПопытки;
        Попытка
            Узел.УдалитьДочерний(Кандидат);
        Исключение
            Отказов = Отказов + 1;
            Сообщить("Ожидаемое ограничение узла DTD: " + ОписаниеОшибки());
        КонецПопытки;
        Сообщить(Узел.ДочерниеУзлы.Количество() = 0);
        Сообщить(Кандидат.РодительскийУзел = Неопределено);
    КонецЦикла;
    Если Отказов <> 8 Тогда
        ВызватьИсключение "Ожидалось восемь отказов: объявление DTD не обычный контейнер элементов";
    КонецЕсли;
    Сообщить(Отказов = 8);
    Сообщить(Документ.ЭлементДокумента.ТекстовоеСодержимое = "Книга");
КонецПроцедуры

Разбор по шагам

1. Кандидат создаётся тем же документом и остаётся вне дерева. Он не связан с рабочими данными.

2. ДобавитьДочерний проверяет ограничение контейнера; ВставитьПеред/ЗаменитьДочерний/УдалитьДочерний также получают узел, который не является ребёнком объявления.

3. Исключения ожидаются, но точный вид ошибки не объявляется универсальным: ограничение readonly, иерархии и отсутствие ребёнка — разные возможные причины отказа.

4. Каждый отказ увеличивает счётчик. Контрольное исключение при неправильном количестве находится вне блоков, которые ловят ожидаемые ошибки.

5. Проверяются отсутствие детей у двух объявлений, отсутствие родителя у кандидата и неизменность текста Книга.

Как проверить результат

1. Восемь диагностических сообщений об ожидаемых ограничениях и шесть Истина.

2. Если операция неожиданно прошла, урок не сообщает успех: итоговая проверка остановит его.

Ожидаемый результат

Недопустимые операции не замаскированы под успешно изменённый XML.

На что обратить внимание

1. Это отрицательный учебный сценарий: нельзя копировать ожидание исключений в обычную бизнес-обработку как нормальный результат.

2. Отказ ВставитьПеред с отсутствующим ребёнком сам по себе не доказывает общий режим readonly.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.