Merge pull request #4 from khorevaa/feature/fix-for-linux

Для запуска приложения на linux

Author: otymko

packagedef

@@ -6,7 +6,7 @@
 	.Версия("0.1.0")
 	.Автор("otymko")
 	.АдресАвтора("olegtymko@yandex.ru")
-	.Описание("Версионироване правил обмена 1С с помощью git")
+	.Описание("Версионирование правил обмена 1С с помощью git")
 	.ВерсияСреды("1.0.11")
 	.ВключитьФайл("src")
 	.ВключитьФайл("doc")

readme.md

@@ -2,7 +2,7 @@
 
 ### Описание
 ----
-С помощью этого проекта можно версионировать изменения прави обмена 1С и выгружать на git. Релизованы следующие возможности:
+С помощью этого проекта можно версионировать изменения правил обмена 1С и выгружать на git. Реализованы следующие возможности:
 * Разбирать правила обмена в каталоги и файлы 
 
 тут много-много примеров!

src/Классы/КомандаInstall.os

@@ -16,16 +16,16 @@
 //
 Функция ВыполнитьКоманду(Знач ПараметрыКоманды, Знач Приложение) Экспорт
 
-	КаталогПроекта = Новый Файл(ТекущийКаталог() + "\.git");
+	КаталогПроекта = Новый Файл(ОбъединитьПути(ТекущийКаталог(), ".git"));
 	Если Не КаталогПроекта.Существует() Тогда
 		Сообщить("Этот каталог не является репозиторием GIT");
 		Сообщить("Операция прервана");
-		Возврат Приложение.РезультатыКоманд().НеверныеПараметры
+		Возврат Приложение.РезультатыКоманд().НеверныеПараметры;
 	КонецЕсли;
 	Попытка
