/usr/share/doc/gnat-gps/examples/demo/common/except.ads is in gnat-gps-doc 5.3dfsg-1ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | -- Basic exceptions used throughout SDC
package Except is
Internal_Error : exception;
-- Raised when an internal error is detected in one of SDC's modules.
Exit_SDC : exception;
-- Should be raised to have a clean exit from SDC.
User_Error : exception;
-- Generic exception raised upon encountering a user input error.
-- This exception is handled during lexical analysis in package Tokens.
end Except;
|