<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=11"/>
<meta name="generator" content="Doxygen 1.14.0"/>
<meta name="viewport" content="width=device-width, initial-scale=1"/>
<title>YACASL2: src/token.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>
<script type="text/javascript" src="clipboard.js"></script>
<script type="text/javascript" src="cookie.js"></script>
<link href="search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="search/searchdata.js"></script>
<script type="text/javascript" src="search/search.js"></script>
<script type="text/x-mathjax-config">
MathJax.Hub.Config({
extensions: ["tex2jax.js"],
jax: ["input/TeX","output/HTML-CSS"],
});
</script>
<script type="text/javascript" async="async" src="http://www.mathjax.org/mathjax/MathJax.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 id="projectrow">
<td id="projectalign">
<div id="projectname">YACASL2
</div>
</td>
</tr>
</tbody>
</table>
</div>
<!-- end header part -->
<!-- Generated by Doxygen 1.14.0 -->
<script type="text/javascript">
var searchBox = new SearchBox("searchBox", "search/",'.html');
</script>
<script type="text/javascript">
$(function() { codefold.init(); });
</script>
<script type="text/javascript" src="menudata.js"></script>
<script type="text/javascript" src="menu.js"></script>
<script type="text/javascript">
$(function() {
initMenu('',true,false,'search.php','Search',false);
$(function() { init_search(); });
});
</script>
<div id="main-nav"></div>
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
onmouseover="return searchBox.OnSearchSelectShow()"
onmouseout="return searchBox.OnSearchSelectHide()"
onkeydown="return searchBox.OnSearchSelectKey(event)">
</div>
<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<div id="MSearchResults">
<div class="SRPage">
<div id="SRIndex">
<div id="SRResults"></div>
<div class="SRStatus" id="Loading">Loading...</div>
<div class="SRStatus" id="Searching">Searching...</div>
<div class="SRStatus" id="NoMatches">No Matches</div>
</div>
</div>
</div>
</div>
<div id="nav-path" class="navpath">
<ul>
<li class="navelem"><a href="dir_68267d1309a1af8e8297ef4c3efbcdba.html">src</a></li> </ul>
</div>
</div><!-- top -->
<div id="doc-content">
<div class="header">
<div class="headertitle"><div class="title">token.c</div></div>
</div><!--header-->
<div class="contents">
<a href="token_8c.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a id="l00001" name="l00001"></a><span class="lineno"> 1</span><span class="preprocessor">#include "<a class="code" href="token_8h.html">token.h</a>"</span></div>
<div class="line"><a id="l00002" name="l00002"></a><span class="lineno"> 2</span></div>
<div class="line"><a id="l00010" name="l00010"></a><span class="lineno"> 10</span><a class="code hl_struct" href="struct_o_p_d.html">OPD</a> *<a class="code hl_function" href="token_8c.html#a953218537ac1577c48aa527d326e853b">opdtok</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *str);</div>
<div class="line"><a id="l00011" name="l00011"></a><span class="lineno"> 11</span></div>
<div class="foldopen" id="foldopen00015" data-start="{" data-end="};">
<div class="line"><a id="l00015" name="l00015"></a><span class="lineno"><a class="line" href="token_8c.html#a9c6d5cae193d3086c1f0369f2329d406"> 15</a></span><a class="code hl_typedef" href="cerr_8h.html#a3636a4b86cca574b3786f76f5231ffe5">CERR</a> <a class="code hl_variable" href="token_8c.html#a9c6d5cae193d3086c1f0369f2329d406">cerr_linetok</a>[] = {</div>
<div class="line"><a id="l00016" name="l00016"></a><span class="lineno"> 16</span> { 104, <span class="stringliteral">"label length is too long"</span> },</div>
<div class="line"><a id="l00017" name="l00017"></a><span class="lineno"> 17</span> { 105, <span class="stringliteral">"no command in the line"</span> },</div>
<div class="line"><a id="l00018" name="l00018"></a><span class="lineno"> 18</span>};</div>
</div>
<div class="line"><a id="l00019" name="l00019"></a><span class="lineno"> 19</span></div>
<div class="foldopen" id="foldopen00023" data-start="{" data-end="};">
<div class="line"><a id="l00023" name="l00023"></a><span class="lineno"><a class="line" href="token_8c.html#a631056cc914184f81cb9fe5782e59b69"> 23</a></span><span class="keyword">static</span> <a class="code hl_typedef" href="cerr_8h.html#a3636a4b86cca574b3786f76f5231ffe5">CERR</a> <a class="code hl_variable" href="token_8c.html#a631056cc914184f81cb9fe5782e59b69">cerr_opdtok</a>[] = {</div>
<div class="line"><a id="l00024" name="l00024"></a><span class="lineno"> 24</span> { 117, <span class="stringliteral">"operand too many in DC"</span> },</div>
<div class="line"><a id="l00025" name="l00025"></a><span class="lineno"> 25</span> { 118, <span class="stringliteral">"operand length too long"</span> },</div>
<div class="line"><a id="l00026" name="l00026"></a><span class="lineno"> 26</span> { 121, <span class="stringliteral">"cannot get operand token"</span> },</div>
<div class="line"><a id="l00027" name="l00027"></a><span class="lineno"> 27</span> { 123, <span class="stringliteral">"unclosed quote"</span> },</div>
<div class="line"><a id="l00028" name="l00028"></a><span class="lineno"> 28</span>};</div>
</div>
<div class="line"><a id="l00029" name="l00029"></a><span class="lineno"> 29</span> </div>
<div class="foldopen" id="foldopen00030" data-start="{" data-end="}">
<div class="line"><a id="l00030" name="l00030"></a><span class="lineno"><a class="line" href="token_8c.html#a953218537ac1577c48aa527d326e853b"> 30</a></span><a class="code hl_struct" href="struct_o_p_d.html">OPD</a> *<a class="code hl_function" href="token_8c.html#a953218537ac1577c48aa527d326e853b">opdtok</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *str)</div>
<div class="line"><a id="l00031" name="l00031"></a><span class="lineno"> 31</span>{</div>
<div class="line"><a id="l00032" name="l00032"></a><span class="lineno"> 32</span> <a class="code hl_struct" href="struct_o_p_d.html">OPD</a> *opd = <a class="code hl_function" href="cmem_8h.html#ab59996fd09e57355900e5d0f6a772297">malloc_chk</a>(<span class="keyword">sizeof</span>(<a class="code hl_struct" href="struct_o_p_d.html">OPD</a>), <span class="stringliteral">"opd"</span>);</div>
<div class="line"><a id="l00033" name="l00033"></a><span class="lineno"> 33</span> <span class="keywordtype">char</span> *tok, *p, sepc = <span class="charliteral">','</span>;</div>
<div class="line"><a id="l00034" name="l00034"></a><span class="lineno"> 34</span> <span class="keywordtype">int</span> i = 0, cnt_quote = 0;</div>
<div class="line"><a id="l00035" name="l00035"></a><span class="lineno"> 35</span> <span class="keywordtype">bool</span> quoting = <span class="keyword">false</span>;</div>
<div class="line"><a id="l00036" name="l00036"></a><span class="lineno"> 36</span> </div>
<div class="line"><a id="l00037" name="l00037"></a><span class="lineno"> 37</span> opd-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> = 0;</div>
<div class="line"><a id="l00038" name="l00038"></a><span class="lineno"> 38</span> <span class="keywordflow">if</span>(!str || !str[0]) {</div>
<div class="line"><a id="l00039" name="l00039"></a><span class="lineno"> 39</span> <span class="keywordflow">return</span> opd;</div>
<div class="line"><a id="l00040" name="l00040"></a><span class="lineno"> 40</span> }</div>
<div class="line"><a id="l00041" name="l00041"></a><span class="lineno"> 41</span> tok = p = <a class="code hl_function" href="cmem_8h.html#aff54004f8d4f59b7ad933d53ae4e1f53">strdup_chk</a>(str, <span class="stringliteral">"opdtok.p"</span>);</div>
<div class="line"><a id="l00042" name="l00042"></a><span class="lineno"> 42</span> <span class="keywordflow">do</span> {</div>
<div class="line"><a id="l00043" name="l00043"></a><span class="lineno"> 43</span> <span class="comment">/* オペランド数が多すぎる場合はエラー */</span></div>
<div class="line"><a id="l00044" name="l00044"></a><span class="lineno"> 44</span> <span class="keywordflow">if</span>(opd-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> >= <a class="code hl_enumvalue" href="token_8h.html#aac8199e822580470cb8af690f73a54b6ade9e86d3712c3a79f3a931c681f041cd">OPDSIZE</a>) {</div>
<div class="line"><a id="l00045" name="l00045"></a><span class="lineno"> 45</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(117, <span class="stringliteral">""</span>); <span class="comment">/* operand is too many */</span></div>
<div class="line"><a id="l00046" name="l00046"></a><span class="lineno"> 46</span> <span class="keywordflow">break</span>;</div>
<div class="line"><a id="l00047" name="l00047"></a><span class="lineno"> 47</span> }</div>
<div class="line"><a id="l00048" name="l00048"></a><span class="lineno"> 48</span> <span class="comment">/* 先頭が等号（=）の場合 */</span></div>
<div class="line"><a id="l00049" name="l00049"></a><span class="lineno"> 49</span> <span class="keywordflow">if</span>(p[i] == <span class="charliteral">'='</span>) {</div>
<div class="line"><a id="l00050" name="l00050"></a><span class="lineno"> 50</span> i++;</div>
<div class="line"><a id="l00051" name="l00051"></a><span class="lineno"> 51</span> }</div>
<div class="line"><a id="l00052" name="l00052"></a><span class="lineno"> 52</span> <span class="comment">/* 「'」の場合 */</span></div>
<div class="line"><a id="l00053" name="l00053"></a><span class="lineno"> 53</span> <span class="keywordflow">if</span>(p[i] == <span class="charliteral">'\''</span>) {</div>
<div class="line"><a id="l00054" name="l00054"></a><span class="lineno"> 54</span> <span class="comment">/* 「''」以外の場合はquote値を反転する */</span></div>
<div class="line"><a id="l00055" name="l00055"></a><span class="lineno"> 55</span> <span class="keywordflow">if</span>(p[i+1] != <span class="charliteral">'\''</span> && (quoting == <span class="keyword">false</span> || p[i-1] != <span class="charliteral">'\''</span>)) {</div>
<div class="line"><a id="l00056" name="l00056"></a><span class="lineno"> 56</span> quoting = !quoting;</div>
<div class="line"><a id="l00057" name="l00057"></a><span class="lineno"> 57</span> }</div>
<div class="line"><a id="l00058" name="l00058"></a><span class="lineno"> 58</span> <span class="comment">/* 「'」をカウントする。「''」の場合は1をカウント */</span></div>
<div class="line"><a id="l00059" name="l00059"></a><span class="lineno"> 59</span> <span class="keywordflow">if</span>(p[i+1] != <span class="charliteral">'\''</span>) {</div>
<div class="line"><a id="l00060" name="l00060"></a><span class="lineno"> 60</span> cnt_quote++;</div>
<div class="line"><a id="l00061" name="l00061"></a><span class="lineno"> 61</span> }</div>
<div class="line"><a id="l00062" name="l00062"></a><span class="lineno"> 62</span> }</div>
<div class="line"><a id="l00063" name="l00063"></a><span class="lineno"> 63</span> <span class="keywordflow">if</span>(quoting == <span class="keyword">true</span>) {</div>
<div class="line"><a id="l00064" name="l00064"></a><span class="lineno"> 64</span> <span class="comment">/* 「'」で開いたまま文字列が終了した場合 */</span></div>
<div class="line"><a id="l00065" name="l00065"></a><span class="lineno"> 65</span> <span class="keywordflow">if</span>(!p[i]) {</div>
<div class="line"><a id="l00066" name="l00066"></a><span class="lineno"> 66</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(123, str); <span class="comment">/* unclosed quote */</span></div>
<div class="line"><a id="l00067" name="l00067"></a><span class="lineno"> 67</span> <span class="keywordflow">break</span>;</div>
<div class="line"><a id="l00068" name="l00068"></a><span class="lineno"> 68</span> }</div>
<div class="line"><a id="l00069" name="l00069"></a><span class="lineno"> 69</span> i++;</div>
<div class="line"><a id="l00070" name="l00070"></a><span class="lineno"> 70</span> } <span class="keywordflow">else</span> {</div>
<div class="line"><a id="l00071" name="l00071"></a><span class="lineno"> 71</span> i += strcspn(p + i, <span class="stringliteral">", "</span>);</div>
<div class="line"><a id="l00072" name="l00072"></a><span class="lineno"> 72</span> <span class="keywordflow">if</span>(i == 0) {</div>
<div class="line"><a id="l00073" name="l00073"></a><span class="lineno"> 73</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(121, <span class="stringliteral">""</span>); <span class="comment">/* cannot get operand token */</span></div>
<div class="line"><a id="l00074" name="l00074"></a><span class="lineno"> 74</span> <span class="keywordflow">break</span>;</div>
<div class="line"><a id="l00075" name="l00075"></a><span class="lineno"> 75</span> }</div>
<div class="line"><a id="l00076" name="l00076"></a><span class="lineno"> 76</span> <span class="keywordflow">if</span>(i - cnt_quote > <a class="code hl_enumvalue" href="token_8h.html#aac8199e822580470cb8af690f73a54b6ade9e86d3712c3a79f3a931c681f041cd">OPDSIZE</a>) {</div>
<div class="line"><a id="l00077" name="l00077"></a><span class="lineno"> 77</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(118, <span class="stringliteral">""</span>); <span class="comment">/* operand length too long */</span></div>
<div class="line"><a id="l00078" name="l00078"></a><span class="lineno"> 78</span> <span class="keywordflow">break</span>;</div>
<div class="line"><a id="l00079" name="l00079"></a><span class="lineno"> 79</span> }</div>
<div class="line"><a id="l00080" name="l00080"></a><span class="lineno"> 80</span> sepc = p[i];</div>
<div class="line"><a id="l00081" name="l00081"></a><span class="lineno"> 81</span> opd-><a class="code hl_variable" href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">opdv</a>[(opd-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a>)++] = <a class="code hl_function" href="cmem_8h.html#a610ed65c2f1179bd3c5da29d36f3f5d8">strndup_chk</a>(p, i, <span class="stringliteral">"opd->opdv[]"</span>);</div>
<div class="line"><a id="l00082" name="l00082"></a><span class="lineno"> 82</span> p += i + 1;</div>
<div class="line"><a id="l00083" name="l00083"></a><span class="lineno"> 83</span> i = cnt_quote = 0;</div>
<div class="line"><a id="l00084" name="l00084"></a><span class="lineno"> 84</span> }</div>
<div class="line"><a id="l00085" name="l00085"></a><span class="lineno"> 85</span> } <span class="keywordflow">while</span>(sepc == <span class="charliteral">','</span>);</div>
<div class="line"><a id="l00086" name="l00086"></a><span class="lineno"> 86</span> <a class="code hl_define" href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a>(tok);</div>
<div class="line"><a id="l00087" name="l00087"></a><span class="lineno"> 87</span> <span class="keywordflow">return</span> opd;</div>
<div class="line"><a id="l00088" name="l00088"></a><span class="lineno"> 88</span>}</div>
</div>
<div class="line"><a id="l00089" name="l00089"></a><span class="lineno"> 89</span> </div>
<div class="line"><a id="l00090" name="l00090"></a><span class="lineno"> 90</span><span class="comment">/* assemble.hで定義された関数群 */</span></div>
<div class="foldopen" id="foldopen00091" data-start="{" data-end="}">
<div class="line"><a id="l00091" name="l00091"></a><span class="lineno"><a class="line" href="token_8h.html#a5e1c73d564047b8ead994a3b1d9daa11"> 91</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="token_8c.html#a5e1c73d564047b8ead994a3b1d9daa11">addcerrlist_tok</a>()</div>
<div class="line"><a id="l00092" name="l00092"></a><span class="lineno"> 92</span>{</div>
<div class="line"><a id="l00093" name="l00093"></a><span class="lineno"> 93</span> <a class="code hl_function" href="cerr_8h.html#a4d0e0d9cf66be33e95ca2c73d2ea2c63">addcerrlist</a>(<a class="code hl_define" href="cmem_8h.html#abd34d9a0fac0c592a7b76395011bb370">ARRAYSIZE</a>(<a class="code hl_variable" href="token_8c.html#a9c6d5cae193d3086c1f0369f2329d406">cerr_linetok</a>), <a class="code hl_variable" href="token_8c.html#a9c6d5cae193d3086c1f0369f2329d406">cerr_linetok</a>);</div>
<div class="line"><a id="l00094" name="l00094"></a><span class="lineno"> 94</span> <a class="code hl_function" href="cerr_8h.html#a4d0e0d9cf66be33e95ca2c73d2ea2c63">addcerrlist</a>(<a class="code hl_define" href="cmem_8h.html#abd34d9a0fac0c592a7b76395011bb370">ARRAYSIZE</a>(<a class="code hl_variable" href="token_8c.html#a631056cc914184f81cb9fe5782e59b69">cerr_opdtok</a>), <a class="code hl_variable" href="token_8c.html#a631056cc914184f81cb9fe5782e59b69">cerr_opdtok</a>);</div>
<div class="line"><a id="l00095" name="l00095"></a><span class="lineno"> 95</span>}</div>
</div>
<div class="line"><a id="l00096" name="l00096"></a><span class="lineno"> 96</span> </div>
<div class="foldopen" id="foldopen00097" data-start="{" data-end="}">
<div class="line"><a id="l00097" name="l00097"></a><span class="lineno"><a class="line" href="token_8h.html#a0e427bc88eca4d0d5a3479933c839003"> 97</a></span><a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *<a class="code hl_function" href="token_8c.html#a0e427bc88eca4d0d5a3479933c839003">linetok</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *line)</div>
<div class="line"><a id="l00098" name="l00098"></a><span class="lineno"> 98</span>{</div>
<div class="line"><a id="l00099" name="l00099"></a><span class="lineno"> 99</span> <span class="keywordtype">char</span> *tok = NULL, *p = NULL;</div>
<div class="line"><a id="l00100" name="l00100"></a><span class="lineno"> 100</span> <span class="keywordtype">int</span> i;</div>
<div class="line"><a id="l00101" name="l00101"></a><span class="lineno"> 101</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl = NULL;</div>
<div class="line"><a id="l00102" name="l00102"></a><span class="lineno"> 102</span> </div>
<div class="line"><a id="l00103" name="l00103"></a><span class="lineno"> 103</span> assert(line);</div>
<div class="line"><a id="l00104" name="l00104"></a><span class="lineno"> 104</span> <span class="keywordflow">if</span>(!line[0] || line[0] == <span class="charliteral">'\n'</span>) {</div>
<div class="line"><a id="l00105" name="l00105"></a><span class="lineno"> 105</span> <span class="keywordflow">return</span> NULL;</div>
<div class="line"><a id="l00106" name="l00106"></a><span class="lineno"> 106</span> }</div>
<div class="line"><a id="l00107" name="l00107"></a><span class="lineno"> 107</span> tok = p = <a class="code hl_function" href="cmem_8h.html#aff54004f8d4f59b7ad933d53ae4e1f53">strdup_chk</a>(line, <span class="stringliteral">"tok"</span>);</div>
<div class="line"><a id="l00108" name="l00108"></a><span class="lineno"> 108</span> <span class="comment">/* コメントを削除 */</span></div>
<div class="line"><a id="l00109" name="l00109"></a><span class="lineno"> 109</span> <a class="code hl_function" href="cmem_8h.html#aab7f4dbb7c0a7e7acbd4a7e035c9263c">strip_casl2_comment</a>(p);</div>
<div class="line"><a id="l00110" name="l00110"></a><span class="lineno"> 110</span> <span class="comment">/* 文字列末尾の改行と空白を削除 */</span></div>
<div class="line"><a id="l00111" name="l00111"></a><span class="lineno"> 111</span> <a class="code hl_function" href="cmem_8h.html#a20f2e2b05241b8d97e218e4184b97bac">strip_end</a>(p);</div>
<div class="line"><a id="l00112" name="l00112"></a><span class="lineno"> 112</span> <span class="comment">/* 空行の場合、終了 */</span></div>
<div class="line"><a id="l00113" name="l00113"></a><span class="lineno"> 113</span> <span class="keywordflow">if</span>(!p[0]) {</div>
<div class="line"><a id="l00114" name="l00114"></a><span class="lineno"> 114</span> <span class="keywordflow">goto</span> linetokfin;</div>
<div class="line"><a id="l00115" name="l00115"></a><span class="lineno"> 115</span> }</div>
<div class="line"><a id="l00116" name="l00116"></a><span class="lineno"> 116</span> cmdl = <a class="code hl_function" href="cmem_8h.html#ab59996fd09e57355900e5d0f6a772297">malloc_chk</a>(<span class="keyword">sizeof</span>(<a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a>), <span class="stringliteral">"cmdl"</span>);</div>
<div class="line"><a id="l00117" name="l00117"></a><span class="lineno"> 117</span> </div>
<div class="line"><a id="l00118" name="l00118"></a><span class="lineno"> 118</span> <span class="comment">/* ラベルの取得 */</span></div>
<div class="line"><a id="l00119" name="l00119"></a><span class="lineno"> 119</span> <span class="comment">/* 行の先頭が空白またはタブの場合、ラベルは空 */</span></div>
<div class="line"><a id="l00120" name="l00120"></a><span class="lineno"> 120</span> <span class="keywordflow">if</span>((i = strcspn(p, <span class="stringliteral">" \t"</span>)) == 0) {</div>
<div class="line"><a id="l00121" name="l00121"></a><span class="lineno"> 121</span> cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#ad3c07addcac5f06f9a7637cb993c6c89">label</a> = <a class="code hl_function" href="cmem_8h.html#aff54004f8d4f59b7ad933d53ae4e1f53">strdup_chk</a>(<span class="stringliteral">""</span>, <span class="stringliteral">"cmdl->label"</span>);</div>
<div class="line"><a id="l00122" name="l00122"></a><span class="lineno"> 122</span> } <span class="keywordflow">else</span> {</div>
<div class="line"><a id="l00123" name="l00123"></a><span class="lineno"> 123</span> cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#ad3c07addcac5f06f9a7637cb993c6c89">label</a> = <a class="code hl_function" href="cmem_8h.html#a610ed65c2f1179bd3c5da29d36f3f5d8">strndup_chk</a>(p, i, <span class="stringliteral">"cmdl->label"</span>);</div>
<div class="line"><a id="l00124" name="l00124"></a><span class="lineno"> 124</span> <span class="comment">/* ラベルの文字列が長すぎる場合はエラー */</span></div>
<div class="line"><a id="l00125" name="l00125"></a><span class="lineno"> 125</span> <span class="keywordflow">if</span>(i > <a class="code hl_enumvalue" href="token_8h.html#aac8199e822580470cb8af690f73a54b6a67e6ba0721eec2e887d62ad391dbcb85">LABELSIZE</a>) {</div>
<div class="line"><a id="l00126" name="l00126"></a><span class="lineno"> 126</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(104, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#ad3c07addcac5f06f9a7637cb993c6c89">label</a>); <span class="comment">/* label length is too long */</span></div>
<div class="line"><a id="l00127" name="l00127"></a><span class="lineno"> 127</span> <a class="code hl_define" href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#ad3c07addcac5f06f9a7637cb993c6c89">label</a>);</div>
<div class="line"><a id="l00128" name="l00128"></a><span class="lineno"> 128</span> <span class="keywordflow">goto</span> linetokfin;</div>
<div class="line"><a id="l00129" name="l00129"></a><span class="lineno"> 129</span> }</div>
<div class="line"><a id="l00130" name="l00130"></a><span class="lineno"> 130</span> }</div>
<div class="line"><a id="l00131" name="l00131"></a><span class="lineno"> 131</span> </div>
<div class="line"><a id="l00132" name="l00132"></a><span class="lineno"> 132</span> <span class="comment">/* 命令の取得 */</span></div>
<div class="line"><a id="l00133" name="l00133"></a><span class="lineno"> 133</span> <span class="comment">/* 文字列先頭をラベルの次の文字に移動 */</span></div>
<div class="line"><a id="l00134" name="l00134"></a><span class="lineno"> 134</span> p += i;</div>
<div class="line"><a id="l00135" name="l00135"></a><span class="lineno"> 135</span> <span class="comment">/* 文字列先頭を、ラベルと命令の間の空白の後ろに移動 */</span></div>
<div class="line"><a id="l00136" name="l00136"></a><span class="lineno"> 136</span> p += strspn(p, <span class="stringliteral">" \t"</span>);</div>
<div class="line"><a id="l00137" name="l00137"></a><span class="lineno"> 137</span> <span class="comment">/* 命令がない場合は、終了 */</span></div>
<div class="line"><a id="l00138" name="l00138"></a><span class="lineno"> 138</span> <span class="keywordflow">if</span>(!p[0]) {</div>
<div class="line"><a id="l00139" name="l00139"></a><span class="lineno"> 139</span> <span class="keywordflow">if</span>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#ad3c07addcac5f06f9a7637cb993c6c89">label</a>) { <span class="comment">/* ラベルが定義されていて命令がない場合はエラー */</span></div>
<div class="line"><a id="l00140" name="l00140"></a><span class="lineno"> 140</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(105, <span class="stringliteral">""</span>); <span class="comment">/* no command in the line */</span></div>
<div class="line"><a id="l00141" name="l00141"></a><span class="lineno"> 141</span> }</div>
<div class="line"><a id="l00142" name="l00142"></a><span class="lineno"> 142</span> <a class="code hl_define" href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#ad3c07addcac5f06f9a7637cb993c6c89">label</a>);</div>
<div class="line"><a id="l00143" name="l00143"></a><span class="lineno"> 143</span> <a class="code hl_define" href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a>(cmdl);</div>
<div class="line"><a id="l00144" name="l00144"></a><span class="lineno"> 144</span> <span class="keywordflow">goto</span> linetokfin;</div>
<div class="line"><a id="l00145" name="l00145"></a><span class="lineno"> 145</span> }</div>
<div class="line"><a id="l00146" name="l00146"></a><span class="lineno"> 146</span> <span class="comment">/* 命令取得の実行 */</span></div>
<div class="line"><a id="l00147" name="l00147"></a><span class="lineno"> 147</span> i = strcspn(p, <span class="stringliteral">" \t"</span>);</div>
<div class="line"><a id="l00148" name="l00148"></a><span class="lineno"> 148</span> cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">cmd</a> = <a class="code hl_function" href="cmem_8h.html#a610ed65c2f1179bd3c5da29d36f3f5d8">strndup_chk</a>(p, i, <span class="stringliteral">"cmdl.cmd"</span>);</div>
<div class="line"><a id="l00149" name="l00149"></a><span class="lineno"> 149</span> </div>
<div class="line"><a id="l00150" name="l00150"></a><span class="lineno"> 150</span> <span class="comment">/* オペランドの取得 */</span></div>
<div class="line"><a id="l00151" name="l00151"></a><span class="lineno"> 151</span> <span class="comment">/* 文字列先頭を、命令の次の文字に移動 */</span></div>
<div class="line"><a id="l00152" name="l00152"></a><span class="lineno"> 152</span> p += i;</div>
<div class="line"><a id="l00153" name="l00153"></a><span class="lineno"> 153</span> <span class="comment">/* 文字列先頭を、命令とオペランドの間の空白の後ろに移動 */</span></div>
<div class="line"><a id="l00154" name="l00154"></a><span class="lineno"> 154</span> p += strspn(p, <span class="stringliteral">" \t"</span>);</div>
<div class="line"><a id="l00155" name="l00155"></a><span class="lineno"> 155</span> <span class="comment">/* オペランド取得の実行 */</span></div>
<div class="line"><a id="l00156" name="l00156"></a><span class="lineno"> 156</span> cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a> = <a class="code hl_function" href="token_8c.html#a953218537ac1577c48aa527d326e853b">opdtok</a>(p);</div>
<div class="line"><a id="l00157" name="l00157"></a><span class="lineno"> 157</span>linetokfin:</div>
<div class="line"><a id="l00158" name="l00158"></a><span class="lineno"> 158</span> <a class="code hl_define" href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a>(tok);</div>
<div class="line"><a id="l00159" name="l00159"></a><span class="lineno"> 159</span> <span class="keywordflow">return</span> cmdl;</div>
<div class="line"><a id="l00160" name="l00160"></a><span class="lineno"> 160</span>}</div>
</div>
<div class="ttc" id="acerr_8h_html_a3636a4b86cca574b3786f76f5231ffe5"><div class="ttname"><a href="cerr_8h.html#a3636a4b86cca574b3786f76f5231ffe5">CERR</a></div><div class="ttdeci">struct _CERR CERR</div><div class="ttdoc">エラーを表すデータ型</div></div>
<div class="ttc" id="acerr_8h_html_a4d0e0d9cf66be33e95ca2c73d2ea2c63"><div class="ttname"><a href="cerr_8h.html#a4d0e0d9cf66be33e95ca2c73d2ea2c63">addcerrlist</a></div><div class="ttdeci">void addcerrlist(int cerrc, CERR cerrv[])</div><div class="ttdoc">エラーリストを作成・追加する</div><div class="ttdef"><b>Definition</b> <a href="cerr_8c_source.html#l00014">cerr.c:14</a></div></div>
<div class="ttc" id="acerr_8h_html_ac878972bcd42a554769270aadf8c6bbe"><div class="ttname"><a href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a></div><div class="ttdeci">void setcerr(int num, const char *str)</div><div class="ttdoc">現在のエラーを設定する</div><div class="ttdef"><b>Definition</b> <a href="cerr_8c_source.html#l00046">cerr.c:46</a></div></div>
<div class="ttc" id="acmem_8h_html_a105949c59c998e38aad80266afac92bf"><div class="ttname"><a href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a></div><div class="ttdeci">#define FREE(ptr)</div><div class="ttdoc">メモリを解放するマクロ</div><div class="ttdef"><b>Definition</b> <a href="cmem_8h_source.html#l00022">cmem.h:22</a></div></div>
<div class="ttc" id="acmem_8h_html_a20f2e2b05241b8d97e218e4184b97bac"><div class="ttname"><a href="cmem_8h.html#a20f2e2b05241b8d97e218e4184b97bac">strip_end</a></div><div class="ttdeci">void strip_end(char *s)</div><div class="ttdoc">文字列の末尾から、改行と空白とタブを削除する</div><div class="ttdef"><b>Definition</b> <a href="cmem_8c_source.html#l00068">cmem.c:68</a></div></div>
<div class="ttc" id="acmem_8h_html_a610ed65c2f1179bd3c5da29d36f3f5d8"><div class="ttname"><a href="cmem_8h.html#a610ed65c2f1179bd3c5da29d36f3f5d8">strndup_chk</a></div><div class="ttdeci">char * strndup_chk(const char *s, size_t len, const char *tag)</div><div class="ttdoc">malloc_chkを実行してメモリを確保し、コピーした文字列の指定した長さの部分を返す</div><div class="ttdef"><b>Definition</b> <a href="cmem_8c_source.html#l00053">cmem.c:53</a></div></div>
<div class="ttc" id="acmem_8h_html_aab7f4dbb7c0a7e7acbd4a7e035c9263c"><div class="ttname"><a href="cmem_8h.html#aab7f4dbb7c0a7e7acbd4a7e035c9263c">strip_casl2_comment</a></div><div class="ttdeci">void strip_casl2_comment(char *s)</div><div class="ttdoc">文字列から「'」以降の文字列をCASL IIのコメントとして削除する。「''」の場合は除く</div><div class="ttdef"><b>Definition</b> <a href="cmem_8c_source.html#l00075">cmem.c:75</a></div></div>
<div class="ttc" id="acmem_8h_html_ab59996fd09e57355900e5d0f6a772297"><div class="ttname"><a href="cmem_8h.html#ab59996fd09e57355900e5d0f6a772297">malloc_chk</a></div><div class="ttdeci">void * malloc_chk(size_t size, const char *tag)</div><div class="ttdoc">mallocを実行し、0で初期化する</div><div class="ttdef"><b>Definition</b> <a href="cmem_8c_source.html#l00023">cmem.c:23</a></div></div>
<div class="ttc" id="acmem_8h_html_abd34d9a0fac0c592a7b76395011bb370"><div class="ttname"><a href="cmem_8h.html#abd34d9a0fac0c592a7b76395011bb370">ARRAYSIZE</a></div><div class="ttdeci">#define ARRAYSIZE(array)</div><div class="ttdoc">配列のサイズを返すマクロ</div><div class="ttdef"><b>Definition</b> <a href="cmem_8h_source.html#l00015">cmem.h:15</a></div></div>
<div class="ttc" id="acmem_8h_html_aff54004f8d4f59b7ad933d53ae4e1f53"><div class="ttname"><a href="cmem_8h.html#aff54004f8d4f59b7ad933d53ae4e1f53">strdup_chk</a></div><div class="ttdeci">char * strdup_chk(const char *s, const char *tag)</div><div class="ttdoc">malloc_chkを実行してメモリを確保し、コピーした文字列を返す</div><div class="ttdef"><b>Definition</b> <a href="cmem_8c_source.html#l00045">cmem.c:45</a></div></div>
<div class="ttc" id="astruct_c_m_d_l_i_n_e_html"><div class="ttname"><a href="struct_c_m_d_l_i_n_e.html">CMDLINE</a></div><div class="ttdoc">命令行を表すデータ型</div><div class="ttdef"><b>Definition</b> <a href="token_8h_source.html#l00041">token.h:41</a></div></div>
<div class="ttc" id="astruct_c_m_d_l_i_n_e_html_a7783943c9e1aaefbf9bf6c63ae6684ba"><div class="ttname"><a href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">CMDLINE::opd</a></div><div class="ttdeci">OPD * opd</div><div class="ttdef"><b>Definition</b> <a href="token_8h_source.html#l00044">token.h:44</a></div></div>
<div class="ttc" id="astruct_c_m_d_l_i_n_e_html_a87d8067e9959877c420bacd8dad907ca"><div class="ttname"><a href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">CMDLINE::cmd</a></div><div class="ttdeci">char * cmd</div><div class="ttdef"><b>Definition</b> <a href="token_8h_source.html#l00043">token.h:43</a></div></div>
<div class="ttc" id="astruct_c_m_d_l_i_n_e_html_ad3c07addcac5f06f9a7637cb993c6c89"><div class="ttname"><a href="struct_c_m_d_l_i_n_e.html#ad3c07addcac5f06f9a7637cb993c6c89">CMDLINE::label</a></div><div class="ttdeci">char * label</div><div class="ttdef"><b>Definition</b> <a href="token_8h_source.html#l00042">token.h:42</a></div></div>
<div class="ttc" id="astruct_o_p_d_html"><div class="ttname"><a href="struct_o_p_d.html">OPD</a></div><div class="ttdoc">オペランドを表すデータ型</div><div class="ttdef"><b>Definition</b> <a href="token_8h_source.html#l00033">token.h:33</a></div></div>
<div class="ttc" id="astruct_o_p_d_html_a1b736d979fe0ba67cb92e11ad954ee3d"><div class="ttname"><a href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">OPD::opdc</a></div><div class="ttdeci">int opdc</div><div class="ttdef"><b>Definition</b> <a href="token_8h_source.html#l00034">token.h:34</a></div></div>
<div class="ttc" id="astruct_o_p_d_html_ab8b0d619dcabf00339e15ce27777f3d2"><div class="ttname"><a href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">OPD::opdv</a></div><div class="ttdeci">char * opdv[OPDSIZE]</div><div class="ttdef"><b>Definition</b> <a href="token_8h_source.html#l00035">token.h:35</a></div></div>
<div class="ttc" id="atoken_8c_html_a0e427bc88eca4d0d5a3479933c839003"><div class="ttname"><a href="token_8c.html#a0e427bc88eca4d0d5a3479933c839003">linetok</a></div><div class="ttdeci">CMDLINE * linetok(const char *line)</div><div class="ttdoc">行から、ラベル・コマンド・オペランドを取得する</div><div class="ttdef"><b>Definition</b> <a href="#l00097">token.c:97</a></div></div>
<div class="ttc" id="atoken_8c_html_a5e1c73d564047b8ead994a3b1d9daa11"><div class="ttname"><a href="token_8c.html#a5e1c73d564047b8ead994a3b1d9daa11">addcerrlist_tok</a></div><div class="ttdeci">void addcerrlist_tok()</div><div class="ttdoc">トークン取得のエラーを追加する</div><div class="ttdef"><b>Definition</b> <a href="#l00091">token.c:91</a></div></div>
<div class="ttc" id="atoken_8c_html_a631056cc914184f81cb9fe5782e59b69"><div class="ttname"><a href="token_8c.html#a631056cc914184f81cb9fe5782e59b69">cerr_opdtok</a></div><div class="ttdeci">static CERR cerr_opdtok[]</div><div class="ttdoc">オペランドトークン取得のエラー定義</div><div class="ttdef"><b>Definition</b> <a href="#l00023">token.c:23</a></div></div>
<div class="ttc" id="atoken_8c_html_a953218537ac1577c48aa527d326e853b"><div class="ttname"><a href="token_8c.html#a953218537ac1577c48aa527d326e853b">opdtok</a></div><div class="ttdeci">OPD * opdtok(const char *str)</div><div class="ttdoc">「,」区切りの文字列から、オペランドのトークンを取得</div><div class="ttdef"><b>Definition</b> <a href="#l00030">token.c:30</a></div></div>
<div class="ttc" id="atoken_8c_html_a9c6d5cae193d3086c1f0369f2329d406"><div class="ttname"><a href="token_8c.html#a9c6d5cae193d3086c1f0369f2329d406">cerr_linetok</a></div><div class="ttdeci">CERR cerr_linetok[]</div><div class="ttdoc">行トークン取得のエラー定義</div><div class="ttdef"><b>Definition</b> <a href="#l00015">token.c:15</a></div></div>
<div class="ttc" id="atoken_8h_html"><div class="ttname"><a href="token_8h.html">token.h</a></div></div>
<div class="ttc" id="atoken_8h_html_aac8199e822580470cb8af690f73a54b6a67e6ba0721eec2e887d62ad391dbcb85"><div class="ttname"><a href="token_8h.html#aac8199e822580470cb8af690f73a54b6a67e6ba0721eec2e887d62ad391dbcb85">LABELSIZE</a></div><div class="ttdeci">@ LABELSIZE</div><div class="ttdef"><b>Definition</b> <a href="token_8h_source.html#l00018">token.h:18</a></div></div>
<div class="ttc" id="atoken_8h_html_aac8199e822580470cb8af690f73a54b6ade9e86d3712c3a79f3a931c681f041cd"><div class="ttname"><a href="token_8h.html#aac8199e822580470cb8af690f73a54b6ade9e86d3712c3a79f3a931c681f041cd">OPDSIZE</a></div><div class="ttdeci">@ OPDSIZE</div><div class="ttdef"><b>Definition</b> <a href="token_8h_source.html#l00019">token.h:19</a></div></div>
</div><!-- fragment --></div><!-- contents -->
<!-- start footer part -->
<hr class="footer"/><address class="footer"><small>
Generated on <span class="timestamp"></span> for YACASL2 by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.14.0
</small></address>
</div><!-- doc-content -->
</body>
</html>