| Current File : //opt/RZruby/share/doc/ruby/html/d9/d89/isinf_8c_source.html |
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=9"/>
<meta name="generator" content="Doxygen 1.8.5"/>
<title>Ruby: missing/isinf.c Source File</title>
<link href="../../tabs.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="../../jquery.js"></script>
<script type="text/javascript" src="../../dynsections.js"></script>
<link href="../../doxygen.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
<div id="titlearea">
<table cellspacing="0" cellpadding="0">
<tbody>
<tr style="height: 56px;">
<td style="padding-left: 0.5em;">
<div id="projectname">Ruby
 <span id="projectnumber">1.9.3p551(2014-11-13revision48407)</span>
</div>
</td>
</tr>
</tbody>
</table>
</div>
<!-- end header part -->
<!-- Generated by Doxygen 1.8.5 -->
<div id="navrow1" class="tabs">
<ul class="tablist">
<li><a href="../../index.html"><span>Main Page</span></a></li>
<li><a href="../../modules.html"><span>Modules</span></a></li>
<li><a href="../../annotated.html"><span>Data Structures</span></a></li>
<li class="current"><a href="../../files.html"><span>Files</span></a></li>
</ul>
</div>
<div id="navrow2" class="tabs2">
<ul class="tablist">
<li><a href="../../files.html"><span>File List</span></a></li>
<li><a href="../../globals.html"><span>Globals</span></a></li>
</ul>
</div>
<div id="nav-path" class="navpath">
<ul>
<li class="navelem"><a class="el" href="../../dir_f3bfeebb553c3f6ecfb19202628b4493.html">missing</a></li> </ul>
</div>
</div><!-- top -->
<div class="header">
<div class="headertitle">
<div class="title">isinf.c</div> </div>
</div><!--header-->
<div class="contents">
<a href="../../d9/d89/isinf_8c.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a name="l00001"></a><span class="lineno"> 1</span> <span class="comment">/* public domain rewrite of isinf(3) */</span></div>
<div class="line"><a name="l00002"></a><span class="lineno"> 2</span> </div>
<div class="line"><a name="l00003"></a><span class="lineno"> 3</span> <span class="preprocessor">#ifdef __osf__</span></div>
<div class="line"><a name="l00004"></a><span class="lineno"> 4</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00005"></a><span class="lineno"> 5</span> <span class="preprocessor">#define _IEEE 1</span></div>
<div class="line"><a name="l00006"></a><span class="lineno"> 6</span> <span class="preprocessor"></span><span class="preprocessor">#include <nan.h></span></div>
<div class="line"><a name="l00007"></a><span class="lineno"> 7</span> </div>
<div class="line"><a name="l00008"></a><span class="lineno"> 8</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l00009"></a><span class="lineno"> 9</span> <a class="code" href="../../d3/d90/missing_8h.html#ae7a5ae88899707625ed6ab2ec7045583">isinf</a>(<span class="keywordtype">double</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#aeab71244afb687f16d8c4f5ee9d6ef0e">n</a>)</div>
<div class="line"><a name="l00010"></a><span class="lineno"> 10</span> {</div>
<div class="line"><a name="l00011"></a><span class="lineno"> 11</span>  <span class="keywordflow">if</span> (IsNANorINF(n) && IsINF(n)) {</div>
<div class="line"><a name="l00012"></a><span class="lineno"> 12</span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l00013"></a><span class="lineno"> 13</span>  }</div>
<div class="line"><a name="l00014"></a><span class="lineno"> 14</span>  <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00015"></a><span class="lineno"> 15</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l00016"></a><span class="lineno"> 16</span>  }</div>
<div class="line"><a name="l00017"></a><span class="lineno"> 17</span> }</div>
<div class="line"><a name="l00018"></a><span class="lineno"> 18</span> </div>
<div class="line"><a name="l00019"></a><span class="lineno"> 19</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l00020"></a><span class="lineno"> 20</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00021"></a><span class="lineno"> 21</span> <span class="preprocessor">#include "ruby/config.h"</span></div>
<div class="line"><a name="l00022"></a><span class="lineno"> 22</span> </div>
<div class="line"><a name="l00023"></a><span class="lineno"> 23</span> <span class="preprocessor">#if defined(HAVE_FINITE) && defined(HAVE_ISNAN)</span></div>
<div class="line"><a name="l00024"></a><span class="lineno"> 24</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00025"></a><span class="lineno"> 25</span> <span class="preprocessor">#include <math.h></span></div>
<div class="line"><a name="l00026"></a><span class="lineno"> 26</span> <span class="preprocessor">#ifdef HAVE_IEEEFP_H</span></div>
<div class="line"><a name="l00027"></a><span class="lineno"> 27</span> <span class="preprocessor"></span><span class="preprocessor">#include <ieeefp.h></span></div>
<div class="line"><a name="l00028"></a><span class="lineno"> 28</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00029"></a><span class="lineno"> 29</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00030"></a><span class="lineno"> 30</span> <span class="comment">/*</span></div>
<div class="line"><a name="l00031"></a><span class="lineno"> 31</span> <span class="comment"> * isinf may be provided only as a macro.</span></div>
<div class="line"><a name="l00032"></a><span class="lineno"> 32</span> <span class="comment"> * ex. HP-UX, Solaris 10</span></div>
<div class="line"><a name="l00033"></a><span class="lineno"> 33</span> <span class="comment"> * http://www.gnu.org/software/automake/manual/autoconf/Function-Portability.html</span></div>
<div class="line"><a name="l00034"></a><span class="lineno"> 34</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00035"></a><span class="lineno"> 35</span> <span class="preprocessor">#ifndef isinf</span></div>
<div class="line"><a name="l00036"></a><span class="lineno"> 36</span> <span class="preprocessor"></span><span class="keywordtype">int</span></div>
<div class="line"><a name="l00037"></a><span class="lineno"> 37</span> <a class="code" href="../../d3/d90/missing_8h.html#ae7a5ae88899707625ed6ab2ec7045583">isinf</a>(<span class="keywordtype">double</span> n)</div>
<div class="line"><a name="l00038"></a><span class="lineno"> 38</span> {</div>
<div class="line"><a name="l00039"></a><span class="lineno"> 39</span>  <span class="keywordflow">return</span> (!<a class="code" href="../../d3/d90/missing_8h.html#a92974cf7271cdbcd972c211baf210f6f">finite</a>(n) && !<a class="code" href="../../dc/db1/win32_8h.html#a2e1baae9134e580910322362dc23290e">isnan</a>(n));</div>
<div class="line"><a name="l00040"></a><span class="lineno"> 40</span> }</div>
<div class="line"><a name="l00041"></a><span class="lineno"> 41</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00042"></a><span class="lineno"> 42</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00043"></a><span class="lineno"> 43</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l00044"></a><span class="lineno"> 44</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00045"></a><span class="lineno"> 45</span> <span class="preprocessor">#ifdef HAVE_STRING_H</span></div>
<div class="line"><a name="l00046"></a><span class="lineno"> 46</span> <span class="preprocessor"></span><span class="preprocessor"># include <string.h></span></div>
<div class="line"><a name="l00047"></a><span class="lineno"> 47</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l00048"></a><span class="lineno"> 48</span> <span class="preprocessor"></span><span class="preprocessor"># include <strings.h></span></div>
<div class="line"><a name="l00049"></a><span class="lineno"> 49</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00050"></a><span class="lineno"> 50</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00051"></a><span class="lineno"><a class="line" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836"> 51</a></span> <span class="keyword">static</span> <span class="keywordtype">double</span> <a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a>(<span class="keywordtype">void</span>) { <span class="keywordflow">return</span> 0.0; }</div>
<div class="line"><a name="l00052"></a><span class="lineno"><a class="line" href="../../d9/d89/isinf_8c.html#a94762b8530d28b85e67db02b97f3ee37"> 52</a></span> <span class="keyword">static</span> <span class="keywordtype">double</span> <a class="code" href="../../d9/d89/isinf_8c.html#a94762b8530d28b85e67db02b97f3ee37">one</a> (<span class="keywordtype">void</span>) { <span class="keywordflow">return</span> 1.0; }</div>
<div class="line"><a name="l00053"></a><span class="lineno"><a class="line" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f"> 53</a></span> <span class="keyword">static</span> <span class="keywordtype">double</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#afe540dc79093fc3b43bf3c5f2d5087b8">inf</a> (<span class="keywordtype">void</span>) { <span class="keywordflow">return</span> <a class="code" href="../../d9/d89/isinf_8c.html#a94762b8530d28b85e67db02b97f3ee37">one</a>() / <a class="code" href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a>(); }</div>
<div class="line"><a name="l00054"></a><span class="lineno"> 54</span> </div>
<div class="line"><a name="l00055"></a><span class="lineno"> 55</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l00056"></a><span class="lineno"><a class="line" href="../../d9/d89/isinf_8c.html#af99f4df04bc3d1bec1f570fe87664c67"> 56</a></span> <a class="code" href="../../d3/d90/missing_8h.html#ae7a5ae88899707625ed6ab2ec7045583">isinf</a>(<span class="keywordtype">double</span> n)</div>
<div class="line"><a name="l00057"></a><span class="lineno"> 57</span> {</div>
<div class="line"><a name="l00058"></a><span class="lineno"> 58</span>  <span class="keyword">static</span> <span class="keywordtype">double</span> pinf = 0.0;</div>
<div class="line"><a name="l00059"></a><span class="lineno"> 59</span>  <span class="keyword">static</span> <span class="keywordtype">double</span> ninf = 0.0;</div>
<div class="line"><a name="l00060"></a><span class="lineno"> 60</span> </div>
<div class="line"><a name="l00061"></a><span class="lineno"> 61</span>  <span class="keywordflow">if</span> (pinf == 0.0) {</div>
<div class="line"><a name="l00062"></a><span class="lineno"> 62</span>  pinf = <a class="code" href="../../d5/d9d/tcltklib_8c.html#afe540dc79093fc3b43bf3c5f2d5087b8">inf</a>();</div>
<div class="line"><a name="l00063"></a><span class="lineno"> 63</span>  ninf = -pinf;</div>
<div class="line"><a name="l00064"></a><span class="lineno"> 64</span>  }</div>
<div class="line"><a name="l00065"></a><span class="lineno"> 65</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d21/memcmp_8c.html#a1499ab2d0a3da86cbc3e688294f60a48">memcmp</a>(&n, &pinf, <span class="keyword">sizeof</span> n) == 0</div>
<div class="line"><a name="l00066"></a><span class="lineno"> 66</span>  || <a class="code" href="../../d5/d21/memcmp_8c.html#a1499ab2d0a3da86cbc3e688294f60a48">memcmp</a>(&n, &ninf, <span class="keyword">sizeof</span> n) == 0;</div>
<div class="line"><a name="l00067"></a><span class="lineno"> 67</span> }</div>
<div class="line"><a name="l00068"></a><span class="lineno"> 68</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00069"></a><span class="lineno"> 69</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="ttc" id="tcltklib_8c_html_afe540dc79093fc3b43bf3c5f2d5087b8"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#afe540dc79093fc3b43bf3c5f2d5087b8">inf</a></div><div class="ttdeci">struct invoke_info inf</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08561">tcltklib.c:8561</a></div></div>
<div class="ttc" id="isinf_8c_html_a5bc81aade6dcbcbdb6984e9b1a42e836"><div class="ttname"><a href="../../d9/d89/isinf_8c.html#a5bc81aade6dcbcbdb6984e9b1a42e836">zero</a></div><div class="ttdeci">static double zero(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d89/isinf_8c_source.html#l00051">isinf.c:51</a></div></div>
<div class="ttc" id="bigdecimal_8c_html_aeab71244afb687f16d8c4f5ee9d6ef0e"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#aeab71244afb687f16d8c4f5ee9d6ef0e">n</a></div><div class="ttdeci">ssize_t n</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l05519">bigdecimal.c:5519</a></div></div>
<div class="ttc" id="missing_8h_html_a92974cf7271cdbcd972c211baf210f6f"><div class="ttname"><a href="../../d3/d90/missing_8h.html#a92974cf7271cdbcd972c211baf210f6f">finite</a></div><div class="ttdeci">RUBY_EXTERN int finite(double)</div><div class="ttdef"><b>Definition:</b> <a href="../../d4/d21/finite_8c_source.html#l00006">finite.c:6</a></div></div>
<div class="ttc" id="isinf_8c_html_a94762b8530d28b85e67db02b97f3ee37"><div class="ttname"><a href="../../d9/d89/isinf_8c.html#a94762b8530d28b85e67db02b97f3ee37">one</a></div><div class="ttdeci">static double one(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d89/isinf_8c_source.html#l00052">isinf.c:52</a></div></div>
<div class="ttc" id="missing_8h_html_ae7a5ae88899707625ed6ab2ec7045583"><div class="ttname"><a href="../../d3/d90/missing_8h.html#ae7a5ae88899707625ed6ab2ec7045583">isinf</a></div><div class="ttdeci">RUBY_EXTERN int isinf(double)</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d89/isinf_8c_source.html#l00056">isinf.c:56</a></div></div>
<div class="ttc" id="memcmp_8c_html_a1499ab2d0a3da86cbc3e688294f60a48"><div class="ttname"><a href="../../d5/d21/memcmp_8c.html#a1499ab2d0a3da86cbc3e688294f60a48">memcmp</a></div><div class="ttdeci">int memcmp(const void *s1, const void *s2, size_t len)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d21/memcmp_8c_source.html#l00007">memcmp.c:7</a></div></div>
<div class="ttc" id="win32_8h_html_a2e1baae9134e580910322362dc23290e"><div class="ttname"><a href="../../dc/db1/win32_8h.html#a2e1baae9134e580910322362dc23290e">isnan</a></div><div class="ttdeci">#define isnan(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../dc/db1/win32_8h_source.html#l00334">win32.h:334</a></div></div>
</div><!-- fragment --></div><!-- contents -->
<!-- start footer part -->
<hr class="footer"/><address class="footer"><small>
Generated by  <a href="http://www.doxygen.org/index.html">
<img class="footer" src="../../doxygen.png" alt="doxygen"/>
</a> 1.8.5
</small></address>
</body>
</html>