1c/bsl-parser
1
0
Fork 0
mirror of https://github.com/bia-technologies/bsl-parser.git synced 2025-02-19 20:00:02 +02:00
Code Issues Releases Activity

#ONECICD-86

Browse Source 
Исправления по офомлению
This commit is contained in:
aleksey.koryakin 2019-05-02 16:19:51 +03:00
parent 46bdcec0ce
commit a114fc6807
3 changed files with 43 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/Классы/РазборКонфигурации1С.os
View File

@ -38,7 +38,7 @@
// Выполняет поиск всех модулей конфигурации
//
Процедура НайтиМодулиКонфигурации()Экспорт
Процедура НайтиМодулиКонфигурации() Экспорт
МодулиКонфигурации = СтруктурыОписаний.ТаблицаОписанияМодулей();
@ -99,7 +99,7 @@
// * Подсистема - Имя подсистемы, в которую включена константа
// * ПодсистемаПредставление - Представление подсистемы, в которую включена константа
//
Функция ПрочитатьОписаниеКонстант()Экспорт
Функция ПрочитатьОписаниеКонстант() Экспорт
Фильтр = Новый Структура("Тип", "Constant");
@ -135,7 +135,7 @@
// Параметры:
// СтрокаМодуль - СтрокаТаблицыЗначений - Базовое описание модуля
//
Процедура ПрочитатьСодержимоеМодуля(СтрокаМодуль)Экспорт
Процедура ПрочитатьСодержимоеМодуля(СтрокаМодуль) Экспорт
Файл = Новый ТекстовыйДокумент;
Файл.Прочитать(СтрокаМодуль.ПутьКФайлу, КодировкаТекста.UTF8NoBOM);
@ -185,7 +185,7 @@
// Возвращаемое значение:
// Строка - Полное имя
//
Функция ПолноеИмяОбъекта(СтрокаОбъект, ДобавлятьПрефиксДляОбщихМодулей = ИСТИНА) Экспорт
Функция ПолноеИмяОбъекта(СтрокаОбъект, ДобавлятьПрефиксДляОбщихМодулей = Истина) Экспорт
Возврат ЧтениеОписанийБазовый.ПолноеИмяОбъекта(СтрокаОбъект, ДобавлятьПрефиксДляОбщихМодулей);
@ -438,22 +438,13 @@
КонецЕсли;
Если СвойстваОписания.Состав.Количество() Тогда
Для Каждого ОбъектМетаданных Из СвойстваОписания.Состав Цикл
ЭтаПодсистема = ОписаниеПодсистем.Добавить();
ЭтаПодсистема.Имя = ПодсистемаИмя;
ЭтаПодсистема.ИмяКратко = СвойстваОписания.Наименование;
ЭтаПодсистема.Представление = ПодсистемаПредставление;
ЭтаПодсистема.ПредставлениеКратко = СвойстваОписания.Синоним;
ЭтаПодсистема.ПодсистемаОписание = СвойстваОписания.Комментарий;
ЭтаПодсистема.ОбъектМетаданных = ОбъектМетаданных;
ЭтаПодсистема.Визуальная = Визуальная;
ЭтаПодсистема.Родитель = Родитель;
КонецЦикла;
Состав = СвойстваОписания.Состав;
Иначе
Состав = Новый Массив();
Состав.Добавить(Неопределено);
КонецЕсли;
Для Каждого ОбъектМетаданных Из Состав Цикл
ЭтаПодсистема = ОписаниеПодсистем.Добавить();
ЭтаПодсистема.Имя = ПодсистемаИмя;
@ -461,11 +452,12 @@
ЭтаПодсистема.Представление = ПодсистемаПредставление;
ЭтаПодсистема.ПредставлениеКратко = СвойстваОписания.Синоним;
ЭтаПодсистема.ПодсистемаОписание = СвойстваОписания.Комментарий;
ЭтаПодсистема.ОбъектМетаданных = ОбъектМетаданных;
ЭтаПодсистема.Визуальная = Визуальная;
ЭтаПодсистема.Родитель = Родитель;
ЭтаПодсистема.Родитель = Родитель;
КонецЦикла;
КонецЕсли;
Для Каждого ФайлыВложеннойПодсистемы Из ФайлыПодсистемы.Вложенные Цикл
ПрочитатьПодсистему(ФайлыВложеннойПодсистемы, ОписаниеПодсистем, ПодсистемаИмя, ПодсистемаПредставление, Визуальная, ЭтаПодсистема)

6
src/Классы/СтруктураКаталоговКонфигурации.os
View File

@ -381,10 +381,10 @@
КонецПроцедуры
Процедура ПриСозданииОбъекта(пКаталогИсходников, пФорматВыгрузки = "Авто", пСоздаватьКаталоги = Ложь)
КаталогИсходников = пКаталогИсходников;
КаталогИсходников = пКаталогИсходников;
ФорматВыгрузки = пФорматВыгрузки;
СоздаватьКаталоги = пСоздаватьКаталоги = Истина;
СоздаватьКаталоги = пСоздаватьКаталоги;
Если ПустаяСтрока(ФорматВыгрузки) ИЛИ СтрСравнить(ФорматВыгрузки, "Авто") = 0 Тогда

52
src/ЧтениеМодулей/Модули/ТипМодуля.os
View File

