@artel/ru-compiler 0.6.25002

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
+        {
+          вернуть э.язык
+        }
+      }
+    }
+  }
+  вернуть пусто
+}