Skip to content

Commit d8368d6

Browse files
Stepa86Stepa86
committed
фикс: Указание SRC в кавычках
1 parent fcb0081 commit d8368d6

File tree

3 files changed

+97
-76
lines changed

3 files changed

+97
-76
lines changed

‎src/Классы/edtExport.os‎

Lines changed: 52 additions & 63 deletions
Original file line numberDiff line numberDiff line change
@@ -55,20 +55,20 @@
5555
Если Команда.ЗначениеОпции("debug") Тогда
5656
_лог.УстановитьУровень(УровниЛога.Отладка);
5757
КонецЕсли;
58-
58+
5959
результатПроверки = Команда.ЗначениеАргумента("EDT_VALIDATION_RESULT");
6060
_лог.Отладка("EDT_VALIDATION_RESULT = " + результатПроверки);
61-
61+
6262
путьКРезультату = Команда.ЗначениеАргумента("EDT_VALIDATION_JSON");
6363
_лог.Отладка("EDT_VALIDATION_JSON = " + путьКРезультату);
64-
64+
6565
путьККаталогуИсходников = Команда.ЗначениеАргумента("SRC");
6666
_лог.Отладка("SRC = " + путьККаталогуИсходников);
6767

6868
_РезультатПроверки = ОбщегоНазначения.АбсолютныйПуть(результатПроверки);
6969
_лог.Отладка("Файл с результатом проверки EDT = " + _РезультатПроверки);
7070

71-
Если Не ОбщегоНазначения.ФайлСуществует(_РезультатПроверки) Тогда
71+
Если НЕ ОбщегоНазначения.ФайлСуществует(_РезультатПроверки) Тогда
7272

7373
_лог.Ошибка(СтрШаблон("Файл с результатом проверки <%1> не существует.", результатПроверки));
7474
ЗавершитьРаботу(1);
@@ -82,61 +82,50 @@
8282
_ИспользоватьОтносительныеПути = Команда.ЗначениеОпции("UseRelativePaths");
8383

8484
ИнициализироватьКаталогиПоПроектам(путьККаталогуИсходников);
85-
85+
8686
КонецПроцедуры
8787

8888
Процедура ИнициализироватьКаталогиПоПроектам(Знач ПутьККаталогуИсходников)
89-
90-
стрКаталоги = СтрЗаменить(ПутьККаталогуИсходников, ";", ",");
91-
каталоги = СтрРазделить(стрКаталоги, ",");
89+
90+
каталоги = ОбщегоНазначения.КаталогиСИсходниками(ПутьККаталогуИсходников, _лог);
9291

9392
Если каталоги.Количество() = 0 Тогда
94-
93+
9594
_лог.Ошибка("Каталог исходников SRC не указан. Продолжение невозможно.");
9695
ЗавершитьРаботу(1);
97-
96+
9897
КонецЕсли;
99-
98+
10099
КаталогИсходниковПоПроекту = Новый Соответствие;
101-
100+
102101
Для Каждого цКаталог Из каталоги Цикл
102+
103+
каталогПроекта = Новый Файл(цКаталог.Путь);
104+
имяПроекта = каталогПроекта.Имя;
105+
106+
КаталогИсходниковПоПроекту.Вставить(имяПроекта, цКаталог.ПолноеИмя);
103107

104-
каталогИсходников = Новый Файл(СокрЛП(цКаталог));
105-
каталогПроекта = Новый Файл(каталогИсходников.Путь);
106-
107-
файлПроекта = Новый Файл(ОбъединитьПути(каталогПроекта.ПолноеИмя, ".project"));
108+
_лог.Отладка("Каталог исходников для проекта %1 = %2", имяПроекта, цКаталог.ПолноеИмя);
108109

109-
Если файлПроекта.Существует()
110-
И каталогИсходников.Существует()
111-
И каталогИсходников.ЭтоКаталог() Тогда
112-
113-
имяПроекта = каталогПроекта.Имя;
114-
115-
КаталогИсходниковПоПроекту.Вставить(имяПроекта, каталогИсходников.ПолноеИмя);
116-
117-
_лог.Отладка("Каталог исходников для проекта %1 = %2", имяПроекта, каталогИсходников.ПолноеИмя);
118-
119-
КонецЕсли;
120-
121110
КонецЦикла;
122111

