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