|
59 | 59 | КонецПроцедуры |
60 | 60 |
|
61 | 61 | Процедура ВыполнитьКоманду(Знач ПараметрыКоманды) Экспорт |
62 | | - |
| 62 | + |
63 | 63 | ЗначенияПараметров = ПараметрыКоманды.ЗначенияПараметров; |
64 | 64 | Если ПараметрыКоманды.Команда = "build" Тогда |
65 | 65 | ВыполнитьСборку(ЗначенияПараметров["КаталогИсходников"], ЗначенияПараметров["-mf"], ЗначенияПараметров["-out"]); |
|
74 | 74 | ИначеЕсли ПараметрыКоманды.Команда = "help" Тогда |
75 | 75 | ВывестиСправку(ЗначенияПараметров); |
76 | 76 | КонецЕсли; |
77 | | - |
| 77 | + |
78 | 78 | КонецПроцедуры |
79 | 79 |
|
80 | 80 | ///////////////////////////////////////////////////////////////////////// |
81 | 81 | // Реализация команд |
82 | 82 |
|
83 | 83 | Процедура УстановитьПакет(Знач ЗначенияПараметров) Экспорт |
84 | | - |
| 84 | + |
85 | 85 | Установщик = Новый УстановкаПакета; |
86 | 86 | Если ЗначенияПараметров["-f"] <> Неопределено Тогда |
87 | 87 | Установщик.УстановитьПакетИзАрхива(ЗначенияПараметров["-f"]); |
88 | 88 | Иначе |
89 | 89 | Установщик.УстановитьПакетИзОблака(ЗначенияПараметров["ИмяПакета"]); |
90 | 90 | КонецЕсли; |
91 | | - |
| 91 | + |
92 | 92 | КонецПроцедуры |
93 | 93 |
|
94 | 94 | Процедура ВыполнитьСборку(Знач КаталогИсходников, Знач ФайлМанифеста, Знач ВыходнойКаталог) Экспорт |
95 | | - |
| 95 | + |
96 | 96 | Сборщик = Новый СборщикПакета(); |
97 | 97 | Сборщик.СобратьПакет(КаталогИсходников, ФайлМанифеста, ВыходнойКаталог); |
98 | | - |
| 98 | + |
99 | 99 | КонецПроцедуры |
100 | 100 |
|
101 | 101 | Процедура ПодготовитьКаталогПроекта(Знач ВыходнойКаталог) Экспорт |
102 | | - |
| 102 | + |
103 | 103 | Сборщик = Новый СборщикПакета(); |
104 | 104 | Сборщик.ПодготовитьКаталогПроекта(ВыходнойКаталог); |
105 | | - |
| 105 | + |
106 | 106 | КонецПроцедуры |
107 | 107 |
|
108 | 108 | Процедура ОбновитьПакет(Знач ЗначенияПараметров) Экспорт |
109 | | - |
| 109 | + |
110 | 110 | Установщик = Новый УстановкаПакета; |
111 | 111 | Если ЗначенияПараметров["-f"] <> Неопределено Тогда |
112 | 112 | Установщик.УстановитьПакетИзАрхива(ЗначенияПараметров["-f"]); |
113 | 113 | Иначе |
114 | 114 | Установщик.ОбновитьПакетИзОблака(ЗначенияПараметров["ИмяПакета"]); |
115 | 115 | КонецЕсли; |
116 | | - |
| 116 | + |
117 | 117 | КонецПроцедуры |
118 | 118 |
|
119 | 119 | Процедура СоздатьСкриптЗапуска(Знач ИмяСкрипта, Знач Каталог, Знач ИмяФайлаЗапуска) Экспорт |
|
135 | 135 | Если Не ФайлСкрипта.ЭтоФайл() Тогда |
136 | 136 | ВызватьИсключение "Указанный скрипт """ + ПолноеИмяСкрипта + """ не является файлом"; |
137 | 137 | КонецЕсли; |
138 | | - |
| 138 | + |
139 | 139 | Если Каталог = Неопределено Тогда |
140 | 140 | Каталог = КаталогПрограммы(); |
141 | 141 | КонецЕсли; |
|
152 | 152 | ВызватьИсключение "Не удалось создать каталог """ + Каталог + """"; |
153 | 153 | КонецЕсли; |
154 | 154 | КонецЕсли; |
155 | | - |
156 | | - ИмяСкриптаЗапуска = ?(ИмяФайлаЗапуска = Неопределено, ФайлСкрипта.ИмяБезРасширения, ИмяФайлаЗапуска); |
| 155 | + |
| 156 | + ИмяСкриптаЗапуска = ?(ИмяФайлаЗапуска = Неопределено, ФайлСкрипта.ИмяБезРасширения, ИмяФайлаЗапуска); |
157 | 157 | Установщик = Новый УстановкаПакета; |
158 | | - Установщик.СоздатьСкриптЗапуска(ИмяФайлаЗапуска, ПолноеИмяСкрипта, Каталог); |
159 | | - |
| 158 | + Установщик.СоздатьСкриптЗапуска(ИмяСкриптаЗапуска, ПолноеИмяСкрипта, Каталог); |
| 159 | + |
160 | 160 | КонецПроцедуры |
161 | 161 |
|
162 | 162 | Процедура ВывестиСправку(Знач ЗначенияПараметров) |
|
168 | 168 | КонецПроцедуры |
169 | 169 |
|
170 | 170 | Процедура ВывестиСправкуПоКомандам() Экспорт |
171 | | - |
| 171 | + |
172 | 172 | Парсер = Новый ПарсерАргументовКоманднойСтроки; |
173 | 173 | ДобавитьОписанияКоманд(Парсер); |
174 | | - |
| 174 | + |
175 | 175 | ВозможныеКоманды = Парсер.СправкаВозможныеКоманды(); |
176 | 176 | Сообщить("OneScript Package Manager |
177 | 177 | |Возможные команды:"); |
178 | | - |
| 178 | + |
179 | 179 | МаксШирина = 0; |
180 | 180 | Поле = " "; |
181 | 181 | Для Каждого Команда Из ВозможныеКоманды Цикл |
|
184 | 184 | МаксШирина = ТекШирина; |
185 | 185 | КонецЕсли; |
186 | 186 | КонецЦикла; |
187 | | - |
| 187 | + |
188 | 188 | Для Каждого Команда Из ВозможныеКоманды Цикл |
189 | 189 | Сообщить(" " + Лев(Команда.Команда + Поле, МаксШирина + 2) + "- " + Команда.Пояснение); |
190 | 190 | КонецЦикла; |
191 | | - |
| 191 | + |
192 | 192 | Сообщить("Наберите opm help <команда>, чтобы вывести справку по команде"); |
193 | | - |
| 193 | + |
194 | 194 | КонецПроцедуры |
195 | 195 |
|
196 | 196 | Процедура ВывестиСправкуПоКоманде(Знач ИмяКоманды) |
197 | | - |
| 197 | + |
198 | 198 | Парсер = Новый ПарсерАргументовКоманднойСтроки; |
199 | 199 | ДобавитьОписанияКоманд(Парсер); |
200 | | - |
| 200 | + |
201 | 201 | ВозможныеКоманды = Парсер.СправкаВозможныеКоманды(); |
202 | 202 | ОписаниеКоманды = ВозможныеКоманды.Найти(ИмяКоманды, "Команда"); |
203 | 203 | Если ОписаниеКоманды = Неопределено Тогда |
204 | 204 | Сообщить("Команда отсуствует: " + ИмяКоманды); |
205 | 205 | Возврат; |
206 | 206 | КонецЕсли; |
207 | | - |
| 207 | + |
208 | 208 | Сообщить("" + ОписаниеКоманды.Команда + " - " + ОписаниеКоманды.Пояснение); |
209 | 209 | Сообщить("Параметры:"); |
210 | 210 | Для Каждого СтрПараметр Из ОписаниеКоманды.Параметры Цикл |
|
214 | 214 | Сообщить(СтрШаблон(" %1 - %2", СтрПараметр.Имя, СтрПараметр.Пояснение)); |
215 | 215 | КонецЕсли; |
216 | 216 | КонецЦикла; |
217 | | - |
| 217 | + |
218 | 218 | КонецПроцедуры |
219 | 219 |
|
220 | 220 | ///////////////////////////////////////////////////////////////////// |
|
0 commit comments