Equal strategy function

/*****************************************************************************
**
** Function name:
**
**      MyShapeEqual
**
** Description:
**
**      Determine if one UDT value is equal to another.
**
** Special Comments:
**
**      Compares two variable-length opaque types for equality
**
** Parameters:
**
**      mi_lvarchar *in1, *in2   UDT instances to be compared.
**      MI_FPARAM   *fp          UDR function parameter & state info.
**
** Return value:
**
**      mi_boolean               The comparison result.
**
******************************************************************************/

UDREXPORT mi_boolean
MyShapeEqual (mi_lvarchar *shape1,
              mi_lvarchar *shape2,
              MI_FPARAM   *fp)
{
    /* Call Compare to perform the comparison. */
    return (mi_boolean) (0 == MyShapeCompare (shape1, shape2, fp));
}