semaphores.ads

来自「Ada 2005 Training Notes.」· ADS 代码 · 共 14 行

package Semaphores is
      protected type Semaphore (Start_Count : Integer := 1) is
         entry Secure;
         procedure Release;
      private
         Count: Integer := Start_Count;
   end Semaphore;

   subtype Eular_Angle_Type is Integer range  0 .. 359;
   type Lookup_Table_Type is array (Eular_Angle_Type)  of Float;
   Sin_Table : constant Lookup_Table_Type := (others => 0.0);

end Semaphores;