home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / dos / notify.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  1.6 KB  |  75 lines
  1. {$if not def DOS_NOTIFY_H} CONST DOS_NOTIFY_H=0;
  2.  
  3. { **************************************************************
  4.   ** KickPascal-Include-Datei "dos/notify.h" zu Kickstart 3.0 **
  5.   ************************************************************** }
  6.  
  7. TYPE p_NotifyRequest = ^NotifyRequest;
  8. TYPE p_NotifyMessage = ^NotifyMessage;
  9.  
  10. {$if not def EXEC_PORTS_H;incl "exec/ports.h";endif}
  11. {$if not def EXEC_TASKS_H;incl "exec/tasks.h";endif}
  12.  
  13.  
  14. CONST NOTIFY_CLASS = $40000000;
  15.  
  16. CONST NOTIFY_CODE  = $1234;
  17.  
  18. TYPE NotifyMessage = RECORD
  19.  nm_ExecMessage : Message;
  20.  nm_Class       : Long;
  21.  nm_Code        : Word;
  22.  nm_NReq        : p_NotifyMessage;
  23.  nm_DoNotTouch  : Long;
  24.  nm_DoNotTouch2 : Long;
  25. END;
  26.  
  27. TYPE NotifyRequest = RECORD
  28.  nr_Name     : Str;
  29.  nr_FullName : Str;
  30.  nr_UserData : Long;
  31.  nr_Flags    : Long;
  32.  nr_stuff    : RECORD
  33.  CASE boolean OF
  34.  true  : (
  35.            nr_Msg  : RECORD
  36.            nr_Port : p_MsgPort;
  37.            END
  38.          );
  39.  false : (
  40.            nr_Signal    : RECORD
  41.            nr_Task      : p_Task;
  42.            nr_SignalNum : Byte;
  43.            nr_pas0      : Byte; { Kickpascal würde den Array auf Wordgrenze bringen }
  44.            nr_pas1      : Byte;
  45.            nr_pas2      : Byte;
  46.  
  47.            END;
  48.          );
  49.  END;
  50.  nr_Reserved : ARRAY[0..3] of Long;
  51.  nr_MsgCount : Long;
  52.  nr_Handler  : p_MsgPort;
  53. END;
  54.  
  55.  
  56. CONST
  57.  NRF_SEND_MESSAGE   = 1;
  58.  NRF_SEND_SIGNAL    = 2;
  59.  NRF_WAIT_REPLY     = 8;
  60.  NRF_NOTIFY_INITIAL = 16;
  61.  
  62. CONST NRF_MAGIC = $80000000;
  63.  
  64. CONST
  65.  NRB_SEND_MESSAGE   = 0;
  66.  NRB_SEND_SIGNAL    = 1;
  67.  NRB_WAIT_REPLY     = 3;
  68.  NRB_NOTIFY_INITIAL = 4;
  69.  
  70. CONST NRB_MAGIC = 31;
  71.  
  72. CONST NR_HANDLER_FLAGS = $ffff0000;
  73.  
  74. {$endif}
  75.