Merge branch 'develop' of https://github.com/oscript-library/packman into develop

Author: EvilBeaver

src/Классы/КомандаСобратьИзИсходныхфайлов.os

@@ -9,8 +9,8 @@
 
 ОписаниеКоманды = Парсер.ОписаниеКоманды(ИмяКоманды, "Сборка cf из исходников");
 Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "src", "Каталог исходников");
- Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-v8version", "Версия платформы для загрузки исходников");
- Парсер.ДобавитьКоманду(ОписаниеКоманды);
+Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-v8version", "Версия платформы для загрузки исходников");
+Парсер.ДобавитьКоманду(ОписаниеКоманды);
 
 КонецПроцедуры
 
@@ -22,17 +22,17 @@
 Функция ВыполнитьКоманду(Знач ПараметрыКоманды) Экспорт
 
 Каталог = ПараметрыКоманды["src"];
- Версия = ПараметрыКоманды["-v8version"];
+Версия = ПараметрыКоманды["-v8version"];
 
- СобратьИзИсходниковТекущуюКонфигурацию(Каталог, Версия);
+СобратьИзИсходниковТекущуюКонфигурацию(Каталог, Версия);
 
 КонецФункции
 
 Процедура СобратьИзИсходниковТекущуюКонфигурацию(Знач ВходнойКаталог, Знач ВерсияПлатформы = "") 
 
 КаталогВыгрузки = Новый Файл(ВходнойКаталог); 
-Если КаталогВыгрузки.Существует() = Ложь Тогда
-ВызватьИсключение СтроковыеФункции.ПодставитьПараметрыВСтроку("Каталог исходников %1 не найден", КаталогВыгрузки.ПолноеИмя);
+Если КаталогВыгрузки.Существует() = Ложь ИЛИ КаталогВыгрузки.ЭтоФайл() Тогда
+ВызватьИсключение СтрШаблон("Каталог исходников %1 не найден или является файлом", КаталогВыгрузки.ПолноеИмя);
 КонецЕсли;
 
 Конфигуратор = ОкружениеСборки.ПолучитьКонфигуратор();
@@ -43,13 +43,13 @@
 
 ПараметрыЗапуска = Конфигуратор.ПолучитьПараметрыЗапуска();
 ПараметрыЗапуска.Добавить("/Visible");
-ПараметрыЗапуска.Добавить("/LoadConfigFromFiles """ + ВходнойКаталог + """");
- Конфигуратор.ВыполнитьКоманду(ПараметрыЗапуска);
- Лог.Информация("Загрузка исходников выполнена." + Конфигуратор.ВыводКоманды());
+ПараметрыЗапуска.Добавить(СтрШаблон("/LoadConfigFromFiles ""%1""", ВходнойКаталог));
+Конфигуратор.ВыполнитьКоманду(ПараметрыЗапуска);
+Лог.Информация("Загрузка исходников выполнена. %1", Конфигуратор.ВыводКоманды());
 Конфигуратор.ОбновитьКонфигурациюБазыДанных();
 Лог.Информация(Конфигуратор.ВыводКоманды() + "
 |Конфигурация базы данных обновлена");
 
 КонецПроцедуры
 
-Лог = Логирование.ПолучитьЛог(ПараметрыСистемы.ИмяЛогаСистемы());
+Лог = Логирование.ПолучитьЛог(ПараметрыСистемы.ИмяЛогаСистемы());

src/Классы/КомандаСоздатьФайлыПоставки.os

@@ -5,11 +5,13 @@
 // Прикладной интерфейс
 
 Процедура ЗарегистрироватьКоманду(Знач ИмяКоманды, Знач Парсер) Экспорт
+
 ОписаниеКоманды = Парсер.ОписаниеКоманды(ИмяКоманды, "Создание файлов поставки (cf и cfu)");
 Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-cfu-basedir", "Каталог предыдущих версий для создания CFU (опционально)");
- Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-update-from", "Перечень версий, через запятую, включаемых в обновление (опционально)");
+Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-update-from", "Перечень версий, через запятую, включаемых в обновление (опционально)");
 
 Парсер.ДобавитьКоманду(ОписаниеКоманды);
+
 КонецПроцедуры
 
 // Выполняет логику команды
@@ -18,86 +20,97 @@
 // ПараметрыКоманды - Соответствие ключей командной строки и их значений
 //
 Функция ВыполнитьКоманду(Знач ПараметрыКоманды) Экспорт
- 
-СоздатьФайлыКонфигурацииПоставщика(ОкружениеСборки.ПолучитьКонфигуратор(), ПараметрыКоманды["-cfu-basedir"], ПараметрыКоманды["-update-from"]);
+
+РазобранныеПараметры = РазобратьПараметры(ПараметрыКоманды);
+СоздатьФайлыКонфигурацииПоставщика(ОкружениеСборки.ПолучитьКонфигуратор(), РазобранныеПараметры.КаталогВерсий, РазобранныеПараметры.ПредыдущиеВерсии);
 
 КонецФункции
 
 Функция СоздатьФайлыКонфигурацииПоставщика(Знач УправлениеКонфигуратором, Знач КаталогВерсий, Знач ПредыдущиеВерсии) Экспорт
- ИмяФайлаПоставки = УправлениеКонфигуратором.КаталогСборки() + "\1cv8.cf";
+
+ИмяФайлаПоставки = ОбъединитьПути(УправлениеКонфигуратором.КаталогСборки(), "1cv8.cf");
 Параметры = УправлениеКонфигуратором.ПолучитьПараметрыЗапуска();
 Параметры.Добавить("/CreateDistributionFiles");
-Параметры.Добавить("-cffile """+ИмяФайлаПоставки+"""");
+Параметры.Добавить(СтрШаблон("-cffile ""%1""", ИмяФайлаПоставки));
 
 ФайлыПредыдущихВерсий = НайтиФайлыПредыдущихВерсий(КаталогВерсий, ПредыдущиеВерсии);
 Если ФайлыПредыдущихВерсий <> Неопределено Тогда
