Отладка..

Author: Gogs

src/Классы/ОпцияКоманды.os

@@ -1,4 +1,4 @@
-Перем имя экспорт; // Строка
+Перем Имя экспорт; // Строка
 Перем Описание Экспорт; // Строка
 Перем ПодробноеОписание Экспорт; // Строка 
 

src/Классы/ОпцияПарсера.os

@@ -77,7 +77,7 @@
 КонецФункции
 
 Функция НайтиКоротнуюОпцию(Знач Аргументы, Индекс, КонтекстПоиска)
-	
+	Сообщить("Класс опции " + ТипЗнч(Опция));
 	Сообщить("Ищю короткую опцию "+ Опция.Имя);
 
 	ТекущийАргумент = Аргументы[Индекс];

src/Классы/ПарсерАргументовКоманднойСтроки.os renamed to src/Классы/ПарсерАргументовКоманднойСтроки1.os

@@ -50,7 +50,8 @@
 
 	Лог.Отладка("Применяю контекст: 
 	| количество соединений %1
-	| количество входящих аргументов %2", МассивСоединений.Количество(), ВходящиеАргументы.Количество());
+	| количество входящих аргументов %2
+	| Завершено: %3", МассивСоединений.Количество(), ВходящиеАргументы.Количество(), Завершено);
 
 	Если Завершено 
 		И ВходящиеАргументы.Количество() = 0 Тогда
@@ -75,14 +76,21 @@
 		ЧистыйКонтекст.СбросОпций = Контекст.СбросОпций;
 
 		РезультатПоиска = Соединение.Парсер.Поиск(ВходящиеАргументы, ЧистыйКонтекст);
+		
+		Лог.Отладка("Нашли опции: %2 %1", РезультатПоиска.РезультатПоиска, Соединение.Парсер );
+		лог.Отладка("Количество опций в контексте: %1", ЧистыйКонтекст.Опции.Количество());
 		Если РезультатПоиска.РезультатПоиска Тогда
+			Лог.Отладка("Добавляю в массив найденное значение");
 			МассивСовпадений.Добавить(НовоеСовпадение(Соединение, РезультатПоиска.Аргументы, ЧистыйКонтекст));
 		КонецЕсли;
 
 	КонецЦикла;
 
 	Для каждого ЭлементСовпадения Из МассивСовпадений Цикл
 
+		Лог.Отладка("Следующие состояние: %1", ЭлементСовпадения.Соединение.СледующееСостояние);
+		Лог.Отладка("Для соединения беру следующие состояние: %1", ЭлементСовпадения.Соединение.СледующееСостояние.МассивСоединений.Количество());
+		
 		Если ЭлементСовпадения.Соединение.СледующееСостояние.ПрименитьКонтекст(ЭлементСовпадения.Результат, ЭлементСовпадения.Контекст)  Тогда
 
 			Лог.Отладка("Соединяю контексты");

src/Классы/Совпадение.os

@@ -46,7 +46,9 @@
 
 
 	Лог.Отладка("Начинаю чтение спека %1", Спек);
+	Лог.Отладка("Количество токенов %1", Токены.Количество());
 
+
 	Результат = ПрочитатьРекурсивно(Ложь);
 
 	Если Не КонецТокенов() Тогда
@@ -105,6 +107,9 @@
 
 Процедура appendComp(КонечноеСостояние, s, e)
 
+	Лог.Отладка("appendComp цикл >> КонечноеСостояние.МассивСоединений: %1", КонечноеСостояние.МассивСоединений.Количество());
+	Лог.Отладка("appendComp цикл >> s.МассивСоединений: %1", s.МассивСоединений.Количество());
+
 	Для каждого Соединение Из s.МассивСоединений Цикл
 		КонечноеСостояние.Т(Соединение.Парсер, Соединение.СледующееСостояние);
 	КонецЦикла;
@@ -237,6 +242,9 @@
 
 	КонецЕсли;
 
+	Если КонечноеСостояние = Неопределено Тогда
+		ВызватьИсключение "Не могу правильно построить маршрут";
+	КонецЕсли;
 	возврат Новый Структура("НачальноеСостояние, КонечноеСостояние", НачальноеСостояние, КонечноеСостояние);
 
 КонецФункции
@@ -313,15 +321,15 @@
 	КонецЕсли;
 
 
-	Лог.Отладка("Проверяю текущий токен:
-	| >> Сверка типов: %1 = %2", Токен().Тип, ТипТокена);
+	//Лог.Отладка("Проверяю текущий токен:
+	//| >> Сверка типов: %1 = %2", Токен().Тип, ТипТокена);
 	Возврат Токен().Тип = ТипТокена;
 
 КонецФункции
 
 Функция МогуПрочитать()
 
-	Лог.Отладка("Вызов <МогуПрочитать>");
+	//Лог.Отладка("Вызов <МогуПрочитать>");
 
 	Если ЭтоТокен(ТипыТокенов.TTArg)
 		ИЛИ ЭтоТокен(ТипыТокенов.TTOptions)
@@ -348,10 +356,12 @@
 	Если ЭтоТокен(ТипТокена) Тогда
 
 		Лог.Отладка("Нашли токен: %1", ТипТокена);
-		НайденныйТокен =  Токен();
+		НайденныйТокен = Токен();
 
 		ТекущаяПозиция = ТекущаяПозиция +1;
 
+		ЛОг.Отладка("Текущая позиция: %1", ТекущаяПозиция);
+
 		Возврат Истина;
 
 	КонецЕсли;

src/Классы/СпекПарсер.os

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<testsuites tests="2" name="xUnitFor1C" time="0.0984695" failures="0" skipped="0">
+<testsuites tests="2" name="xUnitFor1C" time="0.0698521" failures="0" skipped="0">
     <testsuite name="">
         <properties />
         <testcase classname="cli-lexer_test" name="ТестДолжен_ПроверитьСпекЛексер" status="passed" />

tests.xml

@@ -21,11 +21,11 @@
 	cli.БулевоОпция("v vers", Ложь, "Тест");
 	cli.БулевоОпция("s ssss", Ложь, "Тест");
 	cli.БулевоОпция("b bbbb", Ложь, "Тест");
-	cli.Спек = "( -v | -s -b )";
+	cli.Спек = "-v[-s]-b";
 	cli.НачалоЗапуска();
 	ВходящиеАргументы = Новый Массив;
 	ВходящиеАргументы.Добавить("-v");
-	ВходящиеАргументы.Добавить("-s");
+	//ВходящиеАргументы.Добавить("-s");
 	ВходящиеАргументы.Добавить("-b");
 	cli.ЧтениеАргументов(ВходящиеАргументы);