fix(model): модель и описания колонок без гонок между потоками

docs/МенеджерСущностей.md

@@ -25,6 +25,10 @@
 ```bsl
 // Регистрирует переданный тип класса-сценария в модели данных.
 //
+// Повторная регистрация типа модель не меняет: остается прежний объект модели, с которым уже
+// работают хранилища. Регистрировать классы можно и после передачи менеджера другим потокам, но
+// таблицы создает Инициализировать, поэтому обычно классы регистрируют до него.
+//
 // Параметры:
 //   ТипСущности - Тип - Тип для добавления в модель
 //

docs/МодельДанных.md

@@ -1,5 +1,8 @@
 ## МодельДанных
 
+Модель общая у всех потоков, работающих с менеджером: операции читают ее на каждом шаге, а классы
+можно регистрировать и после передачи менеджера другим потокам.
+
 ### ПриСозданииОбъекта
 
 ```bsl
@@ -10,21 +13,44 @@
 ### Получить
 
 ```bsl
-
+// Возвращает объект модели типа сущности.
+//
+// Параметры:
+//   ТипСущности - Тип - Тип сущности.
+//
+// Возвращаемое значение:
+//   ОбъектМодели - Объект модели типа.
+//   Неопределено - Тип не зарегистрирован в модели.
+//
 Функция Получить(ТипСущности) Экспорт
 ```
 
 ### ПолучитьОбъектыМодели
 
 ```bsl
-
+// Возвращает объекты модели всех зарегистрированных типов.
+//
+// Возвращаемое значение:
+//   Массив из ОбъектМодели - Копия на момент вызова: типы, зарегистрированные позже, в нее не
+//     попадут.
+//
 Функция ПолучитьОбъектыМодели() Экспорт
 ```
 
 ### СоздатьОбъектМодели
 
 ```bsl
-
+// Регистрирует тип сущности в модели.
+//
+// Если тип уже зарегистрирован, возвращается существующий объект модели: с ним уже могут работать
+// хранилища и операции других потоков, поэтому он не подменяется.
+//
+// Параметры:
+//   ТипСущности - Тип - Тип сущности.
+//
+// Возвращаемое значение:
+//   ОбъектМодели - Объект модели типа.
+//
 Функция СоздатьОбъектМодели(ТипСущности) Экспорт
 ```
 

docs/ОбъектМодели.md

@@ -3,8 +3,16 @@
 ### ПриСозданииОбъекта
 
 ```bsl
-
-Процедура ПриСозданииОбъекта(ПТипСущности, ПМодельДанных) 
+// Создает объект модели по аннотациям класса сущности.
+//
+// Параметры:
+//   ПТипСущности - Тип - Тип класса сущности.
+//   ПМодельДанных - МодельДанных - Модель, к которой относится объект.
+//   ПИмяТаблицы - Строка - Имя таблицы вместо имени из аннотации класса. Так создаются объекты
+//     модели подчиненных таблиц: класс элемента у них один, а таблицы разные.
+//               - Неопределено - Имя таблицы берется из аннотации класса.
+//
+Процедура ПриСозданииОбъекта(ПТипСущности, ПМодельДанных, ПИмяТаблицы = Неопределено) 
 ```
 
 ### ИмяТаблицы
@@ -32,13 +40,6 @@
 Функция ПодчиненныеТаблицы() Экспорт
 ```
 
-### Служебный_ИмяТаблицы
-
-```bsl
-// @internal
-Процедура Служебный_ИмяТаблицы(ПИмяТаблицы) Экспорт
-```
-
 ### Идентификатор
 
 ```bsl

docs/ТипыКолонок.md

@@ -10,11 +10,16 @@
 * Время
 * ДатаВремя
 * Ссылка
+* ДвоичныеДанные
 
 ### Типы
 
 ```bsl
-
+// Возвращает все типы колонок модели.
+//
+// Возвращаемое значение:
+//   ФиксированныйМассив из Строка - Имена типов колонок.
+//
 Функция Типы() Экспорт
 ```
 

docs/ТипыПодчиненныхТаблиц.md

@@ -8,7 +8,11 @@
 ### Типы
 
 ```bsl
-
+// Возвращает все типы подчиненных таблиц.
+//
+// Возвращаемое значение:
+//   ФиксированныйМассив из Строка - Имена типов подчиненных таблиц.
+//
 Функция Типы() Экспорт
 ```
 

packagedef

@@ -18,7 +18,7 @@
         .ЗависитОт("annotations", "1.6.0")
         .ЗависитОт("asserts", "1.6.2")
         .ЗависитОт("atomic", "0.1.1")
-        .ЗависитОт("collectionos", "0.8.4")
+        .ЗависитОт("collectionos", "0.9.0")
         .ЗависитОт("fluent", "0.6.1")
         .ЗависитОт("fs", "1.2.0")
         .ЗависитОт("lambdas", "0.3.5")

