#!/usr/bin/perl -lw
use strict;

use Inline C => Config => BUILD_NOISY => 1;
use Inline C => <<'END_C',  NAME => 'ieeroundmode', CLEAN_AFTER_BUILD => 0;

unsigned int controlFP( unsigned int new, unsigned int mask ) {
    return _controlfp( new, mask );
}

END_C

use constant {
    RC_MASK => 0x00000300,
    RC_CHOP => 0x00000300,
    RC_UP   => 0x00000200,
    RC_DOWN => 0x00000100,
    RC_NEAR => 0x00000000,
};

my @n;
my $m;

@n = qw< 0.000005 0.000015 0.000025 0.000035 0.000045
         0.000055 0.000065 0.000075 0.000085 0.000095 >;
$m= $n[0];
for my $n ( @n ) {
    printf " %.22f   %.5f   %.22f   %.5f\n", $n, $n, $m, $m;
    $m += 0.00001;
}

print "Setting mode CHOP; controlFP returned: ", controlFP( RC_CHOP, RC_MASK );
@n = qw< 0.000005 0.000015 0.000025 0.000035 0.000045
         0.000055 0.000065 0.000075 0.000085 0.000095 >;
$m= $n[0];
for my $n ( @n ) {
    printf " %.22f   %.5f   %.22f   %.5f\n", $n, $n, $m, $m;
    $m += 0.00001;
}

print "Setting mode UP; controlFP returned: ", controlFP( RC_UP, RC_MASK );
@n = qw< 0.000005 0.000015 0.000025 0.000035 0.000045
         0.000055 0.000065 0.000075 0.000085 0.000095 >;
$m= $n[0];
for my $n ( @n ) {
    printf " %.22f   %.5f   %.22f   %.5f\n", $n, $n, $m, $m;
    $m += 0.00001;
}

print "Setting mode DOWN; controlFP returned: ", controlFP( RC_DOWN, RC_MASK );
@n = qw< 0.000005 0.000015 0.000025 0.000035 0.000045
         0.000055 0.000065 0.000075 0.000085 0.000095 >;
$m= $n[0];
for my $n ( @n ) {
    printf " %.22f   %.5f   %.22f   %.5f\n", $n, $n, $m, $m;
    $m += 0.00001;
}

print "Setting mode NEAR; controlFP returned: ", controlFP( RC_NEAR, RC_MASK );
@n = qw< 0.000005 0.000015 0.000025 0.000035 0.000045
         0.000055 0.000065 0.000075 0.000085 0.000095 >;
$m= $n[0];
for my $n ( @n ) {
    printf " %.22f   %.5f   %.22f   %.5f\n", $n, $n, $m, $m;
    $m += 0.00001;
}