with data_types; use data_types;
package recursoCompartido is

   protected type BBDD_Read is
      entry accesoBBDD_Read(I : out Integer);
      entry ReadTemp(T : out Temperatura);
   private
      Number: Integer := 1;
   end BBDD_Read;

   protected type BBDD_Write is
      entry accesoBBDD_Write(I : out Integer);
      entry WriteCau(C : in Integer);
   private
      Number: Integer := 1;
   end BBDD_Write;

   task pantalla is
      entry Acceso(I : out integer);
      entry ControlS(I : out integer);
      entry SeguridadCorrecta(I : out integer);
      entry FalloSeguridad(I : out integer);
   end pantalla;

end recursoCompartido;