modf.gml

来自「开放源码的编译器open watcom 1.6.0版的源代码」· GML 代码 · 共 42 行

.func modf
#include <math.h>
double modf( double value, double *iptr );
.ixfunc2 '&Math' &func
.funcend
.desc begin
The &func function breaks the argument
.arg value
into integral and fractional parts, each of which has the same sign as
the argument.
It stores the integral part as a
.id double
in the object pointed to by
.arg iptr.
.desc end
.return begin
The &func function returns the signed fractional part of
.arg value.
.return end
.see begin
.seelist modf frexp ldexp
.see end
.exmp begin
#include <stdio.h>
#include <math.h>

void main()
  {
    double integral_value, fractional_part;
.exmp break
    fractional_part = modf( 4.5, &integral_value );
    printf( "%f %f\n", fractional_part, integral_value );
    fractional_part = modf( -4.5, &integral_value );
    printf( "%f %f\n", fractional_part, integral_value );
  }
.exmp output
0.500000 4.000000
-0.500000 -4.000000
.exmp end
.class ANSI
.system