src/internal/Модули/ОбработкаКоллекций.os

@@ -89,10 +89,10 @@
 
 	ОбъектМоделиЭлементКоллекции = Новый ОбъектМодели(
 		Тип("СлужебнаяСущность_ЭлементКоллекцииКлючЗначение"),
-		РодительскийОбъектМодели.МодельДанных()
+		РодительскийОбъектМодели.МодельДанных(),
+		ПодчиненнаяТаблица.ИмяТаблицы
 	);
 
-	ОбъектМоделиЭлементКоллекции.Служебный_ИмяТаблицы(ПодчиненнаяТаблица.ИмяТаблицы);
 	// Колонки модели только для чтения, но этот объект модели только что создан и еще никому не отдан.
 	КолонкиОбъектаМодели = ОбъектМоделиЭлементКоллекции.Колонки();
 

src/Классы/МенеджерСущностей.os

@@ -67,6 +67,10 @@
 
 // Регистрирует переданный тип класса-сценария в модели данных.
 //
+// Повторная регистрация типа модель не меняет: остается прежний объект модели, с которым уже
+// работают хранилища. Регистрировать классы можно и после передачи менеджера другим потокам, но
+// таблицы создает Инициализировать, поэтому обычно классы регистрируют до него.
+//
 // Параметры:
 //   ТипСущности - Тип - Тип для добавления в модель
 //

src/Классы/МодельДанных.os

@@ -1,25 +1,55 @@
+#Использовать collectionos
+
+// КартаКопированиеПриЗаписи - Тип сущности: ее объект модели. Модель общая у всех потоков, работающих
+// с менеджером: операции читают ее на каждом шаге, а меняется она только при регистрации класса.
 Перем ХранилищеМодели;
 
 Процедура ПриСозданииОбъекта()
-	ХранилищеМодели = Новый Соответствие;
+	ХранилищеМодели = Новый КартаКопированиеПриЗаписи();
 КонецПроцедуры
 
+// Возвращает объект модели типа сущности.
+//
+// Параметры:
+//   ТипСущности - Тип - Тип сущности.
+//
+// Возвращаемое значение:
+//   ОбъектМодели - Объект модели типа.
+//   Неопределено - Тип не зарегистрирован в модели.
+//
 Функция Получить(ТипСущности) Экспорт
-	Возврат ХранилищеМодели.Получить(ТипСущности);
+	Возврат ХранилищеМодели.ПолучитьИлиУмолчание(ТипСущности, Неопределено);
 КонецФункции
 
+// Возвращает объекты модели всех зарегистрированных типов.
+//
+// Возвращаемое значение:
+//   Массив из ОбъектМодели - Копия на момент вызова: типы, зарегистрированные позже, в нее не
+//     попадут.
+//
 Функция ПолучитьОбъектыМодели() Экспорт
-	ВсеОбъектыМодели = Новый Массив;
-	Для Каждого КлючИЗначение Из ХранилищеМодели Цикл
-		ВсеОбъектыМодели.Добавить(КлючИЗначение.Значение);
-	КонецЦикла;
-
-	Возврат ВсеОбъектыМодели;
+
+	Возврат ХранилищеМодели.Значения().ВМассив();
+
 КонецФункции
 
+// Регистрирует тип сущности в модели.
+//
+// Если тип уже зарегистрирован, возвращается существующий объект модели: с ним уже могут работать
+// хранилища и операции других потоков, поэтому он не подменяется.
+//
+// Параметры:
+//   ТипСущности - Тип - Тип сущности.
+//
+// Возвращаемое значение:
+//   ОбъектМодели - Объект модели типа.
+//
 Функция СоздатьОбъектМодели(ТипСущности) Экспорт
+
+	// Объект строится вне карты: конструктор разбирает аннотации класса, и держать на это время
+	// блокировку изменения карты незачем.
 	ОбъектМодели = Новый ОбъектМодели(ТипСущности, ЭтотОбъект);
-	ХранилищеМодели.Вставить(ТипСущности, ОбъектМодели);
 
-	Возврат ОбъектМодели;
+	Возврат ХранилищеМодели.ВставитьЕслиОтсутствует(ТипСущности, ОбъектМодели).Иначе_(ОбъектМодели);
+
 КонецФункции

src/Классы/ОбъектМодели.os

@@ -18,7 +18,16 @@
 
 Перем Рефлектор;
 
-Процедура ПриСозданииОбъекта(ПТипСущности, ПМодельДанных)
+// Создает объект модели по аннотациям класса сущности.
+//
+// Параметры:
+//   ПТипСущности - Тип - Тип класса сущности.
+//   ПМодельДанных - МодельДанных - Модель, к которой относится объект.
+//   ПИмяТаблицы - Строка - Имя таблицы вместо имени из аннотации класса. Так создаются объекты
+//     модели подчиненных таблиц: класс элемента у них один, а таблицы разные.
+//               - Неопределено - Имя таблицы берется из аннотации класса.
+//
+Процедура ПриСозданииОбъекта(ПТипСущности, ПМодельДанных, ПИмяТаблицы = Неопределено)
 
 	МодельДанных = ПМодельДанных;
 	ТипСущности = ПТипСущности;
