protected_variables.ads

Ada 2005 Training Notes.

package Protected_Variables is
   type Item is (Red, Green, Blue);
   task Protected_Variable is
      entry Read(X: out Item);
      entry Write(X: in Item);
   end;
end Protected_Variables;