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.