File tree Expand file tree Collapse file tree 3 files changed +31
-8
lines changed
src/core/Классы/internal/path Expand file tree Collapse file tree 3 files changed +31
-8
lines changed Original file line number Diff line number Diff line change @@ -296,7 +296,17 @@ cli поддерживает автоматическую инициализац
296296
297297``` bsl
298298Процедура ОписаниеКоманды(Команда) Экспорт
299-
299+ Путь = Команда.Аргумент("PATH", "" ,"Описание аргумента")
300+ .ТСтрока() / тип опции Строка
301+ .ВОкружении("ИМЯ_ПЕРЕМЕННОЙ")
302+ .ПоУмолчанию(Ложь)
303+ .СкрытьВСправке(); // Любой тип
304+
305+ Отладка = Команда.Опция("o opt", Ложь ,"Описание опции")
306+ .ТСтрока() / тип опции Строка
307+ .ВОкружении("ИМЯ_ПЕРЕМЕННОЙ")
308+ .ПоУмолчанию(Ложь)
309+ .СкрытьВСправке(); // Любой тип
300310КонецПроцедуры
301311```
302312
Original file line number Diff line number Diff line change 44//
55
66Описание.Имя("cli")
7- .Версия("0.9.4 ")
7+ .Версия("0.9.5 ")
88 .Автор("Khorev Aleksey")
99 .АдресАвтора("khorevaa@gmail.com")
1010 .Описание("Данный пакет облегчает создание консольных приложений на Oscript")
1616 .ВключитьФайл("packagedef")
1717 .ЗависитОт("logos")
1818 .ЗависитОт("delegate", "0.2.0")
19- .ЗависитОт("fluent", "0.2.2")
19+ // .ЗависитОт("fluent", "0.2.2")
2020 .ЗависитОт("asserts")
2121 //.ЗависитОт("1bdd") // Необходимо установил для тестирования
2222 //.ЗависитОт("1testrunner") // Необходимо установил для тестирования
Original file line number Diff line number Diff line change 11#Использовать logos
2- #Использовать fluent
32
43перем Лог ;
54
151150
152151Процедура СортироватьМассив (МассивСоединений )
153152
154- ПроцессорКоллекций = ПроцессорыКоллекций.ИзКоллекции(МассивСоединений);
155- МассивСоединений = ПроцессорКоллекций
156- .Сортировать("Результат = Элемент1.Парсер.Приоритет() > Элемент2.Парсер.Приоритет()" )
157- .ВМассив();
153+ Для й = 0 По МассивСоединений.Количество() - 1 Цикл
154+ Флаг = Ложь ;
155+ к = МассивСоединений.Количество() - 1 ;
156+ Пока к > й Цикл
157+ Элемент = МассивСоединений[к - 1 ];
158+ СледующийЭлемент = МассивСоединений[к];
159+ РезультатСортировки = Элемент.Парсер.Приоритет() > СледующийЭлемент.Парсер.Приоритет();
160+ Если РезультатСортировки > 0 Тогда
161+ МассивСоединений[к - 1 ] = СледующийЭлемент;
162+ МассивСоединений[к] = Элемент;
163+ Флаг = Истина ;
164+ КонецЕсли ;
165+ к = к - 1 ;
166+ КонецЦикла ;
167+ Если НЕ Флаг Тогда
168+ Прервать ;
169+ КонецЕсли ;
170+ КонецЦикла ;
158171
159172КонецПроцедуры
160173
You can’t perform that action at this time.
0 commit comments