xhads/source/deity.ads

35 lines
1.2 KiB
Ada
Raw Normal View History

-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
--
-- GNU General Public Licence (version 3 or later)
2024-02-15 21:03:09 -05:00
with core;
package deity is
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
type enumeration is (
2024-02-15 21:03:09 -05:00
);
------------------------------------------------------------------------------------------
type information is record
2024-02-15 21:03:09 -05:00
name : core.short_string;
base : integer;
2024-02-15 21:03:09 -05:00
end record;
------------------------------------------------------------------------------------------
count : constant natural := enumeration'pos (enumeration'last) + 1;
trait : constant array (enumeration) of information := (
2024-02-15 21:03:09 -05:00
);
------------------------------------------------------------------------------------------
procedure draw (value : in enumeration; x, y : in integer);
2024-02-15 21:03:09 -05:00
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
end deity;