@artel/ru-artel-compiler 0.6.25208

package//320/230/321/201/321/205/320/276/320/264/320/275/320/270/320/272/320/270//320/242/320/265/320/272/321/201/321/202/320/235/320/265/321/215/320/272/321/200/320/260/320/275/320/270/321/200/320/276/320/262/320/260/320/275/320/275/321/213/320/271./320/260/321/200/321/202

@@ -0,0 +1,223 @@
+
+функция без-кавычек(текст: Текст): Текст
+{
+  результат = текст.скопировать(1, текст.длина - 2)
+}
+
+функция в-неэкранированный-текст(текст: Текст, нормализовать-переносы-строк: ДаНет): Текст
+{
+  результат = ""
+  пусть конец = текст.длина
+  пусть позиция = пропустить-пустую-строку(текст, 0, конец)
+  пусть отступ: Текст? = пусто
+  если позиция > 0
+  {
+    отступ = получить-отступ-в-тексте(текст)
+    если отступ != пусто
+    {
+      конец = исключить-разделитель-строк-в-конце(текст, конец - отступ.длина)
+      позиция = пропустить-отступ(текст, позиция, отступ!)
+    }
+  }
+  пока позиция < конец
+  {
+    выбор текст[позиция]
+    либо "\<"
+    {
+      позиция += 1
+      если текст.символ-по-позиции(позиция) == "\/"
+      {
+        позиция += 1
+        если нормализовать-переносы-строк
+        {
+          результат += "\/"
+        }
+        иначе
+        {
+          результат += "\<\/"
+        }
+        если отступ != пусто
+        {
+          позиция = пропустить-отступ(текст, позиция, отступ!)
+        }
+      }
+    }
+    либо "\/"
+    {
+      позиция += 1
+      результат += "\/"
+      если отступ != пусто
+      {
+        позиция = пропустить-отступ(текст, позиция, отступ!)
+      }
+    }
+    либо "\\"
+    {
+      позиция += 1
+      если позиция < конец
+      {
+        конст символ = текст[позиция]
+        выбор символ
+        либо "u", "ю"
+        {
+          позиция += 1
+          конст исходная = позиция
+          позиция = позиция + 4 когда позиция + 4 < конец : конец
+          конст фрагмент = ФрагментТекста(начало = исходная, конец = позиция, текст)
+          конст код-символа =
+            прочитать-16р-целое-латиницы(фрагмент) когда символ == "u" :
+            прочитать-16р-целое-кириллицы(фрагмент) // когда символ == "ю"
+          результат += Символ(код-символа)
+        }
+        либо "/", "n"
+        {
+          позиция += 1
+          результат += "\/"
+        }
+        либо "<", "r"
+        {
+          позиция += 1
+          результат += "\<"
+        }
+        либо ">", "t"
+        {
+          позиция += 1
+          результат += "\>"
+        }
+        либо "\/"
+        {
+          позиция += 1
+          позиция = пропустить-пробелы-и-табуляции(текст, позиция, конец)
+        }
+        либо "\<"
+        {
+          позиция += 1
+          если позиция < конец и текст[позиция] == "\/"
+          {
+            позиция = пропустить-пробелы-и-табуляции(текст, позиция, конец)
+          }
+        }
+        либо " ", "\>"
+        {
+          позиция += 1
+          конст исходная = позиция
+          позиция = пропустить-пустую-строку(текст, позиция, конец)
+          если позиция > исходная
+          {
+            позиция = пропустить-пробелы-и-табуляции(текст, позиция, конец)
+          }
+          иначе
+          {
+            позиция = исходная
+            результат += символ
+          }
+        }
+        либо *
+        {
+          позиция += 1
+          результат += символ
+        }
+      }
+    }
+    либо *
+    {
+      конст начало = позиция
+      позиция = пропустить-неэкранированные-символы(текст, позиция, конец)
+      результат += текст.скопировать(начало, позиция - начало)
+    }
+  }
+}
+
+скрытая функция получить-отступ-в-тексте(текст: Текст): Текст?
+{
+  результат = пусто
+  пусть позиция = текст.длина - 1
+  пока позиция >= 0
+  {
+    выбор текст[позиция]
+    либо " ", "\>"
+    {
+      позиция -= 1
+    }
+    либо "\/"
+    {
+      результат = текст.скопировать(позиция + 1, текст.длина - позиция - 1)
+      прервать цикл
+    }
+    либо *
+    {
+      прервать цикл
+    }
+  }
+}
+
+скрытая функция исключить-разделитель-строк-в-конце(текст: Текст, конец: Целое): Целое
+{
+  результат = конец
+  если конец > 0 и текст.символ-по-позиции(конец - 1) == "\/"
+  {
+    если конец > 1 и текст.символ-по-позиции(конец - 2) == "\<"
+    {
+      результат = конец - 2
+    }
+    иначе
+    {
+      результат = конец - 1
+    }
+  }
+}
+
+скрытая функция пропустить-отступ(текст: Текст, начало: Целое, отступ: Текст): Целое
+{
+  пусть позиция = 0
+  пока позиция < отступ.длина и начало + позиция < текст.длина и отступ[позиция] == текст[начало + позиция]
+  {
+    позиция += 1
+  }
+  результат = начало + позиция
+}
+
+скрытая функция пропустить-неэкранированные-символы(текст: Текст, начало: Целое, конец: Целое): Целое
+{
+  результат = начало
+  пока результат < конец
+  {
+    конст символ = текст[результат]
+    если символ == "\\" или символ == "\/" или символ == "\<"
+    {
+      прервать цикл
+    }
+    результат += 1
+  }
+}
+
+скрытая функция пропустить-пустую-строку(текст: Текст, начало: Целое, конец: Целое): Целое
+{
+  результат = начало
+  конст позиция = пропустить-пробелы-и-табуляции(текст, начало, конец)
+  если текст.символ-по-позиции(позиция) == "\/"
+  {
+    результат = позиция + 1
+  }
+  иначе если текст.символ-по-позиции(позиция) == "\<" и текст.символ-по-позиции(позиция + 1) == "\/"
+  {
+    результат = позиция + 2
+  }
+}
+
+скрытая функция пропустить-пробелы-и-табуляции(текст: Текст, начало: Целое, конец: Целое): Целое
+{
+  результат = начало
+  пока результат < конец
+  {
+    конст символ = текст[результат]
+    если символ == " " или символ == "\>"
+    {
+      результат += 1
+    }
+    иначе
+    {
+      прервать цикл
+    }
+  }
+}

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

