/usr/share/ada/adainclude/asis/asis.ads is in libasis2010-dev 2010-3.
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 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 1553 1554 1555 1556 1557 1558 1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584 1585 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 1599 1600 1601 1602 1603 1604 1605 1606 1607 1608 1609 1610 1611 1612 1613 1614 1615 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 1694 1695 1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 1706 1707 1708 1709 1710 1711 1712 1713 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 1729 1730 1731 1732 1733 1734 1735 1736 1737 1738 1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759 1760 1761 1762 1763 1764 1765 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 1843 1844 1845 1846 1847 1848 1849 1850 1851 1852 1853 1854 1855 1856 1857 1858 1859 1860 1861 1862 1863 1864 1865 1866 1867 1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 2030 2031 2032 2033 2034 2035 2036 2037 2038 2039 2040 2041 2042 2043 2044 2045 2046 2047 2048 2049 2050 2051 2052 2053 2054 2055 2056 2057 2058 2059 2060 2061 2062 2063 2064 2065 2066 2067 2068 | ------------------------------------------------------------------------------
-- --
-- ASIS-for-GNAT INTERFACE COMPONENTS --
-- --
-- A S I S --
-- --
-- S p e c --
-- --
-- Copyright (C) 1995-2009, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Semantic Interface --
-- Specification Standard (ISO/IEC 15291) for use with GNAT. --
-- --
-- This specification also contains suggestions and discussion items --
-- related to revising the ASIS Standard according to the changes proposed --
-- for the new revision of the Ada standard. --
-- --
-- The copyright notice above, and the license provisions that follow apply --
-- solely to these suggestions and discussion items that are separated by --
-- the corresponding comment sentinels, and to the contents of the part --
-- following the private keyword. --
-- --
-- ASIS-for-GNAT is free software; you can redistribute it and/or modify it --
-- under terms of the GNU General Public License as published by the Free --
-- Software Foundation; either version 2, or (at your option) any later --
-- version. ASIS-for-GNAT is distributed in the hope that it will be use- --
-- ful, but WITHOUT ANY WARRANTY; without even the implied warranty of MER- --
-- CHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General --
-- Public License for more details. You should have received a copy of the --
-- GNU General Public License distributed with ASIS-for-GNAT; see file --
-- COPYING. If not, write to the Free Software Foundation, 51 Franklin --
-- Street, Fifth Floor, Boston, MA 02110-1301, USA. --
-- --
-- --
-- --
-- --
-- --
-- --
-- --
-- --
-- --
-- ASIS-for-GNAT was originally developed by the ASIS-for-GNAT team at the --
-- Software Engineering Laboratory of the Swiss Federal Institute of --
-- Technology (LGL-EPFL) in Lausanne, Switzerland, in cooperation with the --
-- Scientific Research Computer Center of Moscow State University (SRCC --
-- MSU), Russia, with funding partially provided by grants from the Swiss --
-- National Science Foundation and the Swiss Academy of Engineering --
-- Sciences. ASIS-for-GNAT is now maintained by AdaCore --
-- (http://www.adacore.com). --
-- --
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- 3 package Asis
-- Suggestions related to changing this specification to accept new Ada
-- features as defined in latest revision of the Ada Standard (ISO 8652)
-- are marked by following comment sentinels:
--
-- --|A2005 start
-- ... the suggestion goes here ...
-- --|A2005 end
--
-- and the discussion items are marked by the comment sentinels of teh form:
--
-- --|D2005 start
-- ... the discussion item goes here ...
-- --|D2005 end
-- Suggestions related to changing this specification to accept new Ada
-- features as suggested by ARG for next revision of the Ada Standard
-- (ISO 8652) are marked by following comment sentinels:
--
-- --|A2015 start
-- ... the suggestion goes here ...
-- --|A2015 end
--
-- and the discussion items are marked by the comment sentinels of teh form:
--
-- --|D2015 start
-- ... the discussion item goes here ...
-- --|D2015 end
------------------------------------------------------------------------------
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- The following context clauses are specific for the ASIS
-- implementation for GNAT
with A4G.A_Types; use A4G.A_Types;
with A4G.Int_Knds; use A4G.Int_Knds;
with Types; use Types;
package Asis is
------------------------------------------------------------------------------
-- Package Asis encapsulates implementation-specific declarations, which are
-- made available to ASIS and its client applications in an
-- implementation-independent manner.
--
-- Package ASIS is the root of the ASIS interface.
--
------------------------------------------------------------------------------
-- Abstract
--
-- The Ada Semantic Interface Specification (ASIS) is an interface between an
-- Ada environment as defined by ISO/IEC 8652:1995 (the Ada Reference Manual)
-- and any tool requiring information from this environment. An Ada
-- environment includes valuable semantic and syntactic information. ASIS is
-- an open and published callable interface which gives CASE tool and
-- application developers access to this information. ASIS has been designed
-- to be independent of underlying Ada environment implementations, thus
-- supporting portability of software engineering tools while relieving tool
-- developers from having to understand the complexities of an Ada
-- environment's proprietary internal representation.
--
------------------------------------------------------------------------------
-- Package ASIS Types:
--
-- The following types are made visible directly through package Asis:
-- type ASIS_Integer
-- type ASIS_Natural
-- type ASIS_Positive
-- type List_Index
-- type Context
-- type Element
-- type Element_List
-- Element subtypes
-- Element Kinds (set of enumeration types)
-- type Compilation_Unit
-- type Compilation_Unit_List
-- Unit Kinds (set of enumeration types)
-- type Traverse_Control
-- subtype Program_Text
--
-- The ASIS interface uses string parameters for many procedure and function
-- calls. Wide_String is used to convey ASIS environment information.
-- Program_Text, a subtype of Wide_String, is used to convey program text.
-- The Ada type String is not used in the ASIS interface. Neither the Ada
-- types Character nor Wide_Character are used in the ASIS interface.
--
-- Implementation_Defined types and values
--
-- A number of implementation-defined types and constants are used. To make
-- the ASIS specification compile, the following types and constants are
-- provided:
subtype Implementation_Defined_Integer_Type is Integer;
Implementation_Defined_Integer_Constant : constant := 2**31-1;
-- In addition, there are several implementation-defined private types.
-- For compilation convenience these types have been represented as
-- enumeration types with the single value of "Implementation_Defined".
-- An implementation may define reasonable types and constants.
-- Please refer to commentary where each is used.
--
------------------------------------------------------------------------------
-- 3.1 type ASIS_Integer
------------------------------------------------------------------------------
subtype ASIS_Integer is Implementation_Defined_Integer_Type;
------------------------------------------------------------------------------
-- ASIS_Integer
--
-- A numeric subtype that allows each ASIS implementation to place constraints
-- on the lower and upper bounds. Whenever possible, the range of this type
-- should meet or exceed -(2**31-1) .. 2**31-1.
--
------------------------------------------------------------------------------
-- 3.2 type ASIS_Natural
------------------------------------------------------------------------------
subtype ASIS_Natural is ASIS_Integer range 0 .. ASIS_Integer'Last;
------------------------------------------------------------------------------
-- 3.3 type ASIS_Positive
------------------------------------------------------------------------------
subtype ASIS_Positive is ASIS_Integer range 1 .. ASIS_Integer'Last;
------------------------------------------------------------------------------
-- 3.4 type List_Index
------------------------------------------------------------------------------
List_Index_Implementation_Upper :
constant ASIS_Positive := Implementation_Defined_Integer_Constant;
subtype List_Index is ASIS_Positive
range 1 .. List_Index_Implementation_Upper;
------------------------------------------------------------------------------
-- List_Index
--
-- List_Index is a numeric subtype used to establish the upper bound for list
-- size.
------------------------------------------------------------------------------
-- 3.5 type Context
------------------------------------------------------------------------------
-- The ASIS Context is a view of a particular implementation of an Ada
-- environment. ASIS requires an application to identify that view of
-- the Ada environment. An ASIS Context identifies an Ada environment
-- as defined by ISO/IEC 8652:1995. The Ada environment is well
-- defined for Ada implementations. ISO/IEC 8652:1995 provides for an
-- implementation-defined method to enter compilation units into the
-- Ada environment. Implementation permissions allow for illegal and
-- inconsistent units to be in the environment. The use of ASIS may
-- result in the exception ASIS_Failed being raised if the Ada
-- environment includes such units.
--
-- Defined by the implementation, an ASIS context is a way to identify
-- a set of Compilation Units to be processed by an ASIS application.
-- This may include things such as the pathname, search rules, etc.,
-- which are attributes of the Ada environment and consequently
-- becomes part of the ASIS Context only because it is a "view" of
-- the Ada environment.
--
-- Because the contents of the Ada environment are (Ada-)implementation
-- defined, the ASIS context may contain illegal compilation units.
-- An ASIS Context is a handle to a set of compilation units accessible
-- by an ASIS application. The set of compilation units available
-- from an ASIS context may be inconsistent, and may contain illegal
-- compilation units. The contents are selected from the Ada
-- environment as defined by the corresponding Ada Implementation.
-- ASIS should allow multiple open contexts.
--
-- In the Context abstraction, a logical handle is associated with Name and
-- Parameters values that are used by the implementation to identify and
-- connect to the information in the Ada environment.
--
-- An ASIS Context is associated with some set of Ada compilation units
-- maintained by an underlying Ada implementation or a stand-alone ASIS
-- implementation. After this association has been made, this set of units
-- is considered to be part of the compile-time Ada environment, which forms
-- the outermost context of any compilation, as specified in section 10.1.4 of
-- the Ada Reference Manual. This same environment context provides the
-- implicit outermost anonymous task during program execution.
--
-- Some implementations might not need explicit Name and/or Parameters values
-- to identify their Ada environment. Other implementations might choose to
-- implement the Ada environment as a single external file in which case the
-- name and parameters values might simply supply the Name, Form, and any
-- other values needed to open such a file.
--
------------------------------------------------------------------------------
-- Context shall be an undiscriminated limited private.
------------------------------------------------------------------------------
type Context is limited private;
Nil_Context : constant Context;
function "=" (Left : Context; Right : Context) return Boolean
is abstract;
------------------------------------------------------------------------------
--
-- --|IR Implementation Requirement
-- --|IR
-- --|IR The concrete mechanism of this association is
-- --|IR implementation-specific:
-- --|IR
-- --|IR Each ASIS implementation provides the means to construct an ASIS
-- --|IR Context value that defines the environment declarative_part or
-- --|IR "context" from which ASIS can obtain library units.
--
------------------------------------------------------------------------------
-- 3.6 type Element
------------------------------------------------------------------------------
-- The Ada lexical element abstraction (a private type).
--
-- The Element type is a distinct abstract type representing handles for the
-- lexical elements that form the text of compilation units. Elements deal
-- with the internal or "textual" view of compilation units.
--
-- Operations are provided that split a Compilation_Unit object into one
-- Element and two Element lists:
-- a) A context clause represented by an Element_List containing
-- with clauses, use clauses, and pragmas.
-- b) An Element associated with the declaration.
-- c) A list of pragmas, that are not part of the context clause but which
-- nonetheless affect the compilation of the unit.
--
------------------------------------------------------------------------------
-- ASIS Elements are representations of the syntactic and semantic information
-- available from most Ada environments.
--
-- The ASIS Element type shall be an undiscriminated private type.
------------------------------------------------------------------------------
type Element is private;
Nil_Element : constant Element;
function "=" (Left : Element; Right : Element) return Boolean
is abstract;
------------------------------------------------------------------------------
-- 3.7 type Element_List
------------------------------------------------------------------------------
type Element_List is array (List_Index range <>) of Element;
Nil_Element_List : constant Element_List;
------------------------------------------------------------------------------
-- 3.8 subtypes of Element and Element_List
------------------------------------------------------------------------------
subtype Access_Type_Definition is Element;
subtype Association is Element;
subtype Association_List is Element_List;
subtype Case_Statement_Alternative is Element;
subtype Clause is Element;
subtype Component_Clause is Element;
subtype Component_Clause_List is Element_List;
subtype Component_Declaration is Element;
subtype Component_Definition is Element;
subtype Constraint is Element;
subtype Context_Clause is Element;
subtype Context_Clause_List is Element_List;
subtype Declaration is Element;
subtype Declaration_List is Element_List;
subtype Declarative_Item_List is Element_List;
subtype Definition is Element;
subtype Definition_List is Element_List;
subtype Discrete_Range is Element;
subtype Discrete_Range_List is Element_List;
subtype Discrete_Subtype_Definition is Element;
subtype Discriminant_Association is Element;
subtype Discriminant_Association_List is Element_List;
subtype Discriminant_Specification_List is Element_List;
subtype Defining_Name is Element;
subtype Defining_Name_List is Element_List;
subtype Exception_Handler is Element;
subtype Exception_Handler_List is Element_List;
subtype Expression is Element;
subtype Expression_List is Element_List;
subtype Formal_Type_Definition is Element;
subtype Generic_Formal_Parameter is Element;
subtype Generic_Formal_Parameter_List is Element_List;
subtype Identifier is Element;
subtype Identifier_List is Element_List;
subtype Name is Element;
subtype Name_List is Element_List;
subtype Parameter_Specification is Element;
subtype Parameter_Specification_List is Element_List;
subtype Path is Element;
subtype Path_List is Element_List;
subtype Pragma_Element is Element;
subtype Pragma_Element_List is Element_List;
subtype Range_Constraint is Element;
subtype Record_Component is Element;
subtype Record_Component_List is Element_List;
subtype Record_Definition is Element;
subtype Representation_Clause is Element;
subtype Representation_Clause_List is Element_List;
subtype Root_Type_Definition is Element;
subtype Select_Alternative is Element;
subtype Statement is Element;
subtype Statement_List is Element_List;
subtype Subtype_Indication is Element;
subtype Subtype_Mark is Element;
subtype Type_Definition is Element;
subtype Variant is Element;
subtype Variant_Component_List is Element_List;
subtype Variant_List is Element_List;
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- 3.9 Element Kinds
------------------------------------------------------------------------------
-- Element Kinds are enumeration types describing various kinds of elements.
-- These element kinds are only used by package Asis.Elements.
------------------------------------------------------------------------------
-- 3.9.1 type Element_Kinds
------------------------------------------------------------------------------
-- Element_Kinds Hierarchy
--
-- ASIS offers hierarchical classification of elements. At the highest
-- level, the Element_Kinds type provides literals that define "kinds" or
-- classes listed below into which all non-nil elements are grouped. Elements
-- in each of the Element_Kinds classes, with the exception of
-- An_Exception_Handler, can be further classified by a subordinate kind at
-- the next level in the hierarchy. Several subordinate kinds also have
-- additional subordinate kinds.
--
-- For example, Element_Kinds'A_Declaration might be classified into
-- Declaration_Kinds'A_Parameter_Specification which might be further
-- classified into Trait_Kinds'An_Access_Definition_Trait.
-- This fully identifies the syntax of an element such as:
--
-- (Who : access Person)
--
-- All Element_Kinds and subordinate kinds Queries are in Asis.Elements.
--
-- It is not necessary to strictly follow the hierarchy; any element can be
-- classified by any subordinate kind from any level. However, meaningful
-- results will only be obtained from subordinate kinds that are appropriate.
-- These are designated within the hierarchy shown below:
--
-- Element_Kinds -> Subordinate Kinds
------------------------------------------------------------------------------
-- Key: Read "->" as "is further classified by its"
--
-- A_Pragma -> Pragma_Kinds
--
-- A_Defining_Name -> Defining_Name_Kinds
-- -> Operator_Kinds
--
-- A_Declaration -> Declaration_Kinds
-- -> Trait_Kinds
-- -> Declaration_Origins
-- -> Mode_Kinds
-- -> Subprogram_Default_Kinds
--
-- A_Definition -> Definition_Kinds
-- -> Trait_Kinds
-- -> Type_Kinds
-- -> Trait_Kinds
-- -> Formal_Type_Kinds
-- -> Trait_Kinds
-- -> Access_Type_Kinds
-- -> Root_Type_Kinds
-- -> Constraint_Kinds
-- -> Discrete_Range_Kinds
--
-- An_Expression -> Expression_Kinds
-- -> Operator_Kinds
-- -> Attribute_Kinds
--
-- An_Association -> Association_Kinds
--
-- A_Statement -> Statement_Kinds
--
-- A_Path -> Path_Kinds
--
-- A_Clause -> Clause_Kinds
-- -> Representation_Clause_Kinds
--
-- An_Exception_Handler
--
------------------------------------------------------------------------------
-- Element_Kinds - general element classifications
-- Literals -- ASIS package with queries for these kinds
------------------------------------------------------------------------------
type Element_Kinds is (
Not_An_Element, -- Nil_Element
A_Pragma, -- Asis.Elements
A_Defining_Name, -- Asis.Declarations
A_Declaration, -- Asis.Declarations
A_Definition, -- Asis.Definitions
An_Expression, -- Asis.Expressions
An_Association, -- Asis.Expressions
A_Statement, -- Asis.Statements
A_Path, -- Asis.Statements
-- --|A2015 start
An_Expression_Path, -- Asis.Expressions
-- --|A2015 end
A_Clause, -- Asis.Clauses
An_Exception_Handler); -- Asis.Statements
------------------------------------------------------------------------------
-- 3.9.2 type Pragma_Kinds
------------------------------------------------------------------------------
-- Pragma_Kinds - classifications for pragmas
-- Literals -- Reference Manual
------------------------------------------------------------------------------
type Pragma_Kinds is (
Not_A_Pragma, -- An unexpected element
An_All_Calls_Remote_Pragma, -- E.2.3(5)
An_Asynchronous_Pragma, -- E.4.1(3)
An_Atomic_Pragma, -- C.6(3)
An_Atomic_Components_Pragma, -- C.6(5)
An_Attach_Handler_Pragma, -- C.3.1(4)
A_Controlled_Pragma, -- 13.11.3(3)
A_Convention_Pragma, -- B.1(7), M.1(5)
A_Discard_Names_Pragma, -- C.5(3)
An_Elaborate_Pragma, -- 10.2.1(20)
An_Elaborate_All_Pragma, -- 10.2.1(21)
An_Elaborate_Body_Pragma, -- 10.2.1(22)
An_Export_Pragma, -- B.1(5), M.1(5)
An_Import_Pragma, -- B.1(6), M.1(5)
An_Inline_Pragma, -- 6.3.2(3)
An_Inspection_Point_Pragma, -- H.3.2(3)
An_Interrupt_Handler_Pragma, -- C.3.1(2)
An_Interrupt_Priority_Pragma, -- D.1(5)
A_Linker_Options_Pragma, -- B.1(8)
A_List_Pragma, -- 2.8(21)
A_Locking_Policy_Pragma, -- D.3(3)
A_Normalize_Scalars_Pragma, -- H.1(3)
An_Optimize_Pragma, -- 2.8(23)
A_Pack_Pragma, -- 13.2(3)
A_Page_Pragma, -- 2.8(22)
A_Preelaborate_Pragma, -- 10.2.1(3)
A_Priority_Pragma, -- D.1(3)
A_Pure_Pragma, -- 10.2.1(14)
A_Queuing_Policy_Pragma, -- D.4(3)
A_Remote_Call_Interface_Pragma, -- E.2.3(3)
A_Remote_Types_Pragma, -- E.2.2(3)
A_Restrictions_Pragma, -- 13.12(3)
A_Reviewable_Pragma, -- H.3.1(3)
A_Shared_Passive_Pragma, -- E.2.1(3)
A_Storage_Size_Pragma, -- 13.3(63)
A_Suppress_Pragma, -- 11.5(4)
A_Task_Dispatching_Policy_Pragma, -- D.2.2(2)
A_Volatile_Pragma, -- C.6(4)
A_Volatile_Components_Pragma, -- C.6(6)
-- --|A2005 start
-- New Ada 2005 pragmas. To be alphabetically ordered later
An_Assert_Pragma,
An_Assertion_Policy_Pragma,
A_Detect_Blocking_Pragma,
A_No_Return_Pragma,
A_Partition_Elaboration_Policy_Pragma,
A_Preelaborable_Initialization_Pragma,
A_Priority_Specific_Dispatching_Pragma,
A_Profile_Pragma,
A_Relative_Deadline_Pragma,
An_Unchecked_Union_Pragma,
An_Unsuppress_Pragma,
-- --|A2005 end
An_Implementation_Defined_Pragma, -- 2.8(14)
An_Unknown_Pragma); -- Unknown to ASIS
------------------------------------------------------------------------------
-- 3.9.3 type Defining_Name_Kinds
------------------------------------------------------------------------------
-- Defining_Name_Kinds - names defined by declarations and specifications.
-- Literals -- Reference Manual
------------------------------------------------------------------------------
type Defining_Name_Kinds is (
Not_A_Defining_Name, -- An unexpected element
A_Defining_Identifier, -- 3.1(4)
A_Defining_Character_Literal, -- 3.5.1(4)
A_Defining_Enumeration_Literal, -- 3.5.1(3)
A_Defining_Operator_Symbol, -- 6.1(9)
A_Defining_Expanded_Name); -- 6.1(7)
-- program unit name defining_identifier
------------------------------------------------------------------------------
-- 3.9.4 type Declaration_Kinds
------------------------------------------------------------------------------
-- Declaration_Kinds - declarations and specifications having
-- defining name literals.
-- Reference Manual -> Subordinate Kinds
------------------------------------------------------------------------------
type Declaration_Kinds is (
Not_A_Declaration, -- An unexpected element
An_Ordinary_Type_Declaration, -- 3.2.1(3)
-- a full_type_declaration of the form:
-- type defining_identifier [known_discriminant_part] is
-- type_definition;
A_Task_Type_Declaration, -- 9.1(2)
A_Protected_Type_Declaration, -- 9.4(2)
An_Incomplete_Type_Declaration, -- 3.2.1(2),3.10(2)
-- --|A2005 start
A_Tagged_Incomplete_Type_Declaration, -- 3.10.1(2)
-- --|A2005 end
A_Private_Type_Declaration, -- 3.2.1(2),7.3(2) -> Trait_Kinds
A_Private_Extension_Declaration, -- 3.2.1(2),7.3(3) -> Trait_Kinds
A_Subtype_Declaration, -- 3.2.2(2)
A_Variable_Declaration, -- 3.3.1(2) -> Trait_Kinds
A_Constant_Declaration, -- 3.3.1(4) -> Trait_Kinds
A_Deferred_Constant_Declaration, -- 3.3.1(6),7.4(2) -> Trait_Kinds
A_Single_Task_Declaration, -- 3.3.1(2),9.1(3)
A_Single_Protected_Declaration, -- 3.3.1(2),9.4(2)
An_Integer_Number_Declaration, -- 3.3.2(2)
A_Real_Number_Declaration, -- 3.5.6(2)
An_Enumeration_Literal_Specification, -- 3.5.1(3)
A_Discriminant_Specification, -- 3.7(5) -> Trait_Kinds
A_Component_Declaration, -- 3.8(6)
A_Loop_Parameter_Specification, -- 5.5(4) -> Trait_Kinds
A_Procedure_Declaration, -- 6.1(4) -> Trait_Kinds
A_Function_Declaration, -- 6.1(4) -> Trait_Kinds
A_Parameter_Specification, -- 6.1(15) -> Trait_Kinds
-- -> Mode_Kinds
A_Procedure_Body_Declaration, -- 6.3(2)
A_Function_Body_Declaration, -- 6.3(2)
-- --|A2005 start
A_Return_Object_Declaration, -- 6.5
A_Null_Procedure_Declaration, -- 6.7
-- --|A2005 end
A_Package_Declaration, -- 7.1(2)
A_Package_Body_Declaration, -- 7.2(2)
An_Object_Renaming_Declaration, -- 8.5.1(2)
An_Exception_Renaming_Declaration, -- 8.5.2(2)
A_Package_Renaming_Declaration, -- 8.5.3(2)
A_Procedure_Renaming_Declaration, -- 8.5.4(2)
A_Function_Renaming_Declaration, -- 8.5.4(2)
A_Generic_Package_Renaming_Declaration, -- 8.5.5(2)
A_Generic_Procedure_Renaming_Declaration, -- 8.5.5(2)
A_Generic_Function_Renaming_Declaration, -- 8.5.5(2)
A_Task_Body_Declaration, -- 9.1(6)
A_Protected_Body_Declaration, -- 9.4(7)
An_Entry_Declaration, -- 9.5.2(2)
An_Entry_Body_Declaration, -- 9.5.2(5)
An_Entry_Index_Specification, -- 9.5.2(2)
A_Procedure_Body_Stub, -- 10.1.3(3)
A_Function_Body_Stub, -- 10.1.3(3)
A_Package_Body_Stub, -- 10.1.3(4)
A_Task_Body_Stub, -- 10.1.3(5)
A_Protected_Body_Stub, -- 10.1.3(6)
An_Exception_Declaration, -- 11.1(2)
A_Choice_Parameter_Specification, -- 11.2(4)
A_Generic_Procedure_Declaration, -- 12.1(2)
A_Generic_Function_Declaration, -- 12.1(2)
A_Generic_Package_Declaration, -- 12.1(2)
A_Package_Instantiation, -- 12.3(2)
A_Procedure_Instantiation, -- 12.3(2)
A_Function_Instantiation, -- 12.3(2)
A_Formal_Object_Declaration, -- 12.4(2) -> Mode_Kinds
A_Formal_Type_Declaration, -- 12.5(2)
A_Formal_Procedure_Declaration, -- 12.6(2)
-- -> Subprogram_Default_Kinds
A_Formal_Function_Declaration, -- 12.6(2)
-- -> Subprogram_Default_Kinds
A_Formal_Package_Declaration, -- 12.7(2)
A_Formal_Package_Declaration_With_Box); -- 12.7(3)
-- --|D2005 start
-- In Ada/ASIS 2005 A_Formal_Package_Declaration_With_Box does not make
-- any sense, because
--
-- with package P is Q (<>);
--
-- is exactly the same as
--
--
-- with package P is Q (others => <>);
--
-- So we need some Application Note saying that
-- A_Formal_Package_Declaration_With_Box is an obsolescent position in the
-- Element classification hierarchy and that it should be used very carefully
-- in ASIS 2005 applications because it does not represent anything special,
-- but just a special case of a A_Formal_Package_Declaration. Probably we
-- should recommend to use only
-- A_Formal_Package_Declaration .. A_Formal_Package_Declaration in ASIS 2005
-- applications. Do we need a special subtype like
--
-- subtype Formal_Package_Declarations is Declaration_Kinds range
-- A_Formal_Package_Declaration .. A_Formal_Package_Declaration;
-- --|D2005 end
-- The following Declaration_Kinds subtypes are not used by ASIS but are
-- provided for the convenience of the ASIS implementor:
subtype A_Type_Declaration is Declaration_Kinds range
An_Ordinary_Type_Declaration .. A_Private_Extension_Declaration;
subtype A_Full_Type_Declaration is Declaration_Kinds range
An_Ordinary_Type_Declaration .. A_Protected_Type_Declaration;
subtype An_Object_Declaration is Declaration_Kinds range
A_Variable_Declaration .. A_Single_Protected_Declaration;
subtype A_Number_Declaration is Declaration_Kinds range
An_Integer_Number_Declaration .. A_Real_Number_Declaration;
subtype A_Renaming_Declaration is Declaration_Kinds range
An_Object_Renaming_Declaration ..
A_Generic_Function_Renaming_Declaration;
subtype A_Body_Stub is Declaration_Kinds range
A_Procedure_Body_Stub .. A_Protected_Body_Stub;
subtype A_Generic_Declaration is Declaration_Kinds range
A_Generic_Procedure_Declaration .. A_Generic_Package_Declaration;
subtype A_Generic_Instantiation is Declaration_Kinds range
A_Package_Instantiation .. A_Function_Instantiation;
subtype A_Formal_Declaration is Declaration_Kinds range
A_Formal_Object_Declaration .. A_Formal_Package_Declaration_With_Box;
------------------------------------------------------------------------------
-- 3.9.5 type Trait_Kinds
------------------------------------------------------------------------------
-- Trait_Kinds
--
-- Trait_Kinds provide a means of further classifying the syntactic structure
-- or "trait" of certain A_Declaration and A_Definition elements.
-- Trait_Kinds are determined only by the presence (or absence) of certain
-- reserved words. The semantics of an element are not considered.
-- The reserved words of interest here are "abstract", "aliased", "limited",
-- "private", "reverse", and "access" when it appears in an access_definition.
-- Trait_Kinds enumerates all combinations useful in this classification.
--
-- For example, A_Variable_Declaration element that is semantically a
-- limited type because its components are of a limited type is
-- An_Ordinary_Trait, not A_Limited_Trait, since the reserved word "limited"
-- does not appear in its declaration or definition.
--
-- The subordinate Trait_Kinds allow Declaration_Kinds and Definition_Kinds
-- to enumerate fewer higher level elements, and be less cluttered by all
-- possible permutations of syntactic possibilities. For example, in the case
-- of a record_type_definition, Definition_Kinds can provide just two literals
-- that differentiate between ordinary record types and tagged record types:
--
-- A_Record_Type_Definition, -- 3.8(2) -> Trait_Kinds
-- A_Tagged_Record_Type_Definition, -- 3.8(2) -> Trait_Kinds
--
-- The remaining classification can be accomplished, if desired, using
-- Trait_Kinds to determine if the definition is abstract, or limited, or
-- both. Without Trait_Kinds, Definition_Kinds needs six literals to identify
-- all the syntactic combinations for a record_type_definition.
--
-- Elements expected by the Trait_Kind query are any Declaration_Kinds or
-- Definition_Kinds for which Trait_Kinds is a subordinate kind: the literal
-- definition has "-> Trait_Kinds" following it. For example, the
-- definitions of:
--
-- A_Discriminant_Specification, -- 3.7(5) -> Trait_Kinds
-- A_Component_Declaration, -- 3.8(6)
--
-- indicate A_Discriminant_Specification is an expected kind while
-- A_Component_Declaration is unexpected.
--
-- All Declaration_Kinds and Definition_Kinds for which Trait_Kinds is not a
-- subordinate kind, and all other Element_Kinds, are unexpected and are
-- Not_A_Trait.
--
-- An_Ordinary_Trait is any expected element whose syntax does not explicitly
-- contain any of the reserved words listed above.
--
------------------------------------------------------------------------------
-- Trait_Kinds
-- Literals
------------------------------------------------------------------------------
type Trait_Kinds is (
Not_A_Trait, -- An unexpected element
An_Ordinary_Trait,
-- The declaration or definition does not contain the reserved words
-- "aliased", "reverse", "private", "limited", "abstract", or "access"
-- in an access_definition
An_Aliased_Trait,
-- "aliased" is present
An_Access_Definition_Trait,
-- "access" in an access_definition is present
-- --|A2005 start
A_Null_Exclusion_Trait,
-- "not null" is present
-- --|A2005 end
A_Reverse_Trait,
-- "reverse" is present
A_Private_Trait,
-- Only "private" is present
A_Limited_Trait,
-- Only "limited" is present
A_Limited_Private_Trait,
-- "limited" and "private" are present
An_Abstract_Trait,
-- Only "abstract" is present
An_Abstract_Private_Trait,
-- "abstract" and "private" are present
An_Abstract_Limited_Trait,
-- "abstract" and "limited" are present
An_Abstract_Limited_Private_Trait);
-- "abstract", "limited", and "private" are present
-- --|D2005 start
-- We need a note saying that An_Access_Definition_Trait is an obsolescent
-- value kept only because of upward compatibility reasons. Now an
-- access_definition that defines an anonymous access kind is represented as
-- a first-class citizen in the ASIS Element classification hierarchy
-- (An_Access_Definition value in Definition_Kinds and the subordinate
-- Access_Definition_Kinds type).
-- --|D2005 end
------------------------------------------------------------------------------
-- 3.9.6 type Declaration_Origins
------------------------------------------------------------------------------
-- Declaration_Origins
-- Literals -- Reference Manual
------------------------------------------------------------------------------
type Declaration_Origins is (
Not_A_Declaration_Origin,
-- An unexpected element
An_Explicit_Declaration,
-- 3.1(5) explicitly declared in the text of a program, or within
-- an expanded generic template
An_Implicit_Predefined_Declaration,
-- 3.1(5), 3.2.3(1), A.1(2)
An_Implicit_Inherited_Declaration);
-- 3.1(5), 3.4(6-35)
------------------------------------------------------------------------------
-- 3.9.7 type Mode_Kinds
------------------------------------------------------------------------------
-- Mode_Kinds
-- Literals -- Reference Manual
------------------------------------------------------------------------------
type Mode_Kinds is ( -- 6.1
Not_A_Mode, -- An unexpected element
A_Default_In_Mode, -- procedure A(B : C);
An_In_Mode, -- procedure A(B : IN C);
An_Out_Mode, -- procedure A(B : OUT C);
An_In_Out_Mode); -- procedure A(B : IN OUT C);
------------------------------------------------------------------------------
-- 3.9.8 type Subprogram_Default_Kinds
------------------------------------------------------------------------------
-- Subprogram_Default_Kinds
-- Literals -- Reference Manual
------------------------------------------------------------------------------
type Subprogram_Default_Kinds is ( -- 12.6
Not_A_Default, -- An unexpected element
A_Name_Default, -- with subprogram_specification is default_name;
A_Box_Default, -- with subprogram_specification is <>;
-- --|A2005 start
A_Null_Default, -- with subprogram_specification is null;
-- --|A2005 end
A_Nil_Default); -- with subprogram_specification;
------------------------------------------------------------------------------
-- 3.9.9 type Definition_Kinds
------------------------------------------------------------------------------
-- Definition_Kinds
-- Literals -- Reference Manual -> Subordinate Kinds
------------------------------------------------------------------------------
type Definition_Kinds is (
Not_A_Definition, -- An unexpected element
A_Type_Definition, -- 3.2.1(4) -> Type_Kinds
A_Subtype_Indication, -- 3.2.2(3)
A_Constraint, -- 3.2.2(5) -> Constraint_Kinds
A_Component_Definition, -- 3.6(7) -> Trait_Kinds
A_Discrete_Subtype_Definition, -- 3.6(6) -> Discrete_Range_Kinds
A_Discrete_Range, -- 3.6.1(3) -> Discrete_Range_Kinds
An_Unknown_Discriminant_Part, -- 3.7(3)
A_Known_Discriminant_Part, -- 3.7(2)
A_Record_Definition, -- 3.8(3)
A_Null_Record_Definition, -- 3.8(3)
A_Null_Component, -- 3.8(4)
A_Variant_Part, -- 3.8.1(2)
A_Variant, -- 3.8.1(3)
An_Others_Choice, -- 3.8.1(5), 4.3.1(5), 4.3.3(5), 11.2(5)
-- --|A2005 start
An_Access_Definition, -- 3.10(6/2) -> Access_Definition_Kinds
-- --|A2005 end
A_Private_Type_Definition, -- 7.3(2) -> Trait_Kinds
A_Tagged_Private_Type_Definition, -- 7.3(2) -> Trait_Kinds
A_Private_Extension_Definition, -- 7.3(3) -> Trait_Kinds
A_Task_Definition, -- 9.1(4)
A_Protected_Definition, -- 9.4(4)
A_Formal_Type_Definition); -- 12.5(3) -> Formal_Type_Kinds
------------------------------------------------------------------------------
-- 3.9.10 type Type_Kinds
------------------------------------------------------------------------------
-- Type_Kinds
-- Literals -- Reference Manual -> Subordinate Kinds
------------------------------------------------------------------------------
type Type_Kinds is (
Not_A_Type_Definition, -- An unexpected element
A_Derived_Type_Definition, -- 3.4(2) -> Trait_Kinds
A_Derived_Record_Extension_Definition, -- 3.4(2) -> Trait_Kinds
An_Enumeration_Type_Definition, -- 3.5.1(2)
A_Signed_Integer_Type_Definition, -- 3.5.4(3)
A_Modular_Type_Definition, -- 3.5.4(4)
A_Root_Type_Definition, -- 3.5.4(14), 3.5.6(3)
-- -> Root_Type_Kinds
A_Floating_Point_Definition, -- 3.5.7(2)
An_Ordinary_Fixed_Point_Definition, -- 3.5.9(3)
A_Decimal_Fixed_Point_Definition, -- 3.5.9(6)
An_Unconstrained_Array_Definition, -- 3.6(2)
A_Constrained_Array_Definition, -- 3.6(2)
A_Record_Type_Definition, -- 3.8(2) -> Trait_Kinds
A_Tagged_Record_Type_Definition, -- 3.8(2) -> Trait_Kinds
-- --|A2005 start
An_Interface_Type_Definition, -- 3.9.4 -> Interface_Kinds
-- --|A2005 end
An_Access_Type_Definition); -- 3.10(2) -> Access_Type_Kinds
------------------------------------------------------------------------------
-- 3.9.11 type Formal_Type_Kinds
------------------------------------------------------------------------------
-- Formal_Type_Kinds
-- Literals -- Reference Manual -> Subordinate Kinds
------------------------------------------------------------------------------
type Formal_Type_Kinds is (
Not_A_Formal_Type_Definition, -- An unexpected element
A_Formal_Private_Type_Definition, -- 12.5.1(2) -> Trait_Kinds
A_Formal_Tagged_Private_Type_Definition, -- 12.5.1(2) -> Trait_Kinds
A_Formal_Derived_Type_Definition, -- 12.5.1(3) -> Trait_Kinds
A_Formal_Discrete_Type_Definition, -- 12.5.2(2)
A_Formal_Signed_Integer_Type_Definition, -- 12.5.2(3)
A_Formal_Modular_Type_Definition, -- 12.5.2(4)
A_Formal_Floating_Point_Definition, -- 12.5.2(5)
A_Formal_Ordinary_Fixed_Point_Definition, -- 12.5.2(6)
A_Formal_Decimal_Fixed_Point_Definition, -- 12.5.2(7)
-- --|A2005 start
A_Formal_Interface_Type_Definition, -- 12.5.5(2) -> Interface_Kinds
-- --|D2005 start
-- Do we really need this value in Formal_Type_Kinds? There is no
-- difference between it and An_Interface_Type_Definition. The only
-- reason to have it is not to break the ASIS 95 idea tp have separate
-- values representing definitions of formal kinds
-- --|D2005 end
-- --|A2005 end
A_Formal_Unconstrained_Array_Definition, -- 3.6(3)
A_Formal_Constrained_Array_Definition, -- 3.6(5)
A_Formal_Access_Type_Definition); -- 3.10(3),3.10(5)
-- -> Access_Type_Kinds
------------------------------------------------------------------------------
-- 3.9.12 type Access_Type_Kinds
------------------------------------------------------------------------------
-- Access_Type_Kinds
-- Literals -- Reference Manual
------------------------------------------------------------------------------
type Access_Type_Kinds is ( -- 3.10
Not_An_Access_Type_Definition, -- An unexpected element
A_Pool_Specific_Access_To_Variable, -- access subtype_indication
An_Access_To_Variable, -- access all subtype_indication
An_Access_To_Constant, -- access constant subtype_indication
An_Access_To_Procedure, -- access procedure
An_Access_To_Protected_Procedure, -- access protected procedure
An_Access_To_Function, -- access function
An_Access_To_Protected_Function); -- access protected function
-- The following Access_Type_Kinds subtypes are not used by ASIS but are
-- provided for the convenience of the ASIS implementor:
subtype Access_To_Object_Definition is Access_Type_Kinds range
A_Pool_Specific_Access_To_Variable .. An_Access_To_Constant;
subtype Access_To_Subprogram_Definition is Access_Type_Kinds range
An_Access_To_Procedure .. An_Access_To_Protected_Function;
-------------------------------------------------------------------------------
-- --|A2005 start
-- 3.9.#??? type Interface_Kinds
------------------------------------------------------------------------------
-- Interface_Kinds
-- Literals -- Reference Manual
------------------------------------------------------------------------------
type Interface_Kinds is ( -- 3.9.4
Not_An_Interface, -- An unexpected element
An_Ordinary_Interface, -- interface ...
A_Limited_Interface, -- limited interface ...
A_Task_Interface, -- task interface ...
A_Protected_Interface, -- protected interface ...
A_Synchronized_Interface); -- synchronized interface ...
------------------------------------------------------------------------------
-- 3.9.#??? type Access_Definition_Kinds
------------------------------------------------------------------------------
-- Access_Definition_Kinds
-- Literals -- Reference Manual
------------------------------------------------------------------------------
type Access_Definition_Kinds is ( -- 3.10
Not_An_Access_Definition, -- An unexpected element
An_Anonymous_Access_To_Variable, -- [...] access subtype_mark
An_Anonymous_Access_To_Constant, -- [...] access constant subtype_mark
An_Anonymous_Access_To_Procedure, -- access procedure
An_Anonymous_Access_To_Protected_Procedure, -- access protected procedure
An_Anonymous_Access_To_Function, -- access function
An_Anonymous_Access_To_Protected_Function); -- access protected function
-- --|A2005 end
-------------------------------------------------------------------------------
-- 3.9.13 type Root_Type_Kinds
------------------------------------------------------------------------------
-- Root_Type_Kinds
-- Literals -- Reference Manual
------------------------------------------------------------------------------
type Root_Type_Kinds is (
Not_A_Root_Type_Definition, -- An unexpected element
A_Root_Integer_Definition, -- 3.4.1(8)
A_Root_Real_Definition, -- 3.4.1(8)
A_Universal_Integer_Definition, -- 3.4.1(6)
A_Universal_Real_Definition, -- 3.4.1(6)
A_Universal_Fixed_Definition); -- 3.4.1(6)
------------------------------------------------------------------------------
-- 3.9.14 type Constraint_Kinds
------------------------------------------------------------------------------
-- Constraint_Kinds
-- Literals -- Reference Manual
------------------------------------------------------------------------------
type Constraint_Kinds is (
Not_A_Constraint, -- An unexpected element
A_Range_Attribute_Reference, -- 3.5(2)
A_Simple_Expression_Range, -- 3.2.2, 3.5(3)
A_Digits_Constraint, -- 3.2.2, 3.5.9
A_Delta_Constraint, -- 3.2.2, J.3
An_Index_Constraint, -- 3.2.2, 3.6.1
A_Discriminant_Constraint); -- 3.2.2
------------------------------------------------------------------------------
-- 3.9.15 type Discrete_Range_Kinds
------------------------------------------------------------------------------
-- Discrete_Range_Kinds
-- Literals -- Reference Manual
------------------------------------------------------------------------------
type Discrete_Range_Kinds is (
Not_A_Discrete_Range, -- An unexpected element
A_Discrete_Subtype_Indication, -- 3.6.1(6), 3.2.2
A_Discrete_Range_Attribute_Reference, -- 3.6.1, 3.5
A_Discrete_Simple_Expression_Range); -- 3.6.1, 3.5
------------------------------------------------------------------------------
-- 3.9.16 type Association_Kinds
------------------------------------------------------------------------------
-- Association_Kinds
-- Literals -- Reference Manual
------------------------------------------------------------------------------
type Association_Kinds is (
Not_An_Association, -- An unexpected element
A_Pragma_Argument_Association, -- 2.8
A_Discriminant_Association, -- 3.7.1
A_Record_Component_Association, -- 4.3.1
An_Array_Component_Association, -- 4.3.3
A_Parameter_Association, -- 6.4
A_Generic_Association); -- 12.3
------------------------------------------------------------------------------
-- 3.9.17 type Expression_Kinds
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Expression_Kinds - general expression classifications
-- Literals -- Reference Manual -> Subordinate Kinds
------------------------------------------------------------------------------
type Expression_Kinds is (
Not_An_Expression, -- An unexpected element
An_Integer_Literal, -- 2.4
A_Real_Literal, -- 2.4.1
A_String_Literal, -- 2.6
An_Identifier, -- 4.1
An_Operator_Symbol, -- 4.1
A_Character_Literal, -- 4.1
An_Enumeration_Literal, -- 4.1
An_Explicit_Dereference, -- 4.1
A_Function_Call, -- 4.1
An_Indexed_Component, -- 4.1.1
A_Slice, -- 4.1.2
A_Selected_Component, -- 4.1.3
An_Attribute_Reference, -- 4.1.4 -> Attribute_Kinds
A_Record_Aggregate, -- 4.3
An_Extension_Aggregate, -- 4.3
A_Positional_Array_Aggregate, -- 4.3
A_Named_Array_Aggregate, -- 4.3
An_And_Then_Short_Circuit, -- 4.4
An_Or_Else_Short_Circuit, -- 4.4
An_In_Range_Membership_Test, -- 4.4
A_Not_In_Range_Membership_Test, -- 4.4
An_In_Type_Membership_Test, -- 4.4
A_Not_In_Type_Membership_Test, -- 4.4
A_Null_Literal, -- 4.4
A_Parenthesized_Expression, -- 4.4
A_Type_Conversion, -- 4.6
A_Qualified_Expression, -- 4.7
An_Allocation_From_Subtype, -- 4.8
An_Allocation_From_Qualified_Expression, -- 4.8
A_Conditional_Expression -- Ada 2015
);
------------------------------------------------------------------------------
-- 3.9.18 type Operator_Kinds
------------------------------------------------------------------------------
-- Operator_Kinds - classification of the various Ada predefined operators
-- Literals -- Reference Manual
------------------------------------------------------------------------------
type Operator_Kinds is ( -- 4.5
Not_An_Operator, -- An unexpected element
An_And_Operator, -- and
An_Or_Operator, -- or
An_Xor_Operator, -- xor
An_Equal_Operator, -- =
A_Not_Equal_Operator, -- /=
A_Less_Than_Operator, -- <
A_Less_Than_Or_Equal_Operator, -- <=
A_Greater_Than_Operator, -- >
A_Greater_Than_Or_Equal_Operator, -- >=
A_Plus_Operator, -- +
A_Minus_Operator, -- -
A_Concatenate_Operator, -- &
A_Unary_Plus_Operator, -- +
A_Unary_Minus_Operator, -- -
A_Multiply_Operator, -- *
A_Divide_Operator, -- /
A_Mod_Operator, -- mod
A_Rem_Operator, -- rem
An_Exponentiate_Operator, -- **
An_Abs_Operator, -- abs
A_Not_Operator); -- not
------------------------------------------------------------------------------
-- 3.9.19 type Attribute_Kinds
------------------------------------------------------------------------------
-- Attribute_Kinds - classifications for all known Ada attributes
-- Literals -- Reference Manual
------------------------------------------------------------------------------
type Attribute_Kinds is (
Not_An_Attribute, -- An unexpected element
An_Access_Attribute, -- 3.10.2(24), 3.10.2(32), K(2), K(4)
An_Address_Attribute, -- 13.3(11), J.7.1(5), K(6)
An_Adjacent_Attribute, -- A.5.3(48), K(8)
An_Aft_Attribute, -- 3.5.10(5), K(12)
An_Alignment_Attribute, -- 13.3(23), K(14)
A_Base_Attribute, -- 3.5(15), K(17)
A_Bit_Order_Attribute, -- 13.5.3(4), K(19)
A_Body_Version_Attribute, -- E.3(4), K(21)
A_Callable_Attribute, -- 9.9(2), K(23)
A_Caller_Attribute, -- C.7.1(14), K(25)
A_Ceiling_Attribute, -- A.5.3(33), K(27)
A_Class_Attribute, -- 3.9(14), 7.3.1(9), K(31), K(34)
A_Component_Size_Attribute, -- 13.3(69), K(36)
A_Compose_Attribute, -- A.5.3(24), K(38)
A_Constrained_Attribute, -- 3.7.2(3), J.4(2), K(42)
A_Copy_Sign_Attribute, -- A.5.3(51), K(44)
A_Count_Attribute, -- 9.9(5), K(48)
A_Definite_Attribute, -- 12.5.1(23), K(50)
A_Delta_Attribute, -- 3.5.10(3), K(52)
A_Denorm_Attribute, -- A.5.3(9), K(54)
A_Digits_Attribute, -- 3.5.8(2), 3.5.10(7), K(56), K(58)
An_Exponent_Attribute, -- A.5.3(18), K(60)
An_External_Tag_Attribute, -- 13.3(75), K(64)
A_First_Attribute, -- 3.5(12), 3.6.2(3), K(68), K(70)
A_First_Bit_Attribute, -- 13.5.2(3), K(72)
A_Floor_Attribute, -- A.5.3(30), K(74)
A_Fore_Attribute, -- 3.5.10(4), K(78)
A_Fraction_Attribute, -- A.5.3(21), K(80)
An_Identity_Attribute, -- 11.4.1(9), C.7.1(12), K(84), K(86)
An_Image_Attribute, -- 3.5(35), K(88)
An_Input_Attribute, -- 13.13.2(22), 13.13.2(32), K(92), K(96)
A_Last_Attribute, -- 3.5(13), 3.6.2(5), K(102), K(104)
A_Last_Bit_Attribute, -- 13.5.2(4), K(106)
A_Leading_Part_Attribute, -- A.5.3(54), K(108)
A_Length_Attribute, -- 3.6.2(9), K(117)
A_Machine_Attribute, -- A.5.3(60), K(119)
A_Machine_Emax_Attribute, -- A.5.3(8), K(123)
A_Machine_Emin_Attribute, -- A.5.3(7), K(125)
A_Machine_Mantissa_Attribute, -- A.5.3(6), K(127)
A_Machine_Overflows_Attribute, -- A.5.3(12), A.5.4(4), K(129), K(131)
A_Machine_Radix_Attribute, -- A.5.3(2), A.5.4(2), K(133), K(135)
A_Machine_Rounds_Attribute, -- A.5.3(11), A.5.4(3), K(137), K(139)
A_Max_Attribute, -- 3.5(19), K(141)
A_Max_Size_In_Storage_Elements_Attribute, -- 13.11.1(3), K(145)
A_Min_Attribute, -- 3.5(16), K(147)
A_Model_Attribute, -- A.5.3(68), G.2.2(7), K(151)
A_Model_Emin_Attribute, -- A.5.3(65), G.2.2(4), K(155)
A_Model_Epsilon_Attribute, -- A.5.3(66), K(157)
A_Model_Mantissa_Attribute, -- A.5.3(64), G.2.2(3), K(159)
A_Model_Small_Attribute, -- A.5.3(67), K(161)
A_Modulus_Attribute, -- 3.5.4(17), K(163)
An_Output_Attribute, -- 13.13.2(19), 13.13.2(29), K(165), K(169)
A_Partition_ID_Attribute, -- E.1(9), K(173)
A_Pos_Attribute, -- 3.5.5(2), K(175)
A_Position_Attribute, -- 13.5.2(2), K(179)
A_Pred_Attribute, -- 3.5(25), K(181)
A_Range_Attribute, -- 3.5(14), 3.6.2(7), K(187), รบ(189)
A_Read_Attribute, -- 13.13.2(6), 13.13.2(14), K(191), K(195)
A_Remainder_Attribute, -- A.5.3(45), K(199)
A_Round_Attribute, -- 3.5.10(12), K(203)
A_Rounding_Attribute, -- A.5.3(36), K(207)
A_Safe_First_Attribute, -- A.5.3(71), G.2.2(5), K(211)
A_Safe_Last_Attribute, -- A.5.3(72), G.2.2(6), K(213)
A_Scale_Attribute, -- 3.5.10(11), K(215)
A_Scaling_Attribute, -- A.5.3(27), K(217)
A_Signed_Zeros_Attribute, -- A.5.3(13), K(221)
A_Size_Attribute, -- 13.3(40), 13.3(45), K(223), K(228)
A_Small_Attribute, -- 3.5.10(2), K(230)
A_Storage_Pool_Attribute, -- 13.11(13), K(232)
A_Storage_Size_Attribute, -- 13.3(60), 13.11(14), J.9(2), K(234),
-- K(236)
A_Succ_Attribute, -- 3.5(22), K(238)
A_Tag_Attribute, -- 3.9(16), 3.9(18), K(242), K(244)
A_Terminated_Attribute, -- 9.9(3), K(246)
A_Truncation_Attribute, -- A.5.3(42), K(248)
An_Unbiased_Rounding_Attribute, -- A.5.3(39), K(252)
An_Unchecked_Access_Attribute, -- 13.10(3), H.4(18), K(256)
A_Val_Attribute, -- 3.5.5(5), K(258)
A_Valid_Attribute, -- 13.9.2(3), H(6), K(262)
A_Value_Attribute, -- 3.5(52), K(264)
A_Version_Attribute, -- E.3(3), K(268)
A_Wide_Image_Attribute, -- 3.5(28), K(270)
A_Wide_Value_Attribute, -- 3.5(40), K(274)
A_Wide_Width_Attribute, -- 3.5(38), K(278)
A_Width_Attribute, -- 3.5(39), K(280)
A_Write_Attribute, -- 13.13.2(3), 13.13.2(11), K(282), K(286)
-- |A2006 start
-- New Ada 2005 attributes. To be alphabetically ordered later
A_Machine_Rounding_Attribute,
A_Mod_Attribute,
A_Priority_Attribute,
A_Stream_Size_Attribute,
A_Wide_Wide_Image_Attribute,
A_Wide_Wide_Value_Attribute,
A_Wide_Wide_Width_Attribute,
-- |A2006 end
An_Implementation_Defined_Attribute, -- Reference Manual, Annex M
An_Unknown_Attribute); -- Unknown to ASIS
-- --|A2015 start
--
-- To decompose a conditional expression, we suggest to use the same approach
-- as for IF statement - that is, the first-level components of a conditional
-- expressions are expressions PATH elements
type Expression_Path_Kinds is (
Not_An_Expression_Path,
-- An unexpected element
An_If_Expression_Path,
-- if condition then expression
An_Elsif_Expression_Path,
-- elsif condition then expresion
An_Else_Expression_Path);
-- else expression
-- --|A2015 end
------------------------------------------------------------------------------
-- 3.9.20 type Statement_Kinds
------------------------------------------------------------------------------
-- Statement_Kinds - classifications of Ada statements
-- Literals -- Reference Manual
------------------------------------------------------------------------------
type Statement_Kinds is (
Not_A_Statement, -- An unexpected element
A_Null_Statement, -- 5.1
An_Assignment_Statement, -- 5.2
An_If_Statement, -- 5.3
A_Case_Statement, -- 5.4
A_Loop_Statement, -- 5.5
A_While_Loop_Statement, -- 5.5
A_For_Loop_Statement, -- 5.5
A_Block_Statement, -- 5.6
An_Exit_Statement, -- 5.7
A_Goto_Statement, -- 5.8
A_Procedure_Call_Statement, -- 6.4
A_Return_Statement, -- 6.5
-- --|A2005 start
An_Extended_Return_Statement, -- 6.5
-- --|A2005 end
An_Accept_Statement, -- 9.5.2
An_Entry_Call_Statement, -- 9.5.3
A_Requeue_Statement, -- 9.5.4
A_Requeue_Statement_With_Abort, -- 9.5.4
A_Delay_Until_Statement, -- 9.6
A_Delay_Relative_Statement, -- 9.6
A_Terminate_Alternative_Statement, -- 9.7.1
A_Selective_Accept_Statement, -- 9.7.1
A_Timed_Entry_Call_Statement, -- 9.7.2
A_Conditional_Entry_Call_Statement, -- 9.7.3
An_Asynchronous_Select_Statement, -- 9.7.4
An_Abort_Statement, -- 9.8
A_Raise_Statement, -- 11.3
A_Code_Statement); -- 13.8
------------------------------------------------------------------------------
-- 3.9.21 type Path_Kinds
------------------------------------------------------------------------------
-- Path_Kinds
--
-- A_Path elements represent execution path alternatives presented by the
-- if_statement, case_statement, and the four forms of select_statement.
-- Each statement path alternative encloses component elements that
-- represent a sequence_of_statements. Some forms of A_Path elements also
-- have as a component elements that represent a condition, an optional
-- guard, or a discrete_choice_list.
--
-- ASIS treats the select_alternative, entry_call_alternative, and
-- triggering_alternative, as the syntactic equivalent of a
-- sequence_of_statements. Specifically, the terminate_alternative
-- (terminate;) is treated as the syntactical equivalent of a single statement
-- and are represented as Statement_Kinds'A_Terminate_Alternative_Statement.
-- This allows queries to directly provide the sequence_of_statements enclosed
-- by A_Path elements, avoiding the extra step of returning an element
-- representing such an alternative.
--
-- For example,
--
-- select -- A_Select_Path enclosing a sequence of two statements
--
-- accept Next_Work_Item(WI : in Work_Item) do
-- Current_Work_Item := WI;
-- end;
-- Process_Work_Item(Current_Work_Item);
--
-- or -- An_Or_Path enclosing a guard and a sequence of two statements
--
-- when Done_Early =>
-- accept Shut_Down;
-- exit;
--
-- or -- An_Or_Path enclosing a sequence with only a single statement
--
-- terminate;
--
-- end select;
--
------------------------------------------------------------------------------
-- Path_Kinds
-- Literals -- Reference Manual
------------------------------------------------------------------------------
type Path_Kinds is (
Not_A_Path,
-- An unexpected element
An_If_Path,
-- 5.3:
-- if condition then
-- sequence_of_statements
An_Elsif_Path,
-- 5.3:
-- elsif condition then
-- sequence_of_statements
An_Else_Path,
-- 5.3, 9.7.1, 9.7.3:
-- else sequence_of_statements
A_Case_Path,
-- 5.4:
-- when discrete_choice_list =>
-- sequence_of_statements
A_Select_Path,
-- 9.7.1:
-- select [guard] select_alternative
-- 9.7.2, 9.7.3:
-- select entry_call_alternative
-- 9.7.4:
-- select triggering_alternative
An_Or_Path,
-- 9.7.1:
-- or [guard] select_alternative
-- 9.7.2:
-- or delay_alternative
A_Then_Abort_Path);
-- 9.7.4
-- then abort sequence_of_statements
------------------------------------------------------------------------------
-- 3.9.22 type Clause_Kinds
------------------------------------------------------------------------------
-- Clause_Kinds
-- Literals -- Reference Manual -> Subordinate Kinds
------------------------------------------------------------------------------
type Clause_Kinds is (
Not_A_Clause, -- An unexpected element
A_Use_Package_Clause, -- 8.4
A_Use_Type_Clause, -- 8.4
A_With_Clause, -- 10.1.2
A_Representation_Clause, -- 13.1 -> Representation_Clause_Kinds
A_Component_Clause); -- 13.5.1
------------------------------------------------------------------------------
-- 3.9.23 type Representation_Clause_Kinds
------------------------------------------------------------------------------
-- Representation_Clause_Kinds - varieties of representation clauses
-- Literals -- Reference Manual
------------------------------------------------------------------------------
type Representation_Clause_Kinds is (
Not_A_Representation_Clause, -- An unexpected element
An_Attribute_Definition_Clause, -- 13.3
An_Enumeration_Representation_Clause, -- 13.4
A_Record_Representation_Clause, -- 13.5.1
An_At_Clause); -- J.7
------------------------------------------------------------------------------
-- 3.10 type Compilation_Unit
------------------------------------------------------------------------------
-- The Ada Compilation Unit abstraction:
--
-- The text of a program is submitted to the compiler in one or more
-- compilations. Each compilation is a succession of compilation units.
--
-- Compilation units are composed of three distinct parts:
-- a) A context clause.
-- b) The declaration of a library_item or unit.
-- c) Pragmas that apply to the compilation, of which the unit is a
-- part.
--
-- The context clause contains zero or more with clauses, use clauses,
-- pragma elaborates, and possibly other pragmas.
--
-- ASIS treats Pragmas that appear immediately after the context clause
-- and before the subsequent declaration part as belonging to the context
-- clause part.
--
-- The declaration associated with a compilation unit is one of: a
-- package, a procedure, a function, a generic, or a subunit for normal units.
-- The associated declaration is a Nil_Element for An_Unknown_Unit and
-- Nonexistent units.
--
-- The abstract type Compilation_Unit is a handle for compilation units as a
-- whole. An object of the type Compilation_Unit deals with the external view
-- of compilation units such as their relationships with other units or their
-- compilation attributes.
--
-- Compilation_Unit shall be an undiscriminated private type.
------------------------------------------------------------------------------
type Compilation_Unit is private;
Nil_Compilation_Unit : constant Compilation_Unit;
function "="
(Left : Compilation_Unit;
Right : Compilation_Unit)
return Boolean is abstract;
------------------------------------------------------------------------------
-- 3.11 type Compilation_Unit_List
------------------------------------------------------------------------------
type Compilation_Unit_List is
array (List_Index range <>) of Compilation_Unit;
Nil_Compilation_Unit_List : constant Compilation_Unit_List;
------------------------------------------------------------------------------
-- 3.12 Unit Kinds
------------------------------------------------------------------------------
-- Unit Kinds are enumeration types describing the various kinds of units.
-- These element kinds are only used by package Asis.Compilation_Units.
------------------------------------------------------------------------------
-- 3.12.1 type Unit_Kinds
------------------------------------------------------------------------------
-- Unit_Kinds - the varieties of compilation units of compilations,
-- including compilations having no compilation units but consisting of
-- configuration pragmas or comments.
------------------------------------------------------------------------------
type Unit_Kinds is (
Not_A_Unit,
-- A Nil_Compilation_Unit
A_Procedure,
A_Function,
A_Package,
A_Generic_Procedure,
A_Generic_Function,
A_Generic_Package,
A_Procedure_Instance,
A_Function_Instance,
A_Package_Instance,
A_Procedure_Renaming,
A_Function_Renaming,
A_Package_Renaming,
A_Generic_Procedure_Renaming,
A_Generic_Function_Renaming,
A_Generic_Package_Renaming,
A_Procedure_Body,
-- A unit interpreted only as the completion of a procedure, or a unit
-- interpreted as both the declaration and body of a library
-- procedure. Reference Manual 10.1.4(4)
A_Function_Body,
-- A unit interpreted only as the completion of a function, or a unit
-- interpreted as both the declaration and body of a library
-- function. Reference Manual 10.1.4(4)
A_Package_Body,
A_Procedure_Body_Subunit,
A_Function_Body_Subunit,
A_Package_Body_Subunit,
A_Task_Body_Subunit,
A_Protected_Body_Subunit,
A_Nonexistent_Declaration,
-- A unit that does not exist but is:
-- 1) mentioned in a with clause of another unit or,
-- 2) a required corresponding library_unit_declaration
A_Nonexistent_Body,
-- A unit that does not exist but is:
-- 1) known to be a corresponding subunit or,
-- 2) a required corresponding library_unit_body
A_Configuration_Compilation,
-- Corresponds to the whole content of a compilation with no
-- compilation_unit, but possibly containing comments, configuration
-- pragmas, or both. Any Context can have at most one unit of
-- A_Configuration_Compilation kind. A unit of
-- A_Configuration_Compilation does not have a name. This unit
-- represents configuration pragmas that are "in effect".
An_Unknown_Unit);
-- An indeterminable or proprietary unit
subtype A_Subprogram_Declaration is Unit_Kinds range
A_Procedure .. A_Function;
subtype A_Subprogram_Renaming is Unit_Kinds range
A_Procedure_Renaming .. A_Function_Renaming;
subtype A_Generic_Unit_Declaration is Unit_Kinds range
A_Generic_Procedure .. A_Generic_Package;
subtype A_Generic_Unit_Instance is Unit_Kinds range
A_Procedure_Instance .. A_Package_Instance;
subtype A_Subprogram_Body is Unit_Kinds range
A_Procedure_Body .. A_Function_Body;
subtype A_Library_Unit_Body is Unit_Kinds range
A_Procedure_Body .. A_Package_Body;
subtype A_Generic_Renaming is Unit_Kinds range
A_Generic_Procedure_Renaming .. A_Generic_Package_Renaming;
subtype A_Renaming is Unit_Kinds range
A_Procedure_Renaming .. A_Generic_Package_Renaming;
subtype A_Subunit is Unit_Kinds range
A_Procedure_Body_Subunit .. A_Protected_Body_Subunit;
------------------------------------------------------------------------------
-- 3.12.2 type Unit_Classes
------------------------------------------------------------------------------
-- Unit_Classes - classification of public, private, body, and subunit.
------------------------------------------------------------------------------
type Unit_Classes is ( -- Reference Manual 10.1.1(12), 10.1.3
Not_A_Class,
-- A nil, nonexistent, unknown, or configuration compilation unit class.
A_Public_Declaration,
-- library_unit_declaration or library_unit_renaming_declaration.
A_Public_Body,
-- library_unit_body interpreted only as a completion. Its declaration
-- is public.
A_Public_Declaration_And_Body,
-- subprogram_body interpreted as both a declaration and body of a
-- library subprogram - Reference Manual 10.1.4(4).
A_Private_Declaration,
-- private library_unit_declaration or private
-- library_unit_renaming_declaration.
A_Private_Body,
-- library_unit_body interpreted only as a completion. Its declaration
-- is private.
A_Separate_Body);
-- separate (parent_unit_name) proper_body.
------------------------------------------------------------------------------
-- 3.12.3 type Unit_Origins
------------------------------------------------------------------------------
-- Unit_Origins - classification of possible unit origination
------------------------------------------------------------------------------
type Unit_Origins is (
Not_An_Origin,
-- A nil or nonexistent unit origin. An_Unknown_Unit can be any origin
A_Predefined_Unit,
-- Ada predefined language environment units listed in Annex A(2).
-- These include Standard and the three root library units: Ada,
-- Interfaces, and System, and their descendants. i.e., Ada.Text_Io,
-- Ada.Calendar, Interfaces.C, etc.
An_Implementation_Unit,
-- Implementation specific library units, e.g., runtime support
-- packages, utility libraries, etc. It is not required that any
-- implementation supplied units have this origin. This is a suggestion.
-- Implementations might provide, for example, precompiled versions of
-- public domain software that could have An_Application_Unit origin.
An_Application_Unit);
-- Neither A_Predefined_Unit or An_Implementation_Unit
------------------------------------------------------------------------------
-- 3.12.4 type Relation_Kinds
------------------------------------------------------------------------------
-- Relation_Kinds - classification of unit relationships
type Relation_Kinds is (
Ancestors,
Descendants,
-------------------------------------------------------------------------------
-- Definition: ANCESTORS of a unit; DESCENDANTS of a unit
--
-- Ancestors of a library unit are itself, its parent, its parent's
-- parent, and so on. (Standard is an ancestor of every library unit).
--
-- The Descendants relation is the inverse of the ancestor relation.
-- Reference Manual 10.1.1(11).
-------------------------------------------------------------------------------
Supporters,
-------------------------------------------------------------------------------
-- Definition: SUPPORTERS of a unit
--
-- Supporters of a compilation unit are units on which it semantically
-- depends. Reference Manual 10.1.1(26).
--
-- The Supporters relation is transitive; units that are supporters of library
-- units mentioned in a with clause of a compilation unit are also supporters
-- of that compilation unit.
--
-- A parent declaration is a Supporter of its descendant units.
--
-- Each library unit mentioned in the with clauses of a compilation unit
-- is a Supporter of that compilation unit and (recursively) any
-- completion, child units, or subunits that are included in the declarative
-- region of that compilation unit. Reference Manual 8.1(7-10).
--
-- A library_unit_body has as a Supporter, its corresponding
-- library_unit_declaration, if any.
--
-- The parent body of a subunit is a Supporter of the subunit.
--
-------------------------------------------------------------------------------
Dependents,
-------------------------------------------------------------------------------
-- Definition: DEPENDENTS of a unit
--
-- Dependents of a compilation unit are all the compilation units that
-- depend semantically on it.
--
-- The Dependents relation is transitive; Dependents of a unit include the
-- unit's Dependents, each dependent unit's Dependents, and so on. A unit
-- that is a dependent of a compilation unit also is a dependent
-- of the compilation unit's Supporters.
--
-- Child units are Dependents of their ancestor units.
--
-- A compilation unit that mentions other library units in its with
-- clauses is one of the Dependents of those library units.
--
-- A library_unit_body is a Dependent of its corresponding
-- library_unit_declaration, if any.
--
-- A subunit is a Dependent of its parent body.
--
-- A compilation unit that contains an attribute_reference of a type defined
-- in another compilation unit is a Dependent of the other unit.
--
-- For example:
-- If A withs B and B withs C
-- then A directly depends on A, B directly depends on C,
-- A indirectly depends on C, and
-- both A and B are dependents of C.
--
-- Dependencies between compilation units may also be introduced by
-- inline inclusions (Reference Manual 10.1.4(7)) and for certain other
-- compiler optimizations. These relations are intended to reflect all of
-- these considerations.
--
-------------------------------------------------------------------------------
Family,
-------------------------------------------------------------------------------
-- Definition: FAMILY of a unit
--
-- The family of a given unit is defined as the set of compilation
-- units that comprise the given unit's declaration, body, descendants,
-- and subunits (and subunits of subunits and descendants, etc.).
-------------------------------------------------------------------------------
Needed_Units);
-------------------------------------------------------------------------------
-- Definition: NEEDED UNITS of a unit; CLOSURE of a unit
--
-- The needed units of a given unit is defined as the set of all
-- the Ada units ultimately needed by that unit to form a partition.
-- Reference Manual 10.2(2-7).
--
-- The term closure is commonly used with similar meaning.
--
-- For example:
-- Assume the body of C has a subunit C.S and the declaration of C has
-- child units C.Y and C.Z.
-- If A withs B, B withs C, B withs C.Y, and C does not with a library
-- unit. Then the needed units of A are:
-- library unit declaration C
-- child library unit declaration C.Y
-- child library unit body C.Y, if any
-- library unit body C
-- subunit C.S
-- library unit declaration B
-- library unit body B, if any
-- library unit declaration A
-- library unit body A, if any
--
-- Child unit C.Z is only part of the Needed_Units if it is needed.
--
------------------------------------------------------------------------------
-- 3.13 type Traverse_Control
------------------------------------------------------------------------------
-- Traverse_Control - controls for the traversal generic provided in package
-- Asis.Iterator. It is defined in package Asis to facilitate automatic
-- translation to IDL (See Annex C for details).
------------------------------------------------------------------------------
type Traverse_Control is (
Continue,
-- Continues the normal depth-first traversal.
Abandon_Children,
-- Prevents traversal of the current element's children.
Abandon_Siblings,
-- Prevents traversal of the current element's children and remaining
-- siblings.
Terminate_Immediately);
-- Does exactly that.
------------------------------------------------------------------------------
-- 3.14 type Program_Text
------------------------------------------------------------------------------
subtype Program_Text is Wide_String;
------------------------------------------------------------------------------
private
-- The content of this private part is specific for the ASIS
-- implementation for GNAT
-- We use the procedural interface to the main ASIS abstractions even
-- in the Asis child packages to simplify the maintenance. This
-- interface is defined in the Asis.Set_Get package
-------------
-- Context --
-------------
type Context is record
Id : Context_Id := Non_Associated;
end record;
Nil_Context : constant Context := (Id => Non_Associated);
-------------
-- Element --
-------------
type Element is record
Node : Node_Id := Empty;
R_Node : Node_Id := Empty;
Node_Field_1 : Node_Id := Empty;
Node_Field_2 : Node_Id := Empty;
Enclosing_Unit : Unit_Id := Nil_Unit;
Enclosing_Context : Context_Id := Non_Associated;
Internal_Kind : Internal_Element_Kinds := Not_An_Element;
Is_Part_Of_Implicit : Boolean := False;
Is_Part_Of_Inherited : Boolean := False;
Is_Part_Of_Instance : Boolean := False;
Special_Case : Special_Cases := Not_A_Special_Case;
Normalization_Case : Normalization_Cases := Is_Not_Normalized;
Parenth_Count : Nat := 0;
Enclosing_Tree : Tree_Id := Nil_Tree;
Rel_Sloc : Source_Ptr := No_Location;
Character_Code : Char_Code := 0;
Obtained : ASIS_OS_Time := Nil_ASIS_OS_Time;
end record;
------------------------------
-- Node and R_Node fields: --
------------------------------
-- The field Node corresponds to the tree node which has been initially
-- created by the parser, and the field R_Node (= Rewritten Node)
-- corresponds to the result of the rewriting of the Node during the
-- semantic analysis, if any, otherwise R_Node has just the same value
-- as Node.
--
-- For every Asis Element Elem the following is always true:
--
-- (a) Atree.Original_Node(Elem.R_Node) = Elem.Node;
--
-- (b) Elem.R_Node = Elem.Node means that
-- Atree.Is_Rewrite_Substitution ( Elem ) = False
-- and vice versa
--
-- All structural properties of an Element and the position of the Element
-- in Asis Element Kinds hierarchy should be determined on the base
-- of the Node field, R_Node field is to be used to define the position
-- of the Element "prototype" in the tree.
--
-- The function Atree.Parent should be applied to the R_Node field only!
-- Its applying to the Node field is erroneous if the Element has been
-- constructed on the base of rewritten tree node!!!
--
-- See also Node_To_Element constructors in the
-- Asis_Vendor_Primitives.Gnat_To_Asis_Mapping package.
--------------------
-- Node_Field_1 --
--------------------
-- The use and the semantic of this field depend on the kind and on
-- the special case of the corresponding Element. It is to be used
-- when Node and R_Node are not enough to keep all the needed
-- information about this Element. Empty when unused.
--
-- This field has the following meaning:
--
-- A_Generic_Association (normalized):
-- Node_Field_1 represents the corresponding actual parameter
--
-- A_Procedure_Declaration, A_Function_Declaration (representing an
-- implicit inherited user-defined subprogram) and its subcomponents:
-- Node_Field_1 represents the defining name of the given inherited
-- subprogram, and Node and R_Node fields point to the explicit
-- declaration of the subprogram of the ancestor type which is
-- ultimately inherited (or to the corresponding subcomponent of
-- this subprogram)
--
-- A_Discriminant_Specification, A_Component_Declaration (representing an
-- implicit inherited component of a derived type) and its subcomponents:
-- Node_Field_1 represents the declaration of the type (which is either
-- a derived type or a type extension) to which the component belongs.
--------------------
-- Node_Field_2 --
--------------------
-- The use and the semantic of this field depend on the kind and on
-- the special case of the corresponding Element. It is to be used
-- when Node and R_Node are not enough to keep all the needed
-- information about this Element. Empty when unused.
--
-- This field has the following meaning:
--
-- A_Discriminant_Specification, A_Component_Declaration (representing an
-- implicit inherited component of a derived type) and its subcomponents:
-- Node_Field_2 represents the defining identifier of the component
-- (the problem with implicit components and discriminants is that
-- several N_Defining_Identifier nodes may have the came
-- component/discriminant specification node as its parent
--------------------------
-- Character_Code field --
--------------------------
-- We need it to process character literals from the definition
-- of the predefined Standard package. This field is set only
-- for defining occurrences of character literals defined in
-- Standard.
Nil_Element : constant Element :=
(Node => Empty,
R_Node => Empty,
Node_Field_1 => Empty,
Node_Field_2 => Empty,
Enclosing_Unit => Nil_Unit,
Enclosing_Context => Non_Associated,
Internal_Kind => Not_An_Element,
Is_Part_Of_Implicit => False,
Is_Part_Of_Inherited => False,
Is_Part_Of_Instance => False,
Special_Case => Not_A_Special_Case,
Normalization_Case => Is_Not_Normalized,
Parenth_Count => 0,
Enclosing_Tree => Nil_Tree,
Rel_Sloc => No_Location,
Character_Code => 0,
Obtained => Nil_ASIS_OS_Time);
Nil_Element_List : constant Element_List (1 .. 0) :=
(1 .. 0 => Nil_Element);
----------------------
-- Compilation_Unit --
----------------------
type Compilation_Unit is record
Id : Unit_Id := Nil_Unit;
Cont_Id : Context_Id := Non_Associated;
Obtained : ASIS_OS_Time := Nil_ASIS_OS_Time;
end record;
Nil_Compilation_Unit : constant Compilation_Unit :=
(Id => Nil_Unit,
Cont_Id => Non_Associated,
Obtained => Nil_ASIS_OS_Time);
Nil_Compilation_Unit_List : constant Compilation_Unit_List (1 .. 0) :=
(1 .. 0 => Nil_Compilation_Unit);
end Asis;
|