@artel/ru-compiler 0.6.25207 → 0.6.25258

package//320/230/321/201/321/205/320/276/320/264/320/275/320/270/320/272/320/270//320/224/320/265/320/273/320/270/321/202/320/265/320/273/321/214./320/260/321/200/321/202

@@ -1,13 +1,6 @@
 
-тип Нотация = вариант
-{
-  артель = 0
-  опись = 1
-}
-
 тип НастройкиДелителя = объект
 {
-  нотация: Нотация?
   пропускать-незначимое: ДаНет?
   позиция-начала: Целое?
   длина: Целое?
@@ -33,41 +26,83 @@
 {
   конст текст: Текст
   чтение лексема: Лексема { лексема`` }
-  скрыто
-  запись лексема { лексема`` = значение }
 
-  скрыто нотация: Нотация
-  скрыто пропускать-пробелы: ДаНет
-  скрыто позиция-конца: Целое
-  скрыто текущая-позиция: Целое
-  скрыто баланс-фигурных-скобок: Целое
-  скрыто стек-баланса-фигурных-скобок: Список<Целое>
-  скрыто конст уникальные-тексты-лексем: Словарь<Текст, Текст>
+  скрытое
+  {
+    запись лексема { лексема`` = значение }
+
+    пропускать-пробелы: ДаНет
+    позиция-конца: Целое
+    текущая-позиция: Целое
+    баланс-фигурных-скобок: Целое
+    стек-баланса-фигурных-скобок: Список<Целое>
+    конст уникальные-тексты-лексем: Словарь<Текст, Текст>
+  }
 
   создание(текст`: Текст, настройки: НастройкиДелителя? = пусто)
   {
     текст = текст`
-    нотация = настройки?.нотация ?? Нотация.артель
     пропускать-пробелы = настройки?.пропускать-незначимое ?? нет
     текущая-позиция = настройки?.позиция-начала ?? 0
     конст длина = настройки?.длина
-    позиция-конца = текущая-позиция + длина! когда длина != пусто : текст.длина
+    позиция-конца = условно(длина != пусто, текущая-позиция + длина, текст.длина)
 
     баланс-фигурных-скобок = 0
     стек-баланса-фигурных-скобок = Список<Целое>()
     уникальные-тексты-лексем = Словарь<Текст, Текст>()
 
-    лексема = следующая-лексема()
+    лексема`` = следующая-лексема()
   }
 
   функция предпросмотр(анализатор: функция(): ДаНет): ДаНет
   {
-    результат = пробный-анализ-или-предпросмотр(анализатор, безусловно-восстановить-состояние = да)
+    конст сохран-лексема = лексема
+    конст сохран-текущая-позиция = текущая-позиция
+    конст сохран-баланс-фигурных-скобок = баланс-фигурных-скобок
+    пусть сохран-стек-баланса-фигурных-скобок: Список<Целое>? = пусто
+    если стек-баланса-фигурных-скобок.количество > 0
+    {
+      сохран-стек-баланса-фигурных-скобок = Список<Целое>(стек-баланса-фигурных-скобок)
+    }
+    результат = анализатор()
+    лексема = сохран-лексема
+    текущая-позиция = сохран-текущая-позиция
+    баланс-фигурных-скобок = сохран-баланс-фигурных-скобок
+    если сохран-стек-баланса-фигурных-скобок != пусто
+    {
+      стек-баланса-фигурных-скобок = сохран-стек-баланса-фигурных-скобок
+    }
+    иначе
+    {
+      стек-баланса-фигурных-скобок.очистить()
+    }
   }
 
-  функция пробный-анализ(анализатор: функция(): ДаНет): ДаНет
+  функция пробный-анализ<Т>(анализатор: функция(): Т?): Т?
   {
-    результат = пробный-анализ-или-предпросмотр(анализатор, безусловно-восстановить-состояние = нет)
+    конст сохран-лексема = лексема
+    конст сохран-текущая-позиция = текущая-позиция
+    конст сохран-баланс-фигурных-скобок = баланс-фигурных-скобок
+    пусть сохран-стек-баланса-фигурных-скобок: Список<Целое>? = пусто
+    если стек-баланса-фигурных-скобок.количество > 0
+    {
+      сохран-стек-баланса-фигурных-скобок = Список<Целое>(стек-баланса-фигурных-скобок)
+    }
+    результат = анализатор()
+    если результат == пусто
+    {
+      лексема = сохран-лексема
+      текущая-позиция = сохран-текущая-позиция
+      баланс-фигурных-скобок = сохран-баланс-фигурных-скобок
+      если сохран-стек-баланса-фигурных-скобок != пусто
+      {
+        стек-баланса-фигурных-скобок = сохран-стек-баланса-фигурных-скобок
+      }
+      иначе
+      {
+        стек-баланса-фигурных-скобок.очистить()
+      }
+    }
   }
 
   функция следующая-лексема(): Лексема
@@ -239,17 +274,8 @@
       }
       либо "`"
       {
-        если нотация == Нотация.опись
-        {
-          текущая-позиция += 1
-          прочитать-однострочный-комментарий()
-          вид-лексемы = ВидЛексемы.комментарий-однострочный
-        }
-        иначе
-        {
-          текущая-позиция += 1
-          вид-лексемы = ВидЛексемы.знак-обратная-кавычка
-        }
+        текущая-позиция += 1
+        вид-лексемы = ВидЛексемы.знак-обратная-кавычка
       }
       либо "/"
       {
@@ -267,17 +293,9 @@
         иначе если текст.символ-по-позиции(текущая-позиция + 1) == "*"
         {
           текущая-позиция += 2
-          пока текущая-позиция < позиция-конца
-          {
-            конст символ = текст.символ-по-позиции(текущая-позиция)
-            если символ == "*" и текст.символ-по-позиции(текущая-позиция + 1) == "/"
-            {
-              текущая-позиция += 2
-              прервать цикл
-            }
-            текущая-позиция += 1
-          }
+          пусть р = прочитать-многострочный-комментарий()
           вид-лексемы = ВидЛексемы.комментарий-многострочный
+          незавершённая = не р
         }
         иначе
         {
@@ -438,12 +456,7 @@
         {
           пусть р = прочитать-имя-в-кавычках()
           вид-лексемы = ВидЛексемы.имя-в-кавычках
-          незавершённая = не(р)
-        }
-        иначе если это-начало-имени(текст.символ-по-позиции(текущая-позиция + 1))
-        {
-          прочитать-имя()
-          вид-лексемы = ВидЛексемы.имя
+          незавершённая = не р
         }
         иначе
         {
@@ -488,7 +501,7 @@
       {
         пусть р = прочитать-имя-в-кавычках()
         вид-лексемы = ВидЛексемы.имя-в-кавычках
-        незавершённая = не(р)
+        незавершённая = не р
       }
       либо *
       {
@@ -512,44 +525,15 @@
       }
       иначе
       {
-        текст-лексемы = существующий!
+        текст-лексемы = существующий
       }
     }
     лексема = Лексема(вид-лексемы, текст-лексемы, позиция-начала, незавершённая)
     результат = лексема
   }
 
-  скрытая функция пробный-анализ-или-предпросмотр(анализатор: функция(): ДаНет,
-    безусловно-восстановить-состояние: ДаНет): ДаНет
+  скрытая функция фигурная-скобка-оканчивает-шаблон-текста(): ДаНет
   {
-    конст сохран-лексема = лексема
-    конст сохран-текущая-позиция = текущая-позиция
-    конст сохран-баланс-фигурных-скобок = баланс-фигурных-скобок
-    пусть сохран-стек-баланса-фигурных-скобок: Список<Целое>? = пусто
-    если стек-баланса-фигурных-скобок.количество > 0
-    {
-      сохран-стек-баланса-фигурных-скобок = Список<Целое>(стек-баланса-фигурных-скобок)
-    }
-
-    результат = анализатор()
-
-    если безусловно-восстановить-состояние или результат == нет
-    {
-      лексема = сохран-лексема
-      текущая-позиция = сохран-текущая-позиция
-      баланс-фигурных-скобок = сохран-баланс-фигурных-скобок
-      если сохран-стек-баланса-фигурных-скобок != пусто
-      {
-        стек-баланса-фигурных-скобок = сохран-стек-баланса-фигурных-скобок!
-      }
-      иначе
-      {
-        стек-баланса-фигурных-скобок.очистить()
-      }
-    }
-  }
-
-  скрытая функция фигурная-скобка-оканчивает-шаблон-текста(): ДаНет {
     результат = стек-баланса-фигурных-скобок.количество > 0 и баланс-фигурных-скобок == 1
   }
 
@@ -571,9 +555,9 @@
         текущая-позиция += 1
         если кавычка == "\""
         {
-          вид-лексемы =
-            ВидЛексемы.буквально-текст-локализуемый когда локализуемый :
-            ВидЛексемы.буквально-текст
+          вид-лексемы = условно(локализуемый,
+            ВидЛексемы.буквально-текст-локализуемый,
+            ВидЛексемы.буквально-текст)
         }
         иначе
         {
@@ -587,9 +571,9 @@
         текущая-позиция += 1
         если кавычка == "\""
         {
-          вид-лексемы =
-            ВидЛексемы.буквально-начало-шаблона-текста-локализуемого когда локализуемый :
-            ВидЛексемы.буквально-начало-шаблона-текста
+          вид-лексемы = условно(локализуемый,
+            ВидЛексемы.буквально-начало-шаблона-текста-локализуемого,
+            ВидЛексемы.буквально-начало-шаблона-текста)
         }
         иначе
         {
@@ -604,13 +588,14 @@
       если текущая-позиция >= позиция-конца
       {
         конец = текущая-позиция
-        вид-лексемы = ВидЛексемы.буквально-текст когда кавычка == "\"" :
-          ВидЛексемы.буквально-окончание-шаблона-текста
+        вид-лексемы = условно(кавычка == "\"",
+          ВидЛексемы.буквально-текст,
+          ВидЛексемы.буквально-окончание-шаблона-текста)
         если кавычка == "\""
         {
-          вид-лексемы =
-            ВидЛексемы.буквально-текст-локализуемый когда локализуемый :
-            ВидЛексемы.буквально-текст
+          вид-лексемы = условно(локализуемый,
+            ВидЛексемы.буквально-текст-локализуемый,
+            ВидЛексемы.буквально-текст)
         }
         иначе
         {
@@ -668,12 +653,11 @@
       если результат
       {
         конст является-16р-цифрой: функция(символ: Символ): ДаНет =
-          это-16р-цифра-латиницы когда с1 == "u" :
-          это-16р-цифра-кириллицы // когда с1 == "ю"
+          условно(с1 == "u", это-16ричная-цифра-латиницы, это-16ричная-цифра-кириллицы)
         пусть н = начало + 2
         пока н < конец
         {
-          если не(является-16р-цифрой(текст[н]))
+          если не является-16р-цифрой(текст[н])
           {
             результат = нет
             прервать цикл
@@ -705,17 +689,17 @@
     если первая-цифра-0 и следующий-символ == "x"
     {
       текущая-позиция += 2
-      прочитать-16р-цифры-латиницы()
+      прочитать-16ричные-цифры-латиницы()
     }
     иначе если первая-цифра-0 и следующий-символ == "ш"
     {
       текущая-позиция += 2
-      прочитать-16р-цифры-кириллицы()
+      прочитать-16ричные-цифры-кириллицы()
     }
     иначе если первая-цифра-0 и (следующий-символ == "b" или следующий-символ == "д")
     {
       текущая-позиция += 2
-      прочитать-2р-цифры()
+      прочитать-2ичные-цифры()
     }
     иначе
     {
@@ -735,7 +719,7 @@
         {
           текущая-позиция += 1
         }
-        если не(прочитать-цифры())
+        если не прочитать-цифры()
         {
           // Ошибка: ожидается цифра
           незавершённая = да
@@ -764,9 +748,9 @@
     }
   }
 
-  скрытая функция прочитать-16р-цифры-латиницы(): ДаНет
+  скрытая функция прочитать-16ричные-цифры-латиницы(): ДаНет
   {
-    результат = это-16р-цифра-латиницы(текст.символ-по-позиции(текущая-позиция))
+    результат = это-16ричная-цифра-латиницы(текст.символ-по-позиции(текущая-позиция))
     если результат
     {
       цикл
@@ -774,13 +758,13 @@
         текущая-позиция += 1
       }
       повтор пока текущая-позиция < позиция-конца и
-        это-16р-цифра-латиницы(текст.символ-по-позиции(текущая-позиция))
+        это-16ричная-цифра-латиницы(текст.символ-по-позиции(текущая-позиция))
     }
   }
 
-  скрытая функция прочитать-16р-цифры-кириллицы(): ДаНет
+  скрытая функция прочитать-16ричные-цифры-кириллицы(): ДаНет
   {
-    результат = это-16р-цифра-кириллицы(текст.символ-по-позиции(текущая-позиция))
+    результат = это-16ричная-цифра-кириллицы(текст.символ-по-позиции(текущая-позиция))
     если результат
     {
       цикл
@@ -788,13 +772,13 @@
         текущая-позиция += 1
       }
       повтор пока текущая-позиция < позиция-конца и
-        это-16р-цифра-кириллицы(текст.символ-по-позиции(текущая-позиция))
+        это-16ричная-цифра-кириллицы(текст.символ-по-позиции(текущая-позиция))
     }
   }
 
-  скрытая функция прочитать-2р-цифры(): ДаНет
+  скрытая функция прочитать-2ичные-цифры(): ДаНет
   {
-    результат = это-2р-цифра(текст.символ-по-позиции(текущая-позиция))
+    результат = это-2ичная-цифра(текст.символ-по-позиции(текущая-позиция))
     если результат
     {
       цикл
@@ -802,7 +786,7 @@
         текущая-позиция += 1
       }
       повтор пока текущая-позиция < позиция-конца и
-        это-2р-цифра(текст.символ-по-позиции(текущая-позиция))
+        это-2ичная-цифра(текст.символ-по-позиции(текущая-позиция))
     }
   }
 
@@ -823,19 +807,29 @@
   скрытая функция прочитать-однострочный-комментарий()
   {
     пока текущая-позиция < позиция-конца и
-      не(это-разделитель-строк(текст.символ-по-позиции(текущая-позиция)))
+      не это-разделитель-строк(текст.символ-по-позиции(текущая-позиция))
     {
       текущая-позиция += 1
     }
   }
 
-  скрытая функция прочитать-имя()
+  скрытая функция прочитать-многострочный-комментарий(): ДаНет
   {
-    если текст.символ-по-позиции(текущая-позиция) == "~"
+    пока текущая-позиция < позиция-конца
     {
+      конст символ = текст.символ-по-позиции(текущая-позиция)
+      если символ == "*" и текст.символ-по-позиции(текущая-позиция + 1) == "/"
+      {
+        текущая-позиция += 2
+        вернуть да
+      }
       текущая-позиция += 1
     }
+    вернуть нет
+  }
 
+  скрытая функция прочитать-имя()
+  {
     пусть позиция-минуса = текущая-позиция
     пока текущая-позиция < позиция-конца и
       это-часть-имени(текст.символ-по-позиции(текущая-позиция))
@@ -848,7 +842,7 @@
         {
           текущая-позиция += 1
         }
-        если не(это-часть-имени(текст.символ-по-позиции(текущая-позиция)))
+        если не это-часть-имени(текст.символ-по-позиции(текущая-позиция))
         {
           текущая-позиция = позиция-минуса
           прервать цикл
@@ -865,11 +859,6 @@
 
   скрытая функция прочитать-имя-в-кавычках(): ДаНет
   {
-    если текст.символ-по-позиции(текущая-позиция) == "~"
-    {
-      текущая-позиция += 1
-    }
-
     текущая-позиция += 1
     пока текущая-позиция < позиция-конца
     {
@@ -924,21 +913,21 @@
     результат = символ >= "0" и символ <= "9"
   }
 
-  всеобщая функция это-16р-цифра-латиницы(символ: Символ): ДаНет
+  всеобщая функция это-16ричная-цифра-латиницы(символ: Символ): ДаНет
   {
     результат = символ >= "0" и символ <= "9" или
       символ >= "A" и символ <= "F" или
       символ >= "a" и символ <= "f"
   }
 
-  всеобщая функция это-16р-цифра-кириллицы(символ: Символ): ДаНет
+  всеобщая функция это-16ричная-цифра-кириллицы(символ: Символ): ДаНет
   {
     результат = символ >= "0" и символ <= "9" или
       символ >= "А" и символ <= "Е" или
       символ >= "а" и символ <= "е"
   }
 
-  всеобщая функция это-2р-цифра(символ: Символ): ДаНет
+  всеобщая функция это-2ичная-цифра(символ: Символ): ДаНет
   {
     результат = символ == "0" или символ == "1"
   }
@@ -967,20 +956,20 @@
   {
     пусть индекс = 0
     конст длина = текст-без-кавычек.длина
-    если индекс >= длина или это-начало-имени(текст.символ-по-позиции(индекс))
+    если индекс >= длина или это-начало-имени(текст-без-кавычек.символ-по-позиции(индекс))
     {
       вернуть нет
     }
     индекс += 1
     пока индекс < длина
     {
-      если не (это-часть-имени(текст.символ-по-позиции(индекс)))
+      если не (это-часть-имени(текст-без-кавычек.символ-по-позиции(индекс)))
       {
         вернуть нет
       }
       индекс += 1
     }
-    если индекс == длина и текст.символ-по-позиции(индекс) == "-"
+    если индекс == длина и текст-без-кавычек.символ-по-позиции(индекс) == "-"
     {
       вернуть нет
     }

package//320/230/321/201/321/205/320/276/320/264/320/275/320/270/320/272/320/270//320/224/320/270/320/260/320/273/320/265/320/272/321/202/320/237/320/260/320/272/320/265/321/202/320/260./320/260/321/200/321/202

@@ -1,7 +1,7 @@
 
 тип ДиалектПакета = вариант
 {
-  смешанный = 0
-  привычный = 1
-  особый = 2
+  Артель-АМ = 0
+  Артель-А = 1
+  Артель-М = 2
 }