programmeren van timeouts task Controller is entry Call (T : Temperature); end Controller; task body Controller is -- declarations beginloop select accept Call (T: Temperature) do New_Temp := T; end Call; or delay 10.0; -- action for timeout end select; -- other actions end loop; end Controller;
{}