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