mirror of
https://github.com/deadw00d/AROS.git
synced 2025-11-22 11:49:05 +00:00
55 lines
1.1 KiB
C
55 lines
1.1 KiB
C
/*
|
|
Copyright (C) 1995-2002, The AROS Development Team. All rights reserved.
|
|
|
|
Desc:
|
|
*/
|
|
#include "rexxsyslib_intern.h"
|
|
|
|
/*****************************************************************************
|
|
|
|
NAME */
|
|
#include <clib/rexxsyslib_protos.h>
|
|
|
|
AROS_LH1(BOOL, IsRexxMsg,
|
|
|
|
/* SYNOPSIS */
|
|
AROS_LHA(struct RexxMsg *, msgptr, A0),
|
|
|
|
/* LOCATION */
|
|
struct Library *, RexxSysBase, 28, RexxSys)
|
|
|
|
/* FUNCTION
|
|
Test to see if given Message is a RexxMsg
|
|
|
|
INPUTS
|
|
msgptr - Message to test
|
|
|
|
RESULT
|
|
TRUE if it is one, FALSE otherwise
|
|
|
|
NOTES
|
|
|
|
EXAMPLE
|
|
|
|
BUGS
|
|
|
|
SEE ALSO
|
|
CreateRexxMsg()
|
|
|
|
INTERNALS
|
|
The name of the Node part of the Message is used to see if this
|
|
is a RexxMsg.
|
|
|
|
*****************************************************************************/
|
|
{
|
|
AROS_LIBFUNC_INIT
|
|
|
|
BOOL ok = FALSE;
|
|
char *name = ((struct Node *)msgptr)->ln_Name, *id = RSBI(RexxSysBase)->rexxmsgid;
|
|
|
|
if (name == id) ok = TRUE;
|
|
|
|
ReturnBool("IsRexxMsg", ok);
|
|
AROS_LIBFUNC_EXIT
|
|
} /* IsRexxMsg */
|