-		МассивФайлов = НайтиФайлы(Приложение.ПолучитьКаталогУтилитДляУстановки() + "\", "*");
+		МассивФайлов = НайтиФайлы(Приложение.ПолучитьКаталогУтилитДляУстановки() + ПолучитьРазделительПути(), "*");
 		Для Каждого Файл Из МассивФайлов Цикл
-			КопироватьФайл(Файл.ПолноеИмя, КаталогПроекта.ПолноеИмя + "\hooks\" + Файл.Имя)
+			КопироватьФайл(Файл.ПолноеИмя, ОбъединитьПути(КаталогПроекта.ПолноеИмя, "hooks", Файл.Имя));
 		КонецЦикла;
 		Сообщить("Установка завершена");
 	Исключение

src/Классы/КомандаRemove.os

@@ -18,7 +18,7 @@
 
 	ЕстьОшибки = Ложь;
 
-	КаталогПроекта = Новый Файл(ТекущийКаталог() + "\.git");
+	КаталогПроекта = Новый Файл(ОбъединитьПути(ТекущийКаталог(), ".git"));
 	 Если Не КаталогПроекта.Существует() Тогда
 	 	Сообщить("Этот каталог не является репозиторием GIT");
 	 	Сообщить("Операция прервана");
@@ -29,10 +29,10 @@
 	МассивИменФайлов.Добавить("pre-commit");
 	МассивИменФайлов.Добавить("v8-exchrules1s.os");
 
-	КаталогHooks = КаталогПроекта.ПолноеИмя + "\hooks\";
+	КаталогHooks = ОбъединитьПути(КаталогПроекта.ПолноеИмя, "hooks");
 	Для Каждого ИмяФайла Из МассивИменФайлов Цикл
 		Попытка
-			УдалитьФайлы(КаталогHooks + ИмяФайла);
+			УдалитьФайлы(ОбъединитьПути(КаталогHooks, ИмяФайла));
 		Исключение
 			ЕстьОшибки = Истина;
 			Сообщить("При удалении файла " + ИмяФайла + " произошла ошибка. Причина: " + ОписаниеОшибки());

src/Классы/ОбработкаПравил.os

@@ -81,14 +81,14 @@
 	Файл = Новый Файл(ПутьКПравилам);
 	Каталог = ОбщиеУтилиты.ПолучитьПутьВРабочемКаталоге(Файл.Путь, КаталогИсходников);
 	Файл = Неопределено;
-	МассивКаталогов = РазложитьСтрокуВМассивПодстрок(Каталог, "\"); 
+	МассивКаталогов = РазложитьСтрокуВМассивПодстрок(Каталог, ПолучитьРазделительПути()); 
 	Если МассивКаталогов.Количество() = 0 Тогда
 		Возврат КаталогИсходников;
 	КонецЕсли;
 
 	ТекущийКаталог = КаталогПроекта;
 	Для Каждого ЭлементМассива Из МассивКаталогов Цикл
-		ТекущийКаталог = ТекущийКаталог + "\" + ЭлементМассива;
+		ТекущийКаталог = ОбъединитьПути(ТекущийКаталог, ЭлементМассива);
 		Если Не ОбщиеУтилиты.ЭтотКаталогСуществует(ТекущийКаталог) Тогда
 			СоздатьКаталог(ТекущийКаталог);
 		КонецЕсли;

src/Модули/МенеджерПриложения.os

@@ -272,5 +272,5 @@
 
 // Получить каталог модуля 
 Функция ПолучитьКаталогУтилитДляУстановки() Экспорт
-	Возврат СтартовыйСценарий().Каталог + "\Утилиты";
+	Возврат ОбъединитьПути(СтартовыйСценарий().Каталог, "Утилиты");
 КонецФункции

src/Модули/РазобратьПравилаОбмена.os

@@ -1,4 +1,4 @@
-// #Использовать ".."
+#Использовать fs
 
 // Перем ОбщийФайлПравил;
 Перем КаталогИсходныхПравил;
@@ -129,7 +129,8 @@
 Процедура ВыполнитьРазбор(Знач ОсновнойКаталогПравил, Знач ПутьКФайлуПравилОбмена) Экспорт
 
 	ФайлПравил = Новый Файл(ПутьКФайлуПравилОбмена);
-	КаталогИсходныхПравил = ОсновнойКаталогПравил + "\" + ФайлПравил.Имя;
+	КаталогИсходныхПравил = ОбъединитьПути(ОсновнойКаталогПравил, ФайлПравил.Имя);
+	
 	ОбщиеУтилиты.СоздатьКаталогРасширенный(КаталогИсходныхПравил);
 	//СоздатьКаталогиРекурсивно(ОсновнойКаталогПравил, ПутьКФайлуПравилОбмена);
 
@@ -195,7 +196,7 @@
 				Или ИмяЭлементаСтроки = "Алгоритмы"
 				Или ИмяЭлементаСтроки = "Запросы" Тогда
 
-				ИмяКаталогаСтроки = ТекущийКаталог + "\" + ИмяЭлементаСтроки; 
+				ИмяКаталогаСтроки = ОбъединитьПути(ТекущийКаталог, ИмяЭлементаСтроки); 
 				СоздатьКаталог(ИмяКаталогаСтроки);	
 
 				ТекущаяСтрока.Каталог = ИмяКаталогаСтроки;
@@ -216,7 +217,7 @@
 
 				МассивРеквизитовТекущегоУзла = Новый Массив;	
 				Идентификатор = ?(Не ПустаяСтрока(ТекущаяСтрока.Идентификатор), ТекущаяСтрока.Идентификатор, ТекущаяСтрока.Имя);
-				ИмяКаталогаСтроки = ТекущийКаталог + "\" + Идентификатор;
+				ИмяКаталогаСтроки = ОбъединитьПути(ТекущийКаталог, Идентификатор);
 				СоздатьКаталог(ИмяКаталогаСтроки);	
 				ТекущаяСтрока.Каталог = ИмяКаталогаСтроки;
 
@@ -230,12 +231,13 @@
 				Или ИмяЭлементаСтроки = "Запрос" 
 				Или ИмяЭлементаСтроки = "Алгоритм" 
 				Или ИмяЭлементаСтроки = "Значение" 
-				Или ИмяЭлементаСтроки = "Свойство" Или ИмяЭлементаСтроки = "Параметр" Или ИмяЭлементаСтроки = "Обработка" Тогда
+				Или ИмяЭлементаСтроки = "Свойство" 
+				Или ИмяЭлементаСтроки = "Параметр" Или ИмяЭлементаСтроки = "Обработка" Тогда
 
 				МассивРеквизитовТекущегоУзла = Новый Массив;
 
 				Идентификатор = ?(Не ПустаяСтрока(ТекущаяСтрока.Идентификатор), ТекущаяСтрока.Идентификатор, ТекущаяСтрока.Имя);
-				ИмяКаталогаСтроки = ТекущийКаталог + "\" + Идентификатор;
+				ИмяКаталогаСтроки = ОбъединитьПути(ТекущийКаталог, Идентификатор);
 				СоздатьКаталог(ИмяКаталогаСтроки);
 
 				ТекущаяСтрока.Каталог = ИмяКаталогаСтроки;		
@@ -275,7 +277,7 @@
 КонецПроцедуры
 
 Процедура ЗаписатьСобытиеПравилВФайл(ТекущаяСтрока, ИмяЭлементаСтроки, ИмяКаталогаСобытий, Расширение = "bsl")
-	ОбщиеУтилиты.ЗаписатьЗначениеВТекстовыйДокумент(ИмяКаталогаСобытий + "\" + ИмяЭлементаСтроки + ?(Расширение = Неопределено, "", "." + Расширение), ТекущаяСтрока.Значение);	
+	ОбщиеУтилиты.ЗаписатьЗначениеВТекстовыйДокумент(ОбъединитьПути(ИмяКаталогаСобытий, ИмяЭлементаСтроки + ?(Расширение = Неопределено, "", "." + Расширение)), ТекущаяСтрока.Значение);	
 КонецПроцедуры
 
 Процедура ЗаписатьРеквизитыВФайл(МассивРеквизитовТекущегоУзла, ТекущаяСтрока, ИмяЭлементаСтроки, ИмяКаталогаСтроки)
@@ -285,7 +287,7 @@
 	КонецЕсли;
 
 	КаталогРодителя = ТекущаяСтрока.Каталог;	
-	ИмяФайлаАтрибутов = КаталогРодителя + "\" + ТекущаяСтрока.Имя + ".xml";
+	ИмяФайлаАтрибутов = ОбъединитьПути(КаталогРодителя, ТекущаяСтрока.Имя + ".xml");
 
 	ЗаписьXML = Новый ЗаписьXML;
 	ЗаписьXML.УстановитьСтроку();	
@@ -444,7 +446,7 @@
 
 Функция СоздатьКаталогСобытий(ТекущийКаталог)
 
-	ИмяКаталога = ТекущийКаталог + "\" + НаименованиеКаталогаСобытий;
+	ИмяКаталога = ОбъединитьПути(ТекущийКаталог, НаименованиеКаталогаСобытий);
 	Файл = Новый Файл(ИмяКаталога);
 	Если Не Файл.Существует() Тогда
 		СоздатьКаталог(ИмяКаталога);	

src/Утилиты/v8-exchrules1s.os

@@ -7,7 +7,7 @@
 
 	Сообщить("Start");
 
-	КаталогПроекта = КаталогИзПараметров + "\src";
+	КаталогПроекта = ОбъединитьПути(КаталогИзПараметров, "src");
 
 	МенеджерПравил = Новый ОбработкаПравил();
 	МенеджерПравил.ИнициализироватьКаталогИсходников(КаталогПроекта);
@@ -18,6 +18,6 @@
 
 КонецПроцедуры
 
-
-КаталогИзПараметров = СтрЗаменить(ТекущийСценарий().Каталог, "\.git\hooks", "");
+Разделитель = ПолучитьРазделительПути();
+КаталогИзПараметров = СтрЗаменить(ТекущийСценарий().Каталог, Разделитель + ".git" + Разделитель + "hooks", "");
 Инит();