OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Четверг, 14 Декабрь, 2017 13:10

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 11 ] 
Автор Сообщение
СообщениеДобавлено: Суббота, 02 Июль, 2016 00:17 

Зарегистрирован: Понедельник, 30 Июль, 2007 10:53
Сообщения: 1526
Откуда: Беларусь, Минск
Я пытался использовать Kernel.SetTrapGuard, но он заменяет одно окно на другое.


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Суббота, 02 Июль, 2016 00:51 

Зарегистрирован: Пятница, 25 Ноябрь, 2005 12:02
Сообщения: 7726
Откуда: Троицк, Москва
Задача не понятна.

Видимо, недостаточно использовать трап № 128?


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Суббота, 02 Июль, 2016 12:52 

Зарегистрирован: Понедельник, 30 Июль, 2007 10:53
Сообщения: 1526
Откуда: Беларусь, Минск
Используемый трап заранее не известен. Более того, он может возникнуть не благодаря ASSERT. Скажем, выход за границы массива.

Я хочу написать программу для запуска юнит-тестов. Самая простая часть уже сделана: получение из модуля списка процедур, тестирующих какой-то другой модуль, и запуск процедур. Теперь хотелось бы, чтобы по окончании работы программы она выдавала мини-отчёт: какая процедура отработала без проблем, а какая завершилась с ошибками.

Как продолжить работу, если выскочил трап, понятно. Как извлечь информацию о последнем трапе - тоже, вроде, можно разобраться. Но как сделать, чтобы окно трапа не появлялось? Если семнадцать процедур завершились с ошибками, то появится семнадцать окон трапа, с которыми непонятно, что делать. И очевидно, что сразу все семнадцать они нужны не будут.


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Суббота, 02 Июль, 2016 13:00 
Аватара пользователя

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 1976
Откуда: Красноярск
Надо установить свой обработчик аварийных остановок через Kernel.InstallTrapViewer

Примеры реализации обработчиков: StdDebug и DevDebug.


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Суббота, 02 Июль, 2016 15:00 

Зарегистрирован: Понедельник, 30 Июль, 2007 10:53
Сообщения: 1526
Откуда: Беларусь, Минск
Он же глобальный?
Я бы ещё как-нибудь выкрутился, если бы был доступ к текущему TrapViewer-у. Вызвал бы свой обработчик, и потом установил предыдущий. А так просто вслепую задавать свой обработчик чревато сбросом чьего-нибудь чужого обработчика. Да и для доступа к стандартным потребуется изменить интерфейс модулей, в которых они находятся.


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Суббота, 02 Июль, 2016 20:09 
Аватара пользователя

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 1976
Откуда: Красноярск
Пометьте в ядре переменную trapViewer с доступом для чтения и пересоберите Блэкбокс.
Тогда сможете хранить старый обработчик и потом возвращать назад.


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Суббота, 02 Июль, 2016 21:25 
Модератор
Аватара пользователя

Зарегистрирован: Понедельник, 14 Ноябрь, 2005 18:39
Сообщения: 8902
Откуда: Россия, Орёл
Если уж понадобилось, я бы не стал пересобирать ББ, а просто забрал значение с помощью SYSTEM (обособив все эти танцы в каком-то отдельном модуле).


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Воскресенье, 03 Июль, 2016 01:09 

Зарегистрирован: Вторник, 29 Август, 2006 12:32
Сообщения: 2448
Откуда: Россия, Ярославль
https://bitbucket.org/oberoncore/ypk/sr ... ew-default


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Воскресенье, 03 Июль, 2016 22:37 

Зарегистрирован: Понедельник, 30 Июль, 2007 10:53
Сообщения: 1526
Откуда: Беларусь, Минск
Если я правильно понял, как это работает, то это не то, что мне надо.
У меня есть процедура. Она обращается к другим процедурам, в которых могут быть разные ассерты или ошибки (например, выход за границы массива).
И я хочу, чтобы в таком случае не показывалось окно трапа.


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Воскресенье, 03 Июль, 2016 22:51 

Зарегистрирован: Понедельник, 30 Июль, 2007 10:53
Сообщения: 1526
Откуда: Беларусь, Минск
А как правильно использовать SYSTEM для получения значения переменной?
Раньше удавалось избегать использования SYSTEM.

Я придумал так:
1. Получить модуль m := Kernel.ThisMod("Kernel");
2. Найти по имени нужную переменную Kernel.GetRefProc(ref, adr, name); Kernel.GetRefVar(ref, mode, form, desc, adr, name);
3. Адрес переменной указан относительный, поэтому складываем его с базой S.GET(m.varBase + adr, p);

Всё верно? Или можно проще?


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Понедельник, 04 Июль, 2016 00:24 

Зарегистрирован: Вторник, 29 Август, 2006 12:32
Сообщения: 2448
Откуда: Россия, Ярославль
Valery Solovey писал(а):
Если я правильно понял, как это работает, то это не то, что мне надо.
У меня есть процедура. Она обращается к другим процедурам, в которых могут быть разные ассерты или ошибки (например, выход за границы массива).
И я хочу, чтобы в таком случае не показывалось окно трапа.

Вы неправильно поняли. ypkSysTry делает как раз то, что вы хотите - перехватывает исключение от рантайма с помощью Kernel.Try и дополнительной магии. Следовательно, никакого окна Trap не будет и исполнение не прервётся.
Если же вы хотите чтобы исполнение прервалось, но без окошка - изучите модули StdDebug и DevDebug, которые открывают окно ошибки и работают по принципу исталлируемого хука. А могли бы в файл сохранять, или вообще игнорировать.


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 11 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2005-2017, участники конференции «OberonCore», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Без разрешения участников и ссылки на конференцию «OberonCore» любое воспроизведение и/или копирование высказываний полностью и/или по частям запрещено.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB