ack/lang/basic/lib/conversion.c

/* $Id$ */

int _cint(double f)
{
	int r;
	if( f<-32768 || f>32767) error(4);
	if(f<0)
		r= f-0.5;
	else	r= f+0.5;
	return(r);
}

double _trunc(double f)
{
	long d;
	d=f;
	f=d;
	return( f );
}

double _fcint(double f)
{
	long r;
	if(f<0){
		r= -f;
		r= -r -1;
	}else	r= f;
	f=r;
	return(f);
}
int _fix(double f)
{
	int r;

	if( f<-32768.0 || f>32767.0) error(4);
	r= _sgn(f) * _fcint((f>0.0? f : -f));
	return(r);
}