Re: Unifont static compiled and stack size...

["G.B." <bauhaus@notmyhomepage.invalid>]

On 14.08.23 10:31, Dmitry A. Kazakov wrote:
> 
> P.S. I always wanted static functions in Ada for the purpose of all static initializations of objects like maps etc.
> 

If data form the equivalent of a static Ada array,
thus a mapping from an index type to a value type,
could you approximate the static initialization
of maps using expression functions?

Simplifying example:


package sttc is


   type Key is range 1 .. 7;
   type Value is new Character;
   type Cursor is private;

   function lookup (K: Key) return Cursor;
   function element (C: Cursor) return Value;

private
   type Cursor is new Key;
end sttc;

package body sttc is

   function lookup (K: Key) return Cursor is (Cursor (K));

   function element (C: Cursor) return Value is
   (case C is
    when 1 => 'M',
    when 2 => 'M',
    when 3 => 'X',
    when 4 => 'X',
    when 5 => 'I',
    when 6 => 'I',
    when 7 => 'I'
   );

end sttc;