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

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: }