123112
Если КаталогИсходниковПоПроекту.Количество() = 0 Тогда
124113

125114
_лог.Ошибка("Не удалось заполнить соответствие проектов исходникам для SRC = <%1>", ПутьККаталогуИсходников);
126115
_лог.Ошибка("Возможно используется формат конфигуратора. Будет использован единый каталог: <%1>", каталоги[0]);
127-
116+
128117
КаталогИсходниковПоПроекту.Вставить("", каталоги[0]);
129-
118+
130119
КонецЕсли;
131120

132121
ГенераторПутейПоПроекту = Новый Соответствие;
133-
122+
134123
Для Каждого цПроектИКаталог Из КаталогИсходниковПоПроекту Цикл
135124

136125
ГенераторПутейПоПроекту.Вставить(цПроектИКаталог.Ключ, Новый Путь1СПоМетаданным(цПроектИКаталог.Значение));
137126

138127
КонецЦикла;
139-
128+
140129
КонецПроцедуры
141130

142131
Функция ТаблицаПоФайлуРезультата()
@@ -174,7 +163,7 @@
174163

175164
именаПолей = ИменаПолей(данныеФайла);
176165

177-
Для каждого цПоля Из данныеФайла Цикл
166+
Для Каждого цПоля Из данныеФайла Цикл
178167

179168
Если цПоля.Количество() = 0 Тогда
180169
Продолжить;
@@ -184,9 +173,9 @@
184173

185174
положение = цПоля[именаПолей.Положение];
186175

187-
Если Не _ВыгружатьОшибкиОбъектов
188-
И (Не ЗначениеЗаполнено(положение)
189-
ИЛИ Не СтрНачинаетсяС(ВРег(положение), "СТРОКА")) Тогда
176+
Если НЕ _ВыгружатьОшибкиОбъектов
177+
И (НЕ ЗначениеЗаполнено(положение)
178+
ИЛИ НЕ СтрНачинаетсяС(ВРег(положение), "СТРОКА")) Тогда
190179

191180
// Нас интересуют только ошибки в модулях, а у них есть положение.
192181
Продолжить;
@@ -255,13 +244,13 @@
255244

256245
новСтрока = тз.Добавить();
257246

258-
Для каждого цКлючИЗначение Из именаПолей Цикл
247+
Для Каждого цКлючИЗначение Из именаПолей Цикл
259248

260249
новСтрока[цКлючИЗначение.Ключ] = СтрокаДанных[цКлючИЗначение.Значение];
261250

262251
КонецЦикла;
263252

264-
Если Не ЗначениеЗаполнено(новСтрока.Серьезность) Тогда
253+
Если НЕ ЗначениеЗаполнено(новСтрока.Серьезность) Тогда
265254

266255
новСтрока.Серьезность = "Ошибка";
267256

@@ -273,7 +262,7 @@
273262

274263
Процедура ПереопределитьПути(СтрокаТаблицы)
275264

276-
Если Не _ВыгружатьОшибкиОбъектов Тогда
265+
Если НЕ _ВыгружатьОшибкиОбъектов Тогда
277266

278267
Возврат;
279268

@@ -348,10 +337,10 @@
348337
Для Каждого цСтрока Из таблицаРезультатов Цикл
349338

350339
генераторПутей = ГенераторПутейПоИмениПроекта(цСтрока.Проект);
351-
340+
352341
цСтрока.Путь = генераторПутей.Путь(цСтрока.Метаданные);
353342

354-
Если Не ПроверитьПуть(цСтрока.Путь, цСтрока.Метаданные) Тогда
343+
Если НЕ ПроверитьПуть(цСтрока.Путь, цСтрока.Метаданные) Тогда
355344

356345
цСтрока.Путь = "";
357346

@@ -361,7 +350,7 @@
361350

362351
поискСтрокКУдалению = Новый Структура("Путь", "");
363352

364-
Для каждого цСтрокаКУдалению Из таблицаРезультатов.НайтиСтроки(поискСтрокКУдалению) Цикл
353+
Для Каждого цСтрокаКУдалению Из таблицаРезультатов.НайтиСтроки(поискСтрокКУдалению) Цикл
365354

