1
------------------------------------------------------------------------------
3
-- ASIS-for-GNAT IMPLEMENTATION COMPONENTS --
5
-- A S I S . E X C E P T I O N S --
10
-- This specification is adapted from the Ada Semantic Interface --
11
-- Specification (ASIS) definition, ISO/IEC 15291, Working Draft. In --
12
-- accordance with the (expected) copyright of the ASIS definition, you can --
13
-- freely copy and modify this specification, provided that if you --
14
-- redistribute a modified version, any changes that you have made are --
15
-- clearly indicated. --
17
------------------------------------------------------------------------------
19
-- The content of this specification is taken "as is" from ASIS 2.0.R.
20
-- The code is reformatted to follow the GNAT coding style rules
22
------------------------------------------------------------------------------
23
-- 5 package Asis.Exceptions
24
------------------------------------------------------------------------------
25
------------------------------------------------------------------------------
26
package Asis.Exceptions is
27
------------------------------------------------------------------------------
28
------------------------------------------------------------------------------
29
-- ASIS exceptions are:
31
ASIS_Inappropriate_Context : exception;
33
------------------------------------------------------------------------------
34
-- Raised when ASIS is passed a Context value that is not appropriate for the
35
-- operation. This exception will typically indicate that a user error
36
-- has occurred within the application.
37
------------------------------------------------------------------------------
39
ASIS_Inappropriate_Container : exception;
41
------------------------------------------------------------------------------
42
-- Raised when ASIS is passed a Container value that is not appropriate for
43
-- the operation. This exception will typically indicate that a user error
44
-- has occurred within the application.
45
------------------------------------------------------------------------------
47
ASIS_Inappropriate_Compilation_Unit : exception;
49
------------------------------------------------------------------------------
50
-- Raised when ASIS is passed a Compilation_Unit value that is not
51
-- appropriate. This exception will typically indicate that a user
52
-- error has occurred within the application.
53
------------------------------------------------------------------------------
55
ASIS_Inappropriate_Element : exception;
57
------------------------------------------------------------------------------
58
-- Raised when ASIS is given an Element value that is not appropriate. This
59
-- exception will typically indicate that a user error has occurred within
61
------------------------------------------------------------------------------
63
ASIS_Inappropriate_Line : exception;
65
------------------------------------------------------------------------------
66
-- Raised when ASIS is given a Line value that is not appropriate.
67
------------------------------------------------------------------------------
69
ASIS_Inappropriate_Line_Number : exception;
71
------------------------------------------------------------------------------
72
-- Raised when ASIS is given a Line_Number value that is not appropriate.
73
-- This exception will typically indicate that a user error has occurred
74
-- within the application.
75
------------------------------------------------------------------------------
77
ASIS_Failed : exception;
79
------------------------------------------------------------------------------
80
-- This is a catch-all exception that may be raised for different reasons
81
-- in different ASIS implementations. All ASIS routines may raise ASIS_Failed
82
-- whenever they cannot normally complete their operation. This exception
83
-- will typically indicate a failure of the underlying ASIS implementation.
84
------------------------------------------------------------------------------
b'\\ No newline at end of file'