@@ -27,6 +36,10 @@
 	ЗаполнитьПодчиненныеТаблицы();
 	Рефлектор = Новый Рефлектор;
 
+	Если ПИмяТаблицы <> Неопределено Тогда
+		ИмяТаблицы = ПИмяТаблицы;
+	КонецЕсли;
+
 КонецПроцедуры
 
 Функция ИмяТаблицы() Экспорт
@@ -50,11 +63,6 @@
 	Возврат ПодчиненныеТаблицы.Скопировать();
 КонецФункции
 
-// @internal
-Процедура Служебный_ИмяТаблицы(ПИмяТаблицы) Экспорт
-	ИмяТаблицы = ПИмяТаблицы;
-КонецПроцедуры
-
 Функция Идентификатор() Экспорт
 	Возврат Идентификатор;
 КонецФункции

src/Модули/ТипыКолонок.os

@@ -8,9 +8,16 @@
 Перем Ссылка Экспорт;
 Перем ДвоичныеДанные Экспорт;
 
+// ФиксированныйМассив из Строка - Все типы колонок.
 Перем Типы;
+// ФиксированныйМассив из Строка - Примитивные типы колонок.
 Перем ПримитивныеТипы;
 
+// Возвращает все типы колонок модели.
+//
+// Возвращаемое значение:
+//   ФиксированныйМассив из Строка - Имена типов колонок.
+//
 Функция Типы() Экспорт
 	Возврат Типы;
 КонецФункции
@@ -68,23 +75,25 @@
 Ссылка = "Ссылка";
 ДвоичныеДанные = "ДвоичныеДанные";
 
-Типы = Новый Массив;
-Типы.Добавить(Целое);
-Типы.Добавить(Дробное);
-Типы.Добавить(Булево);
-Типы.Добавить(Строка);
-Типы.Добавить(Дата);
-Типы.Добавить(Время);
-Типы.Добавить(ДатаВремя);
-Типы.Добавить(Ссылка);
-Типы.Добавить(ДвоичныеДанные);
+ВсеТипы = Новый Массив;
+ВсеТипы.Добавить(Целое);
+ВсеТипы.Добавить(Дробное);
+ВсеТипы.Добавить(Булево);
+ВсеТипы.Добавить(Строка);
+ВсеТипы.Добавить(Дата);
+ВсеТипы.Добавить(Время);
+ВсеТипы.Добавить(ДатаВремя);
+ВсеТипы.Добавить(Ссылка);
+ВсеТипы.Добавить(ДвоичныеДанные);
+Типы = Новый ФиксированныйМассив(ВсеТипы);
 
-ПримитивныеТипы = Новый Массив;
-ПримитивныеТипы.Добавить(Целое);
-ПримитивныеТипы.Добавить(Дробное);
-ПримитивныеТипы.Добавить(Булево);
-ПримитивныеТипы.Добавить(Строка);
-ПримитивныеТипы.Добавить(Дата);
-ПримитивныеТипы.Добавить(Время);
-ПримитивныеТипы.Добавить(ДатаВремя);
-ПримитивныеТипы.Добавить(ДвоичныеДанные);
+Примитивные = Новый Массив;
+Примитивные.Добавить(Целое);
+Примитивные.Добавить(Дробное);
+Примитивные.Добавить(Булево);
+Примитивные.Добавить(Строка);
+Примитивные.Добавить(Дата);
+Примитивные.Добавить(Время);
+Примитивные.Добавить(ДатаВремя);
+Примитивные.Добавить(ДвоичныеДанные);
+ПримитивныеТипы = Новый ФиксированныйМассив(Примитивные);

src/Модули/ТипыПодчиненныхТаблиц.os

@@ -1,15 +1,22 @@
 Перем Массив Экспорт;
 Перем Структура Экспорт;
 
+// ФиксированныйМассив из Строка - Все типы подчиненных таблиц.
 Перем Типы;
 
+// Возвращает все типы подчиненных таблиц.
+//
+// Возвращаемое значение:
+//   ФиксированныйМассив из Строка - Имена типов подчиненных таблиц.
+//
 Функция Типы() Экспорт
 	Возврат Типы;
 КонецФункции
 
 Массив = "Массив";
 Структура = "Структура";
 
-Типы = Новый Массив;
-Типы.Добавить(Массив);
-Типы.Добавить(Структура);
+ВсеТипы = Новый Массив;
+ВсеТипы.Добавить(Массив);
+ВсеТипы.Добавить(Структура);
+Типы = Новый ФиксированныйМассив(ВсеТипы);