Re: protected type question

[James Rogers <jimmaureenrogers@att.net>]

shoko2004@hotmail.com (shoko) wrote in 
news:4948f537.0401031258.62a7cdc7@posting.google.com:

> i have the following package:
> 
> generic
>    type Message is private; 
> package Broadcasts is
>    protected      type Broadcast is 
>       procedure Send(This_Message : in Message); 
>       procedure Send_all(This_Message : in Message); 
>       entry wait(A_Message :    out Message ); 
>    private
>       Message_Arrived:Boolean:=False;
>       The_Message:Message;
>    end  Broadcast ;
> end   Broadcasts ;
> ---------------------------------------------------------------- 
> 
> package body Broadcasts  is
>    protected body Broadcast is
>       entry wait(A_Message : out Message ) when Message_Arrived is 
>       begin
>          if wait'Count=0 then
>             Message_Arrived:=False;
>          end if;
>             A_Message:=The_Message;
>       end  wait;
> 
>       procedure Send (This_Message : in     Message ) is 
>       begin
>          if wait'Count>0 then
>             Message_Arrived:=True;
>             The_Message:=This_Message;
>          end if;
>       end Send;
>       
>       procedure send_all(This_Message : in     Message )is
>       begin
>           Message_Arrived:=True;
>           The_Message:=This_Message;
>       end send_all;
>    end Broadcast ;
> end   Broadcasts;
>  ---------------------------------------------------------------- 
> 
> in the main procedure i am trying to create a task
> 1.I get compiltaion error:"wait" not decllared in "str_broadcasts"
> what am i doing wrong?
> 
> 2.In the broadcasts package i use send all procedure that will free
> all waiting tasks is this is the right way?
> 
> 
>  
> with broadcasts;
> with Ada.Strings.Unbounded;
> use  Ada.Strings.Unbounded;
> 
> procedure main_broadcast is
>    
>   subtype message is  Unbounded_String; 
>   package str_broadcasts is new broadcasts(message);
>   a:message :=To_Unbounded_String("hello");
    buffer : str_broadcasts.broadcast;
>   
>    TASK messages;
>    
>    task body messages is
>       m:message;
>    begin
>       loop
>           str_broadcasts.wait(a);<-- compilation error
            buffer.wait(a);
>       end loop;   
>    end messages;
> begin
>    
>    null;
> end main_broadcast;
> 

str_broadcasts is the name of the instantiated package.
str_broadcasts.broadcast is the name of the protected
type. You need to make an instance of that protected
type. My addition creates an instance named "buffer".

Jim Rogers