Re: Hiding the value of Constants

[anon@anon.org (anon)]

This program and package shows how to hide an Integer. I guess the other 
guys are too busy.

--
-- Test program
--
with Ada.Text_IO ;
use  Ada.Text_IO ;

with Y1 ;
use  Y1 ;

procedure Y is

begin
  Put ( "Hidden String" ) ;
  Put ( Integer'Image ( Test_Value ) ) ;
  New_Line ;
end Y ;

--
-- specs 
--

package Y1 is

  Test_Value : Integer ; -- Value is hidden

  procedure dummy ; -- stops the compiler warnings
                    -- normally replaced by usable 
                    -- routines.

end Y1 ;

--
-- Body 
--
package body Y1 is

  procedure dummy is -- stops the compiler warnings
    begin
      null ;
    end dummy ;

begin  -- Elaboration initializes variable

  Test_Value := 50 ;

end Y1 ;




In <30696d63-16e8-44e2-a4a5-db5095d7cfec@m3g2000pri.googlegroups.com>, Rick <rickduley@gmail.com> writes:
>Is it possible to declare a constant in a package specification
>without the user knowing the value of that constant?
>
>--------------------------------------------
>Rick Duley
>North Perth,
>Western Australia
>http://rickduley.webs.com
>                                      .-_|\
>                                     /     \
>                               perth *_.-._/
>                                          v
>aussie : 0409 106 049
>o'seas : +61 409 106 049
>--------------------------------------------
>"Ah, but a man's reach
>      should exceed his grasp,
>              Or what's a heaven for?"
>                Robert Browning (1812-1889)