@@ -0,0 +1,111 @@
+
+функция прочитать-целое(текст: ФрагментТекста): Целое
+{
+  если (текст.начинается-на("0x"))
+  {
+    конст фрагмент = текст.фрагмент(2, текст.длина - 2)
+    результат = прочитать-16р-целое-латиницы(фрагмент)
+  }
+  иначе если (текст.начинается-на("0ш"))
+  {
+    конст фрагмент = текст.фрагмент(2, текст.длина - 2)
+    результат = прочитать-16р-целое-кириллицы(фрагмент)
+  }
+  иначе если (текст.начинается-на("0b") или текст.начинается-на("0д"))
+  {
+    конст фрагмент = текст.фрагмент(2, текст.длина - 2)
+    результат = прочитать-2р-целое(фрагмент)
+  }
+  иначе
+  {
+    результат = прочитать-10р-целое(текст)
+  }
+}
+
+скрыто (в пакете)
+функция прочитать-16р-целое-латиницы(текст: ФрагментТекста): Целое
+{
+  результат = 0
+  пусть позиция = текст.длина - 1
+  пусть степень = 1
+  пока позиция >= 0
+  {
+    конст символ = текст[позиция]
+    если символ >= "0" и символ <= "9"
+    {
+      результат += (символ.код() - "0".код()) * степень
+    }
+    иначе если символ >= "A" и символ <= "F"
+    {
+      результат += (символ.код() - "A".код() + 10) * степень
+    }
+    иначе если символ >= "a" и символ <= "f"
+    {
+      результат += (символ.код() - "a".код() + 10) * степень
+    }
+    позиция -= 1
+    степень *= 16
+  }
+}
+
+скрыто (в пакете)
+функция прочитать-16р-целое-кириллицы(текст: ФрагментТекста): Целое
+{
+  результат = 0
+  пусть позиция = текст.длина - 1
+  пусть степень = 1
+  пока позиция >= 0
+  {
+    конст символ = текст[позиция]
+    если символ >= "0" и символ <= "9"
+    {
+      результат += (символ.код() - "0".код()) * степень
+    }
+    иначе если символ >= "А" и символ <= "Е"
+    {
+      результат += (символ.код() - "А".код() + 10) * степень
+    }
+    иначе если символ >= "а" и символ <= "е"
+    {
+      результат += (символ.код() - "а".код() + 10) * степень
+    }
+    позиция -= 1
+    степень *= 16
+  }
+}
+
+скрыто (в пакете)
+функция прочитать-10р-целое(текст: ФрагментТекста): Целое
+{
+  результат = 0
+  пусть позиция = текст.длина - 1
+  пусть степень = 1
+  пока позиция >= 0
+  {
+    конст символ = текст[позиция]
+    если символ >= "0" и символ <= "9"
+    {
+      результат += (символ.код() - "0".код()) * степень
+    }
+    позиция -= 1
+    степень *= 10
+  }
+}
+
+скрыто (в пакете)
+функция прочитать-2р-целое(текст: ФрагментТекста): Целое
+{
+  результат = 0
+  пусть позиция = текст.длина - 1
+  пусть степень = 1
+  пока позиция >= 0
+  {
+    конст символ = текст[позиция]
+    если символ == "1"
+    {
+      результат += степень
+    }
+    позиция -= 1
+    степень *= 2
+  }
+}

package//320/230/321/201/321/205/320/276/320/264/320/275/320/270/320/272/320/270//320/257/320/267/321/213/320/272/320/237/320/260/320/272/320/265/321/202/320/260./320/260/321/200/321/202

@@ -0,0 +1,46 @@
+
+тип ЯзыкПакета = вариант
+{
+  английский = 0
+  русский = 1
+}
+
+конст языки: Массив<объект { язык: ЯзыкПакета; код: Текст; имена: Массив<Текст> }> =
+[
+  автотип(язык = ЯзыкПакета.английский, код = "en", имена = ["english", "английский"]),
+  автотип(язык = ЯзыкПакета.русский, код = "ru", имена = ["рус", "русский", "rus", "russian"]),
+]
+
+функция язык-в-текст(язык: ЯзыкПакета): Текст
+{
+  для э из языки
+  {
+    если э.язык == язык
+    {
+      вернуть э.код
+    }
+  }
+  вернуть языки[0].код
+}
+
+функция язык-из-текста(текст: Текст): ЯзыкПакета?
+{
+  для э из языки
+  {
+    если э.код == текст
+    {
+      вернуть э.язык
+    }
+    иначе
+    {
+      для имя из э.имена
+      {
+        если Текст.сравнить(текст, имя) == 0
+        {
+          вернуть э.язык
+        }
+      }
+    }
+  }
+  вернуть пусто
+}