1-- 2-- Copyright (c) 2011, 3-- Reto Buerki, Adrian-Ken Rueegsegger 4-- 5-- This file is part of Alog. 6-- 7-- Alog is free software; you can redistribute it and/or modify 8-- it under the terms of the GNU Lesser General Public License as published 9-- by the Free Software Foundation; either version 2.1 of the License, or 10-- (at your option) any later version. 11-- 12-- Alog is distributed in the hope that it will be useful, 13-- but WITHOUT ANY WARRANTY; without even the implied warranty of 14-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15-- GNU Lesser General Public License for more details. 16-- 17-- You should have received a copy of the GNU Lesser General Public License 18-- along with Alog; if not, write to the Free Software 19-- Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, 20-- MA 02110-1301 USA 21-- 22 23with Ada.Exceptions; 24with Ada.Task_Identification; 25 26-- Alog exception package. Contains type definitions for Alog specific 27-- exception handling. 28package Alog.Exceptions is 29 30 type Exception_Handler is not null access procedure 31 (Except : Ada.Exceptions.Exception_Occurrence; 32 Caller : Ada.Task_Identification.Task_Id); 33 -- Exception handler callback procedure. Used to register custom callback 34 -- procedures in active and tasked loggers. 35 36end Alog.Exceptions; 37