feat: Поддрержка опции --create-dirs (#45)

src/core/Классы/ГенераторПрограммногоКода1С.os

@@ -92,6 +92,7 @@
 	|o
 	|output
 	|output-dir
+	|create-dirs
 	|O
 	|remote-name
 	|remote-name-all
@@ -483,6 +484,8 @@
 
 Процедура ДобавитьВызовHTTPМетода(ОписаниеРесурса)
 
+	ДобавитьСозданиеКаталога(ОписаниеРесурса);
+
 	ПараметрыФункции = Новый Массив;
 	ПараметрыФункции.Добавить(Конструктор.ПараметрВСтроку(ОписаниеРесурса.Метод));
 	ПараметрыФункции.Добавить(ИмяПараметраHTTPЗапрос);
@@ -499,6 +502,29 @@
 
 КонецПроцедуры
 
+Процедура ДобавитьСозданиеКаталога(ОписаниеРесурса)
+
+	Если Не ЗначениеЗаполнено(ОписаниеРесурса.ИмяВыходногоФайла) 
+		Или Не ОписаниеЗапроса.СоздатьКаталогСохраненияФайлов Тогда
+		Возврат;
+	КонецЕсли;
+
+	Каталог = ОбщегоНазначения.КаталогФайла(ОписаниеРесурса.ИмяВыходногоФайла);
+
+	Если Не ПустаяСтрока(Каталог) Тогда
+		ШаблонСозданияКаталога = "// Создание каталога по необходимости
+		|Каталог = Новый Файл(""%1"");
+		|Если Не Каталог.Существует() Тогда
+		|	СоздатьКаталог(Каталог.ПолноеИмя);
+		|КонецЕсли;";
+
+		Конструктор
+			.ДобавитьПустуюСтроку()
+			.ДобавитьСтроку(ШаблонСозданияКаталога, Каталог);
+	КонецЕсли;
+
+КонецПроцедуры
+
 Процедура ДобавитьУстановкуТелаЗапроса(ОписаниеРесурса)
 
 	ДобавитьУстановкуТелаЗапросаТекстовымиДанными();

src/core/Классы/КонвертерКомандыCURL.os

@@ -865,11 +865,15 @@
 КонецПроцедуры
 
 Процедура ПрочитатьКаталогСохраненияФайлов()
+
 	КаталогСохраненияФайлов = "";	
 	Каталог = ПоследнееЗначениеОпции("output-dir");
 	Если Не Каталог = Неопределено Тогда
 		КаталогСохраненияФайлов = Каталог;
 	КонецЕсли;
+
+	ОписаниеЗапроса.СоздатьКаталогСохраненияФайлов = УстановленФлагОпции("create-dirs");
+
 КонецПроцедуры
 
 Процедура ПрочитатьАдресПрокси()
@@ -1068,6 +1072,10 @@
 		"output-dir", 
 		"Каталог сохранения файлов").ТМассивСтрок();
 
+	ДобавитьПоддерживаемуюОпцию(
+		"create-dirs",
+		"Создает каталог сохранения файла при необходимости").ТМассивБулево();
+
 	ДобавитьПоддерживаемуюОпцию(
 		"O remote-name", 
 		"Извлечение имени выходного файла из URL").ТМассивБулево();
@@ -1184,7 +1192,6 @@
 	ДобавитьНеподдерживаемуюОпцию("C continue-at").ТМассивСтрок();
 	ДобавитьНеподдерживаемуюОпцию("b cookie").ТМассивСтрок();
 	ДобавитьНеподдерживаемуюОпцию("c cookie-jar").ТМассивСтрок();
-	ДобавитьНеподдерживаемуюОпцию("create-dirs").ТМассивБулево();
 	ДобавитьНеподдерживаемуюОпцию("create-file-mode").ТМассивСтрок();
 	ДобавитьНеподдерживаемуюОпцию("crlf").ТМассивБулево();
 	ДобавитьНеподдерживаемуюОпцию("crlfile").ТМассивСтрок();

src/internal/Классы/ОписаниеЗапроса.os

@@ -30,6 +30,7 @@
 Перем ОтправлятьКакMultipartFormData Экспорт; // Булево
 Перем AWS4 Экспорт; // Структура
 Перем ТокенBearer Экспорт; // Строка
+Перем СоздатьКаталогСохраненияФайлов Экспорт; // Булево
 
 // Максимальное время ожидания на выполнение запроса
 Перем Таймаут Экспорт; // Число
@@ -110,6 +111,7 @@
 	ОтправлятьКакMultipartFormData = Ложь;
 	AWS4 = НовыйAWS4();
 	ТокенBearer = "";
+	СоздатьКаталогСохраненияФайлов = Ложь;
 КонецПроцедуры
 
 Функция ЕстьДанныеПоНазначению(Назначение) Экспорт

src/internal/Модули/ОбщегоНазначения.os

@@ -7,17 +7,36 @@
 КонецПроцедуры
 
 Функция ДобавитьКонечныйРазделительПути(Знач ПутьКаталога) Экспорт
+
 	Если ПустаяСтрока(ПутьКаталога) Тогда
 		Возврат ПутьКаталога;
 	КонецЕсли;
 
-	ДобавляемыйСимвол = ПолучитьРазделительПути();
+	ПоследнийСимвол = Прав(ПутьКаталога, 1);
 
-	Если СтрЗаканчиваетсяНа(ПутьКаталога, ДобавляемыйСимвол) Тогда
+	Если ПоследнийСимвол = "/" Или ПоследнийСимвол = "\" Тогда
 		Возврат ПутьКаталога;
-	Иначе 
-		Возврат ПутьКаталога + ДобавляемыйСимвол;
 	КонецЕсли;
