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

Revision 1.1.1.1 (vendor branch), Fri Dec 3 07:39:08 1999 UTC (24 years, 5 months ago) by noro
Branch: NORO
CVS Tags: RELEASE_20000124, RELEASE_1_1_2, ASIR2000
Changes since 1.1: +0 -0 lines 

Imported asir2000 as OpenXM_contrib2/asir2000.

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

void addnum(vl,a,b,c)
VL vl;
Num a,b,*c;
{
	(*addnumt[MAX(a?NID(a):0,b?NID(b):0)])(a,b,c);
}

void subnum(vl,a,b,c)
VL vl;
Num a,b,*c;
{
	(*subnumt[MAX(a?NID(a):0,b?NID(b):0)])(a,b,c);
}

void mulnum(vl,a,b,c)
VL vl;
Num a,b,*c;
{
	(*mulnumt[MAX(a?NID(a):0,b?NID(b):0)])(a,b,c);
}

void divnum(vl,a,b,c)
VL vl;
Num a,b,*c;
{
	(*divnumt[MAX(a?NID(a):0,b?NID(b):0)])(a,b,c);
}

void pwrnum(vl,a,b,c)
VL vl;
Num a,b,*c;
{
	(*pwrnumt[MAX(a?NID(a):0,b?NID(b):0)])(a,b,c);
}

void chsgnnum(a,c)
Num a,*c;
{
	(*chsgnnumt[a?NID(a):0])(a,c);
}

int compnum(vl,a,b)
VL vl;
Num a,b;
{
	return (*cmpnumt[MAX(a?NID(a):0,b?NID(b):0)])(a,b);
}