366355
таблицаРезультатов.Удалить(цСтрокаКУдалению);
367356

@@ -373,7 +362,7 @@
373362

374363
таблицаРезультатов.Колонки.Добавить("НомерСтроки");
375364

376-
Для каждого цСтрока Из таблицаРезультатов Цикл
365+
Для Каждого цСтрока Из таблицаРезультатов Цикл
377366

378367
цСтрока.НомерСтроки = СтрЗаменить(ВРег(цСтрока.Положение), "СТРОКА ", "");
379368

@@ -393,7 +382,7 @@
393382
КонецЕсли;
394383

395384
Возврат генераторПутей;
396-
385+
397386
КонецФункции
398387

399388
#Область ПереопределениеИдентификаторов
@@ -407,7 +396,7 @@
407396
// переопределение в основной таблице
408397
новыеСинонимы = Новый Соответствие();
409398

410-
Для каждого Стр Из таблицаРезультатов Цикл
399+
Для Каждого Стр Из таблицаРезультатов Цикл
411400

412401
Если ПустаяСтрока(Стр.Правило) Тогда
413402
Продолжить;
@@ -420,9 +409,9 @@
420409
Стр.Правило = АвтоСиноним(НовыеСинонимы, Стр.Правило, ДанныеПереопределения);
421410

422411
Иначе
423-
412+
424413
Стр.Правило = ИмяПравила;
425-
414+
426415
КонецЕсли;
427416

428417
КонецЦикла;
@@ -436,7 +425,7 @@
436425
имяФайла = ОбъединитьПути("dict", "ruleID_edt.json");
437426

438427
Файл = Новый Файл(ОбъединитьПути(ТекущийСценарий().Каталог, "..", "..", имяФайла));
439-
Если Не Файл.Существует() Тогда
428+
Если НЕ Файл.Существует() Тогда
440429
_Лог.Предупреждение("Файл %1 для переопределния идентификаторов не найден", имяФайла);
441430
Возврат Неопределено;
442431
КонецЕсли;
@@ -457,7 +446,7 @@
457446
СловарьПравил = Данные["rulename"];
458447

459448
Если ТипЗнч(ИсточникПравил) <> Тип("Соответствие")
460-
Или ТипЗнч(СловарьПравил) <> Тип("Соответствие") Тогда
449+
ИЛИ ТипЗнч(СловарьПравил) <> Тип("Соответствие") Тогда
461450
_Лог.Предупреждение("Неверная структура словаря правил в файле %1", ИмяСловаряИдентификаторовПравил);
462451
Возврат Неопределено;
463452
КонецЕсли;
@@ -474,10 +463,10 @@
474463
// Дополним имена правил префиксами
475464
_соотвКЗаполнению = Новый Соответствие();
476465

477-
Для каждого КЗсловарь Из СловарьПравил Цикл
478-
Для каждого КЗисточник Из ИсточникПравил Цикл
466+
Для Каждого КЗсловарь Из СловарьПравил Цикл
467+
Для Каждого КЗисточник Из ИсточникПравил Цикл
479468

480-
Если Не СтрНачинаетсяС(КЗсловарь.Ключ, КЗисточник.Ключ) Тогда
469+
Если НЕ СтрНачинаетсяС(КЗсловарь.Ключ, КЗисточник.Ключ) Тогда
481470
Продолжить;
482471
КонецЕсли;
483472

@@ -496,7 +485,7 @@
496485
КонецЦикла;
497486
КонецЦикла;
498487

499-
Для каждого КЗ Из _соотвКЗаполнению Цикл
488+
Для Каждого КЗ Из _соотвКЗаполнению Цикл
500489
СловарьПравил[КЗ.Ключ] = КЗ.Значение;
501490
КонецЦикла;
502491

@@ -506,35 +495,35 @@
506495

507496
Функция АвтоСиноним(НовыеСинонимы, Знач Правило, Знач ДанныеПереопределения)
508497

509-
Если Не новыеСинонимы[Правило] = Неопределено Тогда
498+
Если НЕ новыеСинонимы[Правило] = Неопределено Тогда
510499
Возврат новыеСинонимы[Правило];
511500
КонецЕсли;
512501

