1-- PragmAda Reusable Component (PragmARC)
2-- Copyright (C) 2016 by PragmAda Software Engineering.  All rights reserved.
3-- **************************************************************************
4--
5-- History:
6-- 2016 Jun 01     J. Carter          V1.1--Changed comment for empty declarative part
7-- 2000 May 01     J. Carter          V1.0--Initial release
8--
9package body PragmARC.Binary_Semaphore_Handler is
10   protected body Binary_Semaphore is
11      entry Request when not In_Use is
12         -- Empty
13      begin -- Request
14         In_Use := True;
15      end Request;
16
17      entry Release when In_Use is
18         -- Empty
19      begin -- Release
20         In_Use := False;
21      end Release;
22   end Binary_Semaphore;
23end PragmARC.Binary_Semaphore_Handler;
24--
25-- This is free software; you can redistribute it and/or modify it under
26-- terms of the GNU General Public License as published by the Free Software
27-- Foundation; either version 2, or (at your option) any later version.
28-- This software is distributed in the hope that it will be useful, but WITH
29-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
30-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
31-- for more details. Free Software Foundation, 59 Temple Place - Suite
32-- 330, Boston, MA 02111-1307, USA.
33--
34-- As a special exception, if other files instantiate generics from this
35-- unit, or you link this unit with other files to produce an executable,
36-- this unit does not by itself cause the resulting executable to be
37-- covered by the GNU General Public License. This exception does not
38-- however invalidate any other reasons why the executable file might be
39-- covered by the GNU Public License.
40