|
10 | 10 | Перем Лог; |
11 | 11 | Перем УдалятьВременныеФайлы; |
12 | 12 |
|
| 13 | +Функция Версия() |
| 14 | + Возврат "1.1"; |
| 15 | +КонецФункции // Версия() |
| 16 | + |
13 | 17 | /////////////////////////////////////////////////////////////////// |
14 | 18 | // Прикладные процедуры и функции |
15 | | -Функция Версия() Экспорт |
16 | | - Возврат "1.1"; |
17 | | -КонецФункции |
18 | 19 |
|
19 | 20 | Функция РазобратьАргументыКоманднойСтроки() |
20 | 21 |
|
|
40 | 41 | ДобавитьКомандуSetVersion(Парсер); |
41 | 42 | ДобавитьКомандуHelp(Парсер); |
42 | 43 | ДобавитьКомандуExport(Парсер); |
43 | | - ДобавитьКомандуПоказаВерсииПродукта(Парсер); |
| 44 | + ДобавитьКомандуVersion(Парсер); |
44 | 45 | ДобавитьАргументыПоУмолчанию(Парсер); |
45 | 46 |
|
46 | 47 | Возврат Парсер; |
|
132 | 133 |
|
133 | 134 | КонецПроцедуры |
134 | 135 |
|
135 | | -Процедура ДобавитьКомандуПоказаВерсииПродукта(Знач Парсер) |
| 136 | +Процедура ДобавитьКомандуVersion(Знач Парсер) |
136 | 137 |
|
137 | | - Команда = Парсер.ОписаниеКоманды("-version", "Показать версию продукта"); |
| 138 | + Команда = Парсер.ОписаниеКоманды("-version", "Вывести информацию о версии продукта."); |
138 | 139 |
|
139 | 140 | Парсер.ДобавитьКоманду(Команда); |
140 | 141 |
|
|
166 | 167 | ВыполнитьКоманду(Параметры); |
167 | 168 | Иначе |
168 | 169 |
|
| 170 | + ВывестиВерсию(); |
| 171 | + |
169 | 172 | УстановитьРежимОтладкиПриНеобходимости(Параметры); |
170 | 173 | УстановитьРежимУдаленияВременныхФайлов(Параметры); |
171 | 174 | УстановитьБазовыйКаталогВременныхФайлов(Параметры); |
|
187 | 190 |
|
188 | 191 | Процедура ВыполнитьКоманду(Знач ОписаниеКоманды) |
189 | 192 |
|
| 193 | + Если ОписаниеКоманды.Команда <> "-version" Тогда |
| 194 | + ВывестиВерсию(); |
| 195 | + КонецЕсли; |
| 196 | + |
190 | 197 | Параметры = ОписаниеКоманды.ЗначенияПараметров; |
191 | 198 |
|
192 | 199 | Если ОписаниеКоманды.Команда = "init" Тогда |
|
199 | 206 | ВывестиСправкуПоКомандам(Параметры["КомандаДляСправки"]); |
200 | 207 | ИначеЕсли ОписаниеКоманды.Команда = "set-version" Тогда |
201 | 208 | УстановитьНовуюВерсию(Параметры); |
| 209 | + ИначеЕсли ОписаниеКоманды.Команда = "-version" Тогда |
| 210 | + ВывестиВерсиюКратко(); |
202 | 211 | ИначеЕсли ОписаниеКоманды.Команда = "export" Тогда |
203 | 212 | ВыполнитьКомандуЭкспортИсходников(Параметры); |
204 | | - ИначеЕсли ОписаниеКоманды.Команда = "-version" Тогда |
205 | | - ПоказатьВерсиюПродукта(); |
206 | 213 | Иначе |
207 | 214 | ВызватьИсключение "Неизвестная команда: " + ОписаниеКоманды.Команда; |
208 | 215 | КонецЕсли; |
|
237 | 244 |
|
238 | 245 | КонецПроцедуры |
239 | 246 |
|
| 247 | +Процедура ВывестиВерсию() |
| 248 | + Сообщить("OneScript Package Manager (opm) v" + Версия()); |
| 249 | + Сообщить(""); |
| 250 | +КонецПроцедуры |
| 251 | + |
| 252 | +Процедура ВывестиВерсиюКратко() |
| 253 | + Сообщить(Версия()); |
| 254 | +КонецПроцедуры |
240 | 255 |
|
241 | 256 | Процедура КлонироватьРепозитарий(Знач Параметры) |
242 | 257 |
|
|
585 | 600 |
|
586 | 601 | КонецПроцедуры |
587 | 602 |
|
588 | | -Процедура ПоказатьВерсиюПродукта() |
589 | | - Сообщить(Версия()); |
590 | | -КонецПроцедуры |
591 | | - |
592 | 603 | Процедура ЗавершитьСкрипт(Знач КодВозврата) |
593 | 604 | ИмяСтартовогоСкрипта = Новый Файл(СтартовыйСценарий().Источник).Имя; |
594 | 605 | ИмяТекущегоСкрипта = Новый Файл(ТекущийСценарий().Источник).Имя; |
|
609 | 620 | Если Параметры <> Неопределено Тогда |
610 | 621 | ВыполнитьОбработку(Параметры); |
611 | 622 | Иначе |
| 623 | + ВывестиВерсию(); |
612 | 624 | ПоказатьИнформациюОПараметрахКоманднойСтроки(); |
613 | 625 | Лог.Ошибка("Указаны некорректные аргументы командной строки"); |
614 | 626 | УдалитьВременныеФайлыПриНеобходимости(); |
|
0 commit comments