@ -13,12 +13,12 @@
Перем МодульУправляемогоПриложения Экспорт;
Перем МодульВнешнегоСоединения Экспорт;
Перем СоответствиеИмениФайлаИТИпаМодуля;
Перем СоответствиеИмениРодителяИТИпаМодуля;
Перем СоответствиеИмениФайлаИТипаМодуля;
Перем СоответствиеИмениРодителяИТипаМодуля;
///////////////////////////////////////////////////////////////////////////////////////////////
Функция ТипМодуляПоИмениФайла(ПолноеИмяФайла)Экспорт
Функция ТипМодуляПоИмениФайла(ПолноеИмяФайла) Экспорт
Файл = Новый Файл(ПолноеИмяФайла);
ИмяБезРасширения = Файл.ИмяБезРасширения;
@ -54,7 +54,7 @@
КонецЕсли;
ТипЭтогоМодуля = СоответствиеИмениРодителяИТИпаМодуля[Родитель];
ТипЭтогоМодуля = СоответствиеИмениРодителяИТипаМодуля[Родитель];
Иначе
@ -65,7 +65,7 @@
Иначе
ТипЭтогоМодуля = СоответствиеИмениФайлаИТИпаМодуля[ИмяБезРасширения];
ТипЭтогоМодуля = СоответствиеИмениФайлаИТипаМодуля[ИмяБезРасширения];
КонецЕсли;
@ -102,25 +102,25 @@
МодульУправляемогоПриложения = "МодульУправляемогоПриложения";
МодульВнешнегоСоединения = "МодульВнешнегоСоединения";
СоответствиеИмениФайлаИТИпаМодуля = Новый Соответствие();
СоответствиеИмениФайлаИТИпаМодуля.Вставить("CommandModule", МодульКоманды);
СоответствиеИмениФайлаИТИпаМодуля.Вставить("ManagedApplicationModule", МодульУправляемогоПриложения);
СоответствиеИмениФайлаИТИпаМодуля.Вставить("OrdinaryApplicationModule", МодульОбычногоПриложения);
СоответствиеИмениФайлаИТИпаМодуля.Вставить("SessionModule", МодульСеанса);
СоответствиеИмениФайлаИТИпаМодуля.Вставить("ExternalConnectionModule", МодульВнешнегоСоединения);
СоответствиеИмениФайлаИТИпаМодуля.Вставить("ManagerModule", МодульМенеджера);
СоответствиеИмениФайлаИТИпаМодуля.Вставить("ValueManagerModule", МодульМенеджера);
СоответствиеИмениФайлаИТИпаМодуля.Вставить("ObjectModule", МодульОбъекта);
СоответствиеИмениФайлаИТИпаМодуля.Вставить("RecordSetModule", МодульОбъекта);
СоответствиеИмениФайлаИТипаМодуля = Новый Соответствие();
СоответствиеИмениФайлаИТипаМодуля.Вставить("CommandModule", МодульКоманды);
СоответствиеИмениФайлаИТипаМодуля.Вставить("ManagedApplicationModule", МодульУправляемогоПриложения);
СоответствиеИмениФайлаИТипаМодуля.Вставить("OrdinaryApplicationModule", МодульОбычногоПриложения);
СоответствиеИмениФайлаИТипаМодуля.Вставить("SessionModule", МодульСеанса);
СоответствиеИмениФайлаИТипаМодуля.Вставить("ExternalConnectionModule", МодульВнешнегоСоединения);
СоответствиеИмениФайлаИТипаМодуля.Вставить("ManagerModule", МодульМенеджера);
СоответствиеИмениФайлаИТипаМодуля.Вставить("ValueManagerModule", МодульМенеджера);
СоответствиеИмениФайлаИТипаМодуля.Вставить("ObjectModule", МодульОбъекта);
СоответствиеИмениФайлаИТипаМодуля.Вставить("RecordSetModule", МодульОбъекта);
СоответствиеИмениРодителяИТИпаМодуля = Новый Соответствие();
СоответствиеИмениРодителяИТИпаМодуля.Вставить("CommonModules", ОбщийМодуль);
СоответствиеИмениРодителяИТИпаМодуля.Вставить("CommonModule", ОбщийМодуль);
СоответствиеИмениРодителяИТИпаМодуля.Вставить("WebServices", МодульОбъекта);
СоответствиеИмениРодителяИТИпаМодуля.Вставить("WebService", МодульОбъекта);
СоответствиеИмениРодителяИТИпаМодуля.Вставить("HTTPServices", МодульОбъекта);
СоответствиеИмениРодителяИТИпаМодуля.Вставить("HTTPService", МодульОбъекта);
СоответствиеИмениРодителяИТИпаМодуля.Вставить("Forms", МодульУправляемойФормы);
СоответствиеИмениРодителяИТИпаМодуля.Вставить("Form", МодульУправляемойФормы);
СоответствиеИмениРодителяИТИпаМодуля.Вставить("CommonForms", МодульУправляемойФормы);
СоответствиеИмениРодителяИТИпаМодуля.Вставить("CommonForm", МодульУправляемойФормы);
СоответствиеИмениРодителяИТипаМодуля = Новый Соответствие();
СоответствиеИмениРодителяИТипаМодуля.Вставить("CommonModules", ОбщийМодуль);
СоответствиеИмениРодителяИТипаМодуля.Вставить("CommonModule", ОбщийМодуль);
СоответствиеИмениРодителяИТипаМодуля.Вставить("WebServices", МодульОбъекта);
СоответствиеИмениРодителяИТипаМодуля.Вставить("WebService", МодульОбъекта);
СоответствиеИмениРодителяИТипаМодуля.Вставить("HTTPServices", МодульОбъекта);
СоответствиеИмениРодителяИТипаМодуля.Вставить("HTTPService", МодульОбъекта);
СоответствиеИмениРодителяИТипаМодуля.Вставить("Forms", МодульУправляемойФормы);
СоответствиеИмениРодителяИТипаМодуля.Вставить("Form", МодульУправляемойФормы);
СоответствиеИмениРодителяИТипаМодуля.Вставить("CommonForms", МодульУправляемойФормы);
СоответствиеИмениРодителяИТипаМодуля.Вставить("CommonForm", МодульУправляемойФормы);