.


. - . 230


, , . ,

type is access ;

R

R : ;

R := new ;

, "" R.

R. ...

, , .

 

4.14.6. - ()

task body C is

: ;

: ;

begin loop

__ (); - -

- - ,

... - - ,

... - - ""

accept ( : out ) do

:= ; - -

end ;

end ;

task body is - -

package _ is new ();

-- , ,

-- - -

use _;

begin

loop

select

accept __ (: in ) do

_();

end __;

or

when _ & __' = 0 ==>

accept __ (: out ) do

_();

end __;

end select ;




- -  - -  - -