-ИмяФайлаОбновления = УправлениеКонфигуратором.КаталогСборки() + "\1cv8.cfu";
-Параметры.Добавить("-cfufile """+ИмяФайлаОбновления+"""");
+ИмяФайлаОбновления = ОбъединитьПути(УправлениеКонфигуратором.КаталогСборки(), "1cv8.cfu");
+Параметры.Добавить(СтрШаблон("-cfufile ""%1""", ИмяФайлаОбновления));
 
 Для Каждого ФайлПредыдущейВерсии Из ФайлыПредыдущихВерсий Цикл
-Лог.Информация("Добавляю обновление из файла: " + ФайлПредыдущейВерсии.ПолноеИмя);
-Параметры.Добавить("-f """ + ФайлПредыдущейВерсии.ПолноеИмя + """");
+
+Лог.Информация("Добавляю обновление из файла: %1", ФайлПредыдущейВерсии.ПолноеИмя);
+Параметры.Добавить(СтрШаблон("-f ""%1""", ФайлПредыдущейВерсии.ПолноеИмя));
+
 КонецЦикла;
 
 КонецЕсли;
 
 УправлениеКонфигуратором.ВыполнитьКоманду(Параметры);
 Сообщить(УправлениеКонфигуратором.ВыводКоманды());
- 
- Возврат Новый Структура("ИмяФайлаПоставки,ИмяФайлаОбновления", ИмяФайлаПоставки, ИмяФайлаОбновления);
- 
+
+Возврат Новый Структура("ИмяФайлаПоставки, ИмяФайлаОбновления", ИмяФайлаПоставки, ИмяФайлаОбновления);
+
 КонецФункции // СоздатьФайлыКонфигурацииПоставщика()
 
 Функция НайтиФайлыПредыдущихВерсий(Знач КаталогПредыдущихВерсий, Знач ВерсииОбновления)
 
 Если КаталогПредыдущихВерсий = Неопределено Тогда
+
 Возврат Неопределено;
+
 КонецЕсли;
 
 Каталог = Новый Файл(КаталогПредыдущихВерсий);
-Если Не Каталог.Существует() Тогда
+Если Не Каталог.Существует() ИЛИ Каталог.ЭтоФайл() Тогда
+
 Возврат Неопределено;
+
 КонецЕсли;
 
 ФайлыКонфигураций = Новый Массив;
 
 Для Каждого Версия Из ВерсииОбновления Цикл
+
 КаталогВерсии = Новый Файл(ОбъединитьПути(КаталогПредыдущихВерсий, Версия));
 Если Не КаталогВерсии.Существует() Тогда
+
 Текст = СтрШаблон("Каталог версии %1 не найден", КаталогВерсии.ПолноеИмя);
 Лог.Ошибка(Текст);
 ВызватьИсключение Текст;
+
 КонецЕсли;
 
-ФайлыКонфигурацийВерсии = НайтиФайлы(КаталогВерсии, "*.cf", Истина);
+ФайлыКонфигурацийВерсии = НайтиФайлы(КаталогВерсии.ПолноеИмя, "*.cf", Истина);
 Для Каждого ФайлВерсии Из ФайлыКонфигурацийВерсии Цикл
+
 ФайлыКонфигураций.Добавить(ФайлВерсии);
+
 КонецЦикла;
+
 КонецЦикла;
 
 Если ФайлыКонфигураций.Количество() Тогда
+
 Возврат ФайлыКонфигураций;
-Иначе
-Возврат Неопределено;
+
 КонецЕсли;
+
+Возврат Неопределено;
+
 КонецФункции
 
 Функция РазобратьПараметры(Знач ПараметрыКоманды) Экспорт
- 
- Результат = Новый Структура;
- Результат.Вставить("КаталогВерсий", ПараметрыКоманды["-cfu-basedir"]);
- 
- МассивВерсий = СтроковыеФункции.РазложитьСтрокуВМассивПодстрок(
- Строка(ПараметрыКоманды["-update-from"]),
- ",",
- Ложь,
- Истина);
- 
- Результат.Вставить("ПредыдущиеВерсии", МассивВерсий);
- 
- 
- Возврат Результат;
- 
+
+МассивВерсий = СтрРазделить(Строка(ПараметрыКоманды["-update-from"]), ",", Истина);
+
+Результат = Новый Структура;
+Результат.Вставить("КаталогВерсий", ПараметрыКоманды["-cfu-basedir"]);
+Результат.Вставить("ПредыдущиеВерсии", МассивВерсий);
+
+Возврат Результат;
+
 КонецФункции
 
 //////////////////////////////////////////////////////////////////////////