|
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