developer/debug/test/misc/aslhook.c

   1 /*
   2     Copyright © 1995-2017, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 /*
   7     Test for FRF_INTUIFUNC. Activating of the window "ASL hook" triggers
   8     the callback function. Note that the function used for ASL_HookFunc isn't
   9     a Hook function. It's a function whose arguments are given on the stack.
  10 */
  11
  12 #include <exec/types.h>
  13 #include <intuition/intuition.h>
  14 #include <dos/dosasl.h>
  15 #include <libraries/asl.h>
  16
  17 #include <proto/exec.h>
  18 #include <proto/dos.h>
  19 #include <proto/asl.h>
  20 #include <proto/intuition.h>
  21 #include <proto/intuition.h>
  22
  23 #include <stdio.h>
  24
  25 static struct Window  *window;
  26
  27 static IPTR func(ULONG mask, APTR object, struct FileRequester *fr)
  28 {
  29     struct IntuiMessage *msg;
  30     printf("hookfunc mask %u object %p filerequester %p\n", (unsigned int)mask, object, fr);
  31     switch (mask)
  32     {
  33         case FRF_INTUIFUNC:
  34             msg = (struct IntuiMessage *)object;
  35             printf("intuimsg msg %p, class %u code %d\n", msg, (unsigned int)msg->Class, msg->Code);
  36             return (IPTR)object;
  37             break;
  38         case FRF_FILTERFUNC:
  39             printf("filterfunc: %s\n", ((struct AnchorPath *)object)->ap_Info.fib_FileName);
  40             return 0;
  41             break;
  42     }
  43     return 0;
  44 }
  45
  46 int main(void)
  47 {
  48     struct FileRequester *fr;
  49
  50     if (window = OpenWindowTags(NULL,
  51         WA_Title, "ASL hook",
  52         WA_Width, 300,
  53         WA_Height, 200,
  54         WA_IDCMP, IDCMP_ACTIVEWINDOW,
  55         WA_Flags, WFLG_DEPTHGADGET,
  56         TAG_END))
  57     {
  58         if (fr = AllocFileRequest())
  59         {
  60             if (AslRequestTags(fr,
  61                 ASL_Dir, "RAM:",
  62                 ASL_Window, window,
  63                 ASL_Hail, "Test",
  64                 ASL_HookFunc, func,
  65                 ASLFR_Flags1, FRF_FILTERFUNC | FRF_INTUIFUNC,
  66                 TAG_END))
  67             {
  68                 printf("path %s file %s\n", fr->rf_Dir, fr->rf_File);
  69             }
  70             FreeFileRequest(fr);
  71         }
  72         CloseWindow(window);
  73     }
  74     return 0;
  75 }