view release on metacpan or search on metacpan
lib/LaTeXML/Plugin/LtxMojo/public/js/external/ace-min/ace.js view on Meta::CPAN
(function(){function o(e){var i=function(e,t){return r("",e,t)},s=t;e&&(t[e]||(t[e]={}),s=t[e]);if(!s.define||!s.define.packaged)n.original=s.define,s.define=n,s.define.packaged=!0;if(!s.require||!s.require.packaged)r.original=s.require,s.require=i,s...
(function() {
window.require(["ace/ace"], function(a) {
a && a.config.init();
if (!window.ace)
window.ace = {};
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Lab/Data/Analysis/WaveRunner.pm view on Meta::CPAN
sub double_from_hex { unpack 'd', scalar reverse pack 'H*', $_[0] }
use constant POS_INF => double_from_hex '7FF0000000000000';
use constant NEG_INF => double_from_hex 'FFF0000000000000';
use constant NaN => double_from_hex '7FF8000000000000';
sub _double # assumes MSB data input
{
# my ($bytes) = @_;
# my ($bottom, $top) = unpack ("LL", $bytes);
lib/Lab/Data/Analysis/WaveRunner.pm view on Meta::CPAN
elsif ( $top == 0xfff00000 ) {
return NEG_INF;
}
}
elsif ( $top == 0x7ff00000 ) {
return NaN;
}
my $sign = $top >> 31;
# print "sgn $sign\n";
my $exponent = ( ( $top >> 20 ) & 0x7FF ) - 1023;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Lab/Moose/DataFile/Read.pm view on Meta::CPAN
}
if ( @rows > 0 ) {
push @blocks, pdl( \@rows );
}
# bring blocks to same number of rows: reshape and add NaNs.
my $max_rows = List::Util::max( map { ( $_->dims )[1] } @blocks );
for my $block (@blocks) {
my $rows = ( $block->dims() )[1];
if ( $rows < $max_rows ) {
$block->reshape( $num_columns, $max_rows );
$block->slice(":,${rows}:-1") .= "NaN";
}
}
return PDL::cat(@blocks);
}
view all matches for this distribution
view release on metacpan or search on metacpan
s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
s++;
}
sawinf = 1;
} else if (*s == 'N' || *s == 'n') {
/* XXX TODO: There are signaling NaNs and quiet NaNs. */
s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
s++;
sawnan = 1;
} else
view all matches for this distribution
view release on metacpan or search on metacpan
s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
s++;
}
sawinf = 1;
} else if (*s == 'N' || *s == 'n') {
/* XXX TODO: There are signaling NaNs and quiet NaNs. */
s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
s++;
sawnan = 1;
} else
view all matches for this distribution
view release on metacpan or search on metacpan
vhost/html/js/tiny_mce/plugins/table/editor_plugin.js view on Meta::CPAN
(function(){var each=tinymce.each;tinymce.create('tinymce.plugins.TablePlugin',{init:function(ed,url){var t=this;t.editor=ed;t.url=url;each([['table','table.desc','mceInsertTable',true],['delete_table','table.del','mceTableDelete'],['delete_col','tab...
view all matches for this distribution
view release on metacpan or search on metacpan
s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
s++;
}
sawinf = 1;
} else if (*s == 'N' || *s == 'n') {
/* XXX TODO: There are signaling NaNs and quiet NaNs. */
s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
s++;
sawnan = 1;
} else
view all matches for this distribution
view release on metacpan or search on metacpan
s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
s++;
}
sawinf = 1;
} else if (*s == 'N' || *s == 'n') {
/* XXX TODO: There are signaling NaNs and quiet NaNs. */
s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
s++;
sawnan = 1;
} else
view all matches for this distribution
view release on metacpan or search on metacpan
s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
s++;
}
sawinf = 1;
} else if (*s == 'N' || *s == 'n') {
/* XXX TODO: There are signaling NaNs and quiet NaNs. */
s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
s++;
sawnan = 1;
} else
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Language/Expr/Compiler/js.pm view on Meta::CPAN
sub rule_num {
my ($self, %args) = @_;
my $match = $args{match};
if ($match->{num} eq 'inf') { 'Infinity' }
elsif ($match->{num} eq 'nan') { 'NaN' }
else { $match->{num}+0 }
}
sub rule_var {
my ($self, %args) = @_;
view all matches for this distribution
view release on metacpan or search on metacpan
hugs98-Nov2003/fptools/libraries/base/GHC/Float.lhs view on Meta::CPAN
decodeFloat :: a -> (Integer,Int)
encodeFloat :: Integer -> Int -> a
exponent :: a -> Int
significand :: a -> a
scaleFloat :: Int -> a -> a
isNaN, isInfinite, isDenormalized, isNegativeZero, isIEEE
:: a -> Bool
atan2 :: a -> a -> a
exponent x = if m == 0 then 0 else n + floatDigits x
hugs98-Nov2003/fptools/libraries/base/GHC/Float.lhs view on Meta::CPAN
(isNegativeZero x && isNegativeZero y)
= -atan2 (-y) x
| y == 0 && (x < 0 || isNegativeZero x)
= pi -- must be after the previous test on zero y
| x==0 && y==0 = y -- must be after the other double zero tests
| otherwise = x + y -- x or y is a NaN, return a NaN (via +)
\end{code}
%*********************************************************
%* *
hugs98-Nov2003/fptools/libraries/base/GHC/Float.lhs view on Meta::CPAN
significand x = case decodeFloat x of
(m,_) -> encodeFloat m (negate (floatDigits x))
scaleFloat k x = case decodeFloat x of
(m,n) -> encodeFloat m (n+k)
isNaN x = 0 /= isFloatNaN x
isInfinite x = 0 /= isFloatInfinite x
isDenormalized x = 0 /= isFloatDenormalized x
isNegativeZero x = 0 /= isFloatNegativeZero x
isIEEE _ = True
hugs98-Nov2003/fptools/libraries/base/GHC/Float.lhs view on Meta::CPAN
(m,_) -> encodeFloat m (negate (floatDigits x))
scaleFloat k x = case decodeFloat x of
(m,n) -> encodeFloat m (n+k)
isNaN x = 0 /= isDoubleNaN x
isInfinite x = 0 /= isDoubleInfinite x
isDenormalized x = 0 /= isDoubleDenormalized x
isNegativeZero x = 0 /= isDoubleNegativeZero x
isIEEE _ = True
hugs98-Nov2003/fptools/libraries/base/GHC/Float.lhs view on Meta::CPAN
data FFFormat = FFExponent | FFFixed | FFGeneric
formatRealFloat :: (RealFloat a) => FFFormat -> Maybe Int -> a -> String
formatRealFloat fmt decs x
| isNaN x = "NaN"
| isInfinite x = if x < 0 then "-Infinity" else "Infinity"
| x < 0 || isNegativeZero x = '-':doFmt fmt (floatToDigits (toInteger base) (-x))
| otherwise = doFmt fmt (floatToDigits (toInteger base) x)
where
base = 10
hugs98-Nov2003/fptools/libraries/base/GHC/Float.lhs view on Meta::CPAN
Rational -> Float #-}
fromRat :: (RealFloat a) => Rational -> a
-- Deal with special cases first, delegating the real work to fromRat'
fromRat (n :% 0) | n > 0 = 1/0 -- +Infinity
| n == 0 = 0/0 -- NaN
| n < 0 = -1/0 -- -Infinity
fromRat (n :% d) | n > 0 = fromRat' (n :% d)
| n == 0 = encodeFloat 0 0 -- Zero
| n < 0 = - fromRat' ((-n) :% d)
hugs98-Nov2003/fptools/libraries/base/GHC/Float.lhs view on Meta::CPAN
encodeFloat# :: Int# -> ByteArray# -> Int -> Float
foreign import ccall unsafe "__int_encodeFloat"
int_encodeFloat# :: Int# -> Int -> Float
foreign import ccall unsafe "isFloatNaN" isFloatNaN :: Float -> Int
foreign import ccall unsafe "isFloatInfinite" isFloatInfinite :: Float -> Int
foreign import ccall unsafe "isFloatDenormalized" isFloatDenormalized :: Float -> Int
foreign import ccall unsafe "isFloatNegativeZero" isFloatNegativeZero :: Float -> Int
foreign import ccall unsafe "__encodeDouble"
encodeDouble# :: Int# -> ByteArray# -> Int -> Double
foreign import ccall unsafe "__int_encodeDouble"
int_encodeDouble# :: Int# -> Int -> Double
foreign import ccall unsafe "isDoubleNaN" isDoubleNaN :: Double -> Int
foreign import ccall unsafe "isDoubleInfinite" isDoubleInfinite :: Double -> Int
foreign import ccall unsafe "isDoubleDenormalized" isDoubleDenormalized :: Double -> Int
foreign import ccall unsafe "isDoubleNegativeZero" isDoubleNegativeZero :: Double -> Int
\end{code}
view all matches for this distribution
view release on metacpan or search on metacpan
s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
s++;
}
sawinf = 1;
} else if (*s == 'N' || *s == 'n') {
/* XXX TODO: There are signaling NaNs and quiet NaNs. */
s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
s++;
sawnan = 1;
} else
view all matches for this distribution
view release on metacpan or search on metacpan
t/tmpl/12-lsmb-api-ic-inventory.t view on Meta::CPAN
IC_tax_2150_description => '2150--Sales Tax',
notes => '',
oldmarkup => '1,215.8',
priceupdate => $date,
sellprice => '62.50',
listprice => 'NaN.00',
lastcost => '24.50',
markup => '1,215.8',
weightunit => 'lbs',
customercurr_1 => 'USD',
customer_rows => 1,
t/tmpl/12-lsmb-api-ic-inventory.t view on Meta::CPAN
);
$fields{'partnumber'} = 'Widgets-0500';
$fields{'description'} = 'Widgets, 500 to the pack';
$fields{'sellprice'} = '125.00';
$fields{'listprice'} = 'NaN.00';
$fields{'lastcost'} = '49.00';
$fields{'qty_1'} = '500';
# Create another new Assembly
my $assy_500_part_id = LedgerSMB::API->create_new_assembly($myconfig,$lsmb,\%fields);
t/tmpl/12-lsmb-api-ic-inventory.t view on Meta::CPAN
);
$fields{'partnumber'} = 'Widgets-1000';
$fields{'description'} = 'Widgets, 1000 to the pack';
$fields{'sellprice'} = '250.00';
$fields{'listprice'} = 'NaN.00';
$fields{'lastcost'} = '98.00';
$fields{'qty_1'} = '1000';
# Create still another new Assembly
my $assy_1000_part_id = LedgerSMB::API->create_new_assembly($myconfig,$lsmb,\%fields);
t/tmpl/12-lsmb-api-ic-inventory.t view on Meta::CPAN
path => 'bin/mozilla',
login => 'LSMB_USER',
rowcount => 2,
oldqty_1 => 5102,
id_1 => $part_id,
listprice_1 => 'NaN.00',
lastcost_1 => 'NaN.00',
# taxaccounts_1 => '2150',
sku_1 => 'Widget-0001',
inventory_accno_id_1 => '10013',
income_accno_id_1 => '10049',
expense_accno_id_1 => '10057',
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Lemonldap/NG/Manager/Conf/Parser.pm view on Meta::CPAN
}
my $newapp = $app;
# Compute a nice name for new nodes, taking care of potential conflicts
# For some reason, the manager sends /nNaN sometimes
if ( $newapp =~ /^n(\d+|NaN)$/ ) {
# Remove all special characters
my $baseName = $leaf->{title} =~ s/\W//gr;
$baseName = lc $baseName;
$newapp = $baseName;
view all matches for this distribution
view release on metacpan or search on metacpan
site/htdocs/static/bwr/jquery-ui/jquery-ui.js view on Meta::CPAN
// ~~ is an short way of doing floor for positive numbers
value = type.floor ? ~~value : parseFloat( value );
// IE will pass in empty strings as value for alpha,
// which will hit this case
if ( isNaN( value ) ) {
return prop.def;
}
if ( type.mod ) {
site/htdocs/static/bwr/jquery-ui/jquery-ui.js view on Meta::CPAN
for ( name in newStyle ) {
value = newStyle[ name ];
if ( oldStyle[ name ] !== value ) {
if ( !shorthandStyles[ name ] ) {
if ( $.fx.step[ name ] || !isNaN( parseFloat( value ) ) ) {
diff[ name ] = value;
}
}
}
}
site/htdocs/static/bwr/jquery-ui/jquery-ui.js view on Meta::CPAN
position: element.css( "position" ),
zIndex: element.css( "z-index" )
} );
$.each( [ "top", "left", "bottom", "right" ], function( i, pos ) {
props[ pos ] = element.css( pos );
if ( isNaN( parseInt( props[ pos ], 10 ) ) ) {
props[ pos ] = "auto";
}
} );
element.css( {
position: "relative",
site/htdocs/static/bwr/jquery-ui/jquery-ui.js view on Meta::CPAN
// IE returns 0 when zIndex is not specified
// other browsers return a string
// we ignore the case of nested elements with an explicit value of 0
// <div style="z-index: -10;"><div style="z-index: 0;"></div></div>
value = parseInt( elem.css( "zIndex" ), 10 );
if ( !isNaN( value ) && value !== 0 ) {
return value;
}
}
elem = elem.parent();
}
site/htdocs/static/bwr/jquery-ui/jquery-ui.js view on Meta::CPAN
matches = pattern.exec( offset );
}
return new Date( year, month, day );
},
newDate = ( date == null || date === "" ? defaultDate : ( typeof date === "string" ? offsetString( date ) :
( typeof date === "number" ? ( isNaN( date ) ? defaultDate : offsetNumeric( date ) ) : new Date( date.getTime() ) ) ) );
newDate = ( newDate && newDate.toString() === "Invalid Date" ? defaultDate : newDate );
if ( newDate ) {
newDate.setHours( 0 );
newDate.setMinutes( 0 );
site/htdocs/static/bwr/jquery-ui/jquery-ui.js view on Meta::CPAN
"" )
.append( isRTL ? "" : controls )[ 0 ].outerHTML;
}
firstDay = parseInt( this._get( inst, "firstDay" ), 10 );
firstDay = ( isNaN( firstDay ) ? 0 : firstDay );
showWeek = this._get( inst, "showWeek" );
dayNames = this._get( inst, "dayNames" );
dayNamesMin = this._get( inst, "dayNamesMin" );
monthNames = this._get( inst, "monthNames" );
site/htdocs/static/bwr/jquery-ui/jquery-ui.js view on Meta::CPAN
thisYear = new Date().getFullYear();
determineYear = function( value ) {
var year = ( value.match( /c[+\-].*/ ) ? drawYear + parseInt( value.substring( 1 ), 10 ) :
( value.match( /[+\-].*/ ) ? thisYear + parseInt( value, 10 ) :
parseInt( value, 10 ) ) );
return ( isNaN( year ) ? thisYear : year );
};
year = determineYear( years[ 0 ] );
endYear = Math.max( year, determineYear( years[ 1 ] || "" ) );
year = ( minDate ? Math.max( year, minDate.getFullYear() ) : year );
endYear = ( maxDate ? Math.min( endYear, maxDate.getFullYear() ) : endYear );
site/htdocs/static/bwr/jquery-ui/jquery-ui.js view on Meta::CPAN
_num: function( value ) {
return parseFloat( value ) || 0;
},
_isNumber: function( value ) {
return !isNaN( parseFloat( value ) );
},
_hasScroll: function( el, a ) {
if ( $( el ).css( "overflow" ) === "hidden" ) {
site/htdocs/static/bwr/jquery-ui/jquery-ui.js view on Meta::CPAN
_parse: function( val ) {
if ( typeof val === "string" && val !== "" ) {
val = window.Globalize && this.options.numberFormat ?
Globalize.parseFloat( val, 10, this.options.culture ) : +val;
}
return val === "" || isNaN( val ) ? null : val;
},
_format: function( value ) {
if ( value === "" ) {
return "";
view all matches for this distribution
view release on metacpan or search on metacpan
s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
s++;
}
sawinf = 1;
} else if (*s == 'N' || *s == 'n') {
/* XXX TODO: There are signaling NaNs and quiet NaNs. */
s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
s++;
sawnan = 1;
} else
view all matches for this distribution
view release on metacpan or search on metacpan
s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
s++;
}
sawinf = 1;
} else if (*s == 'N' || *s == 'n') {
/* XXX TODO: There are signaling NaNs and quiet NaNs. */
s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
s++;
sawnan = 1;
} else
view all matches for this distribution
view release on metacpan or search on metacpan
inc/inc_Config-AutoConf/Config/AutoConf.pm view on Meta::CPAN
if (ref($_)) {
return overload::Overloaded($_) ? defined(0 + $_) : 0;
}
return 1 if (/^[+-]?[0-9]+$/); # is a +/- integer
return 1 if (/^([+-]?)(?=[0-9]|\.[0-9])[0-9]*(\.[0-9]*)?([Ee]([+-]?[0-9]+))?$/); # a C float
return 1 if ($] >= 5.008 and /^(Inf(inity)?|NaN)$/i) or ($] >= 5.006001 and /^Inf$/i);
0;
}
EOP
view all matches for this distribution
view release on metacpan or search on metacpan
s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
s++;
}
sawinf = 1;
} else if (*s == 'N' || *s == 'n') {
/* XXX TODO: There are signaling NaNs and quiet NaNs. */
s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
s++;
sawnan = 1;
} else
view all matches for this distribution
view release on metacpan or search on metacpan
s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
s++;
}
sawinf = 1;
} else if (*s == 'N' || *s == 'n') {
/* XXX TODO: There are signaling NaNs and quiet NaNs. */
s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
s++;
sawnan = 1;
} else
view all matches for this distribution
view release on metacpan or search on metacpan
s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
s++;
}
sawinf = 1;
} else if (*s == 'N' || *s == 'n') {
/* XXX TODO: There are signaling NaNs and quiet NaNs. */
s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
s++;
sawnan = 1;
} else
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Lingua/EO/Numbers.pm view on Meta::CPAN
Readonly my %WORDS => (
',' => 'komo',
'-' => 'negativa',
'+' => 'positiva',
inf => 'senfineco',
NaN => 'ne nombro',
);
# convert number to words
sub num2eo {
my ($number) = @_;
my @names;
return unless defined $number;
return $WORDS{NaN} if $number eq 'NaN';
if ($number =~ m/^ ( [-+] )? inf $/ix) {
# infinity
push @names, $1 ? $WORDS{$1} : (), $WORDS{inf};
}
lib/Lingua/EO/Numbers.pm view on Meta::CPAN
=item num2eo EXPR
If EXPR looks like a number, the text describing the number is returned. Both
integers and real numbers are supported, including negatives. Special values
such as "inf" and "NaN" are also supported.
=item num2eo_ordinal EXPR
If EXPR looks like an integer, the text describing the number in ordinal form
is returned. The behavior when passing a non-integer value is undefined.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Lingua/EN/Numbers.pm view on Meta::CPAN
sub num2en {
my $x = $_[0];
return undef unless defined $x and length $x;
return 'not-a-number' if $x eq 'NaN';
return 'positive infinity' if $x =~ m/^\+inf(?:inity)?$/si;
return 'negative infinity' if $x =~ m/^\-inf(?:inity)?$/si;
return 'infinity' if $x =~ m/^inf(?:inity)?$/si;
return $D{$x} if exists $D{$x}; # the most common cases
lib/Lingua/EN/Numbers.pm view on Meta::CPAN
they will return C<undef>.
This module can handle integers like "12" or "-3" and real numbers like "53.19".
This module also understands exponential notation -- it turns "4E9" into
"four times ten to the ninth"). And it even turns "INF", "-INF", "NaN"
into "infinity", "negative infinity", and "not a number", respectively.
Any commas in the input numbers are ignored.
=head1 LEGACY INTERFACE
view all matches for this distribution
view release on metacpan or search on metacpan
s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
s++;
}
sawinf = 1;
} else if (*s == 'N' || *s == 'n') {
/* XXX TODO: There are signaling NaNs and quiet NaNs. */
s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
s++;
sawnan = 1;
} else
view all matches for this distribution
view release on metacpan or search on metacpan
s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
s++;
}
sawinf = 1;
} else if (*s == 'N' || *s == 'n') {
/* XXX TODO: There are signaling NaNs and quiet NaNs. */
s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
s++;
sawnan = 1;
} else
view all matches for this distribution
view release on metacpan or search on metacpan
src/ppport.h view on Meta::CPAN
s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
s++;
}
sawinf = 1;
} else if (*s == 'N' || *s == 'n') {
/* XXX TODO: There are signaling NaNs and quiet NaNs. */
s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
s++;
sawnan = 1;
} else
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Lingua/RO/Numbers.pm view on Meta::CPAN
invalid_number => undef,
negative_sign => 'minus',
decimal_point => 'virgulÄ',
thousands_separator => '',
infinity => 'infinit',
not_a_number => 'NaN',
);
=item B<number_to_ro($number)>
Converts a number to its Romanian string representation.
lib/Lingua/RO/Numbers.pm view on Meta::CPAN
invalid_number => undef,
negative_sign => 'minus',
decimal_point => 'virgulÄ',
thousands_separator => '',
infinity => 'infinit',
not_a_number => 'NaN',
}, $class;
foreach my $key (keys %{$self}) {
if (exists $opts{$key}) {
$self->{$key} = delete $opts{$key};
lib/Lingua/RO/Numbers.pm view on Meta::CPAN
if ($words[0] eq $neg_sign) {
$neg = 1;
shift @words;
}
# Check for infinity and NaN
if (@words == 1) {
# Infinity
my $inf = _normalize_text($self->{infinity});
if ($words[0] eq $inf) {
lib/Lingua/RO/Numbers.pm view on Meta::CPAN
my @words;
if (exists $DIGITS{$number}) { # example: 8
push @words, $DIGITS{$number};
}
elsif (lc($number) eq 'nan') { # not a number (NaN)
return $self->{not_a_number};
}
elsif ($number == 9**9**9) { # number is infinit
return $self->{infinity};
}
view all matches for this distribution
view release on metacpan or search on metacpan
s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
s++;
}
sawinf = 1;
} else if (*s == 'N' || *s == 'n') {
/* XXX TODO: There are signaling NaNs and quiet NaNs. */
s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
s++;
sawnan = 1;
} else
view all matches for this distribution
view release on metacpan or search on metacpan
s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
s++;
}
sawinf = 1;
} else if (*s == 'N' || *s == 'n') {
/* XXX TODO: There are signaling NaNs and quiet NaNs. */
s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
s++;
sawnan = 1;
} else
view all matches for this distribution