AdaPower Logged in as Guest
Ada Tools and Resources

Ada 95 Reference Manual
Ada Source Code Treasury
Bindings and Packages

Join >
Articles >
Ada FAQ >
Getting Started >
Home >
Books & Tutorials >
Source Treasury >
Packages for Reuse >
Latest Additions >
Ada Projects >
Press Releases >
Ada Audio / Video >
Home Pages >
Links >
Contact >
About >
Login >
Static Variables in Ada (Mark Lundquist)

Mark Lundquist demonstrates how to create static variables (variables that maintain their value from one call of the subroutine to the next) in Ada.
    package body Outer is

        package Inner is

            function Foo return Integer;

        end Inner;

        package body Inner is

            V : Integer;        -- V is visible within the body of
                                -- Inner, e.g. to Foo

            function Foo return Integer is
        end Inner;

        function Foo renames Inner.Foo;

    end Outer; you what you want. Here, Inner exists just to hide V. If you added more things to Inner, they could also see V; this would then be wider visibility than a function static variable.

If you don't care about hiding V to other things in the body of Outer, you can dispense with Inner (and the rename-as-body) altogether:

    package body Outer is

        V : Integer;

        function Foo return Integer is

        end Foo;
    end Outer;

(c) 1998-2004 All Rights Reserved David Botton