513502
ИсточникПравил = ДанныеПереопределения["rulespaces"];
514503

515504
новыйСиноним = Правило;
516505

517-
Для каждого КЗ Из ИсточникПравил Цикл
506+
Для Каждого КЗ Из ИсточникПравил Цикл
518507

519-
Если Не СтрНачинаетсяС(Правило, КЗ.Ключ) Тогда
508+
Если НЕ СтрНачинаетсяС(Правило, КЗ.Ключ) Тогда
520509
Продолжить;
521510
КонецЕсли;
522-
511+
523512
// для однотипности для правил без синонима для заданных плагинов заменим имя плагина на синоним
524513
Если ПустаяСтрока(КЗ.Значение) Тогда
525514
новыйСиноним = СтрЗаменить(Правило, КЗ.Ключ + ".", "");
526515
Иначе
527516
новыйСиноним = СтрЗаменить(Правило, КЗ.Ключ, КЗ.Значение);
528517
КонецЕсли;
529-
518+
530519
Прервать;
531520

532521
КонецЦикла;
533522

534523
НовыеСинонимы[Правило] = новыйСиноним;
535524

536525
Возврат новыйСиноним;
537-
526+
538527
КонецФункции
539528

540529
Процедура СообщитьОНовыхИдентификаторах(Знач НовыеСинонимы)
@@ -545,7 +534,7 @@
545534

546535
сообщения = Новый СписокЗначений();
547536

548-
Для каждого КЗ Из НовыеСинонимы Цикл
537+
Для Каждого КЗ Из НовыеСинонимы Цикл
549538
Если ЗначениеЗаполнено(КЗ.Значение) Тогда
550539
сообщения.Добавить(" - " + КЗ.Ключ);
551540
КонецЕсли;
@@ -563,7 +552,7 @@
563552
Функция ПутьКМетаданнымСуществует(Знач Проект, Знач пМетаданные)
564553

565554
генераторПутей = ГенераторПутейПоИмениПроекта(Проект);
566-
555+
567556
Путь = генераторПутей.Путь(пМетаданные);
568557

569558
Возврат ПроверитьПуть(Путь, пМетаданные, Ложь);
@@ -572,7 +561,7 @@
572561

573562
Функция ПроверитьПуть(Знач пПуть, Знач пМетаданные = "", Знач пСообщать = Истина)
574563

575-
Если Не ЗначениеЗаполнено(пПуть) Тогда
564+
Если НЕ ЗначениеЗаполнено(пПуть) Тогда
576565

577566
Если пСообщать Тогда
578567

@@ -582,7 +571,7 @@
582571

583572
Возврат Ложь;
584573

585-
ИначеЕсли Не ОбщегоНазначения.ФайлСуществует(пПуть) Тогда
574+
ИначеЕсли НЕ ОбщегоНазначения.ФайлСуществует(пПуть) Тогда
586575

587576
Если пСообщать Тогда
588577

‎src/Классы/ПрименениеФайлаНастроек.os‎

Lines changed: 3 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -203,21 +203,12 @@
203203

204204
КонецЦикла;
205205

206+
каталоги = ОбщегоНазначения.КаталогиСИсходниками(ПутьККаталогуИсходников, _лог);
206207
КаталогиИсходников = Новый Массив;
207208

208-
стрКаталоги = СтрЗаменить(ПутьККаталогуИсходников, ";", ",");
209-
210-
Для Каждого цКаталог Из СтрРазделить(стрКаталоги, ",") Цикл
211-
212-
каталог = Новый Файл(СокрЛП(цКаталог));
209+
Для Каждого цКаталог Из каталоги Цикл
213210

214-
Если каталог.Существует()
215-
И каталог.ЭтоКаталог() Тогда
216-
217-
КаталогиИсходников.Добавить(каталог.ПолноеИмя);
218-
_лог.Информация("Каталог исходников = " + каталог.ПолноеИмя);
219-
220-
КонецЕсли;
211+
КаталогиИсходников.Добавить(цКаталог.ПолноеИмя);
221212

222213
КонецЦикла;
223214

0 commit comments

Comments
 (0)