77 lines
1.6 KiB
C
77 lines
1.6 KiB
C
|
/* int CompareDecimal(pSrc1,pSrc2)
|
||
|
|
*
|
||
|
|
* ARGUMENT
|
||
|
|
* pSrc1 is a ptr to the source1 DEC structure.
|
||
|
|
* pSrc2 is a ptr to the source2 DEC structure.
|
||
|
|
*
|
||
|
|
* DESCRIPTION
|
||
|
|
* Compares pSrc1:pSrc2 and returns the result of the compare.
|
||
|
|
*
|
||
|
|
* SIDE EFFECTS
|
||
|
|
* None.
|
||
|
|
*
|
||
|
|
* RETURNS
|
||
|
|
* Returns 0 if pSrc1==pSrc2, 1 if pSrc1>pSrc2 and -1 if pSrc2>pSrc1.
|
||
|
|
* However, returns GM_NULLPOINTER if pSrc1 or pSrc2 point to a null.
|
||
|
|
*
|
||
|
|
*
|
||
|
|
* POSSIBLE ERROR CODES
|
||
|
|
*
|
||
|
|
* GM_NULLPOINTER
|
||
|
|
*
|
||
|
|
* AUTHOR
|
||
|
|
* Andy Anderson 14-JAN-1987 14:27
|
||
|
|
* Copyright (C) 1987-1990 Greenleaf Software Inc. All rights reserved.
|
||
|
|
*
|
||
|
|
* MODIFICATIONS
|
||
|
|
*
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <stdio.h>
|
||
|
|
#include "gm.h"
|
||
|
|
#include "gmsystem.h"
|
||
|
|
|
||
|
|
int CompareDecimal(pSrc1,pSrc2)
|
||
|
|
DEC *pSrc1,*pSrc2;
|
||
|
|
{
|
||
|
|
int i;
|
||
|
|
DEC dt,*pt=&dt;
|
||
|
|
|
||
|
|
_MacStart(GM_DCMP);
|
||
|
|
|
||
|
|
_MacInVarI(pSrc1);
|
||
|
|
_MacInVarI(pSrc2);
|
||
|
|
|
||
|
|
if (_MacIsDecZ(pSrc2))
|
||
|
|
_MacRet(TestSignDecimal(pSrc1));
|
||
|
|
|
||
|
|
if (_MacIsDecZ(pSrc1))
|
||
|
|
_MacRet(-TestSignDecimal(pSrc2));
|
||
|
|
|
||
|
|
if (_MacIsDecN(pSrc1)^_MacIsDecN(pSrc2))
|
||
|
|
_MacRet(_MacIsDecP(pSrc1) ? 1 : -1);
|
||
|
|
|
||
|
|
if (pSrc1->dc.id == pSrc2->dc.id) {
|
||
|
|
i=_CompareUnsArr( pSrc1->dc.sl,
|
||
|
|
pSrc2->dc.sl,5);
|
||
|
|
_MacRet(_MacIsDecP(pSrc1) ? i : -i);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (pSrc1->dc.id > pSrc2->dc.id) {
|
||
|
|
i= _ScaleDec80Bit(&dt, pSrc2, pSrc1->dc.id);
|
||
|
|
if (i != GM_SUCCESS)
|
||
|
|
_MacRet(-TestSignDecimal(pSrc2));
|
||
|
|
i=_CompareUnsArr( pSrc1->dc.sl,
|
||
|
|
pt->dc.sl,5);
|
||
|
|
_MacRet(_MacIsDecP(pSrc1) ? i : -i);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* pSrc1->dc.id < pSrc2->dc.id */
|
||
|
|
i= _ScaleDec80Bit(&dt, pSrc1, pSrc2->dc.id);
|
||
|
|
if (i != GM_SUCCESS)
|
||
|
|
_MacRet(TestSignDecimal(pSrc1));
|
||
|
|
i=_CompareUnsArr( pt->dc.sl,
|
||
|
|
pSrc2->dc.sl,5);
|
||
|
|
_MacRet(_MacIsDecP(pSrc2) ? i : -i);
|
||
|
|
}
|