view release on metacpan or search on metacpan
t/test-mails/josey-fold view on Meta::CPAN
On Nov 13, 9:56am in "Re: Defect in XBD lr", Joanna Farley wrote:
> Sun's expert in this area after some discussions with a colleague
> outside of Sun concluded that for lround, to align with both C99 and SUS
> changes of the following form were necessary:
>
> + If x is +/-Inf/NaN, a domain error occurs, and
> + errno is set to EDOM in MATH_ERRNO mode;
> + the invalid exception is raised in MATH_ERREXCEPT mode.
> [to align with C99 Annex F.4]
>
> + If x is too large to be represented as a long, a *range* error
t/test-mails/josey-fold view on Meta::CPAN
>
> Andrew Josey wrote:
> >
> > The text referred to is MX shaded and part of the ISO 60559 floating
> > point option. I do not think changing the Domain Error to a Range Error
> > is the fix or at least not the fix for the NaN and +-Inf cases. ISO C
> > 99 describes the range error case if the magnitude of x is too large as a
> > may fail. I'll ask Fred T for his thoughts on this one...
> > regards
> > Andrew
> >
view all matches for this distribution
view release on metacpan or search on metacpan
t/test-mails/josey-fold view on Meta::CPAN
On Nov 13, 9:56am in "Re: Defect in XBD lr", Joanna Farley wrote:
> Sun's expert in this area after some discussions with a colleague
> outside of Sun concluded that for lround, to align with both C99 and SUS
> changes of the following form were necessary:
>
> + If x is +/-Inf/NaN, a domain error occurs, and
> + errno is set to EDOM in MATH_ERRNO mode;
> + the invalid exception is raised in MATH_ERREXCEPT mode.
> [to align with C99 Annex F.4]
>
> + If x is too large to be represented as a long, a *range* error
t/test-mails/josey-fold view on Meta::CPAN
>
> Andrew Josey wrote:
> >
> > The text referred to is MX shaded and part of the ISO 60559 floating
> > point option. I do not think changing the Domain Error to a Range Error
> > is the fix or at least not the fix for the NaN and +-Inf cases. ISO C
> > 99 describes the range error case if the magnitude of x is too large as a
> > may fail. I'll ask Fred T for his thoughts on this one...
> > regards
> > Andrew
> >
view all matches for this distribution
view release on metacpan or search on metacpan
t/attach-test view on Meta::CPAN
4zRJ5RQKZ4ANdaxtAOOluz/mPQhlyF2fexrA/OEA5oBbz+Mb1nHTsBbDJkL2ehpbXBS0XhNl
xbM+tbbr2ix5VIAOaxOt8VOx9aWJLSqOaY2fihM2njDU2hPaUojtCW1pbDoQWuKnXQjZfmpS
t0aUkErDLESTRtw6EVrR2HQitKKx6UZoQ2PTkdACP+1IaIGfdiU0309FCZkgxo/XdCY0vip2
JzTdTxUQ0gvRmI6bAkJ6e7pThGb7qRJCoxsbQcIGBpMLUQ2hyYWohtDkzpsiQoP9VBWhuX6q
itDcQlRGaGwhChK2WbdgyHCUOsJ6GDM6bgoJDfVTuX9Zjm9mNjYqCc0sRJWEZvZslBIa6adq
CU30U0HNPVH/M9BPFRMa6KeqCc0bPlVNaN6WS/XqnnjQ3STcGFYZNSi0hmb9u/KChFJpmiUF
poHQMHFsDYSGaQ+KEUqVCVzKaFAhaiA0zE11EELEVpnRYkIraKVfGaqFuM13Di4hsThYqlzy
wO1TUGacPTO12iTTgkCYen3cBiRz71rXfQgLU5RB6YScbAjqs3KC9cxIVRxo2PEkkEP+bej1
YUIhbL5+U4jGe9Bn37xO2H33qFm7M6uEgneXF0zMB3vz1Cqh6L1ll5No1vtCrBB216IzTq+P
JJS5KB1FZqytH0SCUG4okJrB7vdItRGEkleU2oJBs1465Dih7AXr4WVLpQ8/xQmlnabzbq8+
ChEjlL9cLUb3e6TeMMIWV6tEUXCP1FtJ2KZlC7lf6ba6wL700JxihC1iV+IIZTeXJ5KI0slK
view all matches for this distribution
view release on metacpan or search on metacpan
eg/forms/js/EmbperlForm.js view on Meta::CPAN
var newid = this.tableelement[0].id ;
newid = newid + '-row-' ;
var lastid = lastrow[0].id ;
var idlength = newid.length ;
this.lastnum = parseInt (lastid.substr(idlength)) ;
if (isNaN(this.lastnum))
this.lastnum = -1 ;
},
addRow: function ()
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
t/data/good/11357122.utf8 view on Meta::CPAN
AChBP was cloned into expression vector pPIC9 (without residue Leu 1)
and overexpressed in yeast, Pichia pastoris GS115, according to the
Invitrogen manual. After 4 days of induction the medium was collected,
concentrated and dialysed against standard buffer (20 mM TrisâHCl
buffer (pH 8.0), 150 mM NaCl and 0.02% (w/v) NaN[3]). The protein was
purified by anion exchange (Poros50 HQ, MonoQ), and gel filtration
(Superdex 200). It was dialysed against 50 mM HEPES buffer (pH 7.0)
with 0.02% NaN[3] and concentrated to approx 20 mg ml^-1. N-terminal
sequencing revealed that part of the pPIC9-encoded signal sequence is
retained, before residue 2 (sequence EAEAYVEF). The experimental
relative molecular mass was 26,544 (MALDI), approx 2K more than the
calculated mass based on the sequence (24,649), owing to glycosylation
at position Asn 66, as confirmed by deglycosylation experiments (data
t/data/good/11357122.utf8 view on Meta::CPAN
§4§ Crystallization §4§
We grew the crystals at room temperature using the hanging-drop vapour
diffusion technique. All drops contained 2 micro l of protein
(10 mg ml^-1) and 2 micro l of reservoir solution (9â11% (w/v) PEG
4000, 100 mM HEPES (pH 7.0), 50â200 mM CaCl[2] and 0.02% NaN[3]).
Depending on the batch of protein and the CaCl[2] concentration, we
obtained three crystal forms. Orthorhombic and monoclinic crystals
appeared under high CaCl[2] concentration and were frequently twinned.
The orthorhombic crystals (P2[1]2[1]2[1]) have the following cell
constants: a = 120.6 Ã
, b = 137.0 Ã
, c = 161.5 Ã
, with two pentamer
t/data/good/11357122.utf8 view on Meta::CPAN
are very similar in morphology to the orthorhombic ones, but gave lower
resolution data ( approx 3.3 Ã
), with the following cell constants: a =
121.1 Ã
, b = 162.1 Ã
, c = 139.4 Ã
, beta = 90.13°, and four pentamers
per asu. The tetragonal crystal form (P4[2]2[1]2) was obtained from a
solution containing 11.5 (w/v) PEG 4000, 100 mM HEPES (pH 7.0), 150 mM
CaCl[2] and 0.02% (w/v) NaN[3]. They have the following cell constants:
a = b = 141.66 Ã
, c = 120.83 Ã
and one pentamer per asu. For MAD
experiments, orthorhombic and monoclinic crystals were soaked in mother
liquor solution containing 5 mM and 10 mM trimethyl-lead acetate (MePb)
respectively for 5 days. Before flash-cooling, all crystals were
gradually equilibrated against mother liquor with 30% glycerol.
view all matches for this distribution
view release on metacpan or search on metacpan
t/x0213-1-compatible.enc view on Meta::CPAN
0x4d20: $BM!M"M#M$M%M&M'M(M)M*M+M,M-M.M/M0M1M2M3M4M5M6M7M8M9M:M;M<M=M>M?(B
0x4d40: $BM@MAMBMCMDMEMFMGMHMIMJMKMLMMMNMOMPMQMRMSMTMUMVMWMXMYMZM[M\M]M^M_(B
0x4d60: $BM`MaMbMcMdMeMfMgMhMiMjMkMlMmMnMoMpMqMrMsMtMuMvMwMxMyMzM{M|M}M~(B
0x4e20: $BN!N"N#N$N%N&N'N(N)N*N+N,N-N.N/N0N1N2N3N4N5N6N7N8N9N:N;N<N=N>N?(B
0x4e40: $BN@NANBNCNDNENFNGNHNINJNKNLNMNNNONPNQNRNSNTNUNVNWNXNYNZN[N\N]N^N_(B
0x4e60: $BN`NaNbNcNdNeNfNgNhNiNjNkNlNmNnNoNpNqNrNsNtNuNvNwNxNyNzN{N|N}N~(B
0x4f20: $BO!O"O#O$O%O&O'O(O)O*O+O,O-O.O/O0O1O2O3O4O5O6O7O8O9O:O;O<O=O>O?(B
0x4f40: $BO@OAOBOCODOEOFOGOHOIOJOKOLOMONOOOPOQOROS$(QOTOUOVOWOXOYOZO[O\O]O^O_(B
0x4f60: $(QO`OaObOcOdOeOfOgOhOiOjOkOlOmOnOoOpOqOrOsOtOuOvOwOxOyOzO{O|O}O~(B
0x5020: $BP!P"P#P$P%P&P'P(P)P*P+P,P-P.P/P0P1P2P3P4P5P6P7P8P9P:P;P<P=P>P?(B
0x5040: $BP@PAPBPCPDPEPFPGPHPIPJPKPLPMPNPOPPPQPRPSPTPUPVPWPXPYPZP[P\P]P^P_(B
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/English/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
Version: GnuPG v1.4.12 (GNU/Linux)
iQEcBAEBAgAGBQJSLLBWAAoJEFKElMNpjtyDn20H/A3W6mgMferPRYjtOTqj3vhN
6txC4cY2CKUdWT6VqRcu54NJA0V8grrF7U/ydP0/6kGQSLVraTr7kxzX1F81IUgw
HvPZXFN8e5Lfs/6PknJn0jM36mfRlFr5y54MRLdPyp1W3JLhB9AfCLy2eIxtp1O9
yV+Hk8XNOVzlNaNs5CCKaSNcsqUBAt9s6Oz0vYjA4kASWcfSvveaFKLfMBoV/cf3
xPrVXrzS9VWEqs15hYbENQDkHPTgQxKwYKSSSUEOMoIIGLytNoxI56LNInKSWH71
a5sCLHTDQZfzETlKFO5KGqLolEL0+OdmGmWY6J+Ty0SXAyKgiWUAo4gbJUwXB0s=
=TGpy
-----END PGP SIGNATURE-----
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
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
1.05 14.05.2023
- add_sheet() can take a DBI::st or DBIx::DataModel::Statement as argument
1.04 25.04.2023
- perl treats strings "infinity" or "NaN" as numbers ... but Excel does not
- escape control chars in the form _x...._ (borrowed from Excel::Writer::XLSX::Package::SharedStrings)
1.03 28.01.2023
- fixed bug : sheet content was not properly UTF8-encoded
view all matches for this distribution
view release on metacpan or search on metacpan
public/javascripts/vendor/jquery/jquery-1.7.2.min.js view on Meta::CPAN
/*! jQuery v1.7.2 jquery.com | jquery.org/license */
(function(a,b){function cy(a){return f.isWindow(a)?a:a.nodeType===9?a.defaultView||a.parentWindow:!1}function cu(a){if(!cj[a]){var b=c.body,d=f("<"+a+">").appendTo(b),e=d.css("display");d.remove();if(e==="none"||e===""){ck||(ck=c.createElement("ifram...
a){var b=F.exec(a);b&&(b[1]=(b[1]||"").toLowerCase(),b[3]=b[3]&&new RegExp("(?:^|\\s)"+b[3]+"(?:\\s|$)"));return b},H=function(a,b){var c=a.attributes||{};return(!b[1]||a.nodeName.toLowerCase()===b[1])&&(!b[2]||(c.id||{}).value===b[2])&&(!b[3]||b[3]....
.clean(arguments);a.push.apply(a,this.toArray());return this.pushStack(a,"before",arguments)}},after:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this.nextSibling)});if(argumen...
view all matches for this distribution
view release on metacpan or search on metacpan
bundled/JSON-PP/JSON/PP.pm view on Meta::CPAN
Note that numerical precision has the same meaning as under Perl (so
binary to decimal conversion follows the same rules as in Perl, which
can differ to other languages). Also, your perl interpreter might expose
extensions to the floating point numbers of your platform, such as
infinities or NaN's - these cannot be represented in JSON, and it is an
error to pass those in.
=item Big Number
When C<allow_bignum> is enable,
view all matches for this distribution
view release on metacpan or search on metacpan
t/01-vector_of_vectors/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
examples/Object-WithIntAndString/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/FAST/Bio/UnivAln.pm view on Meta::CPAN
use Carp;
#if ($] < 5.005) {carp "Not tested for Perl 5.002 or 5.003";}
use POSIX;
use File::Basename;
use vars qw($_NOFILE_FLAG $_GAP_SYMBOL $_UNKN_SYMBOL $_UNKN_SYMBOL2 $_NO_CONSENSUS_SYMBOL $_NaN $_MAX_SIZE_TAXANAME $_READSEQ $_CLUSTAL);
$_NOFILE_FLAG='_undef';
$_GAP_SYMBOL ='-';
$_UNKN_SYMBOL='\?'; # the backslash seems to be needed to be able to write
# ($str =~ /$_UNKN_SYMBOL/) ??!!
$_UNKN_SYMBOL2='N'; # ONLY USED IN UNDOCUMENTED FUNCTION special_free_seqs()
$_NO_CONSENSUS_SYMBOL='!';
$_NaN = POSIX::INT_MAX; #anything better ?
$_MAX_SIZE_TAXANAME=20;
$_READSEQ = "";
$_CLUSTAL = "";
$ENV{READSEQ} = "readseq";
# name of the readseq executable to be found in
lib/FAST/Bio/UnivAln.pm view on Meta::CPAN
$rowindices2 = \@rows;
}
if (ref($rowindices) eq 'CODE') {
my $ctr = $firstindx - 1;
$rowindices2 = [ grep {$_ != $_NaN}
# filter out $_NaN-value indexes, see next comment
map {($ctr++,$_) ? $ctr : $_NaN}
# convert list of function values into list of indices
# in canonical order, except that false values trigger an
# index of $_NaN, e.g. (1,$_NaN,3,$_NaN,5) is the result
# of map {($ctr++,$_) ? $ctr : $_NaN} ("A","","B",0,"C")
# note that the comma operator evaluates the first
# argument and throws the result away, and then
# evaluates the second argument; the side effect
# of the first evaluation is the increment of $ctr.
$self->map_r($rowindices) ];
lib/FAST/Bio/UnivAln.pm view on Meta::CPAN
$colindices2 = \@cols;
}
if (ref($colindices) eq 'CODE') {
my $ctr = $firstindx - 1;
$colindices2 = [ grep {$_ != $_NaN}
# see _rowbounds()
map {($ctr++,$_) ? $ctr : $_NaN}
$self->map_c($colindices) ];
}
my($ii);
for $ii (0 .. ($#{$colindices2})) {
view all matches for this distribution
view release on metacpan or search on metacpan
t/examples/fb2/hell_example_133321.fb2 view on Meta::CPAN
<p>СÑиÑ
иÑпаÑÑÐµÑ ÑаÑпÑоÑÑÑаненнÑй ÑекламнÑй блок, оÑÑиÑÐ°Ñ Ð¾Ñевидное. РиÑмоединиÑа, как Ð±Ñ ÑÑо ни казалоÑÑ Ð¿Ð°ÑадокÑалÑнÑм, ÑонеÑиÑеÑки ÑÑ...
</section> <section id="c_6"><title><p>6</p>
</title><p><strong>[ÐомменÑаÑий] </strong>Ðаже еÑли ÑÑеÑÑÑ ÑазÑеженнÑй газ, заполнÑÑÑий пÑоÑÑÑанÑÑво Ð¼ÐµÐ¶Ð´Ñ Ð·Ð²ÐµÐ·Ð´Ð°Ð¼Ð¸, Ñо вÑе Ñавно Южное полÑÑаÑие неÑ...
</section> <section id="c_7"><title><p>7</p>
</title><p><strong>[ÐомменÑаÑий] </strong>ÐÑлÑминаÑÐ¸Ñ Ð´Ð¸ÑкÑеÑно пÑедÑÑавлÑÐµÑ Ñобой агÑобиогеоÑеноз, но еÑли Ð±Ñ Ð¿ÐµÑен бÑло Ñаз в пÑÑÑ Ð¼ÐµÐ½ÑÑе, бÑло Ð±Ñ Ð...
</section> </section> </body> <binary content-type="image/jpeg" id="_1001000.jpg">/9j/4AAQSkZJRgABAQEAeAB4AAD/4QEARXhpZgAATU0AKgAAAAgABQEaAAUAAAABAAAASgEbAAUAAAABAAAAUgEoAAMAAAABAAIAAAExAAIAAAASAAAAWodpAAQAAAABAAAAbAAAAAAAAAB4AAAAAQAAAHgAAAABUGFpbnQu...
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
include/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
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
deps/libcbor/src/cbor/encoding.c view on Meta::CPAN
uint16_t res;
uint8_t exp = (uint8_t)((val & 0x7F800000u) >>
23u); /* 0b0111_1111_1000_0000_0000_0000_0000_0000 */
uint32_t mant =
val & 0x7FFFFFu; /* 0b0000_0000_0111_1111_1111_1111_1111_1111 */
if (exp == 0xFF) { /* Infinity or NaNs */
if (value != value) {
res = (uint16_t)0x007e00; /* Not IEEE semantics - required by CBOR
[s. 3.9] */
} else {
res = (uint16_t)((val & 0x80000000u) >> 16u | 0x7C00u |
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