|
| 1 | + |
| 2 | +#Использовать json |
| 3 | + |
| 4 | +Перем мНастройки; |
| 5 | + |
| 6 | +Функция ПрочитатьФайл(Знач ИмяФайла) |
| 7 | + ФайлСуществующий = Новый Файл(ИмяФайла); |
| 8 | + Если Не ФайлСуществующий.Существует() Тогда |
| 9 | + ВызватьИсключение "Неверная структура файла настроек / файл пустой";; |
| 10 | + КонецЕсли; |
| 11 | + |
| 12 | + Чтение = Новый ЧтениеТекста(ИмяФайла, КодировкаТекста.UTF8); |
| 13 | + Рез = Чтение.Прочитать(); |
| 14 | + Чтение.Закрыть(); |
| 15 | + Возврат Рез; |
| 16 | +КонецФункции // ПрочитатьФайл() |
| 17 | + |
| 18 | +Функция ПрочитатьНастройкиИзФайла(Знач ФайлНастроек) Экспорт |
| 19 | + |
| 20 | + мНастройки = Новый Структура; |
| 21 | + |
| 22 | + JsonСтрока = ПрочитатьФайл(ФайлНастроек); |
| 23 | + JsonСтрока = ВырезатьКомментарииИзТекстаJSON(JsonСтрока); |
| 24 | + |
| 25 | + ПарсерJSON = Новый ПарсерJSON(); |
| 26 | + ПараметрыJSON = ПарсерJSON.ПрочитатьJSON(JsonСтрока); |
| 27 | + |
| 28 | + ВсеНастройки = ПараметрыJSON["gitsync-options"]; |
| 29 | + ГлобальныеНастройки = ВсеНастройки["global"]; |
| 30 | + |
| 31 | + Для Каждого КлючИЗначение Из ГлобальныеНастройки Цикл |
| 32 | + |
| 33 | + Если КлючИЗначение.Ключ = "email-domain" Тогда |
| 34 | + Ключ = "ДоменПочтыДляGit"; |
| 35 | + ИначеЕсли КлючИЗначение.Ключ = "v8-version" Тогда |
| 36 | + Ключ = "ПутьКПлатформе83"; |
| 37 | + ИначеЕсли КлючИЗначение.Ключ = "git-executable" Тогда |
| 38 | + Ключ = "ПутьGit"; |
| 39 | + Иначе |
| 40 | + ВызватьИсключение НекорректнаяСтруктураНастроек(); |
| 41 | + КонецЕсли; |
| 42 | + |
| 43 | + мНастройки.Вставить(Ключ, КлючИЗначение.Значение); |
| 44 | + |
| 45 | + КонецЦикла; |
| 46 | + |
| 47 | + мНастройки.Вставить("Репозитарии", Новый Массив); |
| 48 | + |
| 49 | + МассивРепозиториев = ВсеНастройки["repositories"]; |
| 50 | + |
| 51 | + Для Каждого Репозиторий Из МассивРепозиториев Цикл |
| 52 | + |
| 53 | + ПрочитатьНастройкиРепозитория(Репозиторий); |
| 54 | + |
| 55 | + КонецЦикла; |
| 56 | + |
| 57 | + |
| 58 | + Возврат мНастройки; |
| 59 | + |
| 60 | +КонецФункции |
| 61 | + |
| 62 | + |
| 63 | +Функция ВырезатьКомментарииИзТекстаJSON(Знач JsonСтрока) |
| 64 | + |
| 65 | + // вырезаем обычные комменты типа "// комментарий" |
| 66 | + Регулярка = Новый РегулярноеВыражение("(^\/\/.*$)"); |
| 67 | + Рез = Регулярка.Заменить(JsonСтрока, "$0" ); |
| 68 | + |
| 69 | + // вырезаем комменты после строки, например, "строка //комментарий" |
| 70 | + Регулярка = Новый РегулярноеВыражение("(^.*)(\/\/.*$)"); |
| 71 | + Рез = Регулярка.Заменить(Рез, "$1" ); |
| 72 | + |
| 73 | + Возврат Рез; |
| 74 | + |
| 75 | +КонецФункции // ВырезатьКомментарииИзТекстаJSON() |
| 76 | + |
| 77 | +Процедура ПрочитатьНастройкиРепозитория(ЭлементМассива) |
| 78 | + |
| 79 | + Репо = Новый Структура; |
| 80 | + |
| 81 | + мНастройки.Репозитарии.Добавить(Репо); |
| 82 | + |
| 83 | + Для Каждого КлючИЗначение Из ЭлементМассива Цикл |
| 84 | + |
| 85 | + Если КлючИЗначение.Ключ = "name" Тогда |
| 86 | + Ключ = "Имя"; |
| 87 | + ИначеЕсли КлючИЗначение.Ключ = "git-local-path" Тогда |
| 88 | + Ключ = "КаталогВыгрузки"; |
| 89 | + ИначеЕсли КлючИЗначение.Ключ = "git-remote" Тогда |
| 90 | + Ключ = "GitURL"; |
| 91 | + ИначеЕсли КлючИЗначение.Ключ = "v8-storage-dir" Тогда |
| 92 | + Ключ = "КаталогХранилища1С"; |
| 93 | + ИначеЕсли КлючИЗначение.Ключ = "email-domain" Тогда |
| 94 | + Ключ = "ДоменПочтыДляGit"; |
| 95 | + ИначеЕсли КлючИЗначение.Ключ = "v8-version" Тогда |
| 96 | + Ключ = "ПутьКПлатформе83"; |
| 97 | + ИначеЕсли КлючИЗначение.Ключ = "git-executable" Тогда |
| 98 | + Ключ = "ПутьGit"; |
| 99 | + ИначеЕсли КлючИЗначение.Ключ = "push-every-n-commits" Тогда |
| 100 | + Ключ = "КоличествоКоммитовДоPush"; |
| 101 | + ИначеЕсли КлючИЗначение.Ключ = "check-authors" Тогда |
| 102 | + Ключ = "ПроверитьАвторовХранилища"; |
| 103 | + ИначеЕсли КлючИЗначение.Ключ = "stop-if-empty-comment" Тогда |
| 104 | + Ключ = "ПрерватьВыполнениеБезКомментарияКВерсии"; |
| 105 | + ИначеЕсли КлючИЗначение.Ключ = "auto-set-tags" Тогда |
| 106 | + Ключ = "АвтоматическаяУстановкаТэговПоВерсиям"; |
| 107 | + ИначеЕсли КлючИЗначение.Ключ = "process-fatform-modules" Тогда |
| 108 | + Ключ = "ПереименовыватьФайлМодуляОбычнойФормы"; |
| 109 | + Иначе |
| 110 | + ВызватьИсключение НекорректнаяСтруктураНастроек(); |
| 111 | + КонецЕсли; |
| 112 | + |
| 113 | + Если ПустаяСтрока(КлючИЗначение.Значение) и мНастройки.Свойство(Ключ) Тогда |
| 114 | + КлючИЗначение.Значение = мНастройки[Ключ]; |
| 115 | + КонецЕсли; |
| 116 | + |
| 117 | + Репо.Вставить(Ключ, КлючИЗначение.Значение); |
| 118 | + |
| 119 | + КонецЦикла; |
| 120 | + |
| 121 | + Для Каждого ГлобальнаяНастройка Из мНастройки Цикл |
| 122 | + |
| 123 | + Ключ = ГлобальнаяНастройка.Ключ; |
| 124 | + |
| 125 | + Если ГлобальнаяНастройка.Ключ = "Репозитарии" Тогда |
| 126 | + Продолжить |
| 127 | + КонецЕсли; |
| 128 | + |
| 129 | + ЕстьСвояНастройка = Репо.Свойство(Ключ); |
| 130 | + |
| 131 | + Если НЕ ЕстьСвояНастройка |
| 132 | + ИЛИ ЕстьСвояНастройка и ПустаяСтрока(Репо[Ключ]) Тогда |
| 133 | + |
| 134 | + Репо.Вставить(Ключ, ГлобальнаяНастройка.Значение); |
| 135 | + КонецЕсли; |
| 136 | + |
| 137 | + КонецЦикла |
| 138 | + |
| 139 | +КонецПроцедуры |
| 140 | + |
| 141 | +Функция НекорректнаяСтруктураНастроек() |
| 142 | + Возврат "Некорректная структура файла настроек"; |
| 143 | +КонецФункции |
0 commit comments