{$if not def DOS_NOTIFY_H} CONST DOS_NOTIFY_H=0;

{ ***************************************************************
  ** KickPascal-Include-Datei "dos/notify.h" zu Kickstart 2.04 **
  *************************************************************** }

TYPE p_NotifyRequest = ^NotifyRequest;
TYPE p_NotifyMessage = ^NotifyMessage;

{$if not def EXEC_PORTS_H;incl "exec/ports.h";endif}
{$if not def EXEC_TASKS_H;incl "exec/tasks.h";endif}


CONST NOTIFY_CLASS = $40000000;

CONST NOTIFY_CODE  = $1234;

TYPE NotifyMessage = RECORD
 nm_ExecMessage : Message;
 nm_Class       : Long;
 nm_Code        : Word;
 nm_NReq        : p_NotifyMessage;
 nm_DoNotTouch  : Long;
 nm_DoNotTouch2 : Long;
END;

TYPE NotifyRequest = RECORD
 nr_Name     : Str;
 nr_FullName : Str;
 nr_UserData : Long;
 nr_Flags    : Long;
 nr_stuff    : RECORD
 CASE boolean OF
 true  : (
           nr_Msg  : RECORD
           nr_Port : p_MsgPort;
           END
         );
 false : (
           nr_Signal    : RECORD
           nr_Task      : p_Task;
           nr_SignalNum : Byte;
           nr_pas0      : Byte; { Kickpascal würde den Array auf Wordgrenze bringen }
           nr_pas1      : Byte;
           nr_pas2      : Byte;

           END;
         );
 END;
 nr_Reserved : ARRAY[0..3] of Long;
 nr_MsgCount : Long;
 nr_Handler  : p_MsgPort;
END;


CONST
 NRF_SEND_MESSAGE   = 1;
 NRF_SEND_SIGNAL    = 2;
 NRF_WAIT_REPLY     = 8;
 NRF_NOTIFY_INITIAL = 16;

CONST NRF_MAGIC = $80000000;

CONST
 NRB_SEND_MESSAGE   = 0;
 NRB_SEND_SIGNAL    = 1;
 NRB_WAIT_REPLY     = 3;
 NRB_NOTIFY_INITIAL = 4;

CONST NRB_MAGIC = 31;

CONST NR_HANDLER_FLAGS = $ffff0000;

{$endif}