ftp.nice.ch/pub/next/developer/languages/T/T.3.1.N.bs.tar.gz#/T3.1/tsystem/float.c

This is float.c in view mode; [Download] [Up]

fladd(z,x,y)
double *x,*y,*z;
{   *z = *x + *y;}

flsubtract(z,x,y)
double *x,*y,*z;
{   *z = *x - *y;}

flmultiply(z,x,y)
double *x,*y,*z;
{   *z = *x * *y;}

fldivide(z,x,y)
double *x,*y,*z;
{   *z = *x / *y;}

flless(x,y)
double x,y;
{ if (x < y) return 1; return 0;}

flequal(x,y)
double x,y;
{ if (x == y) return 1; return 0;}

flgreater(x,y)
double x,y;
{ if (x > y) return 1; return 0;}

fix(x)
double x;
{ return x;}

double flote(x)
long x;
{ return x;}         

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.