rom/intuition/freezedemon.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <intuition/intuitionbase.h>
   7 #include <exec/io.h>
   8 #include <devices/input.h>
   9 #include <devices/inputevent.h>
  10 #include <proto/exec.h>
  11 #include <proto/intuition.h>
  12
  13 #include LC_LIBDEFS_FILE
  14
  15 void dprintf(const char *, ...);
  16
  17 /* Dump intuition's state if F10 is pressed while F1 is down */
  18
  19 struct InputEvent *handler(void)
  20 {
  21     struct InputEvent *events = (APTR)REG_A0;
  22     struct InputEvent *event;
  23     static BOOL F1_pressed = FALSE;
  24
  25     for (event = events; event; event = event->ie_NextEvent)
  26     {
  27         if (event->ie_Class == IECLASS_RAWKEY)
  28         {
  29             switch (event->ie_Code)
  30             {
  31             case 0x50: /* F1 */
  32                 F1_pressed = TRUE;
  33                 break;
  34
  35             case 0xd0: /* F1 up */
  36                 F1_pressed = FALSE;
  37                 break;
  38
  39             case 0x59: /* F10 */
  40                 if (F1_pressed)
  41                 {
  42                     REG_A6 = (ULONG)IntuitionBase;
  43                     MyEmulHandle->EmulCallDirectOS(-152 * 6);
  44                 }
  45                 break;
  46             }
  47         }
  48     }
  49
  50     return events;
  51 }
  52
  53 struct EmulLibEntry gate =
  54     {
  55         TRAP_LIB, 0, (void(*)(void))handler
  56     };
  57
  58 struct Interrupt interrupt =
  59     {
  60         {
  61             NULL, NULL, NT_INTERRUPT, 120, "FreezeDemon"
  62         },
  63         NULL,
  64         (void(*)())&gate
  65     };
  66
  67 int main(void)
  68 {
  69     if (IntuitionBase->LibNode.lib_Version == VERSION_NUMBER)
  70     {
  71         struct MsgPort *port = CreateMsgPort();
  72         if (port)
  73         {
  74             struct IOStdReq *req = CreateIORequest(port, sizeof(*req));
  75             if (req)
  76             {
  77                 if (OpenDevice("input.device", 0, req, 0) == 0)
  78                 {
  79                     BYTE old_pri;
  80
  81                     req->io_Command = IND_ADDHANDLER;
  82                     req->io_Data = &interrupt;
  83                     DoIO(req);
  84
  85                     /* Make sure we have a higher priority than the
  86                      * input.device, in case it gets trapped in an
  87                      * endless loop.
  88                      */
  89                     old_pri = SetTaskPri(FindTask(NULL), 50);
  90
  91                     /* Also dump if intuition's input handler has been
  92                      * frozen for more than 2s.
  93                      */
  94                     do
  95                     {
  96                         ULONG old_secs = IntuitionBase->Seconds;
  97                         ULONG old_micros = IntuitionBase->Micros;
  98
  99                         Delay(200);
 100
 101                         if (old_secs == IntuitionBase->Seconds &&
 102                                 old_micros == IntuitionBase->Micros)
 103                         {
 104                             REG_A6 = (ULONG)IntuitionBase;
 105                             MyEmulHandle->EmulCallDirectOS(-152 * 6);
 106
 107                             do
 108                             {
 109                                 Delay(50);
 110                             }
 111                             while (old_secs == IntuitionBase->Seconds &&
 112                                     old_micros == IntuitionBase->Micros);
 113
 114                         }
 115                     }
 116                     while ((SetSignal(0,0) & 0x1000) == 0);
 117
 118                     SetTaskPri(FindTask(NULL), old_pri);
 119
 120                     req->io_Command = IND_REMHANDLER;
 121                     req->io_Data = &interrupt;
 122                     DoIO(req);
 123
 124                     CloseDevice(req);
 125                 }
 126
 127                 DeleteIORequest(req);
 128             }
 129
 130             DeleteMsgPort(port);
 131         }
 132     }
 133
 134     return 0;
 135 }