рефакторинг

Author: Segate-ekb

src/internal/block/Классы/MarkdownПарсерЗаголовковATX.os

@@ -89,7 +89,7 @@
 
 Функция ОчиститьСодержимое(Знач Сырой)
     // Срезать хвостовые пробелы/табы.
-    Сырой = ПравыйStrip(Сырой);
+    Сырой = MarkdownБлочныеУтилиты.ПравыйStrip(Сырой);
 
     // Найти трейлинговую последовательность '#'.
     Длина = СтрДлина(Сырой);
@@ -105,42 +105,15 @@
             Или Сред(Сырой, Индекс, 1) = " "
             Или Сред(Сырой, Индекс, 1) = Символы.Таб Тогда
             Сырой = Лев(Сырой, Индекс);
-            Сырой = ПравыйStrip(Сырой);
+            Сырой = MarkdownБлочныеУтилиты.ПравыйStrip(Сырой);
         КонецЕсли;
     КонецЕсли;
 
     // Срезать ведущие пробелы/табы (один или несколько разделителей после открывающих '#').
-    Сырой = ЛевыйStrip(Сырой);
+    Сырой = MarkdownБлочныеУтилиты.ЛевыйStrip(Сырой);
     Возврат Сырой;
 КонецФункции
 
-Функция ЛевыйStrip(Знач Стр)
-    Поз = 1;
-    Длина = СтрДлина(Стр);
-    Пока Поз <= Длина Цикл
-        С = Сред(Стр, Поз, 1);
-        Если С = " " Или С = Символы.Таб Тогда
-            Поз = Поз + 1;
-        Иначе
-            Прервать;
-        КонецЕсли;
-    КонецЦикла;
-    Возврат Сред(Стр, Поз);
-КонецФункции
-
-Функция ПравыйStrip(Знач Стр)
-    Длина = СтрДлина(Стр);
-    Пока Длина > 0 Цикл
-        С = Сред(Стр, Длина, 1);
-        Если С = " " Или С = Символы.Таб Тогда
-            Длина = Длина - 1;
-        Иначе
-            Прервать;
-        КонецЕсли;
-    КонецЦикла;
-    Возврат Лев(Стр, Длина);
-КонецФункции
-
 #КонецОбласти
 
 Процедура ПриСозданииОбъекта()

src/internal/block/Классы/MarkdownПарсерПараграфов.os

@@ -31,7 +31,7 @@
 
     // Первую строку добавляем без проверки на setext — setext underline
     // должна следовать ПОСЛЕ хотя бы одной строки параграфа.
-    Строки.Добавить(ЛевыйStrip(Контекст.ТекущаяСтрока()));
+    Строки.Добавить(MarkdownБлочныеУтилиты.ЛевыйStrip(Контекст.ТекущаяСтрока()));
     Контекст.ПродвинутьСтроку();
 
     Пока Не Контекст.КонецИсходника() И Не Контекст.ТекущаяСтрокаПустая() Цикл
@@ -51,12 +51,12 @@
             Прервать;
         КонецЕсли;
 
-        Строки.Добавить(ЛевыйStrip(ТекСтрока));
+        Строки.Добавить(MarkdownБлочныеУтилиты.ЛевыйStrip(ТекСтрока));
         Контекст.ПродвинутьСтроку();
     КонецЦикла;
 
     Сырой = СтрСоединить(Строки, Символы.ПС);
-    Сырой = ПравыйStrip(Сырой);
+    Сырой = MarkdownБлочныеУтилиты.ПравыйStrip(Сырой);
 
     Если SetextУровень > 0 Тогда
         Узел = Новый MarkdownЗаголовок(SetextУровень);
@@ -111,9 +111,9 @@
 // принадлежит более «жёсткому» блоку: ATX heading, thematic break,
 // fenced code, HTML block type 1-6).
 Функция ПрерываетПараграф(Знач Стр)
-    Если ЭтоATXHeader(Стр) Тогда Возврат Истина; КонецЕсли;
-    Если ЭтоТематическийРазрыв(Стр) Тогда Возврат Истина; КонецЕсли;
-    Если ЭтоОткрытиеЗабора(Стр) Тогда Возврат Истина; КонецЕсли;
+    Если MarkdownБлочныеУтилиты.ЭтоATXHeader(Стр) Тогда Возврат Истина; КонецЕсли;
+    Если MarkdownБлочныеУтилиты.ЭтоТематическийРазрыв(Стр) Тогда Возврат Истина; КонецЕсли;
+    Если MarkdownБлочныеУтилиты.ЭтоОткрытиеЗабора(Стр) Тогда Возврат Истина; КонецЕсли;
     Если ЭтоНачалоBQ(Стр) Тогда Возврат Истина; КонецЕсли;
     Если ЭтоНачалоList(Стр) Тогда Возврат Истина; КонецЕсли;
     // HTML blocks типов 1-6 прерывают параграф; тип 7 — НЕТ.
