Re: oo programing help needed?

[Martin Krischik <krischik@users.sourceforge.net>]

shoko wrote:

> i have the following:
> ------------------------------------------
> package one is
>   type one  is tagged private;
>   type one_ptr is access all one'class;
>   
>    procedure set_name(name:String;this:in out one);
>   function  get_name(this:one) return string;
>   
>   private
>      type one  is tagged
>      record
>          name:String(1..256);
>      end record;
>   
>    
> end one ;
> ---------------------------------------------
> with one;
> 
> package two is
>    type two is new one.one with private ;
>    private
>       type two is new one.one with null record;
> end two;
> ---------------------------------------------
> with two;
> 
> package three is
>    type three is new two.two with private ;
>    function  get_name(this:three)  return string;
>    private
>       type three is new two.two with null record;
> end two;
> 
> -------------------------------------------
> package body three is
>    function get_name(this:three) return string
>      s:string(1..10);
>    begin
>      return s+ this.name;  <-- no selector "name" for type three
>   end get_name;
> 
> end three;
> 
> 
> i get no selector "name" for type three
> 
> how to solve this problem??????

three is not a child packages of one. While it it true that "private" is
more like "protected" in C++ and Java it is also part of the package. So
only child packages can acces the private section - child classes can't do
that. Java has something similar but I can't remember the actual syntax
(something like private proctected or protected private or so).

With Regards

Martin

-- 
mailto://krischik@users.sourceforge.net
http://adacl.sourceforge.net