protected_variables.ads

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

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;