@@ -150,88 +150,6 @@
     Возврат Сред(Стр, Поз, 1) = ">";
 КонецФункции
 
-Функция ЭтоATXHeader(Знач Стр)
-    Поз = 1;
-    Длина = СтрДлина(Стр);
-    Кол = 0;
-    Пока Поз <= Длина И Сред(Стр, Поз, 1) = " " И Кол < 4 Цикл
-        Кол = Кол + 1; Поз = Поз + 1;
-    КонецЦикла;
-    Если Кол >= 4 Тогда Возврат Ложь; КонецЕсли;
-    Решёток = 0;
-    Пока Поз <= Длина И Сред(Стр, Поз, 1) = "#" Цикл
-        Решёток = Решёток + 1; Поз = Поз + 1;
-    КонецЦикла;
-    Если Решёток < 1 Или Решёток > 6 Тогда Возврат Ложь; КонецЕсли;
-    Если Поз > Длина Тогда Возврат Истина; КонецЕсли;
-    Хвост = Сред(Стр, Поз, 1);
-    Возврат Хвост = " " Или Хвост = Символы.Таб;
-КонецФункции
-
-Функция ЭтоТематическийРазрыв(Знач Стр)
-    Длина = СтрДлина(Стр);
-    Поз = 1;
-    Кол = 0;
-    Пока Поз <= Длина И Сред(Стр, Поз, 1) = " " И Кол < 4 Цикл
-        Кол = Кол + 1; Поз = Поз + 1;
-    КонецЦикла;
-    Если Кол >= 4 Или Поз > Длина Тогда Возврат Ложь; КонецЕсли;
-    Маркер = Сред(Стр, Поз, 1);
-    Если Маркер <> "-" И Маркер <> "*" И Маркер <> "_" Тогда Возврат Ложь; КонецЕсли;
-    КолМаркеров = 0;
-    Пока Поз <= Длина Цикл
-        С = Сред(Стр, Поз, 1);
-        Если С = Маркер Тогда КолМаркеров = КолМаркеров + 1;
-        ИначеЕсли С <> " " И С <> Символы.Таб Тогда Возврат Ложь;
-        КонецЕсли;
-        Поз = Поз + 1;
-    КонецЦикла;
-    Возврат КолМаркеров >= 3;
-КонецФункции
-
-Функция ЭтоОткрытиеЗабора(Знач Стр)
-    Длина = СтрДлина(Стр);
-    Поз = 1;
-    Кол = 0;
-    Пока Поз <= Длина И Сред(Стр, Поз, 1) = " " И Кол < 4 Цикл
-        Кол = Кол + 1; Поз = Поз + 1;
-    КонецЦикла;
-    Если Кол >= 4 Или Поз > Длина Тогда Возврат Ложь; КонецЕсли;
-    Маркер = Сред(Стр, Поз, 1);
-    Если Маркер <> "`" И Маркер <> "~" Тогда Возврат Ложь; КонецЕсли;
-    Кол = 0;
-    Пока Поз <= Длина И Сред(Стр, Поз, 1) = Маркер Цикл
-        Кол = Кол + 1; Поз = Поз + 1;
-    КонецЦикла;
-    Возврат Кол >= 3;
-КонецФункции
-
-Функция ЛевыйStrip(Знач Стр)
-    Поз = 1;
-    Длина = СтрДлина(Стр);
-    Пока Поз <= Длина Цикл
-        С = Сред(Стр, Поз, 1);
-        Если С = " " Или С = Символы.Таб Тогда
-            Поз = Поз + 1;
-        Иначе
-            Прервать;
-        КонецЕсли;
-    КонецЦикла;
-    Возврат Сред(Стр, Поз);
-КонецФункции
-
-Функция ПравыйStrip(Знач Стр)
-    Длина = СтрДлина(Стр);
-    Пока Длина > 0 Цикл
-        С = Сред(Стр, Длина, 1);
-        Если С = " " Или С = Символы.Таб Тогда
-            Длина = Длина - 1;
-        Иначе
-            Прервать;
-        КонецЕсли;
-    КонецЦикла;
-    Возврат Лев(Стр, Длина);
-КонецФункции
 
 Процедура ПриСозданииОбъекта()
     _HTMLДетектор = Новый MarkdownПарсерHTMLБлока();

