regina/isreginamsg.c

   1 /*
   2     Copyright © 2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <exec/types.h>
   7 #include <rexx/storage.h>
   8 #include <proto/rexxsyslib.h>
   9
  10 #include "rexx.h"
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15
  16 BOOL IsReginaMsg (struct RexxMsg *msg)
  17
  18 /*  FUNCTION
  19         Check to see if message was generated from the regina interpreter.
  20         This function will look at the rm_Private1 and rm_Private2 fields
  21         to see if they are valid.
  22
  23     INPUTS
  24
  25     RESULT
  26
  27     NOTES
  28
  29     EXAMPLE
  30
  31     BUGS
  32
  33     SEE ALSO
  34
  35     INTERNALS
  36
  37 *****************************************************************************/
  38 {
  39     tsd_node_t *node;
  40     BOOL ok;
  41     struct Library *RexxSysBase;
  42
  43     RexxSysBase = OpenLibrary("rexxsyslib.library", 0);
  44     if (RexxSysBase == NULL) return FALSE;
  45     ok = IsRexxMsg(msg);
  46     CloseLibrary(RexxSysBase);
  47     if (!ok) return FALSE;
  48
  49     ok = FALSE;
  50     ForeachNode(__regina_tsdlist, node)
  51     {
  52         if (node->TSD == (tsd_t *)msg->rm_Private2)
  53         {
  54             ok = TRUE;
  55             break;
  56         }
  57     }
  58
  59     return ok;
  60 }