Re: Static variables?

[Tom Moran <tmoran@bix.com>]

If the variable should really be private to a single function, like a C
static variable inside a function, how about:

package lots_of_things is
  ...
  procedure p_with_state;
  ...
end lots_of_things;

package body lots_of_things is
  ...
  package state_p is
    procedure actual_p;
  end state_p;
  package body state_p is
    static_variable : integer := 0;
    procedure actual_p is ... -- has access to static_variable
  end state_p;
  ...
  procedure p_with_state is
  begin
    state_p.actual_p;  -- call the real p procedure to do its thing
  end p_with_state;
  ...