src/internal/block/Классы/MarkdownПарсерСписков.os

@@ -48,7 +48,7 @@
         КонецЕсли;
 
         // Thematic break побеждает list marker (#60).
-        Если ЭтоТематическийРазрыв(ТекСтр) Тогда Прервать; КонецЕсли;
+        Если MarkdownБлочныеУтилиты.ЭтоТематическийРазрыв(ТекСтр) Тогда Прервать; КонецЕсли;
 
         Если Маркер = Неопределено Тогда Прервать; КонецЕсли;
         Если Маркер.Упорядоченный <> Первый.Упорядоченный Или Маркер.Маркер <> Первый.Маркер Тогда
@@ -322,62 +322,12 @@
 КонецФункции
 
 Функция ПрерываетПараграф(Знач Стр)
-    Если ЭтоATXHeader(Стр) Тогда Возврат Истина; КонецЕсли;
-    Если ЭтоТематическийРазрыв(Стр) Тогда Возврат Истина; КонецЕсли;
-    Если ЭтоОткрытиеЗабора(Стр) Тогда Возврат Истина; КонецЕсли;
+    Если MarkdownБлочныеУтилиты.ЭтоATXHeader(Стр) Тогда Возврат Истина; КонецЕсли;
+    Если MarkdownБлочныеУтилиты.ЭтоТематическийРазрыв(Стр) Тогда Возврат Истина; КонецЕсли;
+    Если MarkdownБлочныеУтилиты.ЭтоОткрытиеЗабора(Стр) Тогда Возврат Истина; КонецЕсли;
     Возврат Ложь;
 КонецФункции
 
-Функция ЭтоATXHeader(Знач Стр)
-    Длина = СтрДлина(Стр); Поз = 1; Кол = 0;
-    Пока Поз <= Длина И Сред(Стр, Поз, 1) = " " И Кол < 4 Цикл
-        Кол = Кол + 1; Поз = Поз + 1;
-    КонецЦикла;
-    Если Кол >= 4 Тогда Возврат Ложь; КонецЕсли;
-    Реш = 0;
-    Пока Поз <= Длина И Сред(Стр, Поз, 1) = "#" Цикл
-        Реш = Реш + 1; Поз = Поз + 1;
-    КонецЦикла;
-    Если Реш < 1 Или Реш > 6 Тогда Возврат Ложь; КонецЕсли;
-    Если Поз > Длина Тогда Возврат Истина; КонецЕсли;
-    Хв = Сред(Стр, Поз, 1);
-    Возврат Хв = " " Или Хв = Символы.Таб;
-КонецФункции
-
-Функция ЭтоТематическийРазрыв(Знач Стр)
-    Длина = СтрДлина(Стр); Поз = 1; Кол = 0;
-    Пока Поз <= Длина И Сред(Стр, Поз, 1) = " " И Кол < 4 Цикл
-        Кол = Кол + 1; Поз = Поз + 1;
-    КонецЦикла;
-    Если Кол >= 4 Или Поз > Длина Тогда Возврат Ложь; КонецЕсли;
-    Маркер = Сред(Стр, Поз, 1);
-    Если Маркер <> "-" И Маркер <> "*" И Маркер <> "_" Тогда Возврат Ложь; КонецЕсли;
-    Кол = 0;
-    Пока Поз <= Длина Цикл
-        С = Сред(Стр, Поз, 1);
-        Если С = Маркер Тогда Кол = Кол + 1;
-        ИначеЕсли С <> " " И С <> Символы.Таб Тогда Возврат Ложь;
-        КонецЕсли;
-        Поз = Поз + 1;
-    КонецЦикла;
-    Возврат Кол >= 3;
-КонецФункции
-
-Функция ЭтоОткрытиеЗабора(Знач Стр)
-    Длина = СтрДлина(Стр); Поз = 1; Кол = 0;
-    Пока Поз <= Длина И Сред(Стр, Поз, 1) = " " И Кол < 4 Цикл
-        Кол = Кол + 1; Поз = Поз + 1;
-    КонецЦикла;
-    Если Кол >= 4 Или Поз > Длина Тогда Возврат Ложь; КонецЕсли;
-    Маркер = Сред(Стр, Поз, 1);
-    Если Маркер <> "`" И Маркер <> "~" Тогда Возврат Ложь; КонецЕсли;
-    Кол = 0;
-    Пока Поз <= Длина И Сред(Стр, Поз, 1) = Маркер Цикл
-        Кол = Кол + 1; Поз = Поз + 1;
-    КонецЦикла;
-    Возврат Кол >= 3;
-КонецФункции
-
 #КонецОбласти
 
 #Область Фенс

