File: barrier_type.ads

```
-- 
```
```
-- Uwe R. Zimmer, Australia, 2013 
```
```
-- 
```
```
 
```
```
with Ada.Unchecked_Deallocation; 
```
```
 
```

package Barrier_TypeTo API doc
To body is

```
 
```
```
   protected type Barrier is 
```
```
 
```
```
      entry     WaitTo API doc
To body; 
```
```
      procedure OpenTo API doc
To body; 
```

      procedure CloseTo API doc
To body;

```
 
```
```
   private 
```
```
      Opened : Boolean := False; 
```
```
 
```
```
   end BarrierTo API doc
To spec; 
```
```
 
```

   type Barrier_Ptr is access BarrierTo API doc
To spec;

```
 
```
```
   procedure Free is 
```

     new Ada.Unchecked_Deallocation (Object => BarrierTo API doc
To spec, Name => Barrier_PtrTo API doc
To spec);

```
 
```

end Barrier_TypeTo API doc
To spec
To body;