Получение архитектуры процессора через табакерку

Author: EvilBeaver

src/core/Классы/ДетекторОкружения.os

@@ -1,27 +1,20 @@
 #Использовать cpuinfo
 
 Перем СистемнаяИнформация;
-Перем ИнформацияОПроцессоре;
+
+&Табакерка
+&Пластилин("Процессор")
+Перем ПровайдерИнформацииОПроцессоре;
 
 &Желудь
 Процедура ПриСозданииОбъекта()
-	// получение cpuinfo тяжелая операция с запуском процессов
-	// поэтому инициализация ленивая и в конструкторе желудя не выполняется.
+	СистемнаяИнформация = Новый СистемнаяИнформация();
 КонецПроцедуры
 
 Функция ТипПлатформы() Экспорт
-	Инициализировать();
 	Возврат СистемнаяИнформация.ТипПлатформы;
 КонецФункции
 
 Функция АрхитектураПроцессора() Экспорт
-	Инициализировать();
-	Возврат ИнформацияОПроцессоре.Архитектура;
+	Возврат ПровайдерИнформацииОПроцессоре.Достать().Архитектура;
 КонецФункции
-
-Процедура Инициализировать()
-	Если СистемнаяИнформация = Неопределено Тогда
-		СистемнаяИнформация = Новый СистемнаяИнформация;
-		ИнформацияОПроцессоре = Новый ИнформацияОПроцессоре;
-	КонецЕсли;
-КонецПроцедуры

src/core/Классы/ДубСПроцессором.os

@@ -0,0 +1,11 @@
+#Использовать cpuinfo
+
+&Дуб
+Процедура ПриСозданииОбъекта()
+	// Дуб выращивает процессоры для помещения в табакерку желудя ДетекторОкружения. И нет, я не сошел с ума.
+КонецПроцедуры
+
+&Завязь(Тип = "ИнформацияОПроцессоре")
+Функция Процессор() Экспорт
+	Возврат Новый ИнформацияОПроцессоре();
+КонецФункции

tests/distrSelectorTests.os

@@ -280,15 +280,12 @@
 
 КонецФункции
 
-Процедура ЗаписьДистрибутива(Знач Таблица, Знач Вид, Знач Архитектура, Знач Ссылка = Неопределено, Знач ИмяФайла = Неопределено)
+Процедура ЗаписьДистрибутива(Знач Таблица, Знач Вид, Знач Архитектура)
 
 	Стр = Таблица.Добавить();
 	Стр.Вид = Вид;
 	Стр.Архитектура = Архитектура;
-	Если Стр.Ссылка = Неопределено Тогда
-		Стр.Ссылка = Вид + "/" + Архитектура;
-	КонецЕсли;
-	Стр.ИмяФайла = ИмяФайла;
+	Стр.Ссылка = Вид + "/" + Архитектура;
 
 КонецПроцедуры