revert between 56095 -> 55830 in arch
[AROS.git] / workbench / libs / rexxsyslib / isrexxmsg.c
bloba14d34bc28f9131a83cf814a17e6983656bd3fd1
1 /*
2 Copyright © 1995-2002, The AROS Development Team. All rights reserved.
3 $Id$
5 Desc:
6 Lang: english
7 */
8 #include "rexxsyslib_intern.h"
10 /*****************************************************************************
12 NAME */
13 #include <clib/rexxsyslib_protos.h>
15 AROS_LH1(BOOL, IsRexxMsg,
17 /* SYNOPSIS */
18 AROS_LHA(struct RexxMsg *, msgptr, A0),
20 /* LOCATION */
21 struct Library *, RexxSysBase, 28, RexxSys)
23 /* FUNCTION
24 Test to see if given Message is a RexxMsg
26 INPUTS
27 msgptr - Message to test
29 RESULT
30 TRUE if it is one, FALSE otherwise
32 NOTES
34 EXAMPLE
36 BUGS
38 SEE ALSO
39 CreateRexxMsg()
41 INTERNALS
42 The name of the Node part of the Message is used to see if this
43 is a RexxMsg.
45 *****************************************************************************/
47 AROS_LIBFUNC_INIT
49 BOOL ok = FALSE;
50 char *name = ((struct Node *)msgptr)->ln_Name, *id = RSBI(RexxSysBase)->rexxmsgid;
52 if (name == id) ok = TRUE;
54 ReturnBool("IsRexxMsg", ok);
55 AROS_LIBFUNC_EXIT
56 } /* IsRexxMsg */