Package RASCAL.Alarm

Description	Event definitions to handle messages from !Alarm.
Author	bbracke
Date	2005/11/21 20:14:33
Revision	1.1

Clauses

Quick access : Clauses - Generics - Definitions - Subprograms

Context clauses
RASCAL.OS
Ada.Unchecked_Conversion

Use clauses
RASCAL.OS

Generic Instanciations

Quick access : Clauses - Generics - Definitions - Subprograms

Generic Instanciations
function To_Wimp_Block is new Ada.Unchecked_Conversion (Source => Message_AlarmSet_Pointer, Target => Wimp_Block_Pointer)

Definitions

Quick access : Clauses - Generics - Definitions - Subprograms

Types
*Name*	*Declaration*
Message_AlarmGoneOff_Pointer	access Message_AlarmGoneOff
Alarm_Reason_Type	(Set_Local, Set_UTC, Cancel)
Message_AlarmSet_Pointer	access Message_AlarmSet

Message_AlarmGoneOff	record
This message is broadcast by !Alarm when an application alarm goes off. If the message is not acknowledged !Alarm 'prompts' the user to start the application, and defers the alarm for 1 minute, before restarting this message broadcast procedure.
*Component*	*Type*	*Default*
Alarm_Name	Char_Array (1..40)
Sender	Char_Array (1..40)
Header	Message_Event_Header

AMEL_Message_AlarmGoneOff	abstract tagged record
inheritance from	Message_EventListener (Message_Event_AlarmGoneOff)
*Component*	*Type*	*Default*
Event	Message_AlarmGoneOff_Pointer

OS_Date_And_Time	record
*Component*	*Type*	*Default*
Time	Char_Array (1..5)

Alarm_Date_And_Time	record
*Component*	*Type*	*Default*
Minute	Byte
Hour	Byte
Date	Byte
Month	Byte
Year	Short_Integer

Time_Type	record
*Discriminant*	*Type*	*Default*
Time	Alarm_Reason_Type	Set_Local
Variant part	Time
Variant part => Set_UTC
*Component*	*Type*	*Default*
UTC	OS_Date_And_Time
Variant part => Set_Local
*Component*	*Type*	*Default*
Local	Alarm_Date_And_Time
Variant part => Cancel

Message_AlarmSet	record
This message can be used to set/cancel alarms. If the message is sent recorded then !Alarm acknowledges with 0 if successful or a null terminated error string.
*Component*	*Type*	*Default*
Alarm_Name	Char_Array (1..40)
Sender	Char_Array (1..40)
Time	Time_Type
Set_Reason	Alarm_Reason_Type
Header	Message_Event_Header

AMEL_Message_AlarmSet	abstract tagged record
inheritance from	Message_EventListener (Message_Event_AlarmSet)
*Component*	*Type*	*Default*
Event	Message_AlarmSet_Pointer

Pragmas
Convention	(C, Message_AlarmGoneOff)
Convention	(C, OS_Date_And_Time)
Convention	(C, Alarm_Date_And_Time)
Convention	(C, Time_Type)
pragma Unchecked_Union(Time_Type);
Convention	(C, Message_AlarmSet)