src/internal/block/Классы/MarkdownПарсерЦитат.os

@@ -76,9 +76,9 @@
 
 Функция ПрерываетПараграф(Знач Стр)
     // Те же условия что и в paragraph-парсере: ATX, thematic, fenced, HTML 1-6, lists.
-    Если ЭтоATXHeader(Стр) Тогда Возврат Истина; КонецЕсли;
-    Если ЭтоТематическийРазрыв(Стр) Тогда Возврат Истина; КонецЕсли;
-    Если ЭтоОткрытиеЗабора(Стр) Тогда Возврат Истина; КонецЕсли;
+    Если MarkdownБлочныеУтилиты.ЭтоATXHeader(Стр) Тогда Возврат Истина; КонецЕсли;
+    Если MarkdownБлочныеУтилиты.ЭтоТематическийРазрыв(Стр) Тогда Возврат Истина; КонецЕсли;
+    Если MarkdownБлочныеУтилиты.ЭтоОткрытиеЗабора(Стр) Тогда Возврат Истина; КонецЕсли;
     // List-start прерывает lazy-continuation BQ (#235).
     ЛистПарсер = Новый MarkdownПарсерСписков();
     Маркер = ЛистПарсер.РаспознатьМаркер(Стр);
@@ -95,56 +95,3 @@
     Если Тип >= 1 И Тип <= 6 Тогда Возврат Истина; КонецЕсли;
     Возврат Ложь;
 КонецФункции
-
-Функция ЭтоATXHeader(Знач Стр)
-    Длина = СтрДлина(Стр);
-    Поз = 1; Кол = 0;
-    Пока Поз <= Длина И Сред(Стр, Поз, 1) = " " И Кол < 4 Цикл
-        Кол = Кол + 1; Поз = Поз + 1;
-    КонецЦикла;
-    Если Кол >= 4 Тогда Возврат Ложь; КонецЕсли;
-    Реш = 0;
-    Пока Поз <= Длина И Сред(Стр, Поз, 1) = "#" Цикл
-        Реш = Реш + 1; Поз = Поз + 1;
-    КонецЦикла;
-    Если Реш < 1 Или Реш > 6 Тогда Возврат Ложь; КонецЕсли;
-    Если Поз > Длина Тогда Возврат Истина; КонецЕсли;
-    Хв = Сред(Стр, Поз, 1);
-    Возврат Хв = " " Или Хв = Символы.Таб;
-КонецФункции
-
-Функция ЭтоТематическийРазрыв(Знач Стр)
-    Длина = СтрДлина(Стр);
-    Поз = 1; Кол = 0;
-    Пока Поз <= Длина И Сред(Стр, Поз, 1) = " " И Кол < 4 Цикл
-        Кол = Кол + 1; Поз = Поз + 1;
-    КонецЦикла;
-    Если Кол >= 4 Или Поз > Длина Тогда Возврат Ложь; КонецЕсли;
-    Маркер = Сред(Стр, Поз, 1);
-    Если Маркер <> "-" И Маркер <> "*" И Маркер <> "_" Тогда Возврат Ложь; КонецЕсли;
-    Кол = 0;
-    Пока Поз <= Длина Цикл
-        С = Сред(Стр, Поз, 1);
-        Если С = Маркер Тогда Кол = Кол + 1;
-        ИначеЕсли С <> " " И С <> Символы.Таб Тогда Возврат Ложь;
-        КонецЕсли;
-        Поз = Поз + 1;
-    КонецЦикла;
-    Возврат Кол >= 3;
-КонецФункции
-
-Функция ЭтоОткрытиеЗабора(Знач Стр)
-    Длина = СтрДлина(Стр);
-    Поз = 1; Кол = 0;
-    Пока Поз <= Длина И Сред(Стр, Поз, 1) = " " И Кол < 4 Цикл
-        Кол = Кол + 1; Поз = Поз + 1;
-    КонецЦикла;
-    Если Кол >= 4 Или Поз > Длина Тогда Возврат Ложь; КонецЕсли;
-    Маркер = Сред(Стр, Поз, 1);
-    Если Маркер <> "`" И Маркер <> "~" Тогда Возврат Ложь; КонецЕсли;
-    Кол = 0;
-    Пока Поз <= Длина И Сред(Стр, Поз, 1) = Маркер Цикл
-        Кол = Кол + 1; Поз = Поз + 1;
-    КонецЦикла;
-    Возврат Кол >= 3;
-КонецФункции