| Current File : //opt/RZruby/share/doc/ruby/html/d5/d9d/tcltklib_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: ext/tk/tcltklib.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_31cedd4509e06940f559c1ca2f722e02.html">ext</a></li><li class="navelem"><a class="el" href="../../dir_d39c93a71783a4d29d65c66fc3dd009e.html">tk</a></li> </ul>
</div>
</div><!-- top -->
<div class="header">
<div class="headertitle">
<div class="title">tcltklib.c</div> </div>
</div><!--header-->
<div class="contents">
<a href="../../d5/d9d/tcltklib_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">/*</span></div>
<div class="line"><a name="l00002"></a><span class="lineno"> 2</span> <span class="comment"> * tcltklib.c</span></div>
<div class="line"><a name="l00003"></a><span class="lineno"> 3</span> <span class="comment"> * Aug. 27, 1997 Y. Shigehiro</span></div>
<div class="line"><a name="l00004"></a><span class="lineno"> 4</span> <span class="comment"> * Oct. 24, 1997 Y. Matsumoto</span></div>
<div class="line"><a name="l00005"></a><span class="lineno"> 5</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00006"></a><span class="lineno"> 6</span> </div>
<div class="line"><a name="l00007"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a1e2eb8512f9421fa7485556a9e3bf439"> 7</a></span> <span class="preprocessor">#define TCLTKLIB_RELEASE_DATE "2010-08-25"</span></div>
<div class="line"><a name="l00008"></a><span class="lineno"> 8</span> <span class="preprocessor"></span><span class="comment">/* #define CREATE_RUBYTK_KIT */</span></div>
<div class="line"><a name="l00009"></a><span class="lineno"> 9</span> </div>
<div class="line"><a name="l00010"></a><span class="lineno"> 10</span> <span class="preprocessor">#include "ruby.h"</span></div>
<div class="line"><a name="l00011"></a><span class="lineno"> 11</span> </div>
<div class="line"><a name="l00012"></a><span class="lineno"> 12</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l00013"></a><span class="lineno"> 13</span> <span class="preprocessor"></span><span class="preprocessor">#include "<a class="code" href="../../d5/de3/encoding_8h.html">ruby/encoding.h</a>"</span></div>
<div class="line"><a name="l00014"></a><span class="lineno"> 14</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00015"></a><span class="lineno"> 15</span> <span class="preprocessor"></span><span class="preprocessor">#ifndef RUBY_VERSION</span></div>
<div class="line"><a name="l00016"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad0c39c601f4084e6d3ee83dcba61358d"> 16</a></span> <span class="preprocessor"></span><span class="preprocessor">#define RUBY_VERSION "(unknown version)"</span></div>
<div class="line"><a name="l00017"></a><span class="lineno"> 17</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00018"></a><span class="lineno"> 18</span> <span class="preprocessor"></span><span class="preprocessor">#ifndef RUBY_RELEASE_DATE</span></div>
<div class="line"><a name="l00019"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad63676505f273f55863e4c39b0940cc3"> 19</a></span> <span class="preprocessor"></span><span class="preprocessor">#define RUBY_RELEASE_DATE "unknown release-date"</span></div>
<div class="line"><a name="l00020"></a><span class="lineno"> 20</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00021"></a><span class="lineno"> 21</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00022"></a><span class="lineno"> 22</span> <span class="preprocessor">#ifdef RUBY_VM</span></div>
<div class="line"><a name="l00023"></a><span class="lineno"> 23</span> <span class="preprocessor"></span><span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>; <span class="comment">/* dummy */</span></div>
<div class="line"><a name="l00024"></a><span class="lineno"> 24</span> <span class="keywordtype">int</span> <a class="code" href="../../d3/de7/thread_8c.html#a024fc07d1560d6a94da3bcc268c9bbd8">rb_thread_check_trap_pending</a>();</div>
<div class="line"><a name="l00025"></a><span class="lineno"> 25</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l00026"></a><span class="lineno"> 26</span> <span class="preprocessor"></span><span class="comment">/* use rb_thread_critical on Ruby 1.8.x */</span></div>
<div class="line"><a name="l00027"></a><span class="lineno"> 27</span> <span class="preprocessor">#include "<a class="code" href="../../d0/de9/rubysig_8h.html">rubysig.h</a>"</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="preprocessor">#if !defined(RSTRING_PTR)</span></div>
<div class="line"><a name="l00031"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee"> 31</a></span> <span class="preprocessor"></span><span class="preprocessor">#define RSTRING_PTR(s) (RSTRING(s)->ptr)</span></div>
<div class="line"><a name="l00032"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0"> 32</a></span> <span class="preprocessor"></span><span class="preprocessor">#define RSTRING_LEN(s) (RSTRING(s)->len)</span></div>
<div class="line"><a name="l00033"></a><span class="lineno"> 33</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00034"></a><span class="lineno"> 34</span> <span class="preprocessor"></span><span class="preprocessor">#if !defined(RARRAY_PTR)</span></div>
<div class="line"><a name="l00035"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a654a09f011db16d0ea6fcfd0423d0997"> 35</a></span> <span class="preprocessor"></span><span class="preprocessor">#define RARRAY_PTR(s) (RARRAY(s)->ptr)</span></div>
<div class="line"><a name="l00036"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a71d641751799309d04e17a93ee78b5d3"> 36</a></span> <span class="preprocessor"></span><span class="preprocessor">#define RARRAY_LEN(s) (RARRAY(s)->len)</span></div>
<div class="line"><a name="l00037"></a><span class="lineno"> 37</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00038"></a><span class="lineno"> 38</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00039"></a><span class="lineno"> 39</span> <span class="preprocessor">#ifdef OBJ_UNTRUST</span></div>
<div class="line"><a name="l00040"></a><span class="lineno"> 40</span> <span class="preprocessor"></span><span class="preprocessor">#define RbTk_OBJ_UNTRUST(x) do {OBJ_TAINT(x); OBJ_UNTRUST(x);} while (0)</span></div>
<div class="line"><a name="l00041"></a><span class="lineno"> 41</span> <span class="preprocessor"></span><span class="preprocessor">#else</span></div>
<div class="line"><a name="l00042"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832"> 42</a></span> <span class="preprocessor"></span><span class="preprocessor">#define RbTk_OBJ_UNTRUST(x) OBJ_TAINT(x)</span></div>
<div class="line"><a name="l00043"></a><span class="lineno"> 43</span> <span class="preprocessor"></span><span class="preprocessor">#endif</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">#if defined(HAVE_RB_PROC_NEW) && !defined(RUBY_VM)</span></div>
<div class="line"><a name="l00046"></a><span class="lineno"> 46</span> <span class="preprocessor"></span><span class="comment">/* Ruby 1.8 :: rb_proc_new() was hidden from intern.h at 2008/04/22 */</span></div>
<div class="line"><a name="l00047"></a><span class="lineno"> 47</span> <span class="keyword">extern</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../db/d2e/intern_8h.html#a8a4a55d3f2ed6d9ece055553e48755d5">rb_proc_new</a> <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> (*)(<a class="code" href="../../d8/db0/defines_8h.html#af4fd7cbafda9af704310f78516042dfb">ANYARGS</a><span class="comment">/* VALUE yieldarg[, VALUE procarg] */</span>), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>));</div>
<div class="line"><a name="l00048"></a><span class="lineno"> 48</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00049"></a><span class="lineno"> 49</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00050"></a><span class="lineno"> 50</span> <span class="preprocessor">#undef EXTERN </span><span class="comment">/* avoid conflict with tcl.h of tcl8.2 or before */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00051"></a><span class="lineno"> 51</span> <span class="preprocessor"></span><span class="preprocessor">#include <stdio.h></span></div>
<div class="line"><a name="l00052"></a><span class="lineno"> 52</span> <span class="preprocessor">#ifdef HAVE_STDARG_PROTOTYPES</span></div>
<div class="line"><a name="l00053"></a><span class="lineno"> 53</span> <span class="preprocessor"></span><span class="preprocessor">#include <stdarg.h></span></div>
<div class="line"><a name="l00054"></a><span class="lineno"> 54</span> <span class="preprocessor">#define va_init_list(a,b) va_start(a,b)</span></div>
<div class="line"><a name="l00055"></a><span class="lineno"> 55</span> <span class="preprocessor"></span><span class="preprocessor">#else</span></div>
<div class="line"><a name="l00056"></a><span class="lineno"> 56</span> <span class="preprocessor"></span><span class="preprocessor">#include <varargs.h></span></div>
<div class="line"><a name="l00057"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3a0a28ba6e22644006c9bafb793f8a2c"> 57</a></span> <span class="preprocessor">#define va_init_list(a,b) va_start(a)</span></div>
<div class="line"><a name="l00058"></a><span class="lineno"> 58</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00059"></a><span class="lineno"> 59</span> <span class="preprocessor"></span><span class="preprocessor">#include <string.h></span></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="preprocessor">#if !defined HAVE_VSNPRINTF && !defined vsnprintf</span></div>
<div class="line"><a name="l00062"></a><span class="lineno"> 62</span> <span class="preprocessor"></span><span class="preprocessor"># ifdef WIN32</span></div>
<div class="line"><a name="l00063"></a><span class="lineno"> 63</span> <span class="preprocessor"></span> <span class="comment">/* In Win32, vsnprintf is available as the "non-ANSI" _vsnprintf. */</span></div>
<div class="line"><a name="l00064"></a><span class="lineno"> 64</span> <span class="preprocessor"># define vsnprintf _vsnprintf</span></div>
<div class="line"><a name="l00065"></a><span class="lineno"> 65</span> <span class="preprocessor"></span><span class="preprocessor"># else</span></div>
<div class="line"><a name="l00066"></a><span class="lineno"> 66</span> <span class="preprocessor"></span><span class="preprocessor"># ifdef HAVE_RUBY_RUBY_H</span></div>
<div class="line"><a name="l00067"></a><span class="lineno"> 67</span> <span class="preprocessor"></span><span class="preprocessor"># include "<a class="code" href="../../d3/d90/missing_8h.html">ruby/missing.h</a>"</span></div>
<div class="line"><a name="l00068"></a><span class="lineno"> 68</span> <span class="preprocessor"># else</span></div>
<div class="line"><a name="l00069"></a><span class="lineno"> 69</span> <span class="preprocessor"></span><span class="preprocessor"># include "<a class="code" href="../../d3/d90/missing_8h.html">missing.h</a>"</span></div>
<div class="line"><a name="l00070"></a><span class="lineno"> 70</span> <span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00071"></a><span class="lineno"> 71</span> <span class="preprocessor"></span><span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00072"></a><span class="lineno"> 72</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00073"></a><span class="lineno"> 73</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00074"></a><span class="lineno"> 74</span> <span class="preprocessor">#include <tcl.h></span></div>
<div class="line"><a name="l00075"></a><span class="lineno"> 75</span> <span class="preprocessor">#include <tk.h></span></div>
<div class="line"><a name="l00076"></a><span class="lineno"> 76</span> </div>
<div class="line"><a name="l00077"></a><span class="lineno"> 77</span> <span class="preprocessor">#ifndef HAVE_RUBY_NATIVE_THREAD_P</span></div>
<div class="line"><a name="l00078"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9e7d742a9c52a78b9b3dc81df878e2ed"> 78</a></span> <span class="preprocessor"></span><span class="preprocessor">#define ruby_native_thread_p() is_ruby_native_thread()</span></div>
<div class="line"><a name="l00079"></a><span class="lineno"> 79</span> <span class="preprocessor"></span><span class="preprocessor">#undef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l00080"></a><span class="lineno"> 80</span> <span class="preprocessor"></span><span class="preprocessor">#else</span></div>
<div class="line"><a name="l00081"></a><span class="lineno"> 81</span> <span class="preprocessor"></span><span class="preprocessor">#define RUBY_USE_NATIVE_THREAD 1</span></div>
<div class="line"><a name="l00082"></a><span class="lineno"> 82</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00083"></a><span class="lineno"> 83</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00084"></a><span class="lineno"> 84</span> <span class="preprocessor">#ifndef HAVE_RB_ERRINFO</span></div>
<div class="line"><a name="l00085"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4"> 85</a></span> <span class="preprocessor"></span><span class="preprocessor">#define rb_errinfo() (ruby_errinfo+0) </span><span class="comment">/* cannot be l-value */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00086"></a><span class="lineno"> 86</span> <span class="preprocessor"></span><span class="preprocessor">#else</span></div>
<div class="line"><a name="l00087"></a><span class="lineno"> 87</span> <span class="preprocessor"></span><a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>(<span class="keywordtype">void</span>);</div>
<div class="line"><a name="l00088"></a><span class="lineno"> 88</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00089"></a><span class="lineno"> 89</span> <span class="preprocessor"></span><span class="preprocessor">#ifndef HAVE_RB_SAFE_LEVEL</span></div>
<div class="line"><a name="l00090"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6f520624fabb8332dc98fd223491bf8d"> 90</a></span> <span class="preprocessor"></span><span class="preprocessor">#define rb_safe_level() (ruby_safe_level+0)</span></div>
<div class="line"><a name="l00091"></a><span class="lineno"> 91</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00092"></a><span class="lineno"> 92</span> <span class="preprocessor"></span><span class="preprocessor">#ifndef HAVE_RB_SOURCEFILE</span></div>
<div class="line"><a name="l00093"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aaa4f8c9b566fd7fb6873866c423c2016"> 93</a></span> <span class="preprocessor"></span><span class="preprocessor">#define rb_sourcefile() (ruby_sourcefile+0)</span></div>
<div class="line"><a name="l00094"></a><span class="lineno"> 94</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00095"></a><span class="lineno"> 95</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00096"></a><span class="lineno"> 96</span> <span class="preprocessor">#include "<a class="code" href="../../df/d55/stubs_8h.html">stubs.h</a>"</span></div>
<div class="line"><a name="l00097"></a><span class="lineno"> 97</span> </div>
<div class="line"><a name="l00098"></a><span class="lineno"> 98</span> <span class="preprocessor">#ifndef TCL_ALPHA_RELEASE</span></div>
<div class="line"><a name="l00099"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a4de6261e8241d2b1a2042687e2f3f5f1"> 99</a></span> <span class="preprocessor"></span><span class="preprocessor">#define TCL_ALPHA_RELEASE 0 </span><span class="comment">/* "alpha" */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00100"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af677d35e643bf3e4f082296e5e14bce9"> 100</a></span> <span class="preprocessor"></span><span class="preprocessor">#define TCL_BETA_RELEASE 1 </span><span class="comment">/* "beta" */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00101"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aeebe90bc7223d7d0cdc31f8e2e336e40"> 101</a></span> <span class="preprocessor"></span><span class="preprocessor">#define TCL_FINAL_RELEASE 2 </span><span class="comment">/* "final" */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00102"></a><span class="lineno"> 102</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00103"></a><span class="lineno"> 103</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00104"></a><span class="lineno"> 104</span> <span class="keyword">static</span> <span class="keyword">struct </span>{</div>
<div class="line"><a name="l00105"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac8947941479c38403a09c14a60b03f01"> 105</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac8947941479c38403a09c14a60b03f01">major</a>;</div>
<div class="line"><a name="l00106"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aec7b96885baf2e6f10efbdef9d935a0b"> 106</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aec7b96885baf2e6f10efbdef9d935a0b">minor</a>;</div>
<div class="line"><a name="l00107"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac765329451135abec74c45e1897abf26"> 107</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac765329451135abec74c45e1897abf26">type</a>; <span class="comment">/* ALPHA==0, BETA==1, FINAL==2 */</span></div>
<div class="line"><a name="l00108"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a703be39b589a9caa3476755abb5bdfdc"> 108</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a703be39b589a9caa3476755abb5bdfdc">patchlevel</a>;</div>
<div class="line"><a name="l00109"></a><span class="lineno"> 109</span> } <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad8ac3374c4088a9f45080df85e325e8e">tcltk_version</a> = {0, 0, 0, 0};</div>
<div class="line"><a name="l00110"></a><span class="lineno"> 110</span> </div>
<div class="line"><a name="l00111"></a><span class="lineno"> 111</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l00112"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a171a0d27738b86387c3b5d7a5ff075e8"> 112</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a171a0d27738b86387c3b5d7a5ff075e8">set_tcltk_version</a>()</div>
<div class="line"><a name="l00113"></a><span class="lineno"> 113</span> {</div>
<div class="line"><a name="l00114"></a><span class="lineno"> 114</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad8ac3374c4088a9f45080df85e325e8e">tcltk_version</a>.major) <span class="keywordflow">return</span>;</div>
<div class="line"><a name="l00115"></a><span class="lineno"> 115</span> </div>
<div class="line"><a name="l00116"></a><span class="lineno"> 116</span>  Tcl_GetVersion(&(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad8ac3374c4088a9f45080df85e325e8e">tcltk_version</a>.major),</div>
<div class="line"><a name="l00117"></a><span class="lineno"> 117</span>  &(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad8ac3374c4088a9f45080df85e325e8e">tcltk_version</a>.minor),</div>
<div class="line"><a name="l00118"></a><span class="lineno"> 118</span>  &(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad8ac3374c4088a9f45080df85e325e8e">tcltk_version</a>.patchlevel),</div>
<div class="line"><a name="l00119"></a><span class="lineno"> 119</span>  &(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad8ac3374c4088a9f45080df85e325e8e">tcltk_version</a>.type));</div>
<div class="line"><a name="l00120"></a><span class="lineno"> 120</span> }</div>
<div class="line"><a name="l00121"></a><span class="lineno"> 121</span> </div>
<div class="line"><a name="l00122"></a><span class="lineno"> 122</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l00123"></a><span class="lineno"> 123</span> <span class="preprocessor"></span><span class="preprocessor"># ifndef CONST84</span></div>
<div class="line"><a name="l00124"></a><span class="lineno"> 124</span> <span class="preprocessor"></span><span class="preprocessor"># if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION <= 4 </span><span class="comment">/* Tcl8.0.x -- 8.4b1 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00125"></a><span class="lineno"> 125</span> <span class="preprocessor"></span><span class="preprocessor"># define CONST84</span></div>
<div class="line"><a name="l00126"></a><span class="lineno"> 126</span> <span class="preprocessor"></span><span class="preprocessor"># else </span><span class="comment">/* unknown (maybe TCL_VERSION >= 8.5) */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00127"></a><span class="lineno"> 127</span> <span class="preprocessor"></span><span class="preprocessor"># ifdef CONST</span></div>
<div class="line"><a name="l00128"></a><span class="lineno"> 128</span> <span class="preprocessor"></span><span class="preprocessor"># define CONST84 CONST</span></div>
<div class="line"><a name="l00129"></a><span class="lineno"> 129</span> <span class="preprocessor"></span><span class="preprocessor"># else</span></div>
<div class="line"><a name="l00130"></a><span class="lineno"> 130</span> <span class="preprocessor"></span><span class="preprocessor"># define CONST84</span></div>
<div class="line"><a name="l00131"></a><span class="lineno"> 131</span> <span class="preprocessor"></span><span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00132"></a><span class="lineno"> 132</span> <span class="preprocessor"></span><span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00133"></a><span class="lineno"> 133</span> <span class="preprocessor"></span><span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00134"></a><span class="lineno"> 134</span> <span class="preprocessor"></span><span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00135"></a><span class="lineno"> 135</span> <span class="preprocessor"></span><span class="preprocessor"># ifdef CONST</span></div>
<div class="line"><a name="l00136"></a><span class="lineno"> 136</span> <span class="preprocessor"></span><span class="preprocessor"># define CONST84 CONST</span></div>
<div class="line"><a name="l00137"></a><span class="lineno"> 137</span> <span class="preprocessor"></span><span class="preprocessor"># else</span></div>
<div class="line"><a name="l00138"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff"> 138</a></span> <span class="preprocessor"></span><span class="preprocessor"># define CONST</span></div>
<div class="line"><a name="l00139"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd"> 139</a></span> <span class="preprocessor"></span><span class="preprocessor"># define CONST84</span></div>
<div class="line"><a name="l00140"></a><span class="lineno"> 140</span> <span class="preprocessor"></span><span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00141"></a><span class="lineno"> 141</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00142"></a><span class="lineno"> 142</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00143"></a><span class="lineno"> 143</span> <span class="preprocessor">#ifndef CONST86</span></div>
<div class="line"><a name="l00144"></a><span class="lineno"> 144</span> <span class="preprocessor"></span><span class="preprocessor"># if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION <= 5 </span><span class="comment">/* Tcl8.0.x -- 8.5.x */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00145"></a><span class="lineno"> 145</span> <span class="preprocessor"></span><span class="preprocessor"># define CONST86</span></div>
<div class="line"><a name="l00146"></a><span class="lineno"> 146</span> <span class="preprocessor"></span><span class="preprocessor"># else</span></div>
<div class="line"><a name="l00147"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a69c3c43ade69fe8618464f74667319fa"> 147</a></span> <span class="preprocessor"></span><span class="preprocessor"># define CONST86 CONST84</span></div>
<div class="line"><a name="l00148"></a><span class="lineno"> 148</span> <span class="preprocessor"></span><span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00149"></a><span class="lineno"> 149</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00150"></a><span class="lineno"> 150</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00151"></a><span class="lineno"> 151</span> <span class="comment">/* copied from eval.c */</span></div>
<div class="line"><a name="l00152"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abfe39758eac9658dbce9750e4bfddbc6"> 152</a></span> <span class="preprocessor">#define TAG_RETURN 0x1</span></div>
<div class="line"><a name="l00153"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa69d9fa25afdc01237612a6047b96189"> 153</a></span> <span class="preprocessor"></span><span class="preprocessor">#define TAG_BREAK 0x2</span></div>
<div class="line"><a name="l00154"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac5d3e11622cde853addb87cfae24021e"> 154</a></span> <span class="preprocessor"></span><span class="preprocessor">#define TAG_NEXT 0x3</span></div>
<div class="line"><a name="l00155"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a277f73abdf66e83f4fc75b93d6e87b72"> 155</a></span> <span class="preprocessor"></span><span class="preprocessor">#define TAG_RETRY 0x4</span></div>
<div class="line"><a name="l00156"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a82e8bb282a1d35fcc453335b090bd4a7"> 156</a></span> <span class="preprocessor"></span><span class="preprocessor">#define TAG_REDO 0x5</span></div>
<div class="line"><a name="l00157"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0b034bce069147e233776bc1dcc74c01"> 157</a></span> <span class="preprocessor"></span><span class="preprocessor">#define TAG_RAISE 0x6</span></div>
<div class="line"><a name="l00158"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6d3b7d4da36f7b664c2065f918eb541f"> 158</a></span> <span class="preprocessor"></span><span class="preprocessor">#define TAG_THROW 0x7</span></div>
<div class="line"><a name="l00159"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7490e601d6a9d97a79d4d895ad73c93a"> 159</a></span> <span class="preprocessor"></span><span class="preprocessor">#define TAG_FATAL 0x8</span></div>
<div class="line"><a name="l00160"></a><span class="lineno"> 160</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00161"></a><span class="lineno"> 161</span> <span class="comment">/* for ruby_debug */</span></div>
<div class="line"><a name="l00162"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095"> 162</a></span> <span class="preprocessor">#define DUMP1(ARG1) if (ruby_debug) { fprintf(stderr, "tcltklib: %s\n", ARG1); fflush(stderr); }</span></div>
<div class="line"><a name="l00163"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01"> 163</a></span> <span class="preprocessor"></span><span class="preprocessor">#define DUMP2(ARG1, ARG2) if (ruby_debug) { fprintf(stderr, "tcltklib: ");\</span></div>
<div class="line"><a name="l00164"></a><span class="lineno"> 164</span> <span class="preprocessor">fprintf(stderr, ARG1, ARG2); fprintf(stderr, "\n"); fflush(stderr); }</span></div>
<div class="line"><a name="l00165"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#acaa678bcc1bd95ea581777cb137087b6"> 165</a></span> <span class="preprocessor"></span><span class="preprocessor">#define DUMP3(ARG1, ARG2, ARG3) if (ruby_debug) { fprintf(stderr, "tcltklib: ");\</span></div>
<div class="line"><a name="l00166"></a><span class="lineno"> 166</span> <span class="preprocessor">fprintf(stderr, ARG1, ARG2, ARG3); fprintf(stderr, "\n"); fflush(stderr); }</span></div>
<div class="line"><a name="l00167"></a><span class="lineno"> 167</span> <span class="preprocessor"></span><span class="comment">/*</span></div>
<div class="line"><a name="l00168"></a><span class="lineno"> 168</span> <span class="comment">#define DUMP1(ARG1)</span></div>
<div class="line"><a name="l00169"></a><span class="lineno"> 169</span> <span class="comment">#define DUMP2(ARG1, ARG2)</span></div>
<div class="line"><a name="l00170"></a><span class="lineno"> 170</span> <span class="comment">#define DUMP3(ARG1, ARG2, ARG3)</span></div>
<div class="line"><a name="l00171"></a><span class="lineno"> 171</span> <span class="comment">*/</span></div>
<div class="line"><a name="l00172"></a><span class="lineno"> 172</span> </div>
<div class="line"><a name="l00173"></a><span class="lineno"> 173</span> <span class="comment">/* release date */</span></div>
<div class="line"><a name="l00174"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aeaf38a8920ce34eb9aa64dead5cf2cd1"> 174</a></span> <span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">char</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aeaf38a8920ce34eb9aa64dead5cf2cd1">tcltklib_release_date</a>[] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1e2eb8512f9421fa7485556a9e3bf439">TCLTKLIB_RELEASE_DATE</a>;</div>
<div class="line"><a name="l00175"></a><span class="lineno"> 175</span> </div>
<div class="line"><a name="l00176"></a><span class="lineno"> 176</span> <span class="comment">/* finalize_proc_name */</span></div>
<div class="line"><a name="l00177"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6a0604a3645e14c4d8c8272cfb51bb05"> 177</a></span> <span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">char</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6a0604a3645e14c4d8c8272cfb51bb05">finalize_hook_name</a>[] = <span class="stringliteral">"INTERP_FINALIZE_HOOK"</span>;</div>
<div class="line"><a name="l00178"></a><span class="lineno"> 178</span> </div>
<div class="line"><a name="l00179"></a><span class="lineno"> 179</span> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7b427778f1e496ccefedf89b5667e319">ip_finalize</a> <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((Tcl_Interp*));</div>
<div class="line"><a name="l00180"></a><span class="lineno"> 180</span> </div>
<div class="line"><a name="l00181"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0964f0f2c4ef2a9554392a5aaf13b032"> 181</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0964f0f2c4ef2a9554392a5aaf13b032">at_exit</a> = 0;</div>
<div class="line"><a name="l00182"></a><span class="lineno"> 182</span> </div>
<div class="line"><a name="l00183"></a><span class="lineno"> 183</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l00184"></a><span class="lineno"> 184</span> <span class="preprocessor"></span><span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> cRubyEncoding;</div>
<div class="line"><a name="l00185"></a><span class="lineno"> 185</span> </div>
<div class="line"><a name="l00186"></a><span class="lineno"> 186</span> <span class="comment">/* encoding */</span></div>
<div class="line"><a name="l00187"></a><span class="lineno"> 187</span> <span class="keyword">static</span> <span class="keywordtype">int</span> ENCODING_INDEX_UTF8;</div>
<div class="line"><a name="l00188"></a><span class="lineno"> 188</span> <span class="keyword">static</span> <span class="keywordtype">int</span> ENCODING_INDEX_BINARY;</div>
<div class="line"><a name="l00189"></a><span class="lineno"> 189</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00190"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8b1d6a68739d2f40636d9a8f3aea4253"> 190</a></span> <span class="preprocessor"></span><span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8b1d6a68739d2f40636d9a8f3aea4253">ENCODING_NAME_UTF8</a>;</div>
<div class="line"><a name="l00191"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a233859a1dce4fae0b33d1ea0243b0d47"> 191</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a233859a1dce4fae0b33d1ea0243b0d47">ENCODING_NAME_BINARY</a>;</div>
<div class="line"><a name="l00192"></a><span class="lineno"> 192</span> </div>
<div class="line"><a name="l00193"></a><span class="lineno"> 193</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> create_dummy_encoding_for_tk_core <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>));</div>
<div class="line"><a name="l00194"></a><span class="lineno"> 194</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> create_dummy_encoding_for_tk <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>));</div>
<div class="line"><a name="l00195"></a><span class="lineno"> 195</span> <span class="keyword">static</span> <span class="keywordtype">int</span> update_encoding_table <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>));</div>
<div class="line"><a name="l00196"></a><span class="lineno"> 196</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> encoding_table_get_name_core <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>));</div>
<div class="line"><a name="l00197"></a><span class="lineno"> 197</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> encoding_table_get_obj_core <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>));</div>
<div class="line"><a name="l00198"></a><span class="lineno"> 198</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> encoding_table_get_name <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>));</div>
<div class="line"><a name="l00199"></a><span class="lineno"> 199</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> encoding_table_get_obj <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>));</div>
<div class="line"><a name="l00200"></a><span class="lineno"> 200</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> create_encoding_table <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>));</div>
<div class="line"><a name="l00201"></a><span class="lineno"> 201</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> ip_get_encoding_table <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>));</div>
<div class="line"><a name="l00202"></a><span class="lineno"> 202</span> </div>
<div class="line"><a name="l00203"></a><span class="lineno"> 203</span> </div>
<div class="line"><a name="l00204"></a><span class="lineno"> 204</span> <span class="comment">/* for callback break & continue */</span></div>
<div class="line"><a name="l00205"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7a2cabfa69c181ac17f416e6c78f4fd9"> 205</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7a2cabfa69c181ac17f416e6c78f4fd9">eTkCallbackReturn</a>;</div>
<div class="line"><a name="l00206"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7fefdc0a0bdb479dcd15d610533497d6"> 206</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7fefdc0a0bdb479dcd15d610533497d6">eTkCallbackBreak</a>;</div>
<div class="line"><a name="l00207"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5ae51f46018b1ae0a423aca2b89bf7ab"> 207</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5ae51f46018b1ae0a423aca2b89bf7ab">eTkCallbackContinue</a>;</div>
<div class="line"><a name="l00208"></a><span class="lineno"> 208</span> </div>
<div class="line"><a name="l00209"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a03b95ffac44da77386f3add147e7958c"> 209</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a03b95ffac44da77386f3add147e7958c">eLocalJumpError</a>;</div>
<div class="line"><a name="l00210"></a><span class="lineno"> 210</span> </div>
<div class="line"><a name="l00211"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a86edc457c880e8c17e678380e174902c"> 211</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a86edc457c880e8c17e678380e174902c">eTkLocalJumpError</a>;</div>
<div class="line"><a name="l00212"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7725cc78dab5aa1a2e8eed31d3ce2f7d"> 212</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7725cc78dab5aa1a2e8eed31d3ce2f7d">eTkCallbackRetry</a>;</div>
<div class="line"><a name="l00213"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae96487c8a7974cdd45d90c8e447ee19d"> 213</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae96487c8a7974cdd45d90c8e447ee19d">eTkCallbackRedo</a>;</div>
<div class="line"><a name="l00214"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a27579641fb4a7546a1d98f37a30fcef6"> 214</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a27579641fb4a7546a1d98f37a30fcef6">eTkCallbackThrow</a>;</div>
<div class="line"><a name="l00215"></a><span class="lineno"> 215</span> </div>
<div class="line"><a name="l00216"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9da382a32faf00a1e9fa10aa11c5fb1b"> 216</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9da382a32faf00a1e9fa10aa11c5fb1b">tcltkip_class</a>;</div>
<div class="line"><a name="l00217"></a><span class="lineno"> 217</span> </div>
<div class="line"><a name="l00218"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408"> 218</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>;</div>
<div class="line"><a name="l00219"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a32f224f962b50f1a6445c52ef1ceeb6a"> 219</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a32f224f962b50f1a6445c52ef1ceeb6a">ID_at_interp</a>;</div>
<div class="line"><a name="l00220"></a><span class="lineno"> 220</span> </div>
<div class="line"><a name="l00221"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9e67df28d1db2fd86f0db8c34dc73275"> 221</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9e67df28d1db2fd86f0db8c34dc73275">ID_encoding_name</a>;</div>
<div class="line"><a name="l00222"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5931ac85aa7a5070c6cf3514b353b989"> 222</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5931ac85aa7a5070c6cf3514b353b989">ID_encoding_table</a>;</div>
<div class="line"><a name="l00223"></a><span class="lineno"> 223</span> </div>
<div class="line"><a name="l00224"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3146c23bbdd4311489cbe8cb76c7aebb"> 224</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3146c23bbdd4311489cbe8cb76c7aebb">ID_stop_p</a>;</div>
<div class="line"><a name="l00225"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aaf12d7f0762fc1a9607b435cabce20b9"> 225</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaf12d7f0762fc1a9607b435cabce20b9">ID_alive_p</a>;</div>
<div class="line"><a name="l00226"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa0338a6024357b513fd58ebd112be7db"> 226</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa0338a6024357b513fd58ebd112be7db">ID_kill</a>;</div>
<div class="line"><a name="l00227"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a4f4b8818725098180b9d71be7c020e6a"> 227</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4f4b8818725098180b9d71be7c020e6a">ID_join</a>;</div>
<div class="line"><a name="l00228"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ab120af30b98a101b13e07722999f6e60"> 228</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab120af30b98a101b13e07722999f6e60">ID_value</a>;</div>
<div class="line"><a name="l00229"></a><span class="lineno"> 229</span> </div>
<div class="line"><a name="l00230"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a31a624c57e908d47f2aeb7209e7db3e7"> 230</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a31a624c57e908d47f2aeb7209e7db3e7">ID_call</a>;</div>
<div class="line"><a name="l00231"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#acd0c08166926d1e4b90b5f6b811733bd"> 231</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd0c08166926d1e4b90b5f6b811733bd">ID_backtrace</a>;</div>
<div class="line"><a name="l00232"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad6092a7044451d4e36f1a65618c9b4fc"> 232</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad6092a7044451d4e36f1a65618c9b4fc">ID_message</a>;</div>
<div class="line"><a name="l00233"></a><span class="lineno"> 233</span> </div>
<div class="line"><a name="l00234"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a189bd2ac1c121d796cb2d123c7adc599"> 234</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a189bd2ac1c121d796cb2d123c7adc599">ID_at_reason</a>;</div>
<div class="line"><a name="l00235"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9361a0096f960a099dac9a504d008765"> 235</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9361a0096f960a099dac9a504d008765">ID_return</a>;</div>
<div class="line"><a name="l00236"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a14e7d89ffd600ee06f033277ba33a51f"> 236</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a14e7d89ffd600ee06f033277ba33a51f">ID_break</a>;</div>
<div class="line"><a name="l00237"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a265eab0dd3b7a7e51f7872c3c6d820c6"> 237</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a265eab0dd3b7a7e51f7872c3c6d820c6">ID_next</a>;</div>
<div class="line"><a name="l00238"></a><span class="lineno"> 238</span> </div>
<div class="line"><a name="l00239"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a2876182790d4d4deb29d00b4048d7565"> 239</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2876182790d4d4deb29d00b4048d7565">ID_to_s</a>;</div>
<div class="line"><a name="l00240"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a1e8954156fff89f02ed89339cb91d368"> 240</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1e8954156fff89f02ed89339cb91d368">ID_inspect</a>;</div>
<div class="line"><a name="l00241"></a><span class="lineno"> 241</span> </div>
<div class="line"><a name="l00242"></a><span class="lineno"> 242</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> ip_invoke_real <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<span class="keywordtype">int</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>*, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>));</div>
<div class="line"><a name="l00243"></a><span class="lineno"> 243</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> ip_invoke <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<span class="keywordtype">int</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>*, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>));</div>
<div class="line"><a name="l00244"></a><span class="lineno"> 244</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4e91b9e886dae0d01fd4bafde08e24fd">ip_invoke_with_position</a> <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<span class="keywordtype">int</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>*, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>, Tcl_QueuePosition));</div>
<div class="line"><a name="l00245"></a><span class="lineno"> 245</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a46bfb9a7c64428cdf208d45e06352fce">tk_funcall</a> <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>(), <span class="keywordtype">int</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>*, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>));</div>
<div class="line"><a name="l00246"></a><span class="lineno"> 246</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> callq_safelevel_handler <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>));</div>
<div class="line"><a name="l00247"></a><span class="lineno"> 247</span> </div>
<div class="line"><a name="l00248"></a><span class="lineno"> 248</span> <span class="comment">/* Tcl's object type */</span></div>
<div class="line"><a name="l00249"></a><span class="lineno"> 249</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l00250"></a><span class="lineno"> 250</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">char</span> Tcl_ObjTypeName_ByteArray[] = <span class="stringliteral">"bytearray"</span>;</div>
<div class="line"><a name="l00251"></a><span class="lineno"> 251</span> <span class="keyword">static</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a69c3c43ade69fe8618464f74667319fa">CONST86</a> Tcl_ObjType *Tcl_ObjType_ByteArray;</div>
<div class="line"><a name="l00252"></a><span class="lineno"> 252</span> </div>
<div class="line"><a name="l00253"></a><span class="lineno"> 253</span> <span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">char</span> Tcl_ObjTypeName_String[] = <span class="stringliteral">"string"</span>;</div>
<div class="line"><a name="l00254"></a><span class="lineno"> 254</span> <span class="keyword">static</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a69c3c43ade69fe8618464f74667319fa">CONST86</a> Tcl_ObjType *Tcl_ObjType_String;</div>
<div class="line"><a name="l00255"></a><span class="lineno"> 255</span> </div>
<div class="line"><a name="l00256"></a><span class="lineno"> 256</span> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION >= 1)</span></div>
<div class="line"><a name="l00257"></a><span class="lineno"> 257</span> <span class="preprocessor"></span><span class="preprocessor">#define IS_TCL_BYTEARRAY(obj) ((obj)->typePtr == Tcl_ObjType_ByteArray)</span></div>
<div class="line"><a name="l00258"></a><span class="lineno"> 258</span> <span class="preprocessor"></span><span class="preprocessor">#define IS_TCL_STRING(obj) ((obj)->typePtr == Tcl_ObjType_String)</span></div>
<div class="line"><a name="l00259"></a><span class="lineno"> 259</span> <span class="preprocessor"></span><span class="preprocessor">#define IS_TCL_VALID_STRING(obj) ((obj)->bytes != (char*)NULL)</span></div>
<div class="line"><a name="l00260"></a><span class="lineno"> 260</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00261"></a><span class="lineno"> 261</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00262"></a><span class="lineno"> 262</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00263"></a><span class="lineno"> 263</span> <span class="preprocessor">#ifndef HAVE_RB_HASH_LOOKUP</span></div>
<div class="line"><a name="l00264"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b"> 264</a></span> <span class="preprocessor"></span><span class="preprocessor">#define rb_hash_lookup rb_hash_aref</span></div>
<div class="line"><a name="l00265"></a><span class="lineno"> 265</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00266"></a><span class="lineno"> 266</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00267"></a><span class="lineno"> 267</span> <span class="comment">/* safe Tcl_Eval and Tcl_GlobalEval */</span></div>
<div class="line"><a name="l00268"></a><span class="lineno"> 268</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l00269"></a><span class="lineno"> 269</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div>
<div class="line"><a name="l00270"></a><span class="lineno"> 270</span> <span class="preprocessor"></span>tcl_eval(Tcl_Interp *<a class="code" href="../../d5/d9d/tcltklib_8c.html#abb159f1f4254ecf6df54f13d2b3468c6">interp</a>, <span class="keyword">const</span> <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac016cf800c945b35b6ed7d8d9c9b153c">cmd</a>)</div>
<div class="line"><a name="l00271"></a><span class="lineno"> 271</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l00272"></a><span class="lineno"> 272</span> <span class="preprocessor"></span>tcl_eval(interp, cmd)</div>
<div class="line"><a name="l00273"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abb159f1f4254ecf6df54f13d2b3468c6"> 273</a></span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l00274"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac016cf800c945b35b6ed7d8d9c9b153c"> 274</a></span>  <a class="code" href="../../d8/d4e/strftime_8c.html#a2c212835823e3c54a8ab6d95c652660e">const</a> <span class="keywordtype">char</span> *cmd; <span class="comment">/* don't have to be writable */</span></div>
<div class="line"><a name="l00275"></a><span class="lineno"> 275</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00276"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7"> 276</a></span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l00277"></a><span class="lineno"> 277</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a0192e7721a534129dd2389299c50d5ef">buf</a> = <a class="code" href="../../d8/d3c/util_8h.html#ad832104a69551cf1e4e347fffa9dc77c">strdup</a>(cmd);</div>
<div class="line"><a name="l00278"></a><span class="lineno"> 278</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l00279"></a><span class="lineno"> 279</span> </div>
<div class="line"><a name="l00280"></a><span class="lineno"> 280</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa9e75e5d92a11cbe675fcfc57446969c">Tcl_AllowExceptions</a>(interp);</div>
<div class="line"><a name="l00281"></a><span class="lineno"> 281</span>  ret = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7e05442307639ca746f2560593ca9ca9">Tcl_Eval</a>(interp, buf);</div>
<div class="line"><a name="l00282"></a><span class="lineno"> 282</span>  <a class="code" href="../../d1/ddc/dln_8c.html#affb9fc32698fab7f7b36e0cf8e64c83e">free</a>(buf);</div>
<div class="line"><a name="l00283"></a><span class="lineno"> 283</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l00284"></a><span class="lineno"> 284</span> }</div>
<div class="line"><a name="l00285"></a><span class="lineno"> 285</span> </div>
<div class="line"><a name="l00286"></a><span class="lineno"> 286</span> <span class="preprocessor">#undef Tcl_Eval</span></div>
<div class="line"><a name="l00287"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7e05442307639ca746f2560593ca9ca9"> 287</a></span> <span class="preprocessor"></span><span class="preprocessor">#define Tcl_Eval tcl_eval</span></div>
<div class="line"><a name="l00288"></a><span class="lineno"> 288</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00289"></a><span class="lineno"> 289</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l00290"></a><span class="lineno"> 290</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div>
<div class="line"><a name="l00291"></a><span class="lineno"> 291</span> <span class="preprocessor"></span>tcl_global_eval(Tcl_Interp *interp, <span class="keyword">const</span> <span class="keywordtype">char</span> *cmd)</div>
<div class="line"><a name="l00292"></a><span class="lineno"> 292</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l00293"></a><span class="lineno"> 293</span> <span class="preprocessor"></span>tcl_global_eval(interp, cmd)</div>
<div class="line"><a name="l00294"></a><span class="lineno"> 294</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l00295"></a><span class="lineno"> 295</span>  <a class="code" href="../../d8/d4e/strftime_8c.html#a2c212835823e3c54a8ab6d95c652660e">const</a> <span class="keywordtype">char</span> *cmd; <span class="comment">/* don't have to be writable */</span></div>
<div class="line"><a name="l00296"></a><span class="lineno"> 296</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00297"></a><span class="lineno"> 297</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l00298"></a><span class="lineno"> 298</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a0192e7721a534129dd2389299c50d5ef">buf</a> = <a class="code" href="../../d8/d3c/util_8h.html#ad832104a69551cf1e4e347fffa9dc77c">strdup</a>(cmd);</div>
<div class="line"><a name="l00299"></a><span class="lineno"> 299</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l00300"></a><span class="lineno"> 300</span> </div>
<div class="line"><a name="l00301"></a><span class="lineno"> 301</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa9e75e5d92a11cbe675fcfc57446969c">Tcl_AllowExceptions</a>(interp);</div>
<div class="line"><a name="l00302"></a><span class="lineno"> 302</span>  ret = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1011eb5bef1d3b60fdf51e46ce243153">Tcl_GlobalEval</a>(interp, buf);</div>
<div class="line"><a name="l00303"></a><span class="lineno"> 303</span>  <a class="code" href="../../d1/ddc/dln_8c.html#affb9fc32698fab7f7b36e0cf8e64c83e">free</a>(buf);</div>
<div class="line"><a name="l00304"></a><span class="lineno"> 304</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l00305"></a><span class="lineno"> 305</span> }</div>
<div class="line"><a name="l00306"></a><span class="lineno"> 306</span> </div>
<div class="line"><a name="l00307"></a><span class="lineno"> 307</span> <span class="preprocessor">#undef Tcl_GlobalEval</span></div>
<div class="line"><a name="l00308"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a1011eb5bef1d3b60fdf51e46ce243153"> 308</a></span> <span class="preprocessor"></span><span class="preprocessor">#define Tcl_GlobalEval tcl_global_eval</span></div>
<div class="line"><a name="l00309"></a><span class="lineno"> 309</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00310"></a><span class="lineno"> 310</span> <span class="comment">/* Tcl_{Incr|Decr}RefCount for tcl7.x or earlier */</span></div>
<div class="line"><a name="l00311"></a><span class="lineno"> 311</span> <span class="preprocessor">#if TCL_MAJOR_VERSION < 8</span></div>
<div class="line"><a name="l00312"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b"> 312</a></span> <span class="preprocessor"></span><span class="preprocessor">#define Tcl_IncrRefCount(obj) (1)</span></div>
<div class="line"><a name="l00313"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480"> 313</a></span> <span class="preprocessor"></span><span class="preprocessor">#define Tcl_DecrRefCount(obj) (1)</span></div>
<div class="line"><a name="l00314"></a><span class="lineno"> 314</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00315"></a><span class="lineno"> 315</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00316"></a><span class="lineno"> 316</span> <span class="comment">/* Tcl_GetStringResult for tcl7.x or earlier */</span></div>
<div class="line"><a name="l00317"></a><span class="lineno"> 317</span> <span class="preprocessor">#if TCL_MAJOR_VERSION < 8</span></div>
<div class="line"><a name="l00318"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1"> 318</a></span> <span class="preprocessor"></span><span class="preprocessor">#define Tcl_GetStringResult(interp) ((interp)->result)</span></div>
<div class="line"><a name="l00319"></a><span class="lineno"> 319</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00320"></a><span class="lineno"> 320</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00321"></a><span class="lineno"> 321</span> <span class="comment">/* Tcl_[GS]etVar2Ex for tcl8.0 */</span></div>
<div class="line"><a name="l00322"></a><span class="lineno"> 322</span> <span class="preprocessor">#if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION == 0</span></div>
<div class="line"><a name="l00323"></a><span class="lineno"> 323</span> <span class="preprocessor"></span><span class="keyword">static</span> Tcl_Obj *</div>
<div class="line"><a name="l00324"></a><span class="lineno"> 324</span> Tcl_GetVar2Ex(interp, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02378923e45b1c06a28391c078ad49d9">name1</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a21afee436033f916c31b4e302b9d221e">name2</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac8bf36fe0577cba66bccda3a6f7e80a4">flags</a>)</div>
<div class="line"><a name="l00325"></a><span class="lineno"> 325</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l00326"></a><span class="lineno"> 326</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a02378923e45b1c06a28391c078ad49d9">name1</a>;</div>
<div class="line"><a name="l00327"></a><span class="lineno"> 327</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a21afee436033f916c31b4e302b9d221e">name2</a>;</div>
<div class="line"><a name="l00328"></a><span class="lineno"> 328</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac8bf36fe0577cba66bccda3a6f7e80a4">flags</a>;</div>
<div class="line"><a name="l00329"></a><span class="lineno"> 329</span> {</div>
<div class="line"><a name="l00330"></a><span class="lineno"> 330</span>  Tcl_Obj *nameObj1, *nameObj2 = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>, *retObj;</div>
<div class="line"><a name="l00331"></a><span class="lineno"> 331</span> </div>
<div class="line"><a name="l00332"></a><span class="lineno"> 332</span>  nameObj1 = Tcl_NewStringObj((<span class="keywordtype">char</span>*)name1, -1);</div>
<div class="line"><a name="l00333"></a><span class="lineno"> 333</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(nameObj1);</div>
<div class="line"><a name="l00334"></a><span class="lineno"> 334</span> </div>
<div class="line"><a name="l00335"></a><span class="lineno"> 335</span>  <span class="keywordflow">if</span> (name2) {</div>
<div class="line"><a name="l00336"></a><span class="lineno"> 336</span>  nameObj2 = Tcl_NewStringObj((<span class="keywordtype">char</span>*)name2, -1);</div>
<div class="line"><a name="l00337"></a><span class="lineno"> 337</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(nameObj2);</div>
<div class="line"><a name="l00338"></a><span class="lineno"> 338</span>  }</div>
<div class="line"><a name="l00339"></a><span class="lineno"> 339</span> </div>
<div class="line"><a name="l00340"></a><span class="lineno"> 340</span>  retObj = Tcl_ObjGetVar2(interp, nameObj1, nameObj2, flags);</div>
<div class="line"><a name="l00341"></a><span class="lineno"> 341</span> </div>
<div class="line"><a name="l00342"></a><span class="lineno"> 342</span>  <span class="keywordflow">if</span> (name2) {</div>
<div class="line"><a name="l00343"></a><span class="lineno"> 343</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(nameObj2);</div>
<div class="line"><a name="l00344"></a><span class="lineno"> 344</span>  }</div>
<div class="line"><a name="l00345"></a><span class="lineno"> 345</span> </div>
<div class="line"><a name="l00346"></a><span class="lineno"> 346</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(nameObj1);</div>
<div class="line"><a name="l00347"></a><span class="lineno"> 347</span> </div>
<div class="line"><a name="l00348"></a><span class="lineno"> 348</span>  <span class="keywordflow">return</span> retObj;</div>
<div class="line"><a name="l00349"></a><span class="lineno"> 349</span> }</div>
<div class="line"><a name="l00350"></a><span class="lineno"> 350</span> </div>
<div class="line"><a name="l00351"></a><span class="lineno"> 351</span> <span class="keyword">static</span> Tcl_Obj *</div>
<div class="line"><a name="l00352"></a><span class="lineno"> 352</span> Tcl_SetVar2Ex(interp, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02378923e45b1c06a28391c078ad49d9">name1</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a21afee436033f916c31b4e302b9d221e">name2</a>, newValObj, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac8bf36fe0577cba66bccda3a6f7e80a4">flags</a>)</div>
<div class="line"><a name="l00353"></a><span class="lineno"> 353</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l00354"></a><span class="lineno"> 354</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a02378923e45b1c06a28391c078ad49d9">name1</a>;</div>
<div class="line"><a name="l00355"></a><span class="lineno"> 355</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a21afee436033f916c31b4e302b9d221e">name2</a>;</div>
<div class="line"><a name="l00356"></a><span class="lineno"> 356</span>  Tcl_Obj *newValObj;</div>
<div class="line"><a name="l00357"></a><span class="lineno"> 357</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac8bf36fe0577cba66bccda3a6f7e80a4">flags</a>;</div>
<div class="line"><a name="l00358"></a><span class="lineno"> 358</span> {</div>
<div class="line"><a name="l00359"></a><span class="lineno"> 359</span>  Tcl_Obj *nameObj1, *nameObj2 = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>, *retObj;</div>
<div class="line"><a name="l00360"></a><span class="lineno"> 360</span> </div>
<div class="line"><a name="l00361"></a><span class="lineno"> 361</span>  nameObj1 = Tcl_NewStringObj((<span class="keywordtype">char</span>*)name1, -1);</div>
<div class="line"><a name="l00362"></a><span class="lineno"> 362</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(nameObj1);</div>
<div class="line"><a name="l00363"></a><span class="lineno"> 363</span> </div>
<div class="line"><a name="l00364"></a><span class="lineno"> 364</span>  <span class="keywordflow">if</span> (name2) {</div>
<div class="line"><a name="l00365"></a><span class="lineno"> 365</span>  nameObj2 = Tcl_NewStringObj((<span class="keywordtype">char</span>*)name2, -1);</div>
<div class="line"><a name="l00366"></a><span class="lineno"> 366</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(nameObj2);</div>
<div class="line"><a name="l00367"></a><span class="lineno"> 367</span>  }</div>
<div class="line"><a name="l00368"></a><span class="lineno"> 368</span> </div>
<div class="line"><a name="l00369"></a><span class="lineno"> 369</span>  retObj = Tcl_ObjSetVar2(interp, nameObj1, nameObj2, newValObj, flags);</div>
<div class="line"><a name="l00370"></a><span class="lineno"> 370</span> </div>
<div class="line"><a name="l00371"></a><span class="lineno"> 371</span>  <span class="keywordflow">if</span> (name2) {</div>
<div class="line"><a name="l00372"></a><span class="lineno"> 372</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(nameObj2);</div>
<div class="line"><a name="l00373"></a><span class="lineno"> 373</span>  }</div>
<div class="line"><a name="l00374"></a><span class="lineno"> 374</span> </div>
<div class="line"><a name="l00375"></a><span class="lineno"> 375</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(nameObj1);</div>
<div class="line"><a name="l00376"></a><span class="lineno"> 376</span> </div>
<div class="line"><a name="l00377"></a><span class="lineno"> 377</span>  <span class="keywordflow">return</span> retObj;</div>
<div class="line"><a name="l00378"></a><span class="lineno"> 378</span> }</div>
<div class="line"><a name="l00379"></a><span class="lineno"> 379</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00380"></a><span class="lineno"> 380</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00381"></a><span class="lineno"> 381</span> <span class="comment">/* from tkAppInit.c */</span></div>
<div class="line"><a name="l00382"></a><span class="lineno"> 382</span> </div>
<div class="line"><a name="l00383"></a><span class="lineno"> 383</span> <span class="preprocessor">#if TCL_MAJOR_VERSION < 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION < 4)</span></div>
<div class="line"><a name="l00384"></a><span class="lineno"> 384</span> <span class="preprocessor"></span><span class="preprocessor"># if !defined __MINGW32__ && !defined __BORLANDC__</span></div>
<div class="line"><a name="l00385"></a><span class="lineno"> 385</span> <span class="preprocessor"></span><span class="comment">/*</span></div>
<div class="line"><a name="l00386"></a><span class="lineno"> 386</span> <span class="comment"> * The following variable is a special hack that is needed in order for</span></div>
<div class="line"><a name="l00387"></a><span class="lineno"> 387</span> <span class="comment"> * Sun shared libraries to be used for Tcl.</span></div>
<div class="line"><a name="l00388"></a><span class="lineno"> 388</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00389"></a><span class="lineno"> 389</span> </div>
<div class="line"><a name="l00390"></a><span class="lineno"> 390</span> <span class="keyword">extern</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac6e8b5d1db801956f70eed66d0b4bf76">matherr</a>();</div>
<div class="line"><a name="l00391"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3b7081ae18bb9d9cff64fd6421a1dcdb"> 391</a></span> <span class="keywordtype">int</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a3b7081ae18bb9d9cff64fd6421a1dcdb">tclDummyMathPtr</a> = (<span class="keywordtype">int</span> *) <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac6e8b5d1db801956f70eed66d0b4bf76">matherr</a>;</div>
<div class="line"><a name="l00392"></a><span class="lineno"> 392</span> <span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00393"></a><span class="lineno"> 393</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00394"></a><span class="lineno"> 394</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00395"></a><span class="lineno"> 395</span> <span class="comment">/*---- module TclTkLib ----*/</span></div>
<div class="line"><a name="l00396"></a><span class="lineno"> 396</span> </div>
<div class="line"><a name="l00397"></a><span class="lineno"><a class="line" href="../../df/d4d/structinvoke__queue.html"> 397</a></span> <span class="keyword">struct </span><a class="code" href="../../df/d4d/structinvoke__queue.html">invoke_queue</a> {</div>
<div class="line"><a name="l00398"></a><span class="lineno"><a class="line" href="../../df/d4d/structinvoke__queue.html#a2edeceb4f3e91cbae69b763b99c2c225"> 398</a></span>  Tcl_Event <a class="code" href="../../df/d4d/structinvoke__queue.html#a2edeceb4f3e91cbae69b763b99c2c225">ev</a>;</div>
<div class="line"><a name="l00399"></a><span class="lineno"><a class="line" href="../../df/d4d/structinvoke__queue.html#ae4660ad198c2f6d21644bb0b4a7748e5"> 399</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d4d/structinvoke__queue.html#ae4660ad198c2f6d21644bb0b4a7748e5">argc</a>;</div>
<div class="line"><a name="l00400"></a><span class="lineno"> 400</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l00401"></a><span class="lineno"> 401</span> <span class="preprocessor"></span> Tcl_Obj **<a class="code" href="../../df/d4d/structinvoke__queue.html#ac0582b14336179bccf0217d3d7200063">argv</a>;</div>
<div class="line"><a name="l00402"></a><span class="lineno"> 402</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00403"></a><span class="lineno"><a class="line" href="../../df/d4d/structinvoke__queue.html#ac0582b14336179bccf0217d3d7200063"> 403</a></span> <span class="preprocessor"></span> <span class="keywordtype">char</span> **<a class="code" href="../../df/d4d/structinvoke__queue.html#ac0582b14336179bccf0217d3d7200063">argv</a>;</div>
<div class="line"><a name="l00404"></a><span class="lineno"> 404</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00405"></a><span class="lineno"><a class="line" href="../../df/d4d/structinvoke__queue.html#acf486aed957a1768a4a80a7a057912df"> 405</a></span> <span class="preprocessor"></span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../df/d4d/structinvoke__queue.html#acf486aed957a1768a4a80a7a057912df">interp</a>;</div>
<div class="line"><a name="l00406"></a><span class="lineno"><a class="line" href="../../df/d4d/structinvoke__queue.html#a7e8a38587f5a0a3177d86c3d0abba76f"> 406</a></span>  <span class="keywordtype">int</span> *<a class="code" href="../../df/d4d/structinvoke__queue.html#a7e8a38587f5a0a3177d86c3d0abba76f">done</a>;</div>
<div class="line"><a name="l00407"></a><span class="lineno"><a class="line" href="../../df/d4d/structinvoke__queue.html#a1e0eb15cc652633f1883bf1328502f59"> 407</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d4d/structinvoke__queue.html#a1e0eb15cc652633f1883bf1328502f59">safe_level</a>;</div>
<div class="line"><a name="l00408"></a><span class="lineno"><a class="line" href="../../df/d4d/structinvoke__queue.html#a3ee770c57941395252ce8a0673d40914"> 408</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../df/d4d/structinvoke__queue.html#a3ee770c57941395252ce8a0673d40914">result</a>;</div>
<div class="line"><a name="l00409"></a><span class="lineno"><a class="line" href="../../df/d4d/structinvoke__queue.html#adb618602021c5bdf5f6d973eefc7b983"> 409</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../df/d4d/structinvoke__queue.html#adb618602021c5bdf5f6d973eefc7b983">thread</a>;</div>
<div class="line"><a name="l00410"></a><span class="lineno"> 410</span> };</div>
<div class="line"><a name="l00411"></a><span class="lineno"> 411</span> </div>
<div class="line"><a name="l00412"></a><span class="lineno"><a class="line" href="../../de/d17/structeval__queue.html"> 412</a></span> <span class="keyword">struct </span><a class="code" href="../../de/d17/structeval__queue.html">eval_queue</a> {</div>
<div class="line"><a name="l00413"></a><span class="lineno"><a class="line" href="../../de/d17/structeval__queue.html#a059ee495f45f2904277a72b0fff6a322"> 413</a></span>  Tcl_Event <a class="code" href="../../de/d17/structeval__queue.html#a059ee495f45f2904277a72b0fff6a322">ev</a>;</div>
<div class="line"><a name="l00414"></a><span class="lineno"><a class="line" href="../../de/d17/structeval__queue.html#aa4e9dc85f66fdcb7c3723741fed73a3b"> 414</a></span>  <span class="keywordtype">char</span> *<a class="code" href="../../de/d17/structeval__queue.html#aa4e9dc85f66fdcb7c3723741fed73a3b">str</a>;</div>
<div class="line"><a name="l00415"></a><span class="lineno"><a class="line" href="../../de/d17/structeval__queue.html#a4d3b821dfc369ee9d6ffcc250feda3c1"> 415</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../de/d17/structeval__queue.html#a4d3b821dfc369ee9d6ffcc250feda3c1">len</a>;</div>
<div class="line"><a name="l00416"></a><span class="lineno"><a class="line" href="../../de/d17/structeval__queue.html#a597f4df83c9d25f275e0e83fda96b47a"> 416</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../de/d17/structeval__queue.html#a597f4df83c9d25f275e0e83fda96b47a">interp</a>;</div>
<div class="line"><a name="l00417"></a><span class="lineno"><a class="line" href="../../de/d17/structeval__queue.html#adc749ca5e6e0e9bdd5e2c787ed3f4b32"> 417</a></span>  <span class="keywordtype">int</span> *<a class="code" href="../../de/d17/structeval__queue.html#adc749ca5e6e0e9bdd5e2c787ed3f4b32">done</a>;</div>
<div class="line"><a name="l00418"></a><span class="lineno"><a class="line" href="../../de/d17/structeval__queue.html#a625a114231e88948a1556425c213d259"> 418</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../de/d17/structeval__queue.html#a625a114231e88948a1556425c213d259">safe_level</a>;</div>
<div class="line"><a name="l00419"></a><span class="lineno"><a class="line" href="../../de/d17/structeval__queue.html#a41aad58e8a23dcf0370b40b9afebef6f"> 419</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../de/d17/structeval__queue.html#a41aad58e8a23dcf0370b40b9afebef6f">result</a>;</div>
<div class="line"><a name="l00420"></a><span class="lineno"><a class="line" href="../../de/d17/structeval__queue.html#ada0646ae22281aa3c00d86f8bebd6c9d"> 420</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../de/d17/structeval__queue.html#ada0646ae22281aa3c00d86f8bebd6c9d">thread</a>;</div>
<div class="line"><a name="l00421"></a><span class="lineno"> 421</span> };</div>
<div class="line"><a name="l00422"></a><span class="lineno"> 422</span> </div>
<div class="line"><a name="l00423"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html"> 423</a></span> <span class="keyword">struct </span><a class="code" href="../../df/db5/structcall__queue.html">call_queue</a> {</div>
<div class="line"><a name="l00424"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html#a45df10c3b9ffd2cf0572157be3bcbec4"> 424</a></span>  Tcl_Event <a class="code" href="../../df/db5/structcall__queue.html#a45df10c3b9ffd2cf0572157be3bcbec4">ev</a>;</div>
<div class="line"><a name="l00425"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html#a0ff11e2b5523e140c538dbb945bce6db"> 425</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> (*<a class="code" href="../../df/db5/structcall__queue.html#a0ff11e2b5523e140c538dbb945bce6db">func</a>)();</div>
<div class="line"><a name="l00426"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html#a91fe68bac1f77162fbe356d3b7812b9a"> 426</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../df/db5/structcall__queue.html#a91fe68bac1f77162fbe356d3b7812b9a">argc</a>;</div>
<div class="line"><a name="l00427"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html#a097b73e5bc4374d83e3103bb3fb4b40d"> 427</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *<a class="code" href="../../df/db5/structcall__queue.html#a097b73e5bc4374d83e3103bb3fb4b40d">argv</a>;</div>
<div class="line"><a name="l00428"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html#a3972740fcad6029560d33a85baf220a3"> 428</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../df/db5/structcall__queue.html#a3972740fcad6029560d33a85baf220a3">interp</a>;</div>
<div class="line"><a name="l00429"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html#a8a92b3683558cebdb46d573532c05132"> 429</a></span>  <span class="keywordtype">int</span> *<a class="code" href="../../df/db5/structcall__queue.html#a8a92b3683558cebdb46d573532c05132">done</a>;</div>
<div class="line"><a name="l00430"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html#a2fd2c2694948a684ceafa73fe38fa3b6"> 430</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../df/db5/structcall__queue.html#a2fd2c2694948a684ceafa73fe38fa3b6">safe_level</a>;</div>
<div class="line"><a name="l00431"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html#a5c7e8c167c5d49678aa368f966191b2e"> 431</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../df/db5/structcall__queue.html#a5c7e8c167c5d49678aa368f966191b2e">result</a>;</div>
<div class="line"><a name="l00432"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html#af9fb1a0fdd886cd9585db5f86c4de119"> 432</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../df/db5/structcall__queue.html#af9fb1a0fdd886cd9585db5f86c4de119">thread</a>;</div>
<div class="line"><a name="l00433"></a><span class="lineno"> 433</span> };</div>
<div class="line"><a name="l00434"></a><span class="lineno"> 434</span> </div>
<div class="line"><a name="l00435"></a><span class="lineno"> 435</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l00436"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a86e277d5b14e9afcd73cb7cfd3d9a53b"> 436</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a86e277d5b14e9afcd73cb7cfd3d9a53b">invoke_queue_mark</a>(<span class="keyword">struct</span> <a class="code" href="../../df/d4d/structinvoke__queue.html">invoke_queue</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#af30877db2cb29106639acfca6366c3d0">q</a>)</div>
<div class="line"><a name="l00437"></a><span class="lineno"> 437</span> {</div>
<div class="line"><a name="l00438"></a><span class="lineno"> 438</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a7e8f61118ed74b3749f201dc8f26a46a">rb_gc_mark</a>(q-><a class="code" href="../../df/d4d/structinvoke__queue.html#acf486aed957a1768a4a80a7a057912df">interp</a>);</div>
<div class="line"><a name="l00439"></a><span class="lineno"> 439</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a7e8f61118ed74b3749f201dc8f26a46a">rb_gc_mark</a>(q-><a class="code" href="../../df/d4d/structinvoke__queue.html#a3ee770c57941395252ce8a0673d40914">result</a>);</div>
<div class="line"><a name="l00440"></a><span class="lineno"> 440</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a7e8f61118ed74b3749f201dc8f26a46a">rb_gc_mark</a>(q-><a class="code" href="../../df/d4d/structinvoke__queue.html#adb618602021c5bdf5f6d973eefc7b983">thread</a>);</div>
<div class="line"><a name="l00441"></a><span class="lineno"> 441</span> }</div>
<div class="line"><a name="l00442"></a><span class="lineno"> 442</span> </div>
<div class="line"><a name="l00443"></a><span class="lineno"> 443</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l00444"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a11013c53b64754fe062f319736a45012"> 444</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a11013c53b64754fe062f319736a45012">eval_queue_mark</a>(<span class="keyword">struct</span> <a class="code" href="../../de/d17/structeval__queue.html">eval_queue</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#af30877db2cb29106639acfca6366c3d0">q</a>)</div>
<div class="line"><a name="l00445"></a><span class="lineno"> 445</span> {</div>
<div class="line"><a name="l00446"></a><span class="lineno"> 446</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a7e8f61118ed74b3749f201dc8f26a46a">rb_gc_mark</a>(q-><a class="code" href="../../de/d17/structeval__queue.html#a597f4df83c9d25f275e0e83fda96b47a">interp</a>);</div>
<div class="line"><a name="l00447"></a><span class="lineno"> 447</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a7e8f61118ed74b3749f201dc8f26a46a">rb_gc_mark</a>(q-><a class="code" href="../../de/d17/structeval__queue.html#a41aad58e8a23dcf0370b40b9afebef6f">result</a>);</div>
<div class="line"><a name="l00448"></a><span class="lineno"> 448</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a7e8f61118ed74b3749f201dc8f26a46a">rb_gc_mark</a>(q-><a class="code" href="../../de/d17/structeval__queue.html#ada0646ae22281aa3c00d86f8bebd6c9d">thread</a>);</div>
<div class="line"><a name="l00449"></a><span class="lineno"> 449</span> }</div>
<div class="line"><a name="l00450"></a><span class="lineno"> 450</span> </div>
<div class="line"><a name="l00451"></a><span class="lineno"> 451</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l00452"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad4a7966ca861420d8f4e415f75b14329"> 452</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad4a7966ca861420d8f4e415f75b14329">call_queue_mark</a>(<span class="keyword">struct</span> <a class="code" href="../../df/db5/structcall__queue.html">call_queue</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#af30877db2cb29106639acfca6366c3d0">q</a>)</div>
<div class="line"><a name="l00453"></a><span class="lineno"> 453</span> {</div>
<div class="line"><a name="l00454"></a><span class="lineno"> 454</span>  <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div>
<div class="line"><a name="l00455"></a><span class="lineno"> 455</span> </div>
<div class="line"><a name="l00456"></a><span class="lineno"> 456</span>  <span class="keywordflow">for</span>(i = 0; i < q-><a class="code" href="../../df/db5/structcall__queue.html#a91fe68bac1f77162fbe356d3b7812b9a">argc</a>; i++) {</div>
<div class="line"><a name="l00457"></a><span class="lineno"> 457</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a7e8f61118ed74b3749f201dc8f26a46a">rb_gc_mark</a>(q-><a class="code" href="../../df/db5/structcall__queue.html#a097b73e5bc4374d83e3103bb3fb4b40d">argv</a>[i]);</div>
<div class="line"><a name="l00458"></a><span class="lineno"> 458</span>  }</div>
<div class="line"><a name="l00459"></a><span class="lineno"> 459</span> </div>
<div class="line"><a name="l00460"></a><span class="lineno"> 460</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a7e8f61118ed74b3749f201dc8f26a46a">rb_gc_mark</a>(q-><a class="code" href="../../df/db5/structcall__queue.html#a3972740fcad6029560d33a85baf220a3">interp</a>);</div>
<div class="line"><a name="l00461"></a><span class="lineno"> 461</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a7e8f61118ed74b3749f201dc8f26a46a">rb_gc_mark</a>(q-><a class="code" href="../../df/db5/structcall__queue.html#a5c7e8c167c5d49678aa368f966191b2e">result</a>);</div>
<div class="line"><a name="l00462"></a><span class="lineno"> 462</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a7e8f61118ed74b3749f201dc8f26a46a">rb_gc_mark</a>(q-><a class="code" href="../../df/db5/structcall__queue.html#af9fb1a0fdd886cd9585db5f86c4de119">thread</a>);</div>
<div class="line"><a name="l00463"></a><span class="lineno"> 463</span> }</div>
<div class="line"><a name="l00464"></a><span class="lineno"> 464</span> </div>
<div class="line"><a name="l00465"></a><span class="lineno"> 465</span> </div>
<div class="line"><a name="l00466"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ab288f7df2583d5f1d31391ed9cc9ea5d"> 466</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab288f7df2583d5f1d31391ed9cc9ea5d">eventloop_thread</a>;</div>
<div class="line"><a name="l00467"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3cd3b08dbcd340f49d3f79538ed90dd0"> 467</a></span> <span class="keyword">static</span> Tcl_Interp *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a3cd3b08dbcd340f49d3f79538ed90dd0">eventloop_interp</a>;</div>
<div class="line"><a name="l00468"></a><span class="lineno"> 468</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l00469"></a><span class="lineno"> 469</span> <span class="preprocessor"></span>Tcl_ThreadId tk_eventloop_thread_id; <span class="comment">/* native thread ID of Tcl interpreter */</span></div>
<div class="line"><a name="l00470"></a><span class="lineno"> 470</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00471"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a606d7647537ea0c5a15818642b884f6b"> 471</a></span> <span class="preprocessor"></span><span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a606d7647537ea0c5a15818642b884f6b">eventloop_stack</a>;</div>
<div class="line"><a name="l00472"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a1874132e952c92de8ac49397d4a67742"> 472</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1874132e952c92de8ac49397d4a67742">window_event_mode</a> = ~0;</div>
<div class="line"><a name="l00473"></a><span class="lineno"> 473</span> </div>
<div class="line"><a name="l00474"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae16d76ee41d8482709d3c4ec33b12651"> 474</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae16d76ee41d8482709d3c4ec33b12651">watchdog_thread</a>;</div>
<div class="line"><a name="l00475"></a><span class="lineno"> 475</span> </div>
<div class="line"><a name="l00476"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a29d67c30b06d8ce1e9a94c53d243184f"> 476</a></span> Tcl_Interp *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a29d67c30b06d8ce1e9a94c53d243184f">current_interp</a>;</div>
<div class="line"><a name="l00477"></a><span class="lineno"> 477</span> </div>
<div class="line"><a name="l00478"></a><span class="lineno"> 478</span> <span class="comment">/* thread control strategy */</span></div>
<div class="line"><a name="l00479"></a><span class="lineno"> 479</span> <span class="comment">/* multi-tk works with the following settings only ???</span></div>
<div class="line"><a name="l00480"></a><span class="lineno"> 480</span> <span class="comment"> : CONTROL_BY_STATUS_OF_RB_THREAD_WAITING_FOR_VALUE 1</span></div>
<div class="line"><a name="l00481"></a><span class="lineno"> 481</span> <span class="comment"> : USE_TOGGLE_WINDOW_MODE_FOR_IDLE 0</span></div>
<div class="line"><a name="l00482"></a><span class="lineno"> 482</span> <span class="comment"> : DO_THREAD_SCHEDULE_AT_CALLBACK_DONE 0</span></div>
<div class="line"><a name="l00483"></a><span class="lineno"> 483</span> <span class="comment">*/</span></div>
<div class="line"><a name="l00484"></a><span class="lineno"> 484</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l00485"></a><span class="lineno"> 485</span> <span class="preprocessor"></span><span class="preprocessor">#define CONTROL_BY_STATUS_OF_RB_THREAD_WAITING_FOR_VALUE 1</span></div>
<div class="line"><a name="l00486"></a><span class="lineno"> 486</span> <span class="preprocessor"></span><span class="preprocessor">#define USE_TOGGLE_WINDOW_MODE_FOR_IDLE 0</span></div>
<div class="line"><a name="l00487"></a><span class="lineno"> 487</span> <span class="preprocessor"></span><span class="preprocessor">#define DO_THREAD_SCHEDULE_AT_CALLBACK_DONE 1</span></div>
<div class="line"><a name="l00488"></a><span class="lineno"> 488</span> <span class="preprocessor"></span><span class="preprocessor">#else </span><span class="comment">/* ! RUBY_USE_NATIVE_THREAD */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00489"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a045e06e49b9726365609f762a260b685"> 489</a></span> <span class="preprocessor"></span><span class="preprocessor">#define CONTROL_BY_STATUS_OF_RB_THREAD_WAITING_FOR_VALUE 1</span></div>
<div class="line"><a name="l00490"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a28cc721dbd1c0e4bd31abc41e8882103"> 490</a></span> <span class="preprocessor"></span><span class="preprocessor">#define USE_TOGGLE_WINDOW_MODE_FOR_IDLE 0</span></div>
<div class="line"><a name="l00491"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac5b9c9dc69591a6f0adeb8b72b071664"> 491</a></span> <span class="preprocessor"></span><span class="preprocessor">#define DO_THREAD_SCHEDULE_AT_CALLBACK_DONE 0</span></div>
<div class="line"><a name="l00492"></a><span class="lineno"> 492</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00493"></a><span class="lineno"> 493</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00494"></a><span class="lineno"> 494</span> <span class="preprocessor">#if CONTROL_BY_STATUS_OF_RB_THREAD_WAITING_FOR_VALUE</span></div>
<div class="line"><a name="l00495"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a36aff997f6e550b516224b18bfe5bd25"> 495</a></span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a36aff997f6e550b516224b18bfe5bd25">have_rb_thread_waiting_for_value</a> = 0;</div>
<div class="line"><a name="l00496"></a><span class="lineno"> 496</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00497"></a><span class="lineno"> 497</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00498"></a><span class="lineno"> 498</span> <span class="comment">/*</span></div>
<div class="line"><a name="l00499"></a><span class="lineno"> 499</span> <span class="comment"> * 'event_loop_max' is a maximum events which the eventloop processes in one</span></div>
<div class="line"><a name="l00500"></a><span class="lineno"> 500</span> <span class="comment"> * term of thread scheduling. 'no_event_tick' is the count-up value when</span></div>
<div class="line"><a name="l00501"></a><span class="lineno"> 501</span> <span class="comment"> * there are no event for processing.</span></div>
<div class="line"><a name="l00502"></a><span class="lineno"> 502</span> <span class="comment"> * 'timer_tick' is a limit of one term of thread scheduling.</span></div>
<div class="line"><a name="l00503"></a><span class="lineno"> 503</span> <span class="comment"> * If 'timer_tick' == 0, then not use the timer for thread scheduling.</span></div>
<div class="line"><a name="l00504"></a><span class="lineno"> 504</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00505"></a><span class="lineno"> 505</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l00506"></a><span class="lineno"> 506</span> <span class="preprocessor"></span><span class="preprocessor">#define DEFAULT_EVENT_LOOP_MAX 800</span><span class="comment">/*counts*/</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00507"></a><span class="lineno"> 507</span> <span class="preprocessor"></span><span class="preprocessor">#define DEFAULT_NO_EVENT_TICK 10</span><span class="comment">/*counts*/</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00508"></a><span class="lineno"> 508</span> <span class="preprocessor"></span><span class="preprocessor">#define DEFAULT_NO_EVENT_WAIT 5</span><span class="comment">/*milliseconds ( 1 -- 999 ) */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00509"></a><span class="lineno"> 509</span> <span class="preprocessor"></span><span class="preprocessor">#define WATCHDOG_INTERVAL 10</span><span class="comment">/*milliseconds ( 1 -- 999 ) */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00510"></a><span class="lineno"> 510</span> <span class="preprocessor"></span><span class="preprocessor">#define DEFAULT_TIMER_TICK 0</span><span class="comment">/*milliseconds ( 0 -- 999 ) */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00511"></a><span class="lineno"> 511</span> <span class="preprocessor"></span><span class="preprocessor">#define NO_THREAD_INTERRUPT_TIME 100</span><span class="comment">/*milliseconds ( 1 -- 999 ) */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00512"></a><span class="lineno"> 512</span> <span class="preprocessor"></span><span class="preprocessor">#else </span><span class="comment">/* ! RUBY_USE_NATIVE_THREAD */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00513"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5ce127b34dfbccc8bdf11cf2dc8d6a98"> 513</a></span> <span class="preprocessor"></span><span class="preprocessor">#define DEFAULT_EVENT_LOOP_MAX 800</span><span class="comment">/*counts*/</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00514"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a594d7e3a170e739fd5318c39a4382cd2"> 514</a></span> <span class="preprocessor"></span><span class="preprocessor">#define DEFAULT_NO_EVENT_TICK 10</span><span class="comment">/*counts*/</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00515"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ab5316b816b8a91e4a8c23563c0a6d19d"> 515</a></span> <span class="preprocessor"></span><span class="preprocessor">#define DEFAULT_NO_EVENT_WAIT 20</span><span class="comment">/*milliseconds ( 1 -- 999 ) */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00516"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a92353a0b223e78081b022d5a33870967"> 516</a></span> <span class="preprocessor"></span><span class="preprocessor">#define WATCHDOG_INTERVAL 10</span><span class="comment">/*milliseconds ( 1 -- 999 ) */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00517"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#acb65bdbeee9f9d3a838ad16bcb957e04"> 517</a></span> <span class="preprocessor"></span><span class="preprocessor">#define DEFAULT_TIMER_TICK 0</span><span class="comment">/*milliseconds ( 0 -- 999 ) */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00518"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a18f3feef1d89c72c2ea59a0ce2dd8366"> 518</a></span> <span class="preprocessor"></span><span class="preprocessor">#define NO_THREAD_INTERRUPT_TIME 100</span><span class="comment">/*milliseconds ( 1 -- 999 ) */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00519"></a><span class="lineno"> 519</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00520"></a><span class="lineno"> 520</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00521"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#afbd2530678e6262a587dd99dedeb053b"> 521</a></span> <span class="preprocessor">#define EVENT_HANDLER_TIMEOUT 100</span><span class="comment">/*milliseconds*/</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00522"></a><span class="lineno"> 522</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00523"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a96f86937ba3da5ecca00e04a2933451c"> 523</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a96f86937ba3da5ecca00e04a2933451c">event_loop_max</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5ce127b34dfbccc8bdf11cf2dc8d6a98">DEFAULT_EVENT_LOOP_MAX</a>;</div>
<div class="line"><a name="l00524"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a2aedc29d81cdc1fbb8212eac69c9e19d"> 524</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2aedc29d81cdc1fbb8212eac69c9e19d">no_event_tick</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a594d7e3a170e739fd5318c39a4382cd2">DEFAULT_NO_EVENT_TICK</a>;</div>
<div class="line"><a name="l00525"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3f75bde77a92ac3c6c63263b6b4cf69e"> 525</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3f75bde77a92ac3c6c63263b6b4cf69e">no_event_wait</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab5316b816b8a91e4a8c23563c0a6d19d">DEFAULT_NO_EVENT_WAIT</a>;</div>
<div class="line"><a name="l00526"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a69f035845dd291fdc92e7d70abdcb42b"> 526</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a69f035845dd291fdc92e7d70abdcb42b">timer_tick</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#acb65bdbeee9f9d3a838ad16bcb957e04">DEFAULT_TIMER_TICK</a>;</div>
<div class="line"><a name="l00527"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aee699b1c46e61042b7675d02247208fb"> 527</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aee699b1c46e61042b7675d02247208fb">req_timer_tick</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#acb65bdbeee9f9d3a838ad16bcb957e04">DEFAULT_TIMER_TICK</a>;</div>
<div class="line"><a name="l00528"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae8b231022fbcf079038c6b72a46bf300"> 528</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8b231022fbcf079038c6b72a46bf300">run_timer_flag</a> = 0;</div>
<div class="line"><a name="l00529"></a><span class="lineno"> 529</span> </div>
<div class="line"><a name="l00530"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af2723ded53fcb84d63096a8272b5b3f6"> 530</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af2723ded53fcb84d63096a8272b5b3f6">event_loop_wait_event</a> = 0;</div>
<div class="line"><a name="l00531"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae8b4f77514e0422a4f7597d3ba5728ea"> 531</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8b4f77514e0422a4f7597d3ba5728ea">event_loop_abort_on_exc</a> = 1;</div>
<div class="line"><a name="l00532"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae4eb912710ffa8fbc4ce6275ea1f23af"> 532</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae4eb912710ffa8fbc4ce6275ea1f23af">loop_counter</a> = 0;</div>
<div class="line"><a name="l00533"></a><span class="lineno"> 533</span> </div>
<div class="line"><a name="l00534"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a1edc4416b7c1b0335d740b266ac0ed6a"> 534</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1edc4416b7c1b0335d740b266ac0ed6a">check_rootwidget_flag</a> = 0;</div>
<div class="line"><a name="l00535"></a><span class="lineno"> 535</span> </div>
<div class="line"><a name="l00536"></a><span class="lineno"> 536</span> </div>
<div class="line"><a name="l00537"></a><span class="lineno"> 537</span> <span class="comment">/* call ruby interpreter */</span></div>
<div class="line"><a name="l00538"></a><span class="lineno"> 538</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l00539"></a><span class="lineno"> 539</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> ip_ruby_eval <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>, Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a>*));</div>
<div class="line"><a name="l00540"></a><span class="lineno"> 540</span> <span class="keyword">static</span> <span class="keywordtype">int</span> ip_ruby_cmd <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>, Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a>*));</div>
<div class="line"><a name="l00541"></a><span class="lineno"> 541</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00542"></a><span class="lineno"> 542</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> ip_ruby_eval <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>, <span class="keywordtype">char</span> **));</div>
<div class="line"><a name="l00543"></a><span class="lineno"> 543</span> <span class="keyword">static</span> <span class="keywordtype">int</span> ip_ruby_cmd <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>, <span class="keywordtype">char</span> **));</div>
<div class="line"><a name="l00544"></a><span class="lineno"> 544</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00545"></a><span class="lineno"> 545</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00546"></a><span class="lineno"><a class="line" href="../../d6/d58/structcmd__body__arg.html"> 546</a></span> <span class="keyword">struct </span><a class="code" href="../../d6/d58/structcmd__body__arg.html">cmd_body_arg</a> {</div>
<div class="line"><a name="l00547"></a><span class="lineno"><a class="line" href="../../d6/d58/structcmd__body__arg.html#a6cc0250b850b77f58f01f05913e3ddab"> 547</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d6/d58/structcmd__body__arg.html#a6cc0250b850b77f58f01f05913e3ddab">receiver</a>;</div>
<div class="line"><a name="l00548"></a><span class="lineno"><a class="line" href="../../d6/d58/structcmd__body__arg.html#ac9ac9c13c40fba180d11b3cad2303b6f"> 548</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d6/d58/structcmd__body__arg.html#ac9ac9c13c40fba180d11b3cad2303b6f">method</a>;</div>
<div class="line"><a name="l00549"></a><span class="lineno"><a class="line" href="../../d6/d58/structcmd__body__arg.html#a69cc5f5a65054e5b276eeb78716cbeb9"> 549</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d6/d58/structcmd__body__arg.html#a69cc5f5a65054e5b276eeb78716cbeb9">args</a>;</div>
<div class="line"><a name="l00550"></a><span class="lineno"> 550</span> };</div>
<div class="line"><a name="l00551"></a><span class="lineno"> 551</span> </div>
<div class="line"><a name="l00552"></a><span class="lineno"> 552</span> <span class="comment">/*----------------------------*/</span></div>
<div class="line"><a name="l00553"></a><span class="lineno"> 553</span> <span class="comment">/* use Tcl internal functions */</span></div>
<div class="line"><a name="l00554"></a><span class="lineno"> 554</span> <span class="comment">/*----------------------------*/</span></div>
<div class="line"><a name="l00555"></a><span class="lineno"> 555</span> <span class="preprocessor">#ifndef TCL_NAMESPACE_DEBUG</span></div>
<div class="line"><a name="l00556"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a780b4b4af2feb2b9f44efd3f97b46f27"> 556</a></span> <span class="preprocessor"></span><span class="preprocessor">#define TCL_NAMESPACE_DEBUG 0</span></div>
<div class="line"><a name="l00557"></a><span class="lineno"> 557</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00558"></a><span class="lineno"> 558</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00559"></a><span class="lineno"> 559</span> <span class="preprocessor">#if TCL_NAMESPACE_DEBUG</span></div>
<div class="line"><a name="l00560"></a><span class="lineno"> 560</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00561"></a><span class="lineno"> 561</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l00562"></a><span class="lineno"> 562</span> <span class="preprocessor"></span><a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keyword">struct </span>TclIntStubs *tclIntStubsPtr;</div>
<div class="line"><a name="l00563"></a><span class="lineno"> 563</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00564"></a><span class="lineno"> 564</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00565"></a><span class="lineno"> 565</span> <span class="comment">/*-- Tcl_GetCurrentNamespace --*/</span></div>
<div class="line"><a name="l00566"></a><span class="lineno"> 566</span> <span class="preprocessor">#if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION < 5</span></div>
<div class="line"><a name="l00567"></a><span class="lineno"> 567</span> <span class="preprocessor"></span><span class="comment">/* Tcl7.x doesn't have namespace support. */</span></div>
<div class="line"><a name="l00568"></a><span class="lineno"> 568</span> <span class="comment">/* Tcl8.5+ has definition of Tcl_GetCurrentNamespace() in tclDecls.h */</span></div>
<div class="line"><a name="l00569"></a><span class="lineno"> 569</span> <span class="preprocessor"># ifndef Tcl_GetCurrentNamespace</span></div>
<div class="line"><a name="l00570"></a><span class="lineno"> 570</span> <span class="preprocessor"></span><a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> Tcl_Namespace * Tcl_GetCurrentNamespace <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((Tcl_Interp *));</div>
<div class="line"><a name="l00571"></a><span class="lineno"> 571</span> <span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00572"></a><span class="lineno"> 572</span> <span class="preprocessor"></span><span class="preprocessor"># if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)</span></div>
<div class="line"><a name="l00573"></a><span class="lineno"> 573</span> <span class="preprocessor"></span><span class="preprocessor"># ifndef Tcl_GetCurrentNamespace</span></div>
<div class="line"><a name="l00574"></a><span class="lineno"> 574</span> <span class="preprocessor"></span><span class="preprocessor"># ifndef FunctionNum_of_GetCurrentNamespace</span></div>
<div class="line"><a name="l00575"></a><span class="lineno"> 575</span> <span class="preprocessor"></span><span class="preprocessor">#define FunctionNum_of_GetCurrentNamespace 124</span></div>
<div class="line"><a name="l00576"></a><span class="lineno"> 576</span> <span class="preprocessor"></span><span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00577"></a><span class="lineno"> 577</span> <span class="preprocessor"></span><span class="keyword">struct </span>DummyTclIntStubs_for_GetCurrentNamespace {</div>
<div class="line"><a name="l00578"></a><span class="lineno"> 578</span>  <span class="keywordtype">int</span> magic;</div>
<div class="line"><a name="l00579"></a><span class="lineno"> 579</span>  <span class="keyword">struct </span>TclIntStubHooks *hooks;</div>
<div class="line"><a name="l00580"></a><span class="lineno"> 580</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#ac537498b5ed6e25bced70b90e5949201">void</a> (*<a class="code" href="../../dc/dd1/ossl__ssl_8c.html#a33775ffa49b921f1647bfac2850c6298">func</a>[FunctionNum_of_GetCurrentNamespace])();</div>
<div class="line"><a name="l00581"></a><span class="lineno"> 581</span>  Tcl_Namespace * (*tcl_GetCurrentNamespace) <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((Tcl_Interp *));</div>
<div class="line"><a name="l00582"></a><span class="lineno"> 582</span> };</div>
<div class="line"><a name="l00583"></a><span class="lineno"> 583</span> </div>
<div class="line"><a name="l00584"></a><span class="lineno"> 584</span> <span class="preprocessor">#define Tcl_GetCurrentNamespace \</span></div>
<div class="line"><a name="l00585"></a><span class="lineno"> 585</span> <span class="preprocessor"> (((struct DummyTclIntStubs_for_GetCurrentNamespace *)tclIntStubsPtr)->tcl_GetCurrentNamespace)</span></div>
<div class="line"><a name="l00586"></a><span class="lineno"> 586</span> <span class="preprocessor"></span><span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00587"></a><span class="lineno"> 587</span> <span class="preprocessor"></span><span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00588"></a><span class="lineno"> 588</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00589"></a><span class="lineno"> 589</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00590"></a><span class="lineno"> 590</span> <span class="comment">/* namespace check */</span></div>
<div class="line"><a name="l00591"></a><span class="lineno"> 591</span> <span class="comment">/* ip_null_namespace(Tcl_Interp *interp) */</span></div>
<div class="line"><a name="l00592"></a><span class="lineno"> 592</span> <span class="preprocessor">#if TCL_MAJOR_VERSION < 8</span></div>
<div class="line"><a name="l00593"></a><span class="lineno"> 593</span> <span class="preprocessor"></span><span class="preprocessor">#define ip_null_namespace(interp) (0)</span></div>
<div class="line"><a name="l00594"></a><span class="lineno"> 594</span> <span class="preprocessor"></span><span class="preprocessor">#else </span><span class="comment">/* support namespace */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00595"></a><span class="lineno"> 595</span> <span class="preprocessor"></span><span class="preprocessor">#define ip_null_namespace(interp) \</span></div>
<div class="line"><a name="l00596"></a><span class="lineno"> 596</span> <span class="preprocessor"> (Tcl_GetCurrentNamespace(interp) == (Tcl_Namespace *)NULL)</span></div>
<div class="line"><a name="l00597"></a><span class="lineno"> 597</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00598"></a><span class="lineno"> 598</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00599"></a><span class="lineno"> 599</span> <span class="comment">/* rbtk_invalid_namespace(tcltkip *ptr) */</span></div>
<div class="line"><a name="l00600"></a><span class="lineno"> 600</span> <span class="preprocessor">#if TCL_MAJOR_VERSION < 8</span></div>
<div class="line"><a name="l00601"></a><span class="lineno"> 601</span> <span class="preprocessor"></span><span class="preprocessor">#define rbtk_invalid_namespace(ptr) (0)</span></div>
<div class="line"><a name="l00602"></a><span class="lineno"> 602</span> <span class="preprocessor"></span><span class="preprocessor">#else </span><span class="comment">/* support namespace */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00603"></a><span class="lineno"> 603</span> <span class="preprocessor"></span><span class="preprocessor">#define rbtk_invalid_namespace(ptr) \</span></div>
<div class="line"><a name="l00604"></a><span class="lineno"> 604</span> <span class="preprocessor"> ((ptr)->default_ns == (Tcl_Namespace*)NULL || Tcl_GetCurrentNamespace((ptr)->ip) != (ptr)->default_ns)</span></div>
<div class="line"><a name="l00605"></a><span class="lineno"> 605</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00606"></a><span class="lineno"> 606</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00607"></a><span class="lineno"> 607</span> <span class="comment">/*-- Tcl_PopCallFrame & Tcl_PushCallFrame --*/</span></div>
<div class="line"><a name="l00608"></a><span class="lineno"> 608</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l00609"></a><span class="lineno"> 609</span> <span class="preprocessor"></span><span class="preprocessor"># ifndef CallFrame</span></div>
<div class="line"><a name="l00610"></a><span class="lineno"> 610</span> <span class="preprocessor"></span><span class="keyword">typedef</span> <span class="keyword">struct </span>CallFrame {</div>
<div class="line"><a name="l00611"></a><span class="lineno"> 611</span>  Tcl_Namespace *nsPtr;</div>
<div class="line"><a name="l00612"></a><span class="lineno"> 612</span>  <span class="keywordtype">int</span> dummy1;</div>
<div class="line"><a name="l00613"></a><span class="lineno"> 613</span>  <span class="keywordtype">int</span> dummy2;</div>
<div class="line"><a name="l00614"></a><span class="lineno"> 614</span>  <span class="keywordtype">char</span> *dummy3;</div>
<div class="line"><a name="l00615"></a><span class="lineno"> 615</span>  <span class="keyword">struct </span>CallFrame *callerPtr;</div>
<div class="line"><a name="l00616"></a><span class="lineno"> 616</span>  <span class="keyword">struct </span>CallFrame *callerVarPtr;</div>
<div class="line"><a name="l00617"></a><span class="lineno"> 617</span>  <span class="keywordtype">int</span> <a class="code" href="../../db/d74/zlib_8c.html#a96fb68396dd219a7b489e051d4c8dfa5">level</a>;</div>
<div class="line"><a name="l00618"></a><span class="lineno"> 618</span>  <span class="keywordtype">char</span> *dummy7;</div>
<div class="line"><a name="l00619"></a><span class="lineno"> 619</span>  <span class="keywordtype">char</span> *dummy8;</div>
<div class="line"><a name="l00620"></a><span class="lineno"> 620</span>  <span class="keywordtype">int</span> dummy9;</div>
<div class="line"><a name="l00621"></a><span class="lineno"> 621</span>  <span class="keywordtype">char</span>* dummy10;</div>
<div class="line"><a name="l00622"></a><span class="lineno"> 622</span> } CallFrame;</div>
<div class="line"><a name="l00623"></a><span class="lineno"> 623</span> <span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00624"></a><span class="lineno"> 624</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00625"></a><span class="lineno"> 625</span> <span class="preprocessor"># if !defined(TclGetFrame) && !defined(TclGetFrame_TCL_DECLARED)</span></div>
<div class="line"><a name="l00626"></a><span class="lineno"> 626</span> <span class="preprocessor"></span><a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keywordtype">int</span> TclGetFrame <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((Tcl_Interp *, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *, CallFrame **));</div>
<div class="line"><a name="l00627"></a><span class="lineno"> 627</span> <span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00628"></a><span class="lineno"> 628</span> <span class="preprocessor"></span><span class="preprocessor"># if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)</span></div>
<div class="line"><a name="l00629"></a><span class="lineno"> 629</span> <span class="preprocessor"></span><span class="preprocessor"># ifndef TclGetFrame</span></div>
<div class="line"><a name="l00630"></a><span class="lineno"> 630</span> <span class="preprocessor"></span><span class="preprocessor"># ifndef FunctionNum_of_GetFrame</span></div>
<div class="line"><a name="l00631"></a><span class="lineno"> 631</span> <span class="preprocessor"></span><span class="preprocessor">#define FunctionNum_of_GetFrame 32</span></div>
<div class="line"><a name="l00632"></a><span class="lineno"> 632</span> <span class="preprocessor"></span><span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00633"></a><span class="lineno"> 633</span> <span class="preprocessor"></span><span class="keyword">struct </span>DummyTclIntStubs_for_GetFrame {</div>
<div class="line"><a name="l00634"></a><span class="lineno"> 634</span>  <span class="keywordtype">int</span> magic;</div>
<div class="line"><a name="l00635"></a><span class="lineno"> 635</span>  <span class="keyword">struct </span>TclIntStubHooks *hooks;</div>
<div class="line"><a name="l00636"></a><span class="lineno"> 636</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#ac537498b5ed6e25bced70b90e5949201">void</a> (*<a class="code" href="../../dc/dd1/ossl__ssl_8c.html#a33775ffa49b921f1647bfac2850c6298">func</a>[FunctionNum_of_GetFrame])();</div>
<div class="line"><a name="l00637"></a><span class="lineno"> 637</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#accd5e629f58868c52137db996aaf8b83">int</a> (*tclGetFrame) <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((Tcl_Interp *, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *, CallFrame **));</div>
<div class="line"><a name="l00638"></a><span class="lineno"> 638</span> };</div>
<div class="line"><a name="l00639"></a><span class="lineno"> 639</span> <span class="preprocessor">#define TclGetFrame \</span></div>
<div class="line"><a name="l00640"></a><span class="lineno"> 640</span> <span class="preprocessor"> (((struct DummyTclIntStubs_for_GetFrame *)tclIntStubsPtr)->tclGetFrame)</span></div>
<div class="line"><a name="l00641"></a><span class="lineno"> 641</span> <span class="preprocessor"></span><span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00642"></a><span class="lineno"> 642</span> <span class="preprocessor"></span><span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00643"></a><span class="lineno"> 643</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00644"></a><span class="lineno"> 644</span> <span class="preprocessor"># if !defined(Tcl_PopCallFrame) && !defined(Tcl_PopCallFrame_TCL_DECLARED)</span></div>
<div class="line"><a name="l00645"></a><span class="lineno"> 645</span> <span class="preprocessor"></span><a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keywordtype">void</span> Tcl_PopCallFrame <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((Tcl_Interp *));</div>
<div class="line"><a name="l00646"></a><span class="lineno"> 646</span> <a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keywordtype">int</span> Tcl_PushCallFrame <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((Tcl_Interp *, Tcl_CallFrame *, Tcl_Namespace *, <span class="keywordtype">int</span>));</div>
<div class="line"><a name="l00647"></a><span class="lineno"> 647</span> <span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00648"></a><span class="lineno"> 648</span> <span class="preprocessor"></span><span class="preprocessor"># if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)</span></div>
<div class="line"><a name="l00649"></a><span class="lineno"> 649</span> <span class="preprocessor"></span><span class="preprocessor"># ifndef Tcl_PopCallFrame</span></div>
<div class="line"><a name="l00650"></a><span class="lineno"> 650</span> <span class="preprocessor"></span><span class="preprocessor"># ifndef FunctionNum_of_PopCallFrame</span></div>
<div class="line"><a name="l00651"></a><span class="lineno"> 651</span> <span class="preprocessor"></span><span class="preprocessor">#define FunctionNum_of_PopCallFrame 128</span></div>
<div class="line"><a name="l00652"></a><span class="lineno"> 652</span> <span class="preprocessor"></span><span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00653"></a><span class="lineno"> 653</span> <span class="preprocessor"></span><span class="keyword">struct </span>DummyTclIntStubs_for_PopCallFrame {</div>
<div class="line"><a name="l00654"></a><span class="lineno"> 654</span>  <span class="keywordtype">int</span> magic;</div>
<div class="line"><a name="l00655"></a><span class="lineno"> 655</span>  <span class="keyword">struct </span>TclIntStubHooks *hooks;</div>
<div class="line"><a name="l00656"></a><span class="lineno"> 656</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#ac537498b5ed6e25bced70b90e5949201">void</a> (*<a class="code" href="../../dc/dd1/ossl__ssl_8c.html#a33775ffa49b921f1647bfac2850c6298">func</a>[FunctionNum_of_PopCallFrame])();</div>
<div class="line"><a name="l00657"></a><span class="lineno"> 657</span>  <a class="code" href="../../de/d07/bigdecimal_8c.html#ac537498b5ed6e25bced70b90e5949201">void</a> (*tcl_PopCallFrame) <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((Tcl_Interp *));</div>
<div class="line"><a name="l00658"></a><span class="lineno"> 658</span>  <span class="keywordtype">int</span> (*tcl_PushCallFrame) <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((Tcl_Interp *, Tcl_CallFrame *, Tcl_Namespace *, <span class="keywordtype">int</span>));</div>
<div class="line"><a name="l00659"></a><span class="lineno"> 659</span> };</div>
<div class="line"><a name="l00660"></a><span class="lineno"> 660</span> </div>
<div class="line"><a name="l00661"></a><span class="lineno"> 661</span> <span class="preprocessor">#define Tcl_PopCallFrame \</span></div>
<div class="line"><a name="l00662"></a><span class="lineno"> 662</span> <span class="preprocessor"> (((struct DummyTclIntStubs_for_PopCallFrame *)tclIntStubsPtr)->tcl_PopCallFrame)</span></div>
<div class="line"><a name="l00663"></a><span class="lineno"> 663</span> <span class="preprocessor"></span><span class="preprocessor">#define Tcl_PushCallFrame \</span></div>
<div class="line"><a name="l00664"></a><span class="lineno"> 664</span> <span class="preprocessor"> (((struct DummyTclIntStubs_for_PopCallFrame *)tclIntStubsPtr)->tcl_PushCallFrame)</span></div>
<div class="line"><a name="l00665"></a><span class="lineno"> 665</span> <span class="preprocessor"></span><span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00666"></a><span class="lineno"> 666</span> <span class="preprocessor"></span><span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00667"></a><span class="lineno"> 667</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00668"></a><span class="lineno"> 668</span> <span class="preprocessor">#else </span><span class="comment">/* Tcl7.x */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00669"></a><span class="lineno"> 669</span> <span class="preprocessor"></span><span class="preprocessor"># ifndef CallFrame</span></div>
<div class="line"><a name="l00670"></a><span class="lineno"> 670</span> <span class="preprocessor"></span><span class="keyword">typedef</span> <span class="keyword">struct </span>CallFrame {</div>
<div class="line"><a name="l00671"></a><span class="lineno"> 671</span>  Tcl_HashTable varTable;</div>
<div class="line"><a name="l00672"></a><span class="lineno"> 672</span>  <span class="keywordtype">int</span> <a class="code" href="../../db/d74/zlib_8c.html#a96fb68396dd219a7b489e051d4c8dfa5">level</a>;</div>
<div class="line"><a name="l00673"></a><span class="lineno"> 673</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>;</div>
<div class="line"><a name="l00674"></a><span class="lineno"> 674</span>  <span class="keywordtype">char</span> **<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab9ebbdd4596789afb752d19fca153ee5">argv</a>;</div>
<div class="line"><a name="l00675"></a><span class="lineno"> 675</span>  <span class="keyword">struct </span>CallFrame *callerPtr;</div>
<div class="line"><a name="l00676"></a><span class="lineno"> 676</span>  <span class="keyword">struct </span>CallFrame *callerVarPtr;</div>
<div class="line"><a name="l00677"></a><span class="lineno"> 677</span> } CallFrame;</div>
<div class="line"><a name="l00678"></a><span class="lineno"> 678</span> <span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00679"></a><span class="lineno"> 679</span> <span class="preprocessor"></span><span class="preprocessor"># ifndef Tcl_CallFrame</span></div>
<div class="line"><a name="l00680"></a><span class="lineno"> 680</span> <span class="preprocessor"></span><span class="preprocessor">#define Tcl_CallFrame CallFrame</span></div>
<div class="line"><a name="l00681"></a><span class="lineno"> 681</span> <span class="preprocessor"></span><span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00682"></a><span class="lineno"> 682</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00683"></a><span class="lineno"> 683</span> <span class="preprocessor"># if !defined(TclGetFrame) && !defined(TclGetFrame_TCL_DECLARED)</span></div>
<div class="line"><a name="l00684"></a><span class="lineno"> 684</span> <span class="preprocessor"></span><a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keywordtype">int</span> TclGetFrame <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((Tcl_Interp *, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *, CallFrame **));</div>
<div class="line"><a name="l00685"></a><span class="lineno"> 685</span> <span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00686"></a><span class="lineno"> 686</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00687"></a><span class="lineno"> 687</span> <span class="preprocessor"># if !defined(Tcl_PopCallFrame) && !defined(Tcl_PopCallFrame_TCL_DECLARED)</span></div>
<div class="line"><a name="l00688"></a><span class="lineno"> 688</span> <span class="preprocessor"></span><span class="keyword">typedef</span> <span class="keyword">struct </span>DummyInterp {</div>
<div class="line"><a name="l00689"></a><span class="lineno"> 689</span>  <span class="keywordtype">char</span> *dummy1;</div>
<div class="line"><a name="l00690"></a><span class="lineno"> 690</span>  <span class="keywordtype">char</span> *dummy2;</div>
<div class="line"><a name="l00691"></a><span class="lineno"> 691</span>  <span class="keywordtype">int</span> dummy3;</div>
<div class="line"><a name="l00692"></a><span class="lineno"> 692</span>  Tcl_HashTable dummy4;</div>
<div class="line"><a name="l00693"></a><span class="lineno"> 693</span>  Tcl_HashTable dummy5;</div>
<div class="line"><a name="l00694"></a><span class="lineno"> 694</span>  Tcl_HashTable dummy6;</div>
<div class="line"><a name="l00695"></a><span class="lineno"> 695</span>  <span class="keywordtype">int</span> numLevels;</div>
<div class="line"><a name="l00696"></a><span class="lineno"> 696</span>  <span class="keywordtype">int</span> maxNestingDepth;</div>
<div class="line"><a name="l00697"></a><span class="lineno"> 697</span>  CallFrame *framePtr;</div>
<div class="line"><a name="l00698"></a><span class="lineno"> 698</span>  CallFrame *varFramePtr;</div>
<div class="line"><a name="l00699"></a><span class="lineno"> 699</span> } DummyInterp;</div>
<div class="line"><a name="l00700"></a><span class="lineno"> 700</span> </div>
<div class="line"><a name="l00701"></a><span class="lineno"> 701</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l00702"></a><span class="lineno"> 702</span> Tcl_PopCallFrame(interp)</div>
<div class="line"><a name="l00703"></a><span class="lineno"> 703</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l00704"></a><span class="lineno"> 704</span> {</div>
<div class="line"><a name="l00705"></a><span class="lineno"> 705</span>  DummyInterp *iPtr = (DummyInterp*)interp;</div>
<div class="line"><a name="l00706"></a><span class="lineno"> 706</span>  CallFrame *frame = iPtr->varFramePtr;</div>
<div class="line"><a name="l00707"></a><span class="lineno"> 707</span> </div>
<div class="line"><a name="l00708"></a><span class="lineno"> 708</span>  <span class="comment">/* **** DUMMY **** */</span></div>
<div class="line"><a name="l00709"></a><span class="lineno"> 709</span>  iPtr->framePtr = frame.callerPtr;</div>
<div class="line"><a name="l00710"></a><span class="lineno"> 710</span>  iPtr->varFramePtr = frame.callerVarPtr;</div>
<div class="line"><a name="l00711"></a><span class="lineno"> 711</span> </div>
<div class="line"><a name="l00712"></a><span class="lineno"> 712</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>;</div>
<div class="line"><a name="l00713"></a><span class="lineno"> 713</span> }</div>
<div class="line"><a name="l00714"></a><span class="lineno"> 714</span> </div>
<div class="line"><a name="l00715"></a><span class="lineno"> 715</span> <span class="comment">/* dummy */</span></div>
<div class="line"><a name="l00716"></a><span class="lineno"> 716</span> <span class="preprocessor">#define Tcl_Namespace char</span></div>
<div class="line"><a name="l00717"></a><span class="lineno"> 717</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00718"></a><span class="lineno"> 718</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l00719"></a><span class="lineno"> 719</span> Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame)</div>
<div class="line"><a name="l00720"></a><span class="lineno"> 720</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l00721"></a><span class="lineno"> 721</span>  Tcl_CallFrame *framePtr;</div>
<div class="line"><a name="l00722"></a><span class="lineno"> 722</span>  Tcl_Namespace *nsPtr;</div>
<div class="line"><a name="l00723"></a><span class="lineno"> 723</span>  <span class="keywordtype">int</span> isProcCallFrame;</div>
<div class="line"><a name="l00724"></a><span class="lineno"> 724</span> {</div>
<div class="line"><a name="l00725"></a><span class="lineno"> 725</span>  DummyInterp *iPtr = (DummyInterp*)interp;</div>
<div class="line"><a name="l00726"></a><span class="lineno"> 726</span>  CallFrame *frame = (CallFrame *)framePtr;</div>
<div class="line"><a name="l00727"></a><span class="lineno"> 727</span> </div>
<div class="line"><a name="l00728"></a><span class="lineno"> 728</span>  <span class="comment">/* **** DUMMY **** */</span></div>
<div class="line"><a name="l00729"></a><span class="lineno"> 729</span>  Tcl_InitHashTable(&frame.varTable, TCL_STRING_KEYS);</div>
<div class="line"><a name="l00730"></a><span class="lineno"> 730</span>  <span class="keywordflow">if</span> (iPtr->varFramePtr != <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l00731"></a><span class="lineno"> 731</span>  frame.level = iPtr->varFramePtr->level + 1;</div>
<div class="line"><a name="l00732"></a><span class="lineno"> 732</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00733"></a><span class="lineno"> 733</span>  frame.level = 1;</div>
<div class="line"><a name="l00734"></a><span class="lineno"> 734</span>  }</div>
<div class="line"><a name="l00735"></a><span class="lineno"> 735</span>  frame.callerPtr = iPtr->framePtr;</div>
<div class="line"><a name="l00736"></a><span class="lineno"> 736</span>  frame.callerVarPtr = iPtr->varFramePtr;</div>
<div class="line"><a name="l00737"></a><span class="lineno"> 737</span>  iPtr->framePtr = &frame;</div>
<div class="line"><a name="l00738"></a><span class="lineno"> 738</span>  iPtr->varFramePtr = &frame;</div>
<div class="line"><a name="l00739"></a><span class="lineno"> 739</span> </div>
<div class="line"><a name="l00740"></a><span class="lineno"> 740</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>;</div>
<div class="line"><a name="l00741"></a><span class="lineno"> 741</span> }</div>
<div class="line"><a name="l00742"></a><span class="lineno"> 742</span> <span class="preprocessor"># endif</span></div>
<div class="line"><a name="l00743"></a><span class="lineno"> 743</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00744"></a><span class="lineno"> 744</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00745"></a><span class="lineno"> 745</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00746"></a><span class="lineno"> 746</span> <span class="preprocessor">#endif </span><span class="comment">/* TCL_NAMESPACE_DEBUG */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l00747"></a><span class="lineno"> 747</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00748"></a><span class="lineno"> 748</span> </div>
<div class="line"><a name="l00749"></a><span class="lineno"> 749</span> <span class="comment">/*---- class TclTkIp ----*/</span></div>
<div class="line"><a name="l00750"></a><span class="lineno"><a class="line" href="../../db/d19/structtcltkip.html"> 750</a></span> <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> {</div>
<div class="line"><a name="l00751"></a><span class="lineno"><a class="line" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272"> 751</a></span>  Tcl_Interp *<a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>; <span class="comment">/* the interpreter */</span></div>
<div class="line"><a name="l00752"></a><span class="lineno"> 752</span> <span class="preprocessor">#if TCL_NAMESPACE_DEBUG</span></div>
<div class="line"><a name="l00753"></a><span class="lineno"> 753</span> <span class="preprocessor"></span> Tcl_Namespace *default_ns; <span class="comment">/* default namespace */</span></div>
<div class="line"><a name="l00754"></a><span class="lineno"> 754</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00755"></a><span class="lineno"> 755</span> <span class="preprocessor"></span><span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l00756"></a><span class="lineno"> 756</span> <span class="preprocessor"></span> Tcl_ThreadId tk_thread_id; <span class="comment">/* native thread ID of Tcl interpreter */</span></div>
<div class="line"><a name="l00757"></a><span class="lineno"> 757</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00758"></a><span class="lineno"><a class="line" href="../../db/d19/structtcltkip.html#a806a9dbb2520a6a3fc1eb1d860537c63"> 758</a></span> <span class="preprocessor"></span> <span class="keywordtype">int</span> <a class="code" href="../../db/d19/structtcltkip.html#a806a9dbb2520a6a3fc1eb1d860537c63">has_orig_exit</a>; <span class="comment">/* has original 'exit' command ? */</span></div>
<div class="line"><a name="l00759"></a><span class="lineno"><a class="line" href="../../db/d19/structtcltkip.html#a15f267a597e541e9816d481777696dc1"> 759</a></span>  Tcl_CmdInfo <a class="code" href="../../db/d19/structtcltkip.html#a15f267a597e541e9816d481777696dc1">orig_exit_info</a>; <span class="comment">/* command info of original 'exit' command */</span></div>
<div class="line"><a name="l00760"></a><span class="lineno"><a class="line" href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f"> 760</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f">ref_count</a>; <span class="comment">/* reference count of rbtk_preserve_ip call */</span></div>
<div class="line"><a name="l00761"></a><span class="lineno"><a class="line" href="../../db/d19/structtcltkip.html#ace5c5b6dab42be91b5cf7389a84cbb2c"> 761</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../db/d19/structtcltkip.html#ace5c5b6dab42be91b5cf7389a84cbb2c">allow_ruby_exit</a>; <span class="comment">/* allow exiting ruby by 'exit' function */</span></div>
<div class="line"><a name="l00762"></a><span class="lineno"><a class="line" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727"> 762</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a>; <span class="comment">/* return value */</span></div>
<div class="line"><a name="l00763"></a><span class="lineno"> 763</span> };</div>
<div class="line"><a name="l00764"></a><span class="lineno"> 764</span> </div>
<div class="line"><a name="l00765"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3b63ecba554aec4cfcc508a206cc4947"> 765</a></span> <span class="keyword">static</span> <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *</div>
<div class="line"><a name="l00766"></a><span class="lineno"> 766</span> get_ip(<span class="keyword">self</span>)</div>
<div class="line"><a name="l00767"></a><span class="lineno"> 767</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3b63ecba554aec4cfcc508a206cc4947">self</a>;</div>
<div class="line"><a name="l00768"></a><span class="lineno"> 768</span> {</div>
<div class="line"><a name="l00769"></a><span class="lineno"> 769</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>;</div>
<div class="line"><a name="l00770"></a><span class="lineno"> 770</span> </div>
<div class="line"><a name="l00771"></a><span class="lineno"> 771</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad043eb0996705571cad2e5bb39e9675e">Data_Get_Struct</a>(<span class="keyword">self</span>, <span class="keyword">struct</span> <a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a>, ptr);</div>
<div class="line"><a name="l00772"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#adcda0c48de17d7676ffd462588426a34"> 772</a></span>  <span class="keywordflow">if</span> (ptr == 0) {</div>
<div class="line"><a name="l00773"></a><span class="lineno"> 773</span>  <span class="comment">/* rb_raise(rb_eTypeError, "uninitialized TclTkIp"); */</span></div>
<div class="line"><a name="l00774"></a><span class="lineno"> 774</span>  <span class="keywordflow">return</span>((<span class="keyword">struct</span> <a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l00775"></a><span class="lineno"> 775</span>  }</div>
<div class="line"><a name="l00776"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#afbad424f5e1e0d764440b73c56089161"> 776</a></span>  <span class="keywordflow">if</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a> == (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l00777"></a><span class="lineno"> 777</span>  <span class="comment">/* rb_raise(rb_eRuntimeError, "deleted IP"); */</span></div>
<div class="line"><a name="l00778"></a><span class="lineno"> 778</span>  <span class="keywordflow">return</span>((<span class="keyword">struct</span> <a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l00779"></a><span class="lineno"> 779</span>  }</div>
<div class="line"><a name="l00780"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b"> 780</a></span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>;</div>
<div class="line"><a name="l00781"></a><span class="lineno"> 781</span> }</div>
<div class="line"><a name="l00782"></a><span class="lineno"> 782</span> </div>
<div class="line"><a name="l00783"></a><span class="lineno"> 783</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l00784"></a><span class="lineno"> 784</span> deleted_ip(ptr)</div>
<div class="line"><a name="l00785"></a><span class="lineno"> 785</span>  struct <a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div>
<div class="line"><a name="l00786"></a><span class="lineno"> 786</span> {</div>
<div class="line"><a name="l00787"></a><span class="lineno"> 787</span>  <span class="keywordflow">if</span> (!ptr || !ptr->ip || Tcl_InterpDeleted(ptr->ip)</div>
<div class="line"><a name="l00788"></a><span class="lineno"> 788</span> #<span class="keywordflow">if</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a780b4b4af2feb2b9f44efd3f97b46f27">TCL_NAMESPACE_DEBUG</a></div>
<div class="line"><a name="l00789"></a><span class="lineno"> 789</span>  || rbtk_invalid_namespace(ptr)</div>
<div class="line"><a name="l00790"></a><span class="lineno"> 790</span> #endif</div>
<div class="line"><a name="l00791"></a><span class="lineno"> 791</span>  ) {</div>
<div class="line"><a name="l00792"></a><span class="lineno"> 792</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"ip is deleted"</span>);</div>
<div class="line"><a name="l00793"></a><span class="lineno"> 793</span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l00794"></a><span class="lineno"> 794</span>  }</div>
<div class="line"><a name="l00795"></a><span class="lineno"> 795</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l00796"></a><span class="lineno"> 796</span> }</div>
<div class="line"><a name="l00797"></a><span class="lineno"> 797</span> </div>
<div class="line"><a name="l00798"></a><span class="lineno"> 798</span> <span class="comment">/* increment/decrement reference count of tcltkip */</span></div>
<div class="line"><a name="l00799"></a><span class="lineno"> 799</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l00800"></a><span class="lineno"> 800</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa23f39899c949c9e59a0ee3096d76fc5">rbtk_preserve_ip</a>(ptr)</div>
<div class="line"><a name="l00801"></a><span class="lineno"> 801</span>  struct <a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div>
<div class="line"><a name="l00802"></a><span class="lineno"> 802</span> {</div>
<div class="line"><a name="l00803"></a><span class="lineno"> 803</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f">ref_count</a>++;</div>
<div class="line"><a name="l00804"></a><span class="lineno"> 804</span>  <span class="keywordflow">if</span> (ptr->ip == (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l00805"></a><span class="lineno"> 805</span>  <span class="comment">/* deleted IP */</span></div>
<div class="line"><a name="l00806"></a><span class="lineno"> 806</span>  ptr->ref_count = 0;</div>
<div class="line"><a name="l00807"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0544c3fe466e421738dae463968b70ba"> 807</a></span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00808"></a><span class="lineno"> 808</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)ptr->ip);</div>
<div class="line"><a name="l00809"></a><span class="lineno"> 809</span>  }</div>
<div class="line"><a name="l00810"></a><span class="lineno"> 810</span>  <span class="keywordflow">return</span>(ptr->ref_count);</div>
<div class="line"><a name="l00811"></a><span class="lineno"> 811</span> }</div>
<div class="line"><a name="l00812"></a><span class="lineno"> 812</span> </div>
<div class="line"><a name="l00813"></a><span class="lineno"> 813</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l00814"></a><span class="lineno"> 814</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr)</div>
<div class="line"><a name="l00815"></a><span class="lineno"> 815</span>  struct <a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div>
<div class="line"><a name="l00816"></a><span class="lineno"> 816</span> {</div>
<div class="line"><a name="l00817"></a><span class="lineno"> 817</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f">ref_count</a>--;</div>
<div class="line"><a name="l00818"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a2068528219bd61cec0eecc27168398d2"> 818</a></span>  <span class="keywordflow">if</span> (ptr->ref_count < 0) {</div>
<div class="line"><a name="l00819"></a><span class="lineno"> 819</span>  ptr->ref_count = 0;</div>
<div class="line"><a name="l00820"></a><span class="lineno"> 820</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (ptr->ip == (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l00821"></a><span class="lineno"> 821</span>  <span class="comment">/* deleted IP */</span></div>
<div class="line"><a name="l00822"></a><span class="lineno"> 822</span>  ptr->ref_count = 0;</div>
<div class="line"><a name="l00823"></a><span class="lineno"> 823</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00824"></a><span class="lineno"> 824</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)ptr->ip);</div>
<div class="line"><a name="l00825"></a><span class="lineno"> 825</span>  }</div>
<div class="line"><a name="l00826"></a><span class="lineno"> 826</span>  <span class="keywordflow">return</span>(ptr->ref_count);</div>
<div class="line"><a name="l00827"></a><span class="lineno"> 827</span> }</div>
<div class="line"><a name="l00828"></a><span class="lineno"> 828</span> </div>
<div class="line"><a name="l00829"></a><span class="lineno"> 829</span> </div>
<div class="line"><a name="l00830"></a><span class="lineno"> 830</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l00831"></a><span class="lineno"> 831</span> <span class="preprocessor">#ifdef HAVE_STDARG_PROTOTYPES</span></div>
<div class="line"><a name="l00832"></a><span class="lineno"> 832</span> <span class="preprocessor"></span>create_ip_exc(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03">exc</a>, <span class="keyword">const</span> <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a381d684d94e6e91dee650357e8f02fa8">fmt</a>, ...)</div>
<div class="line"><a name="l00833"></a><span class="lineno"> 833</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l00834"></a><span class="lineno"> 834</span> <span class="preprocessor"></span>create_ip_exc(interp, exc, fmt, va_alist)</div>
<div class="line"><a name="l00835"></a><span class="lineno"> 835</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp:</div>
<div class="line"><a name="l00836"></a><span class="lineno"> 836</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> exc;</div>
<div class="line"><a name="l00837"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a381d684d94e6e91dee650357e8f02fa8"> 837</a></span>  <a class="code" href="../../d8/d4e/strftime_8c.html#a2c212835823e3c54a8ab6d95c652660e">const</a> <span class="keywordtype">char</span> *fmt;</div>
<div class="line"><a name="l00838"></a><span class="lineno"> 838</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae396515721607c64ecd0fdaa6691a99f">va_dcl</a></div>
<div class="line"><a name="l00839"></a><span class="lineno"> 839</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00840"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae396515721607c64ecd0fdaa6691a99f"> 840</a></span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l00841"></a><span class="lineno"> 841</span>  va_list <a class="code" href="../../d5/d9d/tcltklib_8c.html#a05b5b50936801146696de051996c59bb">args</a>;</div>
<div class="line"><a name="l00842"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6d315fd98e04b0d0ab006a2437281557"> 842</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6d315fd98e04b0d0ab006a2437281557">msg</a>;</div>
<div class="line"><a name="l00843"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a413fc6ff5d6893e9e10d9d59eedff2e1"> 843</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a413fc6ff5d6893e9e10d9d59eedff2e1">einfo</a>;</div>
<div class="line"><a name="l00844"></a><span class="lineno"> 844</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(interp);</div>
<div class="line"><a name="l00845"></a><span class="lineno"> 845</span> </div>
<div class="line"><a name="l00846"></a><span class="lineno"> 846</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3a0a28ba6e22644006c9bafb793f8a2c">va_init_list</a>(args,fmt);</div>
<div class="line"><a name="l00847"></a><span class="lineno"> 847</span>  msg = <a class="code" href="../../db/d2e/intern_8h.html#a13e29e5637f1d2fdf778399849da0d34">rb_vsprintf</a>(fmt, args);</div>
<div class="line"><a name="l00848"></a><span class="lineno"> 848</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a36af1f79dd6adf0809c21e76535034d5">va_end</a>(args);</div>
<div class="line"><a name="l00849"></a><span class="lineno"> 849</span>  einfo = <a class="code" href="../../db/dcc/error_8c.html#a4989eeb5742cad6359a2ed77859674de">rb_exc_new3</a>(exc, msg);</div>
<div class="line"><a name="l00850"></a><span class="lineno"> 850</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a>(einfo, ID_at_interp, interp);</div>
<div class="line"><a name="l00851"></a><span class="lineno"> 851</span>  <span class="keywordflow">if</span> (ptr) {</div>
<div class="line"><a name="l00852"></a><span class="lineno"> 852</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l00853"></a><span class="lineno"> 853</span>  }</div>
<div class="line"><a name="l00854"></a><span class="lineno"> 854</span> </div>
<div class="line"><a name="l00855"></a><span class="lineno"> 855</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a413fc6ff5d6893e9e10d9d59eedff2e1">einfo</a>;</div>
<div class="line"><a name="l00856"></a><span class="lineno"> 856</span> }</div>
<div class="line"><a name="l00857"></a><span class="lineno"> 857</span> </div>
<div class="line"><a name="l00858"></a><span class="lineno"> 858</span> </div>
<div class="line"><a name="l00859"></a><span class="lineno"> 859</span> <span class="comment">/*####################################################################*/</span></div>
<div class="line"><a name="l00860"></a><span class="lineno"> 860</span> <span class="preprocessor">#if defined CREATE_RUBYTK_KIT || defined CREATE_RUBYKIT</span></div>
<div class="line"><a name="l00861"></a><span class="lineno"> 861</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00862"></a><span class="lineno"> 862</span> <span class="comment">/*--------------------------------------------------------*/</span></div>
<div class="line"><a name="l00863"></a><span class="lineno"> 863</span> </div>
<div class="line"><a name="l00864"></a><span class="lineno"> 864</span> <span class="preprocessor">#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 84</span></div>
<div class="line"><a name="l00865"></a><span class="lineno"> 865</span> <span class="preprocessor"></span><span class="preprocessor">#error Ruby/Tk-Kit requires Tcl/Tk8.4 or later.</span></div>
<div class="line"><a name="l00866"></a><span class="lineno"> 866</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00867"></a><span class="lineno"> 867</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00868"></a><span class="lineno"> 868</span> <span class="comment">/*--------------------------------------------------------*/</span></div>
<div class="line"><a name="l00869"></a><span class="lineno"> 869</span> </div>
<div class="line"><a name="l00870"></a><span class="lineno"> 870</span> <span class="comment">/* Many part of code to support Ruby/Tk-Kit is quoted from Tclkit. */</span></div>
<div class="line"><a name="l00871"></a><span class="lineno"> 871</span> <span class="comment">/* But, never ask Tclkit community about Ruby/Tk-Kit. */</span></div>
<div class="line"><a name="l00872"></a><span class="lineno"> 872</span> <span class="comment">/* Please ask Ruby (Ruby/Tk) community (e.g. "ruby-dev" mailing list). */</span></div>
<div class="line"><a name="l00873"></a><span class="lineno"> 873</span> <span class="comment">/*</span></div>
<div class="line"><a name="l00874"></a><span class="lineno"> 874</span> <span class="comment">----<< license terms of TclKit (from kitgen's "README" file) >>---------------</span></div>
<div class="line"><a name="l00875"></a><span class="lineno"> 875</span> <span class="comment">The Tclkit-specific sources are license free, they just have a copyright. Hold</span></div>
<div class="line"><a name="l00876"></a><span class="lineno"> 876</span> <span class="comment">the author(s) harmless and any lawful use is permitted.</span></div>
<div class="line"><a name="l00877"></a><span class="lineno"> 877</span> <span class="comment"></span></div>
<div class="line"><a name="l00878"></a><span class="lineno"> 878</span> <span class="comment">This does *not* apply to any of the sources of the other major Open Source</span></div>
<div class="line"><a name="l00879"></a><span class="lineno"> 879</span> <span class="comment">Software used in Tclkit, which each have very liberal BSD/MIT-like licenses:</span></div>
<div class="line"><a name="l00880"></a><span class="lineno"> 880</span> <span class="comment"></span></div>
<div class="line"><a name="l00881"></a><span class="lineno"> 881</span> <span class="comment"> * Tcl/Tk, TclVFS, Thread, Vlerq, Zlib</span></div>
<div class="line"><a name="l00882"></a><span class="lineno"> 882</span> <span class="comment">------------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00883"></a><span class="lineno"> 883</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00884"></a><span class="lineno"> 884</span> <span class="comment">/* Tcl/Tk stubs may work, but probably it is meaningless. */</span></div>
<div class="line"><a name="l00885"></a><span class="lineno"> 885</span> <span class="preprocessor">#if defined USE_TCL_STUBS || defined USE_TK_STUBS</span></div>
<div class="line"><a name="l00886"></a><span class="lineno"> 886</span> <span class="preprocessor"></span><span class="preprocessor"># error Not support Tcl/Tk stubs with Ruby/Tk-Kit or Rubykit.</span></div>
<div class="line"><a name="l00887"></a><span class="lineno"> 887</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00888"></a><span class="lineno"> 888</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00889"></a><span class="lineno"> 889</span> <span class="preprocessor">#ifndef KIT_INCLUDES_ZLIB</span></div>
<div class="line"><a name="l00890"></a><span class="lineno"> 890</span> <span class="preprocessor"></span><span class="preprocessor">#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 86</span></div>
<div class="line"><a name="l00891"></a><span class="lineno"> 891</span> <span class="preprocessor"></span><span class="preprocessor">#define KIT_INCLUDES_ZLIB 1</span></div>
<div class="line"><a name="l00892"></a><span class="lineno"> 892</span> <span class="preprocessor"></span><span class="preprocessor">#else</span></div>
<div class="line"><a name="l00893"></a><span class="lineno"> 893</span> <span class="preprocessor"></span><span class="preprocessor">#define KIT_INCLUDES_ZLIB 0</span></div>
<div class="line"><a name="l00894"></a><span class="lineno"> 894</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00895"></a><span class="lineno"> 895</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00896"></a><span class="lineno"> 896</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00897"></a><span class="lineno"> 897</span> <span class="preprocessor">#ifdef _WIN32</span></div>
<div class="line"><a name="l00898"></a><span class="lineno"> 898</span> <span class="preprocessor"></span><span class="preprocessor">#define WIN32_LEAN_AND_MEAN</span></div>
<div class="line"><a name="l00899"></a><span class="lineno"> 899</span> <span class="preprocessor"></span><span class="preprocessor">#include <windows.h></span></div>
<div class="line"><a name="l00900"></a><span class="lineno"> 900</span> <span class="preprocessor">#undef WIN32_LEAN_AND_MEAN</span></div>
<div class="line"><a name="l00901"></a><span class="lineno"> 901</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00902"></a><span class="lineno"> 902</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00903"></a><span class="lineno"> 903</span> <span class="preprocessor">#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 86</span></div>
<div class="line"><a name="l00904"></a><span class="lineno"> 904</span> <span class="preprocessor"></span><a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> Tcl_Obj* TclGetStartupScriptPath();</div>
<div class="line"><a name="l00905"></a><span class="lineno"> 905</span> <a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keywordtype">void</span> TclSetStartupScriptPath <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((Tcl_Obj*));</div>
<div class="line"><a name="l00906"></a><span class="lineno"> 906</span> <span class="preprocessor">#define Tcl_GetStartupScript(encPtr) TclGetStartupScriptPath()</span></div>
<div class="line"><a name="l00907"></a><span class="lineno"> 907</span> <span class="preprocessor"></span><span class="preprocessor">#define Tcl_SetStartupScript(path,enc) TclSetStartupScriptPath(path)</span></div>
<div class="line"><a name="l00908"></a><span class="lineno"> 908</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00909"></a><span class="lineno"> 909</span> <span class="preprocessor"></span><span class="preprocessor">#if !defined(TclSetPreInitScript) && !defined(TclSetPreInitScript_TCL_DECLARED)</span></div>
<div class="line"><a name="l00910"></a><span class="lineno"> 910</span> <span class="preprocessor"></span><a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keywordtype">char</span>* TclSetPreInitScript <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<span class="keywordtype">char</span> *));</div>
<div class="line"><a name="l00911"></a><span class="lineno"> 911</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00912"></a><span class="lineno"> 912</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00913"></a><span class="lineno"> 913</span> <span class="preprocessor">#ifndef KIT_INCLUDES_TK</span></div>
<div class="line"><a name="l00914"></a><span class="lineno"> 914</span> <span class="preprocessor"></span><span class="preprocessor"># define KIT_INCLUDES_TK 1</span></div>
<div class="line"><a name="l00915"></a><span class="lineno"> 915</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00916"></a><span class="lineno"> 916</span> <span class="preprocessor"></span><span class="comment">/* #define KIT_INCLUDES_ITCL 1 */</span></div>
<div class="line"><a name="l00917"></a><span class="lineno"> 917</span> <span class="comment">/* #define KIT_INCLUDES_THREAD 1 */</span></div>
<div class="line"><a name="l00918"></a><span class="lineno"> 918</span> </div>
<div class="line"><a name="l00919"></a><span class="lineno"> 919</span> Tcl_AppInitProc Vfs_Init, Rechan_Init;</div>
<div class="line"><a name="l00920"></a><span class="lineno"> 920</span> <span class="preprocessor">#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 85</span></div>
<div class="line"><a name="l00921"></a><span class="lineno"> 921</span> <span class="preprocessor"></span>Tcl_AppInitProc Pwb_Init;</div>
<div class="line"><a name="l00922"></a><span class="lineno"> 922</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00923"></a><span class="lineno"> 923</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00924"></a><span class="lineno"> 924</span> <span class="preprocessor">#ifdef KIT_LITE</span></div>
<div class="line"><a name="l00925"></a><span class="lineno"> 925</span> <span class="preprocessor"></span>Tcl_AppInitProc Vlerq_Init, Vlerq_SafeInit;</div>
<div class="line"><a name="l00926"></a><span class="lineno"> 926</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l00927"></a><span class="lineno"> 927</span> <span class="preprocessor"></span>Tcl_AppInitProc Mk4tcl_Init;</div>
<div class="line"><a name="l00928"></a><span class="lineno"> 928</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00929"></a><span class="lineno"> 929</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00930"></a><span class="lineno"> 930</span> <span class="preprocessor">#if defined TCL_THREADS && defined KIT_INCLUDES_THREAD</span></div>
<div class="line"><a name="l00931"></a><span class="lineno"> 931</span> <span class="preprocessor"></span>Tcl_AppInitProc Thread_Init;</div>
<div class="line"><a name="l00932"></a><span class="lineno"> 932</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00933"></a><span class="lineno"> 933</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00934"></a><span class="lineno"> 934</span> <span class="preprocessor">#if KIT_INCLUDES_ZLIB</span></div>
<div class="line"><a name="l00935"></a><span class="lineno"> 935</span> <span class="preprocessor"></span>Tcl_AppInitProc Zlib_Init;</div>
<div class="line"><a name="l00936"></a><span class="lineno"> 936</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00937"></a><span class="lineno"> 937</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00938"></a><span class="lineno"> 938</span> <span class="preprocessor">#ifdef KIT_INCLUDES_ITCL</span></div>
<div class="line"><a name="l00939"></a><span class="lineno"> 939</span> <span class="preprocessor"></span>Tcl_AppInitProc Itcl_Init;</div>
<div class="line"><a name="l00940"></a><span class="lineno"> 940</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00941"></a><span class="lineno"> 941</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00942"></a><span class="lineno"> 942</span> <span class="preprocessor">#ifdef _WIN32</span></div>
<div class="line"><a name="l00943"></a><span class="lineno"> 943</span> <span class="preprocessor"></span>Tcl_AppInitProc Dde_Init, Dde_SafeInit, Registry_Init;</div>
<div class="line"><a name="l00944"></a><span class="lineno"> 944</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00945"></a><span class="lineno"> 945</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00946"></a><span class="lineno"> 946</span> <span class="comment">/*--------------------------------------------------------*/</span></div>
<div class="line"><a name="l00947"></a><span class="lineno"> 947</span> </div>
<div class="line"><a name="l00948"></a><span class="lineno"> 948</span> <span class="preprocessor">#define RUBYTK_KITPATH_CONST_NAME "RUBYTK_KITPATH"</span></div>
<div class="line"><a name="l00949"></a><span class="lineno"> 949</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l00950"></a><span class="lineno"> 950</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *rubytk_kitpath = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l00951"></a><span class="lineno"> 951</span> </div>
<div class="line"><a name="l00952"></a><span class="lineno"> 952</span> <span class="keyword">static</span> <span class="keywordtype">char</span> rubytkkit_preInitCmd[] =</div>
<div class="line"><a name="l00953"></a><span class="lineno"> 953</span> <span class="stringliteral">"proc tclKitPreInit {} {\n"</span></div>
<div class="line"><a name="l00954"></a><span class="lineno"> 954</span>  <span class="stringliteral">"rename tclKitPreInit {}\n"</span></div>
<div class="line"><a name="l00955"></a><span class="lineno"> 955</span>  <span class="stringliteral">"load {} rubytk_kitpath\n"</span></div>
<div class="line"><a name="l00956"></a><span class="lineno"> 956</span> <span class="preprocessor">#if KIT_INCLUDES_ZLIB</span></div>
<div class="line"><a name="l00957"></a><span class="lineno"> 957</span> <span class="preprocessor"></span> <span class="stringliteral">"catch {load {} zlib}\n"</span></div>
<div class="line"><a name="l00958"></a><span class="lineno"> 958</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00959"></a><span class="lineno"> 959</span> <span class="preprocessor"></span><span class="preprocessor">#ifdef KIT_LITE</span></div>
<div class="line"><a name="l00960"></a><span class="lineno"> 960</span> <span class="preprocessor"></span> <span class="stringliteral">"load {} vlerq\n"</span></div>
<div class="line"><a name="l00961"></a><span class="lineno"> 961</span>  <span class="stringliteral">"namespace eval ::vlerq {}\n"</span></div>
<div class="line"><a name="l00962"></a><span class="lineno"> 962</span>  <span class="stringliteral">"if {[catch { vlerq open $::tcl::kitpath } ::vlerq::starkit_root]} {\n"</span></div>
<div class="line"><a name="l00963"></a><span class="lineno"> 963</span>  <span class="stringliteral">"set n -1\n"</span></div>
<div class="line"><a name="l00964"></a><span class="lineno"> 964</span>  <span class="stringliteral">"} else {\n"</span></div>
<div class="line"><a name="l00965"></a><span class="lineno"> 965</span>  <span class="stringliteral">"set files [vlerq get $::vlerq::starkit_root 0 dirs 0 files]\n"</span></div>
<div class="line"><a name="l00966"></a><span class="lineno"> 966</span>  <span class="stringliteral">"set n [lsearch [vlerq get $files * name] boot.tcl]\n"</span></div>
<div class="line"><a name="l00967"></a><span class="lineno"> 967</span>  <span class="stringliteral">"}\n"</span></div>
<div class="line"><a name="l00968"></a><span class="lineno"> 968</span>  <span class="stringliteral">"if {$n >= 0} {\n"</span></div>
<div class="line"><a name="l00969"></a><span class="lineno"> 969</span>  <span class="stringliteral">"array set a [vlerq get $files $n]\n"</span></div>
<div class="line"><a name="l00970"></a><span class="lineno"> 970</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l00971"></a><span class="lineno"> 971</span> <span class="preprocessor"></span> <span class="stringliteral">"load {} Mk4tcl\n"</span></div>
<div class="line"><a name="l00972"></a><span class="lineno"> 972</span> <span class="preprocessor">#if defined KIT_VFS_WRITABLE && !defined CREATE_RUBYKIT</span></div>
<div class="line"><a name="l00973"></a><span class="lineno"> 973</span> <span class="preprocessor"></span> <span class="comment">/* running command cannot open itself for writing */</span></div>
<div class="line"><a name="l00974"></a><span class="lineno"> 974</span>  <span class="stringliteral">"mk::file open exe $::tcl::kitpath\n"</span></div>
<div class="line"><a name="l00975"></a><span class="lineno"> 975</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l00976"></a><span class="lineno"> 976</span> <span class="preprocessor"></span> <span class="stringliteral">"mk::file open exe $::tcl::kitpath -readonly\n"</span></div>
<div class="line"><a name="l00977"></a><span class="lineno"> 977</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00978"></a><span class="lineno"> 978</span> <span class="preprocessor"></span> <span class="stringliteral">"set n [mk::select exe.dirs!0.files name boot.tcl]\n"</span></div>
<div class="line"><a name="l00979"></a><span class="lineno"> 979</span>  <span class="stringliteral">"if {[llength $n] == 1} {\n"</span></div>
<div class="line"><a name="l00980"></a><span class="lineno"> 980</span>  <span class="stringliteral">"array set a [mk::get exe.dirs!0.files!$n]\n"</span></div>
<div class="line"><a name="l00981"></a><span class="lineno"> 981</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00982"></a><span class="lineno"> 982</span> <span class="preprocessor"></span> <span class="stringliteral">"if {![info exists a(contents)]} { error {no boot.tcl file} }\n"</span></div>
<div class="line"><a name="l00983"></a><span class="lineno"> 983</span>  <span class="stringliteral">"if {$a(size) != [string length $a(contents)]} {\n"</span></div>
<div class="line"><a name="l00984"></a><span class="lineno"> 984</span>  <span class="stringliteral">"set a(contents) [zlib decompress $a(contents)]\n"</span></div>
<div class="line"><a name="l00985"></a><span class="lineno"> 985</span>  <span class="stringliteral">"}\n"</span></div>
<div class="line"><a name="l00986"></a><span class="lineno"> 986</span>  <span class="stringliteral">"if {$a(contents) eq \"\"} { error {empty boot.tcl} }\n"</span></div>
<div class="line"><a name="l00987"></a><span class="lineno"> 987</span>  <span class="stringliteral">"uplevel #0 $a(contents)\n"</span></div>
<div class="line"><a name="l00988"></a><span class="lineno"> 988</span> <span class="preprocessor">#if 0</span></div>
<div class="line"><a name="l00989"></a><span class="lineno"> 989</span> <span class="preprocessor"></span> <span class="stringliteral">"} elseif {[lindex $::argv 0] eq \"-init-\"} {\n"</span></div>
<div class="line"><a name="l00990"></a><span class="lineno"> 990</span>  <span class="stringliteral">"uplevel #0 { source [lindex $::argv 1] }\n"</span></div>
<div class="line"><a name="l00991"></a><span class="lineno"> 991</span>  <span class="stringliteral">"exit\n"</span></div>
<div class="line"><a name="l00992"></a><span class="lineno"> 992</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00993"></a><span class="lineno"> 993</span> <span class="preprocessor"></span> <span class="stringliteral">"} else {\n"</span></div>
<div class="line"><a name="l00994"></a><span class="lineno"> 994</span>  <span class="comment">/* When cannot find VFS data, try to use a real directory */</span></div>
<div class="line"><a name="l00995"></a><span class="lineno"> 995</span>  <span class="stringliteral">"set vfsdir \"[file rootname $::tcl::kitpath].vfs\"\n"</span></div>
<div class="line"><a name="l00996"></a><span class="lineno"> 996</span>  <span class="stringliteral">"if {[file isdirectory $vfsdir]} {\n"</span></div>
<div class="line"><a name="l00997"></a><span class="lineno"> 997</span>  <span class="stringliteral">"set ::tcl_library [file join $vfsdir lib tcl$::tcl_version]\n"</span></div>
<div class="line"><a name="l00998"></a><span class="lineno"> 998</span>  <span class="stringliteral">"set ::tcl_libPath [list $::tcl_library [file join $vfsdir lib]]\n"</span></div>
<div class="line"><a name="l00999"></a><span class="lineno"> 999</span>  <span class="stringliteral">"catch {uplevel #0 [list source [file join $vfsdir config.tcl]]}\n"</span></div>
<div class="line"><a name="l01000"></a><span class="lineno"> 1000</span>  <span class="stringliteral">"uplevel #0 [list source [file join $::tcl_library init.tcl]]\n"</span></div>
<div class="line"><a name="l01001"></a><span class="lineno"> 1001</span>  <span class="stringliteral">"set ::auto_path $::tcl_libPath\n"</span></div>
<div class="line"><a name="l01002"></a><span class="lineno"> 1002</span>  <span class="stringliteral">"} else {\n"</span></div>
<div class="line"><a name="l01003"></a><span class="lineno"> 1003</span>  <span class="stringliteral">"error \"\n $::tcl::kitpath has no VFS data to start up\"\n"</span></div>
<div class="line"><a name="l01004"></a><span class="lineno"> 1004</span>  <span class="stringliteral">"}\n"</span></div>
<div class="line"><a name="l01005"></a><span class="lineno"> 1005</span>  <span class="stringliteral">"}\n"</span></div>
<div class="line"><a name="l01006"></a><span class="lineno"> 1006</span> <span class="stringliteral">"}\n"</span></div>
<div class="line"><a name="l01007"></a><span class="lineno"> 1007</span> <span class="stringliteral">"tclKitPreInit"</span></div>
<div class="line"><a name="l01008"></a><span class="lineno"> 1008</span> ;</div>
<div class="line"><a name="l01009"></a><span class="lineno"> 1009</span> </div>
<div class="line"><a name="l01010"></a><span class="lineno"> 1010</span> <span class="preprocessor">#if 0</span></div>
<div class="line"><a name="l01011"></a><span class="lineno"> 1011</span> <span class="preprocessor"></span><span class="comment">/* Not use this script.</span></div>
<div class="line"><a name="l01012"></a><span class="lineno"> 1012</span> <span class="comment"> It's a memo to support an initScript for Tcl interpreters in the future. */</span></div>
<div class="line"><a name="l01013"></a><span class="lineno"> 1013</span> <span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">char</span> initScript[] =</div>
<div class="line"><a name="l01014"></a><span class="lineno"> 1014</span> <span class="stringliteral">"if {[file isfile [file join $::tcl::kitpath main.tcl]]} {\n"</span></div>
<div class="line"><a name="l01015"></a><span class="lineno"> 1015</span>  <span class="stringliteral">"if {[info commands console] != {}} { console hide }\n"</span></div>
<div class="line"><a name="l01016"></a><span class="lineno"> 1016</span>  <span class="stringliteral">"set tcl_interactive 0\n"</span></div>
<div class="line"><a name="l01017"></a><span class="lineno"> 1017</span>  <span class="stringliteral">"incr argc\n"</span></div>
<div class="line"><a name="l01018"></a><span class="lineno"> 1018</span>  <span class="stringliteral">"set argv [linsert $argv 0 $argv0]\n"</span></div>
<div class="line"><a name="l01019"></a><span class="lineno"> 1019</span>  <span class="stringliteral">"set argv0 [file join $::tcl::kitpath main.tcl]\n"</span></div>
<div class="line"><a name="l01020"></a><span class="lineno"> 1020</span> <span class="stringliteral">"} else continue\n"</span></div>
<div class="line"><a name="l01021"></a><span class="lineno"> 1021</span> ;</div>
<div class="line"><a name="l01022"></a><span class="lineno"> 1022</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01023"></a><span class="lineno"> 1023</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l01024"></a><span class="lineno"> 1024</span> <span class="comment">/*--------------------------------------------------------*/</span></div>
<div class="line"><a name="l01025"></a><span class="lineno"> 1025</span> </div>
<div class="line"><a name="l01026"></a><span class="lineno"> 1026</span> <span class="keyword">static</span> <span class="keywordtype">char</span>*</div>
<div class="line"><a name="l01027"></a><span class="lineno"> 1027</span> set_rubytk_kitpath(<span class="keyword">const</span> <span class="keywordtype">char</span> *kitpath)</div>
<div class="line"><a name="l01028"></a><span class="lineno"> 1028</span> {</div>
<div class="line"><a name="l01029"></a><span class="lineno"> 1029</span>  <span class="keywordflow">if</span> (kitpath) {</div>
<div class="line"><a name="l01030"></a><span class="lineno"> 1030</span>  <span class="keywordtype">int</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a> = (<a class="code" href="../../de/d07/bigdecimal_8c.html#accd5e629f58868c52137db996aaf8b83">int</a>)<a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(kitpath);</div>
<div class="line"><a name="l01031"></a><span class="lineno"> 1031</span>  <span class="keywordflow">if</span> (rubytk_kitpath) {</div>
<div class="line"><a name="l01032"></a><span class="lineno"> 1032</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>(rubytk_kitpath);</div>
<div class="line"><a name="l01033"></a><span class="lineno"> 1033</span>  }</div>
<div class="line"><a name="l01034"></a><span class="lineno"> 1034</span> </div>
<div class="line"><a name="l01035"></a><span class="lineno"> 1035</span>  rubytk_kitpath = (<span class="keywordtype">char</span> *)ckalloc(len + 1);</div>
<div class="line"><a name="l01036"></a><span class="lineno"> 1036</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7aa3ca79548709bc580aa259ad1fd2d2">memcpy</a>(rubytk_kitpath, kitpath, len);</div>
<div class="line"><a name="l01037"></a><span class="lineno"> 1037</span>  rubytk_kitpath[<a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>] = <span class="charliteral">'\0'</span>;</div>
<div class="line"><a name="l01038"></a><span class="lineno"> 1038</span>  }</div>
<div class="line"><a name="l01039"></a><span class="lineno"> 1039</span>  <span class="keywordflow">return</span> rubytk_kitpath;</div>
<div class="line"><a name="l01040"></a><span class="lineno"> 1040</span> }</div>
<div class="line"><a name="l01041"></a><span class="lineno"> 1041</span> </div>
<div class="line"><a name="l01042"></a><span class="lineno"> 1042</span> <span class="comment">/*--------------------------------------------------------*/</span></div>
<div class="line"><a name="l01043"></a><span class="lineno"> 1043</span> </div>
<div class="line"><a name="l01044"></a><span class="lineno"> 1044</span> <span class="preprocessor">#ifdef WIN32</span></div>
<div class="line"><a name="l01045"></a><span class="lineno"> 1045</span> <span class="preprocessor"></span><span class="preprocessor">#define DEV_NULL "NUL"</span></div>
<div class="line"><a name="l01046"></a><span class="lineno"> 1046</span> <span class="preprocessor"></span><span class="preprocessor">#else</span></div>
<div class="line"><a name="l01047"></a><span class="lineno"> 1047</span> <span class="preprocessor"></span><span class="preprocessor">#define DEV_NULL "/dev/null"</span></div>
<div class="line"><a name="l01048"></a><span class="lineno"> 1048</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01049"></a><span class="lineno"> 1049</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l01050"></a><span class="lineno"> 1050</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l01051"></a><span class="lineno"> 1051</span> check_tclkit_std_channels()</div>
<div class="line"><a name="l01052"></a><span class="lineno"> 1052</span> {</div>
<div class="line"><a name="l01053"></a><span class="lineno"> 1053</span>  Tcl_Channel chan;</div>
<div class="line"><a name="l01054"></a><span class="lineno"> 1054</span> </div>
<div class="line"><a name="l01055"></a><span class="lineno"> 1055</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l01056"></a><span class="lineno"> 1056</span> <span class="comment"> * We need to verify if we have the standard channels and create them if</span></div>
<div class="line"><a name="l01057"></a><span class="lineno"> 1057</span> <span class="comment"> * not. Otherwise internals channels may get used as standard channels</span></div>
<div class="line"><a name="l01058"></a><span class="lineno"> 1058</span> <span class="comment"> * (like for encodings) and panic.</span></div>
<div class="line"><a name="l01059"></a><span class="lineno"> 1059</span> <span class="comment"> */</span></div>
<div class="line"><a name="l01060"></a><span class="lineno"> 1060</span>  chan = Tcl_GetStdChannel(TCL_STDIN);</div>
<div class="line"><a name="l01061"></a><span class="lineno"> 1061</span>  <span class="keywordflow">if</span> (chan == <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l01062"></a><span class="lineno"> 1062</span>  chan = Tcl_OpenFileChannel(<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>, DEV_NULL, <span class="stringliteral">"r"</span>, 0);</div>
<div class="line"><a name="l01063"></a><span class="lineno"> 1063</span>  <span class="keywordflow">if</span> (chan != <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l01064"></a><span class="lineno"> 1064</span>  Tcl_SetChannelOption(<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>, chan, <span class="stringliteral">"-encoding"</span>, <span class="stringliteral">"utf-8"</span>);</div>
<div class="line"><a name="l01065"></a><span class="lineno"> 1065</span>  }</div>
<div class="line"><a name="l01066"></a><span class="lineno"> 1066</span>  Tcl_SetStdChannel(chan, TCL_STDIN);</div>
<div class="line"><a name="l01067"></a><span class="lineno"> 1067</span>  }</div>
<div class="line"><a name="l01068"></a><span class="lineno"> 1068</span>  chan = Tcl_GetStdChannel(TCL_STDOUT);</div>
<div class="line"><a name="l01069"></a><span class="lineno"> 1069</span>  <span class="keywordflow">if</span> (chan == <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l01070"></a><span class="lineno"> 1070</span>  chan = Tcl_OpenFileChannel(<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>, DEV_NULL, <span class="stringliteral">"w"</span>, 0);</div>
<div class="line"><a name="l01071"></a><span class="lineno"> 1071</span>  <span class="keywordflow">if</span> (chan != <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l01072"></a><span class="lineno"> 1072</span>  Tcl_SetChannelOption(<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>, chan, <span class="stringliteral">"-encoding"</span>, <span class="stringliteral">"utf-8"</span>);</div>
<div class="line"><a name="l01073"></a><span class="lineno"> 1073</span>  }</div>
<div class="line"><a name="l01074"></a><span class="lineno"> 1074</span>  Tcl_SetStdChannel(chan, TCL_STDOUT);</div>
<div class="line"><a name="l01075"></a><span class="lineno"> 1075</span>  }</div>
<div class="line"><a name="l01076"></a><span class="lineno"> 1076</span>  chan = Tcl_GetStdChannel(TCL_STDERR);</div>
<div class="line"><a name="l01077"></a><span class="lineno"> 1077</span>  <span class="keywordflow">if</span> (chan == <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l01078"></a><span class="lineno"> 1078</span>  chan = Tcl_OpenFileChannel(<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>, DEV_NULL, <span class="stringliteral">"w"</span>, 0);</div>
<div class="line"><a name="l01079"></a><span class="lineno"> 1079</span>  <span class="keywordflow">if</span> (chan != <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l01080"></a><span class="lineno"> 1080</span>  Tcl_SetChannelOption(<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>, chan, <span class="stringliteral">"-encoding"</span>, <span class="stringliteral">"utf-8"</span>);</div>
<div class="line"><a name="l01081"></a><span class="lineno"> 1081</span>  }</div>
<div class="line"><a name="l01082"></a><span class="lineno"> 1082</span>  Tcl_SetStdChannel(chan, TCL_STDERR);</div>
<div class="line"><a name="l01083"></a><span class="lineno"> 1083</span>  }</div>
<div class="line"><a name="l01084"></a><span class="lineno"> 1084</span> }</div>
<div class="line"><a name="l01085"></a><span class="lineno"> 1085</span> </div>
<div class="line"><a name="l01086"></a><span class="lineno"> 1086</span> <span class="comment">/*--------------------------------------------------------*/</span></div>
<div class="line"><a name="l01087"></a><span class="lineno"> 1087</span> </div>
<div class="line"><a name="l01088"></a><span class="lineno"> 1088</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l01089"></a><span class="lineno"> 1089</span> rubytk_kitpathObjCmd(ClientData <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7c1d654b7b6114d7a0abc8d351dd1bcd">dummy</a>, Tcl_Interp *interp, <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>, Tcl_Obj *<span class="keyword">const</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5989eede682afd9743c0345d772674d5">objv</a>[])</div>
<div class="line"><a name="l01090"></a><span class="lineno"> 1090</span> {</div>
<div class="line"><a name="l01091"></a><span class="lineno"> 1091</span>  <span class="keyword">const</span> <span class="keywordtype">char</span>* <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>;</div>
<div class="line"><a name="l01092"></a><span class="lineno"> 1092</span>  <span class="keywordflow">if</span> (objc == 2) {</div>
<div class="line"><a name="l01093"></a><span class="lineno"> 1093</span>  set_rubytk_kitpath(Tcl_GetString(objv[1]));</div>
<div class="line"><a name="l01094"></a><span class="lineno"> 1094</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (objc > 2) {</div>
<div class="line"><a name="l01095"></a><span class="lineno"> 1095</span>  Tcl_WrongNumArgs(interp, 1, objv, <span class="stringliteral">"?path?"</span>);</div>
<div class="line"><a name="l01096"></a><span class="lineno"> 1096</span>  }</div>
<div class="line"><a name="l01097"></a><span class="lineno"> 1097</span>  str = rubytk_kitpath ? rubytk_kitpath : Tcl_GetNameOfExecutable();</div>
<div class="line"><a name="l01098"></a><span class="lineno"> 1098</span>  Tcl_SetObjResult(interp, Tcl_NewStringObj(str, -1));</div>
<div class="line"><a name="l01099"></a><span class="lineno"> 1099</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>;</div>
<div class="line"><a name="l01100"></a><span class="lineno"> 1100</span> }</div>
<div class="line"><a name="l01101"></a><span class="lineno"> 1101</span> </div>
<div class="line"><a name="l01102"></a><span class="lineno"> 1102</span> <span class="comment">/*</span></div>
<div class="line"><a name="l01103"></a><span class="lineno"> 1103</span> <span class="comment"> * Public entry point for ::tcl::kitpath.</span></div>
<div class="line"><a name="l01104"></a><span class="lineno"> 1104</span> <span class="comment"> * Creates both link variable name and Tcl command ::tcl::kitpath.</span></div>
<div class="line"><a name="l01105"></a><span class="lineno"> 1105</span> <span class="comment"> */</span></div>
<div class="line"><a name="l01106"></a><span class="lineno"> 1106</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l01107"></a><span class="lineno"> 1107</span> rubytk_kitpath_init(Tcl_Interp *interp)</div>
<div class="line"><a name="l01108"></a><span class="lineno"> 1108</span> {</div>
<div class="line"><a name="l01109"></a><span class="lineno"> 1109</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"::tcl::kitpath"</span>, rubytk_kitpathObjCmd, 0, 0);</div>
<div class="line"><a name="l01110"></a><span class="lineno"> 1110</span>  <span class="keywordflow">if</span> (Tcl_LinkVar(interp, <span class="stringliteral">"::tcl::kitpath"</span>, (<span class="keywordtype">char</span> *) &rubytk_kitpath,</div>
<div class="line"><a name="l01111"></a><span class="lineno"> 1111</span>  TCL_LINK_STRING | TCL_LINK_READ_ONLY) != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l01112"></a><span class="lineno"> 1112</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l01113"></a><span class="lineno"> 1113</span>  }</div>
<div class="line"><a name="l01114"></a><span class="lineno"> 1114</span> </div>
<div class="line"><a name="l01115"></a><span class="lineno"> 1115</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"::tcl::rubytk_kitpath"</span>, rubytk_kitpathObjCmd, 0, 0);</div>
<div class="line"><a name="l01116"></a><span class="lineno"> 1116</span>  <span class="keywordflow">if</span> (Tcl_LinkVar(interp, <span class="stringliteral">"::tcl::rubytk_kitpath"</span>, (<span class="keywordtype">char</span> *) &rubytk_kitpath,</div>
<div class="line"><a name="l01117"></a><span class="lineno"> 1117</span>  TCL_LINK_STRING | TCL_LINK_READ_ONLY) != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l01118"></a><span class="lineno"> 1118</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l01119"></a><span class="lineno"> 1119</span>  }</div>
<div class="line"><a name="l01120"></a><span class="lineno"> 1120</span> </div>
<div class="line"><a name="l01121"></a><span class="lineno"> 1121</span>  <span class="keywordflow">if</span> (rubytk_kitpath == <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l01122"></a><span class="lineno"> 1122</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l01123"></a><span class="lineno"> 1123</span> <span class="comment"> * XXX: We may want to avoid doing this to allow tcl::kitpath calls</span></div>
<div class="line"><a name="l01124"></a><span class="lineno"> 1124</span> <span class="comment"> * XXX: to obtain changes in nameofexe, if they occur.</span></div>
<div class="line"><a name="l01125"></a><span class="lineno"> 1125</span> <span class="comment"> */</span></div>
<div class="line"><a name="l01126"></a><span class="lineno"> 1126</span>  set_rubytk_kitpath(Tcl_GetNameOfExecutable());</div>
<div class="line"><a name="l01127"></a><span class="lineno"> 1127</span>  }</div>
<div class="line"><a name="l01128"></a><span class="lineno"> 1128</span> </div>
<div class="line"><a name="l01129"></a><span class="lineno"> 1129</span>  <span class="keywordflow">return</span> Tcl_PkgProvide(interp, <span class="stringliteral">"rubytk_kitpath"</span>, <span class="stringliteral">"1.0"</span>);</div>
<div class="line"><a name="l01130"></a><span class="lineno"> 1130</span> }</div>
<div class="line"><a name="l01131"></a><span class="lineno"> 1131</span> </div>
<div class="line"><a name="l01132"></a><span class="lineno"> 1132</span> <span class="comment">/*--------------------------------------------------------*/</span></div>
<div class="line"><a name="l01133"></a><span class="lineno"> 1133</span> </div>
<div class="line"><a name="l01134"></a><span class="lineno"> 1134</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l01135"></a><span class="lineno"> 1135</span> init_static_tcltk_packages()</div>
<div class="line"><a name="l01136"></a><span class="lineno"> 1136</span> {</div>
<div class="line"><a name="l01137"></a><span class="lineno"> 1137</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l01138"></a><span class="lineno"> 1138</span> <span class="comment"> * Ensure that std channels exist (creating them if necessary)</span></div>
<div class="line"><a name="l01139"></a><span class="lineno"> 1139</span> <span class="comment"> */</span></div>
<div class="line"><a name="l01140"></a><span class="lineno"> 1140</span>  check_tclkit_std_channels();</div>
<div class="line"><a name="l01141"></a><span class="lineno"> 1141</span> </div>
<div class="line"><a name="l01142"></a><span class="lineno"> 1142</span> <span class="preprocessor">#ifdef KIT_INCLUDES_ITCL</span></div>
<div class="line"><a name="l01143"></a><span class="lineno"> 1143</span> <span class="preprocessor"></span> Tcl_StaticPackage(0, <span class="stringliteral">"Itcl"</span>, Itcl_Init, <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l01144"></a><span class="lineno"> 1144</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01145"></a><span class="lineno"> 1145</span> <span class="preprocessor"></span><span class="preprocessor">#ifdef KIT_LITE</span></div>
<div class="line"><a name="l01146"></a><span class="lineno"> 1146</span> <span class="preprocessor"></span> Tcl_StaticPackage(0, <span class="stringliteral">"Vlerq"</span>, Vlerq_Init, Vlerq_SafeInit);</div>
<div class="line"><a name="l01147"></a><span class="lineno"> 1147</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l01148"></a><span class="lineno"> 1148</span> <span class="preprocessor"></span> Tcl_StaticPackage(0, <span class="stringliteral">"Mk4tcl"</span>, Mk4tcl_Init, <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l01149"></a><span class="lineno"> 1149</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01150"></a><span class="lineno"> 1150</span> <span class="preprocessor"></span><span class="preprocessor">#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 85</span></div>
<div class="line"><a name="l01151"></a><span class="lineno"> 1151</span> <span class="preprocessor"></span> Tcl_StaticPackage(0, <span class="stringliteral">"pwb"</span>, Pwb_Init, <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l01152"></a><span class="lineno"> 1152</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01153"></a><span class="lineno"> 1153</span> <span class="preprocessor"></span> Tcl_StaticPackage(0, <span class="stringliteral">"rubytk_kitpath"</span>, rubytk_kitpath_init, <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l01154"></a><span class="lineno"> 1154</span>  Tcl_StaticPackage(0, <span class="stringliteral">"rechan"</span>, Rechan_Init, <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l01155"></a><span class="lineno"> 1155</span>  Tcl_StaticPackage(0, <span class="stringliteral">"vfs"</span>, Vfs_Init, <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l01156"></a><span class="lineno"> 1156</span> <span class="preprocessor">#if KIT_INCLUDES_ZLIB</span></div>
<div class="line"><a name="l01157"></a><span class="lineno"> 1157</span> <span class="preprocessor"></span> Tcl_StaticPackage(0, <span class="stringliteral">"zlib"</span>, Zlib_Init, <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l01158"></a><span class="lineno"> 1158</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01159"></a><span class="lineno"> 1159</span> <span class="preprocessor"></span><span class="preprocessor">#if defined TCL_THREADS && defined KIT_INCLUDES_THREAD</span></div>
<div class="line"><a name="l01160"></a><span class="lineno"> 1160</span> <span class="preprocessor"></span> Tcl_StaticPackage(0, <span class="stringliteral">"Thread"</span>, Thread_Init, Thread_SafeInit);</div>
<div class="line"><a name="l01161"></a><span class="lineno"> 1161</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01162"></a><span class="lineno"> 1162</span> <span class="preprocessor"></span><span class="preprocessor">#ifdef _WIN32</span></div>
<div class="line"><a name="l01163"></a><span class="lineno"> 1163</span> <span class="preprocessor"></span><span class="preprocessor">#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION > 84</span></div>
<div class="line"><a name="l01164"></a><span class="lineno"> 1164</span> <span class="preprocessor"></span> Tcl_StaticPackage(0, <span class="stringliteral">"dde"</span>, Dde_Init, Dde_SafeInit);</div>
<div class="line"><a name="l01165"></a><span class="lineno"> 1165</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l01166"></a><span class="lineno"> 1166</span> <span class="preprocessor"></span> Tcl_StaticPackage(0, <span class="stringliteral">"dde"</span>, Dde_Init, <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l01167"></a><span class="lineno"> 1167</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01168"></a><span class="lineno"> 1168</span> <span class="preprocessor"></span> Tcl_StaticPackage(0, <span class="stringliteral">"registry"</span>, Registry_Init, <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l01169"></a><span class="lineno"> 1169</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01170"></a><span class="lineno"> 1170</span> <span class="preprocessor"></span><span class="preprocessor">#ifdef KIT_INCLUDES_TK</span></div>
<div class="line"><a name="l01171"></a><span class="lineno"> 1171</span> <span class="preprocessor"></span> Tcl_StaticPackage(0, <span class="stringliteral">"Tk"</span>, Tk_Init, Tk_SafeInit);</div>
<div class="line"><a name="l01172"></a><span class="lineno"> 1172</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01173"></a><span class="lineno"> 1173</span> <span class="preprocessor"></span>}</div>
<div class="line"><a name="l01174"></a><span class="lineno"> 1174</span> </div>
<div class="line"><a name="l01175"></a><span class="lineno"> 1175</span> <span class="comment">/*--------------------------------------------------------*/</span></div>
<div class="line"><a name="l01176"></a><span class="lineno"> 1176</span> </div>
<div class="line"><a name="l01177"></a><span class="lineno"> 1177</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l01178"></a><span class="lineno"> 1178</span> call_tclkit_init_script(Tcl_Interp *interp)</div>
<div class="line"><a name="l01179"></a><span class="lineno"> 1179</span> {</div>
<div class="line"><a name="l01180"></a><span class="lineno"> 1180</span> <span class="preprocessor">#if 0</span></div>
<div class="line"><a name="l01181"></a><span class="lineno"> 1181</span> <span class="preprocessor"></span> <span class="comment">/* Currently, do nothing in this function.</span></div>
<div class="line"><a name="l01182"></a><span class="lineno"> 1182</span> <span class="comment"> It's a memo (quoted from kitInit.c of Tclkit)</span></div>
<div class="line"><a name="l01183"></a><span class="lineno"> 1183</span> <span class="comment"> to support an initScript for Tcl interpreters in the future. */</span></div>
<div class="line"><a name="l01184"></a><span class="lineno"> 1184</span>  <span class="keywordflow">if</span> (Tcl_EvalEx(interp, initScript, -1, TCL_EVAL_GLOBAL) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l01185"></a><span class="lineno"> 1185</span>  <span class="keyword">const</span> <span class="keywordtype">char</span> *encoding = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l01186"></a><span class="lineno"> 1186</span>  Tcl_Obj* <a class="code" href="../../db/d74/zlib_8c.html#a56e97a891edabd14d071def7e678ad7e">path</a> = Tcl_GetStartupScript(&encoding);</div>
<div class="line"><a name="l01187"></a><span class="lineno"> 1187</span>  Tcl_SetStartupScript(Tcl_GetObjResult(interp), encoding);</div>
<div class="line"><a name="l01188"></a><span class="lineno"> 1188</span>  <span class="keywordflow">if</span> (path == <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l01189"></a><span class="lineno"> 1189</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7e05442307639ca746f2560593ca9ca9">Tcl_Eval</a>(interp, <span class="stringliteral">"incr argc -1; set argv [lrange $argv 1 end]"</span>);</div>
<div class="line"><a name="l01190"></a><span class="lineno"> 1190</span>  }</div>
<div class="line"><a name="l01191"></a><span class="lineno"> 1191</span>  }</div>
<div class="line"><a name="l01192"></a><span class="lineno"> 1192</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01193"></a><span class="lineno"> 1193</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l01194"></a><span class="lineno"> 1194</span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l01195"></a><span class="lineno"> 1195</span> }</div>
<div class="line"><a name="l01196"></a><span class="lineno"> 1196</span> </div>
<div class="line"><a name="l01197"></a><span class="lineno"> 1197</span> <span class="comment">/*--------------------------------------------------------*/</span></div>
<div class="line"><a name="l01198"></a><span class="lineno"> 1198</span> </div>
<div class="line"><a name="l01199"></a><span class="lineno"> 1199</span> <span class="preprocessor">#ifdef __WIN32__</span></div>
<div class="line"><a name="l01200"></a><span class="lineno"> 1200</span> <span class="preprocessor"></span><span class="comment">/* #include <tkWinInt.h> */</span><span class="comment">/* conflict definition of struct timezone */</span></div>
<div class="line"><a name="l01201"></a><span class="lineno"> 1201</span> <span class="comment">/* #include <tkIntPlatDecls.h> */</span></div>
<div class="line"><a name="l01202"></a><span class="lineno"> 1202</span> <span class="comment">/* #include <windows.h> */</span></div>
<div class="line"><a name="l01203"></a><span class="lineno"> 1203</span> <a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keywordtype">void</span> TkWinSetHINSTANCE(HINSTANCE hInstance);</div>
<div class="line"><a name="l01204"></a><span class="lineno"> 1204</span> <span class="keywordtype">void</span> rbtk_win32_SetHINSTANCE(<span class="keyword">const</span> <span class="keywordtype">char</span> *module_name)</div>
<div class="line"><a name="l01205"></a><span class="lineno"> 1205</span> {</div>
<div class="line"><a name="l01206"></a><span class="lineno"> 1206</span>  <span class="comment">/* TCHAR szBuf[256]; */</span></div>
<div class="line"><a name="l01207"></a><span class="lineno"> 1207</span>  HINSTANCE hInst;</div>
<div class="line"><a name="l01208"></a><span class="lineno"> 1208</span> </div>
<div class="line"><a name="l01209"></a><span class="lineno"> 1209</span>  <span class="comment">/* hInst = GetModuleHandle(NULL); */</span></div>
<div class="line"><a name="l01210"></a><span class="lineno"> 1210</span>  <span class="comment">/* hInst = GetModuleHandle("tcltklib.so"); */</span></div>
<div class="line"><a name="l01211"></a><span class="lineno"> 1211</span>  hInst = GetModuleHandle(module_name);</div>
<div class="line"><a name="l01212"></a><span class="lineno"> 1212</span>  TkWinSetHINSTANCE(hInst);</div>
<div class="line"><a name="l01213"></a><span class="lineno"> 1213</span> </div>
<div class="line"><a name="l01214"></a><span class="lineno"> 1214</span>  <span class="comment">/* GetModuleFileName(hInst, szBuf, sizeof(szBuf) / sizeof(TCHAR)); */</span></div>
<div class="line"><a name="l01215"></a><span class="lineno"> 1215</span>  <span class="comment">/* MessageBox(NULL, szBuf, TEXT("OK"), MB_OK); */</span></div>
<div class="line"><a name="l01216"></a><span class="lineno"> 1216</span> }</div>
<div class="line"><a name="l01217"></a><span class="lineno"> 1217</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01218"></a><span class="lineno"> 1218</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l01219"></a><span class="lineno"> 1219</span> <span class="comment">/*--------------------------------------------------------*/</span></div>
<div class="line"><a name="l01220"></a><span class="lineno"> 1220</span> </div>
<div class="line"><a name="l01221"></a><span class="lineno"> 1221</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l01222"></a><span class="lineno"> 1222</span> setup_rubytkkit()</div>
<div class="line"><a name="l01223"></a><span class="lineno"> 1223</span> {</div>
<div class="line"><a name="l01224"></a><span class="lineno"> 1224</span>  init_static_tcltk_packages();</div>
<div class="line"><a name="l01225"></a><span class="lineno"> 1225</span> </div>
<div class="line"><a name="l01226"></a><span class="lineno"> 1226</span>  {</div>
<div class="line"><a name="l01227"></a><span class="lineno"> 1227</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> const_id;</div>
<div class="line"><a name="l01228"></a><span class="lineno"> 1228</span>  const_id = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(RUBYTK_KITPATH_CONST_NAME);</div>
<div class="line"><a name="l01229"></a><span class="lineno"> 1229</span> </div>
<div class="line"><a name="l01230"></a><span class="lineno"> 1230</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#afaaee0b4c292ab56ca8acee9fad1242b">rb_const_defined</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a57c96ead3ef230b4838e65fe037c346e">rb_cObject</a>, const_id)) {</div>
<div class="line"><a name="l01231"></a><span class="lineno"> 1231</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> pathobj;</div>
<div class="line"><a name="l01232"></a><span class="lineno"> 1232</span>  pathobj = <a class="code" href="../../db/d2e/intern_8h.html#a17a81c1a7d754e5ab49fc4b4369b6c8c">rb_const_get</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a57c96ead3ef230b4838e65fe037c346e">rb_cObject</a>, const_id);</div>
<div class="line"><a name="l01233"></a><span class="lineno"> 1233</span> </div>
<div class="line"><a name="l01234"></a><span class="lineno"> 1234</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(pathobj, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a7d36c9c3e9faa34c27eb7f2eb9c874a8">rb_cString</a>)) {</div>
<div class="line"><a name="l01235"></a><span class="lineno"> 1235</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l01236"></a><span class="lineno"> 1236</span> <span class="preprocessor"></span> pathobj = <a class="code" href="../../d5/de3/encoding_8h.html#afbc5af6d0519022b74552a42800fb93c">rb_str_export_to_enc</a>(pathobj, <a class="code" href="../../d5/db5/encoding_8c.html#a893004271cf8c790ca40c4712261aa8c">rb_utf8_encoding</a>());</div>
<div class="line"><a name="l01237"></a><span class="lineno"> 1237</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01238"></a><span class="lineno"> 1238</span> <span class="preprocessor"></span> set_rubytk_kitpath(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(pathobj));</div>
<div class="line"><a name="l01239"></a><span class="lineno"> 1239</span>  }</div>
<div class="line"><a name="l01240"></a><span class="lineno"> 1240</span>  }</div>
<div class="line"><a name="l01241"></a><span class="lineno"> 1241</span>  }</div>
<div class="line"><a name="l01242"></a><span class="lineno"> 1242</span> </div>
<div class="line"><a name="l01243"></a><span class="lineno"> 1243</span> <span class="preprocessor">#ifdef CREATE_RUBYTK_KIT</span></div>
<div class="line"><a name="l01244"></a><span class="lineno"> 1244</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (rubytk_kitpath == <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l01245"></a><span class="lineno"> 1245</span> <span class="preprocessor">#ifdef __WIN32__</span></div>
<div class="line"><a name="l01246"></a><span class="lineno"> 1246</span> <span class="preprocessor"></span> <span class="comment">/* rbtk_win32_SetHINSTANCE("tcltklib.so"); */</span></div>
<div class="line"><a name="l01247"></a><span class="lineno"> 1247</span>  {</div>
<div class="line"><a name="l01248"></a><span class="lineno"> 1248</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> basename;</div>
<div class="line"><a name="l01249"></a><span class="lineno"> 1249</span>  basename = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(<a class="code" href="../../d6/d13/file_8c.html#ae9f03997c2e7a3461524e83053a24ac2">rb_cFile</a>, <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"basename"</span>), 1,</div>
<div class="line"><a name="l01250"></a><span class="lineno"> 1250</span>  <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa4f8c9b566fd7fb6873866c423c2016">rb_sourcefile</a>()));</div>
<div class="line"><a name="l01251"></a><span class="lineno"> 1251</span>  rbtk_win32_SetHINSTANCE(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(basename));</div>
<div class="line"><a name="l01252"></a><span class="lineno"> 1252</span>  }</div>
<div class="line"><a name="l01253"></a><span class="lineno"> 1253</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01254"></a><span class="lineno"> 1254</span> <span class="preprocessor"></span> set_rubytk_kitpath(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa4f8c9b566fd7fb6873866c423c2016">rb_sourcefile</a>());</div>
<div class="line"><a name="l01255"></a><span class="lineno"> 1255</span>  }</div>
<div class="line"><a name="l01256"></a><span class="lineno"> 1256</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01257"></a><span class="lineno"> 1257</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l01258"></a><span class="lineno"> 1258</span>  <span class="keywordflow">if</span> (rubytk_kitpath == <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l01259"></a><span class="lineno"> 1259</span>  set_rubytk_kitpath(Tcl_GetNameOfExecutable());</div>
<div class="line"><a name="l01260"></a><span class="lineno"> 1260</span>  }</div>
<div class="line"><a name="l01261"></a><span class="lineno"> 1261</span> </div>
<div class="line"><a name="l01262"></a><span class="lineno"> 1262</span>  TclSetPreInitScript(rubytkkit_preInitCmd);</div>
<div class="line"><a name="l01263"></a><span class="lineno"> 1263</span> }</div>
<div class="line"><a name="l01264"></a><span class="lineno"> 1264</span> </div>
<div class="line"><a name="l01265"></a><span class="lineno"> 1265</span> <span class="comment">/*--------------------------------------------------------*/</span></div>
<div class="line"><a name="l01266"></a><span class="lineno"> 1266</span> </div>
<div class="line"><a name="l01267"></a><span class="lineno"> 1267</span> <span class="preprocessor">#endif </span><span class="comment">/* defined CREATE_RUBYTK_KIT || defined CREATE_RUBYKIT */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01268"></a><span class="lineno"> 1268</span> <span class="preprocessor"></span><span class="comment">/*####################################################################*/</span></div>
<div class="line"><a name="l01269"></a><span class="lineno"> 1269</span> </div>
<div class="line"><a name="l01270"></a><span class="lineno"> 1270</span> </div>
<div class="line"><a name="l01271"></a><span class="lineno"> 1271</span> <span class="comment">/**********************************************************************/</span></div>
<div class="line"><a name="l01272"></a><span class="lineno"> 1272</span> </div>
<div class="line"><a name="l01273"></a><span class="lineno"> 1273</span> <span class="comment">/* stub status */</span></div>
<div class="line"><a name="l01274"></a><span class="lineno"> 1274</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l01275"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abbe469560280c936662242c94a43d994"> 1275</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abbe469560280c936662242c94a43d994">tcl_stubs_check</a>()</div>
<div class="line"><a name="l01276"></a><span class="lineno"> 1276</span> {</div>
<div class="line"><a name="l01277"></a><span class="lineno"> 1277</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d30/stubs_8c.html#a361dff396d424781b5c982f6232afbef">tcl_stubs_init_p</a>()) {</div>
<div class="line"><a name="l01278"></a><span class="lineno"> 1278</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d30/stubs_8c.html#aea32fce8225a6281c3c202679698afbf">st</a> = <a class="code" href="../../d5/d30/stubs_8c.html#a5781553460d704ea29c0b5065ba79f77">ruby_tcl_stubs_init</a>();</div>
<div class="line"><a name="l01279"></a><span class="lineno"> 1279</span>  <span class="keywordflow">switch</span>(st) {</div>
<div class="line"><a name="l01280"></a><span class="lineno"> 1280</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d30/stubs_8c.html#a80b5499187083d23168d4b13624321fd">TCLTK_STUBS_OK</a>:</div>
<div class="line"><a name="l01281"></a><span class="lineno"> 1281</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l01282"></a><span class="lineno"> 1282</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#a2bfee19ebfc13a427b688890d5961237">NO_TCL_DLL</a>:</div>
<div class="line"><a name="l01283"></a><span class="lineno"> 1283</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a5485df8856b8fa33d9d378afdabc9d29">rb_eLoadError</a>, <span class="stringliteral">"tcltklib: fail to open tcl_dll"</span>);</div>
<div class="line"><a name="l01284"></a><span class="lineno"> 1284</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#aab732e347dd4377ec8d7050f4ca962c8">NO_FindExecutable</a>:</div>
<div class="line"><a name="l01285"></a><span class="lineno"> 1285</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a5485df8856b8fa33d9d378afdabc9d29">rb_eLoadError</a>, <span class="stringliteral">"tcltklib: can't find Tcl_FindExecutable"</span>);</div>
<div class="line"><a name="l01286"></a><span class="lineno"> 1286</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#a815f08a2a84f02d232dc45d1e1294f23">NO_CreateInterp</a>:</div>
<div class="line"><a name="l01287"></a><span class="lineno"> 1287</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a5485df8856b8fa33d9d378afdabc9d29">rb_eLoadError</a>, <span class="stringliteral">"tcltklib: can't find Tcl_CreateInterp()"</span>);</div>
<div class="line"><a name="l01288"></a><span class="lineno"> 1288</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#aefad2a7b6d1e554c35033cda7b1b9203">NO_DeleteInterp</a>:</div>
<div class="line"><a name="l01289"></a><span class="lineno"> 1289</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a5485df8856b8fa33d9d378afdabc9d29">rb_eLoadError</a>, <span class="stringliteral">"tcltklib: can't find Tcl_DeleteInterp()"</span>);</div>
<div class="line"><a name="l01290"></a><span class="lineno"> 1290</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#af2b283a1e13865526422ef60bf997020">FAIL_CreateInterp</a>:</div>
<div class="line"><a name="l01291"></a><span class="lineno"> 1291</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"tcltklib: fail to create a new IP to call Tcl_InitStubs()"</span>);</div>
<div class="line"><a name="l01292"></a><span class="lineno"> 1292</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#a5607246c06be9287bbac76b52db313e2">FAIL_Tcl_InitStubs</a>:</div>
<div class="line"><a name="l01293"></a><span class="lineno"> 1293</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"tcltklib: fail to Tcl_InitStubs()"</span>);</div>
<div class="line"><a name="l01294"></a><span class="lineno"> 1294</span>  <span class="keywordflow">default</span>:</div>
<div class="line"><a name="l01295"></a><span class="lineno"> 1295</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"tcltklib: unknown error(%d) on ruby_tcl_stubs_init()"</span>, st);</div>
<div class="line"><a name="l01296"></a><span class="lineno"> 1296</span>  }</div>
<div class="line"><a name="l01297"></a><span class="lineno"> 1297</span>  }</div>
<div class="line"><a name="l01298"></a><span class="lineno"> 1298</span> }</div>
<div class="line"><a name="l01299"></a><span class="lineno"> 1299</span> </div>
<div class="line"><a name="l01300"></a><span class="lineno"> 1300</span> </div>
<div class="line"><a name="l01301"></a><span class="lineno"> 1301</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01302"></a><span class="lineno"> 1302</span> tcltkip_init_tk(interp)</div>
<div class="line"><a name="l01303"></a><span class="lineno"> 1303</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l01304"></a><span class="lineno"> 1304</span> {</div>
<div class="line"><a name="l01305"></a><span class="lineno"> 1305</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(interp);</div>
<div class="line"><a name="l01306"></a><span class="lineno"> 1306</span> </div>
<div class="line"><a name="l01307"></a><span class="lineno"> 1307</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l01308"></a><span class="lineno"> 1308</span> <span class="preprocessor"></span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d30/stubs_8c.html#aea32fce8225a6281c3c202679698afbf">st</a>;</div>
<div class="line"><a name="l01309"></a><span class="lineno"> 1309</span> </div>
<div class="line"><a name="l01310"></a><span class="lineno"> 1310</span>  <span class="keywordflow">if</span> (Tcl_IsSafe(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>)) {</div>
<div class="line"><a name="l01311"></a><span class="lineno"> 1311</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tk_SafeInit"</span>);</div>
<div class="line"><a name="l01312"></a><span class="lineno"> 1312</span>  st = <a class="code" href="../../df/d55/stubs_8h.html#acb8354c92b04be556caf21ec9f30111f">ruby_tk_stubs_safeinit</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l01313"></a><span class="lineno"> 1313</span>  <span class="keywordflow">switch</span>(st) {</div>
<div class="line"><a name="l01314"></a><span class="lineno"> 1314</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d30/stubs_8c.html#a80b5499187083d23168d4b13624321fd">TCLTK_STUBS_OK</a>:</div>
<div class="line"><a name="l01315"></a><span class="lineno"> 1315</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l01316"></a><span class="lineno"> 1316</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#aaf429ac3fbd9191085b66c22c63e869e">NO_Tk_Init</a>:</div>
<div class="line"><a name="l01317"></a><span class="lineno"> 1317</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a5485df8856b8fa33d9d378afdabc9d29">rb_eLoadError</a>,</div>
<div class="line"><a name="l01318"></a><span class="lineno"> 1318</span>  <span class="stringliteral">"tcltklib: can't find Tk_SafeInit()"</span>);</div>
<div class="line"><a name="l01319"></a><span class="lineno"> 1319</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#a8736abb7ee38251506e1f2cb9c35cef8">FAIL_Tk_Init</a>:</div>
<div class="line"><a name="l01320"></a><span class="lineno"> 1320</span>  <span class="keywordflow">return</span> create_ip_exc(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l01321"></a><span class="lineno"> 1321</span>  <span class="stringliteral">"tcltklib: fail to Tk_SafeInit(). %s"</span>,</div>
<div class="line"><a name="l01322"></a><span class="lineno"> 1322</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l01323"></a><span class="lineno"> 1323</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#ab944980ed6509b34cff71e2997200d30">FAIL_Tk_InitStubs</a>:</div>
<div class="line"><a name="l01324"></a><span class="lineno"> 1324</span>  <span class="keywordflow">return</span> create_ip_exc(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l01325"></a><span class="lineno"> 1325</span>  <span class="stringliteral">"tcltklib: fail to Tk_InitStubs(). %s"</span>,</div>
<div class="line"><a name="l01326"></a><span class="lineno"> 1326</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l01327"></a><span class="lineno"> 1327</span>  <span class="keywordflow">default</span>:</div>
<div class="line"><a name="l01328"></a><span class="lineno"> 1328</span>  <span class="keywordflow">return</span> create_ip_exc(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l01329"></a><span class="lineno"> 1329</span>  <span class="stringliteral">"tcltklib: unknown error(%d) on ruby_tk_stubs_safeinit"</span>, st);</div>
<div class="line"><a name="l01330"></a><span class="lineno"> 1330</span>  }</div>
<div class="line"><a name="l01331"></a><span class="lineno"> 1331</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l01332"></a><span class="lineno"> 1332</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tk_Init"</span>);</div>
<div class="line"><a name="l01333"></a><span class="lineno"> 1333</span>  st = <a class="code" href="../../df/d55/stubs_8h.html#a6239fdfa9623bc5033a49b3736849093">ruby_tk_stubs_init</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l01334"></a><span class="lineno"> 1334</span>  <span class="keywordflow">switch</span>(st) {</div>
<div class="line"><a name="l01335"></a><span class="lineno"> 1335</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d30/stubs_8c.html#a80b5499187083d23168d4b13624321fd">TCLTK_STUBS_OK</a>:</div>
<div class="line"><a name="l01336"></a><span class="lineno"> 1336</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l01337"></a><span class="lineno"> 1337</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#aaf429ac3fbd9191085b66c22c63e869e">NO_Tk_Init</a>:</div>
<div class="line"><a name="l01338"></a><span class="lineno"> 1338</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a5485df8856b8fa33d9d378afdabc9d29">rb_eLoadError</a>,</div>
<div class="line"><a name="l01339"></a><span class="lineno"> 1339</span>  <span class="stringliteral">"tcltklib: can't find Tk_Init()"</span>);</div>
<div class="line"><a name="l01340"></a><span class="lineno"> 1340</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#a8736abb7ee38251506e1f2cb9c35cef8">FAIL_Tk_Init</a>:</div>
<div class="line"><a name="l01341"></a><span class="lineno"> 1341</span>  <span class="keywordflow">return</span> create_ip_exc(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l01342"></a><span class="lineno"> 1342</span>  <span class="stringliteral">"tcltklib: fail to Tk_Init(). %s"</span>,</div>
<div class="line"><a name="l01343"></a><span class="lineno"> 1343</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l01344"></a><span class="lineno"> 1344</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#ab944980ed6509b34cff71e2997200d30">FAIL_Tk_InitStubs</a>:</div>
<div class="line"><a name="l01345"></a><span class="lineno"> 1345</span>  <span class="keywordflow">return</span> create_ip_exc(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l01346"></a><span class="lineno"> 1346</span>  <span class="stringliteral">"tcltklib: fail to Tk_InitStubs(). %s"</span>,</div>
<div class="line"><a name="l01347"></a><span class="lineno"> 1347</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l01348"></a><span class="lineno"> 1348</span>  <span class="keywordflow">default</span>:</div>
<div class="line"><a name="l01349"></a><span class="lineno"> 1349</span>  <span class="keywordflow">return</span> create_ip_exc(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l01350"></a><span class="lineno"> 1350</span>  <span class="stringliteral">"tcltklib: unknown error(%d) on ruby_tk_stubs_init"</span>, st);</div>
<div class="line"><a name="l01351"></a><span class="lineno"> 1351</span>  }</div>
<div class="line"><a name="l01352"></a><span class="lineno"> 1352</span>  }</div>
<div class="line"><a name="l01353"></a><span class="lineno"> 1353</span> </div>
<div class="line"><a name="l01354"></a><span class="lineno"> 1354</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01355"></a><span class="lineno"> 1355</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tk_Init"</span>);</div>
<div class="line"><a name="l01356"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6012b7d8ce5c750392b000535f0c264f"> 1356</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d55/stubs_8h.html#a6239fdfa9623bc5033a49b3736849093">ruby_tk_stubs_init</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) != <a class="code" href="../../d5/d30/stubs_8c.html#a80b5499187083d23168d4b13624321fd">TCLTK_STUBS_OK</a>) {</div>
<div class="line"><a name="l01357"></a><span class="lineno"> 1357</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>->result);</div>
<div class="line"><a name="l01358"></a><span class="lineno"> 1358</span>  }</div>
<div class="line"><a name="l01359"></a><span class="lineno"> 1359</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01360"></a><span class="lineno"> 1360</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l01361"></a><span class="lineno"> 1361</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l01362"></a><span class="lineno"> 1362</span> <span class="preprocessor"></span> ptr->tk_thread_id = Tcl_GetCurrentThread();</div>
<div class="line"><a name="l01363"></a><span class="lineno"> 1363</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01364"></a><span class="lineno"> 1364</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l01365"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a951c0ac0eb3744c19168be7d33097b11"> 1365</a></span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l01366"></a><span class="lineno"> 1366</span> }</div>
<div class="line"><a name="l01367"></a><span class="lineno"> 1367</span> </div>
<div class="line"><a name="l01368"></a><span class="lineno"> 1368</span> </div>
<div class="line"><a name="l01369"></a><span class="lineno"> 1369</span> <span class="comment">/* treat excetiopn on Tcl side */</span></div>
<div class="line"><a name="l01370"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1"> 1370</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>;</div>
<div class="line"><a name="l01371"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31"> 1371</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a> = 0;</div>
<div class="line"><a name="l01372"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5a8aea48ba7305a384fdd8f56ca97d73"> 1372</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5a8aea48ba7305a384fdd8f56ca97d73">rbtk_internal_eventloop_handler</a> = 0;</div>
<div class="line"><a name="l01373"></a><span class="lineno"> 1373</span> </div>
<div class="line"><a name="l01374"></a><span class="lineno"> 1374</span> </div>
<div class="line"><a name="l01375"></a><span class="lineno"> 1375</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l01376"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af98c87d8044c5fd2c6bcd541cbc2c649"> 1376</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af98c87d8044c5fd2c6bcd541cbc2c649">pending_exception_check0</a>()</div>
<div class="line"><a name="l01377"></a><span class="lineno"> 1377</span> {</div>
<div class="line"><a name="l01378"></a><span class="lineno"> 1378</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>;</div>
<div class="line"><a name="l01379"></a><span class="lineno"> 1379</span> </div>
<div class="line"><a name="l01380"></a><span class="lineno"> 1380</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(exc) && <a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(exc, <a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>)) {</div>
<div class="line"><a name="l01381"></a><span class="lineno"> 1381</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"find a pending exception"</span>);</div>
<div class="line"><a name="l01382"></a><span class="lineno"> 1382</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a> > 0</div>
<div class="line"><a name="l01383"></a><span class="lineno"> 1383</span>  || <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5a8aea48ba7305a384fdd8f56ca97d73">rbtk_internal_eventloop_handler</a> > 0</div>
<div class="line"><a name="l01384"></a><span class="lineno"> 1384</span>  ) {</div>
<div class="line"><a name="l01385"></a><span class="lineno"> 1385</span>  <span class="keywordflow">return</span> 1; <span class="comment">/* pending */</span></div>
<div class="line"><a name="l01386"></a><span class="lineno"> 1386</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l01387"></a><span class="lineno"> 1387</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l01388"></a><span class="lineno"> 1388</span> </div>
<div class="line"><a name="l01389"></a><span class="lineno"> 1389</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(exc, eTkCallbackRetry)) {</div>
<div class="line"><a name="l01390"></a><span class="lineno"> 1390</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"pending_exception_check0: call rb_jump_tag(retry)"</span>);</div>
<div class="line"><a name="l01391"></a><span class="lineno"> 1391</span>  <a class="code" href="../../d3/d57/eval_8c.html#ae48d70c45901eab8b89fb181fc9d1f3b">rb_jump_tag</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a277f73abdf66e83f4fc75b93d6e87b72">TAG_RETRY</a>);</div>
<div class="line"><a name="l01392"></a><span class="lineno"> 1392</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(exc, eTkCallbackRedo)) {</div>
<div class="line"><a name="l01393"></a><span class="lineno"> 1393</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"pending_exception_check0: call rb_jump_tag(redo)"</span>);</div>
<div class="line"><a name="l01394"></a><span class="lineno"> 1394</span>  <a class="code" href="../../d3/d57/eval_8c.html#ae48d70c45901eab8b89fb181fc9d1f3b">rb_jump_tag</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a82e8bb282a1d35fcc453335b090bd4a7">TAG_REDO</a>);</div>
<div class="line"><a name="l01395"></a><span class="lineno"> 1395</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(exc, eTkCallbackThrow)) {</div>
<div class="line"><a name="l01396"></a><span class="lineno"> 1396</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"pending_exception_check0: call rb_jump_tag(throw)"</span>);</div>
<div class="line"><a name="l01397"></a><span class="lineno"> 1397</span>  <a class="code" href="../../d3/d57/eval_8c.html#ae48d70c45901eab8b89fb181fc9d1f3b">rb_jump_tag</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6d3b7d4da36f7b664c2065f918eb541f">TAG_THROW</a>);</div>
<div class="line"><a name="l01398"></a><span class="lineno"> 1398</span>  }</div>
<div class="line"><a name="l01399"></a><span class="lineno"> 1399</span> </div>
<div class="line"><a name="l01400"></a><span class="lineno"> 1400</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(exc);</div>
<div class="line"><a name="l01401"></a><span class="lineno"> 1401</span>  }</div>
<div class="line"><a name="l01402"></a><span class="lineno"> 1402</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l01403"></a><span class="lineno"> 1403</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l01404"></a><span class="lineno"> 1404</span>  }</div>
<div class="line"><a name="l01405"></a><span class="lineno"> 1405</span> }</div>
<div class="line"><a name="l01406"></a><span class="lineno"> 1406</span> </div>
<div class="line"><a name="l01407"></a><span class="lineno"> 1407</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l01408"></a><span class="lineno"> 1408</span> pending_exception_check1(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>, ptr)</div>
<div class="line"><a name="l01409"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852"> 1409</a></span>  int <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l01410"></a><span class="lineno"> 1410</span>  struct <a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div>
<div class="line"><a name="l01411"></a><span class="lineno"> 1411</span> {</div>
<div class="line"><a name="l01412"></a><span class="lineno"> 1412</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>;</div>
<div class="line"><a name="l01413"></a><span class="lineno"> 1413</span> </div>
<div class="line"><a name="l01414"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#acbb23b01368b6bb8f0cdd8c845416a06"> 1414</a></span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(exc) && <a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(exc, <a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>)) {</div>
<div class="line"><a name="l01415"></a><span class="lineno"> 1415</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"find a pending exception"</span>);</div>
<div class="line"><a name="l01416"></a><span class="lineno"> 1416</span> </div>
<div class="line"><a name="l01417"></a><span class="lineno"> 1417</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a> > 0</div>
<div class="line"><a name="l01418"></a><span class="lineno"> 1418</span>  || <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5a8aea48ba7305a384fdd8f56ca97d73">rbtk_internal_eventloop_handler</a> > 0</div>
<div class="line"><a name="l01419"></a><span class="lineno"> 1419</span>  ) {</div>
<div class="line"><a name="l01420"></a><span class="lineno"> 1420</span>  <span class="keywordflow">return</span> 1; <span class="comment">/* pending */</span></div>
<div class="line"><a name="l01421"></a><span class="lineno"> 1421</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l01422"></a><span class="lineno"> 1422</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l01423"></a><span class="lineno"> 1423</span> </div>
<div class="line"><a name="l01424"></a><span class="lineno"> 1424</span>  <span class="keywordflow">if</span> (ptr != (<span class="keyword">struct</span> <a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l01425"></a><span class="lineno"> 1425</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div>
<div class="line"><a name="l01426"></a><span class="lineno"> 1426</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l01427"></a><span class="lineno"> 1427</span>  }</div>
<div class="line"><a name="l01428"></a><span class="lineno"> 1428</span> </div>
<div class="line"><a name="l01429"></a><span class="lineno"> 1429</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l01430"></a><span class="lineno"> 1430</span> </div>
<div class="line"><a name="l01431"></a><span class="lineno"> 1431</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(exc, eTkCallbackRetry)) {</div>
<div class="line"><a name="l01432"></a><span class="lineno"> 1432</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"pending_exception_check1: call rb_jump_tag(retry)"</span>);</div>
<div class="line"><a name="l01433"></a><span class="lineno"> 1433</span>  <a class="code" href="../../d3/d57/eval_8c.html#ae48d70c45901eab8b89fb181fc9d1f3b">rb_jump_tag</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a277f73abdf66e83f4fc75b93d6e87b72">TAG_RETRY</a>);</div>
<div class="line"><a name="l01434"></a><span class="lineno"> 1434</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(exc, eTkCallbackRedo)) {</div>
<div class="line"><a name="l01435"></a><span class="lineno"> 1435</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"pending_exception_check1: call rb_jump_tag(redo)"</span>);</div>
<div class="line"><a name="l01436"></a><span class="lineno"> 1436</span>  <a class="code" href="../../d3/d57/eval_8c.html#ae48d70c45901eab8b89fb181fc9d1f3b">rb_jump_tag</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a82e8bb282a1d35fcc453335b090bd4a7">TAG_REDO</a>);</div>
<div class="line"><a name="l01437"></a><span class="lineno"> 1437</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(exc, eTkCallbackThrow)) {</div>
<div class="line"><a name="l01438"></a><span class="lineno"> 1438</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"pending_exception_check1: call rb_jump_tag(throw)"</span>);</div>
<div class="line"><a name="l01439"></a><span class="lineno"> 1439</span>  <a class="code" href="../../d3/d57/eval_8c.html#ae48d70c45901eab8b89fb181fc9d1f3b">rb_jump_tag</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6d3b7d4da36f7b664c2065f918eb541f">TAG_THROW</a>);</div>
<div class="line"><a name="l01440"></a><span class="lineno"> 1440</span>  }</div>
<div class="line"><a name="l01441"></a><span class="lineno"> 1441</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(exc);</div>
<div class="line"><a name="l01442"></a><span class="lineno"> 1442</span>  }</div>
<div class="line"><a name="l01443"></a><span class="lineno"> 1443</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l01444"></a><span class="lineno"> 1444</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l01445"></a><span class="lineno"> 1445</span>  }</div>
<div class="line"><a name="l01446"></a><span class="lineno"> 1446</span> }</div>
<div class="line"><a name="l01447"></a><span class="lineno"> 1447</span> </div>
<div class="line"><a name="l01448"></a><span class="lineno"> 1448</span> </div>
<div class="line"><a name="l01449"></a><span class="lineno"> 1449</span> <span class="comment">/* call original 'exit' command */</span></div>
<div class="line"><a name="l01450"></a><span class="lineno"> 1450</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l01451"></a><span class="lineno"> 1451</span> call_original_exit(ptr, <a class="code" href="../../d5/d1d/gb18030_8c.html#a89f234133d3efe315836311cbf21c64b">state</a>)</div>
<div class="line"><a name="l01452"></a><span class="lineno"> 1452</span>  struct <a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div>
<div class="line"><a name="l01453"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a89f234133d3efe315836311cbf21c64b"> 1453</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d1d/gb18030_8c.html#a89f234133d3efe315836311cbf21c64b">state</a>;</div>
<div class="line"><a name="l01454"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0519a447ec4809b051ea38b41c4012a6"> 1454</a></span> {</div>
<div class="line"><a name="l01455"></a><span class="lineno"> 1455</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l01456"></a><span class="lineno"> 1456</span>  Tcl_CmdInfo *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0519a447ec4809b051ea38b41c4012a6">info</a>;</div>
<div class="line"><a name="l01457"></a><span class="lineno"> 1457</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l01458"></a><span class="lineno"> 1458</span> <span class="preprocessor"></span> Tcl_Obj *cmd_obj;</div>
<div class="line"><a name="l01459"></a><span class="lineno"> 1459</span>  Tcl_Obj *state_obj;</div>
<div class="line"><a name="l01460"></a><span class="lineno"> 1460</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01461"></a><span class="lineno"> 1461</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"original_exit is called"</span>);</div>
<div class="line"><a name="l01462"></a><span class="lineno"> 1462</span> </div>
<div class="line"><a name="l01463"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9396a6f41c126e12eed9a3bed34dae19"> 1463</a></span>  <span class="keywordflow">if</span> (!(ptr->has_orig_exit)) <span class="keywordflow">return</span>;</div>
<div class="line"><a name="l01464"></a><span class="lineno"> 1464</span> </div>
<div class="line"><a name="l01465"></a><span class="lineno"> 1465</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l01466"></a><span class="lineno"> 1466</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l01467"></a><span class="lineno"> 1467</span> </div>
<div class="line"><a name="l01468"></a><span class="lineno"> 1468</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(ptr->ip);</div>
<div class="line"><a name="l01469"></a><span class="lineno"> 1469</span> </div>
<div class="line"><a name="l01470"></a><span class="lineno"> 1470</span>  info = &(ptr->orig_exit_info);</div>
<div class="line"><a name="l01471"></a><span class="lineno"> 1471</span> </div>
<div class="line"><a name="l01472"></a><span class="lineno"> 1472</span>  <span class="comment">/* memory allocation for arguments of this command */</span></div>
<div class="line"><a name="l01473"></a><span class="lineno"> 1473</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l01474"></a><span class="lineno"> 1474</span> <span class="preprocessor"></span> state_obj = Tcl_NewIntObj(state);</div>
<div class="line"><a name="l01475"></a><span class="lineno"> 1475</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(state_obj);</div>
<div class="line"><a name="l01476"></a><span class="lineno"> 1476</span> </div>
<div class="line"><a name="l01477"></a><span class="lineno"> 1477</span>  <span class="keywordflow">if</span> (info->isNativeObjectProc) {</div>
<div class="line"><a name="l01478"></a><span class="lineno"> 1478</span>  Tcl_Obj **<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab9ebbdd4596789afb752d19fca153ee5">argv</a>;</div>
<div class="line"><a name="l01479"></a><span class="lineno"> 1479</span> <span class="preprocessor">#define USE_RUBY_ALLOC 0</span></div>
<div class="line"><a name="l01480"></a><span class="lineno"> 1480</span> <span class="preprocessor"></span><span class="preprocessor">#if USE_RUBY_ALLOC</span></div>
<div class="line"><a name="l01481"></a><span class="lineno"> 1481</span> <span class="preprocessor"></span> argv = (Tcl_Obj **)<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a79041aa2bc7439c11906a86f82a52eb6">ALLOC_N</a>(Tcl_Obj *, 3);</div>
<div class="line"><a name="l01482"></a><span class="lineno"> 1482</span> <span class="preprocessor">#else </span><span class="comment">/* not USE_RUBY_ALLOC */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01483"></a><span class="lineno"> 1483</span> <span class="preprocessor"></span> argv = (Tcl_Obj **)ckalloc(<span class="keyword">sizeof</span>(Tcl_Obj *) * 3);</div>
<div class="line"><a name="l01484"></a><span class="lineno"> 1484</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01485"></a><span class="lineno"> 1485</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)argv); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l01486"></a><span class="lineno"> 1486</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01487"></a><span class="lineno"> 1487</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01488"></a><span class="lineno"> 1488</span> <span class="preprocessor"></span> cmd_obj = Tcl_NewStringObj(<span class="stringliteral">"exit"</span>, 4);</div>
<div class="line"><a name="l01489"></a><span class="lineno"> 1489</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(cmd_obj);</div>
<div class="line"><a name="l01490"></a><span class="lineno"> 1490</span> </div>
<div class="line"><a name="l01491"></a><span class="lineno"> 1491</span>  argv[0] = cmd_obj;</div>
<div class="line"><a name="l01492"></a><span class="lineno"> 1492</span>  argv[1] = state_obj;</div>
<div class="line"><a name="l01493"></a><span class="lineno"> 1493</span>  argv[2] = (Tcl_Obj *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l01494"></a><span class="lineno"> 1494</span> </div>
<div class="line"><a name="l01495"></a><span class="lineno"> 1495</span>  ptr->return_value</div>
<div class="line"><a name="l01496"></a><span class="lineno"> 1496</span>  = (*(info->objProc))(info->objClientData, ptr->ip, 2, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab9ebbdd4596789afb752d19fca153ee5">argv</a>);</div>
<div class="line"><a name="l01497"></a><span class="lineno"> 1497</span> </div>
<div class="line"><a name="l01498"></a><span class="lineno"> 1498</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(cmd_obj);</div>
<div class="line"><a name="l01499"></a><span class="lineno"> 1499</span> </div>
<div class="line"><a name="l01500"></a><span class="lineno"> 1500</span> <span class="preprocessor">#if USE_RUBY_ALLOC</span></div>
<div class="line"><a name="l01501"></a><span class="lineno"> 1501</span> <span class="preprocessor"></span> <a class="code" href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a>(argv);</div>
<div class="line"><a name="l01502"></a><span class="lineno"> 1502</span> <span class="preprocessor">#else </span><span class="comment">/* not USE_RUBY_ALLOC */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01503"></a><span class="lineno"> 1503</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01504"></a><span class="lineno"> 1504</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)argv, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l01505"></a><span class="lineno"> 1505</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l01506"></a><span class="lineno"> 1506</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01507"></a><span class="lineno"> 1507</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)argv); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l01508"></a><span class="lineno"> 1508</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l01509"></a><span class="lineno"> 1509</span> <span class="preprocessor"></span> <span class="comment">/* free(argv); */</span></div>
<div class="line"><a name="l01510"></a><span class="lineno"> 1510</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span>*)argv);</div>
<div class="line"><a name="l01511"></a><span class="lineno"> 1511</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01512"></a><span class="lineno"> 1512</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01513"></a><span class="lineno"> 1513</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01514"></a><span class="lineno"> 1514</span> <span class="preprocessor"></span><span class="preprocessor">#undef USE_RUBY_ALLOC</span></div>
<div class="line"><a name="l01515"></a><span class="lineno"> 1515</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l01516"></a><span class="lineno"> 1516</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l01517"></a><span class="lineno"> 1517</span>  <span class="comment">/* string interface */</span></div>
<div class="line"><a name="l01518"></a><span class="lineno"> 1518</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> **<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab9ebbdd4596789afb752d19fca153ee5">argv</a>;</div>
<div class="line"><a name="l01519"></a><span class="lineno"> 1519</span> <span class="preprocessor">#define USE_RUBY_ALLOC 0</span></div>
<div class="line"><a name="l01520"></a><span class="lineno"> 1520</span> <span class="preprocessor"></span><span class="preprocessor">#if USE_RUBY_ALLOC</span></div>
<div class="line"><a name="l01521"></a><span class="lineno"> 1521</span> <span class="preprocessor"></span> argv = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a79041aa2bc7439c11906a86f82a52eb6">ALLOC_N</a>(<span class="keywordtype">char</span> *, 3); <span class="comment">/* XXXXXXXXXX */</span></div>
<div class="line"><a name="l01522"></a><span class="lineno"> 1522</span> <span class="preprocessor">#else </span><span class="comment">/* not USE_RUBY_ALLOC */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01523"></a><span class="lineno"> 1523</span> <span class="preprocessor"></span> argv = (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> **)ckalloc(<span class="keyword">sizeof</span>(<span class="keywordtype">char</span> *) * 3);</div>
<div class="line"><a name="l01524"></a><span class="lineno"> 1524</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01525"></a><span class="lineno"> 1525</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)argv); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l01526"></a><span class="lineno"> 1526</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01527"></a><span class="lineno"> 1527</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01528"></a><span class="lineno"> 1528</span> <span class="preprocessor"></span> argv[0] = (<span class="keywordtype">char</span> *)<span class="stringliteral">"exit"</span>;</div>
<div class="line"><a name="l01529"></a><span class="lineno"> 1529</span>  <span class="comment">/* argv[1] = Tcl_GetString(state_obj); */</span></div>
<div class="line"><a name="l01530"></a><span class="lineno"> 1530</span>  argv[1] = Tcl_GetStringFromObj(state_obj, (<span class="keywordtype">int</span>*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l01531"></a><span class="lineno"> 1531</span>  argv[2] = (<span class="keywordtype">char</span> *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l01532"></a><span class="lineno"> 1532</span> </div>
<div class="line"><a name="l01533"></a><span class="lineno"> 1533</span>  ptr->return_value = (*(info->proc))(info->clientData, ptr->ip, 2, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab9ebbdd4596789afb752d19fca153ee5">argv</a>);</div>
<div class="line"><a name="l01534"></a><span class="lineno"> 1534</span> </div>
<div class="line"><a name="l01535"></a><span class="lineno"> 1535</span> <span class="preprocessor">#if USE_RUBY_ALLOC</span></div>
<div class="line"><a name="l01536"></a><span class="lineno"> 1536</span> <span class="preprocessor"></span> <a class="code" href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a>(argv);</div>
<div class="line"><a name="l01537"></a><span class="lineno"> 1537</span> <span class="preprocessor">#else </span><span class="comment">/* not USE_RUBY_ALLOC */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01538"></a><span class="lineno"> 1538</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01539"></a><span class="lineno"> 1539</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)argv, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l01540"></a><span class="lineno"> 1540</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l01541"></a><span class="lineno"> 1541</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01542"></a><span class="lineno"> 1542</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)argv); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l01543"></a><span class="lineno"> 1543</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l01544"></a><span class="lineno"> 1544</span> <span class="preprocessor"></span> <span class="comment">/* free(argv); */</span></div>
<div class="line"><a name="l01545"></a><span class="lineno"> 1545</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span>*)argv);</div>
<div class="line"><a name="l01546"></a><span class="lineno"> 1546</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01547"></a><span class="lineno"> 1547</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01548"></a><span class="lineno"> 1548</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01549"></a><span class="lineno"> 1549</span> <span class="preprocessor"></span><span class="preprocessor">#undef USE_RUBY_ALLOC</span></div>
<div class="line"><a name="l01550"></a><span class="lineno"> 1550</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l01551"></a><span class="lineno"> 1551</span> </div>
<div class="line"><a name="l01552"></a><span class="lineno"> 1552</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(state_obj);</div>
<div class="line"><a name="l01553"></a><span class="lineno"> 1553</span> </div>
<div class="line"><a name="l01554"></a><span class="lineno"> 1554</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01555"></a><span class="lineno"> 1555</span> <span class="preprocessor"></span> {</div>
<div class="line"><a name="l01556"></a><span class="lineno"> 1556</span>  <span class="comment">/* string interface */</span></div>
<div class="line"><a name="l01557"></a><span class="lineno"> 1557</span>  <span class="keywordtype">char</span> **<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab9ebbdd4596789afb752d19fca153ee5">argv</a>;</div>
<div class="line"><a name="l01558"></a><span class="lineno"> 1558</span> <span class="preprocessor">#define USE_RUBY_ALLOC 0</span></div>
<div class="line"><a name="l01559"></a><span class="lineno"> 1559</span> <span class="preprocessor"></span><span class="preprocessor">#if USE_RUBY_ALLOC</span></div>
<div class="line"><a name="l01560"></a><span class="lineno"> 1560</span> <span class="preprocessor"></span> argv = (<span class="keywordtype">char</span> **)<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a79041aa2bc7439c11906a86f82a52eb6">ALLOC_N</a>(<span class="keywordtype">char</span> *, 3);</div>
<div class="line"><a name="l01561"></a><span class="lineno"> 1561</span> <span class="preprocessor">#else </span><span class="comment">/* not USE_RUBY_ALLOC */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01562"></a><span class="lineno"> 1562</span> <span class="preprocessor"></span> argv = (<span class="keywordtype">char</span> **)ckalloc(<span class="keyword">sizeof</span>(<span class="keywordtype">char</span> *) * 3);</div>
<div class="line"><a name="l01563"></a><span class="lineno"> 1563</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01564"></a><span class="lineno"> 1564</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)argv); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l01565"></a><span class="lineno"> 1565</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01566"></a><span class="lineno"> 1566</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01567"></a><span class="lineno"> 1567</span> <span class="preprocessor"></span> argv[0] = <span class="stringliteral">"exit"</span>;</div>
<div class="line"><a name="l01568"></a><span class="lineno"> 1568</span>  argv[1] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(<a class="code" href="../../db/d2e/intern_8h.html#a514248a396e8910d80016bc5d3785a81">rb_fix2str</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aca9f83a35416ed9d6e0b860afa5eaf0f">INT2NUM</a>(state), 10));</div>
<div class="line"><a name="l01569"></a><span class="lineno"> 1569</span>  argv[2] = (<span class="keywordtype">char</span> *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l01570"></a><span class="lineno"> 1570</span> </div>
<div class="line"><a name="l01571"></a><span class="lineno"> 1571</span>  ptr->return_value = (*(info->proc))(info->clientData, ptr->ip,</div>
<div class="line"><a name="l01572"></a><span class="lineno"> 1572</span>  2, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab9ebbdd4596789afb752d19fca153ee5">argv</a>);</div>
<div class="line"><a name="l01573"></a><span class="lineno"> 1573</span> </div>
<div class="line"><a name="l01574"></a><span class="lineno"> 1574</span> <span class="preprocessor">#if USE_RUBY_ALLOC</span></div>
<div class="line"><a name="l01575"></a><span class="lineno"> 1575</span> <span class="preprocessor"></span> <a class="code" href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a>(argv);</div>
<div class="line"><a name="l01576"></a><span class="lineno"> 1576</span> <span class="preprocessor">#else </span><span class="comment">/* not USE_RUBY_ALLOC */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01577"></a><span class="lineno"> 1577</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01578"></a><span class="lineno"> 1578</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)argv, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l01579"></a><span class="lineno"> 1579</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l01580"></a><span class="lineno"> 1580</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01581"></a><span class="lineno"> 1581</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)argv); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l01582"></a><span class="lineno"> 1582</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l01583"></a><span class="lineno"> 1583</span> <span class="preprocessor"></span> <span class="comment">/* free(argv); */</span></div>
<div class="line"><a name="l01584"></a><span class="lineno"> 1584</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>(argv);</div>
<div class="line"><a name="l01585"></a><span class="lineno"> 1585</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01586"></a><span class="lineno"> 1586</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01587"></a><span class="lineno"> 1587</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01588"></a><span class="lineno"> 1588</span> <span class="preprocessor"></span><span class="preprocessor">#undef USE_RUBY_ALLOC</span></div>
<div class="line"><a name="l01589"></a><span class="lineno"> 1589</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l01590"></a><span class="lineno"> 1590</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01591"></a><span class="lineno"> 1591</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"complete original_exit"</span>);</div>
<div class="line"><a name="l01592"></a><span class="lineno"> 1592</span> </div>
<div class="line"><a name="l01593"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404"> 1593</a></span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l01594"></a><span class="lineno"> 1594</span> }</div>
<div class="line"><a name="l01595"></a><span class="lineno"> 1595</span> </div>
<div class="line"><a name="l01596"></a><span class="lineno"> 1596</span> <span class="comment">/* Tk_ThreadTimer */</span></div>
<div class="line"><a name="l01597"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553"> 1597</a></span> <span class="keyword">static</span> Tcl_TimerToken <a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a> = (Tcl_TimerToken)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l01598"></a><span class="lineno"> 1598</span> </div>
<div class="line"><a name="l01599"></a><span class="lineno"> 1599</span> <span class="comment">/* timer callback */</span></div>
<div class="line"><a name="l01600"></a><span class="lineno"> 1600</span> <span class="keyword">static</span> <span class="keywordtype">void</span> _timer_for_tcl <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData));</div>
<div class="line"><a name="l01601"></a><span class="lineno"> 1601</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l01602"></a><span class="lineno"> 1602</span> _timer_for_tcl(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a96654a88fe61690e0a391c61162b7153">clientData</a>)</div>
<div class="line"><a name="l01603"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a96654a88fe61690e0a391c61162b7153"> 1603</a></span>  ClientData <a class="code" href="../../d5/d9d/tcltklib_8c.html#a96654a88fe61690e0a391c61162b7153">clientData</a>;</div>
<div class="line"><a name="l01604"></a><span class="lineno"> 1604</span> {</div>
<div class="line"><a name="l01605"></a><span class="lineno"> 1605</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l01606"></a><span class="lineno"> 1606</span> </div>
<div class="line"><a name="l01607"></a><span class="lineno"> 1607</span>  <span class="comment">/* struct invoke_queue *q, *tmp; */</span></div>
<div class="line"><a name="l01608"></a><span class="lineno"> 1608</span>  <span class="comment">/* VALUE thread; */</span></div>
<div class="line"><a name="l01609"></a><span class="lineno"> 1609</span> </div>
<div class="line"><a name="l01610"></a><span class="lineno"> 1610</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call _timer_for_tcl"</span>);</div>
<div class="line"><a name="l01611"></a><span class="lineno"> 1611</span> </div>
<div class="line"><a name="l01612"></a><span class="lineno"> 1612</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l01613"></a><span class="lineno"> 1613</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l01614"></a><span class="lineno"> 1614</span> </div>
<div class="line"><a name="l01615"></a><span class="lineno"> 1615</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad418bc99fb4a66afefe45ae235c77a3d">Tcl_DeleteTimerHandler</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a>);</div>
<div class="line"><a name="l01616"></a><span class="lineno"> 1616</span> </div>
<div class="line"><a name="l01617"></a><span class="lineno"> 1617</span>  run_timer_flag = 1;</div>
<div class="line"><a name="l01618"></a><span class="lineno"> 1618</span> </div>
<div class="line"><a name="l01619"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af6595af8bc9b3a9bb52f7796c595d2b3"> 1619</a></span>  <span class="keywordflow">if</span> (timer_tick > 0) {</div>
<div class="line"><a name="l01620"></a><span class="lineno"> 1620</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a> = Tcl_CreateTimerHandler(timer_tick, _timer_for_tcl,</div>
<div class="line"><a name="l01621"></a><span class="lineno"> 1621</span>  (ClientData)0);</div>
<div class="line"><a name="l01622"></a><span class="lineno"> 1622</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l01623"></a><span class="lineno"> 1623</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a> = (Tcl_TimerToken)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l01624"></a><span class="lineno"> 1624</span>  }</div>
<div class="line"><a name="l01625"></a><span class="lineno"> 1625</span> </div>
<div class="line"><a name="l01626"></a><span class="lineno"> 1626</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l01627"></a><span class="lineno"> 1627</span> </div>
<div class="line"><a name="l01628"></a><span class="lineno"> 1628</span>  <span class="comment">/* rb_thread_schedule(); */</span></div>
<div class="line"><a name="l01629"></a><span class="lineno"> 1629</span>  <span class="comment">/* tick_counter += event_loop_max; */</span></div>
<div class="line"><a name="l01630"></a><span class="lineno"> 1630</span> }</div>
<div class="line"><a name="l01631"></a><span class="lineno"> 1631</span> </div>
<div class="line"><a name="l01632"></a><span class="lineno"> 1632</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l01633"></a><span class="lineno"> 1633</span> <span class="preprocessor"></span><span class="preprocessor">#if USE_TOGGLE_WINDOW_MODE_FOR_IDLE</span></div>
<div class="line"><a name="l01634"></a><span class="lineno"> 1634</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l01635"></a><span class="lineno"> 1635</span> toggle_eventloop_window_mode_for_idle()</div>
<div class="line"><a name="l01636"></a><span class="lineno"> 1636</span> {</div>
<div class="line"><a name="l01637"></a><span class="lineno"> 1637</span>  <span class="keywordflow">if</span> (window_event_mode & TCL_IDLE_EVENTS) {</div>
<div class="line"><a name="l01638"></a><span class="lineno"> 1638</span>  <span class="comment">/* idle -> event */</span></div>
<div class="line"><a name="l01639"></a><span class="lineno"> 1639</span>  window_event_mode |= TCL_WINDOW_EVENTS;</div>
<div class="line"><a name="l01640"></a><span class="lineno"> 1640</span>  window_event_mode &= ~TCL_IDLE_EVENTS;</div>
<div class="line"><a name="l01641"></a><span class="lineno"> 1641</span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l01642"></a><span class="lineno"> 1642</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l01643"></a><span class="lineno"> 1643</span>  <span class="comment">/* event -> idle */</span></div>
<div class="line"><a name="l01644"></a><span class="lineno"> 1644</span>  window_event_mode |= TCL_IDLE_EVENTS;</div>
<div class="line"><a name="l01645"></a><span class="lineno"> 1645</span>  window_event_mode &= ~TCL_WINDOW_EVENTS;</div>
<div class="line"><a name="l01646"></a><span class="lineno"> 1646</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l01647"></a><span class="lineno"> 1647</span>  }</div>
<div class="line"><a name="l01648"></a><span class="lineno"> 1648</span> }</div>
<div class="line"><a name="l01649"></a><span class="lineno"> 1649</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01650"></a><span class="lineno"> 1650</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01651"></a><span class="lineno"> 1651</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l01652"></a><span class="lineno"> 1652</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01653"></a><span class="lineno"> 1653</span> set_eventloop_window_mode(<span class="keyword">self</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a87dd7b0b5f4a611ddf0a5257cba792c7">mode</a>)</div>
<div class="line"><a name="l01654"></a><span class="lineno"> 1654</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01655"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a87dd7b0b5f4a611ddf0a5257cba792c7"> 1655</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a87dd7b0b5f4a611ddf0a5257cba792c7">mode</a>;</div>
<div class="line"><a name="l01656"></a><span class="lineno"> 1656</span> {</div>
<div class="line"><a name="l01657"></a><span class="lineno"> 1657</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a94573b23a7c5d9c129da54deebf38842">rb_secure</a>(4);</div>
<div class="line"><a name="l01658"></a><span class="lineno"> 1658</span> </div>
<div class="line"><a name="l01659"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a51e8b97d03d6eba0abff4e2600bc60a3"> 1659</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(mode)) {</div>
<div class="line"><a name="l01660"></a><span class="lineno"> 1660</span>  window_event_mode = ~0;</div>
<div class="line"><a name="l01661"></a><span class="lineno"> 1661</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l01662"></a><span class="lineno"> 1662</span>  window_event_mode = ~TCL_WINDOW_EVENTS;</div>
<div class="line"><a name="l01663"></a><span class="lineno"> 1663</span>  }</div>
<div class="line"><a name="l01664"></a><span class="lineno"> 1664</span> </div>
<div class="line"><a name="l01665"></a><span class="lineno"> 1665</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a87dd7b0b5f4a611ddf0a5257cba792c7">mode</a>;</div>
<div class="line"><a name="l01666"></a><span class="lineno"> 1666</span> }</div>
<div class="line"><a name="l01667"></a><span class="lineno"> 1667</span> </div>
<div class="line"><a name="l01668"></a><span class="lineno"> 1668</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01669"></a><span class="lineno"> 1669</span> get_eventloop_window_mode(<span class="keyword">self</span>)</div>
<div class="line"><a name="l01670"></a><span class="lineno"> 1670</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01671"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad4bf1623cb287511af9fbf644c732527"> 1671</a></span> {</div>
<div class="line"><a name="l01672"></a><span class="lineno"> 1672</span>  <span class="keywordflow">if</span> ( ~window_event_mode ) {</div>
<div class="line"><a name="l01673"></a><span class="lineno"> 1673</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l01674"></a><span class="lineno"> 1674</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l01675"></a><span class="lineno"> 1675</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l01676"></a><span class="lineno"> 1676</span>  }</div>
<div class="line"><a name="l01677"></a><span class="lineno"> 1677</span> }</div>
<div class="line"><a name="l01678"></a><span class="lineno"> 1678</span> </div>
<div class="line"><a name="l01679"></a><span class="lineno"> 1679</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01680"></a><span class="lineno"> 1680</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2a585c6b73d0ef8ee49763794ad560fa">set_eventloop_tick</a>(<span class="keyword">self</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad4bf1623cb287511af9fbf644c732527">tick</a>)</div>
<div class="line"><a name="l01681"></a><span class="lineno"> 1681</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01682"></a><span class="lineno"> 1682</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad4bf1623cb287511af9fbf644c732527">tick</a>;</div>
<div class="line"><a name="l01683"></a><span class="lineno"> 1683</span> {</div>
<div class="line"><a name="l01684"></a><span class="lineno"> 1684</span>  <span class="keywordtype">int</span> ttick = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a877c38180d23c5447d976c70dda89d69">NUM2INT</a>(tick);</div>
<div class="line"><a name="l01685"></a><span class="lineno"> 1685</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l01686"></a><span class="lineno"> 1686</span> </div>
<div class="line"><a name="l01687"></a><span class="lineno"> 1687</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a94573b23a7c5d9c129da54deebf38842">rb_secure</a>(4);</div>
<div class="line"><a name="l01688"></a><span class="lineno"> 1688</span> </div>
<div class="line"><a name="l01689"></a><span class="lineno"> 1689</span>  <span class="keywordflow">if</span> (ttick < 0) {</div>
<div class="line"><a name="l01690"></a><span class="lineno"> 1690</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>,</div>
<div class="line"><a name="l01691"></a><span class="lineno"> 1691</span>  <span class="stringliteral">"timer-tick parameter must be 0 or positive number"</span>);</div>
<div class="line"><a name="l01692"></a><span class="lineno"> 1692</span>  }</div>
<div class="line"><a name="l01693"></a><span class="lineno"> 1693</span> </div>
<div class="line"><a name="l01694"></a><span class="lineno"> 1694</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l01695"></a><span class="lineno"> 1695</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l01696"></a><span class="lineno"> 1696</span> </div>
<div class="line"><a name="l01697"></a><span class="lineno"> 1697</span>  <span class="comment">/* delete old timer callback */</span></div>
<div class="line"><a name="l01698"></a><span class="lineno"> 1698</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad418bc99fb4a66afefe45ae235c77a3d">Tcl_DeleteTimerHandler</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a>);</div>
<div class="line"><a name="l01699"></a><span class="lineno"> 1699</span> </div>
<div class="line"><a name="l01700"></a><span class="lineno"> 1700</span>  timer_tick = req_timer_tick = ttick;</div>
<div class="line"><a name="l01701"></a><span class="lineno"> 1701</span>  <span class="keywordflow">if</span> (timer_tick > 0) {</div>
<div class="line"><a name="l01702"></a><span class="lineno"> 1702</span>  <span class="comment">/* start timer callback */</span></div>
<div class="line"><a name="l01703"></a><span class="lineno"> 1703</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a> = Tcl_CreateTimerHandler(timer_tick, _timer_for_tcl,</div>
<div class="line"><a name="l01704"></a><span class="lineno"> 1704</span>  (ClientData)0);</div>
<div class="line"><a name="l01705"></a><span class="lineno"> 1705</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l01706"></a><span class="lineno"> 1706</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a> = (Tcl_TimerToken)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l01707"></a><span class="lineno"> 1707</span>  }</div>
<div class="line"><a name="l01708"></a><span class="lineno"> 1708</span> </div>
<div class="line"><a name="l01709"></a><span class="lineno"> 1709</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l01710"></a><span class="lineno"> 1710</span> </div>
<div class="line"><a name="l01711"></a><span class="lineno"> 1711</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad4bf1623cb287511af9fbf644c732527">tick</a>;</div>
<div class="line"><a name="l01712"></a><span class="lineno"> 1712</span> }</div>
<div class="line"><a name="l01713"></a><span class="lineno"> 1713</span> </div>
<div class="line"><a name="l01714"></a><span class="lineno"> 1714</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01715"></a><span class="lineno"> 1715</span> get_eventloop_tick(<span class="keyword">self</span>)</div>
<div class="line"><a name="l01716"></a><span class="lineno"> 1716</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01717"></a><span class="lineno"> 1717</span> {</div>
<div class="line"><a name="l01718"></a><span class="lineno"> 1718</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aca9f83a35416ed9d6e0b860afa5eaf0f">INT2NUM</a>(timer_tick);</div>
<div class="line"><a name="l01719"></a><span class="lineno"> 1719</span> }</div>
<div class="line"><a name="l01720"></a><span class="lineno"> 1720</span> </div>
<div class="line"><a name="l01721"></a><span class="lineno"> 1721</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01722"></a><span class="lineno"> 1722</span> ip_set_eventloop_tick(<span class="keyword">self</span>, tick)</div>
<div class="line"><a name="l01723"></a><span class="lineno"> 1723</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01724"></a><span class="lineno"> 1724</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> tick;</div>
<div class="line"><a name="l01725"></a><span class="lineno"> 1725</span> {</div>
<div class="line"><a name="l01726"></a><span class="lineno"> 1726</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l01727"></a><span class="lineno"> 1727</span> </div>
<div class="line"><a name="l01728"></a><span class="lineno"> 1728</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l01729"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5050a49929513c24bb665133607c4ab1"> 1729</a></span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l01730"></a><span class="lineno"> 1730</span>  <span class="keywordflow">return</span> get_eventloop_tick(<span class="keyword">self</span>);</div>
<div class="line"><a name="l01731"></a><span class="lineno"> 1731</span>  }</div>
<div class="line"><a name="l01732"></a><span class="lineno"> 1732</span> </div>
<div class="line"><a name="l01733"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abc42b11f88086ac3a949fcaa9083b026"> 1733</a></span>  <span class="keywordflow">if</span> (Tcl_GetMaster(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) != (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l01734"></a><span class="lineno"> 1734</span>  <span class="comment">/* slave IP */</span></div>
<div class="line"><a name="l01735"></a><span class="lineno"> 1735</span>  <span class="keywordflow">return</span> get_eventloop_tick(<span class="keyword">self</span>);</div>
<div class="line"><a name="l01736"></a><span class="lineno"> 1736</span>  }</div>
<div class="line"><a name="l01737"></a><span class="lineno"> 1737</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2a585c6b73d0ef8ee49763794ad560fa">set_eventloop_tick</a>(<span class="keyword">self</span>, tick);</div>
<div class="line"><a name="l01738"></a><span class="lineno"> 1738</span> }</div>
<div class="line"><a name="l01739"></a><span class="lineno"> 1739</span> </div>
<div class="line"><a name="l01740"></a><span class="lineno"> 1740</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01741"></a><span class="lineno"> 1741</span> ip_get_eventloop_tick(<span class="keyword">self</span>)</div>
<div class="line"><a name="l01742"></a><span class="lineno"> 1742</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01743"></a><span class="lineno"> 1743</span> {</div>
<div class="line"><a name="l01744"></a><span class="lineno"> 1744</span>  <span class="keywordflow">return</span> get_eventloop_tick(<span class="keyword">self</span>);</div>
<div class="line"><a name="l01745"></a><span class="lineno"> 1745</span> }</div>
<div class="line"><a name="l01746"></a><span class="lineno"> 1746</span> </div>
<div class="line"><a name="l01747"></a><span class="lineno"> 1747</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01748"></a><span class="lineno"> 1748</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a571ea11dcb2dbd199457251a32493c26">set_no_event_wait</a>(<span class="keyword">self</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a227a517fd99055262c5f5353e34a2973">wait</a>)</div>
<div class="line"><a name="l01749"></a><span class="lineno"> 1749</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01750"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a227a517fd99055262c5f5353e34a2973"> 1750</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a227a517fd99055262c5f5353e34a2973">wait</a>;</div>
<div class="line"><a name="l01751"></a><span class="lineno"> 1751</span> {</div>
<div class="line"><a name="l01752"></a><span class="lineno"> 1752</span>  <span class="keywordtype">int</span> t_wait = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a877c38180d23c5447d976c70dda89d69">NUM2INT</a>(wait);</div>
<div class="line"><a name="l01753"></a><span class="lineno"> 1753</span> </div>
<div class="line"><a name="l01754"></a><span class="lineno"> 1754</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a94573b23a7c5d9c129da54deebf38842">rb_secure</a>(4);</div>
<div class="line"><a name="l01755"></a><span class="lineno"> 1755</span> </div>
<div class="line"><a name="l01756"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa429c495af54892f33f26e5086f80a45"> 1756</a></span>  <span class="keywordflow">if</span> (t_wait <= 0) {</div>
<div class="line"><a name="l01757"></a><span class="lineno"> 1757</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>,</div>
<div class="line"><a name="l01758"></a><span class="lineno"> 1758</span>  <span class="stringliteral">"no_event_wait parameter must be positive number"</span>);</div>
<div class="line"><a name="l01759"></a><span class="lineno"> 1759</span>  }</div>
<div class="line"><a name="l01760"></a><span class="lineno"> 1760</span> </div>
<div class="line"><a name="l01761"></a><span class="lineno"> 1761</span>  no_event_wait = t_wait;</div>
<div class="line"><a name="l01762"></a><span class="lineno"> 1762</span> </div>
<div class="line"><a name="l01763"></a><span class="lineno"> 1763</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a227a517fd99055262c5f5353e34a2973">wait</a>;</div>
<div class="line"><a name="l01764"></a><span class="lineno"> 1764</span> }</div>
<div class="line"><a name="l01765"></a><span class="lineno"> 1765</span> </div>
<div class="line"><a name="l01766"></a><span class="lineno"> 1766</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01767"></a><span class="lineno"> 1767</span> get_no_event_wait(<span class="keyword">self</span>)</div>
<div class="line"><a name="l01768"></a><span class="lineno"> 1768</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01769"></a><span class="lineno"> 1769</span> {</div>
<div class="line"><a name="l01770"></a><span class="lineno"> 1770</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aca9f83a35416ed9d6e0b860afa5eaf0f">INT2NUM</a>(no_event_wait);</div>
<div class="line"><a name="l01771"></a><span class="lineno"> 1771</span> }</div>
<div class="line"><a name="l01772"></a><span class="lineno"> 1772</span> </div>
<div class="line"><a name="l01773"></a><span class="lineno"> 1773</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01774"></a><span class="lineno"> 1774</span> ip_set_no_event_wait(<span class="keyword">self</span>, wait)</div>
<div class="line"><a name="l01775"></a><span class="lineno"> 1775</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01776"></a><span class="lineno"> 1776</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> wait;</div>
<div class="line"><a name="l01777"></a><span class="lineno"> 1777</span> {</div>
<div class="line"><a name="l01778"></a><span class="lineno"> 1778</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l01779"></a><span class="lineno"> 1779</span> </div>
<div class="line"><a name="l01780"></a><span class="lineno"> 1780</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l01781"></a><span class="lineno"> 1781</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l01782"></a><span class="lineno"> 1782</span>  <span class="keywordflow">return</span> get_no_event_wait(<span class="keyword">self</span>);</div>
<div class="line"><a name="l01783"></a><span class="lineno"> 1783</span>  }</div>
<div class="line"><a name="l01784"></a><span class="lineno"> 1784</span> </div>
<div class="line"><a name="l01785"></a><span class="lineno"> 1785</span>  <span class="keywordflow">if</span> (Tcl_GetMaster(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) != (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l01786"></a><span class="lineno"> 1786</span>  <span class="comment">/* slave IP */</span></div>
<div class="line"><a name="l01787"></a><span class="lineno"> 1787</span>  <span class="keywordflow">return</span> get_no_event_wait(<span class="keyword">self</span>);</div>
<div class="line"><a name="l01788"></a><span class="lineno"> 1788</span>  }</div>
<div class="line"><a name="l01789"></a><span class="lineno"> 1789</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a571ea11dcb2dbd199457251a32493c26">set_no_event_wait</a>(<span class="keyword">self</span>, wait);</div>
<div class="line"><a name="l01790"></a><span class="lineno"> 1790</span> }</div>
<div class="line"><a name="l01791"></a><span class="lineno"> 1791</span> </div>
<div class="line"><a name="l01792"></a><span class="lineno"> 1792</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01793"></a><span class="lineno"> 1793</span> ip_get_no_event_wait(<span class="keyword">self</span>)</div>
<div class="line"><a name="l01794"></a><span class="lineno"> 1794</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01795"></a><span class="lineno"> 1795</span> {</div>
<div class="line"><a name="l01796"></a><span class="lineno"> 1796</span>  <span class="keywordflow">return</span> get_no_event_wait(<span class="keyword">self</span>);</div>
<div class="line"><a name="l01797"></a><span class="lineno"> 1797</span> }</div>
<div class="line"><a name="l01798"></a><span class="lineno"> 1798</span> </div>
<div class="line"><a name="l01799"></a><span class="lineno"> 1799</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01800"></a><span class="lineno"> 1800</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af45a7351177e2bf6f28a0374da224d5d">set_eventloop_weight</a>(<span class="keyword">self</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68711532f6e644dbf579b26396c97bb">loop_max</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4586592efa35e1c725107238c5b450ea">no_event</a>)</div>
<div class="line"><a name="l01801"></a><span class="lineno"> 1801</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01802"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ab68711532f6e644dbf579b26396c97bb"> 1802</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68711532f6e644dbf579b26396c97bb">loop_max</a>;</div>
<div class="line"><a name="l01803"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a4586592efa35e1c725107238c5b450ea"> 1803</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4586592efa35e1c725107238c5b450ea">no_event</a>;</div>
<div class="line"><a name="l01804"></a><span class="lineno"> 1804</span> {</div>
<div class="line"><a name="l01805"></a><span class="lineno"> 1805</span>  <span class="keywordtype">int</span> lpmax = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a877c38180d23c5447d976c70dda89d69">NUM2INT</a>(loop_max);</div>
<div class="line"><a name="l01806"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#adbc8c55b37e97b7050be6208b786bd88"> 1806</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adbc8c55b37e97b7050be6208b786bd88">no_ev</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a877c38180d23c5447d976c70dda89d69">NUM2INT</a>(no_event);</div>
<div class="line"><a name="l01807"></a><span class="lineno"> 1807</span> </div>
<div class="line"><a name="l01808"></a><span class="lineno"> 1808</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a94573b23a7c5d9c129da54deebf38842">rb_secure</a>(4);</div>
<div class="line"><a name="l01809"></a><span class="lineno"> 1809</span> </div>
<div class="line"><a name="l01810"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ab50cbd549535df21c21a069e53a8b856"> 1810</a></span>  <span class="keywordflow">if</span> (lpmax <= 0 || no_ev <= 0) {</div>
<div class="line"><a name="l01811"></a><span class="lineno"> 1811</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"weight parameters must be positive numbers"</span>);</div>
<div class="line"><a name="l01812"></a><span class="lineno"> 1812</span>  }</div>
<div class="line"><a name="l01813"></a><span class="lineno"> 1813</span> </div>
<div class="line"><a name="l01814"></a><span class="lineno"> 1814</span>  event_loop_max = lpmax;</div>
<div class="line"><a name="l01815"></a><span class="lineno"> 1815</span>  no_event_tick = <a class="code" href="../../d5/d9d/tcltklib_8c.html#adbc8c55b37e97b7050be6208b786bd88">no_ev</a>;</div>
<div class="line"><a name="l01816"></a><span class="lineno"> 1816</span> </div>
<div class="line"><a name="l01817"></a><span class="lineno"> 1817</span>  <span class="keywordflow">return</span> <a class="code" href="../../dc/dcc/array_8c.html#a8317ecd6a0abb5ad08c50c732f30059b">rb_ary_new3</a>(2, loop_max, no_event);</div>
<div class="line"><a name="l01818"></a><span class="lineno"> 1818</span> }</div>
<div class="line"><a name="l01819"></a><span class="lineno"> 1819</span> </div>
<div class="line"><a name="l01820"></a><span class="lineno"> 1820</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01821"></a><span class="lineno"> 1821</span> get_eventloop_weight(<span class="keyword">self</span>)</div>
<div class="line"><a name="l01822"></a><span class="lineno"> 1822</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01823"></a><span class="lineno"> 1823</span> {</div>
<div class="line"><a name="l01824"></a><span class="lineno"> 1824</span>  <span class="keywordflow">return</span> <a class="code" href="../../dc/dcc/array_8c.html#a8317ecd6a0abb5ad08c50c732f30059b">rb_ary_new3</a>(2, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aca9f83a35416ed9d6e0b860afa5eaf0f">INT2NUM</a>(event_loop_max), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aca9f83a35416ed9d6e0b860afa5eaf0f">INT2NUM</a>(no_event_tick));</div>
<div class="line"><a name="l01825"></a><span class="lineno"> 1825</span> }</div>
<div class="line"><a name="l01826"></a><span class="lineno"> 1826</span> </div>
<div class="line"><a name="l01827"></a><span class="lineno"> 1827</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01828"></a><span class="lineno"> 1828</span> ip_set_eventloop_weight(<span class="keyword">self</span>, loop_max, no_event)</div>
<div class="line"><a name="l01829"></a><span class="lineno"> 1829</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01830"></a><span class="lineno"> 1830</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> loop_max;</div>
<div class="line"><a name="l01831"></a><span class="lineno"> 1831</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> no_event;</div>
<div class="line"><a name="l01832"></a><span class="lineno"> 1832</span> {</div>
<div class="line"><a name="l01833"></a><span class="lineno"> 1833</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l01834"></a><span class="lineno"> 1834</span> </div>
<div class="line"><a name="l01835"></a><span class="lineno"> 1835</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l01836"></a><span class="lineno"> 1836</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l01837"></a><span class="lineno"> 1837</span>  <span class="keywordflow">return</span> get_eventloop_weight(<span class="keyword">self</span>);</div>
<div class="line"><a name="l01838"></a><span class="lineno"> 1838</span>  }</div>
<div class="line"><a name="l01839"></a><span class="lineno"> 1839</span> </div>
<div class="line"><a name="l01840"></a><span class="lineno"> 1840</span>  <span class="keywordflow">if</span> (Tcl_GetMaster(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) != (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l01841"></a><span class="lineno"> 1841</span>  <span class="comment">/* slave IP */</span></div>
<div class="line"><a name="l01842"></a><span class="lineno"> 1842</span>  <span class="keywordflow">return</span> get_eventloop_weight(<span class="keyword">self</span>);</div>
<div class="line"><a name="l01843"></a><span class="lineno"> 1843</span>  }</div>
<div class="line"><a name="l01844"></a><span class="lineno"> 1844</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af45a7351177e2bf6f28a0374da224d5d">set_eventloop_weight</a>(<span class="keyword">self</span>, loop_max, no_event);</div>
<div class="line"><a name="l01845"></a><span class="lineno"> 1845</span> }</div>
<div class="line"><a name="l01846"></a><span class="lineno"> 1846</span> </div>
<div class="line"><a name="l01847"></a><span class="lineno"> 1847</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01848"></a><span class="lineno"> 1848</span> ip_get_eventloop_weight(<span class="keyword">self</span>)</div>
<div class="line"><a name="l01849"></a><span class="lineno"> 1849</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01850"></a><span class="lineno"> 1850</span> {</div>
<div class="line"><a name="l01851"></a><span class="lineno"> 1851</span>  <span class="keywordflow">return</span> get_eventloop_weight(<span class="keyword">self</span>);</div>
<div class="line"><a name="l01852"></a><span class="lineno"> 1852</span> }</div>
<div class="line"><a name="l01853"></a><span class="lineno"> 1853</span> </div>
<div class="line"><a name="l01854"></a><span class="lineno"> 1854</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01855"></a><span class="lineno"> 1855</span> set_max_block_time(<span class="keyword">self</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a50f20943d92bb4520999124128a8212e">time</a>)</div>
<div class="line"><a name="l01856"></a><span class="lineno"> 1856</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01857"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a50f20943d92bb4520999124128a8212e"> 1857</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a50f20943d92bb4520999124128a8212e">time</a>;</div>
<div class="line"><a name="l01858"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa462096e1c4a9af7e62b5315dfad4ddd"> 1858</a></span> {</div>
<div class="line"><a name="l01859"></a><span class="lineno"> 1859</span>  <span class="keyword">struct </span>Tcl_Time tcl_time;</div>
<div class="line"><a name="l01860"></a><span class="lineno"> 1860</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa462096e1c4a9af7e62b5315dfad4ddd">divmod</a>;</div>
<div class="line"><a name="l01861"></a><span class="lineno"> 1861</span> </div>
<div class="line"><a name="l01862"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a51f9668df30daf9e32ce0dd9d324f1c9"> 1862</a></span>  <span class="keywordflow">switch</span>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a>(time)) {</div>
<div class="line"><a name="l01863"></a><span class="lineno"> 1863</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>:</div>
<div class="line"><a name="l01864"></a><span class="lineno"> 1864</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a41ac74a27dd1eadc2ca86d10590f2163">T_BIGNUM</a>:</div>
<div class="line"><a name="l01865"></a><span class="lineno"> 1865</span>  <span class="comment">/* time is micro-second value */</span></div>
<div class="line"><a name="l01866"></a><span class="lineno"> 1866</span>  divmod = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(time, <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"divmod"</span>), 1, <a class="code" href="../../dc/d0c/cparse_8c.html#af1afba1194a12547a1e65d92abf03b03">LONG2NUM</a>(1000000));</div>
<div class="line"><a name="l01867"></a><span class="lineno"> 1867</span>  tcl_time.sec = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a93f154f3dcc08027f475bf0c3cc287bd">NUM2LONG</a>(<a class="code" href="../../d8/df4/generator_8h.html#abb794fe2d7c73eea87e7ba2273939a8e">RARRAY_PTR</a>(divmod)[0]);</div>
<div class="line"><a name="l01868"></a><span class="lineno"> 1868</span>  tcl_time.usec = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a93f154f3dcc08027f475bf0c3cc287bd">NUM2LONG</a>(<a class="code" href="../../d8/df4/generator_8h.html#abb794fe2d7c73eea87e7ba2273939a8e">RARRAY_PTR</a>(divmod)[1]);</div>
<div class="line"><a name="l01869"></a><span class="lineno"> 1869</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l01870"></a><span class="lineno"> 1870</span> </div>
<div class="line"><a name="l01871"></a><span class="lineno"> 1871</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3d072e0c25cf678e9b8601b957b92eae">T_FLOAT</a>:</div>
<div class="line"><a name="l01872"></a><span class="lineno"> 1872</span>  <span class="comment">/* time is second value */</span></div>
<div class="line"><a name="l01873"></a><span class="lineno"> 1873</span>  divmod = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(time, <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"divmod"</span>), 1, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(1));</div>
<div class="line"><a name="l01874"></a><span class="lineno"> 1874</span>  tcl_time.sec = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a93f154f3dcc08027f475bf0c3cc287bd">NUM2LONG</a>(<a class="code" href="../../d8/df4/generator_8h.html#abb794fe2d7c73eea87e7ba2273939a8e">RARRAY_PTR</a>(divmod)[0]);</div>
<div class="line"><a name="l01875"></a><span class="lineno"> 1875</span>  tcl_time.usec = (<a class="code" href="../../d3/d15/name2ctype_8h.html#a86f2415763322050063a5502f87c9422">long</a>)(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a084521c82d2eb576d63d64bfe6b79642">NUM2DBL</a>(<a class="code" href="../../d8/df4/generator_8h.html#abb794fe2d7c73eea87e7ba2273939a8e">RARRAY_PTR</a>(divmod)[1]) * 1000000);</div>
<div class="line"><a name="l01876"></a><span class="lineno"> 1876</span> </div>
<div class="line"><a name="l01877"></a><span class="lineno"> 1877</span>  <span class="keywordflow">default</span>:</div>
<div class="line"><a name="l01878"></a><span class="lineno"> 1878</span>  {</div>
<div class="line"><a name="l01879"></a><span class="lineno"> 1879</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> tmp = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(time, ID_inspect, 0, 0);</div>
<div class="line"><a name="l01880"></a><span class="lineno"> 1880</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"invalid value for time: '%s'"</span>,</div>
<div class="line"><a name="l01881"></a><span class="lineno"> 1881</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2665a51abbd5b49c15abff3df00fa9db">StringValuePtr</a>(tmp));</div>
<div class="line"><a name="l01882"></a><span class="lineno"> 1882</span>  }</div>
<div class="line"><a name="l01883"></a><span class="lineno"> 1883</span>  }</div>
<div class="line"><a name="l01884"></a><span class="lineno"> 1884</span> </div>
<div class="line"><a name="l01885"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3b809ecb28a90160b5565df5cc4f91f1"> 1885</a></span>  Tcl_SetMaxBlockTime(&tcl_time);</div>
<div class="line"><a name="l01886"></a><span class="lineno"> 1886</span> </div>
<div class="line"><a name="l01887"></a><span class="lineno"> 1887</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l01888"></a><span class="lineno"> 1888</span> }</div>
<div class="line"><a name="l01889"></a><span class="lineno"> 1889</span> </div>
<div class="line"><a name="l01890"></a><span class="lineno"> 1890</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01891"></a><span class="lineno"> 1891</span> lib_evloop_thread_p(<span class="keyword">self</span>)</div>
<div class="line"><a name="l01892"></a><span class="lineno"> 1892</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01893"></a><span class="lineno"> 1893</span> {</div>
<div class="line"><a name="l01894"></a><span class="lineno"> 1894</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread)) {</div>
<div class="line"><a name="l01895"></a><span class="lineno"> 1895</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>; <span class="comment">/* no eventloop */</span></div>
<div class="line"><a name="l01896"></a><span class="lineno"> 1896</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>() == eventloop_thread) {</div>
<div class="line"><a name="l01897"></a><span class="lineno"> 1897</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>; <span class="comment">/* is eventloop */</span></div>
<div class="line"><a name="l01898"></a><span class="lineno"> 1898</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l01899"></a><span class="lineno"> 1899</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>; <span class="comment">/* not eventloop */</span></div>
<div class="line"><a name="l01900"></a><span class="lineno"> 1900</span>  }</div>
<div class="line"><a name="l01901"></a><span class="lineno"> 1901</span> }</div>
<div class="line"><a name="l01902"></a><span class="lineno"> 1902</span> </div>
<div class="line"><a name="l01903"></a><span class="lineno"> 1903</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01904"></a><span class="lineno"> 1904</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#acda52e7f6b86b5809f7e427f529bfcb3">lib_evloop_abort_on_exc</a>(<span class="keyword">self</span>)</div>
<div class="line"><a name="l01905"></a><span class="lineno"> 1905</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01906"></a><span class="lineno"> 1906</span> {</div>
<div class="line"><a name="l01907"></a><span class="lineno"> 1907</span>  <span class="keywordflow">if</span> (event_loop_abort_on_exc > 0) {</div>
<div class="line"><a name="l01908"></a><span class="lineno"> 1908</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l01909"></a><span class="lineno"> 1909</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (event_loop_abort_on_exc == 0) {</div>
<div class="line"><a name="l01910"></a><span class="lineno"> 1910</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l01911"></a><span class="lineno"> 1911</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l01912"></a><span class="lineno"> 1912</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l01913"></a><span class="lineno"> 1913</span>  }</div>
<div class="line"><a name="l01914"></a><span class="lineno"> 1914</span> }</div>
<div class="line"><a name="l01915"></a><span class="lineno"> 1915</span> </div>
<div class="line"><a name="l01916"></a><span class="lineno"> 1916</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01917"></a><span class="lineno"> 1917</span> ip_evloop_abort_on_exc(<span class="keyword">self</span>)</div>
<div class="line"><a name="l01918"></a><span class="lineno"> 1918</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01919"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae78faa0880952a0cbd6299edcbcb694b"> 1919</a></span> {</div>
<div class="line"><a name="l01920"></a><span class="lineno"> 1920</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#acda52e7f6b86b5809f7e427f529bfcb3">lib_evloop_abort_on_exc</a>(<span class="keyword">self</span>);</div>
<div class="line"><a name="l01921"></a><span class="lineno"> 1921</span> }</div>
<div class="line"><a name="l01922"></a><span class="lineno"> 1922</span> </div>
<div class="line"><a name="l01923"></a><span class="lineno"> 1923</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01924"></a><span class="lineno"> 1924</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad35c1f2068a266a3a1525d2899a056b9">lib_evloop_abort_on_exc_set</a>(<span class="keyword">self</span>, <a class="code" href="../../d5/d11/ripper_8c.html#a68fefa607ad528d20b0ae5d69a346d46">val</a>)</div>
<div class="line"><a name="l01925"></a><span class="lineno"> 1925</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self, <a class="code" href="../../d5/d11/ripper_8c.html#a68fefa607ad528d20b0ae5d69a346d46">val</a>;</div>
<div class="line"><a name="l01926"></a><span class="lineno"> 1926</span> {</div>
<div class="line"><a name="l01927"></a><span class="lineno"> 1927</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a94573b23a7c5d9c129da54deebf38842">rb_secure</a>(4);</div>
<div class="line"><a name="l01928"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9f271a4cef52ca1de1f77b2632783a91"> 1928</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(val)) {</div>
<div class="line"><a name="l01929"></a><span class="lineno"> 1929</span>  event_loop_abort_on_exc = 1;</div>
<div class="line"><a name="l01930"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad3c4cae1c34582b874900ab38bd804ae"> 1930</a></span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(val)) {</div>
<div class="line"><a name="l01931"></a><span class="lineno"> 1931</span>  event_loop_abort_on_exc = -1;</div>
<div class="line"><a name="l01932"></a><span class="lineno"> 1932</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l01933"></a><span class="lineno"> 1933</span>  event_loop_abort_on_exc = 0;</div>
<div class="line"><a name="l01934"></a><span class="lineno"> 1934</span>  }</div>
<div class="line"><a name="l01935"></a><span class="lineno"> 1935</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#acda52e7f6b86b5809f7e427f529bfcb3">lib_evloop_abort_on_exc</a>(<span class="keyword">self</span>);</div>
<div class="line"><a name="l01936"></a><span class="lineno"> 1936</span> }</div>
<div class="line"><a name="l01937"></a><span class="lineno"> 1937</span> </div>
<div class="line"><a name="l01938"></a><span class="lineno"> 1938</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01939"></a><span class="lineno"> 1939</span> ip_evloop_abort_on_exc_set(<span class="keyword">self</span>, val)</div>
<div class="line"><a name="l01940"></a><span class="lineno"> 1940</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self, val;</div>
<div class="line"><a name="l01941"></a><span class="lineno"> 1941</span> {</div>
<div class="line"><a name="l01942"></a><span class="lineno"> 1942</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l01943"></a><span class="lineno"> 1943</span> </div>
<div class="line"><a name="l01944"></a><span class="lineno"> 1944</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a94573b23a7c5d9c129da54deebf38842">rb_secure</a>(4);</div>
<div class="line"><a name="l01945"></a><span class="lineno"> 1945</span> </div>
<div class="line"><a name="l01946"></a><span class="lineno"> 1946</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l01947"></a><span class="lineno"> 1947</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l01948"></a><span class="lineno"> 1948</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#acda52e7f6b86b5809f7e427f529bfcb3">lib_evloop_abort_on_exc</a>(<span class="keyword">self</span>);</div>
<div class="line"><a name="l01949"></a><span class="lineno"> 1949</span>  }</div>
<div class="line"><a name="l01950"></a><span class="lineno"> 1950</span> </div>
<div class="line"><a name="l01951"></a><span class="lineno"> 1951</span>  <span class="keywordflow">if</span> (Tcl_GetMaster(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) != (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l01952"></a><span class="lineno"> 1952</span>  <span class="comment">/* slave IP */</span></div>
<div class="line"><a name="l01953"></a><span class="lineno"> 1953</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#acda52e7f6b86b5809f7e427f529bfcb3">lib_evloop_abort_on_exc</a>(<span class="keyword">self</span>);</div>
<div class="line"><a name="l01954"></a><span class="lineno"> 1954</span>  }</div>
<div class="line"><a name="l01955"></a><span class="lineno"> 1955</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad35c1f2068a266a3a1525d2899a056b9">lib_evloop_abort_on_exc_set</a>(<span class="keyword">self</span>, val);</div>
<div class="line"><a name="l01956"></a><span class="lineno"> 1956</span> }</div>
<div class="line"><a name="l01957"></a><span class="lineno"> 1957</span> </div>
<div class="line"><a name="l01958"></a><span class="lineno"> 1958</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01959"></a><span class="lineno"> 1959</span> lib_num_of_mainwindows_core(<span class="keyword">self</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>, argv)</div>
<div class="line"><a name="l01960"></a><span class="lineno"> 1960</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01961"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4"> 1961</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>; <span class="comment">/* dummy */</span></div>
<div class="line"><a name="l01962"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ab9ebbdd4596789afb752d19fca153ee5"> 1962</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv; <span class="comment">/* dummy */</span></div>
<div class="line"><a name="l01963"></a><span class="lineno"> 1963</span> {</div>
<div class="line"><a name="l01964"></a><span class="lineno"> 1964</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>()) {</div>
<div class="line"><a name="l01965"></a><span class="lineno"> 1965</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(Tk_GetNumMainWindows());</div>
<div class="line"><a name="l01966"></a><span class="lineno"> 1966</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l01967"></a><span class="lineno"> 1967</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(0);</div>
<div class="line"><a name="l01968"></a><span class="lineno"> 1968</span>  }</div>
<div class="line"><a name="l01969"></a><span class="lineno"> 1969</span> }</div>
<div class="line"><a name="l01970"></a><span class="lineno"> 1970</span> </div>
<div class="line"><a name="l01971"></a><span class="lineno"> 1971</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l01972"></a><span class="lineno"> 1972</span> lib_num_of_mainwindows(<span class="keyword">self</span>)</div>
<div class="line"><a name="l01973"></a><span class="lineno"> 1973</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l01974"></a><span class="lineno"> 1974</span> {</div>
<div class="line"><a name="l01975"></a><span class="lineno"> 1975</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD </span><span class="comment">/* Ruby 1.9+ !!! */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01976"></a><span class="lineno"> 1976</span> <span class="preprocessor"></span> <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a46bfb9a7c64428cdf208d45e06352fce">tk_funcall</a>(lib_num_of_mainwindows_core, 0, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>, <span class="keyword">self</span>);</div>
<div class="line"><a name="l01977"></a><span class="lineno"> 1977</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l01978"></a><span class="lineno"> 1978</span> <span class="preprocessor"></span> <span class="keywordflow">return</span> lib_num_of_mainwindows_core(<span class="keyword">self</span>, 0, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l01979"></a><span class="lineno"> 1979</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l01980"></a><span class="lineno"> 1980</span> <span class="preprocessor"></span>}</div>
<div class="line"><a name="l01981"></a><span class="lineno"> 1981</span> </div>
<div class="line"><a name="l01982"></a><span class="lineno"> 1982</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l01983"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af2bf34bc42df2e5e8332e7ee104d2e1b"> 1983</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af2bf34bc42df2e5e8332e7ee104d2e1b">rbtk_EventSetupProc</a>(ClientData clientData, <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa47c45738d686ad11e7b9c7c1615fcd2">flag</a>)</div>
<div class="line"><a name="l01984"></a><span class="lineno"> 1984</span> {</div>
<div class="line"><a name="l01985"></a><span class="lineno"> 1985</span>  Tcl_Time <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3b809ecb28a90160b5565df5cc4f91f1">tcl_time</a>;</div>
<div class="line"><a name="l01986"></a><span class="lineno"> 1986</span>  tcl_time.sec = 0;</div>
<div class="line"><a name="l01987"></a><span class="lineno"> 1987</span>  tcl_time.usec = 1000L * (<a class="code" href="../../d3/d15/name2ctype_8h.html#a86f2415763322050063a5502f87c9422">long</a>)no_event_tick;</div>
<div class="line"><a name="l01988"></a><span class="lineno"> 1988</span>  Tcl_SetMaxBlockTime(&tcl_time);</div>
<div class="line"><a name="l01989"></a><span class="lineno"> 1989</span> }</div>
<div class="line"><a name="l01990"></a><span class="lineno"> 1990</span> </div>
<div class="line"><a name="l01991"></a><span class="lineno"> 1991</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l01992"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7c5cc2da826665da5df5c33182df8746"> 1992</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7c5cc2da826665da5df5c33182df8746">rbtk_EventCheckProc</a>(ClientData clientData, <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa47c45738d686ad11e7b9c7c1615fcd2">flag</a>)</div>
<div class="line"><a name="l01993"></a><span class="lineno"> 1993</span> {</div>
<div class="line"><a name="l01994"></a><span class="lineno"> 1994</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a032996d6998bbda639fe14f370a70f6d">rb_thread_schedule</a>();</div>
<div class="line"><a name="l01995"></a><span class="lineno"> 1995</span> }</div>
<div class="line"><a name="l01996"></a><span class="lineno"> 1996</span> </div>
<div class="line"><a name="l01997"></a><span class="lineno"> 1997</span> </div>
<div class="line"><a name="l01998"></a><span class="lineno"> 1998</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD </span><span class="comment">/* Ruby 1.9+ !!! */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l01999"></a><span class="lineno"> 1999</span> <span class="preprocessor"></span><span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02000"></a><span class="lineno"> 2000</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div>
<div class="line"><a name="l02001"></a><span class="lineno"> 2001</span> <span class="preprocessor"></span>call_DoOneEvent_core(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8d40c6f08b50616d257b49e9ff6d2bb3">flag_val</a>)</div>
<div class="line"><a name="l02002"></a><span class="lineno"> 2002</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l02003"></a><span class="lineno"> 2003</span> <span class="preprocessor"></span>call_DoOneEvent_core(flag_val)</div>
<div class="line"><a name="l02004"></a><span class="lineno"> 2004</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> flag_val;</div>
<div class="line"><a name="l02005"></a><span class="lineno"> 2005</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02006"></a><span class="lineno"> 2006</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l02007"></a><span class="lineno"> 2007</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa47c45738d686ad11e7b9c7c1615fcd2">flag</a>;</div>
<div class="line"><a name="l02008"></a><span class="lineno"> 2008</span> </div>
<div class="line"><a name="l02009"></a><span class="lineno"> 2009</span>  flag = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(flag_val);</div>
<div class="line"><a name="l02010"></a><span class="lineno"> 2010</span>  <span class="keywordflow">if</span> (Tcl_DoOneEvent(flag)) {</div>
<div class="line"><a name="l02011"></a><span class="lineno"> 2011</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l02012"></a><span class="lineno"> 2012</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02013"></a><span class="lineno"> 2013</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l02014"></a><span class="lineno"> 2014</span>  }</div>
<div class="line"><a name="l02015"></a><span class="lineno"> 2015</span> }</div>
<div class="line"><a name="l02016"></a><span class="lineno"> 2016</span> </div>
<div class="line"><a name="l02017"></a><span class="lineno"> 2017</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02018"></a><span class="lineno"> 2018</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div>
<div class="line"><a name="l02019"></a><span class="lineno"> 2019</span> <span class="preprocessor"></span>call_DoOneEvent(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> flag_val)</div>
<div class="line"><a name="l02020"></a><span class="lineno"> 2020</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l02021"></a><span class="lineno"> 2021</span> <span class="preprocessor"></span>call_DoOneEvent(flag_val)</div>
<div class="line"><a name="l02022"></a><span class="lineno"> 2022</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> flag_val;</div>
<div class="line"><a name="l02023"></a><span class="lineno"> 2023</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02024"></a><span class="lineno"> 2024</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l02025"></a><span class="lineno"> 2025</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a46bfb9a7c64428cdf208d45e06352fce">tk_funcall</a>(call_DoOneEvent_core, 0, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>, flag_val);</div>
<div class="line"><a name="l02026"></a><span class="lineno"> 2026</span> }</div>
<div class="line"><a name="l02027"></a><span class="lineno"> 2027</span> </div>
<div class="line"><a name="l02028"></a><span class="lineno"> 2028</span> <span class="preprocessor">#else </span><span class="comment">/* Ruby 1.8- */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l02029"></a><span class="lineno"> 2029</span> <span class="preprocessor"></span><span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02030"></a><span class="lineno"> 2030</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div>
<div class="line"><a name="l02031"></a><span class="lineno"> 2031</span> <span class="preprocessor"></span>call_DoOneEvent(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> flag_val)</div>
<div class="line"><a name="l02032"></a><span class="lineno"> 2032</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l02033"></a><span class="lineno"> 2033</span> <span class="preprocessor"></span>call_DoOneEvent(flag_val)</div>
<div class="line"><a name="l02034"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8d40c6f08b50616d257b49e9ff6d2bb3"> 2034</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> flag_val;</div>
<div class="line"><a name="l02035"></a><span class="lineno"> 2035</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02036"></a><span class="lineno"> 2036</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l02037"></a><span class="lineno"> 2037</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa47c45738d686ad11e7b9c7c1615fcd2">flag</a>;</div>
<div class="line"><a name="l02038"></a><span class="lineno"> 2038</span> </div>
<div class="line"><a name="l02039"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa47c45738d686ad11e7b9c7c1615fcd2"> 2039</a></span>  flag = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(flag_val);</div>
<div class="line"><a name="l02040"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad5285c89f1f8877f2cb8907b15ed6bf1"> 2040</a></span>  <span class="keywordflow">if</span> (Tcl_DoOneEvent(flag)) {</div>
<div class="line"><a name="l02041"></a><span class="lineno"> 2041</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l02042"></a><span class="lineno"> 2042</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02043"></a><span class="lineno"> 2043</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l02044"></a><span class="lineno"> 2044</span>  }</div>
<div class="line"><a name="l02045"></a><span class="lineno"> 2045</span> }</div>
<div class="line"><a name="l02046"></a><span class="lineno"> 2046</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02047"></a><span class="lineno"> 2047</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l02048"></a><span class="lineno"> 2048</span> </div>
<div class="line"><a name="l02049"></a><span class="lineno"> 2049</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02050"></a><span class="lineno"> 2050</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div>
<div class="line"><a name="l02051"></a><span class="lineno"> 2051</span> <span class="preprocessor"></span>eventloop_sleep(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> dummy)</div>
<div class="line"><a name="l02052"></a><span class="lineno"> 2052</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l02053"></a><span class="lineno"> 2053</span> <span class="preprocessor"></span>eventloop_sleep(dummy)</div>
<div class="line"><a name="l02054"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7c1d654b7b6114d7a0abc8d351dd1bcd"> 2054</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> dummy;</div>
<div class="line"><a name="l02055"></a><span class="lineno"> 2055</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02056"></a><span class="lineno"> 2056</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l02057"></a><span class="lineno"> 2057</span>  <span class="keyword">struct </span><a class="code" href="../../d1/d1b/structtimeval.html">timeval</a> t;</div>
<div class="line"><a name="l02058"></a><span class="lineno"> 2058</span> </div>
<div class="line"><a name="l02059"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#acbd76e763c26f4018d0627d2b7446bca"> 2059</a></span>  <span class="keywordflow">if</span> (no_event_wait <= 0) {</div>
<div class="line"><a name="l02060"></a><span class="lineno"> 2060</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02061"></a><span class="lineno"> 2061</span>  }</div>
<div class="line"><a name="l02062"></a><span class="lineno"> 2062</span> </div>
<div class="line"><a name="l02063"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7c9121681f7bdf7e417f8a1dc8abe8a2"> 2063</a></span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#a3599199839a89e99a2ce29d45312b5cf">tv_sec</a> = 0;</div>
<div class="line"><a name="l02064"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af5ea488a8deefce77c93a4ce0d2161e3"> 2064</a></span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#aa8396731f2914f9ed2a457d3da602b80">tv_usec</a> = (<a class="code" href="../../d3/d15/name2ctype_8h.html#a86f2415763322050063a5502f87c9422">long</a>)(no_event_wait*1000.0);</div>
<div class="line"><a name="l02065"></a><span class="lineno"> 2065</span> </div>
<div class="line"><a name="l02066"></a><span class="lineno"> 2066</span> <span class="preprocessor">#ifdef HAVE_NATIVETHREAD</span></div>
<div class="line"><a name="l02067"></a><span class="lineno"> 2067</span> <span class="preprocessor"></span><span class="preprocessor">#ifndef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l02068"></a><span class="lineno"> 2068</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9e7d742a9c52a78b9b3dc81df878e2ed">ruby_native_thread_p</a>()) {</div>
<div class="line"><a name="l02069"></a><span class="lineno"> 2069</span>  <a class="code" href="../../db/dcc/error_8c.html#a2d5fb28e54f792e7341b2c45f52f3860">rb_bug</a>(<span class="stringliteral">"cross-thread violation on eventloop_sleep()"</span>);</div>
<div class="line"><a name="l02070"></a><span class="lineno"> 2070</span>  }</div>
<div class="line"><a name="l02071"></a><span class="lineno"> 2071</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02072"></a><span class="lineno"> 2072</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02073"></a><span class="lineno"> 2073</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l02074"></a><span class="lineno"> 2074</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eventloop_sleep: rb_thread_wait_for() at thread : %lx"</span>, <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>());</div>
<div class="line"><a name="l02075"></a><span class="lineno"> 2075</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8a3ea241e062a8c0dcd87b7232ca4900">rb_thread_wait_for</a>(t);</div>
<div class="line"><a name="l02076"></a><span class="lineno"> 2076</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eventloop_sleep: finish at thread : %lx"</span>, <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>());</div>
<div class="line"><a name="l02077"></a><span class="lineno"> 2077</span> </div>
<div class="line"><a name="l02078"></a><span class="lineno"> 2078</span> <span class="preprocessor">#ifdef HAVE_NATIVETHREAD</span></div>
<div class="line"><a name="l02079"></a><span class="lineno"> 2079</span> <span class="preprocessor"></span><span class="preprocessor">#ifndef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l02080"></a><span class="lineno"> 2080</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9e7d742a9c52a78b9b3dc81df878e2ed">ruby_native_thread_p</a>()) {</div>
<div class="line"><a name="l02081"></a><span class="lineno"> 2081</span>  <a class="code" href="../../db/dcc/error_8c.html#a2d5fb28e54f792e7341b2c45f52f3860">rb_bug</a>(<span class="stringliteral">"cross-thread violation on eventloop_sleep()"</span>);</div>
<div class="line"><a name="l02082"></a><span class="lineno"> 2082</span>  }</div>
<div class="line"><a name="l02083"></a><span class="lineno"> 2083</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02084"></a><span class="lineno"> 2084</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02085"></a><span class="lineno"> 2085</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l02086"></a><span class="lineno"> 2086</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02087"></a><span class="lineno"> 2087</span> }</div>
<div class="line"><a name="l02088"></a><span class="lineno"> 2088</span> </div>
<div class="line"><a name="l02089"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6058a76395808a09a414a8a9b7c2a7b4"> 2089</a></span> <span class="preprocessor">#define USE_EVLOOP_THREAD_ALONE_CHECK_FLAG 0</span></div>
<div class="line"><a name="l02090"></a><span class="lineno"> 2090</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l02091"></a><span class="lineno"> 2091</span> <span class="preprocessor">#if USE_EVLOOP_THREAD_ALONE_CHECK_FLAG</span></div>
<div class="line"><a name="l02092"></a><span class="lineno"> 2092</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l02093"></a><span class="lineno"> 2093</span> get_thread_alone_check_flag()</div>
<div class="line"><a name="l02094"></a><span class="lineno"> 2094</span> {</div>
<div class="line"><a name="l02095"></a><span class="lineno"> 2095</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l02096"></a><span class="lineno"> 2096</span> <span class="preprocessor"></span> <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02097"></a><span class="lineno"> 2097</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l02098"></a><span class="lineno"> 2098</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a171a0d27738b86387c3b5d7a5ff075e8">set_tcltk_version</a>();</div>
<div class="line"><a name="l02099"></a><span class="lineno"> 2099</span> </div>
<div class="line"><a name="l02100"></a><span class="lineno"> 2100</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad8ac3374c4088a9f45080df85e325e8e">tcltk_version</a>.major < 8) {</div>
<div class="line"><a name="l02101"></a><span class="lineno"> 2101</span>  <span class="comment">/* Tcl/Tk 7.x */</span></div>
<div class="line"><a name="l02102"></a><span class="lineno"> 2102</span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l02103"></a><span class="lineno"> 2103</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad8ac3374c4088a9f45080df85e325e8e">tcltk_version</a>.major == 8) {</div>
<div class="line"><a name="l02104"></a><span class="lineno"> 2104</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad8ac3374c4088a9f45080df85e325e8e">tcltk_version</a>.minor < 5) {</div>
<div class="line"><a name="l02105"></a><span class="lineno"> 2105</span>  <span class="comment">/* Tcl/Tk 8.0 - 8.4 */</span></div>
<div class="line"><a name="l02106"></a><span class="lineno"> 2106</span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l02107"></a><span class="lineno"> 2107</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad8ac3374c4088a9f45080df85e325e8e">tcltk_version</a>.minor == 5) {</div>
<div class="line"><a name="l02108"></a><span class="lineno"> 2108</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad8ac3374c4088a9f45080df85e325e8e">tcltk_version</a>.type < <a class="code" href="../../d5/d9d/tcltklib_8c.html#aeebe90bc7223d7d0cdc31f8e2e336e40">TCL_FINAL_RELEASE</a>) {</div>
<div class="line"><a name="l02109"></a><span class="lineno"> 2109</span>  <span class="comment">/* Tcl/Tk 8.5a? - 8.5b? */</span></div>
<div class="line"><a name="l02110"></a><span class="lineno"> 2110</span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l02111"></a><span class="lineno"> 2111</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02112"></a><span class="lineno"> 2112</span>  <span class="comment">/* Tcl/Tk 8.5.x */</span></div>
<div class="line"><a name="l02113"></a><span class="lineno"> 2113</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02114"></a><span class="lineno"> 2114</span>  }</div>
<div class="line"><a name="l02115"></a><span class="lineno"> 2115</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02116"></a><span class="lineno"> 2116</span>  <span class="comment">/* Tcl/Tk 8.6 - 8.9 ?? */</span></div>
<div class="line"><a name="l02117"></a><span class="lineno"> 2117</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02118"></a><span class="lineno"> 2118</span>  }</div>
<div class="line"><a name="l02119"></a><span class="lineno"> 2119</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02120"></a><span class="lineno"> 2120</span>  <span class="comment">/* Tcl/Tk 9+ ?? */</span></div>
<div class="line"><a name="l02121"></a><span class="lineno"> 2121</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02122"></a><span class="lineno"> 2122</span>  }</div>
<div class="line"><a name="l02123"></a><span class="lineno"> 2123</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02124"></a><span class="lineno"> 2124</span> <span class="preprocessor"></span>}</div>
<div class="line"><a name="l02125"></a><span class="lineno"> 2125</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02126"></a><span class="lineno"> 2126</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l02127"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a52e6fec0d2c0348c2e08039651add637"> 2127</a></span> <span class="preprocessor">#define TRAP_CHECK() do { \</span></div>
<div class="line"><a name="l02128"></a><span class="lineno"> 2128</span> <span class="preprocessor"> if (trap_check(check_var) == 0) return 0; \</span></div>
<div class="line"><a name="l02129"></a><span class="lineno"> 2129</span> <span class="preprocessor">} while (0)</span></div>
<div class="line"><a name="l02130"></a><span class="lineno"> 2130</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l02131"></a><span class="lineno"> 2131</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l02132"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a96d7361e5cdcd126524d9a7310940c5b"> 2132</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a96d7361e5cdcd126524d9a7310940c5b">trap_check</a>(<span class="keywordtype">int</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a29dc73e5e2550b8487dd5b2e99c6c435">check_var</a>)</div>
<div class="line"><a name="l02133"></a><span class="lineno"> 2133</span> {</div>
<div class="line"><a name="l02134"></a><span class="lineno"> 2134</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"trap check"</span>);</div>
<div class="line"><a name="l02135"></a><span class="lineno"> 2135</span> </div>
<div class="line"><a name="l02136"></a><span class="lineno"> 2136</span> <span class="preprocessor">#ifdef RUBY_VM</span></div>
<div class="line"><a name="l02137"></a><span class="lineno"> 2137</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../d3/de7/thread_8c.html#a024fc07d1560d6a94da3bcc268c9bbd8">rb_thread_check_trap_pending</a>()) {</div>
<div class="line"><a name="l02138"></a><span class="lineno"> 2138</span>  <span class="keywordflow">if</span> (check_var != (<span class="keywordtype">int</span>*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l02139"></a><span class="lineno"> 2139</span>  <span class="comment">/* wait command */</span></div>
<div class="line"><a name="l02140"></a><span class="lineno"> 2140</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02141"></a><span class="lineno"> 2141</span>  }</div>
<div class="line"><a name="l02142"></a><span class="lineno"> 2142</span>  <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02143"></a><span class="lineno"> 2143</span>  <a class="code" href="../../db/d2e/intern_8h.html#a9c9bfa5b17b2be949b3ca843e6a0ee9e">rb_thread_check_ints</a>();</div>
<div class="line"><a name="l02144"></a><span class="lineno"> 2144</span>  }</div>
<div class="line"><a name="l02145"></a><span class="lineno"> 2145</span>  }</div>
<div class="line"><a name="l02146"></a><span class="lineno"> 2146</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l02147"></a><span class="lineno"> 2147</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (rb_trap_pending) {</div>
<div class="line"><a name="l02148"></a><span class="lineno"> 2148</span>  run_timer_flag = 0;</div>
<div class="line"><a name="l02149"></a><span class="lineno"> 2149</span>  <span class="keywordflow">if</span> (rb_prohibit_interrupt || check_var != (<span class="keywordtype">int</span>*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l02150"></a><span class="lineno"> 2150</span>  <span class="comment">/* pending or on wait command */</span></div>
<div class="line"><a name="l02151"></a><span class="lineno"> 2151</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02152"></a><span class="lineno"> 2152</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02153"></a><span class="lineno"> 2153</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0ada2cbd6df1fd2e1b65f182f372596a">rb_trap_exec</a>();</div>
<div class="line"><a name="l02154"></a><span class="lineno"> 2154</span>  }</div>
<div class="line"><a name="l02155"></a><span class="lineno"> 2155</span>  }</div>
<div class="line"><a name="l02156"></a><span class="lineno"> 2156</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02157"></a><span class="lineno"> 2157</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l02158"></a><span class="lineno"> 2158</span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l02159"></a><span class="lineno"> 2159</span> }</div>
<div class="line"><a name="l02160"></a><span class="lineno"> 2160</span> </div>
<div class="line"><a name="l02161"></a><span class="lineno"> 2161</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l02162"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a34e1a549edf3c2940a9d300814df2cd3"> 2162</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a34e1a549edf3c2940a9d300814df2cd3">check_eventloop_interp</a>()</div>
<div class="line"><a name="l02163"></a><span class="lineno"> 2163</span> {</div>
<div class="line"><a name="l02164"></a><span class="lineno"> 2164</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"check eventloop_interp"</span>);</div>
<div class="line"><a name="l02165"></a><span class="lineno"> 2165</span>  <span class="keywordflow">if</span> (eventloop_interp != (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a></div>
<div class="line"><a name="l02166"></a><span class="lineno"> 2166</span>  && Tcl_InterpDeleted(eventloop_interp)) {</div>
<div class="line"><a name="l02167"></a><span class="lineno"> 2167</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eventloop_interp(%p) was deleted"</span>, eventloop_interp);</div>
<div class="line"><a name="l02168"></a><span class="lineno"> 2168</span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l02169"></a><span class="lineno"> 2169</span>  }</div>
<div class="line"><a name="l02170"></a><span class="lineno"> 2170</span> </div>
<div class="line"><a name="l02171"></a><span class="lineno"> 2171</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02172"></a><span class="lineno"> 2172</span> }</div>
<div class="line"><a name="l02173"></a><span class="lineno"> 2173</span> </div>
<div class="line"><a name="l02174"></a><span class="lineno"> 2174</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l02175"></a><span class="lineno"> 2175</span> lib_eventloop_core(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6d2c3b5c0b115bca08c809f3bf43bc4f">check_root</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd7368a9ef5c95322788a1d7db4800e">update_flag</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a29dc73e5e2550b8487dd5b2e99c6c435">check_var</a>, interp)</div>
<div class="line"><a name="l02176"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6d2c3b5c0b115bca08c809f3bf43bc4f"> 2176</a></span>  int <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6d2c3b5c0b115bca08c809f3bf43bc4f">check_root</a>;</div>
<div class="line"><a name="l02177"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#afbd7368a9ef5c95322788a1d7db4800e"> 2177</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd7368a9ef5c95322788a1d7db4800e">update_flag</a>;</div>
<div class="line"><a name="l02178"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a29dc73e5e2550b8487dd5b2e99c6c435"> 2178</a></span>  <span class="keywordtype">int</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a29dc73e5e2550b8487dd5b2e99c6c435">check_var</a>;</div>
<div class="line"><a name="l02179"></a><span class="lineno"> 2179</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l02180"></a><span class="lineno"> 2180</span> {</div>
<div class="line"><a name="l02181"></a><span class="lineno"> 2181</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../dd/dfb/yaml2byte_8c.html#a711673dea8d1c623bad6447fee9dd1eb">current</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab288f7df2583d5f1d31391ed9cc9ea5d">eventloop_thread</a>;</div>
<div class="line"><a name="l02182"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af03f8d848963d2fe3b455ebc9bf54fd7"> 2182</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af03f8d848963d2fe3b455ebc9bf54fd7">found_event</a> = 1;</div>
<div class="line"><a name="l02183"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7cf390eccb5be6d98eaf4fe03e64e2af"> 2183</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7cf390eccb5be6d98eaf4fe03e64e2af">event_flag</a>;</div>
<div class="line"><a name="l02184"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0cce77f9f8a4e36de74a1b5d4e14bd30"> 2184</a></span>  <span class="keyword">struct </span><a class="code" href="../../d1/d1b/structtimeval.html">timeval</a> t;</div>
<div class="line"><a name="l02185"></a><span class="lineno"> 2185</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l02186"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9611b3a00430a86619b5923de30f9fdb"> 2186</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9611b3a00430a86619b5923de30f9fdb">status</a>;</div>
<div class="line"><a name="l02187"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#acb5ba97551079e0b072c62c21d784ac5"> 2187</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#acb5ba97551079e0b072c62c21d784ac5">depth</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a>;</div>
<div class="line"><a name="l02188"></a><span class="lineno"> 2188</span> <span class="preprocessor">#if USE_EVLOOP_THREAD_ALONE_CHECK_FLAG</span></div>
<div class="line"><a name="l02189"></a><span class="lineno"> 2189</span> <span class="preprocessor"></span> <span class="keywordtype">int</span> thread_alone_check_flag = 1;</div>
<div class="line"><a name="l02190"></a><span class="lineno"> 2190</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02191"></a><span class="lineno"> 2191</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l02192"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa37d094cd5a01193245161707d142f26"> 2192</a></span>  <span class="keywordflow">if</span> (update_flag) <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"update loop start!!"</span>);</div>
<div class="line"><a name="l02193"></a><span class="lineno"> 2193</span> </div>
<div class="line"><a name="l02194"></a><span class="lineno"> 2194</span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#a3599199839a89e99a2ce29d45312b5cf">tv_sec</a> = 0;</div>
<div class="line"><a name="l02195"></a><span class="lineno"> 2195</span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#aa8396731f2914f9ed2a457d3da602b80">tv_usec</a> = 1000 * (<a class="code" href="../../d3/d15/name2ctype_8h.html#a86f2415763322050063a5502f87c9422">long</a>)no_event_wait;</div>
<div class="line"><a name="l02196"></a><span class="lineno"> 2196</span> </div>
<div class="line"><a name="l02197"></a><span class="lineno"> 2197</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad418bc99fb4a66afefe45ae235c77a3d">Tcl_DeleteTimerHandler</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a>);</div>
<div class="line"><a name="l02198"></a><span class="lineno"> 2198</span>  run_timer_flag = 0;</div>
<div class="line"><a name="l02199"></a><span class="lineno"> 2199</span>  <span class="keywordflow">if</span> (timer_tick > 0) {</div>
<div class="line"><a name="l02200"></a><span class="lineno"> 2200</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l02201"></a><span class="lineno"> 2201</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l02202"></a><span class="lineno"> 2202</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a> = Tcl_CreateTimerHandler(timer_tick, _timer_for_tcl,</div>
<div class="line"><a name="l02203"></a><span class="lineno"> 2203</span>  (ClientData)0);</div>
<div class="line"><a name="l02204"></a><span class="lineno"> 2204</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l02205"></a><span class="lineno"> 2205</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02206"></a><span class="lineno"> 2206</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a> = (Tcl_TimerToken)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l02207"></a><span class="lineno"> 2207</span>  }</div>
<div class="line"><a name="l02208"></a><span class="lineno"> 2208</span> </div>
<div class="line"><a name="l02209"></a><span class="lineno"> 2209</span> <span class="preprocessor">#if USE_EVLOOP_THREAD_ALONE_CHECK_FLAG</span></div>
<div class="line"><a name="l02210"></a><span class="lineno"> 2210</span> <span class="preprocessor"></span> <span class="comment">/* version check */</span></div>
<div class="line"><a name="l02211"></a><span class="lineno"> 2211</span>  thread_alone_check_flag = get_thread_alone_check_flag();</div>
<div class="line"><a name="l02212"></a><span class="lineno"> 2212</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02213"></a><span class="lineno"> 2213</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l02214"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8b9eb702eb3f9bcba3923532d1e801db"> 2214</a></span>  <span class="keywordflow">for</span>(;;) {</div>
<div class="line"><a name="l02215"></a><span class="lineno"> 2215</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a34e1a549edf3c2940a9d300814df2cd3">check_eventloop_interp</a>()) <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02216"></a><span class="lineno"> 2216</span> </div>
<div class="line"><a name="l02217"></a><span class="lineno"> 2217</span> <span class="preprocessor">#if USE_EVLOOP_THREAD_ALONE_CHECK_FLAG</span></div>
<div class="line"><a name="l02218"></a><span class="lineno"> 2218</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (thread_alone_check_flag && <a class="code" href="../../db/d2e/intern_8h.html#ac86131edba4a5a668958ce58b661d7ee">rb_thread_alone</a>()) {</div>
<div class="line"><a name="l02219"></a><span class="lineno"> 2219</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l02220"></a><span class="lineno"> 2220</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#ac86131edba4a5a668958ce58b661d7ee">rb_thread_alone</a>()) {</div>
<div class="line"><a name="l02221"></a><span class="lineno"> 2221</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02222"></a><span class="lineno"> 2222</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"no other thread"</span>);</div>
<div class="line"><a name="l02223"></a><span class="lineno"> 2223</span>  event_loop_wait_event = 0;</div>
<div class="line"><a name="l02224"></a><span class="lineno"> 2224</span> </div>
<div class="line"><a name="l02225"></a><span class="lineno"> 2225</span>  <span class="keywordflow">if</span> (update_flag) {</div>
<div class="line"><a name="l02226"></a><span class="lineno"> 2226</span>  event_flag = <a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd7368a9ef5c95322788a1d7db4800e">update_flag</a>;</div>
<div class="line"><a name="l02227"></a><span class="lineno"> 2227</span>  <span class="comment">/* event_flag = update_flag | TCL_DONT_WAIT; */</span> <span class="comment">/* for safety */</span></div>
<div class="line"><a name="l02228"></a><span class="lineno"> 2228</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02229"></a><span class="lineno"> 2229</span>  event_flag = TCL_ALL_EVENTS;</div>
<div class="line"><a name="l02230"></a><span class="lineno"> 2230</span>  <span class="comment">/* event_flag = TCL_ALL_EVENTS | TCL_DONT_WAIT; */</span></div>
<div class="line"><a name="l02231"></a><span class="lineno"> 2231</span>  }</div>
<div class="line"><a name="l02232"></a><span class="lineno"> 2232</span> </div>
<div class="line"><a name="l02233"></a><span class="lineno"> 2233</span>  <span class="keywordflow">if</span> (timer_tick == 0 && update_flag == 0) {</div>
<div class="line"><a name="l02234"></a><span class="lineno"> 2234</span>  timer_tick = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a18f3feef1d89c72c2ea59a0ce2dd8366">NO_THREAD_INTERRUPT_TIME</a>;</div>
<div class="line"><a name="l02235"></a><span class="lineno"> 2235</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a> = Tcl_CreateTimerHandler(timer_tick,</div>
<div class="line"><a name="l02236"></a><span class="lineno"> 2236</span>  _timer_for_tcl,</div>
<div class="line"><a name="l02237"></a><span class="lineno"> 2237</span>  (ClientData)0);</div>
<div class="line"><a name="l02238"></a><span class="lineno"> 2238</span>  }</div>
<div class="line"><a name="l02239"></a><span class="lineno"> 2239</span> </div>
<div class="line"><a name="l02240"></a><span class="lineno"> 2240</span>  <span class="keywordflow">if</span> (check_var != (<span class="keywordtype">int</span> *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l02241"></a><span class="lineno"> 2241</span>  <span class="keywordflow">if</span> (*check_var || !found_event) {</div>
<div class="line"><a name="l02242"></a><span class="lineno"> 2242</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af03f8d848963d2fe3b455ebc9bf54fd7">found_event</a>;</div>
<div class="line"><a name="l02243"></a><span class="lineno"> 2243</span>  }</div>
<div class="line"><a name="l02244"></a><span class="lineno"> 2244</span>  <span class="keywordflow">if</span> (interp != (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a></div>
<div class="line"><a name="l02245"></a><span class="lineno"> 2245</span>  && Tcl_InterpDeleted(interp)) {</div>
<div class="line"><a name="l02246"></a><span class="lineno"> 2246</span>  <span class="comment">/* IP for check_var is deleted */</span></div>
<div class="line"><a name="l02247"></a><span class="lineno"> 2247</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02248"></a><span class="lineno"> 2248</span>  }</div>
<div class="line"><a name="l02249"></a><span class="lineno"> 2249</span>  }</div>
<div class="line"><a name="l02250"></a><span class="lineno"> 2250</span> </div>
<div class="line"><a name="l02251"></a><span class="lineno"> 2251</span>  <span class="comment">/* found_event = Tcl_DoOneEvent(event_flag); */</span></div>
<div class="line"><a name="l02252"></a><span class="lineno"> 2252</span>  found_event = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(call_DoOneEvent,</div>
<div class="line"><a name="l02253"></a><span class="lineno"> 2253</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(event_flag), &status));</div>
<div class="line"><a name="l02254"></a><span class="lineno"> 2254</span>  <span class="keywordflow">if</span> (status) {</div>
<div class="line"><a name="l02255"></a><span class="lineno"> 2255</span>  <span class="keywordflow">switch</span> (status) {</div>
<div class="line"><a name="l02256"></a><span class="lineno"> 2256</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0b034bce069147e233776bc1dcc74c01">TAG_RAISE</a>:</div>
<div class="line"><a name="l02257"></a><span class="lineno"> 2257</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>())) {</div>
<div class="line"><a name="l02258"></a><span class="lineno"> 2258</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a></div>
<div class="line"><a name="l02259"></a><span class="lineno"> 2259</span>  = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>, <span class="stringliteral">"unknown exception"</span>);</div>
<div class="line"><a name="l02260"></a><span class="lineno"> 2260</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02261"></a><span class="lineno"> 2261</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div>
<div class="line"><a name="l02262"></a><span class="lineno"> 2262</span> </div>
<div class="line"><a name="l02263"></a><span class="lineno"> 2263</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>)) {</div>
<div class="line"><a name="l02264"></a><span class="lineno"> 2264</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a> == 0) {</div>
<div class="line"><a name="l02265"></a><span class="lineno"> 2265</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>;</div>
<div class="line"><a name="l02266"></a><span class="lineno"> 2266</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02267"></a><span class="lineno"> 2267</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(exc);</div>
<div class="line"><a name="l02268"></a><span class="lineno"> 2268</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02269"></a><span class="lineno"> 2269</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02270"></a><span class="lineno"> 2270</span>  }</div>
<div class="line"><a name="l02271"></a><span class="lineno"> 2271</span>  }</div>
<div class="line"><a name="l02272"></a><span class="lineno"> 2272</span>  }</div>
<div class="line"><a name="l02273"></a><span class="lineno"> 2273</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l02274"></a><span class="lineno"> 2274</span> </div>
<div class="line"><a name="l02275"></a><span class="lineno"> 2275</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7490e601d6a9d97a79d4d895ad73c93a">TAG_FATAL</a>:</div>
<div class="line"><a name="l02276"></a><span class="lineno"> 2276</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>())) {</div>
<div class="line"><a name="l02277"></a><span class="lineno"> 2277</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a7df09bfc26c0ffa7592f91fdcf64fcec">rb_eFatal</a>, <span class="stringliteral">"FATAL"</span>));</div>
<div class="line"><a name="l02278"></a><span class="lineno"> 2278</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02279"></a><span class="lineno"> 2279</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>());</div>
<div class="line"><a name="l02280"></a><span class="lineno"> 2280</span>  }</div>
<div class="line"><a name="l02281"></a><span class="lineno"> 2281</span>  }</div>
<div class="line"><a name="l02282"></a><span class="lineno"> 2282</span>  }</div>
<div class="line"><a name="l02283"></a><span class="lineno"> 2283</span> </div>
<div class="line"><a name="l02284"></a><span class="lineno"> 2284</span>  <span class="keywordflow">if</span> (depth != <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a>) {</div>
<div class="line"><a name="l02285"></a><span class="lineno"> 2285</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"DoOneEvent(1) abnormal exit!! %d"</span>,</div>
<div class="line"><a name="l02286"></a><span class="lineno"> 2286</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a>);</div>
<div class="line"><a name="l02287"></a><span class="lineno"> 2287</span>  }</div>
<div class="line"><a name="l02288"></a><span class="lineno"> 2288</span> </div>
<div class="line"><a name="l02289"></a><span class="lineno"> 2289</span>  <span class="keywordflow">if</span> (check_var != (<span class="keywordtype">int</span>*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a> && !<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>)) {</div>
<div class="line"><a name="l02290"></a><span class="lineno"> 2290</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"exception on wait"</span>);</div>
<div class="line"><a name="l02291"></a><span class="lineno"> 2291</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02292"></a><span class="lineno"> 2292</span>  }</div>
<div class="line"><a name="l02293"></a><span class="lineno"> 2293</span> </div>
<div class="line"><a name="l02294"></a><span class="lineno"> 2294</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#af98c87d8044c5fd2c6bcd541cbc2c649">pending_exception_check0</a>()) {</div>
<div class="line"><a name="l02295"></a><span class="lineno"> 2295</span>  <span class="comment">/* pending -> upper level */</span></div>
<div class="line"><a name="l02296"></a><span class="lineno"> 2296</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02297"></a><span class="lineno"> 2297</span>  }</div>
<div class="line"><a name="l02298"></a><span class="lineno"> 2298</span> </div>
<div class="line"><a name="l02299"></a><span class="lineno"> 2299</span>  <span class="keywordflow">if</span> (update_flag != 0) {</div>
<div class="line"><a name="l02300"></a><span class="lineno"> 2300</span>  <span class="keywordflow">if</span> (found_event) {</div>
<div class="line"><a name="l02301"></a><span class="lineno"> 2301</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"next update loop"</span>);</div>
<div class="line"><a name="l02302"></a><span class="lineno"> 2302</span>  <span class="keywordflow">continue</span>;</div>
<div class="line"><a name="l02303"></a><span class="lineno"> 2303</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02304"></a><span class="lineno"> 2304</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"update complete"</span>);</div>
<div class="line"><a name="l02305"></a><span class="lineno"> 2305</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02306"></a><span class="lineno"> 2306</span>  }</div>
<div class="line"><a name="l02307"></a><span class="lineno"> 2307</span>  }</div>
<div class="line"><a name="l02308"></a><span class="lineno"> 2308</span> </div>
<div class="line"><a name="l02309"></a><span class="lineno"> 2309</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a52e6fec0d2c0348c2e08039651add637">TRAP_CHECK</a>();</div>
<div class="line"><a name="l02310"></a><span class="lineno"> 2310</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a34e1a549edf3c2940a9d300814df2cd3">check_eventloop_interp</a>()) <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02311"></a><span class="lineno"> 2311</span> </div>
<div class="line"><a name="l02312"></a><span class="lineno"> 2312</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"check Root Widget"</span>);</div>
<div class="line"><a name="l02313"></a><span class="lineno"> 2313</span>  <span class="keywordflow">if</span> (check_root && <a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>() && Tk_GetNumMainWindows() == 0) {</div>
<div class="line"><a name="l02314"></a><span class="lineno"> 2314</span>  run_timer_flag = 0;</div>
<div class="line"><a name="l02315"></a><span class="lineno"> 2315</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a52e6fec0d2c0348c2e08039651add637">TRAP_CHECK</a>();</div>
<div class="line"><a name="l02316"></a><span class="lineno"> 2316</span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l02317"></a><span class="lineno"> 2317</span>  }</div>
<div class="line"><a name="l02318"></a><span class="lineno"> 2318</span> </div>
<div class="line"><a name="l02319"></a><span class="lineno"> 2319</span>  <span class="keywordflow">if</span> (loop_counter++ > 30000) {</div>
<div class="line"><a name="l02320"></a><span class="lineno"> 2320</span>  <span class="comment">/* fprintf(stderr, "loop_counter > 30000\n"); */</span></div>
<div class="line"><a name="l02321"></a><span class="lineno"> 2321</span>  loop_counter = 0;</div>
<div class="line"><a name="l02322"></a><span class="lineno"> 2322</span>  }</div>
<div class="line"><a name="l02323"></a><span class="lineno"> 2323</span> </div>
<div class="line"><a name="l02324"></a><span class="lineno"> 2324</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02325"></a><span class="lineno"> 2325</span>  <span class="keywordtype">int</span> tick_counter;</div>
<div class="line"><a name="l02326"></a><span class="lineno"> 2326</span> </div>
<div class="line"><a name="l02327"></a><span class="lineno"> 2327</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"there are other threads"</span>);</div>
<div class="line"><a name="l02328"></a><span class="lineno"> 2328</span>  event_loop_wait_event = 1;</div>
<div class="line"><a name="l02329"></a><span class="lineno"> 2329</span> </div>
<div class="line"><a name="l02330"></a><span class="lineno"> 2330</span>  found_event = 1;</div>
<div class="line"><a name="l02331"></a><span class="lineno"> 2331</span> </div>
<div class="line"><a name="l02332"></a><span class="lineno"> 2332</span>  <span class="keywordflow">if</span> (update_flag) {</div>
<div class="line"><a name="l02333"></a><span class="lineno"> 2333</span>  event_flag = <a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd7368a9ef5c95322788a1d7db4800e">update_flag</a>; <span class="comment">/* for safety */</span></div>
<div class="line"><a name="l02334"></a><span class="lineno"> 2334</span>  <span class="comment">/* event_flag = update_flag | TCL_DONT_WAIT; */</span> <span class="comment">/* for safety */</span></div>
<div class="line"><a name="l02335"></a><span class="lineno"> 2335</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02336"></a><span class="lineno"> 2336</span>  event_flag = TCL_ALL_EVENTS;</div>
<div class="line"><a name="l02337"></a><span class="lineno"> 2337</span>  <span class="comment">/* event_flag = TCL_ALL_EVENTS | TCL_DONT_WAIT; */</span></div>
<div class="line"><a name="l02338"></a><span class="lineno"> 2338</span>  }</div>
<div class="line"><a name="l02339"></a><span class="lineno"> 2339</span> </div>
<div class="line"><a name="l02340"></a><span class="lineno"> 2340</span>  timer_tick = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aee699b1c46e61042b7675d02247208fb">req_timer_tick</a>;</div>
<div class="line"><a name="l02341"></a><span class="lineno"> 2341</span>  tick_counter = 0;</div>
<div class="line"><a name="l02342"></a><span class="lineno"> 2342</span>  <span class="keywordflow">while</span>(tick_counter < event_loop_max) {</div>
<div class="line"><a name="l02343"></a><span class="lineno"> 2343</span>  <span class="keywordflow">if</span> (check_var != (<span class="keywordtype">int</span> *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l02344"></a><span class="lineno"> 2344</span>  <span class="keywordflow">if</span> (*check_var || !found_event) {</div>
<div class="line"><a name="l02345"></a><span class="lineno"> 2345</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af03f8d848963d2fe3b455ebc9bf54fd7">found_event</a>;</div>
<div class="line"><a name="l02346"></a><span class="lineno"> 2346</span>  }</div>
<div class="line"><a name="l02347"></a><span class="lineno"> 2347</span>  <span class="keywordflow">if</span> (interp != (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a></div>
<div class="line"><a name="l02348"></a><span class="lineno"> 2348</span>  && Tcl_InterpDeleted(interp)) {</div>
<div class="line"><a name="l02349"></a><span class="lineno"> 2349</span>  <span class="comment">/* IP for check_var is deleted */</span></div>
<div class="line"><a name="l02350"></a><span class="lineno"> 2350</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02351"></a><span class="lineno"> 2351</span>  }</div>
<div class="line"><a name="l02352"></a><span class="lineno"> 2352</span>  }</div>
<div class="line"><a name="l02353"></a><span class="lineno"> 2353</span> </div>
<div class="line"><a name="l02354"></a><span class="lineno"> 2354</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread) || current == eventloop_thread) {</div>
<div class="line"><a name="l02355"></a><span class="lineno"> 2355</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d30/stubs_8c.html#aea32fce8225a6281c3c202679698afbf">st</a>;</div>
<div class="line"><a name="l02356"></a><span class="lineno"> 2356</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9611b3a00430a86619b5923de30f9fdb">status</a>;</div>
<div class="line"><a name="l02357"></a><span class="lineno"> 2357</span> </div>
<div class="line"><a name="l02358"></a><span class="lineno"> 2358</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l02359"></a><span class="lineno"> 2359</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (update_flag) {</div>
<div class="line"><a name="l02360"></a><span class="lineno"> 2360</span>  st = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(call_DoOneEvent,</div>
<div class="line"><a name="l02361"></a><span class="lineno"> 2361</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(event_flag), &status));</div>
<div class="line"><a name="l02362"></a><span class="lineno"> 2362</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02363"></a><span class="lineno"> 2363</span>  st = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(call_DoOneEvent,</div>
<div class="line"><a name="l02364"></a><span class="lineno"> 2364</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(event_flag & window_event_mode),</div>
<div class="line"><a name="l02365"></a><span class="lineno"> 2365</span>  &status));</div>
<div class="line"><a name="l02366"></a><span class="lineno"> 2366</span> <span class="preprocessor">#if USE_TOGGLE_WINDOW_MODE_FOR_IDLE</span></div>
<div class="line"><a name="l02367"></a><span class="lineno"> 2367</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (!st) {</div>
<div class="line"><a name="l02368"></a><span class="lineno"> 2368</span>  <span class="keywordflow">if</span> (toggle_eventloop_window_mode_for_idle()) {</div>
<div class="line"><a name="l02369"></a><span class="lineno"> 2369</span>  <span class="comment">/* idle-mode -> event-mode*/</span></div>
<div class="line"><a name="l02370"></a><span class="lineno"> 2370</span>  tick_counter = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a96f86937ba3da5ecca00e04a2933451c">event_loop_max</a>;</div>
<div class="line"><a name="l02371"></a><span class="lineno"> 2371</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02372"></a><span class="lineno"> 2372</span>  <span class="comment">/* event-mode -> idle-mode */</span></div>
<div class="line"><a name="l02373"></a><span class="lineno"> 2373</span>  tick_counter = 0;</div>
<div class="line"><a name="l02374"></a><span class="lineno"> 2374</span>  }</div>
<div class="line"><a name="l02375"></a><span class="lineno"> 2375</span>  }</div>
<div class="line"><a name="l02376"></a><span class="lineno"> 2376</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02377"></a><span class="lineno"> 2377</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l02378"></a><span class="lineno"> 2378</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l02379"></a><span class="lineno"> 2379</span> <span class="preprocessor"></span> <span class="comment">/* st = Tcl_DoOneEvent(event_flag); */</span></div>
<div class="line"><a name="l02380"></a><span class="lineno"> 2380</span>  st = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(call_DoOneEvent,</div>
<div class="line"><a name="l02381"></a><span class="lineno"> 2381</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(event_flag), &status));</div>
<div class="line"><a name="l02382"></a><span class="lineno"> 2382</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02383"></a><span class="lineno"> 2383</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l02384"></a><span class="lineno"> 2384</span> <span class="preprocessor">#if CONTROL_BY_STATUS_OF_RB_THREAD_WAITING_FOR_VALUE</span></div>
<div class="line"><a name="l02385"></a><span class="lineno"> 2385</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (have_rb_thread_waiting_for_value) {</div>
<div class="line"><a name="l02386"></a><span class="lineno"> 2386</span>  have_rb_thread_waiting_for_value = 0;</div>
<div class="line"><a name="l02387"></a><span class="lineno"> 2387</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a032996d6998bbda639fe14f370a70f6d">rb_thread_schedule</a>();</div>
<div class="line"><a name="l02388"></a><span class="lineno"> 2388</span>  }</div>
<div class="line"><a name="l02389"></a><span class="lineno"> 2389</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02390"></a><span class="lineno"> 2390</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l02391"></a><span class="lineno"> 2391</span>  <span class="keywordflow">if</span> (status) {</div>
<div class="line"><a name="l02392"></a><span class="lineno"> 2392</span>  <span class="keywordflow">switch</span> (status) {</div>
<div class="line"><a name="l02393"></a><span class="lineno"> 2393</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0b034bce069147e233776bc1dcc74c01">TAG_RAISE</a>:</div>
<div class="line"><a name="l02394"></a><span class="lineno"> 2394</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>())) {</div>
<div class="line"><a name="l02395"></a><span class="lineno"> 2395</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a></div>
<div class="line"><a name="l02396"></a><span class="lineno"> 2396</span>  = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>,</div>
<div class="line"><a name="l02397"></a><span class="lineno"> 2397</span>  <span class="stringliteral">"unknown exception"</span>);</div>
<div class="line"><a name="l02398"></a><span class="lineno"> 2398</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02399"></a><span class="lineno"> 2399</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div>
<div class="line"><a name="l02400"></a><span class="lineno"> 2400</span> </div>
<div class="line"><a name="l02401"></a><span class="lineno"> 2401</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>)) {</div>
<div class="line"><a name="l02402"></a><span class="lineno"> 2402</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a> == 0) {</div>
<div class="line"><a name="l02403"></a><span class="lineno"> 2403</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>;</div>
<div class="line"><a name="l02404"></a><span class="lineno"> 2404</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02405"></a><span class="lineno"> 2405</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(exc);</div>
<div class="line"><a name="l02406"></a><span class="lineno"> 2406</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02407"></a><span class="lineno"> 2407</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02408"></a><span class="lineno"> 2408</span>  }</div>
<div class="line"><a name="l02409"></a><span class="lineno"> 2409</span>  }</div>
<div class="line"><a name="l02410"></a><span class="lineno"> 2410</span>  }</div>
<div class="line"><a name="l02411"></a><span class="lineno"> 2411</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l02412"></a><span class="lineno"> 2412</span> </div>
<div class="line"><a name="l02413"></a><span class="lineno"> 2413</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7490e601d6a9d97a79d4d895ad73c93a">TAG_FATAL</a>:</div>
<div class="line"><a name="l02414"></a><span class="lineno"> 2414</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>())) {</div>
<div class="line"><a name="l02415"></a><span class="lineno"> 2415</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a7df09bfc26c0ffa7592f91fdcf64fcec">rb_eFatal</a>, <span class="stringliteral">"FATAL"</span>));</div>
<div class="line"><a name="l02416"></a><span class="lineno"> 2416</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02417"></a><span class="lineno"> 2417</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>());</div>
<div class="line"><a name="l02418"></a><span class="lineno"> 2418</span>  }</div>
<div class="line"><a name="l02419"></a><span class="lineno"> 2419</span>  }</div>
<div class="line"><a name="l02420"></a><span class="lineno"> 2420</span>  }</div>
<div class="line"><a name="l02421"></a><span class="lineno"> 2421</span> </div>
<div class="line"><a name="l02422"></a><span class="lineno"> 2422</span>  <span class="keywordflow">if</span> (depth != <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a>) {</div>
<div class="line"><a name="l02423"></a><span class="lineno"> 2423</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"DoOneEvent(2) abnormal exit!! %d"</span>,</div>
<div class="line"><a name="l02424"></a><span class="lineno"> 2424</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a>);</div>
<div class="line"><a name="l02425"></a><span class="lineno"> 2425</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02426"></a><span class="lineno"> 2426</span>  }</div>
<div class="line"><a name="l02427"></a><span class="lineno"> 2427</span> </div>
<div class="line"><a name="l02428"></a><span class="lineno"> 2428</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a52e6fec0d2c0348c2e08039651add637">TRAP_CHECK</a>();</div>
<div class="line"><a name="l02429"></a><span class="lineno"> 2429</span> </div>
<div class="line"><a name="l02430"></a><span class="lineno"> 2430</span>  <span class="keywordflow">if</span> (check_var != (<span class="keywordtype">int</span>*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a></div>
<div class="line"><a name="l02431"></a><span class="lineno"> 2431</span>  && !<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>)) {</div>
<div class="line"><a name="l02432"></a><span class="lineno"> 2432</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"exception on wait"</span>);</div>
<div class="line"><a name="l02433"></a><span class="lineno"> 2433</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02434"></a><span class="lineno"> 2434</span>  }</div>
<div class="line"><a name="l02435"></a><span class="lineno"> 2435</span> </div>
<div class="line"><a name="l02436"></a><span class="lineno"> 2436</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#af98c87d8044c5fd2c6bcd541cbc2c649">pending_exception_check0</a>()) {</div>
<div class="line"><a name="l02437"></a><span class="lineno"> 2437</span>  <span class="comment">/* pending -> upper level */</span></div>
<div class="line"><a name="l02438"></a><span class="lineno"> 2438</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02439"></a><span class="lineno"> 2439</span>  }</div>
<div class="line"><a name="l02440"></a><span class="lineno"> 2440</span> </div>
<div class="line"><a name="l02441"></a><span class="lineno"> 2441</span>  <span class="keywordflow">if</span> (st) {</div>
<div class="line"><a name="l02442"></a><span class="lineno"> 2442</span>  tick_counter++;</div>
<div class="line"><a name="l02443"></a><span class="lineno"> 2443</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02444"></a><span class="lineno"> 2444</span>  <span class="keywordflow">if</span> (update_flag != 0) {</div>
<div class="line"><a name="l02445"></a><span class="lineno"> 2445</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"update complete"</span>);</div>
<div class="line"><a name="l02446"></a><span class="lineno"> 2446</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02447"></a><span class="lineno"> 2447</span>  }</div>
<div class="line"><a name="l02448"></a><span class="lineno"> 2448</span> </div>
<div class="line"><a name="l02449"></a><span class="lineno"> 2449</span>  tick_counter += <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2aedc29d81cdc1fbb8212eac69c9e19d">no_event_tick</a>;</div>
<div class="line"><a name="l02450"></a><span class="lineno"> 2450</span> </div>
<div class="line"><a name="l02451"></a><span class="lineno"> 2451</span> <span class="preprocessor">#if 0</span></div>
<div class="line"><a name="l02452"></a><span class="lineno"> 2452</span> <span class="preprocessor"></span> <span class="comment">/* rb_thread_wait_for(t); */</span></div>
<div class="line"><a name="l02453"></a><span class="lineno"> 2453</span>  <a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(eventloop_sleep, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>, &status);</div>
<div class="line"><a name="l02454"></a><span class="lineno"> 2454</span> </div>
<div class="line"><a name="l02455"></a><span class="lineno"> 2455</span>  <span class="keywordflow">if</span> (status) {</div>
<div class="line"><a name="l02456"></a><span class="lineno"> 2456</span>  <span class="keywordflow">switch</span> (status) {</div>
<div class="line"><a name="l02457"></a><span class="lineno"> 2457</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0b034bce069147e233776bc1dcc74c01">TAG_RAISE</a>:</div>
<div class="line"><a name="l02458"></a><span class="lineno"> 2458</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>())) {</div>
<div class="line"><a name="l02459"></a><span class="lineno"> 2459</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a></div>
<div class="line"><a name="l02460"></a><span class="lineno"> 2460</span>  = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>,</div>
<div class="line"><a name="l02461"></a><span class="lineno"> 2461</span>  <span class="stringliteral">"unknown exception"</span>);</div>
<div class="line"><a name="l02462"></a><span class="lineno"> 2462</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02463"></a><span class="lineno"> 2463</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div>
<div class="line"><a name="l02464"></a><span class="lineno"> 2464</span> </div>
<div class="line"><a name="l02465"></a><span class="lineno"> 2465</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>)) {</div>
<div class="line"><a name="l02466"></a><span class="lineno"> 2466</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a> == 0) {</div>
<div class="line"><a name="l02467"></a><span class="lineno"> 2467</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>;</div>
<div class="line"><a name="l02468"></a><span class="lineno"> 2468</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02469"></a><span class="lineno"> 2469</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(exc);</div>
<div class="line"><a name="l02470"></a><span class="lineno"> 2470</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02471"></a><span class="lineno"> 2471</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02472"></a><span class="lineno"> 2472</span>  }</div>
<div class="line"><a name="l02473"></a><span class="lineno"> 2473</span>  }</div>
<div class="line"><a name="l02474"></a><span class="lineno"> 2474</span>  }</div>
<div class="line"><a name="l02475"></a><span class="lineno"> 2475</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l02476"></a><span class="lineno"> 2476</span> </div>
<div class="line"><a name="l02477"></a><span class="lineno"> 2477</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7490e601d6a9d97a79d4d895ad73c93a">TAG_FATAL</a>:</div>
<div class="line"><a name="l02478"></a><span class="lineno"> 2478</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>())) {</div>
<div class="line"><a name="l02479"></a><span class="lineno"> 2479</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a7df09bfc26c0ffa7592f91fdcf64fcec">rb_eFatal</a>,</div>
<div class="line"><a name="l02480"></a><span class="lineno"> 2480</span>  <span class="stringliteral">"FATAL"</span>));</div>
<div class="line"><a name="l02481"></a><span class="lineno"> 2481</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02482"></a><span class="lineno"> 2482</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>());</div>
<div class="line"><a name="l02483"></a><span class="lineno"> 2483</span>  }</div>
<div class="line"><a name="l02484"></a><span class="lineno"> 2484</span>  }</div>
<div class="line"><a name="l02485"></a><span class="lineno"> 2485</span>  }</div>
<div class="line"><a name="l02486"></a><span class="lineno"> 2486</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02487"></a><span class="lineno"> 2487</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l02488"></a><span class="lineno"> 2488</span> </div>
<div class="line"><a name="l02489"></a><span class="lineno"> 2489</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02490"></a><span class="lineno"> 2490</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"sleep eventloop %lx"</span>, current);</div>
<div class="line"><a name="l02491"></a><span class="lineno"> 2491</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eventloop thread is %lx"</span>, eventloop_thread);</div>
<div class="line"><a name="l02492"></a><span class="lineno"> 2492</span>  <span class="comment">/* rb_thread_stop(); */</span></div>
<div class="line"><a name="l02493"></a><span class="lineno"> 2493</span>  <a class="code" href="../../db/d2e/intern_8h.html#a57a3a6b1a7a0c9dc8905611023297567">rb_thread_sleep_forever</a>();</div>
<div class="line"><a name="l02494"></a><span class="lineno"> 2494</span>  }</div>
<div class="line"><a name="l02495"></a><span class="lineno"> 2495</span> </div>
<div class="line"><a name="l02496"></a><span class="lineno"> 2496</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(watchdog_thread) && eventloop_thread != current) {</div>
<div class="line"><a name="l02497"></a><span class="lineno"> 2497</span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l02498"></a><span class="lineno"> 2498</span>  }</div>
<div class="line"><a name="l02499"></a><span class="lineno"> 2499</span> </div>
<div class="line"><a name="l02500"></a><span class="lineno"> 2500</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a52e6fec0d2c0348c2e08039651add637">TRAP_CHECK</a>();</div>
<div class="line"><a name="l02501"></a><span class="lineno"> 2501</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a34e1a549edf3c2940a9d300814df2cd3">check_eventloop_interp</a>()) <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l02502"></a><span class="lineno"> 2502</span> </div>
<div class="line"><a name="l02503"></a><span class="lineno"> 2503</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"check Root Widget"</span>);</div>
<div class="line"><a name="l02504"></a><span class="lineno"> 2504</span>  <span class="keywordflow">if</span> (check_root && <a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>() && Tk_GetNumMainWindows() == 0) {</div>
<div class="line"><a name="l02505"></a><span class="lineno"> 2505</span>  run_timer_flag = 0;</div>
<div class="line"><a name="l02506"></a><span class="lineno"> 2506</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a52e6fec0d2c0348c2e08039651add637">TRAP_CHECK</a>();</div>
<div class="line"><a name="l02507"></a><span class="lineno"> 2507</span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l02508"></a><span class="lineno"> 2508</span>  }</div>
<div class="line"><a name="l02509"></a><span class="lineno"> 2509</span> </div>
<div class="line"><a name="l02510"></a><span class="lineno"> 2510</span>  <span class="keywordflow">if</span> (loop_counter++ > 30000) {</div>
<div class="line"><a name="l02511"></a><span class="lineno"> 2511</span>  <span class="comment">/* fprintf(stderr, "loop_counter > 30000\n"); */</span></div>
<div class="line"><a name="l02512"></a><span class="lineno"> 2512</span>  loop_counter = 0;</div>
<div class="line"><a name="l02513"></a><span class="lineno"> 2513</span>  }</div>
<div class="line"><a name="l02514"></a><span class="lineno"> 2514</span> </div>
<div class="line"><a name="l02515"></a><span class="lineno"> 2515</span>  <span class="keywordflow">if</span> (run_timer_flag) {</div>
<div class="line"><a name="l02516"></a><span class="lineno"> 2516</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l02517"></a><span class="lineno"> 2517</span> <span class="comment"> DUMP1("timer interrupt");</span></div>
<div class="line"><a name="l02518"></a><span class="lineno"> 2518</span> <span class="comment"> run_timer_flag = 0;</span></div>
<div class="line"><a name="l02519"></a><span class="lineno"> 2519</span> <span class="comment"> */</span></div>
<div class="line"><a name="l02520"></a><span class="lineno"> 2520</span>  <span class="keywordflow">break</span>; <span class="comment">/* switch to other thread */</span></div>
<div class="line"><a name="l02521"></a><span class="lineno"> 2521</span>  }</div>
<div class="line"><a name="l02522"></a><span class="lineno"> 2522</span>  }</div>
<div class="line"><a name="l02523"></a><span class="lineno"> 2523</span> </div>
<div class="line"><a name="l02524"></a><span class="lineno"> 2524</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"thread scheduling"</span>);</div>
<div class="line"><a name="l02525"></a><span class="lineno"> 2525</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a032996d6998bbda639fe14f370a70f6d">rb_thread_schedule</a>();</div>
<div class="line"><a name="l02526"></a><span class="lineno"> 2526</span>  }</div>
<div class="line"><a name="l02527"></a><span class="lineno"> 2527</span> </div>
<div class="line"><a name="l02528"></a><span class="lineno"> 2528</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"check interrupts"</span>);</div>
<div class="line"><a name="l02529"></a><span class="lineno"> 2529</span> <span class="preprocessor">#if defined(RUBY_USE_NATIVE_THREAD) || defined(RUBY_VM)</span></div>
<div class="line"><a name="l02530"></a><span class="lineno"> 2530</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (update_flag == 0) <a class="code" href="../../db/d2e/intern_8h.html#a9c9bfa5b17b2be949b3ca843e6a0ee9e">rb_thread_check_ints</a>();</div>
<div class="line"><a name="l02531"></a><span class="lineno"> 2531</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l02532"></a><span class="lineno"> 2532</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (update_flag == 0) <a class="code" href="../../d0/de9/rubysig_8h.html#acd71077f561ca3b4b803e17481cc85ee">CHECK_INTS</a>;</div>
<div class="line"><a name="l02533"></a><span class="lineno"> 2533</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02534"></a><span class="lineno"> 2534</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l02535"></a><span class="lineno"> 2535</span>  }</div>
<div class="line"><a name="l02536"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9717e7bbecb906637e86cef6da3d83c2"> 2536</a></span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l02537"></a><span class="lineno"> 2537</span> }</div>
<div class="line"><a name="l02538"></a><span class="lineno"> 2538</span> </div>
<div class="line"><a name="l02539"></a><span class="lineno"> 2539</span> </div>
<div class="line"><a name="l02540"></a><span class="lineno"><a class="line" href="../../d3/de9/structevloop__params.html"> 2540</a></span> <span class="keyword">struct </span><a class="code" href="../../d3/de9/structevloop__params.html">evloop_params</a> {</div>
<div class="line"><a name="l02541"></a><span class="lineno"><a class="line" href="../../d3/de9/structevloop__params.html#a708cc255e06d9c190c2e05cd8c216495"> 2541</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d3/de9/structevloop__params.html#a708cc255e06d9c190c2e05cd8c216495">check_root</a>;</div>
<div class="line"><a name="l02542"></a><span class="lineno"><a class="line" href="../../d3/de9/structevloop__params.html#ae4dc203be43e5fa9f03ebcc643e40fe4"> 2542</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d3/de9/structevloop__params.html#ae4dc203be43e5fa9f03ebcc643e40fe4">update_flag</a>;</div>
<div class="line"><a name="l02543"></a><span class="lineno"><a class="line" href="../../d3/de9/structevloop__params.html#a76b488a954ff0c3cd0770004a1cd91c3"> 2543</a></span>  <span class="keywordtype">int</span> *<a class="code" href="../../d3/de9/structevloop__params.html#a76b488a954ff0c3cd0770004a1cd91c3">check_var</a>;</div>
<div class="line"><a name="l02544"></a><span class="lineno"><a class="line" href="../../d3/de9/structevloop__params.html#ab1ca04ef36befd4c7dbfc886eef74e32"> 2544</a></span>  Tcl_Interp *<a class="code" href="../../d3/de9/structevloop__params.html#ab1ca04ef36befd4c7dbfc886eef74e32">interp</a>;</div>
<div class="line"><a name="l02545"></a><span class="lineno"><a class="line" href="../../d3/de9/structevloop__params.html#a44b43898f08f3a4f4005db107aebb978"> 2545</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d3/de9/structevloop__params.html#a44b43898f08f3a4f4005db107aebb978">thr_crit_bup</a>;</div>
<div class="line"><a name="l02546"></a><span class="lineno"> 2546</span> };</div>
<div class="line"><a name="l02547"></a><span class="lineno"> 2547</span> </div>
<div class="line"><a name="l02548"></a><span class="lineno"> 2548</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02549"></a><span class="lineno"> 2549</span> lib_eventloop_main_core(args)</div>
<div class="line"><a name="l02550"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a05b5b50936801146696de051996c59bb"> 2550</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> args;</div>
<div class="line"><a name="l02551"></a><span class="lineno"> 2551</span> {</div>
<div class="line"><a name="l02552"></a><span class="lineno"> 2552</span>  <span class="keyword">struct </span><a class="code" href="../../d3/de9/structevloop__params.html">evloop_params</a> *params = (<span class="keyword">struct </span><a class="code" href="../../d3/de9/structevloop__params.html">evloop_params</a> *)args;</div>
<div class="line"><a name="l02553"></a><span class="lineno"> 2553</span> </div>
<div class="line"><a name="l02554"></a><span class="lineno"> 2554</span>  check_rootwidget_flag = params-><a class="code" href="../../d3/de9/structevloop__params.html#a708cc255e06d9c190c2e05cd8c216495">check_root</a>;</div>
<div class="line"><a name="l02555"></a><span class="lineno"> 2555</span> </div>
<div class="line"><a name="l02556"></a><span class="lineno"> 2556</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a812f3a9c8fa1c17844d943c9ab38ee98">Tcl_CreateEventSource</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#af2bf34bc42df2e5e8332e7ee104d2e1b">rbtk_EventSetupProc</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7c5cc2da826665da5df5c33182df8746">rbtk_EventCheckProc</a>, (ClientData)args);</div>
<div class="line"><a name="l02557"></a><span class="lineno"> 2557</span> </div>
<div class="line"><a name="l02558"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac0637c707595bd884696320d0d769444"> 2558</a></span>  <span class="keywordflow">if</span> (lib_eventloop_core(params-><a class="code" href="../../d3/de9/structevloop__params.html#a708cc255e06d9c190c2e05cd8c216495">check_root</a>,</div>
<div class="line"><a name="l02559"></a><span class="lineno"> 2559</span>  params-><a class="code" href="../../d3/de9/structevloop__params.html#ae4dc203be43e5fa9f03ebcc643e40fe4">update_flag</a>,</div>
<div class="line"><a name="l02560"></a><span class="lineno"> 2560</span>  params-><a class="code" href="../../d3/de9/structevloop__params.html#a76b488a954ff0c3cd0770004a1cd91c3">check_var</a>,</div>
<div class="line"><a name="l02561"></a><span class="lineno"> 2561</span>  params-><a class="code" href="../../d3/de9/structevloop__params.html#ab1ca04ef36befd4c7dbfc886eef74e32">interp</a>)) {</div>
<div class="line"><a name="l02562"></a><span class="lineno"> 2562</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l02563"></a><span class="lineno"> 2563</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02564"></a><span class="lineno"> 2564</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l02565"></a><span class="lineno"> 2565</span>  }</div>
<div class="line"><a name="l02566"></a><span class="lineno"> 2566</span> }</div>
<div class="line"><a name="l02567"></a><span class="lineno"> 2567</span> </div>
<div class="line"><a name="l02568"></a><span class="lineno"> 2568</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02569"></a><span class="lineno"> 2569</span> lib_eventloop_main(args)</div>
<div class="line"><a name="l02570"></a><span class="lineno"> 2570</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> args;</div>
<div class="line"><a name="l02571"></a><span class="lineno"> 2571</span> {</div>
<div class="line"><a name="l02572"></a><span class="lineno"> 2572</span>  <span class="keywordflow">return</span> lib_eventloop_main_core(args);</div>
<div class="line"><a name="l02573"></a><span class="lineno"> 2573</span> </div>
<div class="line"><a name="l02574"></a><span class="lineno"> 2574</span> <span class="preprocessor">#if 0</span></div>
<div class="line"><a name="l02575"></a><span class="lineno"> 2575</span> <span class="preprocessor"></span> <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l02576"></a><span class="lineno"> 2576</span>  <span class="keywordtype">int</span> status = 0;</div>
<div class="line"><a name="l02577"></a><span class="lineno"> 2577</span> </div>
<div class="line"><a name="l02578"></a><span class="lineno"> 2578</span>  ret = <a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(lib_eventloop_main_core, args, &status);</div>
<div class="line"><a name="l02579"></a><span class="lineno"> 2579</span> </div>
<div class="line"><a name="l02580"></a><span class="lineno"> 2580</span>  <span class="keywordflow">switch</span> (status) {</div>
<div class="line"><a name="l02581"></a><span class="lineno"> 2581</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0b034bce069147e233776bc1dcc74c01">TAG_RAISE</a>:</div>
<div class="line"><a name="l02582"></a><span class="lineno"> 2582</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>())) {</div>
<div class="line"><a name="l02583"></a><span class="lineno"> 2583</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a></div>
<div class="line"><a name="l02584"></a><span class="lineno"> 2584</span>  = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>, <span class="stringliteral">"unknown exception"</span>);</div>
<div class="line"><a name="l02585"></a><span class="lineno"> 2585</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02586"></a><span class="lineno"> 2586</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div>
<div class="line"><a name="l02587"></a><span class="lineno"> 2587</span>  }</div>
<div class="line"><a name="l02588"></a><span class="lineno"> 2588</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02589"></a><span class="lineno"> 2589</span> </div>
<div class="line"><a name="l02590"></a><span class="lineno"> 2590</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7490e601d6a9d97a79d4d895ad73c93a">TAG_FATAL</a>:</div>
<div class="line"><a name="l02591"></a><span class="lineno"> 2591</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>())) {</div>
<div class="line"><a name="l02592"></a><span class="lineno"> 2592</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a7df09bfc26c0ffa7592f91fdcf64fcec">rb_eFatal</a>, <span class="stringliteral">"FATAL"</span>);</div>
<div class="line"><a name="l02593"></a><span class="lineno"> 2593</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02594"></a><span class="lineno"> 2594</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div>
<div class="line"><a name="l02595"></a><span class="lineno"> 2595</span>  }</div>
<div class="line"><a name="l02596"></a><span class="lineno"> 2596</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02597"></a><span class="lineno"> 2597</span>  }</div>
<div class="line"><a name="l02598"></a><span class="lineno"> 2598</span> </div>
<div class="line"><a name="l02599"></a><span class="lineno"> 2599</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l02600"></a><span class="lineno"> 2600</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02601"></a><span class="lineno"> 2601</span> <span class="preprocessor"></span>}</div>
<div class="line"><a name="l02602"></a><span class="lineno"> 2602</span> </div>
<div class="line"><a name="l02603"></a><span class="lineno"> 2603</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02604"></a><span class="lineno"> 2604</span> lib_eventloop_ensure(args)</div>
<div class="line"><a name="l02605"></a><span class="lineno"> 2605</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> args;</div>
<div class="line"><a name="l02606"></a><span class="lineno"> 2606</span> {</div>
<div class="line"><a name="l02607"></a><span class="lineno"> 2607</span>  <span class="keyword">struct </span><a class="code" href="../../d3/de9/structevloop__params.html">evloop_params</a> *ptr = (<span class="keyword">struct </span><a class="code" href="../../d3/de9/structevloop__params.html">evloop_params</a> *)args;</div>
<div class="line"><a name="l02608"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a583a71ff958e739ca665037347b72a36"> 2608</a></span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a583a71ff958e739ca665037347b72a36">current_evloop</a> = <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>();</div>
<div class="line"><a name="l02609"></a><span class="lineno"> 2609</span> </div>
<div class="line"><a name="l02610"></a><span class="lineno"> 2610</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa1ad84a4ec63be68e955459efa2e4302">Tcl_DeleteEventSource</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#af2bf34bc42df2e5e8332e7ee104d2e1b">rbtk_EventSetupProc</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7c5cc2da826665da5df5c33182df8746">rbtk_EventCheckProc</a>, (ClientData)args);</div>
<div class="line"><a name="l02611"></a><span class="lineno"> 2611</span> </div>
<div class="line"><a name="l02612"></a><span class="lineno"> 2612</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eventloop_ensure: current-thread : %lx"</span>, current_evloop);</div>
<div class="line"><a name="l02613"></a><span class="lineno"> 2613</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eventloop_ensure: eventloop-thread : %lx"</span>, eventloop_thread);</div>
<div class="line"><a name="l02614"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3e70ff8d7226c6d5062d662fd4cc801b"> 2614</a></span>  <span class="keywordflow">if</span> (eventloop_thread != current_evloop) {</div>
<div class="line"><a name="l02615"></a><span class="lineno"> 2615</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"finish eventloop %lx (NOT current eventloop)"</span>, current_evloop);</div>
<div class="line"><a name="l02616"></a><span class="lineno"> 2616</span> </div>
<div class="line"><a name="l02617"></a><span class="lineno"> 2617</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = ptr-><a class="code" href="../../d3/de9/structevloop__params.html#a44b43898f08f3a4f4005db107aebb978">thr_crit_bup</a>;</div>
<div class="line"><a name="l02618"></a><span class="lineno"> 2618</span> </div>
<div class="line"><a name="l02619"></a><span class="lineno"> 2619</span>  <a class="code" href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a>(ptr);</div>
<div class="line"><a name="l02620"></a><span class="lineno"> 2620</span>  <span class="comment">/* ckfree((char*)ptr); */</span></div>
<div class="line"><a name="l02621"></a><span class="lineno"> 2621</span> </div>
<div class="line"><a name="l02622"></a><span class="lineno"> 2622</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02623"></a><span class="lineno"> 2623</span>  }</div>
<div class="line"><a name="l02624"></a><span class="lineno"> 2624</span> </div>
<div class="line"><a name="l02625"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8c20a33501917dddc6dffadde241760b"> 2625</a></span>  <span class="keywordflow">while</span>((eventloop_thread = <a class="code" href="../../dc/dcc/array_8c.html#aacb1ec2239256ca2e537588fc534e7b8">rb_ary_pop</a>(eventloop_stack))) {</div>
<div class="line"><a name="l02626"></a><span class="lineno"> 2626</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eventloop-ensure: new eventloop-thread -> %lx"</span>,</div>
<div class="line"><a name="l02627"></a><span class="lineno"> 2627</span>  eventloop_thread);</div>
<div class="line"><a name="l02628"></a><span class="lineno"> 2628</span> </div>
<div class="line"><a name="l02629"></a><span class="lineno"> 2629</span>  <span class="keywordflow">if</span> (eventloop_thread == current_evloop) {</div>
<div class="line"><a name="l02630"></a><span class="lineno"> 2630</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a>--;</div>
<div class="line"><a name="l02631"></a><span class="lineno"> 2631</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eventloop %lx : back from recursive call"</span>, current_evloop);</div>
<div class="line"><a name="l02632"></a><span class="lineno"> 2632</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l02633"></a><span class="lineno"> 2633</span>  }</div>
<div class="line"><a name="l02634"></a><span class="lineno"> 2634</span> </div>
<div class="line"><a name="l02635"></a><span class="lineno"> 2635</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread)) {</div>
<div class="line"><a name="l02636"></a><span class="lineno"> 2636</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad418bc99fb4a66afefe45ae235c77a3d">Tcl_DeleteTimerHandler</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a>);</div>
<div class="line"><a name="l02637"></a><span class="lineno"> 2637</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a> = (Tcl_TimerToken)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l02638"></a><span class="lineno"> 2638</span> </div>
<div class="line"><a name="l02639"></a><span class="lineno"> 2639</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l02640"></a><span class="lineno"> 2640</span>  }</div>
<div class="line"><a name="l02641"></a><span class="lineno"> 2641</span> </div>
<div class="line"><a name="l02642"></a><span class="lineno"> 2642</span> <span class="preprocessor">#ifdef RUBY_VM</span></div>
<div class="line"><a name="l02643"></a><span class="lineno"> 2643</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(eventloop_thread, ID_alive_p, 0, 0))) {</div>
<div class="line"><a name="l02644"></a><span class="lineno"> 2644</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l02645"></a><span class="lineno"> 2645</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d3/de7/thread_8c.html#a5b8ec82e1846eadcb0e0e97803ff7520">rb_thread_alive_p</a>(eventloop_thread))) {</div>
<div class="line"><a name="l02646"></a><span class="lineno"> 2646</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02647"></a><span class="lineno"> 2647</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eventloop-enshure: wake up parent %lx"</span>, eventloop_thread);</div>
<div class="line"><a name="l02648"></a><span class="lineno"> 2648</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1c6c386b417e79a679ef583c543e411f">rb_thread_wakeup</a>(eventloop_thread);</div>
<div class="line"><a name="l02649"></a><span class="lineno"> 2649</span> </div>
<div class="line"><a name="l02650"></a><span class="lineno"> 2650</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l02651"></a><span class="lineno"> 2651</span>  }</div>
<div class="line"><a name="l02652"></a><span class="lineno"> 2652</span>  }</div>
<div class="line"><a name="l02653"></a><span class="lineno"> 2653</span> </div>
<div class="line"><a name="l02654"></a><span class="lineno"> 2654</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l02655"></a><span class="lineno"> 2655</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread)) {</div>
<div class="line"><a name="l02656"></a><span class="lineno"> 2656</span>  tk_eventloop_thread_id = (Tcl_ThreadId) 0;</div>
<div class="line"><a name="l02657"></a><span class="lineno"> 2657</span>  }</div>
<div class="line"><a name="l02658"></a><span class="lineno"> 2658</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02659"></a><span class="lineno"> 2659</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l02660"></a><span class="lineno"> 2660</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = ptr-><a class="code" href="../../d3/de9/structevloop__params.html#a44b43898f08f3a4f4005db107aebb978">thr_crit_bup</a>;</div>
<div class="line"><a name="l02661"></a><span class="lineno"> 2661</span> </div>
<div class="line"><a name="l02662"></a><span class="lineno"> 2662</span>  <a class="code" href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a>(ptr);</div>
<div class="line"><a name="l02663"></a><span class="lineno"> 2663</span>  <span class="comment">/* ckfree((char*)ptr);*/</span></div>
<div class="line"><a name="l02664"></a><span class="lineno"> 2664</span> </div>
<div class="line"><a name="l02665"></a><span class="lineno"> 2665</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"finish current eventloop %lx"</span>, current_evloop);</div>
<div class="line"><a name="l02666"></a><span class="lineno"> 2666</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02667"></a><span class="lineno"> 2667</span> }</div>
<div class="line"><a name="l02668"></a><span class="lineno"> 2668</span> </div>
<div class="line"><a name="l02669"></a><span class="lineno"> 2669</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02670"></a><span class="lineno"> 2670</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a48ad410c8807d01926b70383e7dd0a9f">lib_eventloop_launcher</a>(check_root, update_flag, check_var, interp)</div>
<div class="line"><a name="l02671"></a><span class="lineno"> 2671</span>  int check_root;</div>
<div class="line"><a name="l02672"></a><span class="lineno"> 2672</span>  <span class="keywordtype">int</span> update_flag;</div>
<div class="line"><a name="l02673"></a><span class="lineno"> 2673</span>  <span class="keywordtype">int</span> *check_var;</div>
<div class="line"><a name="l02674"></a><span class="lineno"> 2674</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l02675"></a><span class="lineno"> 2675</span> {</div>
<div class="line"><a name="l02676"></a><span class="lineno"> 2676</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> parent_evloop = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab288f7df2583d5f1d31391ed9cc9ea5d">eventloop_thread</a>;</div>
<div class="line"><a name="l02677"></a><span class="lineno"> 2677</span>  <span class="keyword">struct </span><a class="code" href="../../d3/de9/structevloop__params.html">evloop_params</a> *args = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac8df5a8a8961bd9e16be385fef28c2f2">ALLOC</a>(<span class="keyword">struct</span> <a class="code" href="../../d3/de9/structevloop__params.html">evloop_params</a>);</div>
<div class="line"><a name="l02678"></a><span class="lineno"> 2678</span>  <span class="comment">/* struct evloop_params *args = (struct evloop_params *)ckalloc(sizeof(struct evloop_params)); */</span></div>
<div class="line"><a name="l02679"></a><span class="lineno"> 2679</span> </div>
<div class="line"><a name="l02680"></a><span class="lineno"> 2680</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#abbe469560280c936662242c94a43d994">tcl_stubs_check</a>();</div>
<div class="line"><a name="l02681"></a><span class="lineno"> 2681</span> </div>
<div class="line"><a name="l02682"></a><span class="lineno"> 2682</span>  eventloop_thread = <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>();</div>
<div class="line"><a name="l02683"></a><span class="lineno"> 2683</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l02684"></a><span class="lineno"> 2684</span> <span class="preprocessor"></span> tk_eventloop_thread_id = Tcl_GetCurrentThread();</div>
<div class="line"><a name="l02685"></a><span class="lineno"> 2685</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02686"></a><span class="lineno"> 2686</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l02687"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a88faf7271b81505e422258b4707dee7f"> 2687</a></span>  <span class="keywordflow">if</span> (parent_evloop == eventloop_thread) {</div>
<div class="line"><a name="l02688"></a><span class="lineno"> 2688</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eventloop: recursive call on %lx"</span>, parent_evloop);</div>
<div class="line"><a name="l02689"></a><span class="lineno"> 2689</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a>++;</div>
<div class="line"><a name="l02690"></a><span class="lineno"> 2690</span>  }</div>
<div class="line"><a name="l02691"></a><span class="lineno"> 2691</span> </div>
<div class="line"><a name="l02692"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af336664bb89d1b0af337298394e16dcd"> 2692</a></span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(parent_evloop) && parent_evloop != eventloop_thread) {</div>
<div class="line"><a name="l02693"></a><span class="lineno"> 2693</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"wait for stop of parent_evloop %lx"</span>, parent_evloop);</div>
<div class="line"><a name="l02694"></a><span class="lineno"> 2694</span>  <span class="keywordflow">while</span>(!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(parent_evloop, ID_stop_p, 0))) {</div>
<div class="line"><a name="l02695"></a><span class="lineno"> 2695</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"parent_evloop %lx doesn't stop"</span>, parent_evloop);</div>
<div class="line"><a name="l02696"></a><span class="lineno"> 2696</span>  <a class="code" href="../../db/d2e/intern_8h.html#a466749a3498fa8fbb48f7fc783a7cf34">rb_thread_run</a>(parent_evloop);</div>
<div class="line"><a name="l02697"></a><span class="lineno"> 2697</span>  }</div>
<div class="line"><a name="l02698"></a><span class="lineno"> 2698</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"succeed to stop parent"</span>);</div>
<div class="line"><a name="l02699"></a><span class="lineno"> 2699</span>  }</div>
<div class="line"><a name="l02700"></a><span class="lineno"> 2700</span> </div>
<div class="line"><a name="l02701"></a><span class="lineno"> 2701</span>  <a class="code" href="../../dc/dcc/array_8c.html#a59d553a8cd781364b8bcb0deae25cca2">rb_ary_push</a>(eventloop_stack, parent_evloop);</div>
<div class="line"><a name="l02702"></a><span class="lineno"> 2702</span> </div>
<div class="line"><a name="l02703"></a><span class="lineno"> 2703</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acaa678bcc1bd95ea581777cb137087b6">DUMP3</a>(<span class="stringliteral">"tcltklib: eventloop-thread : %lx -> %lx\n"</span>,</div>
<div class="line"><a name="l02704"></a><span class="lineno"> 2704</span>  parent_evloop, eventloop_thread);</div>
<div class="line"><a name="l02705"></a><span class="lineno"> 2705</span> </div>
<div class="line"><a name="l02706"></a><span class="lineno"> 2706</span>  args-><a class="code" href="../../d3/de9/structevloop__params.html#a708cc255e06d9c190c2e05cd8c216495">check_root</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6d2c3b5c0b115bca08c809f3bf43bc4f">check_root</a>;</div>
<div class="line"><a name="l02707"></a><span class="lineno"> 2707</span>  args-><a class="code" href="../../d3/de9/structevloop__params.html#ae4dc203be43e5fa9f03ebcc643e40fe4">update_flag</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd7368a9ef5c95322788a1d7db4800e">update_flag</a>;</div>
<div class="line"><a name="l02708"></a><span class="lineno"> 2708</span>  args-><a class="code" href="../../d3/de9/structevloop__params.html#a76b488a954ff0c3cd0770004a1cd91c3">check_var</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a29dc73e5e2550b8487dd5b2e99c6c435">check_var</a>;</div>
<div class="line"><a name="l02709"></a><span class="lineno"> 2709</span>  args-><a class="code" href="../../d3/de9/structevloop__params.html#ab1ca04ef36befd4c7dbfc886eef74e32">interp</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#abb159f1f4254ecf6df54f13d2b3468c6">interp</a>;</div>
<div class="line"><a name="l02710"></a><span class="lineno"> 2710</span>  args-><a class="code" href="../../d3/de9/structevloop__params.html#a44b43898f08f3a4f4005db107aebb978">thr_crit_bup</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l02711"></a><span class="lineno"> 2711</span> </div>
<div class="line"><a name="l02712"></a><span class="lineno"> 2712</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l02713"></a><span class="lineno"> 2713</span> </div>
<div class="line"><a name="l02714"></a><span class="lineno"> 2714</span> <span class="preprocessor">#if 0</span></div>
<div class="line"><a name="l02715"></a><span class="lineno"> 2715</span> <span class="preprocessor"></span> <span class="keywordflow">return</span> <a class="code" href="../../d3/d57/eval_8c.html#a8061198378fb16adeb931f90540b2839">rb_ensure</a>(lib_eventloop_main, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)args,</div>
<div class="line"><a name="l02716"></a><span class="lineno"> 2716</span>  lib_eventloop_ensure, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)args);</div>
<div class="line"><a name="l02717"></a><span class="lineno"> 2717</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02718"></a><span class="lineno"> 2718</span> <span class="preprocessor"></span> <span class="keywordflow">return</span> <a class="code" href="../../d3/d57/eval_8c.html#a8061198378fb16adeb931f90540b2839">rb_ensure</a>(lib_eventloop_main_core, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)args,</div>
<div class="line"><a name="l02719"></a><span class="lineno"> 2719</span>  lib_eventloop_ensure, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)args);</div>
<div class="line"><a name="l02720"></a><span class="lineno"> 2720</span> }</div>
<div class="line"><a name="l02721"></a><span class="lineno"> 2721</span> </div>
<div class="line"><a name="l02722"></a><span class="lineno"> 2722</span> <span class="comment">/* execute Tk_MainLoop */</span></div>
<div class="line"><a name="l02723"></a><span class="lineno"> 2723</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02724"></a><span class="lineno"> 2724</span> lib_mainloop(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>, argv, <span class="keyword">self</span>)</div>
<div class="line"><a name="l02725"></a><span class="lineno"> 2725</span>  int <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>;</div>
<div class="line"><a name="l02726"></a><span class="lineno"> 2726</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l02727"></a><span class="lineno"> 2727</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l02728"></a><span class="lineno"> 2728</span> {</div>
<div class="line"><a name="l02729"></a><span class="lineno"> 2729</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a97e05b3289f092241c95cf9e338a82b7">check_rootwidget</a>;</div>
<div class="line"><a name="l02730"></a><span class="lineno"> 2730</span> </div>
<div class="line"><a name="l02731"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5c9ef80bb3a56f7b9867fee293111e42"> 2731</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(argc, argv, <span class="stringliteral">"01"</span>, &check_rootwidget) == 0) {</div>
<div class="line"><a name="l02732"></a><span class="lineno"> 2732</span>  check_rootwidget = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l02733"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7e8f8ab382de371b403c43b8328b8653"> 2733</a></span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(check_rootwidget)) {</div>
<div class="line"><a name="l02734"></a><span class="lineno"> 2734</span>  check_rootwidget = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l02735"></a><span class="lineno"> 2735</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02736"></a><span class="lineno"> 2736</span>  check_rootwidget = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l02737"></a><span class="lineno"> 2737</span>  }</div>
<div class="line"><a name="l02738"></a><span class="lineno"> 2738</span> </div>
<div class="line"><a name="l02739"></a><span class="lineno"> 2739</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a48ad410c8807d01926b70383e7dd0a9f">lib_eventloop_launcher</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(check_rootwidget), 0,</div>
<div class="line"><a name="l02740"></a><span class="lineno"> 2740</span>  (<span class="keywordtype">int</span>*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>, (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l02741"></a><span class="lineno"> 2741</span> }</div>
<div class="line"><a name="l02742"></a><span class="lineno"> 2742</span> </div>
<div class="line"><a name="l02743"></a><span class="lineno"> 2743</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02744"></a><span class="lineno"> 2744</span> ip_mainloop(argc, argv, <span class="keyword">self</span>)</div>
<div class="line"><a name="l02745"></a><span class="lineno"> 2745</span>  int argc;</div>
<div class="line"><a name="l02746"></a><span class="lineno"> 2746</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l02747"></a><span class="lineno"> 2747</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l02748"></a><span class="lineno"> 2748</span> {</div>
<div class="line"><a name="l02749"></a><span class="lineno"> 2749</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l02750"></a><span class="lineno"> 2750</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l02751"></a><span class="lineno"> 2751</span> </div>
<div class="line"><a name="l02752"></a><span class="lineno"> 2752</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l02753"></a><span class="lineno"> 2753</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l02754"></a><span class="lineno"> 2754</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02755"></a><span class="lineno"> 2755</span>  }</div>
<div class="line"><a name="l02756"></a><span class="lineno"> 2756</span> </div>
<div class="line"><a name="l02757"></a><span class="lineno"> 2757</span>  <span class="keywordflow">if</span> (Tcl_GetMaster(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) != (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l02758"></a><span class="lineno"> 2758</span>  <span class="comment">/* slave IP */</span></div>
<div class="line"><a name="l02759"></a><span class="lineno"> 2759</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02760"></a><span class="lineno"> 2760</span>  }</div>
<div class="line"><a name="l02761"></a><span class="lineno"> 2761</span> </div>
<div class="line"><a name="l02762"></a><span class="lineno"> 2762</span>  eventloop_interp = ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>;</div>
<div class="line"><a name="l02763"></a><span class="lineno"> 2763</span>  ret = lib_mainloop(argc, argv, <span class="keyword">self</span>);</div>
<div class="line"><a name="l02764"></a><span class="lineno"> 2764</span>  eventloop_interp = (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l02765"></a><span class="lineno"> 2765</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l02766"></a><span class="lineno"> 2766</span> }</div>
<div class="line"><a name="l02767"></a><span class="lineno"> 2767</span> </div>
<div class="line"><a name="l02768"></a><span class="lineno"> 2768</span> </div>
<div class="line"><a name="l02769"></a><span class="lineno"> 2769</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02770"></a><span class="lineno"> 2770</span> watchdog_evloop_launcher(check_rootwidget)</div>
<div class="line"><a name="l02771"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a97e05b3289f092241c95cf9e338a82b7"> 2771</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> check_rootwidget;</div>
<div class="line"><a name="l02772"></a><span class="lineno"> 2772</span> {</div>
<div class="line"><a name="l02773"></a><span class="lineno"> 2773</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a48ad410c8807d01926b70383e7dd0a9f">lib_eventloop_launcher</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(check_rootwidget), 0,</div>
<div class="line"><a name="l02774"></a><span class="lineno"> 2774</span>  (<span class="keywordtype">int</span>*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>, (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l02775"></a><span class="lineno"> 2775</span> }</div>
<div class="line"><a name="l02776"></a><span class="lineno"> 2776</span> </div>
<div class="line"><a name="l02777"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a43ff4666b9a565e45077f1e660def679"> 2777</a></span> <span class="preprocessor">#define EVLOOP_WAKEUP_CHANCE 3</span></div>
<div class="line"><a name="l02778"></a><span class="lineno"> 2778</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l02779"></a><span class="lineno"> 2779</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02780"></a><span class="lineno"> 2780</span> lib_watchdog_core(check_rootwidget)</div>
<div class="line"><a name="l02781"></a><span class="lineno"> 2781</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> check_rootwidget;</div>
<div class="line"><a name="l02782"></a><span class="lineno"> 2782</span> {</div>
<div class="line"><a name="l02783"></a><span class="lineno"> 2783</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> evloop;</div>
<div class="line"><a name="l02784"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a18a0d6f8472380e63fd504dff516e492"> 2784</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a18a0d6f8472380e63fd504dff516e492">prev_val</a> = -1;</div>
<div class="line"><a name="l02785"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae69903c47c15015781b637b9479a7154"> 2785</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae69903c47c15015781b637b9479a7154">chance</a> = 0;</div>
<div class="line"><a name="l02786"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5aa1731610537e057191db627c19f1ca"> 2786</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5aa1731610537e057191db627c19f1ca">check</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(check_rootwidget);</div>
<div class="line"><a name="l02787"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a438b7652e31fb33d3baed83b8095da68"> 2787</a></span>  <span class="keyword">struct </span><a class="code" href="../../d1/d1b/structtimeval.html">timeval</a> t0, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a438b7652e31fb33d3baed83b8095da68">t1</a>;</div>
<div class="line"><a name="l02788"></a><span class="lineno"> 2788</span> </div>
<div class="line"><a name="l02789"></a><span class="lineno"> 2789</span>  t0.<a class="code" href="../../d1/d1b/structtimeval.html#a3599199839a89e99a2ce29d45312b5cf">tv_sec</a> = 0;</div>
<div class="line"><a name="l02790"></a><span class="lineno"> 2790</span>  t0.tv_usec = (<a class="code" href="../../d3/d15/name2ctype_8h.html#a86f2415763322050063a5502f87c9422">long</a>)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#a18f3feef1d89c72c2ea59a0ce2dd8366">NO_THREAD_INTERRUPT_TIME</a>)*1000.0);</div>
<div class="line"><a name="l02791"></a><span class="lineno"> 2791</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a438b7652e31fb33d3baed83b8095da68">t1</a>.<a class="code" href="../../d1/d1b/structtimeval.html#a3599199839a89e99a2ce29d45312b5cf">tv_sec</a> = 0;</div>
<div class="line"><a name="l02792"></a><span class="lineno"> 2792</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a438b7652e31fb33d3baed83b8095da68">t1</a>.<a class="code" href="../../d1/d1b/structtimeval.html#aa8396731f2914f9ed2a457d3da602b80">tv_usec</a> = (<a class="code" href="../../d3/d15/name2ctype_8h.html#a86f2415763322050063a5502f87c9422">long</a>)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#a92353a0b223e78081b022d5a33870967">WATCHDOG_INTERVAL</a>)*1000.0);</div>
<div class="line"><a name="l02793"></a><span class="lineno"> 2793</span> </div>
<div class="line"><a name="l02794"></a><span class="lineno"> 2794</span>  <span class="comment">/* check other watchdog thread */</span></div>
<div class="line"><a name="l02795"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad181d0dbd8394c071502b2870cf1f06a"> 2795</a></span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(watchdog_thread)) {</div>
<div class="line"><a name="l02796"></a><span class="lineno"> 2796</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(watchdog_thread, ID_stop_p, 0))) {</div>
<div class="line"><a name="l02797"></a><span class="lineno"> 2797</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(watchdog_thread, ID_kill, 0);</div>
<div class="line"><a name="l02798"></a><span class="lineno"> 2798</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02799"></a><span class="lineno"> 2799</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02800"></a><span class="lineno"> 2800</span>  }</div>
<div class="line"><a name="l02801"></a><span class="lineno"> 2801</span>  }</div>
<div class="line"><a name="l02802"></a><span class="lineno"> 2802</span>  watchdog_thread = <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>();</div>
<div class="line"><a name="l02803"></a><span class="lineno"> 2803</span> </div>
<div class="line"><a name="l02804"></a><span class="lineno"> 2804</span>  <span class="comment">/* watchdog start */</span></div>
<div class="line"><a name="l02805"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a721c6ff80a6d3e4ad4ffa52a04c60085"> 2805</a></span>  <span class="keywordflow">do</span> {</div>
<div class="line"><a name="l02806"></a><span class="lineno"> 2806</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread)</div>
<div class="line"><a name="l02807"></a><span class="lineno"> 2807</span>  || (loop_counter == prev_val && chance >= <a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ff4666b9a565e45077f1e660def679">EVLOOP_WAKEUP_CHANCE</a>)) {</div>
<div class="line"><a name="l02808"></a><span class="lineno"> 2808</span>  <span class="comment">/* start new eventloop thread */</span></div>
<div class="line"><a name="l02809"></a><span class="lineno"> 2809</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eventloop thread %lx is sleeping or dead"</span>,</div>
<div class="line"><a name="l02810"></a><span class="lineno"> 2810</span>  eventloop_thread);</div>
<div class="line"><a name="l02811"></a><span class="lineno"> 2811</span>  evloop = <a class="code" href="../../db/d2e/intern_8h.html#a987c01487d77573a7840848bc2c37b0e">rb_thread_create</a>(watchdog_evloop_launcher,</div>
<div class="line"><a name="l02812"></a><span class="lineno"> 2812</span>  (<span class="keywordtype">void</span>*)&check_rootwidget);</div>
<div class="line"><a name="l02813"></a><span class="lineno"> 2813</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"create new eventloop thread %lx"</span>, evloop);</div>
<div class="line"><a name="l02814"></a><span class="lineno"> 2814</span>  loop_counter = -1;</div>
<div class="line"><a name="l02815"></a><span class="lineno"> 2815</span>  chance = 0;</div>
<div class="line"><a name="l02816"></a><span class="lineno"> 2816</span>  <a class="code" href="../../db/d2e/intern_8h.html#a466749a3498fa8fbb48f7fc783a7cf34">rb_thread_run</a>(evloop);</div>
<div class="line"><a name="l02817"></a><span class="lineno"> 2817</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02818"></a><span class="lineno"> 2818</span>  prev_val = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae4eb912710ffa8fbc4ce6275ea1f23af">loop_counter</a>;</div>
<div class="line"><a name="l02819"></a><span class="lineno"> 2819</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(eventloop_thread, ID_stop_p, 0))) {</div>
<div class="line"><a name="l02820"></a><span class="lineno"> 2820</span>  ++<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae69903c47c15015781b637b9479a7154">chance</a>;</div>
<div class="line"><a name="l02821"></a><span class="lineno"> 2821</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02822"></a><span class="lineno"> 2822</span>  chance = 0;</div>
<div class="line"><a name="l02823"></a><span class="lineno"> 2823</span>  }</div>
<div class="line"><a name="l02824"></a><span class="lineno"> 2824</span>  <span class="keywordflow">if</span> (event_loop_wait_event) {</div>
<div class="line"><a name="l02825"></a><span class="lineno"> 2825</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8a3ea241e062a8c0dcd87b7232ca4900">rb_thread_wait_for</a>(t0);</div>
<div class="line"><a name="l02826"></a><span class="lineno"> 2826</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02827"></a><span class="lineno"> 2827</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8a3ea241e062a8c0dcd87b7232ca4900">rb_thread_wait_for</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a438b7652e31fb33d3baed83b8095da68">t1</a>);</div>
<div class="line"><a name="l02828"></a><span class="lineno"> 2828</span>  }</div>
<div class="line"><a name="l02829"></a><span class="lineno"> 2829</span>  <span class="comment">/* rb_thread_schedule(); */</span></div>
<div class="line"><a name="l02830"></a><span class="lineno"> 2830</span>  }</div>
<div class="line"><a name="l02831"></a><span class="lineno"> 2831</span>  } <span class="keywordflow">while</span>(!check || !<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>() || Tk_GetNumMainWindows() != 0);</div>
<div class="line"><a name="l02832"></a><span class="lineno"> 2832</span> </div>
<div class="line"><a name="l02833"></a><span class="lineno"> 2833</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02834"></a><span class="lineno"> 2834</span> }</div>
<div class="line"><a name="l02835"></a><span class="lineno"> 2835</span> </div>
<div class="line"><a name="l02836"></a><span class="lineno"> 2836</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02837"></a><span class="lineno"> 2837</span> lib_watchdog_ensure(<a class="code" href="../../d3/d09/ripper_8y.html#ad608e57b446d6346a20ff2ce5ad16a13">arg</a>)</div>
<div class="line"><a name="l02838"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abd98bf47bb621713e803f3f72810a17b"> 2838</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d3/d09/ripper_8y.html#ad608e57b446d6346a20ff2ce5ad16a13">arg</a>;</div>
<div class="line"><a name="l02839"></a><span class="lineno"> 2839</span> {</div>
<div class="line"><a name="l02840"></a><span class="lineno"> 2840</span>  eventloop_thread = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>; <span class="comment">/* stop eventloops */</span></div>
<div class="line"><a name="l02841"></a><span class="lineno"> 2841</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l02842"></a><span class="lineno"> 2842</span> <span class="preprocessor"></span> tk_eventloop_thread_id = (Tcl_ThreadId) 0;</div>
<div class="line"><a name="l02843"></a><span class="lineno"> 2843</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02844"></a><span class="lineno"> 2844</span> <span class="preprocessor"></span> <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02845"></a><span class="lineno"> 2845</span> }</div>
<div class="line"><a name="l02846"></a><span class="lineno"> 2846</span> </div>
<div class="line"><a name="l02847"></a><span class="lineno"> 2847</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02848"></a><span class="lineno"> 2848</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0ce40d5f4f80d4ba5cf19581bd371d64">lib_mainloop_watchdog</a>(argc, argv, <span class="keyword">self</span>)</div>
<div class="line"><a name="l02849"></a><span class="lineno"> 2849</span>  int argc;</div>
<div class="line"><a name="l02850"></a><span class="lineno"> 2850</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l02851"></a><span class="lineno"> 2851</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l02852"></a><span class="lineno"> 2852</span> {</div>
<div class="line"><a name="l02853"></a><span class="lineno"> 2853</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a97e05b3289f092241c95cf9e338a82b7">check_rootwidget</a>;</div>
<div class="line"><a name="l02854"></a><span class="lineno"> 2854</span> </div>
<div class="line"><a name="l02855"></a><span class="lineno"> 2855</span> <span class="preprocessor">#ifdef RUBY_VM</span></div>
<div class="line"><a name="l02856"></a><span class="lineno"> 2856</span> <span class="preprocessor"></span> <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a1f4044eeff81eb1676037771628b555c">rb_eNotImpError</a>,</div>
<div class="line"><a name="l02857"></a><span class="lineno"> 2857</span>  <span class="stringliteral">"eventloop_watchdog is not implemented on Ruby VM."</span>);</div>
<div class="line"><a name="l02858"></a><span class="lineno"> 2858</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02859"></a><span class="lineno"> 2859</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l02860"></a><span class="lineno"> 2860</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(argc, argv, <span class="stringliteral">"01"</span>, &check_rootwidget) == 0) {</div>
<div class="line"><a name="l02861"></a><span class="lineno"> 2861</span>  check_rootwidget = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l02862"></a><span class="lineno"> 2862</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(check_rootwidget)) {</div>
<div class="line"><a name="l02863"></a><span class="lineno"> 2863</span>  check_rootwidget = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l02864"></a><span class="lineno"> 2864</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02865"></a><span class="lineno"> 2865</span>  check_rootwidget = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l02866"></a><span class="lineno"> 2866</span>  }</div>
<div class="line"><a name="l02867"></a><span class="lineno"> 2867</span> </div>
<div class="line"><a name="l02868"></a><span class="lineno"> 2868</span>  <span class="keywordflow">return</span> <a class="code" href="../../d3/d57/eval_8c.html#a8061198378fb16adeb931f90540b2839">rb_ensure</a>(lib_watchdog_core, check_rootwidget,</div>
<div class="line"><a name="l02869"></a><span class="lineno"> 2869</span>  lib_watchdog_ensure, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>);</div>
<div class="line"><a name="l02870"></a><span class="lineno"> 2870</span> }</div>
<div class="line"><a name="l02871"></a><span class="lineno"> 2871</span> </div>
<div class="line"><a name="l02872"></a><span class="lineno"> 2872</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02873"></a><span class="lineno"> 2873</span> ip_mainloop_watchdog(argc, argv, <span class="keyword">self</span>)</div>
<div class="line"><a name="l02874"></a><span class="lineno"> 2874</span>  int argc;</div>
<div class="line"><a name="l02875"></a><span class="lineno"> 2875</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l02876"></a><span class="lineno"> 2876</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l02877"></a><span class="lineno"> 2877</span> {</div>
<div class="line"><a name="l02878"></a><span class="lineno"> 2878</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l02879"></a><span class="lineno"> 2879</span> </div>
<div class="line"><a name="l02880"></a><span class="lineno"> 2880</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l02881"></a><span class="lineno"> 2881</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l02882"></a><span class="lineno"> 2882</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02883"></a><span class="lineno"> 2883</span>  }</div>
<div class="line"><a name="l02884"></a><span class="lineno"> 2884</span> </div>
<div class="line"><a name="l02885"></a><span class="lineno"> 2885</span>  <span class="keywordflow">if</span> (Tcl_GetMaster(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) != (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l02886"></a><span class="lineno"> 2886</span>  <span class="comment">/* slave IP */</span></div>
<div class="line"><a name="l02887"></a><span class="lineno"> 2887</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02888"></a><span class="lineno"> 2888</span>  }</div>
<div class="line"><a name="l02889"></a><span class="lineno"> 2889</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0ce40d5f4f80d4ba5cf19581bd371d64">lib_mainloop_watchdog</a>(argc, argv, <span class="keyword">self</span>);</div>
<div class="line"><a name="l02890"></a><span class="lineno"> 2890</span> }</div>
<div class="line"><a name="l02891"></a><span class="lineno"> 2891</span> </div>
<div class="line"><a name="l02892"></a><span class="lineno"> 2892</span> </div>
<div class="line"><a name="l02893"></a><span class="lineno"> 2893</span> <span class="comment">/* thread-safe(?) interaction between Ruby and Tk */</span></div>
<div class="line"><a name="l02894"></a><span class="lineno"><a class="line" href="../../d6/dec/structthread__call__proc__arg.html"> 2894</a></span> <span class="keyword">struct </span><a class="code" href="../../d6/dec/structthread__call__proc__arg.html">thread_call_proc_arg</a> {</div>
<div class="line"><a name="l02895"></a><span class="lineno"><a class="line" href="../../d6/dec/structthread__call__proc__arg.html#a88c2082d5ef020c3bf715fffcf3e846c"> 2895</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d6/dec/structthread__call__proc__arg.html#a88c2082d5ef020c3bf715fffcf3e846c">proc</a>;</div>
<div class="line"><a name="l02896"></a><span class="lineno"><a class="line" href="../../d6/dec/structthread__call__proc__arg.html#a8c9f6e61dae5c5ff9318dc849fbe4ff0"> 2896</a></span>  <span class="keywordtype">int</span> *<a class="code" href="../../d6/dec/structthread__call__proc__arg.html#a8c9f6e61dae5c5ff9318dc849fbe4ff0">done</a>;</div>
<div class="line"><a name="l02897"></a><span class="lineno"> 2897</span> };</div>
<div class="line"><a name="l02898"></a><span class="lineno"> 2898</span> </div>
<div class="line"><a name="l02899"></a><span class="lineno"> 2899</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l02900"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a68d215a0a799125badfec44692eef7c0"> 2900</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a68d215a0a799125badfec44692eef7c0">_thread_call_proc_arg_mark</a>(<span class="keyword">struct</span> <a class="code" href="../../d6/dec/structthread__call__proc__arg.html">thread_call_proc_arg</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#af30877db2cb29106639acfca6366c3d0">q</a>)</div>
<div class="line"><a name="l02901"></a><span class="lineno"> 2901</span> {</div>
<div class="line"><a name="l02902"></a><span class="lineno"> 2902</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a7e8f61118ed74b3749f201dc8f26a46a">rb_gc_mark</a>(q-><a class="code" href="../../d6/dec/structthread__call__proc__arg.html#a88c2082d5ef020c3bf715fffcf3e846c">proc</a>);</div>
<div class="line"><a name="l02903"></a><span class="lineno"> 2903</span> }</div>
<div class="line"><a name="l02904"></a><span class="lineno"> 2904</span> </div>
<div class="line"><a name="l02905"></a><span class="lineno"> 2905</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02906"></a><span class="lineno"> 2906</span> _thread_call_proc_core(<a class="code" href="../../d3/d09/ripper_8y.html#ad608e57b446d6346a20ff2ce5ad16a13">arg</a>)</div>
<div class="line"><a name="l02907"></a><span class="lineno"> 2907</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d3/d09/ripper_8y.html#ad608e57b446d6346a20ff2ce5ad16a13">arg</a>;</div>
<div class="line"><a name="l02908"></a><span class="lineno"> 2908</span> {</div>
<div class="line"><a name="l02909"></a><span class="lineno"> 2909</span>  <span class="keyword">struct </span><a class="code" href="../../d6/dec/structthread__call__proc__arg.html">thread_call_proc_arg</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#af30877db2cb29106639acfca6366c3d0">q</a> = (<span class="keyword">struct </span><a class="code" href="../../d6/dec/structthread__call__proc__arg.html">thread_call_proc_arg</a>*)arg;</div>
<div class="line"><a name="l02910"></a><span class="lineno"> 2910</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(q-><a class="code" href="../../d6/dec/structthread__call__proc__arg.html#a88c2082d5ef020c3bf715fffcf3e846c">proc</a>, ID_call, 0);</div>
<div class="line"><a name="l02911"></a><span class="lineno"> 2911</span> }</div>
<div class="line"><a name="l02912"></a><span class="lineno"> 2912</span> </div>
<div class="line"><a name="l02913"></a><span class="lineno"> 2913</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02914"></a><span class="lineno"> 2914</span> _thread_call_proc_ensure(<a class="code" href="../../d3/d09/ripper_8y.html#ad608e57b446d6346a20ff2ce5ad16a13">arg</a>)</div>
<div class="line"><a name="l02915"></a><span class="lineno"> 2915</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d3/d09/ripper_8y.html#ad608e57b446d6346a20ff2ce5ad16a13">arg</a>;</div>
<div class="line"><a name="l02916"></a><span class="lineno"> 2916</span> {</div>
<div class="line"><a name="l02917"></a><span class="lineno"> 2917</span>  <span class="keyword">struct </span><a class="code" href="../../d6/dec/structthread__call__proc__arg.html">thread_call_proc_arg</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#af30877db2cb29106639acfca6366c3d0">q</a> = (<span class="keyword">struct </span><a class="code" href="../../d6/dec/structthread__call__proc__arg.html">thread_call_proc_arg</a>*)arg;</div>
<div class="line"><a name="l02918"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae429240449153a3cd44c681a050d8850"> 2918</a></span>  *(q-><a class="code" href="../../d6/dec/structthread__call__proc__arg.html#a8c9f6e61dae5c5ff9318dc849fbe4ff0">done</a>) = 1;</div>
<div class="line"><a name="l02919"></a><span class="lineno"> 2919</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02920"></a><span class="lineno"> 2920</span> }</div>
<div class="line"><a name="l02921"></a><span class="lineno"> 2921</span> </div>
<div class="line"><a name="l02922"></a><span class="lineno"> 2922</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02923"></a><span class="lineno"> 2923</span> _thread_call_proc(<a class="code" href="../../d3/d09/ripper_8y.html#ad608e57b446d6346a20ff2ce5ad16a13">arg</a>)</div>
<div class="line"><a name="l02924"></a><span class="lineno"> 2924</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d3/d09/ripper_8y.html#ad608e57b446d6346a20ff2ce5ad16a13">arg</a>;</div>
<div class="line"><a name="l02925"></a><span class="lineno"> 2925</span> {</div>
<div class="line"><a name="l02926"></a><span class="lineno"> 2926</span>  <span class="keyword">struct </span><a class="code" href="../../d6/dec/structthread__call__proc__arg.html">thread_call_proc_arg</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#af30877db2cb29106639acfca6366c3d0">q</a> = (<span class="keyword">struct </span><a class="code" href="../../d6/dec/structthread__call__proc__arg.html">thread_call_proc_arg</a>*)arg;</div>
<div class="line"><a name="l02927"></a><span class="lineno"> 2927</span> </div>
<div class="line"><a name="l02928"></a><span class="lineno"> 2928</span>  <span class="keywordflow">return</span> <a class="code" href="../../d3/d57/eval_8c.html#a8061198378fb16adeb931f90540b2839">rb_ensure</a>(_thread_call_proc_core, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)q,</div>
<div class="line"><a name="l02929"></a><span class="lineno"> 2929</span>  _thread_call_proc_ensure, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)q);</div>
<div class="line"><a name="l02930"></a><span class="lineno"> 2930</span> }</div>
<div class="line"><a name="l02931"></a><span class="lineno"> 2931</span> </div>
<div class="line"><a name="l02932"></a><span class="lineno"> 2932</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02933"></a><span class="lineno"> 2933</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div>
<div class="line"><a name="l02934"></a><span class="lineno"> 2934</span> <span class="preprocessor"></span>_thread_call_proc_value(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a16a4e0379b897e4edef4a665c09f32e9">th</a>)</div>
<div class="line"><a name="l02935"></a><span class="lineno"> 2935</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l02936"></a><span class="lineno"> 2936</span> <span class="preprocessor"></span>_thread_call_proc_value(th)</div>
<div class="line"><a name="l02937"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a16a4e0379b897e4edef4a665c09f32e9"> 2937</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> th;</div>
<div class="line"><a name="l02938"></a><span class="lineno"> 2938</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02939"></a><span class="lineno"> 2939</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l02940"></a><span class="lineno"> 2940</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(th, ID_value, 0);</div>
<div class="line"><a name="l02941"></a><span class="lineno"> 2941</span> }</div>
<div class="line"><a name="l02942"></a><span class="lineno"> 2942</span> </div>
<div class="line"><a name="l02943"></a><span class="lineno"> 2943</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l02944"></a><span class="lineno"> 2944</span> lib_thread_callback(argc, argv, <span class="keyword">self</span>)</div>
<div class="line"><a name="l02945"></a><span class="lineno"> 2945</span>  int argc;</div>
<div class="line"><a name="l02946"></a><span class="lineno"> 2946</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l02947"></a><span class="lineno"> 2947</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l02948"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a526eaf5b3ad430ed4799b43d3370079a"> 2948</a></span> {</div>
<div class="line"><a name="l02949"></a><span class="lineno"> 2949</span>  <span class="keyword">struct </span><a class="code" href="../../d6/dec/structthread__call__proc__arg.html">thread_call_proc_arg</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#af30877db2cb29106639acfca6366c3d0">q</a>;</div>
<div class="line"><a name="l02950"></a><span class="lineno"> 2950</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a526eaf5b3ad430ed4799b43d3370079a">proc</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a16a4e0379b897e4edef4a665c09f32e9">th</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l02951"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a23b23ff7b48081d3760afae29d3be637"> 2951</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9611b3a00430a86619b5923de30f9fdb">status</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23b23ff7b48081d3760afae29d3be637">foundEvent</a>;</div>
<div class="line"><a name="l02952"></a><span class="lineno"> 2952</span> </div>
<div class="line"><a name="l02953"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a900457f6063427cd952772794d47fb06"> 2953</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(argc, argv, <span class="stringliteral">"01"</span>, &proc) == 0) {</div>
<div class="line"><a name="l02954"></a><span class="lineno"> 2954</span>  proc = <a class="code" href="../../db/d2e/intern_8h.html#a7b330d2905c5f0c9a68cef4ebba5c00f">rb_block_proc</a>();</div>
<div class="line"><a name="l02955"></a><span class="lineno"> 2955</span>  }</div>
<div class="line"><a name="l02956"></a><span class="lineno"> 2956</span> </div>
<div class="line"><a name="l02957"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af30877db2cb29106639acfca6366c3d0"> 2957</a></span>  q = (<span class="keyword">struct </span><a class="code" href="../../d6/dec/structthread__call__proc__arg.html">thread_call_proc_arg</a> *)<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac8df5a8a8961bd9e16be385fef28c2f2">ALLOC</a>(<span class="keyword">struct</span> <a class="code" href="../../d6/dec/structthread__call__proc__arg.html">thread_call_proc_arg</a>);</div>
<div class="line"><a name="l02958"></a><span class="lineno"> 2958</span>  <span class="comment">/* q = (struct thread_call_proc_arg *)ckalloc(sizeof(struct thread_call_proc_arg)); */</span></div>
<div class="line"><a name="l02959"></a><span class="lineno"> 2959</span>  q-><a class="code" href="../../d6/dec/structthread__call__proc__arg.html#a88c2082d5ef020c3bf715fffcf3e846c">proc</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a526eaf5b3ad430ed4799b43d3370079a">proc</a>;</div>
<div class="line"><a name="l02960"></a><span class="lineno"> 2960</span>  q-><a class="code" href="../../d6/dec/structthread__call__proc__arg.html#a8c9f6e61dae5c5ff9318dc849fbe4ff0">done</a> = (<span class="keywordtype">int</span>*)<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac8df5a8a8961bd9e16be385fef28c2f2">ALLOC</a>(<span class="keywordtype">int</span>);</div>
<div class="line"><a name="l02961"></a><span class="lineno"> 2961</span>  <span class="comment">/* q->done = (int*)ckalloc(sizeof(int)); */</span></div>
<div class="line"><a name="l02962"></a><span class="lineno"> 2962</span>  *(q-><a class="code" href="../../d6/dec/structthread__call__proc__arg.html#a8c9f6e61dae5c5ff9318dc849fbe4ff0">done</a>) = 0;</div>
<div class="line"><a name="l02963"></a><span class="lineno"> 2963</span> </div>
<div class="line"><a name="l02964"></a><span class="lineno"> 2964</span>  <span class="comment">/* create call-proc thread */</span></div>
<div class="line"><a name="l02965"></a><span class="lineno"> 2965</span>  th = <a class="code" href="../../db/d2e/intern_8h.html#a987c01487d77573a7840848bc2c37b0e">rb_thread_create</a>(_thread_call_proc, (<span class="keywordtype">void</span>*)q);</div>
<div class="line"><a name="l02966"></a><span class="lineno"> 2966</span> </div>
<div class="line"><a name="l02967"></a><span class="lineno"> 2967</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a032996d6998bbda639fe14f370a70f6d">rb_thread_schedule</a>();</div>
<div class="line"><a name="l02968"></a><span class="lineno"> 2968</span> </div>
<div class="line"><a name="l02969"></a><span class="lineno"> 2969</span>  <span class="comment">/* start sub-eventloop */</span></div>
<div class="line"><a name="l02970"></a><span class="lineno"> 2970</span>  foundEvent = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a48ad410c8807d01926b70383e7dd0a9f">lib_eventloop_launcher</a>(<span class="comment">/* not check root-widget */</span>0, 0,</div>
<div class="line"><a name="l02971"></a><span class="lineno"> 2971</span>  q-><a class="code" href="../../d6/dec/structthread__call__proc__arg.html#a8c9f6e61dae5c5ff9318dc849fbe4ff0">done</a>, (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>));</div>
<div class="line"><a name="l02972"></a><span class="lineno"> 2972</span> </div>
<div class="line"><a name="l02973"></a><span class="lineno"> 2973</span> <span class="preprocessor">#ifdef RUBY_VM</span></div>
<div class="line"><a name="l02974"></a><span class="lineno"> 2974</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(th, ID_alive_p, 0))) {</div>
<div class="line"><a name="l02975"></a><span class="lineno"> 2975</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l02976"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#afa24866fa18e494fa976b7c9b0b5d21d"> 2976</a></span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d3/de7/thread_8c.html#a5b8ec82e1846eadcb0e0e97803ff7520">rb_thread_alive_p</a>(th))) {</div>
<div class="line"><a name="l02977"></a><span class="lineno"> 2977</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l02978"></a><span class="lineno"> 2978</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(th, ID_kill, 0);</div>
<div class="line"><a name="l02979"></a><span class="lineno"> 2979</span>  ret = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02980"></a><span class="lineno"> 2980</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02981"></a><span class="lineno"> 2981</span>  ret = <a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(_thread_call_proc_value, th, &status);</div>
<div class="line"><a name="l02982"></a><span class="lineno"> 2982</span>  }</div>
<div class="line"><a name="l02983"></a><span class="lineno"> 2983</span> </div>
<div class="line"><a name="l02984"></a><span class="lineno"> 2984</span>  <a class="code" href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a>(q-><a class="code" href="../../d6/dec/structthread__call__proc__arg.html#a8c9f6e61dae5c5ff9318dc849fbe4ff0">done</a>);</div>
<div class="line"><a name="l02985"></a><span class="lineno"> 2985</span>  <a class="code" href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a>(q);</div>
<div class="line"><a name="l02986"></a><span class="lineno"> 2986</span>  <span class="comment">/* ckfree((char*)q->done); */</span></div>
<div class="line"><a name="l02987"></a><span class="lineno"> 2987</span>  <span class="comment">/* ckfree((char*)q); */</span></div>
<div class="line"><a name="l02988"></a><span class="lineno"> 2988</span> </div>
<div class="line"><a name="l02989"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#afc85ac66c19dada9f9714266e6db84c7"> 2989</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>)) {</div>
<div class="line"><a name="l02990"></a><span class="lineno"> 2990</span>  <span class="comment">/* return rb_errinfo(); */</span></div>
<div class="line"><a name="l02991"></a><span class="lineno"> 2991</span>  <span class="keywordflow">if</span> (status) {</div>
<div class="line"><a name="l02992"></a><span class="lineno"> 2992</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>());</div>
<div class="line"><a name="l02993"></a><span class="lineno"> 2993</span>  }</div>
<div class="line"><a name="l02994"></a><span class="lineno"> 2994</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l02995"></a><span class="lineno"> 2995</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>;</div>
<div class="line"><a name="l02996"></a><span class="lineno"> 2996</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l02997"></a><span class="lineno"> 2997</span>  <span class="comment">/* return exc; */</span></div>
<div class="line"><a name="l02998"></a><span class="lineno"> 2998</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(exc);</div>
<div class="line"><a name="l02999"></a><span class="lineno"> 2999</span>  }</div>
<div class="line"><a name="l03000"></a><span class="lineno"> 3000</span> </div>
<div class="line"><a name="l03001"></a><span class="lineno"> 3001</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l03002"></a><span class="lineno"> 3002</span> }</div>
<div class="line"><a name="l03003"></a><span class="lineno"> 3003</span> </div>
<div class="line"><a name="l03004"></a><span class="lineno"> 3004</span> </div>
<div class="line"><a name="l03005"></a><span class="lineno"> 3005</span> <span class="comment">/* do_one_event */</span></div>
<div class="line"><a name="l03006"></a><span class="lineno"> 3006</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l03007"></a><span class="lineno"> 3007</span> lib_do_one_event_core(argc, argv, <span class="keyword">self</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a13f7bcd60416d6e0e0c73cd4a2567686">is_ip</a>)</div>
<div class="line"><a name="l03008"></a><span class="lineno"> 3008</span>  int argc;</div>
<div class="line"><a name="l03009"></a><span class="lineno"> 3009</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l03010"></a><span class="lineno"> 3010</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l03011"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a13f7bcd60416d6e0e0c73cd4a2567686"> 3011</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a13f7bcd60416d6e0e0c73cd4a2567686">is_ip</a>;</div>
<div class="line"><a name="l03012"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac8bf36fe0577cba66bccda3a6f7e80a4"> 3012</a></span> {</div>
<div class="line"><a name="l03013"></a><span class="lineno"> 3013</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> vflags;</div>
<div class="line"><a name="l03014"></a><span class="lineno"> 3014</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac8bf36fe0577cba66bccda3a6f7e80a4">flags</a>;</div>
<div class="line"><a name="l03015"></a><span class="lineno"> 3015</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af03f8d848963d2fe3b455ebc9bf54fd7">found_event</a>;</div>
<div class="line"><a name="l03016"></a><span class="lineno"> 3016</span> </div>
<div class="line"><a name="l03017"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#acae30eb92e46a26cb468d6466d049d48"> 3017</a></span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread)) {</div>
<div class="line"><a name="l03018"></a><span class="lineno"> 3018</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"eventloop is already running"</span>);</div>
<div class="line"><a name="l03019"></a><span class="lineno"> 3019</span>  }</div>
<div class="line"><a name="l03020"></a><span class="lineno"> 3020</span> </div>
<div class="line"><a name="l03021"></a><span class="lineno"> 3021</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#abbe469560280c936662242c94a43d994">tcl_stubs_check</a>();</div>
<div class="line"><a name="l03022"></a><span class="lineno"> 3022</span> </div>
<div class="line"><a name="l03023"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a51d734e8bb8c044a3b9aab09110c646a"> 3023</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(argc, argv, <span class="stringliteral">"01"</span>, &vflags) == 0) {</div>
<div class="line"><a name="l03024"></a><span class="lineno"> 3024</span>  flags = TCL_ALL_EVENTS | TCL_DONT_WAIT;</div>
<div class="line"><a name="l03025"></a><span class="lineno"> 3025</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l03026"></a><span class="lineno"> 3026</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad5a1e03b0a66824f95f6aaf07b4a4052">Check_Type</a>(vflags, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a>);</div>
<div class="line"><a name="l03027"></a><span class="lineno"> 3027</span>  flags = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(vflags);</div>
<div class="line"><a name="l03028"></a><span class="lineno"> 3028</span>  }</div>
<div class="line"><a name="l03029"></a><span class="lineno"> 3029</span> </div>
<div class="line"><a name="l03030"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abf1ad29e1c7b3dc652e7f91f1047c4f1"> 3030</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f520624fabb8332dc98fd223491bf8d">rb_safe_level</a>() >= 4 || (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f520624fabb8332dc98fd223491bf8d">rb_safe_level</a>() >=1 && <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a621bc62b1fd82640c1078daf90e1c061">OBJ_TAINTED</a>(vflags))) {</div>
<div class="line"><a name="l03031"></a><span class="lineno"> 3031</span>  flags |= TCL_DONT_WAIT;</div>
<div class="line"><a name="l03032"></a><span class="lineno"> 3032</span>  }</div>
<div class="line"><a name="l03033"></a><span class="lineno"> 3033</span> </div>
<div class="line"><a name="l03034"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3112c47fff3e845cc89ea339ede67b16"> 3034</a></span>  <span class="keywordflow">if</span> (is_ip) {</div>
<div class="line"><a name="l03035"></a><span class="lineno"> 3035</span>  <span class="comment">/* check IP */</span></div>
<div class="line"><a name="l03036"></a><span class="lineno"> 3036</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l03037"></a><span class="lineno"> 3037</span> </div>
<div class="line"><a name="l03038"></a><span class="lineno"> 3038</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l03039"></a><span class="lineno"> 3039</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l03040"></a><span class="lineno"> 3040</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l03041"></a><span class="lineno"> 3041</span>  }</div>
<div class="line"><a name="l03042"></a><span class="lineno"> 3042</span> </div>
<div class="line"><a name="l03043"></a><span class="lineno"> 3043</span>  <span class="keywordflow">if</span> (Tcl_GetMaster(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) != (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l03044"></a><span class="lineno"> 3044</span>  <span class="comment">/* slave IP */</span></div>
<div class="line"><a name="l03045"></a><span class="lineno"> 3045</span>  flags |= TCL_DONT_WAIT;</div>
<div class="line"><a name="l03046"></a><span class="lineno"> 3046</span>  }</div>
<div class="line"><a name="l03047"></a><span class="lineno"> 3047</span>  }</div>
<div class="line"><a name="l03048"></a><span class="lineno"> 3048</span> </div>
<div class="line"><a name="l03049"></a><span class="lineno"> 3049</span>  <span class="comment">/* found_event = Tcl_DoOneEvent(TCL_ALL_EVENTS | TCL_DONT_WAIT); */</span></div>
<div class="line"><a name="l03050"></a><span class="lineno"> 3050</span>  found_event = Tcl_DoOneEvent(flags);</div>
<div class="line"><a name="l03051"></a><span class="lineno"> 3051</span> </div>
<div class="line"><a name="l03052"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a2656cf4fd7335043b7c250cc369539db"> 3052</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#af98c87d8044c5fd2c6bcd541cbc2c649">pending_exception_check0</a>()) {</div>
<div class="line"><a name="l03053"></a><span class="lineno"> 3053</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l03054"></a><span class="lineno"> 3054</span>  }</div>
<div class="line"><a name="l03055"></a><span class="lineno"> 3055</span> </div>
<div class="line"><a name="l03056"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#acc4b651e10d2eb7d88445b534a397e63"> 3056</a></span>  <span class="keywordflow">if</span> (found_event) {</div>
<div class="line"><a name="l03057"></a><span class="lineno"> 3057</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l03058"></a><span class="lineno"> 3058</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l03059"></a><span class="lineno"> 3059</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l03060"></a><span class="lineno"> 3060</span>  }</div>
<div class="line"><a name="l03061"></a><span class="lineno"> 3061</span> }</div>
<div class="line"><a name="l03062"></a><span class="lineno"> 3062</span> </div>
<div class="line"><a name="l03063"></a><span class="lineno"> 3063</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l03064"></a><span class="lineno"> 3064</span> lib_do_one_event(argc, argv, <span class="keyword">self</span>)</div>
<div class="line"><a name="l03065"></a><span class="lineno"> 3065</span>  int argc;</div>
<div class="line"><a name="l03066"></a><span class="lineno"> 3066</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l03067"></a><span class="lineno"> 3067</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l03068"></a><span class="lineno"> 3068</span> {</div>
<div class="line"><a name="l03069"></a><span class="lineno"> 3069</span>  <span class="keywordflow">return</span> lib_do_one_event_core(argc, argv, <span class="keyword">self</span>, 0);</div>
<div class="line"><a name="l03070"></a><span class="lineno"> 3070</span> }</div>
<div class="line"><a name="l03071"></a><span class="lineno"> 3071</span> </div>
<div class="line"><a name="l03072"></a><span class="lineno"> 3072</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l03073"></a><span class="lineno"> 3073</span> ip_do_one_event(argc, argv, <span class="keyword">self</span>)</div>
<div class="line"><a name="l03074"></a><span class="lineno"> 3074</span>  int argc;</div>
<div class="line"><a name="l03075"></a><span class="lineno"> 3075</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l03076"></a><span class="lineno"> 3076</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l03077"></a><span class="lineno"> 3077</span> {</div>
<div class="line"><a name="l03078"></a><span class="lineno"> 3078</span>  <span class="keywordflow">return</span> lib_do_one_event_core(argc, argv, <span class="keyword">self</span>, 0);</div>
<div class="line"><a name="l03079"></a><span class="lineno"> 3079</span> }</div>
<div class="line"><a name="l03080"></a><span class="lineno"> 3080</span> </div>
<div class="line"><a name="l03081"></a><span class="lineno"> 3081</span> </div>
<div class="line"><a name="l03082"></a><span class="lineno"> 3082</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l03083"></a><span class="lineno"> 3083</span> ip_set_exc_message(interp, exc)</div>
<div class="line"><a name="l03084"></a><span class="lineno"> 3084</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l03085"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03"> 3085</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> exc;</div>
<div class="line"><a name="l03086"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a55366e470407b897ecc58f1d5bdfc757"> 3086</a></span> {</div>
<div class="line"><a name="l03087"></a><span class="lineno"> 3087</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a0192e7721a534129dd2389299c50d5ef">buf</a>;</div>
<div class="line"><a name="l03088"></a><span class="lineno"> 3088</span>  Tcl_DString <a class="code" href="../../d5/d9d/tcltklib_8c.html#a55366e470407b897ecc58f1d5bdfc757">dstr</a>;</div>
<div class="line"><a name="l03089"></a><span class="lineno"> 3089</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6d315fd98e04b0d0ab006a2437281557">msg</a>;</div>
<div class="line"><a name="l03090"></a><span class="lineno"> 3090</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l03091"></a><span class="lineno"> 3091</span> </div>
<div class="line"><a name="l03092"></a><span class="lineno"> 3092</span> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION > 0)</span></div>
<div class="line"><a name="l03093"></a><span class="lineno"> 3093</span> <span class="preprocessor"></span> <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3390998b1bd6df467b1f77ac2774f3a3">enc</a>;</div>
<div class="line"><a name="l03094"></a><span class="lineno"> 3094</span>  Tcl_Encoding encoding;</div>
<div class="line"><a name="l03095"></a><span class="lineno"> 3095</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03096"></a><span class="lineno"> 3096</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l03097"></a><span class="lineno"> 3097</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l03098"></a><span class="lineno"> 3098</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l03099"></a><span class="lineno"> 3099</span> </div>
<div class="line"><a name="l03100"></a><span class="lineno"> 3100</span>  msg = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(exc, ID_message, 0, 0);</div>
<div class="line"><a name="l03101"></a><span class="lineno"> 3101</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(msg);</div>
<div class="line"><a name="l03102"></a><span class="lineno"> 3102</span> </div>
<div class="line"><a name="l03103"></a><span class="lineno"> 3103</span> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION > 0)</span></div>
<div class="line"><a name="l03104"></a><span class="lineno"> 3104</span> <span class="preprocessor"></span> enc = <a class="code" href="../../db/d2e/intern_8h.html#ab8a448eec4dc767e47f5f9bd35974734">rb_attr_get</a>(exc, ID_at_enc);</div>
<div class="line"><a name="l03105"></a><span class="lineno"> 3105</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(enc)) {</div>
<div class="line"><a name="l03106"></a><span class="lineno"> 3106</span>  enc = <a class="code" href="../../db/d2e/intern_8h.html#ab8a448eec4dc767e47f5f9bd35974734">rb_attr_get</a>(msg, ID_at_enc);</div>
<div class="line"><a name="l03107"></a><span class="lineno"> 3107</span>  }</div>
<div class="line"><a name="l03108"></a><span class="lineno"> 3108</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(enc)) {</div>
<div class="line"><a name="l03109"></a><span class="lineno"> 3109</span>  encoding = (Tcl_Encoding)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l03110"></a><span class="lineno"> 3110</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a>(enc) == <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a22a8c2a4bbaae9b68f65c9bb92fd4e39">T_STRING</a>) {</div>
<div class="line"><a name="l03111"></a><span class="lineno"> 3111</span>  <span class="comment">/* encoding = Tcl_GetEncoding(interp, RSTRING_PTR(enc)); */</span></div>
<div class="line"><a name="l03112"></a><span class="lineno"> 3112</span>  encoding = Tcl_GetEncoding((Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(enc));</div>
<div class="line"><a name="l03113"></a><span class="lineno"> 3113</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l03114"></a><span class="lineno"> 3114</span>  enc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(enc, ID_to_s, 0, 0);</div>
<div class="line"><a name="l03115"></a><span class="lineno"> 3115</span>  <span class="comment">/* encoding = Tcl_GetEncoding(interp, RSTRING_PTR(enc)); */</span></div>
<div class="line"><a name="l03116"></a><span class="lineno"> 3116</span>  encoding = Tcl_GetEncoding((Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(enc));</div>
<div class="line"><a name="l03117"></a><span class="lineno"> 3117</span>  }</div>
<div class="line"><a name="l03118"></a><span class="lineno"> 3118</span> </div>
<div class="line"><a name="l03119"></a><span class="lineno"> 3119</span>  <span class="comment">/* to avoid a garbled error message dialog */</span></div>
<div class="line"><a name="l03120"></a><span class="lineno"> 3120</span>  <span class="comment">/* buf = ALLOC_N(char, (RSTRING(msg)->len)+1);*/</span></div>
<div class="line"><a name="l03121"></a><span class="lineno"> 3121</span>  <span class="comment">/* memcpy(buf, RSTRING(msg)->ptr, RSTRING(msg)->len);*/</span></div>
<div class="line"><a name="l03122"></a><span class="lineno"> 3122</span>  <span class="comment">/* buf[RSTRING(msg)->len] = 0; */</span></div>
<div class="line"><a name="l03123"></a><span class="lineno"> 3123</span>  buf = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a79041aa2bc7439c11906a86f82a52eb6">ALLOC_N</a>(<span class="keywordtype">char</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(msg)+1);</div>
<div class="line"><a name="l03124"></a><span class="lineno"> 3124</span>  <span class="comment">/* buf = ckalloc(sizeof(char)*((RSTRING_LEN(msg))+1)); */</span></div>
<div class="line"><a name="l03125"></a><span class="lineno"> 3125</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7aa3ca79548709bc580aa259ad1fd2d2">memcpy</a>(buf, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(msg), <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(msg));</div>
<div class="line"><a name="l03126"></a><span class="lineno"> 3126</span>  buf[<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(msg)] = 0;</div>
<div class="line"><a name="l03127"></a><span class="lineno"> 3127</span> </div>
<div class="line"><a name="l03128"></a><span class="lineno"> 3128</span>  Tcl_DStringInit(&dstr);</div>
<div class="line"><a name="l03129"></a><span class="lineno"> 3129</span>  Tcl_DStringFree(&dstr);</div>
<div class="line"><a name="l03130"></a><span class="lineno"> 3130</span>  Tcl_ExternalToUtfDString(encoding, buf, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(msg), &dstr);</div>
<div class="line"><a name="l03131"></a><span class="lineno"> 3131</span> </div>
<div class="line"><a name="l03132"></a><span class="lineno"> 3132</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, Tcl_DStringValue(&dstr), (<span class="keywordtype">char</span>*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l03133"></a><span class="lineno"> 3133</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"error message:%s"</span>, Tcl_DStringValue(&dstr));</div>
<div class="line"><a name="l03134"></a><span class="lineno"> 3134</span>  Tcl_DStringFree(&dstr);</div>
<div class="line"><a name="l03135"></a><span class="lineno"> 3135</span>  <a class="code" href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a>(buf);</div>
<div class="line"><a name="l03136"></a><span class="lineno"> 3136</span>  <span class="comment">/* ckfree(buf); */</span></div>
<div class="line"><a name="l03137"></a><span class="lineno"> 3137</span> </div>
<div class="line"><a name="l03138"></a><span class="lineno"> 3138</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_VERSION <= 8.0 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l03139"></a><span class="lineno"> 3139</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(msg), (<span class="keywordtype">char</span>*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l03140"></a><span class="lineno"> 3140</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03141"></a><span class="lineno"> 3141</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l03142"></a><span class="lineno"> 3142</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l03143"></a><span class="lineno"> 3143</span> }</div>
<div class="line"><a name="l03144"></a><span class="lineno"> 3144</span> </div>
<div class="line"><a name="l03145"></a><span class="lineno"> 3145</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l03146"></a><span class="lineno"> 3146</span> TkStringValue(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aea4012fb11c03c5c1b1fe5399e95342f">obj</a>)</div>
<div class="line"><a name="l03147"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aea4012fb11c03c5c1b1fe5399e95342f"> 3147</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aea4012fb11c03c5c1b1fe5399e95342f">obj</a>;</div>
<div class="line"><a name="l03148"></a><span class="lineno"> 3148</span> {</div>
<div class="line"><a name="l03149"></a><span class="lineno"> 3149</span>  <span class="keywordflow">switch</span>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a>(obj)) {</div>
<div class="line"><a name="l03150"></a><span class="lineno"> 3150</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a22a8c2a4bbaae9b68f65c9bb92fd4e39">T_STRING</a>:</div>
<div class="line"><a name="l03151"></a><span class="lineno"> 3151</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aea4012fb11c03c5c1b1fe5399e95342f">obj</a>;</div>
<div class="line"><a name="l03152"></a><span class="lineno"> 3152</span> </div>
<div class="line"><a name="l03153"></a><span class="lineno"> 3153</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3a7d10c48d5dff0a5d4aa94acb74811a">T_NIL</a>:</div>
<div class="line"><a name="l03154"></a><span class="lineno"> 3154</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l03155"></a><span class="lineno"> 3155</span> </div>
<div class="line"><a name="l03156"></a><span class="lineno"> 3156</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a7fc7e09f45d0ef129ea29f3a5b0c32b8">T_TRUE</a>:</div>
<div class="line"><a name="l03157"></a><span class="lineno"> 3157</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<span class="stringliteral">"1"</span>);</div>
<div class="line"><a name="l03158"></a><span class="lineno"> 3158</span> </div>
<div class="line"><a name="l03159"></a><span class="lineno"> 3159</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9ab816c37c9173898ff256b7be9e5ea9">T_FALSE</a>:</div>
<div class="line"><a name="l03160"></a><span class="lineno"> 3160</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<span class="stringliteral">"0"</span>);</div>
<div class="line"><a name="l03161"></a><span class="lineno"> 3161</span> </div>
<div class="line"><a name="l03162"></a><span class="lineno"> 3162</span>  <span class="keywordflow">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#abbd332f6f94d77e0a369c7720128639e">T_ARRAY</a>:</div>
<div class="line"><a name="l03163"></a><span class="lineno"> 3163</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(obj, ID_join, 1, <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<span class="stringliteral">" "</span>));</div>
<div class="line"><a name="l03164"></a><span class="lineno"> 3164</span> </div>
<div class="line"><a name="l03165"></a><span class="lineno"> 3165</span>  <span class="keywordflow">default</span>:</div>
<div class="line"><a name="l03166"></a><span class="lineno"> 3166</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a5c6c63c2619b8c03df2e173ef1e73846">rb_respond_to</a>(obj, ID_to_s)) {</div>
<div class="line"><a name="l03167"></a><span class="lineno"> 3167</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(obj, ID_to_s, 0, 0);</div>
<div class="line"><a name="l03168"></a><span class="lineno"> 3168</span>  }</div>
<div class="line"><a name="l03169"></a><span class="lineno"> 3169</span>  }</div>
<div class="line"><a name="l03170"></a><span class="lineno"> 3170</span> </div>
<div class="line"><a name="l03171"></a><span class="lineno"> 3171</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(obj, ID_inspect, 0, 0);</div>
<div class="line"><a name="l03172"></a><span class="lineno"> 3172</span> }</div>
<div class="line"><a name="l03173"></a><span class="lineno"> 3173</span> </div>
<div class="line"><a name="l03174"></a><span class="lineno"> 3174</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l03175"></a><span class="lineno"> 3175</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div>
<div class="line"><a name="l03176"></a><span class="lineno"> 3176</span> <span class="preprocessor"></span><a class="code" href="../../d5/d9d/tcltklib_8c.html#a812614951e4a83bb949becbfec2f3828">tcl_protect_core</a>(Tcl_Interp *interp, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> (*proc)(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../dd/dfb/yaml2byte_8c.html#a735984d41155bc1032e09bece8f8d66d">data</a>)</div>
<div class="line"><a name="l03177"></a><span class="lineno"> 3177</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l03178"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a812614951e4a83bb949becbfec2f3828"> 3178</a></span> <span class="preprocessor"></span><a class="code" href="../../d5/d9d/tcltklib_8c.html#a812614951e4a83bb949becbfec2f3828">tcl_protect_core</a>(interp, proc, data) <span class="comment">/* should not raise exception */</span></div>
<div class="line"><a name="l03179"></a><span class="lineno"> 3179</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l03180"></a><span class="lineno"> 3180</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> (*proc)();</div>
<div class="line"><a name="l03181"></a><span class="lineno"> 3181</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> data;</div>
<div class="line"><a name="l03182"></a><span class="lineno"> 3182</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03183"></a><span class="lineno"> 3183</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l03184"></a><span class="lineno"> 3184</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>, exc = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l03185"></a><span class="lineno"> 3185</span>  <span class="keywordtype">int</span> status = 0;</div>
<div class="line"><a name="l03186"></a><span class="lineno"> 3186</span>  <span class="keywordtype">int</span> thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l03187"></a><span class="lineno"> 3187</span> </div>
<div class="line"><a name="l03188"></a><span class="lineno"> 3188</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l03189"></a><span class="lineno"> 3189</span> </div>
<div class="line"><a name="l03190"></a><span class="lineno"> 3190</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l03191"></a><span class="lineno"> 3191</span>  ret = <a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(proc, data, &status);</div>
<div class="line"><a name="l03192"></a><span class="lineno"> 3192</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l03193"></a><span class="lineno"> 3193</span>  <span class="keywordflow">if</span> (status) {</div>
<div class="line"><a name="l03194"></a><span class="lineno"> 3194</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a0192e7721a534129dd2389299c50d5ef">buf</a>;</div>
<div class="line"><a name="l03195"></a><span class="lineno"> 3195</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a40bc5d98d107b04ba07d2d0553b8cd11">old_gc</a>;</div>
<div class="line"><a name="l03196"></a><span class="lineno"> 3196</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac765329451135abec74c45e1897abf26">type</a>, <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>;</div>
<div class="line"><a name="l03197"></a><span class="lineno"> 3197</span> </div>
<div class="line"><a name="l03198"></a><span class="lineno"> 3198</span>  old_gc = <a class="code" href="../../d8/d16/gc_8c.html#a27a2dbb7307d5ea8e096ce4357f6ece6">rb_gc_disable</a>();</div>
<div class="line"><a name="l03199"></a><span class="lineno"> 3199</span> </div>
<div class="line"><a name="l03200"></a><span class="lineno"> 3200</span>  <span class="keywordflow">switch</span>(status) {</div>
<div class="line"><a name="l03201"></a><span class="lineno"> 3201</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abfe39758eac9658dbce9750e4bfddbc6">TAG_RETURN</a>:</div>
<div class="line"><a name="l03202"></a><span class="lineno"> 3202</span>  type = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7a2cabfa69c181ac17f416e6c78f4fd9">eTkCallbackReturn</a>;</div>
<div class="line"><a name="l03203"></a><span class="lineno"> 3203</span>  <span class="keywordflow">goto</span> error;</div>
<div class="line"><a name="l03204"></a><span class="lineno"> 3204</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa69d9fa25afdc01237612a6047b96189">TAG_BREAK</a>:</div>
<div class="line"><a name="l03205"></a><span class="lineno"> 3205</span>  type = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7fefdc0a0bdb479dcd15d610533497d6">eTkCallbackBreak</a>;</div>
<div class="line"><a name="l03206"></a><span class="lineno"> 3206</span>  <span class="keywordflow">goto</span> error;</div>
<div class="line"><a name="l03207"></a><span class="lineno"> 3207</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac5d3e11622cde853addb87cfae24021e">TAG_NEXT</a>:</div>
<div class="line"><a name="l03208"></a><span class="lineno"> 3208</span>  type = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5ae51f46018b1ae0a423aca2b89bf7ab">eTkCallbackContinue</a>;</div>
<div class="line"><a name="l03209"></a><span class="lineno"> 3209</span>  <span class="keywordflow">goto</span> error;</div>
<div class="line"><a name="l03210"></a><span class="lineno"> 3210</span>  error:</div>
<div class="line"><a name="l03211"></a><span class="lineno"> 3211</span>  str = <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<span class="stringliteral">"LocalJumpError: "</span>);</div>
<div class="line"><a name="l03212"></a><span class="lineno"> 3212</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a3d8cc8d6e3bc83d7f835137c76c760b7">rb_str_append</a>(str, <a class="code" href="../../db/d2e/intern_8h.html#acae5350f5d539c4654e4e33690256a9f">rb_obj_as_string</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>()));</div>
<div class="line"><a name="l03213"></a><span class="lineno"> 3213</span>  exc = <a class="code" href="../../db/dcc/error_8c.html#a4989eeb5742cad6359a2ed77859674de">rb_exc_new3</a>(type, str);</div>
<div class="line"><a name="l03214"></a><span class="lineno"> 3214</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l03215"></a><span class="lineno"> 3215</span> </div>
<div class="line"><a name="l03216"></a><span class="lineno"> 3216</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a277f73abdf66e83f4fc75b93d6e87b72">TAG_RETRY</a>:</div>
<div class="line"><a name="l03217"></a><span class="lineno"> 3217</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>())) {</div>
<div class="line"><a name="l03218"></a><span class="lineno"> 3218</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"rb_protect: retry"</span>);</div>
<div class="line"><a name="l03219"></a><span class="lineno"> 3219</span>  exc = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(eTkCallbackRetry, <span class="stringliteral">"retry jump error"</span>);</div>
<div class="line"><a name="l03220"></a><span class="lineno"> 3220</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l03221"></a><span class="lineno"> 3221</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div>
<div class="line"><a name="l03222"></a><span class="lineno"> 3222</span>  }</div>
<div class="line"><a name="l03223"></a><span class="lineno"> 3223</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l03224"></a><span class="lineno"> 3224</span> </div>
<div class="line"><a name="l03225"></a><span class="lineno"> 3225</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a82e8bb282a1d35fcc453335b090bd4a7">TAG_REDO</a>:</div>
<div class="line"><a name="l03226"></a><span class="lineno"> 3226</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>())) {</div>
<div class="line"><a name="l03227"></a><span class="lineno"> 3227</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"rb_protect: redo"</span>);</div>
<div class="line"><a name="l03228"></a><span class="lineno"> 3228</span>  exc = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(eTkCallbackRedo, <span class="stringliteral">"redo jump error"</span>);</div>
<div class="line"><a name="l03229"></a><span class="lineno"> 3229</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l03230"></a><span class="lineno"> 3230</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div>
<div class="line"><a name="l03231"></a><span class="lineno"> 3231</span>  }</div>
<div class="line"><a name="l03232"></a><span class="lineno"> 3232</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l03233"></a><span class="lineno"> 3233</span> </div>
<div class="line"><a name="l03234"></a><span class="lineno"> 3234</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0b034bce069147e233776bc1dcc74c01">TAG_RAISE</a>:</div>
<div class="line"><a name="l03235"></a><span class="lineno"> 3235</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>())) {</div>
<div class="line"><a name="l03236"></a><span class="lineno"> 3236</span>  exc = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>, <span class="stringliteral">"unknown exception"</span>);</div>
<div class="line"><a name="l03237"></a><span class="lineno"> 3237</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l03238"></a><span class="lineno"> 3238</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div>
<div class="line"><a name="l03239"></a><span class="lineno"> 3239</span>  }</div>
<div class="line"><a name="l03240"></a><span class="lineno"> 3240</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l03241"></a><span class="lineno"> 3241</span> </div>
<div class="line"><a name="l03242"></a><span class="lineno"> 3242</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7490e601d6a9d97a79d4d895ad73c93a">TAG_FATAL</a>:</div>
<div class="line"><a name="l03243"></a><span class="lineno"> 3243</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>())) {</div>
<div class="line"><a name="l03244"></a><span class="lineno"> 3244</span>  exc = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a7df09bfc26c0ffa7592f91fdcf64fcec">rb_eFatal</a>, <span class="stringliteral">"FATAL"</span>);</div>
<div class="line"><a name="l03245"></a><span class="lineno"> 3245</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l03246"></a><span class="lineno"> 3246</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div>
<div class="line"><a name="l03247"></a><span class="lineno"> 3247</span>  }</div>
<div class="line"><a name="l03248"></a><span class="lineno"> 3248</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l03249"></a><span class="lineno"> 3249</span> </div>
<div class="line"><a name="l03250"></a><span class="lineno"> 3250</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6d3b7d4da36f7b664c2065f918eb541f">TAG_THROW</a>:</div>
<div class="line"><a name="l03251"></a><span class="lineno"> 3251</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>())) {</div>
<div class="line"><a name="l03252"></a><span class="lineno"> 3252</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"rb_protect: throw"</span>);</div>
<div class="line"><a name="l03253"></a><span class="lineno"> 3253</span>  exc = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(eTkCallbackThrow, <span class="stringliteral">"throw jump error"</span>);</div>
<div class="line"><a name="l03254"></a><span class="lineno"> 3254</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l03255"></a><span class="lineno"> 3255</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div>
<div class="line"><a name="l03256"></a><span class="lineno"> 3256</span>  }</div>
<div class="line"><a name="l03257"></a><span class="lineno"> 3257</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l03258"></a><span class="lineno"> 3258</span> </div>
<div class="line"><a name="l03259"></a><span class="lineno"> 3259</span>  <span class="keywordflow">default</span>:</div>
<div class="line"><a name="l03260"></a><span class="lineno"> 3260</span>  buf = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a79041aa2bc7439c11906a86f82a52eb6">ALLOC_N</a>(<span class="keywordtype">char</span>, 256);</div>
<div class="line"><a name="l03261"></a><span class="lineno"> 3261</span>  <span class="comment">/* buf = ckalloc(sizeof(char) * 256); */</span></div>
<div class="line"><a name="l03262"></a><span class="lineno"> 3262</span>  sprintf(buf, <span class="stringliteral">"unknown loncaljmp status %d"</span>, status);</div>
<div class="line"><a name="l03263"></a><span class="lineno"> 3263</span>  exc = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>, buf);</div>
<div class="line"><a name="l03264"></a><span class="lineno"> 3264</span>  <a class="code" href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a>(buf);</div>
<div class="line"><a name="l03265"></a><span class="lineno"> 3265</span>  <span class="comment">/* ckfree(buf); */</span></div>
<div class="line"><a name="l03266"></a><span class="lineno"> 3266</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l03267"></a><span class="lineno"> 3267</span>  }</div>
<div class="line"><a name="l03268"></a><span class="lineno"> 3268</span> </div>
<div class="line"><a name="l03269"></a><span class="lineno"> 3269</span>  <span class="keywordflow">if</span> (old_gc == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>) <a class="code" href="../../d8/d16/gc_8c.html#a3cbc64cc9d74c437c08a5dc923d1c7dd">rb_gc_enable</a>();</div>
<div class="line"><a name="l03270"></a><span class="lineno"> 3270</span> </div>
<div class="line"><a name="l03271"></a><span class="lineno"> 3271</span>  ret = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l03272"></a><span class="lineno"> 3272</span>  }</div>
<div class="line"><a name="l03273"></a><span class="lineno"> 3273</span> </div>
<div class="line"><a name="l03274"></a><span class="lineno"> 3274</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l03275"></a><span class="lineno"> 3275</span> </div>
<div class="line"><a name="l03276"></a><span class="lineno"> 3276</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l03277"></a><span class="lineno"> 3277</span> </div>
<div class="line"><a name="l03278"></a><span class="lineno"> 3278</span>  <span class="comment">/* status check */</span></div>
<div class="line"><a name="l03279"></a><span class="lineno"> 3279</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(exc)) {</div>
<div class="line"><a name="l03280"></a><span class="lineno"> 3280</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> eclass = <a class="code" href="../../db/d2e/intern_8h.html#ac2be7243e739fa8f5dce6be0c8ee5f6d">rb_obj_class</a>(exc);</div>
<div class="line"><a name="l03281"></a><span class="lineno"> 3281</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> backtrace;</div>
<div class="line"><a name="l03282"></a><span class="lineno"> 3282</span> </div>
<div class="line"><a name="l03283"></a><span class="lineno"> 3283</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"(failed)"</span>);</div>
<div class="line"><a name="l03284"></a><span class="lineno"> 3284</span> </div>
<div class="line"><a name="l03285"></a><span class="lineno"> 3285</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l03286"></a><span class="lineno"> 3286</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l03287"></a><span class="lineno"> 3287</span> </div>
<div class="line"><a name="l03288"></a><span class="lineno"> 3288</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"set backtrace"</span>);</div>
<div class="line"><a name="l03289"></a><span class="lineno"> 3289</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(backtrace = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(exc, ID_backtrace, 0, 0))) {</div>
<div class="line"><a name="l03290"></a><span class="lineno"> 3290</span>  backtrace = <a class="code" href="../../dc/dcc/array_8c.html#af4d478d63ee15a20ca0d9aee90ea04db">rb_ary_join</a>(backtrace, <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<span class="stringliteral">"\n"</span>));</div>
<div class="line"><a name="l03291"></a><span class="lineno"> 3291</span>  Tcl_AddErrorInfo(interp, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2665a51abbd5b49c15abff3df00fa9db">StringValuePtr</a>(backtrace));</div>
<div class="line"><a name="l03292"></a><span class="lineno"> 3292</span>  }</div>
<div class="line"><a name="l03293"></a><span class="lineno"> 3293</span> </div>
<div class="line"><a name="l03294"></a><span class="lineno"> 3294</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l03295"></a><span class="lineno"> 3295</span> </div>
<div class="line"><a name="l03296"></a><span class="lineno"> 3296</span>  ip_set_exc_message(interp, exc);</div>
<div class="line"><a name="l03297"></a><span class="lineno"> 3297</span> </div>
<div class="line"><a name="l03298"></a><span class="lineno"> 3298</span>  <span class="keywordflow">if</span> (eclass == eTkCallbackReturn)</div>
<div class="line"><a name="l03299"></a><span class="lineno"> 3299</span>  <span class="keywordflow">return</span> TCL_RETURN;</div>
<div class="line"><a name="l03300"></a><span class="lineno"> 3300</span> </div>
<div class="line"><a name="l03301"></a><span class="lineno"> 3301</span>  <span class="keywordflow">if</span> (eclass == eTkCallbackBreak)</div>
<div class="line"><a name="l03302"></a><span class="lineno"> 3302</span>  <span class="keywordflow">return</span> TCL_BREAK;</div>
<div class="line"><a name="l03303"></a><span class="lineno"> 3303</span> </div>
<div class="line"><a name="l03304"></a><span class="lineno"> 3304</span>  <span class="keywordflow">if</span> (eclass == eTkCallbackContinue)</div>
<div class="line"><a name="l03305"></a><span class="lineno"> 3305</span>  <span class="keywordflow">return</span> TCL_CONTINUE;</div>
<div class="line"><a name="l03306"></a><span class="lineno"> 3306</span> </div>
<div class="line"><a name="l03307"></a><span class="lineno"> 3307</span>  <span class="keywordflow">if</span> (eclass == <a class="code" href="../../db/dcc/error_8c.html#a34c7841e8f21712bc79d7bd6f64483b3">rb_eSystemExit</a> || eclass == <a class="code" href="../../db/dcc/error_8c.html#a8378eac5be044398a53aca753116817b">rb_eInterrupt</a>) {</div>
<div class="line"><a name="l03308"></a><span class="lineno"> 3308</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03">exc</a>;</div>
<div class="line"><a name="l03309"></a><span class="lineno"> 3309</span>  <span class="keywordflow">return</span> TCL_RETURN;</div>
<div class="line"><a name="l03310"></a><span class="lineno"> 3310</span>  }</div>
<div class="line"><a name="l03311"></a><span class="lineno"> 3311</span> </div>
<div class="line"><a name="l03312"></a><span class="lineno"> 3312</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(exc, eTkLocalJumpError)) {</div>
<div class="line"><a name="l03313"></a><span class="lineno"> 3313</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03">exc</a>;</div>
<div class="line"><a name="l03314"></a><span class="lineno"> 3314</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l03315"></a><span class="lineno"> 3315</span>  }</div>
<div class="line"><a name="l03316"></a><span class="lineno"> 3316</span> </div>
<div class="line"><a name="l03317"></a><span class="lineno"> 3317</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(exc, eLocalJumpError)) {</div>
<div class="line"><a name="l03318"></a><span class="lineno"> 3318</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> reason = <a class="code" href="../../db/d2e/intern_8h.html#a35a10b958666c1b330238eea7b7f3a8a">rb_ivar_get</a>(exc, ID_at_reason);</div>
<div class="line"><a name="l03319"></a><span class="lineno"> 3319</span> </div>
<div class="line"><a name="l03320"></a><span class="lineno"> 3320</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a>(reason) == <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac9aadbc1e9c456506a4d7eef5cdc787e">T_SYMBOL</a>) {</div>
<div class="line"><a name="l03321"></a><span class="lineno"> 3321</span>  <span class="keywordflow">if</span> (<a class="code" href="../../dc/d0c/cparse_8c.html#a73ce5202e6172d3ad0bab7d1e0df9dae">SYM2ID</a>(reason) == ID_return)</div>
<div class="line"><a name="l03322"></a><span class="lineno"> 3322</span>  <span class="keywordflow">return</span> TCL_RETURN;</div>
<div class="line"><a name="l03323"></a><span class="lineno"> 3323</span> </div>
<div class="line"><a name="l03324"></a><span class="lineno"> 3324</span>  <span class="keywordflow">if</span> (<a class="code" href="../../dc/d0c/cparse_8c.html#a73ce5202e6172d3ad0bab7d1e0df9dae">SYM2ID</a>(reason) == ID_break)</div>
<div class="line"><a name="l03325"></a><span class="lineno"> 3325</span>  <span class="keywordflow">return</span> TCL_BREAK;</div>
<div class="line"><a name="l03326"></a><span class="lineno"> 3326</span> </div>
<div class="line"><a name="l03327"></a><span class="lineno"> 3327</span>  <span class="keywordflow">if</span> (<a class="code" href="../../dc/d0c/cparse_8c.html#a73ce5202e6172d3ad0bab7d1e0df9dae">SYM2ID</a>(reason) == ID_next)</div>
<div class="line"><a name="l03328"></a><span class="lineno"> 3328</span>  <span class="keywordflow">return</span> TCL_CONTINUE;</div>
<div class="line"><a name="l03329"></a><span class="lineno"> 3329</span>  }</div>
<div class="line"><a name="l03330"></a><span class="lineno"> 3330</span>  }</div>
<div class="line"><a name="l03331"></a><span class="lineno"> 3331</span> </div>
<div class="line"><a name="l03332"></a><span class="lineno"> 3332</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l03333"></a><span class="lineno"> 3333</span>  }</div>
<div class="line"><a name="l03334"></a><span class="lineno"> 3334</span> </div>
<div class="line"><a name="l03335"></a><span class="lineno"> 3335</span>  <span class="comment">/* result must be string or nil */</span></div>
<div class="line"><a name="l03336"></a><span class="lineno"> 3336</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(ret)) {</div>
<div class="line"><a name="l03337"></a><span class="lineno"> 3337</span>  <span class="comment">/* copy result to the tcl interpreter */</span></div>
<div class="line"><a name="l03338"></a><span class="lineno"> 3338</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l03339"></a><span class="lineno"> 3339</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l03340"></a><span class="lineno"> 3340</span> </div>
<div class="line"><a name="l03341"></a><span class="lineno"> 3341</span>  ret = TkStringValue(ret);</div>
<div class="line"><a name="l03342"></a><span class="lineno"> 3342</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_AppendResult"</span>);</div>
<div class="line"><a name="l03343"></a><span class="lineno"> 3343</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(ret), (<span class="keywordtype">char</span> *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l03344"></a><span class="lineno"> 3344</span> </div>
<div class="line"><a name="l03345"></a><span class="lineno"> 3345</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l03346"></a><span class="lineno"> 3346</span>  }</div>
<div class="line"><a name="l03347"></a><span class="lineno"> 3347</span> </div>
<div class="line"><a name="l03348"></a><span class="lineno"> 3348</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"(result) %s"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(ret) ? <span class="stringliteral">"nil"</span> : <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(ret));</div>
<div class="line"><a name="l03349"></a><span class="lineno"> 3349</span> </div>
<div class="line"><a name="l03350"></a><span class="lineno"> 3350</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>;</div>
<div class="line"><a name="l03351"></a><span class="lineno"> 3351</span> }</div>
<div class="line"><a name="l03352"></a><span class="lineno"> 3352</span> </div>
<div class="line"><a name="l03353"></a><span class="lineno"> 3353</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l03354"></a><span class="lineno"> 3354</span> tcl_protect(interp, proc, data)</div>
<div class="line"><a name="l03355"></a><span class="lineno"> 3355</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l03356"></a><span class="lineno"> 3356</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> (*proc)();</div>
<div class="line"><a name="l03357"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abe1e88e21f22282e6f01916f13485ab5"> 3357</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> data;</div>
<div class="line"><a name="l03358"></a><span class="lineno"> 3358</span> {</div>
<div class="line"><a name="l03359"></a><span class="lineno"> 3359</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a45a5b7c00a796a23f01673cef1dbe0a9">code</a>;</div>
<div class="line"><a name="l03360"></a><span class="lineno"> 3360</span> </div>
<div class="line"><a name="l03361"></a><span class="lineno"> 3361</span> <span class="preprocessor">#ifdef HAVE_NATIVETHREAD</span></div>
<div class="line"><a name="l03362"></a><span class="lineno"> 3362</span> <span class="preprocessor"></span><span class="preprocessor">#ifndef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l03363"></a><span class="lineno"> 3363</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9e7d742a9c52a78b9b3dc81df878e2ed">ruby_native_thread_p</a>()) {</div>
<div class="line"><a name="l03364"></a><span class="lineno"> 3364</span>  <a class="code" href="../../db/dcc/error_8c.html#a2d5fb28e54f792e7341b2c45f52f3860">rb_bug</a>(<span class="stringliteral">"cross-thread violation on tcl_protect()"</span>);</div>
<div class="line"><a name="l03365"></a><span class="lineno"> 3365</span>  }</div>
<div class="line"><a name="l03366"></a><span class="lineno"> 3366</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03367"></a><span class="lineno"> 3367</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03368"></a><span class="lineno"> 3368</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l03369"></a><span class="lineno"> 3369</span> <span class="preprocessor">#ifdef RUBY_VM</span></div>
<div class="line"><a name="l03370"></a><span class="lineno"> 3370</span> <span class="preprocessor"></span> code = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a812614951e4a83bb949becbfec2f3828">tcl_protect_core</a>(interp, proc, data);</div>
<div class="line"><a name="l03371"></a><span class="lineno"> 3371</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l03372"></a><span class="lineno"> 3372</span> <span class="preprocessor"></span> <span class="keywordflow">do</span> {</div>
<div class="line"><a name="l03373"></a><span class="lineno"> 3373</span>  <span class="keywordtype">int</span> old_trapflag = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a65922fe7d297622ca94d05b10ed7b437">rb_trap_immediate</a>;</div>
<div class="line"><a name="l03374"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a65922fe7d297622ca94d05b10ed7b437"> 3374</a></span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a65922fe7d297622ca94d05b10ed7b437">rb_trap_immediate</a> = 0;</div>
<div class="line"><a name="l03375"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a45a5b7c00a796a23f01673cef1dbe0a9"> 3375</a></span>  code = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a812614951e4a83bb949becbfec2f3828">tcl_protect_core</a>(interp, proc, data);</div>
<div class="line"><a name="l03376"></a><span class="lineno"> 3376</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a65922fe7d297622ca94d05b10ed7b437">rb_trap_immediate</a> = old_trapflag;</div>
<div class="line"><a name="l03377"></a><span class="lineno"> 3377</span>  } <span class="keywordflow">while</span> (0);</div>
<div class="line"><a name="l03378"></a><span class="lineno"> 3378</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03379"></a><span class="lineno"> 3379</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l03380"></a><span class="lineno"> 3380</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a45a5b7c00a796a23f01673cef1dbe0a9">code</a>;</div>
<div class="line"><a name="l03381"></a><span class="lineno"> 3381</span> }</div>
<div class="line"><a name="l03382"></a><span class="lineno"> 3382</span> </div>
<div class="line"><a name="l03383"></a><span class="lineno"> 3383</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l03384"></a><span class="lineno"> 3384</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l03385"></a><span class="lineno"> 3385</span> <span class="preprocessor"></span>ip_ruby_eval(clientData, interp, argc, argv)</div>
<div class="line"><a name="l03386"></a><span class="lineno"> 3386</span>  ClientData clientData;</div>
<div class="line"><a name="l03387"></a><span class="lineno"> 3387</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l03388"></a><span class="lineno"> 3388</span>  <span class="keywordtype">int</span> argc;</div>
<div class="line"><a name="l03389"></a><span class="lineno"> 3389</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> argv[];</div>
<div class="line"><a name="l03390"></a><span class="lineno"> 3390</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l03391"></a><span class="lineno"> 3391</span> <span class="preprocessor"></span>ip_ruby_eval(clientData, interp, argc, argv)</div>
<div class="line"><a name="l03392"></a><span class="lineno"> 3392</span>  ClientData clientData;</div>
<div class="line"><a name="l03393"></a><span class="lineno"> 3393</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l03394"></a><span class="lineno"> 3394</span>  <span class="keywordtype">int</span> argc;</div>
<div class="line"><a name="l03395"></a><span class="lineno"> 3395</span>  <span class="keywordtype">char</span> *argv[];</div>
<div class="line"><a name="l03396"></a><span class="lineno"> 3396</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03397"></a><span class="lineno"> 3397</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l03398"></a><span class="lineno"> 3398</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d3/d09/ripper_8y.html#ad608e57b446d6346a20ff2ce5ad16a13">arg</a>;</div>
<div class="line"><a name="l03399"></a><span class="lineno"> 3399</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l03400"></a><span class="lineno"> 3400</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a45a5b7c00a796a23f01673cef1dbe0a9">code</a>;</div>
<div class="line"><a name="l03401"></a><span class="lineno"> 3401</span> </div>
<div class="line"><a name="l03402"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a38095813ce067a701ba5f24c22e4d7b0"> 3402</a></span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l03403"></a><span class="lineno"> 3403</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l03404"></a><span class="lineno"> 3404</span>  <span class="stringliteral">"IP is deleted"</span>);</div>
<div class="line"><a name="l03405"></a><span class="lineno"> 3405</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l03406"></a><span class="lineno"> 3406</span>  }</div>
<div class="line"><a name="l03407"></a><span class="lineno"> 3407</span> </div>
<div class="line"><a name="l03408"></a><span class="lineno"> 3408</span>  <span class="comment">/* ruby command has 1 arg. */</span></div>
<div class="line"><a name="l03409"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a30e6db6a98c33cc9ec3fb23b49499479"> 3409</a></span>  <span class="keywordflow">if</span> (argc != 2) {</div>
<div class="line"><a name="l03410"></a><span class="lineno"> 3410</span> <span class="preprocessor">#if 0</span></div>
<div class="line"><a name="l03411"></a><span class="lineno"> 3411</span> <span class="preprocessor"></span> <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>,</div>
<div class="line"><a name="l03412"></a><span class="lineno"> 3412</span>  <span class="stringliteral">"wrong number of arguments (%d for 1)"</span>, argc - 1);</div>
<div class="line"><a name="l03413"></a><span class="lineno"> 3413</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l03414"></a><span class="lineno"> 3414</span> <span class="preprocessor"></span> <span class="keywordtype">char</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a0192e7721a534129dd2389299c50d5ef">buf</a>[<span class="keyword">sizeof</span>(<a class="code" href="../../de/d07/bigdecimal_8c.html#accd5e629f58868c52137db996aaf8b83">int</a>)*8 + 1];</div>
<div class="line"><a name="l03415"></a><span class="lineno"> 3415</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l03416"></a><span class="lineno"> 3416</span>  sprintf(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a0192e7721a534129dd2389299c50d5ef">buf</a>, <span class="stringliteral">"%d"</span>, argc-1);</div>
<div class="line"><a name="l03417"></a><span class="lineno"> 3417</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"wrong number of arguments ("</span>,</div>
<div class="line"><a name="l03418"></a><span class="lineno"> 3418</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a0192e7721a534129dd2389299c50d5ef">buf</a>, <span class="stringliteral">" for 1)"</span>, (<span class="keywordtype">char</span> *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l03419"></a><span class="lineno"> 3419</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>,</div>
<div class="line"><a name="l03420"></a><span class="lineno"> 3420</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(interp));</div>
<div class="line"><a name="l03421"></a><span class="lineno"> 3421</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l03422"></a><span class="lineno"> 3422</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03423"></a><span class="lineno"> 3423</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l03424"></a><span class="lineno"> 3424</span> </div>
<div class="line"><a name="l03425"></a><span class="lineno"> 3425</span>  <span class="comment">/* get C string from Tcl object */</span></div>
<div class="line"><a name="l03426"></a><span class="lineno"> 3426</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l03427"></a><span class="lineno"> 3427</span> <span class="preprocessor"></span> {</div>
<div class="line"><a name="l03428"></a><span class="lineno"> 3428</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>;</div>
<div class="line"><a name="l03429"></a><span class="lineno"> 3429</span>  <span class="keywordtype">int</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>;</div>
<div class="line"><a name="l03430"></a><span class="lineno"> 3430</span> </div>
<div class="line"><a name="l03431"></a><span class="lineno"> 3431</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l03432"></a><span class="lineno"> 3432</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l03433"></a><span class="lineno"> 3433</span> </div>
<div class="line"><a name="l03434"></a><span class="lineno"> 3434</span>  str = Tcl_GetStringFromObj(argv[1], &len);</div>
<div class="line"><a name="l03435"></a><span class="lineno"> 3435</span>  arg = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a79041aa2bc7439c11906a86f82a52eb6">ALLOC_N</a>(<span class="keywordtype">char</span>, len + 1);</div>
<div class="line"><a name="l03436"></a><span class="lineno"> 3436</span>  <span class="comment">/* arg = ckalloc(sizeof(char) * (len + 1)); */</span></div>
<div class="line"><a name="l03437"></a><span class="lineno"> 3437</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7aa3ca79548709bc580aa259ad1fd2d2">memcpy</a>(arg, str, len);</div>
<div class="line"><a name="l03438"></a><span class="lineno"> 3438</span>  arg[<a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>] = 0;</div>
<div class="line"><a name="l03439"></a><span class="lineno"> 3439</span> </div>
<div class="line"><a name="l03440"></a><span class="lineno"> 3440</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l03441"></a><span class="lineno"> 3441</span> </div>
<div class="line"><a name="l03442"></a><span class="lineno"> 3442</span>  }</div>
<div class="line"><a name="l03443"></a><span class="lineno"> 3443</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l03444"></a><span class="lineno"> 3444</span> <span class="preprocessor"></span> arg = argv[1];</div>
<div class="line"><a name="l03445"></a><span class="lineno"> 3445</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03446"></a><span class="lineno"> 3446</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l03447"></a><span class="lineno"> 3447</span>  <span class="comment">/* evaluate the argument string by ruby */</span></div>
<div class="line"><a name="l03448"></a><span class="lineno"> 3448</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"rb_eval_string(%s)"</span>, arg);</div>
<div class="line"><a name="l03449"></a><span class="lineno"> 3449</span> </div>
<div class="line"><a name="l03450"></a><span class="lineno"> 3450</span>  code = tcl_protect(interp, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a02d9b54a782bcf6c3d0137cefaa94c87">rb_eval_string</a>, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)arg);</div>
<div class="line"><a name="l03451"></a><span class="lineno"> 3451</span> </div>
<div class="line"><a name="l03452"></a><span class="lineno"> 3452</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l03453"></a><span class="lineno"> 3453</span> <span class="preprocessor"></span> <a class="code" href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a>(arg);</div>
<div class="line"><a name="l03454"></a><span class="lineno"> 3454</span>  <span class="comment">/* ckfree(arg); */</span></div>
<div class="line"><a name="l03455"></a><span class="lineno"> 3455</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03456"></a><span class="lineno"> 3456</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l03457"></a><span class="lineno"> 3457</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a45a5b7c00a796a23f01673cef1dbe0a9">code</a>;</div>
<div class="line"><a name="l03458"></a><span class="lineno"> 3458</span> }</div>
<div class="line"><a name="l03459"></a><span class="lineno"> 3459</span> </div>
<div class="line"><a name="l03460"></a><span class="lineno"> 3460</span> </div>
<div class="line"><a name="l03461"></a><span class="lineno"> 3461</span> <span class="comment">/* Tcl command `ruby_cmd' */</span></div>
<div class="line"><a name="l03462"></a><span class="lineno"> 3462</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l03463"></a><span class="lineno"> 3463</span> ip_ruby_cmd_core(arg)</div>
<div class="line"><a name="l03464"></a><span class="lineno"> 3464</span>  struct <a class="code" href="../../d6/d58/structcmd__body__arg.html">cmd_body_arg</a> *arg;</div>
<div class="line"><a name="l03465"></a><span class="lineno"> 3465</span> {</div>
<div class="line"><a name="l03466"></a><span class="lineno"> 3466</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l03467"></a><span class="lineno"> 3467</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l03468"></a><span class="lineno"> 3468</span> </div>
<div class="line"><a name="l03469"></a><span class="lineno"> 3469</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call ip_ruby_cmd_core"</span>);</div>
<div class="line"><a name="l03470"></a><span class="lineno"> 3470</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l03471"></a><span class="lineno"> 3471</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l03472"></a><span class="lineno"> 3472</span>  ret = <a class="code" href="../../db/d2e/intern_8h.html#aa8e250f234a95692386f8cb7e858794d">rb_apply</a>(arg->receiver, arg->method, arg->args);</div>
<div class="line"><a name="l03473"></a><span class="lineno"> 3473</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"rb_apply return:%lx"</span>, ret);</div>
<div class="line"><a name="l03474"></a><span class="lineno"> 3474</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l03475"></a><span class="lineno"> 3475</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"finish ip_ruby_cmd_core"</span>);</div>
<div class="line"><a name="l03476"></a><span class="lineno"> 3476</span> </div>
<div class="line"><a name="l03477"></a><span class="lineno"> 3477</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l03478"></a><span class="lineno"> 3478</span> }</div>
<div class="line"><a name="l03479"></a><span class="lineno"> 3479</span> </div>
<div class="line"><a name="l03480"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a656a2c15c7c66b54e5d19b494c2e5c67"> 3480</a></span> <span class="preprocessor">#define SUPPORT_NESTED_CONST_AS_IP_RUBY_CMD_RECEIVER 1</span></div>
<div class="line"><a name="l03481"></a><span class="lineno"> 3481</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l03482"></a><span class="lineno"> 3482</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l03483"></a><span class="lineno"> 3483</span> ip_ruby_cmd_receiver_const_get(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#afeadf3d97090e74a174614cac38a5dd6">name</a>)</div>
<div class="line"><a name="l03484"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#afeadf3d97090e74a174614cac38a5dd6"> 3484</a></span>  char *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#afeadf3d97090e74a174614cac38a5dd6">name</a>;</div>
<div class="line"><a name="l03485"></a><span class="lineno"> 3485</span> {</div>
<div class="line"><a name="l03486"></a><span class="lineno"> 3486</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a52041d6e41e97c0f3adfc48d04f4586f">klass</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a57c96ead3ef230b4838e65fe037c346e">rb_cObject</a>;</div>
<div class="line"><a name="l03487"></a><span class="lineno"> 3487</span> <span class="preprocessor">#if 0</span></div>
<div class="line"><a name="l03488"></a><span class="lineno"> 3488</span> <span class="preprocessor"></span> <span class="keywordtype">char</span> *head, *tail;</div>
<div class="line"><a name="l03489"></a><span class="lineno"> 3489</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03490"></a><span class="lineno"> 3490</span> <span class="preprocessor"></span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d1d/gb18030_8c.html#a89f234133d3efe315836311cbf21c64b">state</a>;</div>
<div class="line"><a name="l03491"></a><span class="lineno"> 3491</span> </div>
<div class="line"><a name="l03492"></a><span class="lineno"> 3492</span> <span class="preprocessor">#if SUPPORT_NESTED_CONST_AS_IP_RUBY_CMD_RECEIVER</span></div>
<div class="line"><a name="l03493"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a52041d6e41e97c0f3adfc48d04f4586f"> 3493</a></span> <span class="preprocessor"></span> klass = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad9496ba24c0bd359887446e315b1bc78">rb_eval_string_protect</a>(name, &state);</div>
<div class="line"><a name="l03494"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5543b1544999c1ab0acd182f5b8679fe"> 3494</a></span>  <span class="keywordflow">if</span> (state) {</div>
<div class="line"><a name="l03495"></a><span class="lineno"> 3495</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l03496"></a><span class="lineno"> 3496</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l03497"></a><span class="lineno"> 3497</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a52041d6e41e97c0f3adfc48d04f4586f">klass</a>;</div>
<div class="line"><a name="l03498"></a><span class="lineno"> 3498</span>  }</div>
<div class="line"><a name="l03499"></a><span class="lineno"> 3499</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l03500"></a><span class="lineno"> 3500</span> <span class="preprocessor"></span> <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a17a81c1a7d754e5ab49fc4b4369b6c8c">rb_const_get</a>(klass, <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(name));</div>
<div class="line"><a name="l03501"></a><span class="lineno"> 3501</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03502"></a><span class="lineno"> 3502</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l03503"></a><span class="lineno"> 3503</span>  <span class="comment">/* TODO!!!!!! */</span></div>
<div class="line"><a name="l03504"></a><span class="lineno"> 3504</span>  <span class="comment">/* support nest of classes/modules */</span></div>
<div class="line"><a name="l03505"></a><span class="lineno"> 3505</span> </div>
<div class="line"><a name="l03506"></a><span class="lineno"> 3506</span>  <span class="comment">/* return rb_eval_string(name); */</span></div>
<div class="line"><a name="l03507"></a><span class="lineno"> 3507</span>  <span class="comment">/* return rb_eval_string_protect(name, &state); */</span></div>
<div class="line"><a name="l03508"></a><span class="lineno"> 3508</span> </div>
<div class="line"><a name="l03509"></a><span class="lineno"> 3509</span> <span class="preprocessor">#if 0 </span><span class="comment">/* doesn't work!! (fail to autoload?) */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l03510"></a><span class="lineno"> 3510</span> <span class="preprocessor"></span> <span class="comment">/* duplicate */</span></div>
<div class="line"><a name="l03511"></a><span class="lineno"> 3511</span>  head = name = <a class="code" href="../../d8/d3c/util_8h.html#ad832104a69551cf1e4e347fffa9dc77c">strdup</a>(name);</div>
<div class="line"><a name="l03512"></a><span class="lineno"> 3512</span> </div>
<div class="line"><a name="l03513"></a><span class="lineno"> 3513</span>  <span class="comment">/* has '::' at head ? */</span></div>
<div class="line"><a name="l03514"></a><span class="lineno"> 3514</span>  <span class="keywordflow">if</span> (*head == <span class="charliteral">':'</span>) head += 2;</div>
<div class="line"><a name="l03515"></a><span class="lineno"> 3515</span>  tail = head;</div>
<div class="line"><a name="l03516"></a><span class="lineno"> 3516</span> </div>
<div class="line"><a name="l03517"></a><span class="lineno"> 3517</span>  <span class="comment">/* search */</span></div>
<div class="line"><a name="l03518"></a><span class="lineno"> 3518</span>  <span class="keywordflow">while</span>(*tail) {</div>
<div class="line"><a name="l03519"></a><span class="lineno"> 3519</span>  <span class="keywordflow">if</span> (*tail == <span class="charliteral">':'</span>) {</div>
<div class="line"><a name="l03520"></a><span class="lineno"> 3520</span>  *tail = <span class="charliteral">'\0'</span>;</div>
<div class="line"><a name="l03521"></a><span class="lineno"> 3521</span>  klass = <a class="code" href="../../db/d2e/intern_8h.html#a17a81c1a7d754e5ab49fc4b4369b6c8c">rb_const_get</a>(klass, <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(head));</div>
<div class="line"><a name="l03522"></a><span class="lineno"> 3522</span>  tail += 2;</div>
<div class="line"><a name="l03523"></a><span class="lineno"> 3523</span>  head = tail;</div>
<div class="line"><a name="l03524"></a><span class="lineno"> 3524</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l03525"></a><span class="lineno"> 3525</span>  tail++;</div>
<div class="line"><a name="l03526"></a><span class="lineno"> 3526</span>  }</div>
<div class="line"><a name="l03527"></a><span class="lineno"> 3527</span>  }</div>
<div class="line"><a name="l03528"></a><span class="lineno"> 3528</span> </div>
<div class="line"><a name="l03529"></a><span class="lineno"> 3529</span>  <a class="code" href="../../d1/ddc/dln_8c.html#affb9fc32698fab7f7b36e0cf8e64c83e">free</a>(name);</div>
<div class="line"><a name="l03530"></a><span class="lineno"> 3530</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a17a81c1a7d754e5ab49fc4b4369b6c8c">rb_const_get</a>(klass, <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(head));</div>
<div class="line"><a name="l03531"></a><span class="lineno"> 3531</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03532"></a><span class="lineno"> 3532</span> <span class="preprocessor"></span>}</div>
<div class="line"><a name="l03533"></a><span class="lineno"> 3533</span> </div>
<div class="line"><a name="l03534"></a><span class="lineno"> 3534</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l03535"></a><span class="lineno"> 3535</span> ip_ruby_cmd_receiver_get(str)</div>
<div class="line"><a name="l03536"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6a2c4b1b3b479168d585ac6d49530e7f"> 3536</a></span>  char *str;</div>
<div class="line"><a name="l03537"></a><span class="lineno"> 3537</span> {</div>
<div class="line"><a name="l03538"></a><span class="lineno"> 3538</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5e8923890cba9d34ce5f7ec7a64ce29a">receiver</a>;</div>
<div class="line"><a name="l03539"></a><span class="lineno"> 3539</span> <span class="preprocessor">#if !SUPPORT_NESTED_CONST_AS_IP_RUBY_CMD_RECEIVER</span></div>
<div class="line"><a name="l03540"></a><span class="lineno"> 3540</span> <span class="preprocessor"></span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d1d/gb18030_8c.html#a89f234133d3efe315836311cbf21c64b">state</a>;</div>
<div class="line"><a name="l03541"></a><span class="lineno"> 3541</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03542"></a><span class="lineno"> 3542</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l03543"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad166b8944d42ec9841cd17ad59596b8b"> 3543</a></span>  <span class="keywordflow">if</span> (str[0] == <span class="charliteral">':'</span> || (<span class="charliteral">'A'</span> <= str[0] && str[0] <= <span class="charliteral">'Z'</span>)) {</div>
<div class="line"><a name="l03544"></a><span class="lineno"> 3544</span>  <span class="comment">/* class | module | constant */</span></div>
<div class="line"><a name="l03545"></a><span class="lineno"> 3545</span> <span class="preprocessor">#if SUPPORT_NESTED_CONST_AS_IP_RUBY_CMD_RECEIVER</span></div>
<div class="line"><a name="l03546"></a><span class="lineno"> 3546</span> <span class="preprocessor"></span> receiver = ip_ruby_cmd_receiver_const_get(str);</div>
<div class="line"><a name="l03547"></a><span class="lineno"> 3547</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l03548"></a><span class="lineno"> 3548</span> <span class="preprocessor"></span> receiver = <a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(ip_ruby_cmd_receiver_const_get, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)str, &state);</div>
<div class="line"><a name="l03549"></a><span class="lineno"> 3549</span>  <span class="keywordflow">if</span> (state) <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l03550"></a><span class="lineno"> 3550</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03551"></a><span class="lineno"> 3551</span> <span class="preprocessor"></span> } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (str[0] == <span class="charliteral">'$'</span>) {</div>
<div class="line"><a name="l03552"></a><span class="lineno"> 3552</span>  <span class="comment">/* global variable */</span></div>
<div class="line"><a name="l03553"></a><span class="lineno"> 3553</span>  receiver = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac264a2e60151682299aa24aadaf69d39">rb_gv_get</a>(str);</div>
<div class="line"><a name="l03554"></a><span class="lineno"> 3554</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l03555"></a><span class="lineno"> 3555</span>  <span class="comment">/* global variable omitted '$' */</span></div>
<div class="line"><a name="l03556"></a><span class="lineno"> 3556</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a0192e7721a534129dd2389299c50d5ef">buf</a>;</div>
<div class="line"><a name="l03557"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#afed088663f8704004425cdae2120b9b3"> 3557</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>;</div>
<div class="line"><a name="l03558"></a><span class="lineno"> 3558</span> </div>
<div class="line"><a name="l03559"></a><span class="lineno"> 3559</span>  len = <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(str);</div>
<div class="line"><a name="l03560"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a1513af07f88437e8d90652efb801441e"> 3560</a></span>  buf = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a79041aa2bc7439c11906a86f82a52eb6">ALLOC_N</a>(<span class="keywordtype">char</span>, len + 2);</div>
<div class="line"><a name="l03561"></a><span class="lineno"> 3561</span>  <span class="comment">/* buf = ckalloc(sizeof(char) * (len + 2)); */</span></div>
<div class="line"><a name="l03562"></a><span class="lineno"> 3562</span>  buf[0] = <span class="charliteral">'$'</span>;</div>
<div class="line"><a name="l03563"></a><span class="lineno"> 3563</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7aa3ca79548709bc580aa259ad1fd2d2">memcpy</a>(buf + 1, str, len);</div>
<div class="line"><a name="l03564"></a><span class="lineno"> 3564</span>  buf[len + 1] = 0;</div>
<div class="line"><a name="l03565"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5e8923890cba9d34ce5f7ec7a64ce29a"> 3565</a></span>  receiver = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac264a2e60151682299aa24aadaf69d39">rb_gv_get</a>(buf);</div>
<div class="line"><a name="l03566"></a><span class="lineno"> 3566</span>  <a class="code" href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a>(buf);</div>
<div class="line"><a name="l03567"></a><span class="lineno"> 3567</span>  <span class="comment">/* ckfree(buf); */</span></div>
<div class="line"><a name="l03568"></a><span class="lineno"> 3568</span>  }</div>
<div class="line"><a name="l03569"></a><span class="lineno"> 3569</span> </div>
<div class="line"><a name="l03570"></a><span class="lineno"> 3570</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5e8923890cba9d34ce5f7ec7a64ce29a">receiver</a>;</div>
<div class="line"><a name="l03571"></a><span class="lineno"> 3571</span> }</div>
<div class="line"><a name="l03572"></a><span class="lineno"> 3572</span> </div>
<div class="line"><a name="l03573"></a><span class="lineno"> 3573</span> <span class="comment">/* ruby_cmd receiver method arg ... */</span></div>
<div class="line"><a name="l03574"></a><span class="lineno"> 3574</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l03575"></a><span class="lineno"> 3575</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l03576"></a><span class="lineno"> 3576</span> <span class="preprocessor"></span>ip_ruby_cmd(clientData, interp, argc, argv)</div>
<div class="line"><a name="l03577"></a><span class="lineno"> 3577</span>  ClientData clientData;</div>
<div class="line"><a name="l03578"></a><span class="lineno"> 3578</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l03579"></a><span class="lineno"> 3579</span>  <span class="keywordtype">int</span> argc;</div>
<div class="line"><a name="l03580"></a><span class="lineno"> 3580</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> argv[];</div>
<div class="line"><a name="l03581"></a><span class="lineno"> 3581</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l03582"></a><span class="lineno"> 3582</span> <span class="preprocessor"></span>ip_ruby_cmd(clientData, interp, argc, argv)</div>
<div class="line"><a name="l03583"></a><span class="lineno"> 3583</span>  ClientData clientData;</div>
<div class="line"><a name="l03584"></a><span class="lineno"> 3584</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l03585"></a><span class="lineno"> 3585</span>  <span class="keywordtype">int</span> argc;</div>
<div class="line"><a name="l03586"></a><span class="lineno"> 3586</span>  <span class="keywordtype">char</span> *argv[];</div>
<div class="line"><a name="l03587"></a><span class="lineno"> 3587</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03588"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abed946c62f140eb7ff2ac742e6ad9497"> 3588</a></span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l03589"></a><span class="lineno"> 3589</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5e8923890cba9d34ce5f7ec7a64ce29a">receiver</a>;</div>
<div class="line"><a name="l03590"></a><span class="lineno"> 3590</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abed946c62f140eb7ff2ac742e6ad9497">method</a>;</div>
<div class="line"><a name="l03591"></a><span class="lineno"> 3591</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a05b5b50936801146696de051996c59bb">args</a>;</div>
<div class="line"><a name="l03592"></a><span class="lineno"> 3592</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>;</div>
<div class="line"><a name="l03593"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#acb559820d9ca11295b4500f179ef6392"> 3593</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div>
<div class="line"><a name="l03594"></a><span class="lineno"> 3594</span>  <span class="keywordtype">int</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>;</div>
<div class="line"><a name="l03595"></a><span class="lineno"> 3595</span>  <span class="keyword">struct </span><a class="code" href="../../d6/d58/structcmd__body__arg.html">cmd_body_arg</a> *<a class="code" href="../../d3/d09/ripper_8y.html#ad608e57b446d6346a20ff2ce5ad16a13">arg</a>;</div>
<div class="line"><a name="l03596"></a><span class="lineno"> 3596</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l03597"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a40bc5d98d107b04ba07d2d0553b8cd11"> 3597</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a40bc5d98d107b04ba07d2d0553b8cd11">old_gc</a>;</div>
<div class="line"><a name="l03598"></a><span class="lineno"> 3598</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a45a5b7c00a796a23f01673cef1dbe0a9">code</a>;</div>
<div class="line"><a name="l03599"></a><span class="lineno"> 3599</span> </div>
<div class="line"><a name="l03600"></a><span class="lineno"> 3600</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l03601"></a><span class="lineno"> 3601</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l03602"></a><span class="lineno"> 3602</span>  <span class="stringliteral">"IP is deleted"</span>);</div>
<div class="line"><a name="l03603"></a><span class="lineno"> 3603</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l03604"></a><span class="lineno"> 3604</span>  }</div>
<div class="line"><a name="l03605"></a><span class="lineno"> 3605</span> </div>
<div class="line"><a name="l03606"></a><span class="lineno"> 3606</span>  <span class="keywordflow">if</span> (argc < 3) {</div>
<div class="line"><a name="l03607"></a><span class="lineno"> 3607</span> <span class="preprocessor">#if 0</span></div>
<div class="line"><a name="l03608"></a><span class="lineno"> 3608</span> <span class="preprocessor"></span> <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"too few arguments"</span>);</div>
<div class="line"><a name="l03609"></a><span class="lineno"> 3609</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l03610"></a><span class="lineno"> 3610</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l03611"></a><span class="lineno"> 3611</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"too few arguments"</span>, (<span class="keywordtype">char</span> *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l03612"></a><span class="lineno"> 3612</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>,</div>
<div class="line"><a name="l03613"></a><span class="lineno"> 3613</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(interp));</div>
<div class="line"><a name="l03614"></a><span class="lineno"> 3614</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l03615"></a><span class="lineno"> 3615</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03616"></a><span class="lineno"> 3616</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l03617"></a><span class="lineno"> 3617</span> </div>
<div class="line"><a name="l03618"></a><span class="lineno"> 3618</span>  <span class="comment">/* get arguments from Tcl objects */</span></div>
<div class="line"><a name="l03619"></a><span class="lineno"> 3619</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l03620"></a><span class="lineno"> 3620</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l03621"></a><span class="lineno"> 3621</span>  old_gc = <a class="code" href="../../d8/d16/gc_8c.html#a27a2dbb7307d5ea8e096ce4357f6ece6">rb_gc_disable</a>();</div>
<div class="line"><a name="l03622"></a><span class="lineno"> 3622</span> </div>
<div class="line"><a name="l03623"></a><span class="lineno"> 3623</span>  <span class="comment">/* get receiver */</span></div>
<div class="line"><a name="l03624"></a><span class="lineno"> 3624</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l03625"></a><span class="lineno"> 3625</span> <span class="preprocessor"></span> str = Tcl_GetStringFromObj(argv[1], &len);</div>
<div class="line"><a name="l03626"></a><span class="lineno"> 3626</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l03627"></a><span class="lineno"> 3627</span> <span class="preprocessor"></span> str = argv[1];</div>
<div class="line"><a name="l03628"></a><span class="lineno"> 3628</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03629"></a><span class="lineno"> 3629</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"receiver:%s"</span>,str);</div>
<div class="line"><a name="l03630"></a><span class="lineno"> 3630</span>  <span class="comment">/* receiver = rb_protect(ip_ruby_cmd_receiver_get, (VALUE)str, &code); */</span></div>
<div class="line"><a name="l03631"></a><span class="lineno"> 3631</span>  receiver = ip_ruby_cmd_receiver_get(str);</div>
<div class="line"><a name="l03632"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aad5e3e1d85ac3522181ca01d69a4a040"> 3632</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(receiver)) {</div>
<div class="line"><a name="l03633"></a><span class="lineno"> 3633</span> <span class="preprocessor">#if 0</span></div>
<div class="line"><a name="l03634"></a><span class="lineno"> 3634</span> <span class="preprocessor"></span> <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>,</div>
<div class="line"><a name="l03635"></a><span class="lineno"> 3635</span>  <span class="stringliteral">"unknown class/module/global-variable '%s'"</span>, str);</div>
<div class="line"><a name="l03636"></a><span class="lineno"> 3636</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l03637"></a><span class="lineno"> 3637</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l03638"></a><span class="lineno"> 3638</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"unknown class/module/global-variable '"</span>,</div>
<div class="line"><a name="l03639"></a><span class="lineno"> 3639</span>  str, <span class="stringliteral">"'"</span>, (<span class="keywordtype">char</span> *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l03640"></a><span class="lineno"> 3640</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>,</div>
<div class="line"><a name="l03641"></a><span class="lineno"> 3641</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(interp));</div>
<div class="line"><a name="l03642"></a><span class="lineno"> 3642</span>  <span class="keywordflow">if</span> (old_gc == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>) <a class="code" href="../../d8/d16/gc_8c.html#a3cbc64cc9d74c437c08a5dc923d1c7dd">rb_gc_enable</a>();</div>
<div class="line"><a name="l03643"></a><span class="lineno"> 3643</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l03644"></a><span class="lineno"> 3644</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03645"></a><span class="lineno"> 3645</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l03646"></a><span class="lineno"> 3646</span> </div>
<div class="line"><a name="l03647"></a><span class="lineno"> 3647</span>  <span class="comment">/* get metrhod */</span></div>
<div class="line"><a name="l03648"></a><span class="lineno"> 3648</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l03649"></a><span class="lineno"> 3649</span> <span class="preprocessor"></span> str = Tcl_GetStringFromObj(argv[2], &len);</div>
<div class="line"><a name="l03650"></a><span class="lineno"> 3650</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l03651"></a><span class="lineno"> 3651</span> <span class="preprocessor"></span> str = argv[2];</div>
<div class="line"><a name="l03652"></a><span class="lineno"> 3652</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03653"></a><span class="lineno"> 3653</span> <span class="preprocessor"></span> method = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(str);</div>
<div class="line"><a name="l03654"></a><span class="lineno"> 3654</span> </div>
<div class="line"><a name="l03655"></a><span class="lineno"> 3655</span>  <span class="comment">/* get args */</span></div>
<div class="line"><a name="l03656"></a><span class="lineno"> 3656</span>  args = <a class="code" href="../../dc/dcc/array_8c.html#a43a7bd246935ab63c233b4ae34d61d75">rb_ary_new2</a>(argc - 2);</div>
<div class="line"><a name="l03657"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a2e5d0674fa9751b03557afb663b7e1ff"> 3657</a></span>  <span class="keywordflow">for</span>(i = 3; i < <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>; i++) {</div>
<div class="line"><a name="l03658"></a><span class="lineno"> 3658</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../de/d46/os2_8c.html#a58defbf6fe556592007171f7a347f9d6">s</a>;</div>
<div class="line"><a name="l03659"></a><span class="lineno"> 3659</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l03660"></a><span class="lineno"> 3660</span> <span class="preprocessor"></span> str = Tcl_GetStringFromObj(argv[i], &len);</div>
<div class="line"><a name="l03661"></a><span class="lineno"> 3661</span>  s = <a class="code" href="../../db/d2e/intern_8h.html#a857320dd57dc897c57ee0345f6f04f06">rb_tainted_str_new</a>(str, len);</div>
<div class="line"><a name="l03662"></a><span class="lineno"> 3662</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l03663"></a><span class="lineno"> 3663</span> <span class="preprocessor"></span> str = argv[<a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>];</div>
<div class="line"><a name="l03664"></a><span class="lineno"> 3664</span>  s = <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(str);</div>
<div class="line"><a name="l03665"></a><span class="lineno"> 3665</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03666"></a><span class="lineno"> 3666</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"arg:%s"</span>,str);</div>
<div class="line"><a name="l03667"></a><span class="lineno"> 3667</span> <span class="preprocessor">#ifndef HAVE_STRUCT_RARRAY_LEN</span></div>
<div class="line"><a name="l03668"></a><span class="lineno"> 3668</span> <span class="preprocessor"></span> <a class="code" href="../../dc/dcc/array_8c.html#a59d553a8cd781364b8bcb0deae25cca2">rb_ary_push</a>(args, s);</div>
<div class="line"><a name="l03669"></a><span class="lineno"> 3669</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l03670"></a><span class="lineno"> 3670</span> <span class="preprocessor"></span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6ad4b459637de1ab73940dff465b63ea">RARRAY</a>(args)->ptr[<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6ad4b459637de1ab73940dff465b63ea">RARRAY</a>(args)->len++] = <a class="code" href="../../de/d46/os2_8c.html#a58defbf6fe556592007171f7a347f9d6">s</a>;</div>
<div class="line"><a name="l03671"></a><span class="lineno"> 3671</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03672"></a><span class="lineno"> 3672</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l03673"></a><span class="lineno"> 3673</span> </div>
<div class="line"><a name="l03674"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a2361b54b0513d3b45933b05d65435092"> 3674</a></span>  <span class="keywordflow">if</span> (old_gc == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>) <a class="code" href="../../d8/d16/gc_8c.html#a3cbc64cc9d74c437c08a5dc923d1c7dd">rb_gc_enable</a>();</div>
<div class="line"><a name="l03675"></a><span class="lineno"> 3675</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l03676"></a><span class="lineno"> 3676</span> </div>
<div class="line"><a name="l03677"></a><span class="lineno"> 3677</span>  <span class="comment">/* allocate */</span></div>
<div class="line"><a name="l03678"></a><span class="lineno"> 3678</span>  arg = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac8df5a8a8961bd9e16be385fef28c2f2">ALLOC</a>(<span class="keyword">struct</span> <a class="code" href="../../d6/d58/structcmd__body__arg.html">cmd_body_arg</a>);</div>
<div class="line"><a name="l03679"></a><span class="lineno"> 3679</span>  <span class="comment">/* arg = (struct cmd_body_arg *)ckalloc(sizeof(struct cmd_body_arg)); */</span></div>
<div class="line"><a name="l03680"></a><span class="lineno"> 3680</span> </div>
<div class="line"><a name="l03681"></a><span class="lineno"> 3681</span>  arg-><a class="code" href="../../d6/d58/structcmd__body__arg.html#a6cc0250b850b77f58f01f05913e3ddab">receiver</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5e8923890cba9d34ce5f7ec7a64ce29a">receiver</a>;</div>
<div class="line"><a name="l03682"></a><span class="lineno"> 3682</span>  arg-><a class="code" href="../../d6/d58/structcmd__body__arg.html#ac9ac9c13c40fba180d11b3cad2303b6f">method</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#abed946c62f140eb7ff2ac742e6ad9497">method</a>;</div>
<div class="line"><a name="l03683"></a><span class="lineno"> 3683</span>  arg-><a class="code" href="../../d6/d58/structcmd__body__arg.html#a69cc5f5a65054e5b276eeb78716cbeb9">args</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a05b5b50936801146696de051996c59bb">args</a>;</div>
<div class="line"><a name="l03684"></a><span class="lineno"> 3684</span> </div>
<div class="line"><a name="l03685"></a><span class="lineno"> 3685</span>  <span class="comment">/* evaluate the argument string by ruby */</span></div>
<div class="line"><a name="l03686"></a><span class="lineno"> 3686</span>  code = tcl_protect(interp, ip_ruby_cmd_core, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)arg);</div>
<div class="line"><a name="l03687"></a><span class="lineno"> 3687</span> </div>
<div class="line"><a name="l03688"></a><span class="lineno"> 3688</span>  <a class="code" href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a>(arg);</div>
<div class="line"><a name="l03689"></a><span class="lineno"> 3689</span>  <span class="comment">/* ckfree((char*)arg); */</span></div>
<div class="line"><a name="l03690"></a><span class="lineno"> 3690</span> </div>
<div class="line"><a name="l03691"></a><span class="lineno"> 3691</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a45a5b7c00a796a23f01673cef1dbe0a9">code</a>;</div>
<div class="line"><a name="l03692"></a><span class="lineno"> 3692</span> }</div>
<div class="line"><a name="l03693"></a><span class="lineno"> 3693</span> </div>
<div class="line"><a name="l03694"></a><span class="lineno"> 3694</span> </div>
<div class="line"><a name="l03695"></a><span class="lineno"> 3695</span> <span class="comment">/*****************************/</span></div>
<div class="line"><a name="l03696"></a><span class="lineno"> 3696</span> <span class="comment">/* relpace of 'exit' command */</span></div>
<div class="line"><a name="l03697"></a><span class="lineno"> 3697</span> <span class="comment">/*****************************/</span></div>
<div class="line"><a name="l03698"></a><span class="lineno"> 3698</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l03699"></a><span class="lineno"> 3699</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l03700"></a><span class="lineno"> 3700</span> <span class="preprocessor"></span><span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div>
<div class="line"><a name="l03701"></a><span class="lineno"> 3701</span> <span class="preprocessor"></span>ip_InterpExitObjCmd(ClientData clientData, Tcl_Interp *interp,</div>
<div class="line"><a name="l03702"></a><span class="lineno"> 3702</span>  <span class="keywordtype">int</span> argc, Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> argv[])</div>
<div class="line"><a name="l03703"></a><span class="lineno"> 3703</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l03704"></a><span class="lineno"> 3704</span> <span class="preprocessor"></span>ip_InterpExitObjCmd(clientData, interp, argc, argv)</div>
<div class="line"><a name="l03705"></a><span class="lineno"> 3705</span>  ClientData clientData;</div>
<div class="line"><a name="l03706"></a><span class="lineno"> 3706</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l03707"></a><span class="lineno"> 3707</span>  <span class="keywordtype">int</span> argc;</div>
<div class="line"><a name="l03708"></a><span class="lineno"> 3708</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> argv[];</div>
<div class="line"><a name="l03709"></a><span class="lineno"> 3709</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03710"></a><span class="lineno"> 3710</span> <span class="preprocessor"></span><span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l03711"></a><span class="lineno"> 3711</span> <span class="preprocessor"></span><span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div>
<div class="line"><a name="l03712"></a><span class="lineno"> 3712</span> <span class="preprocessor"></span>ip_InterpExitCommand(ClientData clientData, Tcl_Interp *interp,</div>
<div class="line"><a name="l03713"></a><span class="lineno"> 3713</span>  <span class="keywordtype">int</span> argc, <span class="keywordtype">char</span> *argv[])</div>
<div class="line"><a name="l03714"></a><span class="lineno"> 3714</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l03715"></a><span class="lineno"> 3715</span> <span class="preprocessor"></span>ip_InterpExitCommand(clientData, interp, argc, argv)</div>
<div class="line"><a name="l03716"></a><span class="lineno"> 3716</span>  ClientData clientData;</div>
<div class="line"><a name="l03717"></a><span class="lineno"> 3717</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l03718"></a><span class="lineno"> 3718</span>  <span class="keywordtype">int</span> argc;</div>
<div class="line"><a name="l03719"></a><span class="lineno"> 3719</span>  <span class="keywordtype">char</span> *argv[];</div>
<div class="line"><a name="l03720"></a><span class="lineno"> 3720</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03721"></a><span class="lineno"> 3721</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03722"></a><span class="lineno"> 3722</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l03723"></a><span class="lineno"> 3723</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"start ip_InterpExitCommand"</span>);</div>
<div class="line"><a name="l03724"></a><span class="lineno"> 3724</span>  <span class="keywordflow">if</span> (interp != (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a></div>
<div class="line"><a name="l03725"></a><span class="lineno"> 3725</span>  && !Tcl_InterpDeleted(interp)</div>
<div class="line"><a name="l03726"></a><span class="lineno"> 3726</span> #<span class="keywordflow">if</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a780b4b4af2feb2b9f44efd3f97b46f27">TCL_NAMESPACE_DEBUG</a></div>
<div class="line"><a name="l03727"></a><span class="lineno"> 3727</span>  && !ip_null_namespace(interp)</div>
<div class="line"><a name="l03728"></a><span class="lineno"> 3728</span> #endif</div>
<div class="line"><a name="l03729"></a><span class="lineno"> 3729</span>  ) {</div>
<div class="line"><a name="l03730"></a><span class="lineno"> 3730</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l03731"></a><span class="lineno"> 3731</span>  <span class="comment">/* Tcl_Preserve(interp); */</span></div>
<div class="line"><a name="l03732"></a><span class="lineno"> 3732</span>  <span class="comment">/* Tcl_Eval(interp, "interp eval {} {destroy .}; interp delete {}"); */</span></div>
<div class="line"><a name="l03733"></a><span class="lineno"> 3733</span>  <span class="keywordflow">if</span> (!Tcl_InterpDeleted(interp)) {</div>
<div class="line"><a name="l03734"></a><span class="lineno"> 3734</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7b427778f1e496ccefedf89b5667e319">ip_finalize</a>(interp);</div>
<div class="line"><a name="l03735"></a><span class="lineno"> 3735</span> </div>
<div class="line"><a name="l03736"></a><span class="lineno"> 3736</span>  Tcl_DeleteInterp(interp);</div>
<div class="line"><a name="l03737"></a><span class="lineno"> 3737</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l03738"></a><span class="lineno"> 3738</span>  }</div>
<div class="line"><a name="l03739"></a><span class="lineno"> 3739</span>  }</div>
<div class="line"><a name="l03740"></a><span class="lineno"> 3740</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>;</div>
<div class="line"><a name="l03741"></a><span class="lineno"> 3741</span> }</div>
<div class="line"><a name="l03742"></a><span class="lineno"> 3742</span> </div>
<div class="line"><a name="l03743"></a><span class="lineno"> 3743</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l03744"></a><span class="lineno"> 3744</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l03745"></a><span class="lineno"> 3745</span> <span class="preprocessor"></span><span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div>
<div class="line"><a name="l03746"></a><span class="lineno"> 3746</span> <span class="preprocessor"></span>ip_RubyExitObjCmd(ClientData clientData, Tcl_Interp *interp,</div>
<div class="line"><a name="l03747"></a><span class="lineno"> 3747</span>  <span class="keywordtype">int</span> argc, Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> argv[])</div>
<div class="line"><a name="l03748"></a><span class="lineno"> 3748</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l03749"></a><span class="lineno"> 3749</span> <span class="preprocessor"></span>ip_RubyExitObjCmd(clientData, interp, argc, argv)</div>
<div class="line"><a name="l03750"></a><span class="lineno"> 3750</span>  ClientData clientData;</div>
<div class="line"><a name="l03751"></a><span class="lineno"> 3751</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l03752"></a><span class="lineno"> 3752</span>  <span class="keywordtype">int</span> argc;</div>
<div class="line"><a name="l03753"></a><span class="lineno"> 3753</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> argv[];</div>
<div class="line"><a name="l03754"></a><span class="lineno"> 3754</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03755"></a><span class="lineno"> 3755</span> <span class="preprocessor"></span><span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l03756"></a><span class="lineno"> 3756</span> <span class="preprocessor"></span><span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div>
<div class="line"><a name="l03757"></a><span class="lineno"> 3757</span> <span class="preprocessor"></span>ip_RubyExitCommand(ClientData clientData, Tcl_Interp *interp,</div>
<div class="line"><a name="l03758"></a><span class="lineno"> 3758</span>  <span class="keywordtype">int</span> argc, <span class="keywordtype">char</span> *argv[])</div>
<div class="line"><a name="l03759"></a><span class="lineno"> 3759</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l03760"></a><span class="lineno"> 3760</span> <span class="preprocessor"></span>ip_RubyExitCommand(clientData, interp, argc, argv)</div>
<div class="line"><a name="l03761"></a><span class="lineno"> 3761</span>  ClientData clientData;</div>
<div class="line"><a name="l03762"></a><span class="lineno"> 3762</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l03763"></a><span class="lineno"> 3763</span>  <span class="keywordtype">int</span> argc;</div>
<div class="line"><a name="l03764"></a><span class="lineno"> 3764</span>  <span class="keywordtype">char</span> *argv[];</div>
<div class="line"><a name="l03765"></a><span class="lineno"> 3765</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03766"></a><span class="lineno"> 3766</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03767"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a51f20d6b1b54a2eee3be0e8adc96a0ae"> 3767</a></span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l03768"></a><span class="lineno"> 3768</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d1d/gb18030_8c.html#a89f234133d3efe315836311cbf21c64b">state</a>;</div>
<div class="line"><a name="l03769"></a><span class="lineno"> 3769</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac016cf800c945b35b6ed7d8d9c9b153c">cmd</a>, *<a class="code" href="../../d3/d09/ripper_8y.html#a7a845cc4b98215f5cf028bd914d245d3">param</a>;</div>
<div class="line"><a name="l03770"></a><span class="lineno"> 3770</span> <span class="preprocessor">#if TCL_MAJOR_VERSION < 8</span></div>
<div class="line"><a name="l03771"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa2096553fb76c0e4b9d8784f368bc673"> 3771</a></span> <span class="preprocessor"></span> <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#aa2096553fb76c0e4b9d8784f368bc673">endptr</a>;</div>
<div class="line"><a name="l03772"></a><span class="lineno"> 3772</span>  cmd = argv[0];</div>
<div class="line"><a name="l03773"></a><span class="lineno"> 3773</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03774"></a><span class="lineno"> 3774</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l03775"></a><span class="lineno"> 3775</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"start ip_RubyExitCommand"</span>);</div>
<div class="line"><a name="l03776"></a><span class="lineno"> 3776</span> </div>
<div class="line"><a name="l03777"></a><span class="lineno"> 3777</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l03778"></a><span class="lineno"> 3778</span> <span class="preprocessor"></span> <span class="comment">/* cmd = Tcl_GetString(argv[0]); */</span></div>
<div class="line"><a name="l03779"></a><span class="lineno"> 3779</span>  cmd = Tcl_GetStringFromObj(argv[0], (<span class="keywordtype">int</span>*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l03780"></a><span class="lineno"> 3780</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03781"></a><span class="lineno"> 3781</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l03782"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9df1c4424910846f8398c756bd010152"> 3782</a></span>  <span class="keywordflow">if</span> (argc < 1 || argc > 2) {</div>
<div class="line"><a name="l03783"></a><span class="lineno"> 3783</span>  <span class="comment">/* arguemnt error */</span></div>
<div class="line"><a name="l03784"></a><span class="lineno"> 3784</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp,</div>
<div class="line"><a name="l03785"></a><span class="lineno"> 3785</span>  <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div>
<div class="line"><a name="l03786"></a><span class="lineno"> 3786</span>  cmd, <span class="stringliteral">" ?returnCode?\""</span>, (<span class="keywordtype">char</span> *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l03787"></a><span class="lineno"> 3787</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l03788"></a><span class="lineno"> 3788</span>  }</div>
<div class="line"><a name="l03789"></a><span class="lineno"> 3789</span> </div>
<div class="line"><a name="l03790"></a><span class="lineno"> 3790</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>;</div>
<div class="line"><a name="l03791"></a><span class="lineno"> 3791</span> </div>
<div class="line"><a name="l03792"></a><span class="lineno"> 3792</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l03793"></a><span class="lineno"> 3793</span> </div>
<div class="line"><a name="l03794"></a><span class="lineno"> 3794</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f520624fabb8332dc98fd223491bf8d">rb_safe_level</a>() >= 4 || Tcl_IsSafe(interp)) {</div>
<div class="line"><a name="l03795"></a><span class="lineno"> 3795</span>  <span class="keywordflow">if</span> (!Tcl_InterpDeleted(interp)) {</div>
<div class="line"><a name="l03796"></a><span class="lineno"> 3796</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7b427778f1e496ccefedf89b5667e319">ip_finalize</a>(interp);</div>
<div class="line"><a name="l03797"></a><span class="lineno"> 3797</span> </div>
<div class="line"><a name="l03798"></a><span class="lineno"> 3798</span>  Tcl_DeleteInterp(interp);</div>
<div class="line"><a name="l03799"></a><span class="lineno"> 3799</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l03800"></a><span class="lineno"> 3800</span>  }</div>
<div class="line"><a name="l03801"></a><span class="lineno"> 3801</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>;</div>
<div class="line"><a name="l03802"></a><span class="lineno"> 3802</span>  }</div>
<div class="line"><a name="l03803"></a><span class="lineno"> 3803</span> </div>
<div class="line"><a name="l03804"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a833afb1e5de67911def5af6b13cbd498"> 3804</a></span>  <span class="keywordflow">switch</span>(argc) {</div>
<div class="line"><a name="l03805"></a><span class="lineno"> 3805</span>  <span class="keywordflow">case</span> 1:</div>
<div class="line"><a name="l03806"></a><span class="lineno"> 3806</span>  <span class="comment">/* rb_exit(0); */</span> <span class="comment">/* not return if succeed */</span></div>
<div class="line"><a name="l03807"></a><span class="lineno"> 3807</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp,</div>
<div class="line"><a name="l03808"></a><span class="lineno"> 3808</span>  <span class="stringliteral">"fail to call \""</span>, cmd, <span class="stringliteral">"\""</span>, (<span class="keywordtype">char</span> *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l03809"></a><span class="lineno"> 3809</span> </div>
<div class="line"><a name="l03810"></a><span class="lineno"> 3810</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a34c7841e8f21712bc79d7bd6f64483b3">rb_eSystemExit</a>,</div>
<div class="line"><a name="l03811"></a><span class="lineno"> 3811</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(interp));</div>
<div class="line"><a name="l03812"></a><span class="lineno"> 3812</span>  <a class="code" href="../../db/d2e/intern_8h.html#a7e5b0d4c40fecb26c1ac946f674a690e">rb_iv_set</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>, <span class="stringliteral">"status"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(0));</div>
<div class="line"><a name="l03813"></a><span class="lineno"> 3813</span> </div>
<div class="line"><a name="l03814"></a><span class="lineno"> 3814</span>  <span class="keywordflow">return</span> TCL_RETURN;</div>
<div class="line"><a name="l03815"></a><span class="lineno"> 3815</span> </div>
<div class="line"><a name="l03816"></a><span class="lineno"> 3816</span>  <span class="keywordflow">case</span> 2:</div>
<div class="line"><a name="l03817"></a><span class="lineno"> 3817</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l03818"></a><span class="lineno"> 3818</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (Tcl_GetIntFromObj(interp, argv[1], &state) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>) {</div>
<div class="line"><a name="l03819"></a><span class="lineno"> 3819</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l03820"></a><span class="lineno"> 3820</span>  }</div>
<div class="line"><a name="l03821"></a><span class="lineno"> 3821</span>  <span class="comment">/* param = Tcl_GetString(argv[1]); */</span></div>
<div class="line"><a name="l03822"></a><span class="lineno"> 3822</span>  param = Tcl_GetStringFromObj(argv[1], (<span class="keywordtype">int</span>*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l03823"></a><span class="lineno"> 3823</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l03824"></a><span class="lineno"> 3824</span> <span class="preprocessor"></span> state = (<a class="code" href="../../de/d07/bigdecimal_8c.html#accd5e629f58868c52137db996aaf8b83">int</a>)<a class="code" href="../../d5/d65/strtol_8c.html#a311071298c2fe3e5d7057f396a6acfdc">strtol</a>(argv[1], &endptr, 0);</div>
<div class="line"><a name="l03825"></a><span class="lineno"> 3825</span>  <span class="keywordflow">if</span> (*endptr) {</div>
<div class="line"><a name="l03826"></a><span class="lineno"> 3826</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp,</div>
<div class="line"><a name="l03827"></a><span class="lineno"> 3827</span>  <span class="stringliteral">"expected integer but got \""</span>,</div>
<div class="line"><a name="l03828"></a><span class="lineno"> 3828</span>  argv[1], <span class="stringliteral">"\""</span>, (<span class="keywordtype">char</span> *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l03829"></a><span class="lineno"> 3829</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l03830"></a><span class="lineno"> 3830</span>  }</div>
<div class="line"><a name="l03831"></a><span class="lineno"> 3831</span>  param = argv[1];</div>
<div class="line"><a name="l03832"></a><span class="lineno"> 3832</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03833"></a><span class="lineno"> 3833</span> <span class="preprocessor"></span> <span class="comment">/* rb_exit(state); */</span> <span class="comment">/* not return if succeed */</span></div>
<div class="line"><a name="l03834"></a><span class="lineno"> 3834</span> </div>
<div class="line"><a name="l03835"></a><span class="lineno"> 3835</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"fail to call \""</span>, cmd, <span class="stringliteral">" "</span>,</div>
<div class="line"><a name="l03836"></a><span class="lineno"> 3836</span>  param, <span class="stringliteral">"\""</span>, (<span class="keywordtype">char</span> *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l03837"></a><span class="lineno"> 3837</span> </div>
<div class="line"><a name="l03838"></a><span class="lineno"> 3838</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a34c7841e8f21712bc79d7bd6f64483b3">rb_eSystemExit</a>,</div>
<div class="line"><a name="l03839"></a><span class="lineno"> 3839</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(interp));</div>
<div class="line"><a name="l03840"></a><span class="lineno"> 3840</span>  <a class="code" href="../../db/d2e/intern_8h.html#a7e5b0d4c40fecb26c1ac946f674a690e">rb_iv_set</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>, <span class="stringliteral">"status"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(state));</div>
<div class="line"><a name="l03841"></a><span class="lineno"> 3841</span> </div>
<div class="line"><a name="l03842"></a><span class="lineno"> 3842</span>  <span class="keywordflow">return</span> TCL_RETURN;</div>
<div class="line"><a name="l03843"></a><span class="lineno"> 3843</span> </div>
<div class="line"><a name="l03844"></a><span class="lineno"> 3844</span>  <span class="keywordflow">default</span>:</div>
<div class="line"><a name="l03845"></a><span class="lineno"> 3845</span>  <span class="comment">/* arguemnt error */</span></div>
<div class="line"><a name="l03846"></a><span class="lineno"> 3846</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp,</div>
<div class="line"><a name="l03847"></a><span class="lineno"> 3847</span>  <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div>
<div class="line"><a name="l03848"></a><span class="lineno"> 3848</span>  cmd, <span class="stringliteral">" ?returnCode?\""</span>, (<span class="keywordtype">char</span> *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l03849"></a><span class="lineno"> 3849</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l03850"></a><span class="lineno"> 3850</span>  }</div>
<div class="line"><a name="l03851"></a><span class="lineno"> 3851</span> }</div>
<div class="line"><a name="l03852"></a><span class="lineno"> 3852</span> </div>
<div class="line"><a name="l03853"></a><span class="lineno"> 3853</span> </div>
<div class="line"><a name="l03854"></a><span class="lineno"> 3854</span> <span class="comment">/**************************/</span></div>
<div class="line"><a name="l03855"></a><span class="lineno"> 3855</span> <span class="comment">/* based on tclEvent.c */</span></div>
<div class="line"><a name="l03856"></a><span class="lineno"> 3856</span> <span class="comment">/**************************/</span></div>
<div class="line"><a name="l03857"></a><span class="lineno"> 3857</span> </div>
<div class="line"><a name="l03858"></a><span class="lineno"> 3858</span> <span class="comment">/*********************/</span></div>
<div class="line"><a name="l03859"></a><span class="lineno"> 3859</span> <span class="comment">/* replace of update */</span></div>
<div class="line"><a name="l03860"></a><span class="lineno"> 3860</span> <span class="comment">/*********************/</span></div>
<div class="line"><a name="l03861"></a><span class="lineno"> 3861</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l03862"></a><span class="lineno"> 3862</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> ip_rbUpdateObjCmd <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div>
<div class="line"><a name="l03863"></a><span class="lineno"> 3863</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> []));</div>
<div class="line"><a name="l03864"></a><span class="lineno"> 3864</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l03865"></a><span class="lineno"> 3865</span> ip_rbUpdateObjCmd(clientData, interp, objc, objv)</div>
<div class="line"><a name="l03866"></a><span class="lineno"> 3866</span>  ClientData clientData;</div>
<div class="line"><a name="l03867"></a><span class="lineno"> 3867</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l03868"></a><span class="lineno"> 3868</span>  <span class="keywordtype">int</span> objc;</div>
<div class="line"><a name="l03869"></a><span class="lineno"> 3869</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> objv[];</div>
<div class="line"><a name="l03870"></a><span class="lineno"> 3870</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l03871"></a><span class="lineno"> 3871</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> ip_rbUpdateCommand <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>, <span class="keywordtype">char</span> *[]));</div>
<div class="line"><a name="l03872"></a><span class="lineno"> 3872</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l03873"></a><span class="lineno"> 3873</span> ip_rbUpdateCommand(clientData, interp, objc, objv)</div>
<div class="line"><a name="l03874"></a><span class="lineno"> 3874</span>  ClientData clientData;</div>
<div class="line"><a name="l03875"></a><span class="lineno"> 3875</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l03876"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3"> 3876</a></span>  <span class="keywordtype">int</span> objc;</div>
<div class="line"><a name="l03877"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5989eede682afd9743c0345d772674d5"> 3877</a></span>  <span class="keywordtype">char</span> *objv[];</div>
<div class="line"><a name="l03878"></a><span class="lineno"> 3878</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03879"></a><span class="lineno"> 3879</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l03880"></a><span class="lineno"> 3880</span>  <span class="keywordtype">int</span> optionIndex;</div>
<div class="line"><a name="l03881"></a><span class="lineno"> 3881</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l03882"></a><span class="lineno"> 3882</span>  <span class="keywordtype">int</span> flags = 0;</div>
<div class="line"><a name="l03883"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a04c2f29cb13176846f83a52ff931836b"> 3883</a></span>  <span class="keyword">static</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#abb26a71317d09e2d5d9ec54a51c88576">updateOptions</a>[] = {<span class="stringliteral">"idletasks"</span>, (<span class="keywordtype">char</span> *) <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>};</div>
<div class="line"><a name="l03884"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abb26a71317d09e2d5d9ec54a51c88576"> 3884</a></span>  <span class="keyword">enum</span> updateOptions {<a class="code" href="../../d5/d9d/tcltklib_8c.html#a8745cbdfcfe3370fc41ece6a7d524857ae7a147cc04f6e59bac02da4d5bf057d5">REGEXP_IDLETASKS</a>};</div>
<div class="line"><a name="l03885"></a><span class="lineno"> 3885</span> </div>
<div class="line"><a name="l03886"></a><span class="lineno"> 3886</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Ruby's 'update' is called"</span>);</div>
<div class="line"><a name="l03887"></a><span class="lineno"> 3887</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l03888"></a><span class="lineno"> 3888</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l03889"></a><span class="lineno"> 3889</span>  <span class="stringliteral">"IP is deleted"</span>);</div>
<div class="line"><a name="l03890"></a><span class="lineno"> 3890</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l03891"></a><span class="lineno"> 3891</span>  }</div>
<div class="line"><a name="l03892"></a><span class="lineno"> 3892</span> <span class="preprocessor">#ifdef HAVE_NATIVETHREAD</span></div>
<div class="line"><a name="l03893"></a><span class="lineno"> 3893</span> <span class="preprocessor"></span><span class="preprocessor">#ifndef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l03894"></a><span class="lineno"> 3894</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9e7d742a9c52a78b9b3dc81df878e2ed">ruby_native_thread_p</a>()) {</div>
<div class="line"><a name="l03895"></a><span class="lineno"> 3895</span>  <a class="code" href="../../db/dcc/error_8c.html#a2d5fb28e54f792e7341b2c45f52f3860">rb_bug</a>(<span class="stringliteral">"cross-thread violation on ip_ruby_eval()"</span>);</div>
<div class="line"><a name="l03896"></a><span class="lineno"> 3896</span>  }</div>
<div class="line"><a name="l03897"></a><span class="lineno"> 3897</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03898"></a><span class="lineno"> 3898</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03899"></a><span class="lineno"> 3899</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l03900"></a><span class="lineno"> 3900</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l03901"></a><span class="lineno"> 3901</span> </div>
<div class="line"><a name="l03902"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac3f6c1b5ece357ad0fe440e3c129a5b3"> 3902</a></span>  <span class="keywordflow">if</span> (objc == 1) {</div>
<div class="line"><a name="l03903"></a><span class="lineno"> 3903</span>  flags = TCL_DONT_WAIT;</div>
<div class="line"><a name="l03904"></a><span class="lineno"> 3904</span> </div>
<div class="line"><a name="l03905"></a><span class="lineno"> 3905</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (objc == 2) {</div>
<div class="line"><a name="l03906"></a><span class="lineno"> 3906</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l03907"></a><span class="lineno"> 3907</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (Tcl_GetIndexFromObj(interp, objv[1], (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> **)updateOptions,</div>
<div class="line"><a name="l03908"></a><span class="lineno"> 3908</span>  <span class="stringliteral">"option"</span>, 0, &optionIndex) != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l03909"></a><span class="lineno"> 3909</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l03910"></a><span class="lineno"> 3910</span>  }</div>
<div class="line"><a name="l03911"></a><span class="lineno"> 3911</span>  <span class="keywordflow">switch</span> ((<span class="keyword">enum</span> updateOptions) optionIndex) {</div>
<div class="line"><a name="l03912"></a><span class="lineno"> 3912</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8745cbdfcfe3370fc41ece6a7d524857ae7a147cc04f6e59bac02da4d5bf057d5">REGEXP_IDLETASKS</a>: {</div>
<div class="line"><a name="l03913"></a><span class="lineno"> 3913</span>  flags = TCL_IDLE_EVENTS;</div>
<div class="line"><a name="l03914"></a><span class="lineno"> 3914</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l03915"></a><span class="lineno"> 3915</span>  }</div>
<div class="line"><a name="l03916"></a><span class="lineno"> 3916</span>  <span class="keywordflow">default</span>: {</div>
<div class="line"><a name="l03917"></a><span class="lineno"> 3917</span>  <a class="code" href="../../db/dcc/error_8c.html#a2d5fb28e54f792e7341b2c45f52f3860">rb_bug</a>(<span class="stringliteral">"ip_rbUpdateObjCmd: bad option index to UpdateOptions"</span>);</div>
<div class="line"><a name="l03918"></a><span class="lineno"> 3918</span>  }</div>
<div class="line"><a name="l03919"></a><span class="lineno"> 3919</span>  }</div>
<div class="line"><a name="l03920"></a><span class="lineno"> 3920</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l03921"></a><span class="lineno"> 3921</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (strncmp(objv[1], <span class="stringliteral">"idletasks"</span>, <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(objv[1])) != 0) {</div>
<div class="line"><a name="l03922"></a><span class="lineno"> 3922</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"bad option \""</span>, objv[1],</div>
<div class="line"><a name="l03923"></a><span class="lineno"> 3923</span>  <span class="stringliteral">"\": must be idletasks"</span>, (<span class="keywordtype">char</span> *) <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l03924"></a><span class="lineno"> 3924</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l03925"></a><span class="lineno"> 3925</span>  }</div>
<div class="line"><a name="l03926"></a><span class="lineno"> 3926</span>  flags = TCL_IDLE_EVENTS;</div>
<div class="line"><a name="l03927"></a><span class="lineno"> 3927</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03928"></a><span class="lineno"> 3928</span> <span class="preprocessor"></span> } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l03929"></a><span class="lineno"> 3929</span> <span class="preprocessor">#ifdef Tcl_WrongNumArgs</span></div>
<div class="line"><a name="l03930"></a><span class="lineno"> 3930</span> <span class="preprocessor"></span> Tcl_WrongNumArgs(interp, 1, objv, <span class="stringliteral">"[ idletasks ]"</span>);</div>
<div class="line"><a name="l03931"></a><span class="lineno"> 3931</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l03932"></a><span class="lineno"> 3932</span> <span class="preprocessor"></span><span class="preprocessor"># if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l03933"></a><span class="lineno"> 3933</span> <span class="preprocessor"></span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7c1d654b7b6114d7a0abc8d351dd1bcd">dummy</a>;</div>
<div class="line"><a name="l03934"></a><span class="lineno"> 3934</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div>
<div class="line"><a name="l03935"></a><span class="lineno"> 3935</span>  Tcl_GetStringFromObj(objv[0], &dummy),</div>
<div class="line"><a name="l03936"></a><span class="lineno"> 3936</span>  <span class="stringliteral">" [ idletasks ]\""</span>,</div>
<div class="line"><a name="l03937"></a><span class="lineno"> 3937</span>  (<span class="keywordtype">char</span> *) <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l03938"></a><span class="lineno"> 3938</span> <span class="preprocessor"># else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l03939"></a><span class="lineno"> 3939</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div>
<div class="line"><a name="l03940"></a><span class="lineno"> 3940</span>  objv[0], <span class="stringliteral">" [ idletasks ]\""</span>, (<span class="keywordtype">char</span> *) <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l03941"></a><span class="lineno"> 3941</span> <span class="preprocessor"># endif</span></div>
<div class="line"><a name="l03942"></a><span class="lineno"> 3942</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03943"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d"> 3943</a></span> <span class="preprocessor"></span> <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l03944"></a><span class="lineno"> 3944</span>  }</div>
<div class="line"><a name="l03945"></a><span class="lineno"> 3945</span> </div>
<div class="line"><a name="l03946"></a><span class="lineno"> 3946</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>(interp);</div>
<div class="line"><a name="l03947"></a><span class="lineno"> 3947</span> </div>
<div class="line"><a name="l03948"></a><span class="lineno"> 3948</span>  <span class="comment">/* call eventloop */</span></div>
<div class="line"><a name="l03949"></a><span class="lineno"> 3949</span>  <span class="comment">/* ret = lib_eventloop_core(0, flags, (int *)NULL);*/</span> <span class="comment">/* ignore result */</span></div>
<div class="line"><a name="l03950"></a><span class="lineno"> 3950</span>  ret = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a48ad410c8807d01926b70383e7dd0a9f">lib_eventloop_launcher</a>(0, flags, (<span class="keywordtype">int</span> *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>, interp)); <span class="comment">/* ignore result */</span></div>
<div class="line"><a name="l03951"></a><span class="lineno"> 3951</span> </div>
<div class="line"><a name="l03952"></a><span class="lineno"> 3952</span>  <span class="comment">/* exception check */</span></div>
<div class="line"><a name="l03953"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aee59e46d87842b6e86be314ca29e7e3c"> 3953</a></span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>)) {</div>
<div class="line"><a name="l03954"></a><span class="lineno"> 3954</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l03955"></a><span class="lineno"> 3955</span> </div>
<div class="line"><a name="l03956"></a><span class="lineno"> 3956</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l03957"></a><span class="lineno"> 3957</span> <span class="comment"> if (rb_obj_is_kind_of(rbtk_pending_exception, rb_eSystemExit)) {</span></div>
<div class="line"><a name="l03958"></a><span class="lineno"> 3958</span> <span class="comment"> */</span></div>
<div class="line"><a name="l03959"></a><span class="lineno"> 3959</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a34c7841e8f21712bc79d7bd6f64483b3">rb_eSystemExit</a>)</div>
<div class="line"><a name="l03960"></a><span class="lineno"> 3960</span>  || <a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a8378eac5be044398a53aca753116817b">rb_eInterrupt</a>)) {</div>
<div class="line"><a name="l03961"></a><span class="lineno"> 3961</span>  <span class="keywordflow">return</span> TCL_RETURN;</div>
<div class="line"><a name="l03962"></a><span class="lineno"> 3962</span>  } <span class="keywordflow">else</span>{</div>
<div class="line"><a name="l03963"></a><span class="lineno"> 3963</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l03964"></a><span class="lineno"> 3964</span>  }</div>
<div class="line"><a name="l03965"></a><span class="lineno"> 3965</span>  }</div>
<div class="line"><a name="l03966"></a><span class="lineno"> 3966</span> </div>
<div class="line"><a name="l03967"></a><span class="lineno"> 3967</span>  <span class="comment">/* trap check */</span></div>
<div class="line"><a name="l03968"></a><span class="lineno"> 3968</span> <span class="preprocessor">#ifdef RUBY_VM</span></div>
<div class="line"><a name="l03969"></a><span class="lineno"> 3969</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../d3/de7/thread_8c.html#a024fc07d1560d6a94da3bcc268c9bbd8">rb_thread_check_trap_pending</a>()) {</div>
<div class="line"><a name="l03970"></a><span class="lineno"> 3970</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l03971"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3fabfaaebee16b582dcfff9860cb41bf"> 3971</a></span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (rb_trap_pending) {</div>
<div class="line"><a name="l03972"></a><span class="lineno"> 3972</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l03973"></a><span class="lineno"> 3973</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l03974"></a><span class="lineno"> 3974</span> </div>
<div class="line"><a name="l03975"></a><span class="lineno"> 3975</span>  <span class="keywordflow">return</span> TCL_RETURN;</div>
<div class="line"><a name="l03976"></a><span class="lineno"> 3976</span>  }</div>
<div class="line"><a name="l03977"></a><span class="lineno"> 3977</span> </div>
<div class="line"><a name="l03978"></a><span class="lineno"> 3978</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l03979"></a><span class="lineno"> 3979</span> <span class="comment"> * Must clear the interpreter's result because event handlers could</span></div>
<div class="line"><a name="l03980"></a><span class="lineno"> 3980</span> <span class="comment"> * have executed commands.</span></div>
<div class="line"><a name="l03981"></a><span class="lineno"> 3981</span> <span class="comment"> */</span></div>
<div class="line"><a name="l03982"></a><span class="lineno"> 3982</span> </div>
<div class="line"><a name="l03983"></a><span class="lineno"> 3983</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"last result '%s'"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(interp));</div>
<div class="line"><a name="l03984"></a><span class="lineno"> 3984</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l03985"></a><span class="lineno"> 3985</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l03986"></a><span class="lineno"> 3986</span> </div>
<div class="line"><a name="l03987"></a><span class="lineno"> 3987</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"finish Ruby's 'update'"</span>);</div>
<div class="line"><a name="l03988"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e"> 3988</a></span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>;</div>
<div class="line"><a name="l03989"></a><span class="lineno"> 3989</span> }</div>
<div class="line"><a name="l03990"></a><span class="lineno"> 3990</span> </div>
<div class="line"><a name="l03991"></a><span class="lineno"> 3991</span> </div>
<div class="line"><a name="l03992"></a><span class="lineno"> 3992</span> <span class="comment">/**********************/</span></div>
<div class="line"><a name="l03993"></a><span class="lineno"> 3993</span> <span class="comment">/* update with thread */</span></div>
<div class="line"><a name="l03994"></a><span class="lineno"> 3994</span> <span class="comment">/**********************/</span></div>
<div class="line"><a name="l03995"></a><span class="lineno"><a class="line" href="../../dc/d68/structth__update__param.html"> 3995</a></span> <span class="keyword">struct </span><a class="code" href="../../dc/d68/structth__update__param.html">th_update_param</a> {</div>
<div class="line"><a name="l03996"></a><span class="lineno"><a class="line" href="../../dc/d68/structth__update__param.html#a1c99d3d9f246be80f225ba4fc915bfb5"> 3996</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../dc/d68/structth__update__param.html#a1c99d3d9f246be80f225ba4fc915bfb5">thread</a>;</div>
<div class="line"><a name="l03997"></a><span class="lineno"><a class="line" href="../../dc/d68/structth__update__param.html#ac41d8c11b482906fbb9410cf37ed8181"> 3997</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../dc/d68/structth__update__param.html#ac41d8c11b482906fbb9410cf37ed8181">done</a>;</div>
<div class="line"><a name="l03998"></a><span class="lineno"> 3998</span> };</div>
<div class="line"><a name="l03999"></a><span class="lineno"> 3999</span> </div>
<div class="line"><a name="l04000"></a><span class="lineno"> 4000</span> <span class="keyword">static</span> <span class="keywordtype">void</span> rb_threadUpdateProc <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData));</div>
<div class="line"><a name="l04001"></a><span class="lineno"> 4001</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l04002"></a><span class="lineno"> 4002</span> rb_threadUpdateProc(clientData)</div>
<div class="line"><a name="l04003"></a><span class="lineno"> 4003</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div>
<div class="line"><a name="l04004"></a><span class="lineno"> 4004</span> {</div>
<div class="line"><a name="l04005"></a><span class="lineno"> 4005</span>  <span class="keyword">struct </span><a class="code" href="../../dc/d68/structth__update__param.html">th_update_param</a> *param = (<span class="keyword">struct </span><a class="code" href="../../dc/d68/structth__update__param.html">th_update_param</a> *) clientData;</div>
<div class="line"><a name="l04006"></a><span class="lineno"> 4006</span> </div>
<div class="line"><a name="l04007"></a><span class="lineno"> 4007</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"threadUpdateProc is called"</span>);</div>
<div class="line"><a name="l04008"></a><span class="lineno"> 4008</span>  param-><a class="code" href="../../dc/d68/structth__update__param.html#ac41d8c11b482906fbb9410cf37ed8181">done</a> = 1;</div>
<div class="line"><a name="l04009"></a><span class="lineno"> 4009</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1c6c386b417e79a679ef583c543e411f">rb_thread_wakeup</a>(param-><a class="code" href="../../dc/d68/structth__update__param.html#a1c99d3d9f246be80f225ba4fc915bfb5">thread</a>);</div>
<div class="line"><a name="l04010"></a><span class="lineno"> 4010</span> </div>
<div class="line"><a name="l04011"></a><span class="lineno"> 4011</span>  <span class="keywordflow">return</span>;</div>
<div class="line"><a name="l04012"></a><span class="lineno"> 4012</span> }</div>
<div class="line"><a name="l04013"></a><span class="lineno"> 4013</span> </div>
<div class="line"><a name="l04014"></a><span class="lineno"> 4014</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04015"></a><span class="lineno"> 4015</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> ip_rb_threadUpdateObjCmd <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div>
<div class="line"><a name="l04016"></a><span class="lineno"> 4016</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> []));</div>
<div class="line"><a name="l04017"></a><span class="lineno"> 4017</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l04018"></a><span class="lineno"> 4018</span> ip_rb_threadUpdateObjCmd(clientData, interp, objc, objv)</div>
<div class="line"><a name="l04019"></a><span class="lineno"> 4019</span>  ClientData clientData;</div>
<div class="line"><a name="l04020"></a><span class="lineno"> 4020</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l04021"></a><span class="lineno"> 4021</span>  <span class="keywordtype">int</span> objc;</div>
<div class="line"><a name="l04022"></a><span class="lineno"> 4022</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> objv[];</div>
<div class="line"><a name="l04023"></a><span class="lineno"> 4023</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04024"></a><span class="lineno"> 4024</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> ip_rb_threadUpdateCommand <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div>
<div class="line"><a name="l04025"></a><span class="lineno"> 4025</span>  <span class="keywordtype">char</span> *[]));</div>
<div class="line"><a name="l04026"></a><span class="lineno"> 4026</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l04027"></a><span class="lineno"> 4027</span> ip_rb_threadUpdateCommand(clientData, interp, objc, objv)</div>
<div class="line"><a name="l04028"></a><span class="lineno"> 4028</span>  ClientData clientData;</div>
<div class="line"><a name="l04029"></a><span class="lineno"> 4029</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l04030"></a><span class="lineno"> 4030</span>  <span class="keywordtype">int</span> objc;</div>
<div class="line"><a name="l04031"></a><span class="lineno"> 4031</span>  <span class="keywordtype">char</span> *objv[];</div>
<div class="line"><a name="l04032"></a><span class="lineno"> 4032</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04033"></a><span class="lineno"> 4033</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l04034"></a><span class="lineno"> 4034</span>  <span class="keywordtype">int</span> optionIndex;</div>
<div class="line"><a name="l04035"></a><span class="lineno"> 4035</span>  <span class="keywordtype">int</span> flags = 0;</div>
<div class="line"><a name="l04036"></a><span class="lineno"> 4036</span>  <span class="keyword">struct </span><a class="code" href="../../dc/d68/structth__update__param.html">th_update_param</a> *<a class="code" href="../../d3/d09/ripper_8y.html#a7a845cc4b98215f5cf028bd914d245d3">param</a>;</div>
<div class="line"><a name="l04037"></a><span class="lineno"> 4037</span>  <span class="keyword">static</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *updateOptions[] = {<span class="stringliteral">"idletasks"</span>, (<span class="keywordtype">char</span> *) <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>};</div>
<div class="line"><a name="l04038"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8745cbdfcfe3370fc41ece6a7d524857"> 4038</a></span>  <span class="keyword">enum</span> updateOptions {<a class="code" href="../../d5/d9d/tcltklib_8c.html#a8745cbdfcfe3370fc41ece6a7d524857ae7a147cc04f6e59bac02da4d5bf057d5">REGEXP_IDLETASKS</a>};</div>
<div class="line"><a name="l04039"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a186dc5b385a5ed2879a4b8e517c2e1cc"> 4039</a></span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a186dc5b385a5ed2879a4b8e517c2e1cc">current_thread</a> = <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>();</div>
<div class="line"><a name="l04040"></a><span class="lineno"> 4040</span>  <span class="keyword">struct </span><a class="code" href="../../d1/d1b/structtimeval.html">timeval</a> t;</div>
<div class="line"><a name="l04041"></a><span class="lineno"> 4041</span> </div>
<div class="line"><a name="l04042"></a><span class="lineno"> 4042</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Ruby's 'thread_update' is called"</span>);</div>
<div class="line"><a name="l04043"></a><span class="lineno"> 4043</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l04044"></a><span class="lineno"> 4044</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l04045"></a><span class="lineno"> 4045</span>  <span class="stringliteral">"IP is deleted"</span>);</div>
<div class="line"><a name="l04046"></a><span class="lineno"> 4046</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04047"></a><span class="lineno"> 4047</span>  }</div>
<div class="line"><a name="l04048"></a><span class="lineno"> 4048</span> <span class="preprocessor">#ifdef HAVE_NATIVETHREAD</span></div>
<div class="line"><a name="l04049"></a><span class="lineno"> 4049</span> <span class="preprocessor"></span><span class="preprocessor">#ifndef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l04050"></a><span class="lineno"> 4050</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9e7d742a9c52a78b9b3dc81df878e2ed">ruby_native_thread_p</a>()) {</div>
<div class="line"><a name="l04051"></a><span class="lineno"> 4051</span>  <a class="code" href="../../db/dcc/error_8c.html#a2d5fb28e54f792e7341b2c45f52f3860">rb_bug</a>(<span class="stringliteral">"cross-thread violation on ip_rb_threadUpdateCommand()"</span>);</div>
<div class="line"><a name="l04052"></a><span class="lineno"> 4052</span>  }</div>
<div class="line"><a name="l04053"></a><span class="lineno"> 4053</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04054"></a><span class="lineno"> 4054</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04055"></a><span class="lineno"> 4055</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l04056"></a><span class="lineno"> 4056</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#ac86131edba4a5a668958ce58b661d7ee">rb_thread_alone</a>()</div>
<div class="line"><a name="l04057"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a963a5bf2fc9f5486f1a42c15a8eae7a3"> 4057</a></span>  || <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread) || eventloop_thread == current_thread) {</div>
<div class="line"><a name="l04058"></a><span class="lineno"> 4058</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04059"></a><span class="lineno"> 4059</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call ip_rbUpdateObjCmd"</span>);</div>
<div class="line"><a name="l04060"></a><span class="lineno"> 4060</span>  <span class="keywordflow">return</span> ip_rbUpdateObjCmd(clientData, interp, objc, objv);</div>
<div class="line"><a name="l04061"></a><span class="lineno"> 4061</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04062"></a><span class="lineno"> 4062</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call ip_rbUpdateCommand"</span>);</div>
<div class="line"><a name="l04063"></a><span class="lineno"> 4063</span>  <span class="keywordflow">return</span> ip_rbUpdateCommand(clientData, interp, objc, objv);</div>
<div class="line"><a name="l04064"></a><span class="lineno"> 4064</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04065"></a><span class="lineno"> 4065</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l04066"></a><span class="lineno"> 4066</span> </div>
<div class="line"><a name="l04067"></a><span class="lineno"> 4067</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"start Ruby's 'thread_update' body"</span>);</div>
<div class="line"><a name="l04068"></a><span class="lineno"> 4068</span> </div>
<div class="line"><a name="l04069"></a><span class="lineno"> 4069</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l04070"></a><span class="lineno"> 4070</span> </div>
<div class="line"><a name="l04071"></a><span class="lineno"> 4071</span>  <span class="keywordflow">if</span> (objc == 1) {</div>
<div class="line"><a name="l04072"></a><span class="lineno"> 4072</span>  flags = TCL_DONT_WAIT;</div>
<div class="line"><a name="l04073"></a><span class="lineno"> 4073</span> </div>
<div class="line"><a name="l04074"></a><span class="lineno"> 4074</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (objc == 2) {</div>
<div class="line"><a name="l04075"></a><span class="lineno"> 4075</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04076"></a><span class="lineno"> 4076</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (Tcl_GetIndexFromObj(interp, objv[1], (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> **)updateOptions,</div>
<div class="line"><a name="l04077"></a><span class="lineno"> 4077</span>  <span class="stringliteral">"option"</span>, 0, &optionIndex) != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l04078"></a><span class="lineno"> 4078</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04079"></a><span class="lineno"> 4079</span>  }</div>
<div class="line"><a name="l04080"></a><span class="lineno"> 4080</span>  <span class="keywordflow">switch</span> ((<span class="keyword">enum</span> updateOptions) optionIndex) {</div>
<div class="line"><a name="l04081"></a><span class="lineno"> 4081</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8745cbdfcfe3370fc41ece6a7d524857ae7a147cc04f6e59bac02da4d5bf057d5">REGEXP_IDLETASKS</a>: {</div>
<div class="line"><a name="l04082"></a><span class="lineno"> 4082</span>  flags = TCL_IDLE_EVENTS;</div>
<div class="line"><a name="l04083"></a><span class="lineno"> 4083</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l04084"></a><span class="lineno"> 4084</span>  }</div>
<div class="line"><a name="l04085"></a><span class="lineno"> 4085</span>  <span class="keywordflow">default</span>: {</div>
<div class="line"><a name="l04086"></a><span class="lineno"> 4086</span>  <a class="code" href="../../db/dcc/error_8c.html#a2d5fb28e54f792e7341b2c45f52f3860">rb_bug</a>(<span class="stringliteral">"ip_rb_threadUpdateObjCmd: bad option index to UpdateOptions"</span>);</div>
<div class="line"><a name="l04087"></a><span class="lineno"> 4087</span>  }</div>
<div class="line"><a name="l04088"></a><span class="lineno"> 4088</span>  }</div>
<div class="line"><a name="l04089"></a><span class="lineno"> 4089</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l04090"></a><span class="lineno"> 4090</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (strncmp(objv[1], <span class="stringliteral">"idletasks"</span>, <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(objv[1])) != 0) {</div>
<div class="line"><a name="l04091"></a><span class="lineno"> 4091</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"bad option \""</span>, objv[1],</div>
<div class="line"><a name="l04092"></a><span class="lineno"> 4092</span>  <span class="stringliteral">"\": must be idletasks"</span>, (<span class="keywordtype">char</span> *) <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l04093"></a><span class="lineno"> 4093</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04094"></a><span class="lineno"> 4094</span>  }</div>
<div class="line"><a name="l04095"></a><span class="lineno"> 4095</span>  flags = TCL_IDLE_EVENTS;</div>
<div class="line"><a name="l04096"></a><span class="lineno"> 4096</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04097"></a><span class="lineno"> 4097</span> <span class="preprocessor"></span> } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l04098"></a><span class="lineno"> 4098</span> <span class="preprocessor">#ifdef Tcl_WrongNumArgs</span></div>
<div class="line"><a name="l04099"></a><span class="lineno"> 4099</span> <span class="preprocessor"></span> Tcl_WrongNumArgs(interp, 1, objv, <span class="stringliteral">"[ idletasks ]"</span>);</div>
<div class="line"><a name="l04100"></a><span class="lineno"> 4100</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l04101"></a><span class="lineno"> 4101</span> <span class="preprocessor"></span><span class="preprocessor"># if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04102"></a><span class="lineno"> 4102</span> <span class="preprocessor"></span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7c1d654b7b6114d7a0abc8d351dd1bcd">dummy</a>;</div>
<div class="line"><a name="l04103"></a><span class="lineno"> 4103</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div>
<div class="line"><a name="l04104"></a><span class="lineno"> 4104</span>  Tcl_GetStringFromObj(objv[0], &dummy),</div>
<div class="line"><a name="l04105"></a><span class="lineno"> 4105</span>  <span class="stringliteral">" [ idletasks ]\""</span>,</div>
<div class="line"><a name="l04106"></a><span class="lineno"> 4106</span>  (<span class="keywordtype">char</span> *) <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l04107"></a><span class="lineno"> 4107</span> <span class="preprocessor"># else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04108"></a><span class="lineno"> 4108</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div>
<div class="line"><a name="l04109"></a><span class="lineno"> 4109</span>  objv[0], <span class="stringliteral">" [ idletasks ]\""</span>, (<span class="keywordtype">char</span> *) <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l04110"></a><span class="lineno"> 4110</span> <span class="preprocessor"># endif</span></div>
<div class="line"><a name="l04111"></a><span class="lineno"> 4111</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04112"></a><span class="lineno"> 4112</span> <span class="preprocessor"></span> <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04113"></a><span class="lineno"> 4113</span>  }</div>
<div class="line"><a name="l04114"></a><span class="lineno"> 4114</span> </div>
<div class="line"><a name="l04115"></a><span class="lineno"> 4115</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"pass argument check"</span>);</div>
<div class="line"><a name="l04116"></a><span class="lineno"> 4116</span> </div>
<div class="line"><a name="l04117"></a><span class="lineno"> 4117</span>  <span class="comment">/* param = (struct th_update_param *)Tcl_Alloc(sizeof(struct th_update_param)); */</span></div>
<div class="line"><a name="l04118"></a><span class="lineno"> 4118</span>  param = (<span class="keyword">struct </span><a class="code" href="../../dc/d68/structth__update__param.html">th_update_param</a> *)ckalloc(<span class="keyword">sizeof</span>(<span class="keyword">struct</span> <a class="code" href="../../dc/d68/structth__update__param.html">th_update_param</a>));</div>
<div class="line"><a name="l04119"></a><span class="lineno"> 4119</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04120"></a><span class="lineno"> 4120</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)param);</div>
<div class="line"><a name="l04121"></a><span class="lineno"> 4121</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04122"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a12d96b7075039e8d0f52314dad41fb8b"> 4122</a></span> <span class="preprocessor"></span> param-><a class="code" href="../../dc/d68/structth__update__param.html#a1c99d3d9f246be80f225ba4fc915bfb5">thread</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a186dc5b385a5ed2879a4b8e517c2e1cc">current_thread</a>;</div>
<div class="line"><a name="l04123"></a><span class="lineno"> 4123</span>  param-><a class="code" href="../../dc/d68/structth__update__param.html#ac41d8c11b482906fbb9410cf37ed8181">done</a> = 0;</div>
<div class="line"><a name="l04124"></a><span class="lineno"> 4124</span> </div>
<div class="line"><a name="l04125"></a><span class="lineno"> 4125</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"set idle proc"</span>);</div>
<div class="line"><a name="l04126"></a><span class="lineno"> 4126</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a26b613563cc1cda407979946acfc5133">Tcl_DoWhenIdle</a>(rb_threadUpdateProc, (ClientData) param);</div>
<div class="line"><a name="l04127"></a><span class="lineno"> 4127</span> </div>
<div class="line"><a name="l04128"></a><span class="lineno"> 4128</span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#a3599199839a89e99a2ce29d45312b5cf">tv_sec</a> = 0;</div>
<div class="line"><a name="l04129"></a><span class="lineno"> 4129</span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#aa8396731f2914f9ed2a457d3da602b80">tv_usec</a> = (<a class="code" href="../../d3/d15/name2ctype_8h.html#a86f2415763322050063a5502f87c9422">long</a>)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd2530678e6262a587dd99dedeb053b">EVENT_HANDLER_TIMEOUT</a>)*1000.0);</div>
<div class="line"><a name="l04130"></a><span class="lineno"> 4130</span> </div>
<div class="line"><a name="l04131"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a2857d88ce18a85b241ca9ec6771c73fc"> 4131</a></span>  <span class="keywordflow">while</span>(!param-><a class="code" href="../../dc/d68/structth__update__param.html#ac41d8c11b482906fbb9410cf37ed8181">done</a>) {</div>
<div class="line"><a name="l04132"></a><span class="lineno"> 4132</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"wait for complete idle proc"</span>);</div>
<div class="line"><a name="l04133"></a><span class="lineno"> 4133</span>  <span class="comment">/* rb_thread_stop(); */</span></div>
<div class="line"><a name="l04134"></a><span class="lineno"> 4134</span>  <span class="comment">/* rb_thread_sleep_forever(); */</span></div>
<div class="line"><a name="l04135"></a><span class="lineno"> 4135</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8a3ea241e062a8c0dcd87b7232ca4900">rb_thread_wait_for</a>(t);</div>
<div class="line"><a name="l04136"></a><span class="lineno"> 4136</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread)) {</div>
<div class="line"><a name="l04137"></a><span class="lineno"> 4137</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l04138"></a><span class="lineno"> 4138</span>  }</div>
<div class="line"><a name="l04139"></a><span class="lineno"> 4139</span>  }</div>
<div class="line"><a name="l04140"></a><span class="lineno"> 4140</span> </div>
<div class="line"><a name="l04141"></a><span class="lineno"> 4141</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04142"></a><span class="lineno"> 4142</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)param, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l04143"></a><span class="lineno"> 4143</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l04144"></a><span class="lineno"> 4144</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04145"></a><span class="lineno"> 4145</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)param);</div>
<div class="line"><a name="l04146"></a><span class="lineno"> 4146</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l04147"></a><span class="lineno"> 4147</span> <span class="preprocessor"></span> <span class="comment">/* Tcl_Free((char *)param); */</span></div>
<div class="line"><a name="l04148"></a><span class="lineno"> 4148</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span> *)param);</div>
<div class="line"><a name="l04149"></a><span class="lineno"> 4149</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04150"></a><span class="lineno"> 4150</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04151"></a><span class="lineno"> 4151</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l04152"></a><span class="lineno"> 4152</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"finish Ruby's 'thread_update'"</span>);</div>
<div class="line"><a name="l04153"></a><span class="lineno"> 4153</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>;</div>
<div class="line"><a name="l04154"></a><span class="lineno"> 4154</span> }</div>
<div class="line"><a name="l04155"></a><span class="lineno"> 4155</span> </div>
<div class="line"><a name="l04156"></a><span class="lineno"> 4156</span> </div>
<div class="line"><a name="l04157"></a><span class="lineno"> 4157</span> <span class="comment">/***************************/</span></div>
<div class="line"><a name="l04158"></a><span class="lineno"> 4158</span> <span class="comment">/* replace of vwait/tkwait */</span></div>
<div class="line"><a name="l04159"></a><span class="lineno"> 4159</span> <span class="comment">/***************************/</span></div>
<div class="line"><a name="l04160"></a><span class="lineno"> 4160</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04161"></a><span class="lineno"> 4161</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> ip_rbVwaitObjCmd <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div>
<div class="line"><a name="l04162"></a><span class="lineno"> 4162</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> []));</div>
<div class="line"><a name="l04163"></a><span class="lineno"> 4163</span> <span class="keyword">static</span> <span class="keywordtype">int</span> ip_rb_threadVwaitObjCmd <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div>
<div class="line"><a name="l04164"></a><span class="lineno"> 4164</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> []));</div>
<div class="line"><a name="l04165"></a><span class="lineno"> 4165</span> <span class="keyword">static</span> <span class="keywordtype">int</span> ip_rbTkWaitObjCmd <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div>
<div class="line"><a name="l04166"></a><span class="lineno"> 4166</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> []));</div>
<div class="line"><a name="l04167"></a><span class="lineno"> 4167</span> <span class="keyword">static</span> <span class="keywordtype">int</span> ip_rb_threadTkWaitObjCmd <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div>
<div class="line"><a name="l04168"></a><span class="lineno"> 4168</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> []));</div>
<div class="line"><a name="l04169"></a><span class="lineno"> 4169</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l04170"></a><span class="lineno"> 4170</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> ip_rbVwaitCommand <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>, <span class="keywordtype">char</span> *[]));</div>
<div class="line"><a name="l04171"></a><span class="lineno"> 4171</span> <span class="keyword">static</span> <span class="keywordtype">int</span> ip_rb_threadVwaitCommand <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div>
<div class="line"><a name="l04172"></a><span class="lineno"> 4172</span>  <span class="keywordtype">char</span> *[]));</div>
<div class="line"><a name="l04173"></a><span class="lineno"> 4173</span> <span class="keyword">static</span> <span class="keywordtype">int</span> ip_rbTkWaitCommand <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>, <span class="keywordtype">char</span> *[]));</div>
<div class="line"><a name="l04174"></a><span class="lineno"> 4174</span> <span class="keyword">static</span> <span class="keywordtype">int</span> ip_rb_threadTkWaitCommand <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div>
<div class="line"><a name="l04175"></a><span class="lineno"> 4175</span>  <span class="keywordtype">char</span> *[]));</div>
<div class="line"><a name="l04176"></a><span class="lineno"> 4176</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04177"></a><span class="lineno"> 4177</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l04178"></a><span class="lineno"> 4178</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04179"></a><span class="lineno"> 4179</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">char</span> *VwaitVarProc <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *,</div>
<div class="line"><a name="l04180"></a><span class="lineno"> 4180</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> *,<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> *, <span class="keywordtype">int</span>));</div>
<div class="line"><a name="l04181"></a><span class="lineno"> 4181</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *</div>
<div class="line"><a name="l04182"></a><span class="lineno"> 4182</span> VwaitVarProc(clientData, interp, name1, name2, flags)</div>
<div class="line"><a name="l04183"></a><span class="lineno"> 4183</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div>
<div class="line"><a name="l04184"></a><span class="lineno"> 4184</span>  Tcl_Interp *interp; <span class="comment">/* Interpreter containing variable. */</span></div>
<div class="line"><a name="l04185"></a><span class="lineno"> 4185</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> *name1; <span class="comment">/* Name of variable. */</span></div>
<div class="line"><a name="l04186"></a><span class="lineno"> 4186</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> *name2; <span class="comment">/* Second part of variable name. */</span></div>
<div class="line"><a name="l04187"></a><span class="lineno"> 4187</span>  <span class="keywordtype">int</span> flags; <span class="comment">/* Information about what happened. */</span></div>
<div class="line"><a name="l04188"></a><span class="lineno"> 4188</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04189"></a><span class="lineno"> 4189</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">char</span> *VwaitVarProc <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">char</span> *, <span class="keywordtype">char</span> *, <span class="keywordtype">int</span>));</div>
<div class="line"><a name="l04190"></a><span class="lineno"> 4190</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *</div>
<div class="line"><a name="l04191"></a><span class="lineno"> 4191</span> VwaitVarProc(clientData, interp, name1, name2, flags)</div>
<div class="line"><a name="l04192"></a><span class="lineno"> 4192</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div>
<div class="line"><a name="l04193"></a><span class="lineno"> 4193</span>  Tcl_Interp *interp; <span class="comment">/* Interpreter containing variable. */</span></div>
<div class="line"><a name="l04194"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a02378923e45b1c06a28391c078ad49d9"> 4194</a></span>  <span class="keywordtype">char</span> *name1; <span class="comment">/* Name of variable. */</span></div>
<div class="line"><a name="l04195"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a21afee436033f916c31b4e302b9d221e"> 4195</a></span>  <span class="keywordtype">char</span> *name2; <span class="comment">/* Second part of variable name. */</span></div>
<div class="line"><a name="l04196"></a><span class="lineno"> 4196</span>  <span class="keywordtype">int</span> flags; <span class="comment">/* Information about what happened. */</span></div>
<div class="line"><a name="l04197"></a><span class="lineno"> 4197</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04198"></a><span class="lineno"> 4198</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l04199"></a><span class="lineno"> 4199</span>  <span class="keywordtype">int</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e1dd08a9fa8402a19debb577f0c5941">donePtr</a> = (<span class="keywordtype">int</span> *) clientData;</div>
<div class="line"><a name="l04200"></a><span class="lineno"> 4200</span> </div>
<div class="line"><a name="l04201"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3e1dd08a9fa8402a19debb577f0c5941"> 4201</a></span>  *donePtr = 1;</div>
<div class="line"><a name="l04202"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#afba1fa2a705eb6077505d90833533b73"> 4202</a></span>  <span class="keywordflow">return</span> (<span class="keywordtype">char</span> *) <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l04203"></a><span class="lineno"> 4203</span> }</div>
<div class="line"><a name="l04204"></a><span class="lineno"> 4204</span> </div>
<div class="line"><a name="l04205"></a><span class="lineno"> 4205</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04206"></a><span class="lineno"> 4206</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l04207"></a><span class="lineno"> 4207</span> ip_rbVwaitObjCmd(clientData, interp, objc, objv)</div>
<div class="line"><a name="l04208"></a><span class="lineno"> 4208</span>  ClientData clientData; <span class="comment">/* Not used */</span></div>
<div class="line"><a name="l04209"></a><span class="lineno"> 4209</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l04210"></a><span class="lineno"> 4210</span>  <span class="keywordtype">int</span> objc;</div>
<div class="line"><a name="l04211"></a><span class="lineno"> 4211</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> objv[];</div>
<div class="line"><a name="l04212"></a><span class="lineno"> 4212</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04213"></a><span class="lineno"> 4213</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l04214"></a><span class="lineno"> 4214</span> ip_rbVwaitCommand(clientData, interp, objc, objv)</div>
<div class="line"><a name="l04215"></a><span class="lineno"> 4215</span>  ClientData clientData; <span class="comment">/* Not used */</span></div>
<div class="line"><a name="l04216"></a><span class="lineno"> 4216</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l04217"></a><span class="lineno"> 4217</span>  <span class="keywordtype">int</span> objc;</div>
<div class="line"><a name="l04218"></a><span class="lineno"> 4218</span>  <span class="keywordtype">char</span> *objv[];</div>
<div class="line"><a name="l04219"></a><span class="lineno"> 4219</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04220"></a><span class="lineno"> 4220</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l04221"></a><span class="lineno"> 4221</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae429240449153a3cd44c681a050d8850">done</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23b23ff7b48081d3760afae29d3be637">foundEvent</a>;</div>
<div class="line"><a name="l04222"></a><span class="lineno"> 4222</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a3ddcdc7bfb3b1d74b8f23dacda0e86a3">nameString</a>;</div>
<div class="line"><a name="l04223"></a><span class="lineno"> 4223</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7c1d654b7b6114d7a0abc8d351dd1bcd">dummy</a>;</div>
<div class="line"><a name="l04224"></a><span class="lineno"> 4224</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04225"></a><span class="lineno"> 4225</span> </div>
<div class="line"><a name="l04226"></a><span class="lineno"> 4226</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Ruby's 'vwait' is called"</span>);</div>
<div class="line"><a name="l04227"></a><span class="lineno"> 4227</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l04228"></a><span class="lineno"> 4228</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l04229"></a><span class="lineno"> 4229</span>  <span class="stringliteral">"IP is deleted"</span>);</div>
<div class="line"><a name="l04230"></a><span class="lineno"> 4230</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04231"></a><span class="lineno"> 4231</span>  }</div>
<div class="line"><a name="l04232"></a><span class="lineno"> 4232</span> </div>
<div class="line"><a name="l04233"></a><span class="lineno"> 4233</span> <span class="preprocessor">#if 0</span></div>
<div class="line"><a name="l04234"></a><span class="lineno"> 4234</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (!<a class="code" href="../../db/d2e/intern_8h.html#ac86131edba4a5a668958ce58b661d7ee">rb_thread_alone</a>()</div>
<div class="line"><a name="l04235"></a><span class="lineno"> 4235</span>  && eventloop_thread != <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a></div>
<div class="line"><a name="l04236"></a><span class="lineno"> 4236</span>  && eventloop_thread != <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>()) {</div>
<div class="line"><a name="l04237"></a><span class="lineno"> 4237</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04238"></a><span class="lineno"> 4238</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call ip_rb_threadVwaitObjCmd"</span>);</div>
<div class="line"><a name="l04239"></a><span class="lineno"> 4239</span>  <span class="keywordflow">return</span> ip_rb_threadVwaitObjCmd(clientData, interp, objc, objv);</div>
<div class="line"><a name="l04240"></a><span class="lineno"> 4240</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04241"></a><span class="lineno"> 4241</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call ip_rb_threadVwaitCommand"</span>);</div>
<div class="line"><a name="l04242"></a><span class="lineno"> 4242</span>  <span class="keywordflow">return</span> ip_rb_threadVwaitCommand(clientData, interp, objc, objv);</div>
<div class="line"><a name="l04243"></a><span class="lineno"> 4243</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04244"></a><span class="lineno"> 4244</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l04245"></a><span class="lineno"> 4245</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04246"></a><span class="lineno"> 4246</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l04247"></a><span class="lineno"> 4247</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>(interp);</div>
<div class="line"><a name="l04248"></a><span class="lineno"> 4248</span> <span class="preprocessor">#ifdef HAVE_NATIVETHREAD</span></div>
<div class="line"><a name="l04249"></a><span class="lineno"> 4249</span> <span class="preprocessor"></span><span class="preprocessor">#ifndef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l04250"></a><span class="lineno"> 4250</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9e7d742a9c52a78b9b3dc81df878e2ed">ruby_native_thread_p</a>()) {</div>
<div class="line"><a name="l04251"></a><span class="lineno"> 4251</span>  <a class="code" href="../../db/dcc/error_8c.html#a2d5fb28e54f792e7341b2c45f52f3860">rb_bug</a>(<span class="stringliteral">"cross-thread violation on ip_rbVwaitCommand()"</span>);</div>
<div class="line"><a name="l04252"></a><span class="lineno"> 4252</span>  }</div>
<div class="line"><a name="l04253"></a><span class="lineno"> 4253</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04254"></a><span class="lineno"> 4254</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04255"></a><span class="lineno"> 4255</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l04256"></a><span class="lineno"> 4256</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l04257"></a><span class="lineno"> 4257</span> </div>
<div class="line"><a name="l04258"></a><span class="lineno"> 4258</span>  <span class="keywordflow">if</span> (objc != 2) {</div>
<div class="line"><a name="l04259"></a><span class="lineno"> 4259</span> <span class="preprocessor">#ifdef Tcl_WrongNumArgs</span></div>
<div class="line"><a name="l04260"></a><span class="lineno"> 4260</span> <span class="preprocessor"></span> Tcl_WrongNumArgs(interp, 1, objv, <span class="stringliteral">"name"</span>);</div>
<div class="line"><a name="l04261"></a><span class="lineno"> 4261</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l04262"></a><span class="lineno"> 4262</span> <span class="preprocessor"></span> thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l04263"></a><span class="lineno"> 4263</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l04264"></a><span class="lineno"> 4264</span> </div>
<div class="line"><a name="l04265"></a><span class="lineno"> 4265</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04266"></a><span class="lineno"> 4266</span> <span class="preprocessor"></span> <span class="comment">/* nameString = Tcl_GetString(objv[0]); */</span></div>
<div class="line"><a name="l04267"></a><span class="lineno"> 4267</span>  nameString = Tcl_GetStringFromObj(objv[0], &dummy);</div>
<div class="line"><a name="l04268"></a><span class="lineno"> 4268</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04269"></a><span class="lineno"> 4269</span> <span class="preprocessor"></span> nameString = objv[0];</div>
<div class="line"><a name="l04270"></a><span class="lineno"> 4270</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04271"></a><span class="lineno"> 4271</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div>
<div class="line"><a name="l04272"></a><span class="lineno"> 4272</span>  nameString, <span class="stringliteral">" name\""</span>, (<span class="keywordtype">char</span> *) <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l04273"></a><span class="lineno"> 4273</span> </div>
<div class="line"><a name="l04274"></a><span class="lineno"> 4274</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04275"></a><span class="lineno"> 4275</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04276"></a><span class="lineno"> 4276</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l04277"></a><span class="lineno"> 4277</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04278"></a><span class="lineno"> 4278</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04279"></a><span class="lineno"> 4279</span>  }</div>
<div class="line"><a name="l04280"></a><span class="lineno"> 4280</span> </div>
<div class="line"><a name="l04281"></a><span class="lineno"> 4281</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l04282"></a><span class="lineno"> 4282</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l04283"></a><span class="lineno"> 4283</span> </div>
<div class="line"><a name="l04284"></a><span class="lineno"> 4284</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04285"></a><span class="lineno"> 4285</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(objv[1]);</div>
<div class="line"><a name="l04286"></a><span class="lineno"> 4286</span>  <span class="comment">/* nameString = Tcl_GetString(objv[1]); */</span></div>
<div class="line"><a name="l04287"></a><span class="lineno"> 4287</span>  nameString = Tcl_GetStringFromObj(objv[1], &dummy);</div>
<div class="line"><a name="l04288"></a><span class="lineno"> 4288</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04289"></a><span class="lineno"> 4289</span> <span class="preprocessor"></span> nameString = objv[1];</div>
<div class="line"><a name="l04290"></a><span class="lineno"> 4290</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04291"></a><span class="lineno"> 4291</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l04292"></a><span class="lineno"> 4292</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l04293"></a><span class="lineno"> 4293</span> <span class="comment"> if (Tcl_TraceVar(interp, nameString,</span></div>
<div class="line"><a name="l04294"></a><span class="lineno"> 4294</span> <span class="comment"> TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</span></div>
<div class="line"><a name="l04295"></a><span class="lineno"> 4295</span> <span class="comment"> VwaitVarProc, (ClientData) &done) != TCL_OK) {</span></div>
<div class="line"><a name="l04296"></a><span class="lineno"> 4296</span> <span class="comment"> return TCL_ERROR;</span></div>
<div class="line"><a name="l04297"></a><span class="lineno"> 4297</span> <span class="comment"> }</span></div>
<div class="line"><a name="l04298"></a><span class="lineno"> 4298</span> <span class="comment"> */</span></div>
<div class="line"><a name="l04299"></a><span class="lineno"> 4299</span>  ret = Tcl_TraceVar(interp, nameString,</div>
<div class="line"><a name="l04300"></a><span class="lineno"> 4300</span>  TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</div>
<div class="line"><a name="l04301"></a><span class="lineno"> 4301</span>  VwaitVarProc, (ClientData) &done);</div>
<div class="line"><a name="l04302"></a><span class="lineno"> 4302</span> </div>
<div class="line"><a name="l04303"></a><span class="lineno"> 4303</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04304"></a><span class="lineno"> 4304</span> </div>
<div class="line"><a name="l04305"></a><span class="lineno"> 4305</span>  <span class="keywordflow">if</span> (ret != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l04306"></a><span class="lineno"> 4306</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04307"></a><span class="lineno"> 4307</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[1]);</div>
<div class="line"><a name="l04308"></a><span class="lineno"> 4308</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04309"></a><span class="lineno"> 4309</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04310"></a><span class="lineno"> 4310</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04311"></a><span class="lineno"> 4311</span>  }</div>
<div class="line"><a name="l04312"></a><span class="lineno"> 4312</span> </div>
<div class="line"><a name="l04313"></a><span class="lineno"> 4313</span>  done = 0;</div>
<div class="line"><a name="l04314"></a><span class="lineno"> 4314</span> </div>
<div class="line"><a name="l04315"></a><span class="lineno"> 4315</span>  foundEvent = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a48ad410c8807d01926b70383e7dd0a9f">lib_eventloop_launcher</a>(<span class="comment">/* not check root-widget */</span>0,</div>
<div class="line"><a name="l04316"></a><span class="lineno"> 4316</span>  0, &done, interp));</div>
<div class="line"><a name="l04317"></a><span class="lineno"> 4317</span> </div>
<div class="line"><a name="l04318"></a><span class="lineno"> 4318</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l04319"></a><span class="lineno"> 4319</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l04320"></a><span class="lineno"> 4320</span> </div>
<div class="line"><a name="l04321"></a><span class="lineno"> 4321</span>  Tcl_UntraceVar(interp, nameString,</div>
<div class="line"><a name="l04322"></a><span class="lineno"> 4322</span>  TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</div>
<div class="line"><a name="l04323"></a><span class="lineno"> 4323</span>  VwaitVarProc, (ClientData) &done);</div>
<div class="line"><a name="l04324"></a><span class="lineno"> 4324</span> </div>
<div class="line"><a name="l04325"></a><span class="lineno"> 4325</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04326"></a><span class="lineno"> 4326</span> </div>
<div class="line"><a name="l04327"></a><span class="lineno"> 4327</span>  <span class="comment">/* exception check */</span></div>
<div class="line"><a name="l04328"></a><span class="lineno"> 4328</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>)) {</div>
<div class="line"><a name="l04329"></a><span class="lineno"> 4329</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04330"></a><span class="lineno"> 4330</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[1]);</div>
<div class="line"><a name="l04331"></a><span class="lineno"> 4331</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04332"></a><span class="lineno"> 4332</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04333"></a><span class="lineno"> 4333</span> </div>
<div class="line"><a name="l04334"></a><span class="lineno"> 4334</span> <span class="comment">/*</span></div>
<div class="line"><a name="l04335"></a><span class="lineno"> 4335</span> <span class="comment"> if (rb_obj_is_kind_of(rbtk_pending_exception, rb_eSystemExit)) {</span></div>
<div class="line"><a name="l04336"></a><span class="lineno"> 4336</span> <span class="comment">*/</span></div>
<div class="line"><a name="l04337"></a><span class="lineno"> 4337</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a34c7841e8f21712bc79d7bd6f64483b3">rb_eSystemExit</a>)</div>
<div class="line"><a name="l04338"></a><span class="lineno"> 4338</span>  || <a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a8378eac5be044398a53aca753116817b">rb_eInterrupt</a>)) {</div>
<div class="line"><a name="l04339"></a><span class="lineno"> 4339</span>  <span class="keywordflow">return</span> TCL_RETURN;</div>
<div class="line"><a name="l04340"></a><span class="lineno"> 4340</span>  } <span class="keywordflow">else</span>{</div>
<div class="line"><a name="l04341"></a><span class="lineno"> 4341</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04342"></a><span class="lineno"> 4342</span>  }</div>
<div class="line"><a name="l04343"></a><span class="lineno"> 4343</span>  }</div>
<div class="line"><a name="l04344"></a><span class="lineno"> 4344</span> </div>
<div class="line"><a name="l04345"></a><span class="lineno"> 4345</span>  <span class="comment">/* trap check */</span></div>
<div class="line"><a name="l04346"></a><span class="lineno"> 4346</span> <span class="preprocessor">#ifdef RUBY_VM</span></div>
<div class="line"><a name="l04347"></a><span class="lineno"> 4347</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../d3/de7/thread_8c.html#a024fc07d1560d6a94da3bcc268c9bbd8">rb_thread_check_trap_pending</a>()) {</div>
<div class="line"><a name="l04348"></a><span class="lineno"> 4348</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l04349"></a><span class="lineno"> 4349</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (rb_trap_pending) {</div>
<div class="line"><a name="l04350"></a><span class="lineno"> 4350</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04351"></a><span class="lineno"> 4351</span> <span class="preprocessor"></span><span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04352"></a><span class="lineno"> 4352</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[1]);</div>
<div class="line"><a name="l04353"></a><span class="lineno"> 4353</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04354"></a><span class="lineno"> 4354</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04355"></a><span class="lineno"> 4355</span> </div>
<div class="line"><a name="l04356"></a><span class="lineno"> 4356</span>  <span class="keywordflow">return</span> TCL_RETURN;</div>
<div class="line"><a name="l04357"></a><span class="lineno"> 4357</span>  }</div>
<div class="line"><a name="l04358"></a><span class="lineno"> 4358</span> </div>
<div class="line"><a name="l04359"></a><span class="lineno"> 4359</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l04360"></a><span class="lineno"> 4360</span> <span class="comment"> * Clear out the interpreter's result, since it may have been set</span></div>
<div class="line"><a name="l04361"></a><span class="lineno"> 4361</span> <span class="comment"> * by event handlers.</span></div>
<div class="line"><a name="l04362"></a><span class="lineno"> 4362</span> <span class="comment"> */</span></div>
<div class="line"><a name="l04363"></a><span class="lineno"> 4363</span> </div>
<div class="line"><a name="l04364"></a><span class="lineno"> 4364</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l04365"></a><span class="lineno"> 4365</span>  <span class="keywordflow">if</span> (!foundEvent) {</div>
<div class="line"><a name="l04366"></a><span class="lineno"> 4366</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l04367"></a><span class="lineno"> 4367</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l04368"></a><span class="lineno"> 4368</span> </div>
<div class="line"><a name="l04369"></a><span class="lineno"> 4369</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"can't wait for variable \""</span>, nameString,</div>
<div class="line"><a name="l04370"></a><span class="lineno"> 4370</span>  <span class="stringliteral">"\": would wait forever"</span>, (<span class="keywordtype">char</span> *) <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l04371"></a><span class="lineno"> 4371</span> </div>
<div class="line"><a name="l04372"></a><span class="lineno"> 4372</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04373"></a><span class="lineno"> 4373</span> </div>
<div class="line"><a name="l04374"></a><span class="lineno"> 4374</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04375"></a><span class="lineno"> 4375</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[1]);</div>
<div class="line"><a name="l04376"></a><span class="lineno"> 4376</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04377"></a><span class="lineno"> 4377</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04378"></a><span class="lineno"> 4378</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04379"></a><span class="lineno"> 4379</span>  }</div>
<div class="line"><a name="l04380"></a><span class="lineno"> 4380</span> </div>
<div class="line"><a name="l04381"></a><span class="lineno"> 4381</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04382"></a><span class="lineno"> 4382</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[1]);</div>
<div class="line"><a name="l04383"></a><span class="lineno"> 4383</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04384"></a><span class="lineno"> 4384</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04385"></a><span class="lineno"> 4385</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>;</div>
<div class="line"><a name="l04386"></a><span class="lineno"> 4386</span> }</div>
<div class="line"><a name="l04387"></a><span class="lineno"> 4387</span> </div>
<div class="line"><a name="l04388"></a><span class="lineno"> 4388</span> </div>
<div class="line"><a name="l04389"></a><span class="lineno"> 4389</span> <span class="comment">/**************************/</span></div>
<div class="line"><a name="l04390"></a><span class="lineno"> 4390</span> <span class="comment">/* based on tkCmd.c */</span></div>
<div class="line"><a name="l04391"></a><span class="lineno"> 4391</span> <span class="comment">/**************************/</span></div>
<div class="line"><a name="l04392"></a><span class="lineno"> 4392</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04393"></a><span class="lineno"> 4393</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">char</span> *WaitVariableProc <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *,</div>
<div class="line"><a name="l04394"></a><span class="lineno"> 4394</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> *,<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> *, <span class="keywordtype">int</span>));</div>
<div class="line"><a name="l04395"></a><span class="lineno"> 4395</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *</div>
<div class="line"><a name="l04396"></a><span class="lineno"> 4396</span> WaitVariableProc(clientData, interp, name1, name2, flags)</div>
<div class="line"><a name="l04397"></a><span class="lineno"> 4397</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div>
<div class="line"><a name="l04398"></a><span class="lineno"> 4398</span>  Tcl_Interp *interp; <span class="comment">/* Interpreter containing variable. */</span></div>
<div class="line"><a name="l04399"></a><span class="lineno"> 4399</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> *name1; <span class="comment">/* Name of variable. */</span></div>
<div class="line"><a name="l04400"></a><span class="lineno"> 4400</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> *name2; <span class="comment">/* Second part of variable name. */</span></div>
<div class="line"><a name="l04401"></a><span class="lineno"> 4401</span>  <span class="keywordtype">int</span> flags; <span class="comment">/* Information about what happened. */</span></div>
<div class="line"><a name="l04402"></a><span class="lineno"> 4402</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04403"></a><span class="lineno"> 4403</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">char</span> *WaitVariableProc <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *,</div>
<div class="line"><a name="l04404"></a><span class="lineno"> 4404</span>  <span class="keywordtype">char</span> *, <span class="keywordtype">char</span> *, <span class="keywordtype">int</span>));</div>
<div class="line"><a name="l04405"></a><span class="lineno"> 4405</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *</div>
<div class="line"><a name="l04406"></a><span class="lineno"> 4406</span> WaitVariableProc(clientData, interp, name1, name2, flags)</div>
<div class="line"><a name="l04407"></a><span class="lineno"> 4407</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div>
<div class="line"><a name="l04408"></a><span class="lineno"> 4408</span>  Tcl_Interp *interp; <span class="comment">/* Interpreter containing variable. */</span></div>
<div class="line"><a name="l04409"></a><span class="lineno"> 4409</span>  <span class="keywordtype">char</span> *name1; <span class="comment">/* Name of variable. */</span></div>
<div class="line"><a name="l04410"></a><span class="lineno"> 4410</span>  <span class="keywordtype">char</span> *name2; <span class="comment">/* Second part of variable name. */</span></div>
<div class="line"><a name="l04411"></a><span class="lineno"> 4411</span>  <span class="keywordtype">int</span> flags; <span class="comment">/* Information about what happened. */</span></div>
<div class="line"><a name="l04412"></a><span class="lineno"> 4412</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04413"></a><span class="lineno"> 4413</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l04414"></a><span class="lineno"> 4414</span>  <span class="keywordtype">int</span> *donePtr = (<span class="keywordtype">int</span> *) clientData;</div>
<div class="line"><a name="l04415"></a><span class="lineno"> 4415</span> </div>
<div class="line"><a name="l04416"></a><span class="lineno"> 4416</span>  *donePtr = 1;</div>
<div class="line"><a name="l04417"></a><span class="lineno"> 4417</span>  <span class="keywordflow">return</span> (<span class="keywordtype">char</span> *) <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l04418"></a><span class="lineno"> 4418</span> }</div>
<div class="line"><a name="l04419"></a><span class="lineno"> 4419</span> </div>
<div class="line"><a name="l04420"></a><span class="lineno"> 4420</span> <span class="keyword">static</span> <span class="keywordtype">void</span> WaitVisibilityProc <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, XEvent *));</div>
<div class="line"><a name="l04421"></a><span class="lineno"> 4421</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l04422"></a><span class="lineno"> 4422</span> WaitVisibilityProc(clientData, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a35bcdaccb0f77bcc8e27d9237e255306">eventPtr</a>)</div>
<div class="line"><a name="l04423"></a><span class="lineno"> 4423</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div>
<div class="line"><a name="l04424"></a><span class="lineno"> 4424</span>  XEvent *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a35bcdaccb0f77bcc8e27d9237e255306">eventPtr</a>; <span class="comment">/* Information about event (not used). */</span></div>
<div class="line"><a name="l04425"></a><span class="lineno"> 4425</span> {</div>
<div class="line"><a name="l04426"></a><span class="lineno"> 4426</span>  <span class="keywordtype">int</span> *donePtr = (<span class="keywordtype">int</span> *) clientData;</div>
<div class="line"><a name="l04427"></a><span class="lineno"> 4427</span> </div>
<div class="line"><a name="l04428"></a><span class="lineno"> 4428</span>  <span class="keywordflow">if</span> (eventPtr->type == VisibilityNotify) {</div>
<div class="line"><a name="l04429"></a><span class="lineno"> 4429</span>  *donePtr = 1;</div>
<div class="line"><a name="l04430"></a><span class="lineno"> 4430</span>  }</div>
<div class="line"><a name="l04431"></a><span class="lineno"> 4431</span>  <span class="keywordflow">if</span> (eventPtr->type == DestroyNotify) {</div>
<div class="line"><a name="l04432"></a><span class="lineno"> 4432</span>  *donePtr = 2;</div>
<div class="line"><a name="l04433"></a><span class="lineno"> 4433</span>  }</div>
<div class="line"><a name="l04434"></a><span class="lineno"> 4434</span> }</div>
<div class="line"><a name="l04435"></a><span class="lineno"> 4435</span> </div>
<div class="line"><a name="l04436"></a><span class="lineno"> 4436</span> <span class="keyword">static</span> <span class="keywordtype">void</span> WaitWindowProc <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, XEvent *));</div>
<div class="line"><a name="l04437"></a><span class="lineno"> 4437</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l04438"></a><span class="lineno"> 4438</span> WaitWindowProc(clientData, eventPtr)</div>
<div class="line"><a name="l04439"></a><span class="lineno"> 4439</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div>
<div class="line"><a name="l04440"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a35bcdaccb0f77bcc8e27d9237e255306"> 4440</a></span>  XEvent *eventPtr; <span class="comment">/* Information about event. */</span></div>
<div class="line"><a name="l04441"></a><span class="lineno"> 4441</span> {</div>
<div class="line"><a name="l04442"></a><span class="lineno"> 4442</span>  <span class="keywordtype">int</span> *donePtr = (<span class="keywordtype">int</span> *) clientData;</div>
<div class="line"><a name="l04443"></a><span class="lineno"> 4443</span> </div>
<div class="line"><a name="l04444"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a90df05b418c66e94be7c3c33df4d6436"> 4444</a></span>  <span class="keywordflow">if</span> (eventPtr->type == DestroyNotify) {</div>
<div class="line"><a name="l04445"></a><span class="lineno"> 4445</span>  *donePtr = 1;</div>
<div class="line"><a name="l04446"></a><span class="lineno"> 4446</span>  }</div>
<div class="line"><a name="l04447"></a><span class="lineno"> 4447</span> }</div>
<div class="line"><a name="l04448"></a><span class="lineno"> 4448</span> </div>
<div class="line"><a name="l04449"></a><span class="lineno"> 4449</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04450"></a><span class="lineno"> 4450</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l04451"></a><span class="lineno"> 4451</span> ip_rbTkWaitObjCmd(clientData, interp, objc, objv)</div>
<div class="line"><a name="l04452"></a><span class="lineno"> 4452</span>  ClientData clientData;</div>
<div class="line"><a name="l04453"></a><span class="lineno"> 4453</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l04454"></a><span class="lineno"> 4454</span>  <span class="keywordtype">int</span> objc;</div>
<div class="line"><a name="l04455"></a><span class="lineno"> 4455</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> objv[];</div>
<div class="line"><a name="l04456"></a><span class="lineno"> 4456</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04457"></a><span class="lineno"> 4457</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l04458"></a><span class="lineno"> 4458</span> ip_rbTkWaitCommand(clientData, interp, objc, objv)</div>
<div class="line"><a name="l04459"></a><span class="lineno"> 4459</span>  ClientData clientData;</div>
<div class="line"><a name="l04460"></a><span class="lineno"> 4460</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l04461"></a><span class="lineno"> 4461</span>  <span class="keywordtype">int</span> objc;</div>
<div class="line"><a name="l04462"></a><span class="lineno"> 4462</span>  <span class="keywordtype">char</span> *objv[];</div>
<div class="line"><a name="l04463"></a><span class="lineno"> 4463</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04464"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae82a3a846a0b5163005aae7115d59b64"> 4464</a></span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l04465"></a><span class="lineno"> 4465</span>  Tk_Window <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8018f71cd110dd99a4148699d5b0f084">tkwin</a> = (Tk_Window) clientData;</div>
<div class="line"><a name="l04466"></a><span class="lineno"> 4466</span>  Tk_Window <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae82a3a846a0b5163005aae7115d59b64">window</a>;</div>
<div class="line"><a name="l04467"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a2b772bde34cb865f671cba699f405675"> 4467</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae429240449153a3cd44c681a050d8850">done</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2b772bde34cb865f671cba699f405675">index</a>;</div>
<div class="line"><a name="l04468"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a286d909708b226bd9fd5cc4b183a019e"> 4468</a></span>  <span class="keyword">static</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a286d909708b226bd9fd5cc4b183a019e">optionStrings</a>[] = { <span class="stringliteral">"variable"</span>, <span class="stringliteral">"visibility"</span>, <span class="stringliteral">"window"</span>,</div>
<div class="line"><a name="l04469"></a><span class="lineno"> 4469</span>  (<span class="keywordtype">char</span> *) <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a> };</div>
<div class="line"><a name="l04470"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203da73e34c56e478639434b8927497d73d97"> 4470</a></span>  <span class="keyword">enum</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203d">options</a> { <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203da849e6bbd0a169700b2ae12d5d5bbd60a">TKWAIT_VARIABLE</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203dae5beaef321f61572446bdd68a6b85600">TKWAIT_VISIBILITY</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203da73e34c56e478639434b8927497d73d97">TKWAIT_WINDOW</a> };</div>
<div class="line"><a name="l04471"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3ddcdc7bfb3b1d74b8f23dacda0e86a3"> 4471</a></span>  <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a3ddcdc7bfb3b1d74b8f23dacda0e86a3">nameString</a>;</div>
<div class="line"><a name="l04472"></a><span class="lineno"> 4472</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7c1d654b7b6114d7a0abc8d351dd1bcd">dummy</a>;</div>
<div class="line"><a name="l04473"></a><span class="lineno"> 4473</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04474"></a><span class="lineno"> 4474</span> </div>
<div class="line"><a name="l04475"></a><span class="lineno"> 4475</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Ruby's 'tkwait' is called"</span>);</div>
<div class="line"><a name="l04476"></a><span class="lineno"> 4476</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l04477"></a><span class="lineno"> 4477</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l04478"></a><span class="lineno"> 4478</span>  <span class="stringliteral">"IP is deleted"</span>);</div>
<div class="line"><a name="l04479"></a><span class="lineno"> 4479</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04480"></a><span class="lineno"> 4480</span>  }</div>
<div class="line"><a name="l04481"></a><span class="lineno"> 4481</span> </div>
<div class="line"><a name="l04482"></a><span class="lineno"> 4482</span> <span class="preprocessor">#if 0</span></div>
<div class="line"><a name="l04483"></a><span class="lineno"> 4483</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (!<a class="code" href="../../db/d2e/intern_8h.html#ac86131edba4a5a668958ce58b661d7ee">rb_thread_alone</a>()</div>
<div class="line"><a name="l04484"></a><span class="lineno"> 4484</span>  && eventloop_thread != <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a></div>
<div class="line"><a name="l04485"></a><span class="lineno"> 4485</span>  && eventloop_thread != <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>()) {</div>
<div class="line"><a name="l04486"></a><span class="lineno"> 4486</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04487"></a><span class="lineno"> 4487</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call ip_rb_threadTkWaitObjCmd"</span>);</div>
<div class="line"><a name="l04488"></a><span class="lineno"> 4488</span>  <span class="keywordflow">return</span> ip_rb_threadTkWaitObjCmd((ClientData)tkwin, interp, objc, objv);</div>
<div class="line"><a name="l04489"></a><span class="lineno"> 4489</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04490"></a><span class="lineno"> 4490</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call ip_rb_threadTkWaitCommand"</span>);</div>
<div class="line"><a name="l04491"></a><span class="lineno"> 4491</span>  <span class="keywordflow">return</span> ip_rb_threadTkWwaitCommand((ClientData)tkwin, interp, objc, objv);</div>
<div class="line"><a name="l04492"></a><span class="lineno"> 4492</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04493"></a><span class="lineno"> 4493</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l04494"></a><span class="lineno"> 4494</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04495"></a><span class="lineno"> 4495</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l04496"></a><span class="lineno"> 4496</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>(interp);</div>
<div class="line"><a name="l04497"></a><span class="lineno"> 4497</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l04498"></a><span class="lineno"> 4498</span> </div>
<div class="line"><a name="l04499"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a291c6df151c218780b02ab2b960b9315"> 4499</a></span>  <span class="keywordflow">if</span> (objc != 3) {</div>
<div class="line"><a name="l04500"></a><span class="lineno"> 4500</span> <span class="preprocessor">#ifdef Tcl_WrongNumArgs</span></div>
<div class="line"><a name="l04501"></a><span class="lineno"> 4501</span> <span class="preprocessor"></span> Tcl_WrongNumArgs(interp, 1, objv, <span class="stringliteral">"variable|visibility|window name"</span>);</div>
<div class="line"><a name="l04502"></a><span class="lineno"> 4502</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l04503"></a><span class="lineno"> 4503</span> <span class="preprocessor"></span> thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l04504"></a><span class="lineno"> 4504</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l04505"></a><span class="lineno"> 4505</span> </div>
<div class="line"><a name="l04506"></a><span class="lineno"> 4506</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04507"></a><span class="lineno"> 4507</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div>
<div class="line"><a name="l04508"></a><span class="lineno"> 4508</span>  Tcl_GetStringFromObj(objv[0], &dummy),</div>
<div class="line"><a name="l04509"></a><span class="lineno"> 4509</span>  <span class="stringliteral">" variable|visibility|window name\""</span>,</div>
<div class="line"><a name="l04510"></a><span class="lineno"> 4510</span>  (<span class="keywordtype">char</span> *) <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l04511"></a><span class="lineno"> 4511</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04512"></a><span class="lineno"> 4512</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div>
<div class="line"><a name="l04513"></a><span class="lineno"> 4513</span>  objv[0], <span class="stringliteral">" variable|visibility|window name\""</span>,</div>
<div class="line"><a name="l04514"></a><span class="lineno"> 4514</span>  (<span class="keywordtype">char</span> *) <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l04515"></a><span class="lineno"> 4515</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04516"></a><span class="lineno"> 4516</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l04517"></a><span class="lineno"> 4517</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04518"></a><span class="lineno"> 4518</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04519"></a><span class="lineno"> 4519</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l04520"></a><span class="lineno"> 4520</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04521"></a><span class="lineno"> 4521</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04522"></a><span class="lineno"> 4522</span>  }</div>
<div class="line"><a name="l04523"></a><span class="lineno"> 4523</span> </div>
<div class="line"><a name="l04524"></a><span class="lineno"> 4524</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04525"></a><span class="lineno"> 4525</span> <span class="preprocessor"></span> thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l04526"></a><span class="lineno"> 4526</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l04527"></a><span class="lineno"> 4527</span> </div>
<div class="line"><a name="l04528"></a><span class="lineno"> 4528</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l04529"></a><span class="lineno"> 4529</span> <span class="comment"> if (Tcl_GetIndexFromObj(interp, objv[1],</span></div>
<div class="line"><a name="l04530"></a><span class="lineno"> 4530</span> <span class="comment"> (CONST84 char **)optionStrings,</span></div>
<div class="line"><a name="l04531"></a><span class="lineno"> 4531</span> <span class="comment"> "option", 0, &index) != TCL_OK) {</span></div>
<div class="line"><a name="l04532"></a><span class="lineno"> 4532</span> <span class="comment"> return TCL_ERROR;</span></div>
<div class="line"><a name="l04533"></a><span class="lineno"> 4533</span> <span class="comment"> }</span></div>
<div class="line"><a name="l04534"></a><span class="lineno"> 4534</span> <span class="comment"> */</span></div>
<div class="line"><a name="l04535"></a><span class="lineno"> 4535</span>  ret = Tcl_GetIndexFromObj(interp, objv[1],</div>
<div class="line"><a name="l04536"></a><span class="lineno"> 4536</span>  (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> **)optionStrings,</div>
<div class="line"><a name="l04537"></a><span class="lineno"> 4537</span>  <span class="stringliteral">"option"</span>, 0, &index);</div>
<div class="line"><a name="l04538"></a><span class="lineno"> 4538</span> </div>
<div class="line"><a name="l04539"></a><span class="lineno"> 4539</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04540"></a><span class="lineno"> 4540</span> </div>
<div class="line"><a name="l04541"></a><span class="lineno"> 4541</span>  <span class="keywordflow">if</span> (ret != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l04542"></a><span class="lineno"> 4542</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04543"></a><span class="lineno"> 4543</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04544"></a><span class="lineno"> 4544</span>  }</div>
<div class="line"><a name="l04545"></a><span class="lineno"> 4545</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04546"></a><span class="lineno"> 4546</span> <span class="preprocessor"></span> {</div>
<div class="line"><a name="l04547"></a><span class="lineno"> 4547</span>  <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a0ae1919f736e3a087fbc9cd8dcba9da9">c</a> = objv[1][0];</div>
<div class="line"><a name="l04548"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae809d5359ac030c60a30a8f0b2294b82"> 4548</a></span>  <span class="keywordtype">size_t</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae809d5359ac030c60a30a8f0b2294b82">length</a> = <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(objv[1]);</div>
<div class="line"><a name="l04549"></a><span class="lineno"> 4549</span> </div>
<div class="line"><a name="l04550"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a4fa8953a459c33f8043bd4754bd972a5"> 4550</a></span>  <span class="keywordflow">if</span> ((c == <span class="charliteral">'v'</span>) && (strncmp(objv[1], <span class="stringliteral">"variable"</span>, length) == 0)</div>
<div class="line"><a name="l04551"></a><span class="lineno"> 4551</span>  && (length >= 2)) {</div>
<div class="line"><a name="l04552"></a><span class="lineno"> 4552</span>  index = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203da849e6bbd0a169700b2ae12d5d5bbd60a">TKWAIT_VARIABLE</a>;</div>
<div class="line"><a name="l04553"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a38cf3e3d1b40c0b375e2160f6475e897"> 4553</a></span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> ((c == <span class="charliteral">'v'</span>) && (strncmp(objv[1], <span class="stringliteral">"visibility"</span>, length) == 0)</div>
<div class="line"><a name="l04554"></a><span class="lineno"> 4554</span>  && (length >= 2)) {</div>
<div class="line"><a name="l04555"></a><span class="lineno"> 4555</span>  index = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203dae5beaef321f61572446bdd68a6b85600">TKWAIT_VISIBILITY</a>;</div>
<div class="line"><a name="l04556"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a39d0a664a0ab30eea09ff1d5d565fca7"> 4556</a></span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> ((c == <span class="charliteral">'w'</span>) && (strncmp(objv[1], <span class="stringliteral">"window"</span>, length) == 0)) {</div>
<div class="line"><a name="l04557"></a><span class="lineno"> 4557</span>  index = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203da73e34c56e478639434b8927497d73d97">TKWAIT_WINDOW</a>;</div>
<div class="line"><a name="l04558"></a><span class="lineno"> 4558</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l04559"></a><span class="lineno"> 4559</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"bad option \""</span>, objv[1],</div>
<div class="line"><a name="l04560"></a><span class="lineno"> 4560</span>  <span class="stringliteral">"\": must be variable, visibility, or window"</span>,</div>
<div class="line"><a name="l04561"></a><span class="lineno"> 4561</span>  (<span class="keywordtype">char</span> *) <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>);</div>
<div class="line"><a name="l04562"></a><span class="lineno"> 4562</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04563"></a><span class="lineno"> 4563</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04564"></a><span class="lineno"> 4564</span>  }</div>
<div class="line"><a name="l04565"></a><span class="lineno"> 4565</span>  }</div>
<div class="line"><a name="l04566"></a><span class="lineno"> 4566</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04567"></a><span class="lineno"> 4567</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l04568"></a><span class="lineno"> 4568</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l04569"></a><span class="lineno"> 4569</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l04570"></a><span class="lineno"> 4570</span> </div>
<div class="line"><a name="l04571"></a><span class="lineno"> 4571</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04572"></a><span class="lineno"> 4572</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(objv[2]);</div>
<div class="line"><a name="l04573"></a><span class="lineno"> 4573</span>  <span class="comment">/* nameString = Tcl_GetString(objv[2]); */</span></div>
<div class="line"><a name="l04574"></a><span class="lineno"> 4574</span>  nameString = Tcl_GetStringFromObj(objv[2], &dummy);</div>
<div class="line"><a name="l04575"></a><span class="lineno"> 4575</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04576"></a><span class="lineno"> 4576</span> <span class="preprocessor"></span> nameString = objv[2];</div>
<div class="line"><a name="l04577"></a><span class="lineno"> 4577</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04578"></a><span class="lineno"> 4578</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l04579"></a><span class="lineno"> 4579</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04580"></a><span class="lineno"> 4580</span> </div>
<div class="line"><a name="l04581"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac25982677055ac6a0584faf1e1f6a051"> 4581</a></span>  <span class="keywordflow">switch</span> ((<span class="keyword">enum</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203d">options</a>) index) {</div>
<div class="line"><a name="l04582"></a><span class="lineno"> 4582</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203da849e6bbd0a169700b2ae12d5d5bbd60a">TKWAIT_VARIABLE</a>:</div>
<div class="line"><a name="l04583"></a><span class="lineno"> 4583</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l04584"></a><span class="lineno"> 4584</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l04585"></a><span class="lineno"> 4585</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l04586"></a><span class="lineno"> 4586</span> <span class="comment"> if (Tcl_TraceVar(interp, nameString,</span></div>
<div class="line"><a name="l04587"></a><span class="lineno"> 4587</span> <span class="comment"> TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</span></div>
<div class="line"><a name="l04588"></a><span class="lineno"> 4588</span> <span class="comment"> WaitVariableProc, (ClientData) &done) != TCL_OK) {</span></div>
<div class="line"><a name="l04589"></a><span class="lineno"> 4589</span> <span class="comment"> return TCL_ERROR;</span></div>
<div class="line"><a name="l04590"></a><span class="lineno"> 4590</span> <span class="comment"> }</span></div>
<div class="line"><a name="l04591"></a><span class="lineno"> 4591</span> <span class="comment"> */</span></div>
<div class="line"><a name="l04592"></a><span class="lineno"> 4592</span>  ret = Tcl_TraceVar(interp, nameString,</div>
<div class="line"><a name="l04593"></a><span class="lineno"> 4593</span>  TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</div>
<div class="line"><a name="l04594"></a><span class="lineno"> 4594</span>  WaitVariableProc, (ClientData) &done);</div>
<div class="line"><a name="l04595"></a><span class="lineno"> 4595</span> </div>
<div class="line"><a name="l04596"></a><span class="lineno"> 4596</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04597"></a><span class="lineno"> 4597</span> </div>
<div class="line"><a name="l04598"></a><span class="lineno"> 4598</span>  <span class="keywordflow">if</span> (ret != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l04599"></a><span class="lineno"> 4599</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04600"></a><span class="lineno"> 4600</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div>
<div class="line"><a name="l04601"></a><span class="lineno"> 4601</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04602"></a><span class="lineno"> 4602</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04603"></a><span class="lineno"> 4603</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04604"></a><span class="lineno"> 4604</span>  }</div>
<div class="line"><a name="l04605"></a><span class="lineno"> 4605</span> </div>
<div class="line"><a name="l04606"></a><span class="lineno"> 4606</span>  done = 0;</div>
<div class="line"><a name="l04607"></a><span class="lineno"> 4607</span>  <span class="comment">/* lib_eventloop_core(check_rootwidget_flag, 0, &done); */</span></div>
<div class="line"><a name="l04608"></a><span class="lineno"> 4608</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a48ad410c8807d01926b70383e7dd0a9f">lib_eventloop_launcher</a>(check_rootwidget_flag, 0, &done, interp);</div>
<div class="line"><a name="l04609"></a><span class="lineno"> 4609</span> </div>
<div class="line"><a name="l04610"></a><span class="lineno"> 4610</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l04611"></a><span class="lineno"> 4611</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l04612"></a><span class="lineno"> 4612</span> </div>
<div class="line"><a name="l04613"></a><span class="lineno"> 4613</span>  Tcl_UntraceVar(interp, nameString,</div>
<div class="line"><a name="l04614"></a><span class="lineno"> 4614</span>  TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</div>
<div class="line"><a name="l04615"></a><span class="lineno"> 4615</span>  WaitVariableProc, (ClientData) &done);</div>
<div class="line"><a name="l04616"></a><span class="lineno"> 4616</span> </div>
<div class="line"><a name="l04617"></a><span class="lineno"> 4617</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04618"></a><span class="lineno"> 4618</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div>
<div class="line"><a name="l04619"></a><span class="lineno"> 4619</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04620"></a><span class="lineno"> 4620</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l04621"></a><span class="lineno"> 4621</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04622"></a><span class="lineno"> 4622</span> </div>
<div class="line"><a name="l04623"></a><span class="lineno"> 4623</span>  <span class="comment">/* exception check */</span></div>
<div class="line"><a name="l04624"></a><span class="lineno"> 4624</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>)) {</div>
<div class="line"><a name="l04625"></a><span class="lineno"> 4625</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04626"></a><span class="lineno"> 4626</span> </div>
<div class="line"><a name="l04627"></a><span class="lineno"> 4627</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l04628"></a><span class="lineno"> 4628</span> <span class="comment"> if (rb_obj_is_kind_of(rbtk_pending_exception, rb_eSystemExit)) {</span></div>
<div class="line"><a name="l04629"></a><span class="lineno"> 4629</span> <span class="comment"> */</span></div>
<div class="line"><a name="l04630"></a><span class="lineno"> 4630</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a34c7841e8f21712bc79d7bd6f64483b3">rb_eSystemExit</a>)</div>
<div class="line"><a name="l04631"></a><span class="lineno"> 4631</span>  || <a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a8378eac5be044398a53aca753116817b">rb_eInterrupt</a>)) {</div>
<div class="line"><a name="l04632"></a><span class="lineno"> 4632</span>  <span class="keywordflow">return</span> TCL_RETURN;</div>
<div class="line"><a name="l04633"></a><span class="lineno"> 4633</span>  } <span class="keywordflow">else</span>{</div>
<div class="line"><a name="l04634"></a><span class="lineno"> 4634</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04635"></a><span class="lineno"> 4635</span>  }</div>
<div class="line"><a name="l04636"></a><span class="lineno"> 4636</span>  }</div>
<div class="line"><a name="l04637"></a><span class="lineno"> 4637</span> </div>
<div class="line"><a name="l04638"></a><span class="lineno"> 4638</span>  <span class="comment">/* trap check */</span></div>
<div class="line"><a name="l04639"></a><span class="lineno"> 4639</span> <span class="preprocessor">#ifdef RUBY_VM</span></div>
<div class="line"><a name="l04640"></a><span class="lineno"> 4640</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../d3/de7/thread_8c.html#a024fc07d1560d6a94da3bcc268c9bbd8">rb_thread_check_trap_pending</a>()) {</div>
<div class="line"><a name="l04641"></a><span class="lineno"> 4641</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l04642"></a><span class="lineno"> 4642</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (rb_trap_pending) {</div>
<div class="line"><a name="l04643"></a><span class="lineno"> 4643</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04644"></a><span class="lineno"> 4644</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04645"></a><span class="lineno"> 4645</span> </div>
<div class="line"><a name="l04646"></a><span class="lineno"> 4646</span>  <span class="keywordflow">return</span> TCL_RETURN;</div>
<div class="line"><a name="l04647"></a><span class="lineno"> 4647</span>  }</div>
<div class="line"><a name="l04648"></a><span class="lineno"> 4648</span> </div>
<div class="line"><a name="l04649"></a><span class="lineno"> 4649</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l04650"></a><span class="lineno"> 4650</span> </div>
<div class="line"><a name="l04651"></a><span class="lineno"> 4651</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203dae5beaef321f61572446bdd68a6b85600">TKWAIT_VISIBILITY</a>:</div>
<div class="line"><a name="l04652"></a><span class="lineno"> 4652</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l04653"></a><span class="lineno"> 4653</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l04654"></a><span class="lineno"> 4654</span> </div>
<div class="line"><a name="l04655"></a><span class="lineno"> 4655</span>  <span class="comment">/* This function works on the Tk eventloop thread only. */</span></div>
<div class="line"><a name="l04656"></a><span class="lineno"> 4656</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>() || Tk_MainWindow(interp) == (Tk_Window)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l04657"></a><span class="lineno"> 4657</span>  window = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l04658"></a><span class="lineno"> 4658</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l04659"></a><span class="lineno"> 4659</span>  window = Tk_NameToWindow(interp, nameString, tkwin);</div>
<div class="line"><a name="l04660"></a><span class="lineno"> 4660</span>  }</div>
<div class="line"><a name="l04661"></a><span class="lineno"> 4661</span> </div>
<div class="line"><a name="l04662"></a><span class="lineno"> 4662</span>  <span class="keywordflow">if</span> (window == NULL) {</div>
<div class="line"><a name="l04663"></a><span class="lineno"> 4663</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">": tkwait: "</span>,</div>
<div class="line"><a name="l04664"></a><span class="lineno"> 4664</span>  <span class="stringliteral">"no main-window (not Tk application?)"</span>,</div>
<div class="line"><a name="l04665"></a><span class="lineno"> 4665</span>  (<span class="keywordtype">char</span>*)NULL);</div>
<div class="line"><a name="l04666"></a><span class="lineno"> 4666</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04667"></a><span class="lineno"> 4667</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04668"></a><span class="lineno"> 4668</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div>
<div class="line"><a name="l04669"></a><span class="lineno"> 4669</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04670"></a><span class="lineno"> 4670</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04671"></a><span class="lineno"> 4671</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04672"></a><span class="lineno"> 4672</span>  }</div>
<div class="line"><a name="l04673"></a><span class="lineno"> 4673</span> </div>
<div class="line"><a name="l04674"></a><span class="lineno"> 4674</span>  Tk_CreateEventHandler(window,</div>
<div class="line"><a name="l04675"></a><span class="lineno"> 4675</span>  VisibilityChangeMask|StructureNotifyMask,</div>
<div class="line"><a name="l04676"></a><span class="lineno"> 4676</span>  WaitVisibilityProc, (ClientData) &done);</div>
<div class="line"><a name="l04677"></a><span class="lineno"> 4677</span> </div>
<div class="line"><a name="l04678"></a><span class="lineno"> 4678</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04679"></a><span class="lineno"> 4679</span> </div>
<div class="line"><a name="l04680"></a><span class="lineno"> 4680</span>  done = 0;</div>
<div class="line"><a name="l04681"></a><span class="lineno"> 4681</span>  <span class="comment">/* lib_eventloop_core(check_rootwidget_flag, 0, &done); */</span></div>
<div class="line"><a name="l04682"></a><span class="lineno"> 4682</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a48ad410c8807d01926b70383e7dd0a9f">lib_eventloop_launcher</a>(check_rootwidget_flag, 0, &done, interp);</div>
<div class="line"><a name="l04683"></a><span class="lineno"> 4683</span> </div>
<div class="line"><a name="l04684"></a><span class="lineno"> 4684</span>  <span class="comment">/* exception check */</span></div>
<div class="line"><a name="l04685"></a><span class="lineno"> 4685</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>)) {</div>
<div class="line"><a name="l04686"></a><span class="lineno"> 4686</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04687"></a><span class="lineno"> 4687</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div>
<div class="line"><a name="l04688"></a><span class="lineno"> 4688</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04689"></a><span class="lineno"> 4689</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04690"></a><span class="lineno"> 4690</span> </div>
<div class="line"><a name="l04691"></a><span class="lineno"> 4691</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l04692"></a><span class="lineno"> 4692</span> <span class="comment"> if (rb_obj_is_kind_of(rbtk_pending_exception, rb_eSystemExit)) {</span></div>
<div class="line"><a name="l04693"></a><span class="lineno"> 4693</span> <span class="comment"> */</span></div>
<div class="line"><a name="l04694"></a><span class="lineno"> 4694</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a34c7841e8f21712bc79d7bd6f64483b3">rb_eSystemExit</a>)</div>
<div class="line"><a name="l04695"></a><span class="lineno"> 4695</span>  || <a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a8378eac5be044398a53aca753116817b">rb_eInterrupt</a>)) {</div>
<div class="line"><a name="l04696"></a><span class="lineno"> 4696</span>  <span class="keywordflow">return</span> TCL_RETURN;</div>
<div class="line"><a name="l04697"></a><span class="lineno"> 4697</span>  } <span class="keywordflow">else</span>{</div>
<div class="line"><a name="l04698"></a><span class="lineno"> 4698</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04699"></a><span class="lineno"> 4699</span>  }</div>
<div class="line"><a name="l04700"></a><span class="lineno"> 4700</span>  }</div>
<div class="line"><a name="l04701"></a><span class="lineno"> 4701</span> </div>
<div class="line"><a name="l04702"></a><span class="lineno"> 4702</span>  <span class="comment">/* trap check */</span></div>
<div class="line"><a name="l04703"></a><span class="lineno"> 4703</span> <span class="preprocessor">#ifdef RUBY_VM</span></div>
<div class="line"><a name="l04704"></a><span class="lineno"> 4704</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../d3/de7/thread_8c.html#a024fc07d1560d6a94da3bcc268c9bbd8">rb_thread_check_trap_pending</a>()) {</div>
<div class="line"><a name="l04705"></a><span class="lineno"> 4705</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l04706"></a><span class="lineno"> 4706</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (rb_trap_pending) {</div>
<div class="line"><a name="l04707"></a><span class="lineno"> 4707</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04708"></a><span class="lineno"> 4708</span> <span class="preprocessor"></span><span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04709"></a><span class="lineno"> 4709</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div>
<div class="line"><a name="l04710"></a><span class="lineno"> 4710</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04711"></a><span class="lineno"> 4711</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04712"></a><span class="lineno"> 4712</span> </div>
<div class="line"><a name="l04713"></a><span class="lineno"> 4713</span>  <span class="keywordflow">return</span> TCL_RETURN;</div>
<div class="line"><a name="l04714"></a><span class="lineno"> 4714</span>  }</div>
<div class="line"><a name="l04715"></a><span class="lineno"> 4715</span> </div>
<div class="line"><a name="l04716"></a><span class="lineno"> 4716</span>  <span class="keywordflow">if</span> (done != 1) {</div>
<div class="line"><a name="l04717"></a><span class="lineno"> 4717</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l04718"></a><span class="lineno"> 4718</span> <span class="comment"> * Note that we do not delete the event handler because it</span></div>
<div class="line"><a name="l04719"></a><span class="lineno"> 4719</span> <span class="comment"> * was deleted automatically when the window was destroyed.</span></div>
<div class="line"><a name="l04720"></a><span class="lineno"> 4720</span> <span class="comment"> */</span></div>
<div class="line"><a name="l04721"></a><span class="lineno"> 4721</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l04722"></a><span class="lineno"> 4722</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l04723"></a><span class="lineno"> 4723</span> </div>
<div class="line"><a name="l04724"></a><span class="lineno"> 4724</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l04725"></a><span class="lineno"> 4725</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"window \""</span>, nameString,</div>
<div class="line"><a name="l04726"></a><span class="lineno"> 4726</span>  <span class="stringliteral">"\" was deleted before its visibility changed"</span>,</div>
<div class="line"><a name="l04727"></a><span class="lineno"> 4727</span>  (<span class="keywordtype">char</span> *) NULL);</div>
<div class="line"><a name="l04728"></a><span class="lineno"> 4728</span> </div>
<div class="line"><a name="l04729"></a><span class="lineno"> 4729</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04730"></a><span class="lineno"> 4730</span> </div>
<div class="line"><a name="l04731"></a><span class="lineno"> 4731</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04732"></a><span class="lineno"> 4732</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div>
<div class="line"><a name="l04733"></a><span class="lineno"> 4733</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04734"></a><span class="lineno"> 4734</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04735"></a><span class="lineno"> 4735</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04736"></a><span class="lineno"> 4736</span>  }</div>
<div class="line"><a name="l04737"></a><span class="lineno"> 4737</span> </div>
<div class="line"><a name="l04738"></a><span class="lineno"> 4738</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l04739"></a><span class="lineno"> 4739</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l04740"></a><span class="lineno"> 4740</span> </div>
<div class="line"><a name="l04741"></a><span class="lineno"> 4741</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04742"></a><span class="lineno"> 4742</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div>
<div class="line"><a name="l04743"></a><span class="lineno"> 4743</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04744"></a><span class="lineno"> 4744</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l04745"></a><span class="lineno"> 4745</span>  Tk_DeleteEventHandler(window,</div>
<div class="line"><a name="l04746"></a><span class="lineno"> 4746</span>  VisibilityChangeMask|StructureNotifyMask,</div>
<div class="line"><a name="l04747"></a><span class="lineno"> 4747</span>  WaitVisibilityProc, (ClientData) &done);</div>
<div class="line"><a name="l04748"></a><span class="lineno"> 4748</span> </div>
<div class="line"><a name="l04749"></a><span class="lineno"> 4749</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04750"></a><span class="lineno"> 4750</span> </div>
<div class="line"><a name="l04751"></a><span class="lineno"> 4751</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l04752"></a><span class="lineno"> 4752</span> </div>
<div class="line"><a name="l04753"></a><span class="lineno"> 4753</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203da73e34c56e478639434b8927497d73d97">TKWAIT_WINDOW</a>:</div>
<div class="line"><a name="l04754"></a><span class="lineno"> 4754</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l04755"></a><span class="lineno"> 4755</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l04756"></a><span class="lineno"> 4756</span> </div>
<div class="line"><a name="l04757"></a><span class="lineno"> 4757</span>  <span class="comment">/* This function works on the Tk eventloop thread only. */</span></div>
<div class="line"><a name="l04758"></a><span class="lineno"> 4758</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>() || Tk_MainWindow(interp) == (Tk_Window)NULL) {</div>
<div class="line"><a name="l04759"></a><span class="lineno"> 4759</span>  window = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l04760"></a><span class="lineno"> 4760</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l04761"></a><span class="lineno"> 4761</span>  window = Tk_NameToWindow(interp, nameString, tkwin);</div>
<div class="line"><a name="l04762"></a><span class="lineno"> 4762</span>  }</div>
<div class="line"><a name="l04763"></a><span class="lineno"> 4763</span> </div>
<div class="line"><a name="l04764"></a><span class="lineno"> 4764</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04765"></a><span class="lineno"> 4765</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div>
<div class="line"><a name="l04766"></a><span class="lineno"> 4766</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04767"></a><span class="lineno"> 4767</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l04768"></a><span class="lineno"> 4768</span>  <span class="keywordflow">if</span> (window == NULL) {</div>
<div class="line"><a name="l04769"></a><span class="lineno"> 4769</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">": tkwait: "</span>,</div>
<div class="line"><a name="l04770"></a><span class="lineno"> 4770</span>  <span class="stringliteral">"no main-window (not Tk application?)"</span>,</div>
<div class="line"><a name="l04771"></a><span class="lineno"> 4771</span>  (<span class="keywordtype">char</span>*)NULL);</div>
<div class="line"><a name="l04772"></a><span class="lineno"> 4772</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04773"></a><span class="lineno"> 4773</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04774"></a><span class="lineno"> 4774</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04775"></a><span class="lineno"> 4775</span>  }</div>
<div class="line"><a name="l04776"></a><span class="lineno"> 4776</span> </div>
<div class="line"><a name="l04777"></a><span class="lineno"> 4777</span>  Tk_CreateEventHandler(window, StructureNotifyMask,</div>
<div class="line"><a name="l04778"></a><span class="lineno"> 4778</span>  WaitWindowProc, (ClientData) &done);</div>
<div class="line"><a name="l04779"></a><span class="lineno"> 4779</span> </div>
<div class="line"><a name="l04780"></a><span class="lineno"> 4780</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04781"></a><span class="lineno"> 4781</span> </div>
<div class="line"><a name="l04782"></a><span class="lineno"> 4782</span>  done = 0;</div>
<div class="line"><a name="l04783"></a><span class="lineno"> 4783</span>  <span class="comment">/* lib_eventloop_core(check_rootwidget_flag, 0, &done); */</span></div>
<div class="line"><a name="l04784"></a><span class="lineno"> 4784</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a48ad410c8807d01926b70383e7dd0a9f">lib_eventloop_launcher</a>(check_rootwidget_flag, 0, &done, interp);</div>
<div class="line"><a name="l04785"></a><span class="lineno"> 4785</span> </div>
<div class="line"><a name="l04786"></a><span class="lineno"> 4786</span>  <span class="comment">/* exception check */</span></div>
<div class="line"><a name="l04787"></a><span class="lineno"> 4787</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>)) {</div>
<div class="line"><a name="l04788"></a><span class="lineno"> 4788</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04789"></a><span class="lineno"> 4789</span> </div>
<div class="line"><a name="l04790"></a><span class="lineno"> 4790</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l04791"></a><span class="lineno"> 4791</span> <span class="comment"> if (rb_obj_is_kind_of(rbtk_pending_exception, rb_eSystemExit)) {</span></div>
<div class="line"><a name="l04792"></a><span class="lineno"> 4792</span> <span class="comment"> */</span></div>
<div class="line"><a name="l04793"></a><span class="lineno"> 4793</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a34c7841e8f21712bc79d7bd6f64483b3">rb_eSystemExit</a>)</div>
<div class="line"><a name="l04794"></a><span class="lineno"> 4794</span>  || <a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a8378eac5be044398a53aca753116817b">rb_eInterrupt</a>)) {</div>
<div class="line"><a name="l04795"></a><span class="lineno"> 4795</span>  <span class="keywordflow">return</span> TCL_RETURN;</div>
<div class="line"><a name="l04796"></a><span class="lineno"> 4796</span>  } <span class="keywordflow">else</span>{</div>
<div class="line"><a name="l04797"></a><span class="lineno"> 4797</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04798"></a><span class="lineno"> 4798</span>  }</div>
<div class="line"><a name="l04799"></a><span class="lineno"> 4799</span>  }</div>
<div class="line"><a name="l04800"></a><span class="lineno"> 4800</span> </div>
<div class="line"><a name="l04801"></a><span class="lineno"> 4801</span>  <span class="comment">/* trap check */</span></div>
<div class="line"><a name="l04802"></a><span class="lineno"> 4802</span> <span class="preprocessor">#ifdef RUBY_VM</span></div>
<div class="line"><a name="l04803"></a><span class="lineno"> 4803</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../d3/de7/thread_8c.html#a024fc07d1560d6a94da3bcc268c9bbd8">rb_thread_check_trap_pending</a>()) {</div>
<div class="line"><a name="l04804"></a><span class="lineno"> 4804</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l04805"></a><span class="lineno"> 4805</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (rb_trap_pending) {</div>
<div class="line"><a name="l04806"></a><span class="lineno"> 4806</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04807"></a><span class="lineno"> 4807</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04808"></a><span class="lineno"> 4808</span> </div>
<div class="line"><a name="l04809"></a><span class="lineno"> 4809</span>  <span class="keywordflow">return</span> TCL_RETURN;</div>
<div class="line"><a name="l04810"></a><span class="lineno"> 4810</span>  }</div>
<div class="line"><a name="l04811"></a><span class="lineno"> 4811</span> </div>
<div class="line"><a name="l04812"></a><span class="lineno"> 4812</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l04813"></a><span class="lineno"> 4813</span> <span class="comment"> * Note: there's no need to delete the event handler. It was</span></div>
<div class="line"><a name="l04814"></a><span class="lineno"> 4814</span> <span class="comment"> * deleted automatically when the window was destroyed.</span></div>
<div class="line"><a name="l04815"></a><span class="lineno"> 4815</span> <span class="comment"> */</span></div>
<div class="line"><a name="l04816"></a><span class="lineno"> 4816</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l04817"></a><span class="lineno"> 4817</span>  }</div>
<div class="line"><a name="l04818"></a><span class="lineno"> 4818</span> </div>
<div class="line"><a name="l04819"></a><span class="lineno"> 4819</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l04820"></a><span class="lineno"> 4820</span> <span class="comment"> * Clear out the interpreter's result, since it may have been set</span></div>
<div class="line"><a name="l04821"></a><span class="lineno"> 4821</span> <span class="comment"> * by event handlers.</span></div>
<div class="line"><a name="l04822"></a><span class="lineno"> 4822</span> <span class="comment"> */</span></div>
<div class="line"><a name="l04823"></a><span class="lineno"> 4823</span> </div>
<div class="line"><a name="l04824"></a><span class="lineno"> 4824</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l04825"></a><span class="lineno"> 4825</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04826"></a><span class="lineno"> 4826</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>;</div>
<div class="line"><a name="l04827"></a><span class="lineno"> 4827</span> }</div>
<div class="line"><a name="l04828"></a><span class="lineno"> 4828</span> </div>
<div class="line"><a name="l04829"></a><span class="lineno"> 4829</span> <span class="comment">/****************************/</span></div>
<div class="line"><a name="l04830"></a><span class="lineno"> 4830</span> <span class="comment">/* vwait/tkwait with thread */</span></div>
<div class="line"><a name="l04831"></a><span class="lineno"> 4831</span> <span class="comment">/****************************/</span></div>
<div class="line"><a name="l04832"></a><span class="lineno"><a class="line" href="../../dd/dca/structth__vwait__param.html"> 4832</a></span> <span class="keyword">struct </span><a class="code" href="../../dd/dca/structth__vwait__param.html">th_vwait_param</a> {</div>
<div class="line"><a name="l04833"></a><span class="lineno"><a class="line" href="../../dd/dca/structth__vwait__param.html#abfac73593f1d6ac7a80953799ec9a91c"> 4833</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../dd/dca/structth__vwait__param.html#abfac73593f1d6ac7a80953799ec9a91c">thread</a>;</div>
<div class="line"><a name="l04834"></a><span class="lineno"><a class="line" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3"> 4834</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a>;</div>
<div class="line"><a name="l04835"></a><span class="lineno"> 4835</span> };</div>
<div class="line"><a name="l04836"></a><span class="lineno"> 4836</span> </div>
<div class="line"><a name="l04837"></a><span class="lineno"> 4837</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04838"></a><span class="lineno"> 4838</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">char</span> *rb_threadVwaitProc <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *,</div>
<div class="line"><a name="l04839"></a><span class="lineno"> 4839</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> *,<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> *, <span class="keywordtype">int</span>));</div>
<div class="line"><a name="l04840"></a><span class="lineno"> 4840</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *</div>
<div class="line"><a name="l04841"></a><span class="lineno"> 4841</span> rb_threadVwaitProc(clientData, interp, name1, name2, flags)</div>
<div class="line"><a name="l04842"></a><span class="lineno"> 4842</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div>
<div class="line"><a name="l04843"></a><span class="lineno"> 4843</span>  Tcl_Interp *interp; <span class="comment">/* Interpreter containing variable. */</span></div>
<div class="line"><a name="l04844"></a><span class="lineno"> 4844</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> *name1; <span class="comment">/* Name of variable. */</span></div>
<div class="line"><a name="l04845"></a><span class="lineno"> 4845</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> *name2; <span class="comment">/* Second part of variable name. */</span></div>
<div class="line"><a name="l04846"></a><span class="lineno"> 4846</span>  <span class="keywordtype">int</span> flags; <span class="comment">/* Information about what happened. */</span></div>
<div class="line"><a name="l04847"></a><span class="lineno"> 4847</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04848"></a><span class="lineno"> 4848</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">char</span> *rb_threadVwaitProc <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *,</div>
<div class="line"><a name="l04849"></a><span class="lineno"> 4849</span>  <span class="keywordtype">char</span> *, <span class="keywordtype">char</span> *, <span class="keywordtype">int</span>));</div>
<div class="line"><a name="l04850"></a><span class="lineno"> 4850</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *</div>
<div class="line"><a name="l04851"></a><span class="lineno"> 4851</span> rb_threadVwaitProc(clientData, interp, name1, name2, flags)</div>
<div class="line"><a name="l04852"></a><span class="lineno"> 4852</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div>
<div class="line"><a name="l04853"></a><span class="lineno"> 4853</span>  Tcl_Interp *interp; <span class="comment">/* Interpreter containing variable. */</span></div>
<div class="line"><a name="l04854"></a><span class="lineno"> 4854</span>  <span class="keywordtype">char</span> *name1; <span class="comment">/* Name of variable. */</span></div>
<div class="line"><a name="l04855"></a><span class="lineno"> 4855</span>  <span class="keywordtype">char</span> *name2; <span class="comment">/* Second part of variable name. */</span></div>
<div class="line"><a name="l04856"></a><span class="lineno"> 4856</span>  <span class="keywordtype">int</span> flags; <span class="comment">/* Information about what happened. */</span></div>
<div class="line"><a name="l04857"></a><span class="lineno"> 4857</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04858"></a><span class="lineno"> 4858</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l04859"></a><span class="lineno"> 4859</span>  <span class="keyword">struct </span><a class="code" href="../../dd/dca/structth__vwait__param.html">th_vwait_param</a> *param = (<span class="keyword">struct </span><a class="code" href="../../dd/dca/structth__vwait__param.html">th_vwait_param</a> *) clientData;</div>
<div class="line"><a name="l04860"></a><span class="lineno"> 4860</span> </div>
<div class="line"><a name="l04861"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0f420a91d455f76246d1aa7fd038b460"> 4861</a></span>  <span class="keywordflow">if</span> (flags & (TCL_INTERP_DESTROYED | TCL_TRACE_DESTROYED)) {</div>
<div class="line"><a name="l04862"></a><span class="lineno"> 4862</span>  param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> = -1;</div>
<div class="line"><a name="l04863"></a><span class="lineno"> 4863</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l04864"></a><span class="lineno"> 4864</span>  param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> = 1;</div>
<div class="line"><a name="l04865"></a><span class="lineno"> 4865</span>  }</div>
<div class="line"><a name="l04866"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ab1dd1aa1b69d8847774d576ecea79493"> 4866</a></span>  <span class="keywordflow">if</span> (param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> != 0) <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1c6c386b417e79a679ef583c543e411f">rb_thread_wakeup</a>(param-><a class="code" href="../../dd/dca/structth__vwait__param.html#abfac73593f1d6ac7a80953799ec9a91c">thread</a>);</div>
<div class="line"><a name="l04867"></a><span class="lineno"> 4867</span> </div>
<div class="line"><a name="l04868"></a><span class="lineno"> 4868</span>  <span class="keywordflow">return</span> (<span class="keywordtype">char</span> *)<a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l04869"></a><span class="lineno"> 4869</span> }</div>
<div class="line"><a name="l04870"></a><span class="lineno"> 4870</span> </div>
<div class="line"><a name="l04871"></a><span class="lineno"> 4871</span> <span class="preprocessor">#define TKWAIT_MODE_VISIBILITY 1</span></div>
<div class="line"><a name="l04872"></a><span class="lineno"> 4872</span> <span class="preprocessor"></span><span class="preprocessor">#define TKWAIT_MODE_DESTROY 2</span></div>
<div class="line"><a name="l04873"></a><span class="lineno"> 4873</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l04874"></a><span class="lineno"> 4874</span> <span class="keyword">static</span> <span class="keywordtype">void</span> rb_threadWaitVisibilityProc <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, XEvent *));</div>
<div class="line"><a name="l04875"></a><span class="lineno"> 4875</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l04876"></a><span class="lineno"> 4876</span> rb_threadWaitVisibilityProc(clientData, eventPtr)</div>
<div class="line"><a name="l04877"></a><span class="lineno"> 4877</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div>
<div class="line"><a name="l04878"></a><span class="lineno"> 4878</span>  XEvent *eventPtr; <span class="comment">/* Information about event (not used). */</span></div>
<div class="line"><a name="l04879"></a><span class="lineno"> 4879</span> {</div>
<div class="line"><a name="l04880"></a><span class="lineno"> 4880</span>  <span class="keyword">struct </span><a class="code" href="../../dd/dca/structth__vwait__param.html">th_vwait_param</a> *param = (<span class="keyword">struct </span><a class="code" href="../../dd/dca/structth__vwait__param.html">th_vwait_param</a> *) clientData;</div>
<div class="line"><a name="l04881"></a><span class="lineno"> 4881</span> </div>
<div class="line"><a name="l04882"></a><span class="lineno"> 4882</span>  <span class="keywordflow">if</span> (eventPtr->type == VisibilityNotify) {</div>
<div class="line"><a name="l04883"></a><span class="lineno"> 4883</span>  param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac904beb2aab947ee7a16ad741ae38ef1">TKWAIT_MODE_VISIBILITY</a>;</div>
<div class="line"><a name="l04884"></a><span class="lineno"> 4884</span>  }</div>
<div class="line"><a name="l04885"></a><span class="lineno"> 4885</span>  <span class="keywordflow">if</span> (eventPtr->type == DestroyNotify) {</div>
<div class="line"><a name="l04886"></a><span class="lineno"> 4886</span>  param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#add9a7c9b57ebc6b1e1a25640d8e17e29">TKWAIT_MODE_DESTROY</a>;</div>
<div class="line"><a name="l04887"></a><span class="lineno"> 4887</span>  }</div>
<div class="line"><a name="l04888"></a><span class="lineno"> 4888</span>  <span class="keywordflow">if</span> (param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> != 0) <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1c6c386b417e79a679ef583c543e411f">rb_thread_wakeup</a>(param-><a class="code" href="../../dd/dca/structth__vwait__param.html#abfac73593f1d6ac7a80953799ec9a91c">thread</a>);</div>
<div class="line"><a name="l04889"></a><span class="lineno"> 4889</span> }</div>
<div class="line"><a name="l04890"></a><span class="lineno"> 4890</span> </div>
<div class="line"><a name="l04891"></a><span class="lineno"> 4891</span> <span class="keyword">static</span> <span class="keywordtype">void</span> rb_threadWaitWindowProc <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, XEvent *));</div>
<div class="line"><a name="l04892"></a><span class="lineno"> 4892</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l04893"></a><span class="lineno"> 4893</span> rb_threadWaitWindowProc(clientData, eventPtr)</div>
<div class="line"><a name="l04894"></a><span class="lineno"> 4894</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div>
<div class="line"><a name="l04895"></a><span class="lineno"> 4895</span>  XEvent *eventPtr; <span class="comment">/* Information about event. */</span></div>
<div class="line"><a name="l04896"></a><span class="lineno"> 4896</span> {</div>
<div class="line"><a name="l04897"></a><span class="lineno"> 4897</span>  <span class="keyword">struct </span><a class="code" href="../../dd/dca/structth__vwait__param.html">th_vwait_param</a> *param = (<span class="keyword">struct </span><a class="code" href="../../dd/dca/structth__vwait__param.html">th_vwait_param</a> *) clientData;</div>
<div class="line"><a name="l04898"></a><span class="lineno"> 4898</span> </div>
<div class="line"><a name="l04899"></a><span class="lineno"> 4899</span>  <span class="keywordflow">if</span> (eventPtr->type == DestroyNotify) {</div>
<div class="line"><a name="l04900"></a><span class="lineno"> 4900</span>  param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#add9a7c9b57ebc6b1e1a25640d8e17e29">TKWAIT_MODE_DESTROY</a>;</div>
<div class="line"><a name="l04901"></a><span class="lineno"> 4901</span>  }</div>
<div class="line"><a name="l04902"></a><span class="lineno"> 4902</span>  <span class="keywordflow">if</span> (param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> != 0) <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1c6c386b417e79a679ef583c543e411f">rb_thread_wakeup</a>(param-><a class="code" href="../../dd/dca/structth__vwait__param.html#abfac73593f1d6ac7a80953799ec9a91c">thread</a>);</div>
<div class="line"><a name="l04903"></a><span class="lineno"> 4903</span> }</div>
<div class="line"><a name="l04904"></a><span class="lineno"> 4904</span> </div>
<div class="line"><a name="l04905"></a><span class="lineno"> 4905</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04906"></a><span class="lineno"> 4906</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l04907"></a><span class="lineno"> 4907</span> ip_rb_threadVwaitObjCmd(clientData, interp, objc, objv)</div>
<div class="line"><a name="l04908"></a><span class="lineno"> 4908</span>  ClientData clientData;</div>
<div class="line"><a name="l04909"></a><span class="lineno"> 4909</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l04910"></a><span class="lineno"> 4910</span>  <span class="keywordtype">int</span> objc;</div>
<div class="line"><a name="l04911"></a><span class="lineno"> 4911</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> objv[];</div>
<div class="line"><a name="l04912"></a><span class="lineno"> 4912</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04913"></a><span class="lineno"> 4913</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l04914"></a><span class="lineno"> 4914</span> ip_rb_threadVwaitCommand(clientData, interp, objc, objv)</div>
<div class="line"><a name="l04915"></a><span class="lineno"> 4915</span>  ClientData clientData; <span class="comment">/* Not used */</span></div>
<div class="line"><a name="l04916"></a><span class="lineno"> 4916</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l04917"></a><span class="lineno"> 4917</span>  <span class="keywordtype">int</span> objc;</div>
<div class="line"><a name="l04918"></a><span class="lineno"> 4918</span>  <span class="keywordtype">char</span> *objv[];</div>
<div class="line"><a name="l04919"></a><span class="lineno"> 4919</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04920"></a><span class="lineno"> 4920</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l04921"></a><span class="lineno"> 4921</span>  <span class="keyword">struct </span><a class="code" href="../../dd/dca/structth__vwait__param.html">th_vwait_param</a> *<a class="code" href="../../d3/d09/ripper_8y.html#a7a845cc4b98215f5cf028bd914d245d3">param</a>;</div>
<div class="line"><a name="l04922"></a><span class="lineno"> 4922</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a3ddcdc7bfb3b1d74b8f23dacda0e86a3">nameString</a>;</div>
<div class="line"><a name="l04923"></a><span class="lineno"> 4923</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7c1d654b7b6114d7a0abc8d351dd1bcd">dummy</a>;</div>
<div class="line"><a name="l04924"></a><span class="lineno"> 4924</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04925"></a><span class="lineno"> 4925</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> current_thread = <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>();</div>
<div class="line"><a name="l04926"></a><span class="lineno"> 4926</span>  <span class="keyword">struct </span><a class="code" href="../../d1/d1b/structtimeval.html">timeval</a> t;</div>
<div class="line"><a name="l04927"></a><span class="lineno"> 4927</span> </div>
<div class="line"><a name="l04928"></a><span class="lineno"> 4928</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Ruby's 'thread_vwait' is called"</span>);</div>
<div class="line"><a name="l04929"></a><span class="lineno"> 4929</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)NULL) {</div>
<div class="line"><a name="l04930"></a><span class="lineno"> 4930</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l04931"></a><span class="lineno"> 4931</span>  <span class="stringliteral">"IP is deleted"</span>);</div>
<div class="line"><a name="l04932"></a><span class="lineno"> 4932</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04933"></a><span class="lineno"> 4933</span>  }</div>
<div class="line"><a name="l04934"></a><span class="lineno"> 4934</span> </div>
<div class="line"><a name="l04935"></a><span class="lineno"> 4935</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#ac86131edba4a5a668958ce58b661d7ee">rb_thread_alone</a>() || eventloop_thread == current_thread) {</div>
<div class="line"><a name="l04936"></a><span class="lineno"> 4936</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04937"></a><span class="lineno"> 4937</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call ip_rbVwaitObjCmd"</span>);</div>
<div class="line"><a name="l04938"></a><span class="lineno"> 4938</span>  <span class="keywordflow">return</span> ip_rbVwaitObjCmd(clientData, interp, objc, objv);</div>
<div class="line"><a name="l04939"></a><span class="lineno"> 4939</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04940"></a><span class="lineno"> 4940</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call ip_rbVwaitCommand"</span>);</div>
<div class="line"><a name="l04941"></a><span class="lineno"> 4941</span>  <span class="keywordflow">return</span> ip_rbVwaitCommand(clientData, interp, objc, objv);</div>
<div class="line"><a name="l04942"></a><span class="lineno"> 4942</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04943"></a><span class="lineno"> 4943</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l04944"></a><span class="lineno"> 4944</span> </div>
<div class="line"><a name="l04945"></a><span class="lineno"> 4945</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>(interp);</div>
<div class="line"><a name="l04946"></a><span class="lineno"> 4946</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l04947"></a><span class="lineno"> 4947</span> </div>
<div class="line"><a name="l04948"></a><span class="lineno"> 4948</span>  <span class="keywordflow">if</span> (objc != 2) {</div>
<div class="line"><a name="l04949"></a><span class="lineno"> 4949</span> <span class="preprocessor">#ifdef Tcl_WrongNumArgs</span></div>
<div class="line"><a name="l04950"></a><span class="lineno"> 4950</span> <span class="preprocessor"></span> Tcl_WrongNumArgs(interp, 1, objv, <span class="stringliteral">"name"</span>);</div>
<div class="line"><a name="l04951"></a><span class="lineno"> 4951</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l04952"></a><span class="lineno"> 4952</span> <span class="preprocessor"></span> thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l04953"></a><span class="lineno"> 4953</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l04954"></a><span class="lineno"> 4954</span> </div>
<div class="line"><a name="l04955"></a><span class="lineno"> 4955</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04956"></a><span class="lineno"> 4956</span> <span class="preprocessor"></span> <span class="comment">/* nameString = Tcl_GetString(objv[0]); */</span></div>
<div class="line"><a name="l04957"></a><span class="lineno"> 4957</span>  nameString = Tcl_GetStringFromObj(objv[0], &dummy);</div>
<div class="line"><a name="l04958"></a><span class="lineno"> 4958</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04959"></a><span class="lineno"> 4959</span> <span class="preprocessor"></span> nameString = objv[0];</div>
<div class="line"><a name="l04960"></a><span class="lineno"> 4960</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04961"></a><span class="lineno"> 4961</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div>
<div class="line"><a name="l04962"></a><span class="lineno"> 4962</span>  nameString, <span class="stringliteral">" name\""</span>, (<span class="keywordtype">char</span> *) NULL);</div>
<div class="line"><a name="l04963"></a><span class="lineno"> 4963</span> </div>
<div class="line"><a name="l04964"></a><span class="lineno"> 4964</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l04965"></a><span class="lineno"> 4965</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04966"></a><span class="lineno"> 4966</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l04967"></a><span class="lineno"> 4967</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l04968"></a><span class="lineno"> 4968</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l04969"></a><span class="lineno"> 4969</span>  }</div>
<div class="line"><a name="l04970"></a><span class="lineno"> 4970</span> </div>
<div class="line"><a name="l04971"></a><span class="lineno"> 4971</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l04972"></a><span class="lineno"> 4972</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(objv[1]);</div>
<div class="line"><a name="l04973"></a><span class="lineno"> 4973</span>  <span class="comment">/* nameString = Tcl_GetString(objv[1]); */</span></div>
<div class="line"><a name="l04974"></a><span class="lineno"> 4974</span>  nameString = Tcl_GetStringFromObj(objv[1], &dummy);</div>
<div class="line"><a name="l04975"></a><span class="lineno"> 4975</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04976"></a><span class="lineno"> 4976</span> <span class="preprocessor"></span> nameString = objv[1];</div>
<div class="line"><a name="l04977"></a><span class="lineno"> 4977</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04978"></a><span class="lineno"> 4978</span> <span class="preprocessor"></span> thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l04979"></a><span class="lineno"> 4979</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l04980"></a><span class="lineno"> 4980</span> </div>
<div class="line"><a name="l04981"></a><span class="lineno"> 4981</span>  <span class="comment">/* param = (struct th_vwait_param *)Tcl_Alloc(sizeof(struct th_vwait_param)); */</span></div>
<div class="line"><a name="l04982"></a><span class="lineno"> 4982</span>  param = (<span class="keyword">struct </span><a class="code" href="../../dd/dca/structth__vwait__param.html">th_vwait_param</a> *)ckalloc(<span class="keyword">sizeof</span>(<span class="keyword">struct</span> <a class="code" href="../../dd/dca/structth__vwait__param.html">th_vwait_param</a>));</div>
<div class="line"><a name="l04983"></a><span class="lineno"> 4983</span> <span class="preprocessor">#if 1 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l04984"></a><span class="lineno"> 4984</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)param);</div>
<div class="line"><a name="l04985"></a><span class="lineno"> 4985</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l04986"></a><span class="lineno"> 4986</span> <span class="preprocessor"></span> param-><a class="code" href="../../dd/dca/structth__vwait__param.html#abfac73593f1d6ac7a80953799ec9a91c">thread</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a186dc5b385a5ed2879a4b8e517c2e1cc">current_thread</a>;</div>
<div class="line"><a name="l04987"></a><span class="lineno"> 4987</span>  param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> = 0;</div>
<div class="line"><a name="l04988"></a><span class="lineno"> 4988</span> </div>
<div class="line"><a name="l04989"></a><span class="lineno"> 4989</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l04990"></a><span class="lineno"> 4990</span> <span class="comment"> if (Tcl_TraceVar(interp, nameString,</span></div>
<div class="line"><a name="l04991"></a><span class="lineno"> 4991</span> <span class="comment"> TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</span></div>
<div class="line"><a name="l04992"></a><span class="lineno"> 4992</span> <span class="comment"> rb_threadVwaitProc, (ClientData) param) != TCL_OK) {</span></div>
<div class="line"><a name="l04993"></a><span class="lineno"> 4993</span> <span class="comment"> return TCL_ERROR;</span></div>
<div class="line"><a name="l04994"></a><span class="lineno"> 4994</span> <span class="comment"> }</span></div>
<div class="line"><a name="l04995"></a><span class="lineno"> 4995</span> <span class="comment"> */</span></div>
<div class="line"><a name="l04996"></a><span class="lineno"> 4996</span>  ret = Tcl_TraceVar(interp, nameString,</div>
<div class="line"><a name="l04997"></a><span class="lineno"> 4997</span>  TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</div>
<div class="line"><a name="l04998"></a><span class="lineno"> 4998</span>  rb_threadVwaitProc, (ClientData) param);</div>
<div class="line"><a name="l04999"></a><span class="lineno"> 4999</span> </div>
<div class="line"><a name="l05000"></a><span class="lineno"> 5000</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05001"></a><span class="lineno"> 5001</span> </div>
<div class="line"><a name="l05002"></a><span class="lineno"> 5002</span>  <span class="keywordflow">if</span> (ret != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l05003"></a><span class="lineno"> 5003</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05004"></a><span class="lineno"> 5004</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)param, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l05005"></a><span class="lineno"> 5005</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05006"></a><span class="lineno"> 5006</span> <span class="preprocessor"></span><span class="preprocessor">#if 1 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05007"></a><span class="lineno"> 5007</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)param);</div>
<div class="line"><a name="l05008"></a><span class="lineno"> 5008</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05009"></a><span class="lineno"> 5009</span> <span class="preprocessor"></span> <span class="comment">/* Tcl_Free((char *)param); */</span></div>
<div class="line"><a name="l05010"></a><span class="lineno"> 5010</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span> *)param);</div>
<div class="line"><a name="l05011"></a><span class="lineno"> 5011</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05012"></a><span class="lineno"> 5012</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05013"></a><span class="lineno"> 5013</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05014"></a><span class="lineno"> 5014</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05015"></a><span class="lineno"> 5015</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[1]);</div>
<div class="line"><a name="l05016"></a><span class="lineno"> 5016</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05017"></a><span class="lineno"> 5017</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l05018"></a><span class="lineno"> 5018</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l05019"></a><span class="lineno"> 5019</span>  }</div>
<div class="line"><a name="l05020"></a><span class="lineno"> 5020</span> </div>
<div class="line"><a name="l05021"></a><span class="lineno"> 5021</span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#a3599199839a89e99a2ce29d45312b5cf">tv_sec</a> = 0;</div>
<div class="line"><a name="l05022"></a><span class="lineno"> 5022</span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#aa8396731f2914f9ed2a457d3da602b80">tv_usec</a> = (<a class="code" href="../../d3/d15/name2ctype_8h.html#a86f2415763322050063a5502f87c9422">long</a>)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd2530678e6262a587dd99dedeb053b">EVENT_HANDLER_TIMEOUT</a>)*1000.0);</div>
<div class="line"><a name="l05023"></a><span class="lineno"> 5023</span> </div>
<div class="line"><a name="l05024"></a><span class="lineno"> 5024</span>  <span class="keywordflow">while</span>(!param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a>) {</div>
<div class="line"><a name="l05025"></a><span class="lineno"> 5025</span>  <span class="comment">/* rb_thread_stop(); */</span></div>
<div class="line"><a name="l05026"></a><span class="lineno"> 5026</span>  <span class="comment">/* rb_thread_sleep_forever(); */</span></div>
<div class="line"><a name="l05027"></a><span class="lineno"> 5027</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8a3ea241e062a8c0dcd87b7232ca4900">rb_thread_wait_for</a>(t);</div>
<div class="line"><a name="l05028"></a><span class="lineno"> 5028</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread)) {</div>
<div class="line"><a name="l05029"></a><span class="lineno"> 5029</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l05030"></a><span class="lineno"> 5030</span>  }</div>
<div class="line"><a name="l05031"></a><span class="lineno"> 5031</span>  }</div>
<div class="line"><a name="l05032"></a><span class="lineno"> 5032</span> </div>
<div class="line"><a name="l05033"></a><span class="lineno"> 5033</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l05034"></a><span class="lineno"> 5034</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l05035"></a><span class="lineno"> 5035</span> </div>
<div class="line"><a name="l05036"></a><span class="lineno"> 5036</span>  <span class="keywordflow">if</span> (param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> > 0) {</div>
<div class="line"><a name="l05037"></a><span class="lineno"> 5037</span>  Tcl_UntraceVar(interp, nameString,</div>
<div class="line"><a name="l05038"></a><span class="lineno"> 5038</span>  TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</div>
<div class="line"><a name="l05039"></a><span class="lineno"> 5039</span>  rb_threadVwaitProc, (ClientData) param);</div>
<div class="line"><a name="l05040"></a><span class="lineno"> 5040</span>  }</div>
<div class="line"><a name="l05041"></a><span class="lineno"> 5041</span> </div>
<div class="line"><a name="l05042"></a><span class="lineno"> 5042</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05043"></a><span class="lineno"> 5043</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)param, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l05044"></a><span class="lineno"> 5044</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05045"></a><span class="lineno"> 5045</span> <span class="preprocessor"></span><span class="preprocessor">#if 1 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05046"></a><span class="lineno"> 5046</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)param);</div>
<div class="line"><a name="l05047"></a><span class="lineno"> 5047</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05048"></a><span class="lineno"> 5048</span> <span class="preprocessor"></span> <span class="comment">/* Tcl_Free((char *)param); */</span></div>
<div class="line"><a name="l05049"></a><span class="lineno"> 5049</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span> *)param);</div>
<div class="line"><a name="l05050"></a><span class="lineno"> 5050</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05051"></a><span class="lineno"> 5051</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05052"></a><span class="lineno"> 5052</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05053"></a><span class="lineno"> 5053</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05054"></a><span class="lineno"> 5054</span> </div>
<div class="line"><a name="l05055"></a><span class="lineno"> 5055</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05056"></a><span class="lineno"> 5056</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[1]);</div>
<div class="line"><a name="l05057"></a><span class="lineno"> 5057</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05058"></a><span class="lineno"> 5058</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l05059"></a><span class="lineno"> 5059</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>;</div>
<div class="line"><a name="l05060"></a><span class="lineno"> 5060</span> }</div>
<div class="line"><a name="l05061"></a><span class="lineno"> 5061</span> </div>
<div class="line"><a name="l05062"></a><span class="lineno"> 5062</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05063"></a><span class="lineno"> 5063</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l05064"></a><span class="lineno"> 5064</span> ip_rb_threadTkWaitObjCmd(clientData, interp, objc, objv)</div>
<div class="line"><a name="l05065"></a><span class="lineno"> 5065</span>  ClientData clientData;</div>
<div class="line"><a name="l05066"></a><span class="lineno"> 5066</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l05067"></a><span class="lineno"> 5067</span>  <span class="keywordtype">int</span> objc;</div>
<div class="line"><a name="l05068"></a><span class="lineno"> 5068</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> objv[];</div>
<div class="line"><a name="l05069"></a><span class="lineno"> 5069</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05070"></a><span class="lineno"> 5070</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l05071"></a><span class="lineno"> 5071</span> ip_rb_threadTkWaitCommand(clientData, interp, objc, objv)</div>
<div class="line"><a name="l05072"></a><span class="lineno"> 5072</span>  ClientData clientData;</div>
<div class="line"><a name="l05073"></a><span class="lineno"> 5073</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l05074"></a><span class="lineno"> 5074</span>  <span class="keywordtype">int</span> objc;</div>
<div class="line"><a name="l05075"></a><span class="lineno"> 5075</span>  <span class="keywordtype">char</span> *objv[];</div>
<div class="line"><a name="l05076"></a><span class="lineno"> 5076</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05077"></a><span class="lineno"> 5077</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l05078"></a><span class="lineno"> 5078</span>  <span class="keyword">struct </span><a class="code" href="../../dd/dca/structth__vwait__param.html">th_vwait_param</a> *<a class="code" href="../../d3/d09/ripper_8y.html#a7a845cc4b98215f5cf028bd914d245d3">param</a>;</div>
<div class="line"><a name="l05079"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8018f71cd110dd99a4148699d5b0f084"> 5079</a></span>  Tk_Window tkwin = (Tk_Window) clientData;</div>
<div class="line"><a name="l05080"></a><span class="lineno"> 5080</span>  Tk_Window <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae82a3a846a0b5163005aae7115d59b64">window</a>;</div>
<div class="line"><a name="l05081"></a><span class="lineno"> 5081</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2b772bde34cb865f671cba699f405675">index</a>;</div>
<div class="line"><a name="l05082"></a><span class="lineno"> 5082</span>  <span class="keyword">static</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *optionStrings[] = { <span class="stringliteral">"variable"</span>, <span class="stringliteral">"visibility"</span>, <span class="stringliteral">"window"</span>,</div>
<div class="line"><a name="l05083"></a><span class="lineno"> 5083</span>  (<span class="keywordtype">char</span> *) NULL };</div>
<div class="line"><a name="l05084"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203d"> 5084</a></span>  <span class="keyword">enum</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203d">options</a> { <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203da849e6bbd0a169700b2ae12d5d5bbd60a">TKWAIT_VARIABLE</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203dae5beaef321f61572446bdd68a6b85600">TKWAIT_VISIBILITY</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203da73e34c56e478639434b8927497d73d97">TKWAIT_WINDOW</a> };</div>
<div class="line"><a name="l05085"></a><span class="lineno"> 5085</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a3ddcdc7bfb3b1d74b8f23dacda0e86a3">nameString</a>;</div>
<div class="line"><a name="l05086"></a><span class="lineno"> 5086</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7c1d654b7b6114d7a0abc8d351dd1bcd">dummy</a>;</div>
<div class="line"><a name="l05087"></a><span class="lineno"> 5087</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05088"></a><span class="lineno"> 5088</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> current_thread = <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>();</div>
<div class="line"><a name="l05089"></a><span class="lineno"> 5089</span>  <span class="keyword">struct </span><a class="code" href="../../d1/d1b/structtimeval.html">timeval</a> t;</div>
<div class="line"><a name="l05090"></a><span class="lineno"> 5090</span> </div>
<div class="line"><a name="l05091"></a><span class="lineno"> 5091</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Ruby's 'thread_tkwait' is called"</span>);</div>
<div class="line"><a name="l05092"></a><span class="lineno"> 5092</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)NULL) {</div>
<div class="line"><a name="l05093"></a><span class="lineno"> 5093</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l05094"></a><span class="lineno"> 5094</span>  <span class="stringliteral">"IP is deleted"</span>);</div>
<div class="line"><a name="l05095"></a><span class="lineno"> 5095</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l05096"></a><span class="lineno"> 5096</span>  }</div>
<div class="line"><a name="l05097"></a><span class="lineno"> 5097</span> </div>
<div class="line"><a name="l05098"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac19dae94f6c49d3cfe38fe9d399a6bb5"> 5098</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#ac86131edba4a5a668958ce58b661d7ee">rb_thread_alone</a>() || eventloop_thread == current_thread) {</div>
<div class="line"><a name="l05099"></a><span class="lineno"> 5099</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05100"></a><span class="lineno"> 5100</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call ip_rbTkWaitObjCmd"</span>);</div>
<div class="line"><a name="l05101"></a><span class="lineno"> 5101</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eventloop_thread %lx"</span>, eventloop_thread);</div>
<div class="line"><a name="l05102"></a><span class="lineno"> 5102</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"current_thread %lx"</span>, current_thread);</div>
<div class="line"><a name="l05103"></a><span class="lineno"> 5103</span>  <span class="keywordflow">return</span> ip_rbTkWaitObjCmd(clientData, interp, objc, objv);</div>
<div class="line"><a name="l05104"></a><span class="lineno"> 5104</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05105"></a><span class="lineno"> 5105</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call rb_VwaitCommand"</span>);</div>
<div class="line"><a name="l05106"></a><span class="lineno"> 5106</span>  <span class="keywordflow">return</span> ip_rbTkWaitCommand(clientData, interp, objc, objv);</div>
<div class="line"><a name="l05107"></a><span class="lineno"> 5107</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05108"></a><span class="lineno"> 5108</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l05109"></a><span class="lineno"> 5109</span> </div>
<div class="line"><a name="l05110"></a><span class="lineno"> 5110</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>(interp);</div>
<div class="line"><a name="l05111"></a><span class="lineno"> 5111</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>(tkwin);</div>
<div class="line"><a name="l05112"></a><span class="lineno"> 5112</span> </div>
<div class="line"><a name="l05113"></a><span class="lineno"> 5113</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l05114"></a><span class="lineno"> 5114</span> </div>
<div class="line"><a name="l05115"></a><span class="lineno"> 5115</span>  <span class="keywordflow">if</span> (objc != 3) {</div>
<div class="line"><a name="l05116"></a><span class="lineno"> 5116</span> <span class="preprocessor">#ifdef Tcl_WrongNumArgs</span></div>
<div class="line"><a name="l05117"></a><span class="lineno"> 5117</span> <span class="preprocessor"></span> Tcl_WrongNumArgs(interp, 1, objv, <span class="stringliteral">"variable|visibility|window name"</span>);</div>
<div class="line"><a name="l05118"></a><span class="lineno"> 5118</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05119"></a><span class="lineno"> 5119</span> <span class="preprocessor"></span> thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l05120"></a><span class="lineno"> 5120</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l05121"></a><span class="lineno"> 5121</span> </div>
<div class="line"><a name="l05122"></a><span class="lineno"> 5122</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05123"></a><span class="lineno"> 5123</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div>
<div class="line"><a name="l05124"></a><span class="lineno"> 5124</span>  Tcl_GetStringFromObj(objv[0], &dummy),</div>
<div class="line"><a name="l05125"></a><span class="lineno"> 5125</span>  <span class="stringliteral">" variable|visibility|window name\""</span>,</div>
<div class="line"><a name="l05126"></a><span class="lineno"> 5126</span>  (<span class="keywordtype">char</span> *) NULL);</div>
<div class="line"><a name="l05127"></a><span class="lineno"> 5127</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05128"></a><span class="lineno"> 5128</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div>
<div class="line"><a name="l05129"></a><span class="lineno"> 5129</span>  objv[0], <span class="stringliteral">" variable|visibility|window name\""</span>,</div>
<div class="line"><a name="l05130"></a><span class="lineno"> 5130</span>  (<span class="keywordtype">char</span> *) NULL);</div>
<div class="line"><a name="l05131"></a><span class="lineno"> 5131</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05132"></a><span class="lineno"> 5132</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05133"></a><span class="lineno"> 5133</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05134"></a><span class="lineno"> 5134</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05135"></a><span class="lineno"> 5135</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05136"></a><span class="lineno"> 5136</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(tkwin);</div>
<div class="line"><a name="l05137"></a><span class="lineno"> 5137</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l05138"></a><span class="lineno"> 5138</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l05139"></a><span class="lineno"> 5139</span>  }</div>
<div class="line"><a name="l05140"></a><span class="lineno"> 5140</span> </div>
<div class="line"><a name="l05141"></a><span class="lineno"> 5141</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05142"></a><span class="lineno"> 5142</span> <span class="preprocessor"></span> thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l05143"></a><span class="lineno"> 5143</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l05144"></a><span class="lineno"> 5144</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l05145"></a><span class="lineno"> 5145</span> <span class="comment"> if (Tcl_GetIndexFromObj(interp, objv[1],</span></div>
<div class="line"><a name="l05146"></a><span class="lineno"> 5146</span> <span class="comment"> (CONST84 char **)optionStrings,</span></div>
<div class="line"><a name="l05147"></a><span class="lineno"> 5147</span> <span class="comment"> "option", 0, &index) != TCL_OK) {</span></div>
<div class="line"><a name="l05148"></a><span class="lineno"> 5148</span> <span class="comment"> return TCL_ERROR;</span></div>
<div class="line"><a name="l05149"></a><span class="lineno"> 5149</span> <span class="comment"> }</span></div>
<div class="line"><a name="l05150"></a><span class="lineno"> 5150</span> <span class="comment"> */</span></div>
<div class="line"><a name="l05151"></a><span class="lineno"> 5151</span>  ret = Tcl_GetIndexFromObj(interp, objv[1],</div>
<div class="line"><a name="l05152"></a><span class="lineno"> 5152</span>  (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> **)optionStrings,</div>
<div class="line"><a name="l05153"></a><span class="lineno"> 5153</span>  <span class="stringliteral">"option"</span>, 0, &index);</div>
<div class="line"><a name="l05154"></a><span class="lineno"> 5154</span> </div>
<div class="line"><a name="l05155"></a><span class="lineno"> 5155</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05156"></a><span class="lineno"> 5156</span> </div>
<div class="line"><a name="l05157"></a><span class="lineno"> 5157</span>  <span class="keywordflow">if</span> (ret != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l05158"></a><span class="lineno"> 5158</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(tkwin);</div>
<div class="line"><a name="l05159"></a><span class="lineno"> 5159</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l05160"></a><span class="lineno"> 5160</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l05161"></a><span class="lineno"> 5161</span>  }</div>
<div class="line"><a name="l05162"></a><span class="lineno"> 5162</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05163"></a><span class="lineno"> 5163</span> <span class="preprocessor"></span> {</div>
<div class="line"><a name="l05164"></a><span class="lineno"> 5164</span>  <span class="keywordtype">int</span> c = objv[1][0];</div>
<div class="line"><a name="l05165"></a><span class="lineno"> 5165</span>  <span class="keywordtype">size_t</span> length = <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(objv[1]);</div>
<div class="line"><a name="l05166"></a><span class="lineno"> 5166</span> </div>
<div class="line"><a name="l05167"></a><span class="lineno"> 5167</span>  <span class="keywordflow">if</span> ((c == <span class="charliteral">'v'</span>) && (strncmp(objv[1], <span class="stringliteral">"variable"</span>, length) == 0)</div>
<div class="line"><a name="l05168"></a><span class="lineno"> 5168</span>  && (length >= 2)) {</div>
<div class="line"><a name="l05169"></a><span class="lineno"> 5169</span>  index = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203da849e6bbd0a169700b2ae12d5d5bbd60a">TKWAIT_VARIABLE</a>;</div>
<div class="line"><a name="l05170"></a><span class="lineno"> 5170</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> ((c == <span class="charliteral">'v'</span>) && (strncmp(objv[1], <span class="stringliteral">"visibility"</span>, length) == 0)</div>
<div class="line"><a name="l05171"></a><span class="lineno"> 5171</span>  && (length >= 2)) {</div>
<div class="line"><a name="l05172"></a><span class="lineno"> 5172</span>  index = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203dae5beaef321f61572446bdd68a6b85600">TKWAIT_VISIBILITY</a>;</div>
<div class="line"><a name="l05173"></a><span class="lineno"> 5173</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> ((c == <span class="charliteral">'w'</span>) && (strncmp(objv[1], <span class="stringliteral">"window"</span>, length) == 0)) {</div>
<div class="line"><a name="l05174"></a><span class="lineno"> 5174</span>  index = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203da73e34c56e478639434b8927497d73d97">TKWAIT_WINDOW</a>;</div>
<div class="line"><a name="l05175"></a><span class="lineno"> 5175</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l05176"></a><span class="lineno"> 5176</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"bad option \""</span>, objv[1],</div>
<div class="line"><a name="l05177"></a><span class="lineno"> 5177</span>  <span class="stringliteral">"\": must be variable, visibility, or window"</span>,</div>
<div class="line"><a name="l05178"></a><span class="lineno"> 5178</span>  (<span class="keywordtype">char</span> *) NULL);</div>
<div class="line"><a name="l05179"></a><span class="lineno"> 5179</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(tkwin);</div>
<div class="line"><a name="l05180"></a><span class="lineno"> 5180</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l05181"></a><span class="lineno"> 5181</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l05182"></a><span class="lineno"> 5182</span>  }</div>
<div class="line"><a name="l05183"></a><span class="lineno"> 5183</span>  }</div>
<div class="line"><a name="l05184"></a><span class="lineno"> 5184</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05185"></a><span class="lineno"> 5185</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05186"></a><span class="lineno"> 5186</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l05187"></a><span class="lineno"> 5187</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l05188"></a><span class="lineno"> 5188</span> </div>
<div class="line"><a name="l05189"></a><span class="lineno"> 5189</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05190"></a><span class="lineno"> 5190</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(objv[2]);</div>
<div class="line"><a name="l05191"></a><span class="lineno"> 5191</span>  <span class="comment">/* nameString = Tcl_GetString(objv[2]); */</span></div>
<div class="line"><a name="l05192"></a><span class="lineno"> 5192</span>  nameString = Tcl_GetStringFromObj(objv[2], &dummy);</div>
<div class="line"><a name="l05193"></a><span class="lineno"> 5193</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05194"></a><span class="lineno"> 5194</span> <span class="preprocessor"></span> nameString = objv[2];</div>
<div class="line"><a name="l05195"></a><span class="lineno"> 5195</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05196"></a><span class="lineno"> 5196</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05197"></a><span class="lineno"> 5197</span>  <span class="comment">/* param = (struct th_vwait_param *)Tcl_Alloc(sizeof(struct th_vwait_param)); */</span></div>
<div class="line"><a name="l05198"></a><span class="lineno"> 5198</span>  param = (<span class="keyword">struct </span><a class="code" href="../../dd/dca/structth__vwait__param.html">th_vwait_param</a> *)ckalloc(<span class="keyword">sizeof</span>(<span class="keyword">struct</span> <a class="code" href="../../dd/dca/structth__vwait__param.html">th_vwait_param</a>));</div>
<div class="line"><a name="l05199"></a><span class="lineno"> 5199</span> <span class="preprocessor">#if 1 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05200"></a><span class="lineno"> 5200</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)param);</div>
<div class="line"><a name="l05201"></a><span class="lineno"> 5201</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05202"></a><span class="lineno"> 5202</span> <span class="preprocessor"></span> param-><a class="code" href="../../dd/dca/structth__vwait__param.html#abfac73593f1d6ac7a80953799ec9a91c">thread</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a186dc5b385a5ed2879a4b8e517c2e1cc">current_thread</a>;</div>
<div class="line"><a name="l05203"></a><span class="lineno"> 5203</span>  param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> = 0;</div>
<div class="line"><a name="l05204"></a><span class="lineno"> 5204</span> </div>
<div class="line"><a name="l05205"></a><span class="lineno"> 5205</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05206"></a><span class="lineno"> 5206</span> </div>
<div class="line"><a name="l05207"></a><span class="lineno"> 5207</span>  <span class="keywordflow">switch</span> ((<span class="keyword">enum</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203d">options</a>) index) {</div>
<div class="line"><a name="l05208"></a><span class="lineno"> 5208</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203da849e6bbd0a169700b2ae12d5d5bbd60a">TKWAIT_VARIABLE</a>:</div>
<div class="line"><a name="l05209"></a><span class="lineno"> 5209</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l05210"></a><span class="lineno"> 5210</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l05211"></a><span class="lineno"> 5211</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l05212"></a><span class="lineno"> 5212</span> <span class="comment"> if (Tcl_TraceVar(interp, nameString,</span></div>
<div class="line"><a name="l05213"></a><span class="lineno"> 5213</span> <span class="comment"> TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</span></div>
<div class="line"><a name="l05214"></a><span class="lineno"> 5214</span> <span class="comment"> rb_threadVwaitProc, (ClientData) param) != TCL_OK) {</span></div>
<div class="line"><a name="l05215"></a><span class="lineno"> 5215</span> <span class="comment"> return TCL_ERROR;</span></div>
<div class="line"><a name="l05216"></a><span class="lineno"> 5216</span> <span class="comment"> }</span></div>
<div class="line"><a name="l05217"></a><span class="lineno"> 5217</span> <span class="comment"> */</span></div>
<div class="line"><a name="l05218"></a><span class="lineno"> 5218</span>  ret = Tcl_TraceVar(interp, nameString,</div>
<div class="line"><a name="l05219"></a><span class="lineno"> 5219</span>  TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</div>
<div class="line"><a name="l05220"></a><span class="lineno"> 5220</span>  rb_threadVwaitProc, (ClientData) param);</div>
<div class="line"><a name="l05221"></a><span class="lineno"> 5221</span> </div>
<div class="line"><a name="l05222"></a><span class="lineno"> 5222</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05223"></a><span class="lineno"> 5223</span> </div>
<div class="line"><a name="l05224"></a><span class="lineno"> 5224</span>  <span class="keywordflow">if</span> (ret != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l05225"></a><span class="lineno"> 5225</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05226"></a><span class="lineno"> 5226</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)param, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l05227"></a><span class="lineno"> 5227</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05228"></a><span class="lineno"> 5228</span> <span class="preprocessor"></span><span class="preprocessor">#if 1 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05229"></a><span class="lineno"> 5229</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(param);</div>
<div class="line"><a name="l05230"></a><span class="lineno"> 5230</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05231"></a><span class="lineno"> 5231</span> <span class="preprocessor"></span> <span class="comment">/* Tcl_Free((char *)param); */</span></div>
<div class="line"><a name="l05232"></a><span class="lineno"> 5232</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span> *)param);</div>
<div class="line"><a name="l05233"></a><span class="lineno"> 5233</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05234"></a><span class="lineno"> 5234</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05235"></a><span class="lineno"> 5235</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05236"></a><span class="lineno"> 5236</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05237"></a><span class="lineno"> 5237</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div>
<div class="line"><a name="l05238"></a><span class="lineno"> 5238</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05239"></a><span class="lineno"> 5239</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05240"></a><span class="lineno"> 5240</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(tkwin);</div>
<div class="line"><a name="l05241"></a><span class="lineno"> 5241</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l05242"></a><span class="lineno"> 5242</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l05243"></a><span class="lineno"> 5243</span>  }</div>
<div class="line"><a name="l05244"></a><span class="lineno"> 5244</span> </div>
<div class="line"><a name="l05245"></a><span class="lineno"> 5245</span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#a3599199839a89e99a2ce29d45312b5cf">tv_sec</a> = 0;</div>
<div class="line"><a name="l05246"></a><span class="lineno"> 5246</span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#aa8396731f2914f9ed2a457d3da602b80">tv_usec</a> = (<a class="code" href="../../d3/d15/name2ctype_8h.html#a86f2415763322050063a5502f87c9422">long</a>)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd2530678e6262a587dd99dedeb053b">EVENT_HANDLER_TIMEOUT</a>)*1000.0);</div>
<div class="line"><a name="l05247"></a><span class="lineno"> 5247</span> </div>
<div class="line"><a name="l05248"></a><span class="lineno"> 5248</span>  <span class="keywordflow">while</span>(!param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a>) {</div>
<div class="line"><a name="l05249"></a><span class="lineno"> 5249</span>  <span class="comment">/* rb_thread_stop(); */</span></div>
<div class="line"><a name="l05250"></a><span class="lineno"> 5250</span>  <span class="comment">/* rb_thread_sleep_forever(); */</span></div>
<div class="line"><a name="l05251"></a><span class="lineno"> 5251</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8a3ea241e062a8c0dcd87b7232ca4900">rb_thread_wait_for</a>(t);</div>
<div class="line"><a name="l05252"></a><span class="lineno"> 5252</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread)) {</div>
<div class="line"><a name="l05253"></a><span class="lineno"> 5253</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l05254"></a><span class="lineno"> 5254</span>  }</div>
<div class="line"><a name="l05255"></a><span class="lineno"> 5255</span>  }</div>
<div class="line"><a name="l05256"></a><span class="lineno"> 5256</span> </div>
<div class="line"><a name="l05257"></a><span class="lineno"> 5257</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l05258"></a><span class="lineno"> 5258</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l05259"></a><span class="lineno"> 5259</span> </div>
<div class="line"><a name="l05260"></a><span class="lineno"> 5260</span>  <span class="keywordflow">if</span> (param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> > 0) {</div>
<div class="line"><a name="l05261"></a><span class="lineno"> 5261</span>  Tcl_UntraceVar(interp, nameString,</div>
<div class="line"><a name="l05262"></a><span class="lineno"> 5262</span>  TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</div>
<div class="line"><a name="l05263"></a><span class="lineno"> 5263</span>  rb_threadVwaitProc, (ClientData) param);</div>
<div class="line"><a name="l05264"></a><span class="lineno"> 5264</span>  }</div>
<div class="line"><a name="l05265"></a><span class="lineno"> 5265</span> </div>
<div class="line"><a name="l05266"></a><span class="lineno"> 5266</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05267"></a><span class="lineno"> 5267</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div>
<div class="line"><a name="l05268"></a><span class="lineno"> 5268</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05269"></a><span class="lineno"> 5269</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05270"></a><span class="lineno"> 5270</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05271"></a><span class="lineno"> 5271</span> </div>
<div class="line"><a name="l05272"></a><span class="lineno"> 5272</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l05273"></a><span class="lineno"> 5273</span> </div>
<div class="line"><a name="l05274"></a><span class="lineno"> 5274</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203dae5beaef321f61572446bdd68a6b85600">TKWAIT_VISIBILITY</a>:</div>
<div class="line"><a name="l05275"></a><span class="lineno"> 5275</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l05276"></a><span class="lineno"> 5276</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l05277"></a><span class="lineno"> 5277</span> </div>
<div class="line"><a name="l05278"></a><span class="lineno"> 5278</span> <span class="preprocessor">#if 0 </span><span class="comment">/* variable 'tkwin' must keep the token of MainWindow */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05279"></a><span class="lineno"> 5279</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>() || Tk_MainWindow(interp) == (Tk_Window)NULL) {</div>
<div class="line"><a name="l05280"></a><span class="lineno"> 5280</span>  window = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l05281"></a><span class="lineno"> 5281</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l05282"></a><span class="lineno"> 5282</span>  window = Tk_NameToWindow(interp, nameString, tkwin);</div>
<div class="line"><a name="l05283"></a><span class="lineno"> 5283</span>  }</div>
<div class="line"><a name="l05284"></a><span class="lineno"> 5284</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05285"></a><span class="lineno"> 5285</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>() || tkwin == (Tk_Window)NULL) {</div>
<div class="line"><a name="l05286"></a><span class="lineno"> 5286</span>  window = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l05287"></a><span class="lineno"> 5287</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l05288"></a><span class="lineno"> 5288</span>  <span class="comment">/* Tk_NameToWindow() returns right token on non-eventloop thread */</span></div>
<div class="line"><a name="l05289"></a><span class="lineno"> 5289</span>  Tcl_CmdInfo <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0519a447ec4809b051ea38b41c4012a6">info</a>;</div>
<div class="line"><a name="l05290"></a><span class="lineno"> 5290</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad5c254c9258200de195897a1d1791732">Tcl_GetCommandInfo</a>(interp, <span class="stringliteral">"."</span>, &info)) { <span class="comment">/* check root */</span></div>
<div class="line"><a name="l05291"></a><span class="lineno"> 5291</span>  window = Tk_NameToWindow(interp, nameString, tkwin);</div>
<div class="line"><a name="l05292"></a><span class="lineno"> 5292</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l05293"></a><span class="lineno"> 5293</span>  window = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l05294"></a><span class="lineno"> 5294</span>  }</div>
<div class="line"><a name="l05295"></a><span class="lineno"> 5295</span>  }</div>
<div class="line"><a name="l05296"></a><span class="lineno"> 5296</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05297"></a><span class="lineno"> 5297</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05298"></a><span class="lineno"> 5298</span>  <span class="keywordflow">if</span> (window == NULL) {</div>
<div class="line"><a name="l05299"></a><span class="lineno"> 5299</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">": thread_tkwait: "</span>,</div>
<div class="line"><a name="l05300"></a><span class="lineno"> 5300</span>  <span class="stringliteral">"no main-window (not Tk application?)"</span>,</div>
<div class="line"><a name="l05301"></a><span class="lineno"> 5301</span>  (<span class="keywordtype">char</span>*)NULL);</div>
<div class="line"><a name="l05302"></a><span class="lineno"> 5302</span> </div>
<div class="line"><a name="l05303"></a><span class="lineno"> 5303</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05304"></a><span class="lineno"> 5304</span> </div>
<div class="line"><a name="l05305"></a><span class="lineno"> 5305</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05306"></a><span class="lineno"> 5306</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)param, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l05307"></a><span class="lineno"> 5307</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05308"></a><span class="lineno"> 5308</span> <span class="preprocessor"></span><span class="preprocessor">#if 1 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05309"></a><span class="lineno"> 5309</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(param);</div>
<div class="line"><a name="l05310"></a><span class="lineno"> 5310</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05311"></a><span class="lineno"> 5311</span> <span class="preprocessor"></span> <span class="comment">/* Tcl_Free((char *)param); */</span></div>
<div class="line"><a name="l05312"></a><span class="lineno"> 5312</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span> *)param);</div>
<div class="line"><a name="l05313"></a><span class="lineno"> 5313</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05314"></a><span class="lineno"> 5314</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05315"></a><span class="lineno"> 5315</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05316"></a><span class="lineno"> 5316</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05317"></a><span class="lineno"> 5317</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div>
<div class="line"><a name="l05318"></a><span class="lineno"> 5318</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05319"></a><span class="lineno"> 5319</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(tkwin);</div>
<div class="line"><a name="l05320"></a><span class="lineno"> 5320</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l05321"></a><span class="lineno"> 5321</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l05322"></a><span class="lineno"> 5322</span>  }</div>
<div class="line"><a name="l05323"></a><span class="lineno"> 5323</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>(window);</div>
<div class="line"><a name="l05324"></a><span class="lineno"> 5324</span> </div>
<div class="line"><a name="l05325"></a><span class="lineno"> 5325</span>  Tk_CreateEventHandler(window,</div>
<div class="line"><a name="l05326"></a><span class="lineno"> 5326</span>  VisibilityChangeMask|StructureNotifyMask,</div>
<div class="line"><a name="l05327"></a><span class="lineno"> 5327</span>  rb_threadWaitVisibilityProc, (ClientData) param);</div>
<div class="line"><a name="l05328"></a><span class="lineno"> 5328</span> </div>
<div class="line"><a name="l05329"></a><span class="lineno"> 5329</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05330"></a><span class="lineno"> 5330</span> </div>
<div class="line"><a name="l05331"></a><span class="lineno"> 5331</span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#a3599199839a89e99a2ce29d45312b5cf">tv_sec</a> = 0;</div>
<div class="line"><a name="l05332"></a><span class="lineno"> 5332</span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#aa8396731f2914f9ed2a457d3da602b80">tv_usec</a> = (<a class="code" href="../../d3/d15/name2ctype_8h.html#a86f2415763322050063a5502f87c9422">long</a>)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd2530678e6262a587dd99dedeb053b">EVENT_HANDLER_TIMEOUT</a>)*1000.0);</div>
<div class="line"><a name="l05333"></a><span class="lineno"> 5333</span> </div>
<div class="line"><a name="l05334"></a><span class="lineno"> 5334</span>  <span class="keywordflow">while</span>(param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> != <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac904beb2aab947ee7a16ad741ae38ef1">TKWAIT_MODE_VISIBILITY</a>) {</div>
<div class="line"><a name="l05335"></a><span class="lineno"> 5335</span>  <span class="keywordflow">if</span> (param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> == <a class="code" href="../../d5/d9d/tcltklib_8c.html#add9a7c9b57ebc6b1e1a25640d8e17e29">TKWAIT_MODE_DESTROY</a>) <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l05336"></a><span class="lineno"> 5336</span>  <span class="comment">/* rb_thread_stop(); */</span></div>
<div class="line"><a name="l05337"></a><span class="lineno"> 5337</span>  <span class="comment">/* rb_thread_sleep_forever(); */</span></div>
<div class="line"><a name="l05338"></a><span class="lineno"> 5338</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8a3ea241e062a8c0dcd87b7232ca4900">rb_thread_wait_for</a>(t);</div>
<div class="line"><a name="l05339"></a><span class="lineno"> 5339</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread)) {</div>
<div class="line"><a name="l05340"></a><span class="lineno"> 5340</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l05341"></a><span class="lineno"> 5341</span>  }</div>
<div class="line"><a name="l05342"></a><span class="lineno"> 5342</span>  }</div>
<div class="line"><a name="l05343"></a><span class="lineno"> 5343</span> </div>
<div class="line"><a name="l05344"></a><span class="lineno"> 5344</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l05345"></a><span class="lineno"> 5345</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l05346"></a><span class="lineno"> 5346</span> </div>
<div class="line"><a name="l05347"></a><span class="lineno"> 5347</span>  <span class="comment">/* when a window is destroyed, no need to call Tk_DeleteEventHandler */</span></div>
<div class="line"><a name="l05348"></a><span class="lineno"> 5348</span>  <span class="keywordflow">if</span> (param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> != <a class="code" href="../../d5/d9d/tcltklib_8c.html#add9a7c9b57ebc6b1e1a25640d8e17e29">TKWAIT_MODE_DESTROY</a>) {</div>
<div class="line"><a name="l05349"></a><span class="lineno"> 5349</span>  Tk_DeleteEventHandler(window,</div>
<div class="line"><a name="l05350"></a><span class="lineno"> 5350</span>  VisibilityChangeMask|StructureNotifyMask,</div>
<div class="line"><a name="l05351"></a><span class="lineno"> 5351</span>  rb_threadWaitVisibilityProc,</div>
<div class="line"><a name="l05352"></a><span class="lineno"> 5352</span>  (ClientData) param);</div>
<div class="line"><a name="l05353"></a><span class="lineno"> 5353</span>  }</div>
<div class="line"><a name="l05354"></a><span class="lineno"> 5354</span> </div>
<div class="line"><a name="l05355"></a><span class="lineno"> 5355</span>  <span class="keywordflow">if</span> (param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> != 1) {</div>
<div class="line"><a name="l05356"></a><span class="lineno"> 5356</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l05357"></a><span class="lineno"> 5357</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"window \""</span>, nameString,</div>
<div class="line"><a name="l05358"></a><span class="lineno"> 5358</span>  <span class="stringliteral">"\" was deleted before its visibility changed"</span>,</div>
<div class="line"><a name="l05359"></a><span class="lineno"> 5359</span>  (<span class="keywordtype">char</span> *) NULL);</div>
<div class="line"><a name="l05360"></a><span class="lineno"> 5360</span> </div>
<div class="line"><a name="l05361"></a><span class="lineno"> 5361</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05362"></a><span class="lineno"> 5362</span> </div>
<div class="line"><a name="l05363"></a><span class="lineno"> 5363</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(window);</div>
<div class="line"><a name="l05364"></a><span class="lineno"> 5364</span> </div>
<div class="line"><a name="l05365"></a><span class="lineno"> 5365</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05366"></a><span class="lineno"> 5366</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)param, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l05367"></a><span class="lineno"> 5367</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05368"></a><span class="lineno"> 5368</span> <span class="preprocessor"></span><span class="preprocessor">#if 1 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05369"></a><span class="lineno"> 5369</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(param);</div>
<div class="line"><a name="l05370"></a><span class="lineno"> 5370</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05371"></a><span class="lineno"> 5371</span> <span class="preprocessor"></span> <span class="comment">/* Tcl_Free((char *)param); */</span></div>
<div class="line"><a name="l05372"></a><span class="lineno"> 5372</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span> *)param);</div>
<div class="line"><a name="l05373"></a><span class="lineno"> 5373</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05374"></a><span class="lineno"> 5374</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05375"></a><span class="lineno"> 5375</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05376"></a><span class="lineno"> 5376</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05377"></a><span class="lineno"> 5377</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div>
<div class="line"><a name="l05378"></a><span class="lineno"> 5378</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05379"></a><span class="lineno"> 5379</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05380"></a><span class="lineno"> 5380</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(tkwin);</div>
<div class="line"><a name="l05381"></a><span class="lineno"> 5381</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l05382"></a><span class="lineno"> 5382</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l05383"></a><span class="lineno"> 5383</span>  }</div>
<div class="line"><a name="l05384"></a><span class="lineno"> 5384</span> </div>
<div class="line"><a name="l05385"></a><span class="lineno"> 5385</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(window);</div>
<div class="line"><a name="l05386"></a><span class="lineno"> 5386</span> </div>
<div class="line"><a name="l05387"></a><span class="lineno"> 5387</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05388"></a><span class="lineno"> 5388</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div>
<div class="line"><a name="l05389"></a><span class="lineno"> 5389</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05390"></a><span class="lineno"> 5390</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05391"></a><span class="lineno"> 5391</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05392"></a><span class="lineno"> 5392</span> </div>
<div class="line"><a name="l05393"></a><span class="lineno"> 5393</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l05394"></a><span class="lineno"> 5394</span> </div>
<div class="line"><a name="l05395"></a><span class="lineno"> 5395</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203da73e34c56e478639434b8927497d73d97">TKWAIT_WINDOW</a>:</div>
<div class="line"><a name="l05396"></a><span class="lineno"> 5396</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l05397"></a><span class="lineno"> 5397</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l05398"></a><span class="lineno"> 5398</span> </div>
<div class="line"><a name="l05399"></a><span class="lineno"> 5399</span> <span class="preprocessor">#if 0 </span><span class="comment">/* variable 'tkwin' must keep the token of MainWindow */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05400"></a><span class="lineno"> 5400</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>() || Tk_MainWindow(interp) == (Tk_Window)NULL) {</div>
<div class="line"><a name="l05401"></a><span class="lineno"> 5401</span>  window = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l05402"></a><span class="lineno"> 5402</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l05403"></a><span class="lineno"> 5403</span>  window = Tk_NameToWindow(interp, nameString, tkwin);</div>
<div class="line"><a name="l05404"></a><span class="lineno"> 5404</span>  }</div>
<div class="line"><a name="l05405"></a><span class="lineno"> 5405</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05406"></a><span class="lineno"> 5406</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>() || tkwin == (Tk_Window)NULL) {</div>
<div class="line"><a name="l05407"></a><span class="lineno"> 5407</span>  window = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l05408"></a><span class="lineno"> 5408</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l05409"></a><span class="lineno"> 5409</span>  <span class="comment">/* Tk_NameToWindow() returns right token on non-eventloop thread */</span></div>
<div class="line"><a name="l05410"></a><span class="lineno"> 5410</span>  Tcl_CmdInfo <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0519a447ec4809b051ea38b41c4012a6">info</a>;</div>
<div class="line"><a name="l05411"></a><span class="lineno"> 5411</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad5c254c9258200de195897a1d1791732">Tcl_GetCommandInfo</a>(interp, <span class="stringliteral">"."</span>, &info)) { <span class="comment">/* check root */</span></div>
<div class="line"><a name="l05412"></a><span class="lineno"> 5412</span>  window = Tk_NameToWindow(interp, nameString, tkwin);</div>
<div class="line"><a name="l05413"></a><span class="lineno"> 5413</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l05414"></a><span class="lineno"> 5414</span>  window = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l05415"></a><span class="lineno"> 5415</span>  }</div>
<div class="line"><a name="l05416"></a><span class="lineno"> 5416</span>  }</div>
<div class="line"><a name="l05417"></a><span class="lineno"> 5417</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05418"></a><span class="lineno"> 5418</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05419"></a><span class="lineno"> 5419</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05420"></a><span class="lineno"> 5420</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div>
<div class="line"><a name="l05421"></a><span class="lineno"> 5421</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05422"></a><span class="lineno"> 5422</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05423"></a><span class="lineno"> 5423</span>  <span class="keywordflow">if</span> (window == NULL) {</div>
<div class="line"><a name="l05424"></a><span class="lineno"> 5424</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">": thread_tkwait: "</span>,</div>
<div class="line"><a name="l05425"></a><span class="lineno"> 5425</span>  <span class="stringliteral">"no main-window (not Tk application?)"</span>,</div>
<div class="line"><a name="l05426"></a><span class="lineno"> 5426</span>  (<span class="keywordtype">char</span>*)NULL);</div>
<div class="line"><a name="l05427"></a><span class="lineno"> 5427</span> </div>
<div class="line"><a name="l05428"></a><span class="lineno"> 5428</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05429"></a><span class="lineno"> 5429</span> </div>
<div class="line"><a name="l05430"></a><span class="lineno"> 5430</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05431"></a><span class="lineno"> 5431</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)param, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l05432"></a><span class="lineno"> 5432</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05433"></a><span class="lineno"> 5433</span> <span class="preprocessor"></span><span class="preprocessor">#if 1 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05434"></a><span class="lineno"> 5434</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(param);</div>
<div class="line"><a name="l05435"></a><span class="lineno"> 5435</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05436"></a><span class="lineno"> 5436</span> <span class="preprocessor"></span> <span class="comment">/* Tcl_Free((char *)param); */</span></div>
<div class="line"><a name="l05437"></a><span class="lineno"> 5437</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span> *)param);</div>
<div class="line"><a name="l05438"></a><span class="lineno"> 5438</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05439"></a><span class="lineno"> 5439</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05440"></a><span class="lineno"> 5440</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05441"></a><span class="lineno"> 5441</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(tkwin);</div>
<div class="line"><a name="l05442"></a><span class="lineno"> 5442</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l05443"></a><span class="lineno"> 5443</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l05444"></a><span class="lineno"> 5444</span>  }</div>
<div class="line"><a name="l05445"></a><span class="lineno"> 5445</span> </div>
<div class="line"><a name="l05446"></a><span class="lineno"> 5446</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>(window);</div>
<div class="line"><a name="l05447"></a><span class="lineno"> 5447</span> </div>
<div class="line"><a name="l05448"></a><span class="lineno"> 5448</span>  Tk_CreateEventHandler(window, StructureNotifyMask,</div>
<div class="line"><a name="l05449"></a><span class="lineno"> 5449</span>  rb_threadWaitWindowProc, (ClientData) param);</div>
<div class="line"><a name="l05450"></a><span class="lineno"> 5450</span> </div>
<div class="line"><a name="l05451"></a><span class="lineno"> 5451</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05452"></a><span class="lineno"> 5452</span> </div>
<div class="line"><a name="l05453"></a><span class="lineno"> 5453</span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#a3599199839a89e99a2ce29d45312b5cf">tv_sec</a> = 0;</div>
<div class="line"><a name="l05454"></a><span class="lineno"> 5454</span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#aa8396731f2914f9ed2a457d3da602b80">tv_usec</a> = (<a class="code" href="../../d3/d15/name2ctype_8h.html#a86f2415763322050063a5502f87c9422">long</a>)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd2530678e6262a587dd99dedeb053b">EVENT_HANDLER_TIMEOUT</a>)*1000.0);</div>
<div class="line"><a name="l05455"></a><span class="lineno"> 5455</span> </div>
<div class="line"><a name="l05456"></a><span class="lineno"> 5456</span>  <span class="keywordflow">while</span>(param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> != <a class="code" href="../../d5/d9d/tcltklib_8c.html#add9a7c9b57ebc6b1e1a25640d8e17e29">TKWAIT_MODE_DESTROY</a>) {</div>
<div class="line"><a name="l05457"></a><span class="lineno"> 5457</span>  <span class="comment">/* rb_thread_stop(); */</span></div>
<div class="line"><a name="l05458"></a><span class="lineno"> 5458</span>  <span class="comment">/* rb_thread_sleep_forever(); */</span></div>
<div class="line"><a name="l05459"></a><span class="lineno"> 5459</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8a3ea241e062a8c0dcd87b7232ca4900">rb_thread_wait_for</a>(t);</div>
<div class="line"><a name="l05460"></a><span class="lineno"> 5460</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread)) {</div>
<div class="line"><a name="l05461"></a><span class="lineno"> 5461</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l05462"></a><span class="lineno"> 5462</span>  }</div>
<div class="line"><a name="l05463"></a><span class="lineno"> 5463</span>  }</div>
<div class="line"><a name="l05464"></a><span class="lineno"> 5464</span> </div>
<div class="line"><a name="l05465"></a><span class="lineno"> 5465</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(window);</div>
<div class="line"><a name="l05466"></a><span class="lineno"> 5466</span> </div>
<div class="line"><a name="l05467"></a><span class="lineno"> 5467</span>  <span class="comment">/* when a window is destroyed, no need to call Tk_DeleteEventHandler</span></div>
<div class="line"><a name="l05468"></a><span class="lineno"> 5468</span> <span class="comment"> thr_crit_bup = rb_thread_critical;</span></div>
<div class="line"><a name="l05469"></a><span class="lineno"> 5469</span> <span class="comment"> rb_thread_critical = Qtrue;</span></div>
<div class="line"><a name="l05470"></a><span class="lineno"> 5470</span> <span class="comment"></span></div>
<div class="line"><a name="l05471"></a><span class="lineno"> 5471</span> <span class="comment"> Tk_DeleteEventHandler(window, StructureNotifyMask,</span></div>
<div class="line"><a name="l05472"></a><span class="lineno"> 5472</span> <span class="comment"> rb_threadWaitWindowProc, (ClientData) param);</span></div>
<div class="line"><a name="l05473"></a><span class="lineno"> 5473</span> <span class="comment"></span></div>
<div class="line"><a name="l05474"></a><span class="lineno"> 5474</span> <span class="comment"> rb_thread_critical = thr_crit_bup;</span></div>
<div class="line"><a name="l05475"></a><span class="lineno"> 5475</span> <span class="comment"> */</span></div>
<div class="line"><a name="l05476"></a><span class="lineno"> 5476</span> </div>
<div class="line"><a name="l05477"></a><span class="lineno"> 5477</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l05478"></a><span class="lineno"> 5478</span>  } <span class="comment">/* end of 'switch' statement */</span></div>
<div class="line"><a name="l05479"></a><span class="lineno"> 5479</span> </div>
<div class="line"><a name="l05480"></a><span class="lineno"> 5480</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05481"></a><span class="lineno"> 5481</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)param, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l05482"></a><span class="lineno"> 5482</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05483"></a><span class="lineno"> 5483</span> <span class="preprocessor"></span><span class="preprocessor">#if 1 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05484"></a><span class="lineno"> 5484</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)param);</div>
<div class="line"><a name="l05485"></a><span class="lineno"> 5485</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05486"></a><span class="lineno"> 5486</span> <span class="preprocessor"></span> <span class="comment">/* Tcl_Free((char *)param); */</span></div>
<div class="line"><a name="l05487"></a><span class="lineno"> 5487</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span> *)param);</div>
<div class="line"><a name="l05488"></a><span class="lineno"> 5488</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05489"></a><span class="lineno"> 5489</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05490"></a><span class="lineno"> 5490</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05491"></a><span class="lineno"> 5491</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l05492"></a><span class="lineno"> 5492</span> <span class="comment"> * Clear out the interpreter's result, since it may have been set</span></div>
<div class="line"><a name="l05493"></a><span class="lineno"> 5493</span> <span class="comment"> * by event handlers.</span></div>
<div class="line"><a name="l05494"></a><span class="lineno"> 5494</span> <span class="comment"> */</span></div>
<div class="line"><a name="l05495"></a><span class="lineno"> 5495</span> </div>
<div class="line"><a name="l05496"></a><span class="lineno"> 5496</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l05497"></a><span class="lineno"> 5497</span> </div>
<div class="line"><a name="l05498"></a><span class="lineno"> 5498</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(tkwin);</div>
<div class="line"><a name="l05499"></a><span class="lineno"> 5499</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(interp);</div>
<div class="line"><a name="l05500"></a><span class="lineno"> 5500</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>;</div>
<div class="line"><a name="l05501"></a><span class="lineno"> 5501</span> }</div>
<div class="line"><a name="l05502"></a><span class="lineno"> 5502</span> </div>
<div class="line"><a name="l05503"></a><span class="lineno"> 5503</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l05504"></a><span class="lineno"> 5504</span> ip_thread_vwait(<span class="keyword">self</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad735822f5b119c0d298a339ee2130700">var</a>)</div>
<div class="line"><a name="l05505"></a><span class="lineno"> 5505</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l05506"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad735822f5b119c0d298a339ee2130700"> 5506</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad735822f5b119c0d298a339ee2130700">var</a>;</div>
<div class="line"><a name="l05507"></a><span class="lineno"> 5507</span> {</div>
<div class="line"><a name="l05508"></a><span class="lineno"> 5508</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> argv[2];</div>
<div class="line"><a name="l05509"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a13159ee6a4cfa4f10d10df77692299da"> 5509</a></span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a13159ee6a4cfa4f10d10df77692299da">cmd_str</a> = <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<span class="stringliteral">"thread_vwait"</span>);</div>
<div class="line"><a name="l05510"></a><span class="lineno"> 5510</span> </div>
<div class="line"><a name="l05511"></a><span class="lineno"> 5511</span>  argv[0] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a13159ee6a4cfa4f10d10df77692299da">cmd_str</a>;</div>
<div class="line"><a name="l05512"></a><span class="lineno"> 5512</span>  argv[1] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad735822f5b119c0d298a339ee2130700">var</a>;</div>
<div class="line"><a name="l05513"></a><span class="lineno"> 5513</span> </div>
<div class="line"><a name="l05514"></a><span class="lineno"> 5514</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4e91b9e886dae0d01fd4bafde08e24fd">ip_invoke_with_position</a>(2, argv, <span class="keyword">self</span>, TCL_QUEUE_TAIL);</div>
<div class="line"><a name="l05515"></a><span class="lineno"> 5515</span> }</div>
<div class="line"><a name="l05516"></a><span class="lineno"> 5516</span> </div>
<div class="line"><a name="l05517"></a><span class="lineno"> 5517</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l05518"></a><span class="lineno"> 5518</span> ip_thread_tkwait(<span class="keyword">self</span>, mode, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4fe3b9865c6159c57a216b08327c02e3">target</a>)</div>
<div class="line"><a name="l05519"></a><span class="lineno"> 5519</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l05520"></a><span class="lineno"> 5520</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> mode;</div>
<div class="line"><a name="l05521"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a4fe3b9865c6159c57a216b08327c02e3"> 5521</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4fe3b9865c6159c57a216b08327c02e3">target</a>;</div>
<div class="line"><a name="l05522"></a><span class="lineno"> 5522</span> {</div>
<div class="line"><a name="l05523"></a><span class="lineno"> 5523</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> argv[3];</div>
<div class="line"><a name="l05524"></a><span class="lineno"> 5524</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a13159ee6a4cfa4f10d10df77692299da">cmd_str</a> = <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<span class="stringliteral">"thread_tkwait"</span>);</div>
<div class="line"><a name="l05525"></a><span class="lineno"> 5525</span> </div>
<div class="line"><a name="l05526"></a><span class="lineno"> 5526</span>  argv[0] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a13159ee6a4cfa4f10d10df77692299da">cmd_str</a>;</div>
<div class="line"><a name="l05527"></a><span class="lineno"> 5527</span>  argv[1] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a87dd7b0b5f4a611ddf0a5257cba792c7">mode</a>;</div>
<div class="line"><a name="l05528"></a><span class="lineno"> 5528</span>  argv[2] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4fe3b9865c6159c57a216b08327c02e3">target</a>;</div>
<div class="line"><a name="l05529"></a><span class="lineno"> 5529</span> </div>
<div class="line"><a name="l05530"></a><span class="lineno"> 5530</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4e91b9e886dae0d01fd4bafde08e24fd">ip_invoke_with_position</a>(3, argv, <span class="keyword">self</span>, TCL_QUEUE_TAIL);</div>
<div class="line"><a name="l05531"></a><span class="lineno"> 5531</span> }</div>
<div class="line"><a name="l05532"></a><span class="lineno"> 5532</span> </div>
<div class="line"><a name="l05533"></a><span class="lineno"> 5533</span> </div>
<div class="line"><a name="l05534"></a><span class="lineno"> 5534</span> <span class="comment">/* delete slave interpreters */</span></div>
<div class="line"><a name="l05535"></a><span class="lineno"> 5535</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05536"></a><span class="lineno"> 5536</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l05537"></a><span class="lineno"> 5537</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad7955c6a8d835246802b74bbd0e713d1">delete_slaves</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a5bf8c7d566a18c53fc425715e26bb026">ip</a>)</div>
<div class="line"><a name="l05538"></a><span class="lineno"> 5538</span>  Tcl_Interp *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a5bf8c7d566a18c53fc425715e26bb026">ip</a>;</div>
<div class="line"><a name="l05539"></a><span class="lineno"> 5539</span> {</div>
<div class="line"><a name="l05540"></a><span class="lineno"> 5540</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05541"></a><span class="lineno"> 5541</span>  Tcl_Interp *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a8c24db62cf234c17291046896d674f50">slave</a>;</div>
<div class="line"><a name="l05542"></a><span class="lineno"> 5542</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#aa72df76f125b9271bd55ce079c1b685b">slave_list</a>, *<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab64e6b918a36b9710aafffe51be53d67">elem</a>;</div>
<div class="line"><a name="l05543"></a><span class="lineno"> 5543</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a59f342822337bf4ec5a8fdcf33662d92">slave_name</a>;</div>
<div class="line"><a name="l05544"></a><span class="lineno"> 5544</span>  <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>, <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>;</div>
<div class="line"><a name="l05545"></a><span class="lineno"> 5545</span> </div>
<div class="line"><a name="l05546"></a><span class="lineno"> 5546</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"delete slaves"</span>);</div>
<div class="line"><a name="l05547"></a><span class="lineno"> 5547</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l05548"></a><span class="lineno"> 5548</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l05549"></a><span class="lineno"> 5549</span> </div>
<div class="line"><a name="l05550"></a><span class="lineno"> 5550</span>  <span class="keywordflow">if</span> (!Tcl_InterpDeleted(ip) && <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7e05442307639ca746f2560593ca9ca9">Tcl_Eval</a>(ip, <span class="stringliteral">"interp slaves"</span>) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l05551"></a><span class="lineno"> 5551</span>  slave_list = Tcl_GetObjResult(ip);</div>
<div class="line"><a name="l05552"></a><span class="lineno"> 5552</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(slave_list);</div>
<div class="line"><a name="l05553"></a><span class="lineno"> 5553</span> </div>
<div class="line"><a name="l05554"></a><span class="lineno"> 5554</span>  <span class="keywordflow">if</span> (Tcl_ListObjLength((Tcl_Interp*)NULL, slave_list, &len) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l05555"></a><span class="lineno"> 5555</span>  <span class="keywordflow">for</span>(i = 0; i < <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>; i++) {</div>
<div class="line"><a name="l05556"></a><span class="lineno"> 5556</span>  Tcl_ListObjIndex((Tcl_Interp*)NULL, slave_list, i, &elem);</div>
<div class="line"><a name="l05557"></a><span class="lineno"> 5557</span> </div>
<div class="line"><a name="l05558"></a><span class="lineno"> 5558</span>  <span class="keywordflow">if</span> (elem == (Tcl_Obj*)NULL) <span class="keywordflow">continue</span>;</div>
<div class="line"><a name="l05559"></a><span class="lineno"> 5559</span> </div>
<div class="line"><a name="l05560"></a><span class="lineno"> 5560</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(elem);</div>
<div class="line"><a name="l05561"></a><span class="lineno"> 5561</span> </div>
<div class="line"><a name="l05562"></a><span class="lineno"> 5562</span>  <span class="comment">/* get slave */</span></div>
<div class="line"><a name="l05563"></a><span class="lineno"> 5563</span>  <span class="comment">/* slave_name = Tcl_GetString(elem); */</span></div>
<div class="line"><a name="l05564"></a><span class="lineno"> 5564</span>  slave_name = Tcl_GetStringFromObj(elem, (<span class="keywordtype">int</span>*)NULL);</div>
<div class="line"><a name="l05565"></a><span class="lineno"> 5565</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"delete slave:'%s'"</span>, slave_name);</div>
<div class="line"><a name="l05566"></a><span class="lineno"> 5566</span> </div>
<div class="line"><a name="l05567"></a><span class="lineno"> 5567</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(elem);</div>
<div class="line"><a name="l05568"></a><span class="lineno"> 5568</span> </div>
<div class="line"><a name="l05569"></a><span class="lineno"> 5569</span>  slave = Tcl_GetSlave(ip, slave_name);</div>
<div class="line"><a name="l05570"></a><span class="lineno"> 5570</span>  <span class="keywordflow">if</span> (slave == (Tcl_Interp*)NULL) <span class="keywordflow">continue</span>;</div>
<div class="line"><a name="l05571"></a><span class="lineno"> 5571</span> </div>
<div class="line"><a name="l05572"></a><span class="lineno"> 5572</span>  <span class="keywordflow">if</span> (!Tcl_InterpDeleted(slave)) {</div>
<div class="line"><a name="l05573"></a><span class="lineno"> 5573</span>  <span class="comment">/* call ip_finalize */</span></div>
<div class="line"><a name="l05574"></a><span class="lineno"> 5574</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7b427778f1e496ccefedf89b5667e319">ip_finalize</a>(slave);</div>
<div class="line"><a name="l05575"></a><span class="lineno"> 5575</span> </div>
<div class="line"><a name="l05576"></a><span class="lineno"> 5576</span>  Tcl_DeleteInterp(slave);</div>
<div class="line"><a name="l05577"></a><span class="lineno"> 5577</span>  <span class="comment">/* Tcl_Release(slave); */</span></div>
<div class="line"><a name="l05578"></a><span class="lineno"> 5578</span>  }</div>
<div class="line"><a name="l05579"></a><span class="lineno"> 5579</span>  }</div>
<div class="line"><a name="l05580"></a><span class="lineno"> 5580</span>  }</div>
<div class="line"><a name="l05581"></a><span class="lineno"> 5581</span> </div>
<div class="line"><a name="l05582"></a><span class="lineno"> 5582</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(slave_list);</div>
<div class="line"><a name="l05583"></a><span class="lineno"> 5583</span>  }</div>
<div class="line"><a name="l05584"></a><span class="lineno"> 5584</span> </div>
<div class="line"><a name="l05585"></a><span class="lineno"> 5585</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05586"></a><span class="lineno"> 5586</span> }</div>
<div class="line"><a name="l05587"></a><span class="lineno"> 5587</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05588"></a><span class="lineno"> 5588</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l05589"></a><span class="lineno"> 5589</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad7955c6a8d835246802b74bbd0e713d1">delete_slaves</a>(ip)</div>
<div class="line"><a name="l05590"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5bf8c7d566a18c53fc425715e26bb026"> 5590</a></span>  Tcl_Interp *ip;</div>
<div class="line"><a name="l05591"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8c24db62cf234c17291046896d674f50"> 5591</a></span> {</div>
<div class="line"><a name="l05592"></a><span class="lineno"> 5592</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05593"></a><span class="lineno"> 5593</span>  Tcl_Interp *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a8c24db62cf234c17291046896d674f50">slave</a>;</div>
<div class="line"><a name="l05594"></a><span class="lineno"> 5594</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>;</div>
<div class="line"><a name="l05595"></a><span class="lineno"> 5595</span>  <span class="keywordtype">char</span> **<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab9ebbdd4596789afb752d19fca153ee5">argv</a>;</div>
<div class="line"><a name="l05596"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa72df76f125b9271bd55ce079c1b685b"> 5596</a></span>  <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#aa72df76f125b9271bd55ce079c1b685b">slave_list</a>;</div>
<div class="line"><a name="l05597"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a59f342822337bf4ec5a8fdcf33662d92"> 5597</a></span>  <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a59f342822337bf4ec5a8fdcf33662d92">slave_name</a>;</div>
<div class="line"><a name="l05598"></a><span class="lineno"> 5598</span>  <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>, <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>;</div>
<div class="line"><a name="l05599"></a><span class="lineno"> 5599</span> </div>
<div class="line"><a name="l05600"></a><span class="lineno"> 5600</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"delete slaves"</span>);</div>
<div class="line"><a name="l05601"></a><span class="lineno"> 5601</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l05602"></a><span class="lineno"> 5602</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l05603"></a><span class="lineno"> 5603</span> </div>
<div class="line"><a name="l05604"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a259843ac1b6ee16b37b44efaa8bf5c38"> 5604</a></span>  <span class="keywordflow">if</span> (!Tcl_InterpDeleted(ip) && <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7e05442307639ca746f2560593ca9ca9">Tcl_Eval</a>(ip, <span class="stringliteral">"interp slaves"</span>) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l05605"></a><span class="lineno"> 5605</span>  slave_list = ip->result;</div>
<div class="line"><a name="l05606"></a><span class="lineno"> 5606</span>  <span class="keywordflow">if</span> (Tcl_SplitList((Tcl_Interp*)NULL,</div>
<div class="line"><a name="l05607"></a><span class="lineno"> 5607</span>  slave_list, &argc, &argv) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l05608"></a><span class="lineno"> 5608</span>  <span class="keywordflow">for</span>(i = 0; i < <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>; i++) {</div>
<div class="line"><a name="l05609"></a><span class="lineno"> 5609</span>  slave_name = argv[<a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>];</div>
<div class="line"><a name="l05610"></a><span class="lineno"> 5610</span> </div>
<div class="line"><a name="l05611"></a><span class="lineno"> 5611</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"delete slave:'%s'"</span>, slave_name);</div>
<div class="line"><a name="l05612"></a><span class="lineno"> 5612</span> </div>
<div class="line"><a name="l05613"></a><span class="lineno"> 5613</span>  slave = Tcl_GetSlave(ip, slave_name);</div>
<div class="line"><a name="l05614"></a><span class="lineno"> 5614</span>  <span class="keywordflow">if</span> (slave == (Tcl_Interp*)NULL) <span class="keywordflow">continue</span>;</div>
<div class="line"><a name="l05615"></a><span class="lineno"> 5615</span> </div>
<div class="line"><a name="l05616"></a><span class="lineno"> 5616</span>  <span class="keywordflow">if</span> (!Tcl_InterpDeleted(slave)) {</div>
<div class="line"><a name="l05617"></a><span class="lineno"> 5617</span>  <span class="comment">/* call ip_finalize */</span></div>
<div class="line"><a name="l05618"></a><span class="lineno"> 5618</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7b427778f1e496ccefedf89b5667e319">ip_finalize</a>(slave);</div>
<div class="line"><a name="l05619"></a><span class="lineno"> 5619</span> </div>
<div class="line"><a name="l05620"></a><span class="lineno"> 5620</span>  Tcl_DeleteInterp(slave);</div>
<div class="line"><a name="l05621"></a><span class="lineno"> 5621</span>  }</div>
<div class="line"><a name="l05622"></a><span class="lineno"> 5622</span>  }</div>
<div class="line"><a name="l05623"></a><span class="lineno"> 5623</span>  }</div>
<div class="line"><a name="l05624"></a><span class="lineno"> 5624</span>  }</div>
<div class="line"><a name="l05625"></a><span class="lineno"> 5625</span> </div>
<div class="line"><a name="l05626"></a><span class="lineno"> 5626</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05627"></a><span class="lineno"> 5627</span> }</div>
<div class="line"><a name="l05628"></a><span class="lineno"> 5628</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05629"></a><span class="lineno"> 5629</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05630"></a><span class="lineno"> 5630</span> </div>
<div class="line"><a name="l05631"></a><span class="lineno"> 5631</span> <span class="comment">/* finalize operation */</span></div>
<div class="line"><a name="l05632"></a><span class="lineno"> 5632</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l05633"></a><span class="lineno"> 5633</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div>
<div class="line"><a name="l05634"></a><span class="lineno"> 5634</span> <span class="preprocessor"></span>lib_mark_at_exit(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <span class="keyword">self</span>)</div>
<div class="line"><a name="l05635"></a><span class="lineno"> 5635</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05636"></a><span class="lineno"> 5636</span> <span class="preprocessor"></span>lib_mark_at_exit(<span class="keyword">self</span>)</div>
<div class="line"><a name="l05637"></a><span class="lineno"> 5637</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l05638"></a><span class="lineno"> 5638</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05639"></a><span class="lineno"> 5639</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l05640"></a><span class="lineno"> 5640</span>  at_exit = 1;</div>
<div class="line"><a name="l05641"></a><span class="lineno"> 5641</span> }</div>
<div class="line"><a name="l05642"></a><span class="lineno"> 5642</span> </div>
<div class="line"><a name="l05643"></a><span class="lineno"> 5643</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l05644"></a><span class="lineno"> 5644</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05645"></a><span class="lineno"> 5645</span> <span class="preprocessor"></span><span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div>
<div class="line"><a name="l05646"></a><span class="lineno"> 5646</span> <span class="preprocessor"></span>ip_null_proc(ClientData clientData, Tcl_Interp *interp,</div>
<div class="line"><a name="l05647"></a><span class="lineno"> 5647</span>  <span class="keywordtype">int</span> argc, Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> argv[])</div>
<div class="line"><a name="l05648"></a><span class="lineno"> 5648</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05649"></a><span class="lineno"> 5649</span> <span class="preprocessor"></span>ip_null_proc(clientData, interp, argc, argv)</div>
<div class="line"><a name="l05650"></a><span class="lineno"> 5650</span>  ClientData clientData;</div>
<div class="line"><a name="l05651"></a><span class="lineno"> 5651</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l05652"></a><span class="lineno"> 5652</span>  <span class="keywordtype">int</span> argc;</div>
<div class="line"><a name="l05653"></a><span class="lineno"> 5653</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> argv[];</div>
<div class="line"><a name="l05654"></a><span class="lineno"> 5654</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05655"></a><span class="lineno"> 5655</span> <span class="preprocessor"></span><span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05656"></a><span class="lineno"> 5656</span> <span class="preprocessor"></span><span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div>
<div class="line"><a name="l05657"></a><span class="lineno"> 5657</span> <span class="preprocessor"></span>ip_null_proc(ClientData clientData, Tcl_Interp *interp, <span class="keywordtype">int</span> argc, <span class="keywordtype">char</span> *argv[])</div>
<div class="line"><a name="l05658"></a><span class="lineno"> 5658</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05659"></a><span class="lineno"> 5659</span> <span class="preprocessor"></span>ip_null_proc(clientData, interp, argc, argv)</div>
<div class="line"><a name="l05660"></a><span class="lineno"> 5660</span>  ClientData clientData;</div>
<div class="line"><a name="l05661"></a><span class="lineno"> 5661</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l05662"></a><span class="lineno"> 5662</span>  <span class="keywordtype">int</span> argc;</div>
<div class="line"><a name="l05663"></a><span class="lineno"> 5663</span>  <span class="keywordtype">char</span> *argv[];</div>
<div class="line"><a name="l05664"></a><span class="lineno"> 5664</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05665"></a><span class="lineno"> 5665</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05666"></a><span class="lineno"> 5666</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l05667"></a><span class="lineno"> 5667</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l05668"></a><span class="lineno"> 5668</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>;</div>
<div class="line"><a name="l05669"></a><span class="lineno"> 5669</span> }</div>
<div class="line"><a name="l05670"></a><span class="lineno"> 5670</span> </div>
<div class="line"><a name="l05671"></a><span class="lineno"> 5671</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l05672"></a><span class="lineno"> 5672</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7b427778f1e496ccefedf89b5667e319">ip_finalize</a>(ip)</div>
<div class="line"><a name="l05673"></a><span class="lineno"> 5673</span>  Tcl_Interp *ip;</div>
<div class="line"><a name="l05674"></a><span class="lineno"> 5674</span> {</div>
<div class="line"><a name="l05675"></a><span class="lineno"> 5675</span>  Tcl_CmdInfo <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0519a447ec4809b051ea38b41c4012a6">info</a>;</div>
<div class="line"><a name="l05676"></a><span class="lineno"> 5676</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05677"></a><span class="lineno"> 5677</span> </div>
<div class="line"><a name="l05678"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ab81049b2151eefca8f778de90358f7b4"> 5678</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a515edd407ed841add89c728a46521d3a">rb_debug_bup</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab81049b2151eefca8f778de90358f7b4">rb_verbose_bup</a>;</div>
<div class="line"><a name="l05679"></a><span class="lineno"> 5679</span>  <span class="comment">/* When ruby is exiting, printing debug messages in some callback</span></div>
<div class="line"><a name="l05680"></a><span class="lineno"> 5680</span> <span class="comment"> operations from Tcl-IP sometimes cause SEGV. I don't know the</span></div>
<div class="line"><a name="l05681"></a><span class="lineno"> 5681</span> <span class="comment"> reason. But I got SEGV when calling "rb_io_write(rb_stdout, ...)".</span></div>
<div class="line"><a name="l05682"></a><span class="lineno"> 5682</span> <span class="comment"> So, in some part of this function, debug mode and verbose mode</span></div>
<div class="line"><a name="l05683"></a><span class="lineno"> 5683</span> <span class="comment"> are disabled. If you know the reason, please fix it.</span></div>
<div class="line"><a name="l05684"></a><span class="lineno"> 5684</span> <span class="comment"> -- Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp) */</span></div>
<div class="line"><a name="l05685"></a><span class="lineno"> 5685</span> </div>
<div class="line"><a name="l05686"></a><span class="lineno"> 5686</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"start ip_finalize"</span>);</div>
<div class="line"><a name="l05687"></a><span class="lineno"> 5687</span> </div>
<div class="line"><a name="l05688"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a343439ecd7c5632abcabebe2d2a20ee1"> 5688</a></span>  <span class="keywordflow">if</span> (ip == (Tcl_Interp*)NULL) {</div>
<div class="line"><a name="l05689"></a><span class="lineno"> 5689</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"ip is NULL"</span>);</div>
<div class="line"><a name="l05690"></a><span class="lineno"> 5690</span>  <span class="keywordflow">return</span>;</div>
<div class="line"><a name="l05691"></a><span class="lineno"> 5691</span>  }</div>
<div class="line"><a name="l05692"></a><span class="lineno"> 5692</span> </div>
<div class="line"><a name="l05693"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac97811d675ac356aab9a4085f7059dad"> 5693</a></span>  <span class="keywordflow">if</span> (Tcl_InterpDeleted(ip)) {</div>
<div class="line"><a name="l05694"></a><span class="lineno"> 5694</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"ip(%p) is already deleted"</span>, ip);</div>
<div class="line"><a name="l05695"></a><span class="lineno"> 5695</span>  <span class="keywordflow">return</span>;</div>
<div class="line"><a name="l05696"></a><span class="lineno"> 5696</span>  }</div>
<div class="line"><a name="l05697"></a><span class="lineno"> 5697</span> </div>
<div class="line"><a name="l05698"></a><span class="lineno"> 5698</span> <span class="preprocessor">#if TCL_NAMESPACE_DEBUG</span></div>
<div class="line"><a name="l05699"></a><span class="lineno"> 5699</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (ip_null_namespace(ip)) {</div>
<div class="line"><a name="l05700"></a><span class="lineno"> 5700</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"ip(%p) has null namespace"</span>, ip);</div>
<div class="line"><a name="l05701"></a><span class="lineno"> 5701</span>  <span class="keywordflow">return</span>;</div>
<div class="line"><a name="l05702"></a><span class="lineno"> 5702</span>  }</div>
<div class="line"><a name="l05703"></a><span class="lineno"> 5703</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05704"></a><span class="lineno"> 5704</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05705"></a><span class="lineno"> 5705</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l05706"></a><span class="lineno"> 5706</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l05707"></a><span class="lineno"> 5707</span> </div>
<div class="line"><a name="l05708"></a><span class="lineno"> 5708</span>  rb_debug_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a845f15fbef3559c1e9d926a9dfca755f">ruby_debug</a>;</div>
<div class="line"><a name="l05709"></a><span class="lineno"> 5709</span>  rb_verbose_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a18061f301f8cacbf9935b94d3f9a11ee">ruby_verbose</a>;</div>
<div class="line"><a name="l05710"></a><span class="lineno"> 5710</span> </div>
<div class="line"><a name="l05711"></a><span class="lineno"> 5711</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>(ip);</div>
<div class="line"><a name="l05712"></a><span class="lineno"> 5712</span> </div>
<div class="line"><a name="l05713"></a><span class="lineno"> 5713</span>  <span class="comment">/* delete slaves */</span></div>
<div class="line"><a name="l05714"></a><span class="lineno"> 5714</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad7955c6a8d835246802b74bbd0e713d1">delete_slaves</a>(ip);</div>
<div class="line"><a name="l05715"></a><span class="lineno"> 5715</span> </div>
<div class="line"><a name="l05716"></a><span class="lineno"> 5716</span>  <span class="comment">/* shut off some connections from Tcl-proc to Ruby */</span></div>
<div class="line"><a name="l05717"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7c910d60048f9fa5a7cbea84702fb640"> 5717</a></span>  <span class="keywordflow">if</span> (at_exit) {</div>
<div class="line"><a name="l05718"></a><span class="lineno"> 5718</span>  <span class="comment">/* NOTE: Only when at exit.</span></div>
<div class="line"><a name="l05719"></a><span class="lineno"> 5719</span> <span class="comment"> Because, ruby removes objects, which depends on the deleted</span></div>
<div class="line"><a name="l05720"></a><span class="lineno"> 5720</span> <span class="comment"> interpreter, on some callback operations.</span></div>
<div class="line"><a name="l05721"></a><span class="lineno"> 5721</span> <span class="comment"> It is important for GC. */</span></div>
<div class="line"><a name="l05722"></a><span class="lineno"> 5722</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05723"></a><span class="lineno"> 5723</span> <span class="preprocessor"></span> Tcl_CreateObjCommand(ip, <span class="stringliteral">"ruby"</span>, ip_null_proc,</div>
<div class="line"><a name="l05724"></a><span class="lineno"> 5724</span>  (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l05725"></a><span class="lineno"> 5725</span>  Tcl_CreateObjCommand(ip, <span class="stringliteral">"ruby_eval"</span>, ip_null_proc,</div>
<div class="line"><a name="l05726"></a><span class="lineno"> 5726</span>  (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l05727"></a><span class="lineno"> 5727</span>  Tcl_CreateObjCommand(ip, <span class="stringliteral">"ruby_cmd"</span>, ip_null_proc,</div>
<div class="line"><a name="l05728"></a><span class="lineno"> 5728</span>  (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l05729"></a><span class="lineno"> 5729</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05730"></a><span class="lineno"> 5730</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(ip, <span class="stringliteral">"ruby"</span>, ip_null_proc,</div>
<div class="line"><a name="l05731"></a><span class="lineno"> 5731</span>  (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l05732"></a><span class="lineno"> 5732</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(ip, <span class="stringliteral">"ruby_eval"</span>, ip_null_proc,</div>
<div class="line"><a name="l05733"></a><span class="lineno"> 5733</span>  (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l05734"></a><span class="lineno"> 5734</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(ip, <span class="stringliteral">"ruby_cmd"</span>, ip_null_proc,</div>
<div class="line"><a name="l05735"></a><span class="lineno"> 5735</span>  (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l05736"></a><span class="lineno"> 5736</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05737"></a><span class="lineno"> 5737</span> <span class="preprocessor"></span> <span class="comment">/*</span></div>
<div class="line"><a name="l05738"></a><span class="lineno"> 5738</span> <span class="comment"> rb_thread_critical = thr_crit_bup;</span></div>
<div class="line"><a name="l05739"></a><span class="lineno"> 5739</span> <span class="comment"> return;</span></div>
<div class="line"><a name="l05740"></a><span class="lineno"> 5740</span> <span class="comment"> */</span></div>
<div class="line"><a name="l05741"></a><span class="lineno"> 5741</span>  }</div>
<div class="line"><a name="l05742"></a><span class="lineno"> 5742</span> </div>
<div class="line"><a name="l05743"></a><span class="lineno"> 5743</span>  <span class="comment">/* delete root widget */</span></div>
<div class="line"><a name="l05744"></a><span class="lineno"> 5744</span> <span class="preprocessor">#ifdef RUBY_VM</span></div>
<div class="line"><a name="l05745"></a><span class="lineno"> 5745</span> <span class="preprocessor"></span> <span class="comment">/* cause SEGV on Ruby 1.9 */</span></div>
<div class="line"><a name="l05746"></a><span class="lineno"> 5746</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05747"></a><span class="lineno"> 5747</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"check `destroy'"</span>);</div>
<div class="line"><a name="l05748"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8f3acaf5d897abdab4a230b981b600ce"> 5748</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad5c254c9258200de195897a1d1791732">Tcl_GetCommandInfo</a>(ip, <span class="stringliteral">"destroy"</span>, &info)) {</div>
<div class="line"><a name="l05749"></a><span class="lineno"> 5749</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call `destroy .'"</span>);</div>
<div class="line"><a name="l05750"></a><span class="lineno"> 5750</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1011eb5bef1d3b60fdf51e46ce243153">Tcl_GlobalEval</a>(ip, <span class="stringliteral">"catch {destroy .}"</span>);</div>
<div class="line"><a name="l05751"></a><span class="lineno"> 5751</span>  }</div>
<div class="line"><a name="l05752"></a><span class="lineno"> 5752</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05753"></a><span class="lineno"> 5753</span> <span class="preprocessor"></span><span class="preprocessor">#if 1</span></div>
<div class="line"><a name="l05754"></a><span class="lineno"> 5754</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"destroy root widget"</span>);</div>
<div class="line"><a name="l05755"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a842f70fef1954b6ba3452e2549e5095f"> 5755</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>() && Tk_MainWindow(ip) != (Tk_Window)NULL) {</div>
<div class="line"><a name="l05756"></a><span class="lineno"> 5756</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l05757"></a><span class="lineno"> 5757</span> <span class="comment"> * On Ruby VM, this code piece may be not called, because</span></div>
<div class="line"><a name="l05758"></a><span class="lineno"> 5758</span> <span class="comment"> * Tk_MainWindow() returns NULL on a native thread except</span></div>
<div class="line"><a name="l05759"></a><span class="lineno"> 5759</span> <span class="comment"> * the thread which initialize Tk environment.</span></div>
<div class="line"><a name="l05760"></a><span class="lineno"> 5760</span> <span class="comment"> * Of course, that is a problem. But maybe not so serious.</span></div>
<div class="line"><a name="l05761"></a><span class="lineno"> 5761</span> <span class="comment"> * All widgets are destroyed when the Tcl interp is deleted.</span></div>
<div class="line"><a name="l05762"></a><span class="lineno"> 5762</span> <span class="comment"> * At then, Ruby may raise exceptions on the delete hook</span></div>
<div class="line"><a name="l05763"></a><span class="lineno"> 5763</span> <span class="comment"> * callbacks which registered for the deleted widgets, and</span></div>
<div class="line"><a name="l05764"></a><span class="lineno"> 5764</span> <span class="comment"> * may fail to clear objects which depends on the widgets.</span></div>
<div class="line"><a name="l05765"></a><span class="lineno"> 5765</span> <span class="comment"> * Although it is the problem, it is possibly avoidable by</span></div>
<div class="line"><a name="l05766"></a><span class="lineno"> 5766</span> <span class="comment"> * rescuing exceptions and the finalize hook of the interp.</span></div>
<div class="line"><a name="l05767"></a><span class="lineno"> 5767</span> <span class="comment"> */</span></div>
<div class="line"><a name="l05768"></a><span class="lineno"> 5768</span>  Tk_Window win = Tk_MainWindow(ip);</div>
<div class="line"><a name="l05769"></a><span class="lineno"> 5769</span> </div>
<div class="line"><a name="l05770"></a><span class="lineno"> 5770</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call Tk_DestroyWindow"</span>);</div>
<div class="line"><a name="l05771"></a><span class="lineno"> 5771</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a845f15fbef3559c1e9d926a9dfca755f">ruby_debug</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l05772"></a><span class="lineno"> 5772</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a18061f301f8cacbf9935b94d3f9a11ee">ruby_verbose</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l05773"></a><span class="lineno"> 5773</span>  <span class="keywordflow">if</span> (! (((Tk_FakeWin*)win)->flags & TK_ALREADY_DEAD)) {</div>
<div class="line"><a name="l05774"></a><span class="lineno"> 5774</span>  Tk_DestroyWindow(win);</div>
<div class="line"><a name="l05775"></a><span class="lineno"> 5775</span>  }</div>
<div class="line"><a name="l05776"></a><span class="lineno"> 5776</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a845f15fbef3559c1e9d926a9dfca755f">ruby_debug</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a515edd407ed841add89c728a46521d3a">rb_debug_bup</a>;</div>
<div class="line"><a name="l05777"></a><span class="lineno"> 5777</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a18061f301f8cacbf9935b94d3f9a11ee">ruby_verbose</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab81049b2151eefca8f778de90358f7b4">rb_verbose_bup</a>;</div>
<div class="line"><a name="l05778"></a><span class="lineno"> 5778</span>  }</div>
<div class="line"><a name="l05779"></a><span class="lineno"> 5779</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05780"></a><span class="lineno"> 5780</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05781"></a><span class="lineno"> 5781</span>  <span class="comment">/* call finalize-hook-proc */</span></div>
<div class="line"><a name="l05782"></a><span class="lineno"> 5782</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"check `finalize-hook-proc'"</span>);</div>
<div class="line"><a name="l05783"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aedcc5d9b180d765a0e66fdd7e9a8da16"> 5783</a></span>  <span class="keywordflow">if</span> ( <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad5c254c9258200de195897a1d1791732">Tcl_GetCommandInfo</a>(ip, finalize_hook_name, &info)) {</div>
<div class="line"><a name="l05784"></a><span class="lineno"> 5784</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"call finalize hook proc '%s'"</span>, finalize_hook_name);</div>
<div class="line"><a name="l05785"></a><span class="lineno"> 5785</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a845f15fbef3559c1e9d926a9dfca755f">ruby_debug</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l05786"></a><span class="lineno"> 5786</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a18061f301f8cacbf9935b94d3f9a11ee">ruby_verbose</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l05787"></a><span class="lineno"> 5787</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1011eb5bef1d3b60fdf51e46ce243153">Tcl_GlobalEval</a>(ip, finalize_hook_name);</div>
<div class="line"><a name="l05788"></a><span class="lineno"> 5788</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a845f15fbef3559c1e9d926a9dfca755f">ruby_debug</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a515edd407ed841add89c728a46521d3a">rb_debug_bup</a>;</div>
<div class="line"><a name="l05789"></a><span class="lineno"> 5789</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a18061f301f8cacbf9935b94d3f9a11ee">ruby_verbose</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab81049b2151eefca8f778de90358f7b4">rb_verbose_bup</a>;</div>
<div class="line"><a name="l05790"></a><span class="lineno"> 5790</span>  }</div>
<div class="line"><a name="l05791"></a><span class="lineno"> 5791</span> </div>
<div class="line"><a name="l05792"></a><span class="lineno"> 5792</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"check `foreach' & `after'"</span>);</div>
<div class="line"><a name="l05793"></a><span class="lineno"> 5793</span>  <span class="keywordflow">if</span> ( <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad5c254c9258200de195897a1d1791732">Tcl_GetCommandInfo</a>(ip, <span class="stringliteral">"foreach"</span>, &info)</div>
<div class="line"><a name="l05794"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad5c254c9258200de195897a1d1791732"> 5794</a></span>  && <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad5c254c9258200de195897a1d1791732">Tcl_GetCommandInfo</a>(ip, <span class="stringliteral">"after"</span>, &info) ) {</div>
<div class="line"><a name="l05795"></a><span class="lineno"> 5795</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"cancel after callbacks"</span>);</div>
<div class="line"><a name="l05796"></a><span class="lineno"> 5796</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a845f15fbef3559c1e9d926a9dfca755f">ruby_debug</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l05797"></a><span class="lineno"> 5797</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a18061f301f8cacbf9935b94d3f9a11ee">ruby_verbose</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l05798"></a><span class="lineno"> 5798</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1011eb5bef1d3b60fdf51e46ce243153">Tcl_GlobalEval</a>(ip, <span class="stringliteral">"catch {foreach id [after info] {after cancel $id}}"</span>);</div>
<div class="line"><a name="l05799"></a><span class="lineno"> 5799</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a845f15fbef3559c1e9d926a9dfca755f">ruby_debug</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a515edd407ed841add89c728a46521d3a">rb_debug_bup</a>;</div>
<div class="line"><a name="l05800"></a><span class="lineno"> 5800</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a18061f301f8cacbf9935b94d3f9a11ee">ruby_verbose</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab81049b2151eefca8f778de90358f7b4">rb_verbose_bup</a>;</div>
<div class="line"><a name="l05801"></a><span class="lineno"> 5801</span>  }</div>
<div class="line"><a name="l05802"></a><span class="lineno"> 5802</span> </div>
<div class="line"><a name="l05803"></a><span class="lineno"> 5803</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(ip);</div>
<div class="line"><a name="l05804"></a><span class="lineno"> 5804</span> </div>
<div class="line"><a name="l05805"></a><span class="lineno"> 5805</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"finish ip_finalize"</span>);</div>
<div class="line"><a name="l05806"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a845f15fbef3559c1e9d926a9dfca755f"> 5806</a></span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a845f15fbef3559c1e9d926a9dfca755f">ruby_debug</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a515edd407ed841add89c728a46521d3a">rb_debug_bup</a>;</div>
<div class="line"><a name="l05807"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a18061f301f8cacbf9935b94d3f9a11ee"> 5807</a></span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a18061f301f8cacbf9935b94d3f9a11ee">ruby_verbose</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab81049b2151eefca8f778de90358f7b4">rb_verbose_bup</a>;</div>
<div class="line"><a name="l05808"></a><span class="lineno"> 5808</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05809"></a><span class="lineno"> 5809</span> }</div>
<div class="line"><a name="l05810"></a><span class="lineno"> 5810</span> </div>
<div class="line"><a name="l05811"></a><span class="lineno"> 5811</span> </div>
<div class="line"><a name="l05812"></a><span class="lineno"> 5812</span> <span class="comment">/* destroy interpreter */</span></div>
<div class="line"><a name="l05813"></a><span class="lineno"> 5813</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l05814"></a><span class="lineno"> 5814</span> ip_free(ptr)</div>
<div class="line"><a name="l05815"></a><span class="lineno"> 5815</span>  struct <a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div>
<div class="line"><a name="l05816"></a><span class="lineno"> 5816</span> {</div>
<div class="line"><a name="l05817"></a><span class="lineno"> 5817</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05818"></a><span class="lineno"> 5818</span> </div>
<div class="line"><a name="l05819"></a><span class="lineno"> 5819</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"free Tcl Interp %lx"</span>, (<span class="keywordtype">unsigned</span> <span class="keywordtype">long</span>)ptr->ip);</div>
<div class="line"><a name="l05820"></a><span class="lineno"> 5820</span>  <span class="keywordflow">if</span> (ptr) {</div>
<div class="line"><a name="l05821"></a><span class="lineno"> 5821</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l05822"></a><span class="lineno"> 5822</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l05823"></a><span class="lineno"> 5823</span> </div>
<div class="line"><a name="l05824"></a><span class="lineno"> 5824</span>  <span class="keywordflow">if</span> ( ptr->ip != (Tcl_Interp*)NULL</div>
<div class="line"><a name="l05825"></a><span class="lineno"> 5825</span>  && !Tcl_InterpDeleted(ptr->ip)</div>
<div class="line"><a name="l05826"></a><span class="lineno"> 5826</span>  && Tcl_GetMaster(ptr->ip) != (Tcl_Interp*)NULL</div>
<div class="line"><a name="l05827"></a><span class="lineno"> 5827</span>  && !Tcl_InterpDeleted(Tcl_GetMaster(ptr->ip)) ) {</div>
<div class="line"><a name="l05828"></a><span class="lineno"> 5828</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"parent IP(%lx) is not deleted"</span>,</div>
<div class="line"><a name="l05829"></a><span class="lineno"> 5829</span>  (<span class="keywordtype">unsigned</span> <span class="keywordtype">long</span>)Tcl_GetMaster(ptr->ip));</div>
<div class="line"><a name="l05830"></a><span class="lineno"> 5830</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"slave IP(%lx) should not be deleted"</span>,</div>
<div class="line"><a name="l05831"></a><span class="lineno"> 5831</span>  (<span class="keywordtype">unsigned</span> <span class="keywordtype">long</span>)ptr->ip);</div>
<div class="line"><a name="l05832"></a><span class="lineno"> 5832</span>  <a class="code" href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a>(ptr);</div>
<div class="line"><a name="l05833"></a><span class="lineno"> 5833</span>  <span class="comment">/* ckfree((char*)ptr); */</span></div>
<div class="line"><a name="l05834"></a><span class="lineno"> 5834</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05835"></a><span class="lineno"> 5835</span>  <span class="keywordflow">return</span>;</div>
<div class="line"><a name="l05836"></a><span class="lineno"> 5836</span>  }</div>
<div class="line"><a name="l05837"></a><span class="lineno"> 5837</span> </div>
<div class="line"><a name="l05838"></a><span class="lineno"> 5838</span>  <span class="keywordflow">if</span> (ptr->ip == (Tcl_Interp*)NULL) {</div>
<div class="line"><a name="l05839"></a><span class="lineno"> 5839</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"ip_free is called for deleted IP"</span>);</div>
<div class="line"><a name="l05840"></a><span class="lineno"> 5840</span>  <a class="code" href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a>(ptr);</div>
<div class="line"><a name="l05841"></a><span class="lineno"> 5841</span>  <span class="comment">/* ckfree((char*)ptr); */</span></div>
<div class="line"><a name="l05842"></a><span class="lineno"> 5842</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05843"></a><span class="lineno"> 5843</span>  <span class="keywordflow">return</span>;</div>
<div class="line"><a name="l05844"></a><span class="lineno"> 5844</span>  }</div>
<div class="line"><a name="l05845"></a><span class="lineno"> 5845</span> </div>
<div class="line"><a name="l05846"></a><span class="lineno"> 5846</span>  <span class="keywordflow">if</span> (!Tcl_InterpDeleted(ptr->ip)) {</div>
<div class="line"><a name="l05847"></a><span class="lineno"> 5847</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7b427778f1e496ccefedf89b5667e319">ip_finalize</a>(ptr->ip);</div>
<div class="line"><a name="l05848"></a><span class="lineno"> 5848</span> </div>
<div class="line"><a name="l05849"></a><span class="lineno"> 5849</span>  Tcl_DeleteInterp(ptr->ip);</div>
<div class="line"><a name="l05850"></a><span class="lineno"> 5850</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(ptr->ip);</div>
<div class="line"><a name="l05851"></a><span class="lineno"> 5851</span>  }</div>
<div class="line"><a name="l05852"></a><span class="lineno"> 5852</span> </div>
<div class="line"><a name="l05853"></a><span class="lineno"> 5853</span>  ptr->ip = (Tcl_Interp*)NULL;</div>
<div class="line"><a name="l05854"></a><span class="lineno"> 5854</span>  <a class="code" href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a>(ptr);</div>
<div class="line"><a name="l05855"></a><span class="lineno"> 5855</span>  <span class="comment">/* ckfree((char*)ptr); */</span></div>
<div class="line"><a name="l05856"></a><span class="lineno"> 5856</span> </div>
<div class="line"><a name="l05857"></a><span class="lineno"> 5857</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l05858"></a><span class="lineno"> 5858</span>  }</div>
<div class="line"><a name="l05859"></a><span class="lineno"> 5859</span> </div>
<div class="line"><a name="l05860"></a><span class="lineno"> 5860</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"complete freeing Tcl Interp"</span>);</div>
<div class="line"><a name="l05861"></a><span class="lineno"> 5861</span> }</div>
<div class="line"><a name="l05862"></a><span class="lineno"> 5862</span> </div>
<div class="line"><a name="l05863"></a><span class="lineno"> 5863</span> </div>
<div class="line"><a name="l05864"></a><span class="lineno"> 5864</span> <span class="comment">/* create and initialize interpreter */</span></div>
<div class="line"><a name="l05865"></a><span class="lineno"> 5865</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> ip_alloc <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>));</div>
<div class="line"><a name="l05866"></a><span class="lineno"> 5866</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l05867"></a><span class="lineno"> 5867</span> ip_alloc(<span class="keyword">self</span>)</div>
<div class="line"><a name="l05868"></a><span class="lineno"> 5868</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l05869"></a><span class="lineno"> 5869</span> {</div>
<div class="line"><a name="l05870"></a><span class="lineno"> 5870</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#acdb411cfd8a6dcce9a04494c66ea91fb">Data_Wrap_Struct</a>(<span class="keyword">self</span>, 0, ip_free, 0);</div>
<div class="line"><a name="l05871"></a><span class="lineno"> 5871</span> }</div>
<div class="line"><a name="l05872"></a><span class="lineno"> 5872</span> </div>
<div class="line"><a name="l05873"></a><span class="lineno"> 5873</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l05874"></a><span class="lineno"> 5874</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a39f654f51c0bac45062a9c372f2177c0">ip_replace_wait_commands</a>(interp, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1836b9bb7e8d6062ac5b468f3163b9d2">mainWin</a>)</div>
<div class="line"><a name="l05875"></a><span class="lineno"> 5875</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l05876"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a1836b9bb7e8d6062ac5b468f3163b9d2"> 5876</a></span>  Tk_Window <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1836b9bb7e8d6062ac5b468f3163b9d2">mainWin</a>;</div>
<div class="line"><a name="l05877"></a><span class="lineno"> 5877</span> {</div>
<div class="line"><a name="l05878"></a><span class="lineno"> 5878</span>  <span class="comment">/* replace 'vwait' command */</span></div>
<div class="line"><a name="l05879"></a><span class="lineno"> 5879</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05880"></a><span class="lineno"> 5880</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateObjCommand(\"vwait\")"</span>);</div>
<div class="line"><a name="l05881"></a><span class="lineno"> 5881</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"vwait"</span>, ip_rbVwaitObjCmd,</div>
<div class="line"><a name="l05882"></a><span class="lineno"> 5882</span>  (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l05883"></a><span class="lineno"> 5883</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05884"></a><span class="lineno"> 5884</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateCommand(\"vwait\")"</span>);</div>
<div class="line"><a name="l05885"></a><span class="lineno"> 5885</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(interp, <span class="stringliteral">"vwait"</span>, ip_rbVwaitCommand,</div>
<div class="line"><a name="l05886"></a><span class="lineno"> 5886</span>  (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l05887"></a><span class="lineno"> 5887</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05888"></a><span class="lineno"> 5888</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05889"></a><span class="lineno"> 5889</span>  <span class="comment">/* replace 'tkwait' command */</span></div>
<div class="line"><a name="l05890"></a><span class="lineno"> 5890</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05891"></a><span class="lineno"> 5891</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateObjCommand(\"tkwait\")"</span>);</div>
<div class="line"><a name="l05892"></a><span class="lineno"> 5892</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"tkwait"</span>, ip_rbTkWaitObjCmd,</div>
<div class="line"><a name="l05893"></a><span class="lineno"> 5893</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l05894"></a><span class="lineno"> 5894</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05895"></a><span class="lineno"> 5895</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateCommand(\"tkwait\")"</span>);</div>
<div class="line"><a name="l05896"></a><span class="lineno"> 5896</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(interp, <span class="stringliteral">"tkwait"</span>, ip_rbTkWaitCommand,</div>
<div class="line"><a name="l05897"></a><span class="lineno"> 5897</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l05898"></a><span class="lineno"> 5898</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05899"></a><span class="lineno"> 5899</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05900"></a><span class="lineno"> 5900</span>  <span class="comment">/* add 'thread_vwait' command */</span></div>
<div class="line"><a name="l05901"></a><span class="lineno"> 5901</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05902"></a><span class="lineno"> 5902</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateObjCommand(\"thread_vwait\")"</span>);</div>
<div class="line"><a name="l05903"></a><span class="lineno"> 5903</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"thread_vwait"</span>, ip_rb_threadVwaitObjCmd,</div>
<div class="line"><a name="l05904"></a><span class="lineno"> 5904</span>  (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l05905"></a><span class="lineno"> 5905</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05906"></a><span class="lineno"> 5906</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateCommand(\"thread_vwait\")"</span>);</div>
<div class="line"><a name="l05907"></a><span class="lineno"> 5907</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(interp, <span class="stringliteral">"thread_vwait"</span>, ip_rb_threadVwaitCommand,</div>
<div class="line"><a name="l05908"></a><span class="lineno"> 5908</span>  (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l05909"></a><span class="lineno"> 5909</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05910"></a><span class="lineno"> 5910</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05911"></a><span class="lineno"> 5911</span>  <span class="comment">/* add 'thread_tkwait' command */</span></div>
<div class="line"><a name="l05912"></a><span class="lineno"> 5912</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05913"></a><span class="lineno"> 5913</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateObjCommand(\"thread_tkwait\")"</span>);</div>
<div class="line"><a name="l05914"></a><span class="lineno"> 5914</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"thread_tkwait"</span>, ip_rb_threadTkWaitObjCmd,</div>
<div class="line"><a name="l05915"></a><span class="lineno"> 5915</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l05916"></a><span class="lineno"> 5916</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05917"></a><span class="lineno"> 5917</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateCommand(\"thread_tkwait\")"</span>);</div>
<div class="line"><a name="l05918"></a><span class="lineno"> 5918</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(interp, <span class="stringliteral">"thread_tkwait"</span>, ip_rb_threadTkWaitCommand,</div>
<div class="line"><a name="l05919"></a><span class="lineno"> 5919</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l05920"></a><span class="lineno"> 5920</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05921"></a><span class="lineno"> 5921</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05922"></a><span class="lineno"> 5922</span>  <span class="comment">/* replace 'update' command */</span></div>
<div class="line"><a name="l05923"></a><span class="lineno"> 5923</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05924"></a><span class="lineno"> 5924</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateObjCommand(\"update\")"</span>);</div>
<div class="line"><a name="l05925"></a><span class="lineno"> 5925</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"update"</span>, ip_rbUpdateObjCmd,</div>
<div class="line"><a name="l05926"></a><span class="lineno"> 5926</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l05927"></a><span class="lineno"> 5927</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05928"></a><span class="lineno"> 5928</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateCommand(\"update\")"</span>);</div>
<div class="line"><a name="l05929"></a><span class="lineno"> 5929</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(interp, <span class="stringliteral">"update"</span>, ip_rbUpdateCommand,</div>
<div class="line"><a name="l05930"></a><span class="lineno"> 5930</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l05931"></a><span class="lineno"> 5931</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05932"></a><span class="lineno"> 5932</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05933"></a><span class="lineno"> 5933</span>  <span class="comment">/* add 'thread_update' command */</span></div>
<div class="line"><a name="l05934"></a><span class="lineno"> 5934</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05935"></a><span class="lineno"> 5935</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateObjCommand(\"thread_update\")"</span>);</div>
<div class="line"><a name="l05936"></a><span class="lineno"> 5936</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"thread_update"</span>, ip_rb_threadUpdateObjCmd,</div>
<div class="line"><a name="l05937"></a><span class="lineno"> 5937</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l05938"></a><span class="lineno"> 5938</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05939"></a><span class="lineno"> 5939</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateCommand(\"thread_update\")"</span>);</div>
<div class="line"><a name="l05940"></a><span class="lineno"> 5940</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(interp, <span class="stringliteral">"thread_update"</span>, ip_rb_threadUpdateCommand,</div>
<div class="line"><a name="l05941"></a><span class="lineno"> 5941</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l05942"></a><span class="lineno"> 5942</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05943"></a><span class="lineno"> 5943</span> <span class="preprocessor"></span>}</div>
<div class="line"><a name="l05944"></a><span class="lineno"> 5944</span> </div>
<div class="line"><a name="l05945"></a><span class="lineno"> 5945</span> </div>
<div class="line"><a name="l05946"></a><span class="lineno"> 5946</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05947"></a><span class="lineno"> 5947</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l05948"></a><span class="lineno"> 5948</span> ip_rb_replaceSlaveTkCmdsObjCmd(clientData, interp, objc, objv)</div>
<div class="line"><a name="l05949"></a><span class="lineno"> 5949</span>  ClientData clientData;</div>
<div class="line"><a name="l05950"></a><span class="lineno"> 5950</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l05951"></a><span class="lineno"> 5951</span>  <span class="keywordtype">int</span> objc;</div>
<div class="line"><a name="l05952"></a><span class="lineno"> 5952</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> objv[];</div>
<div class="line"><a name="l05953"></a><span class="lineno"> 5953</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05954"></a><span class="lineno"> 5954</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l05955"></a><span class="lineno"> 5955</span> ip_rb_replaceSlaveTkCmdsCommand(clientData, interp, objc, objv)</div>
<div class="line"><a name="l05956"></a><span class="lineno"> 5956</span>  ClientData clientData;</div>
<div class="line"><a name="l05957"></a><span class="lineno"> 5957</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l05958"></a><span class="lineno"> 5958</span>  <span class="keywordtype">int</span> objc;</div>
<div class="line"><a name="l05959"></a><span class="lineno"> 5959</span>  <span class="keywordtype">char</span> *objv[];</div>
<div class="line"><a name="l05960"></a><span class="lineno"> 5960</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05961"></a><span class="lineno"> 5961</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l05962"></a><span class="lineno"> 5962</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a59f342822337bf4ec5a8fdcf33662d92">slave_name</a>;</div>
<div class="line"><a name="l05963"></a><span class="lineno"> 5963</span>  Tcl_Interp *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a8c24db62cf234c17291046896d674f50">slave</a>;</div>
<div class="line"><a name="l05964"></a><span class="lineno"> 5964</span>  Tk_Window <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1836b9bb7e8d6062ac5b468f3163b9d2">mainWin</a>;</div>
<div class="line"><a name="l05965"></a><span class="lineno"> 5965</span> </div>
<div class="line"><a name="l05966"></a><span class="lineno"> 5966</span>  <span class="keywordflow">if</span> (objc != 2) {</div>
<div class="line"><a name="l05967"></a><span class="lineno"> 5967</span> <span class="preprocessor">#ifdef Tcl_WrongNumArgs</span></div>
<div class="line"><a name="l05968"></a><span class="lineno"> 5968</span> <span class="preprocessor"></span> Tcl_WrongNumArgs(interp, 1, objv, <span class="stringliteral">"slave_name"</span>);</div>
<div class="line"><a name="l05969"></a><span class="lineno"> 5969</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05970"></a><span class="lineno"> 5970</span> <span class="preprocessor"></span> <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a3ddcdc7bfb3b1d74b8f23dacda0e86a3">nameString</a>;</div>
<div class="line"><a name="l05971"></a><span class="lineno"> 5971</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05972"></a><span class="lineno"> 5972</span> <span class="preprocessor"></span> nameString = Tcl_GetStringFromObj(objv[0], (<span class="keywordtype">int</span>*)NULL);</div>
<div class="line"><a name="l05973"></a><span class="lineno"> 5973</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l05974"></a><span class="lineno"> 5974</span> <span class="preprocessor"></span> nameString = objv[0];</div>
<div class="line"><a name="l05975"></a><span class="lineno"> 5975</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05976"></a><span class="lineno"> 5976</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div>
<div class="line"><a name="l05977"></a><span class="lineno"> 5977</span>  nameString, <span class="stringliteral">" slave_name\""</span>, (<span class="keywordtype">char</span> *) NULL);</div>
<div class="line"><a name="l05978"></a><span class="lineno"> 5978</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05979"></a><span class="lineno"> 5979</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l05980"></a><span class="lineno"> 5980</span> </div>
<div class="line"><a name="l05981"></a><span class="lineno"> 5981</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05982"></a><span class="lineno"> 5982</span> <span class="preprocessor"></span> slave_name = Tcl_GetStringFromObj(objv[1], (<span class="keywordtype">int</span>*)NULL);</div>
<div class="line"><a name="l05983"></a><span class="lineno"> 5983</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l05984"></a><span class="lineno"> 5984</span> <span class="preprocessor"></span> slave_name = objv[1];</div>
<div class="line"><a name="l05985"></a><span class="lineno"> 5985</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l05986"></a><span class="lineno"> 5986</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l05987"></a><span class="lineno"> 5987</span>  slave = Tcl_GetSlave(interp, slave_name);</div>
<div class="line"><a name="l05988"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aac090a6c7d615df3b6e42ec46ce43533"> 5988</a></span>  <span class="keywordflow">if</span> (slave == NULL) {</div>
<div class="line"><a name="l05989"></a><span class="lineno"> 5989</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp, <span class="stringliteral">"cannot find slave \""</span>,</div>
<div class="line"><a name="l05990"></a><span class="lineno"> 5990</span>  slave_name, <span class="stringliteral">"\""</span>, (<span class="keywordtype">char</span> *)NULL);</div>
<div class="line"><a name="l05991"></a><span class="lineno"> 5991</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l05992"></a><span class="lineno"> 5992</span>  }</div>
<div class="line"><a name="l05993"></a><span class="lineno"> 5993</span>  mainWin = Tk_MainWindow(slave);</div>
<div class="line"><a name="l05994"></a><span class="lineno"> 5994</span> </div>
<div class="line"><a name="l05995"></a><span class="lineno"> 5995</span>  <span class="comment">/* replace 'exit' command --> 'interp_exit' command */</span></div>
<div class="line"><a name="l05996"></a><span class="lineno"> 5996</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l05997"></a><span class="lineno"> 5997</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateObjCommand(\"exit\") --> \"interp_exit\""</span>);</div>
<div class="line"><a name="l05998"></a><span class="lineno"> 5998</span>  Tcl_CreateObjCommand(slave, <span class="stringliteral">"exit"</span>, ip_InterpExitObjCmd,</div>
<div class="line"><a name="l05999"></a><span class="lineno"> 5999</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06000"></a><span class="lineno"> 6000</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l06001"></a><span class="lineno"> 6001</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateCommand(\"exit\") --> \"interp_exit\""</span>);</div>
<div class="line"><a name="l06002"></a><span class="lineno"> 6002</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(slave, <span class="stringliteral">"exit"</span>, ip_InterpExitCommand,</div>
<div class="line"><a name="l06003"></a><span class="lineno"> 6003</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06004"></a><span class="lineno"> 6004</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06005"></a><span class="lineno"> 6005</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l06006"></a><span class="lineno"> 6006</span>  <span class="comment">/* replace vwait and tkwait */</span></div>
<div class="line"><a name="l06007"></a><span class="lineno"> 6007</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a39f654f51c0bac45062a9c372f2177c0">ip_replace_wait_commands</a>(slave, mainWin);</div>
<div class="line"><a name="l06008"></a><span class="lineno"> 6008</span> </div>
<div class="line"><a name="l06009"></a><span class="lineno"> 6009</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>;</div>
<div class="line"><a name="l06010"></a><span class="lineno"> 6010</span> }</div>
<div class="line"><a name="l06011"></a><span class="lineno"> 6011</span> </div>
<div class="line"><a name="l06012"></a><span class="lineno"> 6012</span> </div>
<div class="line"><a name="l06013"></a><span class="lineno"> 6013</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l06014"></a><span class="lineno"> 6014</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> ip_rbNamespaceObjCmd <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div>
<div class="line"><a name="l06015"></a><span class="lineno"> 6015</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> []));</div>
<div class="line"><a name="l06016"></a><span class="lineno"> 6016</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l06017"></a><span class="lineno"> 6017</span> ip_rbNamespaceObjCmd(clientData, interp, objc, objv)</div>
<div class="line"><a name="l06018"></a><span class="lineno"> 6018</span>  ClientData clientData;</div>
<div class="line"><a name="l06019"></a><span class="lineno"> 6019</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l06020"></a><span class="lineno"> 6020</span>  <span class="keywordtype">int</span> objc;</div>
<div class="line"><a name="l06021"></a><span class="lineno"> 6021</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> objv[];</div>
<div class="line"><a name="l06022"></a><span class="lineno"> 6022</span> {</div>
<div class="line"><a name="l06023"></a><span class="lineno"> 6023</span>  Tcl_CmdInfo <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0519a447ec4809b051ea38b41c4012a6">info</a>;</div>
<div class="line"><a name="l06024"></a><span class="lineno"> 6024</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l06025"></a><span class="lineno"> 6025</span> </div>
<div class="line"><a name="l06026"></a><span class="lineno"> 6026</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad5c254c9258200de195897a1d1791732">Tcl_GetCommandInfo</a>(interp, <span class="stringliteral">"__orig_namespace_command__"</span>, &(info))) {</div>
<div class="line"><a name="l06027"></a><span class="lineno"> 6027</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l06028"></a><span class="lineno"> 6028</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a>(interp,</div>
<div class="line"><a name="l06029"></a><span class="lineno"> 6029</span>  <span class="stringliteral">"invalid command name \"namespace\""</span>, (<span class="keywordtype">char</span>*)NULL);</div>
<div class="line"><a name="l06030"></a><span class="lineno"> 6030</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>;</div>
<div class="line"><a name="l06031"></a><span class="lineno"> 6031</span>  }</div>
<div class="line"><a name="l06032"></a><span class="lineno"> 6032</span> </div>
<div class="line"><a name="l06033"></a><span class="lineno"> 6033</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a>++;</div>
<div class="line"><a name="l06034"></a><span class="lineno"> 6034</span>  <span class="comment">/* DUMP2("namespace wrapper enter depth == %d", rbtk_eventloop_depth); */</span></div>
<div class="line"><a name="l06035"></a><span class="lineno"> 6035</span> </div>
<div class="line"><a name="l06036"></a><span class="lineno"> 6036</span>  <span class="keywordflow">if</span> (info.isNativeObjectProc) {</div>
<div class="line"><a name="l06037"></a><span class="lineno"> 6037</span>  ret = (*(info.objProc))(info.objClientData, <a class="code" href="../../d5/d9d/tcltklib_8c.html#abb159f1f4254ecf6df54f13d2b3468c6">interp</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5989eede682afd9743c0345d772674d5">objv</a>);</div>
<div class="line"><a name="l06038"></a><span class="lineno"> 6038</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l06039"></a><span class="lineno"> 6039</span>  <span class="comment">/* string interface */</span></div>
<div class="line"><a name="l06040"></a><span class="lineno"> 6040</span>  <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div>
<div class="line"><a name="l06041"></a><span class="lineno"> 6041</span>  <span class="keywordtype">char</span> **<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab9ebbdd4596789afb752d19fca153ee5">argv</a>;</div>
<div class="line"><a name="l06042"></a><span class="lineno"> 6042</span> </div>
<div class="line"><a name="l06043"></a><span class="lineno"> 6043</span>  <span class="comment">/* argv = (char **)Tcl_Alloc(sizeof(char *) * (objc + 1)); */</span></div>
<div class="line"><a name="l06044"></a><span class="lineno"> 6044</span>  argv = (<span class="keywordtype">char</span> **)ckalloc(<span class="keyword">sizeof</span>(<span class="keywordtype">char</span> *) * (objc + 1));</div>
<div class="line"><a name="l06045"></a><span class="lineno"> 6045</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l06046"></a><span class="lineno"> 6046</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)argv); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l06047"></a><span class="lineno"> 6047</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06048"></a><span class="lineno"> 6048</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l06049"></a><span class="lineno"> 6049</span>  <span class="keywordflow">for</span>(i = 0; i < <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>; i++) {</div>
<div class="line"><a name="l06050"></a><span class="lineno"> 6050</span>  <span class="comment">/* argv[i] = Tcl_GetString(objv[i]); */</span></div>
<div class="line"><a name="l06051"></a><span class="lineno"> 6051</span>  argv[<a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>] = Tcl_GetStringFromObj(objv[i], (<span class="keywordtype">int</span>*)NULL);</div>
<div class="line"><a name="l06052"></a><span class="lineno"> 6052</span>  }</div>
<div class="line"><a name="l06053"></a><span class="lineno"> 6053</span>  argv[<a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>] = (<span class="keywordtype">char</span> *)NULL;</div>
<div class="line"><a name="l06054"></a><span class="lineno"> 6054</span> </div>
<div class="line"><a name="l06055"></a><span class="lineno"> 6055</span>  ret = (*(info.proc))(info.clientData, <a class="code" href="../../d5/d9d/tcltklib_8c.html#abb159f1f4254ecf6df54f13d2b3468c6">interp</a>,</div>
<div class="line"><a name="l06056"></a><span class="lineno"> 6056</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>, (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> **)argv);</div>
<div class="line"><a name="l06057"></a><span class="lineno"> 6057</span> </div>
<div class="line"><a name="l06058"></a><span class="lineno"> 6058</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l06059"></a><span class="lineno"> 6059</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)argv, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l06060"></a><span class="lineno"> 6060</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l06061"></a><span class="lineno"> 6061</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l06062"></a><span class="lineno"> 6062</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)argv); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l06063"></a><span class="lineno"> 6063</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l06064"></a><span class="lineno"> 6064</span> <span class="preprocessor"></span> <span class="comment">/* Tcl_Free((char*)argv); */</span></div>
<div class="line"><a name="l06065"></a><span class="lineno"> 6065</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span>*)argv);</div>
<div class="line"><a name="l06066"></a><span class="lineno"> 6066</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06067"></a><span class="lineno"> 6067</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06068"></a><span class="lineno"> 6068</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l06069"></a><span class="lineno"> 6069</span> </div>
<div class="line"><a name="l06070"></a><span class="lineno"> 6070</span>  <span class="comment">/* DUMP2("namespace wrapper exit depth == %d", rbtk_eventloop_depth); */</span></div>
<div class="line"><a name="l06071"></a><span class="lineno"> 6071</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a>--;</div>
<div class="line"><a name="l06072"></a><span class="lineno"> 6072</span> </div>
<div class="line"><a name="l06073"></a><span class="lineno"> 6073</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l06074"></a><span class="lineno"> 6074</span> }</div>
<div class="line"><a name="l06075"></a><span class="lineno"> 6075</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06076"></a><span class="lineno"> 6076</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l06077"></a><span class="lineno"> 6077</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l06078"></a><span class="lineno"> 6078</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad0239b110512830960c1df20e4508016">ip_wrap_namespace_command</a>(interp)</div>
<div class="line"><a name="l06079"></a><span class="lineno"> 6079</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l06080"></a><span class="lineno"> 6080</span> {</div>
<div class="line"><a name="l06081"></a><span class="lineno"> 6081</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l06082"></a><span class="lineno"> 6082</span> <span class="preprocessor"></span> Tcl_CmdInfo orig_info;</div>
<div class="line"><a name="l06083"></a><span class="lineno"> 6083</span> </div>
<div class="line"><a name="l06084"></a><span class="lineno"> 6084</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad5c254c9258200de195897a1d1791732">Tcl_GetCommandInfo</a>(interp, <span class="stringliteral">"namespace"</span>, &(orig_info))) {</div>
<div class="line"><a name="l06085"></a><span class="lineno"> 6085</span>  <span class="keywordflow">return</span>;</div>
<div class="line"><a name="l06086"></a><span class="lineno"> 6086</span>  }</div>
<div class="line"><a name="l06087"></a><span class="lineno"> 6087</span> </div>
<div class="line"><a name="l06088"></a><span class="lineno"> 6088</span>  <span class="keywordflow">if</span> (orig_info.isNativeObjectProc) {</div>
<div class="line"><a name="l06089"></a><span class="lineno"> 6089</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"__orig_namespace_command__"</span>,</div>
<div class="line"><a name="l06090"></a><span class="lineno"> 6090</span>  orig_info.objProc, orig_info.objClientData,</div>
<div class="line"><a name="l06091"></a><span class="lineno"> 6091</span>  orig_info.deleteProc);</div>
<div class="line"><a name="l06092"></a><span class="lineno"> 6092</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l06093"></a><span class="lineno"> 6093</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(interp, <span class="stringliteral">"__orig_namespace_command__"</span>,</div>
<div class="line"><a name="l06094"></a><span class="lineno"> 6094</span>  orig_info.proc, orig_info.clientData,</div>
<div class="line"><a name="l06095"></a><span class="lineno"> 6095</span>  orig_info.deleteProc);</div>
<div class="line"><a name="l06096"></a><span class="lineno"> 6096</span>  }</div>
<div class="line"><a name="l06097"></a><span class="lineno"> 6097</span> </div>
<div class="line"><a name="l06098"></a><span class="lineno"> 6098</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"namespace"</span>, ip_rbNamespaceObjCmd,</div>
<div class="line"><a name="l06099"></a><span class="lineno"> 6099</span>  (ClientData) 0, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06100"></a><span class="lineno"> 6100</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06101"></a><span class="lineno"> 6101</span> <span class="preprocessor"></span>}</div>
<div class="line"><a name="l06102"></a><span class="lineno"> 6102</span> </div>
<div class="line"><a name="l06103"></a><span class="lineno"> 6103</span> </div>
<div class="line"><a name="l06104"></a><span class="lineno"> 6104</span> <span class="comment">/* call when interpreter is deleted */</span></div>
<div class="line"><a name="l06105"></a><span class="lineno"> 6105</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l06106"></a><span class="lineno"> 6106</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div>
<div class="line"><a name="l06107"></a><span class="lineno"> 6107</span> <span class="preprocessor"></span>ip_CallWhenDeleted(ClientData clientData, Tcl_Interp *ip)</div>
<div class="line"><a name="l06108"></a><span class="lineno"> 6108</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l06109"></a><span class="lineno"> 6109</span> <span class="preprocessor"></span>ip_CallWhenDeleted(clientData, ip)</div>
<div class="line"><a name="l06110"></a><span class="lineno"> 6110</span>  ClientData clientData;</div>
<div class="line"><a name="l06111"></a><span class="lineno"> 6111</span>  Tcl_Interp *ip;</div>
<div class="line"><a name="l06112"></a><span class="lineno"> 6112</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06113"></a><span class="lineno"> 6113</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l06114"></a><span class="lineno"> 6114</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l06115"></a><span class="lineno"> 6115</span>  <span class="comment">/* Tk_Window main_win = (Tk_Window) clientData; */</span></div>
<div class="line"><a name="l06116"></a><span class="lineno"> 6116</span> </div>
<div class="line"><a name="l06117"></a><span class="lineno"> 6117</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"start ip_CallWhenDeleted"</span>);</div>
<div class="line"><a name="l06118"></a><span class="lineno"> 6118</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l06119"></a><span class="lineno"> 6119</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l06120"></a><span class="lineno"> 6120</span> </div>
<div class="line"><a name="l06121"></a><span class="lineno"> 6121</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7b427778f1e496ccefedf89b5667e319">ip_finalize</a>(ip);</div>
<div class="line"><a name="l06122"></a><span class="lineno"> 6122</span> </div>
<div class="line"><a name="l06123"></a><span class="lineno"> 6123</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"finish ip_CallWhenDeleted"</span>);</div>
<div class="line"><a name="l06124"></a><span class="lineno"> 6124</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l06125"></a><span class="lineno"> 6125</span> }</div>
<div class="line"><a name="l06126"></a><span class="lineno"> 6126</span> </div>
<div class="line"><a name="l06127"></a><span class="lineno"> 6127</span> <span class="comment">/*--------------------------------------------------------*/</span></div>
<div class="line"><a name="l06128"></a><span class="lineno"> 6128</span> </div>
<div class="line"><a name="l06129"></a><span class="lineno"> 6129</span> <span class="comment">/* initialize interpreter */</span></div>
<div class="line"><a name="l06130"></a><span class="lineno"> 6130</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06131"></a><span class="lineno"> 6131</span> ip_init(argc, argv, <span class="keyword">self</span>)</div>
<div class="line"><a name="l06132"></a><span class="lineno"> 6132</span>  int argc;</div>
<div class="line"><a name="l06133"></a><span class="lineno"> 6133</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l06134"></a><span class="lineno"> 6134</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l06135"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a639a1a294ada84ee921fbe9cd9d99abb"> 6135</a></span> {</div>
<div class="line"><a name="l06136"></a><span class="lineno"> 6136</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>; <span class="comment">/* tcltkip data struct */</span></div>
<div class="line"><a name="l06137"></a><span class="lineno"> 6137</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0f65f73b5139223ce7affd67506f19ed">argv0</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a639a1a294ada84ee921fbe9cd9d99abb">opts</a>;</div>
<div class="line"><a name="l06138"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a90505f4dc26133a78e6b376d004aea0d"> 6138</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a90505f4dc26133a78e6b376d004aea0d">cnt</a>;</div>
<div class="line"><a name="l06139"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa7fb9c5914aae67a233da6a7046b1586"> 6139</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d30/stubs_8c.html#aea32fce8225a6281c3c202679698afbf">st</a>;</div>
<div class="line"><a name="l06140"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5838058d3c822e491130217481317881"> 6140</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5838058d3c822e491130217481317881">with_tk</a> = 1;</div>
<div class="line"><a name="l06141"></a><span class="lineno"> 6141</span>  Tk_Window mainWin = (Tk_Window)NULL;</div>
<div class="line"><a name="l06142"></a><span class="lineno"> 6142</span> </div>
<div class="line"><a name="l06143"></a><span class="lineno"> 6143</span>  <span class="comment">/* security check */</span></div>
<div class="line"><a name="l06144"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad1a335d7b9fd672b2f5ea65fef0aa2c1"> 6144</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f520624fabb8332dc98fd223491bf8d">rb_safe_level</a>() >= 4) {</div>
<div class="line"><a name="l06145"></a><span class="lineno"> 6145</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ae53f1d228c34c2a7715d7d39ab1a2991">rb_eSecurityError</a>,</div>
<div class="line"><a name="l06146"></a><span class="lineno"> 6146</span>  <span class="stringliteral">"Cannot create a TclTkIp object at level %d"</span>,</div>
<div class="line"><a name="l06147"></a><span class="lineno"> 6147</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f520624fabb8332dc98fd223491bf8d">rb_safe_level</a>());</div>
<div class="line"><a name="l06148"></a><span class="lineno"> 6148</span>  }</div>
<div class="line"><a name="l06149"></a><span class="lineno"> 6149</span> </div>
<div class="line"><a name="l06150"></a><span class="lineno"> 6150</span>  <span class="comment">/* create object */</span></div>
<div class="line"><a name="l06151"></a><span class="lineno"> 6151</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad043eb0996705571cad2e5bb39e9675e">Data_Get_Struct</a>(<span class="keyword">self</span>, <span class="keyword">struct</span> <a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a>, ptr);</div>
<div class="line"><a name="l06152"></a><span class="lineno"> 6152</span>  ptr = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac8df5a8a8961bd9e16be385fef28c2f2">ALLOC</a>(<span class="keyword">struct</span> <a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a>);</div>
<div class="line"><a name="l06153"></a><span class="lineno"> 6153</span>  <span class="comment">/* ptr = (struct tcltkip *)ckalloc(sizeof(struct tcltkip)); */</span></div>
<div class="line"><a name="l06154"></a><span class="lineno"> 6154</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a309bda5ae698449fdad7c11c00e293e9">DATA_PTR</a>(<span class="keyword">self</span>) = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>;</div>
<div class="line"><a name="l06155"></a><span class="lineno"> 6155</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l06156"></a><span class="lineno"> 6156</span> <span class="preprocessor"></span> ptr->tk_thread_id = 0;</div>
<div class="line"><a name="l06157"></a><span class="lineno"> 6157</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06158"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6f37bc11159ac76e129cac0b2deca445"> 6158</a></span> <span class="preprocessor"></span> ptr-><a class="code" href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f">ref_count</a> = 0;</div>
<div class="line"><a name="l06159"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abef7f2d0dab37a6c6dd51f36b32e5773"> 6159</a></span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#ace5c5b6dab42be91b5cf7389a84cbb2c">allow_ruby_exit</a> = 1;</div>
<div class="line"><a name="l06160"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa3f92ea39b4f73f5ab3d00b23e1af573"> 6160</a></span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = 0;</div>
<div class="line"><a name="l06161"></a><span class="lineno"> 6161</span> </div>
<div class="line"><a name="l06162"></a><span class="lineno"> 6162</span>  <span class="comment">/* from Tk_Main() */</span></div>
<div class="line"><a name="l06163"></a><span class="lineno"> 6163</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateInterp"</span>);</div>
<div class="line"><a name="l06164"></a><span class="lineno"> 6164</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a> = <a class="code" href="../../df/d55/stubs_8h.html#a047f2045f100a5a76ed6df4753a0cd53">ruby_tcl_create_ip_and_stubs_init</a>(&st);</div>
<div class="line"><a name="l06165"></a><span class="lineno"> 6165</span>  <span class="keywordflow">if</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a> == NULL) {</div>
<div class="line"><a name="l06166"></a><span class="lineno"> 6166</span>  <span class="keywordflow">switch</span>(st) {</div>
<div class="line"><a name="l06167"></a><span class="lineno"> 6167</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d30/stubs_8c.html#a80b5499187083d23168d4b13624321fd">TCLTK_STUBS_OK</a>:</div>
<div class="line"><a name="l06168"></a><span class="lineno"> 6168</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l06169"></a><span class="lineno"> 6169</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#a2bfee19ebfc13a427b688890d5961237">NO_TCL_DLL</a>:</div>
<div class="line"><a name="l06170"></a><span class="lineno"> 6170</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a5485df8856b8fa33d9d378afdabc9d29">rb_eLoadError</a>, <span class="stringliteral">"tcltklib: fail to open tcl_dll"</span>);</div>
<div class="line"><a name="l06171"></a><span class="lineno"> 6171</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#aab732e347dd4377ec8d7050f4ca962c8">NO_FindExecutable</a>:</div>
<div class="line"><a name="l06172"></a><span class="lineno"> 6172</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a5485df8856b8fa33d9d378afdabc9d29">rb_eLoadError</a>, <span class="stringliteral">"tcltklib: can't find Tcl_FindExecutable"</span>);</div>
<div class="line"><a name="l06173"></a><span class="lineno"> 6173</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#a815f08a2a84f02d232dc45d1e1294f23">NO_CreateInterp</a>:</div>
<div class="line"><a name="l06174"></a><span class="lineno"> 6174</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a5485df8856b8fa33d9d378afdabc9d29">rb_eLoadError</a>, <span class="stringliteral">"tcltklib: can't find Tcl_CreateInterp()"</span>);</div>
<div class="line"><a name="l06175"></a><span class="lineno"> 6175</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#aefad2a7b6d1e554c35033cda7b1b9203">NO_DeleteInterp</a>:</div>
<div class="line"><a name="l06176"></a><span class="lineno"> 6176</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a5485df8856b8fa33d9d378afdabc9d29">rb_eLoadError</a>, <span class="stringliteral">"tcltklib: can't find Tcl_DeleteInterp()"</span>);</div>
<div class="line"><a name="l06177"></a><span class="lineno"> 6177</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#af2b283a1e13865526422ef60bf997020">FAIL_CreateInterp</a>:</div>
<div class="line"><a name="l06178"></a><span class="lineno"> 6178</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"tcltklib: fail to create a new IP"</span>);</div>
<div class="line"><a name="l06179"></a><span class="lineno"> 6179</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#a5607246c06be9287bbac76b52db313e2">FAIL_Tcl_InitStubs</a>:</div>
<div class="line"><a name="l06180"></a><span class="lineno"> 6180</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"tcltklib: fail to Tcl_InitStubs()"</span>);</div>
<div class="line"><a name="l06181"></a><span class="lineno"> 6181</span>  <span class="keywordflow">default</span>:</div>
<div class="line"><a name="l06182"></a><span class="lineno"> 6182</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"tcltklib: unknown error(%d) on ruby_tcl_create_ip_and_stubs_init"</span>, st);</div>
<div class="line"><a name="l06183"></a><span class="lineno"> 6183</span>  }</div>
<div class="line"><a name="l06184"></a><span class="lineno"> 6184</span>  }</div>
<div class="line"><a name="l06185"></a><span class="lineno"> 6185</span> </div>
<div class="line"><a name="l06186"></a><span class="lineno"> 6186</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l06187"></a><span class="lineno"> 6187</span> <span class="preprocessor"></span><span class="preprocessor">#if TCL_NAMESPACE_DEBUG</span></div>
<div class="line"><a name="l06188"></a><span class="lineno"> 6188</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"get current namespace"</span>);</div>
<div class="line"><a name="l06189"></a><span class="lineno"> 6189</span>  <span class="keywordflow">if</span> ((ptr->default_ns = Tcl_GetCurrentNamespace(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>))</div>
<div class="line"><a name="l06190"></a><span class="lineno"> 6190</span>  == (Tcl_Namespace*)NULL) {</div>
<div class="line"><a name="l06191"></a><span class="lineno"> 6191</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"a new Tk interpreter has a NULL namespace"</span>);</div>
<div class="line"><a name="l06192"></a><span class="lineno"> 6192</span>  }</div>
<div class="line"><a name="l06193"></a><span class="lineno"> 6193</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06194"></a><span class="lineno"> 6194</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06195"></a><span class="lineno"> 6195</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l06196"></a><span class="lineno"> 6196</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa23f39899c949c9e59a0ee3096d76fc5">rbtk_preserve_ip</a>(ptr);</div>
<div class="line"><a name="l06197"></a><span class="lineno"> 6197</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"IP ref_count = %d"</span>, ptr-><a class="code" href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f">ref_count</a>);</div>
<div class="line"><a name="l06198"></a><span class="lineno"> 6198</span>  current_interp = ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>;</div>
<div class="line"><a name="l06199"></a><span class="lineno"> 6199</span> </div>
<div class="line"><a name="l06200"></a><span class="lineno"> 6200</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a806a9dbb2520a6a3fc1eb1d860537c63">has_orig_exit</a></div>
<div class="line"><a name="l06201"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa3e3796ef205b8c87e8780c2a54c0a1a"> 6201</a></span>  = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad5c254c9258200de195897a1d1791732">Tcl_GetCommandInfo</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"exit"</span>, &(ptr-><a class="code" href="../../db/d19/structtcltkip.html#a15f267a597e541e9816d481777696dc1">orig_exit_info</a>));</div>
<div class="line"><a name="l06202"></a><span class="lineno"> 6202</span> </div>
<div class="line"><a name="l06203"></a><span class="lineno"> 6203</span> <span class="preprocessor">#if defined CREATE_RUBYTK_KIT || defined CREATE_RUBYKIT</span></div>
<div class="line"><a name="l06204"></a><span class="lineno"> 6204</span> <span class="preprocessor"></span> call_tclkit_init_script(current_interp);</div>
<div class="line"><a name="l06205"></a><span class="lineno"> 6205</span> </div>
<div class="line"><a name="l06206"></a><span class="lineno"> 6206</span> <span class="preprocessor"># if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION > 84</span></div>
<div class="line"><a name="l06207"></a><span class="lineno"> 6207</span> <span class="preprocessor"></span> {</div>
<div class="line"><a name="l06208"></a><span class="lineno"> 6208</span>  Tcl_DString encodingName;</div>
<div class="line"><a name="l06209"></a><span class="lineno"> 6209</span>  Tcl_GetEncodingNameFromEnvironment(&encodingName);</div>
<div class="line"><a name="l06210"></a><span class="lineno"> 6210</span>  <span class="keywordflow">if</span> (strcmp(Tcl_DStringValue(&encodingName), Tcl_GetEncodingName(NULL))) {</div>
<div class="line"><a name="l06211"></a><span class="lineno"> 6211</span>  <span class="comment">/* fails, so we set a variable and do it in the boot.tcl script */</span></div>
<div class="line"><a name="l06212"></a><span class="lineno"> 6212</span>  Tcl_SetSystemEncoding(NULL, Tcl_DStringValue(&encodingName));</div>
<div class="line"><a name="l06213"></a><span class="lineno"> 6213</span>  }</div>
<div class="line"><a name="l06214"></a><span class="lineno"> 6214</span>  Tcl_SetVar(current_interp, <span class="stringliteral">"tclkit_system_encoding"</span>, Tcl_DStringValue(&encodingName), 0);</div>
<div class="line"><a name="l06215"></a><span class="lineno"> 6215</span>  Tcl_DStringFree(&encodingName);</div>
<div class="line"><a name="l06216"></a><span class="lineno"> 6216</span>  }</div>
<div class="line"><a name="l06217"></a><span class="lineno"> 6217</span> <span class="preprocessor"># endif</span></div>
<div class="line"><a name="l06218"></a><span class="lineno"> 6218</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06219"></a><span class="lineno"> 6219</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l06220"></a><span class="lineno"> 6220</span>  <span class="comment">/* set variables */</span></div>
<div class="line"><a name="l06221"></a><span class="lineno"> 6221</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7e05442307639ca746f2560593ca9ca9">Tcl_Eval</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"set argc 0; set argv {}; set argv0 tcltklib.so"</span>);</div>
<div class="line"><a name="l06222"></a><span class="lineno"> 6222</span> </div>
<div class="line"><a name="l06223"></a><span class="lineno"> 6223</span>  cnt = <a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(argc, argv, <span class="stringliteral">"02"</span>, &argv0, &opts);</div>
<div class="line"><a name="l06224"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a13b629330be915f7fa9991af051039cf"> 6224</a></span>  <span class="keywordflow">switch</span>(cnt) {</div>
<div class="line"><a name="l06225"></a><span class="lineno"> 6225</span>  <span class="keywordflow">case</span> 2:</div>
<div class="line"><a name="l06226"></a><span class="lineno"> 6226</span>  <span class="comment">/* options */</span></div>
<div class="line"><a name="l06227"></a><span class="lineno"> 6227</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(opts) || opts == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>) {</div>
<div class="line"><a name="l06228"></a><span class="lineno"> 6228</span>  <span class="comment">/* without Tk */</span></div>
<div class="line"><a name="l06229"></a><span class="lineno"> 6229</span>  with_tk = 0;</div>
<div class="line"><a name="l06230"></a><span class="lineno"> 6230</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l06231"></a><span class="lineno"> 6231</span>  <span class="comment">/* Tcl_SetVar(ptr->ip, "argv", StringValuePtr(opts), 0); */</span></div>
<div class="line"><a name="l06232"></a><span class="lineno"> 6232</span>  Tcl_SetVar(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"argv"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2665a51abbd5b49c15abff3df00fa9db">StringValuePtr</a>(opts), TCL_GLOBAL_ONLY);</div>
<div class="line"><a name="l06233"></a><span class="lineno"> 6233</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7e05442307639ca746f2560593ca9ca9">Tcl_Eval</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"set argc [llength $argv]"</span>);</div>
<div class="line"><a name="l06234"></a><span class="lineno"> 6234</span>  }</div>
<div class="line"><a name="l06235"></a><span class="lineno"> 6235</span>  <span class="keywordflow">case</span> 1:</div>
<div class="line"><a name="l06236"></a><span class="lineno"> 6236</span>  <span class="comment">/* argv0 */</span></div>
<div class="line"><a name="l06237"></a><span class="lineno"> 6237</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(argv0)) {</div>
<div class="line"><a name="l06238"></a><span class="lineno"> 6238</span>  <span class="keywordflow">if</span> (strncmp(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2665a51abbd5b49c15abff3df00fa9db">StringValuePtr</a>(argv0), <span class="stringliteral">"-e"</span>, 3) == 0</div>
<div class="line"><a name="l06239"></a><span class="lineno"> 6239</span>  || strncmp(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2665a51abbd5b49c15abff3df00fa9db">StringValuePtr</a>(argv0), <span class="stringliteral">"-"</span>, 2) == 0) {</div>
<div class="line"><a name="l06240"></a><span class="lineno"> 6240</span>  Tcl_SetVar(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"argv0"</span>, <span class="stringliteral">"ruby"</span>, TCL_GLOBAL_ONLY);</div>
<div class="line"><a name="l06241"></a><span class="lineno"> 6241</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l06242"></a><span class="lineno"> 6242</span>  <span class="comment">/* Tcl_SetVar(ptr->ip, "argv0", StringValuePtr(argv0), 0); */</span></div>
<div class="line"><a name="l06243"></a><span class="lineno"> 6243</span>  Tcl_SetVar(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"argv0"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2665a51abbd5b49c15abff3df00fa9db">StringValuePtr</a>(argv0),</div>
<div class="line"><a name="l06244"></a><span class="lineno"> 6244</span>  TCL_GLOBAL_ONLY);</div>
<div class="line"><a name="l06245"></a><span class="lineno"> 6245</span>  }</div>
<div class="line"><a name="l06246"></a><span class="lineno"> 6246</span>  }</div>
<div class="line"><a name="l06247"></a><span class="lineno"> 6247</span>  <span class="keywordflow">case</span> 0:</div>
<div class="line"><a name="l06248"></a><span class="lineno"> 6248</span>  <span class="comment">/* no args */</span></div>
<div class="line"><a name="l06249"></a><span class="lineno"> 6249</span>  ;</div>
<div class="line"><a name="l06250"></a><span class="lineno"> 6250</span>  }</div>
<div class="line"><a name="l06251"></a><span class="lineno"> 6251</span> </div>
<div class="line"><a name="l06252"></a><span class="lineno"> 6252</span>  <span class="comment">/* from Tcl_AppInit() */</span></div>
<div class="line"><a name="l06253"></a><span class="lineno"> 6253</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_Init"</span>);</div>
<div class="line"><a name="l06254"></a><span class="lineno"> 6254</span> <span class="preprocessor">#if (defined CREATE_RUBYTK_KIT || defined CREATE_RUBYKIT) && (!defined KIT_LITE) && (10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION == 85)</span></div>
<div class="line"><a name="l06255"></a><span class="lineno"> 6255</span> <span class="preprocessor"></span> <span class="comment">/*************************************************************************/</span></div>
<div class="line"><a name="l06256"></a><span class="lineno"> 6256</span>  <span class="comment">/* FIX ME (2010/06/28) */</span></div>
<div class="line"><a name="l06257"></a><span class="lineno"> 6257</span>  <span class="comment">/* Don't use ::chan command for Mk4tcl + tclvfs-1.4 on Tcl8.5. */</span></div>
<div class="line"><a name="l06258"></a><span class="lineno"> 6258</span>  <span class="comment">/* It fails to access VFS files because of vfs::zstream. */</span></div>
<div class="line"><a name="l06259"></a><span class="lineno"> 6259</span>  <span class="comment">/* So, force to use ::rechan by temporaly hiding ::chan. */</span></div>
<div class="line"><a name="l06260"></a><span class="lineno"> 6260</span>  <span class="comment">/*************************************************************************/</span></div>
<div class="line"><a name="l06261"></a><span class="lineno"> 6261</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7e05442307639ca746f2560593ca9ca9">Tcl_Eval</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"catch {rename ::chan ::_tmp_chan}"</span>);</div>
<div class="line"><a name="l06262"></a><span class="lineno"> 6262</span>  <span class="keywordflow">if</span> (Tcl_Init(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>) {</div>
<div class="line"><a name="l06263"></a><span class="lineno"> 6263</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"%s"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l06264"></a><span class="lineno"> 6264</span>  }</div>
<div class="line"><a name="l06265"></a><span class="lineno"> 6265</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7e05442307639ca746f2560593ca9ca9">Tcl_Eval</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"catch {rename ::_tmp_chan ::chan}"</span>);</div>
<div class="line"><a name="l06266"></a><span class="lineno"> 6266</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l06267"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9872cfefcd8ace8152e3bac7bf5cee13"> 6267</a></span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (Tcl_Init(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>) {</div>
<div class="line"><a name="l06268"></a><span class="lineno"> 6268</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"%s"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l06269"></a><span class="lineno"> 6269</span>  }</div>
<div class="line"><a name="l06270"></a><span class="lineno"> 6270</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06271"></a><span class="lineno"> 6271</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l06272"></a><span class="lineno"> 6272</span>  st = <a class="code" href="../../d5/d30/stubs_8c.html#a5781553460d704ea29c0b5065ba79f77">ruby_tcl_stubs_init</a>();</div>
<div class="line"><a name="l06273"></a><span class="lineno"> 6273</span>  <span class="comment">/* from Tcl_AppInit() */</span></div>
<div class="line"><a name="l06274"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abeae496ed0f16c33d298c04a16d99d0e"> 6274</a></span>  <span class="keywordflow">if</span> (with_tk) {</div>
<div class="line"><a name="l06275"></a><span class="lineno"> 6275</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tk_Init"</span>);</div>
<div class="line"><a name="l06276"></a><span class="lineno"> 6276</span>  st = <a class="code" href="../../df/d55/stubs_8h.html#a6239fdfa9623bc5033a49b3736849093">ruby_tk_stubs_init</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l06277"></a><span class="lineno"> 6277</span>  <span class="keywordflow">switch</span>(st) {</div>
<div class="line"><a name="l06278"></a><span class="lineno"> 6278</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d30/stubs_8c.html#a80b5499187083d23168d4b13624321fd">TCLTK_STUBS_OK</a>:</div>
<div class="line"><a name="l06279"></a><span class="lineno"> 6279</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l06280"></a><span class="lineno"> 6280</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#aaf429ac3fbd9191085b66c22c63e869e">NO_Tk_Init</a>:</div>
<div class="line"><a name="l06281"></a><span class="lineno"> 6281</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a5485df8856b8fa33d9d378afdabc9d29">rb_eLoadError</a>, <span class="stringliteral">"tcltklib: can't find Tk_Init()"</span>);</div>
<div class="line"><a name="l06282"></a><span class="lineno"> 6282</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#a8736abb7ee38251506e1f2cb9c35cef8">FAIL_Tk_Init</a>:</div>
<div class="line"><a name="l06283"></a><span class="lineno"> 6283</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"tcltklib: fail to Tk_Init(). %s"</span>,</div>
<div class="line"><a name="l06284"></a><span class="lineno"> 6284</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l06285"></a><span class="lineno"> 6285</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#ab944980ed6509b34cff71e2997200d30">FAIL_Tk_InitStubs</a>:</div>
<div class="line"><a name="l06286"></a><span class="lineno"> 6286</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"tcltklib: fail to Tk_InitStubs(). %s"</span>,</div>
<div class="line"><a name="l06287"></a><span class="lineno"> 6287</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l06288"></a><span class="lineno"> 6288</span>  <span class="keywordflow">default</span>:</div>
<div class="line"><a name="l06289"></a><span class="lineno"> 6289</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"tcltklib: unknown error(%d) on ruby_tk_stubs_init"</span>, st);</div>
<div class="line"><a name="l06290"></a><span class="lineno"> 6290</span>  }</div>
<div class="line"><a name="l06291"></a><span class="lineno"> 6291</span> </div>
<div class="line"><a name="l06292"></a><span class="lineno"> 6292</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_StaticPackage(\"Tk\")"</span>);</div>
<div class="line"><a name="l06293"></a><span class="lineno"> 6293</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l06294"></a><span class="lineno"> 6294</span> <span class="preprocessor"></span> Tcl_StaticPackage(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"Tk"</span>, Tk_Init, Tk_SafeInit);</div>
<div class="line"><a name="l06295"></a><span class="lineno"> 6295</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l06296"></a><span class="lineno"> 6296</span> <span class="preprocessor"></span> Tcl_StaticPackage(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"Tk"</span>, Tk_Init,</div>
<div class="line"><a name="l06297"></a><span class="lineno"> 6297</span>  (Tcl_PackageInitProc *) NULL);</div>
<div class="line"><a name="l06298"></a><span class="lineno"> 6298</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06299"></a><span class="lineno"> 6299</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l06300"></a><span class="lineno"> 6300</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l06301"></a><span class="lineno"> 6301</span> <span class="preprocessor"></span> <span class="comment">/* set Tk thread ID */</span></div>
<div class="line"><a name="l06302"></a><span class="lineno"> 6302</span>  ptr->tk_thread_id = Tcl_GetCurrentThread();</div>
<div class="line"><a name="l06303"></a><span class="lineno"> 6303</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06304"></a><span class="lineno"> 6304</span> <span class="preprocessor"></span> <span class="comment">/* get main window */</span></div>
<div class="line"><a name="l06305"></a><span class="lineno"> 6305</span>  mainWin = Tk_MainWindow(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l06306"></a><span class="lineno"> 6306</span>  Tk_Preserve((ClientData)mainWin);</div>
<div class="line"><a name="l06307"></a><span class="lineno"> 6307</span>  }</div>
<div class="line"><a name="l06308"></a><span class="lineno"> 6308</span> </div>
<div class="line"><a name="l06309"></a><span class="lineno"> 6309</span>  <span class="comment">/* add ruby command to the interpreter */</span></div>
<div class="line"><a name="l06310"></a><span class="lineno"> 6310</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l06311"></a><span class="lineno"> 6311</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateObjCommand(\"ruby\")"</span>);</div>
<div class="line"><a name="l06312"></a><span class="lineno"> 6312</span>  Tcl_CreateObjCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"ruby"</span>, ip_ruby_eval, (ClientData)NULL,</div>
<div class="line"><a name="l06313"></a><span class="lineno"> 6313</span>  (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06314"></a><span class="lineno"> 6314</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateObjCommand(\"ruby_eval\")"</span>);</div>
<div class="line"><a name="l06315"></a><span class="lineno"> 6315</span>  Tcl_CreateObjCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"ruby_eval"</span>, ip_ruby_eval, (ClientData)NULL,</div>
<div class="line"><a name="l06316"></a><span class="lineno"> 6316</span>  (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06317"></a><span class="lineno"> 6317</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateObjCommand(\"ruby_cmd\")"</span>);</div>
<div class="line"><a name="l06318"></a><span class="lineno"> 6318</span>  Tcl_CreateObjCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"ruby_cmd"</span>, ip_ruby_cmd, (ClientData)NULL,</div>
<div class="line"><a name="l06319"></a><span class="lineno"> 6319</span>  (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06320"></a><span class="lineno"> 6320</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l06321"></a><span class="lineno"> 6321</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateCommand(\"ruby\")"</span>);</div>
<div class="line"><a name="l06322"></a><span class="lineno"> 6322</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"ruby"</span>, ip_ruby_eval, (ClientData)NULL,</div>
<div class="line"><a name="l06323"></a><span class="lineno"> 6323</span>  (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06324"></a><span class="lineno"> 6324</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateCommand(\"ruby_eval\")"</span>);</div>
<div class="line"><a name="l06325"></a><span class="lineno"> 6325</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"ruby_eval"</span>, ip_ruby_eval, (ClientData)NULL,</div>
<div class="line"><a name="l06326"></a><span class="lineno"> 6326</span>  (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06327"></a><span class="lineno"> 6327</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateCommand(\"ruby_cmd\")"</span>);</div>
<div class="line"><a name="l06328"></a><span class="lineno"> 6328</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"ruby_cmd"</span>, ip_ruby_cmd, (ClientData)NULL,</div>
<div class="line"><a name="l06329"></a><span class="lineno"> 6329</span>  (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06330"></a><span class="lineno"> 6330</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06331"></a><span class="lineno"> 6331</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l06332"></a><span class="lineno"> 6332</span>  <span class="comment">/* add 'interp_exit', 'ruby_exit' and replace 'exit' command */</span></div>
<div class="line"><a name="l06333"></a><span class="lineno"> 6333</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l06334"></a><span class="lineno"> 6334</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateObjCommand(\"interp_exit\")"</span>);</div>
<div class="line"><a name="l06335"></a><span class="lineno"> 6335</span>  Tcl_CreateObjCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"interp_exit"</span>, ip_InterpExitObjCmd,</div>
<div class="line"><a name="l06336"></a><span class="lineno"> 6336</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06337"></a><span class="lineno"> 6337</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateObjCommand(\"ruby_exit\")"</span>);</div>
<div class="line"><a name="l06338"></a><span class="lineno"> 6338</span>  Tcl_CreateObjCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"ruby_exit"</span>, ip_RubyExitObjCmd,</div>
<div class="line"><a name="l06339"></a><span class="lineno"> 6339</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06340"></a><span class="lineno"> 6340</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateObjCommand(\"exit\") --> \"ruby_exit\""</span>);</div>
<div class="line"><a name="l06341"></a><span class="lineno"> 6341</span>  Tcl_CreateObjCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"exit"</span>, ip_RubyExitObjCmd,</div>
<div class="line"><a name="l06342"></a><span class="lineno"> 6342</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06343"></a><span class="lineno"> 6343</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l06344"></a><span class="lineno"> 6344</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateCommand(\"interp_exit\")"</span>);</div>
<div class="line"><a name="l06345"></a><span class="lineno"> 6345</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"interp_exit"</span>, ip_InterpExitCommand,</div>
<div class="line"><a name="l06346"></a><span class="lineno"> 6346</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06347"></a><span class="lineno"> 6347</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateCommand(\"ruby_exit\")"</span>);</div>
<div class="line"><a name="l06348"></a><span class="lineno"> 6348</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"ruby_exit"</span>, ip_RubyExitCommand,</div>
<div class="line"><a name="l06349"></a><span class="lineno"> 6349</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06350"></a><span class="lineno"> 6350</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateCommand(\"exit\") --> \"ruby_exit\""</span>);</div>
<div class="line"><a name="l06351"></a><span class="lineno"> 6351</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"exit"</span>, ip_RubyExitCommand,</div>
<div class="line"><a name="l06352"></a><span class="lineno"> 6352</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06353"></a><span class="lineno"> 6353</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06354"></a><span class="lineno"> 6354</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l06355"></a><span class="lineno"> 6355</span>  <span class="comment">/* replace vwait and tkwait */</span></div>
<div class="line"><a name="l06356"></a><span class="lineno"> 6356</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a39f654f51c0bac45062a9c372f2177c0">ip_replace_wait_commands</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, mainWin);</div>
<div class="line"><a name="l06357"></a><span class="lineno"> 6357</span> </div>
<div class="line"><a name="l06358"></a><span class="lineno"> 6358</span>  <span class="comment">/* wrap namespace command */</span></div>
<div class="line"><a name="l06359"></a><span class="lineno"> 6359</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad0239b110512830960c1df20e4508016">ip_wrap_namespace_command</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l06360"></a><span class="lineno"> 6360</span> </div>
<div class="line"><a name="l06361"></a><span class="lineno"> 6361</span>  <span class="comment">/* define command to replace commands which depend on slave's MainWindow */</span></div>
<div class="line"><a name="l06362"></a><span class="lineno"> 6362</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l06363"></a><span class="lineno"> 6363</span> <span class="preprocessor"></span> Tcl_CreateObjCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"__replace_slave_tk_commands__"</span>,</div>
<div class="line"><a name="l06364"></a><span class="lineno"> 6364</span>  ip_rb_replaceSlaveTkCmdsObjCmd,</div>
<div class="line"><a name="l06365"></a><span class="lineno"> 6365</span>  (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06366"></a><span class="lineno"> 6366</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l06367"></a><span class="lineno"> 6367</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"__replace_slave_tk_commands__"</span>,</div>
<div class="line"><a name="l06368"></a><span class="lineno"> 6368</span>  ip_rb_replaceSlaveTkCmdsCommand,</div>
<div class="line"><a name="l06369"></a><span class="lineno"> 6369</span>  (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06370"></a><span class="lineno"> 6370</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06371"></a><span class="lineno"> 6371</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l06372"></a><span class="lineno"> 6372</span>  <span class="comment">/* set finalizer */</span></div>
<div class="line"><a name="l06373"></a><span class="lineno"> 6373</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a51a063bddf9d483f0f92632285ecd2b7">Tcl_CallWhenDeleted</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, ip_CallWhenDeleted, (ClientData)mainWin);</div>
<div class="line"><a name="l06374"></a><span class="lineno"> 6374</span> </div>
<div class="line"><a name="l06375"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a272dcd0f1f8dabedb93dc08143e7578b"> 6375</a></span>  <span class="keywordflow">if</span> (mainWin != (Tk_Window)NULL) {</div>
<div class="line"><a name="l06376"></a><span class="lineno"> 6376</span>  Tk_Release((ClientData)mainWin);</div>
<div class="line"><a name="l06377"></a><span class="lineno"> 6377</span>  }</div>
<div class="line"><a name="l06378"></a><span class="lineno"> 6378</span> </div>
<div class="line"><a name="l06379"></a><span class="lineno"> 6379</span>  <span class="keywordflow">return</span> <span class="keyword">self</span>;</div>
<div class="line"><a name="l06380"></a><span class="lineno"> 6380</span> }</div>
<div class="line"><a name="l06381"></a><span class="lineno"> 6381</span> </div>
<div class="line"><a name="l06382"></a><span class="lineno"> 6382</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06383"></a><span class="lineno"> 6383</span> ip_create_slave_core(interp, argc, argv)</div>
<div class="line"><a name="l06384"></a><span class="lineno"> 6384</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l06385"></a><span class="lineno"> 6385</span>  <span class="keywordtype">int</span> argc;</div>
<div class="line"><a name="l06386"></a><span class="lineno"> 6386</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l06387"></a><span class="lineno"> 6387</span> {</div>
<div class="line"><a name="l06388"></a><span class="lineno"> 6388</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2458a76a779f5dd7a96d2706dff43062">master</a> = get_ip(interp);</div>
<div class="line"><a name="l06389"></a><span class="lineno"> 6389</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *slave = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac8df5a8a8961bd9e16be385fef28c2f2">ALLOC</a>(<span class="keyword">struct</span> <a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a>);</div>
<div class="line"><a name="l06390"></a><span class="lineno"> 6390</span>  <span class="comment">/* struct tcltkip *slave = (struct tcltkip *)ckalloc(sizeof(struct tcltkip)); */</span></div>
<div class="line"><a name="l06391"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a03e6ba5aead794bca96e745156f92a66"> 6391</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a03e6ba5aead794bca96e745156f92a66">safemode</a>;</div>
<div class="line"><a name="l06392"></a><span class="lineno"> 6392</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#afeadf3d97090e74a174614cac38a5dd6">name</a>;</div>
<div class="line"><a name="l06393"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3165c7b86c85463f7d64defedf6b0d43"> 6393</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3165c7b86c85463f7d64defedf6b0d43">safe</a>;</div>
<div class="line"><a name="l06394"></a><span class="lineno"> 6394</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l06395"></a><span class="lineno"> 6395</span>  Tk_Window <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1836b9bb7e8d6062ac5b468f3163b9d2">mainWin</a>;</div>
<div class="line"><a name="l06396"></a><span class="lineno"> 6396</span> </div>
<div class="line"><a name="l06397"></a><span class="lineno"> 6397</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l06398"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0962d0cd8ba3ca58ee65907f5da0888e"> 6398</a></span>  <span class="keywordflow">if</span> (deleted_ip(master)) {</div>
<div class="line"><a name="l06399"></a><span class="lineno"> 6399</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l06400"></a><span class="lineno"> 6400</span>  <span class="stringliteral">"deleted master cannot create a new slave"</span>);</div>
<div class="line"><a name="l06401"></a><span class="lineno"> 6401</span>  }</div>
<div class="line"><a name="l06402"></a><span class="lineno"> 6402</span> </div>
<div class="line"><a name="l06403"></a><span class="lineno"> 6403</span>  name = argv[0];</div>
<div class="line"><a name="l06404"></a><span class="lineno"> 6404</span>  safemode = argv[1];</div>
<div class="line"><a name="l06405"></a><span class="lineno"> 6405</span> </div>
<div class="line"><a name="l06406"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a17999fd23d685292b360248aec1a6baf"> 6406</a></span>  <span class="keywordflow">if</span> (Tcl_IsSafe(master-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) == 1) {</div>
<div class="line"><a name="l06407"></a><span class="lineno"> 6407</span>  safe = 1;</div>
<div class="line"><a name="l06408"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa02fd7d11730137fa18658f0540b5ebd"> 6408</a></span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (safemode == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a> || <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(safemode)) {</div>
<div class="line"><a name="l06409"></a><span class="lineno"> 6409</span>  safe = 0;</div>
<div class="line"><a name="l06410"></a><span class="lineno"> 6410</span>  <span class="comment">/* rb_secure(4); */</span> <span class="comment">/* already checked */</span></div>
<div class="line"><a name="l06411"></a><span class="lineno"> 6411</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l06412"></a><span class="lineno"> 6412</span>  safe = 1;</div>
<div class="line"><a name="l06413"></a><span class="lineno"> 6413</span>  }</div>
<div class="line"><a name="l06414"></a><span class="lineno"> 6414</span> </div>
<div class="line"><a name="l06415"></a><span class="lineno"> 6415</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l06416"></a><span class="lineno"> 6416</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l06417"></a><span class="lineno"> 6417</span> </div>
<div class="line"><a name="l06418"></a><span class="lineno"> 6418</span> <span class="preprocessor">#if 0</span></div>
<div class="line"><a name="l06419"></a><span class="lineno"> 6419</span> <span class="preprocessor"></span> <span class="comment">/* init Tk */</span></div>
<div class="line"><a name="l06420"></a><span class="lineno"> 6420</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(with_tk)) {</div>
<div class="line"><a name="l06421"></a><span class="lineno"> 6421</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03">exc</a>;</div>
<div class="line"><a name="l06422"></a><span class="lineno"> 6422</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>()) {</div>
<div class="line"><a name="l06423"></a><span class="lineno"> 6423</span>  exc = tcltkip_init_tk(interp);</div>
<div class="line"><a name="l06424"></a><span class="lineno"> 6424</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(exc)) {</div>
<div class="line"><a name="l06425"></a><span class="lineno"> 6425</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l06426"></a><span class="lineno"> 6426</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03">exc</a>;</div>
<div class="line"><a name="l06427"></a><span class="lineno"> 6427</span>  }</div>
<div class="line"><a name="l06428"></a><span class="lineno"> 6428</span>  }</div>
<div class="line"><a name="l06429"></a><span class="lineno"> 6429</span>  }</div>
<div class="line"><a name="l06430"></a><span class="lineno"> 6430</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06431"></a><span class="lineno"> 6431</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l06432"></a><span class="lineno"> 6432</span>  <span class="comment">/* create slave-ip */</span></div>
<div class="line"><a name="l06433"></a><span class="lineno"> 6433</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l06434"></a><span class="lineno"> 6434</span> <span class="preprocessor"></span> <span class="comment">/* slave->tk_thread_id = 0; */</span></div>
<div class="line"><a name="l06435"></a><span class="lineno"> 6435</span>  slave->tk_thread_id = master->tk_thread_id; <span class="comment">/* == current thread */</span></div>
<div class="line"><a name="l06436"></a><span class="lineno"> 6436</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06437"></a><span class="lineno"> 6437</span> <span class="preprocessor"></span> slave-><a class="code" href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f">ref_count</a> = 0;</div>
<div class="line"><a name="l06438"></a><span class="lineno"> 6438</span>  slave-><a class="code" href="../../db/d19/structtcltkip.html#ace5c5b6dab42be91b5cf7389a84cbb2c">allow_ruby_exit</a> = 0;</div>
<div class="line"><a name="l06439"></a><span class="lineno"> 6439</span>  slave-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = 0;</div>
<div class="line"><a name="l06440"></a><span class="lineno"> 6440</span> </div>
<div class="line"><a name="l06441"></a><span class="lineno"> 6441</span>  slave-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a> = Tcl_CreateSlave(master-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2665a51abbd5b49c15abff3df00fa9db">StringValuePtr</a>(name), safe);</div>
<div class="line"><a name="l06442"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a36ce2bc057b221dee6f5a9e6a49886e3"> 6442</a></span>  <span class="keywordflow">if</span> (slave-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a> == NULL) {</div>
<div class="line"><a name="l06443"></a><span class="lineno"> 6443</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l06444"></a><span class="lineno"> 6444</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l06445"></a><span class="lineno"> 6445</span>  <span class="stringliteral">"fail to create the new slave interpreter"</span>);</div>
<div class="line"><a name="l06446"></a><span class="lineno"> 6446</span>  }</div>
<div class="line"><a name="l06447"></a><span class="lineno"> 6447</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l06448"></a><span class="lineno"> 6448</span> <span class="preprocessor"></span><span class="preprocessor">#if TCL_NAMESPACE_DEBUG</span></div>
<div class="line"><a name="l06449"></a><span class="lineno"> 6449</span> <span class="preprocessor"></span> slave->default_ns = Tcl_GetCurrentNamespace(slave-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l06450"></a><span class="lineno"> 6450</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06451"></a><span class="lineno"> 6451</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06452"></a><span class="lineno"> 6452</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa23f39899c949c9e59a0ee3096d76fc5">rbtk_preserve_ip</a>(slave);</div>
<div class="line"><a name="l06453"></a><span class="lineno"> 6453</span> </div>
<div class="line"><a name="l06454"></a><span class="lineno"> 6454</span>  slave-><a class="code" href="../../db/d19/structtcltkip.html#a806a9dbb2520a6a3fc1eb1d860537c63">has_orig_exit</a></div>
<div class="line"><a name="l06455"></a><span class="lineno"> 6455</span>  = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad5c254c9258200de195897a1d1791732">Tcl_GetCommandInfo</a>(slave-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"exit"</span>, &(slave-><a class="code" href="../../db/d19/structtcltkip.html#a15f267a597e541e9816d481777696dc1">orig_exit_info</a>));</div>
<div class="line"><a name="l06456"></a><span class="lineno"> 6456</span> </div>
<div class="line"><a name="l06457"></a><span class="lineno"> 6457</span>  <span class="comment">/* replace 'exit' command --> 'interp_exit' command */</span></div>
<div class="line"><a name="l06458"></a><span class="lineno"> 6458</span>  mainWin = (<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>())? Tk_MainWindow(slave-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>): (Tk_Window)NULL;</div>
<div class="line"><a name="l06459"></a><span class="lineno"> 6459</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l06460"></a><span class="lineno"> 6460</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateObjCommand(\"exit\") --> \"interp_exit\""</span>);</div>
<div class="line"><a name="l06461"></a><span class="lineno"> 6461</span>  Tcl_CreateObjCommand(slave-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"exit"</span>, ip_InterpExitObjCmd,</div>
<div class="line"><a name="l06462"></a><span class="lineno"> 6462</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06463"></a><span class="lineno"> 6463</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l06464"></a><span class="lineno"> 6464</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateCommand(\"exit\") --> \"interp_exit\""</span>);</div>
<div class="line"><a name="l06465"></a><span class="lineno"> 6465</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(slave-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"exit"</span>, ip_InterpExitCommand,</div>
<div class="line"><a name="l06466"></a><span class="lineno"> 6466</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06467"></a><span class="lineno"> 6467</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06468"></a><span class="lineno"> 6468</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l06469"></a><span class="lineno"> 6469</span>  <span class="comment">/* replace vwait and tkwait */</span></div>
<div class="line"><a name="l06470"></a><span class="lineno"> 6470</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a39f654f51c0bac45062a9c372f2177c0">ip_replace_wait_commands</a>(slave-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, mainWin);</div>
<div class="line"><a name="l06471"></a><span class="lineno"> 6471</span> </div>
<div class="line"><a name="l06472"></a><span class="lineno"> 6472</span>  <span class="comment">/* wrap namespace command */</span></div>
<div class="line"><a name="l06473"></a><span class="lineno"> 6473</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad0239b110512830960c1df20e4508016">ip_wrap_namespace_command</a>(slave-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l06474"></a><span class="lineno"> 6474</span> </div>
<div class="line"><a name="l06475"></a><span class="lineno"> 6475</span>  <span class="comment">/* define command to replace cmds which depend on slave-slave's MainWin */</span></div>
<div class="line"><a name="l06476"></a><span class="lineno"> 6476</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l06477"></a><span class="lineno"> 6477</span> <span class="preprocessor"></span> Tcl_CreateObjCommand(slave-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"__replace_slave_tk_commands__"</span>,</div>
<div class="line"><a name="l06478"></a><span class="lineno"> 6478</span>  ip_rb_replaceSlaveTkCmdsObjCmd,</div>
<div class="line"><a name="l06479"></a><span class="lineno"> 6479</span>  (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06480"></a><span class="lineno"> 6480</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l06481"></a><span class="lineno"> 6481</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(slave-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"__replace_slave_tk_commands__"</span>,</div>
<div class="line"><a name="l06482"></a><span class="lineno"> 6482</span>  ip_rb_replaceSlaveTkCmdsCommand,</div>
<div class="line"><a name="l06483"></a><span class="lineno"> 6483</span>  (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06484"></a><span class="lineno"> 6484</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06485"></a><span class="lineno"> 6485</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l06486"></a><span class="lineno"> 6486</span>  <span class="comment">/* set finalizer */</span></div>
<div class="line"><a name="l06487"></a><span class="lineno"> 6487</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a51a063bddf9d483f0f92632285ecd2b7">Tcl_CallWhenDeleted</a>(slave-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, ip_CallWhenDeleted, (ClientData)mainWin);</div>
<div class="line"><a name="l06488"></a><span class="lineno"> 6488</span> </div>
<div class="line"><a name="l06489"></a><span class="lineno"> 6489</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l06490"></a><span class="lineno"> 6490</span> </div>
<div class="line"><a name="l06491"></a><span class="lineno"> 6491</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#acdb411cfd8a6dcce9a04494c66ea91fb">Data_Wrap_Struct</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad07df58de9895cbc33c10f02540d2d4d">CLASS_OF</a>(interp), 0, ip_free, slave);</div>
<div class="line"><a name="l06492"></a><span class="lineno"> 6492</span> }</div>
<div class="line"><a name="l06493"></a><span class="lineno"> 6493</span> </div>
<div class="line"><a name="l06494"></a><span class="lineno"> 6494</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06495"></a><span class="lineno"> 6495</span> ip_create_slave(argc, argv, <span class="keyword">self</span>)</div>
<div class="line"><a name="l06496"></a><span class="lineno"> 6496</span>  int argc;</div>
<div class="line"><a name="l06497"></a><span class="lineno"> 6497</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l06498"></a><span class="lineno"> 6498</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l06499"></a><span class="lineno"> 6499</span> {</div>
<div class="line"><a name="l06500"></a><span class="lineno"> 6500</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *master = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l06501"></a><span class="lineno"> 6501</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a03e6ba5aead794bca96e745156f92a66">safemode</a>;</div>
<div class="line"><a name="l06502"></a><span class="lineno"> 6502</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#afeadf3d97090e74a174614cac38a5dd6">name</a>;</div>
<div class="line"><a name="l06503"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8e74ef7f91c6d22578c44d4f480ab8e5"> 6503</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8e74ef7f91c6d22578c44d4f480ab8e5">callargv</a>[2];</div>
<div class="line"><a name="l06504"></a><span class="lineno"> 6504</span> </div>
<div class="line"><a name="l06505"></a><span class="lineno"> 6505</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l06506"></a><span class="lineno"> 6506</span>  <span class="keywordflow">if</span> (deleted_ip(master)) {</div>
<div class="line"><a name="l06507"></a><span class="lineno"> 6507</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l06508"></a><span class="lineno"> 6508</span>  <span class="stringliteral">"deleted master cannot create a new slave interpreter"</span>);</div>
<div class="line"><a name="l06509"></a><span class="lineno"> 6509</span>  }</div>
<div class="line"><a name="l06510"></a><span class="lineno"> 6510</span> </div>
<div class="line"><a name="l06511"></a><span class="lineno"> 6511</span>  <span class="comment">/* argument check */</span></div>
<div class="line"><a name="l06512"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a74c6bf0669162fe2b13ce882478b92aa"> 6512</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(argc, argv, <span class="stringliteral">"11"</span>, &name, &safemode) == 1) {</div>
<div class="line"><a name="l06513"></a><span class="lineno"> 6513</span>  safemode = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l06514"></a><span class="lineno"> 6514</span>  }</div>
<div class="line"><a name="l06515"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abcc1fdc3c8c7ba2f2072e9bc734a1737"> 6515</a></span>  <span class="keywordflow">if</span> (Tcl_IsSafe(master-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) != 1</div>
<div class="line"><a name="l06516"></a><span class="lineno"> 6516</span>  && (safemode == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a> || <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(safemode))) {</div>
<div class="line"><a name="l06517"></a><span class="lineno"> 6517</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a94573b23a7c5d9c129da54deebf38842">rb_secure</a>(4);</div>
<div class="line"><a name="l06518"></a><span class="lineno"> 6518</span>  }</div>
<div class="line"><a name="l06519"></a><span class="lineno"> 6519</span> </div>
<div class="line"><a name="l06520"></a><span class="lineno"> 6520</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(name);</div>
<div class="line"><a name="l06521"></a><span class="lineno"> 6521</span>  callargv[0] = <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#afeadf3d97090e74a174614cac38a5dd6">name</a>;</div>
<div class="line"><a name="l06522"></a><span class="lineno"> 6522</span>  callargv[1] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a03e6ba5aead794bca96e745156f92a66">safemode</a>;</div>
<div class="line"><a name="l06523"></a><span class="lineno"> 6523</span> </div>
<div class="line"><a name="l06524"></a><span class="lineno"> 6524</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a46bfb9a7c64428cdf208d45e06352fce">tk_funcall</a>(ip_create_slave_core, 2, callargv, <span class="keyword">self</span>);</div>
<div class="line"><a name="l06525"></a><span class="lineno"> 6525</span> }</div>
<div class="line"><a name="l06526"></a><span class="lineno"> 6526</span> </div>
<div class="line"><a name="l06527"></a><span class="lineno"> 6527</span> </div>
<div class="line"><a name="l06528"></a><span class="lineno"> 6528</span> <span class="comment">/* self is slave of master? */</span></div>
<div class="line"><a name="l06529"></a><span class="lineno"> 6529</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06530"></a><span class="lineno"> 6530</span> ip_is_slave_of_p(<span class="keyword">self</span>, master)</div>
<div class="line"><a name="l06531"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a2458a76a779f5dd7a96d2706dff43062"> 6531</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self, master;</div>
<div class="line"><a name="l06532"></a><span class="lineno"> 6532</span> {</div>
<div class="line"><a name="l06533"></a><span class="lineno"> 6533</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(master, tcltkip_class)) {</div>
<div class="line"><a name="l06534"></a><span class="lineno"> 6534</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"expected TclTkIp object"</span>);</div>
<div class="line"><a name="l06535"></a><span class="lineno"> 6535</span>  }</div>
<div class="line"><a name="l06536"></a><span class="lineno"> 6536</span> </div>
<div class="line"><a name="l06537"></a><span class="lineno"> 6537</span>  <span class="keywordflow">if</span> (Tcl_GetMaster(get_ip(<span class="keyword">self</span>)->ip) == get_ip(master)->ip) {</div>
<div class="line"><a name="l06538"></a><span class="lineno"> 6538</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l06539"></a><span class="lineno"> 6539</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l06540"></a><span class="lineno"> 6540</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l06541"></a><span class="lineno"> 6541</span>  }</div>
<div class="line"><a name="l06542"></a><span class="lineno"> 6542</span> }</div>
<div class="line"><a name="l06543"></a><span class="lineno"> 6543</span> </div>
<div class="line"><a name="l06544"></a><span class="lineno"> 6544</span> </div>
<div class="line"><a name="l06545"></a><span class="lineno"> 6545</span> <span class="comment">/* create console (if supported) */</span></div>
<div class="line"><a name="l06546"></a><span class="lineno"> 6546</span> <span class="preprocessor">#if defined(MAC_TCL) || defined(__WIN32__)</span></div>
<div class="line"><a name="l06547"></a><span class="lineno"> 6547</span> <span class="preprocessor"></span><span class="preprocessor">#if TCL_MAJOR_VERSION < 8 \</span></div>
<div class="line"><a name="l06548"></a><span class="lineno"> 6548</span> <span class="preprocessor"> || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION == 0) \</span></div>
<div class="line"><a name="l06549"></a><span class="lineno"> 6549</span> <span class="preprocessor"> || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION == 1 \</span></div>
<div class="line"><a name="l06550"></a><span class="lineno"> 6550</span> <span class="preprocessor"> && (TCL_RELEASE_LEVEL == TCL_ALPHA_RELEASE \</span></div>
<div class="line"><a name="l06551"></a><span class="lineno"> 6551</span> <span class="preprocessor"> || (TCL_RELEASE_LEVEL == TCL_BETA_RELEASE \</span></div>
<div class="line"><a name="l06552"></a><span class="lineno"> 6552</span> <span class="preprocessor"> && TCL_RELEASE_SERIAL < 2) ) )</span></div>
<div class="line"><a name="l06553"></a><span class="lineno"> 6553</span> <span class="preprocessor"></span><a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keywordtype">void</span> TkConsoleCreate <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<span class="keywordtype">void</span>));</div>
<div class="line"><a name="l06554"></a><span class="lineno"> 6554</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06555"></a><span class="lineno"> 6555</span> <span class="preprocessor"></span><span class="preprocessor">#if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION == 1 \</span></div>
<div class="line"><a name="l06556"></a><span class="lineno"> 6556</span> <span class="preprocessor"> && ( (TCL_RELEASE_LEVEL == TCL_FINAL_RELEASE \</span></div>
<div class="line"><a name="l06557"></a><span class="lineno"> 6557</span> <span class="preprocessor"> && TCL_RELEASE_SERIAL == 0) \</span></div>
<div class="line"><a name="l06558"></a><span class="lineno"> 6558</span> <span class="preprocessor"> || (TCL_RELEASE_LEVEL == TCL_BETA_RELEASE \</span></div>
<div class="line"><a name="l06559"></a><span class="lineno"> 6559</span> <span class="preprocessor"> && TCL_RELEASE_SERIAL >= 2) )</span></div>
<div class="line"><a name="l06560"></a><span class="lineno"> 6560</span> <span class="preprocessor"></span><a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keywordtype">void</span> TkConsoleCreate_ <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((<span class="keywordtype">void</span>));</div>
<div class="line"><a name="l06561"></a><span class="lineno"> 6561</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06562"></a><span class="lineno"> 6562</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06563"></a><span class="lineno"> 6563</span> <span class="preprocessor"></span><span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06564"></a><span class="lineno"> 6564</span> ip_create_console_core(interp, argc, argv)</div>
<div class="line"><a name="l06565"></a><span class="lineno"> 6565</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l06566"></a><span class="lineno"> 6566</span>  <span class="keywordtype">int</span> argc; <span class="comment">/* dummy */</span></div>
<div class="line"><a name="l06567"></a><span class="lineno"> 6567</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv; <span class="comment">/* dummy */</span></div>
<div class="line"><a name="l06568"></a><span class="lineno"> 6568</span> {</div>
<div class="line"><a name="l06569"></a><span class="lineno"> 6569</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(interp);</div>
<div class="line"><a name="l06570"></a><span class="lineno"> 6570</span> </div>
<div class="line"><a name="l06571"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac4f4a03d6249deda16f103a9c30efe45"> 6571</a></span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>()) {</div>
<div class="line"><a name="l06572"></a><span class="lineno"> 6572</span>  tcltkip_init_tk(interp);</div>
<div class="line"><a name="l06573"></a><span class="lineno"> 6573</span>  }</div>
<div class="line"><a name="l06574"></a><span class="lineno"> 6574</span> </div>
<div class="line"><a name="l06575"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a259db119f1fb27d8f7765452b433b034"> 6575</a></span>  <span class="keywordflow">if</span> (Tcl_GetVar(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>,<span class="stringliteral">"tcl_interactive"</span>,TCL_GLOBAL_ONLY) == (<span class="keywordtype">char</span>*)NULL) {</div>
<div class="line"><a name="l06576"></a><span class="lineno"> 6576</span>  Tcl_SetVar(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"tcl_interactive"</span>, <span class="stringliteral">"0"</span>, TCL_GLOBAL_ONLY);</div>
<div class="line"><a name="l06577"></a><span class="lineno"> 6577</span>  }</div>
<div class="line"><a name="l06578"></a><span class="lineno"> 6578</span> </div>
<div class="line"><a name="l06579"></a><span class="lineno"> 6579</span> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 \</span></div>
<div class="line"><a name="l06580"></a><span class="lineno"> 6580</span> <span class="preprocessor"> || (TCL_MAJOR_VERSION == 8 \</span></div>
<div class="line"><a name="l06581"></a><span class="lineno"> 6581</span> <span class="preprocessor"> && (TCL_MINOR_VERSION > 1 \</span></div>
<div class="line"><a name="l06582"></a><span class="lineno"> 6582</span> <span class="preprocessor"> || (TCL_MINOR_VERSION == 1 \</span></div>
<div class="line"><a name="l06583"></a><span class="lineno"> 6583</span> <span class="preprocessor"> && TCL_RELEASE_LEVEL == TCL_FINAL_RELEASE \</span></div>
<div class="line"><a name="l06584"></a><span class="lineno"> 6584</span> <span class="preprocessor"> && TCL_RELEASE_SERIAL >= 1) ) )</span></div>
<div class="line"><a name="l06585"></a><span class="lineno"> 6585</span> <span class="preprocessor"></span> Tk_InitConsoleChannels(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l06586"></a><span class="lineno"> 6586</span> </div>
<div class="line"><a name="l06587"></a><span class="lineno"> 6587</span>  <span class="keywordflow">if</span> (Tk_CreateConsoleWindow(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l06588"></a><span class="lineno"> 6588</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"fail to create console-window"</span>);</div>
<div class="line"><a name="l06589"></a><span class="lineno"> 6589</span>  }</div>
<div class="line"><a name="l06590"></a><span class="lineno"> 6590</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l06591"></a><span class="lineno"> 6591</span> <span class="preprocessor"></span><span class="preprocessor">#if defined(MAC_TCL) || defined(__WIN32__)</span></div>
<div class="line"><a name="l06592"></a><span class="lineno"> 6592</span> <span class="preprocessor"></span><span class="preprocessor">#if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION == 1 \</span></div>
<div class="line"><a name="l06593"></a><span class="lineno"> 6593</span> <span class="preprocessor"> && ( (TCL_RELEASE_LEVEL == TCL_FINAL_RELEASE && TCL_RELEASE_SERIAL == 0) \</span></div>
<div class="line"><a name="l06594"></a><span class="lineno"> 6594</span> <span class="preprocessor"> || (TCL_RELEASE_LEVEL == TCL_BETA_RELEASE && TCL_RELEASE_SERIAL >= 2) )</span></div>
<div class="line"><a name="l06595"></a><span class="lineno"> 6595</span> <span class="preprocessor"></span> TkConsoleCreate_();</div>
<div class="line"><a name="l06596"></a><span class="lineno"> 6596</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l06597"></a><span class="lineno"> 6597</span> <span class="preprocessor"></span> TkConsoleCreate();</div>
<div class="line"><a name="l06598"></a><span class="lineno"> 6598</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06599"></a><span class="lineno"> 6599</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l06600"></a><span class="lineno"> 6600</span>  <span class="keywordflow">if</span> (TkConsoleInit(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l06601"></a><span class="lineno"> 6601</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"fail to create console-window"</span>);</div>
<div class="line"><a name="l06602"></a><span class="lineno"> 6602</span>  }</div>
<div class="line"><a name="l06603"></a><span class="lineno"> 6603</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l06604"></a><span class="lineno"> 6604</span> <span class="preprocessor"></span> <a class="code" href="../../db/dcc/error_8c.html#a0083d327c582acc3300d59e8fe257c27">rb_notimplement</a>();</div>
<div class="line"><a name="l06605"></a><span class="lineno"> 6605</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06606"></a><span class="lineno"> 6606</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06607"></a><span class="lineno"> 6607</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l06608"></a><span class="lineno"> 6608</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abb159f1f4254ecf6df54f13d2b3468c6">interp</a>;</div>
<div class="line"><a name="l06609"></a><span class="lineno"> 6609</span> }</div>
<div class="line"><a name="l06610"></a><span class="lineno"> 6610</span> </div>
<div class="line"><a name="l06611"></a><span class="lineno"> 6611</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06612"></a><span class="lineno"> 6612</span> ip_create_console(<span class="keyword">self</span>)</div>
<div class="line"><a name="l06613"></a><span class="lineno"> 6613</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l06614"></a><span class="lineno"> 6614</span> {</div>
<div class="line"><a name="l06615"></a><span class="lineno"> 6615</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l06616"></a><span class="lineno"> 6616</span> </div>
<div class="line"><a name="l06617"></a><span class="lineno"> 6617</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l06618"></a><span class="lineno"> 6618</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l06619"></a><span class="lineno"> 6619</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"interpreter is deleted"</span>);</div>
<div class="line"><a name="l06620"></a><span class="lineno"> 6620</span>  }</div>
<div class="line"><a name="l06621"></a><span class="lineno"> 6621</span> </div>
<div class="line"><a name="l06622"></a><span class="lineno"> 6622</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a46bfb9a7c64428cdf208d45e06352fce">tk_funcall</a>(ip_create_console_core, 0, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>*)NULL, <span class="keyword">self</span>);</div>
<div class="line"><a name="l06623"></a><span class="lineno"> 6623</span> }</div>
<div class="line"><a name="l06624"></a><span class="lineno"> 6624</span> </div>
<div class="line"><a name="l06625"></a><span class="lineno"> 6625</span> <span class="comment">/* make ip "safe" */</span></div>
<div class="line"><a name="l06626"></a><span class="lineno"> 6626</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06627"></a><span class="lineno"> 6627</span> ip_make_safe_core(interp, argc, argv)</div>
<div class="line"><a name="l06628"></a><span class="lineno"> 6628</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l06629"></a><span class="lineno"> 6629</span>  <span class="keywordtype">int</span> argc; <span class="comment">/* dummy */</span></div>
<div class="line"><a name="l06630"></a><span class="lineno"> 6630</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv; <span class="comment">/* dummy */</span></div>
<div class="line"><a name="l06631"></a><span class="lineno"> 6631</span> {</div>
<div class="line"><a name="l06632"></a><span class="lineno"> 6632</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(interp);</div>
<div class="line"><a name="l06633"></a><span class="lineno"> 6633</span>  Tk_Window <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1836b9bb7e8d6062ac5b468f3163b9d2">mainWin</a>;</div>
<div class="line"><a name="l06634"></a><span class="lineno"> 6634</span> </div>
<div class="line"><a name="l06635"></a><span class="lineno"> 6635</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l06636"></a><span class="lineno"> 6636</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l06637"></a><span class="lineno"> 6637</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"interpreter is deleted"</span>);</div>
<div class="line"><a name="l06638"></a><span class="lineno"> 6638</span>  }</div>
<div class="line"><a name="l06639"></a><span class="lineno"> 6639</span> </div>
<div class="line"><a name="l06640"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ab57fa1e0bdc8f1636a1e3d35755b7602"> 6640</a></span>  <span class="keywordflow">if</span> (Tcl_MakeSafe(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>) {</div>
<div class="line"><a name="l06641"></a><span class="lineno"> 6641</span>  <span class="comment">/* return rb_exc_new2(rb_eRuntimeError,</span></div>
<div class="line"><a name="l06642"></a><span class="lineno"> 6642</span> <span class="comment"> Tcl_GetStringResult(ptr->ip)); */</span></div>
<div class="line"><a name="l06643"></a><span class="lineno"> 6643</span>  <span class="keywordflow">return</span> create_ip_exc(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"%s"</span>,</div>
<div class="line"><a name="l06644"></a><span class="lineno"> 6644</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l06645"></a><span class="lineno"> 6645</span>  }</div>
<div class="line"><a name="l06646"></a><span class="lineno"> 6646</span> </div>
<div class="line"><a name="l06647"></a><span class="lineno"> 6647</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#ace5c5b6dab42be91b5cf7389a84cbb2c">allow_ruby_exit</a> = 0;</div>
<div class="line"><a name="l06648"></a><span class="lineno"> 6648</span> </div>
<div class="line"><a name="l06649"></a><span class="lineno"> 6649</span>  <span class="comment">/* replace 'exit' command --> 'interp_exit' command */</span></div>
<div class="line"><a name="l06650"></a><span class="lineno"> 6650</span>  mainWin = (<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>())? Tk_MainWindow(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>): (Tk_Window)NULL;</div>
<div class="line"><a name="l06651"></a><span class="lineno"> 6651</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l06652"></a><span class="lineno"> 6652</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateObjCommand(\"exit\") --> \"interp_exit\""</span>);</div>
<div class="line"><a name="l06653"></a><span class="lineno"> 6653</span>  Tcl_CreateObjCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"exit"</span>, ip_InterpExitObjCmd,</div>
<div class="line"><a name="l06654"></a><span class="lineno"> 6654</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06655"></a><span class="lineno"> 6655</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l06656"></a><span class="lineno"> 6656</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateCommand(\"exit\") --> \"interp_exit\""</span>);</div>
<div class="line"><a name="l06657"></a><span class="lineno"> 6657</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"exit"</span>, ip_InterpExitCommand,</div>
<div class="line"><a name="l06658"></a><span class="lineno"> 6658</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06659"></a><span class="lineno"> 6659</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06660"></a><span class="lineno"> 6660</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l06661"></a><span class="lineno"> 6661</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abb159f1f4254ecf6df54f13d2b3468c6">interp</a>;</div>
<div class="line"><a name="l06662"></a><span class="lineno"> 6662</span> }</div>
<div class="line"><a name="l06663"></a><span class="lineno"> 6663</span> </div>
<div class="line"><a name="l06664"></a><span class="lineno"> 6664</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06665"></a><span class="lineno"> 6665</span> ip_make_safe(<span class="keyword">self</span>)</div>
<div class="line"><a name="l06666"></a><span class="lineno"> 6666</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l06667"></a><span class="lineno"> 6667</span> {</div>
<div class="line"><a name="l06668"></a><span class="lineno"> 6668</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l06669"></a><span class="lineno"> 6669</span> </div>
<div class="line"><a name="l06670"></a><span class="lineno"> 6670</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l06671"></a><span class="lineno"> 6671</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l06672"></a><span class="lineno"> 6672</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"interpreter is deleted"</span>);</div>
<div class="line"><a name="l06673"></a><span class="lineno"> 6673</span>  }</div>
<div class="line"><a name="l06674"></a><span class="lineno"> 6674</span> </div>
<div class="line"><a name="l06675"></a><span class="lineno"> 6675</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a46bfb9a7c64428cdf208d45e06352fce">tk_funcall</a>(ip_make_safe_core, 0, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>*)NULL, <span class="keyword">self</span>);</div>
<div class="line"><a name="l06676"></a><span class="lineno"> 6676</span> }</div>
<div class="line"><a name="l06677"></a><span class="lineno"> 6677</span> </div>
<div class="line"><a name="l06678"></a><span class="lineno"> 6678</span> <span class="comment">/* is safe? */</span></div>
<div class="line"><a name="l06679"></a><span class="lineno"> 6679</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06680"></a><span class="lineno"> 6680</span> ip_is_safe_p(<span class="keyword">self</span>)</div>
<div class="line"><a name="l06681"></a><span class="lineno"> 6681</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l06682"></a><span class="lineno"> 6682</span> {</div>
<div class="line"><a name="l06683"></a><span class="lineno"> 6683</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l06684"></a><span class="lineno"> 6684</span> </div>
<div class="line"><a name="l06685"></a><span class="lineno"> 6685</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l06686"></a><span class="lineno"> 6686</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l06687"></a><span class="lineno"> 6687</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"interpreter is deleted"</span>);</div>
<div class="line"><a name="l06688"></a><span class="lineno"> 6688</span>  }</div>
<div class="line"><a name="l06689"></a><span class="lineno"> 6689</span> </div>
<div class="line"><a name="l06690"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a53971a688b1b82302d3dcf287a02046b"> 6690</a></span>  <span class="keywordflow">if</span> (Tcl_IsSafe(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>)) {</div>
<div class="line"><a name="l06691"></a><span class="lineno"> 6691</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l06692"></a><span class="lineno"> 6692</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l06693"></a><span class="lineno"> 6693</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l06694"></a><span class="lineno"> 6694</span>  }</div>
<div class="line"><a name="l06695"></a><span class="lineno"> 6695</span> }</div>
<div class="line"><a name="l06696"></a><span class="lineno"> 6696</span> </div>
<div class="line"><a name="l06697"></a><span class="lineno"> 6697</span> <span class="comment">/* allow_ruby_exit? */</span></div>
<div class="line"><a name="l06698"></a><span class="lineno"> 6698</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06699"></a><span class="lineno"> 6699</span> ip_allow_ruby_exit_p(<span class="keyword">self</span>)</div>
<div class="line"><a name="l06700"></a><span class="lineno"> 6700</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l06701"></a><span class="lineno"> 6701</span> {</div>
<div class="line"><a name="l06702"></a><span class="lineno"> 6702</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l06703"></a><span class="lineno"> 6703</span> </div>
<div class="line"><a name="l06704"></a><span class="lineno"> 6704</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l06705"></a><span class="lineno"> 6705</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l06706"></a><span class="lineno"> 6706</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"interpreter is deleted"</span>);</div>
<div class="line"><a name="l06707"></a><span class="lineno"> 6707</span>  }</div>
<div class="line"><a name="l06708"></a><span class="lineno"> 6708</span> </div>
<div class="line"><a name="l06709"></a><span class="lineno"> 6709</span>  <span class="keywordflow">if</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#ace5c5b6dab42be91b5cf7389a84cbb2c">allow_ruby_exit</a>) {</div>
<div class="line"><a name="l06710"></a><span class="lineno"> 6710</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l06711"></a><span class="lineno"> 6711</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l06712"></a><span class="lineno"> 6712</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l06713"></a><span class="lineno"> 6713</span>  }</div>
<div class="line"><a name="l06714"></a><span class="lineno"> 6714</span> }</div>
<div class="line"><a name="l06715"></a><span class="lineno"> 6715</span> </div>
<div class="line"><a name="l06716"></a><span class="lineno"> 6716</span> <span class="comment">/* allow_ruby_exit = mode */</span></div>
<div class="line"><a name="l06717"></a><span class="lineno"> 6717</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06718"></a><span class="lineno"> 6718</span> ip_allow_ruby_exit_set(<span class="keyword">self</span>, val)</div>
<div class="line"><a name="l06719"></a><span class="lineno"> 6719</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self, val;</div>
<div class="line"><a name="l06720"></a><span class="lineno"> 6720</span> {</div>
<div class="line"><a name="l06721"></a><span class="lineno"> 6721</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l06722"></a><span class="lineno"> 6722</span>  Tk_Window <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1836b9bb7e8d6062ac5b468f3163b9d2">mainWin</a>;</div>
<div class="line"><a name="l06723"></a><span class="lineno"> 6723</span> </div>
<div class="line"><a name="l06724"></a><span class="lineno"> 6724</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a94573b23a7c5d9c129da54deebf38842">rb_secure</a>(4);</div>
<div class="line"><a name="l06725"></a><span class="lineno"> 6725</span> </div>
<div class="line"><a name="l06726"></a><span class="lineno"> 6726</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l06727"></a><span class="lineno"> 6727</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l06728"></a><span class="lineno"> 6728</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"interpreter is deleted"</span>);</div>
<div class="line"><a name="l06729"></a><span class="lineno"> 6729</span>  }</div>
<div class="line"><a name="l06730"></a><span class="lineno"> 6730</span> </div>
<div class="line"><a name="l06731"></a><span class="lineno"> 6731</span>  <span class="keywordflow">if</span> (Tcl_IsSafe(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>)) {</div>
<div class="line"><a name="l06732"></a><span class="lineno"> 6732</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ae53f1d228c34c2a7715d7d39ab1a2991">rb_eSecurityError</a>,</div>
<div class="line"><a name="l06733"></a><span class="lineno"> 6733</span>  <span class="stringliteral">"insecure operation on a safe interpreter"</span>);</div>
<div class="line"><a name="l06734"></a><span class="lineno"> 6734</span>  }</div>
<div class="line"><a name="l06735"></a><span class="lineno"> 6735</span> </div>
<div class="line"><a name="l06736"></a><span class="lineno"> 6736</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l06737"></a><span class="lineno"> 6737</span> <span class="comment"> * Because of cross-threading, the following line may fail to find</span></div>
<div class="line"><a name="l06738"></a><span class="lineno"> 6738</span> <span class="comment"> * the MainWindow, even if the Tcl/Tk interpreter has one or more.</span></div>
<div class="line"><a name="l06739"></a><span class="lineno"> 6739</span> <span class="comment"> * But it has no problem. Current implementation of both type of</span></div>
<div class="line"><a name="l06740"></a><span class="lineno"> 6740</span> <span class="comment"> * the "exit" command don't need maiinWin token.</span></div>
<div class="line"><a name="l06741"></a><span class="lineno"> 6741</span> <span class="comment"> */</span></div>
<div class="line"><a name="l06742"></a><span class="lineno"> 6742</span>  mainWin = (<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>())? Tk_MainWindow(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>): (Tk_Window)NULL;</div>
<div class="line"><a name="l06743"></a><span class="lineno"> 6743</span> </div>
<div class="line"><a name="l06744"></a><span class="lineno"> 6744</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(val)) {</div>
<div class="line"><a name="l06745"></a><span class="lineno"> 6745</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#ace5c5b6dab42be91b5cf7389a84cbb2c">allow_ruby_exit</a> = 1;</div>
<div class="line"><a name="l06746"></a><span class="lineno"> 6746</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l06747"></a><span class="lineno"> 6747</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateObjCommand(\"exit\") --> \"ruby_exit\""</span>);</div>
<div class="line"><a name="l06748"></a><span class="lineno"> 6748</span>  Tcl_CreateObjCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"exit"</span>, ip_RubyExitObjCmd,</div>
<div class="line"><a name="l06749"></a><span class="lineno"> 6749</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06750"></a><span class="lineno"> 6750</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l06751"></a><span class="lineno"> 6751</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateCommand(\"exit\") --> \"ruby_exit\""</span>);</div>
<div class="line"><a name="l06752"></a><span class="lineno"> 6752</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"exit"</span>, ip_RubyExitCommand,</div>
<div class="line"><a name="l06753"></a><span class="lineno"> 6753</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06754"></a><span class="lineno"> 6754</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06755"></a><span class="lineno"> 6755</span> <span class="preprocessor"></span> <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l06756"></a><span class="lineno"> 6756</span> </div>
<div class="line"><a name="l06757"></a><span class="lineno"> 6757</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l06758"></a><span class="lineno"> 6758</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#ace5c5b6dab42be91b5cf7389a84cbb2c">allow_ruby_exit</a> = 0;</div>
<div class="line"><a name="l06759"></a><span class="lineno"> 6759</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l06760"></a><span class="lineno"> 6760</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateObjCommand(\"exit\") --> \"interp_exit\""</span>);</div>
<div class="line"><a name="l06761"></a><span class="lineno"> 6761</span>  Tcl_CreateObjCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"exit"</span>, ip_InterpExitObjCmd,</div>
<div class="line"><a name="l06762"></a><span class="lineno"> 6762</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06763"></a><span class="lineno"> 6763</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l06764"></a><span class="lineno"> 6764</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"Tcl_CreateCommand(\"exit\") --> \"interp_exit\""</span>);</div>
<div class="line"><a name="l06765"></a><span class="lineno"> 6765</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"exit"</span>, ip_InterpExitCommand,</div>
<div class="line"><a name="l06766"></a><span class="lineno"> 6766</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL);</div>
<div class="line"><a name="l06767"></a><span class="lineno"> 6767</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06768"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e"> 6768</a></span> <span class="preprocessor"></span> <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l06769"></a><span class="lineno"> 6769</span>  }</div>
<div class="line"><a name="l06770"></a><span class="lineno"> 6770</span> }</div>
<div class="line"><a name="l06771"></a><span class="lineno"> 6771</span> </div>
<div class="line"><a name="l06772"></a><span class="lineno"> 6772</span> <span class="comment">/* delete interpreter */</span></div>
<div class="line"><a name="l06773"></a><span class="lineno"> 6773</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06774"></a><span class="lineno"> 6774</span> ip_delete(<span class="keyword">self</span>)</div>
<div class="line"><a name="l06775"></a><span class="lineno"> 6775</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l06776"></a><span class="lineno"> 6776</span> {</div>
<div class="line"><a name="l06777"></a><span class="lineno"> 6777</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l06778"></a><span class="lineno"> 6778</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l06779"></a><span class="lineno"> 6779</span> </div>
<div class="line"><a name="l06780"></a><span class="lineno"> 6780</span>  <span class="comment">/* if (ptr == (struct tcltkip *)NULL || ptr->ip == (Tcl_Interp*)NULL) { */</span></div>
<div class="line"><a name="l06781"></a><span class="lineno"> 6781</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l06782"></a><span class="lineno"> 6782</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"delete deleted IP"</span>);</div>
<div class="line"><a name="l06783"></a><span class="lineno"> 6783</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l06784"></a><span class="lineno"> 6784</span>  }</div>
<div class="line"><a name="l06785"></a><span class="lineno"> 6785</span> </div>
<div class="line"><a name="l06786"></a><span class="lineno"> 6786</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l06787"></a><span class="lineno"> 6787</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l06788"></a><span class="lineno"> 6788</span> </div>
<div class="line"><a name="l06789"></a><span class="lineno"> 6789</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"delete interp"</span>);</div>
<div class="line"><a name="l06790"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abfd5c17ea9b7ed06bcd36f4e979c702c"> 6790</a></span>  <span class="keywordflow">if</span> (!Tcl_InterpDeleted(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>)) {</div>
<div class="line"><a name="l06791"></a><span class="lineno"> 6791</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call ip_finalize"</span>);</div>
<div class="line"><a name="l06792"></a><span class="lineno"> 6792</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7b427778f1e496ccefedf89b5667e319">ip_finalize</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l06793"></a><span class="lineno"> 6793</span> </div>
<div class="line"><a name="l06794"></a><span class="lineno"> 6794</span>  Tcl_DeleteInterp(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l06795"></a><span class="lineno"> 6795</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l06796"></a><span class="lineno"> 6796</span>  }</div>
<div class="line"><a name="l06797"></a><span class="lineno"> 6797</span> </div>
<div class="line"><a name="l06798"></a><span class="lineno"> 6798</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l06799"></a><span class="lineno"> 6799</span> </div>
<div class="line"><a name="l06800"></a><span class="lineno"> 6800</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l06801"></a><span class="lineno"> 6801</span> }</div>
<div class="line"><a name="l06802"></a><span class="lineno"> 6802</span> </div>
<div class="line"><a name="l06803"></a><span class="lineno"> 6803</span> </div>
<div class="line"><a name="l06804"></a><span class="lineno"> 6804</span> <span class="comment">/* is deleted? */</span></div>
<div class="line"><a name="l06805"></a><span class="lineno"> 6805</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06806"></a><span class="lineno"> 6806</span> ip_has_invalid_namespace_p(<span class="keyword">self</span>)</div>
<div class="line"><a name="l06807"></a><span class="lineno"> 6807</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l06808"></a><span class="lineno"> 6808</span> {</div>
<div class="line"><a name="l06809"></a><span class="lineno"> 6809</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l06810"></a><span class="lineno"> 6810</span> </div>
<div class="line"><a name="l06811"></a><span class="lineno"> 6811</span>  <span class="keywordflow">if</span> (ptr == (<span class="keyword">struct</span> <a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *)NULL || ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a> == (Tcl_Interp *)NULL) {</div>
<div class="line"><a name="l06812"></a><span class="lineno"> 6812</span>  <span class="comment">/* deleted IP */</span></div>
<div class="line"><a name="l06813"></a><span class="lineno"> 6813</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l06814"></a><span class="lineno"> 6814</span>  }</div>
<div class="line"><a name="l06815"></a><span class="lineno"> 6815</span> </div>
<div class="line"><a name="l06816"></a><span class="lineno"> 6816</span> <span class="preprocessor">#if TCL_NAMESPACE_DEBUG</span></div>
<div class="line"><a name="l06817"></a><span class="lineno"> 6817</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (rbtk_invalid_namespace(ptr)) {</div>
<div class="line"><a name="l06818"></a><span class="lineno"> 6818</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l06819"></a><span class="lineno"> 6819</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l06820"></a><span class="lineno"> 6820</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l06821"></a><span class="lineno"> 6821</span>  }</div>
<div class="line"><a name="l06822"></a><span class="lineno"> 6822</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l06823"></a><span class="lineno"> 6823</span> <span class="preprocessor"></span> <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l06824"></a><span class="lineno"> 6824</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06825"></a><span class="lineno"> 6825</span> <span class="preprocessor"></span>}</div>
<div class="line"><a name="l06826"></a><span class="lineno"> 6826</span> </div>
<div class="line"><a name="l06827"></a><span class="lineno"> 6827</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06828"></a><span class="lineno"> 6828</span> ip_is_deleted_p(<span class="keyword">self</span>)</div>
<div class="line"><a name="l06829"></a><span class="lineno"> 6829</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l06830"></a><span class="lineno"> 6830</span> {</div>
<div class="line"><a name="l06831"></a><span class="lineno"> 6831</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l06832"></a><span class="lineno"> 6832</span> </div>
<div class="line"><a name="l06833"></a><span class="lineno"> 6833</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l06834"></a><span class="lineno"> 6834</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l06835"></a><span class="lineno"> 6835</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l06836"></a><span class="lineno"> 6836</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l06837"></a><span class="lineno"> 6837</span>  }</div>
<div class="line"><a name="l06838"></a><span class="lineno"> 6838</span> }</div>
<div class="line"><a name="l06839"></a><span class="lineno"> 6839</span> </div>
<div class="line"><a name="l06840"></a><span class="lineno"> 6840</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06841"></a><span class="lineno"> 6841</span> ip_has_mainwindow_p_core(<span class="keyword">self</span>, argc, argv)</div>
<div class="line"><a name="l06842"></a><span class="lineno"> 6842</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l06843"></a><span class="lineno"> 6843</span>  <span class="keywordtype">int</span> argc; <span class="comment">/* dummy */</span></div>
<div class="line"><a name="l06844"></a><span class="lineno"> 6844</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv; <span class="comment">/* dummy */</span></div>
<div class="line"><a name="l06845"></a><span class="lineno"> 6845</span> {</div>
<div class="line"><a name="l06846"></a><span class="lineno"> 6846</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l06847"></a><span class="lineno"> 6847</span> </div>
<div class="line"><a name="l06848"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a1ff7506e812728b7b286a47e38bc5e80"> 6848</a></span>  <span class="keywordflow">if</span> (deleted_ip(ptr) || !<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>()) {</div>
<div class="line"><a name="l06849"></a><span class="lineno"> 6849</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l06850"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a57d3dcef86ed1b881b32febbf706610d"> 6850</a></span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (Tk_MainWindow(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) == (Tk_Window)NULL) {</div>
<div class="line"><a name="l06851"></a><span class="lineno"> 6851</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l06852"></a><span class="lineno"> 6852</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l06853"></a><span class="lineno"> 6853</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l06854"></a><span class="lineno"> 6854</span>  }</div>
<div class="line"><a name="l06855"></a><span class="lineno"> 6855</span> }</div>
<div class="line"><a name="l06856"></a><span class="lineno"> 6856</span> </div>
<div class="line"><a name="l06857"></a><span class="lineno"> 6857</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06858"></a><span class="lineno"> 6858</span> ip_has_mainwindow_p(<span class="keyword">self</span>)</div>
<div class="line"><a name="l06859"></a><span class="lineno"> 6859</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l06860"></a><span class="lineno"> 6860</span> {</div>
<div class="line"><a name="l06861"></a><span class="lineno"> 6861</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a46bfb9a7c64428cdf208d45e06352fce">tk_funcall</a>(ip_has_mainwindow_p_core, 0, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>*)NULL, <span class="keyword">self</span>);</div>
<div class="line"><a name="l06862"></a><span class="lineno"> 6862</span> }</div>
<div class="line"><a name="l06863"></a><span class="lineno"> 6863</span> </div>
<div class="line"><a name="l06864"></a><span class="lineno"> 6864</span> </div>
<div class="line"><a name="l06865"></a><span class="lineno"> 6865</span> <span class="comment">/*** ruby string <=> tcl object ***/</span></div>
<div class="line"><a name="l06866"></a><span class="lineno"> 6866</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l06867"></a><span class="lineno"> 6867</span> <span class="preprocessor"></span><span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06868"></a><span class="lineno"> 6868</span> get_str_from_obj(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aea4012fb11c03c5c1b1fe5399e95342f">obj</a>)</div>
<div class="line"><a name="l06869"></a><span class="lineno"> 6869</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#aea4012fb11c03c5c1b1fe5399e95342f">obj</a>;</div>
<div class="line"><a name="l06870"></a><span class="lineno"> 6870</span> {</div>
<div class="line"><a name="l06871"></a><span class="lineno"> 6871</span>  <span class="keywordtype">int</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>, binary = 0;</div>
<div class="line"><a name="l06872"></a><span class="lineno"> 6872</span>  <span class="keyword">const</span> <span class="keywordtype">char</span> *<a class="code" href="../../de/d46/os2_8c.html#a58defbf6fe556592007171f7a347f9d6">s</a>;</div>
<div class="line"><a name="l06873"></a><span class="lineno"> 6873</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>;</div>
<div class="line"><a name="l06874"></a><span class="lineno"> 6874</span> </div>
<div class="line"><a name="l06875"></a><span class="lineno"> 6875</span> <span class="preprocessor">#if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION == 0</span></div>
<div class="line"><a name="l06876"></a><span class="lineno"> 6876</span> <span class="preprocessor"></span> s = Tcl_GetStringFromObj(obj, &len);</div>
<div class="line"><a name="l06877"></a><span class="lineno"> 6877</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l06878"></a><span class="lineno"> 6878</span> <span class="preprocessor"></span><span class="preprocessor">#if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION <= 3</span></div>
<div class="line"><a name="l06879"></a><span class="lineno"> 6879</span> <span class="preprocessor"></span> <span class="comment">/* TCL_VERSION 8.1 -- 8.3 */</span></div>
<div class="line"><a name="l06880"></a><span class="lineno"> 6880</span>  <span class="keywordflow">if</span> (Tcl_GetCharLength(obj) != Tcl_UniCharLen(Tcl_GetUnicode(obj))) {</div>
<div class="line"><a name="l06881"></a><span class="lineno"> 6881</span>  <span class="comment">/* possibly binary string */</span></div>
<div class="line"><a name="l06882"></a><span class="lineno"> 6882</span>  s = (<span class="keywordtype">char</span> *)Tcl_GetByteArrayFromObj(obj, &len);</div>
<div class="line"><a name="l06883"></a><span class="lineno"> 6883</span>  binary = 1;</div>
<div class="line"><a name="l06884"></a><span class="lineno"> 6884</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l06885"></a><span class="lineno"> 6885</span>  <span class="comment">/* possibly text string */</span></div>
<div class="line"><a name="l06886"></a><span class="lineno"> 6886</span>  s = Tcl_GetStringFromObj(obj, &len);</div>
<div class="line"><a name="l06887"></a><span class="lineno"> 6887</span>  }</div>
<div class="line"><a name="l06888"></a><span class="lineno"> 6888</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_VERSION >= 8.4 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l06889"></a><span class="lineno"> 6889</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (IS_TCL_BYTEARRAY(obj)) {</div>
<div class="line"><a name="l06890"></a><span class="lineno"> 6890</span>  s = (<span class="keywordtype">char</span> *)Tcl_GetByteArrayFromObj(obj, &len);</div>
<div class="line"><a name="l06891"></a><span class="lineno"> 6891</span>  binary = 1;</div>
<div class="line"><a name="l06892"></a><span class="lineno"> 6892</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l06893"></a><span class="lineno"> 6893</span>  s = Tcl_GetStringFromObj(obj, &len);</div>
<div class="line"><a name="l06894"></a><span class="lineno"> 6894</span>  }</div>
<div class="line"><a name="l06895"></a><span class="lineno"> 6895</span> </div>
<div class="line"><a name="l06896"></a><span class="lineno"> 6896</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06897"></a><span class="lineno"> 6897</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06898"></a><span class="lineno"> 6898</span> <span class="preprocessor"></span> str = s ? <a class="code" href="../../db/d2e/intern_8h.html#a48b2b873adb8b6a04254bd631c4b03c5">rb_str_new</a>(s, len) : <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l06899"></a><span class="lineno"> 6899</span>  <span class="keywordflow">if</span> (binary) {</div>
<div class="line"><a name="l06900"></a><span class="lineno"> 6900</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l06901"></a><span class="lineno"> 6901</span> <span class="preprocessor"></span> <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, ENCODING_INDEX_BINARY);</div>
<div class="line"><a name="l06902"></a><span class="lineno"> 6902</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06903"></a><span class="lineno"> 6903</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a>(str, ID_at_enc, ENCODING_NAME_BINARY);</div>
<div class="line"><a name="l06904"></a><span class="lineno"> 6904</span> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION >= 1)</span></div>
<div class="line"><a name="l06905"></a><span class="lineno"> 6905</span> <span class="preprocessor"></span> } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l06906"></a><span class="lineno"> 6906</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l06907"></a><span class="lineno"> 6907</span> <span class="preprocessor"></span> <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, ENCODING_INDEX_UTF8);</div>
<div class="line"><a name="l06908"></a><span class="lineno"> 6908</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06909"></a><span class="lineno"> 6909</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a>(str, ID_at_enc, ENCODING_NAME_UTF8);</div>
<div class="line"><a name="l06910"></a><span class="lineno"> 6910</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06911"></a><span class="lineno"> 6911</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l06912"></a><span class="lineno"> 6912</span>  <span class="keywordflow">return</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>;</div>
<div class="line"><a name="l06913"></a><span class="lineno"> 6913</span> }</div>
<div class="line"><a name="l06914"></a><span class="lineno"> 6914</span> </div>
<div class="line"><a name="l06915"></a><span class="lineno"> 6915</span> <span class="keyword">static</span> Tcl_Obj *</div>
<div class="line"><a name="l06916"></a><span class="lineno"> 6916</span> get_obj_from_str(str)</div>
<div class="line"><a name="l06917"></a><span class="lineno"> 6917</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> str;</div>
<div class="line"><a name="l06918"></a><span class="lineno"> 6918</span> {</div>
<div class="line"><a name="l06919"></a><span class="lineno"> 6919</span>  <span class="keyword">const</span> <span class="keywordtype">char</span> *s = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2665a51abbd5b49c15abff3df00fa9db">StringValuePtr</a>(str);</div>
<div class="line"><a name="l06920"></a><span class="lineno"> 6920</span> </div>
<div class="line"><a name="l06921"></a><span class="lineno"> 6921</span> <span class="preprocessor">#if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION == 0</span></div>
<div class="line"><a name="l06922"></a><span class="lineno"> 6922</span> <span class="preprocessor"></span> <span class="keywordflow">return</span> Tcl_NewStringObj((<span class="keywordtype">char</span>*)s, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str));</div>
<div class="line"><a name="l06923"></a><span class="lineno"> 6923</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_VERSION >= 8.1 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l06924"></a><span class="lineno"> 6924</span> <span class="preprocessor"></span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3390998b1bd6df467b1f77ac2774f3a3">enc</a> = <a class="code" href="../../db/d2e/intern_8h.html#ab8a448eec4dc767e47f5f9bd35974734">rb_attr_get</a>(str, ID_at_enc);</div>
<div class="line"><a name="l06925"></a><span class="lineno"> 6925</span> </div>
<div class="line"><a name="l06926"></a><span class="lineno"> 6926</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(enc)) {</div>
<div class="line"><a name="l06927"></a><span class="lineno"> 6927</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(enc);</div>
<div class="line"><a name="l06928"></a><span class="lineno"> 6928</span>  <span class="keywordflow">if</span> (strcmp(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(enc), <span class="stringliteral">"binary"</span>) == 0) {</div>
<div class="line"><a name="l06929"></a><span class="lineno"> 6929</span>  <span class="comment">/* binary string */</span></div>
<div class="line"><a name="l06930"></a><span class="lineno"> 6930</span>  <span class="keywordflow">return</span> Tcl_NewByteArrayObj((<span class="keyword">const</span> <span class="keywordtype">unsigned</span> <span class="keywordtype">char</span> *)s, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str));</div>
<div class="line"><a name="l06931"></a><span class="lineno"> 6931</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l06932"></a><span class="lineno"> 6932</span>  <span class="comment">/* text string */</span></div>
<div class="line"><a name="l06933"></a><span class="lineno"> 6933</span>  <span class="keywordflow">return</span> Tcl_NewStringObj(s, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str));</div>
<div class="line"><a name="l06934"></a><span class="lineno"> 6934</span>  }</div>
<div class="line"><a name="l06935"></a><span class="lineno"> 6935</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l06936"></a><span class="lineno"> 6936</span> <span class="preprocessor"></span> } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d5/db5/encoding_8c.html#a0ee8da2e6cc01567488e318854a3d9c0">rb_enc_get_index</a>(str) == ENCODING_INDEX_BINARY) {</div>
<div class="line"><a name="l06937"></a><span class="lineno"> 6937</span>  <span class="comment">/* binary string */</span></div>
<div class="line"><a name="l06938"></a><span class="lineno"> 6938</span>  <span class="keywordflow">return</span> Tcl_NewByteArrayObj((<span class="keyword">const</span> <span class="keywordtype">unsigned</span> <span class="keywordtype">char</span> *)s, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str));</div>
<div class="line"><a name="l06939"></a><span class="lineno"> 6939</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06940"></a><span class="lineno"> 6940</span> <span class="preprocessor"></span> } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (memchr(s, 0, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str))) {</div>
<div class="line"><a name="l06941"></a><span class="lineno"> 6941</span>  <span class="comment">/* probably binary string */</span></div>
<div class="line"><a name="l06942"></a><span class="lineno"> 6942</span>  <span class="keywordflow">return</span> Tcl_NewByteArrayObj((<span class="keyword">const</span> <span class="keywordtype">unsigned</span> <span class="keywordtype">char</span> *)s, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str));</div>
<div class="line"><a name="l06943"></a><span class="lineno"> 6943</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l06944"></a><span class="lineno"> 6944</span>  <span class="comment">/* probably text string */</span></div>
<div class="line"><a name="l06945"></a><span class="lineno"> 6945</span>  <span class="keywordflow">return</span> Tcl_NewStringObj(s, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str));</div>
<div class="line"><a name="l06946"></a><span class="lineno"> 6946</span>  }</div>
<div class="line"><a name="l06947"></a><span class="lineno"> 6947</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06948"></a><span class="lineno"> 6948</span> <span class="preprocessor"></span>}</div>
<div class="line"><a name="l06949"></a><span class="lineno"> 6949</span> <span class="preprocessor">#endif </span><span class="comment">/* ruby string <=> tcl object */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l06950"></a><span class="lineno"> 6950</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l06951"></a><span class="lineno"> 6951</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06952"></a><span class="lineno"> 6952</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#afb33421fe234ee34c898da21b1bef388">ip_get_result_string_obj</a>(interp)</div>
<div class="line"><a name="l06953"></a><span class="lineno"> 6953</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l06954"></a><span class="lineno"> 6954</span> {</div>
<div class="line"><a name="l06955"></a><span class="lineno"> 6955</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l06956"></a><span class="lineno"> 6956</span> <span class="preprocessor"></span> Tcl_Obj *retObj;</div>
<div class="line"><a name="l06957"></a><span class="lineno"> 6957</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9cdbcc501f5b1e627030b8efb05f0918">strval</a>;</div>
<div class="line"><a name="l06958"></a><span class="lineno"> 6958</span> </div>
<div class="line"><a name="l06959"></a><span class="lineno"> 6959</span>  retObj = Tcl_GetObjResult(interp);</div>
<div class="line"><a name="l06960"></a><span class="lineno"> 6960</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(retObj);</div>
<div class="line"><a name="l06961"></a><span class="lineno"> 6961</span>  strval = get_str_from_obj(retObj);</div>
<div class="line"><a name="l06962"></a><span class="lineno"> 6962</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832">RbTk_OBJ_UNTRUST</a>(strval);</div>
<div class="line"><a name="l06963"></a><span class="lineno"> 6963</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(interp);</div>
<div class="line"><a name="l06964"></a><span class="lineno"> 6964</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(retObj);</div>
<div class="line"><a name="l06965"></a><span class="lineno"> 6965</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9cdbcc501f5b1e627030b8efb05f0918">strval</a>;</div>
<div class="line"><a name="l06966"></a><span class="lineno"> 6966</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l06967"></a><span class="lineno"> 6967</span> <span class="preprocessor"></span> <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(interp->result);</div>
<div class="line"><a name="l06968"></a><span class="lineno"> 6968</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l06969"></a><span class="lineno"> 6969</span> <span class="preprocessor"></span>}</div>
<div class="line"><a name="l06970"></a><span class="lineno"> 6970</span> </div>
<div class="line"><a name="l06971"></a><span class="lineno"> 6971</span> <span class="comment">/* call Tcl/Tk functions on the eventloop thread */</span></div>
<div class="line"><a name="l06972"></a><span class="lineno"> 6972</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l06973"></a><span class="lineno"> 6973</span> callq_safelevel_handler(arg, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa1d33552e2f33ebee40651b5a44a1299">callq</a>)</div>
<div class="line"><a name="l06974"></a><span class="lineno"> 6974</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> arg;</div>
<div class="line"><a name="l06975"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa1d33552e2f33ebee40651b5a44a1299"> 6975</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa1d33552e2f33ebee40651b5a44a1299">callq</a>;</div>
<div class="line"><a name="l06976"></a><span class="lineno"> 6976</span> {</div>
<div class="line"><a name="l06977"></a><span class="lineno"> 6977</span>  <span class="keyword">struct </span><a class="code" href="../../df/db5/structcall__queue.html">call_queue</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#af30877db2cb29106639acfca6366c3d0">q</a>;</div>
<div class="line"><a name="l06978"></a><span class="lineno"> 6978</span> </div>
<div class="line"><a name="l06979"></a><span class="lineno"> 6979</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad043eb0996705571cad2e5bb39e9675e">Data_Get_Struct</a>(callq, <span class="keyword">struct</span> <a class="code" href="../../df/db5/structcall__queue.html">call_queue</a>, q);</div>
<div class="line"><a name="l06980"></a><span class="lineno"> 6980</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"(safe-level handler) $SAFE = %d"</span>, q-><a class="code" href="../../df/db5/structcall__queue.html#a2fd2c2694948a684ceafa73fe38fa3b6">safe_level</a>);</div>
<div class="line"><a name="l06981"></a><span class="lineno"> 6981</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac95c385910a0bb5f780fb6545d83d881">rb_set_safe_level</a>(q-><a class="code" href="../../df/db5/structcall__queue.html#a2fd2c2694948a684ceafa73fe38fa3b6">safe_level</a>);</div>
<div class="line"><a name="l06982"></a><span class="lineno"> 6982</span>  <span class="keywordflow">return</span>((q-><a class="code" href="../../df/db5/structcall__queue.html#a0ff11e2b5523e140c538dbb945bce6db">func</a>)(q-><a class="code" href="../../df/db5/structcall__queue.html#a3972740fcad6029560d33a85baf220a3">interp</a>, q-><a class="code" href="../../df/db5/structcall__queue.html#a91fe68bac1f77162fbe356d3b7812b9a">argc</a>, q-><a class="code" href="../../df/db5/structcall__queue.html#a097b73e5bc4374d83e3103bb3fb4b40d">argv</a>));</div>
<div class="line"><a name="l06983"></a><span class="lineno"> 6983</span> }</div>
<div class="line"><a name="l06984"></a><span class="lineno"> 6984</span> </div>
<div class="line"><a name="l06985"></a><span class="lineno"> 6985</span> <span class="keyword">static</span> <span class="keywordtype">int</span> call_queue_handler <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((Tcl_Event *, <span class="keywordtype">int</span>));</div>
<div class="line"><a name="l06986"></a><span class="lineno"> 6986</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l06987"></a><span class="lineno"> 6987</span> call_queue_handler(<a class="code" href="../../d5/d9d/tcltklib_8c.html#abb4799eb935baee7ba4deec686f68fd8">evPtr</a>, flags)</div>
<div class="line"><a name="l06988"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abb4799eb935baee7ba4deec686f68fd8"> 6988</a></span>  Tcl_Event *<a class="code" href="../../d5/d9d/tcltklib_8c.html#abb4799eb935baee7ba4deec686f68fd8">evPtr</a>;</div>
<div class="line"><a name="l06989"></a><span class="lineno"> 6989</span>  <span class="keywordtype">int</span> flags;</div>
<div class="line"><a name="l06990"></a><span class="lineno"> 6990</span> {</div>
<div class="line"><a name="l06991"></a><span class="lineno"> 6991</span>  <span class="keyword">struct </span><a class="code" href="../../df/db5/structcall__queue.html">call_queue</a> *q = (<span class="keyword">struct </span><a class="code" href="../../df/db5/structcall__queue.html">call_queue</a> *)evPtr;</div>
<div class="line"><a name="l06992"></a><span class="lineno"> 6992</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l06993"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aec8cfb70e9afe46b1d53416919b25f07"> 6993</a></span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aec8cfb70e9afe46b1d53416919b25f07">q_dat</a>;</div>
<div class="line"><a name="l06994"></a><span class="lineno"> 6994</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a12d96b7075039e8d0f52314dad41fb8b">thread</a> = q-><a class="code" href="../../df/db5/structcall__queue.html#af9fb1a0fdd886cd9585db5f86c4de119">thread</a>;</div>
<div class="line"><a name="l06995"></a><span class="lineno"> 6995</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>;</div>
<div class="line"><a name="l06996"></a><span class="lineno"> 6996</span> </div>
<div class="line"><a name="l06997"></a><span class="lineno"> 6997</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"do_call_queue_handler : evPtr = %p"</span>, evPtr);</div>
<div class="line"><a name="l06998"></a><span class="lineno"> 6998</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"call_queue_handler thread : %lx"</span>, <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>());</div>
<div class="line"><a name="l06999"></a><span class="lineno"> 6999</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"added by thread : %lx"</span>, thread);</div>
<div class="line"><a name="l07000"></a><span class="lineno"> 7000</span> </div>
<div class="line"><a name="l07001"></a><span class="lineno"> 7001</span>  <span class="keywordflow">if</span> (*(q-><a class="code" href="../../df/db5/structcall__queue.html#a8a92b3683558cebdb46d573532c05132">done</a>)) {</div>
<div class="line"><a name="l07002"></a><span class="lineno"> 7002</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"processed by another event-loop"</span>);</div>
<div class="line"><a name="l07003"></a><span class="lineno"> 7003</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l07004"></a><span class="lineno"> 7004</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07005"></a><span class="lineno"> 7005</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"process it on current event-loop"</span>);</div>
<div class="line"><a name="l07006"></a><span class="lineno"> 7006</span>  }</div>
<div class="line"><a name="l07007"></a><span class="lineno"> 7007</span> </div>
<div class="line"><a name="l07008"></a><span class="lineno"> 7008</span> <span class="preprocessor">#ifdef RUBY_VM</span></div>
<div class="line"><a name="l07009"></a><span class="lineno"> 7009</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(thread, ID_alive_p, 0))</div>
<div class="line"><a name="l07010"></a><span class="lineno"> 7010</span>  && ! <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(thread, ID_stop_p, 0))) {</div>
<div class="line"><a name="l07011"></a><span class="lineno"> 7011</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07012"></a><span class="lineno"> 7012</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d3/de7/thread_8c.html#a5b8ec82e1846eadcb0e0e97803ff7520">rb_thread_alive_p</a>(thread))</div>
<div class="line"><a name="l07013"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aee595c22f4c7e0fa0ca9e95535e82f29"> 7013</a></span>  && ! <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(thread, ID_stop_p, 0))) {</div>
<div class="line"><a name="l07014"></a><span class="lineno"> 7014</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07015"></a><span class="lineno"> 7015</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"caller is not yet ready to receive the result -> pending"</span>);</div>
<div class="line"><a name="l07016"></a><span class="lineno"> 7016</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l07017"></a><span class="lineno"> 7017</span>  }</div>
<div class="line"><a name="l07018"></a><span class="lineno"> 7018</span> </div>
<div class="line"><a name="l07019"></a><span class="lineno"> 7019</span>  <span class="comment">/* process it */</span></div>
<div class="line"><a name="l07020"></a><span class="lineno"> 7020</span>  *(q-><a class="code" href="../../df/db5/structcall__queue.html#a8a92b3683558cebdb46d573532c05132">done</a>) = 1;</div>
<div class="line"><a name="l07021"></a><span class="lineno"> 7021</span> </div>
<div class="line"><a name="l07022"></a><span class="lineno"> 7022</span>  <span class="comment">/* deleted ipterp ? */</span></div>
<div class="line"><a name="l07023"></a><span class="lineno"> 7023</span>  ptr = get_ip(q-><a class="code" href="../../df/db5/structcall__queue.html#a3972740fcad6029560d33a85baf220a3">interp</a>);</div>
<div class="line"><a name="l07024"></a><span class="lineno"> 7024</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l07025"></a><span class="lineno"> 7025</span>  <span class="comment">/* deleted IP --> ignore */</span></div>
<div class="line"><a name="l07026"></a><span class="lineno"> 7026</span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l07027"></a><span class="lineno"> 7027</span>  }</div>
<div class="line"><a name="l07028"></a><span class="lineno"> 7028</span> </div>
<div class="line"><a name="l07029"></a><span class="lineno"> 7029</span>  <span class="comment">/* incr internal handler mark */</span></div>
<div class="line"><a name="l07030"></a><span class="lineno"> 7030</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5a8aea48ba7305a384fdd8f56ca97d73">rbtk_internal_eventloop_handler</a>++;</div>
<div class="line"><a name="l07031"></a><span class="lineno"> 7031</span> </div>
<div class="line"><a name="l07032"></a><span class="lineno"> 7032</span>  <span class="comment">/* check safe-level */</span></div>
<div class="line"><a name="l07033"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7084116725c651a9ed155e4b2d868bd3"> 7033</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f520624fabb8332dc98fd223491bf8d">rb_safe_level</a>() != q-><a class="code" href="../../df/db5/structcall__queue.html#a2fd2c2694948a684ceafa73fe38fa3b6">safe_level</a>) {</div>
<div class="line"><a name="l07034"></a><span class="lineno"> 7034</span>  <span class="comment">/* q_dat = Data_Wrap_Struct(rb_cData,0,-1,q); */</span></div>
<div class="line"><a name="l07035"></a><span class="lineno"> 7035</span>  q_dat = <a class="code" href="../../d5/d9d/tcltklib_8c.html#acdb411cfd8a6dcce9a04494c66ea91fb">Data_Wrap_Struct</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a39cf94183e6d744167ae5f6a7bde0363">rb_cData</a>,<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad4a7966ca861420d8f4e415f75b14329">call_queue_mark</a>,-1,q);</div>
<div class="line"><a name="l07036"></a><span class="lineno"> 7036</span>  ret = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(<a class="code" href="../../db/d2e/intern_8h.html#a8a4a55d3f2ed6d9ece055553e48755d5">rb_proc_new</a>(callq_safelevel_handler, q_dat),</div>
<div class="line"><a name="l07037"></a><span class="lineno"> 7037</span>  ID_call, 0);</div>
<div class="line"><a name="l07038"></a><span class="lineno"> 7038</span>  <a class="code" href="../../d8/d16/gc_8c.html#a53016811c87ff4c3ea839c9e85a9a9a4">rb_gc_force_recycle</a>(q_dat);</div>
<div class="line"><a name="l07039"></a><span class="lineno"> 7039</span>  q_dat = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)NULL;</div>
<div class="line"><a name="l07040"></a><span class="lineno"> 7040</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07041"></a><span class="lineno"> 7041</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"call function (for caller thread:%lx)"</span>, thread);</div>
<div class="line"><a name="l07042"></a><span class="lineno"> 7042</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"call function (current thread:%lx)"</span>, <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>());</div>
<div class="line"><a name="l07043"></a><span class="lineno"> 7043</span>  ret = (q-><a class="code" href="../../df/db5/structcall__queue.html#a0ff11e2b5523e140c538dbb945bce6db">func</a>)(q-><a class="code" href="../../df/db5/structcall__queue.html#a3972740fcad6029560d33a85baf220a3">interp</a>, q-><a class="code" href="../../df/db5/structcall__queue.html#a91fe68bac1f77162fbe356d3b7812b9a">argc</a>, q-><a class="code" href="../../df/db5/structcall__queue.html#a097b73e5bc4374d83e3103bb3fb4b40d">argv</a>);</div>
<div class="line"><a name="l07044"></a><span class="lineno"> 7044</span>  }</div>
<div class="line"><a name="l07045"></a><span class="lineno"> 7045</span> </div>
<div class="line"><a name="l07046"></a><span class="lineno"> 7046</span>  <span class="comment">/* set result */</span></div>
<div class="line"><a name="l07047"></a><span class="lineno"> 7047</span>  <a class="code" href="../../d8/df4/generator_8h.html#abb794fe2d7c73eea87e7ba2273939a8e">RARRAY_PTR</a>(q-><a class="code" href="../../df/db5/structcall__queue.html#a5c7e8c167c5d49678aa368f966191b2e">result</a>)[0] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l07048"></a><span class="lineno"> 7048</span>  ret = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)NULL;</div>
<div class="line"><a name="l07049"></a><span class="lineno"> 7049</span> </div>
<div class="line"><a name="l07050"></a><span class="lineno"> 7050</span>  <span class="comment">/* decr internal handler mark */</span></div>
<div class="line"><a name="l07051"></a><span class="lineno"> 7051</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5a8aea48ba7305a384fdd8f56ca97d73">rbtk_internal_eventloop_handler</a>--;</div>
<div class="line"><a name="l07052"></a><span class="lineno"> 7052</span> </div>
<div class="line"><a name="l07053"></a><span class="lineno"> 7053</span>  <span class="comment">/* complete */</span></div>
<div class="line"><a name="l07054"></a><span class="lineno"> 7054</span>  *(q-><a class="code" href="../../df/db5/structcall__queue.html#a8a92b3683558cebdb46d573532c05132">done</a>) = -1;</div>
<div class="line"><a name="l07055"></a><span class="lineno"> 7055</span> </div>
<div class="line"><a name="l07056"></a><span class="lineno"> 7056</span>  <span class="comment">/* unlink ruby objects */</span></div>
<div class="line"><a name="l07057"></a><span class="lineno"> 7057</span>  q-><a class="code" href="../../df/db5/structcall__queue.html#a097b73e5bc4374d83e3103bb3fb4b40d">argv</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>*)NULL;</div>
<div class="line"><a name="l07058"></a><span class="lineno"> 7058</span>  q-><a class="code" href="../../df/db5/structcall__queue.html#a3972740fcad6029560d33a85baf220a3">interp</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)NULL;</div>
<div class="line"><a name="l07059"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae6cf673d09a03d1dfd71928b32d95161"> 7059</a></span>  q-><a class="code" href="../../df/db5/structcall__queue.html#a5c7e8c167c5d49678aa368f966191b2e">result</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)NULL;</div>
<div class="line"><a name="l07060"></a><span class="lineno"> 7060</span>  q-><a class="code" href="../../df/db5/structcall__queue.html#af9fb1a0fdd886cd9585db5f86c4de119">thread</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)NULL;</div>
<div class="line"><a name="l07061"></a><span class="lineno"> 7061</span> </div>
<div class="line"><a name="l07062"></a><span class="lineno"> 7062</span>  <span class="comment">/* back to caller */</span></div>
<div class="line"><a name="l07063"></a><span class="lineno"> 7063</span> <span class="preprocessor">#ifdef RUBY_VM</span></div>
<div class="line"><a name="l07064"></a><span class="lineno"> 7064</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(thread, ID_alive_p, 0, 0))) {</div>
<div class="line"><a name="l07065"></a><span class="lineno"> 7065</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07066"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac1e71b9b0f360e298912ada25fbb5bff"> 7066</a></span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d3/de7/thread_8c.html#a5b8ec82e1846eadcb0e0e97803ff7520">rb_thread_alive_p</a>(thread))) {</div>
<div class="line"><a name="l07067"></a><span class="lineno"> 7067</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07068"></a><span class="lineno"> 7068</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"back to caller (caller thread:%lx)"</span>, thread);</div>
<div class="line"><a name="l07069"></a><span class="lineno"> 7069</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">" (current thread:%lx)"</span>, <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>());</div>
<div class="line"><a name="l07070"></a><span class="lineno"> 7070</span> <span class="preprocessor">#if CONTROL_BY_STATUS_OF_RB_THREAD_WAITING_FOR_VALUE</span></div>
<div class="line"><a name="l07071"></a><span class="lineno"> 7071</span> <span class="preprocessor"></span> have_rb_thread_waiting_for_value = 1;</div>
<div class="line"><a name="l07072"></a><span class="lineno"> 7072</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1c6c386b417e79a679ef583c543e411f">rb_thread_wakeup</a>(thread);</div>
<div class="line"><a name="l07073"></a><span class="lineno"> 7073</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07074"></a><span class="lineno"> 7074</span> <span class="preprocessor"></span> <a class="code" href="../../db/d2e/intern_8h.html#a466749a3498fa8fbb48f7fc783a7cf34">rb_thread_run</a>(thread);</div>
<div class="line"><a name="l07075"></a><span class="lineno"> 7075</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07076"></a><span class="lineno"> 7076</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"finish back to caller"</span>);</div>
<div class="line"><a name="l07077"></a><span class="lineno"> 7077</span> <span class="preprocessor">#if DO_THREAD_SCHEDULE_AT_CALLBACK_DONE</span></div>
<div class="line"><a name="l07078"></a><span class="lineno"> 7078</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a032996d6998bbda639fe14f370a70f6d">rb_thread_schedule</a>();</div>
<div class="line"><a name="l07079"></a><span class="lineno"> 7079</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07080"></a><span class="lineno"> 7080</span> <span class="preprocessor"></span> } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07081"></a><span class="lineno"> 7081</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"caller is dead (caller thread:%lx)"</span>, thread);</div>
<div class="line"><a name="l07082"></a><span class="lineno"> 7082</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">" (current thread:%lx)"</span>, <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>());</div>
<div class="line"><a name="l07083"></a><span class="lineno"> 7083</span>  }</div>
<div class="line"><a name="l07084"></a><span class="lineno"> 7084</span> </div>
<div class="line"><a name="l07085"></a><span class="lineno"> 7085</span>  <span class="comment">/* end of handler : remove it */</span></div>
<div class="line"><a name="l07086"></a><span class="lineno"> 7086</span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l07087"></a><span class="lineno"> 7087</span> }</div>
<div class="line"><a name="l07088"></a><span class="lineno"> 7088</span> </div>
<div class="line"><a name="l07089"></a><span class="lineno"> 7089</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l07090"></a><span class="lineno"> 7090</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a46bfb9a7c64428cdf208d45e06352fce">tk_funcall</a>(<a class="code" href="../../dc/dd1/ossl__ssl_8c.html#a33775ffa49b921f1647bfac2850c6298">func</a>, argc, argv, obj)</div>
<div class="line"><a name="l07091"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8f5e3661cdaf03d794fbdafe10b668e2"> 7091</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> (*<a class="code" href="../../dc/dd1/ossl__ssl_8c.html#a33775ffa49b921f1647bfac2850c6298">func</a>)();</div>
<div class="line"><a name="l07092"></a><span class="lineno"> 7092</span>  <span class="keywordtype">int</span> argc;</div>
<div class="line"><a name="l07093"></a><span class="lineno"> 7093</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l07094"></a><span class="lineno"> 7094</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> obj;</div>
<div class="line"><a name="l07095"></a><span class="lineno"> 7095</span> {</div>
<div class="line"><a name="l07096"></a><span class="lineno"> 7096</span>  <span class="keyword">struct </span><a class="code" href="../../df/db5/structcall__queue.html">call_queue</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#aa1d33552e2f33ebee40651b5a44a1299">callq</a>;</div>
<div class="line"><a name="l07097"></a><span class="lineno"> 7097</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>;</div>
<div class="line"><a name="l07098"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae8153d6aa187352242ba173695c08e8c"> 7098</a></span>  <span class="keywordtype">int</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8153d6aa187352242ba173695c08e8c">alloc_done</a>;</div>
<div class="line"><a name="l07099"></a><span class="lineno"> 7099</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l07100"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5e8ed7e50f3a4edacb655dd8765a2666"> 7100</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5e8ed7e50f3a4edacb655dd8765a2666">is_tk_evloop_thread</a>;</div>
<div class="line"><a name="l07101"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a711673dea8d1c623bad6447fee9dd1eb"> 7101</a></span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> current = <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>();</div>
<div class="line"><a name="l07102"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abff803ed7da8eaf63b872306fe238d97"> 7102</a></span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abff803ed7da8eaf63b872306fe238d97">ip_obj</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aea4012fb11c03c5c1b1fe5399e95342f">obj</a>;</div>
<div class="line"><a name="l07103"></a><span class="lineno"> 7103</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae6cf673d09a03d1dfd71928b32d95161">result</a>;</div>
<div class="line"><a name="l07104"></a><span class="lineno"> 7104</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l07105"></a><span class="lineno"> 7105</span>  <span class="keyword">struct </span><a class="code" href="../../d1/d1b/structtimeval.html">timeval</a> t;</div>
<div class="line"><a name="l07106"></a><span class="lineno"> 7106</span> </div>
<div class="line"><a name="l07107"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a033cd0bb1c1edf4468bf21bc30448cf7"> 7107</a></span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(ip_obj) && <a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(ip_obj, tcltkip_class)) {</div>
<div class="line"><a name="l07108"></a><span class="lineno"> 7108</span>  ptr = get_ip(ip_obj);</div>
<div class="line"><a name="l07109"></a><span class="lineno"> 7109</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l07110"></a><span class="lineno"> 7110</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07111"></a><span class="lineno"> 7111</span>  ptr = (<span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *)NULL;</div>
<div class="line"><a name="l07112"></a><span class="lineno"> 7112</span>  }</div>
<div class="line"><a name="l07113"></a><span class="lineno"> 7113</span> </div>
<div class="line"><a name="l07114"></a><span class="lineno"> 7114</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l07115"></a><span class="lineno"> 7115</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (ptr) {</div>
<div class="line"><a name="l07116"></a><span class="lineno"> 7116</span>  <span class="comment">/* on Tcl interpreter */</span></div>
<div class="line"><a name="l07117"></a><span class="lineno"> 7117</span>  is_tk_evloop_thread = (ptr->tk_thread_id == (Tcl_ThreadId) 0</div>
<div class="line"><a name="l07118"></a><span class="lineno"> 7118</span>  || ptr->tk_thread_id == Tcl_GetCurrentThread());</div>
<div class="line"><a name="l07119"></a><span class="lineno"> 7119</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07120"></a><span class="lineno"> 7120</span>  <span class="comment">/* on Tcl/Tk library */</span></div>
<div class="line"><a name="l07121"></a><span class="lineno"> 7121</span>  is_tk_evloop_thread = (tk_eventloop_thread_id == (Tcl_ThreadId) 0</div>
<div class="line"><a name="l07122"></a><span class="lineno"> 7122</span>  || tk_eventloop_thread_id == Tcl_GetCurrentThread());</div>
<div class="line"><a name="l07123"></a><span class="lineno"> 7123</span>  }</div>
<div class="line"><a name="l07124"></a><span class="lineno"> 7124</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07125"></a><span class="lineno"> 7125</span> <span class="preprocessor"></span> is_tk_evloop_thread = 1;</div>
<div class="line"><a name="l07126"></a><span class="lineno"> 7126</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07127"></a><span class="lineno"> 7127</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l07128"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a77fbdeb1cea2e90be2c8d0dc1792c1cd"> 7128</a></span>  <span class="keywordflow">if</span> (is_tk_evloop_thread</div>
<div class="line"><a name="l07129"></a><span class="lineno"> 7129</span>  && (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread) || current == <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab288f7df2583d5f1d31391ed9cc9ea5d">eventloop_thread</a>)</div>
<div class="line"><a name="l07130"></a><span class="lineno"> 7130</span>  ) {</div>
<div class="line"><a name="l07131"></a><span class="lineno"> 7131</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread)) {</div>
<div class="line"><a name="l07132"></a><span class="lineno"> 7132</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"tk_funcall from thread:%lx but no eventloop"</span>, current);</div>
<div class="line"><a name="l07133"></a><span class="lineno"> 7133</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07134"></a><span class="lineno"> 7134</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"tk_funcall from current eventloop %lx"</span>, current);</div>
<div class="line"><a name="l07135"></a><span class="lineno"> 7135</span>  }</div>
<div class="line"><a name="l07136"></a><span class="lineno"> 7136</span>  result = (<a class="code" href="../../dc/dd1/ossl__ssl_8c.html#a33775ffa49b921f1647bfac2850c6298">func</a>)(ip_obj, argc, argv);</div>
<div class="line"><a name="l07137"></a><span class="lineno"> 7137</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(result, <a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>)) {</div>
<div class="line"><a name="l07138"></a><span class="lineno"> 7138</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(result);</div>
<div class="line"><a name="l07139"></a><span class="lineno"> 7139</span>  }</div>
<div class="line"><a name="l07140"></a><span class="lineno"> 7140</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae6cf673d09a03d1dfd71928b32d95161">result</a>;</div>
<div class="line"><a name="l07141"></a><span class="lineno"> 7141</span>  }</div>
<div class="line"><a name="l07142"></a><span class="lineno"> 7142</span> </div>
<div class="line"><a name="l07143"></a><span class="lineno"> 7143</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"tk_funcall from thread %lx (NOT current eventloop)"</span>, current);</div>
<div class="line"><a name="l07144"></a><span class="lineno"> 7144</span> </div>
<div class="line"><a name="l07145"></a><span class="lineno"> 7145</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l07146"></a><span class="lineno"> 7146</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l07147"></a><span class="lineno"> 7147</span> </div>
<div class="line"><a name="l07148"></a><span class="lineno"> 7148</span>  <span class="comment">/* allocate memory (argv cross over thread : must be in heap) */</span></div>
<div class="line"><a name="l07149"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aae15278876d00f1b7e84af31104e858d"> 7149</a></span>  <span class="keywordflow">if</span> (argv) {</div>
<div class="line"><a name="l07150"></a><span class="lineno"> 7150</span>  <span class="comment">/* VALUE *temp = ALLOC_N(VALUE, argc); */</span></div>
<div class="line"><a name="l07151"></a><span class="lineno"> 7151</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *temp = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>*)ckalloc(<span class="keyword">sizeof</span>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>) * <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>);</div>
<div class="line"><a name="l07152"></a><span class="lineno"> 7152</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07153"></a><span class="lineno"> 7153</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)temp); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l07154"></a><span class="lineno"> 7154</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07155"></a><span class="lineno"> 7155</span> <span class="preprocessor"></span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a04ab67335215e8362c63ed27ae2d1c40">MEMCPY</a>(temp, argv, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>, argc);</div>
<div class="line"><a name="l07156"></a><span class="lineno"> 7156</span>  argv = temp;</div>
<div class="line"><a name="l07157"></a><span class="lineno"> 7157</span>  }</div>
<div class="line"><a name="l07158"></a><span class="lineno"> 7158</span> </div>
<div class="line"><a name="l07159"></a><span class="lineno"> 7159</span>  <span class="comment">/* allocate memory (keep result) */</span></div>
<div class="line"><a name="l07160"></a><span class="lineno"> 7160</span>  <span class="comment">/* alloc_done = (int*)ALLOC(int); */</span></div>
<div class="line"><a name="l07161"></a><span class="lineno"> 7161</span>  alloc_done = (<span class="keywordtype">int</span>*)ckalloc(<span class="keyword">sizeof</span>(<span class="keywordtype">int</span>));</div>
<div class="line"><a name="l07162"></a><span class="lineno"> 7162</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07163"></a><span class="lineno"> 7163</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)alloc_done); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l07164"></a><span class="lineno"> 7164</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07165"></a><span class="lineno"> 7165</span> <span class="preprocessor"></span> *alloc_done = 0;</div>
<div class="line"><a name="l07166"></a><span class="lineno"> 7166</span> </div>
<div class="line"><a name="l07167"></a><span class="lineno"> 7167</span>  <span class="comment">/* allocate memory (freed by Tcl_ServiceEvent) */</span></div>
<div class="line"><a name="l07168"></a><span class="lineno"> 7168</span>  <span class="comment">/* callq = (struct call_queue *)Tcl_Alloc(sizeof(struct call_queue)); */</span></div>
<div class="line"><a name="l07169"></a><span class="lineno"> 7169</span>  callq = (<span class="keyword">struct </span><a class="code" href="../../df/db5/structcall__queue.html">call_queue</a> *)ckalloc(<span class="keyword">sizeof</span>(<span class="keyword">struct</span> <a class="code" href="../../df/db5/structcall__queue.html">call_queue</a>));</div>
<div class="line"><a name="l07170"></a><span class="lineno"> 7170</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07171"></a><span class="lineno"> 7171</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>(callq);</div>
<div class="line"><a name="l07172"></a><span class="lineno"> 7172</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07173"></a><span class="lineno"> 7173</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l07174"></a><span class="lineno"> 7174</span>  <span class="comment">/* allocate result obj */</span></div>
<div class="line"><a name="l07175"></a><span class="lineno"> 7175</span>  result = <a class="code" href="../../dc/dcc/array_8c.html#a8317ecd6a0abb5ad08c50c732f30059b">rb_ary_new3</a>(1, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>);</div>
<div class="line"><a name="l07176"></a><span class="lineno"> 7176</span> </div>
<div class="line"><a name="l07177"></a><span class="lineno"> 7177</span>  <span class="comment">/* construct event data */</span></div>
<div class="line"><a name="l07178"></a><span class="lineno"> 7178</span>  callq-><a class="code" href="../../df/db5/structcall__queue.html#a8a92b3683558cebdb46d573532c05132">done</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8153d6aa187352242ba173695c08e8c">alloc_done</a>;</div>
<div class="line"><a name="l07179"></a><span class="lineno"> 7179</span>  callq-><a class="code" href="../../df/db5/structcall__queue.html#a0ff11e2b5523e140c538dbb945bce6db">func</a> = <a class="code" href="../../dc/dd1/ossl__ssl_8c.html#a33775ffa49b921f1647bfac2850c6298">func</a>;</div>
<div class="line"><a name="l07180"></a><span class="lineno"> 7180</span>  callq-><a class="code" href="../../df/db5/structcall__queue.html#a91fe68bac1f77162fbe356d3b7812b9a">argc</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>;</div>
<div class="line"><a name="l07181"></a><span class="lineno"> 7181</span>  callq-><a class="code" href="../../df/db5/structcall__queue.html#a097b73e5bc4374d83e3103bb3fb4b40d">argv</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab9ebbdd4596789afb752d19fca153ee5">argv</a>;</div>
<div class="line"><a name="l07182"></a><span class="lineno"> 7182</span>  callq-><a class="code" href="../../df/db5/structcall__queue.html#a3972740fcad6029560d33a85baf220a3">interp</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#abff803ed7da8eaf63b872306fe238d97">ip_obj</a>;</div>
<div class="line"><a name="l07183"></a><span class="lineno"> 7183</span>  callq-><a class="code" href="../../df/db5/structcall__queue.html#a5c7e8c167c5d49678aa368f966191b2e">result</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae6cf673d09a03d1dfd71928b32d95161">result</a>;</div>
<div class="line"><a name="l07184"></a><span class="lineno"> 7184</span>  callq-><a class="code" href="../../df/db5/structcall__queue.html#af9fb1a0fdd886cd9585db5f86c4de119">thread</a> = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#a711673dea8d1c623bad6447fee9dd1eb">current</a>;</div>
<div class="line"><a name="l07185"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6366ec8aa00fb0b6278c5633431e15b0"> 7185</a></span>  callq-><a class="code" href="../../df/db5/structcall__queue.html#a2fd2c2694948a684ceafa73fe38fa3b6">safe_level</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f520624fabb8332dc98fd223491bf8d">rb_safe_level</a>();</div>
<div class="line"><a name="l07186"></a><span class="lineno"> 7186</span>  callq-><a class="code" href="../../df/db5/structcall__queue.html#a45df10c3b9ffd2cf0572157be3bcbec4">ev</a>.proc = call_queue_handler;</div>
<div class="line"><a name="l07187"></a><span class="lineno"> 7187</span> </div>
<div class="line"><a name="l07188"></a><span class="lineno"> 7188</span>  <span class="comment">/* add the handler to Tcl event queue */</span></div>
<div class="line"><a name="l07189"></a><span class="lineno"> 7189</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"add handler"</span>);</div>
<div class="line"><a name="l07190"></a><span class="lineno"> 7190</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l07191"></a><span class="lineno"> 7191</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (ptr && ptr->tk_thread_id) {</div>
<div class="line"><a name="l07192"></a><span class="lineno"> 7192</span>  <span class="comment">/* Tcl_ThreadQueueEvent(ptr->tk_thread_id,</span></div>
<div class="line"><a name="l07193"></a><span class="lineno"> 7193</span> <span class="comment"> &(callq->ev), TCL_QUEUE_HEAD); */</span></div>
<div class="line"><a name="l07194"></a><span class="lineno"> 7194</span>  Tcl_ThreadQueueEvent(ptr->tk_thread_id,</div>
<div class="line"><a name="l07195"></a><span class="lineno"> 7195</span>  (Tcl_Event*)callq, TCL_QUEUE_HEAD);</div>
<div class="line"><a name="l07196"></a><span class="lineno"> 7196</span>  Tcl_ThreadAlert(ptr->tk_thread_id);</div>
<div class="line"><a name="l07197"></a><span class="lineno"> 7197</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (tk_eventloop_thread_id) {</div>
<div class="line"><a name="l07198"></a><span class="lineno"> 7198</span>  <span class="comment">/* Tcl_ThreadQueueEvent(tk_eventloop_thread_id,</span></div>
<div class="line"><a name="l07199"></a><span class="lineno"> 7199</span> <span class="comment"> &(callq->ev), TCL_QUEUE_HEAD); */</span></div>
<div class="line"><a name="l07200"></a><span class="lineno"> 7200</span>  Tcl_ThreadQueueEvent(tk_eventloop_thread_id,</div>
<div class="line"><a name="l07201"></a><span class="lineno"> 7201</span>  (Tcl_Event*)callq, TCL_QUEUE_HEAD);</div>
<div class="line"><a name="l07202"></a><span class="lineno"> 7202</span>  Tcl_ThreadAlert(tk_eventloop_thread_id);</div>
<div class="line"><a name="l07203"></a><span class="lineno"> 7203</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07204"></a><span class="lineno"> 7204</span>  <span class="comment">/* Tcl_QueueEvent(&(callq->ev), TCL_QUEUE_HEAD); */</span></div>
<div class="line"><a name="l07205"></a><span class="lineno"> 7205</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac215bbef6f867043f5072c1997a47557">Tcl_QueueEvent</a>((Tcl_Event*)callq, TCL_QUEUE_HEAD);</div>
<div class="line"><a name="l07206"></a><span class="lineno"> 7206</span>  }</div>
<div class="line"><a name="l07207"></a><span class="lineno"> 7207</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07208"></a><span class="lineno"> 7208</span> <span class="preprocessor"></span> <span class="comment">/* Tcl_QueueEvent(&(callq->ev), TCL_QUEUE_HEAD); */</span></div>
<div class="line"><a name="l07209"></a><span class="lineno"> 7209</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac215bbef6f867043f5072c1997a47557">Tcl_QueueEvent</a>((Tcl_Event*)callq, TCL_QUEUE_HEAD);</div>
<div class="line"><a name="l07210"></a><span class="lineno"> 7210</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07211"></a><span class="lineno"> 7211</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l07212"></a><span class="lineno"> 7212</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l07213"></a><span class="lineno"> 7213</span> </div>
<div class="line"><a name="l07214"></a><span class="lineno"> 7214</span>  <span class="comment">/* wait for the handler to be processed */</span></div>
<div class="line"><a name="l07215"></a><span class="lineno"> 7215</span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#a3599199839a89e99a2ce29d45312b5cf">tv_sec</a> = 0;</div>
<div class="line"><a name="l07216"></a><span class="lineno"> 7216</span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#aa8396731f2914f9ed2a457d3da602b80">tv_usec</a> = (<a class="code" href="../../d3/d15/name2ctype_8h.html#a86f2415763322050063a5502f87c9422">long</a>)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd2530678e6262a587dd99dedeb053b">EVENT_HANDLER_TIMEOUT</a>)*1000.0);</div>
<div class="line"><a name="l07217"></a><span class="lineno"> 7217</span> </div>
<div class="line"><a name="l07218"></a><span class="lineno"> 7218</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"callq wait for handler (current thread:%lx)"</span>, current);</div>
<div class="line"><a name="l07219"></a><span class="lineno"> 7219</span>  <span class="keywordflow">while</span>(*alloc_done >= 0) {</div>
<div class="line"><a name="l07220"></a><span class="lineno"> 7220</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"*** callq wait for handler (current thread:%lx)"</span>, current);</div>
<div class="line"><a name="l07221"></a><span class="lineno"> 7221</span>  <span class="comment">/* rb_thread_stop(); */</span></div>
<div class="line"><a name="l07222"></a><span class="lineno"> 7222</span>  <span class="comment">/* rb_thread_sleep_forever(); */</span></div>
<div class="line"><a name="l07223"></a><span class="lineno"> 7223</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8a3ea241e062a8c0dcd87b7232ca4900">rb_thread_wait_for</a>(t);</div>
<div class="line"><a name="l07224"></a><span class="lineno"> 7224</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"*** callq wakeup (current thread:%lx)"</span>, current);</div>
<div class="line"><a name="l07225"></a><span class="lineno"> 7225</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"*** (eventloop thread:%lx)"</span>, eventloop_thread);</div>
<div class="line"><a name="l07226"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac7e84bce9ebf3e6b3a434b8d0d20b44e"> 7226</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread)) {</div>
<div class="line"><a name="l07227"></a><span class="lineno"> 7227</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"*** callq lost eventloop thread"</span>);</div>
<div class="line"><a name="l07228"></a><span class="lineno"> 7228</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l07229"></a><span class="lineno"> 7229</span>  }</div>
<div class="line"><a name="l07230"></a><span class="lineno"> 7230</span>  }</div>
<div class="line"><a name="l07231"></a><span class="lineno"> 7231</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"back from handler (current thread:%lx)"</span>, current);</div>
<div class="line"><a name="l07232"></a><span class="lineno"> 7232</span> </div>
<div class="line"><a name="l07233"></a><span class="lineno"> 7233</span>  <span class="comment">/* get result & free allocated memory */</span></div>
<div class="line"><a name="l07234"></a><span class="lineno"> 7234</span>  ret = <a class="code" href="../../d8/df4/generator_8h.html#abb794fe2d7c73eea87e7ba2273939a8e">RARRAY_PTR</a>(result)[0];</div>
<div class="line"><a name="l07235"></a><span class="lineno"> 7235</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07236"></a><span class="lineno"> 7236</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)alloc_done, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l07237"></a><span class="lineno"> 7237</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07238"></a><span class="lineno"> 7238</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07239"></a><span class="lineno"> 7239</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)alloc_done); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l07240"></a><span class="lineno"> 7240</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07241"></a><span class="lineno"> 7241</span> <span class="preprocessor"></span> <span class="comment">/* free(alloc_done); */</span></div>
<div class="line"><a name="l07242"></a><span class="lineno"> 7242</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span>*)alloc_done);</div>
<div class="line"><a name="l07243"></a><span class="lineno"> 7243</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07244"></a><span class="lineno"> 7244</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07245"></a><span class="lineno"> 7245</span> <span class="preprocessor"></span> <span class="comment">/* if (argv) free(argv); */</span></div>
<div class="line"><a name="l07246"></a><span class="lineno"> 7246</span>  <span class="keywordflow">if</span> (argv) {</div>
<div class="line"><a name="l07247"></a><span class="lineno"> 7247</span>  <span class="comment">/* if argv != NULL, alloc as 'temp' */</span></div>
<div class="line"><a name="l07248"></a><span class="lineno"> 7248</span>  <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div>
<div class="line"><a name="l07249"></a><span class="lineno"> 7249</span>  <span class="keywordflow">for</span>(i = 0; i < <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>; i++) { argv[<a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>] = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)NULL; }</div>
<div class="line"><a name="l07250"></a><span class="lineno"> 7250</span> </div>
<div class="line"><a name="l07251"></a><span class="lineno"> 7251</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07252"></a><span class="lineno"> 7252</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)argv, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l07253"></a><span class="lineno"> 7253</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07254"></a><span class="lineno"> 7254</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07255"></a><span class="lineno"> 7255</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)argv); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l07256"></a><span class="lineno"> 7256</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07257"></a><span class="lineno"> 7257</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span>*)argv);</div>
<div class="line"><a name="l07258"></a><span class="lineno"> 7258</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07259"></a><span class="lineno"> 7259</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07260"></a><span class="lineno"> 7260</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l07261"></a><span class="lineno"> 7261</span> </div>
<div class="line"><a name="l07262"></a><span class="lineno"> 7262</span> <span class="preprocessor">#if 0 </span><span class="comment">/* callq is freed by Tcl_ServiceEvent */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07263"></a><span class="lineno"> 7263</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07264"></a><span class="lineno"> 7264</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(callq);</div>
<div class="line"><a name="l07265"></a><span class="lineno"> 7265</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07266"></a><span class="lineno"> 7266</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span>*)callq);</div>
<div class="line"><a name="l07267"></a><span class="lineno"> 7267</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07268"></a><span class="lineno"> 7268</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07269"></a><span class="lineno"> 7269</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l07270"></a><span class="lineno"> 7270</span>  <span class="comment">/* exception? */</span></div>
<div class="line"><a name="l07271"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#accd11afe6cf119c60dd1d64d229a81fe"> 7271</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(ret, <a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>)) {</div>
<div class="line"><a name="l07272"></a><span class="lineno"> 7272</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"raise exception"</span>);</div>
<div class="line"><a name="l07273"></a><span class="lineno"> 7273</span>  <span class="comment">/* rb_exc_raise(ret); */</span></div>
<div class="line"><a name="l07274"></a><span class="lineno"> 7274</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a4989eeb5742cad6359a2ed77859674de">rb_exc_new3</a>(<a class="code" href="../../db/d2e/intern_8h.html#ac2be7243e739fa8f5dce6be0c8ee5f6d">rb_obj_class</a>(ret),</div>
<div class="line"><a name="l07275"></a><span class="lineno"> 7275</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(ret, ID_to_s, 0, 0)));</div>
<div class="line"><a name="l07276"></a><span class="lineno"> 7276</span>  }</div>
<div class="line"><a name="l07277"></a><span class="lineno"> 7277</span> </div>
<div class="line"><a name="l07278"></a><span class="lineno"> 7278</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"exit tk_funcall"</span>);</div>
<div class="line"><a name="l07279"></a><span class="lineno"> 7279</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l07280"></a><span class="lineno"> 7280</span> }</div>
<div class="line"><a name="l07281"></a><span class="lineno"> 7281</span> </div>
<div class="line"><a name="l07282"></a><span class="lineno"> 7282</span> </div>
<div class="line"><a name="l07283"></a><span class="lineno"> 7283</span> <span class="comment">/* eval string in tcl by Tcl_Eval() */</span></div>
<div class="line"><a name="l07284"></a><span class="lineno"> 7284</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l07285"></a><span class="lineno"> 7285</span> <span class="preprocessor"></span><span class="keyword">struct </span>call_eval_info {</div>
<div class="line"><a name="l07286"></a><span class="lineno"> 7286</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>;</div>
<div class="line"><a name="l07287"></a><span class="lineno"> 7287</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac016cf800c945b35b6ed7d8d9c9b153c">cmd</a>;</div>
<div class="line"><a name="l07288"></a><span class="lineno"> 7288</span> };</div>
<div class="line"><a name="l07289"></a><span class="lineno"> 7289</span> </div>
<div class="line"><a name="l07290"></a><span class="lineno"> 7290</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l07291"></a><span class="lineno"> 7291</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div>
<div class="line"><a name="l07292"></a><span class="lineno"> 7292</span> <span class="preprocessor"></span>call_tcl_eval(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> arg)</div>
<div class="line"><a name="l07293"></a><span class="lineno"> 7293</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07294"></a><span class="lineno"> 7294</span> <span class="preprocessor"></span>call_tcl_eval(arg)</div>
<div class="line"><a name="l07295"></a><span class="lineno"> 7295</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> arg;</div>
<div class="line"><a name="l07296"></a><span class="lineno"> 7296</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07297"></a><span class="lineno"> 7297</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l07298"></a><span class="lineno"> 7298</span>  <span class="keyword">struct </span>call_eval_info *<a class="code" href="../../d5/d9d/tcltklib_8c.html#afe540dc79093fc3b43bf3c5f2d5087b8">inf</a> = (<span class="keyword">struct </span>call_eval_info *)arg;</div>
<div class="line"><a name="l07299"></a><span class="lineno"> 7299</span> </div>
<div class="line"><a name="l07300"></a><span class="lineno"> 7300</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa9e75e5d92a11cbe675fcfc57446969c">Tcl_AllowExceptions</a>(inf->ptr->ip);</div>
<div class="line"><a name="l07301"></a><span class="lineno"> 7301</span>  inf->ptr->return_value = Tcl_EvalObj(inf->ptr->ip, inf->cmd);</div>
<div class="line"><a name="l07302"></a><span class="lineno"> 7302</span> </div>
<div class="line"><a name="l07303"></a><span class="lineno"> 7303</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l07304"></a><span class="lineno"> 7304</span> }</div>
<div class="line"><a name="l07305"></a><span class="lineno"> 7305</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07306"></a><span class="lineno"> 7306</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l07307"></a><span class="lineno"> 7307</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l07308"></a><span class="lineno"> 7308</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a64b9f91b984fbc76739b472bb223a2e6">ip_eval_real</a>(<span class="keyword">self</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a13159ee6a4cfa4f10d10df77692299da">cmd_str</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#adbfc6f7934b1232f3d68253d0e93a339">cmd_len</a>)</div>
<div class="line"><a name="l07309"></a><span class="lineno"> 7309</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l07310"></a><span class="lineno"> 7310</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a13159ee6a4cfa4f10d10df77692299da">cmd_str</a>;</div>
<div class="line"><a name="l07311"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#adbfc6f7934b1232f3d68253d0e93a339"> 7311</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adbfc6f7934b1232f3d68253d0e93a339">cmd_len</a>;</div>
<div class="line"><a name="l07312"></a><span class="lineno"> 7312</span> {</div>
<div class="line"><a name="l07313"></a><span class="lineno"> 7313</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l07314"></a><span class="lineno"> 7314</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l07315"></a><span class="lineno"> 7315</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l07316"></a><span class="lineno"> 7316</span> </div>
<div class="line"><a name="l07317"></a><span class="lineno"> 7317</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l07318"></a><span class="lineno"> 7318</span> <span class="preprocessor"></span> <span class="comment">/* call Tcl_EvalObj() */</span></div>
<div class="line"><a name="l07319"></a><span class="lineno"> 7319</span>  {</div>
<div class="line"><a name="l07320"></a><span class="lineno"> 7320</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac016cf800c945b35b6ed7d8d9c9b153c">cmd</a>;</div>
<div class="line"><a name="l07321"></a><span class="lineno"> 7321</span> </div>
<div class="line"><a name="l07322"></a><span class="lineno"> 7322</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l07323"></a><span class="lineno"> 7323</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l07324"></a><span class="lineno"> 7324</span> </div>
<div class="line"><a name="l07325"></a><span class="lineno"> 7325</span>  cmd = Tcl_NewStringObj(cmd_str, cmd_len);</div>
<div class="line"><a name="l07326"></a><span class="lineno"> 7326</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(cmd);</div>
<div class="line"><a name="l07327"></a><span class="lineno"> 7327</span> </div>
<div class="line"><a name="l07328"></a><span class="lineno"> 7328</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l07329"></a><span class="lineno"> 7329</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l07330"></a><span class="lineno"> 7330</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(cmd);</div>
<div class="line"><a name="l07331"></a><span class="lineno"> 7331</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l07332"></a><span class="lineno"> 7332</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>;</div>
<div class="line"><a name="l07333"></a><span class="lineno"> 7333</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l07334"></a><span class="lineno"> 7334</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07335"></a><span class="lineno"> 7335</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9611b3a00430a86619b5923de30f9fdb">status</a>;</div>
<div class="line"><a name="l07336"></a><span class="lineno"> 7336</span>  <span class="keyword">struct </span>call_eval_info inf;</div>
<div class="line"><a name="l07337"></a><span class="lineno"> 7337</span> </div>
<div class="line"><a name="l07338"></a><span class="lineno"> 7338</span>  <span class="comment">/* Tcl_Preserve(ptr->ip); */</span></div>
<div class="line"><a name="l07339"></a><span class="lineno"> 7339</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa23f39899c949c9e59a0ee3096d76fc5">rbtk_preserve_ip</a>(ptr);</div>
<div class="line"><a name="l07340"></a><span class="lineno"> 7340</span> </div>
<div class="line"><a name="l07341"></a><span class="lineno"> 7341</span> <span class="preprocessor">#if 0</span></div>
<div class="line"><a name="l07342"></a><span class="lineno"> 7342</span> <span class="preprocessor"></span> ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = Tcl_EvalObj(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, cmd);</div>
<div class="line"><a name="l07343"></a><span class="lineno"> 7343</span>  <span class="comment">/* ptr->return_value = Tcl_GlobalEvalObj(ptr->ip, cmd); */</span></div>
<div class="line"><a name="l07344"></a><span class="lineno"> 7344</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07345"></a><span class="lineno"> 7345</span> <span class="preprocessor"></span> inf.ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>;</div>
<div class="line"><a name="l07346"></a><span class="lineno"> 7346</span>  inf.cmd = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac016cf800c945b35b6ed7d8d9c9b153c">cmd</a>;</div>
<div class="line"><a name="l07347"></a><span class="lineno"> 7347</span>  ret = <a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(call_tcl_eval, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)&inf, &status);</div>
<div class="line"><a name="l07348"></a><span class="lineno"> 7348</span>  <span class="keywordflow">switch</span>(status) {</div>
<div class="line"><a name="l07349"></a><span class="lineno"> 7349</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0b034bce069147e233776bc1dcc74c01">TAG_RAISE</a>:</div>
<div class="line"><a name="l07350"></a><span class="lineno"> 7350</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>())) {</div>
<div class="line"><a name="l07351"></a><span class="lineno"> 7351</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>,</div>
<div class="line"><a name="l07352"></a><span class="lineno"> 7352</span>  <span class="stringliteral">"unknown exception"</span>);</div>
<div class="line"><a name="l07353"></a><span class="lineno"> 7353</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07354"></a><span class="lineno"> 7354</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div>
<div class="line"><a name="l07355"></a><span class="lineno"> 7355</span>  }</div>
<div class="line"><a name="l07356"></a><span class="lineno"> 7356</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l07357"></a><span class="lineno"> 7357</span> </div>
<div class="line"><a name="l07358"></a><span class="lineno"> 7358</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7490e601d6a9d97a79d4d895ad73c93a">TAG_FATAL</a>:</div>
<div class="line"><a name="l07359"></a><span class="lineno"> 7359</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>())) {</div>
<div class="line"><a name="l07360"></a><span class="lineno"> 7360</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a7df09bfc26c0ffa7592f91fdcf64fcec">rb_eFatal</a>, <span class="stringliteral">"FATAL"</span>);</div>
<div class="line"><a name="l07361"></a><span class="lineno"> 7361</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07362"></a><span class="lineno"> 7362</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div>
<div class="line"><a name="l07363"></a><span class="lineno"> 7363</span>  }</div>
<div class="line"><a name="l07364"></a><span class="lineno"> 7364</span>  }</div>
<div class="line"><a name="l07365"></a><span class="lineno"> 7365</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07366"></a><span class="lineno"> 7366</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l07367"></a><span class="lineno"> 7367</span> </div>
<div class="line"><a name="l07368"></a><span class="lineno"> 7368</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(cmd);</div>
<div class="line"><a name="l07369"></a><span class="lineno"> 7369</span> </div>
<div class="line"><a name="l07370"></a><span class="lineno"> 7370</span>  }</div>
<div class="line"><a name="l07371"></a><span class="lineno"> 7371</span> </div>
<div class="line"><a name="l07372"></a><span class="lineno"> 7372</span>  <span class="keywordflow">if</span> (pending_exception_check1(thr_crit_bup, ptr)) {</div>
<div class="line"><a name="l07373"></a><span class="lineno"> 7373</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l07374"></a><span class="lineno"> 7374</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>;</div>
<div class="line"><a name="l07375"></a><span class="lineno"> 7375</span>  }</div>
<div class="line"><a name="l07376"></a><span class="lineno"> 7376</span> </div>
<div class="line"><a name="l07377"></a><span class="lineno"> 7377</span>  <span class="comment">/* if (ptr->return_value == TCL_ERROR) { */</span></div>
<div class="line"><a name="l07378"></a><span class="lineno"> 7378</span>  <span class="keywordflow">if</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l07379"></a><span class="lineno"> 7379</span>  <span class="keywordflow">if</span> (event_loop_abort_on_exc > 0 && !Tcl_InterpDeleted(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>)) {</div>
<div class="line"><a name="l07380"></a><span class="lineno"> 7380</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03">exc</a>;</div>
<div class="line"><a name="l07381"></a><span class="lineno"> 7381</span> </div>
<div class="line"><a name="l07382"></a><span class="lineno"> 7382</span>  <span class="keywordflow">switch</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a>) {</div>
<div class="line"><a name="l07383"></a><span class="lineno"> 7383</span>  <span class="keywordflow">case</span> TCL_RETURN:</div>
<div class="line"><a name="l07384"></a><span class="lineno"> 7384</span>  exc = create_ip_exc(<span class="keyword">self</span>, eTkCallbackReturn,</div>
<div class="line"><a name="l07385"></a><span class="lineno"> 7385</span>  <span class="stringliteral">"ip_eval_real receives TCL_RETURN"</span>);</div>
<div class="line"><a name="l07386"></a><span class="lineno"> 7386</span>  <span class="keywordflow">case</span> TCL_BREAK:</div>
<div class="line"><a name="l07387"></a><span class="lineno"> 7387</span>  exc = create_ip_exc(<span class="keyword">self</span>, eTkCallbackBreak,</div>
<div class="line"><a name="l07388"></a><span class="lineno"> 7388</span>  <span class="stringliteral">"ip_eval_real receives TCL_BREAK"</span>);</div>
<div class="line"><a name="l07389"></a><span class="lineno"> 7389</span>  <span class="keywordflow">case</span> TCL_CONTINUE:</div>
<div class="line"><a name="l07390"></a><span class="lineno"> 7390</span>  exc = create_ip_exc(<span class="keyword">self</span>, eTkCallbackContinue,</div>
<div class="line"><a name="l07391"></a><span class="lineno"> 7391</span>  <span class="stringliteral">"ip_eval_real receives TCL_CONTINUE"</span>);</div>
<div class="line"><a name="l07392"></a><span class="lineno"> 7392</span>  <span class="keywordflow">default</span>:</div>
<div class="line"><a name="l07393"></a><span class="lineno"> 7393</span>  exc = create_ip_exc(<span class="keyword">self</span>, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"%s"</span>,</div>
<div class="line"><a name="l07394"></a><span class="lineno"> 7394</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l07395"></a><span class="lineno"> 7395</span>  }</div>
<div class="line"><a name="l07396"></a><span class="lineno"> 7396</span> </div>
<div class="line"><a name="l07397"></a><span class="lineno"> 7397</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l07398"></a><span class="lineno"> 7398</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l07399"></a><span class="lineno"> 7399</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03">exc</a>;</div>
<div class="line"><a name="l07400"></a><span class="lineno"> 7400</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07401"></a><span class="lineno"> 7401</span>  <span class="keywordflow">if</span> (event_loop_abort_on_exc < 0) {</div>
<div class="line"><a name="l07402"></a><span class="lineno"> 7402</span>  <a class="code" href="../../db/dcc/error_8c.html#afd461c64916576849b159b21a26123da">rb_warning</a>(<span class="stringliteral">"%s (ignore)"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l07403"></a><span class="lineno"> 7403</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07404"></a><span class="lineno"> 7404</span>  <a class="code" href="../../db/dcc/error_8c.html#aa5b1972d475e9a090c8ef607ce033008">rb_warn</a>(<span class="stringliteral">"%s (ignore)"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l07405"></a><span class="lineno"> 7405</span>  }</div>
<div class="line"><a name="l07406"></a><span class="lineno"> 7406</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l07407"></a><span class="lineno"> 7407</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l07408"></a><span class="lineno"> 7408</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l07409"></a><span class="lineno"> 7409</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l07410"></a><span class="lineno"> 7410</span>  }</div>
<div class="line"><a name="l07411"></a><span class="lineno"> 7411</span>  }</div>
<div class="line"><a name="l07412"></a><span class="lineno"> 7412</span> </div>
<div class="line"><a name="l07413"></a><span class="lineno"> 7413</span>  <span class="comment">/* pass back the result (as string) */</span></div>
<div class="line"><a name="l07414"></a><span class="lineno"> 7414</span>  ret = <a class="code" href="../../d5/d9d/tcltklib_8c.html#afb33421fe234ee34c898da21b1bef388">ip_get_result_string_obj</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l07415"></a><span class="lineno"> 7415</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l07416"></a><span class="lineno"> 7416</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l07417"></a><span class="lineno"> 7417</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l07418"></a><span class="lineno"> 7418</span> </div>
<div class="line"><a name="l07419"></a><span class="lineno"> 7419</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07420"></a><span class="lineno"> 7420</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"Tcl_Eval(%s)"</span>, cmd_str);</div>
<div class="line"><a name="l07421"></a><span class="lineno"> 7421</span> </div>
<div class="line"><a name="l07422"></a><span class="lineno"> 7422</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l07423"></a><span class="lineno"> 7423</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l07424"></a><span class="lineno"> 7424</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>;</div>
<div class="line"><a name="l07425"></a><span class="lineno"> 7425</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l07426"></a><span class="lineno"> 7426</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07427"></a><span class="lineno"> 7427</span>  <span class="comment">/* Tcl_Preserve(ptr->ip); */</span></div>
<div class="line"><a name="l07428"></a><span class="lineno"> 7428</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa23f39899c949c9e59a0ee3096d76fc5">rbtk_preserve_ip</a>(ptr);</div>
<div class="line"><a name="l07429"></a><span class="lineno"> 7429</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7e05442307639ca746f2560593ca9ca9">Tcl_Eval</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, cmd_str);</div>
<div class="line"><a name="l07430"></a><span class="lineno"> 7430</span>  <span class="comment">/* ptr->return_value = Tcl_GlobalEval(ptr->ip, cmd_str); */</span></div>
<div class="line"><a name="l07431"></a><span class="lineno"> 7431</span>  }</div>
<div class="line"><a name="l07432"></a><span class="lineno"> 7432</span> </div>
<div class="line"><a name="l07433"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#acf212e0d8d4db77bf3ca42aa229a0b1d"> 7433</a></span>  <span class="keywordflow">if</span> (pending_exception_check1(thr_crit_bup, ptr)) {</div>
<div class="line"><a name="l07434"></a><span class="lineno"> 7434</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l07435"></a><span class="lineno"> 7435</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>;</div>
<div class="line"><a name="l07436"></a><span class="lineno"> 7436</span>  }</div>
<div class="line"><a name="l07437"></a><span class="lineno"> 7437</span> </div>
<div class="line"><a name="l07438"></a><span class="lineno"> 7438</span>  <span class="comment">/* if (ptr->return_value == TCL_ERROR) { */</span></div>
<div class="line"><a name="l07439"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#adaccfcbe8abe9daed11b463c2cd59ed6"> 7439</a></span>  <span class="keywordflow">if</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l07440"></a><span class="lineno"> 7440</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03">exc</a>;</div>
<div class="line"><a name="l07441"></a><span class="lineno"> 7441</span> </div>
<div class="line"><a name="l07442"></a><span class="lineno"> 7442</span>  <span class="keywordflow">switch</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a>) {</div>
<div class="line"><a name="l07443"></a><span class="lineno"> 7443</span>  <span class="keywordflow">case</span> TCL_RETURN:</div>
<div class="line"><a name="l07444"></a><span class="lineno"> 7444</span>  exc = create_ip_exc(<span class="keyword">self</span>, eTkCallbackReturn,</div>
<div class="line"><a name="l07445"></a><span class="lineno"> 7445</span>  <span class="stringliteral">"ip_eval_real receives TCL_RETURN"</span>);</div>
<div class="line"><a name="l07446"></a><span class="lineno"> 7446</span>  <span class="keywordflow">case</span> TCL_BREAK:</div>
<div class="line"><a name="l07447"></a><span class="lineno"> 7447</span>  exc = create_ip_exc(<span class="keyword">self</span>, eTkCallbackBreak,</div>
<div class="line"><a name="l07448"></a><span class="lineno"> 7448</span>  <span class="stringliteral">"ip_eval_real receives TCL_BREAK"</span>);</div>
<div class="line"><a name="l07449"></a><span class="lineno"> 7449</span>  <span class="keywordflow">case</span> TCL_CONTINUE:</div>
<div class="line"><a name="l07450"></a><span class="lineno"> 7450</span>  exc = create_ip_exc(<span class="keyword">self</span>, eTkCallbackContinue,</div>
<div class="line"><a name="l07451"></a><span class="lineno"> 7451</span>  <span class="stringliteral">"ip_eval_real receives TCL_CONTINUE"</span>);</div>
<div class="line"><a name="l07452"></a><span class="lineno"> 7452</span>  <span class="keywordflow">default</span>:</div>
<div class="line"><a name="l07453"></a><span class="lineno"> 7453</span>  exc = create_ip_exc(<span class="keyword">self</span>, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"%s"</span>, ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>->result);</div>
<div class="line"><a name="l07454"></a><span class="lineno"> 7454</span>  }</div>
<div class="line"><a name="l07455"></a><span class="lineno"> 7455</span> </div>
<div class="line"><a name="l07456"></a><span class="lineno"> 7456</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l07457"></a><span class="lineno"> 7457</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03">exc</a>;</div>
<div class="line"><a name="l07458"></a><span class="lineno"> 7458</span>  }</div>
<div class="line"><a name="l07459"></a><span class="lineno"> 7459</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"(TCL_Eval result) %d"</span>, ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a>);</div>
<div class="line"><a name="l07460"></a><span class="lineno"> 7460</span> </div>
<div class="line"><a name="l07461"></a><span class="lineno"> 7461</span>  <span class="comment">/* pass back the result (as string) */</span></div>
<div class="line"><a name="l07462"></a><span class="lineno"> 7462</span>  ret = <a class="code" href="../../d5/d9d/tcltklib_8c.html#afb33421fe234ee34c898da21b1bef388">ip_get_result_string_obj</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l07463"></a><span class="lineno"> 7463</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l07464"></a><span class="lineno"> 7464</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l07465"></a><span class="lineno"> 7465</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07466"></a><span class="lineno"> 7466</span> <span class="preprocessor"></span>}</div>
<div class="line"><a name="l07467"></a><span class="lineno"> 7467</span> </div>
<div class="line"><a name="l07468"></a><span class="lineno"> 7468</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l07469"></a><span class="lineno"> 7469</span> evq_safelevel_handler(arg, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa175d853234808578ae95e41eb2950da">evq</a>)</div>
<div class="line"><a name="l07470"></a><span class="lineno"> 7470</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> arg;</div>
<div class="line"><a name="l07471"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa175d853234808578ae95e41eb2950da"> 7471</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa175d853234808578ae95e41eb2950da">evq</a>;</div>
<div class="line"><a name="l07472"></a><span class="lineno"> 7472</span> {</div>
<div class="line"><a name="l07473"></a><span class="lineno"> 7473</span>  <span class="keyword">struct </span><a class="code" href="../../de/d17/structeval__queue.html">eval_queue</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#af30877db2cb29106639acfca6366c3d0">q</a>;</div>
<div class="line"><a name="l07474"></a><span class="lineno"> 7474</span> </div>
<div class="line"><a name="l07475"></a><span class="lineno"> 7475</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad043eb0996705571cad2e5bb39e9675e">Data_Get_Struct</a>(evq, <span class="keyword">struct</span> <a class="code" href="../../de/d17/structeval__queue.html">eval_queue</a>, q);</div>
<div class="line"><a name="l07476"></a><span class="lineno"> 7476</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"(safe-level handler) $SAFE = %d"</span>, q-><a class="code" href="../../de/d17/structeval__queue.html#a625a114231e88948a1556425c213d259">safe_level</a>);</div>
<div class="line"><a name="l07477"></a><span class="lineno"> 7477</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac95c385910a0bb5f780fb6545d83d881">rb_set_safe_level</a>(q-><a class="code" href="../../de/d17/structeval__queue.html#a625a114231e88948a1556425c213d259">safe_level</a>);</div>
<div class="line"><a name="l07478"></a><span class="lineno"> 7478</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a64b9f91b984fbc76739b472bb223a2e6">ip_eval_real</a>(q-><a class="code" href="../../de/d17/structeval__queue.html#a597f4df83c9d25f275e0e83fda96b47a">interp</a>, q-><a class="code" href="../../de/d17/structeval__queue.html#aa4e9dc85f66fdcb7c3723741fed73a3b">str</a>, q-><a class="code" href="../../de/d17/structeval__queue.html#a4d3b821dfc369ee9d6ffcc250feda3c1">len</a>);</div>
<div class="line"><a name="l07479"></a><span class="lineno"> 7479</span> }</div>
<div class="line"><a name="l07480"></a><span class="lineno"> 7480</span> </div>
<div class="line"><a name="l07481"></a><span class="lineno"> 7481</span> <span class="keywordtype">int</span> eval_queue_handler <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((Tcl_Event *, <span class="keywordtype">int</span>));</div>
<div class="line"><a name="l07482"></a><span class="lineno"> 7482</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l07483"></a><span class="lineno"> 7483</span> eval_queue_handler(evPtr, flags)</div>
<div class="line"><a name="l07484"></a><span class="lineno"> 7484</span>  Tcl_Event *evPtr;</div>
<div class="line"><a name="l07485"></a><span class="lineno"> 7485</span>  <span class="keywordtype">int</span> flags;</div>
<div class="line"><a name="l07486"></a><span class="lineno"> 7486</span> {</div>
<div class="line"><a name="l07487"></a><span class="lineno"> 7487</span>  <span class="keyword">struct </span><a class="code" href="../../de/d17/structeval__queue.html">eval_queue</a> *q = (<span class="keyword">struct </span><a class="code" href="../../de/d17/structeval__queue.html">eval_queue</a> *)evPtr;</div>
<div class="line"><a name="l07488"></a><span class="lineno"> 7488</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l07489"></a><span class="lineno"> 7489</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aec8cfb70e9afe46b1d53416919b25f07">q_dat</a>;</div>
<div class="line"><a name="l07490"></a><span class="lineno"> 7490</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> thread = q-><a class="code" href="../../de/d17/structeval__queue.html#ada0646ae22281aa3c00d86f8bebd6c9d">thread</a>;</div>
<div class="line"><a name="l07491"></a><span class="lineno"> 7491</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>;</div>
<div class="line"><a name="l07492"></a><span class="lineno"> 7492</span> </div>
<div class="line"><a name="l07493"></a><span class="lineno"> 7493</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"do_eval_queue_handler : evPtr = %p"</span>, evPtr);</div>
<div class="line"><a name="l07494"></a><span class="lineno"> 7494</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eval_queue_thread : %lx"</span>, <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>());</div>
<div class="line"><a name="l07495"></a><span class="lineno"> 7495</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"added by thread : %lx"</span>, thread);</div>
<div class="line"><a name="l07496"></a><span class="lineno"> 7496</span> </div>
<div class="line"><a name="l07497"></a><span class="lineno"> 7497</span>  <span class="keywordflow">if</span> (*(q-><a class="code" href="../../de/d17/structeval__queue.html#adc749ca5e6e0e9bdd5e2c787ed3f4b32">done</a>)) {</div>
<div class="line"><a name="l07498"></a><span class="lineno"> 7498</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"processed by another event-loop"</span>);</div>
<div class="line"><a name="l07499"></a><span class="lineno"> 7499</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l07500"></a><span class="lineno"> 7500</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07501"></a><span class="lineno"> 7501</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"process it on current event-loop"</span>);</div>
<div class="line"><a name="l07502"></a><span class="lineno"> 7502</span>  }</div>
<div class="line"><a name="l07503"></a><span class="lineno"> 7503</span> </div>
<div class="line"><a name="l07504"></a><span class="lineno"> 7504</span> <span class="preprocessor">#ifdef RUBY_VM</span></div>
<div class="line"><a name="l07505"></a><span class="lineno"> 7505</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(thread, ID_alive_p, 0))</div>
<div class="line"><a name="l07506"></a><span class="lineno"> 7506</span>  && ! <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(thread, ID_stop_p, 0))) {</div>
<div class="line"><a name="l07507"></a><span class="lineno"> 7507</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07508"></a><span class="lineno"> 7508</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d3/de7/thread_8c.html#a5b8ec82e1846eadcb0e0e97803ff7520">rb_thread_alive_p</a>(thread))</div>
<div class="line"><a name="l07509"></a><span class="lineno"> 7509</span>  && ! <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(thread, ID_stop_p, 0))) {</div>
<div class="line"><a name="l07510"></a><span class="lineno"> 7510</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07511"></a><span class="lineno"> 7511</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"caller is not yet ready to receive the result -> pending"</span>);</div>
<div class="line"><a name="l07512"></a><span class="lineno"> 7512</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l07513"></a><span class="lineno"> 7513</span>  }</div>
<div class="line"><a name="l07514"></a><span class="lineno"> 7514</span> </div>
<div class="line"><a name="l07515"></a><span class="lineno"> 7515</span>  <span class="comment">/* process it */</span></div>
<div class="line"><a name="l07516"></a><span class="lineno"> 7516</span>  *(q-><a class="code" href="../../de/d17/structeval__queue.html#adc749ca5e6e0e9bdd5e2c787ed3f4b32">done</a>) = 1;</div>
<div class="line"><a name="l07517"></a><span class="lineno"> 7517</span> </div>
<div class="line"><a name="l07518"></a><span class="lineno"> 7518</span>  <span class="comment">/* deleted ipterp ? */</span></div>
<div class="line"><a name="l07519"></a><span class="lineno"> 7519</span>  ptr = get_ip(q-><a class="code" href="../../de/d17/structeval__queue.html#a597f4df83c9d25f275e0e83fda96b47a">interp</a>);</div>
<div class="line"><a name="l07520"></a><span class="lineno"> 7520</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l07521"></a><span class="lineno"> 7521</span>  <span class="comment">/* deleted IP --> ignore */</span></div>
<div class="line"><a name="l07522"></a><span class="lineno"> 7522</span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l07523"></a><span class="lineno"> 7523</span>  }</div>
<div class="line"><a name="l07524"></a><span class="lineno"> 7524</span> </div>
<div class="line"><a name="l07525"></a><span class="lineno"> 7525</span>  <span class="comment">/* incr internal handler mark */</span></div>
<div class="line"><a name="l07526"></a><span class="lineno"> 7526</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5a8aea48ba7305a384fdd8f56ca97d73">rbtk_internal_eventloop_handler</a>++;</div>
<div class="line"><a name="l07527"></a><span class="lineno"> 7527</span> </div>
<div class="line"><a name="l07528"></a><span class="lineno"> 7528</span>  <span class="comment">/* check safe-level */</span></div>
<div class="line"><a name="l07529"></a><span class="lineno"> 7529</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f520624fabb8332dc98fd223491bf8d">rb_safe_level</a>() != q-><a class="code" href="../../de/d17/structeval__queue.html#a625a114231e88948a1556425c213d259">safe_level</a>) {</div>
<div class="line"><a name="l07530"></a><span class="lineno"> 7530</span> <span class="preprocessor">#ifdef HAVE_NATIVETHREAD</span></div>
<div class="line"><a name="l07531"></a><span class="lineno"> 7531</span> <span class="preprocessor"></span><span class="preprocessor">#ifndef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l07532"></a><span class="lineno"> 7532</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9e7d742a9c52a78b9b3dc81df878e2ed">ruby_native_thread_p</a>()) {</div>
<div class="line"><a name="l07533"></a><span class="lineno"> 7533</span>  <a class="code" href="../../db/dcc/error_8c.html#a2d5fb28e54f792e7341b2c45f52f3860">rb_bug</a>(<span class="stringliteral">"cross-thread violation on eval_queue_handler()"</span>);</div>
<div class="line"><a name="l07534"></a><span class="lineno"> 7534</span>  }</div>
<div class="line"><a name="l07535"></a><span class="lineno"> 7535</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07536"></a><span class="lineno"> 7536</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07537"></a><span class="lineno"> 7537</span> <span class="preprocessor"></span> <span class="comment">/* q_dat = Data_Wrap_Struct(rb_cData,0,-1,q); */</span></div>
<div class="line"><a name="l07538"></a><span class="lineno"> 7538</span>  q_dat = <a class="code" href="../../d5/d9d/tcltklib_8c.html#acdb411cfd8a6dcce9a04494c66ea91fb">Data_Wrap_Struct</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a39cf94183e6d744167ae5f6a7bde0363">rb_cData</a>,<a class="code" href="../../d5/d9d/tcltklib_8c.html#a11013c53b64754fe062f319736a45012">eval_queue_mark</a>,-1,q);</div>
<div class="line"><a name="l07539"></a><span class="lineno"> 7539</span>  ret = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(<a class="code" href="../../db/d2e/intern_8h.html#a8a4a55d3f2ed6d9ece055553e48755d5">rb_proc_new</a>(evq_safelevel_handler, q_dat),</div>
<div class="line"><a name="l07540"></a><span class="lineno"> 7540</span>  ID_call, 0);</div>
<div class="line"><a name="l07541"></a><span class="lineno"> 7541</span>  <a class="code" href="../../d8/d16/gc_8c.html#a53016811c87ff4c3ea839c9e85a9a9a4">rb_gc_force_recycle</a>(q_dat);</div>
<div class="line"><a name="l07542"></a><span class="lineno"> 7542</span>  q_dat = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)NULL;</div>
<div class="line"><a name="l07543"></a><span class="lineno"> 7543</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07544"></a><span class="lineno"> 7544</span>  ret = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a64b9f91b984fbc76739b472bb223a2e6">ip_eval_real</a>(q-><a class="code" href="../../de/d17/structeval__queue.html#a597f4df83c9d25f275e0e83fda96b47a">interp</a>, q-><a class="code" href="../../de/d17/structeval__queue.html#aa4e9dc85f66fdcb7c3723741fed73a3b">str</a>, q-><a class="code" href="../../de/d17/structeval__queue.html#a4d3b821dfc369ee9d6ffcc250feda3c1">len</a>);</div>
<div class="line"><a name="l07545"></a><span class="lineno"> 7545</span>  }</div>
<div class="line"><a name="l07546"></a><span class="lineno"> 7546</span> </div>
<div class="line"><a name="l07547"></a><span class="lineno"> 7547</span>  <span class="comment">/* set result */</span></div>
<div class="line"><a name="l07548"></a><span class="lineno"> 7548</span>  <a class="code" href="../../d8/df4/generator_8h.html#abb794fe2d7c73eea87e7ba2273939a8e">RARRAY_PTR</a>(q-><a class="code" href="../../de/d17/structeval__queue.html#a41aad58e8a23dcf0370b40b9afebef6f">result</a>)[0] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l07549"></a><span class="lineno"> 7549</span>  ret = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)NULL;</div>
<div class="line"><a name="l07550"></a><span class="lineno"> 7550</span> </div>
<div class="line"><a name="l07551"></a><span class="lineno"> 7551</span>  <span class="comment">/* decr internal handler mark */</span></div>
<div class="line"><a name="l07552"></a><span class="lineno"> 7552</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5a8aea48ba7305a384fdd8f56ca97d73">rbtk_internal_eventloop_handler</a>--;</div>
<div class="line"><a name="l07553"></a><span class="lineno"> 7553</span> </div>
<div class="line"><a name="l07554"></a><span class="lineno"> 7554</span>  <span class="comment">/* complete */</span></div>
<div class="line"><a name="l07555"></a><span class="lineno"> 7555</span>  *(q-><a class="code" href="../../de/d17/structeval__queue.html#adc749ca5e6e0e9bdd5e2c787ed3f4b32">done</a>) = -1;</div>
<div class="line"><a name="l07556"></a><span class="lineno"> 7556</span> </div>
<div class="line"><a name="l07557"></a><span class="lineno"> 7557</span>  <span class="comment">/* unlink ruby objects */</span></div>
<div class="line"><a name="l07558"></a><span class="lineno"> 7558</span>  q-><a class="code" href="../../de/d17/structeval__queue.html#a597f4df83c9d25f275e0e83fda96b47a">interp</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)NULL;</div>
<div class="line"><a name="l07559"></a><span class="lineno"> 7559</span>  q-><a class="code" href="../../de/d17/structeval__queue.html#a41aad58e8a23dcf0370b40b9afebef6f">result</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)NULL;</div>
<div class="line"><a name="l07560"></a><span class="lineno"> 7560</span>  q-><a class="code" href="../../de/d17/structeval__queue.html#ada0646ae22281aa3c00d86f8bebd6c9d">thread</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)NULL;</div>
<div class="line"><a name="l07561"></a><span class="lineno"> 7561</span> </div>
<div class="line"><a name="l07562"></a><span class="lineno"> 7562</span>  <span class="comment">/* back to caller */</span></div>
<div class="line"><a name="l07563"></a><span class="lineno"> 7563</span> <span class="preprocessor">#ifdef RUBY_VM</span></div>
<div class="line"><a name="l07564"></a><span class="lineno"> 7564</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(thread, ID_alive_p, 0, 0))) {</div>
<div class="line"><a name="l07565"></a><span class="lineno"> 7565</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07566"></a><span class="lineno"> 7566</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d3/de7/thread_8c.html#a5b8ec82e1846eadcb0e0e97803ff7520">rb_thread_alive_p</a>(thread))) {</div>
<div class="line"><a name="l07567"></a><span class="lineno"> 7567</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07568"></a><span class="lineno"> 7568</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"back to caller (caller thread:%lx)"</span>, thread);</div>
<div class="line"><a name="l07569"></a><span class="lineno"> 7569</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">" (current thread:%lx)"</span>, <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>());</div>
<div class="line"><a name="l07570"></a><span class="lineno"> 7570</span> <span class="preprocessor">#if CONTROL_BY_STATUS_OF_RB_THREAD_WAITING_FOR_VALUE</span></div>
<div class="line"><a name="l07571"></a><span class="lineno"> 7571</span> <span class="preprocessor"></span> have_rb_thread_waiting_for_value = 1;</div>
<div class="line"><a name="l07572"></a><span class="lineno"> 7572</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1c6c386b417e79a679ef583c543e411f">rb_thread_wakeup</a>(thread);</div>
<div class="line"><a name="l07573"></a><span class="lineno"> 7573</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07574"></a><span class="lineno"> 7574</span> <span class="preprocessor"></span> <a class="code" href="../../db/d2e/intern_8h.html#a466749a3498fa8fbb48f7fc783a7cf34">rb_thread_run</a>(thread);</div>
<div class="line"><a name="l07575"></a><span class="lineno"> 7575</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07576"></a><span class="lineno"> 7576</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"finish back to caller"</span>);</div>
<div class="line"><a name="l07577"></a><span class="lineno"> 7577</span> <span class="preprocessor">#if DO_THREAD_SCHEDULE_AT_CALLBACK_DONE</span></div>
<div class="line"><a name="l07578"></a><span class="lineno"> 7578</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a032996d6998bbda639fe14f370a70f6d">rb_thread_schedule</a>();</div>
<div class="line"><a name="l07579"></a><span class="lineno"> 7579</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07580"></a><span class="lineno"> 7580</span> <span class="preprocessor"></span> } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07581"></a><span class="lineno"> 7581</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"caller is dead (caller thread:%lx)"</span>, thread);</div>
<div class="line"><a name="l07582"></a><span class="lineno"> 7582</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">" (current thread:%lx)"</span>, <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>());</div>
<div class="line"><a name="l07583"></a><span class="lineno"> 7583</span>  }</div>
<div class="line"><a name="l07584"></a><span class="lineno"> 7584</span> </div>
<div class="line"><a name="l07585"></a><span class="lineno"> 7585</span>  <span class="comment">/* end of handler : remove it */</span></div>
<div class="line"><a name="l07586"></a><span class="lineno"> 7586</span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l07587"></a><span class="lineno"> 7587</span> }</div>
<div class="line"><a name="l07588"></a><span class="lineno"> 7588</span> </div>
<div class="line"><a name="l07589"></a><span class="lineno"> 7589</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l07590"></a><span class="lineno"> 7590</span> ip_eval(<span class="keyword">self</span>, str)</div>
<div class="line"><a name="l07591"></a><span class="lineno"> 7591</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l07592"></a><span class="lineno"> 7592</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> str;</div>
<div class="line"><a name="l07593"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a1761dc74a573f68422040d436688e567"> 7593</a></span> {</div>
<div class="line"><a name="l07594"></a><span class="lineno"> 7594</span>  <span class="keyword">struct </span><a class="code" href="../../de/d17/structeval__queue.html">eval_queue</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#aa175d853234808578ae95e41eb2950da">evq</a>;</div>
<div class="line"><a name="l07595"></a><span class="lineno"> 7595</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l07596"></a><span class="lineno"> 7596</span> <span class="preprocessor"></span> <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>;</div>
<div class="line"><a name="l07597"></a><span class="lineno"> 7597</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07598"></a><span class="lineno"> 7598</span> <span class="preprocessor"></span> <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a1761dc74a573f68422040d436688e567">eval_str</a>;</div>
<div class="line"><a name="l07599"></a><span class="lineno"> 7599</span>  <span class="keywordtype">int</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8153d6aa187352242ba173695c08e8c">alloc_done</a>;</div>
<div class="line"><a name="l07600"></a><span class="lineno"> 7600</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l07601"></a><span class="lineno"> 7601</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> current = <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>();</div>
<div class="line"><a name="l07602"></a><span class="lineno"> 7602</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> ip_obj = <span class="keyword">self</span>;</div>
<div class="line"><a name="l07603"></a><span class="lineno"> 7603</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae6cf673d09a03d1dfd71928b32d95161">result</a>;</div>
<div class="line"><a name="l07604"></a><span class="lineno"> 7604</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l07605"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a1bdcc60b06a4d9bd65069676f991659a"> 7605</a></span>  Tcl_QueuePosition <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1bdcc60b06a4d9bd65069676f991659a">position</a>;</div>
<div class="line"><a name="l07606"></a><span class="lineno"> 7606</span>  <span class="keyword">struct </span><a class="code" href="../../d1/d1b/structtimeval.html">timeval</a> t;</div>
<div class="line"><a name="l07607"></a><span class="lineno"> 7607</span> </div>
<div class="line"><a name="l07608"></a><span class="lineno"> 7608</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l07609"></a><span class="lineno"> 7609</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l07610"></a><span class="lineno"> 7610</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(str);</div>
<div class="line"><a name="l07611"></a><span class="lineno"> 7611</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l07612"></a><span class="lineno"> 7612</span> </div>
<div class="line"><a name="l07613"></a><span class="lineno"> 7613</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l07614"></a><span class="lineno"> 7614</span> <span class="preprocessor"></span> ptr = get_ip(ip_obj);</div>
<div class="line"><a name="l07615"></a><span class="lineno"> 7615</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eval status: ptr->tk_thread_id %p"</span>, ptr->tk_thread_id);</div>
<div class="line"><a name="l07616"></a><span class="lineno"> 7616</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eval status: Tcl_GetCurrentThread %p"</span>, Tcl_GetCurrentThread());</div>
<div class="line"><a name="l07617"></a><span class="lineno"> 7617</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07618"></a><span class="lineno"> 7618</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"status: Tcl_GetCurrentThread %p"</span>, Tcl_GetCurrentThread());</div>
<div class="line"><a name="l07619"></a><span class="lineno"> 7619</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07620"></a><span class="lineno"> 7620</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"status: eventloopt_thread %lx"</span>, eventloop_thread);</div>
<div class="line"><a name="l07621"></a><span class="lineno"> 7621</span> </div>
<div class="line"><a name="l07622"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a21c39d21dcf5741ddad9e72414a36f37"> 7622</a></span>  <span class="keywordflow">if</span> (</div>
<div class="line"><a name="l07623"></a><span class="lineno"> 7623</span> #ifdef RUBY_USE_NATIVE_THREAD</div>
<div class="line"><a name="l07624"></a><span class="lineno"> 7624</span>  (ptr->tk_thread_id == 0 || ptr->tk_thread_id == Tcl_GetCurrentThread())</div>
<div class="line"><a name="l07625"></a><span class="lineno"> 7625</span>  &&</div>
<div class="line"><a name="l07626"></a><span class="lineno"> 7626</span> #endif</div>
<div class="line"><a name="l07627"></a><span class="lineno"> 7627</span>  (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread) || current == eventloop_thread)</div>
<div class="line"><a name="l07628"></a><span class="lineno"> 7628</span>  ) {</div>
<div class="line"><a name="l07629"></a><span class="lineno"> 7629</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread)) {</div>
<div class="line"><a name="l07630"></a><span class="lineno"> 7630</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eval from thread:%lx but no eventloop"</span>, current);</div>
<div class="line"><a name="l07631"></a><span class="lineno"> 7631</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07632"></a><span class="lineno"> 7632</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eval from current eventloop %lx"</span>, current);</div>
<div class="line"><a name="l07633"></a><span class="lineno"> 7633</span>  }</div>
<div class="line"><a name="l07634"></a><span class="lineno"> 7634</span>  result = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a64b9f91b984fbc76739b472bb223a2e6">ip_eval_real</a>(<span class="keyword">self</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(str), <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str));</div>
<div class="line"><a name="l07635"></a><span class="lineno"> 7635</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(result, <a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>)) {</div>
<div class="line"><a name="l07636"></a><span class="lineno"> 7636</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(result);</div>
<div class="line"><a name="l07637"></a><span class="lineno"> 7637</span>  }</div>
<div class="line"><a name="l07638"></a><span class="lineno"> 7638</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae6cf673d09a03d1dfd71928b32d95161">result</a>;</div>
<div class="line"><a name="l07639"></a><span class="lineno"> 7639</span>  }</div>
<div class="line"><a name="l07640"></a><span class="lineno"> 7640</span> </div>
<div class="line"><a name="l07641"></a><span class="lineno"> 7641</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eval from thread %lx (NOT current eventloop)"</span>, current);</div>
<div class="line"><a name="l07642"></a><span class="lineno"> 7642</span> </div>
<div class="line"><a name="l07643"></a><span class="lineno"> 7643</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l07644"></a><span class="lineno"> 7644</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l07645"></a><span class="lineno"> 7645</span> </div>
<div class="line"><a name="l07646"></a><span class="lineno"> 7646</span>  <span class="comment">/* allocate memory (keep result) */</span></div>
<div class="line"><a name="l07647"></a><span class="lineno"> 7647</span>  <span class="comment">/* alloc_done = (int*)ALLOC(int); */</span></div>
<div class="line"><a name="l07648"></a><span class="lineno"> 7648</span>  alloc_done = (<span class="keywordtype">int</span>*)ckalloc(<span class="keyword">sizeof</span>(<span class="keywordtype">int</span>));</div>
<div class="line"><a name="l07649"></a><span class="lineno"> 7649</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07650"></a><span class="lineno"> 7650</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)alloc_done); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l07651"></a><span class="lineno"> 7651</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07652"></a><span class="lineno"> 7652</span> <span class="preprocessor"></span> *alloc_done = 0;</div>
<div class="line"><a name="l07653"></a><span class="lineno"> 7653</span> </div>
<div class="line"><a name="l07654"></a><span class="lineno"> 7654</span>  <span class="comment">/* eval_str = ALLOC_N(char, RSTRING_LEN(str) + 1); */</span></div>
<div class="line"><a name="l07655"></a><span class="lineno"> 7655</span>  eval_str = ckalloc(<span class="keyword">sizeof</span>(<span class="keywordtype">char</span>) * (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str) + 1));</div>
<div class="line"><a name="l07656"></a><span class="lineno"> 7656</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07657"></a><span class="lineno"> 7657</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)eval_str); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l07658"></a><span class="lineno"> 7658</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07659"></a><span class="lineno"> 7659</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7aa3ca79548709bc580aa259ad1fd2d2">memcpy</a>(eval_str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(str), <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str));</div>
<div class="line"><a name="l07660"></a><span class="lineno"> 7660</span>  eval_str[<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str)] = 0;</div>
<div class="line"><a name="l07661"></a><span class="lineno"> 7661</span> </div>
<div class="line"><a name="l07662"></a><span class="lineno"> 7662</span>  <span class="comment">/* allocate memory (freed by Tcl_ServiceEvent) */</span></div>
<div class="line"><a name="l07663"></a><span class="lineno"> 7663</span>  <span class="comment">/* evq = (struct eval_queue *)Tcl_Alloc(sizeof(struct eval_queue)); */</span></div>
<div class="line"><a name="l07664"></a><span class="lineno"> 7664</span>  evq = (<span class="keyword">struct </span><a class="code" href="../../de/d17/structeval__queue.html">eval_queue</a> *)ckalloc(<span class="keyword">sizeof</span>(<span class="keyword">struct</span> <a class="code" href="../../de/d17/structeval__queue.html">eval_queue</a>));</div>
<div class="line"><a name="l07665"></a><span class="lineno"> 7665</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07666"></a><span class="lineno"> 7666</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>(evq);</div>
<div class="line"><a name="l07667"></a><span class="lineno"> 7667</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07668"></a><span class="lineno"> 7668</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l07669"></a><span class="lineno"> 7669</span>  <span class="comment">/* allocate result obj */</span></div>
<div class="line"><a name="l07670"></a><span class="lineno"> 7670</span>  result = <a class="code" href="../../dc/dcc/array_8c.html#a8317ecd6a0abb5ad08c50c732f30059b">rb_ary_new3</a>(1, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>);</div>
<div class="line"><a name="l07671"></a><span class="lineno"> 7671</span> </div>
<div class="line"><a name="l07672"></a><span class="lineno"> 7672</span>  <span class="comment">/* construct event data */</span></div>
<div class="line"><a name="l07673"></a><span class="lineno"> 7673</span>  evq-><a class="code" href="../../de/d17/structeval__queue.html#adc749ca5e6e0e9bdd5e2c787ed3f4b32">done</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8153d6aa187352242ba173695c08e8c">alloc_done</a>;</div>
<div class="line"><a name="l07674"></a><span class="lineno"> 7674</span>  evq-><a class="code" href="../../de/d17/structeval__queue.html#aa4e9dc85f66fdcb7c3723741fed73a3b">str</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1761dc74a573f68422040d436688e567">eval_str</a>;</div>
<div class="line"><a name="l07675"></a><span class="lineno"> 7675</span>  evq-><a class="code" href="../../de/d17/structeval__queue.html#a4d3b821dfc369ee9d6ffcc250feda3c1">len</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str);</div>
<div class="line"><a name="l07676"></a><span class="lineno"> 7676</span>  evq-><a class="code" href="../../de/d17/structeval__queue.html#a597f4df83c9d25f275e0e83fda96b47a">interp</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#abff803ed7da8eaf63b872306fe238d97">ip_obj</a>;</div>
<div class="line"><a name="l07677"></a><span class="lineno"> 7677</span>  evq-><a class="code" href="../../de/d17/structeval__queue.html#a41aad58e8a23dcf0370b40b9afebef6f">result</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae6cf673d09a03d1dfd71928b32d95161">result</a>;</div>
<div class="line"><a name="l07678"></a><span class="lineno"> 7678</span>  evq-><a class="code" href="../../de/d17/structeval__queue.html#ada0646ae22281aa3c00d86f8bebd6c9d">thread</a> = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#a711673dea8d1c623bad6447fee9dd1eb">current</a>;</div>
<div class="line"><a name="l07679"></a><span class="lineno"> 7679</span>  evq-><a class="code" href="../../de/d17/structeval__queue.html#a625a114231e88948a1556425c213d259">safe_level</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f520624fabb8332dc98fd223491bf8d">rb_safe_level</a>();</div>
<div class="line"><a name="l07680"></a><span class="lineno"> 7680</span>  evq-><a class="code" href="../../de/d17/structeval__queue.html#a059ee495f45f2904277a72b0fff6a322">ev</a>.proc = eval_queue_handler;</div>
<div class="line"><a name="l07681"></a><span class="lineno"> 7681</span> </div>
<div class="line"><a name="l07682"></a><span class="lineno"> 7682</span>  position = TCL_QUEUE_TAIL;</div>
<div class="line"><a name="l07683"></a><span class="lineno"> 7683</span> </div>
<div class="line"><a name="l07684"></a><span class="lineno"> 7684</span>  <span class="comment">/* add the handler to Tcl event queue */</span></div>
<div class="line"><a name="l07685"></a><span class="lineno"> 7685</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"add handler"</span>);</div>
<div class="line"><a name="l07686"></a><span class="lineno"> 7686</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l07687"></a><span class="lineno"> 7687</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (ptr->tk_thread_id) {</div>
<div class="line"><a name="l07688"></a><span class="lineno"> 7688</span>  <span class="comment">/* Tcl_ThreadQueueEvent(ptr->tk_thread_id, &(evq->ev), position); */</span></div>
<div class="line"><a name="l07689"></a><span class="lineno"> 7689</span>  Tcl_ThreadQueueEvent(ptr->tk_thread_id, (Tcl_Event*)evq, position);</div>
<div class="line"><a name="l07690"></a><span class="lineno"> 7690</span>  Tcl_ThreadAlert(ptr->tk_thread_id);</div>
<div class="line"><a name="l07691"></a><span class="lineno"> 7691</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (tk_eventloop_thread_id) {</div>
<div class="line"><a name="l07692"></a><span class="lineno"> 7692</span>  Tcl_ThreadQueueEvent(tk_eventloop_thread_id, (Tcl_Event*)evq, position);</div>
<div class="line"><a name="l07693"></a><span class="lineno"> 7693</span>  <span class="comment">/* Tcl_ThreadQueueEvent(tk_eventloop_thread_id,</span></div>
<div class="line"><a name="l07694"></a><span class="lineno"> 7694</span> <span class="comment"> &(evq->ev), position); */</span></div>
<div class="line"><a name="l07695"></a><span class="lineno"> 7695</span>  Tcl_ThreadAlert(tk_eventloop_thread_id);</div>
<div class="line"><a name="l07696"></a><span class="lineno"> 7696</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07697"></a><span class="lineno"> 7697</span>  <span class="comment">/* Tcl_QueueEvent(&(evq->ev), position); */</span></div>
<div class="line"><a name="l07698"></a><span class="lineno"> 7698</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac215bbef6f867043f5072c1997a47557">Tcl_QueueEvent</a>((Tcl_Event*)evq, position);</div>
<div class="line"><a name="l07699"></a><span class="lineno"> 7699</span>  }</div>
<div class="line"><a name="l07700"></a><span class="lineno"> 7700</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07701"></a><span class="lineno"> 7701</span> <span class="preprocessor"></span> <span class="comment">/* Tcl_QueueEvent(&(evq->ev), position); */</span></div>
<div class="line"><a name="l07702"></a><span class="lineno"> 7702</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac215bbef6f867043f5072c1997a47557">Tcl_QueueEvent</a>((Tcl_Event*)evq, position);</div>
<div class="line"><a name="l07703"></a><span class="lineno"> 7703</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07704"></a><span class="lineno"> 7704</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l07705"></a><span class="lineno"> 7705</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l07706"></a><span class="lineno"> 7706</span> </div>
<div class="line"><a name="l07707"></a><span class="lineno"> 7707</span>  <span class="comment">/* wait for the handler to be processed */</span></div>
<div class="line"><a name="l07708"></a><span class="lineno"> 7708</span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#a3599199839a89e99a2ce29d45312b5cf">tv_sec</a> = 0;</div>
<div class="line"><a name="l07709"></a><span class="lineno"> 7709</span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#aa8396731f2914f9ed2a457d3da602b80">tv_usec</a> = (<a class="code" href="../../d3/d15/name2ctype_8h.html#a86f2415763322050063a5502f87c9422">long</a>)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd2530678e6262a587dd99dedeb053b">EVENT_HANDLER_TIMEOUT</a>)*1000.0);</div>
<div class="line"><a name="l07710"></a><span class="lineno"> 7710</span> </div>
<div class="line"><a name="l07711"></a><span class="lineno"> 7711</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"evq wait for handler (current thread:%lx)"</span>, current);</div>
<div class="line"><a name="l07712"></a><span class="lineno"> 7712</span>  <span class="keywordflow">while</span>(*alloc_done >= 0) {</div>
<div class="line"><a name="l07713"></a><span class="lineno"> 7713</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"*** evq wait for handler (current thread:%lx)"</span>, current);</div>
<div class="line"><a name="l07714"></a><span class="lineno"> 7714</span>  <span class="comment">/* rb_thread_stop(); */</span></div>
<div class="line"><a name="l07715"></a><span class="lineno"> 7715</span>  <span class="comment">/* rb_thread_sleep_forever(); */</span></div>
<div class="line"><a name="l07716"></a><span class="lineno"> 7716</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8a3ea241e062a8c0dcd87b7232ca4900">rb_thread_wait_for</a>(t);</div>
<div class="line"><a name="l07717"></a><span class="lineno"> 7717</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"*** evq wakeup (current thread:%lx)"</span>, current);</div>
<div class="line"><a name="l07718"></a><span class="lineno"> 7718</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"*** (eventloop thread:%lx)"</span>, eventloop_thread);</div>
<div class="line"><a name="l07719"></a><span class="lineno"> 7719</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread)) {</div>
<div class="line"><a name="l07720"></a><span class="lineno"> 7720</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"*** evq lost eventloop thread"</span>);</div>
<div class="line"><a name="l07721"></a><span class="lineno"> 7721</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l07722"></a><span class="lineno"> 7722</span>  }</div>
<div class="line"><a name="l07723"></a><span class="lineno"> 7723</span>  }</div>
<div class="line"><a name="l07724"></a><span class="lineno"> 7724</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"back from handler (current thread:%lx)"</span>, current);</div>
<div class="line"><a name="l07725"></a><span class="lineno"> 7725</span> </div>
<div class="line"><a name="l07726"></a><span class="lineno"> 7726</span>  <span class="comment">/* get result & free allocated memory */</span></div>
<div class="line"><a name="l07727"></a><span class="lineno"> 7727</span>  ret = <a class="code" href="../../d8/df4/generator_8h.html#abb794fe2d7c73eea87e7ba2273939a8e">RARRAY_PTR</a>(result)[0];</div>
<div class="line"><a name="l07728"></a><span class="lineno"> 7728</span> </div>
<div class="line"><a name="l07729"></a><span class="lineno"> 7729</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07730"></a><span class="lineno"> 7730</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)alloc_done, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l07731"></a><span class="lineno"> 7731</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07732"></a><span class="lineno"> 7732</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07733"></a><span class="lineno"> 7733</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)alloc_done); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l07734"></a><span class="lineno"> 7734</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07735"></a><span class="lineno"> 7735</span> <span class="preprocessor"></span> <span class="comment">/* free(alloc_done); */</span></div>
<div class="line"><a name="l07736"></a><span class="lineno"> 7736</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span>*)alloc_done);</div>
<div class="line"><a name="l07737"></a><span class="lineno"> 7737</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07738"></a><span class="lineno"> 7738</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07739"></a><span class="lineno"> 7739</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07740"></a><span class="lineno"> 7740</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)eval_str, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l07741"></a><span class="lineno"> 7741</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07742"></a><span class="lineno"> 7742</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07743"></a><span class="lineno"> 7743</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)eval_str); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l07744"></a><span class="lineno"> 7744</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07745"></a><span class="lineno"> 7745</span> <span class="preprocessor"></span> <span class="comment">/* free(eval_str); */</span></div>
<div class="line"><a name="l07746"></a><span class="lineno"> 7746</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>(eval_str);</div>
<div class="line"><a name="l07747"></a><span class="lineno"> 7747</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07748"></a><span class="lineno"> 7748</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07749"></a><span class="lineno"> 7749</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* evq is freed by Tcl_ServiceEvent */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07750"></a><span class="lineno"> 7750</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l07751"></a><span class="lineno"> 7751</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(evq);</div>
<div class="line"><a name="l07752"></a><span class="lineno"> 7752</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07753"></a><span class="lineno"> 7753</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span>*)evq);</div>
<div class="line"><a name="l07754"></a><span class="lineno"> 7754</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07755"></a><span class="lineno"> 7755</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07756"></a><span class="lineno"> 7756</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l07757"></a><span class="lineno"> 7757</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(ret, <a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>)) {</div>
<div class="line"><a name="l07758"></a><span class="lineno"> 7758</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"raise exception"</span>);</div>
<div class="line"><a name="l07759"></a><span class="lineno"> 7759</span>  <span class="comment">/* rb_exc_raise(ret); */</span></div>
<div class="line"><a name="l07760"></a><span class="lineno"> 7760</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a4989eeb5742cad6359a2ed77859674de">rb_exc_new3</a>(<a class="code" href="../../db/d2e/intern_8h.html#ac2be7243e739fa8f5dce6be0c8ee5f6d">rb_obj_class</a>(ret),</div>
<div class="line"><a name="l07761"></a><span class="lineno"> 7761</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(ret, ID_to_s, 0, 0)));</div>
<div class="line"><a name="l07762"></a><span class="lineno"> 7762</span>  }</div>
<div class="line"><a name="l07763"></a><span class="lineno"> 7763</span> </div>
<div class="line"><a name="l07764"></a><span class="lineno"> 7764</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l07765"></a><span class="lineno"> 7765</span> }</div>
<div class="line"><a name="l07766"></a><span class="lineno"> 7766</span> </div>
<div class="line"><a name="l07767"></a><span class="lineno"> 7767</span> </div>
<div class="line"><a name="l07768"></a><span class="lineno"> 7768</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l07769"></a><span class="lineno"> 7769</span> ip_cancel_eval_core(interp, msg, flag)</div>
<div class="line"><a name="l07770"></a><span class="lineno"> 7770</span>  Tcl_Interp *interp;</div>
<div class="line"><a name="l07771"></a><span class="lineno"> 7771</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> msg;</div>
<div class="line"><a name="l07772"></a><span class="lineno"> 7772</span>  <span class="keywordtype">int</span> flag;</div>
<div class="line"><a name="l07773"></a><span class="lineno"> 7773</span> {</div>
<div class="line"><a name="l07774"></a><span class="lineno"> 7774</span> <span class="preprocessor">#if TCL_MAJOR_VERSION < 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION < 6)</span></div>
<div class="line"><a name="l07775"></a><span class="lineno"> 7775</span> <span class="preprocessor"></span> <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a1f4044eeff81eb1676037771628b555c">rb_eNotImpError</a>,</div>
<div class="line"><a name="l07776"></a><span class="lineno"> 7776</span>  <span class="stringliteral">"cancel_eval is supported Tcl/Tk8.6 or later."</span>);</div>
<div class="line"><a name="l07777"></a><span class="lineno"> 7777</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07778"></a><span class="lineno"> 7778</span> <span class="preprocessor"></span> Tcl_Obj *msg_obj;</div>
<div class="line"><a name="l07779"></a><span class="lineno"> 7779</span> </div>
<div class="line"><a name="l07780"></a><span class="lineno"> 7780</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(msg)) {</div>
<div class="line"><a name="l07781"></a><span class="lineno"> 7781</span>  msg_obj = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l07782"></a><span class="lineno"> 7782</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07783"></a><span class="lineno"> 7783</span>  msg_obj = Tcl_NewStringObj(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(msg), <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(msg));</div>
<div class="line"><a name="l07784"></a><span class="lineno"> 7784</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(msg_obj);</div>
<div class="line"><a name="l07785"></a><span class="lineno"> 7785</span>  }</div>
<div class="line"><a name="l07786"></a><span class="lineno"> 7786</span> </div>
<div class="line"><a name="l07787"></a><span class="lineno"> 7787</span>  <span class="keywordflow">return</span> Tcl_CancelEval(interp, msg_obj, 0, flag);</div>
<div class="line"><a name="l07788"></a><span class="lineno"> 7788</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07789"></a><span class="lineno"> 7789</span> <span class="preprocessor"></span>}</div>
<div class="line"><a name="l07790"></a><span class="lineno"> 7790</span> </div>
<div class="line"><a name="l07791"></a><span class="lineno"> 7791</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l07792"></a><span class="lineno"> 7792</span> ip_cancel_eval(argc, argv, <span class="keyword">self</span>)</div>
<div class="line"><a name="l07793"></a><span class="lineno"> 7793</span>  int argc;</div>
<div class="line"><a name="l07794"></a><span class="lineno"> 7794</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l07795"></a><span class="lineno"> 7795</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l07796"></a><span class="lineno"> 7796</span> {</div>
<div class="line"><a name="l07797"></a><span class="lineno"> 7797</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae3ed9756fe65ccdbec5dc78d6f3422dc">retval</a>;</div>
<div class="line"><a name="l07798"></a><span class="lineno"> 7798</span> </div>
<div class="line"><a name="l07799"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8327a85f27efaecaf602700ab933b708"> 7799</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(argc, argv, <span class="stringliteral">"01"</span>, &retval) == 0) {</div>
<div class="line"><a name="l07800"></a><span class="lineno"> 7800</span>  retval = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l07801"></a><span class="lineno"> 7801</span>  }</div>
<div class="line"><a name="l07802"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aeae4706e8a692f4ede832d68f03e6c22"> 7802</a></span>  <span class="keywordflow">if</span> (ip_cancel_eval_core(get_ip(<span class="keyword">self</span>)->ip, retval, 0) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l07803"></a><span class="lineno"> 7803</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l07804"></a><span class="lineno"> 7804</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07805"></a><span class="lineno"> 7805</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l07806"></a><span class="lineno"> 7806</span>  }</div>
<div class="line"><a name="l07807"></a><span class="lineno"> 7807</span> }</div>
<div class="line"><a name="l07808"></a><span class="lineno"> 7808</span> </div>
<div class="line"><a name="l07809"></a><span class="lineno"> 7809</span> <span class="preprocessor">#ifndef TCL_CANCEL_UNWIND</span></div>
<div class="line"><a name="l07810"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8c25bd9e73ecb18e4f9f352090bb2911"> 7810</a></span> <span class="preprocessor"></span><span class="preprocessor">#define TCL_CANCEL_UNWIND 0x100000</span></div>
<div class="line"><a name="l07811"></a><span class="lineno"> 7811</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07812"></a><span class="lineno"> 7812</span> <span class="preprocessor"></span><span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l07813"></a><span class="lineno"> 7813</span> ip_cancel_eval_unwind(argc, argv, <span class="keyword">self</span>)</div>
<div class="line"><a name="l07814"></a><span class="lineno"> 7814</span>  int argc;</div>
<div class="line"><a name="l07815"></a><span class="lineno"> 7815</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l07816"></a><span class="lineno"> 7816</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l07817"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae3ed9756fe65ccdbec5dc78d6f3422dc"> 7817</a></span> {</div>
<div class="line"><a name="l07818"></a><span class="lineno"> 7818</span>  <span class="keywordtype">int</span> flag = 0;</div>
<div class="line"><a name="l07819"></a><span class="lineno"> 7819</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae3ed9756fe65ccdbec5dc78d6f3422dc">retval</a>;</div>
<div class="line"><a name="l07820"></a><span class="lineno"> 7820</span> </div>
<div class="line"><a name="l07821"></a><span class="lineno"> 7821</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(argc, argv, <span class="stringliteral">"01"</span>, &retval) == 0) {</div>
<div class="line"><a name="l07822"></a><span class="lineno"> 7822</span>  retval = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l07823"></a><span class="lineno"> 7823</span>  }</div>
<div class="line"><a name="l07824"></a><span class="lineno"> 7824</span> </div>
<div class="line"><a name="l07825"></a><span class="lineno"> 7825</span>  flag |= <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8c25bd9e73ecb18e4f9f352090bb2911">TCL_CANCEL_UNWIND</a>;</div>
<div class="line"><a name="l07826"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae06d8f19ec0efbbf8568638050ea31a0"> 7826</a></span>  <span class="keywordflow">if</span> (ip_cancel_eval_core(get_ip(<span class="keyword">self</span>)->ip, retval, flag) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l07827"></a><span class="lineno"> 7827</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l07828"></a><span class="lineno"> 7828</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07829"></a><span class="lineno"> 7829</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l07830"></a><span class="lineno"> 7830</span>  }</div>
<div class="line"><a name="l07831"></a><span class="lineno"> 7831</span> }</div>
<div class="line"><a name="l07832"></a><span class="lineno"> 7832</span> </div>
<div class="line"><a name="l07833"></a><span class="lineno"> 7833</span> <span class="comment">/* restart Tk */</span></div>
<div class="line"><a name="l07834"></a><span class="lineno"> 7834</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l07835"></a><span class="lineno"> 7835</span> lib_restart_core(interp, argc, argv)</div>
<div class="line"><a name="l07836"></a><span class="lineno"> 7836</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l07837"></a><span class="lineno"> 7837</span>  <span class="keywordtype">int</span> argc; <span class="comment">/* dummy */</span></div>
<div class="line"><a name="l07838"></a><span class="lineno"> 7838</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv; <span class="comment">/* dummy */</span></div>
<div class="line"><a name="l07839"></a><span class="lineno"> 7839</span> {</div>
<div class="line"><a name="l07840"></a><span class="lineno"> 7840</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03">exc</a>;</div>
<div class="line"><a name="l07841"></a><span class="lineno"> 7841</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(interp);</div>
<div class="line"><a name="l07842"></a><span class="lineno"> 7842</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l07843"></a><span class="lineno"> 7843</span> </div>
<div class="line"><a name="l07844"></a><span class="lineno"> 7844</span>  <span class="comment">/* rb_secure(4); */</span> <span class="comment">/* already checked */</span></div>
<div class="line"><a name="l07845"></a><span class="lineno"> 7845</span> </div>
<div class="line"><a name="l07846"></a><span class="lineno"> 7846</span>  <span class="comment">/* tcl_stubs_check(); */</span> <span class="comment">/* already checked */</span></div>
<div class="line"><a name="l07847"></a><span class="lineno"> 7847</span> </div>
<div class="line"><a name="l07848"></a><span class="lineno"> 7848</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l07849"></a><span class="lineno"> 7849</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l07850"></a><span class="lineno"> 7850</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"interpreter is deleted"</span>);</div>
<div class="line"><a name="l07851"></a><span class="lineno"> 7851</span>  }</div>
<div class="line"><a name="l07852"></a><span class="lineno"> 7852</span> </div>
<div class="line"><a name="l07853"></a><span class="lineno"> 7853</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l07854"></a><span class="lineno"> 7854</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l07855"></a><span class="lineno"> 7855</span> </div>
<div class="line"><a name="l07856"></a><span class="lineno"> 7856</span>  <span class="comment">/* Tcl_Preserve(ptr->ip); */</span></div>
<div class="line"><a name="l07857"></a><span class="lineno"> 7857</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa23f39899c949c9e59a0ee3096d76fc5">rbtk_preserve_ip</a>(ptr);</div>
<div class="line"><a name="l07858"></a><span class="lineno"> 7858</span> </div>
<div class="line"><a name="l07859"></a><span class="lineno"> 7859</span>  <span class="comment">/* destroy the root wdiget */</span></div>
<div class="line"><a name="l07860"></a><span class="lineno"> 7860</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7e05442307639ca746f2560593ca9ca9">Tcl_Eval</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"destroy ."</span>);</div>
<div class="line"><a name="l07861"></a><span class="lineno"> 7861</span>  <span class="comment">/* ignore ERROR */</span></div>
<div class="line"><a name="l07862"></a><span class="lineno"> 7862</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"(TCL_Eval result) %d"</span>, ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a>);</div>
<div class="line"><a name="l07863"></a><span class="lineno"> 7863</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l07864"></a><span class="lineno"> 7864</span> </div>
<div class="line"><a name="l07865"></a><span class="lineno"> 7865</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l07866"></a><span class="lineno"> 7866</span> <span class="preprocessor"></span> <span class="comment">/* delete namespace ( tested on tk8.4.5 ) */</span></div>
<div class="line"><a name="l07867"></a><span class="lineno"> 7867</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7e05442307639ca746f2560593ca9ca9">Tcl_Eval</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"namespace delete ::tk::msgcat"</span>);</div>
<div class="line"><a name="l07868"></a><span class="lineno"> 7868</span>  <span class="comment">/* ignore ERROR */</span></div>
<div class="line"><a name="l07869"></a><span class="lineno"> 7869</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"(TCL_Eval result) %d"</span>, ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a>);</div>
<div class="line"><a name="l07870"></a><span class="lineno"> 7870</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l07871"></a><span class="lineno"> 7871</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07872"></a><span class="lineno"> 7872</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l07873"></a><span class="lineno"> 7873</span>  <span class="comment">/* delete trace proc ( tested on tk8.4.5 ) */</span></div>
<div class="line"><a name="l07874"></a><span class="lineno"> 7874</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7e05442307639ca746f2560593ca9ca9">Tcl_Eval</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"trace vdelete ::tk_strictMotif w ::tk::EventMotifBindings"</span>);</div>
<div class="line"><a name="l07875"></a><span class="lineno"> 7875</span>  <span class="comment">/* ignore ERROR */</span></div>
<div class="line"><a name="l07876"></a><span class="lineno"> 7876</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"(TCL_Eval result) %d"</span>, ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a>);</div>
<div class="line"><a name="l07877"></a><span class="lineno"> 7877</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l07878"></a><span class="lineno"> 7878</span> </div>
<div class="line"><a name="l07879"></a><span class="lineno"> 7879</span>  <span class="comment">/* execute Tk_Init or Tk_SafeInit */</span></div>
<div class="line"><a name="l07880"></a><span class="lineno"> 7880</span>  exc = tcltkip_init_tk(interp);</div>
<div class="line"><a name="l07881"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a643f1f51989272e699e3f7a65db59e55"> 7881</a></span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(exc)) {</div>
<div class="line"><a name="l07882"></a><span class="lineno"> 7882</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l07883"></a><span class="lineno"> 7883</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l07884"></a><span class="lineno"> 7884</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03">exc</a>;</div>
<div class="line"><a name="l07885"></a><span class="lineno"> 7885</span>  }</div>
<div class="line"><a name="l07886"></a><span class="lineno"> 7886</span> </div>
<div class="line"><a name="l07887"></a><span class="lineno"> 7887</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div>
<div class="line"><a name="l07888"></a><span class="lineno"> 7888</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l07889"></a><span class="lineno"> 7889</span> </div>
<div class="line"><a name="l07890"></a><span class="lineno"> 7890</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l07891"></a><span class="lineno"> 7891</span> </div>
<div class="line"><a name="l07892"></a><span class="lineno"> 7892</span>  <span class="comment">/* return Qnil; */</span></div>
<div class="line"><a name="l07893"></a><span class="lineno"> 7893</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abb159f1f4254ecf6df54f13d2b3468c6">interp</a>;</div>
<div class="line"><a name="l07894"></a><span class="lineno"> 7894</span> }</div>
<div class="line"><a name="l07895"></a><span class="lineno"> 7895</span> </div>
<div class="line"><a name="l07896"></a><span class="lineno"> 7896</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l07897"></a><span class="lineno"> 7897</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac5e978e9d0e7126f9ffa3661ac40ede6">lib_restart</a>(<span class="keyword">self</span>)</div>
<div class="line"><a name="l07898"></a><span class="lineno"> 7898</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l07899"></a><span class="lineno"> 7899</span> {</div>
<div class="line"><a name="l07900"></a><span class="lineno"> 7900</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l07901"></a><span class="lineno"> 7901</span> </div>
<div class="line"><a name="l07902"></a><span class="lineno"> 7902</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a94573b23a7c5d9c129da54deebf38842">rb_secure</a>(4);</div>
<div class="line"><a name="l07903"></a><span class="lineno"> 7903</span> </div>
<div class="line"><a name="l07904"></a><span class="lineno"> 7904</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#abbe469560280c936662242c94a43d994">tcl_stubs_check</a>();</div>
<div class="line"><a name="l07905"></a><span class="lineno"> 7905</span> </div>
<div class="line"><a name="l07906"></a><span class="lineno"> 7906</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l07907"></a><span class="lineno"> 7907</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l07908"></a><span class="lineno"> 7908</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"interpreter is deleted"</span>);</div>
<div class="line"><a name="l07909"></a><span class="lineno"> 7909</span>  }</div>
<div class="line"><a name="l07910"></a><span class="lineno"> 7910</span> </div>
<div class="line"><a name="l07911"></a><span class="lineno"> 7911</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a46bfb9a7c64428cdf208d45e06352fce">tk_funcall</a>(lib_restart_core, 0, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>*)NULL, <span class="keyword">self</span>);</div>
<div class="line"><a name="l07912"></a><span class="lineno"> 7912</span> }</div>
<div class="line"><a name="l07913"></a><span class="lineno"> 7913</span> </div>
<div class="line"><a name="l07914"></a><span class="lineno"> 7914</span> </div>
<div class="line"><a name="l07915"></a><span class="lineno"> 7915</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l07916"></a><span class="lineno"> 7916</span> ip_restart(<span class="keyword">self</span>)</div>
<div class="line"><a name="l07917"></a><span class="lineno"> 7917</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l07918"></a><span class="lineno"> 7918</span> {</div>
<div class="line"><a name="l07919"></a><span class="lineno"> 7919</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l07920"></a><span class="lineno"> 7920</span> </div>
<div class="line"><a name="l07921"></a><span class="lineno"> 7921</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a94573b23a7c5d9c129da54deebf38842">rb_secure</a>(4);</div>
<div class="line"><a name="l07922"></a><span class="lineno"> 7922</span> </div>
<div class="line"><a name="l07923"></a><span class="lineno"> 7923</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#abbe469560280c936662242c94a43d994">tcl_stubs_check</a>();</div>
<div class="line"><a name="l07924"></a><span class="lineno"> 7924</span> </div>
<div class="line"><a name="l07925"></a><span class="lineno"> 7925</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l07926"></a><span class="lineno"> 7926</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l07927"></a><span class="lineno"> 7927</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"interpreter is deleted"</span>);</div>
<div class="line"><a name="l07928"></a><span class="lineno"> 7928</span>  }</div>
<div class="line"><a name="l07929"></a><span class="lineno"> 7929</span> </div>
<div class="line"><a name="l07930"></a><span class="lineno"> 7930</span>  <span class="keywordflow">if</span> (Tcl_GetMaster(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) != (Tcl_Interp*)NULL) {</div>
<div class="line"><a name="l07931"></a><span class="lineno"> 7931</span>  <span class="comment">/* slave IP */</span></div>
<div class="line"><a name="l07932"></a><span class="lineno"> 7932</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l07933"></a><span class="lineno"> 7933</span>  }</div>
<div class="line"><a name="l07934"></a><span class="lineno"> 7934</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac5e978e9d0e7126f9ffa3661ac40ede6">lib_restart</a>(<span class="keyword">self</span>);</div>
<div class="line"><a name="l07935"></a><span class="lineno"> 7935</span> }</div>
<div class="line"><a name="l07936"></a><span class="lineno"> 7936</span> </div>
<div class="line"><a name="l07937"></a><span class="lineno"> 7937</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l07938"></a><span class="lineno"> 7938</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5038107e41a7c2252fed25877f53a5e9">lib_toUTF8_core</a>(ip_obj, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad49d9d73467b0b43682b0847bfcf5570">src</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad15b40449e422fb6bac1582d12b43992">encodename</a>)</div>
<div class="line"><a name="l07939"></a><span class="lineno"> 7939</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> ip_obj;</div>
<div class="line"><a name="l07940"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad49d9d73467b0b43682b0847bfcf5570"> 7940</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad49d9d73467b0b43682b0847bfcf5570">src</a>;</div>
<div class="line"><a name="l07941"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad15b40449e422fb6bac1582d12b43992"> 7941</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad15b40449e422fb6bac1582d12b43992">encodename</a>;</div>
<div class="line"><a name="l07942"></a><span class="lineno"> 7942</span> {</div>
<div class="line"><a name="l07943"></a><span class="lineno"> 7943</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> str = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad49d9d73467b0b43682b0847bfcf5570">src</a>;</div>
<div class="line"><a name="l07944"></a><span class="lineno"> 7944</span> </div>
<div class="line"><a name="l07945"></a><span class="lineno"> 7945</span> <span class="preprocessor">#ifdef TCL_UTF_MAX</span></div>
<div class="line"><a name="l07946"></a><span class="lineno"> 7946</span> <span class="preprocessor"></span> Tcl_Interp *<a class="code" href="../../d5/d9d/tcltklib_8c.html#abb159f1f4254ecf6df54f13d2b3468c6">interp</a>;</div>
<div class="line"><a name="l07947"></a><span class="lineno"> 7947</span>  Tcl_Encoding encoding;</div>
<div class="line"><a name="l07948"></a><span class="lineno"> 7948</span>  Tcl_DString <a class="code" href="../../d5/d9d/tcltklib_8c.html#a55366e470407b897ecc58f1d5bdfc757">dstr</a>;</div>
<div class="line"><a name="l07949"></a><span class="lineno"> 7949</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8a8bb80e7488b96878ccd589dc1829f4">taint_flag</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a621bc62b1fd82640c1078daf90e1c061">OBJ_TAINTED</a>(str);</div>
<div class="line"><a name="l07950"></a><span class="lineno"> 7950</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>;</div>
<div class="line"><a name="l07951"></a><span class="lineno"> 7951</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a0192e7721a534129dd2389299c50d5ef">buf</a>;</div>
<div class="line"><a name="l07952"></a><span class="lineno"> 7952</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l07953"></a><span class="lineno"> 7953</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07954"></a><span class="lineno"> 7954</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l07955"></a><span class="lineno"> 7955</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#abbe469560280c936662242c94a43d994">tcl_stubs_check</a>();</div>
<div class="line"><a name="l07956"></a><span class="lineno"> 7956</span> </div>
<div class="line"><a name="l07957"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#acf667ac5660bffdda1fe0f32df43f812"> 7957</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(src)) {</div>
<div class="line"><a name="l07958"></a><span class="lineno"> 7958</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l07959"></a><span class="lineno"> 7959</span>  }</div>
<div class="line"><a name="l07960"></a><span class="lineno"> 7960</span> </div>
<div class="line"><a name="l07961"></a><span class="lineno"> 7961</span> <span class="preprocessor">#ifdef TCL_UTF_MAX</span></div>
<div class="line"><a name="l07962"></a><span class="lineno"> 7962</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(ip_obj)) {</div>
<div class="line"><a name="l07963"></a><span class="lineno"> 7963</span>  interp = (Tcl_Interp *)NULL;</div>
<div class="line"><a name="l07964"></a><span class="lineno"> 7964</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07965"></a><span class="lineno"> 7965</span>  ptr = get_ip(ip_obj);</div>
<div class="line"><a name="l07966"></a><span class="lineno"> 7966</span> </div>
<div class="line"><a name="l07967"></a><span class="lineno"> 7967</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l07968"></a><span class="lineno"> 7968</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l07969"></a><span class="lineno"> 7969</span>  interp = (Tcl_Interp *)NULL;</div>
<div class="line"><a name="l07970"></a><span class="lineno"> 7970</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07971"></a><span class="lineno"> 7971</span>  interp = ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>;</div>
<div class="line"><a name="l07972"></a><span class="lineno"> 7972</span>  }</div>
<div class="line"><a name="l07973"></a><span class="lineno"> 7973</span>  }</div>
<div class="line"><a name="l07974"></a><span class="lineno"> 7974</span> </div>
<div class="line"><a name="l07975"></a><span class="lineno"> 7975</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l07976"></a><span class="lineno"> 7976</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l07977"></a><span class="lineno"> 7977</span> </div>
<div class="line"><a name="l07978"></a><span class="lineno"> 7978</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(encodename)) {</div>
<div class="line"><a name="l07979"></a><span class="lineno"> 7979</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a>(str) == <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a22a8c2a4bbaae9b68f65c9bb92fd4e39">T_STRING</a>) {</div>
<div class="line"><a name="l07980"></a><span class="lineno"> 7980</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3390998b1bd6df467b1f77ac2774f3a3">enc</a>;</div>
<div class="line"><a name="l07981"></a><span class="lineno"> 7981</span> </div>
<div class="line"><a name="l07982"></a><span class="lineno"> 7982</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l07983"></a><span class="lineno"> 7983</span> <span class="preprocessor"></span> enc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(<a class="code" href="../../d5/db5/encoding_8c.html#aca4947a16b0f9c7ae2db67a72e52b6ca">rb_obj_encoding</a>(str), ID_to_s, 0, 0);</div>
<div class="line"><a name="l07984"></a><span class="lineno"> 7984</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l07985"></a><span class="lineno"> 7985</span> <span class="preprocessor"></span> enc = <a class="code" href="../../db/d2e/intern_8h.html#ab8a448eec4dc767e47f5f9bd35974734">rb_attr_get</a>(str, ID_at_enc);</div>
<div class="line"><a name="l07986"></a><span class="lineno"> 7986</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l07987"></a><span class="lineno"> 7987</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(enc)) {</div>
<div class="line"><a name="l07988"></a><span class="lineno"> 7988</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(ip_obj)) {</div>
<div class="line"><a name="l07989"></a><span class="lineno"> 7989</span>  encoding = (Tcl_Encoding)NULL;</div>
<div class="line"><a name="l07990"></a><span class="lineno"> 7990</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07991"></a><span class="lineno"> 7991</span>  enc = <a class="code" href="../../db/d2e/intern_8h.html#ab8a448eec4dc767e47f5f9bd35974734">rb_attr_get</a>(ip_obj, ID_at_enc);</div>
<div class="line"><a name="l07992"></a><span class="lineno"> 7992</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(enc)) {</div>
<div class="line"><a name="l07993"></a><span class="lineno"> 7993</span>  encoding = (Tcl_Encoding)NULL;</div>
<div class="line"><a name="l07994"></a><span class="lineno"> 7994</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l07995"></a><span class="lineno"> 7995</span>  <span class="comment">/* StringValue(enc); */</span></div>
<div class="line"><a name="l07996"></a><span class="lineno"> 7996</span>  enc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(enc, ID_to_s, 0, 0);</div>
<div class="line"><a name="l07997"></a><span class="lineno"> 7997</span>  <span class="comment">/* encoding = Tcl_GetEncoding(interp, RSTRING_PTR(enc)); */</span></div>
<div class="line"><a name="l07998"></a><span class="lineno"> 7998</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(enc)) {</div>
<div class="line"><a name="l07999"></a><span class="lineno"> 7999</span>  encoding = (Tcl_Encoding)NULL;</div>
<div class="line"><a name="l08000"></a><span class="lineno"> 8000</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08001"></a><span class="lineno"> 8001</span>  encoding = Tcl_GetEncoding((Tcl_Interp*)NULL,</div>
<div class="line"><a name="l08002"></a><span class="lineno"> 8002</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(enc));</div>
<div class="line"><a name="l08003"></a><span class="lineno"> 8003</span>  <span class="keywordflow">if</span> (encoding == (Tcl_Encoding)NULL) {</div>
<div class="line"><a name="l08004"></a><span class="lineno"> 8004</span>  <a class="code" href="../../db/dcc/error_8c.html#afd461c64916576849b159b21a26123da">rb_warning</a>(<span class="stringliteral">"Tk-interp has unknown encoding information (@encoding:'%s')"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(enc));</div>
<div class="line"><a name="l08005"></a><span class="lineno"> 8005</span>  }</div>
<div class="line"><a name="l08006"></a><span class="lineno"> 8006</span>  }</div>
<div class="line"><a name="l08007"></a><span class="lineno"> 8007</span>  }</div>
<div class="line"><a name="l08008"></a><span class="lineno"> 8008</span>  }</div>
<div class="line"><a name="l08009"></a><span class="lineno"> 8009</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08010"></a><span class="lineno"> 8010</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(enc);</div>
<div class="line"><a name="l08011"></a><span class="lineno"> 8011</span>  <span class="keywordflow">if</span> (strcmp(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(enc), <span class="stringliteral">"binary"</span>) == 0) {</div>
<div class="line"><a name="l08012"></a><span class="lineno"> 8012</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l08013"></a><span class="lineno"> 8013</span> <span class="preprocessor"></span> <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, ENCODING_INDEX_BINARY);</div>
<div class="line"><a name="l08014"></a><span class="lineno"> 8014</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08015"></a><span class="lineno"> 8015</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a>(str, ID_at_enc, ENCODING_NAME_BINARY);</div>
<div class="line"><a name="l08016"></a><span class="lineno"> 8016</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l08017"></a><span class="lineno"> 8017</span>  <span class="keywordflow">return</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>;</div>
<div class="line"><a name="l08018"></a><span class="lineno"> 8018</span>  }</div>
<div class="line"><a name="l08019"></a><span class="lineno"> 8019</span>  <span class="comment">/* encoding = Tcl_GetEncoding(interp, RSTRING_PTR(enc)); */</span></div>
<div class="line"><a name="l08020"></a><span class="lineno"> 8020</span>  encoding = Tcl_GetEncoding((Tcl_Interp*)NULL,</div>
<div class="line"><a name="l08021"></a><span class="lineno"> 8021</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(enc));</div>
<div class="line"><a name="l08022"></a><span class="lineno"> 8022</span>  <span class="keywordflow">if</span> (encoding == (Tcl_Encoding)NULL) {</div>
<div class="line"><a name="l08023"></a><span class="lineno"> 8023</span>  <a class="code" href="../../db/dcc/error_8c.html#afd461c64916576849b159b21a26123da">rb_warning</a>(<span class="stringliteral">"string has unknown encoding information (@encoding:'%s')"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(enc));</div>
<div class="line"><a name="l08024"></a><span class="lineno"> 8024</span>  }</div>
<div class="line"><a name="l08025"></a><span class="lineno"> 8025</span>  }</div>
<div class="line"><a name="l08026"></a><span class="lineno"> 8026</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08027"></a><span class="lineno"> 8027</span>  encoding = (Tcl_Encoding)NULL;</div>
<div class="line"><a name="l08028"></a><span class="lineno"> 8028</span>  }</div>
<div class="line"><a name="l08029"></a><span class="lineno"> 8029</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08030"></a><span class="lineno"> 8030</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(encodename);</div>
<div class="line"><a name="l08031"></a><span class="lineno"> 8031</span>  <span class="keywordflow">if</span> (strcmp(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(encodename), <span class="stringliteral">"binary"</span>) == 0) {</div>
<div class="line"><a name="l08032"></a><span class="lineno"> 8032</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l08033"></a><span class="lineno"> 8033</span> <span class="preprocessor"></span> <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, ENCODING_INDEX_BINARY);</div>
<div class="line"><a name="l08034"></a><span class="lineno"> 8034</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08035"></a><span class="lineno"> 8035</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a>(str, ID_at_enc, ENCODING_NAME_BINARY);</div>
<div class="line"><a name="l08036"></a><span class="lineno"> 8036</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l08037"></a><span class="lineno"> 8037</span>  <span class="keywordflow">return</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>;</div>
<div class="line"><a name="l08038"></a><span class="lineno"> 8038</span>  }</div>
<div class="line"><a name="l08039"></a><span class="lineno"> 8039</span>  <span class="comment">/* encoding = Tcl_GetEncoding(interp, RSTRING_PTR(encodename)); */</span></div>
<div class="line"><a name="l08040"></a><span class="lineno"> 8040</span>  encoding = Tcl_GetEncoding((Tcl_Interp*)NULL, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(encodename));</div>
<div class="line"><a name="l08041"></a><span class="lineno"> 8041</span>  <span class="keywordflow">if</span> (encoding == (Tcl_Encoding)NULL) {</div>
<div class="line"><a name="l08042"></a><span class="lineno"> 8042</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l08043"></a><span class="lineno"> 8043</span> <span class="comment"> rb_warning("unknown encoding name '%s'",</span></div>
<div class="line"><a name="l08044"></a><span class="lineno"> 8044</span> <span class="comment"> RSTRING_PTR(encodename));</span></div>
<div class="line"><a name="l08045"></a><span class="lineno"> 8045</span> <span class="comment"> */</span></div>
<div class="line"><a name="l08046"></a><span class="lineno"> 8046</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"unknown encoding name '%s'"</span>,</div>
<div class="line"><a name="l08047"></a><span class="lineno"> 8047</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(encodename));</div>
<div class="line"><a name="l08048"></a><span class="lineno"> 8048</span>  }</div>
<div class="line"><a name="l08049"></a><span class="lineno"> 8049</span>  }</div>
<div class="line"><a name="l08050"></a><span class="lineno"> 8050</span> </div>
<div class="line"><a name="l08051"></a><span class="lineno"> 8051</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(str);</div>
<div class="line"><a name="l08052"></a><span class="lineno"> 8052</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str)) {</div>
<div class="line"><a name="l08053"></a><span class="lineno"> 8053</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l08054"></a><span class="lineno"> 8054</span>  <span class="keywordflow">return</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>;</div>
<div class="line"><a name="l08055"></a><span class="lineno"> 8055</span>  }</div>
<div class="line"><a name="l08056"></a><span class="lineno"> 8056</span>  buf = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a79041aa2bc7439c11906a86f82a52eb6">ALLOC_N</a>(<span class="keywordtype">char</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str)+1);</div>
<div class="line"><a name="l08057"></a><span class="lineno"> 8057</span>  <span class="comment">/* buf = ckalloc(sizeof(char) * (RSTRING_LEN(str)+1)); */</span></div>
<div class="line"><a name="l08058"></a><span class="lineno"> 8058</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7aa3ca79548709bc580aa259ad1fd2d2">memcpy</a>(buf, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(str), <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str));</div>
<div class="line"><a name="l08059"></a><span class="lineno"> 8059</span>  buf[<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str)] = 0;</div>
<div class="line"><a name="l08060"></a><span class="lineno"> 8060</span> </div>
<div class="line"><a name="l08061"></a><span class="lineno"> 8061</span>  Tcl_DStringInit(&dstr);</div>
<div class="line"><a name="l08062"></a><span class="lineno"> 8062</span>  Tcl_DStringFree(&dstr);</div>
<div class="line"><a name="l08063"></a><span class="lineno"> 8063</span>  <span class="comment">/* Tcl_ExternalToUtfDString(encoding,buf,strlen(buf),&dstr); */</span></div>
<div class="line"><a name="l08064"></a><span class="lineno"> 8064</span>  Tcl_ExternalToUtfDString(encoding, buf, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str), &dstr);</div>
<div class="line"><a name="l08065"></a><span class="lineno"> 8065</span> </div>
<div class="line"><a name="l08066"></a><span class="lineno"> 8066</span>  <span class="comment">/* str = rb_tainted_str_new2(Tcl_DStringValue(&dstr)); */</span></div>
<div class="line"><a name="l08067"></a><span class="lineno"> 8067</span>  <span class="comment">/* str = rb_str_new2(Tcl_DStringValue(&dstr)); */</span></div>
<div class="line"><a name="l08068"></a><span class="lineno"> 8068</span>  str = <a class="code" href="../../db/d2e/intern_8h.html#a48b2b873adb8b6a04254bd631c4b03c5">rb_str_new</a>(Tcl_DStringValue(&dstr), Tcl_DStringLength(&dstr));</div>
<div class="line"><a name="l08069"></a><span class="lineno"> 8069</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l08070"></a><span class="lineno"> 8070</span> <span class="preprocessor"></span> <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, ENCODING_INDEX_UTF8);</div>
<div class="line"><a name="l08071"></a><span class="lineno"> 8071</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08072"></a><span class="lineno"> 8072</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (taint_flag) <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832">RbTk_OBJ_UNTRUST</a>(str);</div>
<div class="line"><a name="l08073"></a><span class="lineno"> 8073</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a>(str, ID_at_enc, ENCODING_NAME_UTF8);</div>
<div class="line"><a name="l08074"></a><span class="lineno"> 8074</span> </div>
<div class="line"><a name="l08075"></a><span class="lineno"> 8075</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l08076"></a><span class="lineno"> 8076</span> <span class="comment"> if (encoding != (Tcl_Encoding)NULL) {</span></div>
<div class="line"><a name="l08077"></a><span class="lineno"> 8077</span> <span class="comment"> Tcl_FreeEncoding(encoding);</span></div>
<div class="line"><a name="l08078"></a><span class="lineno"> 8078</span> <span class="comment"> }</span></div>
<div class="line"><a name="l08079"></a><span class="lineno"> 8079</span> <span class="comment"> */</span></div>
<div class="line"><a name="l08080"></a><span class="lineno"> 8080</span>  Tcl_DStringFree(&dstr);</div>
<div class="line"><a name="l08081"></a><span class="lineno"> 8081</span> </div>
<div class="line"><a name="l08082"></a><span class="lineno"> 8082</span>  <a class="code" href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a>(buf);</div>
<div class="line"><a name="l08083"></a><span class="lineno"> 8083</span>  <span class="comment">/* ckfree(buf); */</span></div>
<div class="line"><a name="l08084"></a><span class="lineno"> 8084</span> </div>
<div class="line"><a name="l08085"></a><span class="lineno"> 8085</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l08086"></a><span class="lineno"> 8086</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08087"></a><span class="lineno"> 8087</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08088"></a><span class="lineno"> 8088</span>  <span class="keywordflow">return</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>;</div>
<div class="line"><a name="l08089"></a><span class="lineno"> 8089</span> }</div>
<div class="line"><a name="l08090"></a><span class="lineno"> 8090</span> </div>
<div class="line"><a name="l08091"></a><span class="lineno"> 8091</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l08092"></a><span class="lineno"> 8092</span> lib_toUTF8(argc, argv, <span class="keyword">self</span>)</div>
<div class="line"><a name="l08093"></a><span class="lineno"> 8093</span>  int argc;</div>
<div class="line"><a name="l08094"></a><span class="lineno"> 8094</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l08095"></a><span class="lineno"> 8095</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l08096"></a><span class="lineno"> 8096</span> {</div>
<div class="line"><a name="l08097"></a><span class="lineno"> 8097</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad15b40449e422fb6bac1582d12b43992">encodename</a>;</div>
<div class="line"><a name="l08098"></a><span class="lineno"> 8098</span> </div>
<div class="line"><a name="l08099"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5993f559b0125952841f7b3e5f42323b"> 8099</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(argc, argv, <span class="stringliteral">"11"</span>, &str, &encodename) == 1) {</div>
<div class="line"><a name="l08100"></a><span class="lineno"> 8100</span>  encodename = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l08101"></a><span class="lineno"> 8101</span>  }</div>
<div class="line"><a name="l08102"></a><span class="lineno"> 8102</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5038107e41a7c2252fed25877f53a5e9">lib_toUTF8_core</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>, str, encodename);</div>
<div class="line"><a name="l08103"></a><span class="lineno"> 8103</span> }</div>
<div class="line"><a name="l08104"></a><span class="lineno"> 8104</span> </div>
<div class="line"><a name="l08105"></a><span class="lineno"> 8105</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l08106"></a><span class="lineno"> 8106</span> ip_toUTF8(argc, argv, <span class="keyword">self</span>)</div>
<div class="line"><a name="l08107"></a><span class="lineno"> 8107</span>  int argc;</div>
<div class="line"><a name="l08108"></a><span class="lineno"> 8108</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l08109"></a><span class="lineno"> 8109</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l08110"></a><span class="lineno"> 8110</span> {</div>
<div class="line"><a name="l08111"></a><span class="lineno"> 8111</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad15b40449e422fb6bac1582d12b43992">encodename</a>;</div>
<div class="line"><a name="l08112"></a><span class="lineno"> 8112</span> </div>
<div class="line"><a name="l08113"></a><span class="lineno"> 8113</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(argc, argv, <span class="stringliteral">"11"</span>, &str, &encodename) == 1) {</div>
<div class="line"><a name="l08114"></a><span class="lineno"> 8114</span>  encodename = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l08115"></a><span class="lineno"> 8115</span>  }</div>
<div class="line"><a name="l08116"></a><span class="lineno"> 8116</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5038107e41a7c2252fed25877f53a5e9">lib_toUTF8_core</a>(<span class="keyword">self</span>, str, encodename);</div>
<div class="line"><a name="l08117"></a><span class="lineno"> 8117</span> }</div>
<div class="line"><a name="l08118"></a><span class="lineno"> 8118</span> </div>
<div class="line"><a name="l08119"></a><span class="lineno"> 8119</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l08120"></a><span class="lineno"> 8120</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abf6fb4fe73fd54fbdc78e28b6e1ce7b7">lib_fromUTF8_core</a>(ip_obj, src, encodename)</div>
<div class="line"><a name="l08121"></a><span class="lineno"> 8121</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> ip_obj;</div>
<div class="line"><a name="l08122"></a><span class="lineno"> 8122</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> src;</div>
<div class="line"><a name="l08123"></a><span class="lineno"> 8123</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> encodename;</div>
<div class="line"><a name="l08124"></a><span class="lineno"> 8124</span> {</div>
<div class="line"><a name="l08125"></a><span class="lineno"> 8125</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> str = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad49d9d73467b0b43682b0847bfcf5570">src</a>;</div>
<div class="line"><a name="l08126"></a><span class="lineno"> 8126</span> </div>
<div class="line"><a name="l08127"></a><span class="lineno"> 8127</span> <span class="preprocessor">#ifdef TCL_UTF_MAX</span></div>
<div class="line"><a name="l08128"></a><span class="lineno"> 8128</span> <span class="preprocessor"></span> Tcl_Interp *<a class="code" href="../../d5/d9d/tcltklib_8c.html#abb159f1f4254ecf6df54f13d2b3468c6">interp</a>;</div>
<div class="line"><a name="l08129"></a><span class="lineno"> 8129</span>  Tcl_Encoding encoding;</div>
<div class="line"><a name="l08130"></a><span class="lineno"> 8130</span>  Tcl_DString <a class="code" href="../../d5/d9d/tcltklib_8c.html#a55366e470407b897ecc58f1d5bdfc757">dstr</a>;</div>
<div class="line"><a name="l08131"></a><span class="lineno"> 8131</span>  <span class="keywordtype">int</span> taint_flag = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a621bc62b1fd82640c1078daf90e1c061">OBJ_TAINTED</a>(str);</div>
<div class="line"><a name="l08132"></a><span class="lineno"> 8132</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a0192e7721a534129dd2389299c50d5ef">buf</a>;</div>
<div class="line"><a name="l08133"></a><span class="lineno"> 8133</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l08134"></a><span class="lineno"> 8134</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08135"></a><span class="lineno"> 8135</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08136"></a><span class="lineno"> 8136</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#abbe469560280c936662242c94a43d994">tcl_stubs_check</a>();</div>
<div class="line"><a name="l08137"></a><span class="lineno"> 8137</span> </div>
<div class="line"><a name="l08138"></a><span class="lineno"> 8138</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(src)) {</div>
<div class="line"><a name="l08139"></a><span class="lineno"> 8139</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l08140"></a><span class="lineno"> 8140</span>  }</div>
<div class="line"><a name="l08141"></a><span class="lineno"> 8141</span> </div>
<div class="line"><a name="l08142"></a><span class="lineno"> 8142</span> <span class="preprocessor">#ifdef TCL_UTF_MAX</span></div>
<div class="line"><a name="l08143"></a><span class="lineno"> 8143</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(ip_obj)) {</div>
<div class="line"><a name="l08144"></a><span class="lineno"> 8144</span>  interp = (Tcl_Interp *)NULL;</div>
<div class="line"><a name="l08145"></a><span class="lineno"> 8145</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (get_ip(ip_obj) == (<span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *)NULL) {</div>
<div class="line"><a name="l08146"></a><span class="lineno"> 8146</span>  interp = (Tcl_Interp *)NULL;</div>
<div class="line"><a name="l08147"></a><span class="lineno"> 8147</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08148"></a><span class="lineno"> 8148</span>  interp = get_ip(ip_obj)->ip;</div>
<div class="line"><a name="l08149"></a><span class="lineno"> 8149</span>  }</div>
<div class="line"><a name="l08150"></a><span class="lineno"> 8150</span> </div>
<div class="line"><a name="l08151"></a><span class="lineno"> 8151</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l08152"></a><span class="lineno"> 8152</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l08153"></a><span class="lineno"> 8153</span> </div>
<div class="line"><a name="l08154"></a><span class="lineno"> 8154</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(encodename)) {</div>
<div class="line"><a name="l08155"></a><span class="lineno"> 8155</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3390998b1bd6df467b1f77ac2774f3a3">enc</a>;</div>
<div class="line"><a name="l08156"></a><span class="lineno"> 8156</span> </div>
<div class="line"><a name="l08157"></a><span class="lineno"> 8157</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a>(str) == <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a22a8c2a4bbaae9b68f65c9bb92fd4e39">T_STRING</a>) {</div>
<div class="line"><a name="l08158"></a><span class="lineno"> 8158</span>  enc = <a class="code" href="../../db/d2e/intern_8h.html#ab8a448eec4dc767e47f5f9bd35974734">rb_attr_get</a>(str, ID_at_enc);</div>
<div class="line"><a name="l08159"></a><span class="lineno"> 8159</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(enc)) {</div>
<div class="line"><a name="l08160"></a><span class="lineno"> 8160</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(enc);</div>
<div class="line"><a name="l08161"></a><span class="lineno"> 8161</span>  <span class="keywordflow">if</span> (strcmp(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(enc), <span class="stringliteral">"binary"</span>) == 0) {</div>
<div class="line"><a name="l08162"></a><span class="lineno"> 8162</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l08163"></a><span class="lineno"> 8163</span> <span class="preprocessor"></span> <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, ENCODING_INDEX_BINARY);</div>
<div class="line"><a name="l08164"></a><span class="lineno"> 8164</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08165"></a><span class="lineno"> 8165</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a>(str, ID_at_enc, ENCODING_NAME_BINARY);</div>
<div class="line"><a name="l08166"></a><span class="lineno"> 8166</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l08167"></a><span class="lineno"> 8167</span>  <span class="keywordflow">return</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>;</div>
<div class="line"><a name="l08168"></a><span class="lineno"> 8168</span>  }</div>
<div class="line"><a name="l08169"></a><span class="lineno"> 8169</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l08170"></a><span class="lineno"> 8170</span> <span class="preprocessor"></span> } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d5/db5/encoding_8c.html#a0ee8da2e6cc01567488e318854a3d9c0">rb_enc_get_index</a>(str) == ENCODING_INDEX_BINARY) {</div>
<div class="line"><a name="l08171"></a><span class="lineno"> 8171</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, ENCODING_INDEX_BINARY);</div>
<div class="line"><a name="l08172"></a><span class="lineno"> 8172</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a>(str, ID_at_enc, ENCODING_NAME_BINARY);</div>
<div class="line"><a name="l08173"></a><span class="lineno"> 8173</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l08174"></a><span class="lineno"> 8174</span>  <span class="keywordflow">return</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>;</div>
<div class="line"><a name="l08175"></a><span class="lineno"> 8175</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08176"></a><span class="lineno"> 8176</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l08177"></a><span class="lineno"> 8177</span>  }</div>
<div class="line"><a name="l08178"></a><span class="lineno"> 8178</span> </div>
<div class="line"><a name="l08179"></a><span class="lineno"> 8179</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(ip_obj)) {</div>
<div class="line"><a name="l08180"></a><span class="lineno"> 8180</span>  encoding = (Tcl_Encoding)NULL;</div>
<div class="line"><a name="l08181"></a><span class="lineno"> 8181</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08182"></a><span class="lineno"> 8182</span>  enc = <a class="code" href="../../db/d2e/intern_8h.html#ab8a448eec4dc767e47f5f9bd35974734">rb_attr_get</a>(ip_obj, ID_at_enc);</div>
<div class="line"><a name="l08183"></a><span class="lineno"> 8183</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(enc)) {</div>
<div class="line"><a name="l08184"></a><span class="lineno"> 8184</span>  encoding = (Tcl_Encoding)NULL;</div>
<div class="line"><a name="l08185"></a><span class="lineno"> 8185</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08186"></a><span class="lineno"> 8186</span>  <span class="comment">/* StringValue(enc); */</span></div>
<div class="line"><a name="l08187"></a><span class="lineno"> 8187</span>  enc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(enc, ID_to_s, 0, 0);</div>
<div class="line"><a name="l08188"></a><span class="lineno"> 8188</span>  <span class="comment">/* encoding = Tcl_GetEncoding(interp, RSTRING_PTR(enc)); */</span></div>
<div class="line"><a name="l08189"></a><span class="lineno"> 8189</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(enc)) {</div>
<div class="line"><a name="l08190"></a><span class="lineno"> 8190</span>  encoding = (Tcl_Encoding)NULL;</div>
<div class="line"><a name="l08191"></a><span class="lineno"> 8191</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08192"></a><span class="lineno"> 8192</span>  encoding = Tcl_GetEncoding((Tcl_Interp*)NULL,</div>
<div class="line"><a name="l08193"></a><span class="lineno"> 8193</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(enc));</div>
<div class="line"><a name="l08194"></a><span class="lineno"> 8194</span>  <span class="keywordflow">if</span> (encoding == (Tcl_Encoding)NULL) {</div>
<div class="line"><a name="l08195"></a><span class="lineno"> 8195</span>  <a class="code" href="../../db/dcc/error_8c.html#afd461c64916576849b159b21a26123da">rb_warning</a>(<span class="stringliteral">"Tk-interp has unknown encoding information (@encoding:'%s')"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(enc));</div>
<div class="line"><a name="l08196"></a><span class="lineno"> 8196</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08197"></a><span class="lineno"> 8197</span>  encodename = <a class="code" href="../../db/d2e/intern_8h.html#a303b384bd946cba1101841237c5c27d0">rb_obj_dup</a>(enc);</div>
<div class="line"><a name="l08198"></a><span class="lineno"> 8198</span>  }</div>
<div class="line"><a name="l08199"></a><span class="lineno"> 8199</span>  }</div>
<div class="line"><a name="l08200"></a><span class="lineno"> 8200</span>  }</div>
<div class="line"><a name="l08201"></a><span class="lineno"> 8201</span>  }</div>
<div class="line"><a name="l08202"></a><span class="lineno"> 8202</span> </div>
<div class="line"><a name="l08203"></a><span class="lineno"> 8203</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08204"></a><span class="lineno"> 8204</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(encodename);</div>
<div class="line"><a name="l08205"></a><span class="lineno"> 8205</span> </div>
<div class="line"><a name="l08206"></a><span class="lineno"> 8206</span>  <span class="keywordflow">if</span> (strcmp(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(encodename), <span class="stringliteral">"binary"</span>) == 0) {</div>
<div class="line"><a name="l08207"></a><span class="lineno"> 8207</span>  Tcl_Obj *tclstr;</div>
<div class="line"><a name="l08208"></a><span class="lineno"> 8208</span>  <span class="keywordtype">char</span> *<a class="code" href="../../de/d46/os2_8c.html#a58defbf6fe556592007171f7a347f9d6">s</a>;</div>
<div class="line"><a name="l08209"></a><span class="lineno"> 8209</span>  <span class="keywordtype">int</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>;</div>
<div class="line"><a name="l08210"></a><span class="lineno"> 8210</span> </div>
<div class="line"><a name="l08211"></a><span class="lineno"> 8211</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(str);</div>
<div class="line"><a name="l08212"></a><span class="lineno"> 8212</span>  tclstr = Tcl_NewStringObj(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(str), <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str));</div>
<div class="line"><a name="l08213"></a><span class="lineno"> 8213</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(tclstr);</div>
<div class="line"><a name="l08214"></a><span class="lineno"> 8214</span>  s = (<span class="keywordtype">char</span>*)Tcl_GetByteArrayFromObj(tclstr, &len);</div>
<div class="line"><a name="l08215"></a><span class="lineno"> 8215</span>  str = <a class="code" href="../../db/d2e/intern_8h.html#a857320dd57dc897c57ee0345f6f04f06">rb_tainted_str_new</a>(s, len);</div>
<div class="line"><a name="l08216"></a><span class="lineno"> 8216</span>  s = (<span class="keywordtype">char</span>*)NULL;</div>
<div class="line"><a name="l08217"></a><span class="lineno"> 8217</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(tclstr);</div>
<div class="line"><a name="l08218"></a><span class="lineno"> 8218</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l08219"></a><span class="lineno"> 8219</span> <span class="preprocessor"></span> <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, ENCODING_INDEX_BINARY);</div>
<div class="line"><a name="l08220"></a><span class="lineno"> 8220</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08221"></a><span class="lineno"> 8221</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a>(str, ID_at_enc, ENCODING_NAME_BINARY);</div>
<div class="line"><a name="l08222"></a><span class="lineno"> 8222</span> </div>
<div class="line"><a name="l08223"></a><span class="lineno"> 8223</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l08224"></a><span class="lineno"> 8224</span>  <span class="keywordflow">return</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>;</div>
<div class="line"><a name="l08225"></a><span class="lineno"> 8225</span>  }</div>
<div class="line"><a name="l08226"></a><span class="lineno"> 8226</span> </div>
<div class="line"><a name="l08227"></a><span class="lineno"> 8227</span>  <span class="comment">/* encoding = Tcl_GetEncoding(interp, RSTRING_PTR(encodename)); */</span></div>
<div class="line"><a name="l08228"></a><span class="lineno"> 8228</span>  encoding = Tcl_GetEncoding((Tcl_Interp*)NULL, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(encodename));</div>
<div class="line"><a name="l08229"></a><span class="lineno"> 8229</span>  <span class="keywordflow">if</span> (encoding == (Tcl_Encoding)NULL) {</div>
<div class="line"><a name="l08230"></a><span class="lineno"> 8230</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l08231"></a><span class="lineno"> 8231</span> <span class="comment"> rb_warning("unknown encoding name '%s'",</span></div>
<div class="line"><a name="l08232"></a><span class="lineno"> 8232</span> <span class="comment"> RSTRING_PTR(encodename));</span></div>
<div class="line"><a name="l08233"></a><span class="lineno"> 8233</span> <span class="comment"> encodename = Qnil;</span></div>
<div class="line"><a name="l08234"></a><span class="lineno"> 8234</span> <span class="comment"> */</span></div>
<div class="line"><a name="l08235"></a><span class="lineno"> 8235</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"unknown encoding name '%s'"</span>,</div>
<div class="line"><a name="l08236"></a><span class="lineno"> 8236</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(encodename));</div>
<div class="line"><a name="l08237"></a><span class="lineno"> 8237</span>  }</div>
<div class="line"><a name="l08238"></a><span class="lineno"> 8238</span>  }</div>
<div class="line"><a name="l08239"></a><span class="lineno"> 8239</span> </div>
<div class="line"><a name="l08240"></a><span class="lineno"> 8240</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(str);</div>
<div class="line"><a name="l08241"></a><span class="lineno"> 8241</span> </div>
<div class="line"><a name="l08242"></a><span class="lineno"> 8242</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str) == 0) {</div>
<div class="line"><a name="l08243"></a><span class="lineno"> 8243</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l08244"></a><span class="lineno"> 8244</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l08245"></a><span class="lineno"> 8245</span>  }</div>
<div class="line"><a name="l08246"></a><span class="lineno"> 8246</span> </div>
<div class="line"><a name="l08247"></a><span class="lineno"> 8247</span>  buf = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a79041aa2bc7439c11906a86f82a52eb6">ALLOC_N</a>(<span class="keywordtype">char</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str)+1);</div>
<div class="line"><a name="l08248"></a><span class="lineno"> 8248</span>  <span class="comment">/* buf = ckalloc(sizeof(char) * (RSTRING_LEN(str)+1)); */</span></div>
<div class="line"><a name="l08249"></a><span class="lineno"> 8249</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7aa3ca79548709bc580aa259ad1fd2d2">memcpy</a>(buf, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(str), <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str));</div>
<div class="line"><a name="l08250"></a><span class="lineno"> 8250</span>  buf[<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str)] = 0;</div>
<div class="line"><a name="l08251"></a><span class="lineno"> 8251</span> </div>
<div class="line"><a name="l08252"></a><span class="lineno"> 8252</span>  Tcl_DStringInit(&dstr);</div>
<div class="line"><a name="l08253"></a><span class="lineno"> 8253</span>  Tcl_DStringFree(&dstr);</div>
<div class="line"><a name="l08254"></a><span class="lineno"> 8254</span>  <span class="comment">/* Tcl_UtfToExternalDString(encoding,buf,strlen(buf),&dstr); */</span></div>
<div class="line"><a name="l08255"></a><span class="lineno"> 8255</span>  Tcl_UtfToExternalDString(encoding,buf,<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str),&dstr);</div>
<div class="line"><a name="l08256"></a><span class="lineno"> 8256</span> </div>
<div class="line"><a name="l08257"></a><span class="lineno"> 8257</span>  <span class="comment">/* str = rb_tainted_str_new2(Tcl_DStringValue(&dstr)); */</span></div>
<div class="line"><a name="l08258"></a><span class="lineno"> 8258</span>  <span class="comment">/* str = rb_str_new2(Tcl_DStringValue(&dstr)); */</span></div>
<div class="line"><a name="l08259"></a><span class="lineno"> 8259</span>  str = <a class="code" href="../../db/d2e/intern_8h.html#a48b2b873adb8b6a04254bd631c4b03c5">rb_str_new</a>(Tcl_DStringValue(&dstr), Tcl_DStringLength(&dstr));</div>
<div class="line"><a name="l08260"></a><span class="lineno"> 8260</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l08261"></a><span class="lineno"> 8261</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (interp) {</div>
<div class="line"><a name="l08262"></a><span class="lineno"> 8262</span>  <span class="comment">/* can access encoding_table of TclTkIp */</span></div>
<div class="line"><a name="l08263"></a><span class="lineno"> 8263</span>  <span class="comment">/* -> try to use encoding_table */</span></div>
<div class="line"><a name="l08264"></a><span class="lineno"> 8264</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d9/dee/tkutil_8c.html#ab758f7e37948b530e3b9542b69437065">tbl</a> = ip_get_encoding_table(ip_obj);</div>
<div class="line"><a name="l08265"></a><span class="lineno"> 8265</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> encobj = encoding_table_get_obj(tbl, encodename);</div>
<div class="line"><a name="l08266"></a><span class="lineno"> 8266</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, <a class="code" href="../../d5/db5/encoding_8c.html#a13a97a6605eca1509135ff473bf346b6">rb_to_encoding_index</a>(encobj));</div>
<div class="line"><a name="l08267"></a><span class="lineno"> 8267</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08268"></a><span class="lineno"> 8268</span>  <span class="comment">/* cannot access encoding_table of TclTkIp */</span></div>
<div class="line"><a name="l08269"></a><span class="lineno"> 8269</span>  <span class="comment">/* -> try to find on Ruby Encoding */</span></div>
<div class="line"><a name="l08270"></a><span class="lineno"> 8270</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, <a class="code" href="../../d5/db5/encoding_8c.html#adeb5f5b97ea43528a55d717add8f64c5">rb_enc_find_index</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(encodename)));</div>
<div class="line"><a name="l08271"></a><span class="lineno"> 8271</span>  }</div>
<div class="line"><a name="l08272"></a><span class="lineno"> 8272</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08273"></a><span class="lineno"> 8273</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08274"></a><span class="lineno"> 8274</span>  <span class="keywordflow">if</span> (taint_flag) <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832">RbTk_OBJ_UNTRUST</a>(str);</div>
<div class="line"><a name="l08275"></a><span class="lineno"> 8275</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a>(str, ID_at_enc, encodename);</div>
<div class="line"><a name="l08276"></a><span class="lineno"> 8276</span> </div>
<div class="line"><a name="l08277"></a><span class="lineno"> 8277</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l08278"></a><span class="lineno"> 8278</span> <span class="comment"> if (encoding != (Tcl_Encoding)NULL) {</span></div>
<div class="line"><a name="l08279"></a><span class="lineno"> 8279</span> <span class="comment"> Tcl_FreeEncoding(encoding);</span></div>
<div class="line"><a name="l08280"></a><span class="lineno"> 8280</span> <span class="comment"> }</span></div>
<div class="line"><a name="l08281"></a><span class="lineno"> 8281</span> <span class="comment"> */</span></div>
<div class="line"><a name="l08282"></a><span class="lineno"> 8282</span>  Tcl_DStringFree(&dstr);</div>
<div class="line"><a name="l08283"></a><span class="lineno"> 8283</span> </div>
<div class="line"><a name="l08284"></a><span class="lineno"> 8284</span>  <a class="code" href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a>(buf);</div>
<div class="line"><a name="l08285"></a><span class="lineno"> 8285</span>  <span class="comment">/* ckfree(buf); */</span></div>
<div class="line"><a name="l08286"></a><span class="lineno"> 8286</span> </div>
<div class="line"><a name="l08287"></a><span class="lineno"> 8287</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l08288"></a><span class="lineno"> 8288</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08289"></a><span class="lineno"> 8289</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08290"></a><span class="lineno"> 8290</span>  <span class="keywordflow">return</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>;</div>
<div class="line"><a name="l08291"></a><span class="lineno"> 8291</span> }</div>
<div class="line"><a name="l08292"></a><span class="lineno"> 8292</span> </div>
<div class="line"><a name="l08293"></a><span class="lineno"> 8293</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l08294"></a><span class="lineno"> 8294</span> lib_fromUTF8(argc, argv, <span class="keyword">self</span>)</div>
<div class="line"><a name="l08295"></a><span class="lineno"> 8295</span>  int argc;</div>
<div class="line"><a name="l08296"></a><span class="lineno"> 8296</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l08297"></a><span class="lineno"> 8297</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l08298"></a><span class="lineno"> 8298</span> {</div>
<div class="line"><a name="l08299"></a><span class="lineno"> 8299</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad15b40449e422fb6bac1582d12b43992">encodename</a>;</div>
<div class="line"><a name="l08300"></a><span class="lineno"> 8300</span> </div>
<div class="line"><a name="l08301"></a><span class="lineno"> 8301</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(argc, argv, <span class="stringliteral">"11"</span>, &str, &encodename) == 1) {</div>
<div class="line"><a name="l08302"></a><span class="lineno"> 8302</span>  encodename = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l08303"></a><span class="lineno"> 8303</span>  }</div>
<div class="line"><a name="l08304"></a><span class="lineno"> 8304</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abf6fb4fe73fd54fbdc78e28b6e1ce7b7">lib_fromUTF8_core</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>, str, encodename);</div>
<div class="line"><a name="l08305"></a><span class="lineno"> 8305</span> }</div>
<div class="line"><a name="l08306"></a><span class="lineno"> 8306</span> </div>
<div class="line"><a name="l08307"></a><span class="lineno"> 8307</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l08308"></a><span class="lineno"> 8308</span> ip_fromUTF8(argc, argv, <span class="keyword">self</span>)</div>
<div class="line"><a name="l08309"></a><span class="lineno"> 8309</span>  int argc;</div>
<div class="line"><a name="l08310"></a><span class="lineno"> 8310</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l08311"></a><span class="lineno"> 8311</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l08312"></a><span class="lineno"> 8312</span> {</div>
<div class="line"><a name="l08313"></a><span class="lineno"> 8313</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad15b40449e422fb6bac1582d12b43992">encodename</a>;</div>
<div class="line"><a name="l08314"></a><span class="lineno"> 8314</span> </div>
<div class="line"><a name="l08315"></a><span class="lineno"> 8315</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(argc, argv, <span class="stringliteral">"11"</span>, &str, &encodename) == 1) {</div>
<div class="line"><a name="l08316"></a><span class="lineno"> 8316</span>  encodename = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l08317"></a><span class="lineno"> 8317</span>  }</div>
<div class="line"><a name="l08318"></a><span class="lineno"> 8318</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abf6fb4fe73fd54fbdc78e28b6e1ce7b7">lib_fromUTF8_core</a>(<span class="keyword">self</span>, str, encodename);</div>
<div class="line"><a name="l08319"></a><span class="lineno"> 8319</span> }</div>
<div class="line"><a name="l08320"></a><span class="lineno"> 8320</span> </div>
<div class="line"><a name="l08321"></a><span class="lineno"> 8321</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l08322"></a><span class="lineno"> 8322</span> lib_UTF_backslash_core(<span class="keyword">self</span>, str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d517b7c337e861a177ea81062ab4184">all_bs</a>)</div>
<div class="line"><a name="l08323"></a><span class="lineno"> 8323</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l08324"></a><span class="lineno"> 8324</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> str;</div>
<div class="line"><a name="l08325"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9d517b7c337e861a177ea81062ab4184"> 8325</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d517b7c337e861a177ea81062ab4184">all_bs</a>;</div>
<div class="line"><a name="l08326"></a><span class="lineno"> 8326</span> {</div>
<div class="line"><a name="l08327"></a><span class="lineno"> 8327</span> <span class="preprocessor">#ifdef TCL_UTF_MAX</span></div>
<div class="line"><a name="l08328"></a><span class="lineno"> 8328</span> <span class="preprocessor"></span> <span class="keywordtype">char</span> *src_buf, *dst_buf, *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>;</div>
<div class="line"><a name="l08329"></a><span class="lineno"> 8329</span>  <span class="keywordtype">int</span> read_len = 0, dst_len = 0;</div>
<div class="line"><a name="l08330"></a><span class="lineno"> 8330</span>  <span class="keywordtype">int</span> taint_flag = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a621bc62b1fd82640c1078daf90e1c061">OBJ_TAINTED</a>(str);</div>
<div class="line"><a name="l08331"></a><span class="lineno"> 8331</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l08332"></a><span class="lineno"> 8332</span> </div>
<div class="line"><a name="l08333"></a><span class="lineno"> 8333</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#abbe469560280c936662242c94a43d994">tcl_stubs_check</a>();</div>
<div class="line"><a name="l08334"></a><span class="lineno"> 8334</span> </div>
<div class="line"><a name="l08335"></a><span class="lineno"> 8335</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(str);</div>
<div class="line"><a name="l08336"></a><span class="lineno"> 8336</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str)) {</div>
<div class="line"><a name="l08337"></a><span class="lineno"> 8337</span>  <span class="keywordflow">return</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>;</div>
<div class="line"><a name="l08338"></a><span class="lineno"> 8338</span>  }</div>
<div class="line"><a name="l08339"></a><span class="lineno"> 8339</span> </div>
<div class="line"><a name="l08340"></a><span class="lineno"> 8340</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l08341"></a><span class="lineno"> 8341</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l08342"></a><span class="lineno"> 8342</span> </div>
<div class="line"><a name="l08343"></a><span class="lineno"> 8343</span>  <span class="comment">/* src_buf = ALLOC_N(char, RSTRING_LEN(str)+1); */</span></div>
<div class="line"><a name="l08344"></a><span class="lineno"> 8344</span>  src_buf = ckalloc(<span class="keyword">sizeof</span>(<span class="keywordtype">char</span>) * (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str)+1));</div>
<div class="line"><a name="l08345"></a><span class="lineno"> 8345</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08346"></a><span class="lineno"> 8346</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)src_buf); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08347"></a><span class="lineno"> 8347</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08348"></a><span class="lineno"> 8348</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7aa3ca79548709bc580aa259ad1fd2d2">memcpy</a>(src_buf, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(str), <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str));</div>
<div class="line"><a name="l08349"></a><span class="lineno"> 8349</span>  src_buf[<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str)] = 0;</div>
<div class="line"><a name="l08350"></a><span class="lineno"> 8350</span> </div>
<div class="line"><a name="l08351"></a><span class="lineno"> 8351</span>  <span class="comment">/* dst_buf = ALLOC_N(char, RSTRING_LEN(str)+1); */</span></div>
<div class="line"><a name="l08352"></a><span class="lineno"> 8352</span>  dst_buf = ckalloc(<span class="keyword">sizeof</span>(<span class="keywordtype">char</span>) * (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str)+1));</div>
<div class="line"><a name="l08353"></a><span class="lineno"> 8353</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08354"></a><span class="lineno"> 8354</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)dst_buf); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08355"></a><span class="lineno"> 8355</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08356"></a><span class="lineno"> 8356</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08357"></a><span class="lineno"> 8357</span>  ptr = src_buf;</div>
<div class="line"><a name="l08358"></a><span class="lineno"> 8358</span>  <span class="keywordflow">while</span>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(str) > ptr - src_buf) {</div>
<div class="line"><a name="l08359"></a><span class="lineno"> 8359</span>  <span class="keywordflow">if</span> (*ptr == <span class="charliteral">'\\'</span> && (all_bs || *(ptr + 1) == <span class="charliteral">'u'</span>)) {</div>
<div class="line"><a name="l08360"></a><span class="lineno"> 8360</span>  dst_len += Tcl_UtfBackslash(ptr, &read_len, (dst_buf + dst_len));</div>
<div class="line"><a name="l08361"></a><span class="lineno"> 8361</span>  ptr += read_len;</div>
<div class="line"><a name="l08362"></a><span class="lineno"> 8362</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08363"></a><span class="lineno"> 8363</span>  *(dst_buf + (dst_len++)) = *(ptr++);</div>
<div class="line"><a name="l08364"></a><span class="lineno"> 8364</span>  }</div>
<div class="line"><a name="l08365"></a><span class="lineno"> 8365</span>  }</div>
<div class="line"><a name="l08366"></a><span class="lineno"> 8366</span> </div>
<div class="line"><a name="l08367"></a><span class="lineno"> 8367</span>  str = <a class="code" href="../../db/d2e/intern_8h.html#a48b2b873adb8b6a04254bd631c4b03c5">rb_str_new</a>(dst_buf, dst_len);</div>
<div class="line"><a name="l08368"></a><span class="lineno"> 8368</span>  <span class="keywordflow">if</span> (taint_flag) <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832">RbTk_OBJ_UNTRUST</a>(str);</div>
<div class="line"><a name="l08369"></a><span class="lineno"> 8369</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l08370"></a><span class="lineno"> 8370</span> <span class="preprocessor"></span> <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, ENCODING_INDEX_UTF8);</div>
<div class="line"><a name="l08371"></a><span class="lineno"> 8371</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08372"></a><span class="lineno"> 8372</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a>(str, ID_at_enc, ENCODING_NAME_UTF8);</div>
<div class="line"><a name="l08373"></a><span class="lineno"> 8373</span> </div>
<div class="line"><a name="l08374"></a><span class="lineno"> 8374</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08375"></a><span class="lineno"> 8375</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)src_buf, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08376"></a><span class="lineno"> 8376</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08377"></a><span class="lineno"> 8377</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08378"></a><span class="lineno"> 8378</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)src_buf); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08379"></a><span class="lineno"> 8379</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08380"></a><span class="lineno"> 8380</span> <span class="preprocessor"></span> <span class="comment">/* free(src_buf); */</span></div>
<div class="line"><a name="l08381"></a><span class="lineno"> 8381</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>(src_buf);</div>
<div class="line"><a name="l08382"></a><span class="lineno"> 8382</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08383"></a><span class="lineno"> 8383</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08384"></a><span class="lineno"> 8384</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08385"></a><span class="lineno"> 8385</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)dst_buf, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08386"></a><span class="lineno"> 8386</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08387"></a><span class="lineno"> 8387</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08388"></a><span class="lineno"> 8388</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)dst_buf); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08389"></a><span class="lineno"> 8389</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08390"></a><span class="lineno"> 8390</span> <span class="preprocessor"></span> <span class="comment">/* free(dst_buf); */</span></div>
<div class="line"><a name="l08391"></a><span class="lineno"> 8391</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>(dst_buf);</div>
<div class="line"><a name="l08392"></a><span class="lineno"> 8392</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08393"></a><span class="lineno"> 8393</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08394"></a><span class="lineno"> 8394</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08395"></a><span class="lineno"> 8395</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l08396"></a><span class="lineno"> 8396</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08397"></a><span class="lineno"> 8397</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08398"></a><span class="lineno"> 8398</span>  <span class="keywordflow">return</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>;</div>
<div class="line"><a name="l08399"></a><span class="lineno"> 8399</span> }</div>
<div class="line"><a name="l08400"></a><span class="lineno"> 8400</span> </div>
<div class="line"><a name="l08401"></a><span class="lineno"> 8401</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l08402"></a><span class="lineno"> 8402</span> lib_UTF_backslash(<span class="keyword">self</span>, str)</div>
<div class="line"><a name="l08403"></a><span class="lineno"> 8403</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l08404"></a><span class="lineno"> 8404</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> str;</div>
<div class="line"><a name="l08405"></a><span class="lineno"> 8405</span> {</div>
<div class="line"><a name="l08406"></a><span class="lineno"> 8406</span>  <span class="keywordflow">return</span> lib_UTF_backslash_core(<span class="keyword">self</span>, str, 0);</div>
<div class="line"><a name="l08407"></a><span class="lineno"> 8407</span> }</div>
<div class="line"><a name="l08408"></a><span class="lineno"> 8408</span> </div>
<div class="line"><a name="l08409"></a><span class="lineno"> 8409</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l08410"></a><span class="lineno"> 8410</span> lib_Tcl_backslash(<span class="keyword">self</span>, str)</div>
<div class="line"><a name="l08411"></a><span class="lineno"> 8411</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l08412"></a><span class="lineno"> 8412</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> str;</div>
<div class="line"><a name="l08413"></a><span class="lineno"> 8413</span> {</div>
<div class="line"><a name="l08414"></a><span class="lineno"> 8414</span>  <span class="keywordflow">return</span> lib_UTF_backslash_core(<span class="keyword">self</span>, str, 1);</div>
<div class="line"><a name="l08415"></a><span class="lineno"> 8415</span> }</div>
<div class="line"><a name="l08416"></a><span class="lineno"> 8416</span> </div>
<div class="line"><a name="l08417"></a><span class="lineno"> 8417</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l08418"></a><span class="lineno"> 8418</span> lib_get_system_encoding(<span class="keyword">self</span>)</div>
<div class="line"><a name="l08419"></a><span class="lineno"> 8419</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l08420"></a><span class="lineno"> 8420</span> {</div>
<div class="line"><a name="l08421"></a><span class="lineno"> 8421</span> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION > 0)</span></div>
<div class="line"><a name="l08422"></a><span class="lineno"> 8422</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abbe469560280c936662242c94a43d994">tcl_stubs_check</a>();</div>
<div class="line"><a name="l08423"></a><span class="lineno"> 8423</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(Tcl_GetEncodingName((Tcl_Encoding)NULL));</div>
<div class="line"><a name="l08424"></a><span class="lineno"> 8424</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08425"></a><span class="lineno"> 8425</span> <span class="preprocessor"></span> <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l08426"></a><span class="lineno"> 8426</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08427"></a><span class="lineno"> 8427</span> <span class="preprocessor"></span>}</div>
<div class="line"><a name="l08428"></a><span class="lineno"> 8428</span> </div>
<div class="line"><a name="l08429"></a><span class="lineno"> 8429</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l08430"></a><span class="lineno"> 8430</span> lib_set_system_encoding(<span class="keyword">self</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a50e25a8a20b9967ff1e445f51199366f">enc_name</a>)</div>
<div class="line"><a name="l08431"></a><span class="lineno"> 8431</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l08432"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a50e25a8a20b9967ff1e445f51199366f"> 8432</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a50e25a8a20b9967ff1e445f51199366f">enc_name</a>;</div>
<div class="line"><a name="l08433"></a><span class="lineno"> 8433</span> {</div>
<div class="line"><a name="l08434"></a><span class="lineno"> 8434</span> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION > 0)</span></div>
<div class="line"><a name="l08435"></a><span class="lineno"> 8435</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abbe469560280c936662242c94a43d994">tcl_stubs_check</a>();</div>
<div class="line"><a name="l08436"></a><span class="lineno"> 8436</span> </div>
<div class="line"><a name="l08437"></a><span class="lineno"> 8437</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(enc_name)) {</div>
<div class="line"><a name="l08438"></a><span class="lineno"> 8438</span>  Tcl_SetSystemEncoding((Tcl_Interp *)NULL, (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *)NULL);</div>
<div class="line"><a name="l08439"></a><span class="lineno"> 8439</span>  <span class="keywordflow">return</span> lib_get_system_encoding(<span class="keyword">self</span>);</div>
<div class="line"><a name="l08440"></a><span class="lineno"> 8440</span>  }</div>
<div class="line"><a name="l08441"></a><span class="lineno"> 8441</span> </div>
<div class="line"><a name="l08442"></a><span class="lineno"> 8442</span>  enc_name = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(enc_name, ID_to_s, 0, 0);</div>
<div class="line"><a name="l08443"></a><span class="lineno"> 8443</span>  <span class="keywordflow">if</span> (Tcl_SetSystemEncoding((Tcl_Interp *)NULL,</div>
<div class="line"><a name="l08444"></a><span class="lineno"> 8444</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2665a51abbd5b49c15abff3df00fa9db">StringValuePtr</a>(enc_name)) != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l08445"></a><span class="lineno"> 8445</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"unknown encoding name '%s'"</span>,</div>
<div class="line"><a name="l08446"></a><span class="lineno"> 8446</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(enc_name));</div>
<div class="line"><a name="l08447"></a><span class="lineno"> 8447</span>  }</div>
<div class="line"><a name="l08448"></a><span class="lineno"> 8448</span> </div>
<div class="line"><a name="l08449"></a><span class="lineno"> 8449</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a50e25a8a20b9967ff1e445f51199366f">enc_name</a>;</div>
<div class="line"><a name="l08450"></a><span class="lineno"> 8450</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08451"></a><span class="lineno"> 8451</span> <span class="preprocessor"></span> <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l08452"></a><span class="lineno"> 8452</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08453"></a><span class="lineno"> 8453</span> <span class="preprocessor"></span>}</div>
<div class="line"><a name="l08454"></a><span class="lineno"> 8454</span> </div>
<div class="line"><a name="l08455"></a><span class="lineno"> 8455</span> </div>
<div class="line"><a name="l08456"></a><span class="lineno"> 8456</span> <span class="comment">/* invoke Tcl proc */</span></div>
<div class="line"><a name="l08457"></a><span class="lineno"><a class="line" href="../../d4/d4a/structinvoke__info.html"> 8457</a></span> <span class="keyword">struct </span><a class="code" href="../../d4/d4a/structinvoke__info.html">invoke_info</a> {</div>
<div class="line"><a name="l08458"></a><span class="lineno"><a class="line" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81"> 8458</a></span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *<a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>;</div>
<div class="line"><a name="l08459"></a><span class="lineno"><a class="line" href="../../d4/d4a/structinvoke__info.html#a15e2c7ffe00581c53e8f493c352b55fd"> 8459</a></span>  Tcl_CmdInfo <a class="code" href="../../d4/d4a/structinvoke__info.html#a15e2c7ffe00581c53e8f493c352b55fd">cmdinfo</a>;</div>
<div class="line"><a name="l08460"></a><span class="lineno"> 8460</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08461"></a><span class="lineno"> 8461</span> <span class="preprocessor"></span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>;</div>
<div class="line"><a name="l08462"></a><span class="lineno"> 8462</span>  Tcl_Obj **<a class="code" href="../../d5/d9d/tcltklib_8c.html#a5989eede682afd9743c0345d772674d5">objv</a>;</div>
<div class="line"><a name="l08463"></a><span class="lineno"> 8463</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08464"></a><span class="lineno"><a class="line" href="../../d4/d4a/structinvoke__info.html#ad9c9ad4cfec1603d7a2e2bae1117df42"> 8464</a></span> <span class="preprocessor"></span> <span class="keywordtype">int</span> <a class="code" href="../../d4/d4a/structinvoke__info.html#ad9c9ad4cfec1603d7a2e2bae1117df42">argc</a>;</div>
<div class="line"><a name="l08465"></a><span class="lineno"><a class="line" href="../../d4/d4a/structinvoke__info.html#a89830f7e2e97e7ad0c18c0541fbef975"> 8465</a></span>  <span class="keywordtype">char</span> **<a class="code" href="../../d4/d4a/structinvoke__info.html#a89830f7e2e97e7ad0c18c0541fbef975">argv</a>;</div>
<div class="line"><a name="l08466"></a><span class="lineno"> 8466</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08467"></a><span class="lineno"> 8467</span> <span class="preprocessor"></span>};</div>
<div class="line"><a name="l08468"></a><span class="lineno"> 8468</span> </div>
<div class="line"><a name="l08469"></a><span class="lineno"> 8469</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l08470"></a><span class="lineno"> 8470</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div>
<div class="line"><a name="l08471"></a><span class="lineno"> 8471</span> <span class="preprocessor"></span>invoke_tcl_proc(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> arg)</div>
<div class="line"><a name="l08472"></a><span class="lineno"> 8472</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08473"></a><span class="lineno"> 8473</span> <span class="preprocessor"></span>invoke_tcl_proc(arg)</div>
<div class="line"><a name="l08474"></a><span class="lineno"> 8474</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> arg;</div>
<div class="line"><a name="l08475"></a><span class="lineno"> 8475</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08476"></a><span class="lineno"> 8476</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l08477"></a><span class="lineno"> 8477</span>  <span class="keyword">struct </span><a class="code" href="../../d4/d4a/structinvoke__info.html">invoke_info</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#afe540dc79093fc3b43bf3c5f2d5087b8">inf</a> = (<span class="keyword">struct </span><a class="code" href="../../d4/d4a/structinvoke__info.html">invoke_info</a> *)arg;</div>
<div class="line"><a name="l08478"></a><span class="lineno"> 8478</span>  <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>, <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>;</div>
<div class="line"><a name="l08479"></a><span class="lineno"> 8479</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08480"></a><span class="lineno"> 8480</span> <span class="preprocessor"></span> <span class="keywordtype">int</span> argc = inf->objc;</div>
<div class="line"><a name="l08481"></a><span class="lineno"> 8481</span>  <span class="keywordtype">char</span> **argv = (<span class="keywordtype">char</span> **)NULL;</div>
<div class="line"><a name="l08482"></a><span class="lineno"> 8482</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08483"></a><span class="lineno"> 8483</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08484"></a><span class="lineno"> 8484</span>  <span class="comment">/* memory allocation for arguments of this command */</span></div>
<div class="line"><a name="l08485"></a><span class="lineno"> 8485</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08486"></a><span class="lineno"> 8486</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (!inf-><a class="code" href="../../d4/d4a/structinvoke__info.html#a15e2c7ffe00581c53e8f493c352b55fd">cmdinfo</a>.isNativeObjectProc) {</div>
<div class="line"><a name="l08487"></a><span class="lineno"> 8487</span>  <span class="comment">/* string interface */</span></div>
<div class="line"><a name="l08488"></a><span class="lineno"> 8488</span>  <span class="comment">/* argv = (char **)ALLOC_N(char *, argc+1);*/</span> <span class="comment">/* XXXXXXXXXX */</span></div>
<div class="line"><a name="l08489"></a><span class="lineno"> 8489</span>  argv = (<span class="keywordtype">char</span> **)ckalloc(<span class="keyword">sizeof</span>(<span class="keywordtype">char</span> *)*(argc+1));</div>
<div class="line"><a name="l08490"></a><span class="lineno"> 8490</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08491"></a><span class="lineno"> 8491</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)argv); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08492"></a><span class="lineno"> 8492</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08493"></a><span class="lineno"> 8493</span> <span class="preprocessor"></span> <span class="keywordflow">for</span> (i = 0; i < <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>; ++<a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>) {</div>
<div class="line"><a name="l08494"></a><span class="lineno"> 8494</span>  argv[<a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>] = Tcl_GetStringFromObj(inf->objv[i], &len);</div>
<div class="line"><a name="l08495"></a><span class="lineno"> 8495</span>  }</div>
<div class="line"><a name="l08496"></a><span class="lineno"> 8496</span>  argv[<a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>] = (<span class="keywordtype">char</span> *)NULL;</div>
<div class="line"><a name="l08497"></a><span class="lineno"> 8497</span>  }</div>
<div class="line"><a name="l08498"></a><span class="lineno"> 8498</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08499"></a><span class="lineno"> 8499</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08500"></a><span class="lineno"> 8500</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(inf-><a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l08501"></a><span class="lineno"> 8501</span> </div>
<div class="line"><a name="l08502"></a><span class="lineno"> 8502</span>  <span class="comment">/* Invoke the C procedure */</span></div>
<div class="line"><a name="l08503"></a><span class="lineno"> 8503</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08504"></a><span class="lineno"> 8504</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (inf-><a class="code" href="../../d4/d4a/structinvoke__info.html#a15e2c7ffe00581c53e8f493c352b55fd">cmdinfo</a>.isNativeObjectProc) {</div>
<div class="line"><a name="l08505"></a><span class="lineno"> 8505</span>  inf-><a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a></div>
<div class="line"><a name="l08506"></a><span class="lineno"> 8506</span>  = (*(inf-><a class="code" href="../../d4/d4a/structinvoke__info.html#a15e2c7ffe00581c53e8f493c352b55fd">cmdinfo</a>.objProc))(inf-><a class="code" href="../../d4/d4a/structinvoke__info.html#a15e2c7ffe00581c53e8f493c352b55fd">cmdinfo</a>.objClientData,</div>
<div class="line"><a name="l08507"></a><span class="lineno"> 8507</span>  inf-><a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, inf->objc, inf->objv);</div>
<div class="line"><a name="l08508"></a><span class="lineno"> 8508</span>  }</div>
<div class="line"><a name="l08509"></a><span class="lineno"> 8509</span>  <span class="keywordflow">else</span></div>
<div class="line"><a name="l08510"></a><span class="lineno"> 8510</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08511"></a><span class="lineno"> 8511</span> <span class="preprocessor"></span> {</div>
<div class="line"><a name="l08512"></a><span class="lineno"> 8512</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08513"></a><span class="lineno"> 8513</span> <span class="preprocessor"></span> inf-><a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a></div>
<div class="line"><a name="l08514"></a><span class="lineno"> 8514</span>  = (*(inf-><a class="code" href="../../d4/d4a/structinvoke__info.html#a15e2c7ffe00581c53e8f493c352b55fd">cmdinfo</a>.proc))(inf-><a class="code" href="../../d4/d4a/structinvoke__info.html#a15e2c7ffe00581c53e8f493c352b55fd">cmdinfo</a>.clientData, inf-><a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>,</div>
<div class="line"><a name="l08515"></a><span class="lineno"> 8515</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>, (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> **)argv);</div>
<div class="line"><a name="l08516"></a><span class="lineno"> 8516</span> </div>
<div class="line"><a name="l08517"></a><span class="lineno"> 8517</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08518"></a><span class="lineno"> 8518</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)argv, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08519"></a><span class="lineno"> 8519</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08520"></a><span class="lineno"> 8520</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08521"></a><span class="lineno"> 8521</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)argv); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08522"></a><span class="lineno"> 8522</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08523"></a><span class="lineno"> 8523</span> <span class="preprocessor"></span> <span class="comment">/* free(argv); */</span></div>
<div class="line"><a name="l08524"></a><span class="lineno"> 8524</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span>*)argv);</div>
<div class="line"><a name="l08525"></a><span class="lineno"> 8525</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08526"></a><span class="lineno"> 8526</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08527"></a><span class="lineno"> 8527</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08528"></a><span class="lineno"> 8528</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08529"></a><span class="lineno"> 8529</span> <span class="preprocessor"></span> inf-><a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a></div>
<div class="line"><a name="l08530"></a><span class="lineno"> 8530</span>  = (*(inf-><a class="code" href="../../d4/d4a/structinvoke__info.html#a15e2c7ffe00581c53e8f493c352b55fd">cmdinfo</a>.proc))(inf-><a class="code" href="../../d4/d4a/structinvoke__info.html#a15e2c7ffe00581c53e8f493c352b55fd">cmdinfo</a>.clientData, inf-><a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>,</div>
<div class="line"><a name="l08531"></a><span class="lineno"> 8531</span>  inf-><a class="code" href="../../d4/d4a/structinvoke__info.html#ad9c9ad4cfec1603d7a2e2bae1117df42">argc</a>, inf-><a class="code" href="../../d4/d4a/structinvoke__info.html#a89830f7e2e97e7ad0c18c0541fbef975">argv</a>);</div>
<div class="line"><a name="l08532"></a><span class="lineno"> 8532</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08533"></a><span class="lineno"> 8533</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l08534"></a><span class="lineno"> 8534</span> </div>
<div class="line"><a name="l08535"></a><span class="lineno"> 8535</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l08536"></a><span class="lineno"> 8536</span> }</div>
<div class="line"><a name="l08537"></a><span class="lineno"> 8537</span> </div>
<div class="line"><a name="l08538"></a><span class="lineno"> 8538</span> </div>
<div class="line"><a name="l08539"></a><span class="lineno"> 8539</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08540"></a><span class="lineno"> 8540</span> <span class="preprocessor"></span><span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l08541"></a><span class="lineno"> 8541</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a529f12882653441f32d5970570209660">ip_invoke_core</a>(interp, objc, objv)</div>
<div class="line"><a name="l08542"></a><span class="lineno"> 8542</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l08543"></a><span class="lineno"> 8543</span>  <span class="keywordtype">int</span> objc;</div>
<div class="line"><a name="l08544"></a><span class="lineno"> 8544</span>  Tcl_Obj **objv;</div>
<div class="line"><a name="l08545"></a><span class="lineno"> 8545</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08546"></a><span class="lineno"> 8546</span> <span class="preprocessor"></span><span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l08547"></a><span class="lineno"> 8547</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a529f12882653441f32d5970570209660">ip_invoke_core</a>(interp, argc, argv)</div>
<div class="line"><a name="l08548"></a><span class="lineno"> 8548</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l08549"></a><span class="lineno"> 8549</span>  <span class="keywordtype">int</span> argc;</div>
<div class="line"><a name="l08550"></a><span class="lineno"> 8550</span>  <span class="keywordtype">char</span> **argv;</div>
<div class="line"><a name="l08551"></a><span class="lineno"> 8551</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08552"></a><span class="lineno"> 8552</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l08553"></a><span class="lineno"> 8553</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>;</div>
<div class="line"><a name="l08554"></a><span class="lineno"> 8554</span>  Tcl_CmdInfo <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0519a447ec4809b051ea38b41c4012a6">info</a>;</div>
<div class="line"><a name="l08555"></a><span class="lineno"> 8555</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac016cf800c945b35b6ed7d8d9c9b153c">cmd</a>;</div>
<div class="line"><a name="l08556"></a><span class="lineno"> 8556</span>  <span class="keywordtype">int</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>;</div>
<div class="line"><a name="l08557"></a><span class="lineno"> 8557</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l08558"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af53fe45cd357105aafbc914c592a5bbd"> 8558</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af53fe45cd357105aafbc914c592a5bbd">unknown_flag</a> = 0;</div>
<div class="line"><a name="l08559"></a><span class="lineno"> 8559</span> </div>
<div class="line"><a name="l08560"></a><span class="lineno"> 8560</span> <span class="preprocessor">#if 1 </span><span class="comment">/* wrap tcl-proc call */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08561"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#afe540dc79093fc3b43bf3c5f2d5087b8"> 8561</a></span> <span class="preprocessor"></span> <span class="keyword">struct </span><a class="code" href="../../d4/d4a/structinvoke__info.html">invoke_info</a> inf;</div>
<div class="line"><a name="l08562"></a><span class="lineno"> 8562</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9611b3a00430a86619b5923de30f9fdb">status</a>;</div>
<div class="line"><a name="l08563"></a><span class="lineno"> 8563</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l08564"></a><span class="lineno"> 8564</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08565"></a><span class="lineno"> 8565</span> <span class="preprocessor"></span><span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08566"></a><span class="lineno"> 8566</span> <span class="preprocessor"></span> <span class="keywordtype">int</span> argc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>;</div>
<div class="line"><a name="l08567"></a><span class="lineno"> 8567</span>  <span class="keywordtype">char</span> **argv = (<span class="keywordtype">char</span> **)NULL;</div>
<div class="line"><a name="l08568"></a><span class="lineno"> 8568</span>  <span class="comment">/* Tcl_Obj *resultPtr; */</span></div>
<div class="line"><a name="l08569"></a><span class="lineno"> 8569</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08570"></a><span class="lineno"> 8570</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08571"></a><span class="lineno"> 8571</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08572"></a><span class="lineno"> 8572</span>  <span class="comment">/* get the data struct */</span></div>
<div class="line"><a name="l08573"></a><span class="lineno"> 8573</span>  ptr = get_ip(interp);</div>
<div class="line"><a name="l08574"></a><span class="lineno"> 8574</span> </div>
<div class="line"><a name="l08575"></a><span class="lineno"> 8575</span>  <span class="comment">/* get the command name string */</span></div>
<div class="line"><a name="l08576"></a><span class="lineno"> 8576</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08577"></a><span class="lineno"> 8577</span> <span class="preprocessor"></span> cmd = Tcl_GetStringFromObj(objv[0], &len);</div>
<div class="line"><a name="l08578"></a><span class="lineno"> 8578</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08579"></a><span class="lineno"> 8579</span> <span class="preprocessor"></span> cmd = argv[0];</div>
<div class="line"><a name="l08580"></a><span class="lineno"> 8580</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08581"></a><span class="lineno"> 8581</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08582"></a><span class="lineno"> 8582</span>  <span class="comment">/* get the data struct */</span></div>
<div class="line"><a name="l08583"></a><span class="lineno"> 8583</span>  ptr = get_ip(interp);</div>
<div class="line"><a name="l08584"></a><span class="lineno"> 8584</span> </div>
<div class="line"><a name="l08585"></a><span class="lineno"> 8585</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l08586"></a><span class="lineno"> 8586</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l08587"></a><span class="lineno"> 8587</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l08588"></a><span class="lineno"> 8588</span>  }</div>
<div class="line"><a name="l08589"></a><span class="lineno"> 8589</span> </div>
<div class="line"><a name="l08590"></a><span class="lineno"> 8590</span>  <span class="comment">/* Tcl_Preserve(ptr->ip); */</span></div>
<div class="line"><a name="l08591"></a><span class="lineno"> 8591</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa23f39899c949c9e59a0ee3096d76fc5">rbtk_preserve_ip</a>(ptr);</div>
<div class="line"><a name="l08592"></a><span class="lineno"> 8592</span> </div>
<div class="line"><a name="l08593"></a><span class="lineno"> 8593</span>  <span class="comment">/* map from the command name to a C procedure */</span></div>
<div class="line"><a name="l08594"></a><span class="lineno"> 8594</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"call Tcl_GetCommandInfo, %s"</span>, cmd);</div>
<div class="line"><a name="l08595"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a2f1d7c3409aa6029eaf5a10fe0a948fa"> 8595</a></span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad5c254c9258200de195897a1d1791732">Tcl_GetCommandInfo</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, cmd, &info)) {</div>
<div class="line"><a name="l08596"></a><span class="lineno"> 8596</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"error Tcl_GetCommandInfo"</span>);</div>
<div class="line"><a name="l08597"></a><span class="lineno"> 8597</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"try auto_load (call 'unknown' command)"</span>);</div>
<div class="line"><a name="l08598"></a><span class="lineno"> 8598</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad5c254c9258200de195897a1d1791732">Tcl_GetCommandInfo</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>,</div>
<div class="line"><a name="l08599"></a><span class="lineno"> 8599</span> #<span class="keywordflow">if</span> TCL_MAJOR_VERSION >= 8</div>
<div class="line"><a name="l08600"></a><span class="lineno"> 8600</span>  <span class="stringliteral">"::unknown"</span>,</div>
<div class="line"><a name="l08601"></a><span class="lineno"> 8601</span> #<span class="keywordflow">else</span></div>
<div class="line"><a name="l08602"></a><span class="lineno"> 8602</span>  <span class="stringliteral">"unknown"</span>,</div>
<div class="line"><a name="l08603"></a><span class="lineno"> 8603</span> #endif</div>
<div class="line"><a name="l08604"></a><span class="lineno"> 8604</span>  &info)) {</div>
<div class="line"><a name="l08605"></a><span class="lineno"> 8605</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"fail to get 'unknown' command"</span>);</div>
<div class="line"><a name="l08606"></a><span class="lineno"> 8606</span>  <span class="comment">/* if (event_loop_abort_on_exc || cmd[0] != '.') { */</span></div>
<div class="line"><a name="l08607"></a><span class="lineno"> 8607</span>  <span class="keywordflow">if</span> (event_loop_abort_on_exc > 0) {</div>
<div class="line"><a name="l08608"></a><span class="lineno"> 8608</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div>
<div class="line"><a name="l08609"></a><span class="lineno"> 8609</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l08610"></a><span class="lineno"> 8610</span>  <span class="comment">/*rb_ip_raise(obj,rb_eNameError,"invalid command name `%s'",cmd);*/</span></div>
<div class="line"><a name="l08611"></a><span class="lineno"> 8611</span>  <span class="keywordflow">return</span> create_ip_exc(interp, <a class="code" href="../../db/dcc/error_8c.html#a83f38068d329a7f4e8e8687b00aa4062">rb_eNameError</a>,</div>
<div class="line"><a name="l08612"></a><span class="lineno"> 8612</span>  <span class="stringliteral">"invalid command name `%s'"</span>, cmd);</div>
<div class="line"><a name="l08613"></a><span class="lineno"> 8613</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08614"></a><span class="lineno"> 8614</span>  <span class="keywordflow">if</span> (event_loop_abort_on_exc < 0) {</div>
<div class="line"><a name="l08615"></a><span class="lineno"> 8615</span>  <a class="code" href="../../db/dcc/error_8c.html#afd461c64916576849b159b21a26123da">rb_warning</a>(<span class="stringliteral">"invalid command name `%s' (ignore)"</span>, cmd);</div>
<div class="line"><a name="l08616"></a><span class="lineno"> 8616</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08617"></a><span class="lineno"> 8617</span>  <a class="code" href="../../db/dcc/error_8c.html#aa5b1972d475e9a090c8ef607ce033008">rb_warn</a>(<span class="stringliteral">"invalid command name `%s' (ignore)"</span>, cmd);</div>
<div class="line"><a name="l08618"></a><span class="lineno"> 8618</span>  }</div>
<div class="line"><a name="l08619"></a><span class="lineno"> 8619</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l08620"></a><span class="lineno"> 8620</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div>
<div class="line"><a name="l08621"></a><span class="lineno"> 8621</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l08622"></a><span class="lineno"> 8622</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l08623"></a><span class="lineno"> 8623</span>  }</div>
<div class="line"><a name="l08624"></a><span class="lineno"> 8624</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08625"></a><span class="lineno"> 8625</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08626"></a><span class="lineno"> 8626</span> <span class="preprocessor"></span> Tcl_Obj **unknown_objv;</div>
<div class="line"><a name="l08627"></a><span class="lineno"> 8627</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08628"></a><span class="lineno"> 8628</span> <span class="preprocessor"></span> <span class="keywordtype">char</span> **unknown_argv;</div>
<div class="line"><a name="l08629"></a><span class="lineno"> 8629</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08630"></a><span class="lineno"> 8630</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"find 'unknown' command -> set arguemnts"</span>);</div>
<div class="line"><a name="l08631"></a><span class="lineno"> 8631</span>  unknown_flag = 1;</div>
<div class="line"><a name="l08632"></a><span class="lineno"> 8632</span> </div>
<div class="line"><a name="l08633"></a><span class="lineno"> 8633</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08634"></a><span class="lineno"> 8634</span> <span class="preprocessor"></span> <span class="comment">/* unknown_objv = (Tcl_Obj **)ALLOC_N(Tcl_Obj *, objc+2); */</span></div>
<div class="line"><a name="l08635"></a><span class="lineno"> 8635</span>  unknown_objv = (Tcl_Obj **)ckalloc(<span class="keyword">sizeof</span>(Tcl_Obj *) * (objc+2));</div>
<div class="line"><a name="l08636"></a><span class="lineno"> 8636</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08637"></a><span class="lineno"> 8637</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)unknown_objv); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08638"></a><span class="lineno"> 8638</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08639"></a><span class="lineno"> 8639</span> <span class="preprocessor"></span> unknown_objv[0] = Tcl_NewStringObj(<span class="stringliteral">"::unknown"</span>, 9);</div>
<div class="line"><a name="l08640"></a><span class="lineno"> 8640</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(unknown_objv[0]);</div>
<div class="line"><a name="l08641"></a><span class="lineno"> 8641</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7aa3ca79548709bc580aa259ad1fd2d2">memcpy</a>(unknown_objv + 1, objv, <span class="keyword">sizeof</span>(Tcl_Obj *)*objc);</div>
<div class="line"><a name="l08642"></a><span class="lineno"> 8642</span>  unknown_objv[++<a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>] = (Tcl_Obj*)NULL;</div>
<div class="line"><a name="l08643"></a><span class="lineno"> 8643</span>  objv = unknown_objv;</div>
<div class="line"><a name="l08644"></a><span class="lineno"> 8644</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08645"></a><span class="lineno"> 8645</span> <span class="preprocessor"></span> <span class="comment">/* unknown_argv = (char **)ALLOC_N(char *, argc+2); */</span></div>
<div class="line"><a name="l08646"></a><span class="lineno"> 8646</span>  unknown_argv = (<span class="keywordtype">char</span> **)ckalloc(<span class="keyword">sizeof</span>(<span class="keywordtype">char</span> *) * (argc+2));</div>
<div class="line"><a name="l08647"></a><span class="lineno"> 8647</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08648"></a><span class="lineno"> 8648</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)unknown_argv); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08649"></a><span class="lineno"> 8649</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08650"></a><span class="lineno"> 8650</span> <span class="preprocessor"></span> unknown_argv[0] = <a class="code" href="../../d8/d3c/util_8h.html#ad832104a69551cf1e4e347fffa9dc77c">strdup</a>(<span class="stringliteral">"unknown"</span>);</div>
<div class="line"><a name="l08651"></a><span class="lineno"> 8651</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7aa3ca79548709bc580aa259ad1fd2d2">memcpy</a>(unknown_argv + 1, argv, <span class="keyword">sizeof</span>(<span class="keywordtype">char</span> *)*argc);</div>
<div class="line"><a name="l08652"></a><span class="lineno"> 8652</span>  unknown_argv[++<a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>] = (<span class="keywordtype">char</span> *)NULL;</div>
<div class="line"><a name="l08653"></a><span class="lineno"> 8653</span>  argv = unknown_argv;</div>
<div class="line"><a name="l08654"></a><span class="lineno"> 8654</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08655"></a><span class="lineno"> 8655</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l08656"></a><span class="lineno"> 8656</span>  }</div>
<div class="line"><a name="l08657"></a><span class="lineno"> 8657</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"end Tcl_GetCommandInfo"</span>);</div>
<div class="line"><a name="l08658"></a><span class="lineno"> 8658</span> </div>
<div class="line"><a name="l08659"></a><span class="lineno"> 8659</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l08660"></a><span class="lineno"> 8660</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l08661"></a><span class="lineno"> 8661</span> </div>
<div class="line"><a name="l08662"></a><span class="lineno"> 8662</span> <span class="preprocessor">#if 1 </span><span class="comment">/* wrap tcl-proc call */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08663"></a><span class="lineno"> 8663</span> <span class="preprocessor"></span> <span class="comment">/* setup params */</span></div>
<div class="line"><a name="l08664"></a><span class="lineno"> 8664</span>  inf.<a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>;</div>
<div class="line"><a name="l08665"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af42a248842935fa3a0f15544621a9278"> 8665</a></span>  inf.<a class="code" href="../../d4/d4a/structinvoke__info.html#a15e2c7ffe00581c53e8f493c352b55fd">cmdinfo</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0519a447ec4809b051ea38b41c4012a6">info</a>;</div>
<div class="line"><a name="l08666"></a><span class="lineno"> 8666</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08667"></a><span class="lineno"> 8667</span> <span class="preprocessor"></span> inf.objc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>;</div>
<div class="line"><a name="l08668"></a><span class="lineno"> 8668</span>  inf.objv = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5989eede682afd9743c0345d772674d5">objv</a>;</div>
<div class="line"><a name="l08669"></a><span class="lineno"> 8669</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08670"></a><span class="lineno"> 8670</span> <span class="preprocessor"></span> inf.<a class="code" href="../../d4/d4a/structinvoke__info.html#ad9c9ad4cfec1603d7a2e2bae1117df42">argc</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>;</div>
<div class="line"><a name="l08671"></a><span class="lineno"> 8671</span>  inf.<a class="code" href="../../d4/d4a/structinvoke__info.html#a89830f7e2e97e7ad0c18c0541fbef975">argv</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab9ebbdd4596789afb752d19fca153ee5">argv</a>;</div>
<div class="line"><a name="l08672"></a><span class="lineno"> 8672</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08673"></a><span class="lineno"> 8673</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08674"></a><span class="lineno"> 8674</span>  <span class="comment">/* invoke tcl-proc */</span></div>
<div class="line"><a name="l08675"></a><span class="lineno"> 8675</span>  ret = <a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(invoke_tcl_proc, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)&inf, &status);</div>
<div class="line"><a name="l08676"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abe02337e222d5432aae4ac7a36aa850f"> 8676</a></span>  <span class="keywordflow">switch</span>(status) {</div>
<div class="line"><a name="l08677"></a><span class="lineno"> 8677</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0b034bce069147e233776bc1dcc74c01">TAG_RAISE</a>:</div>
<div class="line"><a name="l08678"></a><span class="lineno"> 8678</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>())) {</div>
<div class="line"><a name="l08679"></a><span class="lineno"> 8679</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>,</div>
<div class="line"><a name="l08680"></a><span class="lineno"> 8680</span>  <span class="stringliteral">"unknown exception"</span>);</div>
<div class="line"><a name="l08681"></a><span class="lineno"> 8681</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08682"></a><span class="lineno"> 8682</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div>
<div class="line"><a name="l08683"></a><span class="lineno"> 8683</span>  }</div>
<div class="line"><a name="l08684"></a><span class="lineno"> 8684</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l08685"></a><span class="lineno"> 8685</span> </div>
<div class="line"><a name="l08686"></a><span class="lineno"> 8686</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7490e601d6a9d97a79d4d895ad73c93a">TAG_FATAL</a>:</div>
<div class="line"><a name="l08687"></a><span class="lineno"> 8687</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>())) {</div>
<div class="line"><a name="l08688"></a><span class="lineno"> 8688</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a7df09bfc26c0ffa7592f91fdcf64fcec">rb_eFatal</a>, <span class="stringliteral">"FATAL"</span>);</div>
<div class="line"><a name="l08689"></a><span class="lineno"> 8689</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08690"></a><span class="lineno"> 8690</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div>
<div class="line"><a name="l08691"></a><span class="lineno"> 8691</span>  }</div>
<div class="line"><a name="l08692"></a><span class="lineno"> 8692</span>  }</div>
<div class="line"><a name="l08693"></a><span class="lineno"> 8693</span> </div>
<div class="line"><a name="l08694"></a><span class="lineno"> 8694</span> <span class="preprocessor">#else </span><span class="comment">/* !wrap tcl-proc call */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08695"></a><span class="lineno"> 8695</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08696"></a><span class="lineno"> 8696</span>  <span class="comment">/* memory allocation for arguments of this command */</span></div>
<div class="line"><a name="l08697"></a><span class="lineno"> 8697</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08698"></a><span class="lineno"> 8698</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (!info.isNativeObjectProc) {</div>
<div class="line"><a name="l08699"></a><span class="lineno"> 8699</span>  <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div>
<div class="line"><a name="l08700"></a><span class="lineno"> 8700</span> </div>
<div class="line"><a name="l08701"></a><span class="lineno"> 8701</span>  <span class="comment">/* string interface */</span></div>
<div class="line"><a name="l08702"></a><span class="lineno"> 8702</span>  <span class="comment">/* argv = (char **)ALLOC_N(char *, argc+1); */</span></div>
<div class="line"><a name="l08703"></a><span class="lineno"> 8703</span>  argv = (<span class="keywordtype">char</span> **)ckalloc(<span class="keyword">sizeof</span>(<span class="keywordtype">char</span> *) * (argc+1));</div>
<div class="line"><a name="l08704"></a><span class="lineno"> 8704</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08705"></a><span class="lineno"> 8705</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)argv); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08706"></a><span class="lineno"> 8706</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08707"></a><span class="lineno"> 8707</span> <span class="preprocessor"></span> <span class="keywordflow">for</span> (i = 0; i < <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>; ++<a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>) {</div>
<div class="line"><a name="l08708"></a><span class="lineno"> 8708</span>  argv[<a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>] = Tcl_GetStringFromObj(objv[i], &len);</div>
<div class="line"><a name="l08709"></a><span class="lineno"> 8709</span>  }</div>
<div class="line"><a name="l08710"></a><span class="lineno"> 8710</span>  argv[<a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>] = (<span class="keywordtype">char</span> *)NULL;</div>
<div class="line"><a name="l08711"></a><span class="lineno"> 8711</span>  }</div>
<div class="line"><a name="l08712"></a><span class="lineno"> 8712</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08713"></a><span class="lineno"> 8713</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08714"></a><span class="lineno"> 8714</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l08715"></a><span class="lineno"> 8715</span> </div>
<div class="line"><a name="l08716"></a><span class="lineno"> 8716</span>  <span class="comment">/* Invoke the C procedure */</span></div>
<div class="line"><a name="l08717"></a><span class="lineno"> 8717</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08718"></a><span class="lineno"> 8718</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (info.isNativeObjectProc) {</div>
<div class="line"><a name="l08719"></a><span class="lineno"> 8719</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = (*info.objProc)(info.objClientData, ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>,</div>
<div class="line"><a name="l08720"></a><span class="lineno"> 8720</span>  objc, objv);</div>
<div class="line"><a name="l08721"></a><span class="lineno"> 8721</span> <span class="preprocessor">#if 0</span></div>
<div class="line"><a name="l08722"></a><span class="lineno"> 8722</span> <span class="preprocessor"></span> <span class="comment">/* get the string value from the result object */</span></div>
<div class="line"><a name="l08723"></a><span class="lineno"> 8723</span>  resultPtr = Tcl_GetObjResult(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l08724"></a><span class="lineno"> 8724</span>  Tcl_SetResult(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, Tcl_GetStringFromObj(resultPtr, &len),</div>
<div class="line"><a name="l08725"></a><span class="lineno"> 8725</span>  TCL_VOLATILE);</div>
<div class="line"><a name="l08726"></a><span class="lineno"> 8726</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08727"></a><span class="lineno"> 8727</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l08728"></a><span class="lineno"> 8728</span>  <span class="keywordflow">else</span></div>
<div class="line"><a name="l08729"></a><span class="lineno"> 8729</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08730"></a><span class="lineno"> 8730</span> <span class="preprocessor"></span> {</div>
<div class="line"><a name="l08731"></a><span class="lineno"> 8731</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08732"></a><span class="lineno"> 8732</span> <span class="preprocessor"></span> ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = (*info.proc)(info.clientData, ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>,</div>
<div class="line"><a name="l08733"></a><span class="lineno"> 8733</span>  argc, (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> **)<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab9ebbdd4596789afb752d19fca153ee5">argv</a>);</div>
<div class="line"><a name="l08734"></a><span class="lineno"> 8734</span> </div>
<div class="line"><a name="l08735"></a><span class="lineno"> 8735</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08736"></a><span class="lineno"> 8736</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)argv, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08737"></a><span class="lineno"> 8737</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08738"></a><span class="lineno"> 8738</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08739"></a><span class="lineno"> 8739</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)argv); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08740"></a><span class="lineno"> 8740</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08741"></a><span class="lineno"> 8741</span> <span class="preprocessor"></span> <span class="comment">/* free(argv); */</span></div>
<div class="line"><a name="l08742"></a><span class="lineno"> 8742</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span>*)argv);</div>
<div class="line"><a name="l08743"></a><span class="lineno"> 8743</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08744"></a><span class="lineno"> 8744</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08745"></a><span class="lineno"> 8745</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08746"></a><span class="lineno"> 8746</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08747"></a><span class="lineno"> 8747</span> <span class="preprocessor"></span> ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = (*info.proc)(info.clientData, ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>,</div>
<div class="line"><a name="l08748"></a><span class="lineno"> 8748</span>  argc, argv);</div>
<div class="line"><a name="l08749"></a><span class="lineno"> 8749</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08750"></a><span class="lineno"> 8750</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l08751"></a><span class="lineno"> 8751</span> <span class="preprocessor">#endif </span><span class="comment">/* ! wrap tcl-proc call */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08752"></a><span class="lineno"> 8752</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08753"></a><span class="lineno"> 8753</span>  <span class="comment">/* free allocated memory for calling 'unknown' command */</span></div>
<div class="line"><a name="l08754"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0b1096458b3cb4fc63ea49c3685f3181"> 8754</a></span>  <span class="keywordflow">if</span> (unknown_flag) {</div>
<div class="line"><a name="l08755"></a><span class="lineno"> 8755</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08756"></a><span class="lineno"> 8756</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[0]);</div>
<div class="line"><a name="l08757"></a><span class="lineno"> 8757</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08758"></a><span class="lineno"> 8758</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)objv, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08759"></a><span class="lineno"> 8759</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08760"></a><span class="lineno"> 8760</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08761"></a><span class="lineno"> 8761</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)objv); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08762"></a><span class="lineno"> 8762</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08763"></a><span class="lineno"> 8763</span> <span class="preprocessor"></span> <span class="comment">/* free(objv); */</span></div>
<div class="line"><a name="l08764"></a><span class="lineno"> 8764</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span>*)objv);</div>
<div class="line"><a name="l08765"></a><span class="lineno"> 8765</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08766"></a><span class="lineno"> 8766</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08767"></a><span class="lineno"> 8767</span> <span class="preprocessor"></span><span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08768"></a><span class="lineno"> 8768</span> <span class="preprocessor"></span> <a class="code" href="../../d1/ddc/dln_8c.html#affb9fc32698fab7f7b36e0cf8e64c83e">free</a>(argv[0]);</div>
<div class="line"><a name="l08769"></a><span class="lineno"> 8769</span>  <span class="comment">/* ckfree(argv[0]); */</span></div>
<div class="line"><a name="l08770"></a><span class="lineno"> 8770</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08771"></a><span class="lineno"> 8771</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)argv, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08772"></a><span class="lineno"> 8772</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08773"></a><span class="lineno"> 8773</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08774"></a><span class="lineno"> 8774</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)argv); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08775"></a><span class="lineno"> 8775</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08776"></a><span class="lineno"> 8776</span> <span class="preprocessor"></span> <span class="comment">/* free(argv); */</span></div>
<div class="line"><a name="l08777"></a><span class="lineno"> 8777</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span>*)argv);</div>
<div class="line"><a name="l08778"></a><span class="lineno"> 8778</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08779"></a><span class="lineno"> 8779</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08780"></a><span class="lineno"> 8780</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08781"></a><span class="lineno"> 8781</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l08782"></a><span class="lineno"> 8782</span> </div>
<div class="line"><a name="l08783"></a><span class="lineno"> 8783</span>  <span class="comment">/* exception on mainloop */</span></div>
<div class="line"><a name="l08784"></a><span class="lineno"> 8784</span>  <span class="keywordflow">if</span> (pending_exception_check1(thr_crit_bup, ptr)) {</div>
<div class="line"><a name="l08785"></a><span class="lineno"> 8785</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>;</div>
<div class="line"><a name="l08786"></a><span class="lineno"> 8786</span>  }</div>
<div class="line"><a name="l08787"></a><span class="lineno"> 8787</span> </div>
<div class="line"><a name="l08788"></a><span class="lineno"> 8788</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l08789"></a><span class="lineno"> 8789</span> </div>
<div class="line"><a name="l08790"></a><span class="lineno"> 8790</span>  <span class="comment">/* if (ptr->return_value == TCL_ERROR) { */</span></div>
<div class="line"><a name="l08791"></a><span class="lineno"> 8791</span>  <span class="keywordflow">if</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l08792"></a><span class="lineno"> 8792</span>  <span class="keywordflow">if</span> (event_loop_abort_on_exc > 0 && !Tcl_InterpDeleted(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>)) {</div>
<div class="line"><a name="l08793"></a><span class="lineno"> 8793</span>  <span class="keywordflow">switch</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a>) {</div>
<div class="line"><a name="l08794"></a><span class="lineno"> 8794</span>  <span class="keywordflow">case</span> TCL_RETURN:</div>
<div class="line"><a name="l08795"></a><span class="lineno"> 8795</span>  <span class="keywordflow">return</span> create_ip_exc(interp, eTkCallbackReturn,</div>
<div class="line"><a name="l08796"></a><span class="lineno"> 8796</span>  <span class="stringliteral">"ip_invoke_core receives TCL_RETURN"</span>);</div>
<div class="line"><a name="l08797"></a><span class="lineno"> 8797</span>  <span class="keywordflow">case</span> TCL_BREAK:</div>
<div class="line"><a name="l08798"></a><span class="lineno"> 8798</span>  <span class="keywordflow">return</span> create_ip_exc(interp, eTkCallbackBreak,</div>
<div class="line"><a name="l08799"></a><span class="lineno"> 8799</span>  <span class="stringliteral">"ip_invoke_core receives TCL_BREAK"</span>);</div>
<div class="line"><a name="l08800"></a><span class="lineno"> 8800</span>  <span class="keywordflow">case</span> TCL_CONTINUE:</div>
<div class="line"><a name="l08801"></a><span class="lineno"> 8801</span>  <span class="keywordflow">return</span> create_ip_exc(interp, eTkCallbackContinue,</div>
<div class="line"><a name="l08802"></a><span class="lineno"> 8802</span>  <span class="stringliteral">"ip_invoke_core receives TCL_CONTINUE"</span>);</div>
<div class="line"><a name="l08803"></a><span class="lineno"> 8803</span>  <span class="keywordflow">default</span>:</div>
<div class="line"><a name="l08804"></a><span class="lineno"> 8804</span>  <span class="keywordflow">return</span> create_ip_exc(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"%s"</span>,</div>
<div class="line"><a name="l08805"></a><span class="lineno"> 8805</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l08806"></a><span class="lineno"> 8806</span>  }</div>
<div class="line"><a name="l08807"></a><span class="lineno"> 8807</span> </div>
<div class="line"><a name="l08808"></a><span class="lineno"> 8808</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08809"></a><span class="lineno"> 8809</span>  <span class="keywordflow">if</span> (event_loop_abort_on_exc < 0) {</div>
<div class="line"><a name="l08810"></a><span class="lineno"> 8810</span>  <a class="code" href="../../db/dcc/error_8c.html#afd461c64916576849b159b21a26123da">rb_warning</a>(<span class="stringliteral">"%s (ignore)"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l08811"></a><span class="lineno"> 8811</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08812"></a><span class="lineno"> 8812</span>  <a class="code" href="../../db/dcc/error_8c.html#aa5b1972d475e9a090c8ef607ce033008">rb_warn</a>(<span class="stringliteral">"%s (ignore)"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l08813"></a><span class="lineno"> 8813</span>  }</div>
<div class="line"><a name="l08814"></a><span class="lineno"> 8814</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l08815"></a><span class="lineno"> 8815</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l08816"></a><span class="lineno"> 8816</span>  }</div>
<div class="line"><a name="l08817"></a><span class="lineno"> 8817</span>  }</div>
<div class="line"><a name="l08818"></a><span class="lineno"> 8818</span> </div>
<div class="line"><a name="l08819"></a><span class="lineno"> 8819</span>  <span class="comment">/* pass back the result (as string) */</span></div>
<div class="line"><a name="l08820"></a><span class="lineno"> 8820</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#afb33421fe234ee34c898da21b1bef388">ip_get_result_string_obj</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l08821"></a><span class="lineno"> 8821</span> }</div>
<div class="line"><a name="l08822"></a><span class="lineno"> 8822</span> </div>
<div class="line"><a name="l08823"></a><span class="lineno"> 8823</span> </div>
<div class="line"><a name="l08824"></a><span class="lineno"> 8824</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08825"></a><span class="lineno"> 8825</span> <span class="preprocessor"></span><span class="keyword">static</span> Tcl_Obj **</div>
<div class="line"><a name="l08826"></a><span class="lineno"> 8826</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08827"></a><span class="lineno"> 8827</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">char</span> **</div>
<div class="line"><a name="l08828"></a><span class="lineno"> 8828</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08829"></a><span class="lineno"> 8829</span> <span class="preprocessor"></span>alloc_invoke_arguments(argc, argv)</div>
<div class="line"><a name="l08830"></a><span class="lineno"> 8830</span>  int argc;</div>
<div class="line"><a name="l08831"></a><span class="lineno"> 8831</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l08832"></a><span class="lineno"> 8832</span> {</div>
<div class="line"><a name="l08833"></a><span class="lineno"> 8833</span>  <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div>
<div class="line"><a name="l08834"></a><span class="lineno"> 8834</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l08835"></a><span class="lineno"> 8835</span> </div>
<div class="line"><a name="l08836"></a><span class="lineno"> 8836</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08837"></a><span class="lineno"> 8837</span> <span class="preprocessor"></span> Tcl_Obj **<a class="code" href="../../d5/d9d/tcltklib_8c.html#a8cd7164f2640dea1db77112b05a8b12b">av</a>;</div>
<div class="line"><a name="l08838"></a><span class="lineno"> 8838</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08839"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8cd7164f2640dea1db77112b05a8b12b"> 8839</a></span> <span class="preprocessor"></span> <span class="keywordtype">char</span> **<a class="code" href="../../d5/d9d/tcltklib_8c.html#a8cd7164f2640dea1db77112b05a8b12b">av</a>;</div>
<div class="line"><a name="l08840"></a><span class="lineno"> 8840</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08841"></a><span class="lineno"> 8841</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08842"></a><span class="lineno"> 8842</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l08843"></a><span class="lineno"> 8843</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l08844"></a><span class="lineno"> 8844</span> </div>
<div class="line"><a name="l08845"></a><span class="lineno"> 8845</span>  <span class="comment">/* memory allocation */</span></div>
<div class="line"><a name="l08846"></a><span class="lineno"> 8846</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08847"></a><span class="lineno"> 8847</span> <span class="preprocessor"></span> <span class="comment">/* av = ALLOC_N(Tcl_Obj *, argc+1);*/</span> <span class="comment">/* XXXXXXXXXX */</span></div>
<div class="line"><a name="l08848"></a><span class="lineno"> 8848</span>  av = (Tcl_Obj**)ckalloc(<span class="keyword">sizeof</span>(Tcl_Obj *)*(argc+1));</div>
<div class="line"><a name="l08849"></a><span class="lineno"> 8849</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08850"></a><span class="lineno"> 8850</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)av); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08851"></a><span class="lineno"> 8851</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08852"></a><span class="lineno"> 8852</span> <span class="preprocessor"></span> <span class="keywordflow">for</span> (i = 0; i < <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>; ++<a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>) {</div>
<div class="line"><a name="l08853"></a><span class="lineno"> 8853</span>  av[<a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>] = get_obj_from_str(argv[i]);</div>
<div class="line"><a name="l08854"></a><span class="lineno"> 8854</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(av[i]);</div>
<div class="line"><a name="l08855"></a><span class="lineno"> 8855</span>  }</div>
<div class="line"><a name="l08856"></a><span class="lineno"> 8856</span>  av[<a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>] = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l08857"></a><span class="lineno"> 8857</span> </div>
<div class="line"><a name="l08858"></a><span class="lineno"> 8858</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08859"></a><span class="lineno"> 8859</span> <span class="preprocessor"></span> <span class="comment">/* string interface */</span></div>
<div class="line"><a name="l08860"></a><span class="lineno"> 8860</span>  <span class="comment">/* av = ALLOC_N(char *, argc+1); */</span></div>
<div class="line"><a name="l08861"></a><span class="lineno"> 8861</span>  av = (<span class="keywordtype">char</span>**)ckalloc(<span class="keyword">sizeof</span>(<span class="keywordtype">char</span> *) * (argc+1));</div>
<div class="line"><a name="l08862"></a><span class="lineno"> 8862</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08863"></a><span class="lineno"> 8863</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)av); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08864"></a><span class="lineno"> 8864</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08865"></a><span class="lineno"> 8865</span> <span class="preprocessor"></span> <span class="keywordflow">for</span> (i = 0; i < <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>; ++<a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>) {</div>
<div class="line"><a name="l08866"></a><span class="lineno"> 8866</span>  av[<a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>] = <a class="code" href="../../d8/d3c/util_8h.html#ad832104a69551cf1e4e347fffa9dc77c">strdup</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2665a51abbd5b49c15abff3df00fa9db">StringValuePtr</a>(argv[i]));</div>
<div class="line"><a name="l08867"></a><span class="lineno"> 8867</span>  }</div>
<div class="line"><a name="l08868"></a><span class="lineno"> 8868</span>  av[<a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>] = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l08869"></a><span class="lineno"> 8869</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08870"></a><span class="lineno"> 8870</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08871"></a><span class="lineno"> 8871</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l08872"></a><span class="lineno"> 8872</span> </div>
<div class="line"><a name="l08873"></a><span class="lineno"> 8873</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8cd7164f2640dea1db77112b05a8b12b">av</a>;</div>
<div class="line"><a name="l08874"></a><span class="lineno"> 8874</span> }</div>
<div class="line"><a name="l08875"></a><span class="lineno"> 8875</span> </div>
<div class="line"><a name="l08876"></a><span class="lineno"> 8876</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l08877"></a><span class="lineno"> 8877</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abb7d289e90986781b8e52fad35ec7870">free_invoke_arguments</a>(argc, av)</div>
<div class="line"><a name="l08878"></a><span class="lineno"> 8878</span>  int argc;</div>
<div class="line"><a name="l08879"></a><span class="lineno"> 8879</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08880"></a><span class="lineno"> 8880</span> <span class="preprocessor"></span> Tcl_Obj **<a class="code" href="../../d5/d9d/tcltklib_8c.html#a8cd7164f2640dea1db77112b05a8b12b">av</a>;</div>
<div class="line"><a name="l08881"></a><span class="lineno"> 8881</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08882"></a><span class="lineno"> 8882</span> <span class="preprocessor"></span> <span class="keywordtype">char</span> **<a class="code" href="../../d5/d9d/tcltklib_8c.html#a8cd7164f2640dea1db77112b05a8b12b">av</a>;</div>
<div class="line"><a name="l08883"></a><span class="lineno"> 8883</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08884"></a><span class="lineno"> 8884</span> <span class="preprocessor"></span>{</div>
<div class="line"><a name="l08885"></a><span class="lineno"> 8885</span>  <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>;</div>
<div class="line"><a name="l08886"></a><span class="lineno"> 8886</span> </div>
<div class="line"><a name="l08887"></a><span class="lineno"> 8887</span>  <span class="keywordflow">for</span> (i = 0; i < <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>; ++<a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>) {</div>
<div class="line"><a name="l08888"></a><span class="lineno"> 8888</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08889"></a><span class="lineno"> 8889</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(av[i]);</div>
<div class="line"><a name="l08890"></a><span class="lineno"> 8890</span>  av[<a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>] = (Tcl_Obj*)NULL;</div>
<div class="line"><a name="l08891"></a><span class="lineno"> 8891</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08892"></a><span class="lineno"> 8892</span> <span class="preprocessor"></span> <a class="code" href="../../d1/ddc/dln_8c.html#affb9fc32698fab7f7b36e0cf8e64c83e">free</a>(av[i]);</div>
<div class="line"><a name="l08893"></a><span class="lineno"> 8893</span>  av[<a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>] = (<span class="keywordtype">char</span>*)NULL;</div>
<div class="line"><a name="l08894"></a><span class="lineno"> 8894</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08895"></a><span class="lineno"> 8895</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l08896"></a><span class="lineno"> 8896</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08897"></a><span class="lineno"> 8897</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08898"></a><span class="lineno"> 8898</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)av, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08899"></a><span class="lineno"> 8899</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08900"></a><span class="lineno"> 8900</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08901"></a><span class="lineno"> 8901</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)av); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08902"></a><span class="lineno"> 8902</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08903"></a><span class="lineno"> 8903</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span>*)av);</div>
<div class="line"><a name="l08904"></a><span class="lineno"> 8904</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08905"></a><span class="lineno"> 8905</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08906"></a><span class="lineno"> 8906</span> <span class="preprocessor"></span><span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08907"></a><span class="lineno"> 8907</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08908"></a><span class="lineno"> 8908</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)av, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08909"></a><span class="lineno"> 8909</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08910"></a><span class="lineno"> 8910</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08911"></a><span class="lineno"> 8911</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)av); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l08912"></a><span class="lineno"> 8912</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08913"></a><span class="lineno"> 8913</span> <span class="preprocessor"></span> <span class="comment">/* free(av); */</span></div>
<div class="line"><a name="l08914"></a><span class="lineno"> 8914</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span>*)av);</div>
<div class="line"><a name="l08915"></a><span class="lineno"> 8915</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08916"></a><span class="lineno"> 8916</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08917"></a><span class="lineno"> 8917</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08918"></a><span class="lineno"> 8918</span> <span class="preprocessor"></span>}</div>
<div class="line"><a name="l08919"></a><span class="lineno"> 8919</span> </div>
<div class="line"><a name="l08920"></a><span class="lineno"> 8920</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l08921"></a><span class="lineno"> 8921</span> ip_invoke_real(argc, argv, interp)</div>
<div class="line"><a name="l08922"></a><span class="lineno"> 8922</span>  int argc;</div>
<div class="line"><a name="l08923"></a><span class="lineno"> 8923</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l08924"></a><span class="lineno"> 8924</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l08925"></a><span class="lineno"> 8925</span> {</div>
<div class="line"><a name="l08926"></a><span class="lineno"> 8926</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../de/d07/bigdecimal_8c.html#a8603782009ff58be0587ea58013b3e52">v</a>;</div>
<div class="line"><a name="l08927"></a><span class="lineno"> 8927</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>; <span class="comment">/* tcltkip data struct */</span></div>
<div class="line"><a name="l08928"></a><span class="lineno"> 8928</span> </div>
<div class="line"><a name="l08929"></a><span class="lineno"> 8929</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l08930"></a><span class="lineno"> 8930</span> <span class="preprocessor"></span> Tcl_Obj **av = (Tcl_Obj **)NULL;</div>
<div class="line"><a name="l08931"></a><span class="lineno"> 8931</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l08932"></a><span class="lineno"> 8932</span> <span class="preprocessor"></span> <span class="keywordtype">char</span> **av = (<span class="keywordtype">char</span> **)NULL;</div>
<div class="line"><a name="l08933"></a><span class="lineno"> 8933</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l08934"></a><span class="lineno"> 8934</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l08935"></a><span class="lineno"> 8935</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"invoke_real called by thread:%lx"</span>, <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>());</div>
<div class="line"><a name="l08936"></a><span class="lineno"> 8936</span> </div>
<div class="line"><a name="l08937"></a><span class="lineno"> 8937</span>  <span class="comment">/* get the data struct */</span></div>
<div class="line"><a name="l08938"></a><span class="lineno"> 8938</span>  ptr = get_ip(interp);</div>
<div class="line"><a name="l08939"></a><span class="lineno"> 8939</span> </div>
<div class="line"><a name="l08940"></a><span class="lineno"> 8940</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l08941"></a><span class="lineno"> 8941</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l08942"></a><span class="lineno"> 8942</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l08943"></a><span class="lineno"> 8943</span>  }</div>
<div class="line"><a name="l08944"></a><span class="lineno"> 8944</span> </div>
<div class="line"><a name="l08945"></a><span class="lineno"> 8945</span>  <span class="comment">/* allocate memory for arguments */</span></div>
<div class="line"><a name="l08946"></a><span class="lineno"> 8946</span>  av = alloc_invoke_arguments(argc, argv);</div>
<div class="line"><a name="l08947"></a><span class="lineno"> 8947</span> </div>
<div class="line"><a name="l08948"></a><span class="lineno"> 8948</span>  <span class="comment">/* Invoke the C procedure */</span></div>
<div class="line"><a name="l08949"></a><span class="lineno"> 8949</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l08950"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8603782009ff58be0587ea58013b3e52"> 8950</a></span>  v = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a529f12882653441f32d5970570209660">ip_invoke_core</a>(interp, argc, av);</div>
<div class="line"><a name="l08951"></a><span class="lineno"> 8951</span> </div>
<div class="line"><a name="l08952"></a><span class="lineno"> 8952</span>  <span class="comment">/* free allocated memory */</span></div>
<div class="line"><a name="l08953"></a><span class="lineno"> 8953</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#abb7d289e90986781b8e52fad35ec7870">free_invoke_arguments</a>(argc, av);</div>
<div class="line"><a name="l08954"></a><span class="lineno"> 8954</span> </div>
<div class="line"><a name="l08955"></a><span class="lineno"> 8955</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#a8603782009ff58be0587ea58013b3e52">v</a>;</div>
<div class="line"><a name="l08956"></a><span class="lineno"> 8956</span> }</div>
<div class="line"><a name="l08957"></a><span class="lineno"> 8957</span> </div>
<div class="line"><a name="l08958"></a><span class="lineno"> 8958</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l08959"></a><span class="lineno"> 8959</span> ivq_safelevel_handler(arg, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a66b2e11a163a07a00b3bb6b55ef82d7f">ivq</a>)</div>
<div class="line"><a name="l08960"></a><span class="lineno"> 8960</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> arg;</div>
<div class="line"><a name="l08961"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a66b2e11a163a07a00b3bb6b55ef82d7f"> 8961</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a66b2e11a163a07a00b3bb6b55ef82d7f">ivq</a>;</div>
<div class="line"><a name="l08962"></a><span class="lineno"> 8962</span> {</div>
<div class="line"><a name="l08963"></a><span class="lineno"> 8963</span>  <span class="keyword">struct </span><a class="code" href="../../df/d4d/structinvoke__queue.html">invoke_queue</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#af30877db2cb29106639acfca6366c3d0">q</a>;</div>
<div class="line"><a name="l08964"></a><span class="lineno"> 8964</span> </div>
<div class="line"><a name="l08965"></a><span class="lineno"> 8965</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad043eb0996705571cad2e5bb39e9675e">Data_Get_Struct</a>(ivq, <span class="keyword">struct</span> <a class="code" href="../../df/d4d/structinvoke__queue.html">invoke_queue</a>, q);</div>
<div class="line"><a name="l08966"></a><span class="lineno"> 8966</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"(safe-level handler) $SAFE = %d"</span>, q-><a class="code" href="../../df/d4d/structinvoke__queue.html#a1e0eb15cc652633f1883bf1328502f59">safe_level</a>);</div>
<div class="line"><a name="l08967"></a><span class="lineno"> 8967</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac95c385910a0bb5f780fb6545d83d881">rb_set_safe_level</a>(q-><a class="code" href="../../df/d4d/structinvoke__queue.html#a1e0eb15cc652633f1883bf1328502f59">safe_level</a>);</div>
<div class="line"><a name="l08968"></a><span class="lineno"> 8968</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a529f12882653441f32d5970570209660">ip_invoke_core</a>(q-><a class="code" href="../../df/d4d/structinvoke__queue.html#acf486aed957a1768a4a80a7a057912df">interp</a>, q-><a class="code" href="../../df/d4d/structinvoke__queue.html#ae4660ad198c2f6d21644bb0b4a7748e5">argc</a>, q-><a class="code" href="../../df/d4d/structinvoke__queue.html#ac0582b14336179bccf0217d3d7200063">argv</a>);</div>
<div class="line"><a name="l08969"></a><span class="lineno"> 8969</span> }</div>
<div class="line"><a name="l08970"></a><span class="lineno"> 8970</span> </div>
<div class="line"><a name="l08971"></a><span class="lineno"> 8971</span> <span class="keywordtype">int</span> invoke_queue_handler <a class="code" href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a>((Tcl_Event *, <span class="keywordtype">int</span>));</div>
<div class="line"><a name="l08972"></a><span class="lineno"> 8972</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l08973"></a><span class="lineno"> 8973</span> invoke_queue_handler(evPtr, flags)</div>
<div class="line"><a name="l08974"></a><span class="lineno"> 8974</span>  Tcl_Event *evPtr;</div>
<div class="line"><a name="l08975"></a><span class="lineno"> 8975</span>  <span class="keywordtype">int</span> flags;</div>
<div class="line"><a name="l08976"></a><span class="lineno"> 8976</span> {</div>
<div class="line"><a name="l08977"></a><span class="lineno"> 8977</span>  <span class="keyword">struct </span><a class="code" href="../../df/d4d/structinvoke__queue.html">invoke_queue</a> *q = (<span class="keyword">struct </span><a class="code" href="../../df/d4d/structinvoke__queue.html">invoke_queue</a> *)evPtr;</div>
<div class="line"><a name="l08978"></a><span class="lineno"> 8978</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l08979"></a><span class="lineno"> 8979</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aec8cfb70e9afe46b1d53416919b25f07">q_dat</a>;</div>
<div class="line"><a name="l08980"></a><span class="lineno"> 8980</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> thread = q-><a class="code" href="../../df/d4d/structinvoke__queue.html#adb618602021c5bdf5f6d973eefc7b983">thread</a>;</div>
<div class="line"><a name="l08981"></a><span class="lineno"> 8981</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>;</div>
<div class="line"><a name="l08982"></a><span class="lineno"> 8982</span> </div>
<div class="line"><a name="l08983"></a><span class="lineno"> 8983</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"do_invoke_queue_handler : evPtr = %p"</span>, evPtr);</div>
<div class="line"><a name="l08984"></a><span class="lineno"> 8984</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"invoke queue_thread : %lx"</span>, <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>());</div>
<div class="line"><a name="l08985"></a><span class="lineno"> 8985</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"added by thread : %lx"</span>, thread);</div>
<div class="line"><a name="l08986"></a><span class="lineno"> 8986</span> </div>
<div class="line"><a name="l08987"></a><span class="lineno"> 8987</span>  <span class="keywordflow">if</span> (*(q-><a class="code" href="../../df/d4d/structinvoke__queue.html#a7e8a38587f5a0a3177d86c3d0abba76f">done</a>)) {</div>
<div class="line"><a name="l08988"></a><span class="lineno"> 8988</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"processed by another event-loop"</span>);</div>
<div class="line"><a name="l08989"></a><span class="lineno"> 8989</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l08990"></a><span class="lineno"> 8990</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l08991"></a><span class="lineno"> 8991</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"process it on current event-loop"</span>);</div>
<div class="line"><a name="l08992"></a><span class="lineno"> 8992</span>  }</div>
<div class="line"><a name="l08993"></a><span class="lineno"> 8993</span> </div>
<div class="line"><a name="l08994"></a><span class="lineno"> 8994</span> <span class="preprocessor">#ifdef RUBY_VM</span></div>
<div class="line"><a name="l08995"></a><span class="lineno"> 8995</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(thread, ID_alive_p, 0))</div>
<div class="line"><a name="l08996"></a><span class="lineno"> 8996</span>  && ! <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(thread, ID_stop_p, 0))) {</div>
<div class="line"><a name="l08997"></a><span class="lineno"> 8997</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l08998"></a><span class="lineno"> 8998</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d3/de7/thread_8c.html#a5b8ec82e1846eadcb0e0e97803ff7520">rb_thread_alive_p</a>(thread))</div>
<div class="line"><a name="l08999"></a><span class="lineno"> 8999</span>  && ! <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(thread, ID_stop_p, 0))) {</div>
<div class="line"><a name="l09000"></a><span class="lineno"> 9000</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09001"></a><span class="lineno"> 9001</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"caller is not yet ready to receive the result -> pending"</span>);</div>
<div class="line"><a name="l09002"></a><span class="lineno"> 9002</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l09003"></a><span class="lineno"> 9003</span>  }</div>
<div class="line"><a name="l09004"></a><span class="lineno"> 9004</span> </div>
<div class="line"><a name="l09005"></a><span class="lineno"> 9005</span>  <span class="comment">/* process it */</span></div>
<div class="line"><a name="l09006"></a><span class="lineno"> 9006</span>  *(q-><a class="code" href="../../df/d4d/structinvoke__queue.html#a7e8a38587f5a0a3177d86c3d0abba76f">done</a>) = 1;</div>
<div class="line"><a name="l09007"></a><span class="lineno"> 9007</span> </div>
<div class="line"><a name="l09008"></a><span class="lineno"> 9008</span>  <span class="comment">/* deleted ipterp ? */</span></div>
<div class="line"><a name="l09009"></a><span class="lineno"> 9009</span>  ptr = get_ip(q-><a class="code" href="../../df/d4d/structinvoke__queue.html#acf486aed957a1768a4a80a7a057912df">interp</a>);</div>
<div class="line"><a name="l09010"></a><span class="lineno"> 9010</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l09011"></a><span class="lineno"> 9011</span>  <span class="comment">/* deleted IP --> ignore */</span></div>
<div class="line"><a name="l09012"></a><span class="lineno"> 9012</span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l09013"></a><span class="lineno"> 9013</span>  }</div>
<div class="line"><a name="l09014"></a><span class="lineno"> 9014</span> </div>
<div class="line"><a name="l09015"></a><span class="lineno"> 9015</span>  <span class="comment">/* incr internal handler mark */</span></div>
<div class="line"><a name="l09016"></a><span class="lineno"> 9016</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5a8aea48ba7305a384fdd8f56ca97d73">rbtk_internal_eventloop_handler</a>++;</div>
<div class="line"><a name="l09017"></a><span class="lineno"> 9017</span> </div>
<div class="line"><a name="l09018"></a><span class="lineno"> 9018</span>  <span class="comment">/* check safe-level */</span></div>
<div class="line"><a name="l09019"></a><span class="lineno"> 9019</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f520624fabb8332dc98fd223491bf8d">rb_safe_level</a>() != q-><a class="code" href="../../df/d4d/structinvoke__queue.html#a1e0eb15cc652633f1883bf1328502f59">safe_level</a>) {</div>
<div class="line"><a name="l09020"></a><span class="lineno"> 9020</span>  <span class="comment">/* q_dat = Data_Wrap_Struct(rb_cData,0,0,q); */</span></div>
<div class="line"><a name="l09021"></a><span class="lineno"> 9021</span>  q_dat = <a class="code" href="../../d5/d9d/tcltklib_8c.html#acdb411cfd8a6dcce9a04494c66ea91fb">Data_Wrap_Struct</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a39cf94183e6d744167ae5f6a7bde0363">rb_cData</a>,<a class="code" href="../../d5/d9d/tcltklib_8c.html#a86e277d5b14e9afcd73cb7cfd3d9a53b">invoke_queue_mark</a>,-1,q);</div>
<div class="line"><a name="l09022"></a><span class="lineno"> 9022</span>  ret = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(<a class="code" href="../../db/d2e/intern_8h.html#a8a4a55d3f2ed6d9ece055553e48755d5">rb_proc_new</a>(ivq_safelevel_handler, q_dat),</div>
<div class="line"><a name="l09023"></a><span class="lineno"> 9023</span>  ID_call, 0);</div>
<div class="line"><a name="l09024"></a><span class="lineno"> 9024</span>  <a class="code" href="../../d8/d16/gc_8c.html#a53016811c87ff4c3ea839c9e85a9a9a4">rb_gc_force_recycle</a>(q_dat);</div>
<div class="line"><a name="l09025"></a><span class="lineno"> 9025</span>  q_dat = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)NULL;</div>
<div class="line"><a name="l09026"></a><span class="lineno"> 9026</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l09027"></a><span class="lineno"> 9027</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"call invoke_real (for caller thread:%lx)"</span>, thread);</div>
<div class="line"><a name="l09028"></a><span class="lineno"> 9028</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"call invoke_real (current thread:%lx)"</span>, <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>());</div>
<div class="line"><a name="l09029"></a><span class="lineno"> 9029</span>  ret = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a529f12882653441f32d5970570209660">ip_invoke_core</a>(q-><a class="code" href="../../df/d4d/structinvoke__queue.html#acf486aed957a1768a4a80a7a057912df">interp</a>, q-><a class="code" href="../../df/d4d/structinvoke__queue.html#ae4660ad198c2f6d21644bb0b4a7748e5">argc</a>, q-><a class="code" href="../../df/d4d/structinvoke__queue.html#ac0582b14336179bccf0217d3d7200063">argv</a>);</div>
<div class="line"><a name="l09030"></a><span class="lineno"> 9030</span>  }</div>
<div class="line"><a name="l09031"></a><span class="lineno"> 9031</span> </div>
<div class="line"><a name="l09032"></a><span class="lineno"> 9032</span>  <span class="comment">/* set result */</span></div>
<div class="line"><a name="l09033"></a><span class="lineno"> 9033</span>  <a class="code" href="../../d8/df4/generator_8h.html#abb794fe2d7c73eea87e7ba2273939a8e">RARRAY_PTR</a>(q-><a class="code" href="../../df/d4d/structinvoke__queue.html#a3ee770c57941395252ce8a0673d40914">result</a>)[0] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l09034"></a><span class="lineno"> 9034</span>  ret = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)NULL;</div>
<div class="line"><a name="l09035"></a><span class="lineno"> 9035</span> </div>
<div class="line"><a name="l09036"></a><span class="lineno"> 9036</span>  <span class="comment">/* decr internal handler mark */</span></div>
<div class="line"><a name="l09037"></a><span class="lineno"> 9037</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5a8aea48ba7305a384fdd8f56ca97d73">rbtk_internal_eventloop_handler</a>--;</div>
<div class="line"><a name="l09038"></a><span class="lineno"> 9038</span> </div>
<div class="line"><a name="l09039"></a><span class="lineno"> 9039</span>  <span class="comment">/* complete */</span></div>
<div class="line"><a name="l09040"></a><span class="lineno"> 9040</span>  *(q-><a class="code" href="../../df/d4d/structinvoke__queue.html#a7e8a38587f5a0a3177d86c3d0abba76f">done</a>) = -1;</div>
<div class="line"><a name="l09041"></a><span class="lineno"> 9041</span> </div>
<div class="line"><a name="l09042"></a><span class="lineno"> 9042</span>  <span class="comment">/* unlink ruby objects */</span></div>
<div class="line"><a name="l09043"></a><span class="lineno"> 9043</span>  q-><a class="code" href="../../df/d4d/structinvoke__queue.html#acf486aed957a1768a4a80a7a057912df">interp</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)NULL;</div>
<div class="line"><a name="l09044"></a><span class="lineno"> 9044</span>  q-><a class="code" href="../../df/d4d/structinvoke__queue.html#a3ee770c57941395252ce8a0673d40914">result</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)NULL;</div>
<div class="line"><a name="l09045"></a><span class="lineno"> 9045</span>  q-><a class="code" href="../../df/d4d/structinvoke__queue.html#adb618602021c5bdf5f6d973eefc7b983">thread</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a>)NULL;</div>
<div class="line"><a name="l09046"></a><span class="lineno"> 9046</span> </div>
<div class="line"><a name="l09047"></a><span class="lineno"> 9047</span>  <span class="comment">/* back to caller */</span></div>
<div class="line"><a name="l09048"></a><span class="lineno"> 9048</span> <span class="preprocessor">#ifdef RUBY_VM</span></div>
<div class="line"><a name="l09049"></a><span class="lineno"> 9049</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(thread, ID_alive_p, 0, 0))) {</div>
<div class="line"><a name="l09050"></a><span class="lineno"> 9050</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l09051"></a><span class="lineno"> 9051</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d3/de7/thread_8c.html#a5b8ec82e1846eadcb0e0e97803ff7520">rb_thread_alive_p</a>(thread))) {</div>
<div class="line"><a name="l09052"></a><span class="lineno"> 9052</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09053"></a><span class="lineno"> 9053</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"back to caller (caller thread:%lx)"</span>, thread);</div>
<div class="line"><a name="l09054"></a><span class="lineno"> 9054</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">" (current thread:%lx)"</span>, <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>());</div>
<div class="line"><a name="l09055"></a><span class="lineno"> 9055</span> <span class="preprocessor">#if CONTROL_BY_STATUS_OF_RB_THREAD_WAITING_FOR_VALUE</span></div>
<div class="line"><a name="l09056"></a><span class="lineno"> 9056</span> <span class="preprocessor"></span> have_rb_thread_waiting_for_value = 1;</div>
<div class="line"><a name="l09057"></a><span class="lineno"> 9057</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1c6c386b417e79a679ef583c543e411f">rb_thread_wakeup</a>(thread);</div>
<div class="line"><a name="l09058"></a><span class="lineno"> 9058</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l09059"></a><span class="lineno"> 9059</span> <span class="preprocessor"></span> <a class="code" href="../../db/d2e/intern_8h.html#a466749a3498fa8fbb48f7fc783a7cf34">rb_thread_run</a>(thread);</div>
<div class="line"><a name="l09060"></a><span class="lineno"> 9060</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09061"></a><span class="lineno"> 9061</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"finish back to caller"</span>);</div>
<div class="line"><a name="l09062"></a><span class="lineno"> 9062</span> <span class="preprocessor">#if DO_THREAD_SCHEDULE_AT_CALLBACK_DONE</span></div>
<div class="line"><a name="l09063"></a><span class="lineno"> 9063</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a032996d6998bbda639fe14f370a70f6d">rb_thread_schedule</a>();</div>
<div class="line"><a name="l09064"></a><span class="lineno"> 9064</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09065"></a><span class="lineno"> 9065</span> <span class="preprocessor"></span> } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l09066"></a><span class="lineno"> 9066</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"caller is dead (caller thread:%lx)"</span>, thread);</div>
<div class="line"><a name="l09067"></a><span class="lineno"> 9067</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">" (current thread:%lx)"</span>, <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>());</div>
<div class="line"><a name="l09068"></a><span class="lineno"> 9068</span>  }</div>
<div class="line"><a name="l09069"></a><span class="lineno"> 9069</span> </div>
<div class="line"><a name="l09070"></a><span class="lineno"> 9070</span>  <span class="comment">/* end of handler : remove it */</span></div>
<div class="line"><a name="l09071"></a><span class="lineno"> 9071</span>  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l09072"></a><span class="lineno"> 9072</span> }</div>
<div class="line"><a name="l09073"></a><span class="lineno"> 9073</span> </div>
<div class="line"><a name="l09074"></a><span class="lineno"> 9074</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09075"></a><span class="lineno"> 9075</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4e91b9e886dae0d01fd4bafde08e24fd">ip_invoke_with_position</a>(argc, argv, obj, position)</div>
<div class="line"><a name="l09076"></a><span class="lineno"> 9076</span>  int argc;</div>
<div class="line"><a name="l09077"></a><span class="lineno"> 9077</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l09078"></a><span class="lineno"> 9078</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> obj;</div>
<div class="line"><a name="l09079"></a><span class="lineno"> 9079</span>  Tcl_QueuePosition position;</div>
<div class="line"><a name="l09080"></a><span class="lineno"> 9080</span> {</div>
<div class="line"><a name="l09081"></a><span class="lineno"> 9081</span>  <span class="keyword">struct </span><a class="code" href="../../df/d4d/structinvoke__queue.html">invoke_queue</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a66b2e11a163a07a00b3bb6b55ef82d7f">ivq</a>;</div>
<div class="line"><a name="l09082"></a><span class="lineno"> 9082</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l09083"></a><span class="lineno"> 9083</span> <span class="preprocessor"></span> <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>;</div>
<div class="line"><a name="l09084"></a><span class="lineno"> 9084</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09085"></a><span class="lineno"> 9085</span> <span class="preprocessor"></span> <span class="keywordtype">int</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8153d6aa187352242ba173695c08e8c">alloc_done</a>;</div>
<div class="line"><a name="l09086"></a><span class="lineno"> 9086</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09087"></a><span class="lineno"> 9087</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> current = <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>();</div>
<div class="line"><a name="l09088"></a><span class="lineno"> 9088</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> ip_obj = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aea4012fb11c03c5c1b1fe5399e95342f">obj</a>;</div>
<div class="line"><a name="l09089"></a><span class="lineno"> 9089</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae6cf673d09a03d1dfd71928b32d95161">result</a>;</div>
<div class="line"><a name="l09090"></a><span class="lineno"> 9090</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l09091"></a><span class="lineno"> 9091</span>  <span class="keyword">struct </span><a class="code" href="../../d1/d1b/structtimeval.html">timeval</a> t;</div>
<div class="line"><a name="l09092"></a><span class="lineno"> 9092</span> </div>
<div class="line"><a name="l09093"></a><span class="lineno"> 9093</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l09094"></a><span class="lineno"> 9094</span> <span class="preprocessor"></span> Tcl_Obj **av = (Tcl_Obj **)NULL;</div>
<div class="line"><a name="l09095"></a><span class="lineno"> 9095</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09096"></a><span class="lineno"> 9096</span> <span class="preprocessor"></span> <span class="keywordtype">char</span> **av = (<span class="keywordtype">char</span> **)NULL;</div>
<div class="line"><a name="l09097"></a><span class="lineno"> 9097</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09098"></a><span class="lineno"> 9098</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l09099"></a><span class="lineno"> 9099</span>  <span class="keywordflow">if</span> (argc < 1) {</div>
<div class="line"><a name="l09100"></a><span class="lineno"> 9100</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"command name missing"</span>);</div>
<div class="line"><a name="l09101"></a><span class="lineno"> 9101</span>  }</div>
<div class="line"><a name="l09102"></a><span class="lineno"> 9102</span> </div>
<div class="line"><a name="l09103"></a><span class="lineno"> 9103</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l09104"></a><span class="lineno"> 9104</span> <span class="preprocessor"></span> ptr = get_ip(ip_obj);</div>
<div class="line"><a name="l09105"></a><span class="lineno"> 9105</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"invoke status: ptr->tk_thread_id %p"</span>, ptr->tk_thread_id);</div>
<div class="line"><a name="l09106"></a><span class="lineno"> 9106</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"invoke status: Tcl_GetCurrentThread %p"</span>, Tcl_GetCurrentThread());</div>
<div class="line"><a name="l09107"></a><span class="lineno"> 9107</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l09108"></a><span class="lineno"> 9108</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"status: Tcl_GetCurrentThread %p"</span>, Tcl_GetCurrentThread());</div>
<div class="line"><a name="l09109"></a><span class="lineno"> 9109</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09110"></a><span class="lineno"> 9110</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"status: eventloopt_thread %lx"</span>, eventloop_thread);</div>
<div class="line"><a name="l09111"></a><span class="lineno"> 9111</span> </div>
<div class="line"><a name="l09112"></a><span class="lineno"> 9112</span>  <span class="keywordflow">if</span> (</div>
<div class="line"><a name="l09113"></a><span class="lineno"> 9113</span> #ifdef RUBY_USE_NATIVE_THREAD</div>
<div class="line"><a name="l09114"></a><span class="lineno"> 9114</span>  (ptr->tk_thread_id == 0 || ptr->tk_thread_id == Tcl_GetCurrentThread())</div>
<div class="line"><a name="l09115"></a><span class="lineno"> 9115</span>  &&</div>
<div class="line"><a name="l09116"></a><span class="lineno"> 9116</span> #endif</div>
<div class="line"><a name="l09117"></a><span class="lineno"> 9117</span>  (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread) || current == eventloop_thread)</div>
<div class="line"><a name="l09118"></a><span class="lineno"> 9118</span>  ) {</div>
<div class="line"><a name="l09119"></a><span class="lineno"> 9119</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread)) {</div>
<div class="line"><a name="l09120"></a><span class="lineno"> 9120</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"invoke from thread:%lx but no eventloop"</span>, current);</div>
<div class="line"><a name="l09121"></a><span class="lineno"> 9121</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l09122"></a><span class="lineno"> 9122</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"invoke from current eventloop %lx"</span>, current);</div>
<div class="line"><a name="l09123"></a><span class="lineno"> 9123</span>  }</div>
<div class="line"><a name="l09124"></a><span class="lineno"> 9124</span>  result = ip_invoke_real(argc, argv, ip_obj);</div>
<div class="line"><a name="l09125"></a><span class="lineno"> 9125</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(result, <a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>)) {</div>
<div class="line"><a name="l09126"></a><span class="lineno"> 9126</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(result);</div>
<div class="line"><a name="l09127"></a><span class="lineno"> 9127</span>  }</div>
<div class="line"><a name="l09128"></a><span class="lineno"> 9128</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae6cf673d09a03d1dfd71928b32d95161">result</a>;</div>
<div class="line"><a name="l09129"></a><span class="lineno"> 9129</span>  }</div>
<div class="line"><a name="l09130"></a><span class="lineno"> 9130</span> </div>
<div class="line"><a name="l09131"></a><span class="lineno"> 9131</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"invoke from thread %lx (NOT current eventloop)"</span>, current);</div>
<div class="line"><a name="l09132"></a><span class="lineno"> 9132</span> </div>
<div class="line"><a name="l09133"></a><span class="lineno"> 9133</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l09134"></a><span class="lineno"> 9134</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l09135"></a><span class="lineno"> 9135</span> </div>
<div class="line"><a name="l09136"></a><span class="lineno"> 9136</span>  <span class="comment">/* allocate memory (for arguments) */</span></div>
<div class="line"><a name="l09137"></a><span class="lineno"> 9137</span>  av = alloc_invoke_arguments(argc, argv);</div>
<div class="line"><a name="l09138"></a><span class="lineno"> 9138</span> </div>
<div class="line"><a name="l09139"></a><span class="lineno"> 9139</span>  <span class="comment">/* allocate memory (keep result) */</span></div>
<div class="line"><a name="l09140"></a><span class="lineno"> 9140</span>  <span class="comment">/* alloc_done = (int*)ALLOC(int); */</span></div>
<div class="line"><a name="l09141"></a><span class="lineno"> 9141</span>  alloc_done = (<span class="keywordtype">int</span>*)ckalloc(<span class="keyword">sizeof</span>(<span class="keywordtype">int</span>));</div>
<div class="line"><a name="l09142"></a><span class="lineno"> 9142</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09143"></a><span class="lineno"> 9143</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)alloc_done); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l09144"></a><span class="lineno"> 9144</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09145"></a><span class="lineno"> 9145</span> <span class="preprocessor"></span> *alloc_done = 0;</div>
<div class="line"><a name="l09146"></a><span class="lineno"> 9146</span> </div>
<div class="line"><a name="l09147"></a><span class="lineno"> 9147</span>  <span class="comment">/* allocate memory (freed by Tcl_ServiceEvent) */</span></div>
<div class="line"><a name="l09148"></a><span class="lineno"> 9148</span>  <span class="comment">/* ivq = (struct invoke_queue *)Tcl_Alloc(sizeof(struct invoke_queue)); */</span></div>
<div class="line"><a name="l09149"></a><span class="lineno"> 9149</span>  ivq = (<span class="keyword">struct </span><a class="code" href="../../df/d4d/structinvoke__queue.html">invoke_queue</a> *)ckalloc(<span class="keyword">sizeof</span>(<span class="keyword">struct</span> <a class="code" href="../../df/d4d/structinvoke__queue.html">invoke_queue</a>));</div>
<div class="line"><a name="l09150"></a><span class="lineno"> 9150</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09151"></a><span class="lineno"> 9151</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)ivq); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l09152"></a><span class="lineno"> 9152</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09153"></a><span class="lineno"> 9153</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l09154"></a><span class="lineno"> 9154</span>  <span class="comment">/* allocate result obj */</span></div>
<div class="line"><a name="l09155"></a><span class="lineno"> 9155</span>  result = <a class="code" href="../../dc/dcc/array_8c.html#a8317ecd6a0abb5ad08c50c732f30059b">rb_ary_new3</a>(1, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>);</div>
<div class="line"><a name="l09156"></a><span class="lineno"> 9156</span> </div>
<div class="line"><a name="l09157"></a><span class="lineno"> 9157</span>  <span class="comment">/* construct event data */</span></div>
<div class="line"><a name="l09158"></a><span class="lineno"> 9158</span>  ivq-><a class="code" href="../../df/d4d/structinvoke__queue.html#a7e8a38587f5a0a3177d86c3d0abba76f">done</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8153d6aa187352242ba173695c08e8c">alloc_done</a>;</div>
<div class="line"><a name="l09159"></a><span class="lineno"> 9159</span>  ivq-><a class="code" href="../../df/d4d/structinvoke__queue.html#ae4660ad198c2f6d21644bb0b4a7748e5">argc</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>;</div>
<div class="line"><a name="l09160"></a><span class="lineno"> 9160</span>  ivq-><a class="code" href="../../df/d4d/structinvoke__queue.html#ac0582b14336179bccf0217d3d7200063">argv</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8cd7164f2640dea1db77112b05a8b12b">av</a>;</div>
<div class="line"><a name="l09161"></a><span class="lineno"> 9161</span>  ivq-><a class="code" href="../../df/d4d/structinvoke__queue.html#acf486aed957a1768a4a80a7a057912df">interp</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#abff803ed7da8eaf63b872306fe238d97">ip_obj</a>;</div>
<div class="line"><a name="l09162"></a><span class="lineno"> 9162</span>  ivq-><a class="code" href="../../df/d4d/structinvoke__queue.html#a3ee770c57941395252ce8a0673d40914">result</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae6cf673d09a03d1dfd71928b32d95161">result</a>;</div>
<div class="line"><a name="l09163"></a><span class="lineno"> 9163</span>  ivq-><a class="code" href="../../df/d4d/structinvoke__queue.html#adb618602021c5bdf5f6d973eefc7b983">thread</a> = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#a711673dea8d1c623bad6447fee9dd1eb">current</a>;</div>
<div class="line"><a name="l09164"></a><span class="lineno"> 9164</span>  ivq-><a class="code" href="../../df/d4d/structinvoke__queue.html#a1e0eb15cc652633f1883bf1328502f59">safe_level</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f520624fabb8332dc98fd223491bf8d">rb_safe_level</a>();</div>
<div class="line"><a name="l09165"></a><span class="lineno"> 9165</span>  ivq-><a class="code" href="../../df/d4d/structinvoke__queue.html#a2edeceb4f3e91cbae69b763b99c2c225">ev</a>.proc = invoke_queue_handler;</div>
<div class="line"><a name="l09166"></a><span class="lineno"> 9166</span> </div>
<div class="line"><a name="l09167"></a><span class="lineno"> 9167</span>  <span class="comment">/* add the handler to Tcl event queue */</span></div>
<div class="line"><a name="l09168"></a><span class="lineno"> 9168</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"add handler"</span>);</div>
<div class="line"><a name="l09169"></a><span class="lineno"> 9169</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div>
<div class="line"><a name="l09170"></a><span class="lineno"> 9170</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (ptr->tk_thread_id) {</div>
<div class="line"><a name="l09171"></a><span class="lineno"> 9171</span>  <span class="comment">/* Tcl_ThreadQueueEvent(ptr->tk_thread_id, &(ivq->ev), position); */</span></div>
<div class="line"><a name="l09172"></a><span class="lineno"> 9172</span>  Tcl_ThreadQueueEvent(ptr->tk_thread_id, (Tcl_Event*)ivq, position);</div>
<div class="line"><a name="l09173"></a><span class="lineno"> 9173</span>  Tcl_ThreadAlert(ptr->tk_thread_id);</div>
<div class="line"><a name="l09174"></a><span class="lineno"> 9174</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (tk_eventloop_thread_id) {</div>
<div class="line"><a name="l09175"></a><span class="lineno"> 9175</span>  <span class="comment">/* Tcl_ThreadQueueEvent(tk_eventloop_thread_id,</span></div>
<div class="line"><a name="l09176"></a><span class="lineno"> 9176</span> <span class="comment"> &(ivq->ev), position); */</span></div>
<div class="line"><a name="l09177"></a><span class="lineno"> 9177</span>  Tcl_ThreadQueueEvent(tk_eventloop_thread_id,</div>
<div class="line"><a name="l09178"></a><span class="lineno"> 9178</span>  (Tcl_Event*)ivq, position);</div>
<div class="line"><a name="l09179"></a><span class="lineno"> 9179</span>  Tcl_ThreadAlert(tk_eventloop_thread_id);</div>
<div class="line"><a name="l09180"></a><span class="lineno"> 9180</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l09181"></a><span class="lineno"> 9181</span>  <span class="comment">/* Tcl_QueueEvent(&(ivq->ev), position); */</span></div>
<div class="line"><a name="l09182"></a><span class="lineno"> 9182</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac215bbef6f867043f5072c1997a47557">Tcl_QueueEvent</a>((Tcl_Event*)ivq, position);</div>
<div class="line"><a name="l09183"></a><span class="lineno"> 9183</span>  }</div>
<div class="line"><a name="l09184"></a><span class="lineno"> 9184</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l09185"></a><span class="lineno"> 9185</span> <span class="preprocessor"></span> <span class="comment">/* Tcl_QueueEvent(&(ivq->ev), position); */</span></div>
<div class="line"><a name="l09186"></a><span class="lineno"> 9186</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac215bbef6f867043f5072c1997a47557">Tcl_QueueEvent</a>((Tcl_Event*)ivq, position);</div>
<div class="line"><a name="l09187"></a><span class="lineno"> 9187</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09188"></a><span class="lineno"> 9188</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l09189"></a><span class="lineno"> 9189</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09190"></a><span class="lineno"> 9190</span> </div>
<div class="line"><a name="l09191"></a><span class="lineno"> 9191</span>  <span class="comment">/* wait for the handler to be processed */</span></div>
<div class="line"><a name="l09192"></a><span class="lineno"> 9192</span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#a3599199839a89e99a2ce29d45312b5cf">tv_sec</a> = 0;</div>
<div class="line"><a name="l09193"></a><span class="lineno"> 9193</span>  t.<a class="code" href="../../d1/d1b/structtimeval.html#aa8396731f2914f9ed2a457d3da602b80">tv_usec</a> = (<a class="code" href="../../d3/d15/name2ctype_8h.html#a86f2415763322050063a5502f87c9422">long</a>)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd2530678e6262a587dd99dedeb053b">EVENT_HANDLER_TIMEOUT</a>)*1000.0);</div>
<div class="line"><a name="l09194"></a><span class="lineno"> 9194</span> </div>
<div class="line"><a name="l09195"></a><span class="lineno"> 9195</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"ivq wait for handler (current thread:%lx)"</span>, current);</div>
<div class="line"><a name="l09196"></a><span class="lineno"> 9196</span>  <span class="keywordflow">while</span>(*alloc_done >= 0) {</div>
<div class="line"><a name="l09197"></a><span class="lineno"> 9197</span>  <span class="comment">/* rb_thread_stop(); */</span></div>
<div class="line"><a name="l09198"></a><span class="lineno"> 9198</span>  <span class="comment">/* rb_thread_sleep_forever(); */</span></div>
<div class="line"><a name="l09199"></a><span class="lineno"> 9199</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8a3ea241e062a8c0dcd87b7232ca4900">rb_thread_wait_for</a>(t);</div>
<div class="line"><a name="l09200"></a><span class="lineno"> 9200</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"*** ivq wakeup (current thread:%lx)"</span>, current);</div>
<div class="line"><a name="l09201"></a><span class="lineno"> 9201</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"*** (eventloop thread:%lx)"</span>, eventloop_thread);</div>
<div class="line"><a name="l09202"></a><span class="lineno"> 9202</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(eventloop_thread)) {</div>
<div class="line"><a name="l09203"></a><span class="lineno"> 9203</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"*** ivq lost eventloop thread"</span>);</div>
<div class="line"><a name="l09204"></a><span class="lineno"> 9204</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l09205"></a><span class="lineno"> 9205</span>  }</div>
<div class="line"><a name="l09206"></a><span class="lineno"> 9206</span>  }</div>
<div class="line"><a name="l09207"></a><span class="lineno"> 9207</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"back from handler (current thread:%lx)"</span>, current);</div>
<div class="line"><a name="l09208"></a><span class="lineno"> 9208</span> </div>
<div class="line"><a name="l09209"></a><span class="lineno"> 9209</span>  <span class="comment">/* get result & free allocated memory */</span></div>
<div class="line"><a name="l09210"></a><span class="lineno"> 9210</span>  ret = <a class="code" href="../../d8/df4/generator_8h.html#abb794fe2d7c73eea87e7ba2273939a8e">RARRAY_PTR</a>(result)[0];</div>
<div class="line"><a name="l09211"></a><span class="lineno"> 9211</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09212"></a><span class="lineno"> 9212</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)alloc_done, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l09213"></a><span class="lineno"> 9213</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l09214"></a><span class="lineno"> 9214</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09215"></a><span class="lineno"> 9215</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)alloc_done); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l09216"></a><span class="lineno"> 9216</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l09217"></a><span class="lineno"> 9217</span> <span class="preprocessor"></span> <span class="comment">/* free(alloc_done); */</span></div>
<div class="line"><a name="l09218"></a><span class="lineno"> 9218</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span>*)alloc_done);</div>
<div class="line"><a name="l09219"></a><span class="lineno"> 9219</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09220"></a><span class="lineno"> 9220</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09221"></a><span class="lineno"> 9221</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l09222"></a><span class="lineno"> 9222</span> <span class="preprocessor">#if 0 </span><span class="comment">/* ivq is freed by Tcl_ServiceEvent */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09223"></a><span class="lineno"> 9223</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09224"></a><span class="lineno"> 9224</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)ivq, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l09225"></a><span class="lineno"> 9225</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l09226"></a><span class="lineno"> 9226</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09227"></a><span class="lineno"> 9227</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>(ivq);</div>
<div class="line"><a name="l09228"></a><span class="lineno"> 9228</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l09229"></a><span class="lineno"> 9229</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span>*)ivq);</div>
<div class="line"><a name="l09230"></a><span class="lineno"> 9230</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09231"></a><span class="lineno"> 9231</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09232"></a><span class="lineno"> 9232</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09233"></a><span class="lineno"> 9233</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l09234"></a><span class="lineno"> 9234</span>  <span class="comment">/* free allocated memory */</span></div>
<div class="line"><a name="l09235"></a><span class="lineno"> 9235</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#abb7d289e90986781b8e52fad35ec7870">free_invoke_arguments</a>(argc, av);</div>
<div class="line"><a name="l09236"></a><span class="lineno"> 9236</span> </div>
<div class="line"><a name="l09237"></a><span class="lineno"> 9237</span>  <span class="comment">/* exception? */</span></div>
<div class="line"><a name="l09238"></a><span class="lineno"> 9238</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(ret, <a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>)) {</div>
<div class="line"><a name="l09239"></a><span class="lineno"> 9239</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"raise exception"</span>);</div>
<div class="line"><a name="l09240"></a><span class="lineno"> 9240</span>  <span class="comment">/* rb_exc_raise(ret); */</span></div>
<div class="line"><a name="l09241"></a><span class="lineno"> 9241</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a4989eeb5742cad6359a2ed77859674de">rb_exc_new3</a>(<a class="code" href="../../db/d2e/intern_8h.html#ac2be7243e739fa8f5dce6be0c8ee5f6d">rb_obj_class</a>(ret),</div>
<div class="line"><a name="l09242"></a><span class="lineno"> 9242</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(ret, ID_to_s, 0, 0)));</div>
<div class="line"><a name="l09243"></a><span class="lineno"> 9243</span>  }</div>
<div class="line"><a name="l09244"></a><span class="lineno"> 9244</span> </div>
<div class="line"><a name="l09245"></a><span class="lineno"> 9245</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"exit ip_invoke"</span>);</div>
<div class="line"><a name="l09246"></a><span class="lineno"> 9246</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l09247"></a><span class="lineno"> 9247</span> }</div>
<div class="line"><a name="l09248"></a><span class="lineno"> 9248</span> </div>
<div class="line"><a name="l09249"></a><span class="lineno"> 9249</span> </div>
<div class="line"><a name="l09250"></a><span class="lineno"> 9250</span> <span class="comment">/* get return code from Tcl_Eval() */</span></div>
<div class="line"><a name="l09251"></a><span class="lineno"> 9251</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09252"></a><span class="lineno"> 9252</span> ip_retval(<span class="keyword">self</span>)</div>
<div class="line"><a name="l09253"></a><span class="lineno"> 9253</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l09254"></a><span class="lineno"> 9254</span> {</div>
<div class="line"><a name="l09255"></a><span class="lineno"> 9255</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>; <span class="comment">/* tcltkip data struct */</span></div>
<div class="line"><a name="l09256"></a><span class="lineno"> 9256</span> </div>
<div class="line"><a name="l09257"></a><span class="lineno"> 9257</span>  <span class="comment">/* get the data strcut */</span></div>
<div class="line"><a name="l09258"></a><span class="lineno"> 9258</span>  ptr = get_ip(<span class="keyword">self</span>);</div>
<div class="line"><a name="l09259"></a><span class="lineno"> 9259</span> </div>
<div class="line"><a name="l09260"></a><span class="lineno"> 9260</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l09261"></a><span class="lineno"> 9261</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l09262"></a><span class="lineno"> 9262</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l09263"></a><span class="lineno"> 9263</span>  }</div>
<div class="line"><a name="l09264"></a><span class="lineno"> 9264</span> </div>
<div class="line"><a name="l09265"></a><span class="lineno"> 9265</span>  <span class="keywordflow">return</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a>));</div>
<div class="line"><a name="l09266"></a><span class="lineno"> 9266</span> }</div>
<div class="line"><a name="l09267"></a><span class="lineno"> 9267</span> </div>
<div class="line"><a name="l09268"></a><span class="lineno"> 9268</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09269"></a><span class="lineno"> 9269</span> ip_invoke(argc, argv, obj)</div>
<div class="line"><a name="l09270"></a><span class="lineno"> 9270</span>  int argc;</div>
<div class="line"><a name="l09271"></a><span class="lineno"> 9271</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l09272"></a><span class="lineno"> 9272</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> obj;</div>
<div class="line"><a name="l09273"></a><span class="lineno"> 9273</span> {</div>
<div class="line"><a name="l09274"></a><span class="lineno"> 9274</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4e91b9e886dae0d01fd4bafde08e24fd">ip_invoke_with_position</a>(argc, argv, obj, TCL_QUEUE_TAIL);</div>
<div class="line"><a name="l09275"></a><span class="lineno"> 9275</span> }</div>
<div class="line"><a name="l09276"></a><span class="lineno"> 9276</span> </div>
<div class="line"><a name="l09277"></a><span class="lineno"> 9277</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09278"></a><span class="lineno"> 9278</span> ip_invoke_immediate(argc, argv, obj)</div>
<div class="line"><a name="l09279"></a><span class="lineno"> 9279</span>  int argc;</div>
<div class="line"><a name="l09280"></a><span class="lineno"> 9280</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l09281"></a><span class="lineno"> 9281</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> obj;</div>
<div class="line"><a name="l09282"></a><span class="lineno"> 9282</span> {</div>
<div class="line"><a name="l09283"></a><span class="lineno"> 9283</span>  <span class="comment">/* POTENTIALY INSECURE : can create infinite loop */</span></div>
<div class="line"><a name="l09284"></a><span class="lineno"> 9284</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a94573b23a7c5d9c129da54deebf38842">rb_secure</a>(4);</div>
<div class="line"><a name="l09285"></a><span class="lineno"> 9285</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4e91b9e886dae0d01fd4bafde08e24fd">ip_invoke_with_position</a>(argc, argv, obj, TCL_QUEUE_HEAD);</div>
<div class="line"><a name="l09286"></a><span class="lineno"> 9286</span> }</div>
<div class="line"><a name="l09287"></a><span class="lineno"> 9287</span> </div>
<div class="line"><a name="l09288"></a><span class="lineno"> 9288</span> </div>
<div class="line"><a name="l09289"></a><span class="lineno"> 9289</span> <span class="comment">/* access Tcl variables */</span></div>
<div class="line"><a name="l09290"></a><span class="lineno"> 9290</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09291"></a><span class="lineno"> 9291</span> ip_get_variable2_core(interp, argc, argv)</div>
<div class="line"><a name="l09292"></a><span class="lineno"> 9292</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l09293"></a><span class="lineno"> 9293</span>  <span class="keywordtype">int</span> argc;</div>
<div class="line"><a name="l09294"></a><span class="lineno"> 9294</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l09295"></a><span class="lineno"> 9295</span> {</div>
<div class="line"><a name="l09296"></a><span class="lineno"> 9296</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(interp);</div>
<div class="line"><a name="l09297"></a><span class="lineno"> 9297</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09298"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abf51f054fb4c60469721d1321d6414f0"> 9298</a></span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abf51f054fb4c60469721d1321d6414f0">varname</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2b772bde34cb865f671cba699f405675">index</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa47c45738d686ad11e7b9c7c1615fcd2">flag</a>;</div>
<div class="line"><a name="l09299"></a><span class="lineno"> 9299</span> </div>
<div class="line"><a name="l09300"></a><span class="lineno"> 9300</span>  varname = argv[0];</div>
<div class="line"><a name="l09301"></a><span class="lineno"> 9301</span>  index = argv[1];</div>
<div class="line"><a name="l09302"></a><span class="lineno"> 9302</span>  flag = argv[2];</div>
<div class="line"><a name="l09303"></a><span class="lineno"> 9303</span> </div>
<div class="line"><a name="l09304"></a><span class="lineno"> 9304</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l09305"></a><span class="lineno"> 9305</span> <span class="comment"> StringValue(varname);</span></div>
<div class="line"><a name="l09306"></a><span class="lineno"> 9306</span> <span class="comment"> if (!NIL_P(index)) StringValue(index);</span></div>
<div class="line"><a name="l09307"></a><span class="lineno"> 9307</span> <span class="comment"> */</span></div>
<div class="line"><a name="l09308"></a><span class="lineno"> 9308</span> </div>
<div class="line"><a name="l09309"></a><span class="lineno"> 9309</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l09310"></a><span class="lineno"> 9310</span> <span class="preprocessor"></span> {</div>
<div class="line"><a name="l09311"></a><span class="lineno"> 9311</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l09312"></a><span class="lineno"> 9312</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9cdbcc501f5b1e627030b8efb05f0918">strval</a>;</div>
<div class="line"><a name="l09313"></a><span class="lineno"> 9313</span> </div>
<div class="line"><a name="l09314"></a><span class="lineno"> 9314</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l09315"></a><span class="lineno"> 9315</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l09316"></a><span class="lineno"> 9316</span> </div>
<div class="line"><a name="l09317"></a><span class="lineno"> 9317</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l09318"></a><span class="lineno"> 9318</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l09319"></a><span class="lineno"> 9319</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09320"></a><span class="lineno"> 9320</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l09321"></a><span class="lineno"> 9321</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l09322"></a><span class="lineno"> 9322</span>  <span class="comment">/* Tcl_Preserve(ptr->ip); */</span></div>
<div class="line"><a name="l09323"></a><span class="lineno"> 9323</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa23f39899c949c9e59a0ee3096d76fc5">rbtk_preserve_ip</a>(ptr);</div>
<div class="line"><a name="l09324"></a><span class="lineno"> 9324</span>  ret = Tcl_GetVar2Ex(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(varname),</div>
<div class="line"><a name="l09325"></a><span class="lineno"> 9325</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(index) ? NULL : <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(index),</div>
<div class="line"><a name="l09326"></a><span class="lineno"> 9326</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(flag));</div>
<div class="line"><a name="l09327"></a><span class="lineno"> 9327</span>  }</div>
<div class="line"><a name="l09328"></a><span class="lineno"> 9328</span> </div>
<div class="line"><a name="l09329"></a><span class="lineno"> 9329</span>  <span class="keywordflow">if</span> (ret == (Tcl_Obj*)NULL) {</div>
<div class="line"><a name="l09330"></a><span class="lineno"> 9330</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03">exc</a>;</div>
<div class="line"><a name="l09331"></a><span class="lineno"> 9331</span>  <span class="comment">/* exc = rb_exc_new2(rb_eRuntimeError,</span></div>
<div class="line"><a name="l09332"></a><span class="lineno"> 9332</span> <span class="comment"> Tcl_GetStringResult(ptr->ip)); */</span></div>
<div class="line"><a name="l09333"></a><span class="lineno"> 9333</span>  exc = create_ip_exc(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"%s"</span>,</div>
<div class="line"><a name="l09334"></a><span class="lineno"> 9334</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l09335"></a><span class="lineno"> 9335</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div>
<div class="line"><a name="l09336"></a><span class="lineno"> 9336</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l09337"></a><span class="lineno"> 9337</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09338"></a><span class="lineno"> 9338</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03">exc</a>;</div>
<div class="line"><a name="l09339"></a><span class="lineno"> 9339</span>  }</div>
<div class="line"><a name="l09340"></a><span class="lineno"> 9340</span> </div>
<div class="line"><a name="l09341"></a><span class="lineno"> 9341</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(ret);</div>
<div class="line"><a name="l09342"></a><span class="lineno"> 9342</span>  strval = get_str_from_obj(ret);</div>
<div class="line"><a name="l09343"></a><span class="lineno"> 9343</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832">RbTk_OBJ_UNTRUST</a>(strval);</div>
<div class="line"><a name="l09344"></a><span class="lineno"> 9344</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(ret);</div>
<div class="line"><a name="l09345"></a><span class="lineno"> 9345</span> </div>
<div class="line"><a name="l09346"></a><span class="lineno"> 9346</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div>
<div class="line"><a name="l09347"></a><span class="lineno"> 9347</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l09348"></a><span class="lineno"> 9348</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09349"></a><span class="lineno"> 9349</span>  <span class="keywordflow">return</span>(strval);</div>
<div class="line"><a name="l09350"></a><span class="lineno"> 9350</span>  }</div>
<div class="line"><a name="l09351"></a><span class="lineno"> 9351</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09352"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9cdbcc501f5b1e627030b8efb05f0918"> 9352</a></span> <span class="preprocessor"></span> {</div>
<div class="line"><a name="l09353"></a><span class="lineno"> 9353</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l09354"></a><span class="lineno"> 9354</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9cdbcc501f5b1e627030b8efb05f0918">strval</a>;</div>
<div class="line"><a name="l09355"></a><span class="lineno"> 9355</span> </div>
<div class="line"><a name="l09356"></a><span class="lineno"> 9356</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l09357"></a><span class="lineno"> 9357</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l09358"></a><span class="lineno"> 9358</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l09359"></a><span class="lineno"> 9359</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l09360"></a><span class="lineno"> 9360</span>  <span class="comment">/* Tcl_Preserve(ptr->ip); */</span></div>
<div class="line"><a name="l09361"></a><span class="lineno"> 9361</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa23f39899c949c9e59a0ee3096d76fc5">rbtk_preserve_ip</a>(ptr);</div>
<div class="line"><a name="l09362"></a><span class="lineno"> 9362</span>  ret = Tcl_GetVar2(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(varname),</div>
<div class="line"><a name="l09363"></a><span class="lineno"> 9363</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(index) ? NULL : <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(index),</div>
<div class="line"><a name="l09364"></a><span class="lineno"> 9364</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(flag));</div>
<div class="line"><a name="l09365"></a><span class="lineno"> 9365</span>  }</div>
<div class="line"><a name="l09366"></a><span class="lineno"> 9366</span> </div>
<div class="line"><a name="l09367"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a20e825cc9c4e285ea0f0577007a369c3"> 9367</a></span>  <span class="keywordflow">if</span> (ret == (<span class="keywordtype">char</span>*)NULL) {</div>
<div class="line"><a name="l09368"></a><span class="lineno"> 9368</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03">exc</a>;</div>
<div class="line"><a name="l09369"></a><span class="lineno"> 9369</span>  exc = <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l09370"></a><span class="lineno"> 9370</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div>
<div class="line"><a name="l09371"></a><span class="lineno"> 9371</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l09372"></a><span class="lineno"> 9372</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09373"></a><span class="lineno"> 9373</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03">exc</a>;</div>
<div class="line"><a name="l09374"></a><span class="lineno"> 9374</span>  }</div>
<div class="line"><a name="l09375"></a><span class="lineno"> 9375</span> </div>
<div class="line"><a name="l09376"></a><span class="lineno"> 9376</span>  strval = <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(ret);</div>
<div class="line"><a name="l09377"></a><span class="lineno"> 9377</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div>
<div class="line"><a name="l09378"></a><span class="lineno"> 9378</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l09379"></a><span class="lineno"> 9379</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09380"></a><span class="lineno"> 9380</span> </div>
<div class="line"><a name="l09381"></a><span class="lineno"> 9381</span>  <span class="keywordflow">return</span>(strval);</div>
<div class="line"><a name="l09382"></a><span class="lineno"> 9382</span>  }</div>
<div class="line"><a name="l09383"></a><span class="lineno"> 9383</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09384"></a><span class="lineno"> 9384</span> <span class="preprocessor"></span>}</div>
<div class="line"><a name="l09385"></a><span class="lineno"> 9385</span> </div>
<div class="line"><a name="l09386"></a><span class="lineno"> 9386</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09387"></a><span class="lineno"> 9387</span> ip_get_variable2(<span class="keyword">self</span>, varname, index, flag)</div>
<div class="line"><a name="l09388"></a><span class="lineno"> 9388</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l09389"></a><span class="lineno"> 9389</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> varname;</div>
<div class="line"><a name="l09390"></a><span class="lineno"> 9390</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> index;</div>
<div class="line"><a name="l09391"></a><span class="lineno"> 9391</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> flag;</div>
<div class="line"><a name="l09392"></a><span class="lineno"> 9392</span> {</div>
<div class="line"><a name="l09393"></a><span class="lineno"> 9393</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> argv[3];</div>
<div class="line"><a name="l09394"></a><span class="lineno"> 9394</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae3ed9756fe65ccdbec5dc78d6f3422dc">retval</a>;</div>
<div class="line"><a name="l09395"></a><span class="lineno"> 9395</span> </div>
<div class="line"><a name="l09396"></a><span class="lineno"> 9396</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(varname);</div>
<div class="line"><a name="l09397"></a><span class="lineno"> 9397</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(index)) <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(index);</div>
<div class="line"><a name="l09398"></a><span class="lineno"> 9398</span> </div>
<div class="line"><a name="l09399"></a><span class="lineno"> 9399</span>  argv[0] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#abf51f054fb4c60469721d1321d6414f0">varname</a>;</div>
<div class="line"><a name="l09400"></a><span class="lineno"> 9400</span>  argv[1] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2b772bde34cb865f671cba699f405675">index</a>;</div>
<div class="line"><a name="l09401"></a><span class="lineno"> 9401</span>  argv[2] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa47c45738d686ad11e7b9c7c1615fcd2">flag</a>;</div>
<div class="line"><a name="l09402"></a><span class="lineno"> 9402</span> </div>
<div class="line"><a name="l09403"></a><span class="lineno"> 9403</span>  retval = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a46bfb9a7c64428cdf208d45e06352fce">tk_funcall</a>(ip_get_variable2_core, 3, argv, <span class="keyword">self</span>);</div>
<div class="line"><a name="l09404"></a><span class="lineno"> 9404</span> </div>
<div class="line"><a name="l09405"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a881197dbf4d54ab751fe0c1cd6d3a1fd"> 9405</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(retval)) {</div>
<div class="line"><a name="l09406"></a><span class="lineno"> 9406</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l09407"></a><span class="lineno"> 9407</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l09408"></a><span class="lineno"> 9408</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae3ed9756fe65ccdbec5dc78d6f3422dc">retval</a>;</div>
<div class="line"><a name="l09409"></a><span class="lineno"> 9409</span>  }</div>
<div class="line"><a name="l09410"></a><span class="lineno"> 9410</span> }</div>
<div class="line"><a name="l09411"></a><span class="lineno"> 9411</span> </div>
<div class="line"><a name="l09412"></a><span class="lineno"> 9412</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09413"></a><span class="lineno"> 9413</span> ip_get_variable(<span class="keyword">self</span>, varname, flag)</div>
<div class="line"><a name="l09414"></a><span class="lineno"> 9414</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l09415"></a><span class="lineno"> 9415</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> varname;</div>
<div class="line"><a name="l09416"></a><span class="lineno"> 9416</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> flag;</div>
<div class="line"><a name="l09417"></a><span class="lineno"> 9417</span> {</div>
<div class="line"><a name="l09418"></a><span class="lineno"> 9418</span>  <span class="keywordflow">return</span> ip_get_variable2(<span class="keyword">self</span>, varname, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>, flag);</div>
<div class="line"><a name="l09419"></a><span class="lineno"> 9419</span> }</div>
<div class="line"><a name="l09420"></a><span class="lineno"> 9420</span> </div>
<div class="line"><a name="l09421"></a><span class="lineno"> 9421</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09422"></a><span class="lineno"> 9422</span> ip_set_variable2_core(interp, argc, argv)</div>
<div class="line"><a name="l09423"></a><span class="lineno"> 9423</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l09424"></a><span class="lineno"> 9424</span>  <span class="keywordtype">int</span> argc;</div>
<div class="line"><a name="l09425"></a><span class="lineno"> 9425</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l09426"></a><span class="lineno"> 9426</span> {</div>
<div class="line"><a name="l09427"></a><span class="lineno"> 9427</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(interp);</div>
<div class="line"><a name="l09428"></a><span class="lineno"> 9428</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09429"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aecdd94a9fd50703da3e57eaf5ccb9809"> 9429</a></span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abf51f054fb4c60469721d1321d6414f0">varname</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2b772bde34cb865f671cba699f405675">index</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aecdd94a9fd50703da3e57eaf5ccb9809">value</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa47c45738d686ad11e7b9c7c1615fcd2">flag</a>;</div>
<div class="line"><a name="l09430"></a><span class="lineno"> 9430</span> </div>
<div class="line"><a name="l09431"></a><span class="lineno"> 9431</span>  varname = argv[0];</div>
<div class="line"><a name="l09432"></a><span class="lineno"> 9432</span>  index = argv[1];</div>
<div class="line"><a name="l09433"></a><span class="lineno"> 9433</span>  value = argv[2];</div>
<div class="line"><a name="l09434"></a><span class="lineno"> 9434</span>  flag = argv[3];</div>
<div class="line"><a name="l09435"></a><span class="lineno"> 9435</span> </div>
<div class="line"><a name="l09436"></a><span class="lineno"> 9436</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l09437"></a><span class="lineno"> 9437</span> <span class="comment"> StringValue(varname);</span></div>
<div class="line"><a name="l09438"></a><span class="lineno"> 9438</span> <span class="comment"> if (!NIL_P(index)) StringValue(index);</span></div>
<div class="line"><a name="l09439"></a><span class="lineno"> 9439</span> <span class="comment"> StringValue(value);</span></div>
<div class="line"><a name="l09440"></a><span class="lineno"> 9440</span> <span class="comment"> */</span></div>
<div class="line"><a name="l09441"></a><span class="lineno"> 9441</span> </div>
<div class="line"><a name="l09442"></a><span class="lineno"> 9442</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l09443"></a><span class="lineno"> 9443</span> <span class="preprocessor"></span> {</div>
<div class="line"><a name="l09444"></a><span class="lineno"> 9444</span>  Tcl_Obj *valobj, *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l09445"></a><span class="lineno"> 9445</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9cdbcc501f5b1e627030b8efb05f0918">strval</a>;</div>
<div class="line"><a name="l09446"></a><span class="lineno"> 9446</span> </div>
<div class="line"><a name="l09447"></a><span class="lineno"> 9447</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l09448"></a><span class="lineno"> 9448</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l09449"></a><span class="lineno"> 9449</span> </div>
<div class="line"><a name="l09450"></a><span class="lineno"> 9450</span>  valobj = get_obj_from_str(value);</div>
<div class="line"><a name="l09451"></a><span class="lineno"> 9451</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(valobj);</div>
<div class="line"><a name="l09452"></a><span class="lineno"> 9452</span> </div>
<div class="line"><a name="l09453"></a><span class="lineno"> 9453</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l09454"></a><span class="lineno"> 9454</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l09455"></a><span class="lineno"> 9455</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(valobj);</div>
<div class="line"><a name="l09456"></a><span class="lineno"> 9456</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09457"></a><span class="lineno"> 9457</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l09458"></a><span class="lineno"> 9458</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l09459"></a><span class="lineno"> 9459</span>  <span class="comment">/* Tcl_Preserve(ptr->ip); */</span></div>
<div class="line"><a name="l09460"></a><span class="lineno"> 9460</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa23f39899c949c9e59a0ee3096d76fc5">rbtk_preserve_ip</a>(ptr);</div>
<div class="line"><a name="l09461"></a><span class="lineno"> 9461</span>  ret = Tcl_SetVar2Ex(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(varname),</div>
<div class="line"><a name="l09462"></a><span class="lineno"> 9462</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(index) ? NULL : <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(index),</div>
<div class="line"><a name="l09463"></a><span class="lineno"> 9463</span>  valobj, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(flag));</div>
<div class="line"><a name="l09464"></a><span class="lineno"> 9464</span>  }</div>
<div class="line"><a name="l09465"></a><span class="lineno"> 9465</span> </div>
<div class="line"><a name="l09466"></a><span class="lineno"> 9466</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(valobj);</div>
<div class="line"><a name="l09467"></a><span class="lineno"> 9467</span> </div>
<div class="line"><a name="l09468"></a><span class="lineno"> 9468</span>  <span class="keywordflow">if</span> (ret == (Tcl_Obj*)NULL) {</div>
<div class="line"><a name="l09469"></a><span class="lineno"> 9469</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03">exc</a>;</div>
<div class="line"><a name="l09470"></a><span class="lineno"> 9470</span>  <span class="comment">/* exc = rb_exc_new2(rb_eRuntimeError,</span></div>
<div class="line"><a name="l09471"></a><span class="lineno"> 9471</span> <span class="comment"> Tcl_GetStringResult(ptr->ip)); */</span></div>
<div class="line"><a name="l09472"></a><span class="lineno"> 9472</span>  exc = create_ip_exc(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"%s"</span>,</div>
<div class="line"><a name="l09473"></a><span class="lineno"> 9473</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l09474"></a><span class="lineno"> 9474</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div>
<div class="line"><a name="l09475"></a><span class="lineno"> 9475</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l09476"></a><span class="lineno"> 9476</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09477"></a><span class="lineno"> 9477</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03">exc</a>;</div>
<div class="line"><a name="l09478"></a><span class="lineno"> 9478</span>  }</div>
<div class="line"><a name="l09479"></a><span class="lineno"> 9479</span> </div>
<div class="line"><a name="l09480"></a><span class="lineno"> 9480</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(ret);</div>
<div class="line"><a name="l09481"></a><span class="lineno"> 9481</span>  strval = get_str_from_obj(ret);</div>
<div class="line"><a name="l09482"></a><span class="lineno"> 9482</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832">RbTk_OBJ_UNTRUST</a>(strval);</div>
<div class="line"><a name="l09483"></a><span class="lineno"> 9483</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(ret);</div>
<div class="line"><a name="l09484"></a><span class="lineno"> 9484</span> </div>
<div class="line"><a name="l09485"></a><span class="lineno"> 9485</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div>
<div class="line"><a name="l09486"></a><span class="lineno"> 9486</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l09487"></a><span class="lineno"> 9487</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09488"></a><span class="lineno"> 9488</span> </div>
<div class="line"><a name="l09489"></a><span class="lineno"> 9489</span>  <span class="keywordflow">return</span>(strval);</div>
<div class="line"><a name="l09490"></a><span class="lineno"> 9490</span>  }</div>
<div class="line"><a name="l09491"></a><span class="lineno"> 9491</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09492"></a><span class="lineno"> 9492</span> <span class="preprocessor"></span> {</div>
<div class="line"><a name="l09493"></a><span class="lineno"> 9493</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l09494"></a><span class="lineno"> 9494</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9cdbcc501f5b1e627030b8efb05f0918">strval</a>;</div>
<div class="line"><a name="l09495"></a><span class="lineno"> 9495</span> </div>
<div class="line"><a name="l09496"></a><span class="lineno"> 9496</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l09497"></a><span class="lineno"> 9497</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l09498"></a><span class="lineno"> 9498</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l09499"></a><span class="lineno"> 9499</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l09500"></a><span class="lineno"> 9500</span>  <span class="comment">/* Tcl_Preserve(ptr->ip); */</span></div>
<div class="line"><a name="l09501"></a><span class="lineno"> 9501</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa23f39899c949c9e59a0ee3096d76fc5">rbtk_preserve_ip</a>(ptr);</div>
<div class="line"><a name="l09502"></a><span class="lineno"> 9502</span>  ret = Tcl_SetVar2(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(varname),</div>
<div class="line"><a name="l09503"></a><span class="lineno"> 9503</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(index) ? NULL : <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(index),</div>
<div class="line"><a name="l09504"></a><span class="lineno"> 9504</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(value), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(flag));</div>
<div class="line"><a name="l09505"></a><span class="lineno"> 9505</span>  }</div>
<div class="line"><a name="l09506"></a><span class="lineno"> 9506</span> </div>
<div class="line"><a name="l09507"></a><span class="lineno"> 9507</span>  <span class="keywordflow">if</span> (ret == (<span class="keywordtype">char</span>*)NULL) {</div>
<div class="line"><a name="l09508"></a><span class="lineno"> 9508</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>->result);</div>
<div class="line"><a name="l09509"></a><span class="lineno"> 9509</span>  }</div>
<div class="line"><a name="l09510"></a><span class="lineno"> 9510</span> </div>
<div class="line"><a name="l09511"></a><span class="lineno"> 9511</span>  strval = <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(ret);</div>
<div class="line"><a name="l09512"></a><span class="lineno"> 9512</span> </div>
<div class="line"><a name="l09513"></a><span class="lineno"> 9513</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div>
<div class="line"><a name="l09514"></a><span class="lineno"> 9514</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a>(ptr);</div>
<div class="line"><a name="l09515"></a><span class="lineno"> 9515</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09516"></a><span class="lineno"> 9516</span> </div>
<div class="line"><a name="l09517"></a><span class="lineno"> 9517</span>  <span class="keywordflow">return</span>(strval);</div>
<div class="line"><a name="l09518"></a><span class="lineno"> 9518</span>  }</div>
<div class="line"><a name="l09519"></a><span class="lineno"> 9519</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09520"></a><span class="lineno"> 9520</span> <span class="preprocessor"></span>}</div>
<div class="line"><a name="l09521"></a><span class="lineno"> 9521</span> </div>
<div class="line"><a name="l09522"></a><span class="lineno"> 9522</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09523"></a><span class="lineno"> 9523</span> ip_set_variable2(<span class="keyword">self</span>, varname, index, value, flag)</div>
<div class="line"><a name="l09524"></a><span class="lineno"> 9524</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l09525"></a><span class="lineno"> 9525</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> varname;</div>
<div class="line"><a name="l09526"></a><span class="lineno"> 9526</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> index;</div>
<div class="line"><a name="l09527"></a><span class="lineno"> 9527</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> value;</div>
<div class="line"><a name="l09528"></a><span class="lineno"> 9528</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> flag;</div>
<div class="line"><a name="l09529"></a><span class="lineno"> 9529</span> {</div>
<div class="line"><a name="l09530"></a><span class="lineno"> 9530</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> argv[4];</div>
<div class="line"><a name="l09531"></a><span class="lineno"> 9531</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae3ed9756fe65ccdbec5dc78d6f3422dc">retval</a>;</div>
<div class="line"><a name="l09532"></a><span class="lineno"> 9532</span> </div>
<div class="line"><a name="l09533"></a><span class="lineno"> 9533</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(varname);</div>
<div class="line"><a name="l09534"></a><span class="lineno"> 9534</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(index)) <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(index);</div>
<div class="line"><a name="l09535"></a><span class="lineno"> 9535</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(value);</div>
<div class="line"><a name="l09536"></a><span class="lineno"> 9536</span> </div>
<div class="line"><a name="l09537"></a><span class="lineno"> 9537</span>  argv[0] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#abf51f054fb4c60469721d1321d6414f0">varname</a>;</div>
<div class="line"><a name="l09538"></a><span class="lineno"> 9538</span>  argv[1] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2b772bde34cb865f671cba699f405675">index</a>;</div>
<div class="line"><a name="l09539"></a><span class="lineno"> 9539</span>  argv[2] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aecdd94a9fd50703da3e57eaf5ccb9809">value</a>;</div>
<div class="line"><a name="l09540"></a><span class="lineno"> 9540</span>  argv[3] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa47c45738d686ad11e7b9c7c1615fcd2">flag</a>;</div>
<div class="line"><a name="l09541"></a><span class="lineno"> 9541</span> </div>
<div class="line"><a name="l09542"></a><span class="lineno"> 9542</span>  retval = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a46bfb9a7c64428cdf208d45e06352fce">tk_funcall</a>(ip_set_variable2_core, 4, argv, <span class="keyword">self</span>);</div>
<div class="line"><a name="l09543"></a><span class="lineno"> 9543</span> </div>
<div class="line"><a name="l09544"></a><span class="lineno"> 9544</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(retval)) {</div>
<div class="line"><a name="l09545"></a><span class="lineno"> 9545</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l09546"></a><span class="lineno"> 9546</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l09547"></a><span class="lineno"> 9547</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae3ed9756fe65ccdbec5dc78d6f3422dc">retval</a>;</div>
<div class="line"><a name="l09548"></a><span class="lineno"> 9548</span>  }</div>
<div class="line"><a name="l09549"></a><span class="lineno"> 9549</span> }</div>
<div class="line"><a name="l09550"></a><span class="lineno"> 9550</span> </div>
<div class="line"><a name="l09551"></a><span class="lineno"> 9551</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09552"></a><span class="lineno"> 9552</span> ip_set_variable(<span class="keyword">self</span>, varname, value, flag)</div>
<div class="line"><a name="l09553"></a><span class="lineno"> 9553</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l09554"></a><span class="lineno"> 9554</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> varname;</div>
<div class="line"><a name="l09555"></a><span class="lineno"> 9555</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> value;</div>
<div class="line"><a name="l09556"></a><span class="lineno"> 9556</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> flag;</div>
<div class="line"><a name="l09557"></a><span class="lineno"> 9557</span> {</div>
<div class="line"><a name="l09558"></a><span class="lineno"> 9558</span>  <span class="keywordflow">return</span> ip_set_variable2(<span class="keyword">self</span>, varname, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>, value, flag);</div>
<div class="line"><a name="l09559"></a><span class="lineno"> 9559</span> }</div>
<div class="line"><a name="l09560"></a><span class="lineno"> 9560</span> </div>
<div class="line"><a name="l09561"></a><span class="lineno"> 9561</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09562"></a><span class="lineno"> 9562</span> ip_unset_variable2_core(interp, argc, argv)</div>
<div class="line"><a name="l09563"></a><span class="lineno"> 9563</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l09564"></a><span class="lineno"> 9564</span>  <span class="keywordtype">int</span> argc;</div>
<div class="line"><a name="l09565"></a><span class="lineno"> 9565</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l09566"></a><span class="lineno"> 9566</span> {</div>
<div class="line"><a name="l09567"></a><span class="lineno"> 9567</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(interp);</div>
<div class="line"><a name="l09568"></a><span class="lineno"> 9568</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abf51f054fb4c60469721d1321d6414f0">varname</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2b772bde34cb865f671cba699f405675">index</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa47c45738d686ad11e7b9c7c1615fcd2">flag</a>;</div>
<div class="line"><a name="l09569"></a><span class="lineno"> 9569</span> </div>
<div class="line"><a name="l09570"></a><span class="lineno"> 9570</span>  varname = argv[0];</div>
<div class="line"><a name="l09571"></a><span class="lineno"> 9571</span>  index = argv[1];</div>
<div class="line"><a name="l09572"></a><span class="lineno"> 9572</span>  flag = argv[2];</div>
<div class="line"><a name="l09573"></a><span class="lineno"> 9573</span> </div>
<div class="line"><a name="l09574"></a><span class="lineno"> 9574</span>  <span class="comment">/*</span></div>
<div class="line"><a name="l09575"></a><span class="lineno"> 9575</span> <span class="comment"> StringValue(varname);</span></div>
<div class="line"><a name="l09576"></a><span class="lineno"> 9576</span> <span class="comment"> if (!NIL_P(index)) StringValue(index);</span></div>
<div class="line"><a name="l09577"></a><span class="lineno"> 9577</span> <span class="comment"> */</span></div>
<div class="line"><a name="l09578"></a><span class="lineno"> 9578</span> </div>
<div class="line"><a name="l09579"></a><span class="lineno"> 9579</span>  <span class="comment">/* ip is deleted? */</span></div>
<div class="line"><a name="l09580"></a><span class="lineno"> 9580</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l09581"></a><span class="lineno"> 9581</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l09582"></a><span class="lineno"> 9582</span>  }</div>
<div class="line"><a name="l09583"></a><span class="lineno"> 9583</span> </div>
<div class="line"><a name="l09584"></a><span class="lineno"> 9584</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = Tcl_UnsetVar2(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(varname),</div>
<div class="line"><a name="l09585"></a><span class="lineno"> 9585</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(index) ? NULL : <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(index),</div>
<div class="line"><a name="l09586"></a><span class="lineno"> 9586</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(flag));</div>
<div class="line"><a name="l09587"></a><span class="lineno"> 9587</span> </div>
<div class="line"><a name="l09588"></a><span class="lineno"> 9588</span>  <span class="keywordflow">if</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>) {</div>
<div class="line"><a name="l09589"></a><span class="lineno"> 9589</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(flag) & TCL_LEAVE_ERR_MSG) {</div>
<div class="line"><a name="l09590"></a><span class="lineno"> 9590</span>  <span class="comment">/* return rb_exc_new2(rb_eRuntimeError,</span></div>
<div class="line"><a name="l09591"></a><span class="lineno"> 9591</span> <span class="comment"> Tcl_GetStringResult(ptr->ip)); */</span></div>
<div class="line"><a name="l09592"></a><span class="lineno"> 9592</span>  <span class="keywordflow">return</span> create_ip_exc(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"%s"</span>,</div>
<div class="line"><a name="l09593"></a><span class="lineno"> 9593</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</div>
<div class="line"><a name="l09594"></a><span class="lineno"> 9594</span>  }</div>
<div class="line"><a name="l09595"></a><span class="lineno"> 9595</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>;</div>
<div class="line"><a name="l09596"></a><span class="lineno"> 9596</span>  }</div>
<div class="line"><a name="l09597"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185"> 9597</a></span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l09598"></a><span class="lineno"> 9598</span> }</div>
<div class="line"><a name="l09599"></a><span class="lineno"> 9599</span> </div>
<div class="line"><a name="l09600"></a><span class="lineno"> 9600</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09601"></a><span class="lineno"> 9601</span> ip_unset_variable2(<span class="keyword">self</span>, varname, index, flag)</div>
<div class="line"><a name="l09602"></a><span class="lineno"> 9602</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l09603"></a><span class="lineno"> 9603</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> varname;</div>
<div class="line"><a name="l09604"></a><span class="lineno"> 9604</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> index;</div>
<div class="line"><a name="l09605"></a><span class="lineno"> 9605</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> flag;</div>
<div class="line"><a name="l09606"></a><span class="lineno"> 9606</span> {</div>
<div class="line"><a name="l09607"></a><span class="lineno"> 9607</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> argv[3];</div>
<div class="line"><a name="l09608"></a><span class="lineno"> 9608</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae3ed9756fe65ccdbec5dc78d6f3422dc">retval</a>;</div>
<div class="line"><a name="l09609"></a><span class="lineno"> 9609</span> </div>
<div class="line"><a name="l09610"></a><span class="lineno"> 9610</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(varname);</div>
<div class="line"><a name="l09611"></a><span class="lineno"> 9611</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(index)) <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(index);</div>
<div class="line"><a name="l09612"></a><span class="lineno"> 9612</span> </div>
<div class="line"><a name="l09613"></a><span class="lineno"> 9613</span>  argv[0] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#abf51f054fb4c60469721d1321d6414f0">varname</a>;</div>
<div class="line"><a name="l09614"></a><span class="lineno"> 9614</span>  argv[1] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2b772bde34cb865f671cba699f405675">index</a>;</div>
<div class="line"><a name="l09615"></a><span class="lineno"> 9615</span>  argv[2] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa47c45738d686ad11e7b9c7c1615fcd2">flag</a>;</div>
<div class="line"><a name="l09616"></a><span class="lineno"> 9616</span> </div>
<div class="line"><a name="l09617"></a><span class="lineno"> 9617</span>  retval = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a46bfb9a7c64428cdf208d45e06352fce">tk_funcall</a>(ip_unset_variable2_core, 3, argv, <span class="keyword">self</span>);</div>
<div class="line"><a name="l09618"></a><span class="lineno"> 9618</span> </div>
<div class="line"><a name="l09619"></a><span class="lineno"> 9619</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(retval)) {</div>
<div class="line"><a name="l09620"></a><span class="lineno"> 9620</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l09621"></a><span class="lineno"> 9621</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l09622"></a><span class="lineno"> 9622</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae3ed9756fe65ccdbec5dc78d6f3422dc">retval</a>;</div>
<div class="line"><a name="l09623"></a><span class="lineno"> 9623</span>  }</div>
<div class="line"><a name="l09624"></a><span class="lineno"> 9624</span> }</div>
<div class="line"><a name="l09625"></a><span class="lineno"> 9625</span> </div>
<div class="line"><a name="l09626"></a><span class="lineno"> 9626</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09627"></a><span class="lineno"> 9627</span> ip_unset_variable(<span class="keyword">self</span>, varname, flag)</div>
<div class="line"><a name="l09628"></a><span class="lineno"> 9628</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l09629"></a><span class="lineno"> 9629</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> varname;</div>
<div class="line"><a name="l09630"></a><span class="lineno"> 9630</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> flag;</div>
<div class="line"><a name="l09631"></a><span class="lineno"> 9631</span> {</div>
<div class="line"><a name="l09632"></a><span class="lineno"> 9632</span>  <span class="keywordflow">return</span> ip_unset_variable2(<span class="keyword">self</span>, varname, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>, flag);</div>
<div class="line"><a name="l09633"></a><span class="lineno"> 9633</span> }</div>
<div class="line"><a name="l09634"></a><span class="lineno"> 9634</span> </div>
<div class="line"><a name="l09635"></a><span class="lineno"> 9635</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09636"></a><span class="lineno"> 9636</span> ip_get_global_var(<span class="keyword">self</span>, varname)</div>
<div class="line"><a name="l09637"></a><span class="lineno"> 9637</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l09638"></a><span class="lineno"> 9638</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> varname;</div>
<div class="line"><a name="l09639"></a><span class="lineno"> 9639</span> {</div>
<div class="line"><a name="l09640"></a><span class="lineno"> 9640</span>  <span class="keywordflow">return</span> ip_get_variable(<span class="keyword">self</span>, varname,</div>
<div class="line"><a name="l09641"></a><span class="lineno"> 9641</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(TCL_GLOBAL_ONLY | TCL_LEAVE_ERR_MSG));</div>
<div class="line"><a name="l09642"></a><span class="lineno"> 9642</span> }</div>
<div class="line"><a name="l09643"></a><span class="lineno"> 9643</span> </div>
<div class="line"><a name="l09644"></a><span class="lineno"> 9644</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09645"></a><span class="lineno"> 9645</span> ip_get_global_var2(<span class="keyword">self</span>, varname, index)</div>
<div class="line"><a name="l09646"></a><span class="lineno"> 9646</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l09647"></a><span class="lineno"> 9647</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> varname;</div>
<div class="line"><a name="l09648"></a><span class="lineno"> 9648</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> index;</div>
<div class="line"><a name="l09649"></a><span class="lineno"> 9649</span> {</div>
<div class="line"><a name="l09650"></a><span class="lineno"> 9650</span>  <span class="keywordflow">return</span> ip_get_variable2(<span class="keyword">self</span>, varname, index,</div>
<div class="line"><a name="l09651"></a><span class="lineno"> 9651</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(TCL_GLOBAL_ONLY | TCL_LEAVE_ERR_MSG));</div>
<div class="line"><a name="l09652"></a><span class="lineno"> 9652</span> }</div>
<div class="line"><a name="l09653"></a><span class="lineno"> 9653</span> </div>
<div class="line"><a name="l09654"></a><span class="lineno"> 9654</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09655"></a><span class="lineno"> 9655</span> ip_set_global_var(<span class="keyword">self</span>, varname, value)</div>
<div class="line"><a name="l09656"></a><span class="lineno"> 9656</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l09657"></a><span class="lineno"> 9657</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> varname;</div>
<div class="line"><a name="l09658"></a><span class="lineno"> 9658</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> value;</div>
<div class="line"><a name="l09659"></a><span class="lineno"> 9659</span> {</div>
<div class="line"><a name="l09660"></a><span class="lineno"> 9660</span>  <span class="keywordflow">return</span> ip_set_variable(<span class="keyword">self</span>, varname, value,</div>
<div class="line"><a name="l09661"></a><span class="lineno"> 9661</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(TCL_GLOBAL_ONLY | TCL_LEAVE_ERR_MSG));</div>
<div class="line"><a name="l09662"></a><span class="lineno"> 9662</span> }</div>
<div class="line"><a name="l09663"></a><span class="lineno"> 9663</span> </div>
<div class="line"><a name="l09664"></a><span class="lineno"> 9664</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09665"></a><span class="lineno"> 9665</span> ip_set_global_var2(<span class="keyword">self</span>, varname, index, value)</div>
<div class="line"><a name="l09666"></a><span class="lineno"> 9666</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l09667"></a><span class="lineno"> 9667</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> varname;</div>
<div class="line"><a name="l09668"></a><span class="lineno"> 9668</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> index;</div>
<div class="line"><a name="l09669"></a><span class="lineno"> 9669</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> value;</div>
<div class="line"><a name="l09670"></a><span class="lineno"> 9670</span> {</div>
<div class="line"><a name="l09671"></a><span class="lineno"> 9671</span>  <span class="keywordflow">return</span> ip_set_variable2(<span class="keyword">self</span>, varname, index, value,</div>
<div class="line"><a name="l09672"></a><span class="lineno"> 9672</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(TCL_GLOBAL_ONLY | TCL_LEAVE_ERR_MSG));</div>
<div class="line"><a name="l09673"></a><span class="lineno"> 9673</span> }</div>
<div class="line"><a name="l09674"></a><span class="lineno"> 9674</span> </div>
<div class="line"><a name="l09675"></a><span class="lineno"> 9675</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09676"></a><span class="lineno"> 9676</span> ip_unset_global_var(<span class="keyword">self</span>, varname)</div>
<div class="line"><a name="l09677"></a><span class="lineno"> 9677</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l09678"></a><span class="lineno"> 9678</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> varname;</div>
<div class="line"><a name="l09679"></a><span class="lineno"> 9679</span> {</div>
<div class="line"><a name="l09680"></a><span class="lineno"> 9680</span>  <span class="keywordflow">return</span> ip_unset_variable(<span class="keyword">self</span>, varname,</div>
<div class="line"><a name="l09681"></a><span class="lineno"> 9681</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(TCL_GLOBAL_ONLY | TCL_LEAVE_ERR_MSG));</div>
<div class="line"><a name="l09682"></a><span class="lineno"> 9682</span> }</div>
<div class="line"><a name="l09683"></a><span class="lineno"> 9683</span> </div>
<div class="line"><a name="l09684"></a><span class="lineno"> 9684</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09685"></a><span class="lineno"> 9685</span> ip_unset_global_var2(<span class="keyword">self</span>, varname, index)</div>
<div class="line"><a name="l09686"></a><span class="lineno"> 9686</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l09687"></a><span class="lineno"> 9687</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> varname;</div>
<div class="line"><a name="l09688"></a><span class="lineno"> 9688</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> index;</div>
<div class="line"><a name="l09689"></a><span class="lineno"> 9689</span> {</div>
<div class="line"><a name="l09690"></a><span class="lineno"> 9690</span>  <span class="keywordflow">return</span> ip_unset_variable2(<span class="keyword">self</span>, varname, index,</div>
<div class="line"><a name="l09691"></a><span class="lineno"> 9691</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(TCL_GLOBAL_ONLY | TCL_LEAVE_ERR_MSG));</div>
<div class="line"><a name="l09692"></a><span class="lineno"> 9692</span> }</div>
<div class="line"><a name="l09693"></a><span class="lineno"> 9693</span> </div>
<div class="line"><a name="l09694"></a><span class="lineno"> 9694</span> </div>
<div class="line"><a name="l09695"></a><span class="lineno"> 9695</span> <span class="comment">/* treat Tcl_List */</span></div>
<div class="line"><a name="l09696"></a><span class="lineno"> 9696</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09697"></a><span class="lineno"> 9697</span> lib_split_tklist_core(ip_obj, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6fc242c933f1c2fa2de5026636c48af9">list_str</a>)</div>
<div class="line"><a name="l09698"></a><span class="lineno"> 9698</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> ip_obj;</div>
<div class="line"><a name="l09699"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6fc242c933f1c2fa2de5026636c48af9"> 9699</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6fc242c933f1c2fa2de5026636c48af9">list_str</a>;</div>
<div class="line"><a name="l09700"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ab64e6b918a36b9710aafffe51be53d67"> 9700</a></span> {</div>
<div class="line"><a name="l09701"></a><span class="lineno"> 9701</span>  Tcl_Interp *<a class="code" href="../../d5/d9d/tcltklib_8c.html#abb159f1f4254ecf6df54f13d2b3468c6">interp</a>;</div>
<div class="line"><a name="l09702"></a><span class="lineno"> 9702</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa42b2591a0a1fcbbda5d4f1b90b5d62b">ary</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab64e6b918a36b9710aafffe51be53d67">elem</a>;</div>
<div class="line"><a name="l09703"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae40354a1051342eb5a9db005715dcfa9"> 9703</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae40354a1051342eb5a9db005715dcfa9">idx</a>;</div>
<div class="line"><a name="l09704"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8a8bb80e7488b96878ccd589dc1829f4"> 9704</a></span>  <span class="keywordtype">int</span> taint_flag = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a621bc62b1fd82640c1078daf90e1c061">OBJ_TAINTED</a>(list_str);</div>
<div class="line"><a name="l09705"></a><span class="lineno"> 9705</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l09706"></a><span class="lineno"> 9706</span> <span class="preprocessor"></span> <span class="keywordtype">int</span> list_enc_idx;</div>
<div class="line"><a name="l09707"></a><span class="lineno"> 9707</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> list_ivar_enc;</div>
<div class="line"><a name="l09708"></a><span class="lineno"> 9708</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09709"></a><span class="lineno"> 9709</span> <span class="preprocessor"></span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae6cf673d09a03d1dfd71928b32d95161">result</a>;</div>
<div class="line"><a name="l09710"></a><span class="lineno"> 9710</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a40bc5d98d107b04ba07d2d0553b8cd11">old_gc</a>;</div>
<div class="line"><a name="l09711"></a><span class="lineno"> 9711</span> </div>
<div class="line"><a name="l09712"></a><span class="lineno"> 9712</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#abbe469560280c936662242c94a43d994">tcl_stubs_check</a>();</div>
<div class="line"><a name="l09713"></a><span class="lineno"> 9713</span> </div>
<div class="line"><a name="l09714"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aad7f4fce536c33375a61e60828735081"> 9714</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(ip_obj)) {</div>
<div class="line"><a name="l09715"></a><span class="lineno"> 9715</span>  interp = (Tcl_Interp *)NULL;</div>
<div class="line"><a name="l09716"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ab5c8e5ad05a5f193cd572b3ce7bc25ee"> 9716</a></span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (get_ip(ip_obj) == (<span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *)NULL) {</div>
<div class="line"><a name="l09717"></a><span class="lineno"> 9717</span>  interp = (Tcl_Interp *)NULL;</div>
<div class="line"><a name="l09718"></a><span class="lineno"> 9718</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l09719"></a><span class="lineno"> 9719</span>  interp = get_ip(ip_obj)->ip;</div>
<div class="line"><a name="l09720"></a><span class="lineno"> 9720</span>  }</div>
<div class="line"><a name="l09721"></a><span class="lineno"> 9721</span> </div>
<div class="line"><a name="l09722"></a><span class="lineno"> 9722</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(list_str);</div>
<div class="line"><a name="l09723"></a><span class="lineno"> 9723</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l09724"></a><span class="lineno"> 9724</span> <span class="preprocessor"></span> list_enc_idx = <a class="code" href="../../d5/db5/encoding_8c.html#a0ee8da2e6cc01567488e318854a3d9c0">rb_enc_get_index</a>(list_str);</div>
<div class="line"><a name="l09725"></a><span class="lineno"> 9725</span>  list_ivar_enc = <a class="code" href="../../db/d2e/intern_8h.html#a35a10b958666c1b330238eea7b7f3a8a">rb_ivar_get</a>(list_str, ID_at_enc);</div>
<div class="line"><a name="l09726"></a><span class="lineno"> 9726</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09727"></a><span class="lineno"> 9727</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l09728"></a><span class="lineno"> 9728</span>  {</div>
<div class="line"><a name="l09729"></a><span class="lineno"> 9729</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l09730"></a><span class="lineno"> 9730</span> <span class="preprocessor"></span> <span class="comment">/* object style interface */</span></div>
<div class="line"><a name="l09731"></a><span class="lineno"> 9731</span>  Tcl_Obj *listobj;</div>
<div class="line"><a name="l09732"></a><span class="lineno"> 9732</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>;</div>
<div class="line"><a name="l09733"></a><span class="lineno"> 9733</span>  Tcl_Obj **<a class="code" href="../../d5/d9d/tcltklib_8c.html#a5989eede682afd9743c0345d772674d5">objv</a>;</div>
<div class="line"><a name="l09734"></a><span class="lineno"> 9734</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09735"></a><span class="lineno"> 9735</span> </div>
<div class="line"><a name="l09736"></a><span class="lineno"> 9736</span>  listobj = get_obj_from_str(list_str);</div>
<div class="line"><a name="l09737"></a><span class="lineno"> 9737</span> </div>
<div class="line"><a name="l09738"></a><span class="lineno"> 9738</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(listobj);</div>
<div class="line"><a name="l09739"></a><span class="lineno"> 9739</span> </div>
<div class="line"><a name="l09740"></a><span class="lineno"> 9740</span>  result = Tcl_ListObjGetElements(interp, listobj, &objc, &objv);</div>
<div class="line"><a name="l09741"></a><span class="lineno"> 9741</span> </div>
<div class="line"><a name="l09742"></a><span class="lineno"> 9742</span>  <span class="keywordflow">if</span> (result == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>) {</div>
<div class="line"><a name="l09743"></a><span class="lineno"> 9743</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(listobj);</div>
<div class="line"><a name="l09744"></a><span class="lineno"> 9744</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)NULL) {</div>
<div class="line"><a name="l09745"></a><span class="lineno"> 9745</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"can't get elements from list"</span>);</div>
<div class="line"><a name="l09746"></a><span class="lineno"> 9746</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l09747"></a><span class="lineno"> 9747</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"%s"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(interp));</div>
<div class="line"><a name="l09748"></a><span class="lineno"> 9748</span>  }</div>
<div class="line"><a name="l09749"></a><span class="lineno"> 9749</span>  }</div>
<div class="line"><a name="l09750"></a><span class="lineno"> 9750</span> </div>
<div class="line"><a name="l09751"></a><span class="lineno"> 9751</span>  <span class="keywordflow">for</span>(idx = 0; idx < <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>; idx++) {</div>
<div class="line"><a name="l09752"></a><span class="lineno"> 9752</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(objv[idx]);</div>
<div class="line"><a name="l09753"></a><span class="lineno"> 9753</span>  }</div>
<div class="line"><a name="l09754"></a><span class="lineno"> 9754</span> </div>
<div class="line"><a name="l09755"></a><span class="lineno"> 9755</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l09756"></a><span class="lineno"> 9756</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l09757"></a><span class="lineno"> 9757</span> </div>
<div class="line"><a name="l09758"></a><span class="lineno"> 9758</span>  ary = <a class="code" href="../../dc/dcc/array_8c.html#a43a7bd246935ab63c233b4ae34d61d75">rb_ary_new2</a>(objc);</div>
<div class="line"><a name="l09759"></a><span class="lineno"> 9759</span>  <span class="keywordflow">if</span> (taint_flag) <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832">RbTk_OBJ_UNTRUST</a>(ary);</div>
<div class="line"><a name="l09760"></a><span class="lineno"> 9760</span> </div>
<div class="line"><a name="l09761"></a><span class="lineno"> 9761</span>  old_gc = <a class="code" href="../../d8/d16/gc_8c.html#a27a2dbb7307d5ea8e096ce4357f6ece6">rb_gc_disable</a>();</div>
<div class="line"><a name="l09762"></a><span class="lineno"> 9762</span> </div>
<div class="line"><a name="l09763"></a><span class="lineno"> 9763</span>  <span class="keywordflow">for</span>(idx = 0; idx < <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>; idx++) {</div>
<div class="line"><a name="l09764"></a><span class="lineno"> 9764</span>  elem = get_str_from_obj(objv[idx]);</div>
<div class="line"><a name="l09765"></a><span class="lineno"> 9765</span>  <span class="keywordflow">if</span> (taint_flag) <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832">RbTk_OBJ_UNTRUST</a>(elem);</div>
<div class="line"><a name="l09766"></a><span class="lineno"> 9766</span> </div>
<div class="line"><a name="l09767"></a><span class="lineno"> 9767</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l09768"></a><span class="lineno"> 9768</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../d5/db5/encoding_8c.html#a0ee8da2e6cc01567488e318854a3d9c0">rb_enc_get_index</a>(elem) == ENCODING_INDEX_BINARY) {</div>
<div class="line"><a name="l09769"></a><span class="lineno"> 9769</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(elem, ENCODING_INDEX_BINARY);</div>
<div class="line"><a name="l09770"></a><span class="lineno"> 9770</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a>(elem, ID_at_enc, ENCODING_NAME_BINARY);</div>
<div class="line"><a name="l09771"></a><span class="lineno"> 9771</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l09772"></a><span class="lineno"> 9772</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(elem, list_enc_idx);</div>
<div class="line"><a name="l09773"></a><span class="lineno"> 9773</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a>(elem, ID_at_enc, list_ivar_enc);</div>
<div class="line"><a name="l09774"></a><span class="lineno"> 9774</span>  }</div>
<div class="line"><a name="l09775"></a><span class="lineno"> 9775</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09776"></a><span class="lineno"> 9776</span> <span class="preprocessor"></span> <span class="comment">/* RARRAY(ary)->ptr[idx] = elem; */</span></div>
<div class="line"><a name="l09777"></a><span class="lineno"> 9777</span>  <a class="code" href="../../dc/dcc/array_8c.html#a59d553a8cd781364b8bcb0deae25cca2">rb_ary_push</a>(ary, elem);</div>
<div class="line"><a name="l09778"></a><span class="lineno"> 9778</span>  }</div>
<div class="line"><a name="l09779"></a><span class="lineno"> 9779</span> </div>
<div class="line"><a name="l09780"></a><span class="lineno"> 9780</span>  <span class="comment">/* RARRAY(ary)->len = objc; */</span></div>
<div class="line"><a name="l09781"></a><span class="lineno"> 9781</span> </div>
<div class="line"><a name="l09782"></a><span class="lineno"> 9782</span>  <span class="keywordflow">if</span> (old_gc == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>) <a class="code" href="../../d8/d16/gc_8c.html#a3cbc64cc9d74c437c08a5dc923d1c7dd">rb_gc_enable</a>();</div>
<div class="line"><a name="l09783"></a><span class="lineno"> 9783</span> </div>
<div class="line"><a name="l09784"></a><span class="lineno"> 9784</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09785"></a><span class="lineno"> 9785</span> </div>
<div class="line"><a name="l09786"></a><span class="lineno"> 9786</span>  <span class="keywordflow">for</span>(idx = 0; idx < <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>; idx++) {</div>
<div class="line"><a name="l09787"></a><span class="lineno"> 9787</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[idx]);</div>
<div class="line"><a name="l09788"></a><span class="lineno"> 9788</span>  }</div>
<div class="line"><a name="l09789"></a><span class="lineno"> 9789</span> </div>
<div class="line"><a name="l09790"></a><span class="lineno"> 9790</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(listobj);</div>
<div class="line"><a name="l09791"></a><span class="lineno"> 9791</span> </div>
<div class="line"><a name="l09792"></a><span class="lineno"> 9792</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09793"></a><span class="lineno"> 9793</span> <span class="preprocessor"></span> <span class="comment">/* string style interface */</span></div>
<div class="line"><a name="l09794"></a><span class="lineno"> 9794</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>;</div>
<div class="line"><a name="l09795"></a><span class="lineno"> 9795</span>  <span class="keywordtype">char</span> **<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab9ebbdd4596789afb752d19fca153ee5">argv</a>;</div>
<div class="line"><a name="l09796"></a><span class="lineno"> 9796</span> </div>
<div class="line"><a name="l09797"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a74770556c27bb6fe08dd19267c3eaf56"> 9797</a></span>  <span class="keywordflow">if</span> (Tcl_SplitList(interp, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(list_str),</div>
<div class="line"><a name="l09798"></a><span class="lineno"> 9798</span>  &argc, &argv) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a>) {</div>
<div class="line"><a name="l09799"></a><span class="lineno"> 9799</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)NULL) {</div>
<div class="line"><a name="l09800"></a><span class="lineno"> 9800</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"can't get elements from list"</span>);</div>
<div class="line"><a name="l09801"></a><span class="lineno"> 9801</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l09802"></a><span class="lineno"> 9802</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"%s"</span>, interp->result);</div>
<div class="line"><a name="l09803"></a><span class="lineno"> 9803</span>  }</div>
<div class="line"><a name="l09804"></a><span class="lineno"> 9804</span>  }</div>
<div class="line"><a name="l09805"></a><span class="lineno"> 9805</span> </div>
<div class="line"><a name="l09806"></a><span class="lineno"> 9806</span>  ary = <a class="code" href="../../dc/dcc/array_8c.html#a43a7bd246935ab63c233b4ae34d61d75">rb_ary_new2</a>(argc);</div>
<div class="line"><a name="l09807"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#afdef6c07b4df15f03c36925ccfbeda4f"> 9807</a></span>  <span class="keywordflow">if</span> (taint_flag) <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832">RbTk_OBJ_UNTRUST</a>(ary);</div>
<div class="line"><a name="l09808"></a><span class="lineno"> 9808</span> </div>
<div class="line"><a name="l09809"></a><span class="lineno"> 9809</span>  old_gc = <a class="code" href="../../d8/d16/gc_8c.html#a27a2dbb7307d5ea8e096ce4357f6ece6">rb_gc_disable</a>();</div>
<div class="line"><a name="l09810"></a><span class="lineno"> 9810</span> </div>
<div class="line"><a name="l09811"></a><span class="lineno"> 9811</span>  <span class="keywordflow">for</span>(idx = 0; idx < <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>; idx++) {</div>
<div class="line"><a name="l09812"></a><span class="lineno"> 9812</span>  <span class="keywordflow">if</span> (taint_flag) {</div>
<div class="line"><a name="l09813"></a><span class="lineno"> 9813</span>  elem = <a class="code" href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a>(argv[idx]);</div>
<div class="line"><a name="l09814"></a><span class="lineno"> 9814</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l09815"></a><span class="lineno"> 9815</span>  elem = <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(argv[idx]);</div>
<div class="line"><a name="l09816"></a><span class="lineno"> 9816</span>  }</div>
<div class="line"><a name="l09817"></a><span class="lineno"> 9817</span>  <span class="comment">/* rb_ivar_set(elem, ID_at_enc, rb_str_new2("binary")); */</span></div>
<div class="line"><a name="l09818"></a><span class="lineno"> 9818</span>  <span class="comment">/* RARRAY(ary)->ptr[idx] = elem; */</span></div>
<div class="line"><a name="l09819"></a><span class="lineno"> 9819</span>  <a class="code" href="../../dc/dcc/array_8c.html#a59d553a8cd781364b8bcb0deae25cca2">rb_ary_push</a>(ary, elem)</div>
<div class="line"><a name="l09820"></a><span class="lineno"> 9820</span>  }</div>
<div class="line"><a name="l09821"></a><span class="lineno"> 9821</span>  <span class="comment">/* RARRAY(ary)->len = argc; */</span></div>
<div class="line"><a name="l09822"></a><span class="lineno"> 9822</span> </div>
<div class="line"><a name="l09823"></a><span class="lineno"> 9823</span>  <span class="keywordflow">if</span> (old_gc == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>) <a class="code" href="../../d8/d16/gc_8c.html#a3cbc64cc9d74c437c08a5dc923d1c7dd">rb_gc_enable</a>();</div>
<div class="line"><a name="l09824"></a><span class="lineno"> 9824</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09825"></a><span class="lineno"> 9825</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l09826"></a><span class="lineno"> 9826</span> </div>
<div class="line"><a name="l09827"></a><span class="lineno"> 9827</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa42b2591a0a1fcbbda5d4f1b90b5d62b">ary</a>;</div>
<div class="line"><a name="l09828"></a><span class="lineno"> 9828</span> }</div>
<div class="line"><a name="l09829"></a><span class="lineno"> 9829</span> </div>
<div class="line"><a name="l09830"></a><span class="lineno"> 9830</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09831"></a><span class="lineno"> 9831</span> lib_split_tklist(<span class="keyword">self</span>, list_str)</div>
<div class="line"><a name="l09832"></a><span class="lineno"> 9832</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l09833"></a><span class="lineno"> 9833</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> list_str;</div>
<div class="line"><a name="l09834"></a><span class="lineno"> 9834</span> {</div>
<div class="line"><a name="l09835"></a><span class="lineno"> 9835</span>  <span class="keywordflow">return</span> lib_split_tklist_core(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>, list_str);</div>
<div class="line"><a name="l09836"></a><span class="lineno"> 9836</span> }</div>
<div class="line"><a name="l09837"></a><span class="lineno"> 9837</span> </div>
<div class="line"><a name="l09838"></a><span class="lineno"> 9838</span> </div>
<div class="line"><a name="l09839"></a><span class="lineno"> 9839</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09840"></a><span class="lineno"> 9840</span> ip_split_tklist(<span class="keyword">self</span>, list_str)</div>
<div class="line"><a name="l09841"></a><span class="lineno"> 9841</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l09842"></a><span class="lineno"> 9842</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> list_str;</div>
<div class="line"><a name="l09843"></a><span class="lineno"> 9843</span> {</div>
<div class="line"><a name="l09844"></a><span class="lineno"> 9844</span>  <span class="keywordflow">return</span> lib_split_tklist_core(<span class="keyword">self</span>, list_str);</div>
<div class="line"><a name="l09845"></a><span class="lineno"> 9845</span> }</div>
<div class="line"><a name="l09846"></a><span class="lineno"> 9846</span> </div>
<div class="line"><a name="l09847"></a><span class="lineno"> 9847</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09848"></a><span class="lineno"> 9848</span> lib_merge_tklist(argc, argv, obj)</div>
<div class="line"><a name="l09849"></a><span class="lineno"> 9849</span>  int argc;</div>
<div class="line"><a name="l09850"></a><span class="lineno"> 9850</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l09851"></a><span class="lineno"> 9851</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> obj;</div>
<div class="line"><a name="l09852"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a4f8b213c8a1965b5debaa6ab99036537"> 9852</a></span> {</div>
<div class="line"><a name="l09853"></a><span class="lineno"> 9853</span>  <span class="keywordtype">int</span> num, <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>;</div>
<div class="line"><a name="l09854"></a><span class="lineno"> 9854</span>  <span class="keywordtype">int</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4f8b213c8a1965b5debaa6ab99036537">flagPtr</a>;</div>
<div class="line"><a name="l09855"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa36638418f48fb2f8074a4fc4d425a8c"> 9855</a></span>  <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#aa36638418f48fb2f8074a4fc4d425a8c">dst</a>, *<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae6cf673d09a03d1dfd71928b32d95161">result</a>;</div>
<div class="line"><a name="l09856"></a><span class="lineno"> 9856</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>;</div>
<div class="line"><a name="l09857"></a><span class="lineno"> 9857</span>  <span class="keywordtype">int</span> taint_flag = 0;</div>
<div class="line"><a name="l09858"></a><span class="lineno"> 9858</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09859"></a><span class="lineno"> 9859</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a40bc5d98d107b04ba07d2d0553b8cd11">old_gc</a>;</div>
<div class="line"><a name="l09860"></a><span class="lineno"> 9860</span> </div>
<div class="line"><a name="l09861"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5992508bfed3302c70b655e214b67126"> 9861</a></span>  <span class="keywordflow">if</span> (argc == 0) <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<span class="stringliteral">""</span>);</div>
<div class="line"><a name="l09862"></a><span class="lineno"> 9862</span> </div>
<div class="line"><a name="l09863"></a><span class="lineno"> 9863</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#abbe469560280c936662242c94a43d994">tcl_stubs_check</a>();</div>
<div class="line"><a name="l09864"></a><span class="lineno"> 9864</span> </div>
<div class="line"><a name="l09865"></a><span class="lineno"> 9865</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l09866"></a><span class="lineno"> 9866</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l09867"></a><span class="lineno"> 9867</span>  old_gc = <a class="code" href="../../d8/d16/gc_8c.html#a27a2dbb7307d5ea8e096ce4357f6ece6">rb_gc_disable</a>();</div>
<div class="line"><a name="l09868"></a><span class="lineno"> 9868</span> </div>
<div class="line"><a name="l09869"></a><span class="lineno"> 9869</span>  <span class="comment">/* based on Tcl/Tk's Tcl_Merge() */</span></div>
<div class="line"><a name="l09870"></a><span class="lineno"> 9870</span>  <span class="comment">/* flagPtr = ALLOC_N(int, argc); */</span></div>
<div class="line"><a name="l09871"></a><span class="lineno"> 9871</span>  flagPtr = (<span class="keywordtype">int</span> *)ckalloc(<span class="keyword">sizeof</span>(<span class="keywordtype">int</span>) * <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>);</div>
<div class="line"><a name="l09872"></a><span class="lineno"> 9872</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09873"></a><span class="lineno"> 9873</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)flagPtr); <span class="comment">/* XXXXXXXXXX */</span></div>
<div class="line"><a name="l09874"></a><span class="lineno"> 9874</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09875"></a><span class="lineno"> 9875</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l09876"></a><span class="lineno"> 9876</span>  <span class="comment">/* pass 1 */</span></div>
<div class="line"><a name="l09877"></a><span class="lineno"> 9877</span>  len = 1;</div>
<div class="line"><a name="l09878"></a><span class="lineno"> 9878</span>  <span class="keywordflow">for</span>(num = 0; num < <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>; num++) {</div>
<div class="line"><a name="l09879"></a><span class="lineno"> 9879</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a621bc62b1fd82640c1078daf90e1c061">OBJ_TAINTED</a>(argv[num])) taint_flag = 1;</div>
<div class="line"><a name="l09880"></a><span class="lineno"> 9880</span>  dst = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2665a51abbd5b49c15abff3df00fa9db">StringValuePtr</a>(argv[num]);</div>
<div class="line"><a name="l09881"></a><span class="lineno"> 9881</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l09882"></a><span class="lineno"> 9882</span> <span class="preprocessor"></span> len += Tcl_ScanCountedElement(dst, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(argv[num]),</div>
<div class="line"><a name="l09883"></a><span class="lineno"> 9883</span>  &flagPtr[num]) + 1;</div>
<div class="line"><a name="l09884"></a><span class="lineno"> 9884</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09885"></a><span class="lineno"> 9885</span> <span class="preprocessor"></span> len += Tcl_ScanElement(dst, &flagPtr[num]) + 1;</div>
<div class="line"><a name="l09886"></a><span class="lineno"> 9886</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09887"></a><span class="lineno"> 9887</span> <span class="preprocessor"></span> }</div>
<div class="line"><a name="l09888"></a><span class="lineno"> 9888</span> </div>
<div class="line"><a name="l09889"></a><span class="lineno"> 9889</span>  <span class="comment">/* pass 2 */</span></div>
<div class="line"><a name="l09890"></a><span class="lineno"> 9890</span>  <span class="comment">/* result = (char *)Tcl_Alloc(len); */</span></div>
<div class="line"><a name="l09891"></a><span class="lineno"> 9891</span>  result = (<span class="keywordtype">char</span> *)ckalloc(len);</div>
<div class="line"><a name="l09892"></a><span class="lineno"> 9892</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09893"></a><span class="lineno"> 9893</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a>((ClientData)result);</div>
<div class="line"><a name="l09894"></a><span class="lineno"> 9894</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09895"></a><span class="lineno"> 9895</span> <span class="preprocessor"></span> dst = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae6cf673d09a03d1dfd71928b32d95161">result</a>;</div>
<div class="line"><a name="l09896"></a><span class="lineno"> 9896</span>  <span class="keywordflow">for</span>(num = 0; num < <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a>; num++) {</div>
<div class="line"><a name="l09897"></a><span class="lineno"> 9897</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l09898"></a><span class="lineno"> 9898</span> <span class="preprocessor"></span> len = Tcl_ConvertCountedElement(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(argv[num]),</div>
<div class="line"><a name="l09899"></a><span class="lineno"> 9899</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(argv[num]),</div>
<div class="line"><a name="l09900"></a><span class="lineno"> 9900</span>  dst, flagPtr[num]);</div>
<div class="line"><a name="l09901"></a><span class="lineno"> 9901</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09902"></a><span class="lineno"> 9902</span> <span class="preprocessor"></span> len = Tcl_ConvertElement(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(argv[num]), dst, flagPtr[num]);</div>
<div class="line"><a name="l09903"></a><span class="lineno"> 9903</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09904"></a><span class="lineno"> 9904</span> <span class="preprocessor"></span> dst += <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>;</div>
<div class="line"><a name="l09905"></a><span class="lineno"> 9905</span>  *dst = <span class="charliteral">' '</span>;</div>
<div class="line"><a name="l09906"></a><span class="lineno"> 9906</span>  dst++;</div>
<div class="line"><a name="l09907"></a><span class="lineno"> 9907</span>  }</div>
<div class="line"><a name="l09908"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9d5dfcc8bac5f6b369f99a48f3882ede"> 9908</a></span>  <span class="keywordflow">if</span> (dst == result) {</div>
<div class="line"><a name="l09909"></a><span class="lineno"> 9909</span>  *dst = 0;</div>
<div class="line"><a name="l09910"></a><span class="lineno"> 9910</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l09911"></a><span class="lineno"> 9911</span>  dst[-1] = 0;</div>
<div class="line"><a name="l09912"></a><span class="lineno"> 9912</span>  }</div>
<div class="line"><a name="l09913"></a><span class="lineno"> 9913</span> </div>
<div class="line"><a name="l09914"></a><span class="lineno"> 9914</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09915"></a><span class="lineno"> 9915</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)flagPtr, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l09916"></a><span class="lineno"> 9916</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l09917"></a><span class="lineno"> 9917</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09918"></a><span class="lineno"> 9918</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)flagPtr);</div>
<div class="line"><a name="l09919"></a><span class="lineno"> 9919</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l09920"></a><span class="lineno"> 9920</span> <span class="preprocessor"></span> <span class="comment">/* free(flagPtr); */</span></div>
<div class="line"><a name="l09921"></a><span class="lineno"> 9921</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>((<span class="keywordtype">char</span>*)flagPtr);</div>
<div class="line"><a name="l09922"></a><span class="lineno"> 9922</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09923"></a><span class="lineno"> 9923</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09924"></a><span class="lineno"> 9924</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l09925"></a><span class="lineno"> 9925</span>  <span class="comment">/* create object */</span></div>
<div class="line"><a name="l09926"></a><span class="lineno"> 9926</span>  str = <a class="code" href="../../db/d2e/intern_8h.html#a48b2b873adb8b6a04254bd631c4b03c5">rb_str_new</a>(result, dst - result - 1);</div>
<div class="line"><a name="l09927"></a><span class="lineno"> 9927</span>  <span class="keywordflow">if</span> (taint_flag) <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832">RbTk_OBJ_UNTRUST</a>(str);</div>
<div class="line"><a name="l09928"></a><span class="lineno"> 9928</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09929"></a><span class="lineno"> 9929</span> <span class="preprocessor"></span> Tcl_EventuallyFree((ClientData)result, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div>
<div class="line"><a name="l09930"></a><span class="lineno"> 9930</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l09931"></a><span class="lineno"> 9931</span> <span class="preprocessor"></span><span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_Preserve/Release */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09932"></a><span class="lineno"> 9932</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a>((ClientData)result); <span class="comment">/* XXXXXXXXXXX */</span></div>
<div class="line"><a name="l09933"></a><span class="lineno"> 9933</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l09934"></a><span class="lineno"> 9934</span> <span class="preprocessor"></span> <span class="comment">/* Tcl_Free(result); */</span></div>
<div class="line"><a name="l09935"></a><span class="lineno"> 9935</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a>(result);</div>
<div class="line"><a name="l09936"></a><span class="lineno"> 9936</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09937"></a><span class="lineno"> 9937</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09938"></a><span class="lineno"> 9938</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l09939"></a><span class="lineno"> 9939</span>  <span class="keywordflow">if</span> (old_gc == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a>) <a class="code" href="../../d8/d16/gc_8c.html#a3cbc64cc9d74c437c08a5dc923d1c7dd">rb_gc_enable</a>();</div>
<div class="line"><a name="l09940"></a><span class="lineno"> 9940</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09941"></a><span class="lineno"> 9941</span> </div>
<div class="line"><a name="l09942"></a><span class="lineno"> 9942</span>  <span class="keywordflow">return</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a>;</div>
<div class="line"><a name="l09943"></a><span class="lineno"> 9943</span> }</div>
<div class="line"><a name="l09944"></a><span class="lineno"> 9944</span> </div>
<div class="line"><a name="l09945"></a><span class="lineno"> 9945</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09946"></a><span class="lineno"> 9946</span> lib_conv_listelement(<span class="keyword">self</span>, src)</div>
<div class="line"><a name="l09947"></a><span class="lineno"> 9947</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l09948"></a><span class="lineno"> 9948</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> src;</div>
<div class="line"><a name="l09949"></a><span class="lineno"> 9949</span> {</div>
<div class="line"><a name="l09950"></a><span class="lineno"> 9950</span>  <span class="keywordtype">int</span> <a class="code" href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a>, scan_flag;</div>
<div class="line"><a name="l09951"></a><span class="lineno"> 9951</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa36638418f48fb2f8074a4fc4d425a8c">dst</a>;</div>
<div class="line"><a name="l09952"></a><span class="lineno"> 9952</span>  <span class="keywordtype">int</span> taint_flag = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a621bc62b1fd82640c1078daf90e1c061">OBJ_TAINTED</a>(src);</div>
<div class="line"><a name="l09953"></a><span class="lineno"> 9953</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09954"></a><span class="lineno"> 9954</span> </div>
<div class="line"><a name="l09955"></a><span class="lineno"> 9955</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#abbe469560280c936662242c94a43d994">tcl_stubs_check</a>();</div>
<div class="line"><a name="l09956"></a><span class="lineno"> 9956</span> </div>
<div class="line"><a name="l09957"></a><span class="lineno"> 9957</span>  thr_crit_bup = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a>;</div>
<div class="line"><a name="l09958"></a><span class="lineno"> 9958</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>;</div>
<div class="line"><a name="l09959"></a><span class="lineno"> 9959</span> </div>
<div class="line"><a name="l09960"></a><span class="lineno"> 9960</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(src);</div>
<div class="line"><a name="l09961"></a><span class="lineno"> 9961</span> </div>
<div class="line"><a name="l09962"></a><span class="lineno"> 9962</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l09963"></a><span class="lineno"> 9963</span> <span class="preprocessor"></span> len = Tcl_ScanCountedElement(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(src), <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(src),</div>
<div class="line"><a name="l09964"></a><span class="lineno"> 9964</span>  &scan_flag);</div>
<div class="line"><a name="l09965"></a><span class="lineno"> 9965</span>  dst = <a class="code" href="../../db/d2e/intern_8h.html#a48b2b873adb8b6a04254bd631c4b03c5">rb_str_new</a>(0, len + 1);</div>
<div class="line"><a name="l09966"></a><span class="lineno"> 9966</span>  len = Tcl_ConvertCountedElement(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(src), <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a>(src),</div>
<div class="line"><a name="l09967"></a><span class="lineno"> 9967</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(dst), scan_flag);</div>
<div class="line"><a name="l09968"></a><span class="lineno"> 9968</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l09969"></a><span class="lineno"> 9969</span> <span class="preprocessor"></span> len = Tcl_ScanElement(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(src), &scan_flag);</div>
<div class="line"><a name="l09970"></a><span class="lineno"> 9970</span>  dst = <a class="code" href="../../db/d2e/intern_8h.html#a48b2b873adb8b6a04254bd631c4b03c5">rb_str_new</a>(0, len + 1);</div>
<div class="line"><a name="l09971"></a><span class="lineno"> 9971</span>  len = Tcl_ConvertElement(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(src), <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(dst), scan_flag);</div>
<div class="line"><a name="l09972"></a><span class="lineno"> 9972</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l09973"></a><span class="lineno"> 9973</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l09974"></a><span class="lineno"> 9974</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0a133856edb99f69eae3cb5a9e275ac9">rb_str_resize</a>(dst, len);</div>
<div class="line"><a name="l09975"></a><span class="lineno"> 9975</span>  <span class="keywordflow">if</span> (taint_flag) <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832">RbTk_OBJ_UNTRUST</a>(dst);</div>
<div class="line"><a name="l09976"></a><span class="lineno"> 9976</span> </div>
<div class="line"><a name="l09977"></a><span class="lineno"> 9977</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a>;</div>
<div class="line"><a name="l09978"></a><span class="lineno"> 9978</span> </div>
<div class="line"><a name="l09979"></a><span class="lineno"> 9979</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa36638418f48fb2f8074a4fc4d425a8c">dst</a>;</div>
<div class="line"><a name="l09980"></a><span class="lineno"> 9980</span> }</div>
<div class="line"><a name="l09981"></a><span class="lineno"> 9981</span> </div>
<div class="line"><a name="l09982"></a><span class="lineno"> 9982</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09983"></a><span class="lineno"> 9983</span> lib_getversion(<span class="keyword">self</span>)</div>
<div class="line"><a name="l09984"></a><span class="lineno"> 9984</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l09985"></a><span class="lineno"> 9985</span> {</div>
<div class="line"><a name="l09986"></a><span class="lineno"> 9986</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a171a0d27738b86387c3b5d7a5ff075e8">set_tcltk_version</a>();</div>
<div class="line"><a name="l09987"></a><span class="lineno"> 9987</span> </div>
<div class="line"><a name="l09988"></a><span class="lineno"> 9988</span>  <span class="keywordflow">return</span> <a class="code" href="../../dc/dcc/array_8c.html#a8317ecd6a0abb5ad08c50c732f30059b">rb_ary_new3</a>(4, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aca9f83a35416ed9d6e0b860afa5eaf0f">INT2NUM</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad8ac3374c4088a9f45080df85e325e8e">tcltk_version</a>.major),</div>
<div class="line"><a name="l09989"></a><span class="lineno"> 9989</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aca9f83a35416ed9d6e0b860afa5eaf0f">INT2NUM</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad8ac3374c4088a9f45080df85e325e8e">tcltk_version</a>.minor),</div>
<div class="line"><a name="l09990"></a><span class="lineno"> 9990</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aca9f83a35416ed9d6e0b860afa5eaf0f">INT2NUM</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad8ac3374c4088a9f45080df85e325e8e">tcltk_version</a>.type),</div>
<div class="line"><a name="l09991"></a><span class="lineno"> 9991</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aca9f83a35416ed9d6e0b860afa5eaf0f">INT2NUM</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad8ac3374c4088a9f45080df85e325e8e">tcltk_version</a>.patchlevel));</div>
<div class="line"><a name="l09992"></a><span class="lineno"> 9992</span> }</div>
<div class="line"><a name="l09993"></a><span class="lineno"> 9993</span> </div>
<div class="line"><a name="l09994"></a><span class="lineno"> 9994</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l09995"></a><span class="lineno"> 9995</span> lib_get_reltype_name(<span class="keyword">self</span>)</div>
<div class="line"><a name="l09996"></a><span class="lineno"> 9996</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> self;</div>
<div class="line"><a name="l09997"></a><span class="lineno"> 9997</span> {</div>
<div class="line"><a name="l09998"></a><span class="lineno"> 9998</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a171a0d27738b86387c3b5d7a5ff075e8">set_tcltk_version</a>();</div>
<div class="line"><a name="l09999"></a><span class="lineno"> 9999</span> </div>
<div class="line"><a name="l10000"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac53cde2829ce24e047d3eedc7e494f4e">10000</a></span>  <span class="keywordflow">switch</span>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad8ac3374c4088a9f45080df85e325e8e">tcltk_version</a>.type) {</div>
<div class="line"><a name="l10001"></a><span class="lineno">10001</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4de6261e8241d2b1a2042687e2f3f5f1">TCL_ALPHA_RELEASE</a>:</div>
<div class="line"><a name="l10002"></a><span class="lineno">10002</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<span class="stringliteral">"alpha"</span>);</div>
<div class="line"><a name="l10003"></a><span class="lineno">10003</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af677d35e643bf3e4f082296e5e14bce9">TCL_BETA_RELEASE</a>:</div>
<div class="line"><a name="l10004"></a><span class="lineno">10004</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<span class="stringliteral">"beta"</span>);</div>
<div class="line"><a name="l10005"></a><span class="lineno">10005</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aeebe90bc7223d7d0cdc31f8e2e336e40">TCL_FINAL_RELEASE</a>:</div>
<div class="line"><a name="l10006"></a><span class="lineno">10006</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<span class="stringliteral">"final"</span>);</div>
<div class="line"><a name="l10007"></a><span class="lineno">10007</span>  <span class="keywordflow">default</span>:</div>
<div class="line"><a name="l10008"></a><span class="lineno">10008</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"tcltklib has invalid release type number"</span>);</div>
<div class="line"><a name="l10009"></a><span class="lineno">10009</span>  }</div>
<div class="line"><a name="l10010"></a><span class="lineno">10010</span> }</div>
<div class="line"><a name="l10011"></a><span class="lineno">10011</span> </div>
<div class="line"><a name="l10012"></a><span class="lineno">10012</span> </div>
<div class="line"><a name="l10013"></a><span class="lineno">10013</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l10014"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aedbcc28fcbb1d229b51954633635b29a">10014</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aedbcc28fcbb1d229b51954633635b29a">tcltklib_compile_info</a>()</div>
<div class="line"><a name="l10015"></a><span class="lineno">10015</span> {</div>
<div class="line"><a name="l10016"></a><span class="lineno">10016</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l10017"></a><span class="lineno">10017</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>;</div>
<div class="line"><a name="l10018"></a><span class="lineno">10018</span>  <span class="keywordtype">char</span> form[]</div>
<div class="line"><a name="l10019"></a><span class="lineno">10019</span>  = <span class="stringliteral">"tcltklib %s :: Ruby%s (%s) %s pthread :: Tcl%s(%s)/Tk%s(%s) %s"</span>;</div>
<div class="line"><a name="l10020"></a><span class="lineno">10020</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0519a447ec4809b051ea38b41c4012a6">info</a>;</div>
<div class="line"><a name="l10021"></a><span class="lineno">10021</span> </div>
<div class="line"><a name="l10022"></a><span class="lineno">10022</span>  size = <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(form)</div>
<div class="line"><a name="l10023"></a><span class="lineno">10023</span>  + <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a1e2eb8512f9421fa7485556a9e3bf439">TCLTKLIB_RELEASE_DATE</a>)</div>
<div class="line"><a name="l10024"></a><span class="lineno">10024</span>  + <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad0c39c601f4084e6d3ee83dcba61358d">RUBY_VERSION</a>)</div>
<div class="line"><a name="l10025"></a><span class="lineno">10025</span>  + <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad63676505f273f55863e4c39b0940cc3">RUBY_RELEASE_DATE</a>)</div>
<div class="line"><a name="l10026"></a><span class="lineno">10026</span>  + <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(<span class="stringliteral">"without"</span>)</div>
<div class="line"><a name="l10027"></a><span class="lineno">10027</span>  + <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(TCL_PATCH_LEVEL)</div>
<div class="line"><a name="l10028"></a><span class="lineno">10028</span>  + <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(<span class="stringliteral">"without stub"</span>)</div>
<div class="line"><a name="l10029"></a><span class="lineno">10029</span>  + <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(TK_PATCH_LEVEL)</div>
<div class="line"><a name="l10030"></a><span class="lineno">10030</span>  + <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(<span class="stringliteral">"without stub"</span>)</div>
<div class="line"><a name="l10031"></a><span class="lineno">10031</span>  + <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(<span class="stringliteral">"unknown tcl_threads"</span>);</div>
<div class="line"><a name="l10032"></a><span class="lineno">10032</span> </div>
<div class="line"><a name="l10033"></a><span class="lineno">10033</span>  info = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a79041aa2bc7439c11906a86f82a52eb6">ALLOC_N</a>(<span class="keywordtype">char</span>, size);</div>
<div class="line"><a name="l10034"></a><span class="lineno">10034</span>  <span class="comment">/* info = ckalloc(sizeof(char) * size); */</span> <span class="comment">/* SEGV */</span></div>
<div class="line"><a name="l10035"></a><span class="lineno">10035</span> </div>
<div class="line"><a name="l10036"></a><span class="lineno">10036</span>  sprintf(info, form,</div>
<div class="line"><a name="l10037"></a><span class="lineno">10037</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1e2eb8512f9421fa7485556a9e3bf439">TCLTKLIB_RELEASE_DATE</a>,</div>
<div class="line"><a name="l10038"></a><span class="lineno">10038</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad0c39c601f4084e6d3ee83dcba61358d">RUBY_VERSION</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad63676505f273f55863e4c39b0940cc3">RUBY_RELEASE_DATE</a>,</div>
<div class="line"><a name="l10039"></a><span class="lineno">10039</span> #ifdef <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa4f826fc17b461cf70c6dafc9d3d0027">HAVE_NATIVETHREAD</a></div>
<div class="line"><a name="l10040"></a><span class="lineno">10040</span>  <span class="stringliteral">"with"</span>,</div>
<div class="line"><a name="l10041"></a><span class="lineno">10041</span> #<span class="keywordflow">else</span></div>
<div class="line"><a name="l10042"></a><span class="lineno">10042</span>  <span class="stringliteral">"without"</span>,</div>
<div class="line"><a name="l10043"></a><span class="lineno">10043</span> #endif</div>
<div class="line"><a name="l10044"></a><span class="lineno">10044</span>  TCL_PATCH_LEVEL,</div>
<div class="line"><a name="l10045"></a><span class="lineno">10045</span> #ifdef USE_TCL_STUBS</div>
<div class="line"><a name="l10046"></a><span class="lineno">10046</span>  <span class="stringliteral">"with stub"</span>,</div>
<div class="line"><a name="l10047"></a><span class="lineno">10047</span> #<span class="keywordflow">else</span></div>
<div class="line"><a name="l10048"></a><span class="lineno">10048</span>  <span class="stringliteral">"without stub"</span>,</div>
<div class="line"><a name="l10049"></a><span class="lineno">10049</span> #endif</div>
<div class="line"><a name="l10050"></a><span class="lineno">10050</span>  TK_PATCH_LEVEL,</div>
<div class="line"><a name="l10051"></a><span class="lineno">10051</span> #ifdef USE_TK_STUBS</div>
<div class="line"><a name="l10052"></a><span class="lineno">10052</span>  <span class="stringliteral">"with stub"</span>,</div>
<div class="line"><a name="l10053"></a><span class="lineno">10053</span> #<span class="keywordflow">else</span></div>
<div class="line"><a name="l10054"></a><span class="lineno">10054</span>  <span class="stringliteral">"without stub"</span>,</div>
<div class="line"><a name="l10055"></a><span class="lineno">10055</span> #endif</div>
<div class="line"><a name="l10056"></a><span class="lineno">10056</span> #ifdef WITH_TCL_ENABLE_THREAD</div>
<div class="line"><a name="l10057"></a><span class="lineno">10057</span> # <span class="keywordflow">if</span> WITH_TCL_ENABLE_THREAD</div>
<div class="line"><a name="l10058"></a><span class="lineno">10058</span>  <span class="stringliteral">"with tcl_threads"</span></div>
<div class="line"><a name="l10059"></a><span class="lineno">10059</span> # <span class="keywordflow">else</span></div>
<div class="line"><a name="l10060"></a><span class="lineno">10060</span>  <span class="stringliteral">"without tcl_threads"</span></div>
<div class="line"><a name="l10061"></a><span class="lineno">10061</span> # endif</div>
<div class="line"><a name="l10062"></a><span class="lineno">10062</span> #<span class="keywordflow">else</span></div>
<div class="line"><a name="l10063"></a><span class="lineno">10063</span>  <span class="stringliteral">"unknown tcl_threads"</span></div>
<div class="line"><a name="l10064"></a><span class="lineno">10064</span> #endif</div>
<div class="line"><a name="l10065"></a><span class="lineno">10065</span>  );</div>
<div class="line"><a name="l10066"></a><span class="lineno">10066</span> </div>
<div class="line"><a name="l10067"></a><span class="lineno">10067</span>  ret = <a class="code" href="../../db/d2e/intern_8h.html#a8ea3742679211f408cb5769de6cf0d46">rb_obj_freeze</a>(<a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(info));</div>
<div class="line"><a name="l10068"></a><span class="lineno">10068</span> </div>
<div class="line"><a name="l10069"></a><span class="lineno">10069</span>  <a class="code" href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a>(info);</div>
<div class="line"><a name="l10070"></a><span class="lineno">10070</span>  <span class="comment">/* ckfree(info); */</span></div>
<div class="line"><a name="l10071"></a><span class="lineno">10071</span> </div>
<div class="line"><a name="l10072"></a><span class="lineno">10072</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l10073"></a><span class="lineno">10073</span> }</div>
<div class="line"><a name="l10074"></a><span class="lineno">10074</span> </div>
<div class="line"><a name="l10075"></a><span class="lineno">10075</span> </div>
<div class="line"><a name="l10076"></a><span class="lineno">10076</span> <span class="comment">/*###############################################*/</span></div>
<div class="line"><a name="l10077"></a><span class="lineno">10077</span> </div>
<div class="line"><a name="l10078"></a><span class="lineno">10078</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l10079"></a><span class="lineno">10079</span> create_dummy_encoding_for_tk_core(interp, name, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a51149f34ac77e93a73d6a687469e501d">error_mode</a>)</div>
<div class="line"><a name="l10080"></a><span class="lineno">10080</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l10081"></a><span class="lineno">10081</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> name;</div>
<div class="line"><a name="l10082"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a51149f34ac77e93a73d6a687469e501d">10082</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a51149f34ac77e93a73d6a687469e501d">error_mode</a>;</div>
<div class="line"><a name="l10083"></a><span class="lineno">10083</span> {</div>
<div class="line"><a name="l10084"></a><span class="lineno">10084</span>  get_ip(interp);</div>
<div class="line"><a name="l10085"></a><span class="lineno">10085</span> </div>
<div class="line"><a name="l10086"></a><span class="lineno">10086</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a94573b23a7c5d9c129da54deebf38842">rb_secure</a>(4);</div>
<div class="line"><a name="l10087"></a><span class="lineno">10087</span> </div>
<div class="line"><a name="l10088"></a><span class="lineno">10088</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(name);</div>
<div class="line"><a name="l10089"></a><span class="lineno">10089</span> </div>
<div class="line"><a name="l10090"></a><span class="lineno">10090</span> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION >= 1)</span></div>
<div class="line"><a name="l10091"></a><span class="lineno">10091</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (Tcl_GetEncoding((Tcl_Interp*)NULL, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(name)) == (Tcl_Encoding)NULL) {</div>
<div class="line"><a name="l10092"></a><span class="lineno">10092</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(error_mode)) {</div>
<div class="line"><a name="l10093"></a><span class="lineno">10093</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"invalid Tk encoding name '%s'"</span>,</div>
<div class="line"><a name="l10094"></a><span class="lineno">10094</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(name));</div>
<div class="line"><a name="l10095"></a><span class="lineno">10095</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l10096"></a><span class="lineno">10096</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l10097"></a><span class="lineno">10097</span>  }</div>
<div class="line"><a name="l10098"></a><span class="lineno">10098</span>  }</div>
<div class="line"><a name="l10099"></a><span class="lineno">10099</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l10100"></a><span class="lineno">10100</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l10101"></a><span class="lineno">10101</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l10102"></a><span class="lineno">10102</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/db5/encoding_8c.html#a873f1c2ba114f13f45b84990a5a595b7">rb_define_dummy_encoding</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(name)))) {</div>
<div class="line"><a name="l10103"></a><span class="lineno">10103</span>  <span class="keywordtype">int</span> idx = <a class="code" href="../../d5/db5/encoding_8c.html#adeb5f5b97ea43528a55d717add8f64c5">rb_enc_find_index</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#afc32c1526ac6cb40ec33cad8782c0bae">StringValueCStr</a>(name));</div>
<div class="line"><a name="l10104"></a><span class="lineno">10104</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/db5/encoding_8c.html#ad4918664be7424ab9f961165eecb6c18">rb_enc_from_encoding</a>(<a class="code" href="../../d5/db5/encoding_8c.html#aef9c377b2d9d78b9f88e890b77593109">rb_enc_from_index</a>(idx));</div>
<div class="line"><a name="l10105"></a><span class="lineno">10105</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l10106"></a><span class="lineno">10106</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(error_mode)) {</div>
<div class="line"><a name="l10107"></a><span class="lineno">10107</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"fail to create dummy encoding for '%s'"</span>,</div>
<div class="line"><a name="l10108"></a><span class="lineno">10108</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(name));</div>
<div class="line"><a name="l10109"></a><span class="lineno">10109</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l10110"></a><span class="lineno">10110</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l10111"></a><span class="lineno">10111</span>  }</div>
<div class="line"><a name="l10112"></a><span class="lineno">10112</span>  }</div>
<div class="line"><a name="l10113"></a><span class="lineno">10113</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l10114"></a><span class="lineno">10114</span> <span class="preprocessor"></span> <span class="keywordflow">return</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#afeadf3d97090e74a174614cac38a5dd6">name</a>;</div>
<div class="line"><a name="l10115"></a><span class="lineno">10115</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l10116"></a><span class="lineno">10116</span> <span class="preprocessor"></span>}</div>
<div class="line"><a name="l10117"></a><span class="lineno">10117</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l10118"></a><span class="lineno">10118</span> create_dummy_encoding_for_tk(interp, name)</div>
<div class="line"><a name="l10119"></a><span class="lineno">10119</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l10120"></a><span class="lineno">10120</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> name;</div>
<div class="line"><a name="l10121"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a67fbe68c1b421badd861a1fa7c525058">10121</a></span> {</div>
<div class="line"><a name="l10122"></a><span class="lineno">10122</span>  <span class="keywordflow">return</span> create_dummy_encoding_for_tk_core(interp, name, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>);</div>
<div class="line"><a name="l10123"></a><span class="lineno">10123</span> }</div>
<div class="line"><a name="l10124"></a><span class="lineno">10124</span> </div>
<div class="line"><a name="l10125"></a><span class="lineno">10125</span> </div>
<div class="line"><a name="l10126"></a><span class="lineno">10126</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l10127"></a><span class="lineno">10127</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l10128"></a><span class="lineno">10128</span> update_encoding_table(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a67fbe68c1b421badd861a1fa7c525058">table</a>, interp, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a51149f34ac77e93a73d6a687469e501d">error_mode</a>)</div>
<div class="line"><a name="l10129"></a><span class="lineno">10129</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67fbe68c1b421badd861a1fa7c525058">table</a>;</div>
<div class="line"><a name="l10130"></a><span class="lineno">10130</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l10131"></a><span class="lineno">10131</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a51149f34ac77e93a73d6a687469e501d">error_mode</a>;</div>
<div class="line"><a name="l10132"></a><span class="lineno">10132</span> {</div>
<div class="line"><a name="l10133"></a><span class="lineno">10133</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>;</div>
<div class="line"><a name="l10134"></a><span class="lineno">10134</span>  <span class="keywordtype">int</span> retry = 0;</div>
<div class="line"><a name="l10135"></a><span class="lineno">10135</span>  <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae40354a1051342eb5a9db005715dcfa9">idx</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>;</div>
<div class="line"><a name="l10136"></a><span class="lineno">10136</span>  Tcl_Obj **<a class="code" href="../../d5/d9d/tcltklib_8c.html#a5989eede682afd9743c0345d772674d5">objv</a>;</div>
<div class="line"><a name="l10137"></a><span class="lineno">10137</span>  Tcl_Obj *<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>;</div>
<div class="line"><a name="l10138"></a><span class="lineno">10138</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> encname = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l10139"></a><span class="lineno">10139</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> encobj = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l10140"></a><span class="lineno">10140</span> </div>
<div class="line"><a name="l10141"></a><span class="lineno">10141</span>  <span class="comment">/* interpreter check */</span></div>
<div class="line"><a name="l10142"></a><span class="lineno">10142</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(interp)) <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l10143"></a><span class="lineno">10143</span>  ptr = get_ip(interp);</div>
<div class="line"><a name="l10144"></a><span class="lineno">10144</span>  <span class="keywordflow">if</span> (ptr == (<span class="keyword">struct</span> <a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *) NULL) <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l10145"></a><span class="lineno">10145</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l10146"></a><span class="lineno">10146</span> </div>
<div class="line"><a name="l10147"></a><span class="lineno">10147</span>  <span class="comment">/* get Tcl's encoding list */</span></div>
<div class="line"><a name="l10148"></a><span class="lineno">10148</span>  Tcl_GetEncodingNames(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l10149"></a><span class="lineno">10149</span>  enc_list = Tcl_GetObjResult(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l10150"></a><span class="lineno">10150</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(enc_list);</div>
<div class="line"><a name="l10151"></a><span class="lineno">10151</span> </div>
<div class="line"><a name="l10152"></a><span class="lineno">10152</span>  <span class="keywordflow">if</span> (Tcl_ListObjGetElements(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, enc_list,</div>
<div class="line"><a name="l10153"></a><span class="lineno">10153</span>  &objc, &objv) != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l10154"></a><span class="lineno">10154</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(enc_list);</div>
<div class="line"><a name="l10155"></a><span class="lineno">10155</span>  <span class="comment">/* rb_raise(rb_eRuntimeError, "failt to get Tcl's encoding names");*/</span></div>
<div class="line"><a name="l10156"></a><span class="lineno">10156</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l10157"></a><span class="lineno">10157</span>  }</div>
<div class="line"><a name="l10158"></a><span class="lineno">10158</span> </div>
<div class="line"><a name="l10159"></a><span class="lineno">10159</span>  <span class="comment">/* check each encoding name */</span></div>
<div class="line"><a name="l10160"></a><span class="lineno">10160</span>  <span class="keywordflow">for</span>(i = 0; i < <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>; i++) {</div>
<div class="line"><a name="l10161"></a><span class="lineno">10161</span>  encname = <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(Tcl_GetString(objv[i]));</div>
<div class="line"><a name="l10162"></a><span class="lineno">10162</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table, encname))) {</div>
<div class="line"><a name="l10163"></a><span class="lineno">10163</span>  <span class="comment">/* new Tk encoding -> add to table */</span></div>
<div class="line"><a name="l10164"></a><span class="lineno">10164</span>  idx = <a class="code" href="../../d5/db5/encoding_8c.html#adeb5f5b97ea43528a55d717add8f64c5">rb_enc_find_index</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#afc32c1526ac6cb40ec33cad8782c0bae">StringValueCStr</a>(encname));</div>
<div class="line"><a name="l10165"></a><span class="lineno">10165</span>  <span class="keywordflow">if</span> (idx < 0) {</div>
<div class="line"><a name="l10166"></a><span class="lineno">10166</span>  encobj = create_dummy_encoding_for_tk_core(interp,encname,error_mode);</div>
<div class="line"><a name="l10167"></a><span class="lineno">10167</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l10168"></a><span class="lineno">10168</span>  encobj = <a class="code" href="../../d5/db5/encoding_8c.html#ad4918664be7424ab9f961165eecb6c18">rb_enc_from_encoding</a>(<a class="code" href="../../d5/db5/encoding_8c.html#aef9c377b2d9d78b9f88e890b77593109">rb_enc_from_index</a>(idx));</div>
<div class="line"><a name="l10169"></a><span class="lineno">10169</span>  }</div>
<div class="line"><a name="l10170"></a><span class="lineno">10170</span>  encname = <a class="code" href="../../db/d2e/intern_8h.html#a8ea3742679211f408cb5769de6cf0d46">rb_obj_freeze</a>(encname);</div>
<div class="line"><a name="l10171"></a><span class="lineno">10171</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a641bbc8f06f4815eacb494e5625b5454">rb_hash_aset</a>(table, encname, encobj);</div>
<div class="line"><a name="l10172"></a><span class="lineno">10172</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(encobj) && <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table, encobj))) {</div>
<div class="line"><a name="l10173"></a><span class="lineno">10173</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a641bbc8f06f4815eacb494e5625b5454">rb_hash_aset</a>(table, encobj, encname);</div>
<div class="line"><a name="l10174"></a><span class="lineno">10174</span>  }</div>
<div class="line"><a name="l10175"></a><span class="lineno">10175</span>  retry = 1;</div>
<div class="line"><a name="l10176"></a><span class="lineno">10176</span>  }</div>
<div class="line"><a name="l10177"></a><span class="lineno">10177</span>  }</div>
<div class="line"><a name="l10178"></a><span class="lineno">10178</span> </div>
<div class="line"><a name="l10179"></a><span class="lineno">10179</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(enc_list);</div>
<div class="line"><a name="l10180"></a><span class="lineno">10180</span> </div>
<div class="line"><a name="l10181"></a><span class="lineno">10181</span>  <span class="keywordflow">return</span> retry;</div>
<div class="line"><a name="l10182"></a><span class="lineno">10182</span> }</div>
<div class="line"><a name="l10183"></a><span class="lineno">10183</span> </div>
<div class="line"><a name="l10184"></a><span class="lineno">10184</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l10185"></a><span class="lineno">10185</span> encoding_table_get_name_core(table, <a class="code" href="../../d3/d26/transcode_8c.html#a87f3c41a3f6c759a2a71313985efa202">enc_arg</a>, error_mode)</div>
<div class="line"><a name="l10186"></a><span class="lineno">10186</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> table;</div>
<div class="line"><a name="l10187"></a><span class="lineno">10187</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d3/d26/transcode_8c.html#a87f3c41a3f6c759a2a71313985efa202">enc_arg</a>;</div>
<div class="line"><a name="l10188"></a><span class="lineno">10188</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> error_mode;</div>
<div class="line"><a name="l10189"></a><span class="lineno">10189</span> {</div>
<div class="line"><a name="l10190"></a><span class="lineno">10190</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> enc = <a class="code" href="../../d3/d26/transcode_8c.html#a87f3c41a3f6c759a2a71313985efa202">enc_arg</a>;</div>
<div class="line"><a name="l10191"></a><span class="lineno">10191</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> name = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l10192"></a><span class="lineno">10192</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> tmp = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l10193"></a><span class="lineno">10193</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp = <a class="code" href="../../db/d2e/intern_8h.html#a35a10b958666c1b330238eea7b7f3a8a">rb_ivar_get</a>(table, ID_at_interp);</div>
<div class="line"><a name="l10194"></a><span class="lineno">10194</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = (<span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *) NULL;</div>
<div class="line"><a name="l10195"></a><span class="lineno">10195</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae40354a1051342eb5a9db005715dcfa9">idx</a>;</div>
<div class="line"><a name="l10196"></a><span class="lineno">10196</span> </div>
<div class="line"><a name="l10197"></a><span class="lineno">10197</span>  <span class="comment">/* deleted interp ? */</span></div>
<div class="line"><a name="l10198"></a><span class="lineno">10198</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(interp)) {</div>
<div class="line"><a name="l10199"></a><span class="lineno">10199</span>  ptr = get_ip(interp);</div>
<div class="line"><a name="l10200"></a><span class="lineno">10200</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) {</div>
<div class="line"><a name="l10201"></a><span class="lineno">10201</span>  ptr = (<span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *) NULL;</div>
<div class="line"><a name="l10202"></a><span class="lineno">10202</span>  }</div>
<div class="line"><a name="l10203"></a><span class="lineno">10203</span>  }</div>
<div class="line"><a name="l10204"></a><span class="lineno">10204</span> </div>
<div class="line"><a name="l10205"></a><span class="lineno">10205</span>  <span class="comment">/* encoding argument check */</span></div>
<div class="line"><a name="l10206"></a><span class="lineno">10206</span>  <span class="comment">/* 1st: default encoding setting of interp */</span></div>
<div class="line"><a name="l10207"></a><span class="lineno">10207</span>  <span class="keywordflow">if</span> (ptr && <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(enc)) {</div>
<div class="line"><a name="l10208"></a><span class="lineno">10208</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a5c6c63c2619b8c03df2e173ef1e73846">rb_respond_to</a>(interp, ID_encoding_name)) {</div>
<div class="line"><a name="l10209"></a><span class="lineno">10209</span>  enc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(interp, ID_encoding_name, 0, 0);</div>
<div class="line"><a name="l10210"></a><span class="lineno">10210</span>  }</div>
<div class="line"><a name="l10211"></a><span class="lineno">10211</span>  }</div>
<div class="line"><a name="l10212"></a><span class="lineno">10212</span>  <span class="comment">/* 2nd: Encoding.default_internal */</span></div>
<div class="line"><a name="l10213"></a><span class="lineno">10213</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(enc)) {</div>
<div class="line"><a name="l10214"></a><span class="lineno">10214</span>  enc = <a class="code" href="../../d5/db5/encoding_8c.html#ab349505ca2fad4f5b219b2acf2dae38d">rb_enc_default_internal</a>();</div>
<div class="line"><a name="l10215"></a><span class="lineno">10215</span>  }</div>
<div class="line"><a name="l10216"></a><span class="lineno">10216</span>  <span class="comment">/* 3rd: encoding system of Tcl/Tk */</span></div>
<div class="line"><a name="l10217"></a><span class="lineno">10217</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(enc)) {</div>
<div class="line"><a name="l10218"></a><span class="lineno">10218</span>  enc = <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(Tcl_GetEncodingName((Tcl_Encoding)NULL));</div>
<div class="line"><a name="l10219"></a><span class="lineno">10219</span>  }</div>
<div class="line"><a name="l10220"></a><span class="lineno">10220</span>  <span class="comment">/* 4th: Encoding.default_external */</span></div>
<div class="line"><a name="l10221"></a><span class="lineno">10221</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(enc)) {</div>
<div class="line"><a name="l10222"></a><span class="lineno">10222</span>  enc = <a class="code" href="../../d5/db5/encoding_8c.html#a7a76bad982a033dc3a83c916df6e4c36">rb_enc_default_external</a>();</div>
<div class="line"><a name="l10223"></a><span class="lineno">10223</span>  }</div>
<div class="line"><a name="l10224"></a><span class="lineno">10224</span>  <span class="comment">/* 5th: Encoding.locale_charmap */</span></div>
<div class="line"><a name="l10225"></a><span class="lineno">10225</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(enc)) {</div>
<div class="line"><a name="l10226"></a><span class="lineno">10226</span>  enc = <a class="code" href="../../d5/db5/encoding_8c.html#a75bf3cec8d8f89555c989b8c6629e234">rb_locale_charmap</a>(<a class="code" href="../../d5/db5/encoding_8c.html#a9a2af36eb4187c33c7e8ff329c440966">rb_cEncoding</a>);</div>
<div class="line"><a name="l10227"></a><span class="lineno">10227</span>  }</div>
<div class="line"><a name="l10228"></a><span class="lineno">10228</span> </div>
<div class="line"><a name="l10229"></a><span class="lineno">10229</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(enc, cRubyEncoding))) {</div>
<div class="line"><a name="l10230"></a><span class="lineno">10230</span>  <span class="comment">/* Ruby's Encoding object */</span></div>
<div class="line"><a name="l10231"></a><span class="lineno">10231</span>  name = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table, enc);</div>
<div class="line"><a name="l10232"></a><span class="lineno">10232</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(name)) {</div>
<div class="line"><a name="l10233"></a><span class="lineno">10233</span>  <span class="comment">/* find */</span></div>
<div class="line"><a name="l10234"></a><span class="lineno">10234</span>  <span class="keywordflow">return</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#afeadf3d97090e74a174614cac38a5dd6">name</a>;</div>
<div class="line"><a name="l10235"></a><span class="lineno">10235</span>  }</div>
<div class="line"><a name="l10236"></a><span class="lineno">10236</span> </div>
<div class="line"><a name="l10237"></a><span class="lineno">10237</span>  <span class="comment">/* is it new ? */</span></div>
<div class="line"><a name="l10238"></a><span class="lineno">10238</span>  <span class="comment">/* update check of Tk encoding names */</span></div>
<div class="line"><a name="l10239"></a><span class="lineno">10239</span>  <span class="keywordflow">if</span> (update_encoding_table(table, interp, error_mode)) {</div>
<div class="line"><a name="l10240"></a><span class="lineno">10240</span>  <span class="comment">/* add new relations to the table */</span></div>
<div class="line"><a name="l10241"></a><span class="lineno">10241</span>  <span class="comment">/* RETRY: registered Ruby encoding? */</span></div>
<div class="line"><a name="l10242"></a><span class="lineno">10242</span>  name = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table, enc);</div>
<div class="line"><a name="l10243"></a><span class="lineno">10243</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(name)) {</div>
<div class="line"><a name="l10244"></a><span class="lineno">10244</span>  <span class="comment">/* find */</span></div>
<div class="line"><a name="l10245"></a><span class="lineno">10245</span>  <span class="keywordflow">return</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#afeadf3d97090e74a174614cac38a5dd6">name</a>;</div>
<div class="line"><a name="l10246"></a><span class="lineno">10246</span>  }</div>
<div class="line"><a name="l10247"></a><span class="lineno">10247</span>  }</div>
<div class="line"><a name="l10248"></a><span class="lineno">10248</span>  <span class="comment">/* fail to find */</span></div>
<div class="line"><a name="l10249"></a><span class="lineno">10249</span> </div>
<div class="line"><a name="l10250"></a><span class="lineno">10250</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l10251"></a><span class="lineno">10251</span>  <span class="comment">/* String or Symbol? */</span></div>
<div class="line"><a name="l10252"></a><span class="lineno">10252</span>  name = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(enc, ID_to_s, 0, 0);</div>
<div class="line"><a name="l10253"></a><span class="lineno">10253</span> </div>
<div class="line"><a name="l10254"></a><span class="lineno">10254</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table, name))) {</div>
<div class="line"><a name="l10255"></a><span class="lineno">10255</span>  <span class="comment">/* find */</span></div>
<div class="line"><a name="l10256"></a><span class="lineno">10256</span>  <span class="keywordflow">return</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#afeadf3d97090e74a174614cac38a5dd6">name</a>;</div>
<div class="line"><a name="l10257"></a><span class="lineno">10257</span>  }</div>
<div class="line"><a name="l10258"></a><span class="lineno">10258</span> </div>
<div class="line"><a name="l10259"></a><span class="lineno">10259</span>  <span class="comment">/* is it new ? */</span></div>
<div class="line"><a name="l10260"></a><span class="lineno">10260</span>  idx = <a class="code" href="../../d5/db5/encoding_8c.html#adeb5f5b97ea43528a55d717add8f64c5">rb_enc_find_index</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#afc32c1526ac6cb40ec33cad8782c0bae">StringValueCStr</a>(name));</div>
<div class="line"><a name="l10261"></a><span class="lineno">10261</span>  <span class="keywordflow">if</span> (idx >= 0) {</div>
<div class="line"><a name="l10262"></a><span class="lineno">10262</span>  enc = <a class="code" href="../../d5/db5/encoding_8c.html#ad4918664be7424ab9f961165eecb6c18">rb_enc_from_encoding</a>(<a class="code" href="../../d5/db5/encoding_8c.html#aef9c377b2d9d78b9f88e890b77593109">rb_enc_from_index</a>(idx));</div>
<div class="line"><a name="l10263"></a><span class="lineno">10263</span> </div>
<div class="line"><a name="l10264"></a><span class="lineno">10264</span>  <span class="comment">/* registered Ruby encoding? */</span></div>
<div class="line"><a name="l10265"></a><span class="lineno">10265</span>  tmp = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table, enc);</div>
<div class="line"><a name="l10266"></a><span class="lineno">10266</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(tmp)) {</div>
<div class="line"><a name="l10267"></a><span class="lineno">10267</span>  <span class="comment">/* find */</span></div>
<div class="line"><a name="l10268"></a><span class="lineno">10268</span>  <span class="keywordflow">return</span> tmp;</div>
<div class="line"><a name="l10269"></a><span class="lineno">10269</span>  }</div>
<div class="line"><a name="l10270"></a><span class="lineno">10270</span> </div>
<div class="line"><a name="l10271"></a><span class="lineno">10271</span>  <span class="comment">/* update check of Tk encoding names */</span></div>
<div class="line"><a name="l10272"></a><span class="lineno">10272</span>  <span class="keywordflow">if</span> (update_encoding_table(table, interp, error_mode)) {</div>
<div class="line"><a name="l10273"></a><span class="lineno">10273</span>  <span class="comment">/* add new relations to the table */</span></div>
<div class="line"><a name="l10274"></a><span class="lineno">10274</span>  <span class="comment">/* RETRY: registered Ruby encoding? */</span></div>
<div class="line"><a name="l10275"></a><span class="lineno">10275</span>  tmp = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table, enc);</div>
<div class="line"><a name="l10276"></a><span class="lineno">10276</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(tmp)) {</div>
<div class="line"><a name="l10277"></a><span class="lineno">10277</span>  <span class="comment">/* find */</span></div>
<div class="line"><a name="l10278"></a><span class="lineno">10278</span>  <span class="keywordflow">return</span> tmp;</div>
<div class="line"><a name="l10279"></a><span class="lineno">10279</span>  }</div>
<div class="line"><a name="l10280"></a><span class="lineno">10280</span>  }</div>
<div class="line"><a name="l10281"></a><span class="lineno">10281</span>  }</div>
<div class="line"><a name="l10282"></a><span class="lineno">10282</span>  <span class="comment">/* fail to find */</span></div>
<div class="line"><a name="l10283"></a><span class="lineno">10283</span>  }</div>
<div class="line"><a name="l10284"></a><span class="lineno">10284</span> </div>
<div class="line"><a name="l10285"></a><span class="lineno">10285</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(error_mode)) {</div>
<div class="line"><a name="l10286"></a><span class="lineno">10286</span>  enc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(enc_arg, ID_to_s, 0, 0);</div>
<div class="line"><a name="l10287"></a><span class="lineno">10287</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"unsupported Tk encoding '%s'"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(enc));</div>
<div class="line"><a name="l10288"></a><span class="lineno">10288</span>  }</div>
<div class="line"><a name="l10289"></a><span class="lineno">10289</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l10290"></a><span class="lineno">10290</span> }</div>
<div class="line"><a name="l10291"></a><span class="lineno">10291</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l10292"></a><span class="lineno">10292</span> encoding_table_get_obj_core(table, enc, error_mode)</div>
<div class="line"><a name="l10293"></a><span class="lineno">10293</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> table;</div>
<div class="line"><a name="l10294"></a><span class="lineno">10294</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> enc;</div>
<div class="line"><a name="l10295"></a><span class="lineno">10295</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> error_mode;</div>
<div class="line"><a name="l10296"></a><span class="lineno">10296</span> {</div>
<div class="line"><a name="l10297"></a><span class="lineno">10297</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> obj = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l10298"></a><span class="lineno">10298</span> </div>
<div class="line"><a name="l10299"></a><span class="lineno">10299</span>  obj = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table,</div>
<div class="line"><a name="l10300"></a><span class="lineno">10300</span>  encoding_table_get_name_core(table, enc, error_mode));</div>
<div class="line"><a name="l10301"></a><span class="lineno">10301</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(obj, cRubyEncoding))) {</div>
<div class="line"><a name="l10302"></a><span class="lineno">10302</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aea4012fb11c03c5c1b1fe5399e95342f">obj</a>;</div>
<div class="line"><a name="l10303"></a><span class="lineno">10303</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l10304"></a><span class="lineno">10304</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l10305"></a><span class="lineno">10305</span>  }</div>
<div class="line"><a name="l10306"></a><span class="lineno">10306</span> }</div>
<div class="line"><a name="l10307"></a><span class="lineno">10307</span> </div>
<div class="line"><a name="l10308"></a><span class="lineno">10308</span> <span class="preprocessor">#else </span><span class="comment">/* ! HAVE_RUBY_ENCODING_H */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l10309"></a><span class="lineno">10309</span> <span class="preprocessor"></span><span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION >= 1)</span></div>
<div class="line"><a name="l10310"></a><span class="lineno">10310</span> <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span></div>
<div class="line"><a name="l10311"></a><span class="lineno">10311</span> update_encoding_table(table, interp, error_mode)</div>
<div class="line"><a name="l10312"></a><span class="lineno">10312</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> table;</div>
<div class="line"><a name="l10313"></a><span class="lineno">10313</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l10314"></a><span class="lineno">10314</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> error_mode;</div>
<div class="line"><a name="l10315"></a><span class="lineno">10315</span> {</div>
<div class="line"><a name="l10316"></a><span class="lineno">10316</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a>;</div>
<div class="line"><a name="l10317"></a><span class="lineno">10317</span>  <span class="keywordtype">int</span> retry = 0;</div>
<div class="line"><a name="l10318"></a><span class="lineno">10318</span>  <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>;</div>
<div class="line"><a name="l10319"></a><span class="lineno">10319</span>  Tcl_Obj **<a class="code" href="../../d5/d9d/tcltklib_8c.html#a5989eede682afd9743c0345d772674d5">objv</a>;</div>
<div class="line"><a name="l10320"></a><span class="lineno">10320</span>  Tcl_Obj *<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>;</div>
<div class="line"><a name="l10321"></a><span class="lineno">10321</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> encname = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l10322"></a><span class="lineno">10322</span> </div>
<div class="line"><a name="l10323"></a><span class="lineno">10323</span>  <span class="comment">/* interpreter check */</span></div>
<div class="line"><a name="l10324"></a><span class="lineno">10324</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(interp)) <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l10325"></a><span class="lineno">10325</span>  ptr = get_ip(interp);</div>
<div class="line"><a name="l10326"></a><span class="lineno">10326</span>  <span class="keywordflow">if</span> (ptr == (<span class="keyword">struct</span> <a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *) NULL) <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l10327"></a><span class="lineno">10327</span>  <span class="keywordflow">if</span> (deleted_ip(ptr)) <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l10328"></a><span class="lineno">10328</span> </div>
<div class="line"><a name="l10329"></a><span class="lineno">10329</span>  <span class="comment">/* get Tcl's encoding list */</span></div>
<div class="line"><a name="l10330"></a><span class="lineno">10330</span>  Tcl_GetEncodingNames(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l10331"></a><span class="lineno">10331</span>  enc_list = Tcl_GetObjResult(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l10332"></a><span class="lineno">10332</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(enc_list);</div>
<div class="line"><a name="l10333"></a><span class="lineno">10333</span> </div>
<div class="line"><a name="l10334"></a><span class="lineno">10334</span>  <span class="keywordflow">if</span> (Tcl_ListObjGetElements(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, enc_list, &objc, &objv) != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l10335"></a><span class="lineno">10335</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(enc_list);</div>
<div class="line"><a name="l10336"></a><span class="lineno">10336</span>  <span class="comment">/* rb_raise(rb_eRuntimeError, "failt to get Tcl's encoding names"); */</span></div>
<div class="line"><a name="l10337"></a><span class="lineno">10337</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l10338"></a><span class="lineno">10338</span>  }</div>
<div class="line"><a name="l10339"></a><span class="lineno">10339</span> </div>
<div class="line"><a name="l10340"></a><span class="lineno">10340</span>  <span class="comment">/* get encoding name and set it to table */</span></div>
<div class="line"><a name="l10341"></a><span class="lineno">10341</span>  <span class="keywordflow">for</span>(i = 0; i < <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>; i++) {</div>
<div class="line"><a name="l10342"></a><span class="lineno">10342</span>  encname = <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(Tcl_GetString(objv[i]));</div>
<div class="line"><a name="l10343"></a><span class="lineno">10343</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table, encname))) {</div>
<div class="line"><a name="l10344"></a><span class="lineno">10344</span>  <span class="comment">/* new Tk encoding -> add to table */</span></div>
<div class="line"><a name="l10345"></a><span class="lineno">10345</span>  encname = <a class="code" href="../../db/d2e/intern_8h.html#a8ea3742679211f408cb5769de6cf0d46">rb_obj_freeze</a>(encname);</div>
<div class="line"><a name="l10346"></a><span class="lineno">10346</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a641bbc8f06f4815eacb494e5625b5454">rb_hash_aset</a>(table, encname, encname);</div>
<div class="line"><a name="l10347"></a><span class="lineno">10347</span>  retry = 1;</div>
<div class="line"><a name="l10348"></a><span class="lineno">10348</span>  }</div>
<div class="line"><a name="l10349"></a><span class="lineno">10349</span>  }</div>
<div class="line"><a name="l10350"></a><span class="lineno">10350</span> </div>
<div class="line"><a name="l10351"></a><span class="lineno">10351</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(enc_list);</div>
<div class="line"><a name="l10352"></a><span class="lineno">10352</span> </div>
<div class="line"><a name="l10353"></a><span class="lineno">10353</span>  <span class="keywordflow">return</span> retry;</div>
<div class="line"><a name="l10354"></a><span class="lineno">10354</span> }</div>
<div class="line"><a name="l10355"></a><span class="lineno">10355</span> </div>
<div class="line"><a name="l10356"></a><span class="lineno">10356</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l10357"></a><span class="lineno">10357</span> encoding_table_get_name_core(table, enc, error_mode)</div>
<div class="line"><a name="l10358"></a><span class="lineno">10358</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> table;</div>
<div class="line"><a name="l10359"></a><span class="lineno">10359</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> enc;</div>
<div class="line"><a name="l10360"></a><span class="lineno">10360</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> error_mode;</div>
<div class="line"><a name="l10361"></a><span class="lineno">10361</span> {</div>
<div class="line"><a name="l10362"></a><span class="lineno">10362</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> name = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l10363"></a><span class="lineno">10363</span> </div>
<div class="line"><a name="l10364"></a><span class="lineno">10364</span>  enc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(enc, ID_to_s, 0, 0);</div>
<div class="line"><a name="l10365"></a><span class="lineno">10365</span>  name = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table, enc);</div>
<div class="line"><a name="l10366"></a><span class="lineno">10366</span> </div>
<div class="line"><a name="l10367"></a><span class="lineno">10367</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(name)) {</div>
<div class="line"><a name="l10368"></a><span class="lineno">10368</span>  <span class="comment">/* find */</span></div>
<div class="line"><a name="l10369"></a><span class="lineno">10369</span>  <span class="keywordflow">return</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#afeadf3d97090e74a174614cac38a5dd6">name</a>;</div>
<div class="line"><a name="l10370"></a><span class="lineno">10370</span>  }</div>
<div class="line"><a name="l10371"></a><span class="lineno">10371</span> </div>
<div class="line"><a name="l10372"></a><span class="lineno">10372</span>  <span class="comment">/* update check */</span></div>
<div class="line"><a name="l10373"></a><span class="lineno">10373</span>  <span class="keywordflow">if</span> (update_encoding_table(table, <a class="code" href="../../db/d2e/intern_8h.html#a35a10b958666c1b330238eea7b7f3a8a">rb_ivar_get</a>(table, ID_at_interp),</div>
<div class="line"><a name="l10374"></a><span class="lineno">10374</span>  error_mode)) {</div>
<div class="line"><a name="l10375"></a><span class="lineno">10375</span>  <span class="comment">/* add new relations to the table */</span></div>
<div class="line"><a name="l10376"></a><span class="lineno">10376</span>  <span class="comment">/* RETRY: registered Ruby encoding? */</span></div>
<div class="line"><a name="l10377"></a><span class="lineno">10377</span>  name = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table, enc);</div>
<div class="line"><a name="l10378"></a><span class="lineno">10378</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(name)) {</div>
<div class="line"><a name="l10379"></a><span class="lineno">10379</span>  <span class="comment">/* find */</span></div>
<div class="line"><a name="l10380"></a><span class="lineno">10380</span>  <span class="keywordflow">return</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#afeadf3d97090e74a174614cac38a5dd6">name</a>;</div>
<div class="line"><a name="l10381"></a><span class="lineno">10381</span>  }</div>
<div class="line"><a name="l10382"></a><span class="lineno">10382</span>  }</div>
<div class="line"><a name="l10383"></a><span class="lineno">10383</span> </div>
<div class="line"><a name="l10384"></a><span class="lineno">10384</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(error_mode)) {</div>
<div class="line"><a name="l10385"></a><span class="lineno">10385</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"unsupported Tk encoding '%s'"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(enc));</div>
<div class="line"><a name="l10386"></a><span class="lineno">10386</span>  }</div>
<div class="line"><a name="l10387"></a><span class="lineno">10387</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l10388"></a><span class="lineno">10388</span> }</div>
<div class="line"><a name="l10389"></a><span class="lineno">10389</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l10390"></a><span class="lineno">10390</span> encoding_table_get_obj_core(table, enc, error_mode)</div>
<div class="line"><a name="l10391"></a><span class="lineno">10391</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> table;</div>
<div class="line"><a name="l10392"></a><span class="lineno">10392</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> enc;</div>
<div class="line"><a name="l10393"></a><span class="lineno">10393</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> error_mode;</div>
<div class="line"><a name="l10394"></a><span class="lineno">10394</span> {</div>
<div class="line"><a name="l10395"></a><span class="lineno">10395</span>  <span class="keywordflow">return</span> encoding_table_get_name_core(table, enc, error_mode);</div>
<div class="line"><a name="l10396"></a><span class="lineno">10396</span> }</div>
<div class="line"><a name="l10397"></a><span class="lineno">10397</span> </div>
<div class="line"><a name="l10398"></a><span class="lineno">10398</span> <span class="preprocessor">#else </span><span class="comment">/* Tcl/Tk 7.x or 8.0 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l10399"></a><span class="lineno">10399</span> <span class="preprocessor"></span><span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l10400"></a><span class="lineno">10400</span> encoding_table_get_name_core(table, enc, error_mode)</div>
<div class="line"><a name="l10401"></a><span class="lineno">10401</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> table;</div>
<div class="line"><a name="l10402"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3390998b1bd6df467b1f77ac2774f3a3">10402</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> enc;</div>
<div class="line"><a name="l10403"></a><span class="lineno">10403</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> error_mode;</div>
<div class="line"><a name="l10404"></a><span class="lineno">10404</span> {</div>
<div class="line"><a name="l10405"></a><span class="lineno">10405</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l10406"></a><span class="lineno">10406</span> }</div>
<div class="line"><a name="l10407"></a><span class="lineno">10407</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l10408"></a><span class="lineno">10408</span> encoding_table_get_obj_core(table, enc, error_mode)</div>
<div class="line"><a name="l10409"></a><span class="lineno">10409</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> table;</div>
<div class="line"><a name="l10410"></a><span class="lineno">10410</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> enc;</div>
<div class="line"><a name="l10411"></a><span class="lineno">10411</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> error_mode;</div>
<div class="line"><a name="l10412"></a><span class="lineno">10412</span> {</div>
<div class="line"><a name="l10413"></a><span class="lineno">10413</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l10414"></a><span class="lineno">10414</span> }</div>
<div class="line"><a name="l10415"></a><span class="lineno">10415</span> <span class="preprocessor">#endif </span><span class="comment">/* end of dependency for the version of Tcl/Tk */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l10416"></a><span class="lineno">10416</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l10417"></a><span class="lineno">10417</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l10418"></a><span class="lineno">10418</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l10419"></a><span class="lineno">10419</span> encoding_table_get_name(table, enc)</div>
<div class="line"><a name="l10420"></a><span class="lineno">10420</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> table;</div>
<div class="line"><a name="l10421"></a><span class="lineno">10421</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> enc;</div>
<div class="line"><a name="l10422"></a><span class="lineno">10422</span> {</div>
<div class="line"><a name="l10423"></a><span class="lineno">10423</span>  <span class="keywordflow">return</span> encoding_table_get_name_core(table, enc, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>);</div>
<div class="line"><a name="l10424"></a><span class="lineno">10424</span> }</div>
<div class="line"><a name="l10425"></a><span class="lineno">10425</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l10426"></a><span class="lineno">10426</span> encoding_table_get_obj(table, enc)</div>
<div class="line"><a name="l10427"></a><span class="lineno">10427</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> table;</div>
<div class="line"><a name="l10428"></a><span class="lineno">10428</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> enc;</div>
<div class="line"><a name="l10429"></a><span class="lineno">10429</span> {</div>
<div class="line"><a name="l10430"></a><span class="lineno">10430</span>  <span class="keywordflow">return</span> encoding_table_get_obj_core(table, enc, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a>);</div>
<div class="line"><a name="l10431"></a><span class="lineno">10431</span> }</div>
<div class="line"><a name="l10432"></a><span class="lineno">10432</span> </div>
<div class="line"><a name="l10433"></a><span class="lineno">10433</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l10434"></a><span class="lineno">10434</span> <span class="preprocessor"></span><span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l10435"></a><span class="lineno">10435</span> create_encoding_table_core(arg, interp)</div>
<div class="line"><a name="l10436"></a><span class="lineno">10436</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> arg;</div>
<div class="line"><a name="l10437"></a><span class="lineno">10437</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l10438"></a><span class="lineno">10438</span> {</div>
<div class="line"><a name="l10439"></a><span class="lineno">10439</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(interp);</div>
<div class="line"><a name="l10440"></a><span class="lineno">10440</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> table = <a class="code" href="../../d1/d04/hash_8c.html#af1da586524a3a1739fd5b91272037815">rb_hash_new</a>();</div>
<div class="line"><a name="l10441"></a><span class="lineno">10441</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> encname = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l10442"></a><span class="lineno">10442</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> encobj = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l10443"></a><span class="lineno">10443</span>  <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae40354a1051342eb5a9db005715dcfa9">idx</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>;</div>
<div class="line"><a name="l10444"></a><span class="lineno">10444</span>  Tcl_Obj **<a class="code" href="../../d5/d9d/tcltklib_8c.html#a5989eede682afd9743c0345d772674d5">objv</a>;</div>
<div class="line"><a name="l10445"></a><span class="lineno">10445</span>  Tcl_Obj *<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>;</div>
<div class="line"><a name="l10446"></a><span class="lineno">10446</span> </div>
<div class="line"><a name="l10447"></a><span class="lineno">10447</span> <span class="preprocessor">#ifdef HAVE_RB_SET_SAFE_LEVEL_FORCE</span></div>
<div class="line"><a name="l10448"></a><span class="lineno">10448</span> <span class="preprocessor"></span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2dc3c261c5388aa84c552741c90f243f">rb_set_safe_level_force</a>(0);</div>
<div class="line"><a name="l10449"></a><span class="lineno">10449</span> <span class="preprocessor">#else</span></div>
<div class="line"><a name="l10450"></a><span class="lineno">10450</span> <span class="preprocessor"></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac95c385910a0bb5f780fb6545d83d881">rb_set_safe_level</a>(0);</div>
<div class="line"><a name="l10451"></a><span class="lineno">10451</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l10452"></a><span class="lineno">10452</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l10453"></a><span class="lineno">10453</span>  <span class="comment">/* set 'binary' encoding */</span></div>
<div class="line"><a name="l10454"></a><span class="lineno">10454</span>  encobj = <a class="code" href="../../d5/db5/encoding_8c.html#ad4918664be7424ab9f961165eecb6c18">rb_enc_from_encoding</a>(<a class="code" href="../../d5/db5/encoding_8c.html#aef9c377b2d9d78b9f88e890b77593109">rb_enc_from_index</a>(ENCODING_INDEX_BINARY));</div>
<div class="line"><a name="l10455"></a><span class="lineno">10455</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a641bbc8f06f4815eacb494e5625b5454">rb_hash_aset</a>(table, ENCODING_NAME_BINARY, encobj);</div>
<div class="line"><a name="l10456"></a><span class="lineno">10456</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a641bbc8f06f4815eacb494e5625b5454">rb_hash_aset</a>(table, encobj, ENCODING_NAME_BINARY);</div>
<div class="line"><a name="l10457"></a><span class="lineno">10457</span> </div>
<div class="line"><a name="l10458"></a><span class="lineno">10458</span> </div>
<div class="line"><a name="l10459"></a><span class="lineno">10459</span>  <span class="comment">/* Tcl stub check */</span></div>
<div class="line"><a name="l10460"></a><span class="lineno">10460</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#abbe469560280c936662242c94a43d994">tcl_stubs_check</a>();</div>
<div class="line"><a name="l10461"></a><span class="lineno">10461</span> </div>
<div class="line"><a name="l10462"></a><span class="lineno">10462</span>  <span class="comment">/* get Tcl's encoding list */</span></div>
<div class="line"><a name="l10463"></a><span class="lineno">10463</span>  Tcl_GetEncodingNames(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l10464"></a><span class="lineno">10464</span>  enc_list = Tcl_GetObjResult(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l10465"></a><span class="lineno">10465</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(enc_list);</div>
<div class="line"><a name="l10466"></a><span class="lineno">10466</span> </div>
<div class="line"><a name="l10467"></a><span class="lineno">10467</span>  <span class="keywordflow">if</span> (Tcl_ListObjGetElements(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, enc_list, &objc, &objv) != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l10468"></a><span class="lineno">10468</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(enc_list);</div>
<div class="line"><a name="l10469"></a><span class="lineno">10469</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"failt to get Tcl's encoding names"</span>);</div>
<div class="line"><a name="l10470"></a><span class="lineno">10470</span>  }</div>
<div class="line"><a name="l10471"></a><span class="lineno">10471</span> </div>
<div class="line"><a name="l10472"></a><span class="lineno">10472</span>  <span class="comment">/* get encoding name and set it to table */</span></div>
<div class="line"><a name="l10473"></a><span class="lineno">10473</span>  <span class="keywordflow">for</span>(i = 0; i < <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>; i++) {</div>
<div class="line"><a name="l10474"></a><span class="lineno">10474</span>  <span class="keywordtype">int</span> name2obj, obj2name;</div>
<div class="line"><a name="l10475"></a><span class="lineno">10475</span> </div>
<div class="line"><a name="l10476"></a><span class="lineno">10476</span>  name2obj = 1; obj2name = 1;</div>
<div class="line"><a name="l10477"></a><span class="lineno">10477</span>  encname = <a class="code" href="../../db/d2e/intern_8h.html#a8ea3742679211f408cb5769de6cf0d46">rb_obj_freeze</a>(<a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(Tcl_GetString(objv[i])));</div>
<div class="line"><a name="l10478"></a><span class="lineno">10478</span>  idx = <a class="code" href="../../d5/db5/encoding_8c.html#adeb5f5b97ea43528a55d717add8f64c5">rb_enc_find_index</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#afc32c1526ac6cb40ec33cad8782c0bae">StringValueCStr</a>(encname));</div>
<div class="line"><a name="l10479"></a><span class="lineno">10479</span>  <span class="keywordflow">if</span> (idx < 0) {</div>
<div class="line"><a name="l10480"></a><span class="lineno">10480</span>  <span class="comment">/* fail to find ruby encoding -> check known encoding */</span></div>
<div class="line"><a name="l10481"></a><span class="lineno">10481</span>  <span class="keywordflow">if</span> (strcmp(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(encname), <span class="stringliteral">"identity"</span>) == 0) {</div>
<div class="line"><a name="l10482"></a><span class="lineno">10482</span>  name2obj = 1; obj2name = 0;</div>
<div class="line"><a name="l10483"></a><span class="lineno">10483</span>  idx = ENCODING_INDEX_BINARY;</div>
<div class="line"><a name="l10484"></a><span class="lineno">10484</span> </div>
<div class="line"><a name="l10485"></a><span class="lineno">10485</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (strcmp(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(encname), <span class="stringliteral">"shiftjis"</span>) == 0) {</div>
<div class="line"><a name="l10486"></a><span class="lineno">10486</span>  name2obj = 1; obj2name = 0;</div>
<div class="line"><a name="l10487"></a><span class="lineno">10487</span>  idx = <a class="code" href="../../d5/db5/encoding_8c.html#adeb5f5b97ea43528a55d717add8f64c5">rb_enc_find_index</a>(<span class="stringliteral">"Shift_JIS"</span>);</div>
<div class="line"><a name="l10488"></a><span class="lineno">10488</span> </div>
<div class="line"><a name="l10489"></a><span class="lineno">10489</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (strcmp(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(encname), <span class="stringliteral">"unicode"</span>) == 0) {</div>
<div class="line"><a name="l10490"></a><span class="lineno">10490</span>  name2obj = 1; obj2name = 0;</div>
<div class="line"><a name="l10491"></a><span class="lineno">10491</span>  idx = ENCODING_INDEX_UTF8;</div>
<div class="line"><a name="l10492"></a><span class="lineno">10492</span> </div>
<div class="line"><a name="l10493"></a><span class="lineno">10493</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (strcmp(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(encname), <span class="stringliteral">"symbol"</span>) == 0) {</div>
<div class="line"><a name="l10494"></a><span class="lineno">10494</span>  name2obj = 1; obj2name = 0;</div>
<div class="line"><a name="l10495"></a><span class="lineno">10495</span>  idx = <a class="code" href="../../d5/db5/encoding_8c.html#adeb5f5b97ea43528a55d717add8f64c5">rb_enc_find_index</a>(<span class="stringliteral">"ASCII-8BIT"</span>);</div>
<div class="line"><a name="l10496"></a><span class="lineno">10496</span> </div>
<div class="line"><a name="l10497"></a><span class="lineno">10497</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l10498"></a><span class="lineno">10498</span>  <span class="comment">/* regist dummy encoding */</span></div>
<div class="line"><a name="l10499"></a><span class="lineno">10499</span>  name2obj = 1; obj2name = 1;</div>
<div class="line"><a name="l10500"></a><span class="lineno">10500</span>  }</div>
<div class="line"><a name="l10501"></a><span class="lineno">10501</span>  }</div>
<div class="line"><a name="l10502"></a><span class="lineno">10502</span> </div>
<div class="line"><a name="l10503"></a><span class="lineno">10503</span>  <span class="keywordflow">if</span> (idx < 0) {</div>
<div class="line"><a name="l10504"></a><span class="lineno">10504</span>  <span class="comment">/* unknown encoding -> create dummy */</span></div>
<div class="line"><a name="l10505"></a><span class="lineno">10505</span>  encobj = create_dummy_encoding_for_tk(interp, encname);</div>
<div class="line"><a name="l10506"></a><span class="lineno">10506</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l10507"></a><span class="lineno">10507</span>  encobj = <a class="code" href="../../d5/db5/encoding_8c.html#ad4918664be7424ab9f961165eecb6c18">rb_enc_from_encoding</a>(<a class="code" href="../../d5/db5/encoding_8c.html#aef9c377b2d9d78b9f88e890b77593109">rb_enc_from_index</a>(idx));</div>
<div class="line"><a name="l10508"></a><span class="lineno">10508</span>  }</div>
<div class="line"><a name="l10509"></a><span class="lineno">10509</span> </div>
<div class="line"><a name="l10510"></a><span class="lineno">10510</span>  <span class="keywordflow">if</span> (name2obj) {</div>
<div class="line"><a name="l10511"></a><span class="lineno">10511</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"create_encoding_table: name2obj: %s"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(encname));</div>
<div class="line"><a name="l10512"></a><span class="lineno">10512</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a641bbc8f06f4815eacb494e5625b5454">rb_hash_aset</a>(table, encname, encobj);</div>
<div class="line"><a name="l10513"></a><span class="lineno">10513</span>  }</div>
<div class="line"><a name="l10514"></a><span class="lineno">10514</span>  <span class="keywordflow">if</span> (obj2name) {</div>
<div class="line"><a name="l10515"></a><span class="lineno">10515</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"create_encoding_table: obj2name: %s"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(encname));</div>
<div class="line"><a name="l10516"></a><span class="lineno">10516</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a641bbc8f06f4815eacb494e5625b5454">rb_hash_aset</a>(table, encobj, encname);</div>
<div class="line"><a name="l10517"></a><span class="lineno">10517</span>  }</div>
<div class="line"><a name="l10518"></a><span class="lineno">10518</span>  }</div>
<div class="line"><a name="l10519"></a><span class="lineno">10519</span> </div>
<div class="line"><a name="l10520"></a><span class="lineno">10520</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(enc_list);</div>
<div class="line"><a name="l10521"></a><span class="lineno">10521</span> </div>
<div class="line"><a name="l10522"></a><span class="lineno">10522</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a>(table, ID_at_interp, interp);</div>
<div class="line"><a name="l10523"></a><span class="lineno">10523</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a>(interp, ID_encoding_table, table);</div>
<div class="line"><a name="l10524"></a><span class="lineno">10524</span> </div>
<div class="line"><a name="l10525"></a><span class="lineno">10525</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67fbe68c1b421badd861a1fa7c525058">table</a>;</div>
<div class="line"><a name="l10526"></a><span class="lineno">10526</span> }</div>
<div class="line"><a name="l10527"></a><span class="lineno">10527</span> </div>
<div class="line"><a name="l10528"></a><span class="lineno">10528</span> <span class="preprocessor">#else </span><span class="comment">/* ! HAVE_RUBY_ENCODING_H */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l10529"></a><span class="lineno">10529</span> <span class="preprocessor"></span><span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION >= 1)</span></div>
<div class="line"><a name="l10530"></a><span class="lineno">10530</span> <span class="preprocessor"></span><span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l10531"></a><span class="lineno">10531</span> create_encoding_table_core(arg, interp)</div>
<div class="line"><a name="l10532"></a><span class="lineno">10532</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> arg;</div>
<div class="line"><a name="l10533"></a><span class="lineno">10533</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l10534"></a><span class="lineno">10534</span> {</div>
<div class="line"><a name="l10535"></a><span class="lineno">10535</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(interp);</div>
<div class="line"><a name="l10536"></a><span class="lineno">10536</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> table = <a class="code" href="../../d1/d04/hash_8c.html#af1da586524a3a1739fd5b91272037815">rb_hash_new</a>();</div>
<div class="line"><a name="l10537"></a><span class="lineno">10537</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> encname = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l10538"></a><span class="lineno">10538</span>  <span class="keywordtype">int</span> <a class="code" href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>;</div>
<div class="line"><a name="l10539"></a><span class="lineno">10539</span>  Tcl_Obj **<a class="code" href="../../d5/d9d/tcltklib_8c.html#a5989eede682afd9743c0345d772674d5">objv</a>;</div>
<div class="line"><a name="l10540"></a><span class="lineno">10540</span>  Tcl_Obj *<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>;</div>
<div class="line"><a name="l10541"></a><span class="lineno">10541</span> </div>
<div class="line"><a name="l10542"></a><span class="lineno">10542</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a94573b23a7c5d9c129da54deebf38842">rb_secure</a>(4);</div>
<div class="line"><a name="l10543"></a><span class="lineno">10543</span> </div>
<div class="line"><a name="l10544"></a><span class="lineno">10544</span>  <span class="comment">/* set 'binary' encoding */</span></div>
<div class="line"><a name="l10545"></a><span class="lineno">10545</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a641bbc8f06f4815eacb494e5625b5454">rb_hash_aset</a>(table, ENCODING_NAME_BINARY, ENCODING_NAME_BINARY);</div>
<div class="line"><a name="l10546"></a><span class="lineno">10546</span> </div>
<div class="line"><a name="l10547"></a><span class="lineno">10547</span>  <span class="comment">/* get Tcl's encoding list */</span></div>
<div class="line"><a name="l10548"></a><span class="lineno">10548</span>  Tcl_GetEncodingNames(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l10549"></a><span class="lineno">10549</span>  enc_list = Tcl_GetObjResult(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div>
<div class="line"><a name="l10550"></a><span class="lineno">10550</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(enc_list);</div>
<div class="line"><a name="l10551"></a><span class="lineno">10551</span> </div>
<div class="line"><a name="l10552"></a><span class="lineno">10552</span>  <span class="keywordflow">if</span> (Tcl_ListObjGetElements(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, enc_list, &objc, &objv) != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a>) {</div>
<div class="line"><a name="l10553"></a><span class="lineno">10553</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(enc_list);</div>
<div class="line"><a name="l10554"></a><span class="lineno">10554</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>, <span class="stringliteral">"failt to get Tcl's encoding names"</span>);</div>
<div class="line"><a name="l10555"></a><span class="lineno">10555</span>  }</div>
<div class="line"><a name="l10556"></a><span class="lineno">10556</span> </div>
<div class="line"><a name="l10557"></a><span class="lineno">10557</span>  <span class="comment">/* get encoding name and set it to table */</span></div>
<div class="line"><a name="l10558"></a><span class="lineno">10558</span>  <span class="keywordflow">for</span>(i = 0; i < <a class="code" href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a>; i++) {</div>
<div class="line"><a name="l10559"></a><span class="lineno">10559</span>  encname = <a class="code" href="../../db/d2e/intern_8h.html#a8ea3742679211f408cb5769de6cf0d46">rb_obj_freeze</a>(<a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(Tcl_GetString(objv[i])));</div>
<div class="line"><a name="l10560"></a><span class="lineno">10560</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a641bbc8f06f4815eacb494e5625b5454">rb_hash_aset</a>(table, encname, encname);</div>
<div class="line"><a name="l10561"></a><span class="lineno">10561</span>  }</div>
<div class="line"><a name="l10562"></a><span class="lineno">10562</span> </div>
<div class="line"><a name="l10563"></a><span class="lineno">10563</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(enc_list);</div>
<div class="line"><a name="l10564"></a><span class="lineno">10564</span> </div>
<div class="line"><a name="l10565"></a><span class="lineno">10565</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a>(table, ID_at_interp, interp);</div>
<div class="line"><a name="l10566"></a><span class="lineno">10566</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a>(interp, ID_encoding_table, table);</div>
<div class="line"><a name="l10567"></a><span class="lineno">10567</span> </div>
<div class="line"><a name="l10568"></a><span class="lineno">10568</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67fbe68c1b421badd861a1fa7c525058">table</a>;</div>
<div class="line"><a name="l10569"></a><span class="lineno">10569</span> }</div>
<div class="line"><a name="l10570"></a><span class="lineno">10570</span> </div>
<div class="line"><a name="l10571"></a><span class="lineno">10571</span> <span class="preprocessor">#else </span><span class="comment">/* Tcl/Tk 7.x or 8.0 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l10572"></a><span class="lineno">10572</span> <span class="preprocessor"></span><span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l10573"></a><span class="lineno">10573</span> create_encoding_table_core(arg, interp)</div>
<div class="line"><a name="l10574"></a><span class="lineno">10574</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> arg;</div>
<div class="line"><a name="l10575"></a><span class="lineno">10575</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l10576"></a><span class="lineno">10576</span> {</div>
<div class="line"><a name="l10577"></a><span class="lineno">10577</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> table = <a class="code" href="../../d1/d04/hash_8c.html#af1da586524a3a1739fd5b91272037815">rb_hash_new</a>();</div>
<div class="line"><a name="l10578"></a><span class="lineno">10578</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a94573b23a7c5d9c129da54deebf38842">rb_secure</a>(4);</div>
<div class="line"><a name="l10579"></a><span class="lineno">10579</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a>(interp, ID_encoding_table, table);</div>
<div class="line"><a name="l10580"></a><span class="lineno">10580</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67fbe68c1b421badd861a1fa7c525058">table</a>;</div>
<div class="line"><a name="l10581"></a><span class="lineno">10581</span> }</div>
<div class="line"><a name="l10582"></a><span class="lineno">10582</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l10583"></a><span class="lineno">10583</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l10584"></a><span class="lineno">10584</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l10585"></a><span class="lineno">10585</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l10586"></a><span class="lineno">10586</span> create_encoding_table(interp)</div>
<div class="line"><a name="l10587"></a><span class="lineno">10587</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l10588"></a><span class="lineno">10588</span> {</div>
<div class="line"><a name="l10589"></a><span class="lineno">10589</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a>(<a class="code" href="../../db/d2e/intern_8h.html#a8a4a55d3f2ed6d9ece055553e48755d5">rb_proc_new</a>(create_encoding_table_core, interp),</div>
<div class="line"><a name="l10590"></a><span class="lineno">10590</span>  ID_call, 0);</div>
<div class="line"><a name="l10591"></a><span class="lineno">10591</span> }</div>
<div class="line"><a name="l10592"></a><span class="lineno">10592</span> </div>
<div class="line"><a name="l10593"></a><span class="lineno">10593</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l10594"></a><span class="lineno">10594</span> ip_get_encoding_table(interp)</div>
<div class="line"><a name="l10595"></a><span class="lineno">10595</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l10596"></a><span class="lineno">10596</span> {</div>
<div class="line"><a name="l10597"></a><span class="lineno">10597</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> table = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l10598"></a><span class="lineno">10598</span> </div>
<div class="line"><a name="l10599"></a><span class="lineno">10599</span>  table = <a class="code" href="../../db/d2e/intern_8h.html#a35a10b958666c1b330238eea7b7f3a8a">rb_ivar_get</a>(interp, ID_encoding_table);</div>
<div class="line"><a name="l10600"></a><span class="lineno">10600</span> </div>
<div class="line"><a name="l10601"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa3c5d6e5cb01103306fa6347404f2d0e">10601</a></span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(table)) {</div>
<div class="line"><a name="l10602"></a><span class="lineno">10602</span>  <span class="comment">/* initialize encoding_table */</span></div>
<div class="line"><a name="l10603"></a><span class="lineno">10603</span>  table = create_encoding_table(interp);</div>
<div class="line"><a name="l10604"></a><span class="lineno">10604</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gaacfe6a2ec444bdc7f573afb75ea251fe">rb_define_singleton_method</a>(table, <span class="stringliteral">"get_name"</span>, encoding_table_get_name, 1);</div>
<div class="line"><a name="l10605"></a><span class="lineno">10605</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gaacfe6a2ec444bdc7f573afb75ea251fe">rb_define_singleton_method</a>(table, <span class="stringliteral">"get_obj"</span>, encoding_table_get_obj, 1);</div>
<div class="line"><a name="l10606"></a><span class="lineno">10606</span>  }</div>
<div class="line"><a name="l10607"></a><span class="lineno">10607</span> </div>
<div class="line"><a name="l10608"></a><span class="lineno">10608</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67fbe68c1b421badd861a1fa7c525058">table</a>;</div>
<div class="line"><a name="l10609"></a><span class="lineno">10609</span> }</div>
<div class="line"><a name="l10610"></a><span class="lineno">10610</span> </div>
<div class="line"><a name="l10611"></a><span class="lineno">10611</span> </div>
<div class="line"><a name="l10612"></a><span class="lineno">10612</span> <span class="comment">/*###############################################*/</span></div>
<div class="line"><a name="l10613"></a><span class="lineno">10613</span> </div>
<div class="line"><a name="l10614"></a><span class="lineno">10614</span> <span class="comment">/*</span></div>
<div class="line"><a name="l10615"></a><span class="lineno">10615</span> <span class="comment"> * The following is based on tkMenu.[ch]</span></div>
<div class="line"><a name="l10616"></a><span class="lineno">10616</span> <span class="comment"> * of Tcl/Tk (Tk8.0 -- Tk8.5b1) source code.</span></div>
<div class="line"><a name="l10617"></a><span class="lineno">10617</span> <span class="comment"> */</span></div>
<div class="line"><a name="l10618"></a><span class="lineno">10618</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l10619"></a><span class="lineno">10619</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l10620"></a><span class="lineno">10620</span> <span class="preprocessor">#define MASTER_MENU 0</span></div>
<div class="line"><a name="l10621"></a><span class="lineno">10621</span> <span class="preprocessor"></span><span class="preprocessor">#define TEAROFF_MENU 1</span></div>
<div class="line"><a name="l10622"></a><span class="lineno">10622</span> <span class="preprocessor"></span><span class="preprocessor">#define MENUBAR 2</span></div>
<div class="line"><a name="l10623"></a><span class="lineno">10623</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l10624"></a><span class="lineno">10624</span> <span class="keyword">struct </span>dummy_TkMenuEntry {</div>
<div class="line"><a name="l10625"></a><span class="lineno">10625</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac765329451135abec74c45e1897abf26">type</a>;</div>
<div class="line"><a name="l10626"></a><span class="lineno">10626</span>  <span class="keyword">struct </span>dummy_TkMenu *menuPtr;</div>
<div class="line"><a name="l10627"></a><span class="lineno">10627</span>  <span class="comment">/* , and etc. */</span></div>
<div class="line"><a name="l10628"></a><span class="lineno">10628</span> };</div>
<div class="line"><a name="l10629"></a><span class="lineno">10629</span> </div>
<div class="line"><a name="l10630"></a><span class="lineno">10630</span> <span class="keyword">struct </span>dummy_TkMenu {</div>
<div class="line"><a name="l10631"></a><span class="lineno">10631</span>  Tk_Window <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8018f71cd110dd99a4148699d5b0f084">tkwin</a>;</div>
<div class="line"><a name="l10632"></a><span class="lineno">10632</span>  Display *display;</div>
<div class="line"><a name="l10633"></a><span class="lineno">10633</span>  Tcl_Interp *<a class="code" href="../../d5/d9d/tcltklib_8c.html#abb159f1f4254ecf6df54f13d2b3468c6">interp</a>;</div>
<div class="line"><a name="l10634"></a><span class="lineno">10634</span>  Tcl_Command widgetCmd;</div>
<div class="line"><a name="l10635"></a><span class="lineno">10635</span>  <span class="keyword">struct </span>dummy_TkMenuEntry **entries;</div>
<div class="line"><a name="l10636"></a><span class="lineno">10636</span>  <span class="keywordtype">int</span> numEntries;</div>
<div class="line"><a name="l10637"></a><span class="lineno">10637</span>  <span class="keywordtype">int</span> active;</div>
<div class="line"><a name="l10638"></a><span class="lineno">10638</span>  <span class="keywordtype">int</span> menuType; <span class="comment">/* MASTER_MENU, TEAROFF_MENU, or MENUBAR */</span></div>
<div class="line"><a name="l10639"></a><span class="lineno">10639</span>  Tcl_Obj *menuTypePtr;</div>
<div class="line"><a name="l10640"></a><span class="lineno">10640</span>  <span class="comment">/* , and etc. */</span></div>
<div class="line"><a name="l10641"></a><span class="lineno">10641</span> };</div>
<div class="line"><a name="l10642"></a><span class="lineno">10642</span> </div>
<div class="line"><a name="l10643"></a><span class="lineno">10643</span> <span class="keyword">struct </span>dummy_TkMenuRef {</div>
<div class="line"><a name="l10644"></a><span class="lineno">10644</span>  <span class="keyword">struct </span>dummy_TkMenu *menuPtr;</div>
<div class="line"><a name="l10645"></a><span class="lineno">10645</span>  <span class="keywordtype">char</span> *dummy1;</div>
<div class="line"><a name="l10646"></a><span class="lineno">10646</span>  <span class="keywordtype">char</span> *dummy2;</div>
<div class="line"><a name="l10647"></a><span class="lineno">10647</span>  <span class="keywordtype">char</span> *dummy3;</div>
<div class="line"><a name="l10648"></a><span class="lineno">10648</span> };</div>
<div class="line"><a name="l10649"></a><span class="lineno">10649</span> </div>
<div class="line"><a name="l10650"></a><span class="lineno">10650</span> <span class="preprocessor">#if 0 </span><span class="comment">/* was available on Tk8.0 -- Tk8.4 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l10651"></a><span class="lineno">10651</span> <span class="preprocessor"></span><a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keyword">struct </span>dummy_TkMenuRef *TkFindMenuReferences(Tcl_Interp*, <span class="keywordtype">char</span>*);</div>
<div class="line"><a name="l10652"></a><span class="lineno">10652</span> <span class="preprocessor">#else </span><span class="comment">/* based on Tk8.0 -- Tk8.5.0 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l10653"></a><span class="lineno">10653</span> <span class="preprocessor"></span><span class="preprocessor">#define MENU_HASH_KEY "tkMenus"</span></div>
<div class="line"><a name="l10654"></a><span class="lineno">10654</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l10655"></a><span class="lineno">10655</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l10656"></a><span class="lineno">10656</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l10657"></a><span class="lineno">10657</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l10658"></a><span class="lineno">10658</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l10659"></a><span class="lineno">10659</span> ip_make_menu_embeddable_core(interp, argc, argv)</div>
<div class="line"><a name="l10660"></a><span class="lineno">10660</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l10661"></a><span class="lineno">10661</span>  <span class="keywordtype">int</span> argc;</div>
<div class="line"><a name="l10662"></a><span class="lineno">10662</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> *argv;</div>
<div class="line"><a name="l10663"></a><span class="lineno">10663</span> {</div>
<div class="line"><a name="l10664"></a><span class="lineno">10664</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div>
<div class="line"><a name="l10665"></a><span class="lineno">10665</span> <span class="preprocessor"></span> <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a87e22195efd375aa75c49c54ace2da24">menu_path</a>;</div>
<div class="line"><a name="l10666"></a><span class="lineno">10666</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = get_ip(interp);</div>
<div class="line"><a name="l10667"></a><span class="lineno">10667</span>  <span class="keyword">struct </span>dummy_TkMenuRef *menuRefPtr = <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>;</div>
<div class="line"><a name="l10668"></a><span class="lineno">10668</span>  XEvent event;</div>
<div class="line"><a name="l10669"></a><span class="lineno">10669</span>  Tcl_HashTable *menuTablePtr;</div>
<div class="line"><a name="l10670"></a><span class="lineno">10670</span>  Tcl_HashEntry *hashEntryPtr;</div>
<div class="line"><a name="l10671"></a><span class="lineno">10671</span> </div>
<div class="line"><a name="l10672"></a><span class="lineno">10672</span>  menu_path = argv[0];</div>
<div class="line"><a name="l10673"></a><span class="lineno">10673</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(menu_path);</div>
<div class="line"><a name="l10674"></a><span class="lineno">10674</span> </div>
<div class="line"><a name="l10675"></a><span class="lineno">10675</span> <span class="preprocessor">#if 0 </span><span class="comment">/* was available on Tk8.0 -- Tk8.4 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l10676"></a><span class="lineno">10676</span> <span class="preprocessor"></span> menuRefPtr = TkFindMenuReferences(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(menu_path));</div>
<div class="line"><a name="l10677"></a><span class="lineno">10677</span> <span class="preprocessor">#else </span><span class="comment">/* based on Tk8.0 -- Tk8.5b1 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l10678"></a><span class="lineno">10678</span> <span class="preprocessor"></span> <span class="keywordflow">if</span> ((menuTablePtr</div>
<div class="line"><a name="l10679"></a><span class="lineno">10679</span>  = (Tcl_HashTable *) Tcl_GetAssocData(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, MENU_HASH_KEY, NULL))</div>
<div class="line"><a name="l10680"></a><span class="lineno">10680</span>  != NULL) {</div>
<div class="line"><a name="l10681"></a><span class="lineno">10681</span>  <span class="keywordflow">if</span> ((hashEntryPtr</div>
<div class="line"><a name="l10682"></a><span class="lineno">10682</span>  = Tcl_FindHashEntry(menuTablePtr, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(menu_path)))</div>
<div class="line"><a name="l10683"></a><span class="lineno">10683</span>  != NULL) {</div>
<div class="line"><a name="l10684"></a><span class="lineno">10684</span>  menuRefPtr = (<span class="keyword">struct </span>dummy_TkMenuRef *) Tcl_GetHashValue(hashEntryPtr);</div>
<div class="line"><a name="l10685"></a><span class="lineno">10685</span>  }</div>
<div class="line"><a name="l10686"></a><span class="lineno">10686</span>  }</div>
<div class="line"><a name="l10687"></a><span class="lineno">10687</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l10688"></a><span class="lineno">10688</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l10689"></a><span class="lineno">10689</span>  <span class="keywordflow">if</span> (menuRefPtr == (<span class="keyword">struct</span> dummy_TkMenuRef *) <a class="code" href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a>) {</div>
<div class="line"><a name="l10690"></a><span class="lineno">10690</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>, <span class="stringliteral">"not a menu widget, or invalid widget path"</span>);</div>
<div class="line"><a name="l10691"></a><span class="lineno">10691</span>  }</div>
<div class="line"><a name="l10692"></a><span class="lineno">10692</span> </div>
<div class="line"><a name="l10693"></a><span class="lineno">10693</span>  <span class="keywordflow">if</span> (menuRefPtr->menuPtr == (<span class="keyword">struct</span> dummy_TkMenu *) NULL) {</div>
<div class="line"><a name="l10694"></a><span class="lineno">10694</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l10695"></a><span class="lineno">10695</span>  <span class="stringliteral">"invalid menu widget (maybe already destroyed)"</span>);</div>
<div class="line"><a name="l10696"></a><span class="lineno">10696</span>  }</div>
<div class="line"><a name="l10697"></a><span class="lineno">10697</span> </div>
<div class="line"><a name="l10698"></a><span class="lineno">10698</span>  <span class="keywordflow">if</span> ((menuRefPtr->menuPtr)->menuType != MENUBAR) {</div>
<div class="line"><a name="l10699"></a><span class="lineno">10699</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div>
<div class="line"><a name="l10700"></a><span class="lineno">10700</span>  <span class="stringliteral">"target menu widget must be a MENUBAR type"</span>);</div>
<div class="line"><a name="l10701"></a><span class="lineno">10701</span>  }</div>
<div class="line"><a name="l10702"></a><span class="lineno">10702</span> </div>
<div class="line"><a name="l10703"></a><span class="lineno">10703</span>  (menuRefPtr->menuPtr)->menuType = TEAROFF_MENU;</div>
<div class="line"><a name="l10704"></a><span class="lineno">10704</span> <span class="preprocessor">#if 0 </span><span class="comment">/* cause SEGV */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l10705"></a><span class="lineno">10705</span> <span class="preprocessor"></span> {</div>
<div class="line"><a name="l10706"></a><span class="lineno">10706</span>  <span class="comment">/* char *s = "tearoff"; */</span></div>
<div class="line"><a name="l10707"></a><span class="lineno">10707</span>  <span class="keywordtype">char</span> *s = <span class="stringliteral">"normal"</span>;</div>
<div class="line"><a name="l10708"></a><span class="lineno">10708</span>  <span class="comment">/* Tcl_SetStringObj((menuRefPtr->menuPtr)->menuTypePtr, s, strlen(s));*/</span></div>
<div class="line"><a name="l10709"></a><span class="lineno">10709</span>  (menuRefPtr->menuPtr)->menuTypePtr = Tcl_NewStringObj(s, <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(s));</div>
<div class="line"><a name="l10710"></a><span class="lineno">10710</span>  <span class="comment">/* Tcl_IncrRefCount((menuRefPtr->menuPtr)->menuTypePtr); */</span></div>
<div class="line"><a name="l10711"></a><span class="lineno">10711</span>  <span class="comment">/* (menuRefPtr->menuPtr)->menuType = TEAROFF_MENU; */</span></div>
<div class="line"><a name="l10712"></a><span class="lineno">10712</span>  (menuRefPtr->menuPtr)->menuType = MASTER_MENU;</div>
<div class="line"><a name="l10713"></a><span class="lineno">10713</span>  }</div>
<div class="line"><a name="l10714"></a><span class="lineno">10714</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l10715"></a><span class="lineno">10715</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l10716"></a><span class="lineno">10716</span> <span class="preprocessor">#if 0 </span><span class="comment">/* was available on Tk8.0 -- Tk8.4 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l10717"></a><span class="lineno">10717</span> <span class="preprocessor"></span> TkEventuallyRecomputeMenu(menuRefPtr->menuPtr);</div>
<div class="line"><a name="l10718"></a><span class="lineno">10718</span>  TkEventuallyRedrawMenu(menuRefPtr->menuPtr,</div>
<div class="line"><a name="l10719"></a><span class="lineno">10719</span>  (<span class="keyword">struct</span> dummy_TkMenuEntry *)NULL);</div>
<div class="line"><a name="l10720"></a><span class="lineno">10720</span> <span class="preprocessor">#else </span><span class="comment">/* based on Tk8.0 -- Tk8.5b1 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l10721"></a><span class="lineno">10721</span> <span class="preprocessor"></span> <a class="code" href="../../de/d07/bigdecimal_8c.html#ae676aee4547572d937505cfb336c18d5">memset</a>((<span class="keywordtype">void</span> *) &event, 0, <span class="keyword">sizeof</span>(event));</div>
<div class="line"><a name="l10722"></a><span class="lineno">10722</span>  <span class="keyword">event</span>.xany.type = ConfigureNotify;</div>
<div class="line"><a name="l10723"></a><span class="lineno">10723</span>  <span class="keyword">event</span>.xany.serial = NextRequest(Tk_Display((menuRefPtr->menuPtr)->tkwin));</div>
<div class="line"><a name="l10724"></a><span class="lineno">10724</span>  <span class="keyword">event</span>.xany.send_event = 0; <span class="comment">/* FALSE */</span></div>
<div class="line"><a name="l10725"></a><span class="lineno">10725</span>  <span class="keyword">event</span>.xany.window = Tk_WindowId((menuRefPtr->menuPtr)->tkwin);</div>
<div class="line"><a name="l10726"></a><span class="lineno">10726</span>  <span class="keyword">event</span>.xany.display = Tk_Display((menuRefPtr->menuPtr)->tkwin);</div>
<div class="line"><a name="l10727"></a><span class="lineno">10727</span>  <span class="keyword">event</span>.xconfigure.window = <span class="keyword">event</span>.xany.window;</div>
<div class="line"><a name="l10728"></a><span class="lineno">10728</span>  Tk_HandleEvent(&event);</div>
<div class="line"><a name="l10729"></a><span class="lineno">10729</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l10730"></a><span class="lineno">10730</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l10731"></a><span class="lineno">10731</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION <= 7 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l10732"></a><span class="lineno">10732</span> <span class="preprocessor"></span> <a class="code" href="../../db/dcc/error_8c.html#a0083d327c582acc3300d59e8fe257c27">rb_notimplement</a>();</div>
<div class="line"><a name="l10733"></a><span class="lineno">10733</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l10734"></a><span class="lineno">10734</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l10735"></a><span class="lineno">10735</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abb159f1f4254ecf6df54f13d2b3468c6">interp</a>;</div>
<div class="line"><a name="l10736"></a><span class="lineno">10736</span> }</div>
<div class="line"><a name="l10737"></a><span class="lineno">10737</span> </div>
<div class="line"><a name="l10738"></a><span class="lineno">10738</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div>
<div class="line"><a name="l10739"></a><span class="lineno">10739</span> ip_make_menu_embeddable(interp, menu_path)</div>
<div class="line"><a name="l10740"></a><span class="lineno">10740</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> interp;</div>
<div class="line"><a name="l10741"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a87e22195efd375aa75c49c54ace2da24">10741</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> menu_path;</div>
<div class="line"><a name="l10742"></a><span class="lineno">10742</span> {</div>
<div class="line"><a name="l10743"></a><span class="lineno">10743</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> argv[1];</div>
<div class="line"><a name="l10744"></a><span class="lineno">10744</span> </div>
<div class="line"><a name="l10745"></a><span class="lineno">10745</span>  argv[0] = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a87e22195efd375aa75c49c54ace2da24">menu_path</a>;</div>
<div class="line"><a name="l10746"></a><span class="lineno">10746</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a46bfb9a7c64428cdf208d45e06352fce">tk_funcall</a>(ip_make_menu_embeddable_core, 1, argv, interp);</div>
<div class="line"><a name="l10747"></a><span class="lineno">10747</span> }</div>
<div class="line"><a name="l10748"></a><span class="lineno">10748</span> </div>
<div class="line"><a name="l10749"></a><span class="lineno">10749</span> </div>
<div class="line"><a name="l10750"></a><span class="lineno">10750</span> <span class="comment">/*###############################################*/</span></div>
<div class="line"><a name="l10751"></a><span class="lineno">10751</span> </div>
<div class="line"><a name="l10752"></a><span class="lineno">10752</span> <span class="comment">/*---- initialization ----*/</span></div>
<div class="line"><a name="l10753"></a><span class="lineno">10753</span> <span class="keywordtype">void</span></div>
<div class="line"><a name="l10754"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ada3ac1e5a6678c4ec73e09cd08d13202">10754</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ada3ac1e5a6678c4ec73e09cd08d13202">Init_tcltklib</a>()</div>
<div class="line"><a name="l10755"></a><span class="lineno">10755</span> {</div>
<div class="line"><a name="l10756"></a><span class="lineno">10756</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a>;</div>
<div class="line"><a name="l10757"></a><span class="lineno">10757</span> </div>
<div class="line"><a name="l10758"></a><span class="lineno">10758</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> lib = <a class="code" href="../../de/ddf/group__class.html#ga911071d40f9312e49a774ea0e1b12869">rb_define_module</a>(<span class="stringliteral">"TclTkLib"</span>);</div>
<div class="line"><a name="l10759"></a><span class="lineno">10759</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> ip = <a class="code" href="../../de/ddf/group__class.html#ga15d068dbe88a3bab3700b03bebb7fbac">rb_define_class</a>(<span class="stringliteral">"TclTkIp"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a57c96ead3ef230b4838e65fe037c346e">rb_cObject</a>);</div>
<div class="line"><a name="l10760"></a><span class="lineno">10760</span> </div>
<div class="line"><a name="l10761"></a><span class="lineno">10761</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> ev_flag = <a class="code" href="../../de/ddf/group__class.html#gad0eeed44f413060a2417852168747388">rb_define_module_under</a>(lib, <span class="stringliteral">"EventFlag"</span>);</div>
<div class="line"><a name="l10762"></a><span class="lineno">10762</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> var_flag = <a class="code" href="../../de/ddf/group__class.html#gad0eeed44f413060a2417852168747388">rb_define_module_under</a>(lib, <span class="stringliteral">"VarAccessFlag"</span>);</div>
<div class="line"><a name="l10763"></a><span class="lineno">10763</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a> release_type = <a class="code" href="../../de/ddf/group__class.html#gad0eeed44f413060a2417852168747388">rb_define_module_under</a>(lib, <span class="stringliteral">"RELEASE_TYPE"</span>);</div>
<div class="line"><a name="l10764"></a><span class="lineno">10764</span> </div>
<div class="line"><a name="l10765"></a><span class="lineno">10765</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l10766"></a><span class="lineno">10766</span> </div>
<div class="line"><a name="l10767"></a><span class="lineno">10767</span>  tcltkip_class = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5bf8c7d566a18c53fc425715e26bb026">ip</a>;</div>
<div class="line"><a name="l10768"></a><span class="lineno">10768</span> </div>
<div class="line"><a name="l10769"></a><span class="lineno">10769</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l10770"></a><span class="lineno">10770</span> </div>
<div class="line"><a name="l10771"></a><span class="lineno">10771</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div>
<div class="line"><a name="l10772"></a><span class="lineno">10772</span> <span class="preprocessor"></span> <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&cRubyEncoding);</div>
<div class="line"><a name="l10773"></a><span class="lineno">10773</span>  cRubyEncoding = <a class="code" href="../../db/d2e/intern_8h.html#a28a7241d8742ac74f2a914c222c8efc9">rb_path2class</a>(<span class="stringliteral">"Encoding"</span>);</div>
<div class="line"><a name="l10774"></a><span class="lineno">10774</span> </div>
<div class="line"><a name="l10775"></a><span class="lineno">10775</span>  ENCODING_INDEX_UTF8 = <a class="code" href="../../d5/de3/encoding_8h.html#ad23f205c614c95726b919b2a8a1ac573">rb_enc_to_index</a>(<a class="code" href="../../d5/db5/encoding_8c.html#a893004271cf8c790ca40c4712261aa8c">rb_utf8_encoding</a>());</div>
<div class="line"><a name="l10776"></a><span class="lineno">10776</span>  ENCODING_INDEX_BINARY = <a class="code" href="../../d5/db5/encoding_8c.html#adeb5f5b97ea43528a55d717add8f64c5">rb_enc_find_index</a>(<span class="stringliteral">"binary"</span>);</div>
<div class="line"><a name="l10777"></a><span class="lineno">10777</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l10778"></a><span class="lineno">10778</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l10779"></a><span class="lineno">10779</span>  <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&ENCODING_NAME_UTF8);</div>
<div class="line"><a name="l10780"></a><span class="lineno">10780</span>  <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&ENCODING_NAME_BINARY);</div>
<div class="line"><a name="l10781"></a><span class="lineno">10781</span> </div>
<div class="line"><a name="l10782"></a><span class="lineno">10782</span>  ENCODING_NAME_UTF8 = <a class="code" href="../../db/d2e/intern_8h.html#a8ea3742679211f408cb5769de6cf0d46">rb_obj_freeze</a>(<a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<span class="stringliteral">"utf-8"</span>));</div>
<div class="line"><a name="l10783"></a><span class="lineno">10783</span>  ENCODING_NAME_BINARY = <a class="code" href="../../db/d2e/intern_8h.html#a8ea3742679211f408cb5769de6cf0d46">rb_obj_freeze</a>(<a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<span class="stringliteral">"binary"</span>));</div>
<div class="line"><a name="l10784"></a><span class="lineno">10784</span> </div>
<div class="line"><a name="l10785"></a><span class="lineno">10785</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l10786"></a><span class="lineno">10786</span> </div>
<div class="line"><a name="l10787"></a><span class="lineno">10787</span>  <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&eTkCallbackReturn);</div>
<div class="line"><a name="l10788"></a><span class="lineno">10788</span>  <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&eTkCallbackBreak);</div>
<div class="line"><a name="l10789"></a><span class="lineno">10789</span>  <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&eTkCallbackContinue);</div>
<div class="line"><a name="l10790"></a><span class="lineno">10790</span> </div>
<div class="line"><a name="l10791"></a><span class="lineno">10791</span>  <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&eventloop_thread);</div>
<div class="line"><a name="l10792"></a><span class="lineno">10792</span>  <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&eventloop_stack);</div>
<div class="line"><a name="l10793"></a><span class="lineno">10793</span>  <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&watchdog_thread);</div>
<div class="line"><a name="l10794"></a><span class="lineno">10794</span> </div>
<div class="line"><a name="l10795"></a><span class="lineno">10795</span>  <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&<a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a>);</div>
<div class="line"><a name="l10796"></a><span class="lineno">10796</span> </div>
<div class="line"><a name="l10797"></a><span class="lineno">10797</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l10798"></a><span class="lineno">10798</span> </div>
<div class="line"><a name="l10799"></a><span class="lineno">10799</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(lib, <span class="stringliteral">"COMPILE_INFO"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aedbcc28fcbb1d229b51954633635b29a">tcltklib_compile_info</a>());</div>
<div class="line"><a name="l10800"></a><span class="lineno">10800</span> </div>
<div class="line"><a name="l10801"></a><span class="lineno">10801</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(lib, <span class="stringliteral">"RELEASE_DATE"</span>,</div>
<div class="line"><a name="l10802"></a><span class="lineno">10802</span>  <a class="code" href="../../db/d2e/intern_8h.html#a8ea3742679211f408cb5769de6cf0d46">rb_obj_freeze</a>(<a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(tcltklib_release_date)));</div>
<div class="line"><a name="l10803"></a><span class="lineno">10803</span> </div>
<div class="line"><a name="l10804"></a><span class="lineno">10804</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(lib, <span class="stringliteral">"FINALIZE_PROC_NAME"</span>,</div>
<div class="line"><a name="l10805"></a><span class="lineno">10805</span>  <a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(finalize_hook_name));</div>
<div class="line"><a name="l10806"></a><span class="lineno">10806</span> </div>
<div class="line"><a name="l10807"></a><span class="lineno">10807</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l10808"></a><span class="lineno">10808</span> </div>
<div class="line"><a name="l10809"></a><span class="lineno">10809</span> <span class="preprocessor">#ifdef __WIN32__</span></div>
<div class="line"><a name="l10810"></a><span class="lineno">10810</span> <span class="preprocessor"></span><span class="preprocessor"># define TK_WINDOWING_SYSTEM "win32"</span></div>
<div class="line"><a name="l10811"></a><span class="lineno">10811</span> <span class="preprocessor"></span><span class="preprocessor">#else</span></div>
<div class="line"><a name="l10812"></a><span class="lineno">10812</span> <span class="preprocessor"></span><span class="preprocessor"># ifdef MAC_TCL</span></div>
<div class="line"><a name="l10813"></a><span class="lineno">10813</span> <span class="preprocessor"></span><span class="preprocessor"># define TK_WINDOWING_SYSTEM "classic"</span></div>
<div class="line"><a name="l10814"></a><span class="lineno">10814</span> <span class="preprocessor"></span><span class="preprocessor"># else</span></div>
<div class="line"><a name="l10815"></a><span class="lineno">10815</span> <span class="preprocessor"></span><span class="preprocessor"># ifdef MAC_OSX_TK</span></div>
<div class="line"><a name="l10816"></a><span class="lineno">10816</span> <span class="preprocessor"></span><span class="preprocessor"># define TK_WINDOWING_SYSTEM "aqua"</span></div>
<div class="line"><a name="l10817"></a><span class="lineno">10817</span> <span class="preprocessor"></span><span class="preprocessor"># else</span></div>
<div class="line"><a name="l10818"></a><span class="lineno">10818</span> <span class="preprocessor"></span><span class="preprocessor"># define TK_WINDOWING_SYSTEM "x11"</span></div>
<div class="line"><a name="l10819"></a><span class="lineno">10819</span> <span class="preprocessor"></span><span class="preprocessor"># endif</span></div>
<div class="line"><a name="l10820"></a><span class="lineno">10820</span> <span class="preprocessor"></span><span class="preprocessor"># endif</span></div>
<div class="line"><a name="l10821"></a><span class="lineno">10821</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l10822"></a><span class="lineno">10822</span> <span class="preprocessor"></span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(lib, <span class="stringliteral">"WINDOWING_SYSTEM"</span>,</div>
<div class="line"><a name="l10823"></a><span class="lineno">10823</span>  <a class="code" href="../../db/d2e/intern_8h.html#a8ea3742679211f408cb5769de6cf0d46">rb_obj_freeze</a>(<a class="code" href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac9cc32b5242f9dac9caaaf3fb1f7d2dc">TK_WINDOWING_SYSTEM</a>)));</div>
<div class="line"><a name="l10824"></a><span class="lineno">10824</span> </div>
<div class="line"><a name="l10825"></a><span class="lineno">10825</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l10826"></a><span class="lineno">10826</span> </div>
<div class="line"><a name="l10827"></a><span class="lineno">10827</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(ev_flag, <span class="stringliteral">"NONE"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(0));</div>
<div class="line"><a name="l10828"></a><span class="lineno">10828</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(ev_flag, <span class="stringliteral">"WINDOW"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(TCL_WINDOW_EVENTS));</div>
<div class="line"><a name="l10829"></a><span class="lineno">10829</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(ev_flag, <span class="stringliteral">"FILE"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(TCL_FILE_EVENTS));</div>
<div class="line"><a name="l10830"></a><span class="lineno">10830</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(ev_flag, <span class="stringliteral">"TIMER"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(TCL_TIMER_EVENTS));</div>
<div class="line"><a name="l10831"></a><span class="lineno">10831</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(ev_flag, <span class="stringliteral">"IDLE"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(TCL_IDLE_EVENTS));</div>
<div class="line"><a name="l10832"></a><span class="lineno">10832</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(ev_flag, <span class="stringliteral">"ALL"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(TCL_ALL_EVENTS));</div>
<div class="line"><a name="l10833"></a><span class="lineno">10833</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(ev_flag, <span class="stringliteral">"DONT_WAIT"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(TCL_DONT_WAIT));</div>
<div class="line"><a name="l10834"></a><span class="lineno">10834</span> </div>
<div class="line"><a name="l10835"></a><span class="lineno">10835</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l10836"></a><span class="lineno">10836</span> </div>
<div class="line"><a name="l10837"></a><span class="lineno">10837</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(var_flag, <span class="stringliteral">"NONE"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(0));</div>
<div class="line"><a name="l10838"></a><span class="lineno">10838</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(var_flag, <span class="stringliteral">"GLOBAL_ONLY"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(TCL_GLOBAL_ONLY));</div>
<div class="line"><a name="l10839"></a><span class="lineno">10839</span> <span class="preprocessor">#ifdef TCL_NAMESPACE_ONLY</span></div>
<div class="line"><a name="l10840"></a><span class="lineno">10840</span> <span class="preprocessor"></span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(var_flag, <span class="stringliteral">"NAMESPACE_ONLY"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(TCL_NAMESPACE_ONLY));</div>
<div class="line"><a name="l10841"></a><span class="lineno">10841</span> <span class="preprocessor">#else </span><span class="comment">/* probably Tcl7.6 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l10842"></a><span class="lineno">10842</span> <span class="preprocessor"></span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(var_flag, <span class="stringliteral">"NAMESPACE_ONLY"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(0));</div>
<div class="line"><a name="l10843"></a><span class="lineno">10843</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l10844"></a><span class="lineno">10844</span> <span class="preprocessor"></span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(var_flag, <span class="stringliteral">"LEAVE_ERR_MSG"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(TCL_LEAVE_ERR_MSG));</div>
<div class="line"><a name="l10845"></a><span class="lineno">10845</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(var_flag, <span class="stringliteral">"APPEND_VALUE"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(TCL_APPEND_VALUE));</div>
<div class="line"><a name="l10846"></a><span class="lineno">10846</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(var_flag, <span class="stringliteral">"LIST_ELEMENT"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(TCL_LIST_ELEMENT));</div>
<div class="line"><a name="l10847"></a><span class="lineno">10847</span> <span class="preprocessor">#ifdef TCL_PARSE_PART1</span></div>
<div class="line"><a name="l10848"></a><span class="lineno">10848</span> <span class="preprocessor"></span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(var_flag, <span class="stringliteral">"PARSE_VARNAME"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(TCL_PARSE_PART1));</div>
<div class="line"><a name="l10849"></a><span class="lineno">10849</span> <span class="preprocessor">#else </span><span class="comment">/* probably Tcl7.6 */</span><span class="preprocessor"></span></div>
<div class="line"><a name="l10850"></a><span class="lineno">10850</span> <span class="preprocessor"></span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(var_flag, <span class="stringliteral">"PARSE_VARNAME"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(0));</div>
<div class="line"><a name="l10851"></a><span class="lineno">10851</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l10852"></a><span class="lineno">10852</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l10853"></a><span class="lineno">10853</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l10854"></a><span class="lineno">10854</span> </div>
<div class="line"><a name="l10855"></a><span class="lineno">10855</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"get_version"</span>, lib_getversion, -1);</div>
<div class="line"><a name="l10856"></a><span class="lineno">10856</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"get_release_type_name"</span>,</div>
<div class="line"><a name="l10857"></a><span class="lineno">10857</span>  lib_get_reltype_name, -1);</div>
<div class="line"><a name="l10858"></a><span class="lineno">10858</span> </div>
<div class="line"><a name="l10859"></a><span class="lineno">10859</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(release_type, <span class="stringliteral">"ALPHA"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4de6261e8241d2b1a2042687e2f3f5f1">TCL_ALPHA_RELEASE</a>));</div>
<div class="line"><a name="l10860"></a><span class="lineno">10860</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(release_type, <span class="stringliteral">"BETA"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#af677d35e643bf3e4f082296e5e14bce9">TCL_BETA_RELEASE</a>));</div>
<div class="line"><a name="l10861"></a><span class="lineno">10861</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a>(release_type, <span class="stringliteral">"FINAL"</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aeebe90bc7223d7d0cdc31f8e2e336e40">TCL_FINAL_RELEASE</a>));</div>
<div class="line"><a name="l10862"></a><span class="lineno">10862</span> </div>
<div class="line"><a name="l10863"></a><span class="lineno">10863</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l10864"></a><span class="lineno">10864</span> </div>
<div class="line"><a name="l10865"></a><span class="lineno">10865</span>  eTkCallbackReturn = <a class="code" href="../../de/ddf/group__class.html#ga15d068dbe88a3bab3700b03bebb7fbac">rb_define_class</a>(<span class="stringliteral">"TkCallbackReturn"</span>, <a class="code" href="../../db/dcc/error_8c.html#a3fc1bd0a9e1211aef38f81d600345ed9">rb_eStandardError</a>);</div>
<div class="line"><a name="l10866"></a><span class="lineno">10866</span>  eTkCallbackBreak = <a class="code" href="../../de/ddf/group__class.html#ga15d068dbe88a3bab3700b03bebb7fbac">rb_define_class</a>(<span class="stringliteral">"TkCallbackBreak"</span>, <a class="code" href="../../db/dcc/error_8c.html#a3fc1bd0a9e1211aef38f81d600345ed9">rb_eStandardError</a>);</div>
<div class="line"><a name="l10867"></a><span class="lineno">10867</span>  eTkCallbackContinue = <a class="code" href="../../de/ddf/group__class.html#ga15d068dbe88a3bab3700b03bebb7fbac">rb_define_class</a>(<span class="stringliteral">"TkCallbackContinue"</span>,</div>
<div class="line"><a name="l10868"></a><span class="lineno">10868</span>  <a class="code" href="../../db/dcc/error_8c.html#a3fc1bd0a9e1211aef38f81d600345ed9">rb_eStandardError</a>);</div>
<div class="line"><a name="l10869"></a><span class="lineno">10869</span> </div>
<div class="line"><a name="l10870"></a><span class="lineno">10870</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l10871"></a><span class="lineno">10871</span> </div>
<div class="line"><a name="l10872"></a><span class="lineno">10872</span>  eLocalJumpError = <a class="code" href="../../db/d2e/intern_8h.html#a17a81c1a7d754e5ab49fc4b4369b6c8c">rb_const_get</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a57c96ead3ef230b4838e65fe037c346e">rb_cObject</a>, <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"LocalJumpError"</span>));</div>
<div class="line"><a name="l10873"></a><span class="lineno">10873</span> </div>
<div class="line"><a name="l10874"></a><span class="lineno">10874</span>  eTkLocalJumpError = <a class="code" href="../../de/ddf/group__class.html#ga15d068dbe88a3bab3700b03bebb7fbac">rb_define_class</a>(<span class="stringliteral">"TkLocalJumpError"</span>, eLocalJumpError);</div>
<div class="line"><a name="l10875"></a><span class="lineno">10875</span> </div>
<div class="line"><a name="l10876"></a><span class="lineno">10876</span>  eTkCallbackRetry = <a class="code" href="../../de/ddf/group__class.html#ga15d068dbe88a3bab3700b03bebb7fbac">rb_define_class</a>(<span class="stringliteral">"TkCallbackRetry"</span>, eTkLocalJumpError);</div>
<div class="line"><a name="l10877"></a><span class="lineno">10877</span>  eTkCallbackRedo = <a class="code" href="../../de/ddf/group__class.html#ga15d068dbe88a3bab3700b03bebb7fbac">rb_define_class</a>(<span class="stringliteral">"TkCallbackRedo"</span>, eTkLocalJumpError);</div>
<div class="line"><a name="l10878"></a><span class="lineno">10878</span>  eTkCallbackThrow = <a class="code" href="../../de/ddf/group__class.html#ga15d068dbe88a3bab3700b03bebb7fbac">rb_define_class</a>(<span class="stringliteral">"TkCallbackThrow"</span>, eTkLocalJumpError);</div>
<div class="line"><a name="l10879"></a><span class="lineno">10879</span> </div>
<div class="line"><a name="l10880"></a><span class="lineno">10880</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l10881"></a><span class="lineno">10881</span> </div>
<div class="line"><a name="l10882"></a><span class="lineno">10882</span>  ID_at_enc = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"@encoding"</span>);</div>
<div class="line"><a name="l10883"></a><span class="lineno">10883</span>  ID_at_interp = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"@interp"</span>);</div>
<div class="line"><a name="l10884"></a><span class="lineno">10884</span>  ID_encoding_name = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"encoding_name"</span>);</div>
<div class="line"><a name="l10885"></a><span class="lineno">10885</span>  ID_encoding_table = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"encoding_table"</span>);</div>
<div class="line"><a name="l10886"></a><span class="lineno">10886</span> </div>
<div class="line"><a name="l10887"></a><span class="lineno">10887</span>  ID_stop_p = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"stop?"</span>);</div>
<div class="line"><a name="l10888"></a><span class="lineno">10888</span>  ID_alive_p = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"alive?"</span>);</div>
<div class="line"><a name="l10889"></a><span class="lineno">10889</span>  ID_kill = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"kill"</span>);</div>
<div class="line"><a name="l10890"></a><span class="lineno">10890</span>  ID_join = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"join"</span>);</div>
<div class="line"><a name="l10891"></a><span class="lineno">10891</span>  ID_value = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"value"</span>);</div>
<div class="line"><a name="l10892"></a><span class="lineno">10892</span> </div>
<div class="line"><a name="l10893"></a><span class="lineno">10893</span>  ID_call = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"call"</span>);</div>
<div class="line"><a name="l10894"></a><span class="lineno">10894</span>  ID_backtrace = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"backtrace"</span>);</div>
<div class="line"><a name="l10895"></a><span class="lineno">10895</span>  ID_message = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"message"</span>);</div>
<div class="line"><a name="l10896"></a><span class="lineno">10896</span> </div>
<div class="line"><a name="l10897"></a><span class="lineno">10897</span>  ID_at_reason = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"@reason"</span>);</div>
<div class="line"><a name="l10898"></a><span class="lineno">10898</span>  ID_return = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"return"</span>);</div>
<div class="line"><a name="l10899"></a><span class="lineno">10899</span>  ID_break = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"break"</span>);</div>
<div class="line"><a name="l10900"></a><span class="lineno">10900</span>  ID_next = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"next"</span>);</div>
<div class="line"><a name="l10901"></a><span class="lineno">10901</span> </div>
<div class="line"><a name="l10902"></a><span class="lineno">10902</span>  ID_to_s = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"to_s"</span>);</div>
<div class="line"><a name="l10903"></a><span class="lineno">10903</span>  ID_inspect = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"inspect"</span>);</div>
<div class="line"><a name="l10904"></a><span class="lineno">10904</span> </div>
<div class="line"><a name="l10905"></a><span class="lineno">10905</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l10906"></a><span class="lineno">10906</span> </div>
<div class="line"><a name="l10907"></a><span class="lineno">10907</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"mainloop"</span>, lib_mainloop, -1);</div>
<div class="line"><a name="l10908"></a><span class="lineno">10908</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"mainloop_thread?"</span>,</div>
<div class="line"><a name="l10909"></a><span class="lineno">10909</span>  lib_evloop_thread_p, 0);</div>
<div class="line"><a name="l10910"></a><span class="lineno">10910</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"mainloop_watchdog"</span>,</div>
<div class="line"><a name="l10911"></a><span class="lineno">10911</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0ce40d5f4f80d4ba5cf19581bd371d64">lib_mainloop_watchdog</a>, -1);</div>
<div class="line"><a name="l10912"></a><span class="lineno">10912</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"do_thread_callback"</span>,</div>
<div class="line"><a name="l10913"></a><span class="lineno">10913</span>  lib_thread_callback, -1);</div>
<div class="line"><a name="l10914"></a><span class="lineno">10914</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"do_one_event"</span>, lib_do_one_event, -1);</div>
<div class="line"><a name="l10915"></a><span class="lineno">10915</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"mainloop_abort_on_exception"</span>,</div>
<div class="line"><a name="l10916"></a><span class="lineno">10916</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acda52e7f6b86b5809f7e427f529bfcb3">lib_evloop_abort_on_exc</a>, 0);</div>
<div class="line"><a name="l10917"></a><span class="lineno">10917</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"mainloop_abort_on_exception="</span>,</div>
<div class="line"><a name="l10918"></a><span class="lineno">10918</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad35c1f2068a266a3a1525d2899a056b9">lib_evloop_abort_on_exc_set</a>, 1);</div>
<div class="line"><a name="l10919"></a><span class="lineno">10919</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"set_eventloop_window_mode"</span>,</div>
<div class="line"><a name="l10920"></a><span class="lineno">10920</span>  set_eventloop_window_mode, 1);</div>
<div class="line"><a name="l10921"></a><span class="lineno">10921</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"get_eventloop_window_mode"</span>,</div>
<div class="line"><a name="l10922"></a><span class="lineno">10922</span>  get_eventloop_window_mode, 0);</div>
<div class="line"><a name="l10923"></a><span class="lineno">10923</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"set_eventloop_tick"</span>,<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2a585c6b73d0ef8ee49763794ad560fa">set_eventloop_tick</a>,1);</div>
<div class="line"><a name="l10924"></a><span class="lineno">10924</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"get_eventloop_tick"</span>,get_eventloop_tick,0);</div>
<div class="line"><a name="l10925"></a><span class="lineno">10925</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"set_no_event_wait"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a571ea11dcb2dbd199457251a32493c26">set_no_event_wait</a>, 1);</div>
<div class="line"><a name="l10926"></a><span class="lineno">10926</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"get_no_event_wait"</span>, get_no_event_wait, 0);</div>
<div class="line"><a name="l10927"></a><span class="lineno">10927</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"set_eventloop_weight"</span>,</div>
<div class="line"><a name="l10928"></a><span class="lineno">10928</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#af45a7351177e2bf6f28a0374da224d5d">set_eventloop_weight</a>, 2);</div>
<div class="line"><a name="l10929"></a><span class="lineno">10929</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"set_max_block_time"</span>, set_max_block_time,1);</div>
<div class="line"><a name="l10930"></a><span class="lineno">10930</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"get_eventloop_weight"</span>,</div>
<div class="line"><a name="l10931"></a><span class="lineno">10931</span>  get_eventloop_weight, 0);</div>
<div class="line"><a name="l10932"></a><span class="lineno">10932</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"num_of_mainwindows"</span>,</div>
<div class="line"><a name="l10933"></a><span class="lineno">10933</span>  lib_num_of_mainwindows, 0);</div>
<div class="line"><a name="l10934"></a><span class="lineno">10934</span> </div>
<div class="line"><a name="l10935"></a><span class="lineno">10935</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l10936"></a><span class="lineno">10936</span> </div>
<div class="line"><a name="l10937"></a><span class="lineno">10937</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"_split_tklist"</span>, lib_split_tklist, 1);</div>
<div class="line"><a name="l10938"></a><span class="lineno">10938</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"_merge_tklist"</span>, lib_merge_tklist, -1);</div>
<div class="line"><a name="l10939"></a><span class="lineno">10939</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"_conv_listelement"</span>,</div>
<div class="line"><a name="l10940"></a><span class="lineno">10940</span>  lib_conv_listelement, 1);</div>
<div class="line"><a name="l10941"></a><span class="lineno">10941</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"_toUTF8"</span>, lib_toUTF8, -1);</div>
<div class="line"><a name="l10942"></a><span class="lineno">10942</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"_fromUTF8"</span>, lib_fromUTF8, -1);</div>
<div class="line"><a name="l10943"></a><span class="lineno">10943</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"_subst_UTF_backslash"</span>,</div>
<div class="line"><a name="l10944"></a><span class="lineno">10944</span>  lib_UTF_backslash, 1);</div>
<div class="line"><a name="l10945"></a><span class="lineno">10945</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"_subst_Tcl_backslash"</span>,</div>
<div class="line"><a name="l10946"></a><span class="lineno">10946</span>  lib_Tcl_backslash, 1);</div>
<div class="line"><a name="l10947"></a><span class="lineno">10947</span> </div>
<div class="line"><a name="l10948"></a><span class="lineno">10948</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"encoding_system"</span>,</div>
<div class="line"><a name="l10949"></a><span class="lineno">10949</span>  lib_get_system_encoding, 0);</div>
<div class="line"><a name="l10950"></a><span class="lineno">10950</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"encoding_system="</span>,</div>
<div class="line"><a name="l10951"></a><span class="lineno">10951</span>  lib_set_system_encoding, 1);</div>
<div class="line"><a name="l10952"></a><span class="lineno">10952</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"encoding"</span>,</div>
<div class="line"><a name="l10953"></a><span class="lineno">10953</span>  lib_get_system_encoding, 0);</div>
<div class="line"><a name="l10954"></a><span class="lineno">10954</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"encoding="</span>,</div>
<div class="line"><a name="l10955"></a><span class="lineno">10955</span>  lib_set_system_encoding, 1);</div>
<div class="line"><a name="l10956"></a><span class="lineno">10956</span> </div>
<div class="line"><a name="l10957"></a><span class="lineno">10957</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l10958"></a><span class="lineno">10958</span> </div>
<div class="line"><a name="l10959"></a><span class="lineno">10959</span>  <a class="code" href="../../db/d2e/intern_8h.html#a6c99ed7f070458b961026d43d27d0642">rb_define_alloc_func</a>(ip, ip_alloc);</div>
<div class="line"><a name="l10960"></a><span class="lineno">10960</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"initialize"</span>, ip_init, -1);</div>
<div class="line"><a name="l10961"></a><span class="lineno">10961</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"create_slave"</span>, ip_create_slave, -1);</div>
<div class="line"><a name="l10962"></a><span class="lineno">10962</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"slave_of?"</span>, ip_is_slave_of_p, 1);</div>
<div class="line"><a name="l10963"></a><span class="lineno">10963</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"make_safe"</span>, ip_make_safe, 0);</div>
<div class="line"><a name="l10964"></a><span class="lineno">10964</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"safe?"</span>, ip_is_safe_p, 0);</div>
<div class="line"><a name="l10965"></a><span class="lineno">10965</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"allow_ruby_exit?"</span>, ip_allow_ruby_exit_p, 0);</div>
<div class="line"><a name="l10966"></a><span class="lineno">10966</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"allow_ruby_exit="</span>, ip_allow_ruby_exit_set, 1);</div>
<div class="line"><a name="l10967"></a><span class="lineno">10967</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"delete"</span>, ip_delete, 0);</div>
<div class="line"><a name="l10968"></a><span class="lineno">10968</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"deleted?"</span>, ip_is_deleted_p, 0);</div>
<div class="line"><a name="l10969"></a><span class="lineno">10969</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"has_mainwindow?"</span>, ip_has_mainwindow_p, 0);</div>
<div class="line"><a name="l10970"></a><span class="lineno">10970</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"invalid_namespace?"</span>, ip_has_invalid_namespace_p, 0);</div>
<div class="line"><a name="l10971"></a><span class="lineno">10971</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_eval"</span>, ip_eval, 1);</div>
<div class="line"><a name="l10972"></a><span class="lineno">10972</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_cancel_eval"</span>, ip_cancel_eval, -1);</div>
<div class="line"><a name="l10973"></a><span class="lineno">10973</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_cancel_eval_unwind"</span>, ip_cancel_eval_unwind, -1);</div>
<div class="line"><a name="l10974"></a><span class="lineno">10974</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_toUTF8"</span>, ip_toUTF8, -1);</div>
<div class="line"><a name="l10975"></a><span class="lineno">10975</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_fromUTF8"</span>, ip_fromUTF8, -1);</div>
<div class="line"><a name="l10976"></a><span class="lineno">10976</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_thread_vwait"</span>, ip_thread_vwait, 1);</div>
<div class="line"><a name="l10977"></a><span class="lineno">10977</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_thread_tkwait"</span>, ip_thread_tkwait, 2);</div>
<div class="line"><a name="l10978"></a><span class="lineno">10978</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_invoke"</span>, ip_invoke, -1);</div>
<div class="line"><a name="l10979"></a><span class="lineno">10979</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_immediate_invoke"</span>, ip_invoke_immediate, -1);</div>
<div class="line"><a name="l10980"></a><span class="lineno">10980</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_return_value"</span>, ip_retval, 0);</div>
<div class="line"><a name="l10981"></a><span class="lineno">10981</span> </div>
<div class="line"><a name="l10982"></a><span class="lineno">10982</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_create_console"</span>, ip_create_console, 0);</div>
<div class="line"><a name="l10983"></a><span class="lineno">10983</span> </div>
<div class="line"><a name="l10984"></a><span class="lineno">10984</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l10985"></a><span class="lineno">10985</span> </div>
<div class="line"><a name="l10986"></a><span class="lineno">10986</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"create_dummy_encoding_for_tk"</span>,</div>
<div class="line"><a name="l10987"></a><span class="lineno">10987</span>  create_dummy_encoding_for_tk, 1);</div>
<div class="line"><a name="l10988"></a><span class="lineno">10988</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"encoding_table"</span>, ip_get_encoding_table, 0);</div>
<div class="line"><a name="l10989"></a><span class="lineno">10989</span> </div>
<div class="line"><a name="l10990"></a><span class="lineno">10990</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l10991"></a><span class="lineno">10991</span> </div>
<div class="line"><a name="l10992"></a><span class="lineno">10992</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_get_variable"</span>, ip_get_variable, 2);</div>
<div class="line"><a name="l10993"></a><span class="lineno">10993</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_get_variable2"</span>, ip_get_variable2, 3);</div>
<div class="line"><a name="l10994"></a><span class="lineno">10994</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_set_variable"</span>, ip_set_variable, 3);</div>
<div class="line"><a name="l10995"></a><span class="lineno">10995</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_set_variable2"</span>, ip_set_variable2, 4);</div>
<div class="line"><a name="l10996"></a><span class="lineno">10996</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_unset_variable"</span>, ip_unset_variable, 2);</div>
<div class="line"><a name="l10997"></a><span class="lineno">10997</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_unset_variable2"</span>, ip_unset_variable2, 3);</div>
<div class="line"><a name="l10998"></a><span class="lineno">10998</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_get_global_var"</span>, ip_get_global_var, 1);</div>
<div class="line"><a name="l10999"></a><span class="lineno">10999</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_get_global_var2"</span>, ip_get_global_var2, 2);</div>
<div class="line"><a name="l11000"></a><span class="lineno">11000</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_set_global_var"</span>, ip_set_global_var, 2);</div>
<div class="line"><a name="l11001"></a><span class="lineno">11001</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_set_global_var2"</span>, ip_set_global_var2, 3);</div>
<div class="line"><a name="l11002"></a><span class="lineno">11002</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_unset_global_var"</span>, ip_unset_global_var, 1);</div>
<div class="line"><a name="l11003"></a><span class="lineno">11003</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_unset_global_var2"</span>, ip_unset_global_var2, 2);</div>
<div class="line"><a name="l11004"></a><span class="lineno">11004</span> </div>
<div class="line"><a name="l11005"></a><span class="lineno">11005</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l11006"></a><span class="lineno">11006</span> </div>
<div class="line"><a name="l11007"></a><span class="lineno">11007</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_make_menu_embeddable"</span>, ip_make_menu_embeddable, 1);</div>
<div class="line"><a name="l11008"></a><span class="lineno">11008</span> </div>
<div class="line"><a name="l11009"></a><span class="lineno">11009</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l11010"></a><span class="lineno">11010</span> </div>
<div class="line"><a name="l11011"></a><span class="lineno">11011</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_split_tklist"</span>, ip_split_tklist, 1);</div>
<div class="line"><a name="l11012"></a><span class="lineno">11012</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_merge_tklist"</span>, lib_merge_tklist, -1);</div>
<div class="line"><a name="l11013"></a><span class="lineno">11013</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_conv_listelement"</span>, lib_conv_listelement, 1);</div>
<div class="line"><a name="l11014"></a><span class="lineno">11014</span> </div>
<div class="line"><a name="l11015"></a><span class="lineno">11015</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l11016"></a><span class="lineno">11016</span> </div>
<div class="line"><a name="l11017"></a><span class="lineno">11017</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"mainloop"</span>, ip_mainloop, -1);</div>
<div class="line"><a name="l11018"></a><span class="lineno">11018</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"mainloop_watchdog"</span>, ip_mainloop_watchdog, -1);</div>
<div class="line"><a name="l11019"></a><span class="lineno">11019</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"do_one_event"</span>, ip_do_one_event, -1);</div>
<div class="line"><a name="l11020"></a><span class="lineno">11020</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"mainloop_abort_on_exception"</span>,</div>
<div class="line"><a name="l11021"></a><span class="lineno">11021</span>  ip_evloop_abort_on_exc, 0);</div>
<div class="line"><a name="l11022"></a><span class="lineno">11022</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"mainloop_abort_on_exception="</span>,</div>
<div class="line"><a name="l11023"></a><span class="lineno">11023</span>  ip_evloop_abort_on_exc_set, 1);</div>
<div class="line"><a name="l11024"></a><span class="lineno">11024</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"set_eventloop_tick"</span>, ip_set_eventloop_tick, 1);</div>
<div class="line"><a name="l11025"></a><span class="lineno">11025</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"get_eventloop_tick"</span>, ip_get_eventloop_tick, 0);</div>
<div class="line"><a name="l11026"></a><span class="lineno">11026</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"set_no_event_wait"</span>, ip_set_no_event_wait, 1);</div>
<div class="line"><a name="l11027"></a><span class="lineno">11027</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"get_no_event_wait"</span>, ip_get_no_event_wait, 0);</div>
<div class="line"><a name="l11028"></a><span class="lineno">11028</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"set_eventloop_weight"</span>, ip_set_eventloop_weight, 2);</div>
<div class="line"><a name="l11029"></a><span class="lineno">11029</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"get_eventloop_weight"</span>, ip_get_eventloop_weight, 0);</div>
<div class="line"><a name="l11030"></a><span class="lineno">11030</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"set_max_block_time"</span>, set_max_block_time, 1);</div>
<div class="line"><a name="l11031"></a><span class="lineno">11031</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"restart"</span>, ip_restart, 0);</div>
<div class="line"><a name="l11032"></a><span class="lineno">11032</span> </div>
<div class="line"><a name="l11033"></a><span class="lineno">11033</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l11034"></a><span class="lineno">11034</span> </div>
<div class="line"><a name="l11035"></a><span class="lineno">11035</span>  eventloop_thread = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l11036"></a><span class="lineno">11036</span>  eventloop_interp = (Tcl_Interp*)NULL;</div>
<div class="line"><a name="l11037"></a><span class="lineno">11037</span> </div>
<div class="line"><a name="l11038"></a><span class="lineno">11038</span> <span class="preprocessor">#ifndef DEFAULT_EVENTLOOP_DEPTH</span></div>
<div class="line"><a name="l11039"></a><span class="lineno">11039</span> <span class="preprocessor"></span><span class="preprocessor">#define DEFAULT_EVENTLOOP_DEPTH 7</span></div>
<div class="line"><a name="l11040"></a><span class="lineno">11040</span> <span class="preprocessor"></span><span class="preprocessor">#endif</span></div>
<div class="line"><a name="l11041"></a><span class="lineno">11041</span> <span class="preprocessor"></span> eventloop_stack = <a class="code" href="../../dc/dcc/array_8c.html#a43a7bd246935ab63c233b4ae34d61d75">rb_ary_new2</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aa90d2934300f61708abfaf993b994f47">DEFAULT_EVENTLOOP_DEPTH</a>);</div>
<div class="line"><a name="l11042"></a><span class="lineno">11042</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832">RbTk_OBJ_UNTRUST</a>(eventloop_stack);</div>
<div class="line"><a name="l11043"></a><span class="lineno">11043</span> </div>
<div class="line"><a name="l11044"></a><span class="lineno">11044</span>  watchdog_thread = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l11045"></a><span class="lineno">11045</span> </div>
<div class="line"><a name="l11046"></a><span class="lineno">11046</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a>;</div>
<div class="line"><a name="l11047"></a><span class="lineno">11047</span> </div>
<div class="line"><a name="l11048"></a><span class="lineno">11048</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l11049"></a><span class="lineno">11049</span> </div>
<div class="line"><a name="l11050"></a><span class="lineno">11050</span> <span class="preprocessor">#ifdef HAVE_NATIVETHREAD</span></div>
<div class="line"><a name="l11051"></a><span class="lineno">11051</span> <span class="preprocessor"></span> <span class="comment">/* if ruby->nativethread-supprt and tcltklib->doen't,</span></div>
<div class="line"><a name="l11052"></a><span class="lineno">11052</span> <span class="comment"> the following will cause link-error. */</span></div>
<div class="line"><a name="l11053"></a><span class="lineno">11053</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9e7d742a9c52a78b9b3dc81df878e2ed">ruby_native_thread_p</a>();</div>
<div class="line"><a name="l11054"></a><span class="lineno">11054</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l11055"></a><span class="lineno">11055</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l11056"></a><span class="lineno">11056</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l11057"></a><span class="lineno">11057</span> </div>
<div class="line"><a name="l11058"></a><span class="lineno">11058</span>  <a class="code" href="../../d6/d9b/eval__jump_8c.html#a59c976d93f8b1b2766e4fe7e01ac1ee7">rb_set_end_proc</a>(lib_mark_at_exit, 0);</div>
<div class="line"><a name="l11059"></a><span class="lineno">11059</span> </div>
<div class="line"><a name="l11060"></a><span class="lineno">11060</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l11061"></a><span class="lineno">11061</span> </div>
<div class="line"><a name="l11062"></a><span class="lineno">11062</span>  ret = <a class="code" href="../../df/d55/stubs_8h.html#a4cdab71220d64857b68d8cdbf3893c23">ruby_open_tcl_dll</a>(<a class="code" href="../../db/d2e/intern_8h.html#a70f81ab8c056ec13134cc7a35868d565">rb_argv0</a> ? <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a>(<a class="code" href="../../db/d2e/intern_8h.html#a70f81ab8c056ec13134cc7a35868d565">rb_argv0</a>) : 0);</div>
<div class="line"><a name="l11063"></a><span class="lineno">11063</span>  <span class="keywordflow">switch</span>(ret) {</div>
<div class="line"><a name="l11064"></a><span class="lineno">11064</span>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d30/stubs_8c.html#a80b5499187083d23168d4b13624321fd">TCLTK_STUBS_OK</a>:</div>
<div class="line"><a name="l11065"></a><span class="lineno">11065</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l11066"></a><span class="lineno">11066</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#a2bfee19ebfc13a427b688890d5961237">NO_TCL_DLL</a>:</div>
<div class="line"><a name="l11067"></a><span class="lineno">11067</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a5485df8856b8fa33d9d378afdabc9d29">rb_eLoadError</a>, <span class="stringliteral">"tcltklib: fail to open tcl_dll"</span>);</div>
<div class="line"><a name="l11068"></a><span class="lineno">11068</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#aab732e347dd4377ec8d7050f4ca962c8">NO_FindExecutable</a>:</div>
<div class="line"><a name="l11069"></a><span class="lineno">11069</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a5485df8856b8fa33d9d378afdabc9d29">rb_eLoadError</a>, <span class="stringliteral">"tcltklib: can't find Tcl_FindExecutable"</span>);</div>
<div class="line"><a name="l11070"></a><span class="lineno">11070</span>  <span class="keywordflow">default</span>:</div>
<div class="line"><a name="l11071"></a><span class="lineno">11071</span>  <a class="code" href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a>(<a class="code" href="../../db/dcc/error_8c.html#a5485df8856b8fa33d9d378afdabc9d29">rb_eLoadError</a>, <span class="stringliteral">"tcltklib: unknown error(%d) on ruby_open_tcl_dll"</span>, ret);</div>
<div class="line"><a name="l11072"></a><span class="lineno">11072</span>  }</div>
<div class="line"><a name="l11073"></a><span class="lineno">11073</span> </div>
<div class="line"><a name="l11074"></a><span class="lineno">11074</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l11075"></a><span class="lineno">11075</span> </div>
<div class="line"><a name="l11076"></a><span class="lineno">11076</span> <span class="preprocessor">#if defined CREATE_RUBYTK_KIT || defined CREATE_RUBYKIT</span></div>
<div class="line"><a name="l11077"></a><span class="lineno">11077</span> <span class="preprocessor"></span> setup_rubytkkit();</div>
<div class="line"><a name="l11078"></a><span class="lineno">11078</span> <span class="preprocessor">#endif</span></div>
<div class="line"><a name="l11079"></a><span class="lineno">11079</span> <span class="preprocessor"></span></div>
<div class="line"><a name="l11080"></a><span class="lineno">11080</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l11081"></a><span class="lineno">11081</span> </div>
<div class="line"><a name="l11082"></a><span class="lineno">11082</span>  <span class="comment">/* Tcl stub check */</span></div>
<div class="line"><a name="l11083"></a><span class="lineno">11083</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#abbe469560280c936662242c94a43d994">tcl_stubs_check</a>();</div>
<div class="line"><a name="l11084"></a><span class="lineno">11084</span> </div>
<div class="line"><a name="l11085"></a><span class="lineno">11085</span>  Tcl_ObjType_ByteArray = Tcl_GetObjType(Tcl_ObjTypeName_ByteArray);</div>
<div class="line"><a name="l11086"></a><span class="lineno">11086</span>  Tcl_ObjType_String = Tcl_GetObjType(Tcl_ObjTypeName_String);</div>
<div class="line"><a name="l11087"></a><span class="lineno">11087</span> </div>
<div class="line"><a name="l11088"></a><span class="lineno">11088</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div>
<div class="line"><a name="l11089"></a><span class="lineno">11089</span> </div>
<div class="line"><a name="l11090"></a><span class="lineno">11090</span>  (<a class="code" href="../../de/d07/bigdecimal_8c.html#ac537498b5ed6e25bced70b90e5949201">void</a>)call_original_exit;</div>
<div class="line"><a name="l11091"></a><span class="lineno">11091</span> }</div>
<div class="line"><a name="l11092"></a><span class="lineno">11092</span> </div>
<div class="line"><a name="l11093"></a><span class="lineno">11093</span> <span class="comment">/* eof */</span></div>
<div class="ttc" id="ruby_2ruby_8h_html_a7d36c9c3e9faa34c27eb7f2eb9c874a8"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a7d36c9c3e9faa34c27eb7f2eb9c874a8">rb_cString</a></div><div class="ttdeci">RUBY_EXTERN VALUE rb_cString</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01276">ruby.h:1276</a></div></div>
<div class="ttc" id="intern_8h_html_aa8e250f234a95692386f8cb7e858794d"><div class="ttname"><a href="../../db/d2e/intern_8h.html#aa8e250f234a95692386f8cb7e858794d">rb_apply</a></div><div class="ttdeci">VALUE rb_apply(VALUE, ID, VALUE)</div><div class="ttdoc">Calls a method. </div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d80/vm__eval_8c_source.html#l00617">vm_eval.c:617</a></div></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="structcmd__body__arg_html_a69cc5f5a65054e5b276eeb78716cbeb9"><div class="ttname"><a href="../../d6/d58/structcmd__body__arg.html#a69cc5f5a65054e5b276eeb78716cbeb9">cmd_body_arg::args</a></div><div class="ttdeci">VALUE args</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00549">tcltklib.c:549</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a93f154f3dcc08027f475bf0c3cc287bd"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a93f154f3dcc08027f475bf0c3cc287bd">NUM2LONG</a></div><div class="ttdeci">static long NUM2LONG(VALUE x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00510">ruby.h:510</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a6dd89483d61a8006a56e95116fc72b1d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a6dd89483d61a8006a56e95116fc72b1d">TCL_ERROR</a></div><div class="ttdeci">return TCL_ERROR</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03943">tcltklib.c:3943</a></div></div>
<div class="ttc" id="structcmd__body__arg_html"><div class="ttname"><a href="../../d6/d58/structcmd__body__arg.html">cmd_body_arg</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00546">tcltklib.c:546</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_ac9aadbc1e9c456506a4d7eef5cdc787e"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#ac9aadbc1e9c456506a4d7eef5cdc787e">T_SYMBOL</a></div><div class="ttdeci">#define T_SYMBOL</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00430">ruby.h:430</a></div></div>
<div class="ttc" id="error_8c_html_a3fc1bd0a9e1211aef38f81d600345ed9"><div class="ttname"><a href="../../db/dcc/error_8c.html#a3fc1bd0a9e1211aef38f81d600345ed9">rb_eStandardError</a></div><div class="ttdeci">VALUE rb_eStandardError</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00465">error.c:465</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a86e277d5b14e9afcd73cb7cfd3d9a53b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a86e277d5b14e9afcd73cb7cfd3d9a53b">invoke_queue_mark</a></div><div class="ttdeci">void invoke_queue_mark(struct invoke_queue *q)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00436">tcltklib.c:436</a></div></div>
<div class="ttc" id="encoding_8c_html_a0ee8da2e6cc01567488e318854a3d9c0"><div class="ttname"><a href="../../d5/db5/encoding_8c.html#a0ee8da2e6cc01567488e318854a3d9c0">rb_enc_get_index</a></div><div class="ttdeci">int rb_enc_get_index(VALUE obj)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/db5/encoding_8c_source.html#l00651">encoding.c:651</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a0ce40d5f4f80d4ba5cf19581bd371d64"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a0ce40d5f4f80d4ba5cf19581bd371d64">lib_mainloop_watchdog</a></div><div class="ttdeci">return lib_mainloop_watchdog(argc, argv, self)</div></div>
<div class="ttc" id="structthread__call__proc__arg_html_a88c2082d5ef020c3bf715fffcf3e846c"><div class="ttname"><a href="../../d6/dec/structthread__call__proc__arg.html#a88c2082d5ef020c3bf715fffcf3e846c">thread_call_proc_arg::proc</a></div><div class="ttdeci">VALUE proc</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02895">tcltklib.c:2895</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a7725cc78dab5aa1a2e8eed31d3ce2f7d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a7725cc78dab5aa1a2e8eed31d3ce2f7d">eTkCallbackRetry</a></div><div class="ttdeci">static VALUE eTkCallbackRetry</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00212">tcltklib.c:212</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a39cf94183e6d744167ae5f6a7bde0363"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a39cf94183e6d744167ae5f6a7bde0363">rb_cData</a></div><div class="ttdeci">RUBY_EXTERN VALUE rb_cData</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01253">ruby.h:1253</a></div></div>
<div class="ttc" id="structthread__call__proc__arg_html"><div class="ttname"><a href="../../d6/dec/structthread__call__proc__arg.html">thread_call_proc_arg</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02894">tcltklib.c:2894</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aa42b2591a0a1fcbbda5d4f1b90b5d62b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa42b2591a0a1fcbbda5d4f1b90b5d62b">ary</a></div><div class="ttdeci">volatile VALUE ary</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09700">tcltklib.c:9700</a></div></div>
<div class="ttc" id="bigdecimal_8c_html_accd5e629f58868c52137db996aaf8b83"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#accd5e629f58868c52137db996aaf8b83">int</a></div><div class="ttdeci">VP_EXPORT int</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l04911">bigdecimal.c:4911</a></div></div>
<div class="ttc" id="array_8c_html_aacb1ec2239256ca2e537588fc534e7b8"><div class="ttname"><a href="../../dc/dcc/array_8c.html#aacb1ec2239256ca2e537588fc534e7b8">rb_ary_pop</a></div><div class="ttdeci">VALUE rb_ary_pop(VALUE ary)</div><div class="ttdef"><b>Definition:</b> <a href="../../dc/dcc/array_8c_source.html#l00783">array.c:783</a></div></div>
<div class="ttc" id="yaml2byte_8c_html_a711673dea8d1c623bad6447fee9dd1eb"><div class="ttname"><a href="../../dd/dfb/yaml2byte_8c.html#a711673dea8d1c623bad6447fee9dd1eb">current</a></div><div class="ttdeci">char * current</div><div class="ttdef"><b>Definition:</b> <a href="../../dd/dfb/yaml2byte_8c_source.html#l00127">yaml2byte.c:127</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aeebe90bc7223d7d0cdc31f8e2e336e40"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aeebe90bc7223d7d0cdc31f8e2e336e40">TCL_FINAL_RELEASE</a></div><div class="ttdeci">#define TCL_FINAL_RELEASE</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00101">tcltklib.c:101</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a515edd407ed841add89c728a46521d3a"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a515edd407ed841add89c728a46521d3a">rb_debug_bup</a></div><div class="ttdeci">VALUE rb_debug_bup</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05678">tcltklib.c:5678</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ac904beb2aab947ee7a16ad741ae38ef1"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac904beb2aab947ee7a16ad741ae38ef1">TKWAIT_MODE_VISIBILITY</a></div><div class="ttdeci">#define TKWAIT_MODE_VISIBILITY</div></div>
<div class="ttc" id="error_8c_html_a2d5fb28e54f792e7341b2c45f52f3860"><div class="ttname"><a href="../../db/dcc/error_8c.html#a2d5fb28e54f792e7341b2c45f52f3860">rb_bug</a></div><div class="ttdeci">void rb_bug(const char *fmt,...)</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00265">error.c:265</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a51149f34ac77e93a73d6a687469e501d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a51149f34ac77e93a73d6a687469e501d">error_mode</a></div><div class="ttdeci">VALUE error_mode</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10082">tcltklib.c:10082</a></div></div>
<div class="ttc" id="stubs_8c_html_a5781553460d704ea29c0b5065ba79f77"><div class="ttname"><a href="../../d5/d30/stubs_8c.html#a5781553460d704ea29c0b5065ba79f77">ruby_tcl_stubs_init</a></div><div class="ttdeci">int ruby_tcl_stubs_init()</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d30/stubs_8c_source.html#l00531">stubs.c:531</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a189bd2ac1c121d796cb2d123c7adc599"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a189bd2ac1c121d796cb2d123c7adc599">ID_at_reason</a></div><div class="ttdeci">static ID ID_at_reason</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00234">tcltklib.c:234</a></div></div>
<div class="ttc" id="structeval__queue_html_a41aad58e8a23dcf0370b40b9afebef6f"><div class="ttname"><a href="../../de/d17/structeval__queue.html#a41aad58e8a23dcf0370b40b9afebef6f">eval_queue::result</a></div><div class="ttdeci">VALUE result</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00419">tcltklib.c:419</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aa6896905f9ab15ac1ea4ce9aec1df54b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a></div><div class="ttdeci">#define rb_hash_lookup</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00264">tcltklib.c:264</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a277f73abdf66e83f4fc75b93d6e87b72"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a277f73abdf66e83f4fc75b93d6e87b72">TAG_RETRY</a></div><div class="ttdeci">#define TAG_RETRY</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00155">tcltklib.c:155</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ae96487c8a7974cdd45d90c8e447ee19d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae96487c8a7974cdd45d90c8e447ee19d">eTkCallbackRedo</a></div><div class="ttdeci">static VALUE eTkCallbackRedo</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00213">tcltklib.c:213</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a16a4e0379b897e4edef4a665c09f32e9"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a16a4e0379b897e4edef4a665c09f32e9">th</a></div><div class="ttdeci">static VALUE VALUE th</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02937">tcltklib.c:2937</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ae40354a1051342eb5a9db005715dcfa9"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae40354a1051342eb5a9db005715dcfa9">idx</a></div><div class="ttdeci">int idx</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09703">tcltklib.c:9703</a></div></div>
<div class="ttc" id="name2ctype_8h_html_a0d5784caa5303af064d9764722c6b37f"><div class="ttname"><a href="../../d3/d15/name2ctype_8h.html#a0d5784caa5303af064d9764722c6b37f">str</a></div><div class="ttdeci">static unsigned int register const char * str</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d15/name2ctype_8h_source.html#l22209">name2ctype.h:22209</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a45a5b7c00a796a23f01673cef1dbe0a9"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a45a5b7c00a796a23f01673cef1dbe0a9">code</a></div><div class="ttdeci">code</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03375">tcltklib.c:3375</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a3cd3b08dbcd340f49d3f79538ed90dd0"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a3cd3b08dbcd340f49d3f79538ed90dd0">eventloop_interp</a></div><div class="ttdeci">static Tcl_Interp * eventloop_interp</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00467">tcltklib.c:467</a></div></div>
<div class="ttc" id="strchr_8c_html_a219836f542ce53545052bed5353820ca"><div class="ttname"><a href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a></div><div class="ttdeci">size_t strlen(const char *)</div></div>
<div class="ttc" id="tcltklib_8c_html_aa175d853234808578ae95e41eb2950da"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa175d853234808578ae95e41eb2950da">evq</a></div><div class="ttdeci">VALUE evq</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07471">tcltklib.c:7471</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a3ddcdc7bfb3b1d74b8f23dacda0e86a3"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a3ddcdc7bfb3b1d74b8f23dacda0e86a3">nameString</a></div><div class="ttdeci">char * nameString</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04471">tcltklib.c:4471</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a51a063bddf9d483f0f92632285ecd2b7"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a51a063bddf9d483f0f92632285ecd2b7">Tcl_CallWhenDeleted</a></div><div class="ttdeci">Tcl_CallWhenDeleted(ptr->ip, ip_CallWhenDeleted,(ClientData) mainWin)</div></div>
<div class="ttc" id="structtcltkip_html_a67f82d92ca91577d4a48287e9e0ee29f"><div class="ttname"><a href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f">tcltkip::ref_count</a></div><div class="ttdeci">int ref_count</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00760">tcltklib.c:760</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a523855de5546c34061e030f4606db3e9"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a523855de5546c34061e030f4606db3e9">T_FIXNUM</a></div><div class="ttdeci">#define T_FIXNUM</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00425">ruby.h:425</a></div></div>
<div class="ttc" id="stubs_8h_html_a5607246c06be9287bbac76b52db313e2"><div class="ttname"><a href="../../df/d55/stubs_8h.html#a5607246c06be9287bbac76b52db313e2">FAIL_Tcl_InitStubs</a></div><div class="ttdeci">#define FAIL_Tcl_InitStubs</div><div class="ttdef"><b>Definition:</b> <a href="../../df/d55/stubs_8h_source.html#l00028">stubs.h:28</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ad15b40449e422fb6bac1582d12b43992"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad15b40449e422fb6bac1582d12b43992">encodename</a></div><div class="ttdeci">VALUE encodename</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07941">tcltklib.c:7941</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a4de6261e8241d2b1a2042687e2f3f5f1"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a4de6261e8241d2b1a2042687e2f3f5f1">TCL_ALPHA_RELEASE</a></div><div class="ttdeci">#define TCL_ALPHA_RELEASE</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00099">tcltklib.c:99</a></div></div>
<div class="ttc" id="structinvoke__info_html_af88357514c09a81e4bd4abc3cdb27c81"><div class="ttname"><a href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">invoke_info::ptr</a></div><div class="ttdeci">struct tcltkip * ptr</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08458">tcltklib.c:8458</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a812614951e4a83bb949becbfec2f3828"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a812614951e4a83bb949becbfec2f3828">tcl_protect_core</a></div><div class="ttdeci">static int tcl_protect_core(Tcl_Interp *interp, VALUE(*proc)(), VALUE data)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03178">tcltklib.c:3178</a></div></div>
<div class="ttc" id="encoding_8c_html_a9a2af36eb4187c33c7e8ff329c440966"><div class="ttname"><a href="../../d5/db5/encoding_8c.html#a9a2af36eb4187c33c7e8ff329c440966">rb_cEncoding</a></div><div class="ttdeci">VALUE rb_cEncoding</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/db5/encoding_8c_source.html#l00039">encoding.c:39</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a32f224f962b50f1a6445c52ef1ceeb6a"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a32f224f962b50f1a6445c52ef1ceeb6a">ID_at_interp</a></div><div class="ttdeci">static ID ID_at_interp</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00219">tcltklib.c:219</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aec7b96885baf2e6f10efbdef9d935a0b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aec7b96885baf2e6f10efbdef9d935a0b">minor</a></div><div class="ttdeci">int minor</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00106">tcltklib.c:106</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a14e7d89ffd600ee06f033277ba33a51f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a14e7d89ffd600ee06f033277ba33a51f">ID_break</a></div><div class="ttdeci">static ID ID_break</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00236">tcltklib.c:236</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a877c38180d23c5447d976c70dda89d69"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a877c38180d23c5447d976c70dda89d69">NUM2INT</a></div><div class="ttdeci">#define NUM2INT(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00536">ruby.h:536</a></div></div>
<div class="ttc" id="stubs_8h_html_a4cdab71220d64857b68d8cdbf3893c23"><div class="ttname"><a href="../../df/d55/stubs_8h.html#a4cdab71220d64857b68d8cdbf3893c23">ruby_open_tcl_dll</a></div><div class="ttdeci">int ruby_open_tcl_dll(char *)</div></div>
<div class="ttc" id="tcltklib_8c_html_ae69903c47c15015781b637b9479a7154"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae69903c47c15015781b637b9479a7154">chance</a></div><div class="ttdeci">int chance</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02785">tcltklib.c:2785</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a9da382a32faf00a1e9fa10aa11c5fb1b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a9da382a32faf00a1e9fa10aa11c5fb1b">tcltkip_class</a></div><div class="ttdeci">static VALUE tcltkip_class</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00216">tcltklib.c:216</a></div></div>
<div class="ttc" id="ripper_8c_html_a68fefa607ad528d20b0ae5d69a346d46"><div class="ttname"><a href="../../d5/d11/ripper_8c.html#a68fefa607ad528d20b0ae5d69a346d46">val</a></div><div class="ttdeci">parser parser_yylval val</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d11/ripper_8c_source.html#l14289">ripper.c:14289</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_ad043eb0996705571cad2e5bb39e9675e"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#ad043eb0996705571cad2e5bb39e9675e">Data_Get_Struct</a></div><div class="ttdeci">#define Data_Get_Struct(obj, type, sval)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00835">ruby.h:835</a></div></div>
<div class="ttc" id="group__defmethod_html_gaacfe6a2ec444bdc7f573afb75ea251fe"><div class="ttname"><a href="../../d7/d19/group__defmethod.html#gaacfe6a2ec444bdc7f573afb75ea251fe">rb_define_singleton_method</a></div><div class="ttdeci">void rb_define_singleton_method(VALUE obj, const char *name, VALUE(*func)(ANYARGS), int argc)</div><div class="ttdoc">Defines a singleton method for obj. </div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d0c/class_8c_source.html#l01343">class.c:1343</a></div></div>
<div class="ttc" id="thread_8c_html_a024fc07d1560d6a94da3bcc268c9bbd8"><div class="ttname"><a href="../../d3/de7/thread_8c.html#a024fc07d1560d6a94da3bcc268c9bbd8">rb_thread_check_trap_pending</a></div><div class="ttdeci">int rb_thread_check_trap_pending(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/de7/thread_8c_source.html#l01008">thread.c:1008</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a18f3feef1d89c72c2ea59a0ce2dd8366"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a18f3feef1d89c72c2ea59a0ce2dd8366">NO_THREAD_INTERRUPT_TIME</a></div><div class="ttdeci">#define NO_THREAD_INTERRUPT_TIME</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00518">tcltklib.c:518</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a4e91b9e886dae0d01fd4bafde08e24fd"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a4e91b9e886dae0d01fd4bafde08e24fd">ip_invoke_with_position</a></div><div class="ttdeci">return ip_invoke_with_position(2, argv, self, TCL_QUEUE_TAIL)</div></div>
<div class="ttc" id="tcltklib_8c_html_ad63676505f273f55863e4c39b0940cc3"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad63676505f273f55863e4c39b0940cc3">RUBY_RELEASE_DATE</a></div><div class="ttdeci">#define RUBY_RELEASE_DATE</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00019">tcltklib.c:19</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ac9cc32b5242f9dac9caaaf3fb1f7d2dc"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac9cc32b5242f9dac9caaaf3fb1f7d2dc">TK_WINDOWING_SYSTEM</a></div><div class="ttdeci">#define TK_WINDOWING_SYSTEM</div></div>
<div class="ttc" id="structinvoke__info_html_a15e2c7ffe00581c53e8f493c352b55fd"><div class="ttname"><a href="../../d4/d4a/structinvoke__info.html#a15e2c7ffe00581c53e8f493c352b55fd">invoke_info::cmdinfo</a></div><div class="ttdeci">Tcl_CmdInfo cmdinfo</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08459">tcltklib.c:8459</a></div></div>
<div class="ttc" id="structevloop__params_html_a708cc255e06d9c190c2e05cd8c216495"><div class="ttname"><a href="../../d3/de9/structevloop__params.html#a708cc255e06d9c190c2e05cd8c216495">evloop_params::check_root</a></div><div class="ttdeci">int check_root</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02541">tcltklib.c:2541</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ae456e4606e806112b2f9a78cb9ef96cc"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae456e4606e806112b2f9a78cb9ef96cc">Tcl_AppendResult</a></div><div class="ttdeci">Tcl_AppendResult(interp, RSTRING_PTR(msg),(char *) NULL)</div></div>
<div class="ttc" id="structthread__call__proc__arg_html_a8c9f6e61dae5c5ff9318dc849fbe4ff0"><div class="ttname"><a href="../../d6/dec/structthread__call__proc__arg.html#a8c9f6e61dae5c5ff9318dc849fbe4ff0">thread_call_proc_arg::done</a></div><div class="ttdeci">int * done</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02896">tcltklib.c:2896</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a7e05442307639ca746f2560593ca9ca9"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a7e05442307639ca746f2560593ca9ca9">Tcl_Eval</a></div><div class="ttdeci">#define Tcl_Eval</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00287">tcltklib.c:287</a></div></div>
<div class="ttc" id="tcltklib_8c_html_abfe39758eac9658dbce9750e4bfddbc6"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#abfe39758eac9658dbce9750e4bfddbc6">TAG_RETURN</a></div><div class="ttdeci">#define TAG_RETURN</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00152">tcltklib.c:152</a></div></div>
<div class="ttc" id="stubs_8c_html_a80b5499187083d23168d4b13624321fd"><div class="ttname"><a href="../../d5/d30/stubs_8c.html#a80b5499187083d23168d4b13624321fd">TCLTK_STUBS_OK</a></div><div class="ttdeci">return TCLTK_STUBS_OK</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d30/stubs_8c_source.html#l00458">stubs.c:458</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_ad07df58de9895cbc33c10f02540d2d4d"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#ad07df58de9895cbc33c10f02540d2d4d">CLASS_OF</a></div><div class="ttdeci">#define CLASS_OF(v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00376">ruby.h:376</a></div></div>
<div class="ttc" id="tcltklib_8c_html_abb159f1f4254ecf6df54f13d2b3468c6"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#abb159f1f4254ecf6df54f13d2b3468c6">interp</a></div><div class="ttdeci">static int Tcl_Interp * interp</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00273">tcltklib.c:273</a></div></div>
<div class="ttc" id="structevloop__params_html_ae4dc203be43e5fa9f03ebcc643e40fe4"><div class="ttname"><a href="../../d3/de9/structevloop__params.html#ae4dc203be43e5fa9f03ebcc643e40fe4">evloop_params::update_flag</a></div><div class="ttdeci">int update_flag</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02542">tcltklib.c:2542</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aa90d2934300f61708abfaf993b994f47"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa90d2934300f61708abfaf993b994f47">DEFAULT_EVENTLOOP_DEPTH</a></div><div class="ttdeci">#define DEFAULT_EVENTLOOP_DEPTH</div></div>
<div class="ttc" id="tcltklib_8c_html_a526eaf5b3ad430ed4799b43d3370079a"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a526eaf5b3ad430ed4799b43d3370079a">proc</a></div><div class="ttdeci">VALUE proc</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02948">tcltklib.c:2948</a></div></div>
<div class="ttc" id="encoding_8c_html_ae95abb7558ad4027cb2a2054df8baf75"><div class="ttname"><a href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a></div><div class="ttdeci">static VALUE enc_list(VALUE klass)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/db5/encoding_8c_source.html#l01021">encoding.c:1021</a></div></div>
<div class="ttc" id="structeval__queue_html_aa4e9dc85f66fdcb7c3723741fed73a3b"><div class="ttname"><a href="../../de/d17/structeval__queue.html#aa4e9dc85f66fdcb7c3723741fed73a3b">eval_queue::str</a></div><div class="ttdeci">char * str</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00414">tcltklib.c:414</a></div></div>
<div class="ttc" id="structth__update__param_html"><div class="ttname"><a href="../../dc/d68/structth__update__param.html">th_update_param</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03995">tcltklib.c:3995</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a67fbe68c1b421badd861a1fa7c525058"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a67fbe68c1b421badd861a1fa7c525058">table</a></div><div class="ttdeci">static VALUE VALUE table</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10121">tcltklib.c:10121</a></div></div>
<div class="ttc" id="ossl__ssl_8c_html_a33775ffa49b921f1647bfac2850c6298"><div class="ttname"><a href="../../dc/dd1/ossl__ssl_8c.html#a33775ffa49b921f1647bfac2850c6298">func</a></div><div class="ttdeci">SSL_METHOD *(* func)(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../dc/dd1/ossl__ssl_8c_source.html#l00104">ossl_ssl.c:104</a></div></div>
<div class="ttc" id="cparse_8c_html_af1afba1194a12547a1e65d92abf03b03"><div class="ttname"><a href="../../dc/d0c/cparse_8c.html#af1afba1194a12547a1e65d92abf03b03">LONG2NUM</a></div><div class="ttdeci">#define LONG2NUM(i)</div><div class="ttdef"><b>Definition:</b> <a href="../../dc/d0c/cparse_8c_source.html#l00072">cparse.c:72</a></div></div>
<div class="ttc" id="tkutil_8c_html_a641bbc8f06f4815eacb494e5625b5454"><div class="ttname"><a href="../../d9/dee/tkutil_8c.html#a641bbc8f06f4815eacb494e5625b5454">rb_hash_aset</a></div><div class="ttdeci">rb_hash_aset(CALLBACK_TABLE, id_num, cmd)</div></div>
<div class="ttc" id="tcltklib_8c_html_a7c5cc2da826665da5df5c33182df8746"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a7c5cc2da826665da5df5c33182df8746">rbtk_EventCheckProc</a></div><div class="ttdeci">void rbtk_EventCheckProc(ClientData clientData, int flag)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01992">tcltklib.c:1992</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ad4a7966ca861420d8f4e415f75b14329"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad4a7966ca861420d8f4e415f75b14329">call_queue_mark</a></div><div class="ttdeci">void call_queue_mark(struct call_queue *q)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00452">tcltklib.c:452</a></div></div>
<div class="ttc" id="transcode_8c_html_a87f3c41a3f6c759a2a71313985efa202"><div class="ttname"><a href="../../d3/d26/transcode_8c.html#a87f3c41a3f6c759a2a71313985efa202">enc_arg</a></div><div class="ttdeci">static int enc_arg(volatile VALUE *arg, const char **name_p, rb_encoding **enc_p)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d26/transcode_8c_source.html#l02623">transcode.c:2623</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a26b613563cc1cda407979946acfc5133"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a26b613563cc1cda407979946acfc5133">Tcl_DoWhenIdle</a></div><div class="ttdeci">Tcl_DoWhenIdle(rb_threadUpdateProc,(ClientData) param)</div></div>
<div class="ttc" id="tcltklib_8c_html_aa55d88aa7e8b07ea9dae9580200b7cfb"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa55d88aa7e8b07ea9dae9580200b7cfb">Tcl_ResetResult</a></div><div class="ttdeci">Tcl_ResetResult(interp)</div></div>
<div class="ttc" id="tcltklib_8c_html_a0519a447ec4809b051ea38b41c4012a6"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a0519a447ec4809b051ea38b41c4012a6">info</a></div><div class="ttdeci">Tcl_CmdInfo * info</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01454">tcltklib.c:1454</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a4fe3b9865c6159c57a216b08327c02e3"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a4fe3b9865c6159c57a216b08327c02e3">target</a></div><div class="ttdeci">VALUE target</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05521">tcltklib.c:5521</a></div></div>
<div class="ttc" id="structtcltkip_html_a806a9dbb2520a6a3fc1eb1d860537c63"><div class="ttname"><a href="../../db/d19/structtcltkip.html#a806a9dbb2520a6a3fc1eb1d860537c63">tcltkip::has_orig_exit</a></div><div class="ttdeci">int has_orig_exit</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00758">tcltklib.c:758</a></div></div>
<div class="ttc" id="stubs_8h_html_af2b283a1e13865526422ef60bf997020"><div class="ttname"><a href="../../df/d55/stubs_8h.html#af2b283a1e13865526422ef60bf997020">FAIL_CreateInterp</a></div><div class="ttdeci">#define FAIL_CreateInterp</div><div class="ttdef"><b>Definition:</b> <a href="../../df/d55/stubs_8h_source.html#l00027">stubs.h:27</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ae82a3a846a0b5163005aae7115d59b64"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae82a3a846a0b5163005aae7115d59b64">window</a></div><div class="ttdeci">Tk_Window window</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04464">tcltklib.c:4464</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a33e4955c9ebb7dce318b6559e5645852"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a33e4955c9ebb7dce318b6559e5645852">thr_crit_bup</a></div><div class="ttdeci">static int int thr_crit_bup</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01409">tcltklib.c:1409</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a339672ff94e6199019102f50d317c3d7"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a339672ff94e6199019102f50d317c3d7">ret</a></div><div class="ttdeci">int ret</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00276">tcltklib.c:276</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a20b2625ccd76a263e035cdcda2cc7553"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a></div><div class="ttdeci">static Tcl_TimerToken timer_token</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01597">tcltklib.c:1597</a></div></div>
<div class="ttc" id="structtimeval_html_a3599199839a89e99a2ce29d45312b5cf"><div class="ttname"><a href="../../d1/d1b/structtimeval.html#a3599199839a89e99a2ce29d45312b5cf">timeval::tv_sec</a></div><div class="ttdeci">long tv_sec</div><div class="ttdef"><b>Definition:</b> <a href="../../dd/dbc/ossl__asn1_8c_source.html#l00017">ossl_asn1.c:17</a></div></div>
<div class="ttc" id="structth__vwait__param_html_a4e5d262db20649f09e20b3b69525cff3"><div class="ttname"><a href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">th_vwait_param::done</a></div><div class="ttdeci">int done</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04834">tcltklib.c:4834</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a03e6ba5aead794bca96e745156f92a66"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a03e6ba5aead794bca96e745156f92a66">safemode</a></div><div class="ttdeci">VALUE safemode</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06391">tcltklib.c:6391</a></div></div>
<div class="ttc" id="encoding_8c_html_ad4918664be7424ab9f961165eecb6c18"><div class="ttname"><a href="../../d5/db5/encoding_8c.html#ad4918664be7424ab9f961165eecb6c18">rb_enc_from_encoding</a></div><div class="ttdeci">VALUE rb_enc_from_encoding(rb_encoding *encoding)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/db5/encoding_8c_source.html#l00102">encoding.c:102</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a9611b3a00430a86619b5923de30f9fdb"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a9611b3a00430a86619b5923de30f9fdb">status</a></div><div class="ttdeci">int status</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02186">tcltklib.c:2186</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a9e67df28d1db2fd86f0db8c34dc73275"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a9e67df28d1db2fd86f0db8c34dc73275">ID_encoding_name</a></div><div class="ttdeci">static ID ID_encoding_name</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00221">tcltklib.c:221</a></div></div>
<div class="ttc" id="structinvoke__queue_html_a3ee770c57941395252ce8a0673d40914"><div class="ttname"><a href="../../df/d4d/structinvoke__queue.html#a3ee770c57941395252ce8a0673d40914">invoke_queue::result</a></div><div class="ttdeci">VALUE result</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00408">tcltklib.c:408</a></div></div>
<div class="ttc" id="intern_8h_html_a0ada2cbd6df1fd2e1b65f182f372596a"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a0ada2cbd6df1fd2e1b65f182f372596a">rb_trap_exec</a></div><div class="ttdeci">void rb_trap_exec(void)</div></div>
<div class="ttc" id="tcltklib_8c_html_a12d96b7075039e8d0f52314dad41fb8b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a12d96b7075039e8d0f52314dad41fb8b">thread</a></div><div class="ttdeci">param thread</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04122">tcltklib.c:4122</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aa1ad84a4ec63be68e955459efa2e4302"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa1ad84a4ec63be68e955459efa2e4302">Tcl_DeleteEventSource</a></div><div class="ttdeci">Tcl_DeleteEventSource(rbtk_EventSetupProc, rbtk_EventCheckProc,(ClientData) args)</div></div>
<div class="ttc" id="ruby_2ruby_8h_html_aa6a1040cbacdc1c2a409fb3f002071bc"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#aa6a1040cbacdc1c2a409fb3f002071bc">VALUE</a></div><div class="ttdeci">unsigned long VALUE</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00088">ruby.h:88</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a165471617b506b877952d1529e656c03"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a165471617b506b877952d1529e656c03">exc</a></div><div class="ttdeci">VALUE exc</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03085">tcltklib.c:3085</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a3390998b1bd6df467b1f77ac2774f3a3"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a3390998b1bd6df467b1f77ac2774f3a3">enc</a></div><div class="ttdeci">VALUE enc</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10402">tcltklib.c:10402</a></div></div>
<div class="ttc" id="array_8c_html_a59d553a8cd781364b8bcb0deae25cca2"><div class="ttname"><a href="../../dc/dcc/array_8c.html#a59d553a8cd781364b8bcb0deae25cca2">rb_ary_push</a></div><div class="ttdeci">VALUE rb_ary_push(VALUE ary, VALUE item)</div><div class="ttdef"><b>Definition:</b> <a href="../../dc/dcc/array_8c_source.html#l00740">array.c:740</a></div></div>
<div class="ttc" id="file_8c_html_ae9f03997c2e7a3461524e83053a24ac2"><div class="ttname"><a href="../../d6/d13/file_8c.html#ae9f03997c2e7a3461524e83053a24ac2">rb_cFile</a></div><div class="ttdeci">VALUE rb_cFile</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/d13/file_8c_source.html#l00131">file.c:131</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ad0c39c601f4084e6d3ee83dcba61358d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad0c39c601f4084e6d3ee83dcba61358d">RUBY_VERSION</a></div><div class="ttdeci">#define RUBY_VERSION</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00016">tcltklib.c:16</a></div></div>
<div class="ttc" id="zlib_8c_html_a56e97a891edabd14d071def7e678ad7e"><div class="ttname"><a href="../../db/d74/zlib_8c.html#a56e97a891edabd14d071def7e678ad7e">path</a></div><div class="ttdeci">gz path</div><div class="ttdef"><b>Definition:</b> <a href="../../db/d74/zlib_8c_source.html#l02040">zlib.c:2040</a></div></div>
<div class="ttc" id="intern_8h_html_ac86131edba4a5a668958ce58b661d7ee"><div class="ttname"><a href="../../db/d2e/intern_8h.html#ac86131edba4a5a668958ce58b661d7ee">rb_thread_alone</a></div><div class="ttdeci">int rb_thread_alone(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/de7/thread_8c_source.html#l02183">thread.c:2183</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a11013c53b64754fe062f319736a45012"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a11013c53b64754fe062f319736a45012">eval_queue_mark</a></div><div class="ttdeci">void eval_queue_mark(struct eval_queue *q)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00444">tcltklib.c:444</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ad418bc99fb4a66afefe45ae235c77a3d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad418bc99fb4a66afefe45ae235c77a3d">Tcl_DeleteTimerHandler</a></div><div class="ttdeci">Tcl_DeleteTimerHandler(timer_token)</div></div>
<div class="ttc" id="ruby_2ruby_8h_html_aca9f83a35416ed9d6e0b860afa5eaf0f"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#aca9f83a35416ed9d6e0b860afa5eaf0f">INT2NUM</a></div><div class="ttdeci">static VALUE INT2NUM(int v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00981">ruby.h:981</a></div></div>
<div class="ttc" id="structtcltkip_html_aa8b6837b35e5e71b69e3aaaf7c159272"><div class="ttname"><a href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">tcltkip::ip</a></div><div class="ttdeci">Tcl_Interp * ip</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00751">tcltklib.c:751</a></div></div>
<div class="ttc" id="tcltklib_8c_html_add9a7c9b57ebc6b1e1a25640d8e17e29"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#add9a7c9b57ebc6b1e1a25640d8e17e29">TKWAIT_MODE_DESTROY</a></div><div class="ttdeci">#define TKWAIT_MODE_DESTROY</div></div>
<div class="ttc" id="tcltklib_8c_html_a3165c7b86c85463f7d64defedf6b0d43"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a3165c7b86c85463f7d64defedf6b0d43">safe</a></div><div class="ttdeci">int safe</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06393">tcltklib.c:6393</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a97e05b3289f092241c95cf9e338a82b7"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a97e05b3289f092241c95cf9e338a82b7">check_rootwidget</a></div><div class="ttdeci">static VALUE VALUE check_rootwidget</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02771">tcltklib.c:2771</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ab120af30b98a101b13e07722999f6e60"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ab120af30b98a101b13e07722999f6e60">ID_value</a></div><div class="ttdeci">static ID ID_value</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00228">tcltklib.c:228</a></div></div>
<div class="ttc" id="structinvoke__info_html_a89830f7e2e97e7ad0c18c0541fbef975"><div class="ttname"><a href="../../d4/d4a/structinvoke__info.html#a89830f7e2e97e7ad0c18c0541fbef975">invoke_info::argv</a></div><div class="ttdeci">char ** argv</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08465">tcltklib.c:8465</a></div></div>
<div class="ttc" id="structeval__queue_html_a4d3b821dfc369ee9d6ffcc250feda3c1"><div class="ttname"><a href="../../de/d17/structeval__queue.html#a4d3b821dfc369ee9d6ffcc250feda3c1">eval_queue::len</a></div><div class="ttdeci">int len</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00415">tcltklib.c:415</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ad735822f5b119c0d298a339ee2130700"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad735822f5b119c0d298a339ee2130700">var</a></div><div class="ttdeci">VALUE var</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05506">tcltklib.c:5506</a></div></div>
<div class="ttc" id="eval_8c_html_a6aa7fb1169ed41978a16375b6f921b0e"><div class="ttname"><a href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a></div><div class="ttdeci">VALUE rb_protect(VALUE(*proc)(VALUE), VALUE data, int *state)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d57/eval_8c_source.html#l00704">eval.c:704</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a8e74ef7f91c6d22578c44d4f480ab8e5"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a8e74ef7f91c6d22578c44d4f480ab8e5">callargv</a></div><div class="ttdeci">VALUE callargv[2]</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06503">tcltklib.c:6503</a></div></div>
<div class="ttc" id="structcall__queue_html_a45df10c3b9ffd2cf0572157be3bcbec4"><div class="ttname"><a href="../../df/db5/structcall__queue.html#a45df10c3b9ffd2cf0572157be3bcbec4">call_queue::ev</a></div><div class="ttdeci">Tcl_Event ev</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00424">tcltklib.c:424</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a13f7bcd60416d6e0e0c73cd4a2567686"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a13f7bcd60416d6e0e0c73cd4a2567686">is_ip</a></div><div class="ttdeci">int is_ip</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03011">tcltklib.c:3011</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aef7b441199ecadd2370601a651af7c31"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a></div><div class="ttdeci">static int rbtk_eventloop_depth</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01371">tcltklib.c:1371</a></div></div>
<div class="ttc" id="tcltklib_8c_html_adfd3f17b0bb2b91f76207aa2ace15222"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#adfd3f17b0bb2b91f76207aa2ace15222">Tcl_Release</a></div><div class="ttdeci">Tcl_Release(interp)</div></div>
<div class="ttc" id="ruby_2ruby_8h_html_ad5a1e03b0a66824f95f6aaf07b4a4052"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#ad5a1e03b0a66824f95f6aaf07b4a4052">Check_Type</a></div><div class="ttdeci">#define Check_Type(v, t)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00459">ruby.h:459</a></div></div>
<div class="ttc" id="error_8c_html_a0f771a2840561f1838169b3d7d4616f3"><div class="ttname"><a href="../../db/dcc/error_8c.html#a0f771a2840561f1838169b3d7d4616f3">rb_raise</a></div><div class="ttdeci">void rb_raise(VALUE exc, const char *fmt,...)</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l01574">error.c:1574</a></div></div>
<div class="ttc" id="intern_8h_html_a35a10b958666c1b330238eea7b7f3a8a"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a35a10b958666c1b330238eea7b7f3a8a">rb_ivar_get</a></div><div class="ttdeci">VALUE rb_ivar_get(VALUE, ID)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d2a/variable_8c_source.html#l01026">variable.c:1026</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a8d40c6f08b50616d257b49e9ff6d2bb3"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a8d40c6f08b50616d257b49e9ff6d2bb3">flag_val</a></div><div class="ttdeci">static VALUE VALUE flag_val</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02034">tcltklib.c:2034</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ae46a61f61c6c37c1987f6dbe1583d185"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae46a61f61c6c37c1987f6dbe1583d185">Qtrue</a></div><div class="ttdeci">return Qtrue</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09597">tcltklib.c:9597</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a1761dc74a573f68422040d436688e567"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a1761dc74a573f68422040d436688e567">eval_str</a></div><div class="ttdeci">char * eval_str</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07593">tcltklib.c:7593</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ac6e8b5d1db801956f70eed66d0b4bf76"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac6e8b5d1db801956f70eed66d0b4bf76">matherr</a></div><div class="ttdeci">int matherr()</div></div>
<div class="ttc" id="missing_8h_html"><div class="ttname"><a href="../../d3/d90/missing_8h.html">missing.h</a></div></div>
<div class="ttc" id="intern_8h_html_a6c99ed7f070458b961026d43d27d0642"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a6c99ed7f070458b961026d43d27d0642">rb_define_alloc_func</a></div><div class="ttdeci">void rb_define_alloc_func(VALUE, rb_alloc_func_t)</div></div>
<div class="ttc" id="intern_8h_html_a6e65fc310dd65ebd60d68ada991da6f6"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a></div><div class="ttdeci">VALUE rb_obj_is_kind_of(VALUE, VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/de1/object_8c_source.html#l00525">object.c:525</a></div></div>
<div class="ttc" id="intern_8h_html_afaaee0b4c292ab56ca8acee9fad1242b"><div class="ttname"><a href="../../db/d2e/intern_8h.html#afaaee0b4c292ab56ca8acee9fad1242b">rb_const_defined</a></div><div class="ttdeci">int rb_const_defined(VALUE, ID)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d2a/variable_8c_source.html#l01847">variable.c:1847</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a2b772bde34cb865f671cba699f405675"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a2b772bde34cb865f671cba699f405675">index</a></div><div class="ttdeci">int index</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04467">tcltklib.c:4467</a></div></div>
<div class="ttc" id="intern_8h_html_a627faecb7ebe3cb60ff1df13f02701e0"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a627faecb7ebe3cb60ff1df13f02701e0">rb_tainted_str_new2</a></div><div class="ttdeci">VALUE rb_tainted_str_new2(const char *)</div></div>
<div class="ttc" id="array_8c_html_a8317ecd6a0abb5ad08c50c732f30059b"><div class="ttname"><a href="../../dc/dcc/array_8c.html#a8317ecd6a0abb5ad08c50c732f30059b">rb_ary_new3</a></div><div class="ttdeci">VALUE rb_ary_new3(long n,...)</div><div class="ttdef"><b>Definition:</b> <a href="../../dc/dcc/array_8c_source.html#l00347">array.c:347</a></div></div>
<div class="ttc" id="structevloop__params_html"><div class="ttname"><a href="../../d3/de9/structevloop__params.html">evloop_params</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02540">tcltklib.c:2540</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a7b427778f1e496ccefedf89b5667e319"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a7b427778f1e496ccefedf89b5667e319">ip_finalize</a></div><div class="ttdeci">ip_finalize(ip)</div></div>
<div class="ttc" id="stubs_8h_html_aaf429ac3fbd9191085b66c22c63e869e"><div class="ttname"><a href="../../df/d55/stubs_8h.html#aaf429ac3fbd9191085b66c22c63e869e">NO_Tk_Init</a></div><div class="ttdeci">#define NO_Tk_Init</div><div class="ttdef"><b>Definition:</b> <a href="../../df/d55/stubs_8h_source.html#l00031">stubs.h:31</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a5e8923890cba9d34ce5f7ec7a64ce29a"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a5e8923890cba9d34ce5f7ec7a64ce29a">receiver</a></div><div class="ttdeci">receiver</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03565">tcltklib.c:3565</a></div></div>
<div class="ttc" id="error_8c_html_ae53f1d228c34c2a7715d7d39ab1a2991"><div class="ttname"><a href="../../db/dcc/error_8c.html#ae53f1d228c34c2a7715d7d39ab1a2991">rb_eSecurityError</a></div><div class="ttdeci">VALUE rb_eSecurityError</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00476">error.c:476</a></div></div>
<div class="ttc" id="encoding_8c_html_a75bf3cec8d8f89555c989b8c6629e234"><div class="ttname"><a href="../../d5/db5/encoding_8c.html#a75bf3cec8d8f89555c989b8c6629e234">rb_locale_charmap</a></div><div class="ttdeci">VALUE rb_locale_charmap(VALUE klass)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/db5/encoding_8c_source.html#l01436">encoding.c:1436</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a03b95ffac44da77386f3add147e7958c"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a03b95ffac44da77386f3add147e7958c">eLocalJumpError</a></div><div class="ttdeci">static VALUE eLocalJumpError</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00209">tcltklib.c:209</a></div></div>
<div class="ttc" id="tcltklib_8c_html_abb7d289e90986781b8e52fad35ec7870"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#abb7d289e90986781b8e52fad35ec7870">free_invoke_arguments</a></div><div class="ttdeci">free_invoke_arguments(argc, av)</div></div>
<div class="ttc" id="tcltklib_8c_html_a50e25a8a20b9967ff1e445f51199366f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a50e25a8a20b9967ff1e445f51199366f">enc_name</a></div><div class="ttdeci">VALUE enc_name</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08432">tcltklib.c:8432</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_abbd332f6f94d77e0a369c7720128639e"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#abbd332f6f94d77e0a369c7720128639e">T_ARRAY</a></div><div class="ttdeci">#define T_ARRAY</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00420">ruby.h:420</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a40bc5d98d107b04ba07d2d0553b8cd11"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a40bc5d98d107b04ba07d2d0553b8cd11">old_gc</a></div><div class="ttdeci">VALUE old_gc</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03597">tcltklib.c:3597</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aaf12d7f0762fc1a9607b435cabce20b9"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aaf12d7f0762fc1a9607b435cabce20b9">ID_alive_p</a></div><div class="ttdeci">static ID ID_alive_p</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00225">tcltklib.c:225</a></div></div>
<div class="ttc" id="tcltklib_8c_html_af45a7351177e2bf6f28a0374da224d5d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af45a7351177e2bf6f28a0374da224d5d">set_eventloop_weight</a></div><div class="ttdeci">return set_eventloop_weight(self, loop_max, no_event)</div></div>
<div class="ttc" id="tcltklib_8c_html_a286d909708b226bd9fd5cc4b183a019e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a286d909708b226bd9fd5cc4b183a019e">optionStrings</a></div><div class="ttdeci">static CONST char * optionStrings[]</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04468">tcltklib.c:4468</a></div></div>
<div class="ttc" id="tcltklib_8c_html_abf51f054fb4c60469721d1321d6414f0"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#abf51f054fb4c60469721d1321d6414f0">varname</a></div><div class="ttdeci">volatile VALUE varname</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09298">tcltklib.c:9298</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a69f035845dd291fdc92e7d70abdcb42b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a69f035845dd291fdc92e7d70abdcb42b">timer_tick</a></div><div class="ttdeci">static int timer_tick</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00526">tcltklib.c:526</a></div></div>
<div class="ttc" id="thread_8c_html_a5b8ec82e1846eadcb0e0e97803ff7520"><div class="ttname"><a href="../../d3/de7/thread_8c.html#a5b8ec82e1846eadcb0e0e97803ff7520">rb_thread_alive_p</a></div><div class="ttdeci">static VALUE rb_thread_alive_p(VALUE thread)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/de7/thread_8c_source.html#l01974">thread.c:1974</a></div></div>
<div class="ttc" id="intern_8h_html_a28a7241d8742ac74f2a914c222c8efc9"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a28a7241d8742ac74f2a914c222c8efc9">rb_path2class</a></div><div class="ttdeci">VALUE rb_path2class(const char *)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d2a/variable_8c_source.html#l00293">variable.c:293</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a39f654f51c0bac45062a9c372f2177c0"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a39f654f51c0bac45062a9c372f2177c0">ip_replace_wait_commands</a></div><div class="ttdeci">ip_replace_wait_commands(slave, mainWin)</div></div>
<div class="ttc" id="structcall__queue_html_a91fe68bac1f77162fbe356d3b7812b9a"><div class="ttname"><a href="../../df/db5/structcall__queue.html#a91fe68bac1f77162fbe356d3b7812b9a">call_queue::argc</a></div><div class="ttdeci">int argc</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00426">tcltklib.c:426</a></div></div>
<div class="ttc" id="encoding_8c_html_a893004271cf8c790ca40c4712261aa8c"><div class="ttname"><a href="../../d5/db5/encoding_8c.html#a893004271cf8c790ca40c4712261aa8c">rb_utf8_encoding</a></div><div class="ttdeci">rb_encoding * rb_utf8_encoding(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/db5/encoding_8c_source.html#l01125">encoding.c:1125</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a171a0d27738b86387c3b5d7a5ff075e8"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a171a0d27738b86387c3b5d7a5ff075e8">set_tcltk_version</a></div><div class="ttdeci">static void set_tcltk_version()</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00112">tcltklib.c:112</a></div></div>
<div class="ttc" id="tkutil_8c_html_ab758f7e37948b530e3b9542b69437065"><div class="ttname"><a href="../../d9/dee/tkutil_8c.html#ab758f7e37948b530e3b9542b69437065">tbl</a></div><div class="ttdeci">VALUE tbl</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/dee/tkutil_8c_source.html#l01279">tkutil.c:1279</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a05b5b50936801146696de051996c59bb"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a05b5b50936801146696de051996c59bb">args</a></div><div class="ttdeci">VALUE VALUE args</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02550">tcltklib.c:2550</a></div></div>
<div class="ttc" id="intern_8h_html_a514248a396e8910d80016bc5d3785a81"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a514248a396e8910d80016bc5d3785a81">rb_fix2str</a></div><div class="ttdeci">VALUE rb_fix2str(VALUE, int)</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/d27/numeric_8c_source.html#l02340">numeric.c:2340</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a6d3b7d4da36f7b664c2065f918eb541f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a6d3b7d4da36f7b664c2065f918eb541f">TAG_THROW</a></div><div class="ttdeci">#define TAG_THROW</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00158">tcltklib.c:158</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a87e22195efd375aa75c49c54ace2da24"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a87e22195efd375aa75c49c54ace2da24">menu_path</a></div><div class="ttdeci">VALUE menu_path</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10741">tcltklib.c:10741</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a9cdbcc501f5b1e627030b8efb05f0918"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a9cdbcc501f5b1e627030b8efb05f0918">strval</a></div><div class="ttdeci">volatile VALUE strval</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09352">tcltklib.c:9352</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a032996d6998bbda639fe14f370a70f6d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a032996d6998bbda639fe14f370a70f6d">rb_thread_schedule</a></div><div class="ttdeci">rb_thread_schedule()</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/de7/thread_8c_source.html#l01048">thread.c:1048</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ae9a481084d28da8dd65ea016ce68a4c1"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a></div><div class="ttdeci">#define Tcl_GetStringResult(interp)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00318">tcltklib.c:318</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a0f65f73b5139223ce7affd67506f19ed"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a0f65f73b5139223ce7affd67506f19ed">argv0</a></div><div class="ttdeci">VALUE argv0</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06135">tcltklib.c:6135</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a621bc62b1fd82640c1078daf90e1c061"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a621bc62b1fd82640c1078daf90e1c061">OBJ_TAINTED</a></div><div class="ttdeci">#define OBJ_TAINTED(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00963">ruby.h:963</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aa47c45738d686ad11e7b9c7c1615fcd2"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa47c45738d686ad11e7b9c7c1615fcd2">flag</a></div><div class="ttdeci">flag</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02039">tcltklib.c:2039</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a084521c82d2eb576d63d64bfe6b79642"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a084521c82d2eb576d63d64bfe6b79642">NUM2DBL</a></div><div class="ttdeci">#define NUM2DBL(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00574">ruby.h:574</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a413fc6ff5d6893e9e10d9d59eedff2e1"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a413fc6ff5d6893e9e10d9d59eedff2e1">einfo</a></div><div class="ttdeci">VALUE einfo</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00843">tcltklib.c:843</a></div></div>
<div class="ttc" id="gc_8c_html_a53016811c87ff4c3ea839c9e85a9a9a4"><div class="ttname"><a href="../../d8/d16/gc_8c.html#a53016811c87ff4c3ea839c9e85a9a9a4">rb_gc_force_recycle</a></div><div class="ttdeci">void rb_gc_force_recycle(VALUE p)</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d16/gc_8c_source.html#l02345">gc.c:2345</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a381d684d94e6e91dee650357e8f02fa8"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a381d684d94e6e91dee650357e8f02fa8">fmt</a></div><div class="ttdeci">const char * fmt</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00837">tcltklib.c:837</a></div></div>
<div class="ttc" id="tcltklib_8c_html_af677d35e643bf3e4f082296e5e14bce9"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af677d35e643bf3e4f082296e5e14bce9">TCL_BETA_RELEASE</a></div><div class="ttdeci">#define TCL_BETA_RELEASE</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00100">tcltklib.c:100</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a29dc73e5e2550b8487dd5b2e99c6c435"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a29dc73e5e2550b8487dd5b2e99c6c435">check_var</a></div><div class="ttdeci">int * check_var</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02178">tcltklib.c:2178</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a94573b23a7c5d9c129da54deebf38842"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a94573b23a7c5d9c129da54deebf38842">rb_secure</a></div><div class="ttdeci">rb_secure(4)</div></div>
<div class="ttc" id="tcltklib_8c_html_aa9e75e5d92a11cbe675fcfc57446969c"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa9e75e5d92a11cbe675fcfc57446969c">Tcl_AllowExceptions</a></div><div class="ttdeci">Tcl_AllowExceptions(interp)</div></div>
<div class="ttc" id="tcltklib_8c_html_a21afee436033f916c31b4e302b9d221e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a21afee436033f916c31b4e302b9d221e">name2</a></div><div class="ttdeci">char * name2</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04195">tcltklib.c:4195</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a6a0604a3645e14c4d8c8272cfb51bb05"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a6a0604a3645e14c4d8c8272cfb51bb05">finalize_hook_name</a></div><div class="ttdeci">static const char finalize_hook_name[]</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00177">tcltklib.c:177</a></div></div>
<div class="ttc" id="gc_8c_html_a5196f826932fd0ac9b923d35816e8e1d"><div class="ttname"><a href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a></div><div class="ttdeci">void rb_global_variable(VALUE *var)</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d16/gc_8c_source.html#l00550">gc.c:550</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a59f342822337bf4ec5a8fdcf33662d92"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a59f342822337bf4ec5a8fdcf33662d92">slave_name</a></div><div class="ttdeci">char * slave_name</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05597">tcltklib.c:5597</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a594d7e3a170e739fd5318c39a4382cd2"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a594d7e3a170e739fd5318c39a4382cd2">DEFAULT_NO_EVENT_TICK</a></div><div class="ttdeci">#define DEFAULT_NO_EVENT_TICK</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00514">tcltklib.c:514</a></div></div>
<div class="ttc" id="eval_8c_html_a237939d28c83950b84fb6a45ccca53a0"><div class="ttname"><a href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a></div><div class="ttdeci">void rb_exc_raise(VALUE mesg)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d57/eval_8c_source.html#l00460">eval.c:460</a></div></div>
<div class="ttc" id="structcall__queue_html_a5c7e8c167c5d49678aa368f966191b2e"><div class="ttname"><a href="../../df/db5/structcall__queue.html#a5c7e8c167c5d49678aa368f966191b2e">call_queue::result</a></div><div class="ttdeci">VALUE result</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00431">tcltklib.c:431</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a951c0ac0eb3744c19168be7d33097b11"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a951c0ac0eb3744c19168be7d33097b11">Qnil</a></div><div class="ttdeci">#define Qnil</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00367">ruby.h:367</a></div></div>
<div class="ttc" id="intern_8h_html_a303b384bd946cba1101841237c5c27d0"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a303b384bd946cba1101841237c5c27d0">rb_obj_dup</a></div><div class="ttdeci">VALUE rb_obj_dup(VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/de1/object_8c_source.html#l00315">object.c:315</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ab288f7df2583d5f1d31391ed9cc9ea5d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ab288f7df2583d5f1d31391ed9cc9ea5d">eventloop_thread</a></div><div class="ttdeci">static VALUE eventloop_thread</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00466">tcltklib.c:466</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a3b7081ae18bb9d9cff64fd6421a1dcdb"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a3b7081ae18bb9d9cff64fd6421a1dcdb">tclDummyMathPtr</a></div><div class="ttdeci">int * tclDummyMathPtr</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00391">tcltklib.c:391</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ab68711532f6e644dbf579b26396c97bb"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ab68711532f6e644dbf579b26396c97bb">loop_max</a></div><div class="ttdeci">VALUE loop_max</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01802">tcltklib.c:1802</a></div></div>
<div class="ttc" id="error_8c_html_a83f38068d329a7f4e8e8687b00aa4062"><div class="ttname"><a href="../../db/dcc/error_8c.html#a83f38068d329a7f4e8e8687b00aa4062">rb_eNameError</a></div><div class="ttdeci">VALUE rb_eNameError</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00472">error.c:472</a></div></div>
<div class="ttc" id="tkutil_8c_html_a3d8cc8d6e3bc83d7f835137c76c760b7"><div class="ttname"><a href="../../d9/dee/tkutil_8c.html#a3d8cc8d6e3bc83d7f835137c76c760b7">rb_str_append</a></div><div class="ttdeci">return rb_str_append(rb_str_new2(cmd_id_head), id_num)</div></div>
<div class="ttc" id="tcltklib_8c_html_a92353a0b223e78081b022d5a33870967"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a92353a0b223e78081b022d5a33870967">WATCHDOG_INTERVAL</a></div><div class="ttdeci">#define WATCHDOG_INTERVAL</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00516">tcltklib.c:516</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ae429240449153a3cd44c681a050d8850"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae429240449153a3cd44c681a050d8850">done</a></div><div class="ttdeci">*q done</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02918">tcltklib.c:2918</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ad2269b9fd3158763c15c181fca11b832"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832">RbTk_OBJ_UNTRUST</a></div><div class="ttdeci">#define RbTk_OBJ_UNTRUST(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00042">tcltklib.c:42</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ad8ac3374c4088a9f45080df85e325e8e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad8ac3374c4088a9f45080df85e325e8e">tcltk_version</a></div><div class="ttdeci">static struct @21 tcltk_version</div></div>
<div class="ttc" id="ruby_2ruby_8h_html_ac264a2e60151682299aa24aadaf69d39"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#ac264a2e60151682299aa24aadaf69d39">rb_gv_get</a></div><div class="ttdeci">VALUE rb_gv_get(const char *)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d2a/variable_8c_source.html#l00730">variable.c:730</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ae16d76ee41d8482709d3c4ec33b12651"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae16d76ee41d8482709d3c4ec33b12651">watchdog_thread</a></div><div class="ttdeci">static VALUE watchdog_thread</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00474">tcltklib.c:474</a></div></div>
<div class="ttc" id="structcall__queue_html"><div class="ttname"><a href="../../df/db5/structcall__queue.html">call_queue</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00423">tcltklib.c:423</a></div></div>
<div class="ttc" id="encoding_8c_html_a13a97a6605eca1509135ff473bf346b6"><div class="ttname"><a href="../../d5/db5/encoding_8c.html#a13a97a6605eca1509135ff473bf346b6">rb_to_encoding_index</a></div><div class="ttdeci">int rb_to_encoding_index(VALUE enc)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/db5/encoding_8c_source.html#l00145">encoding.c:145</a></div></div>
<div class="ttc" id="yaml2byte_8c_html_ad0b08ddfcb8010b1d73d9d635d5e0201"><div class="ttname"><a href="../../dd/dfb/yaml2byte_8c.html#ad0b08ddfcb8010b1d73d9d635d5e0201">NULL</a></div><div class="ttdeci">n NULL</div><div class="ttdef"><b>Definition:</b> <a href="../../dd/dfb/yaml2byte_8c_source.html#l00134">yaml2byte.c:134</a></div></div>
<div class="ttc" id="bigdecimal_8c_html_ae676aee4547572d937505cfb336c18d5"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ae676aee4547572d937505cfb336c18d5">memset</a></div><div class="ttdeci">memset(y->frac+ix+1, 0,(y->Prec-(ix+1))*sizeof(BDIGIT))</div></div>
<div class="ttc" id="tcltklib_8c_html_acdb411cfd8a6dcce9a04494c66ea91fb"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#acdb411cfd8a6dcce9a04494c66ea91fb">Data_Wrap_Struct</a></div><div class="ttdeci">return Data_Wrap_Struct(CLASS_OF(interp), 0, ip_free, slave)</div></div>
<div class="ttc" id="yaml2byte_8c_html_a735984d41155bc1032e09bece8f8d66d"><div class="ttname"><a href="../../dd/dfb/yaml2byte_8c.html#a735984d41155bc1032e09bece8f8d66d">data</a></div><div class="ttdeci">void * data</div><div class="ttdef"><b>Definition:</b> <a href="../../dd/dfb/yaml2byte_8c_source.html#l00131">yaml2byte.c:131</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a36aff997f6e550b516224b18bfe5bd25"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a36aff997f6e550b516224b18bfe5bd25">have_rb_thread_waiting_for_value</a></div><div class="ttdeci">static int have_rb_thread_waiting_for_value</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00495">tcltklib.c:495</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a6d2c3b5c0b115bca08c809f3bf43bc4f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a6d2c3b5c0b115bca08c809f3bf43bc4f">check_root</a></div><div class="ttdeci">static int int check_root</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02176">tcltklib.c:2176</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a811810f63d0525608ee61a7d12c52c8e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a811810f63d0525608ee61a7d12c52c8e">Qfalse</a></div><div class="ttdeci">return Qfalse</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06768">tcltklib.c:6768</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aa72df76f125b9271bd55ce079c1b685b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa72df76f125b9271bd55ce079c1b685b">slave_list</a></div><div class="ttdeci">char * slave_list</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05596">tcltklib.c:5596</a></div></div>
<div class="ttc" id="tcltklib_8c_html_afa4849e99c24c7c4d2b93ded5fc6222a"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#afa4849e99c24c7c4d2b93ded5fc6222a">Tcl_CreateCommand</a></div><div class="ttdeci">Tcl_CreateCommand(interp,"vwait", ip_rbVwaitCommand,(ClientData) NULL,(Tcl_CmdDeleteProc *) NULL)</div></div>
<div class="ttc" id="structevloop__params_html_a44b43898f08f3a4f4005db107aebb978"><div class="ttname"><a href="../../d3/de9/structevloop__params.html#a44b43898f08f3a4f4005db107aebb978">evloop_params::thr_crit_bup</a></div><div class="ttdeci">int thr_crit_bup</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02545">tcltklib.c:2545</a></div></div>
<div class="ttc" id="structinvoke__queue_html_a1e0eb15cc652633f1883bf1328502f59"><div class="ttname"><a href="../../df/d4d/structinvoke__queue.html#a1e0eb15cc652633f1883bf1328502f59">invoke_queue::safe_level</a></div><div class="ttdeci">int safe_level</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00407">tcltklib.c:407</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a8a3ea241e062a8c0dcd87b7232ca4900"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a8a3ea241e062a8c0dcd87b7232ca4900">rb_thread_wait_for</a></div><div class="ttdeci">rb_thread_wait_for(t)</div></div>
<div class="ttc" id="structth__update__param_html_a1c99d3d9f246be80f225ba4fc915bfb5"><div class="ttname"><a href="../../dc/d68/structth__update__param.html#a1c99d3d9f246be80f225ba4fc915bfb5">th_update_param::thread</a></div><div class="ttdeci">VALUE thread</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03996">tcltklib.c:3996</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a6ad4b459637de1ab73940dff465b63ea"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a6ad4b459637de1ab73940dff465b63ea">RARRAY</a></div><div class="ttdeci">#define RARRAY(obj)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00911">ruby.h:911</a></div></div>
<div class="ttc" id="structcall__queue_html_a8a92b3683558cebdb46d573532c05132"><div class="ttname"><a href="../../df/db5/structcall__queue.html#a8a92b3683558cebdb46d573532c05132">call_queue::done</a></div><div class="ttdeci">int * done</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00429">tcltklib.c:429</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a79041aa2bc7439c11906a86f82a52eb6"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a79041aa2bc7439c11906a86f82a52eb6">ALLOC_N</a></div><div class="ttdeci">#define ALLOC_N(type, n)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01034">ruby.h:1034</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ad0239b110512830960c1df20e4508016"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad0239b110512830960c1df20e4508016">ip_wrap_namespace_command</a></div><div class="ttdeci">ip_wrap_namespace_command(ptr->ip)</div></div>
<div class="ttc" id="tcltklib_8c_html_ab64e6b918a36b9710aafffe51be53d67"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ab64e6b918a36b9710aafffe51be53d67">elem</a></div><div class="ttdeci">volatile VALUE elem</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09700">tcltklib.c:9700</a></div></div>
<div class="ttc" id="structtimeval_html_aa8396731f2914f9ed2a457d3da602b80"><div class="ttname"><a href="../../d1/d1b/structtimeval.html#aa8396731f2914f9ed2a457d3da602b80">timeval::tv_usec</a></div><div class="ttdeci">long tv_usec</div><div class="ttdef"><b>Definition:</b> <a href="../../dd/dbc/ossl__asn1_8c_source.html#l00018">ossl_asn1.c:18</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a57c96ead3ef230b4838e65fe037c346e"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a57c96ead3ef230b4838e65fe037c346e">rb_cObject</a></div><div class="ttdeci">RUBY_EXTERN VALUE rb_cObject</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01246">ruby.h:1246</a></div></div>
<div class="ttc" id="error_8c_html_a95ad3953d535707e2cf2b1d837f5e253"><div class="ttname"><a href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a></div><div class="ttdeci">VALUE rb_eRuntimeError</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00466">error.c:466</a></div></div>
<div class="ttc" id="cparse_8c_html_a73ce5202e6172d3ad0bab7d1e0df9dae"><div class="ttname"><a href="../../dc/d0c/cparse_8c.html#a73ce5202e6172d3ad0bab7d1e0df9dae">SYM2ID</a></div><div class="ttdeci">#define SYM2ID(v)</div><div class="ttdef"><b>Definition:</b> <a href="../../dc/d0c/cparse_8c_source.html#l00066">cparse.c:66</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_aa4f826fc17b461cf70c6dafc9d3d0027"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#aa4f826fc17b461cf70c6dafc9d3d0027">HAVE_NATIVETHREAD</a></div><div class="ttdeci">#define HAVE_NATIVETHREAD</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01399">ruby.h:1399</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a0b034bce069147e233776bc1dcc74c01"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a0b034bce069147e233776bc1dcc74c01">TAG_RAISE</a></div><div class="ttdeci">#define TAG_RAISE</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00157">tcltklib.c:157</a></div></div>
<div class="ttc" id="tcltklib_8c_html_acb5ba97551079e0b072c62c21d784ac5"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#acb5ba97551079e0b072c62c21d784ac5">depth</a></div><div class="ttdeci">int depth</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02187">tcltklib.c:2187</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_ad9496ba24c0bd359887446e315b1bc78"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#ad9496ba24c0bd359887446e315b1bc78">rb_eval_string_protect</a></div><div class="ttdeci">VALUE rb_eval_string_protect(const char *, int *)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d80/vm__eval_8c_source.html#l01166">vm_eval.c:1166</a></div></div>
<div class="ttc" id="tcltklib_8c_html_afbd7368a9ef5c95322788a1d7db4800e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#afbd7368a9ef5c95322788a1d7db4800e">update_flag</a></div><div class="ttdeci">int update_flag</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02177">tcltklib.c:2177</a></div></div>
<div class="ttc" id="structinvoke__queue_html_a2edeceb4f3e91cbae69b763b99c2c225"><div class="ttname"><a href="../../df/d4d/structinvoke__queue.html#a2edeceb4f3e91cbae69b763b99c2c225">invoke_queue::ev</a></div><div class="ttdeci">Tcl_Event ev</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00398">tcltklib.c:398</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a3a7d10c48d5dff0a5d4aa94acb74811a"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a3a7d10c48d5dff0a5d4aa94acb74811a">T_NIL</a></div><div class="ttdeci">#define T_NIL</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00412">ruby.h:412</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a02eacfd40be9042ceb0f07547365203da73e34c56e478639434b8927497d73d97"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203da73e34c56e478639434b8927497d73d97">TKWAIT_WINDOW</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04470">tcltklib.c:4470</a></div></div>
<div class="ttc" id="structinvoke__queue_html"><div class="ttname"><a href="../../df/d4d/structinvoke__queue.html">invoke_queue</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00397">tcltklib.c:397</a></div></div>
<div class="ttc" id="tcltklib_8c_html_acd9b7d2fc02d7fffaf171ee9e5092069"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#acd9b7d2fc02d7fffaf171ee9e5092069">ckfree</a></div><div class="ttdeci">ckfree((char *) param)</div></div>
<div class="ttc" id="intern_8h_html_acae5350f5d539c4654e4e33690256a9f"><div class="ttname"><a href="../../db/d2e/intern_8h.html#acae5350f5d539c4654e4e33690256a9f">rb_obj_as_string</a></div><div class="ttdeci">VALUE rb_obj_as_string(VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d1/db0/string_8c_source.html#l00854">string.c:854</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a7fc7e09f45d0ef129ea29f3a5b0c32b8"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a7fc7e09f45d0ef129ea29f3a5b0c32b8">T_TRUE</a></div><div class="ttdeci">#define T_TRUE</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00426">ruby.h:426</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ac8bf36fe0577cba66bccda3a6f7e80a4"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac8bf36fe0577cba66bccda3a6f7e80a4">flags</a></div><div class="ttdeci">int flags</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03012">tcltklib.c:3012</a></div></div>
<div class="ttc" id="encoding_8c_html_a7a76bad982a033dc3a83c916df6e4c36"><div class="ttname"><a href="../../d5/db5/encoding_8c.html#a7a76bad982a033dc3a83c916df6e4c36">rb_enc_default_external</a></div><div class="ttdeci">VALUE rb_enc_default_external(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/db5/encoding_8c_source.html#l01259">encoding.c:1259</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a36af1f79dd6adf0809c21e76535034d5"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a36af1f79dd6adf0809c21e76535034d5">va_end</a></div><div class="ttdeci">va_end(args)</div></div>
<div class="ttc" id="intern_8h_html_ac41dd89ae3df1fc1d9968c8239659ce3"><div class="ttname"><a href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a></div><div class="ttdeci">VALUE rb_thread_current(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/de7/thread_8c_source.html#l01742">thread.c:1742</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a227a517fd99055262c5f5353e34a2973"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a227a517fd99055262c5f5353e34a2973">wait</a></div><div class="ttdeci">VALUE wait</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01750">tcltklib.c:1750</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a4832bad8845a35fc50f7a160901854a1"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a></div><div class="ttdeci">#define NIL_P(v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00374">ruby.h:374</a></div></div>
<div class="ttc" id="group__class_html_ga15d068dbe88a3bab3700b03bebb7fbac"><div class="ttname"><a href="../../de/ddf/group__class.html#ga15d068dbe88a3bab3700b03bebb7fbac">rb_define_class</a></div><div class="ttdeci">VALUE rb_define_class(const char *name, VALUE super)</div><div class="ttdoc">Defines a top-level class. </div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d0c/class_8c_source.html#l00469">class.c:469</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aea4012fb11c03c5c1b1fe5399e95342f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aea4012fb11c03c5c1b1fe5399e95342f">obj</a></div><div class="ttdeci">static VALUE VALUE obj</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03147">tcltklib.c:3147</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a5038107e41a7c2252fed25877f53a5e9"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a5038107e41a7c2252fed25877f53a5e9">lib_toUTF8_core</a></div><div class="ttdeci">return lib_toUTF8_core(Qnil, str, encodename)</div></div>
<div class="ttc" id="tcltklib_8c_html_a606d7647537ea0c5a15818642b884f6b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a606d7647537ea0c5a15818642b884f6b">eventloop_stack</a></div><div class="ttdeci">static VALUE eventloop_stack</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00471">tcltklib.c:471</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a5e8ed7e50f3a4edacb655dd8765a2666"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a5e8ed7e50f3a4edacb655dd8765a2666">is_tk_evloop_thread</a></div><div class="ttdeci">int is_tk_evloop_thread</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07100">tcltklib.c:7100</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a18a0d6f8472380e63fd504dff516e492"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a18a0d6f8472380e63fd504dff516e492">prev_val</a></div><div class="ttdeci">int prev_val</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02784">tcltklib.c:2784</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a861b20872f7d24f1c5f2da5261037322"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a861b20872f7d24f1c5f2da5261037322">rb_define_const</a></div><div class="ttdeci">void rb_define_const(VALUE, const char *, VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d2a/variable_8c_source.html#l01923">variable.c:1923</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a432360bae83494182898ff63e4b4511b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a></div><div class="ttdeci">#define Tcl_IncrRefCount(obj)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00312">tcltklib.c:312</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a186dc5b385a5ed2879a4b8e517c2e1cc"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a186dc5b385a5ed2879a4b8e517c2e1cc">current_thread</a></div><div class="ttdeci">volatile VALUE current_thread</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04039">tcltklib.c:4039</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a02d9b54a782bcf6c3d0137cefaa94c87"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a02d9b54a782bcf6c3d0137cefaa94c87">rb_eval_string</a></div><div class="ttdeci">VALUE rb_eval_string(const char *)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d80/vm__eval_8c_source.html#l01160">vm_eval.c:1160</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a5931ac85aa7a5070c6cf3514b353b989"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a5931ac85aa7a5070c6cf3514b353b989">ID_encoding_table</a></div><div class="ttdeci">static ID ID_encoding_table</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00222">tcltklib.c:222</a></div></div>
<div class="ttc" id="structth__update__param_html_ac41d8c11b482906fbb9410cf37ed8181"><div class="ttname"><a href="../../dc/d68/structth__update__param.html#ac41d8c11b482906fbb9410cf37ed8181">th_update_param::done</a></div><div class="ttdeci">int done</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03997">tcltklib.c:3997</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aa23f39899c949c9e59a0ee3096d76fc5"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa23f39899c949c9e59a0ee3096d76fc5">rbtk_preserve_ip</a></div><div class="ttdeci">rbtk_preserve_ip(ptr)</div></div>
<div class="ttc" id="tcltklib_8c_html_a583a71ff958e739ca665037347b72a36"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a583a71ff958e739ca665037347b72a36">current_evloop</a></div><div class="ttdeci">volatile VALUE current_evloop</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02608">tcltklib.c:2608</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a3d072e0c25cf678e9b8601b957b92eae"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a3d072e0c25cf678e9b8601b957b92eae">T_FLOAT</a></div><div class="ttdeci">#define T_FLOAT</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00417">ruby.h:417</a></div></div>
<div class="ttc" id="ripper_8y_html_a7a845cc4b98215f5cf028bd914d245d3"><div class="ttname"><a href="../../d3/d09/ripper_8y.html#a7a845cc4b98215f5cf028bd914d245d3">param</a></div><div class="ttdeci">pure parser lex param</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d09/ripper_8y_source.html#l00617">ripper.y:617</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a2aedc29d81cdc1fbb8212eac69c9e19d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a2aedc29d81cdc1fbb8212eac69c9e19d">no_event_tick</a></div><div class="ttdeci">static int no_event_tick</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00524">tcltklib.c:524</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ac5e978e9d0e7126f9ffa3661ac40ede6"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac5e978e9d0e7126f9ffa3661ac40ede6">lib_restart</a></div><div class="ttdeci">return lib_restart(self)</div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a394faf7191f18552a20cb17ce14226f0"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a></div><div class="ttdeci">#define TYPE(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00441">ruby.h:441</a></div></div>
<div class="ttc" id="tcltklib_8c_html_abed946c62f140eb7ff2ac742e6ad9497"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#abed946c62f140eb7ff2ac742e6ad9497">method</a></div><div class="ttdeci">volatile ID method</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03588">tcltklib.c:3588</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a5bf8c7d566a18c53fc425715e26bb026"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a5bf8c7d566a18c53fc425715e26bb026">ip</a></div><div class="ttdeci">static void Tcl_Interp * ip</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05590">tcltklib.c:5590</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a1874132e952c92de8ac49397d4a67742"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a1874132e952c92de8ac49397d4a67742">window_event_mode</a></div><div class="ttdeci">static int window_event_mode</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00472">tcltklib.c:472</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aaa4f8c9b566fd7fb6873866c423c2016"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aaa4f8c9b566fd7fb6873866c423c2016">rb_sourcefile</a></div><div class="ttdeci">#define rb_sourcefile()</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00093">tcltklib.c:93</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ae396515721607c64ecd0fdaa6691a99f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae396515721607c64ecd0fdaa6691a99f">va_dcl</a></div><div class="ttdeci">va_dcl</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00840">tcltklib.c:840</a></div></div>
<div class="ttc" id="stubs_8h_html_a8736abb7ee38251506e1f2cb9c35cef8"><div class="ttname"><a href="../../df/d55/stubs_8h.html#a8736abb7ee38251506e1f2cb9c35cef8">FAIL_Tk_Init</a></div><div class="ttdeci">#define FAIL_Tk_Init</div><div class="ttdef"><b>Definition:</b> <a href="../../df/d55/stubs_8h_source.html#l00032">stubs.h:32</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a66b2e11a163a07a00b3bb6b55ef82d7f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a66b2e11a163a07a00b3bb6b55ef82d7f">ivq</a></div><div class="ttdeci">VALUE ivq</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08961">tcltklib.c:8961</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a41ac74a27dd1eadc2ca86d10590f2163"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a41ac74a27dd1eadc2ca86d10590f2163">T_BIGNUM</a></div><div class="ttdeci">#define T_BIGNUM</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00423">ruby.h:423</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a04ab67335215e8362c63ed27ae2d1c40"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a04ab67335215e8362c63ed27ae2d1c40">MEMCPY</a></div><div class="ttdeci">#define MEMCPY(p1, p2, type, n)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01053">ruby.h:1053</a></div></div>
<div class="ttc" id="nkf-utf8_2nkf_8c_html_a0192e7721a534129dd2389299c50d5ef"><div class="ttname"><a href="../../d6/da0/nkf-utf8_2nkf_8c.html#a0192e7721a534129dd2389299c50d5ef">buf</a></div><div class="ttdeci">unsigned char buf[MIME_BUF_SIZE]</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/da0/nkf-utf8_2nkf_8c_source.html#l03913">nkf.c:3913</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a7490e601d6a9d97a79d4d895ad73c93a"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a7490e601d6a9d97a79d4d895ad73c93a">TAG_FATAL</a></div><div class="ttdeci">#define TAG_FATAL</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00159">tcltklib.c:159</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a2876182790d4d4deb29d00b4048d7565"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a2876182790d4d4deb29d00b4048d7565">ID_to_s</a></div><div class="ttdeci">static ID ID_to_s</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00239">tcltklib.c:239</a></div></div>
<div class="ttc" id="encoding_8c_html_ad5df62bd02b6d06037baef7ad68bcae3"><div class="ttname"><a href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a></div><div class="ttdeci">VALUE rb_enc_associate_index(VALUE obj, int idx)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/db5/encoding_8c_source.html#l00709">encoding.c:709</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a8c24db62cf234c17291046896d674f50"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a8c24db62cf234c17291046896d674f50">slave</a></div><div class="ttdeci">Tcl_Interp * slave</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05591">tcltklib.c:5591</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ad6092a7044451d4e36f1a65618c9b4fc"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad6092a7044451d4e36f1a65618c9b4fc">ID_message</a></div><div class="ttdeci">static ID ID_message</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00232">tcltklib.c:232</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aafde75f831a09392022c78f436c84404"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aafde75f831a09392022c78f436c84404">rb_thread_critical</a></div><div class="ttdeci">rb_thread_critical</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01593">tcltklib.c:1593</a></div></div>
<div class="ttc" id="structcmd__body__arg_html_a6cc0250b850b77f58f01f05913e3ddab"><div class="ttname"><a href="../../d6/d58/structcmd__body__arg.html#a6cc0250b850b77f58f01f05913e3ddab">cmd_body_arg::receiver</a></div><div class="ttdeci">VALUE receiver</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00547">tcltklib.c:547</a></div></div>
<div class="ttc" id="error_8c_html_a5485df8856b8fa33d9d378afdabc9d29"><div class="ttname"><a href="../../db/dcc/error_8c.html#a5485df8856b8fa33d9d378afdabc9d29">rb_eLoadError</a></div><div class="ttdeci">VALUE rb_eLoadError</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00483">error.c:483</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ab385520468ca277e40b29c3a345e7a64"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ab385520468ca277e40b29c3a345e7a64">rbtk_release_ip</a></div><div class="ttdeci">rbtk_release_ip(ptr)</div></div>
<div class="ttc" id="tcltklib_8c_html_a5f41d856fdd02f7cc90b9f33be456095"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a></div><div class="ttdeci">#define DUMP1(ARG1)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00162">tcltklib.c:162</a></div></div>
<div class="ttc" id="structcall__queue_html_af9fb1a0fdd886cd9585db5f86c4de119"><div class="ttname"><a href="../../df/db5/structcall__queue.html#af9fb1a0fdd886cd9585db5f86c4de119">call_queue::thread</a></div><div class="ttdeci">VALUE thread</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00432">tcltklib.c:432</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a703be39b589a9caa3476755abb5bdfdc"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a703be39b589a9caa3476755abb5bdfdc">patchlevel</a></div><div class="ttdeci">int patchlevel</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00108">tcltklib.c:108</a></div></div>
<div class="ttc" id="encoding_8h_html"><div class="ttname"><a href="../../d5/de3/encoding_8h.html">encoding.h</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_ac8df5a8a8961bd9e16be385fef28c2f2"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#ac8df5a8a8961bd9e16be385fef28c2f2">ALLOC</a></div><div class="ttdeci">#define ALLOC(type)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01035">ruby.h:1035</a></div></div>
<div class="ttc" id="structcmd__body__arg_html_ac9ac9c13c40fba180d11b3cad2303b6f"><div class="ttname"><a href="../../d6/d58/structcmd__body__arg.html#ac9ac9c13c40fba180d11b3cad2303b6f">cmd_body_arg::method</a></div><div class="ttdeci">ID method</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00548">tcltklib.c:548</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a8745cbdfcfe3370fc41ece6a7d524857ae7a147cc04f6e59bac02da4d5bf057d5"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a8745cbdfcfe3370fc41ece6a7d524857ae7a147cc04f6e59bac02da4d5bf057d5">REGEXP_IDLETASKS</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03884">tcltklib.c:3884</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a030724c77d77ddc4860e1ff0ef74e480"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a></div><div class="ttdeci">#define Tcl_DecrRefCount(obj)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00313">tcltklib.c:313</a></div></div>
<div class="ttc" id="intern_8h_html_a0a133856edb99f69eae3cb5a9e275ac9"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a0a133856edb99f69eae3cb5a9e275ac9">rb_str_resize</a></div><div class="ttdeci">VALUE rb_str_resize(VALUE, long)</div><div class="ttdef"><b>Definition:</b> <a href="../../d1/db0/string_8c_source.html#l01779">string.c:1779</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aeaf38a8920ce34eb9aa64dead5cf2cd1"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aeaf38a8920ce34eb9aa64dead5cf2cd1">tcltklib_release_date</a></div><div class="ttdeci">static const char tcltklib_release_date[]</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00174">tcltklib.c:174</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a6fc242c933f1c2fa2de5026636c48af9"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a6fc242c933f1c2fa2de5026636c48af9">list_str</a></div><div class="ttdeci">VALUE list_str</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09699">tcltklib.c:9699</a></div></div>
<div class="ttc" id="intern_8h_html_a17a81c1a7d754e5ab49fc4b4369b6c8c"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a17a81c1a7d754e5ab49fc4b4369b6c8c">rb_const_get</a></div><div class="ttdeci">VALUE rb_const_get(VALUE, ID)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d2a/variable_8c_source.html#l01635">variable.c:1635</a></div></div>
<div class="ttc" id="zlib_8c_html_a96fb68396dd219a7b489e051d4c8dfa5"><div class="ttname"><a href="../../db/d74/zlib_8c.html#a96fb68396dd219a7b489e051d4c8dfa5">level</a></div><div class="ttdeci">gz level</div><div class="ttdef"><b>Definition:</b> <a href="../../db/d74/zlib_8c_source.html#l02025">zlib.c:2025</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ab9ebbdd4596789afb752d19fca153ee5"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ab9ebbdd4596789afb752d19fca153ee5">argv</a></div><div class="ttdeci">VALUE * argv</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01962">tcltklib.c:1962</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aedbcc28fcbb1d229b51954633635b29a"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aedbcc28fcbb1d229b51954633635b29a">tcltklib_compile_info</a></div><div class="ttdeci">static VALUE tcltklib_compile_info()</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10014">tcltklib.c:10014</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a265eab0dd3b7a7e51f7872c3c6d820c6"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a265eab0dd3b7a7e51f7872c3c6d820c6">ID_next</a></div><div class="ttdeci">static ID ID_next</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00237">tcltklib.c:237</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a7aa3ca79548709bc580aa259ad1fd2d2"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a7aa3ca79548709bc580aa259ad1fd2d2">memcpy</a></div><div class="ttdeci">memcpy(buf+1, str, len)</div></div>
<div class="ttc" id="structinvoke__info_html"><div class="ttname"><a href="../../d4/d4a/structinvoke__info.html">invoke_info</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08457">tcltklib.c:8457</a></div></div>
<div class="ttc" id="structeval__queue_html_ada0646ae22281aa3c00d86f8bebd6c9d"><div class="ttname"><a href="../../de/d17/structeval__queue.html#ada0646ae22281aa3c00d86f8bebd6c9d">eval_queue::thread</a></div><div class="ttdeci">VALUE thread</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00420">tcltklib.c:420</a></div></div>
<div class="ttc" id="group__defmethod_html_gafc7122dde38ecff13de3e9d19a30aaeb"><div class="ttname"><a href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a></div><div class="ttdeci">void rb_define_module_function(VALUE module, const char *name, VALUE(*func)(ANYARGS), int argc)</div><div class="ttdoc">Defines a module function for module. </div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d0c/class_8c_source.html#l01358">class.c:1358</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a35bcdaccb0f77bcc8e27d9237e255306"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a35bcdaccb0f77bcc8e27d9237e255306">eventPtr</a></div><div class="ttdeci">XEvent * eventPtr</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04440">tcltklib.c:4440</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a6e29e7662f7cba4f2ded043402f489ee"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a6e29e7662f7cba4f2ded043402f489ee">RSTRING_PTR</a></div><div class="ttdeci">#define RSTRING_PTR(s)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00031">tcltklib.c:31</a></div></div>
<div class="ttc" id="structinvoke__queue_html_ae4660ad198c2f6d21644bb0b4a7748e5"><div class="ttname"><a href="../../df/d4d/structinvoke__queue.html#ae4660ad198c2f6d21644bb0b4a7748e5">invoke_queue::argc</a></div><div class="ttdeci">int argc</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00399">tcltklib.c:399</a></div></div>
<div class="ttc" id="structinvoke__info_html_ad9c9ad4cfec1603d7a2e2bae1117df42"><div class="ttname"><a href="../../d4/d4a/structinvoke__info.html#ad9c9ad4cfec1603d7a2e2bae1117df42">invoke_info::argc</a></div><div class="ttdeci">int argc</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08464">tcltklib.c:8464</a></div></div>
<div class="ttc" id="structtimeval_html"><div class="ttname"><a href="../../d1/d1b/structtimeval.html">timeval</a></div><div class="ttdef"><b>Definition:</b> <a href="../../dd/dbc/ossl__asn1_8c_source.html#l00016">ossl_asn1.c:16</a></div></div>
<div class="ttc" id="tcltklib_8c_html_adbfc6f7934b1232f3d68253d0e93a339"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#adbfc6f7934b1232f3d68253d0e93a339">cmd_len</a></div><div class="ttdeci">int cmd_len</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07311">tcltklib.c:7311</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ae6cf673d09a03d1dfd71928b32d95161"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae6cf673d09a03d1dfd71928b32d95161">result</a></div><div class="ttdeci">q result</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07059">tcltklib.c:7059</a></div></div>
<div class="ttc" id="stubs_8h_html_a6239fdfa9623bc5033a49b3736849093"><div class="ttname"><a href="../../df/d55/stubs_8h.html#a6239fdfa9623bc5033a49b3736849093">ruby_tk_stubs_init</a></div><div class="ttdeci">int ruby_tk_stubs_init(Tcl_Interp *)</div></div>
<div class="ttc" id="tcltklib_8c_html_ab5316b816b8a91e4a8c23563c0a6d19d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ab5316b816b8a91e4a8c23563c0a6d19d">DEFAULT_NO_EVENT_WAIT</a></div><div class="ttdeci">#define DEFAULT_NO_EVENT_WAIT</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00515">tcltklib.c:515</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ab68ab01208620489bd15d4705cac6cb1"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ab68ab01208620489bd15d4705cac6cb1">rbtk_pending_exception</a></div><div class="ttdeci">static VALUE rbtk_pending_exception</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01370">tcltklib.c:1370</a></div></div>
<div class="ttc" id="structeval__queue_html_adc749ca5e6e0e9bdd5e2c787ed3f4b32"><div class="ttname"><a href="../../de/d17/structeval__queue.html#adc749ca5e6e0e9bdd5e2c787ed3f4b32">eval_queue::done</a></div><div class="ttdeci">int * done</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00417">tcltklib.c:417</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aecdd94a9fd50703da3e57eaf5ccb9809"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aecdd94a9fd50703da3e57eaf5ccb9809">value</a></div><div class="ttdeci">volatile VALUE value</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09429">tcltklib.c:9429</a></div></div>
<div class="ttc" id="tcltklib_8c_html_af53fe45cd357105aafbc914c592a5bbd"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af53fe45cd357105aafbc914c592a5bbd">unknown_flag</a></div><div class="ttdeci">int unknown_flag</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08558">tcltklib.c:8558</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a3f75bde77a92ac3c6c63263b6b4cf69e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a3f75bde77a92ac3c6c63263b6b4cf69e">no_event_wait</a></div><div class="ttdeci">static int no_event_wait</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00525">tcltklib.c:525</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a23b23ff7b48081d3760afae29d3be637"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a23b23ff7b48081d3760afae29d3be637">foundEvent</a></div><div class="ttdeci">int foundEvent</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02951">tcltklib.c:2951</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a02378923e45b1c06a28391c078ad49d9"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a02378923e45b1c06a28391c078ad49d9">name1</a></div><div class="ttdeci">char * name1</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04194">tcltklib.c:4194</a></div></div>
<div class="ttc" id="strftime_8c_html_a2c212835823e3c54a8ab6d95c652660e"><div class="ttname"><a href="../../d8/d4e/strftime_8c.html#a2c212835823e3c54a8ab6d95c652660e">const</a></div><div class="ttdeci">#define const</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d4e/strftime_8c_source.html#l00101">strftime.c:101</a></div></div>
<div class="ttc" id="os2_8c_html_a58defbf6fe556592007171f7a347f9d6"><div class="ttname"><a href="../../de/d46/os2_8c.html#a58defbf6fe556592007171f7a347f9d6">s</a></div><div class="ttdeci">register char * s</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d46/os2_8c_source.html#l00056">os2.c:56</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a5aa1731610537e057191db627c19f1ca"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a5aa1731610537e057191db627c19f1ca">check</a></div><div class="ttdeci">int check</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02786">tcltklib.c:2786</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a02eacfd40be9042ceb0f07547365203da849e6bbd0a169700b2ae12d5d5bbd60a"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203da849e6bbd0a169700b2ae12d5d5bbd60a">TKWAIT_VARIABLE</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04470">tcltklib.c:4470</a></div></div>
<div class="ttc" id="structcall__queue_html_a3972740fcad6029560d33a85baf220a3"><div class="ttname"><a href="../../df/db5/structcall__queue.html#a3972740fcad6029560d33a85baf220a3">call_queue::interp</a></div><div class="ttdeci">VALUE interp</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00428">tcltklib.c:428</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a46bfb9a7c64428cdf208d45e06352fce"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a46bfb9a7c64428cdf208d45e06352fce">tk_funcall</a></div><div class="ttdeci">return tk_funcall(ip_create_slave_core, 2, callargv, self)</div></div>
<div class="ttc" id="hash_8c_html_af1da586524a3a1739fd5b91272037815"><div class="ttname"><a href="../../d1/d04/hash_8c.html#af1da586524a3a1739fd5b91272037815">rb_hash_new</a></div><div class="ttdeci">VALUE rb_hash_new(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d1/d04/hash_8c_source.html#l00229">hash.c:229</a></div></div>
<div class="ttc" id="intern_8h_html_a7e5b0d4c40fecb26c1ac946f674a690e"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a7e5b0d4c40fecb26c1ac946f674a690e">rb_iv_set</a></div><div class="ttdeci">VALUE rb_iv_set(VALUE, const char *, VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d2a/variable_8c_source.html#l02228">variable.c:2228</a></div></div>
<div class="ttc" id="bigdecimal_8c_html_ac537498b5ed6e25bced70b90e5949201"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#ac537498b5ed6e25bced70b90e5949201">void</a></div><div class="ttdeci">VP_EXPORT void</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l04944">bigdecimal.c:4944</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a87dd7b0b5f4a611ddf0a5257cba792c7"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a87dd7b0b5f4a611ddf0a5257cba792c7">mode</a></div><div class="ttdeci">VALUE mode</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01655">tcltklib.c:1655</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ad4bf1623cb287511af9fbf644c732527"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad4bf1623cb287511af9fbf644c732527">tick</a></div><div class="ttdeci">VALUE tick</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01671">tcltklib.c:1671</a></div></div>
<div class="ttc" id="util_8h_html_ad832104a69551cf1e4e347fffa9dc77c"><div class="ttname"><a href="../../d8/d3c/util_8h.html#ad832104a69551cf1e4e347fffa9dc77c">strdup</a></div><div class="ttdeci">#define strdup(s)</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d3c/util_8h_source.html#l00069">util.h:69</a></div></div>
<div class="ttc" id="group__defmethod_html_gaa7bed88640f01bee619f85fda09d28d7"><div class="ttname"><a href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a></div><div class="ttdeci">int rb_scan_args(int argc, const VALUE *argv, const char *fmt,...)</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d0c/class_8c_source.html#l01416">class.c:1416</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ae809d5359ac030c60a30a8f0b2294b82"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae809d5359ac030c60a30a8f0b2294b82">length</a></div><div class="ttdeci">size_t length</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04548">tcltklib.c:4548</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a3e1dd08a9fa8402a19debb577f0c5941"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a3e1dd08a9fa8402a19debb577f0c5941">donePtr</a></div><div class="ttdeci">* donePtr</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04201">tcltklib.c:4201</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a5a8aea48ba7305a384fdd8f56ca97d73"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a5a8aea48ba7305a384fdd8f56ca97d73">rbtk_internal_eventloop_handler</a></div><div class="ttdeci">static int rbtk_internal_eventloop_handler</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01372">tcltklib.c:1372</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ae3ed9756fe65ccdbec5dc78d6f3422dc"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae3ed9756fe65ccdbec5dc78d6f3422dc">retval</a></div><div class="ttdeci">VALUE retval</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07817">tcltklib.c:7817</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a7cf390eccb5be6d98eaf4fe03e64e2af"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a7cf390eccb5be6d98eaf4fe03e64e2af">event_flag</a></div><div class="ttdeci">int event_flag</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02183">tcltklib.c:2183</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a5838058d3c822e491130217481317881"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a5838058d3c822e491130217481317881">with_tk</a></div><div class="ttdeci">int with_tk</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06140">tcltklib.c:6140</a></div></div>
<div class="ttc" id="error_8c_html_a8378eac5be044398a53aca753116817b"><div class="ttname"><a href="../../db/dcc/error_8c.html#a8378eac5be044398a53aca753116817b">rb_eInterrupt</a></div><div class="ttdeci">VALUE rb_eInterrupt</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00462">error.c:462</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_afa5b9137f051ac26d7ccc8824f178233"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a></div><div class="ttdeci">unsigned long ID</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00089">ruby.h:89</a></div></div>
<div class="ttc" id="stubs_8h_html_acb8354c92b04be556caf21ec9f30111f"><div class="ttname"><a href="../../df/d55/stubs_8h.html#acb8354c92b04be556caf21ec9f30111f">ruby_tk_stubs_safeinit</a></div><div class="ttdeci">int ruby_tk_stubs_safeinit(Tcl_Interp *)</div></div>
<div class="ttc" id="structeval__queue_html_a625a114231e88948a1556425c213d259"><div class="ttname"><a href="../../de/d17/structeval__queue.html#a625a114231e88948a1556425c213d259">eval_queue::safe_level</a></div><div class="ttdeci">int safe_level</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00418">tcltklib.c:418</a></div></div>
<div class="ttc" id="error_8c_html_ab629d2b031e852bf387e32c836417061"><div class="ttname"><a href="../../db/dcc/error_8c.html#ab629d2b031e852bf387e32c836417061">rb_exc_new2</a></div><div class="ttdeci">VALUE rb_exc_new2(VALUE etype, const char *s)</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00498">error.c:498</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ac765329451135abec74c45e1897abf26"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac765329451135abec74c45e1897abf26">type</a></div><div class="ttdeci">int type</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00107">tcltklib.c:107</a></div></div>
<div class="ttc" id="encoding_8c_html_a873f1c2ba114f13f45b84990a5a595b7"><div class="ttname"><a href="../../d5/db5/encoding_8c.html#a873f1c2ba114f13f45b84990a5a595b7">rb_define_dummy_encoding</a></div><div class="ttdeci">int rb_define_dummy_encoding(const char *name)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/db5/encoding_8c_source.html#l00375">encoding.c:375</a></div></div>
<div class="ttc" id="structtcltkip_html_a15f267a597e541e9816d481777696dc1"><div class="ttname"><a href="../../db/d19/structtcltkip.html#a15f267a597e541e9816d481777696dc1">tcltkip::orig_exit_info</a></div><div class="ttdeci">Tcl_CmdInfo orig_exit_info</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00759">tcltklib.c:759</a></div></div>
<div class="ttc" id="structtcltkip_html_a448db6c03cf35448208ebce2f3eb6727"><div class="ttname"><a href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">tcltkip::return_value</a></div><div class="ttdeci">int return_value</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00762">tcltklib.c:762</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a5122b379c5c4fc9103e147bf69ff08b4"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a5122b379c5c4fc9103e147bf69ff08b4">argc</a></div><div class="ttdeci">int argc</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01961">tcltklib.c:1961</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a5ae51f46018b1ae0a423aca2b89bf7ab"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a5ae51f46018b1ae0a423aca2b89bf7ab">eTkCallbackContinue</a></div><div class="ttdeci">static VALUE eTkCallbackContinue</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00207">tcltklib.c:207</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ae8b4f77514e0422a4f7597d3ba5728ea"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae8b4f77514e0422a4f7597d3ba5728ea">event_loop_abort_on_exc</a></div><div class="ttdeci">static int event_loop_abort_on_exc</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00531">tcltklib.c:531</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a65922fe7d297622ca94d05b10ed7b437"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a65922fe7d297622ca94d05b10ed7b437">rb_trap_immediate</a></div><div class="ttdeci">rb_trap_immediate</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03374">tcltklib.c:3374</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a1836b9bb7e8d6062ac5b468f3163b9d2"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a1836b9bb7e8d6062ac5b468f3163b9d2">mainWin</a></div><div class="ttdeci">Tk_Window mainWin</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05876">tcltklib.c:5876</a></div></div>
<div class="ttc" id="structeval__queue_html_a597f4df83c9d25f275e0e83fda96b47a"><div class="ttname"><a href="../../de/d17/structeval__queue.html#a597f4df83c9d25f275e0e83fda96b47a">eval_queue::interp</a></div><div class="ttdeci">VALUE interp</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00416">tcltklib.c:416</a></div></div>
<div class="ttc" id="stubs_8h_html_a2bfee19ebfc13a427b688890d5961237"><div class="ttname"><a href="../../df/d55/stubs_8h.html#a2bfee19ebfc13a427b688890d5961237">NO_TCL_DLL</a></div><div class="ttdeci">#define NO_TCL_DLL</div><div class="ttdef"><b>Definition:</b> <a href="../../df/d55/stubs_8h_source.html#l00018">stubs.h:18</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a9444c431b3cb1184e7523fc572f2c758"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a></div><div class="ttdeci">#define FIX2INT(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00538">ruby.h:538</a></div></div>
<div class="ttc" id="structeval__queue_html_a059ee495f45f2904277a72b0fff6a322"><div class="ttname"><a href="../../de/d17/structeval__queue.html#a059ee495f45f2904277a72b0fff6a322">eval_queue::ev</a></div><div class="ttdeci">Tcl_Event ev</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00413">tcltklib.c:413</a></div></div>
<div class="ttc" id="encoding_8c_html_aca4947a16b0f9c7ae2db67a72e52b6ca"><div class="ttname"><a href="../../d5/db5/encoding_8c.html#aca4947a16b0f9c7ae2db67a72e52b6ca">rb_obj_encoding</a></div><div class="ttdeci">VALUE rb_obj_encoding(VALUE obj)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/db5/encoding_8c_source.html#l00831">encoding.c:831</a></div></div>
<div class="ttc" id="name2ctype_8h_html_aed1cc4dca5d94cb452f79691f54f7423"><div class="ttname"><a href="../../d3/d15/name2ctype_8h.html#aed1cc4dca5d94cb452f79691f54f7423">len</a></div><div class="ttdeci">register unsigned int len</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d15/name2ctype_8h_source.html#l22210">name2ctype.h:22210</a></div></div>
<div class="ttc" id="gc_8c_html_a27a2dbb7307d5ea8e096ce4357f6ece6"><div class="ttname"><a href="../../d8/d16/gc_8c.html#a27a2dbb7307d5ea8e096ce4357f6ece6">rb_gc_disable</a></div><div class="ttdeci">VALUE rb_gc_disable(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d16/gc_8c_source.html#l00959">gc.c:959</a></div></div>
<div class="ttc" id="defines_8h_html_a2c3897f7c46ca54a2e0dd7b24a40c7cb"><div class="ttname"><a href="../../d8/db0/defines_8h.html#a2c3897f7c46ca54a2e0dd7b24a40c7cb">xfree</a></div><div class="ttdeci">#define xfree</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/db0/defines_8h_source.html#l00069">defines.h:69</a></div></div>
<div class="ttc" id="generator_8h_html_abb794fe2d7c73eea87e7ba2273939a8e"><div class="ttname"><a href="../../d8/df4/generator_8h.html#abb794fe2d7c73eea87e7ba2273939a8e">RARRAY_PTR</a></div><div class="ttdeci">#define RARRAY_PTR(ARRAY)</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/df4/generator_8h_source.html#l00036">generator.h:36</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a31a624c57e908d47f2aeb7209e7db3e7"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a31a624c57e908d47f2aeb7209e7db3e7">ID_call</a></div><div class="ttdeci">static ID ID_call</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00230">tcltklib.c:230</a></div></div>
<div class="ttc" id="eval_8c_html_a8061198378fb16adeb931f90540b2839"><div class="ttname"><a href="../../d3/d57/eval_8c.html#a8061198378fb16adeb931f90540b2839">rb_ensure</a></div><div class="ttdeci">VALUE rb_ensure(VALUE(*b_proc)(ANYARGS), VALUE data1, VALUE(*e_proc)(ANYARGS), VALUE data2)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d57/eval_8c_source.html#l00737">eval.c:737</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ac016cf800c945b35b6ed7d8d9c9b153c"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac016cf800c945b35b6ed7d8d9c9b153c">cmd</a></div><div class="ttdeci">const char * cmd</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00274">tcltklib.c:274</a></div></div>
<div class="ttc" id="stubs_8h_html_ab944980ed6509b34cff71e2997200d30"><div class="ttname"><a href="../../df/d55/stubs_8h.html#ab944980ed6509b34cff71e2997200d30">FAIL_Tk_InitStubs</a></div><div class="ttdeci">#define FAIL_Tk_InitStubs</div><div class="ttdef"><b>Definition:</b> <a href="../../df/d55/stubs_8h_source.html#l00033">stubs.h:33</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a23725dc14d120e279b18bae302dbfd01"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a></div><div class="ttdeci">#define DUMP2(ARG1, ARG2)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00163">tcltklib.c:163</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a8cd7164f2640dea1db77112b05a8b12b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a8cd7164f2640dea1db77112b05a8b12b">av</a></div><div class="ttdeci">char ** av</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08839">tcltklib.c:8839</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a780b4b4af2feb2b9f44efd3f97b46f27"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a780b4b4af2feb2b9f44efd3f97b46f27">TCL_NAMESPACE_DEBUG</a></div><div class="ttdeci">#define TCL_NAMESPACE_DEBUG</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00556">tcltklib.c:556</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a1e8954156fff89f02ed89339cb91d368"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a1e8954156fff89f02ed89339cb91d368">ID_inspect</a></div><div class="ttdeci">static ID ID_inspect</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00240">tcltklib.c:240</a></div></div>
<div class="ttc" id="defines_8h_html_a77366c1bd428629dc898e188bfd182a3"><div class="ttname"><a href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a></div><div class="ttdeci">#define EXTERN</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/db0/defines_8h_source.html#l00262">defines.h:262</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a9d517b7c337e861a177ea81062ab4184"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a9d517b7c337e861a177ea81062ab4184">all_bs</a></div><div class="ttdeci">int all_bs</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08325">tcltklib.c:8325</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a18061f301f8cacbf9935b94d3f9a11ee"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a18061f301f8cacbf9935b94d3f9a11ee">ruby_verbose</a></div><div class="ttdeci">ruby_verbose</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05807">tcltklib.c:5807</a></div></div>
<div class="ttc" id="eval_8c_html_ae48d70c45901eab8b89fb181fc9d1f3b"><div class="ttname"><a href="../../d3/d57/eval_8c.html#ae48d70c45901eab8b89fb181fc9d1f3b">rb_jump_tag</a></div><div class="ttdeci">void rb_jump_tag(int tag)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d57/eval_8c_source.html#l00598">eval.c:598</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a438b7652e31fb33d3baed83b8095da68"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a438b7652e31fb33d3baed83b8095da68">t1</a></div><div class="ttdeci">struct timeval t0 t1</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02787">tcltklib.c:2787</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a9d08db2e7a99d650ace90f02ea93108b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a9d08db2e7a99d650ace90f02ea93108b">ptr</a></div><div class="ttdeci">return ptr</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00780">tcltklib.c:780</a></div></div>
<div class="ttc" id="dln_8c_html_affb9fc32698fab7f7b36e0cf8e64c83e"><div class="ttname"><a href="../../d1/ddc/dln_8c.html#affb9fc32698fab7f7b36e0cf8e64c83e">free</a></div><div class="ttdeci">#define free(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../d1/ddc/dln_8c_source.html#l00050">dln.c:50</a></div></div>
<div class="ttc" id="structevloop__params_html_ab1ca04ef36befd4c7dbfc886eef74e32"><div class="ttname"><a href="../../d3/de9/structevloop__params.html#ab1ca04ef36befd4c7dbfc886eef74e32">evloop_params::interp</a></div><div class="ttdeci">Tcl_Interp * interp</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02544">tcltklib.c:2544</a></div></div>
<div class="ttc" id="bigdecimal_8c_html_a0ae1919f736e3a087fbc9cd8dcba9da9"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a0ae1919f736e3a087fbc9cd8dcba9da9">c</a></div><div class="ttdeci">VpDivd * c</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l01163">bigdecimal.c:1163</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aa0338a6024357b513fd58ebd112be7db"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa0338a6024357b513fd58ebd112be7db">ID_kill</a></div><div class="ttdeci">static ID ID_kill</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00226">tcltklib.c:226</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a96d7361e5cdcd126524d9a7310940c5b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a96d7361e5cdcd126524d9a7310940c5b">trap_check</a></div><div class="ttdeci">static int trap_check(int *check_var)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02132">tcltklib.c:2132</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a13159ee6a4cfa4f10d10df77692299da"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a13159ee6a4cfa4f10d10df77692299da">cmd_str</a></div><div class="ttdeci">volatile VALUE cmd_str</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05509">tcltklib.c:5509</a></div></div>
<div class="ttc" id="dln_8h_html_a10087a068d10eaadb8f9bb9200cd619a"><div class="ttname"><a href="../../df/da8/dln_8h.html#a10087a068d10eaadb8f9bb9200cd619a">_</a></div><div class="ttdeci">#define _(args)</div><div class="ttdef"><b>Definition:</b> <a href="../../df/da8/dln_8h_source.html#l00028">dln.h:28</a></div></div>
<div class="ttc" id="gb18030_8c_html_a89f234133d3efe315836311cbf21c64b"><div class="ttname"><a href="../../d5/d1d/gb18030_8c.html#a89f234133d3efe315836311cbf21c64b">state</a></div><div class="ttdeci">state</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d1d/gb18030_8c_source.html#l00213">gb18030.c:213</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a6d315fd98e04b0d0ab006a2437281557"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a6d315fd98e04b0d0ab006a2437281557">msg</a></div><div class="ttdeci">VALUE msg</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00842">tcltklib.c:842</a></div></div>
<div class="ttc" id="strtol_8c_html_a311071298c2fe3e5d7057f396a6acfdc"><div class="ttname"><a href="../../d5/d65/strtol_8c.html#a311071298c2fe3e5d7057f396a6acfdc">strtol</a></div><div class="ttdeci">long strtol(const char *nptr, char **endptr, int base)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d65/strtol_8c_source.html#l00007">strtol.c:7</a></div></div>
<div class="ttc" id="stubs_8h_html_aab732e347dd4377ec8d7050f4ca962c8"><div class="ttname"><a href="../../df/d55/stubs_8h.html#aab732e347dd4377ec8d7050f4ca962c8">NO_FindExecutable</a></div><div class="ttdeci">#define NO_FindExecutable</div><div class="ttdef"><b>Definition:</b> <a href="../../df/d55/stubs_8h_source.html#l00019">stubs.h:19</a></div></div>
<div class="ttc" id="eval__jump_8c_html_a59c976d93f8b1b2766e4fe7e01ac1ee7"><div class="ttname"><a href="../../d6/d9b/eval__jump_8c.html#a59c976d93f8b1b2766e4fe7e01ac1ee7">rb_set_end_proc</a></div><div class="ttdeci">void rb_set_end_proc(void(*func)(VALUE), VALUE data)</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/d9b/eval__jump_8c_source.html#l00060">eval_jump.c:60</a></div></div>
<div class="ttc" id="intern_8h_html_a5c6c63c2619b8c03df2e173ef1e73846"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a5c6c63c2619b8c03df2e173ef1e73846">rb_respond_to</a></div><div class="ttdeci">int rb_respond_to(VALUE, ID)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d63/vm__method_8c_source.html#l01231">vm_method.c:1231</a></div></div>
<div class="ttc" id="group__class_html_gad0eeed44f413060a2417852168747388"><div class="ttname"><a href="../../de/ddf/group__class.html#gad0eeed44f413060a2417852168747388">rb_define_module_under</a></div><div class="ttdeci">VALUE rb_define_module_under(VALUE outer, const char *name)</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d0c/class_8c_source.html#l00607">class.c:607</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a8c25bd9e73ecb18e4f9f352090bb2911"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a8c25bd9e73ecb18e4f9f352090bb2911">TCL_CANCEL_UNWIND</a></div><div class="ttdeci">#define TCL_CANCEL_UNWIND</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07810">tcltklib.c:7810</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_afc32c1526ac6cb40ec33cad8782c0bae"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#afc32c1526ac6cb40ec33cad8782c0bae">StringValueCStr</a></div><div class="ttdeci">#define StringValueCStr(v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00468">ruby.h:468</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a2dc3c261c5388aa84c552741c90f243f"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a2dc3c261c5388aa84c552741c90f243f">rb_set_safe_level_force</a></div><div class="ttdeci">void rb_set_safe_level_force(int)</div><div class="ttdef"><b>Definition:</b> <a href="../../da/d2d/safe_8c_source.html#l00034">safe.c:34</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a86edc457c880e8c17e678380e174902c"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a86edc457c880e8c17e678380e174902c">eTkLocalJumpError</a></div><div class="ttdeci">static VALUE eTkLocalJumpError</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00211">tcltklib.c:211</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ac95c385910a0bb5f780fb6545d83d881"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac95c385910a0bb5f780fb6545d83d881">rb_set_safe_level</a></div><div class="ttdeci">rb_set_safe_level(q->safe_level)</div></div>
<div class="ttc" id="tcltklib_8c_html_af03f8d848963d2fe3b455ebc9bf54fd7"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af03f8d848963d2fe3b455ebc9bf54fd7">found_event</a></div><div class="ttdeci">int found_event</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02182">tcltklib.c:2182</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a3a0a28ba6e22644006c9bafb793f8a2c"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a3a0a28ba6e22644006c9bafb793f8a2c">va_init_list</a></div><div class="ttdeci">#define va_init_list(a, b)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00057">tcltklib.c:57</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a4586592efa35e1c725107238c5b450ea"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a4586592efa35e1c725107238c5b450ea">no_event</a></div><div class="ttdeci">VALUE no_event</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01803">tcltklib.c:1803</a></div></div>
<div class="ttc" id="tcltklib_8c_html_acda52e7f6b86b5809f7e427f529bfcb3"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#acda52e7f6b86b5809f7e427f529bfcb3">lib_evloop_abort_on_exc</a></div><div class="ttdeci">return lib_evloop_abort_on_exc(self)</div></div>
<div class="ttc" id="ripper_8y_html_ad608e57b446d6346a20ff2ce5ad16a13"><div class="ttname"><a href="../../d3/d09/ripper_8y.html#ad608e57b446d6346a20ff2ce5ad16a13">arg</a></div><div class="ttdeci">arg</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d09/ripper_8y_source.html#l01287">ripper.y:1287</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ad49d9d73467b0b43682b0847bfcf5570"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad49d9d73467b0b43682b0847bfcf5570">src</a></div><div class="ttdeci">VALUE src</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07940">tcltklib.c:7940</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a233859a1dce4fae0b33d1ea0243b0d47"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a233859a1dce4fae0b33d1ea0243b0d47">ENCODING_NAME_BINARY</a></div><div class="ttdeci">static VALUE ENCODING_NAME_BINARY</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00191">tcltklib.c:191</a></div></div>
<div class="ttc" id="stubs_8h_html_a047f2045f100a5a76ed6df4753a0cd53"><div class="ttname"><a href="../../df/d55/stubs_8h.html#a047f2045f100a5a76ed6df4753a0cd53">ruby_tcl_create_ip_and_stubs_init</a></div><div class="ttdeci">Tcl_Interp * ruby_tcl_create_ip_and_stubs_init(int *)</div></div>
<div class="ttc" id="tcltklib_8c_html_ad7955c6a8d835246802b74bbd0e713d1"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad7955c6a8d835246802b74bbd0e713d1">delete_slaves</a></div><div class="ttdeci">delete_slaves(ip)</div></div>
<div class="ttc" id="tcltklib_8c_html_ac215bbef6f867043f5072c1997a47557"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac215bbef6f867043f5072c1997a47557">Tcl_QueueEvent</a></div><div class="ttdeci">Tcl_QueueEvent((Tcl_Event *) callq, TCL_QUEUE_HEAD)</div></div>
<div class="ttc" id="encoding_8c_html_a439227feff9d7f55384e8780cfc2eb82"><div class="ttname"><a href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a></div><div class="ttdeci">int size</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/db5/encoding_8c_source.html#l00051">encoding.c:51</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_ac55fae7f748afd3fc2533d0d7d06cf5a"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a></div><div class="ttdeci">#define INT2FIX(i)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00225">ruby.h:225</a></div></div>
<div class="ttc" id="tcltklib_8c_html_af98c87d8044c5fd2c6bcd541cbc2c649"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af98c87d8044c5fd2c6bcd541cbc2c649">pending_exception_check0</a></div><div class="ttdeci">static int pending_exception_check0()</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01376">tcltklib.c:1376</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a0964f0f2c4ef2a9554392a5aaf13b032"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a0964f0f2c4ef2a9554392a5aaf13b032">at_exit</a></div><div class="ttdeci">static int at_exit</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00181">tcltklib.c:181</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a52e6fec0d2c0348c2e08039651add637"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a52e6fec0d2c0348c2e08039651add637">TRAP_CHECK</a></div><div class="ttdeci">#define TRAP_CHECK()</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02127">tcltklib.c:2127</a></div></div>
<div class="ttc" id="error_8c_html_a4989eeb5742cad6359a2ed77859674de"><div class="ttname"><a href="../../db/dcc/error_8c.html#a4989eeb5742cad6359a2ed77859674de">rb_exc_new3</a></div><div class="ttdeci">VALUE rb_exc_new3(VALUE etype, VALUE str)</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00504">error.c:504</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a7fefdc0a0bdb479dcd15d610533497d6"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a7fefdc0a0bdb479dcd15d610533497d6">eTkCallbackBreak</a></div><div class="ttdeci">static VALUE eTkCallbackBreak</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00206">tcltklib.c:206</a></div></div>
<div class="ttc" id="stubs_8c_html_a361dff396d424781b5c982f6232afbef"><div class="ttname"><a href="../../d5/d30/stubs_8c.html#a361dff396d424781b5c982f6232afbef">tcl_stubs_init_p</a></div><div class="ttdeci">int tcl_stubs_init_p()</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d30/stubs_8c_source.html#l00492">stubs.c:492</a></div></div>
<div class="ttc" id="intern_8h_html_a7b330d2905c5f0c9a68cef4ebba5c00f"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a7b330d2905c5f0c9a68cef4ebba5c00f">rb_block_proc</a></div><div class="ttdeci">VALUE rb_block_proc(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/dda/proc_8c_source.html#l00463">proc.c:463</a></div></div>
<div class="ttc" id="structinvoke__queue_html_a7e8a38587f5a0a3177d86c3d0abba76f"><div class="ttname"><a href="../../df/d4d/structinvoke__queue.html#a7e8a38587f5a0a3177d86c3d0abba76f">invoke_queue::done</a></div><div class="ttdeci">int * done</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00406">tcltklib.c:406</a></div></div>
<div class="ttc" id="tcltklib_8c_html_af2bf34bc42df2e5e8332e7ee104d2e1b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af2bf34bc42df2e5e8332e7ee104d2e1b">rbtk_EventSetupProc</a></div><div class="ttdeci">void rbtk_EventSetupProc(ClientData clientData, int flag)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01983">tcltklib.c:1983</a></div></div>
<div class="ttc" id="tcltklib_8c_html_afbd2530678e6262a587dd99dedeb053b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#afbd2530678e6262a587dd99dedeb053b">EVENT_HANDLER_TIMEOUT</a></div><div class="ttdeci">#define EVENT_HANDLER_TIMEOUT</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00521">tcltklib.c:521</a></div></div>
<div class="ttc" id="defines_8h_html_af4fd7cbafda9af704310f78516042dfb"><div class="ttname"><a href="../../d8/db0/defines_8h.html#af4fd7cbafda9af704310f78516042dfb">ANYARGS</a></div><div class="ttdeci">#define ANYARGS</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/db0/defines_8h_source.html#l00057">defines.h:57</a></div></div>
<div class="ttc" id="tcltklib_8c_html_acaa678bcc1bd95ea581777cb137087b6"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#acaa678bcc1bd95ea581777cb137087b6">DUMP3</a></div><div class="ttdeci">#define DUMP3(ARG1, ARG2, ARG3)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00165">tcltklib.c:165</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a64b9f91b984fbc76739b472bb223a2e6"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a64b9f91b984fbc76739b472bb223a2e6">ip_eval_real</a></div><div class="ttdeci">return ip_eval_real(q->interp, q->str, q->len)</div></div>
<div class="ttc" id="tcltklib_8c_html_a3146c23bbdd4311489cbe8cb76c7aebb"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a3146c23bbdd4311489cbe8cb76c7aebb">ID_stop_p</a></div><div class="ttdeci">static ID ID_stop_p</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00224">tcltklib.c:224</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a309bda5ae698449fdad7c11c00e293e9"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a309bda5ae698449fdad7c11c00e293e9">DATA_PTR</a></div><div class="ttdeci">DATA_PTR(self)</div></div>
<div class="ttc" id="tcltklib_8c_html_a845f15fbef3559c1e9d926a9dfca755f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a845f15fbef3559c1e9d926a9dfca755f">ruby_debug</a></div><div class="ttdeci">ruby_debug</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05806">tcltklib.c:5806</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a4f8b213c8a1965b5debaa6ab99036537"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a4f8b213c8a1965b5debaa6ab99036537">flagPtr</a></div><div class="ttdeci">int * flagPtr</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09852">tcltklib.c:9852</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aee699b1c46e61042b7675d02247208fb"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aee699b1c46e61042b7675d02247208fb">req_timer_tick</a></div><div class="ttdeci">static int req_timer_tick</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00527">tcltklib.c:527</a></div></div>
<div class="ttc" id="structevloop__params_html_a76b488a954ff0c3cd0770004a1cd91c3"><div class="ttname"><a href="../../d3/de9/structevloop__params.html#a76b488a954ff0c3cd0770004a1cd91c3">evloop_params::check_var</a></div><div class="ttdeci">int * check_var</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02543">tcltklib.c:2543</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a96654a88fe61690e0a391c61162b7153"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a96654a88fe61690e0a391c61162b7153">clientData</a></div><div class="ttdeci">static void ClientData clientData</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01603">tcltklib.c:1603</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a439d454bde9ab99790d65b1fef054145"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a439d454bde9ab99790d65b1fef054145">rb_ivar_set</a></div><div class="ttdeci">rb_ivar_set(einfo, ID_at_interp, interp)</div></div>
<div class="ttc" id="tcltklib_8c_html_a5989eede682afd9743c0345d772674d5"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a5989eede682afd9743c0345d772674d5">objv</a></div><div class="ttdeci">char * objv[]</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03877">tcltklib.c:3877</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a9a99ae96c946b550b60a7f345103e408"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a></div><div class="ttdeci">static ID ID_at_enc</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00218">tcltklib.c:218</a></div></div>
<div class="ttc" id="stubs_8h_html_aefad2a7b6d1e554c35033cda7b1b9203"><div class="ttname"><a href="../../df/d55/stubs_8h.html#aefad2a7b6d1e554c35033cda7b1b9203">NO_DeleteInterp</a></div><div class="ttdeci">#define NO_DeleteInterp</div><div class="ttdef"><b>Definition:</b> <a href="../../df/d55/stubs_8h_source.html#l00026">stubs.h:26</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a117741045763c090b26e30a85bd0e0a6"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a></div><div class="ttdeci">#define RTEST(v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00373">ruby.h:373</a></div></div>
<div class="ttc" id="intern_8h_html_a8a4a55d3f2ed6d9ece055553e48755d5"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a8a4a55d3f2ed6d9ece055553e48755d5">rb_proc_new</a></div><div class="ttdeci">VALUE rb_proc_new(VALUE(*)(ANYARGS), VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/dda/proc_8c_source.html#l01837">proc.c:1837</a></div></div>
<div class="ttc" id="intern_8h_html_a9c9bfa5b17b2be949b3ca843e6a0ee9e"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a9c9bfa5b17b2be949b3ca843e6a0ee9e">rb_thread_check_ints</a></div><div class="ttdeci">void rb_thread_check_ints(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/de7/thread_8c_source.html#l00998">thread.c:998</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a22a8c2a4bbaae9b68f65c9bb92fd4e39"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a22a8c2a4bbaae9b68f65c9bb92fd4e39">T_STRING</a></div><div class="ttdeci">#define T_STRING</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00418">ruby.h:418</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a571ea11dcb2dbd199457251a32493c26"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a571ea11dcb2dbd199457251a32493c26">set_no_event_wait</a></div><div class="ttdeci">return set_no_event_wait(self, wait)</div></div>
<div class="ttc" id="tcltklib_8c_html_af2723ded53fcb84d63096a8272b5b3f6"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af2723ded53fcb84d63096a8272b5b3f6">event_loop_wait_event</a></div><div class="ttdeci">static int event_loop_wait_event</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00530">tcltklib.c:530</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ac0e3ea2fc8f0340072cc2f98f2d05fbd"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a></div><div class="ttdeci">#define CONST84</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00139">tcltklib.c:139</a></div></div>
<div class="ttc" id="intern_8h_html_a466749a3498fa8fbb48f7fc783a7cf34"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a466749a3498fa8fbb48f7fc783a7cf34">rb_thread_run</a></div><div class="ttdeci">VALUE rb_thread_run(VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/de7/thread_8c_source.html#l01655">thread.c:1655</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a52041d6e41e97c0f3adfc48d04f4586f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a52041d6e41e97c0f3adfc48d04f4586f">klass</a></div><div class="ttdeci">klass</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03493">tcltklib.c:3493</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a8b1d6a68739d2f40636d9a8f3aea4253"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a8b1d6a68739d2f40636d9a8f3aea4253">ENCODING_NAME_UTF8</a></div><div class="ttdeci">static VALUE ENCODING_NAME_UTF8</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00190">tcltklib.c:190</a></div></div>
<div class="ttc" id="encoding_8h_html_afbc5af6d0519022b74552a42800fb93c"><div class="ttname"><a href="../../d5/de3/encoding_8h.html#afbc5af6d0519022b74552a42800fb93c">rb_str_export_to_enc</a></div><div class="ttdeci">VALUE rb_str_export_to_enc(VALUE, rb_encoding *)</div><div class="ttdef"><b>Definition:</b> <a href="../../d1/db0/string_8c_source.html#l00597">string.c:597</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a9ab816c37c9173898ff256b7be9e5ea9"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a9ab816c37c9173898ff256b7be9e5ea9">T_FALSE</a></div><div class="ttdeci">#define T_FALSE</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00427">ruby.h:427</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a7a2cabfa69c181ac17f416e6c78f4fd9"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a7a2cabfa69c181ac17f416e6c78f4fd9">eTkCallbackReturn</a></div><div class="ttdeci">static VALUE eTkCallbackReturn</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00205">tcltklib.c:205</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a8a8bb80e7488b96878ccd589dc1829f4"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a8a8bb80e7488b96878ccd589dc1829f4">taint_flag</a></div><div class="ttdeci">int taint_flag</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09704">tcltklib.c:9704</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a2a585c6b73d0ef8ee49763794ad560fa"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a2a585c6b73d0ef8ee49763794ad560fa">set_eventloop_tick</a></div><div class="ttdeci">return set_eventloop_tick(self, tick)</div></div>
<div class="ttc" id="structcall__queue_html_a097b73e5bc4374d83e3103bb3fb4b40d"><div class="ttname"><a href="../../df/db5/structcall__queue.html#a097b73e5bc4374d83e3103bb3fb4b40d">call_queue::argv</a></div><div class="ttdeci">VALUE * argv</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00427">tcltklib.c:427</a></div></div>
<div class="ttc" id="error_8c_html_a0083d327c582acc3300d59e8fe257c27"><div class="ttname"><a href="../../db/dcc/error_8c.html#a0083d327c582acc3300d59e8fe257c27">rb_notimplement</a></div><div class="ttdeci">void rb_notimplement(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l01598">error.c:1598</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aec8cfb70e9afe46b1d53416919b25f07"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aec8cfb70e9afe46b1d53416919b25f07">q_dat</a></div><div class="ttdeci">volatile VALUE q_dat</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06993">tcltklib.c:6993</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aa2096553fb76c0e4b9d8784f368bc673"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa2096553fb76c0e4b9d8784f368bc673">endptr</a></div><div class="ttdeci">char * endptr</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03771">tcltklib.c:3771</a></div></div>
<div class="ttc" id="array_8c_html_af4d478d63ee15a20ca0d9aee90ea04db"><div class="ttname"><a href="../../dc/dcc/array_8c.html#af4d478d63ee15a20ca0d9aee90ea04db">rb_ary_join</a></div><div class="ttdeci">VALUE rb_ary_join(VALUE ary, VALUE sep)</div><div class="ttdef"><b>Definition:</b> <a href="../../dc/dcc/array_8c_source.html#l01705">array.c:1705</a></div></div>
<div class="ttc" id="error_8c_html_a1f4044eeff81eb1676037771628b555c"><div class="ttname"><a href="../../db/dcc/error_8c.html#a1f4044eeff81eb1676037771628b555c">rb_eNotImpError</a></div><div class="ttdeci">VALUE rb_eNotImpError</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00477">error.c:477</a></div></div>
<div class="ttc" id="encoding_8c_html_ab349505ca2fad4f5b219b2acf2dae38d"><div class="ttname"><a href="../../d5/db5/encoding_8c.html#ab349505ca2fad4f5b219b2acf2dae38d">rb_enc_default_internal</a></div><div class="ttdeci">VALUE rb_enc_default_internal(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/db5/encoding_8c_source.html#l01339">encoding.c:1339</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a29d67c30b06d8ce1e9a94c53d243184f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a29d67c30b06d8ce1e9a94c53d243184f">current_interp</a></div><div class="ttdeci">Tcl_Interp * current_interp</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00476">tcltklib.c:476</a></div></div>
<div class="ttc" id="array_8c_html_a43a7bd246935ab63c233b4ae34d61d75"><div class="ttname"><a href="../../dc/dcc/array_8c.html#a43a7bd246935ab63c233b4ae34d61d75">rb_ary_new2</a></div><div class="ttdeci">VALUE rb_ary_new2(long capa)</div><div class="ttdef"><b>Definition:</b> <a href="../../dc/dcc/array_8c_source.html#l00332">array.c:332</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ab81049b2151eefca8f778de90358f7b4"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ab81049b2151eefca8f778de90358f7b4">rb_verbose_bup</a></div><div class="ttdeci">VALUE rb_verbose_bup</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05678">tcltklib.c:5678</a></div></div>
<div class="ttc" id="tcltklib_8c_html_abff803ed7da8eaf63b872306fe238d97"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#abff803ed7da8eaf63b872306fe238d97">ip_obj</a></div><div class="ttdeci">volatile VALUE ip_obj</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07102">tcltklib.c:7102</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aa69d9fa25afdc01237612a6047b96189"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa69d9fa25afdc01237612a6047b96189">TAG_BREAK</a></div><div class="ttdeci">#define TAG_BREAK</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00153">tcltklib.c:153</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a6f520624fabb8332dc98fd223491bf8d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a6f520624fabb8332dc98fd223491bf8d">rb_safe_level</a></div><div class="ttdeci">#define rb_safe_level()</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00090">tcltklib.c:90</a></div></div>
<div class="ttc" id="structth__vwait__param_html"><div class="ttname"><a href="../../dd/dca/structth__vwait__param.html">th_vwait_param</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04832">tcltklib.c:4832</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a55366e470407b897ecc58f1d5bdfc757"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a55366e470407b897ecc58f1d5bdfc757">dstr</a></div><div class="ttdeci">Tcl_DString dstr</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03086">tcltklib.c:3086</a></div></div>
<div class="ttc" id="structth__vwait__param_html_abfac73593f1d6ac7a80953799ec9a91c"><div class="ttname"><a href="../../dd/dca/structth__vwait__param.html#abfac73593f1d6ac7a80953799ec9a91c">th_vwait_param::thread</a></div><div class="ttdeci">VALUE thread</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04833">tcltklib.c:4833</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a5ce127b34dfbccc8bdf11cf2dc8d6a98"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a5ce127b34dfbccc8bdf11cf2dc8d6a98">DEFAULT_EVENT_LOOP_MAX</a></div><div class="ttdeci">#define DEFAULT_EVENT_LOOP_MAX</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00513">tcltklib.c:513</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a48ad410c8807d01926b70383e7dd0a9f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a48ad410c8807d01926b70383e7dd0a9f">lib_eventloop_launcher</a></div><div class="ttdeci">return lib_eventloop_launcher(RTEST(check_rootwidget), 0,(int *) NULL,(Tcl_Interp *) NULL)</div></div>
<div class="ttc" id="tcltklib_8c_html_a27579641fb4a7546a1d98f37a30fcef6"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a27579641fb4a7546a1d98f37a30fcef6">eTkCallbackThrow</a></div><div class="ttdeci">static VALUE eTkCallbackThrow</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00214">tcltklib.c:214</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aa1d33552e2f33ebee40651b5a44a1299"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa1d33552e2f33ebee40651b5a44a1299">callq</a></div><div class="ttdeci">VALUE callq</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06975">tcltklib.c:6975</a></div></div>
<div class="ttc" id="tcltklib_8c_html_af711ce8f58ba5e47fa4ad587491152d3"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af711ce8f58ba5e47fa4ad587491152d3">objc</a></div><div class="ttdeci">int objc</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03876">tcltklib.c:3876</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a1c6c386b417e79a679ef583c543e411f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a1c6c386b417e79a679ef583c543e411f">rb_thread_wakeup</a></div><div class="ttdeci">rb_thread_wakeup(param->thread)</div></div>
<div class="ttc" id="tcltklib_8c_html_a89cd18829599d193ee75073219cc42c4"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a></div><div class="ttdeci">#define rb_errinfo()</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00085">tcltklib.c:85</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a2be873c800369cb40b71e610db08d376"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a2be873c800369cb40b71e610db08d376">rb_funcall</a></div><div class="ttdeci">return rb_funcall(q->proc, ID_call, 0)</div></div>
<div class="ttc" id="tcltklib_8c_html_a3b63ecba554aec4cfcc508a206cc4947"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a3b63ecba554aec4cfcc508a206cc4947">self</a></div><div class="ttdeci">static struct tcltkip *VALUE self</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00765">tcltklib.c:765</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a0c33b494a68ce28497e7ce8e5e95feff"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a></div><div class="ttdeci">#define CONST</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00138">tcltklib.c:138</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a2665a51abbd5b49c15abff3df00fa9db"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a2665a51abbd5b49c15abff3df00fa9db">StringValuePtr</a></div><div class="ttdeci">#define StringValuePtr(v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00467">ruby.h:467</a></div></div>
<div class="ttc" id="error_8c_html_a7df09bfc26c0ffa7592f91fdcf64fcec"><div class="ttname"><a href="../../db/dcc/error_8c.html#a7df09bfc26c0ffa7592f91fdcf64fcec">rb_eFatal</a></div><div class="ttdeci">VALUE rb_eFatal</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00464">error.c:464</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ae8153d6aa187352242ba173695c08e8c"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae8153d6aa187352242ba173695c08e8c">alloc_done</a></div><div class="ttdeci">int * alloc_done</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07098">tcltklib.c:7098</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a90505f4dc26133a78e6b376d004aea0d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a90505f4dc26133a78e6b376d004aea0d">cnt</a></div><div class="ttdeci">int cnt</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06138">tcltklib.c:6138</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a1011eb5bef1d3b60fdf51e46ce243153"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a1011eb5bef1d3b60fdf51e46ce243153">Tcl_GlobalEval</a></div><div class="ttdeci">#define Tcl_GlobalEval</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00308">tcltklib.c:308</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a1edc4416b7c1b0335d740b266ac0ed6a"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a1edc4416b7c1b0335d740b266ac0ed6a">check_rootwidget_flag</a></div><div class="ttdeci">static int check_rootwidget_flag</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00534">tcltklib.c:534</a></div></div>
<div class="ttc" id="structcall__queue_html_a0ff11e2b5523e140c538dbb945bce6db"><div class="ttname"><a href="../../df/db5/structcall__queue.html#a0ff11e2b5523e140c538dbb945bce6db">call_queue::func</a></div><div class="ttdeci">VALUE(* func)()</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00425">tcltklib.c:425</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a9e7d742a9c52a78b9b3dc81df878e2ed"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a9e7d742a9c52a78b9b3dc81df878e2ed">ruby_native_thread_p</a></div><div class="ttdeci">#define ruby_native_thread_p()</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00078">tcltklib.c:78</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a69c3c43ade69fe8618464f74667319fa"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a69c3c43ade69fe8618464f74667319fa">CONST86</a></div><div class="ttdeci">#define CONST86</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00147">tcltklib.c:147</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a1ad600cc479a0925d89bde245d84fb12"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a1ad600cc479a0925d89bde245d84fb12">Tcl_Preserve</a></div><div class="ttdeci">Tcl_Preserve(interp)</div></div>
<div class="ttc" id="tcltklib_8c_html_ada3ac1e5a6678c4ec73e09cd08d13202"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ada3ac1e5a6678c4ec73e09cd08d13202">Init_tcltklib</a></div><div class="ttdeci">void Init_tcltklib()</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10754">tcltklib.c:10754</a></div></div>
<div class="ttc" id="structinvoke__queue_html_adb618602021c5bdf5f6d973eefc7b983"><div class="ttname"><a href="../../df/d4d/structinvoke__queue.html#adb618602021c5bdf5f6d973eefc7b983">invoke_queue::thread</a></div><div class="ttdeci">VALUE thread</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00409">tcltklib.c:409</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a82e8bb282a1d35fcc453335b090bd4a7"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a82e8bb282a1d35fcc453335b090bd4a7">TAG_REDO</a></div><div class="ttdeci">#define TAG_REDO</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00156">tcltklib.c:156</a></div></div>
<div class="ttc" id="encoding_8h_html_ad23f205c614c95726b919b2a8a1ac573"><div class="ttname"><a href="../../d5/de3/encoding_8h.html#ad23f205c614c95726b919b2a8a1ac573">rb_enc_to_index</a></div><div class="ttdeci">#define rb_enc_to_index(enc)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/de3/encoding_8h_source.html#l00086">encoding.h:86</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a4463413f39ba7733d92072b707ac607e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a4463413f39ba7733d92072b707ac607e">TCL_OK</a></div><div class="ttdeci">return TCL_OK</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03988">tcltklib.c:3988</a></div></div>
<div class="ttc" id="structtcltkip_html"><div class="ttname"><a href="../../db/d19/structtcltkip.html">tcltkip</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00750">tcltklib.c:750</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a639a1a294ada84ee921fbe9cd9d99abb"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a639a1a294ada84ee921fbe9cd9d99abb">opts</a></div><div class="ttdeci">VALUE opts</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06135">tcltklib.c:6135</a></div></div>
<div class="ttc" id="structtcltkip_html_ace5c5b6dab42be91b5cf7389a84cbb2c"><div class="ttname"><a href="../../db/d19/structtcltkip.html#ace5c5b6dab42be91b5cf7389a84cbb2c">tcltkip::allow_ruby_exit</a></div><div class="ttdeci">int allow_ruby_exit</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00761">tcltklib.c:761</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a02eacfd40be9042ceb0f07547365203d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203d">options</a></div><div class="ttdeci">options</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04470">tcltklib.c:4470</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a96f86937ba3da5ecca00e04a2933451c"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a96f86937ba3da5ecca00e04a2933451c">event_loop_max</a></div><div class="ttdeci">static int event_loop_max</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00523">tcltklib.c:523</a></div></div>
<div class="ttc" id="error_8c_html_afd461c64916576849b159b21a26123da"><div class="ttname"><a href="../../db/dcc/error_8c.html#afd461c64916576849b159b21a26123da">rb_warning</a></div><div class="ttdeci">void rb_warning(const char *fmt,...)</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00212">error.c:212</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a1e2eb8512f9421fa7485556a9e3bf439"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a1e2eb8512f9421fa7485556a9e3bf439">TCLTKLIB_RELEASE_DATE</a></div><div class="ttdeci">#define TCLTKLIB_RELEASE_DATE</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00007">tcltklib.c:7</a></div></div>
<div class="ttc" id="encoding_8c_html_adeb5f5b97ea43528a55d717add8f64c5"><div class="ttname"><a href="../../d5/db5/encoding_8c.html#adeb5f5b97ea43528a55d717add8f64c5">rb_enc_find_index</a></div><div class="ttdeci">int rb_enc_find_index(const char *name)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/db5/encoding_8c_source.html#l00596">encoding.c:596</a></div></div>
<div class="ttc" id="stubs_8h_html_a815f08a2a84f02d232dc45d1e1294f23"><div class="ttname"><a href="../../df/d55/stubs_8h.html#a815f08a2a84f02d232dc45d1e1294f23">NO_CreateInterp</a></div><div class="ttdeci">#define NO_CreateInterp</div><div class="ttdef"><b>Definition:</b> <a href="../../df/d55/stubs_8h_source.html#l00025">stubs.h:25</a></div></div>
<div class="ttc" id="gc_8c_html_a3cbc64cc9d74c437c08a5dc923d1c7dd"><div class="ttname"><a href="../../d8/d16/gc_8c.html#a3cbc64cc9d74c437c08a5dc923d1c7dd">rb_gc_enable</a></div><div class="ttdeci">VALUE rb_gc_enable(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d16/gc_8c_source.html#l00937">gc.c:937</a></div></div>
<div class="ttc" id="intern_8h_html_a8ea3742679211f408cb5769de6cf0d46"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a8ea3742679211f408cb5769de6cf0d46">rb_obj_freeze</a></div><div class="ttdeci">VALUE rb_obj_freeze(VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/de1/object_8c_source.html#l00902">object.c:902</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a8018f71cd110dd99a4148699d5b0f084"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a8018f71cd110dd99a4148699d5b0f084">tkwin</a></div><div class="ttdeci">Tk_Window tkwin</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05079">tcltklib.c:5079</a></div></div>
<div class="ttc" id="tcltklib_8c_html_abf6fb4fe73fd54fbdc78e28b6e1ce7b7"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#abf6fb4fe73fd54fbdc78e28b6e1ce7b7">lib_fromUTF8_core</a></div><div class="ttdeci">return lib_fromUTF8_core(Qnil, str, encodename)</div></div>
<div class="ttc" id="tcltklib_8c_html_a68d215a0a799125badfec44692eef7c0"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a68d215a0a799125badfec44692eef7c0">_thread_call_proc_arg_mark</a></div><div class="ttdeci">void _thread_call_proc_arg_mark(struct thread_call_proc_arg *q)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02900">tcltklib.c:2900</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a6bd9fdf3ad3dbd61640ecd8204e91ef0"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a6bd9fdf3ad3dbd61640ecd8204e91ef0">RSTRING_LEN</a></div><div class="ttdeci">#define RSTRING_LEN(s)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00032">tcltklib.c:32</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ac8947941479c38403a09c14a60b03f01"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac8947941479c38403a09c14a60b03f01">major</a></div><div class="ttdeci">int major</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00105">tcltklib.c:105</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ae8b231022fbcf079038c6b72a46bf300"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae8b231022fbcf079038c6b72a46bf300">run_timer_flag</a></div><div class="ttdeci">static int run_timer_flag</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00528">tcltklib.c:528</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ad5c254c9258200de195897a1d1791732"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad5c254c9258200de195897a1d1791732">Tcl_GetCommandInfo</a></div><div class="ttdeci">&& Tcl_GetCommandInfo(ip,"after",&info))</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05794">tcltklib.c:5794</a></div></div>
<div class="ttc" id="tcltklib_8c_html_aa462096e1c4a9af7e62b5315dfad4ddd"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa462096e1c4a9af7e62b5315dfad4ddd">divmod</a></div><div class="ttdeci">VALUE divmod</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01858">tcltklib.c:1858</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a1bdcc60b06a4d9bd65069676f991659a"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a1bdcc60b06a4d9bd65069676f991659a">position</a></div><div class="ttdeci">Tcl_QueuePosition position</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07605">tcltklib.c:7605</a></div></div>
<div class="ttc" id="name2ctype_8h_html_a86f2415763322050063a5502f87c9422"><div class="ttname"><a href="../../d3/d15/name2ctype_8h.html#a86f2415763322050063a5502f87c9422">long</a></div><div class="ttdeci">#define long</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d15/name2ctype_8h_source.html#l00037">name2ctype.h:37</a></div></div>
<div class="ttc" id="bigdecimal_8c_html_acb559820d9ca11295b4500f179ef6392"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#acb559820d9ca11295b4500f179ef6392">i</a></div><div class="ttdeci">ssize_t i</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="intern_8h_html_a857320dd57dc897c57ee0345f6f04f06"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a857320dd57dc897c57ee0345f6f04f06">rb_tainted_str_new</a></div><div class="ttdeci">VALUE rb_tainted_str_new(const char *, long)</div></div>
<div class="ttc" id="group__class_html_ga911071d40f9312e49a774ea0e1b12869"><div class="ttname"><a href="../../de/ddf/group__class.html#ga911071d40f9312e49a774ea0e1b12869">rb_define_module</a></div><div class="ttdeci">VALUE rb_define_module(const char *name)</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d0c/class_8c_source.html#l00587">class.c:587</a></div></div>
<div class="ttc" id="tcltklib_8c_html_abbe469560280c936662242c94a43d994"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#abbe469560280c936662242c94a43d994">tcl_stubs_check</a></div><div class="ttdeci">static void tcl_stubs_check()</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01275">tcltklib.c:1275</a></div></div>
<div class="ttc" id="array_8c_html_a9cfa42d4b79c89d68c53be8b2150a503"><div class="ttname"><a href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a></div><div class="ttdeci">#define rb_intern(str)</div></div>
<div class="ttc" id="tcltklib_8c_html_acd0c08166926d1e4b90b5f6b811733bd"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#acd0c08166926d1e4b90b5f6b811733bd">ID_backtrace</a></div><div class="ttdeci">static ID ID_backtrace</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00231">tcltklib.c:231</a></div></div>
<div class="ttc" id="bigdecimal_8c_html_a8603782009ff58be0587ea58013b3e52"><div class="ttname"><a href="../../de/d07/bigdecimal_8c.html#a8603782009ff58be0587ea58013b3e52">v</a></div><div class="ttdeci">BDIGIT v</div><div class="ttdef"><b>Definition:</b> <a href="../../de/d07/bigdecimal_8c_source.html#l05520">bigdecimal.c:5520</a></div></div>
<div class="ttc" id="tkutil_8c_html_a7e8f61118ed74b3749f201dc8f26a46a"><div class="ttname"><a href="../../d9/dee/tkutil_8c.html#a7e8f61118ed74b3749f201dc8f26a46a">rb_gc_mark</a></div><div class="ttdeci">rb_gc_mark(ptr->aliases)</div></div>
<div class="ttc" id="intern_8h_html_a13e29e5637f1d2fdf778399849da0d34"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a13e29e5637f1d2fdf778399849da0d34">rb_vsprintf</a></div><div class="ttdeci">VALUE rb_vsprintf(const char *, va_list)</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d2d/sprintf_8c_source.html#l01197">sprintf.c:1197</a></div></div>
<div class="ttc" id="rubysig_8h_html_acd71077f561ca3b4b803e17481cc85ee"><div class="ttname"><a href="../../d0/de9/rubysig_8h.html#acd71077f561ca3b4b803e17481cc85ee">CHECK_INTS</a></div><div class="ttdeci">#define CHECK_INTS</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/de9/rubysig_8h_source.html#l00043">rubysig.h:43</a></div></div>
<div class="ttc" id="error_8c_html_a34c7841e8f21712bc79d7bd6f64483b3"><div class="ttname"><a href="../../db/dcc/error_8c.html#a34c7841e8f21712bc79d7bd6f64483b3">rb_eSystemExit</a></div><div class="ttdeci">VALUE rb_eSystemExit</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00461">error.c:461</a></div></div>
<div class="ttc" id="nkf-utf8_2nkf_8c_html_afeadf3d97090e74a174614cac38a5dd6"><div class="ttname"><a href="../../d6/da0/nkf-utf8_2nkf_8c.html#afeadf3d97090e74a174614cac38a5dd6">name</a></div><div class="ttdeci">const char * name</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/da0/nkf-utf8_2nkf_8c_source.html#l00208">nkf.c:208</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a50f20943d92bb4520999124128a8212e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a50f20943d92bb4520999124128a8212e">time</a></div><div class="ttdeci">VALUE time</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01857">tcltklib.c:1857</a></div></div>
<div class="ttc" id="tcltklib_8c_html_af30877db2cb29106639acfca6366c3d0"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af30877db2cb29106639acfca6366c3d0">q</a></div><div class="ttdeci">q</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02957">tcltklib.c:2957</a></div></div>
<div class="ttc" id="structinvoke__queue_html_acf486aed957a1768a4a80a7a057912df"><div class="ttname"><a href="../../df/d4d/structinvoke__queue.html#acf486aed957a1768a4a80a7a057912df">invoke_queue::interp</a></div><div class="ttdeci">VALUE interp</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00405">tcltklib.c:405</a></div></div>
<div class="ttc" id="stubs_8h_html"><div class="ttname"><a href="../../df/d55/stubs_8h.html">stubs.h</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a34e1a549edf3c2940a9d300814df2cd3"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a34e1a549edf3c2940a9d300814df2cd3">check_eventloop_interp</a></div><div class="ttdeci">static int check_eventloop_interp()</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02162">tcltklib.c:2162</a></div></div>
<div class="ttc" id="tcltklib_8c_html_abb26a71317d09e2d5d9ec54a51c88576"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#abb26a71317d09e2d5d9ec54a51c88576">updateOptions</a></div><div class="ttdeci">updateOptions</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03884">tcltklib.c:3884</a></div></div>
<div class="ttc" id="tcltklib_8c_html_afb33421fe234ee34c898da21b1bef388"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#afb33421fe234ee34c898da21b1bef388">ip_get_result_string_obj</a></div><div class="ttdeci">return ip_get_result_string_obj(ptr->ip)</div></div>
<div class="ttc" id="structcall__queue_html_a2fd2c2694948a684ceafa73fe38fa3b6"><div class="ttname"><a href="../../df/db5/structcall__queue.html#a2fd2c2694948a684ceafa73fe38fa3b6">call_queue::safe_level</a></div><div class="ttdeci">int safe_level</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00430">tcltklib.c:430</a></div></div>
<div class="ttc" id="intern_8h_html_a987c01487d77573a7840848bc2c37b0e"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a987c01487d77573a7840848bc2c37b0e">rb_thread_create</a></div><div class="ttdeci">VALUE rb_thread_create(VALUE(*)(ANYARGS), void *)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/de7/thread_8c_source.html#l00658">thread.c:658</a></div></div>
<div class="ttc" id="stubs_8c_html_a237743b5abae83fd8b5a3ef2715ec7bf"><div class="ttname"><a href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a></div><div class="ttdeci">int tk_stubs_init_p()</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d30/stubs_8c_source.html#l00498">stubs.c:498</a></div></div>
<div class="ttc" id="group__defmethod_html_ga118dc7abcdb97f56fe35727ac0ff6eb8"><div class="ttname"><a href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a></div><div class="ttdeci">void rb_define_method(VALUE klass, const char *name, VALUE(*func)(ANYARGS), int argc)</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d0c/class_8c_source.html#l01210">class.c:1210</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a529f12882653441f32d5970570209660"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a529f12882653441f32d5970570209660">ip_invoke_core</a></div><div class="ttdeci">return ip_invoke_core(q->interp, q->argc, q->argv)</div></div>
<div class="ttc" id="intern_8h_html_ada1577ce4242b06ff5c1c52f37f5e679"><div class="ttname"><a href="../../db/d2e/intern_8h.html#ada1577ce4242b06ff5c1c52f37f5e679">rb_str_new2</a></div><div class="ttdeci">VALUE rb_str_new2(const char *)</div></div>
<div class="ttc" id="tcltklib_8c_html_aa36638418f48fb2f8074a4fc4d425a8c"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa36638418f48fb2f8074a4fc4d425a8c">dst</a></div><div class="ttdeci">char * dst</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09855">tcltklib.c:9855</a></div></div>
<div class="ttc" id="error_8c_html_aa5b1972d475e9a090c8ef607ce033008"><div class="ttname"><a href="../../db/dcc/error_8c.html#aa5b1972d475e9a090c8ef607ce033008">rb_warn</a></div><div class="ttdeci">void rb_warn(const char *fmt,...)</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00196">error.c:196</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a3b809ecb28a90160b5565df5cc4f91f1"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a3b809ecb28a90160b5565df5cc4f91f1">tcl_time</a></div><div class="ttdeci">Tcl_SetMaxBlockTime & tcl_time</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01885">tcltklib.c:1885</a></div></div>
<div class="ttc" id="error_8c_html_ab5e2a9fec766c75176fbb262bfe6a596"><div class="ttname"><a href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a></div><div class="ttdeci">VALUE rb_eArgError</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00468">error.c:468</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ae4eb912710ffa8fbc4ce6275ea1f23af"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae4eb912710ffa8fbc4ce6275ea1f23af">loop_counter</a></div><div class="ttdeci">static int loop_counter</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00532">tcltklib.c:532</a></div></div>
<div class="ttc" id="tcltklib_8c_html_abb4799eb935baee7ba4deec686f68fd8"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#abb4799eb935baee7ba4deec686f68fd8">evPtr</a></div><div class="ttdeci">static int Tcl_Event * evPtr</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06988">tcltklib.c:6988</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a02eacfd40be9042ceb0f07547365203dae5beaef321f61572446bdd68a6b85600"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a02eacfd40be9042ceb0f07547365203dae5beaef321f61572446bdd68a6b85600">TKWAIT_VISIBILITY</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04470">tcltklib.c:4470</a></div></div>
<div class="ttc" id="tcltklib_8c_html_adbc8c55b37e97b7050be6208b786bd88"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#adbc8c55b37e97b7050be6208b786bd88">no_ev</a></div><div class="ttdeci">int no_ev</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01806">tcltklib.c:1806</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ac5d3e11622cde853addb87cfae24021e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac5d3e11622cde853addb87cfae24021e">TAG_NEXT</a></div><div class="ttdeci">#define TAG_NEXT</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00154">tcltklib.c:154</a></div></div>
<div class="ttc" id="tcltklib_8c_html_ad35c1f2068a266a3a1525d2899a056b9"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad35c1f2068a266a3a1525d2899a056b9">lib_evloop_abort_on_exc_set</a></div><div class="ttdeci">return lib_evloop_abort_on_exc_set(self, val)</div></div>
<div class="ttc" id="stubs_8c_html_aea32fce8225a6281c3c202679698afbf"><div class="ttname"><a href="../../d5/d30/stubs_8c.html#aea32fce8225a6281c3c202679698afbf">st</a></div><div class="ttdeci">Tcl_Interp *int * st</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d30/stubs_8c_source.html#l00508">stubs.c:508</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a43ff4666b9a565e45077f1e660def679"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a43ff4666b9a565e45077f1e660def679">EVLOOP_WAKEUP_CHANCE</a></div><div class="ttdeci">#define EVLOOP_WAKEUP_CHANCE</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02777">tcltklib.c:2777</a></div></div>
<div class="ttc" id="rubysig_8h_html"><div class="ttname"><a href="../../d0/de9/rubysig_8h.html">rubysig.h</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a9361a0096f960a099dac9a504d008765"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a9361a0096f960a099dac9a504d008765">ID_return</a></div><div class="ttdeci">static ID ID_return</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00235">tcltklib.c:235</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a7c1d654b7b6114d7a0abc8d351dd1bcd"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a7c1d654b7b6114d7a0abc8d351dd1bcd">dummy</a></div><div class="ttdeci">static VALUE VALUE dummy</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02054">tcltklib.c:2054</a></div></div>
<div class="ttc" id="structinvoke__queue_html_ac0582b14336179bccf0217d3d7200063"><div class="ttname"><a href="../../df/d4d/structinvoke__queue.html#ac0582b14336179bccf0217d3d7200063">invoke_queue::argv</a></div><div class="ttdeci">char ** argv</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00403">tcltklib.c:403</a></div></div>
<div class="ttc" id="intern_8h_html_ab8a448eec4dc767e47f5f9bd35974734"><div class="ttname"><a href="../../db/d2e/intern_8h.html#ab8a448eec4dc767e47f5f9bd35974734">rb_attr_get</a></div><div class="ttdeci">VALUE rb_attr_get(VALUE, ID)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d2a/variable_8c_source.html#l01032">variable.c:1032</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a4f4b8818725098180b9d71be7c020e6a"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a4f4b8818725098180b9d71be7c020e6a">ID_join</a></div><div class="ttdeci">static ID ID_join</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00227">tcltklib.c:227</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a2458a76a779f5dd7a96d2706dff43062"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a2458a76a779f5dd7a96d2706dff43062">master</a></div><div class="ttdeci">static VALUE VALUE master</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06531">tcltklib.c:6531</a></div></div>
<div class="ttc" id="structeval__queue_html"><div class="ttname"><a href="../../de/d17/structeval__queue.html">eval_queue</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00412">tcltklib.c:412</a></div></div>
<div class="ttc" id="ruby_2ruby_8h_html_a0e80f207eb41e9010ec9f0f5f9419fea"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a></div><div class="ttdeci">#define StringValue(v)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00466">ruby.h:466</a></div></div>
<div class="ttc" id="error_8c_html_ac5bd9245454f935493c41daa4f2651ae"><div class="ttname"><a href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a></div><div class="ttdeci">VALUE rb_eException</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00460">error.c:460</a></div></div>
<div class="ttc" id="tcltklib_8c_html_acb65bdbeee9f9d3a838ad16bcb957e04"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#acb65bdbeee9f9d3a838ad16bcb957e04">DEFAULT_TIMER_TICK</a></div><div class="ttdeci">#define DEFAULT_TIMER_TICK</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00517">tcltklib.c:517</a></div></div>
<div class="ttc" id="encoding_8c_html_aef9c377b2d9d78b9f88e890b77593109"><div class="ttname"><a href="../../d5/db5/encoding_8c.html#aef9c377b2d9d78b9f88e890b77593109">rb_enc_from_index</a></div><div class="ttdeci">rb_encoding * rb_enc_from_index(int index)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/db5/encoding_8c_source.html#l00512">encoding.c:512</a></div></div>
<div class="ttc" id="intern_8h_html_a70f81ab8c056ec13134cc7a35868d565"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a70f81ab8c056ec13134cc7a35868d565">rb_argv0</a></div><div class="ttdeci">RUBY_EXTERN VALUE rb_argv0</div><div class="ttdef"><b>Definition:</b> <a href="../../db/d2e/intern_8h_source.html#l00632">intern.h:632</a></div></div>
<div class="ttc" id="intern_8h_html_a57a3a6b1a7a0c9dc8905611023297567"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a57a3a6b1a7a0c9dc8905611023297567">rb_thread_sleep_forever</a></div><div class="ttdeci">void rb_thread_sleep_forever(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/de7/thread_8c_source.html#l00928">thread.c:928</a></div></div>
<div class="ttc" id="tcltklib_8c_html_a812f3a9c8fa1c17844d943c9ab38ee98"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a812f3a9c8fa1c17844d943c9ab38ee98">Tcl_CreateEventSource</a></div><div class="ttdeci">Tcl_CreateEventSource(rbtk_EventSetupProc, rbtk_EventCheckProc,(ClientData) args)</div></div>
<div class="ttc" id="intern_8h_html_a48b2b873adb8b6a04254bd631c4b03c5"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a48b2b873adb8b6a04254bd631c4b03c5">rb_str_new</a></div><div class="ttdeci">VALUE rb_str_new(const char *, long)</div><div class="ttdef"><b>Definition:</b> <a href="../../d1/db0/string_8c_source.html#l00410">string.c:410</a></div></div>
<div class="ttc" id="intern_8h_html_ac2be7243e739fa8f5dce6be0c8ee5f6d"><div class="ttname"><a href="../../db/d2e/intern_8h.html#ac2be7243e739fa8f5dce6be0c8ee5f6d">rb_obj_class</a></div><div class="ttdeci">VALUE rb_obj_class(VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/de1/object_8c_source.html#l00177">object.c:177</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>