+
+	Разделитель = ?(СтрНайти(ПутьКаталога, "\"), "\", "/");
+	
+	Возврат ПутьКаталога + Разделитель;
+
+КонецФункции
+
+Функция КаталогФайла(ПутьКФайлу) Экспорт
+
+	ИндексРазделителя1 = СтрНайти(ПутьКФайлу, "\", НаправлениеПоиска.СКонца);
+	ИндексРазделителя2 = СтрНайти(ПутьКФайлу, "/", НаправлениеПоиска.СКонца);
+
+	ИндексРазделителя = Макс(ИндексРазделителя1, ИндексРазделителя2);
+	
+	Если ИндексРазделителя Тогда
+		Возврат Сред(ПутьКФайлу, 1, ИндексРазделителя - 1);
+	КонецЕсли;
+
+	Возврат "";
+
 КонецФункции
 
 Функция ДополнитьИменемФайлаПутьURL(ПолноеИмяФайла, ПутьURL) Экспорт

tests/ГенераторПрограммногоКода1С_test.os

@@ -917,16 +917,12 @@
 &Тест
 Процедура ТестДолжен_ПроверитьКаталогСохраненияФайловИПереданноеИмяФайла() Экспорт
 
-	КаталогСохраненияОС = СтрЗаменить("/some/path", "/", ПолучитьРазделительПути());
+	КонсольнаяКоманда = "curl http://example.com/about.html -o file.html --output-dir '/some/path/'";
-
-	КонсольнаяКоманда = "curl http://example.com/about.html -o file.html --output-dir '/some/path'";
-	КонсольнаяКоманда = СтрЗаменить(КонсольнаяКоманда, "/some/path", КаталогСохраненияОС);
 
 	ПрограммныйКод = "Соединение = Новый HTTPСоединение(""example.com"", 80);
 	|HTTPЗапрос = Новый HTTPЗапрос(""/about.html"");
 	|
 	|HTTPОтвет = Соединение.ВызватьHTTPМетод(""GET"", HTTPЗапрос, ""/some/path/file.html"");";
-	ПрограммныйКод = СтрЗаменить(ПрограммныйКод, "/some/path/", КаталогСохраненияОС + ПолучитьРазделительПути());
 
 	ПроверитьКонвертациюБезОшибок(КонсольнаяКоманда, ПрограммныйКод);
 	
@@ -935,16 +931,80 @@
 &Тест
 Процедура ТестДолжен_ПроверитьКаталогСохраненияФайловИИзвлеченноеИмяФайлаИзURL() Экспорт
 
-	КаталогСохраненияОС = СтрЗаменить("/some/path", "/", ПолучитьРазделительПути());
+	КонсольнаяКоманда = "curl http://example.com/about.html -O --output-dir '/some/path/'";
-
-	КонсольнаяКоманда = "curl http://example.com/about.html -O --output-dir '/some/path'";
-	КонсольнаяКоманда = СтрЗаменить(КонсольнаяКоманда, "/some/path", КаталогСохраненияОС);
 
 	ПрограммныйКод = "Соединение = Новый HTTPСоединение(""example.com"", 80);
 	|HTTPЗапрос = Новый HTTPЗапрос(""/about.html"");
 	|
 	|HTTPОтвет = Соединение.ВызватьHTTPМетод(""GET"", HTTPЗапрос, ""/some/path/about.html"");";
-	ПрограммныйКод = СтрЗаменить(ПрограммныйКод, "/some/path/", КаталогСохраненияОС + ПолучитьРазделительПути());
+
+	ПроверитьКонвертациюБезОшибок(КонсольнаяКоманда, ПрограммныйКод);
+	
+КонецПроцедуры
+
+&Тест
+Процедура ТестДолжен_ПроверитьСозданиеКаталогСохраненияФайлов() Экспорт
+
+	КонсольнаяКоманда = "curl http://example.com/about.html -o file.html --output-dir '/some/path/' --create-dirs
+	|curl http://example.com/about.html -O --output-dir '/some/path/' --create-dirs
+	|curl http://example.com/about.html -o '/some/path/file.html' --create-dirs
+	|curl http://example.com/about.html -o '/some/path\file.html' --create-dirs";
+
+	ПрограммныйКод = "//////////////////////////////////////////////
+	|// Команда #1.
+	|
+	|Соединение = Новый HTTPСоединение(""example.com"", 80);
+	|HTTPЗапрос = Новый HTTPЗапрос(""/about.html"");
+	|
+	|// Создание каталога по необходимости
+	|Каталог = Новый Файл(""/some/path"");
+	|Если Не Каталог.Существует() Тогда
+	|	СоздатьКаталог(Каталог.ПолноеИмя);
+	|КонецЕсли;
+	|
+	|HTTPОтвет = Соединение.ВызватьHTTPМетод(""GET"", HTTPЗапрос, ""/some/path/file.html"");
+	|
+	|//////////////////////////////////////////////
+	|// Команда #2.
+	|
+	|Соединение = Новый HTTPСоединение(""example.com"", 80);
+	|HTTPЗапрос = Новый HTTPЗапрос(""/about.html"");
+	|
+	|// Создание каталога по необходимости
+	|Каталог = Новый Файл(""/some/path"");
+	|Если Не Каталог.Существует() Тогда
+	|	СоздатьКаталог(Каталог.ПолноеИмя);
+	|КонецЕсли;
+	|
+	|HTTPОтвет = Соединение.ВызватьHTTPМетод(""GET"", HTTPЗапрос, ""/some/path/about.html"");
+	|
+	|//////////////////////////////////////////////
+	|// Команда #3.
+	|
+	|Соединение = Новый HTTPСоединение(""example.com"", 80);
+	|HTTPЗапрос = Новый HTTPЗапрос(""/about.html"");
+	|
+	|// Создание каталога по необходимости
+	|Каталог = Новый Файл(""/some/path"");
+	|Если Не Каталог.Существует() Тогда
+	|	СоздатьКаталог(Каталог.ПолноеИмя);
+	|КонецЕсли;
+	|
+	|HTTPОтвет = Соединение.ВызватьHTTPМетод(""GET"", HTTPЗапрос, ""/some/path/file.html"");
+	|
+	|//////////////////////////////////////////////
+	|// Команда #4.
+	|
+	|Соединение = Новый HTTPСоединение(""example.com"", 80);
+	|HTTPЗапрос = Новый HTTPЗапрос(""/about.html"");
+	|
+	|// Создание каталога по необходимости
+	|Каталог = Новый Файл(""/some/path"");
+	|Если Не Каталог.Существует() Тогда
+	|	СоздатьКаталог(Каталог.ПолноеИмя);
+	|КонецЕсли;
+	|
+	|HTTPОтвет = Соединение.ВызватьHTTPМетод(""GET"", HTTPЗапрос, ""/some/path\file.html"");";
 	
 	ПроверитьКонвертациюБезОшибок(КонсольнаяКоманда, ПрограммныйКод);