1. -- 
  2. --  Copyright (c) 2008, 
  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.  
  23. pragma Detect_Blocking; 
  24.  
  25. --  Alog: Ada Logging Components. Provides easy to use API for different 
  26. --  logging facilities and log message transforms. 
  27. package Alog is 
  28.  
  29.    pragma Preelaborate; 
  30.  
  31.    type Log_Level is 
  32.      (Debug, 
  33.       Info, 
  34.       Notice, 
  35.       Warning, 
  36.       Error, 
  37.       Critical, 
  38.       Alert, 
  39.       Emergency); 
  40.    --  Provided log levels. These log levels can be used to categorize log 
  41.    --  messages. 
  42.  
  43.    Max_Path_Length : constant Natural := 128; 
  44.    --  Maximal length of path names. 
  45.  
  46.    Max_Facilities : constant Natural := 15; 
  47.    --  Maximum number of facilities a single logger instance 
  48.    --  can manage. 
  49.  
  50. end Alog;