Return to ui.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

Annotation of OpenXM_contrib2/asir2000/engine/ui.c, Revision 1.1

1.1     ! noro        1: /* $OpenXM: OpenXM/src/asir99/engine/ui.c,v 1.1.1.1 1999/11/10 08:12:26 noro Exp $ */
        !             2: #include "ca.h"
        !             3:
        !             4: int compui(vl,a,b)
        !             5: VL vl;
        !             6: USINT a,b;
        !             7: {
        !             8:        if ( !a )
        !             9:                if ( !b )
        !            10:                        return 0;
        !            11:                else
        !            12:                        return -1;
        !            13:        else if ( !b )
        !            14:                return 1;
        !            15:        else if ( BDY(a) > BDY(b) )
        !            16:                return 1;
        !            17:        else if ( BDY(a) < BDY(b) )
        !            18:                return -1;
        !            19:        else
        !            20:                return 0;
        !            21: }