[BACK]Return to ui.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / engine
File: [local] / OpenXM_contrib2 / asir2000 / engine / ui.c (download)

Revision 1.1, Fri Dec 3 07:39:08 1999 UTC (24 years, 5 months ago) by noro
Branch: MAIN 

Initial revision

/* $OpenXM: OpenXM_contrib2/asir2000/engine/ui.c,v 1.1 1999/12/03 07:39:08 noro Exp $ */
#include "ca.h"

int compui(vl,a,b)
VL vl;
USINT a,b;
{
	if ( !a ) 
		if ( !b ) 
			return 0;
		else 
			return -1;
	else if ( !b ) 
		return 1;
	else if ( BDY(a) > BDY(b) )
		return 1;
	else if ( BDY(a) < BDY(b) ) 
		return -1;
	else
		return 0;
}