/src/yolk-whoops.ads

http://github.com/ThomasLocke/yolk · Ada · 38 lines · 11 code · 4 blank · 23 comment · 0 complexity · 7588f2f4d746e9604c56b186127698a7 MD5 · raw file 

    

  1. -------------------------------------------------------------------------------
    2. 

  2. --                                                                           --
    3. 

  3. --                   Copyright (C) 2010-, Thomas Løcke                   --
    4. 

  4. --                                                                           --
    5. 

  5. --  This library is free software;  you can redistribute it and/or modify    --
    6. 

  6. --  it under terms of the  GNU General Public License  as published by the   --
    7. 

  7. --  Free Software  Foundation;  either version 3,  or (at your  option) any  --
    8. 

  8. --  later version. This library is distributed in the hope that it will be   --
    9. 

  9. --  useful, but WITHOUT ANY WARRANTY;  without even the implied warranty of  --
    10. 

  10. --  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     --
    11. 

  11. --                                                                           --
    12. 

  12. --  As a special exception under Section 7 of GPL version 3, you are         --
    13. 

  13. --  granted additional permissions described in the GCC Runtime Library      --
    14. 

  14. --  Exception, version 3.1, as published by the Free Software Foundation.    --
    15. 

  15. --                                                                           --
    16. 

  16. --  You should have received a copy of the GNU General Public License and    --
    17. 

  17. --  a copy of the GCC Runtime Library Exception along with this program;     --
    18. 

  18. --  see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
    19. 

  19. --  <http://www.gnu.org/licenses/>.                                          --
    20. 

  20. --                                                                           --
    21. 

  21. -------------------------------------------------------------------------------
    22. 

  22. 

  23. with Ada.Exceptions;
    24. 

  24. with AWS.Exceptions;
    25. 

  25. with AWS.Log;
    26. 

  26. with AWS.Response;
    27. 

  27. 

  28. package Yolk.Whoops is
    29. 

  29. 

  30.    procedure Unexpected_Exception_Handler
    31. 

  31.      (E      : Ada.Exceptions.Exception_Occurrence;
    32. 

  32.       Log    : in out AWS.Log.Object;
    33. 

  33.       Error  : AWS.Exceptions.Data;
    34. 

  34.       Answer : in out AWS.Response.Data);
    35. 

  35.    --  This one takes care of all the exceptions you've failed to catch. It
    36. 

  36.    --  logs the problem and return a status code 500 page to the user.
    37. 

  37. 

  38. end Yolk.Whoops;
    39.