protected types in Ada95

protected types in Ada95

[SAD KAT]

Hi,
I have a program with differents tasks reading and writting data. I have
read that I have to protect my data to be sure that the values are the
correct ones, to keep a exclussive access to them.

I've done a think like that:

   package data_pac is
      type type_of_var is record
         -- here are the description
      end record;
      protected type type_of_var_prot is
         function read_var return integer;
         procedure write_var (item : in type_of_var);
      private
         var2 : type_of_var;
      end type_of_var_prot;
   end data_pac;

   package body data_pac is
      protected type type_of_var_prot is
         function read_var return integer is
         begin
            -- body of the function
         end read_var;
         procedure write_var (item : in type_of_var) is
         begin
            -- body of the procedure
         end write_var;
      end type_of_var_prot;

      begin
         null;
      end data_proc;


The compiler shows that message : "subprogram body not allowed here"
and I don't knwo where's thw mistake. I have also another doubt, how
do I have to use the function read_var and the procedure write_var?

I mean, if I have in the main package:

   procedure main is
      data_a : type_of_var;
      data_b : type_of_var_prot;
   begin
      get(data_a);
      data_b.write_var(data_a);
      -- rest of program
   end main;

Is this correct?

Thanks for helping and please forgive my poor English,

mailto: sadkat@hotmail.com
mailto: aic001@teix.uib.es

Joan Andreu Juan Torrens (Illes Balears, SPAIN)

Re: protected types in Ada95

[Robert A Duff]

Tucker, I thought you could parse Ada code in your head!  ;-) ;-)

In article <EGArp1.H8K.0.-s@inmet.camb.inmet.com>,
Tucker Taft <stt@houdini.camb.inmet.com> wrote:
>SAD KAT (aic001@teix.uib.es) wrote:
>
>: Hi,
>: I have a program with differents tasks reading and writting data. I have
>: read that I have to protect my data to be sure that the values are the
>: correct ones, to keep a exclussive access to them.
>
>: I've done a think like that:
>
>:    package data_pac is
>:       type type_of_var is record
>:          -- here are the description
>:       end record;
>:       protected type type_of_var_prot is
>:          function read_var return integer;
>:          procedure write_var (item : in type_of_var);
>:       private
>:          var2 : type_of_var;
>:       end type_of_var_prot;
>:    end data_pac;
>
>:    package body data_pac is
>:       protected type type_of_var_prot is
                   ^^^^

You want "body" there, instead of "type".

>:          function read_var return integer is
>:          begin
>:             -- body of the function
>:          end read_var;
>:          procedure write_var (item : in type_of_var) is
>:          begin
>:             -- body of the procedure
>:          end write_var;
>:       end type_of_var_prot;
>
>:       begin
>:          null;
>:       end data_proc;
>
>
>: The compiler shows that message : "subprogram body not allowed here"
>: and I don't knwo where's thw mistake. 

The compiler is seeing a subprogram body inside a protected type
declaration, which is illegal syntax.

>When you have a question like this, be sure to post the actual
>source code and the actual error message.  The error message probably 
>identified the exact line and column where the problem occurred.
>Without that information, we are just guessing.
>
>
>: I have also another doubt, how
>: do I have to use the function read_var and the procedure write_var?
>
>: I mean, if I have in the main package:
>
>:    procedure main is
>:       data_a : type_of_var;
>:       data_b : type_of_var_prot;
>:    begin
>:       get(data_a);
>:       data_b.write_var(data_a);
>:       -- rest of program
>:    end main;
>
>: Is this correct?
>
>Looks correct.  You could use "read_var" as follows:
>
>     data_a := data_b.read_var;
>
>: Thanks for helping and please forgive my poor English,
>
>De' nada.  [Please forgive my poor Spanish!]
>
>: mailto: sadkat@hotmail.com
>: mailto: aic001@teix.uib.es
>
>: Joan Andreu Juan Torrens (Illes Balears, SPAIN)
>
>--
>-Tucker Taft   stt@inmet.com   http://www.inmet.com/~stt/
>Intermetrics, Inc.  Burlington, MA  USA

Re: protected types in Ada95

[Tom Moran]

Just for fun, there's an example use of protected types at
http://www.ionet.net/~timtroyr/funhouse/beer.html#ada

Re: protected types in Ada95

[Tucker Taft]

SAD KAT (aic001@teix.uib.es) wrote:

: Hi,
: I have a program with differents tasks reading and writting data. I have
: read that I have to protect my data to be sure that the values are the
: correct ones, to keep a exclussive access to them.

: I've done a think like that:

:    package data_pac is
:       type type_of_var is record
:          -- here are the description
:       end record;
:       protected type type_of_var_prot is
:          function read_var return integer;
:          procedure write_var (item : in type_of_var);
:       private
:          var2 : type_of_var;
:       end type_of_var_prot;
:    end data_pac;

:    package body data_pac is
:       protected type type_of_var_prot is
:          function read_var return integer is
:          begin
:             -- body of the function
:          end read_var;
:          procedure write_var (item : in type_of_var) is
:          begin
:             -- body of the procedure
:          end write_var;
:       end type_of_var_prot;

:       begin
:          null;
:       end data_proc;


: The compiler shows that message : "subprogram body not allowed here"
: and I don't knwo where's thw mistake. 

When you have a question like this, be sure to post the actual
source code and the actual error message.  The error message probably 
identified the exact line and column where the problem occurred.
Without that information, we are just guessing.


: I have also another doubt, how
: do I have to use the function read_var and the procedure write_var?

: I mean, if I have in the main package:

:    procedure main is
:       data_a : type_of_var;
:       data_b : type_of_var_prot;
:    begin
:       get(data_a);
:       data_b.write_var(data_a);
:       -- rest of program
:    end main;

: Is this correct?

Looks correct.  You could use "read_var" as follows:

     data_a := data_b.read_var;

: Thanks for helping and please forgive my poor English,

De' nada.  [Please forgive my poor Spanish!]

: mailto: sadkat@hotmail.com
: mailto: aic001@teix.uib.es

: Joan Andreu Juan Torrens (Illes Balears, SPAIN)

--
-Tucker Taft   stt@inmet.com   http://www.inmet.com/~stt/
Intermetrics, Inc.  Burlington, MA  USA

Re: protected types in Ada95

[Robert Dewar]

<<:    package body data_pac is
:       protected type type_of_var_prot is
:          function read_var return integer is
:          begin
:             -- body of the function
:          end read_var;
:          procedure write_var (item : in type_of_var) is
:          begin
:             -- body of the procedure>>


why are you declarting another protected type here, don't you mean to
be declarting the protected body. It is important to at least learn
how to read the syntax stuff in the RM!

Re: protected types in Ada95

[Stephen Leake]

Tom Moran wrote:
> 
> Just for fun, there's an example use of protected types at
> http://www.ionet.net/~timtroyr/funhouse/beer.html#ada

Now that's a neat web site, and an excellent use of state-of-the art
programming :).

-- 
- Stephe