#!/usr/bin/perl -w
##########
#
# Inline example simple to Example 3 from perlxstut.
#
###########
use strict;

use Inline 'C';

my $i = 2.3;
print " $i rounded off is " . c_round($i) . "\n";

__DATA__

__C__

  int c_round( double arg ) {
    int answer;
    if (arg > 0.0) {
      answer = (int)floor(arg + 0.5);
    } else if (arg < 0.0) {
      answer = (int)ceil(arg - 0.5);
    } else {
      answer = 0;
    }
    return answer;
  }