rom/intuition/freezedemon.c

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