| Subject: | Allow Strip_Comments for language BC |
The current version of Inline::Filters does not provide the
"Strip_Comments" filter for the language BC. Would it be possible to
make this filter available for BC?
Comments in BC are exactly the same as for the C language.
I've attached a sample Perl program which uses the "FILTERS" option in
Inline::BC as shown below.
use Inline BC => "DATA",
FORCE_BUILD => 1,
MATH_LIB => 1,
FILTERS => [ qw(Strip_POD Strip_Comments) ];
Please note that the current version of Inline::BC (0.07) has a problem
with the "FILTERS" option. This problem is resolved in version 0.08. The
release candidate for Inline::BC 0.08 is available from,
http://au.geocities.com/rongrw/
Kind regards,
Ron.
| Subject: | sinhcalc_t2.pl |
#!/usr/local/bin/perl
#------------------------------------------------------------------------------
# PERL SCRIPT : sinhcalc.pl
# VERSION : 1.00.0
# AUTHOR : Ron Grunwald
# EMAIL : rongrw@yahoo.com.au
# DATE WRITTEN : Jan 14, 2009
#------------------------------------------------------------------------------
MainFunction: {
use strict;
use warnings;
use constant { MAIN_NAME => q{sinhcalc.pl},
BOOL_T => 1,
BOOL_F => 0,
ERR_FLAG => -1
};
use feature ":5.10";
# use blib "/home/rong/dvlCorner/Inline-BC-0.08-dvl/src";
use Inline BC => "DATA",
FORCE_BUILD => 1,
MATH_LIB => 1,
FILTERS => [ qw(Strip_POD Strip_Comments) ];
my ($n, $r);
for ($n = 1; $n < 6.0; $n += 0.5) {
$r = bc_sinh( $n );
# $r = bc_sqrt( $n );
say (" N = $n SINH = $r");
# say (" N = $n SQRT = $r");
}
}
__END__
__BC__
/* Function to calculate the hyperbolic sine
of real value u.
*/
define bc_sinh (u) {
scale = 12
t = (e(u) - e(-u)) * 0.5
return ( t )
}
/* Function to access the square-root expression that
BC provides.
*/
define bc_sqrt (u) {
scale = 12
t = sqrt(u)
return ( t )
}