attributes.adb.npp

来自「This contains the following topics and m」· NPP 代码 · 共 17 行

--Attributes
--Ada also provides the ability to enquire about a type or object from within the code by using attributes. Some of the attributes for
--discrete types are
with text_io; use text_io;

procedure attributes is
   begin
put("Integer'first"); -- the smallest Integer
put("Integer'last"); -- the largest integer
put("Processors'succ(M68000)"); -- successor of the M68000
put("Upper_Chars'pred('C')"); -- the predecessor of 'C' ('B')
put("Integer'image(67)"); -- the string " 67" -- space for a '-'
--put("Integer'value("67")") ;-- the integer 67.
put("Processors'pos(M68030)"); -- the position of M68030 in the type.
-- (3, position 0 is first).
end;