workbench/libs/rexxsyslib/isrexxmsg.c

   1 /*
   2         Copyright © 1995-2002, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include "rexxsyslib_intern.h"
   9
  10 /*****************************************************************************
  11
  12     NAME */
  13 #include <clib/rexxsyslib_protos.h>
  14
  15         AROS_LH1(BOOL, IsRexxMsg,
  16
  17 /*  SYNOPSIS */
  18         AROS_LHA(struct RexxMsg *, msgptr, A0),
  19
  20 /*  LOCATION */
  21         struct Library *, RexxSysBase, 28, RexxSys)
  22
  23 /*  FUNCTION
  24         Test to see if given Message is a RexxMsg
  25
  26     INPUTS
  27         msgptr - Message to test
  28
  29     RESULT
  30         TRUE if it is one, FALSE otherwise
  31
  32     NOTES
  33
  34     EXAMPLE
  35
  36     BUGS
  37
  38     SEE ALSO
  39         CreateRexxMsg()
  40
  41     INTERNALS
  42         The name of the Node part of the Message is used to see if this
  43         is a RexxMsg.
  44
  45 *****************************************************************************/
  46 {
  47     AROS_LIBFUNC_INIT
  48
  49     BOOL ok = FALSE;
  50     char *name = ((struct Node *)msgptr)->ln_Name, *id = RSBI(RexxSysBase)->rexxmsgid;
  51
  52     if (name == id) ok = TRUE;
  53
  54     ReturnBool("IsRexxMsg", ok);
  55     AROS_LIBFUNC_EXIT
  56 } /* IsRexxMsg */