| <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> |
| |
| <html lang="en"> |
| |
| <head> |
| <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> |
| <title>LCOV - skiboot.info - libc/stdlib/strtol.c</title> |
| <link rel="stylesheet" type="text/css" href="../../gcov.css"> |
| </head> |
| |
| <body> |
| |
| <table width="100%" border=0 cellspacing=0 cellpadding=0> |
| <tr><td class="title">LCOV - code coverage report</td></tr> |
| <tr><td class="ruler"><img src="../../glass.png" width=3 height=3 alt=""></td></tr> |
| |
| <tr> |
| <td width="100%"> |
| <table cellpadding=1 border=0 width="100%"> |
| <tr> |
| <td width="10%" class="headerItem">Current view:</td> |
| <td width="10%" class="headerValue"><a href="../../index.html">top level</a> - <a href="index.html">libc/stdlib</a> - strtol.c<span style="font-size: 80%;"> (source / <a href="strtol.c.func-c.html">functions</a>)</span></td> |
| <td width="5%"></td> |
| <td width="5%"></td> |
| <td width="5%" class="headerCovTableHead">Coverage</td> |
| <td width="5%" class="headerCovTableHead" title="Covered + Uncovered code">Total</td> |
| <td width="5%" class="headerCovTableHead" title="Exercised code only">Hit</td> |
| </tr> |
| <tr> |
| <td class="headerItem">Test:</td> |
| <td class="headerValue">skiboot.info</td> |
| <td></td> |
| <td class="headerItem">Lines:</td> |
| <td class="headerCovTableEntryHi">97.4 %</td> |
| <td class="headerCovTableEntry">38</td> |
| <td class="headerCovTableEntry">37</td> |
| </tr> |
| <tr> |
| <td class="headerItem">Test Date:</td> |
| <td class="headerValue">2025-06-27 16:54:26</td> |
| <td></td> |
| <td class="headerItem">Functions:</td> |
| <td class="headerCovTableEntryHi">100.0 %</td> |
| <td class="headerCovTableEntry">1</td> |
| <td class="headerCovTableEntry">1</td> |
| </tr> |
| <tr> |
| <td></td> |
| <td></td> |
| <td></td> |
| <td class="headerItem">Branches:</td> |
| <td class="headerCovTableEntryHi">-</td> |
| <td class="headerCovTableEntry">0</td> |
| <td class="headerCovTableEntry">0</td> |
| </tr> |
| <tr><td><img src="../../glass.png" width=3 height=3 alt=""></td></tr> |
| </table> |
| </td> |
| </tr> |
| |
| <tr><td class="ruler"><img src="../../glass.png" width=3 height=3 alt=""></td></tr> |
| </table> |
| |
| <table cellpadding=0 cellspacing=0 border=0> |
| <tr> |
| <td><br></td> |
| </tr> |
| <tr> |
| <td> |
| <pre class="sourceHeading"> Branch data Line data Source code</pre> |
| <pre class="source"> |
| <span id="L1"><span class="lineNum"> 1</span> : : /******************************************************************************</span> |
| <span id="L2"><span class="lineNum"> 2</span> : : * Copyright (c) 2004, 2008 IBM Corporation</span> |
| <span id="L3"><span class="lineNum"> 3</span> : : * All rights reserved.</span> |
| <span id="L4"><span class="lineNum"> 4</span> : : * This program and the accompanying materials</span> |
| <span id="L5"><span class="lineNum"> 5</span> : : * are made available under the terms of the BSD License</span> |
| <span id="L6"><span class="lineNum"> 6</span> : : * which accompanies this distribution, and is available at</span> |
| <span id="L7"><span class="lineNum"> 7</span> : : * http://www.opensource.org/licenses/bsd-license.php</span> |
| <span id="L8"><span class="lineNum"> 8</span> : : *</span> |
| <span id="L9"><span class="lineNum"> 9</span> : : * Contributors:</span> |
| <span id="L10"><span class="lineNum"> 10</span> : : * IBM Corporation - initial implementation</span> |
| <span id="L11"><span class="lineNum"> 11</span> : : *****************************************************************************/</span> |
| <span id="L12"><span class="lineNum"> 12</span> : : </span> |
| <span id="L13"><span class="lineNum"> 13</span> : : #include <stdlib.h></span> |
| <span id="L14"><span class="lineNum"> 14</span> : : </span> |
| <span id="L15"><span class="lineNum"> 15</span> :<span class="tlaGNC tlaBgGNC"> 100 : long int strtol(const char *S, char **PTR,int BASE)</span></span> |
| <span id="L16"><span class="lineNum"> 16</span> : : {</span> |
| <span id="L17"><span class="lineNum"> 17</span> :<span class="tlaGNC"> 100 : long rval = 0;</span></span> |
| <span id="L18"><span class="lineNum"> 18</span> :<span class="tlaGNC"> 100 : short int negative = 0;</span></span> |
| <span id="L19"><span class="lineNum"> 19</span> : : short int digit;</span> |
| <span id="L20"><span class="lineNum"> 20</span> : : // *PTR is S, unless PTR is NULL, in which case i override it with my own ptr</span> |
| <span id="L21"><span class="lineNum"> 21</span> : : char* ptr;</span> |
| <span id="L22"><span class="lineNum"> 22</span> :<span class="tlaGNC"> 100 : if (PTR == NULL)</span></span> |
| <span id="L23"><span class="lineNum"> 23</span> : : {</span> |
| <span id="L24"><span class="lineNum"> 24</span> : : //override</span> |
| <span id="L25"><span class="lineNum"> 25</span> :<span class="tlaGNC"> 95 : PTR = &ptr;</span></span> |
| <span id="L26"><span class="lineNum"> 26</span> : : }</span> |
| <span id="L27"><span class="lineNum"> 27</span> : : // i use PTR to advance through the string</span> |
| <span id="L28"><span class="lineNum"> 28</span> :<span class="tlaGNC"> 100 : *PTR = (char *) S;</span></span> |
| <span id="L29"><span class="lineNum"> 29</span> : : //check if BASE is ok</span> |
| <span id="L30"><span class="lineNum"> 30</span> :<span class="tlaGNC"> 100 : if ((BASE < 0) || BASE > 36)</span></span> |
| <span id="L31"><span class="lineNum"> 31</span> : : {</span> |
| <span id="L32"><span class="lineNum"> 32</span> :<span class="tlaGNC"> 10 : return 0;</span></span> |
| <span id="L33"><span class="lineNum"> 33</span> : : }</span> |
| <span id="L34"><span class="lineNum"> 34</span> : : // ignore white space at beginning of S</span> |
| <span id="L35"><span class="lineNum"> 35</span> :<span class="tlaGNC"> 90 : while ((**PTR == ' ')</span></span> |
| <span id="L36"><span class="lineNum"> 36</span> :<span class="tlaGNC"> 90 : || (**PTR == '\t')</span></span> |
| <span id="L37"><span class="lineNum"> 37</span> :<span class="tlaGNC"> 90 : || (**PTR == '\n')</span></span> |
| <span id="L38"><span class="lineNum"> 38</span> :<span class="tlaGNC"> 195 : || (**PTR == '\r')</span></span> |
| <span id="L39"><span class="lineNum"> 39</span> : : )</span> |
| <span id="L40"><span class="lineNum"> 40</span> : : {</span> |
| <span id="L41"><span class="lineNum"> 41</span> :<span class="tlaGNC"> 15 : (*PTR)++;</span></span> |
| <span id="L42"><span class="lineNum"> 42</span> : : }</span> |
| <span id="L43"><span class="lineNum"> 43</span> : : // check if S starts with "-" in which case the return value is negative</span> |
| <span id="L44"><span class="lineNum"> 44</span> :<span class="tlaGNC"> 90 : if (**PTR == '-')</span></span> |
| <span id="L45"><span class="lineNum"> 45</span> : : {</span> |
| <span id="L46"><span class="lineNum"> 46</span> :<span class="tlaGNC"> 20 : negative = 1;</span></span> |
| <span id="L47"><span class="lineNum"> 47</span> :<span class="tlaGNC"> 20 : (*PTR)++;</span></span> |
| <span id="L48"><span class="lineNum"> 48</span> : : }</span> |
| <span id="L49"><span class="lineNum"> 49</span> : : // if BASE is 0... determine the base from the first chars...</span> |
| <span id="L50"><span class="lineNum"> 50</span> :<span class="tlaGNC"> 90 : if (BASE == 0)</span></span> |
| <span id="L51"><span class="lineNum"> 51</span> : : {</span> |
| <span id="L52"><span class="lineNum"> 52</span> : : // if S starts with "0x", BASE = 16, else 10</span> |
| <span id="L53"><span class="lineNum"> 53</span> :<span class="tlaGNC"> 10 : if ((**PTR == '0') && (*((*PTR)+1) == 'x'))</span></span> |
| <span id="L54"><span class="lineNum"> 54</span> : : {</span> |
| <span id="L55"><span class="lineNum"> 55</span> :<span class="tlaGNC"> 10 : BASE = 16;</span></span> |
| <span id="L56"><span class="lineNum"> 56</span> : : }</span> |
| <span id="L57"><span class="lineNum"> 57</span> : : else</span> |
| <span id="L58"><span class="lineNum"> 58</span> : : {</span> |
| <span id="L59"><span class="lineNum"> 59</span> :<span class="tlaUNC tlaBgUNC"> 0 : BASE = 10;</span></span> |
| <span id="L60"><span class="lineNum"> 60</span> : : }</span> |
| <span id="L61"><span class="lineNum"> 61</span> : : }</span> |
| <span id="L62"><span class="lineNum"> 62</span> :<span class="tlaGNC tlaBgGNC"> 90 : if (BASE == 16)</span></span> |
| <span id="L63"><span class="lineNum"> 63</span> : : {</span> |
| <span id="L64"><span class="lineNum"> 64</span> : : // S may start with "0x"</span> |
| <span id="L65"><span class="lineNum"> 65</span> :<span class="tlaGNC"> 10 : if ((**PTR == '0') && (*((*PTR)+1) == 'x'))</span></span> |
| <span id="L66"><span class="lineNum"> 66</span> : : {</span> |
| <span id="L67"><span class="lineNum"> 67</span> :<span class="tlaGNC"> 10 : (*PTR)++;</span></span> |
| <span id="L68"><span class="lineNum"> 68</span> :<span class="tlaGNC"> 10 : (*PTR)++;</span></span> |
| <span id="L69"><span class="lineNum"> 69</span> : : }</span> |
| <span id="L70"><span class="lineNum"> 70</span> : : }</span> |
| <span id="L71"><span class="lineNum"> 71</span> : : //until end of string</span> |
| <span id="L72"><span class="lineNum"> 72</span> :<span class="tlaGNC"> 365 : while (**PTR)</span></span> |
| <span id="L73"><span class="lineNum"> 73</span> : : {</span> |
| <span id="L74"><span class="lineNum"> 74</span> :<span class="tlaGNC"> 310 : if (((**PTR) >= '0') && ((**PTR) <= '9'))</span></span> |
| <span id="L75"><span class="lineNum"> 75</span> : : {</span> |
| <span id="L76"><span class="lineNum"> 76</span> : : //digit (0..9)</span> |
| <span id="L77"><span class="lineNum"> 77</span> :<span class="tlaGNC"> 270 : digit = **PTR - '0';</span></span> |
| <span id="L78"><span class="lineNum"> 78</span> : : }</span> |
| <span id="L79"><span class="lineNum"> 79</span> :<span class="tlaGNC"> 40 : else if (((**PTR) >= 'a') && ((**PTR) <='z'))</span></span> |
| <span id="L80"><span class="lineNum"> 80</span> : : {</span> |
| <span id="L81"><span class="lineNum"> 81</span> : : //alphanumeric digit lowercase(a (10) .. z (35) )</span> |
| <span id="L82"><span class="lineNum"> 82</span> :<span class="tlaGNC"> 25 : digit = (**PTR - 'a') + 10;</span></span> |
| <span id="L83"><span class="lineNum"> 83</span> : : }</span> |
| <span id="L84"><span class="lineNum"> 84</span> :<span class="tlaGNC"> 15 : else if (((**PTR) >= 'A') && ((**PTR) <='Z'))</span></span> |
| <span id="L85"><span class="lineNum"> 85</span> : : {</span> |
| <span id="L86"><span class="lineNum"> 86</span> : : //alphanumeric digit uppercase(a (10) .. z (35) )</span> |
| <span id="L87"><span class="lineNum"> 87</span> :<span class="tlaGNC"> 5 : digit = (**PTR - 'A') + 10;</span></span> |
| <span id="L88"><span class="lineNum"> 88</span> : : }</span> |
| <span id="L89"><span class="lineNum"> 89</span> : : else</span> |
| <span id="L90"><span class="lineNum"> 90</span> : : {</span> |
| <span id="L91"><span class="lineNum"> 91</span> : : //end of parseable number reached...</span> |
| <span id="L92"><span class="lineNum"> 92</span> : : break;</span> |
| <span id="L93"><span class="lineNum"> 93</span> : : }</span> |
| <span id="L94"><span class="lineNum"> 94</span> :<span class="tlaGNC"> 300 : if (digit < BASE)</span></span> |
| <span id="L95"><span class="lineNum"> 95</span> : : {</span> |
| <span id="L96"><span class="lineNum"> 96</span> :<span class="tlaGNC"> 275 : rval = (rval * BASE) + digit;</span></span> |
| <span id="L97"><span class="lineNum"> 97</span> : : }</span> |
| <span id="L98"><span class="lineNum"> 98</span> : : else</span> |
| <span id="L99"><span class="lineNum"> 99</span> : : {</span> |
| <span id="L100"><span class="lineNum"> 100</span> : : //digit found, but its too big for current base</span> |
| <span id="L101"><span class="lineNum"> 101</span> : : //end of parseable number reached...</span> |
| <span id="L102"><span class="lineNum"> 102</span> :<span class="tlaGNC"> 25 : break;</span></span> |
| <span id="L103"><span class="lineNum"> 103</span> : : }</span> |
| <span id="L104"><span class="lineNum"> 104</span> : : //next...</span> |
| <span id="L105"><span class="lineNum"> 105</span> :<span class="tlaGNC"> 275 : (*PTR)++;</span></span> |
| <span id="L106"><span class="lineNum"> 106</span> : : }</span> |
| <span id="L107"><span class="lineNum"> 107</span> :<span class="tlaGNC"> 90 : if (negative)</span></span> |
| <span id="L108"><span class="lineNum"> 108</span> : : {</span> |
| <span id="L109"><span class="lineNum"> 109</span> :<span class="tlaGNC"> 20 : return rval * -1;</span></span> |
| <span id="L110"><span class="lineNum"> 110</span> : : }</span> |
| <span id="L111"><span class="lineNum"> 111</span> : : //else</span> |
| <span id="L112"><span class="lineNum"> 112</span> :<span class="tlaGNC"> 70 : return rval;</span></span> |
| <span id="L113"><span class="lineNum"> 113</span> : : }</span> |
| </pre> |
| </td> |
| </tr> |
| </table> |
| <br> |
| |
| <table width="100%" border=0 cellspacing=0 cellpadding=0> |
| <tr><td class="ruler"><img src="../../glass.png" width=3 height=3 alt=""></td></tr> |
| <tr><td class="versionInfo">Generated by: <a href="https://github.com//linux-test-project/lcov" target="_parent">LCOV version 2.0-1</a></td></tr> |
| </table> |
| <br> |
| |
| </body> |
| </html> |
