📁 File Manager Pro
v10.0.3 | PHP: 8.1.34
Server: Apache
2026-06-22 09:06:37
📂
/ (Root)
/
opt
/
alt
/
ruby21
/
share
/
doc
/
ruby
/
capi
/
html
/
d5
/
d9d
📍 /opt/alt/ruby21/share/doc/ruby/capi/html/d5/d9d
🔄 Refresh
✏️
Editing: tcltklib_8c_source.html
Read Only
<!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.14"/> <meta name="viewport" content="width=device-width, initial-scale=1"/> <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 id="projectalign" style="padding-left: 0.5em;"> <div id="projectname">Ruby  <span id="projectnumber">2.1.10p492(2016-04-01revision54464)</span> </div> </td> </tr> </tbody> </table> </div> <!-- end header part --> <!-- Generated by Doxygen 1.8.14 --> <script type="text/javascript" src="../../menudata.js"></script> <script type="text/javascript" src="../../menu.js"></script> <script type="text/javascript"> /* @license magnet:?xt=urn:btih:cf05388f2679ee054f2beb29a391d25f4e673ac3&dn=gpl-2.0.txt GPL-v2 */ $(function() { initMenu('../../',false,false,'search.php','Search'); }); /* @license-end */</script> <div id="main-nav"></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="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 "<a class="code" href="../../d9/d3f/ruby_8h.html">ruby.h</a>"</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">#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">#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">#define RUBY_VERSION "(unknown version)"</span></div><div class="line"><a name="l00017"></a><span class="lineno"> 17</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00018"></a><span class="lineno"> 18</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">#define RUBY_RELEASE_DATE "unknown release-date"</span></div><div class="line"><a name="l00020"></a><span class="lineno"> 20</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00021"></a><span class="lineno"> 21</span> </div><div class="line"><a name="l00022"></a><span class="lineno"> 22</span> <span class="preprocessor">#ifdef HAVE_RB_THREAD_CHECK_TRAP_PENDING</span></div><div class="line"><a name="l00023"></a><span class="lineno"> 23</span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">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="../../d5/d9d/tcltklib_8c.html#a41e6a95a134b13d63c516923d0a66f91">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="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"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a41e6a95a134b13d63c516923d0a66f91"> 28</a></span> <span class="preprocessor">#define rb_thread_check_trap_pending() (0+rb_trap_pending)</span></div><div class="line"><a name="l00029"></a><span class="lineno"> 29</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00030"></a><span class="lineno"> 30</span> </div><div class="line"><a name="l00031"></a><span class="lineno"> 31</span> <span class="preprocessor">#if !defined(RSTRING_PTR)</span></div><div class="line"><a name="l00032"></a><span class="lineno"> 32</span> <span class="preprocessor">#define RSTRING_PTR(s) (RSTRING(s)->ptr)</span></div><div class="line"><a name="l00033"></a><span class="lineno"> 33</span> <span class="preprocessor">#define RSTRING_LEN(s) (RSTRING(s)->len)</span></div><div class="line"><a name="l00034"></a><span class="lineno"> 34</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00035"></a><span class="lineno"> 35</span> <span class="preprocessor">#if !defined(RSTRING_LENINT)</span></div><div class="line"><a name="l00036"></a><span class="lineno"> 36</span> <span class="preprocessor">#define RSTRING_LENINT(s) ((int)RSTRING_LEN(s))</span></div><div class="line"><a name="l00037"></a><span class="lineno"> 37</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00038"></a><span class="lineno"> 38</span> <span class="preprocessor">#if !defined(RARRAY_PTR)</span></div><div class="line"><a name="l00039"></a><span class="lineno"> 39</span> <span class="preprocessor">#define RARRAY_PTR(s) (RARRAY(s)->ptr)</span></div><div class="line"><a name="l00040"></a><span class="lineno"> 40</span> <span class="preprocessor">#define RARRAY_LEN(s) (RARRAY(s)->len)</span></div><div class="line"><a name="l00041"></a><span class="lineno"> 41</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00042"></a><span class="lineno"> 42</span> </div><div class="line"><a name="l00043"></a><span class="lineno"> 43</span> <span class="preprocessor">#ifdef OBJ_UNTRUST</span></div><div class="line"><a name="l00044"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832"> 44</a></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="l00045"></a><span class="lineno"> 45</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00046"></a><span class="lineno"> 46</span> <span class="preprocessor">#define RbTk_OBJ_UNTRUST(x) OBJ_TAINT(x)</span></div><div class="line"><a name="l00047"></a><span class="lineno"> 47</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00048"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc"> 48</a></span> <span class="preprocessor">#define RbTk_ALLOC_N(type, n) (type *)ckalloc((int)(sizeof(type) * (n)))</span></div><div class="line"><a name="l00049"></a><span class="lineno"> 49</span> </div><div class="line"><a name="l00050"></a><span class="lineno"> 50</span> <span class="preprocessor">#if defined(HAVE_RB_PROC_NEW) && !defined(RUBY_VM)</span></div><div class="line"><a name="l00051"></a><span class="lineno"> 51</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="l00052"></a><span class="lineno"> 52</span> <span class="keyword">extern</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../db/d2e/intern_8h.html#a8a4a55d3f2ed6d9ece055553e48755d5">rb_proc_new</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">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#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>));</div><div class="line"><a name="l00053"></a><span class="lineno"> 53</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00054"></a><span class="lineno"> 54</span> </div><div class="line"><a name="l00055"></a><span class="lineno"> 55</span> <span class="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="l00056"></a><span class="lineno"> 56</span> <span class="preprocessor">#include <stdio.h></span></div><div class="line"><a name="l00057"></a><span class="lineno"> 57</span> <span class="preprocessor">#ifdef HAVE_STDARG_PROTOTYPES</span></div><div class="line"><a name="l00058"></a><span class="lineno"> 58</span> <span class="preprocessor">#include <stdarg.h></span></div><div class="line"><a name="l00059"></a><span class="lineno"> 59</span> <span class="preprocessor">#define va_init_list(a,b) va_start(a,b)</span></div><div class="line"><a name="l00060"></a><span class="lineno"> 60</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00061"></a><span class="lineno"> 61</span> <span class="preprocessor">#include <varargs.h></span></div><div class="line"><a name="l00062"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3a0a28ba6e22644006c9bafb793f8a2c"> 62</a></span> <span class="preprocessor">#define va_init_list(a,b) va_start(a)</span></div><div class="line"><a name="l00063"></a><span class="lineno"> 63</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00064"></a><span class="lineno"> 64</span> <span class="preprocessor">#include <string.h></span></div><div class="line"><a name="l00065"></a><span class="lineno"> 65</span> </div><div class="line"><a name="l00066"></a><span class="lineno"> 66</span> <span class="preprocessor">#if !defined HAVE_VSNPRINTF && !defined vsnprintf</span></div><div class="line"><a name="l00067"></a><span class="lineno"> 67</span> <span class="preprocessor"># ifdef WIN32</span></div><div class="line"><a name="l00068"></a><span class="lineno"> 68</span>  <span class="comment">/* In Win32, vsnprintf is available as the "non-ANSI" _vsnprintf. */</span></div><div class="line"><a name="l00069"></a><span class="lineno"> 69</span> <span class="preprocessor"># define vsnprintf _vsnprintf</span></div><div class="line"><a name="l00070"></a><span class="lineno"> 70</span> <span class="preprocessor"># else</span></div><div class="line"><a name="l00071"></a><span class="lineno"> 71</span> <span class="preprocessor"># ifdef HAVE_RUBY_RUBY_H</span></div><div class="line"><a name="l00072"></a><span class="lineno"> 72</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="l00073"></a><span class="lineno"> 73</span> <span class="preprocessor"># else</span></div><div class="line"><a name="l00074"></a><span class="lineno"> 74</span> <span class="preprocessor"># include "<a class="code" href="../../d3/d90/missing_8h.html">missing.h</a>"</span></div><div class="line"><a name="l00075"></a><span class="lineno"> 75</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00076"></a><span class="lineno"> 76</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00077"></a><span class="lineno"> 77</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00078"></a><span class="lineno"> 78</span> </div><div class="line"><a name="l00079"></a><span class="lineno"> 79</span> <span class="preprocessor">#include <tcl.h></span></div><div class="line"><a name="l00080"></a><span class="lineno"> 80</span> <span class="preprocessor">#include <tk.h></span></div><div class="line"><a name="l00081"></a><span class="lineno"> 81</span> </div><div class="line"><a name="l00082"></a><span class="lineno"> 82</span> <span class="preprocessor">#ifndef HAVE_RUBY_NATIVE_THREAD_P</span></div><div class="line"><a name="l00083"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9e7d742a9c52a78b9b3dc81df878e2ed"> 83</a></span> <span class="preprocessor">#define ruby_native_thread_p() is_ruby_native_thread()</span></div><div class="line"><a name="l00084"></a><span class="lineno"> 84</span> <span class="preprocessor">#undef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l00085"></a><span class="lineno"> 85</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00086"></a><span class="lineno"> 86</span> <span class="preprocessor">#define RUBY_USE_NATIVE_THREAD 1</span></div><div class="line"><a name="l00087"></a><span class="lineno"> 87</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00088"></a><span class="lineno"> 88</span> </div><div class="line"><a name="l00089"></a><span class="lineno"> 89</span> <span class="preprocessor">#ifndef HAVE_RB_ERRINFO</span></div><div class="line"><a name="l00090"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4"> 90</a></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="l00091"></a><span class="lineno"> 91</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00092"></a><span class="lineno"> 92</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">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="l00093"></a><span class="lineno"> 93</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00094"></a><span class="lineno"> 94</span> <span class="preprocessor">#ifndef HAVE_RB_SAFE_LEVEL</span></div><div class="line"><a name="l00095"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6f520624fabb8332dc98fd223491bf8d"> 95</a></span> <span class="preprocessor">#define rb_safe_level() (ruby_safe_level+0)</span></div><div class="line"><a name="l00096"></a><span class="lineno"> 96</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00097"></a><span class="lineno"> 97</span> <span class="preprocessor">#ifndef HAVE_RB_SOURCEFILE</span></div><div class="line"><a name="l00098"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aaa4f8c9b566fd7fb6873866c423c2016"> 98</a></span> <span class="preprocessor">#define rb_sourcefile() (ruby_sourcefile+0)</span></div><div class="line"><a name="l00099"></a><span class="lineno"> 99</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00100"></a><span class="lineno"> 100</span> </div><div class="line"><a name="l00101"></a><span class="lineno"> 101</span> <span class="preprocessor">#include "<a class="code" href="../../df/d55/stubs_8h.html">stubs.h</a>"</span></div><div class="line"><a name="l00102"></a><span class="lineno"> 102</span> </div><div class="line"><a name="l00103"></a><span class="lineno"> 103</span> <span class="preprocessor">#ifndef TCL_ALPHA_RELEASE</span></div><div class="line"><a name="l00104"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a4de6261e8241d2b1a2042687e2f3f5f1"> 104</a></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="l00105"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af677d35e643bf3e4f082296e5e14bce9"> 105</a></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="l00106"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aeebe90bc7223d7d0cdc31f8e2e336e40"> 106</a></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="l00107"></a><span class="lineno"> 107</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00108"></a><span class="lineno"> 108</span> </div><div class="line"><a name="l00109"></a><span class="lineno"> 109</span> <span class="keyword">static</span> <span class="keyword">struct </span>{</div><div class="line"><a name="l00110"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac8947941479c38403a09c14a60b03f01"> 110</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="l00111"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aec7b96885baf2e6f10efbdef9d935a0b"> 111</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="l00112"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac765329451135abec74c45e1897abf26"> 112</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="l00113"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a703be39b589a9caa3476755abb5bdfdc"> 113</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="l00114"></a><span class="lineno"> 114</span> } <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4afd20af9587a4711046697f7730d727">tcltk_version</a> = {0, 0, 0, 0};</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> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l00117"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a171a0d27738b86387c3b5d7a5ff075e8"> 117</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a171a0d27738b86387c3b5d7a5ff075e8">set_tcltk_version</a>()</div><div class="line"><a name="l00118"></a><span class="lineno"> 118</span> {</div><div class="line"><a name="l00119"></a><span class="lineno"> 119</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4afd20af9587a4711046697f7730d727">tcltk_version</a>.major) <span class="keywordflow">return</span>;</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>  Tcl_GetVersion(&(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4afd20af9587a4711046697f7730d727">tcltk_version</a>.major),</div><div class="line"><a name="l00122"></a><span class="lineno"> 122</span>  &(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4afd20af9587a4711046697f7730d727">tcltk_version</a>.minor),</div><div class="line"><a name="l00123"></a><span class="lineno"> 123</span>  &(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4afd20af9587a4711046697f7730d727">tcltk_version</a>.patchlevel),</div><div class="line"><a name="l00124"></a><span class="lineno"> 124</span>  &(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4afd20af9587a4711046697f7730d727">tcltk_version</a>.type));</div><div class="line"><a name="l00125"></a><span class="lineno"> 125</span> }</div><div class="line"><a name="l00126"></a><span class="lineno"> 126</span> </div><div class="line"><a name="l00127"></a><span class="lineno"> 127</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l00128"></a><span class="lineno"> 128</span> <span class="preprocessor"># ifndef CONST84</span></div><div class="line"><a name="l00129"></a><span class="lineno"> 129</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="l00130"></a><span class="lineno"> 130</span> <span class="preprocessor"># define CONST84</span></div><div class="line"><a name="l00131"></a><span class="lineno"> 131</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="l00132"></a><span class="lineno"> 132</span> <span class="preprocessor"># ifdef CONST</span></div><div class="line"><a name="l00133"></a><span class="lineno"> 133</span> <span class="preprocessor"># define CONST84 CONST</span></div><div class="line"><a name="l00134"></a><span class="lineno"> 134</span> <span class="preprocessor"># else</span></div><div class="line"><a name="l00135"></a><span class="lineno"> 135</span> <span class="preprocessor"># define CONST84</span></div><div class="line"><a name="l00136"></a><span class="lineno"> 136</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00137"></a><span class="lineno"> 137</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00138"></a><span class="lineno"> 138</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00139"></a><span class="lineno"> 139</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l00140"></a><span class="lineno"> 140</span> <span class="preprocessor"># ifdef CONST</span></div><div class="line"><a name="l00141"></a><span class="lineno"> 141</span> <span class="preprocessor"># define CONST84 CONST</span></div><div class="line"><a name="l00142"></a><span class="lineno"> 142</span> <span class="preprocessor"># else</span></div><div class="line"><a name="l00143"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff"> 143</a></span> <span class="preprocessor"># define CONST</span></div><div class="line"><a name="l00144"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd"> 144</a></span> <span class="preprocessor"># define CONST84</span></div><div class="line"><a name="l00145"></a><span class="lineno"> 145</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00146"></a><span class="lineno"> 146</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00147"></a><span class="lineno"> 147</span> </div><div class="line"><a name="l00148"></a><span class="lineno"> 148</span> <span class="preprocessor">#ifndef CONST86</span></div><div class="line"><a name="l00149"></a><span class="lineno"> 149</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="l00150"></a><span class="lineno"> 150</span> <span class="preprocessor"># define CONST86</span></div><div class="line"><a name="l00151"></a><span class="lineno"> 151</span> <span class="preprocessor"># else</span></div><div class="line"><a name="l00152"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a69c3c43ade69fe8618464f74667319fa"> 152</a></span> <span class="preprocessor"># define CONST86 CONST84</span></div><div class="line"><a name="l00153"></a><span class="lineno"> 153</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00154"></a><span class="lineno"> 154</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00155"></a><span class="lineno"> 155</span> </div><div class="line"><a name="l00156"></a><span class="lineno"> 156</span> <span class="comment">/* copied from eval.c */</span></div><div class="line"><a name="l00157"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abfe39758eac9658dbce9750e4bfddbc6"> 157</a></span> <span class="preprocessor">#define TAG_RETURN 0x1</span></div><div class="line"><a name="l00158"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa69d9fa25afdc01237612a6047b96189"> 158</a></span> <span class="preprocessor">#define TAG_BREAK 0x2</span></div><div class="line"><a name="l00159"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac5d3e11622cde853addb87cfae24021e"> 159</a></span> <span class="preprocessor">#define TAG_NEXT 0x3</span></div><div class="line"><a name="l00160"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a277f73abdf66e83f4fc75b93d6e87b72"> 160</a></span> <span class="preprocessor">#define TAG_RETRY 0x4</span></div><div class="line"><a name="l00161"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a82e8bb282a1d35fcc453335b090bd4a7"> 161</a></span> <span class="preprocessor">#define TAG_REDO 0x5</span></div><div class="line"><a name="l00162"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0b034bce069147e233776bc1dcc74c01"> 162</a></span> <span class="preprocessor">#define TAG_RAISE 0x6</span></div><div class="line"><a name="l00163"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6d3b7d4da36f7b664c2065f918eb541f"> 163</a></span> <span class="preprocessor">#define TAG_THROW 0x7</span></div><div class="line"><a name="l00164"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7490e601d6a9d97a79d4d895ad73c93a"> 164</a></span> <span class="preprocessor">#define TAG_FATAL 0x8</span></div><div class="line"><a name="l00165"></a><span class="lineno"> 165</span> </div><div class="line"><a name="l00166"></a><span class="lineno"> 166</span> <span class="comment">/* for ruby_debug */</span></div><div class="line"><a name="l00167"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095"> 167</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="l00168"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01"> 168</a></span> <span class="preprocessor">#define DUMP2(ARG1, ARG2) if (ruby_debug) { fprintf(stderr, "tcltklib: ");\</span></div><div class="line"><a name="l00169"></a><span class="lineno"> 169</span> <span class="preprocessor">fprintf(stderr, ARG1, ARG2); fprintf(stderr, "\n"); fflush(stderr); }</span></div><div class="line"><a name="l00170"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#acaa678bcc1bd95ea581777cb137087b6"> 170</a></span> <span class="preprocessor">#define DUMP3(ARG1, ARG2, ARG3) if (ruby_debug) { fprintf(stderr, "tcltklib: ");\</span></div><div class="line"><a name="l00171"></a><span class="lineno"> 171</span> <span class="preprocessor">fprintf(stderr, ARG1, ARG2, ARG3); fprintf(stderr, "\n"); fflush(stderr); }</span></div><div class="line"><a name="l00172"></a><span class="lineno"> 172</span> <span class="comment">/*</span></div><div class="line"><a name="l00173"></a><span class="lineno"> 173</span> <span class="comment">#define DUMP1(ARG1)</span></div><div class="line"><a name="l00174"></a><span class="lineno"> 174</span> <span class="comment">#define DUMP2(ARG1, ARG2)</span></div><div class="line"><a name="l00175"></a><span class="lineno"> 175</span> <span class="comment">#define DUMP3(ARG1, ARG2, ARG3)</span></div><div class="line"><a name="l00176"></a><span class="lineno"> 176</span> <span class="comment">*/</span></div><div class="line"><a name="l00177"></a><span class="lineno"> 177</span> </div><div class="line"><a name="l00178"></a><span class="lineno"> 178</span> <span class="comment">/* release date */</span></div><div class="line"><a name="l00179"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aeaf38a8920ce34eb9aa64dead5cf2cd1"> 179</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="l00180"></a><span class="lineno"> 180</span> </div><div class="line"><a name="l00181"></a><span class="lineno"> 181</span> <span class="comment">/* finalize_proc_name */</span></div><div class="line"><a name="l00182"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6a0604a3645e14c4d8c8272cfb51bb05"> 182</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="l00183"></a><span class="lineno"> 183</span> </div><div class="line"><a name="l00184"></a><span class="lineno"> 184</span> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af3e6f9a2db4741e3208aeedae20c97cd">ip_finalize</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((Tcl_Interp*));</div><div class="line"><a name="l00185"></a><span class="lineno"> 185</span> </div><div class="line"><a name="l00186"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0964f0f2c4ef2a9554392a5aaf13b032"> 186</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="l00187"></a><span class="lineno"> 187</span> </div><div class="line"><a name="l00188"></a><span class="lineno"> 188</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l00189"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a4fad8dd77dc5ba9e6be36191c82a272e"> 189</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4fad8dd77dc5ba9e6be36191c82a272e">cRubyEncoding</a>;</div><div class="line"><a name="l00190"></a><span class="lineno"> 190</span> </div><div class="line"><a name="l00191"></a><span class="lineno"> 191</span> <span class="comment">/* encoding */</span></div><div class="line"><a name="l00192"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a154b1f5c9c90acef2a0b248f861fea29"> 192</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a154b1f5c9c90acef2a0b248f861fea29">ENCODING_INDEX_UTF8</a>;</div><div class="line"><a name="l00193"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a76a58884428d17b0ae0736d9d16ade61"> 193</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a76a58884428d17b0ae0736d9d16ade61">ENCODING_INDEX_BINARY</a>;</div><div class="line"><a name="l00194"></a><span class="lineno"> 194</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00195"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8b1d6a68739d2f40636d9a8f3aea4253"> 195</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8b1d6a68739d2f40636d9a8f3aea4253">ENCODING_NAME_UTF8</a>;</div><div class="line"><a name="l00196"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a233859a1dce4fae0b33d1ea0243b0d47"> 196</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a233859a1dce4fae0b33d1ea0243b0d47">ENCODING_NAME_BINARY</a>;</div><div class="line"><a name="l00197"></a><span class="lineno"> 197</span> </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#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae6ec1143806ca777011fe0786cebce56">create_dummy_encoding_for_tk_core</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">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#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a05dbfa32ebb9e97e1336c127185806b3">create_dummy_encoding_for_tk</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>));</div><div class="line"><a name="l00200"></a><span class="lineno"> 200</span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae03aba704fe4920a72cc87c1eaf6e28d">update_encoding_table</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">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#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4d98bdf167c716047f13e19cafbf1978">encoding_table_get_name_core</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>));</div><div class="line"><a name="l00202"></a><span class="lineno"> 202</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#afe59232eba6d9dea4401c9c5376f3e0d">encoding_table_get_obj_core</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>));</div><div class="line"><a name="l00203"></a><span class="lineno"> 203</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af9d2d13e936db54fa70bbf1cba698321">encoding_table_get_name</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>));</div><div class="line"><a name="l00204"></a><span class="lineno"> 204</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad4888e9518ae5e8a1ef95e4ae45583f2">encoding_table_get_obj</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>));</div><div class="line"><a name="l00205"></a><span class="lineno"> 205</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6231e0ff0954bae6e8cf3ece6319334">create_encoding_table</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>));</div><div class="line"><a name="l00206"></a><span class="lineno"> 206</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a71caa788c630a6c4ebbe79ab8bfb57f6">ip_get_encoding_table</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>));</div><div class="line"><a name="l00207"></a><span class="lineno"> 207</span> </div><div class="line"><a name="l00208"></a><span class="lineno"> 208</span> </div><div class="line"><a name="l00209"></a><span class="lineno"> 209</span> <span class="comment">/* for callback break & continue */</span></div><div class="line"><a name="l00210"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7a2cabfa69c181ac17f416e6c78f4fd9"> 210</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7a2cabfa69c181ac17f416e6c78f4fd9">eTkCallbackReturn</a>;</div><div class="line"><a name="l00211"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7fefdc0a0bdb479dcd15d610533497d6"> 211</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7fefdc0a0bdb479dcd15d610533497d6">eTkCallbackBreak</a>;</div><div class="line"><a name="l00212"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5ae51f46018b1ae0a423aca2b89bf7ab"> 212</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5ae51f46018b1ae0a423aca2b89bf7ab">eTkCallbackContinue</a>;</div><div class="line"><a name="l00213"></a><span class="lineno"> 213</span> </div><div class="line"><a name="l00214"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a03b95ffac44da77386f3add147e7958c"> 214</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a03b95ffac44da77386f3add147e7958c">eLocalJumpError</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#a86edc457c880e8c17e678380e174902c"> 216</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a86edc457c880e8c17e678380e174902c">eTkLocalJumpError</a>;</div><div class="line"><a name="l00217"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7725cc78dab5aa1a2e8eed31d3ce2f7d"> 217</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7725cc78dab5aa1a2e8eed31d3ce2f7d">eTkCallbackRetry</a>;</div><div class="line"><a name="l00218"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae96487c8a7974cdd45d90c8e447ee19d"> 218</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae96487c8a7974cdd45d90c8e447ee19d">eTkCallbackRedo</a>;</div><div class="line"><a name="l00219"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a27579641fb4a7546a1d98f37a30fcef6"> 219</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a27579641fb4a7546a1d98f37a30fcef6">eTkCallbackThrow</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#a9da382a32faf00a1e9fa10aa11c5fb1b"> 221</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9da382a32faf00a1e9fa10aa11c5fb1b">tcltkip_class</a>;</div><div class="line"><a name="l00222"></a><span class="lineno"> 222</span> </div><div class="line"><a name="l00223"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408"> 223</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="l00224"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a32f224f962b50f1a6445c52ef1ceeb6a"> 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#a32f224f962b50f1a6445c52ef1ceeb6a">ID_at_interp</a>;</div><div class="line"><a name="l00225"></a><span class="lineno"> 225</span> </div><div class="line"><a name="l00226"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9e67df28d1db2fd86f0db8c34dc73275"> 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#a9e67df28d1db2fd86f0db8c34dc73275">ID_encoding_name</a>;</div><div class="line"><a name="l00227"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5931ac85aa7a5070c6cf3514b353b989"> 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#a5931ac85aa7a5070c6cf3514b353b989">ID_encoding_table</a>;</div><div class="line"><a name="l00228"></a><span class="lineno"> 228</span> </div><div class="line"><a name="l00229"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3146c23bbdd4311489cbe8cb76c7aebb"> 229</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="l00230"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aaf12d7f0762fc1a9607b435cabce20b9"> 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#aaf12d7f0762fc1a9607b435cabce20b9">ID_alive_p</a>;</div><div class="line"><a name="l00231"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa0338a6024357b513fd58ebd112be7db"> 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#aa0338a6024357b513fd58ebd112be7db">ID_kill</a>;</div><div class="line"><a name="l00232"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a4f4b8818725098180b9d71be7c020e6a"> 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#a4f4b8818725098180b9d71be7c020e6a">ID_join</a>;</div><div class="line"><a name="l00233"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ab120af30b98a101b13e07722999f6e60"> 233</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="l00234"></a><span class="lineno"> 234</span> </div><div class="line"><a name="l00235"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a31a624c57e908d47f2aeb7209e7db3e7"> 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#a31a624c57e908d47f2aeb7209e7db3e7">ID_call</a>;</div><div class="line"><a name="l00236"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#acd0c08166926d1e4b90b5f6b811733bd"> 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#acd0c08166926d1e4b90b5f6b811733bd">ID_backtrace</a>;</div><div class="line"><a name="l00237"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad6092a7044451d4e36f1a65618c9b4fc"> 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#ad6092a7044451d4e36f1a65618c9b4fc">ID_message</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#a189bd2ac1c121d796cb2d123c7adc599"> 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#a189bd2ac1c121d796cb2d123c7adc599">ID_at_reason</a>;</div><div class="line"><a name="l00240"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9361a0096f960a099dac9a504d008765"> 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#a9361a0096f960a099dac9a504d008765">ID_return</a>;</div><div class="line"><a name="l00241"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a14e7d89ffd600ee06f033277ba33a51f"> 241</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="l00242"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a265eab0dd3b7a7e51f7872c3c6d820c6"> 242</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="l00243"></a><span class="lineno"> 243</span> </div><div class="line"><a name="l00244"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a2876182790d4d4deb29d00b4048d7565"> 244</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="l00245"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a1e8954156fff89f02ed89339cb91d368"> 245</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="l00246"></a><span class="lineno"> 246</span> </div><div class="line"><a name="l00247"></a><span class="lineno"> 247</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a66202a95d332ce6cd9f69921873ae7c0">ip_invoke_real</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<span class="keywordtype">int</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>*, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>));</div><div class="line"><a name="l00248"></a><span class="lineno"> 248</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a249b6faeea478c4d28399a5d7dba272d">ip_invoke</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<span class="keywordtype">int</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>*, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>));</div><div class="line"><a name="l00249"></a><span class="lineno"> 249</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f3a24bb704d7b2c89ef9423cd219e78">ip_invoke_with_position</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<span class="keywordtype">int</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>*, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, Tcl_QueuePosition));</div><div class="line"><a name="l00250"></a><span class="lineno"> 250</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1cec8ebc4c54249136da6b6df38fb723">tk_funcall</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>(), <span class="keywordtype">int</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>*, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>));</div><div class="line"><a name="l00251"></a><span class="lineno"> 251</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2e5f0962283cff538726b7aceb5599a9">callq_safelevel_handler</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>));</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="comment">/* Tcl's object type */</span></div><div class="line"><a name="l00254"></a><span class="lineno"> 254</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l00255"></a><span class="lineno"> 255</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="l00256"></a><span class="lineno"> 256</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="l00257"></a><span class="lineno"> 257</span> </div><div class="line"><a name="l00258"></a><span class="lineno"> 258</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="l00259"></a><span class="lineno"> 259</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="l00260"></a><span class="lineno"> 260</span> </div><div class="line"><a name="l00261"></a><span class="lineno"> 261</span> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION >= 1)</span></div><div class="line"><a name="l00262"></a><span class="lineno"> 262</span> <span class="preprocessor">#define IS_TCL_BYTEARRAY(obj) ((obj)->typePtr == Tcl_ObjType_ByteArray)</span></div><div class="line"><a name="l00263"></a><span class="lineno"> 263</span> <span class="preprocessor">#define IS_TCL_STRING(obj) ((obj)->typePtr == Tcl_ObjType_String)</span></div><div class="line"><a name="l00264"></a><span class="lineno"> 264</span> <span class="preprocessor">#define IS_TCL_VALID_STRING(obj) ((obj)->bytes != (char*)NULL)</span></div><div class="line"><a name="l00265"></a><span class="lineno"> 265</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00266"></a><span class="lineno"> 266</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00267"></a><span class="lineno"> 267</span> </div><div class="line"><a name="l00268"></a><span class="lineno"> 268</span> <span class="preprocessor">#ifndef HAVE_RB_HASH_LOOKUP</span></div><div class="line"><a name="l00269"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b"> 269</a></span> <span class="preprocessor">#define rb_hash_lookup rb_hash_aref</span></div><div class="line"><a name="l00270"></a><span class="lineno"> 270</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00271"></a><span class="lineno"> 271</span> </div><div class="line"><a name="l00272"></a><span class="lineno"> 272</span> <span class="preprocessor">#ifndef HAVE_RB_THREAD_ALIVE_P</span></div><div class="line"><a name="l00273"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a598f7c4cee4b8028312b375364ac55b4"> 273</a></span> <span class="preprocessor">#define rb_thread_alive_p(thread) rb_funcall2((thread), ID_alive_p, 0, NULL)</span></div><div class="line"><a name="l00274"></a><span class="lineno"> 274</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00275"></a><span class="lineno"> 275</span> </div><div class="line"><a name="l00276"></a><span class="lineno"> 276</span> <span class="comment">/* safe Tcl_Eval and Tcl_GlobalEval */</span></div><div class="line"><a name="l00277"></a><span class="lineno"> 277</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l00278"></a><span class="lineno"> 278</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div><div class="line"><a name="l00279"></a><span class="lineno"> 279</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4cb3bb492242e5a0724d255d4b34a70a">tcl_eval</a>(Tcl_Interp *interp, <span class="keyword">const</span> <span class="keywordtype">char</span> *cmd)</div><div class="line"><a name="l00280"></a><span class="lineno"> 280</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00281"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a4cb3bb492242e5a0724d255d4b34a70a"> 281</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4cb3bb492242e5a0724d255d4b34a70a">tcl_eval</a>(interp, cmd)</div><div class="line"><a name="l00282"></a><span class="lineno"> 282</span>  Tcl_Interp *interp;</div><div class="line"><a name="l00283"></a><span class="lineno"> 283</span>  <span class="keyword">const</span> <span class="keywordtype">char</span> *cmd; <span class="comment">/* don't have to be writable */</span></div><div class="line"><a name="l00284"></a><span class="lineno"> 284</span> <span class="preprocessor">#endif</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="keywordtype">char</span> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a> = <a class="code" href="../../d8/d3c/util_8h.html#ad832104a69551cf1e4e347fffa9dc77c">strdup</a>(cmd);</div><div class="line"><a name="l00287"></a><span class="lineno"> 287</span>  <span class="keywordtype">int</span> ret;</div><div class="line"><a name="l00288"></a><span class="lineno"> 288</span> </div><div class="line"><a name="l00289"></a><span class="lineno"> 289</span>  Tcl_AllowExceptions(interp);</div><div class="line"><a name="l00290"></a><span class="lineno"> 290</span>  ret = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7e05442307639ca746f2560593ca9ca9">Tcl_Eval</a>(interp, <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>);</div><div class="line"><a name="l00291"></a><span class="lineno"> 291</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#a18100522f0b19b5e9b9875f5737a9386">free</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>);</div><div class="line"><a name="l00292"></a><span class="lineno"> 292</span>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l00293"></a><span class="lineno"> 293</span> }</div><div class="line"><a name="l00294"></a><span class="lineno"> 294</span> </div><div class="line"><a name="l00295"></a><span class="lineno"> 295</span> <span class="preprocessor">#undef Tcl_Eval</span></div><div class="line"><a name="l00296"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7e05442307639ca746f2560593ca9ca9"> 296</a></span> <span class="preprocessor">#define Tcl_Eval tcl_eval</span></div><div class="line"><a name="l00297"></a><span class="lineno"> 297</span> </div><div class="line"><a name="l00298"></a><span class="lineno"> 298</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l00299"></a><span class="lineno"> 299</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div><div class="line"><a name="l00300"></a><span class="lineno"> 300</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4c5cda5114e0653b26e5fa8cb3881762">tcl_global_eval</a>(Tcl_Interp *interp, <span class="keyword">const</span> <span class="keywordtype">char</span> *cmd)</div><div class="line"><a name="l00301"></a><span class="lineno"> 301</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00302"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a4c5cda5114e0653b26e5fa8cb3881762"> 302</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4c5cda5114e0653b26e5fa8cb3881762">tcl_global_eval</a>(interp, cmd)</div><div class="line"><a name="l00303"></a><span class="lineno"> 303</span>  Tcl_Interp *interp;</div><div class="line"><a name="l00304"></a><span class="lineno"> 304</span>  <span class="keyword">const</span> <span class="keywordtype">char</span> *cmd; <span class="comment">/* don't have to be writable */</span></div><div class="line"><a name="l00305"></a><span class="lineno"> 305</span> <span class="preprocessor">#endif</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="keywordtype">char</span> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a> = <a class="code" href="../../d8/d3c/util_8h.html#ad832104a69551cf1e4e347fffa9dc77c">strdup</a>(cmd);</div><div class="line"><a name="l00308"></a><span class="lineno"> 308</span>  <span class="keywordtype">int</span> ret;</div><div class="line"><a name="l00309"></a><span class="lineno"> 309</span> </div><div class="line"><a name="l00310"></a><span class="lineno"> 310</span>  Tcl_AllowExceptions(interp);</div><div class="line"><a name="l00311"></a><span class="lineno"> 311</span>  ret = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1011eb5bef1d3b60fdf51e46ce243153">Tcl_GlobalEval</a>(interp, <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>);</div><div class="line"><a name="l00312"></a><span class="lineno"> 312</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#a18100522f0b19b5e9b9875f5737a9386">free</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>);</div><div class="line"><a name="l00313"></a><span class="lineno"> 313</span>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l00314"></a><span class="lineno"> 314</span> }</div><div class="line"><a name="l00315"></a><span class="lineno"> 315</span> </div><div class="line"><a name="l00316"></a><span class="lineno"> 316</span> <span class="preprocessor">#undef Tcl_GlobalEval</span></div><div class="line"><a name="l00317"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a1011eb5bef1d3b60fdf51e46ce243153"> 317</a></span> <span class="preprocessor">#define Tcl_GlobalEval tcl_global_eval</span></div><div class="line"><a name="l00318"></a><span class="lineno"> 318</span> </div><div class="line"><a name="l00319"></a><span class="lineno"> 319</span> <span class="comment">/* Tcl_{Incr|Decr}RefCount for tcl7.x or earlier */</span></div><div class="line"><a name="l00320"></a><span class="lineno"> 320</span> <span class="preprocessor">#if TCL_MAJOR_VERSION < 8</span></div><div class="line"><a name="l00321"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b"> 321</a></span> <span class="preprocessor">#define Tcl_IncrRefCount(obj) (1)</span></div><div class="line"><a name="l00322"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480"> 322</a></span> <span class="preprocessor">#define Tcl_DecrRefCount(obj) (1)</span></div><div class="line"><a name="l00323"></a><span class="lineno"> 323</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00324"></a><span class="lineno"> 324</span> </div><div class="line"><a name="l00325"></a><span class="lineno"> 325</span> <span class="comment">/* Tcl_GetStringResult for tcl7.x or earlier */</span></div><div class="line"><a name="l00326"></a><span class="lineno"> 326</span> <span class="preprocessor">#if TCL_MAJOR_VERSION < 8</span></div><div class="line"><a name="l00327"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1"> 327</a></span> <span class="preprocessor">#define Tcl_GetStringResult(interp) ((interp)->result)</span></div><div class="line"><a name="l00328"></a><span class="lineno"> 328</span> <span class="preprocessor">#endif</span></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> <span class="comment">/* Tcl_[GS]etVar2Ex for tcl8.0 */</span></div><div class="line"><a name="l00331"></a><span class="lineno"> 331</span> <span class="preprocessor">#if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION == 0</span></div><div class="line"><a name="l00332"></a><span class="lineno"> 332</span> <span class="keyword">static</span> Tcl_Obj *</div><div class="line"><a name="l00333"></a><span class="lineno"> 333</span> Tcl_GetVar2Ex(interp, name1, name2, flags)</div><div class="line"><a name="l00334"></a><span class="lineno"> 334</span>  Tcl_Interp *interp;</div><div class="line"><a name="l00335"></a><span class="lineno"> 335</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *name1;</div><div class="line"><a name="l00336"></a><span class="lineno"> 336</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *name2;</div><div class="line"><a name="l00337"></a><span class="lineno"> 337</span>  <span class="keywordtype">int</span> flags;</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>  Tcl_Obj *nameObj1, *nameObj2 = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, *retObj;</div><div class="line"><a name="l00340"></a><span class="lineno"> 340</span> </div><div class="line"><a name="l00341"></a><span class="lineno"> 341</span>  nameObj1 = Tcl_NewStringObj((<span class="keywordtype">char</span>*)name1, -1);</div><div class="line"><a name="l00342"></a><span class="lineno"> 342</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(nameObj1);</div><div class="line"><a name="l00343"></a><span class="lineno"> 343</span> </div><div class="line"><a name="l00344"></a><span class="lineno"> 344</span>  <span class="keywordflow">if</span> (name2) {</div><div class="line"><a name="l00345"></a><span class="lineno"> 345</span>  nameObj2 = Tcl_NewStringObj((<span class="keywordtype">char</span>*)name2, -1);</div><div class="line"><a name="l00346"></a><span class="lineno"> 346</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(nameObj2);</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> </div><div class="line"><a name="l00349"></a><span class="lineno"> 349</span>  retObj = Tcl_ObjGetVar2(interp, nameObj1, nameObj2, flags);</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="keywordflow">if</span> (name2) {</div><div class="line"><a name="l00352"></a><span class="lineno"> 352</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(nameObj2);</div><div class="line"><a name="l00353"></a><span class="lineno"> 353</span>  }</div><div class="line"><a name="l00354"></a><span class="lineno"> 354</span> </div><div class="line"><a name="l00355"></a><span class="lineno"> 355</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(nameObj1);</div><div class="line"><a name="l00356"></a><span class="lineno"> 356</span> </div><div class="line"><a name="l00357"></a><span class="lineno"> 357</span>  <span class="keywordflow">return</span> retObj;</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> </div><div class="line"><a name="l00360"></a><span class="lineno"> 360</span> <span class="keyword">static</span> Tcl_Obj *</div><div class="line"><a name="l00361"></a><span class="lineno"> 361</span> Tcl_SetVar2Ex(interp, name1, name2, newValObj, flags)</div><div class="line"><a name="l00362"></a><span class="lineno"> 362</span>  Tcl_Interp *interp;</div><div class="line"><a name="l00363"></a><span class="lineno"> 363</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *name1;</div><div class="line"><a name="l00364"></a><span class="lineno"> 364</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *name2;</div><div class="line"><a name="l00365"></a><span class="lineno"> 365</span>  Tcl_Obj *newValObj;</div><div class="line"><a name="l00366"></a><span class="lineno"> 366</span>  <span class="keywordtype">int</span> flags;</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>  Tcl_Obj *nameObj1, *nameObj2 = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, *retObj;</div><div class="line"><a name="l00369"></a><span class="lineno"> 369</span> </div><div class="line"><a name="l00370"></a><span class="lineno"> 370</span>  nameObj1 = Tcl_NewStringObj((<span class="keywordtype">char</span>*)name1, -1);</div><div class="line"><a name="l00371"></a><span class="lineno"> 371</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(nameObj1);</div><div class="line"><a name="l00372"></a><span class="lineno"> 372</span> </div><div class="line"><a name="l00373"></a><span class="lineno"> 373</span>  <span class="keywordflow">if</span> (name2) {</div><div class="line"><a name="l00374"></a><span class="lineno"> 374</span>  nameObj2 = Tcl_NewStringObj((<span class="keywordtype">char</span>*)name2, -1);</div><div class="line"><a name="l00375"></a><span class="lineno"> 375</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(nameObj2);</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> </div><div class="line"><a name="l00378"></a><span class="lineno"> 378</span>  retObj = Tcl_ObjSetVar2(interp, nameObj1, nameObj2, newValObj, flags);</div><div class="line"><a name="l00379"></a><span class="lineno"> 379</span> </div><div class="line"><a name="l00380"></a><span class="lineno"> 380</span>  <span class="keywordflow">if</span> (name2) {</div><div class="line"><a name="l00381"></a><span class="lineno"> 381</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(nameObj2);</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> </div><div class="line"><a name="l00384"></a><span class="lineno"> 384</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(nameObj1);</div><div class="line"><a name="l00385"></a><span class="lineno"> 385</span> </div><div class="line"><a name="l00386"></a><span class="lineno"> 386</span>  <span class="keywordflow">return</span> retObj;</div><div class="line"><a name="l00387"></a><span class="lineno"> 387</span> }</div><div class="line"><a name="l00388"></a><span class="lineno"> 388</span> <span class="preprocessor">#endif</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="comment">/* from tkAppInit.c */</span></div><div class="line"><a name="l00391"></a><span class="lineno"> 391</span> </div><div class="line"><a name="l00392"></a><span class="lineno"> 392</span> <span class="preprocessor">#if TCL_MAJOR_VERSION < 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION < 4)</span></div><div class="line"><a name="l00393"></a><span class="lineno"> 393</span> <span class="preprocessor"># if !defined __MINGW32__ && !defined __BORLANDC__</span></div><div class="line"><a name="l00394"></a><span class="lineno"> 394</span> <span class="comment">/*</span></div><div class="line"><a name="l00395"></a><span class="lineno"> 395</span> <span class="comment"> * The following variable is a special hack that is needed in order for</span></div><div class="line"><a name="l00396"></a><span class="lineno"> 396</span> <span class="comment"> * Sun shared libraries to be used for Tcl.</span></div><div class="line"><a name="l00397"></a><span class="lineno"> 397</span> <span class="comment"> */</span></div><div class="line"><a name="l00398"></a><span class="lineno"> 398</span> </div><div class="line"><a name="l00399"></a><span class="lineno"> 399</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="l00400"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3b7081ae18bb9d9cff64fd6421a1dcdb"> 400</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="l00401"></a><span class="lineno"> 401</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00402"></a><span class="lineno"> 402</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00403"></a><span class="lineno"> 403</span> </div><div class="line"><a name="l00404"></a><span class="lineno"> 404</span> <span class="comment">/*---- module TclTkLib ----*/</span></div><div class="line"><a name="l00405"></a><span class="lineno"> 405</span> </div><div class="line"><a name="l00406"></a><span class="lineno"><a class="line" href="../../df/d4d/structinvoke__queue.html"> 406</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="l00407"></a><span class="lineno"><a class="line" href="../../df/d4d/structinvoke__queue.html#a2edeceb4f3e91cbae69b763b99c2c225"> 407</a></span>  Tcl_Event <a class="code" href="../../df/d4d/structinvoke__queue.html#a2edeceb4f3e91cbae69b763b99c2c225">ev</a>;</div><div class="line"><a name="l00408"></a><span class="lineno"><a class="line" href="../../df/d4d/structinvoke__queue.html#ae4660ad198c2f6d21644bb0b4a7748e5"> 408</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="l00409"></a><span class="lineno"> 409</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l00410"></a><span class="lineno"> 410</span>  Tcl_Obj **<a class="code" href="../../df/d4d/structinvoke__queue.html#ac0582b14336179bccf0217d3d7200063">argv</a>;</div><div class="line"><a name="l00411"></a><span class="lineno"> 411</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l00412"></a><span class="lineno"><a class="line" href="../../df/d4d/structinvoke__queue.html#ac0582b14336179bccf0217d3d7200063"> 412</a></span>  <span class="keywordtype">char</span> **<a class="code" href="../../df/d4d/structinvoke__queue.html#ac0582b14336179bccf0217d3d7200063">argv</a>;</div><div class="line"><a name="l00413"></a><span class="lineno"> 413</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00414"></a><span class="lineno"><a class="line" href="../../df/d4d/structinvoke__queue.html#acf486aed957a1768a4a80a7a057912df"> 414</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../df/d4d/structinvoke__queue.html#acf486aed957a1768a4a80a7a057912df">interp</a>;</div><div class="line"><a name="l00415"></a><span class="lineno"><a class="line" href="../../df/d4d/structinvoke__queue.html#a7e8a38587f5a0a3177d86c3d0abba76f"> 415</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="l00416"></a><span class="lineno"><a class="line" href="../../df/d4d/structinvoke__queue.html#a1e0eb15cc652633f1883bf1328502f59"> 416</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="l00417"></a><span class="lineno"><a class="line" href="../../df/d4d/structinvoke__queue.html#a3ee770c57941395252ce8a0673d40914"> 417</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../df/d4d/structinvoke__queue.html#a3ee770c57941395252ce8a0673d40914">result</a>;</div><div class="line"><a name="l00418"></a><span class="lineno"><a class="line" href="../../df/d4d/structinvoke__queue.html#adb618602021c5bdf5f6d973eefc7b983"> 418</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../df/d4d/structinvoke__queue.html#adb618602021c5bdf5f6d973eefc7b983">thread</a>;</div><div class="line"><a name="l00419"></a><span class="lineno"> 419</span> };</div><div class="line"><a name="l00420"></a><span class="lineno"> 420</span> </div><div class="line"><a name="l00421"></a><span class="lineno"><a class="line" href="../../de/d17/structeval__queue.html"> 421</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="l00422"></a><span class="lineno"><a class="line" href="../../de/d17/structeval__queue.html#a059ee495f45f2904277a72b0fff6a322"> 422</a></span>  Tcl_Event <a class="code" href="../../de/d17/structeval__queue.html#a059ee495f45f2904277a72b0fff6a322">ev</a>;</div><div class="line"><a name="l00423"></a><span class="lineno"><a class="line" href="../../de/d17/structeval__queue.html#aa4e9dc85f66fdcb7c3723741fed73a3b"> 423</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="l00424"></a><span class="lineno"><a class="line" href="../../de/d17/structeval__queue.html#a4d3b821dfc369ee9d6ffcc250feda3c1"> 424</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="l00425"></a><span class="lineno"><a class="line" href="../../de/d17/structeval__queue.html#a597f4df83c9d25f275e0e83fda96b47a"> 425</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../de/d17/structeval__queue.html#a597f4df83c9d25f275e0e83fda96b47a">interp</a>;</div><div class="line"><a name="l00426"></a><span class="lineno"><a class="line" href="../../de/d17/structeval__queue.html#adc749ca5e6e0e9bdd5e2c787ed3f4b32"> 426</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="l00427"></a><span class="lineno"><a class="line" href="../../de/d17/structeval__queue.html#a625a114231e88948a1556425c213d259"> 427</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="l00428"></a><span class="lineno"><a class="line" href="../../de/d17/structeval__queue.html#a41aad58e8a23dcf0370b40b9afebef6f"> 428</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../de/d17/structeval__queue.html#a41aad58e8a23dcf0370b40b9afebef6f">result</a>;</div><div class="line"><a name="l00429"></a><span class="lineno"><a class="line" href="../../de/d17/structeval__queue.html#ada0646ae22281aa3c00d86f8bebd6c9d"> 429</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../de/d17/structeval__queue.html#ada0646ae22281aa3c00d86f8bebd6c9d">thread</a>;</div><div class="line"><a name="l00430"></a><span class="lineno"> 430</span> };</div><div class="line"><a name="l00431"></a><span class="lineno"> 431</span> </div><div class="line"><a name="l00432"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html"> 432</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="l00433"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html#a45df10c3b9ffd2cf0572157be3bcbec4"> 433</a></span>  Tcl_Event <a class="code" href="../../df/db5/structcall__queue.html#a45df10c3b9ffd2cf0572157be3bcbec4">ev</a>;</div><div class="line"><a name="l00434"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html#a540c5867e3e06f497722e95e8b6d0d73"> 434</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> (*<a class="code" href="../../df/db5/structcall__queue.html#a540c5867e3e06f497722e95e8b6d0d73">func</a>)();</div><div class="line"><a name="l00435"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html#a91fe68bac1f77162fbe356d3b7812b9a"> 435</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="l00436"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html#a097b73e5bc4374d83e3103bb3fb4b40d"> 436</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/db5/structcall__queue.html#a097b73e5bc4374d83e3103bb3fb4b40d">argv</a>;</div><div class="line"><a name="l00437"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html#a3972740fcad6029560d33a85baf220a3"> 437</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../df/db5/structcall__queue.html#a3972740fcad6029560d33a85baf220a3">interp</a>;</div><div class="line"><a name="l00438"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html#a8a92b3683558cebdb46d573532c05132"> 438</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="l00439"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html#a2fd2c2694948a684ceafa73fe38fa3b6"> 439</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="l00440"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html#a5c7e8c167c5d49678aa368f966191b2e"> 440</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../df/db5/structcall__queue.html#a5c7e8c167c5d49678aa368f966191b2e">result</a>;</div><div class="line"><a name="l00441"></a><span class="lineno"><a class="line" href="../../df/db5/structcall__queue.html#af9fb1a0fdd886cd9585db5f86c4de119"> 441</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../df/db5/structcall__queue.html#af9fb1a0fdd886cd9585db5f86c4de119">thread</a>;</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> </div><div class="line"><a name="l00444"></a><span class="lineno"> 444</span> <span class="keywordtype">void</span></div><div class="line"><a name="l00445"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a86e277d5b14e9afcd73cb7cfd3d9a53b"> 445</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> *q)</div><div class="line"><a name="l00446"></a><span class="lineno"> 446</span> {</div><div class="line"><a name="l00447"></a><span class="lineno"> 447</span>  <a class="code" href="../../d8/d16/gc_8c.html#a98250264e6adf4924cf2becf80122325">rb_gc_mark</a>(q-><a class="code" href="../../df/d4d/structinvoke__queue.html#acf486aed957a1768a4a80a7a057912df">interp</a>);</div><div class="line"><a name="l00448"></a><span class="lineno"> 448</span>  <a class="code" href="../../d8/d16/gc_8c.html#a98250264e6adf4924cf2becf80122325">rb_gc_mark</a>(q-><a class="code" href="../../df/d4d/structinvoke__queue.html#a3ee770c57941395252ce8a0673d40914">result</a>);</div><div class="line"><a name="l00449"></a><span class="lineno"> 449</span>  <a class="code" href="../../d8/d16/gc_8c.html#a98250264e6adf4924cf2becf80122325">rb_gc_mark</a>(q-><a class="code" href="../../df/d4d/structinvoke__queue.html#adb618602021c5bdf5f6d973eefc7b983">thread</a>);</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> </div><div class="line"><a name="l00452"></a><span class="lineno"> 452</span> <span class="keywordtype">void</span></div><div class="line"><a name="l00453"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a11013c53b64754fe062f319736a45012"> 453</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> *q)</div><div class="line"><a name="l00454"></a><span class="lineno"> 454</span> {</div><div class="line"><a name="l00455"></a><span class="lineno"> 455</span>  <a class="code" href="../../d8/d16/gc_8c.html#a98250264e6adf4924cf2becf80122325">rb_gc_mark</a>(q-><a class="code" href="../../de/d17/structeval__queue.html#a597f4df83c9d25f275e0e83fda96b47a">interp</a>);</div><div class="line"><a name="l00456"></a><span class="lineno"> 456</span>  <a class="code" href="../../d8/d16/gc_8c.html#a98250264e6adf4924cf2becf80122325">rb_gc_mark</a>(q-><a class="code" href="../../de/d17/structeval__queue.html#a41aad58e8a23dcf0370b40b9afebef6f">result</a>);</div><div class="line"><a name="l00457"></a><span class="lineno"> 457</span>  <a class="code" href="../../d8/d16/gc_8c.html#a98250264e6adf4924cf2becf80122325">rb_gc_mark</a>(q-><a class="code" href="../../de/d17/structeval__queue.html#ada0646ae22281aa3c00d86f8bebd6c9d">thread</a>);</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> <span class="keywordtype">void</span></div><div class="line"><a name="l00461"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad4a7966ca861420d8f4e415f75b14329"> 461</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> *q)</div><div class="line"><a name="l00462"></a><span class="lineno"> 462</span> {</div><div class="line"><a name="l00463"></a><span class="lineno"> 463</span>  <span class="keywordtype">int</span> i;</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>  <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="l00466"></a><span class="lineno"> 466</span>  <a class="code" href="../../d8/d16/gc_8c.html#a98250264e6adf4924cf2becf80122325">rb_gc_mark</a>(q-><a class="code" href="../../df/db5/structcall__queue.html#a097b73e5bc4374d83e3103bb3fb4b40d">argv</a>[i]);</div><div class="line"><a name="l00467"></a><span class="lineno"> 467</span>  }</div><div class="line"><a name="l00468"></a><span class="lineno"> 468</span> </div><div class="line"><a name="l00469"></a><span class="lineno"> 469</span>  <a class="code" href="../../d8/d16/gc_8c.html#a98250264e6adf4924cf2becf80122325">rb_gc_mark</a>(q-><a class="code" href="../../df/db5/structcall__queue.html#a3972740fcad6029560d33a85baf220a3">interp</a>);</div><div class="line"><a name="l00470"></a><span class="lineno"> 470</span>  <a class="code" href="../../d8/d16/gc_8c.html#a98250264e6adf4924cf2becf80122325">rb_gc_mark</a>(q-><a class="code" href="../../df/db5/structcall__queue.html#a5c7e8c167c5d49678aa368f966191b2e">result</a>);</div><div class="line"><a name="l00471"></a><span class="lineno"> 471</span>  <a class="code" href="../../d8/d16/gc_8c.html#a98250264e6adf4924cf2becf80122325">rb_gc_mark</a>(q-><a class="code" href="../../df/db5/structcall__queue.html#af9fb1a0fdd886cd9585db5f86c4de119">thread</a>);</div><div class="line"><a name="l00472"></a><span class="lineno"> 472</span> }</div><div class="line"><a name="l00473"></a><span class="lineno"> 473</span> </div><div class="line"><a name="l00474"></a><span class="lineno"> 474</span> </div><div class="line"><a name="l00475"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d"> 475</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>;</div><div class="line"><a name="l00476"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a09520768374a3d97d15bad5db2dd06d8"> 476</a></span> <span class="keyword">static</span> Tcl_Interp *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a09520768374a3d97d15bad5db2dd06d8">eventloop_interp</a>;</div><div class="line"><a name="l00477"></a><span class="lineno"> 477</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l00478"></a><span class="lineno"> 478</span> Tcl_ThreadId tk_eventloop_thread_id; <span class="comment">/* native thread ID of Tcl interpreter */</span></div><div class="line"><a name="l00479"></a><span class="lineno"> 479</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00480"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a606d7647537ea0c5a15818642b884f6b"> 480</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a606d7647537ea0c5a15818642b884f6b">eventloop_stack</a>;</div><div class="line"><a name="l00481"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a1874132e952c92de8ac49397d4a67742"> 481</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="l00482"></a><span class="lineno"> 482</span> </div><div class="line"><a name="l00483"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a73ffc5e8c3f30a29963a2df64361b93a"> 483</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a73ffc5e8c3f30a29963a2df64361b93a">watchdog_thread</a>;</div><div class="line"><a name="l00484"></a><span class="lineno"> 484</span> </div><div class="line"><a name="l00485"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a067558608d86b7cda4a19dadf6533e26"> 485</a></span> Tcl_Interp *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a067558608d86b7cda4a19dadf6533e26">current_interp</a>;</div><div class="line"><a name="l00486"></a><span class="lineno"> 486</span> </div><div class="line"><a name="l00487"></a><span class="lineno"> 487</span> <span class="comment">/* thread control strategy */</span></div><div class="line"><a name="l00488"></a><span class="lineno"> 488</span> <span class="comment">/* multi-tk works with the following settings only ???</span></div><div class="line"><a name="l00489"></a><span class="lineno"> 489</span> <span class="comment"> : CONTROL_BY_STATUS_OF_RB_THREAD_WAITING_FOR_VALUE 1</span></div><div class="line"><a name="l00490"></a><span class="lineno"> 490</span> <span class="comment"> : USE_TOGGLE_WINDOW_MODE_FOR_IDLE 0</span></div><div class="line"><a name="l00491"></a><span class="lineno"> 491</span> <span class="comment"> : DO_THREAD_SCHEDULE_AT_CALLBACK_DONE 0</span></div><div class="line"><a name="l00492"></a><span class="lineno"> 492</span> <span class="comment">*/</span></div><div class="line"><a name="l00493"></a><span class="lineno"> 493</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l00494"></a><span class="lineno"> 494</span> <span class="preprocessor">#define CONTROL_BY_STATUS_OF_RB_THREAD_WAITING_FOR_VALUE 1</span></div><div class="line"><a name="l00495"></a><span class="lineno"> 495</span> <span class="preprocessor">#define USE_TOGGLE_WINDOW_MODE_FOR_IDLE 0</span></div><div class="line"><a name="l00496"></a><span class="lineno"> 496</span> <span class="preprocessor">#define DO_THREAD_SCHEDULE_AT_CALLBACK_DONE 1</span></div><div class="line"><a name="l00497"></a><span class="lineno"> 497</span> <span class="preprocessor">#else </span><span class="comment">/* ! RUBY_USE_NATIVE_THREAD */</span><span class="preprocessor"></span></div><div class="line"><a name="l00498"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a045e06e49b9726365609f762a260b685"> 498</a></span> <span class="preprocessor">#define CONTROL_BY_STATUS_OF_RB_THREAD_WAITING_FOR_VALUE 1</span></div><div class="line"><a name="l00499"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a28cc721dbd1c0e4bd31abc41e8882103"> 499</a></span> <span class="preprocessor">#define USE_TOGGLE_WINDOW_MODE_FOR_IDLE 0</span></div><div class="line"><a name="l00500"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac5b9c9dc69591a6f0adeb8b72b071664"> 500</a></span> <span class="preprocessor">#define DO_THREAD_SCHEDULE_AT_CALLBACK_DONE 0</span></div><div class="line"><a name="l00501"></a><span class="lineno"> 501</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00502"></a><span class="lineno"> 502</span> </div><div class="line"><a name="l00503"></a><span class="lineno"> 503</span> <span class="preprocessor">#if CONTROL_BY_STATUS_OF_RB_THREAD_WAITING_FOR_VALUE</span></div><div class="line"><a name="l00504"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a36aff997f6e550b516224b18bfe5bd25"> 504</a></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="l00505"></a><span class="lineno"> 505</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00506"></a><span class="lineno"> 506</span> </div><div class="line"><a name="l00507"></a><span class="lineno"> 507</span> <span class="comment">/*</span></div><div class="line"><a name="l00508"></a><span class="lineno"> 508</span> <span class="comment"> * 'event_loop_max' is a maximum events which the eventloop processes in one</span></div><div class="line"><a name="l00509"></a><span class="lineno"> 509</span> <span class="comment"> * term of thread scheduling. 'no_event_tick' is the count-up value when</span></div><div class="line"><a name="l00510"></a><span class="lineno"> 510</span> <span class="comment"> * there are no event for processing.</span></div><div class="line"><a name="l00511"></a><span class="lineno"> 511</span> <span class="comment"> * 'timer_tick' is a limit of one term of thread scheduling.</span></div><div class="line"><a name="l00512"></a><span class="lineno"> 512</span> <span class="comment"> * If 'timer_tick' == 0, then not use the timer for thread scheduling.</span></div><div class="line"><a name="l00513"></a><span class="lineno"> 513</span> <span class="comment"> */</span></div><div class="line"><a name="l00514"></a><span class="lineno"> 514</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l00515"></a><span class="lineno"> 515</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="l00516"></a><span class="lineno"> 516</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="l00517"></a><span class="lineno"> 517</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="l00518"></a><span class="lineno"> 518</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="l00519"></a><span class="lineno"> 519</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="l00520"></a><span class="lineno"> 520</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="l00521"></a><span class="lineno"> 521</span> <span class="preprocessor">#else </span><span class="comment">/* ! RUBY_USE_NATIVE_THREAD */</span><span class="preprocessor"></span></div><div class="line"><a name="l00522"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5ce127b34dfbccc8bdf11cf2dc8d6a98"> 522</a></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="l00523"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a594d7e3a170e739fd5318c39a4382cd2"> 523</a></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="l00524"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ab5316b816b8a91e4a8c23563c0a6d19d"> 524</a></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="l00525"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a92353a0b223e78081b022d5a33870967"> 525</a></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="l00526"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#acb65bdbeee9f9d3a838ad16bcb957e04"> 526</a></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="l00527"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a18f3feef1d89c72c2ea59a0ce2dd8366"> 527</a></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="l00528"></a><span class="lineno"> 528</span> <span class="preprocessor">#endif</span></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#afbd2530678e6262a587dd99dedeb053b"> 530</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="l00531"></a><span class="lineno"> 531</span> </div><div class="line"><a name="l00532"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8a799d2eb1758e37f3d53a9685db4b5b"> 532</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8a799d2eb1758e37f3d53a9685db4b5b">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="l00533"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a69dfe84ee096c35fae385ff59fbc95d9"> 533</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a69dfe84ee096c35fae385ff59fbc95d9">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="l00534"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5cd666e3d3aacd7c40e7f8132f0f2db6"> 534</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5cd666e3d3aacd7c40e7f8132f0f2db6">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="l00535"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3b56c2ca4a23c4296f7b38db44424a3d"> 535</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3b56c2ca4a23c4296f7b38db44424a3d">timer_tick</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#acb65bdbeee9f9d3a838ad16bcb957e04">DEFAULT_TIMER_TICK</a>;</div><div class="line"><a name="l00536"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aee699b1c46e61042b7675d02247208fb"> 536</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="l00537"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a19128ae2c34cb86eeda84fdc1ad3a582"> 537</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a19128ae2c34cb86eeda84fdc1ad3a582">run_timer_flag</a> = 0;</div><div class="line"><a name="l00538"></a><span class="lineno"> 538</span> </div><div class="line"><a name="l00539"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af2723ded53fcb84d63096a8272b5b3f6"> 539</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="l00540"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae8b4f77514e0422a4f7597d3ba5728ea"> 540</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="l00541"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae4eb912710ffa8fbc4ce6275ea1f23af"> 541</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="l00542"></a><span class="lineno"> 542</span> </div><div class="line"><a name="l00543"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a4a637ca8a762090680e727e293544aea"> 543</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4a637ca8a762090680e727e293544aea">check_rootwidget_flag</a> = 0;</div><div class="line"><a name="l00544"></a><span class="lineno"> 544</span> </div><div class="line"><a name="l00545"></a><span class="lineno"> 545</span> </div><div class="line"><a name="l00546"></a><span class="lineno"> 546</span> <span class="comment">/* call ruby interpreter */</span></div><div class="line"><a name="l00547"></a><span class="lineno"> 547</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l00548"></a><span class="lineno"> 548</span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9649e91a7475facf32db7a1e06d170cd">ip_ruby_eval</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</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="l00549"></a><span class="lineno"> 549</span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa1cc4fb1e40a147c166a6639894cec69">ip_ruby_cmd</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</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="l00550"></a><span class="lineno"> 550</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l00551"></a><span class="lineno"> 551</span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9649e91a7475facf32db7a1e06d170cd">ip_ruby_eval</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>, <span class="keywordtype">char</span> **));</div><div class="line"><a name="l00552"></a><span class="lineno"> 552</span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa1cc4fb1e40a147c166a6639894cec69">ip_ruby_cmd</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>, <span class="keywordtype">char</span> **));</div><div class="line"><a name="l00553"></a><span class="lineno"> 553</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00554"></a><span class="lineno"> 554</span> </div><div class="line"><a name="l00555"></a><span class="lineno"><a class="line" href="../../d6/d58/structcmd__body__arg.html"> 555</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="l00556"></a><span class="lineno"><a class="line" href="../../d6/d58/structcmd__body__arg.html#a6cc0250b850b77f58f01f05913e3ddab"> 556</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d6/d58/structcmd__body__arg.html#a6cc0250b850b77f58f01f05913e3ddab">receiver</a>;</div><div class="line"><a name="l00557"></a><span class="lineno"><a class="line" href="../../d6/d58/structcmd__body__arg.html#ac9ac9c13c40fba180d11b3cad2303b6f"> 557</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="l00558"></a><span class="lineno"><a class="line" href="../../d6/d58/structcmd__body__arg.html#a69cc5f5a65054e5b276eeb78716cbeb9"> 558</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d6/d58/structcmd__body__arg.html#a69cc5f5a65054e5b276eeb78716cbeb9">args</a>;</div><div class="line"><a name="l00559"></a><span class="lineno"> 559</span> };</div><div class="line"><a name="l00560"></a><span class="lineno"> 560</span> </div><div class="line"><a name="l00561"></a><span class="lineno"> 561</span> <span class="comment">/*----------------------------*/</span></div><div class="line"><a name="l00562"></a><span class="lineno"> 562</span> <span class="comment">/* use Tcl internal functions */</span></div><div class="line"><a name="l00563"></a><span class="lineno"> 563</span> <span class="comment">/*----------------------------*/</span></div><div class="line"><a name="l00564"></a><span class="lineno"> 564</span> <span class="preprocessor">#ifndef TCL_NAMESPACE_DEBUG</span></div><div class="line"><a name="l00565"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a780b4b4af2feb2b9f44efd3f97b46f27"> 565</a></span> <span class="preprocessor">#define TCL_NAMESPACE_DEBUG 0</span></div><div class="line"><a name="l00566"></a><span class="lineno"> 566</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00567"></a><span class="lineno"> 567</span> </div><div class="line"><a name="l00568"></a><span class="lineno"> 568</span> <span class="preprocessor">#if TCL_NAMESPACE_DEBUG</span></div><div class="line"><a name="l00569"></a><span class="lineno"> 569</span> </div><div class="line"><a name="l00570"></a><span class="lineno"> 570</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l00571"></a><span class="lineno"> 571</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="l00572"></a><span class="lineno"> 572</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00573"></a><span class="lineno"> 573</span> </div><div class="line"><a name="l00574"></a><span class="lineno"> 574</span> <span class="comment">/*-- Tcl_GetCurrentNamespace --*/</span></div><div class="line"><a name="l00575"></a><span class="lineno"> 575</span> <span class="preprocessor">#if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION < 5</span></div><div class="line"><a name="l00576"></a><span class="lineno"> 576</span> <span class="comment">/* Tcl7.x doesn't have namespace support. */</span></div><div class="line"><a name="l00577"></a><span class="lineno"> 577</span> <span class="comment">/* Tcl8.5+ has definition of Tcl_GetCurrentNamespace() in tclDecls.h */</span></div><div class="line"><a name="l00578"></a><span class="lineno"> 578</span> <span class="preprocessor"># ifndef Tcl_GetCurrentNamespace</span></div><div class="line"><a name="l00579"></a><span class="lineno"> 579</span> <a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> Tcl_Namespace * Tcl_GetCurrentNamespace <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((Tcl_Interp *));</div><div class="line"><a name="l00580"></a><span class="lineno"> 580</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00581"></a><span class="lineno"> 581</span> <span class="preprocessor"># if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)</span></div><div class="line"><a name="l00582"></a><span class="lineno"> 582</span> <span class="preprocessor"># ifndef Tcl_GetCurrentNamespace</span></div><div class="line"><a name="l00583"></a><span class="lineno"> 583</span> <span class="preprocessor"># ifndef FunctionNum_of_GetCurrentNamespace</span></div><div class="line"><a name="l00584"></a><span class="lineno"> 584</span> <span class="preprocessor">#define FunctionNum_of_GetCurrentNamespace 124</span></div><div class="line"><a name="l00585"></a><span class="lineno"> 585</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00586"></a><span class="lineno"> 586</span> <span class="keyword">struct </span>DummyTclIntStubs_for_GetCurrentNamespace {</div><div class="line"><a name="l00587"></a><span class="lineno"> 587</span>  <span class="keywordtype">int</span> magic;</div><div class="line"><a name="l00588"></a><span class="lineno"> 588</span>  <span class="keyword">struct </span>TclIntStubHooks *hooks;</div><div class="line"><a name="l00589"></a><span class="lineno"> 589</span>  void (*<a class="code" href="../../dc/dd1/ossl__ssl_8c.html#a86771351f4ef469ab9c94739a64fd7ea">func</a>[FunctionNum_of_GetCurrentNamespace])();</div><div class="line"><a name="l00590"></a><span class="lineno"> 590</span>  Tcl_Namespace * (*tcl_GetCurrentNamespace) <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((Tcl_Interp *));</div><div class="line"><a name="l00591"></a><span class="lineno"> 591</span> };</div><div class="line"><a name="l00592"></a><span class="lineno"> 592</span> </div><div class="line"><a name="l00593"></a><span class="lineno"> 593</span> <span class="preprocessor">#define Tcl_GetCurrentNamespace \</span></div><div class="line"><a name="l00594"></a><span class="lineno"> 594</span> <span class="preprocessor"> (((struct DummyTclIntStubs_for_GetCurrentNamespace *)tclIntStubsPtr)->tcl_GetCurrentNamespace)</span></div><div class="line"><a name="l00595"></a><span class="lineno"> 595</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00596"></a><span class="lineno"> 596</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00597"></a><span class="lineno"> 597</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00598"></a><span class="lineno"> 598</span> </div><div class="line"><a name="l00599"></a><span class="lineno"> 599</span> <span class="comment">/* namespace check */</span></div><div class="line"><a name="l00600"></a><span class="lineno"> 600</span> <span class="comment">/* ip_null_namespace(Tcl_Interp *interp) */</span></div><div class="line"><a name="l00601"></a><span class="lineno"> 601</span> <span class="preprocessor">#if TCL_MAJOR_VERSION < 8</span></div><div class="line"><a name="l00602"></a><span class="lineno"> 602</span> <span class="preprocessor">#define ip_null_namespace(interp) (0)</span></div><div class="line"><a name="l00603"></a><span class="lineno"> 603</span> <span class="preprocessor">#else </span><span class="comment">/* support namespace */</span><span class="preprocessor"></span></div><div class="line"><a name="l00604"></a><span class="lineno"> 604</span> <span class="preprocessor">#define ip_null_namespace(interp) \</span></div><div class="line"><a name="l00605"></a><span class="lineno"> 605</span> <span class="preprocessor"> (Tcl_GetCurrentNamespace(interp) == (Tcl_Namespace *)NULL)</span></div><div class="line"><a name="l00606"></a><span class="lineno"> 606</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00607"></a><span class="lineno"> 607</span> </div><div class="line"><a name="l00608"></a><span class="lineno"> 608</span> <span class="comment">/* rbtk_invalid_namespace(tcltkip *ptr) */</span></div><div class="line"><a name="l00609"></a><span class="lineno"> 609</span> <span class="preprocessor">#if TCL_MAJOR_VERSION < 8</span></div><div class="line"><a name="l00610"></a><span class="lineno"> 610</span> <span class="preprocessor">#define rbtk_invalid_namespace(ptr) (0)</span></div><div class="line"><a name="l00611"></a><span class="lineno"> 611</span> <span class="preprocessor">#else </span><span class="comment">/* support namespace */</span><span class="preprocessor"></span></div><div class="line"><a name="l00612"></a><span class="lineno"> 612</span> <span class="preprocessor">#define rbtk_invalid_namespace(ptr) \</span></div><div class="line"><a name="l00613"></a><span class="lineno"> 613</span> <span class="preprocessor"> ((ptr)->default_ns == (Tcl_Namespace*)NULL || Tcl_GetCurrentNamespace((ptr)->ip) != (ptr)->default_ns)</span></div><div class="line"><a name="l00614"></a><span class="lineno"> 614</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00615"></a><span class="lineno"> 615</span> </div><div class="line"><a name="l00616"></a><span class="lineno"> 616</span> <span class="comment">/*-- Tcl_PopCallFrame & Tcl_PushCallFrame --*/</span></div><div class="line"><a name="l00617"></a><span class="lineno"> 617</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l00618"></a><span class="lineno"> 618</span> <span class="preprocessor"># ifndef CallFrame</span></div><div class="line"><a name="l00619"></a><span class="lineno"> 619</span> <span class="keyword">typedef</span> <span class="keyword">struct </span>CallFrame {</div><div class="line"><a name="l00620"></a><span class="lineno"> 620</span>  Tcl_Namespace *nsPtr;</div><div class="line"><a name="l00621"></a><span class="lineno"> 621</span>  <span class="keywordtype">int</span> dummy1;</div><div class="line"><a name="l00622"></a><span class="lineno"> 622</span>  <span class="keywordtype">int</span> dummy2;</div><div class="line"><a name="l00623"></a><span class="lineno"> 623</span>  <span class="keywordtype">char</span> *dummy3;</div><div class="line"><a name="l00624"></a><span class="lineno"> 624</span>  <span class="keyword">struct </span>CallFrame *callerPtr;</div><div class="line"><a name="l00625"></a><span class="lineno"> 625</span>  <span class="keyword">struct </span>CallFrame *callerVarPtr;</div><div class="line"><a name="l00626"></a><span class="lineno"> 626</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d38/vm__exec_8c.html">level</a>;</div><div class="line"><a name="l00627"></a><span class="lineno"> 627</span>  <span class="keywordtype">char</span> *dummy7;</div><div class="line"><a name="l00628"></a><span class="lineno"> 628</span>  <span class="keywordtype">char</span> *dummy8;</div><div class="line"><a name="l00629"></a><span class="lineno"> 629</span>  <span class="keywordtype">int</span> dummy9;</div><div class="line"><a name="l00630"></a><span class="lineno"> 630</span>  <span class="keywordtype">char</span>* dummy10;</div><div class="line"><a name="l00631"></a><span class="lineno"> 631</span> } CallFrame;</div><div class="line"><a name="l00632"></a><span class="lineno"> 632</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00633"></a><span class="lineno"> 633</span> </div><div class="line"><a name="l00634"></a><span class="lineno"> 634</span> <span class="preprocessor"># if !defined(TclGetFrame) && !defined(TclGetFrame_TCL_DECLARED)</span></div><div class="line"><a name="l00635"></a><span class="lineno"> 635</span> <a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keywordtype">int</span> TclGetFrame <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</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="l00636"></a><span class="lineno"> 636</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00637"></a><span class="lineno"> 637</span> <span class="preprocessor"># if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)</span></div><div class="line"><a name="l00638"></a><span class="lineno"> 638</span> <span class="preprocessor"># ifndef TclGetFrame</span></div><div class="line"><a name="l00639"></a><span class="lineno"> 639</span> <span class="preprocessor"># ifndef FunctionNum_of_GetFrame</span></div><div class="line"><a name="l00640"></a><span class="lineno"> 640</span> <span class="preprocessor">#define FunctionNum_of_GetFrame 32</span></div><div class="line"><a name="l00641"></a><span class="lineno"> 641</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00642"></a><span class="lineno"> 642</span> <span class="keyword">struct </span>DummyTclIntStubs_for_GetFrame {</div><div class="line"><a name="l00643"></a><span class="lineno"> 643</span>  <span class="keywordtype">int</span> magic;</div><div class="line"><a name="l00644"></a><span class="lineno"> 644</span>  <span class="keyword">struct </span>TclIntStubHooks *hooks;</div><div class="line"><a name="l00645"></a><span class="lineno"> 645</span>  void (*<a class="code" href="../../dc/dd1/ossl__ssl_8c.html#a86771351f4ef469ab9c94739a64fd7ea">func</a>[FunctionNum_of_GetFrame])();</div><div class="line"><a name="l00646"></a><span class="lineno"> 646</span>  int (*tclGetFrame) <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</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="l00647"></a><span class="lineno"> 647</span> };</div><div class="line"><a name="l00648"></a><span class="lineno"> 648</span> <span class="preprocessor">#define TclGetFrame \</span></div><div class="line"><a name="l00649"></a><span class="lineno"> 649</span> <span class="preprocessor"> (((struct DummyTclIntStubs_for_GetFrame *)tclIntStubsPtr)->tclGetFrame)</span></div><div class="line"><a name="l00650"></a><span class="lineno"> 650</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00651"></a><span class="lineno"> 651</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00652"></a><span class="lineno"> 652</span> </div><div class="line"><a name="l00653"></a><span class="lineno"> 653</span> <span class="preprocessor"># if !defined(Tcl_PopCallFrame) && !defined(Tcl_PopCallFrame_TCL_DECLARED)</span></div><div class="line"><a name="l00654"></a><span class="lineno"> 654</span> <a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keywordtype">void</span> Tcl_PopCallFrame <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((Tcl_Interp *));</div><div class="line"><a name="l00655"></a><span class="lineno"> 655</span> <a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keywordtype">int</span> Tcl_PushCallFrame <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((Tcl_Interp *, Tcl_CallFrame *, Tcl_Namespace *, <span class="keywordtype">int</span>));</div><div class="line"><a name="l00656"></a><span class="lineno"> 656</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00657"></a><span class="lineno"> 657</span> <span class="preprocessor"># if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)</span></div><div class="line"><a name="l00658"></a><span class="lineno"> 658</span> <span class="preprocessor"># ifndef Tcl_PopCallFrame</span></div><div class="line"><a name="l00659"></a><span class="lineno"> 659</span> <span class="preprocessor"># ifndef FunctionNum_of_PopCallFrame</span></div><div class="line"><a name="l00660"></a><span class="lineno"> 660</span> <span class="preprocessor">#define FunctionNum_of_PopCallFrame 128</span></div><div class="line"><a name="l00661"></a><span class="lineno"> 661</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00662"></a><span class="lineno"> 662</span> <span class="keyword">struct </span>DummyTclIntStubs_for_PopCallFrame {</div><div class="line"><a name="l00663"></a><span class="lineno"> 663</span>  <span class="keywordtype">int</span> magic;</div><div class="line"><a name="l00664"></a><span class="lineno"> 664</span>  <span class="keyword">struct </span>TclIntStubHooks *hooks;</div><div class="line"><a name="l00665"></a><span class="lineno"> 665</span>  void (*<a class="code" href="../../dc/dd1/ossl__ssl_8c.html#a86771351f4ef469ab9c94739a64fd7ea">func</a>[FunctionNum_of_PopCallFrame])();</div><div class="line"><a name="l00666"></a><span class="lineno"> 666</span>  void (*tcl_PopCallFrame) <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((Tcl_Interp *));</div><div class="line"><a name="l00667"></a><span class="lineno"> 667</span>  int (*tcl_PushCallFrame) <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((Tcl_Interp *, Tcl_CallFrame *, Tcl_Namespace *, <span class="keywordtype">int</span>));</div><div class="line"><a name="l00668"></a><span class="lineno"> 668</span> };</div><div class="line"><a name="l00669"></a><span class="lineno"> 669</span> </div><div class="line"><a name="l00670"></a><span class="lineno"> 670</span> <span class="preprocessor">#define Tcl_PopCallFrame \</span></div><div class="line"><a name="l00671"></a><span class="lineno"> 671</span> <span class="preprocessor"> (((struct DummyTclIntStubs_for_PopCallFrame *)tclIntStubsPtr)->tcl_PopCallFrame)</span></div><div class="line"><a name="l00672"></a><span class="lineno"> 672</span> <span class="preprocessor">#define Tcl_PushCallFrame \</span></div><div class="line"><a name="l00673"></a><span class="lineno"> 673</span> <span class="preprocessor"> (((struct DummyTclIntStubs_for_PopCallFrame *)tclIntStubsPtr)->tcl_PushCallFrame)</span></div><div class="line"><a name="l00674"></a><span class="lineno"> 674</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00675"></a><span class="lineno"> 675</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00676"></a><span class="lineno"> 676</span> </div><div class="line"><a name="l00677"></a><span class="lineno"> 677</span> <span class="preprocessor">#else </span><span class="comment">/* Tcl7.x */</span><span class="preprocessor"></span></div><div class="line"><a name="l00678"></a><span class="lineno"> 678</span> <span class="preprocessor"># ifndef CallFrame</span></div><div class="line"><a name="l00679"></a><span class="lineno"> 679</span> <span class="keyword">typedef</span> <span class="keyword">struct </span>CallFrame {</div><div class="line"><a name="l00680"></a><span class="lineno"> 680</span>  Tcl_HashTable varTable;</div><div class="line"><a name="l00681"></a><span class="lineno"> 681</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d38/vm__exec_8c.html">level</a>;</div><div class="line"><a name="l00682"></a><span class="lineno"> 682</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l00683"></a><span class="lineno"> 683</span>  <span class="keywordtype">char</span> **<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l00684"></a><span class="lineno"> 684</span>  <span class="keyword">struct </span>CallFrame *callerPtr;</div><div class="line"><a name="l00685"></a><span class="lineno"> 685</span>  <span class="keyword">struct </span>CallFrame *callerVarPtr;</div><div class="line"><a name="l00686"></a><span class="lineno"> 686</span> } CallFrame;</div><div class="line"><a name="l00687"></a><span class="lineno"> 687</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00688"></a><span class="lineno"> 688</span> <span class="preprocessor"># ifndef Tcl_CallFrame</span></div><div class="line"><a name="l00689"></a><span class="lineno"> 689</span> <span class="preprocessor">#define Tcl_CallFrame CallFrame</span></div><div class="line"><a name="l00690"></a><span class="lineno"> 690</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00691"></a><span class="lineno"> 691</span> </div><div class="line"><a name="l00692"></a><span class="lineno"> 692</span> <span class="preprocessor"># if !defined(TclGetFrame) && !defined(TclGetFrame_TCL_DECLARED)</span></div><div class="line"><a name="l00693"></a><span class="lineno"> 693</span> <a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keywordtype">int</span> TclGetFrame <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</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="l00694"></a><span class="lineno"> 694</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00695"></a><span class="lineno"> 695</span> </div><div class="line"><a name="l00696"></a><span class="lineno"> 696</span> <span class="preprocessor"># if !defined(Tcl_PopCallFrame) && !defined(Tcl_PopCallFrame_TCL_DECLARED)</span></div><div class="line"><a name="l00697"></a><span class="lineno"> 697</span> <span class="keyword">typedef</span> <span class="keyword">struct </span>DummyInterp {</div><div class="line"><a name="l00698"></a><span class="lineno"> 698</span>  <span class="keywordtype">char</span> *dummy1;</div><div class="line"><a name="l00699"></a><span class="lineno"> 699</span>  <span class="keywordtype">char</span> *dummy2;</div><div class="line"><a name="l00700"></a><span class="lineno"> 700</span>  <span class="keywordtype">int</span> dummy3;</div><div class="line"><a name="l00701"></a><span class="lineno"> 701</span>  Tcl_HashTable dummy4;</div><div class="line"><a name="l00702"></a><span class="lineno"> 702</span>  Tcl_HashTable dummy5;</div><div class="line"><a name="l00703"></a><span class="lineno"> 703</span>  Tcl_HashTable dummy6;</div><div class="line"><a name="l00704"></a><span class="lineno"> 704</span>  <span class="keywordtype">int</span> numLevels;</div><div class="line"><a name="l00705"></a><span class="lineno"> 705</span>  <span class="keywordtype">int</span> maxNestingDepth;</div><div class="line"><a name="l00706"></a><span class="lineno"> 706</span>  CallFrame *framePtr;</div><div class="line"><a name="l00707"></a><span class="lineno"> 707</span>  CallFrame *varFramePtr;</div><div class="line"><a name="l00708"></a><span class="lineno"> 708</span> } DummyInterp;</div><div class="line"><a name="l00709"></a><span class="lineno"> 709</span> </div><div class="line"><a name="l00710"></a><span class="lineno"> 710</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l00711"></a><span class="lineno"> 711</span> Tcl_PopCallFrame(interp)</div><div class="line"><a name="l00712"></a><span class="lineno"> 712</span>  Tcl_Interp *interp;</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>  DummyInterp *iPtr = (DummyInterp*)interp;</div><div class="line"><a name="l00715"></a><span class="lineno"> 715</span>  CallFrame *frame = iPtr->varFramePtr;</div><div class="line"><a name="l00716"></a><span class="lineno"> 716</span> </div><div class="line"><a name="l00717"></a><span class="lineno"> 717</span>  <span class="comment">/* **** DUMMY **** */</span></div><div class="line"><a name="l00718"></a><span class="lineno"> 718</span>  iPtr->framePtr = frame.callerPtr;</div><div class="line"><a name="l00719"></a><span class="lineno"> 719</span>  iPtr->varFramePtr = frame.callerVarPtr;</div><div class="line"><a name="l00720"></a><span class="lineno"> 720</span> </div><div class="line"><a name="l00721"></a><span class="lineno"> 721</span>  <span class="keywordflow">return</span> TCL_OK;</div><div class="line"><a name="l00722"></a><span class="lineno"> 722</span> }</div><div class="line"><a name="l00723"></a><span class="lineno"> 723</span> </div><div class="line"><a name="l00724"></a><span class="lineno"> 724</span> <span class="comment">/* dummy */</span></div><div class="line"><a name="l00725"></a><span class="lineno"> 725</span> <span class="preprocessor">#define Tcl_Namespace char</span></div><div class="line"><a name="l00726"></a><span class="lineno"> 726</span> </div><div class="line"><a name="l00727"></a><span class="lineno"> 727</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l00728"></a><span class="lineno"> 728</span> Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame)</div><div class="line"><a name="l00729"></a><span class="lineno"> 729</span>  Tcl_Interp *interp;</div><div class="line"><a name="l00730"></a><span class="lineno"> 730</span>  Tcl_CallFrame *framePtr;</div><div class="line"><a name="l00731"></a><span class="lineno"> 731</span>  Tcl_Namespace *nsPtr;</div><div class="line"><a name="l00732"></a><span class="lineno"> 732</span>  <span class="keywordtype">int</span> isProcCallFrame;</div><div class="line"><a name="l00733"></a><span class="lineno"> 733</span> {</div><div class="line"><a name="l00734"></a><span class="lineno"> 734</span>  DummyInterp *iPtr = (DummyInterp*)interp;</div><div class="line"><a name="l00735"></a><span class="lineno"> 735</span>  CallFrame *frame = (CallFrame *)framePtr;</div><div class="line"><a name="l00736"></a><span class="lineno"> 736</span> </div><div class="line"><a name="l00737"></a><span class="lineno"> 737</span>  <span class="comment">/* **** DUMMY **** */</span></div><div class="line"><a name="l00738"></a><span class="lineno"> 738</span>  Tcl_InitHashTable(&frame.varTable, TCL_STRING_KEYS);</div><div class="line"><a name="l00739"></a><span class="lineno"> 739</span>  <span class="keywordflow">if</span> (iPtr->varFramePtr != <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l00740"></a><span class="lineno"> 740</span>  frame.level = iPtr->varFramePtr->level + 1;</div><div class="line"><a name="l00741"></a><span class="lineno"> 741</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l00742"></a><span class="lineno"> 742</span>  frame.level = 1;</div><div class="line"><a name="l00743"></a><span class="lineno"> 743</span>  }</div><div class="line"><a name="l00744"></a><span class="lineno"> 744</span>  frame.callerPtr = iPtr->framePtr;</div><div class="line"><a name="l00745"></a><span class="lineno"> 745</span>  frame.callerVarPtr = iPtr->varFramePtr;</div><div class="line"><a name="l00746"></a><span class="lineno"> 746</span>  iPtr->framePtr = &frame;</div><div class="line"><a name="l00747"></a><span class="lineno"> 747</span>  iPtr->varFramePtr = &frame;</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="keywordflow">return</span> TCL_OK;</div><div class="line"><a name="l00750"></a><span class="lineno"> 750</span> }</div><div class="line"><a name="l00751"></a><span class="lineno"> 751</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l00752"></a><span class="lineno"> 752</span> </div><div class="line"><a name="l00753"></a><span class="lineno"> 753</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00754"></a><span class="lineno"> 754</span> </div><div class="line"><a name="l00755"></a><span class="lineno"> 755</span> <span class="preprocessor">#endif </span><span class="comment">/* TCL_NAMESPACE_DEBUG */</span><span class="preprocessor"></span></div><div class="line"><a name="l00756"></a><span class="lineno"> 756</span> </div><div class="line"><a name="l00757"></a><span class="lineno"> 757</span> </div><div class="line"><a name="l00758"></a><span class="lineno"> 758</span> <span class="comment">/*---- class TclTkIp ----*/</span></div><div class="line"><a name="l00759"></a><span class="lineno"><a class="line" href="../../db/d19/structtcltkip.html"> 759</a></span> <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> {</div><div class="line"><a name="l00760"></a><span class="lineno"><a class="line" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272"> 760</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="l00761"></a><span class="lineno"> 761</span> <span class="preprocessor">#if TCL_NAMESPACE_DEBUG</span></div><div class="line"><a name="l00762"></a><span class="lineno"> 762</span>  Tcl_Namespace *default_ns; <span class="comment">/* default namespace */</span></div><div class="line"><a name="l00763"></a><span class="lineno"> 763</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00764"></a><span class="lineno"> 764</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l00765"></a><span class="lineno"> 765</span>  Tcl_ThreadId tk_thread_id; <span class="comment">/* native thread ID of Tcl interpreter */</span></div><div class="line"><a name="l00766"></a><span class="lineno"> 766</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00767"></a><span class="lineno"><a class="line" href="../../db/d19/structtcltkip.html#a806a9dbb2520a6a3fc1eb1d860537c63"> 767</a></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="l00768"></a><span class="lineno"><a class="line" href="../../db/d19/structtcltkip.html#a15f267a597e541e9816d481777696dc1"> 768</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="l00769"></a><span class="lineno"><a class="line" href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f"> 769</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="l00770"></a><span class="lineno"><a class="line" href="../../db/d19/structtcltkip.html#ace5c5b6dab42be91b5cf7389a84cbb2c"> 770</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="l00771"></a><span class="lineno"><a class="line" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727"> 771</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="l00772"></a><span class="lineno"> 772</span> };</div><div class="line"><a name="l00773"></a><span class="lineno"> 773</span> </div><div class="line"><a name="l00774"></a><span class="lineno"> 774</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="l00775"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6"> 775</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l00776"></a><span class="lineno"> 776</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l00777"></a><span class="lineno"> 777</span> {</div><div class="line"><a name="l00778"></a><span class="lineno"> 778</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div><div class="line"><a name="l00779"></a><span class="lineno"> 779</span> </div><div class="line"><a name="l00780"></a><span class="lineno"> 780</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="l00781"></a><span class="lineno"> 781</span>  <span class="keywordflow">if</span> (ptr == 0) {</div><div class="line"><a name="l00782"></a><span class="lineno"> 782</span>  <span class="comment">/* rb_raise(rb_eTypeError, "uninitialized TclTkIp"); */</span></div><div class="line"><a name="l00783"></a><span class="lineno"> 783</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="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l00784"></a><span class="lineno"> 784</span>  }</div><div class="line"><a name="l00785"></a><span class="lineno"> 785</span>  <span class="keywordflow">if</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a> == (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l00786"></a><span class="lineno"> 786</span>  <span class="comment">/* rb_raise(rb_eRuntimeError, "deleted IP"); */</span></div><div class="line"><a name="l00787"></a><span class="lineno"> 787</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="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l00788"></a><span class="lineno"> 788</span>  }</div><div class="line"><a name="l00789"></a><span class="lineno"> 789</span>  <span class="keywordflow">return</span> ptr;</div><div class="line"><a name="l00790"></a><span class="lineno"> 790</span> }</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> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l00793"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3"> 793</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)</div><div class="line"><a name="l00794"></a><span class="lineno"> 794</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div><div class="line"><a name="l00795"></a><span class="lineno"> 795</span> {</div><div class="line"><a name="l00796"></a><span class="lineno"> 796</span>  <span class="keywordflow">if</span> (!ptr || !ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a> || Tcl_InterpDeleted(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>)</div><div class="line"><a name="l00797"></a><span class="lineno"> 797</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="l00798"></a><span class="lineno"> 798</span>  || rbtk_invalid_namespace(ptr)</div><div class="line"><a name="l00799"></a><span class="lineno"> 799</span> #endif</div><div class="line"><a name="l00800"></a><span class="lineno"> 800</span>  ) {</div><div class="line"><a name="l00801"></a><span class="lineno"> 801</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="l00802"></a><span class="lineno"> 802</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l00803"></a><span class="lineno"> 803</span>  }</div><div class="line"><a name="l00804"></a><span class="lineno"> 804</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l00805"></a><span class="lineno"> 805</span> }</div><div class="line"><a name="l00806"></a><span class="lineno"> 806</span> </div><div class="line"><a name="l00807"></a><span class="lineno"> 807</span> <span class="comment">/* increment/decrement reference count of tcltkip */</span></div><div class="line"><a name="l00808"></a><span class="lineno"> 808</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l00809"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a55dbead056a35cc4c3bcdaefe23e6252"> 809</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a55dbead056a35cc4c3bcdaefe23e6252">rbtk_preserve_ip</a>(ptr)</div><div class="line"><a name="l00810"></a><span class="lineno"> 810</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</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>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f">ref_count</a>++;</div><div class="line"><a name="l00813"></a><span class="lineno"> 813</span>  <span class="keywordflow">if</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a> == (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l00814"></a><span class="lineno"> 814</span>  <span class="comment">/* deleted IP */</span></div><div class="line"><a name="l00815"></a><span class="lineno"> 815</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f">ref_count</a> = 0;</div><div class="line"><a name="l00816"></a><span class="lineno"> 816</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l00817"></a><span class="lineno"> 817</span>  Tcl_Preserve((ClientData)ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l00818"></a><span class="lineno"> 818</span>  }</div><div class="line"><a name="l00819"></a><span class="lineno"> 819</span>  <span class="keywordflow">return</span>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f">ref_count</a>);</div><div class="line"><a name="l00820"></a><span class="lineno"> 820</span> }</div><div class="line"><a name="l00821"></a><span class="lineno"> 821</span> </div><div class="line"><a name="l00822"></a><span class="lineno"> 822</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l00823"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1"> 823</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(ptr)</div><div class="line"><a name="l00824"></a><span class="lineno"> 824</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</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>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f">ref_count</a>--;</div><div class="line"><a name="l00827"></a><span class="lineno"> 827</span>  <span class="keywordflow">if</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f">ref_count</a> < 0) {</div><div class="line"><a name="l00828"></a><span class="lineno"> 828</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f">ref_count</a> = 0;</div><div class="line"><a name="l00829"></a><span class="lineno"> 829</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a> == (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l00830"></a><span class="lineno"> 830</span>  <span class="comment">/* deleted IP */</span></div><div class="line"><a name="l00831"></a><span class="lineno"> 831</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f">ref_count</a> = 0;</div><div class="line"><a name="l00832"></a><span class="lineno"> 832</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l00833"></a><span class="lineno"> 833</span>  Tcl_Release((ClientData)ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l00834"></a><span class="lineno"> 834</span>  }</div><div class="line"><a name="l00835"></a><span class="lineno"> 835</span>  <span class="keywordflow">return</span>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f">ref_count</a>);</div><div class="line"><a name="l00836"></a><span class="lineno"> 836</span> }</div><div class="line"><a name="l00837"></a><span class="lineno"> 837</span> </div><div class="line"><a name="l00838"></a><span class="lineno"> 838</span> </div><div class="line"><a name="l00839"></a><span class="lineno"> 839</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l00840"></a><span class="lineno"> 840</span> <span class="preprocessor">#ifdef HAVE_STDARG_PROTOTYPES</span></div><div class="line"><a name="l00841"></a><span class="lineno"> 841</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> exc, <span class="keyword">const</span> <span class="keywordtype">char</span> *fmt, ...)</div><div class="line"><a name="l00842"></a><span class="lineno"> 842</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00843"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000"> 843</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(interp, exc, fmt, va_alist)</div><div class="line"><a name="l00844"></a><span class="lineno"> 844</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp:</div><div class="line"><a name="l00845"></a><span class="lineno"> 845</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> exc;</div><div class="line"><a name="l00846"></a><span class="lineno"> 846</span>  <span class="keyword">const</span> <span class="keywordtype">char</span> *fmt;</div><div class="line"><a name="l00847"></a><span class="lineno"> 847</span>  va_dcl</div><div class="line"><a name="l00848"></a><span class="lineno"> 848</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00849"></a><span class="lineno"> 849</span> {</div><div class="line"><a name="l00850"></a><span class="lineno"> 850</span>  va_list args;</div><div class="line"><a name="l00851"></a><span class="lineno"> 851</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a>;</div><div class="line"><a name="l00852"></a><span class="lineno"> 852</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> einfo;</div><div class="line"><a name="l00853"></a><span class="lineno"> 853</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</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>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3a0a28ba6e22644006c9bafb793f8a2c">va_init_list</a>(args,fmt);</div><div class="line"><a name="l00856"></a><span class="lineno"> 856</span>  <a class="code" href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a> = <a class="code" href="../../db/d2e/intern_8h.html#a13e29e5637f1d2fdf778399849da0d34">rb_vsprintf</a>(fmt, args);</div><div class="line"><a name="l00857"></a><span class="lineno"> 857</span>  va_end(args);</div><div class="line"><a name="l00858"></a><span class="lineno"> 858</span>  einfo = <a class="code" href="../../db/dcc/error_8c.html#ab2597cb97e6531c286d7b76b49be946e">rb_exc_new_str</a>(exc, <a class="code" href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a>);</div><div class="line"><a name="l00859"></a><span class="lineno"> 859</span>  <a class="code" href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a>(einfo, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a32f224f962b50f1a6445c52ef1ceeb6a">ID_at_interp</a>, interp);</div><div class="line"><a name="l00860"></a><span class="lineno"> 860</span>  <span class="keywordflow">if</span> (ptr) {</div><div class="line"><a name="l00861"></a><span class="lineno"> 861</span>  Tcl_ResetResult(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l00862"></a><span class="lineno"> 862</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="keywordflow">return</span> einfo;</div><div class="line"><a name="l00865"></a><span class="lineno"> 865</span> }</div><div class="line"><a name="l00866"></a><span class="lineno"> 866</span> </div><div class="line"><a name="l00867"></a><span class="lineno"> 867</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> <span class="preprocessor">#if defined CREATE_RUBYTK_KIT || defined CREATE_RUBYKIT</span></div><div class="line"><a name="l00870"></a><span class="lineno"> 870</span> </div><div class="line"><a name="l00871"></a><span class="lineno"> 871</span> <span class="comment">/*--------------------------------------------------------*/</span></div><div class="line"><a name="l00872"></a><span class="lineno"> 872</span> </div><div class="line"><a name="l00873"></a><span class="lineno"> 873</span> <span class="preprocessor">#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 84</span></div><div class="line"><a name="l00874"></a><span class="lineno"> 874</span> <span class="preprocessor">#error Ruby/Tk-Kit requires Tcl/Tk8.4 or later.</span></div><div class="line"><a name="l00875"></a><span class="lineno"> 875</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00876"></a><span class="lineno"> 876</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> </div><div class="line"><a name="l00879"></a><span class="lineno"> 879</span> <span class="comment">/* Many part of code to support Ruby/Tk-Kit is quoted from Tclkit. */</span></div><div class="line"><a name="l00880"></a><span class="lineno"> 880</span> <span class="comment">/* But, never ask Tclkit community about Ruby/Tk-Kit. */</span></div><div class="line"><a name="l00881"></a><span class="lineno"> 881</span> <span class="comment">/* Please ask Ruby (Ruby/Tk) community (e.g. "ruby-dev" mailing list). */</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">----<< license terms of TclKit (from kitgen's "README" file) >>---------------</span></div><div class="line"><a name="l00884"></a><span class="lineno"> 884</span> <span class="comment">The Tclkit-specific sources are license free, they just have a copyright. Hold</span></div><div class="line"><a name="l00885"></a><span class="lineno"> 885</span> <span class="comment">the author(s) harmless and any lawful use is permitted.</span></div><div class="line"><a name="l00886"></a><span class="lineno"> 886</span> <span class="comment"></span></div><div class="line"><a name="l00887"></a><span class="lineno"> 887</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="l00888"></a><span class="lineno"> 888</span> <span class="comment">Software used in Tclkit, which each have very liberal BSD/MIT-like licenses:</span></div><div class="line"><a name="l00889"></a><span class="lineno"> 889</span> <span class="comment"></span></div><div class="line"><a name="l00890"></a><span class="lineno"> 890</span> <span class="comment"> * Tcl/Tk, TclVFS, Thread, Vlerq, Zlib</span></div><div class="line"><a name="l00891"></a><span class="lineno"> 891</span> <span class="comment">------------------------------------------------------------------------------</span></div><div class="line"><a name="l00892"></a><span class="lineno"> 892</span> <span class="comment"> */</span></div><div class="line"><a name="l00893"></a><span class="lineno"> 893</span> <span class="comment">/* Tcl/Tk stubs may work, but probably it is meaningless. */</span></div><div class="line"><a name="l00894"></a><span class="lineno"> 894</span> <span class="preprocessor">#if defined USE_TCL_STUBS || defined USE_TK_STUBS</span></div><div class="line"><a name="l00895"></a><span class="lineno"> 895</span> <span class="preprocessor"># error Not support Tcl/Tk stubs with Ruby/Tk-Kit or Rubykit.</span></div><div class="line"><a name="l00896"></a><span class="lineno"> 896</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00897"></a><span class="lineno"> 897</span> </div><div class="line"><a name="l00898"></a><span class="lineno"> 898</span> <span class="preprocessor">#ifndef KIT_INCLUDES_ZLIB</span></div><div class="line"><a name="l00899"></a><span class="lineno"> 899</span> <span class="preprocessor">#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 86</span></div><div class="line"><a name="l00900"></a><span class="lineno"> 900</span> <span class="preprocessor">#define KIT_INCLUDES_ZLIB 1</span></div><div class="line"><a name="l00901"></a><span class="lineno"> 901</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00902"></a><span class="lineno"> 902</span> <span class="preprocessor">#define KIT_INCLUDES_ZLIB 0</span></div><div class="line"><a name="l00903"></a><span class="lineno"> 903</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00904"></a><span class="lineno"> 904</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00905"></a><span class="lineno"> 905</span> </div><div class="line"><a name="l00906"></a><span class="lineno"> 906</span> <span class="preprocessor">#ifdef _WIN32</span></div><div class="line"><a name="l00907"></a><span class="lineno"> 907</span> <span class="preprocessor">#define WIN32_LEAN_AND_MEAN</span></div><div class="line"><a name="l00908"></a><span class="lineno"> 908</span> <span class="preprocessor">#include <windows.h></span></div><div class="line"><a name="l00909"></a><span class="lineno"> 909</span> <span class="preprocessor">#undef WIN32_LEAN_AND_MEAN</span></div><div class="line"><a name="l00910"></a><span class="lineno"> 910</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00911"></a><span class="lineno"> 911</span> </div><div class="line"><a name="l00912"></a><span class="lineno"> 912</span> <span class="preprocessor">#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 86</span></div><div class="line"><a name="l00913"></a><span class="lineno"> 913</span> <a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> Tcl_Obj* TclGetStartupScriptPath();</div><div class="line"><a name="l00914"></a><span class="lineno"> 914</span> <a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keywordtype">void</span> TclSetStartupScriptPath <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((Tcl_Obj*));</div><div class="line"><a name="l00915"></a><span class="lineno"> 915</span> <span class="preprocessor">#define Tcl_GetStartupScript(encPtr) TclGetStartupScriptPath()</span></div><div class="line"><a name="l00916"></a><span class="lineno"> 916</span> <span class="preprocessor">#define Tcl_SetStartupScript(path,enc) TclSetStartupScriptPath(path)</span></div><div class="line"><a name="l00917"></a><span class="lineno"> 917</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00918"></a><span class="lineno"> 918</span> <span class="preprocessor">#if !defined(TclSetPreInitScript) && !defined(TclSetPreInitScript_TCL_DECLARED)</span></div><div class="line"><a name="l00919"></a><span class="lineno"> 919</span> <a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keywordtype">char</span>* TclSetPreInitScript <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<span class="keywordtype">char</span> *));</div><div class="line"><a name="l00920"></a><span class="lineno"> 920</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00921"></a><span class="lineno"> 921</span> </div><div class="line"><a name="l00922"></a><span class="lineno"> 922</span> <span class="preprocessor">#ifndef KIT_INCLUDES_TK</span></div><div class="line"><a name="l00923"></a><span class="lineno"> 923</span> <span class="preprocessor"># define KIT_INCLUDES_TK 1</span></div><div class="line"><a name="l00924"></a><span class="lineno"> 924</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00925"></a><span class="lineno"> 925</span> <span class="comment">/* #define KIT_INCLUDES_ITCL 1 */</span></div><div class="line"><a name="l00926"></a><span class="lineno"> 926</span> <span class="comment">/* #define KIT_INCLUDES_THREAD 1 */</span></div><div class="line"><a name="l00927"></a><span class="lineno"> 927</span> </div><div class="line"><a name="l00928"></a><span class="lineno"> 928</span> Tcl_AppInitProc Vfs_Init, Rechan_Init;</div><div class="line"><a name="l00929"></a><span class="lineno"> 929</span> <span class="preprocessor">#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 85</span></div><div class="line"><a name="l00930"></a><span class="lineno"> 930</span> Tcl_AppInitProc Pwb_Init;</div><div class="line"><a name="l00931"></a><span class="lineno"> 931</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00932"></a><span class="lineno"> 932</span> </div><div class="line"><a name="l00933"></a><span class="lineno"> 933</span> <span class="preprocessor">#ifdef KIT_LITE</span></div><div class="line"><a name="l00934"></a><span class="lineno"> 934</span> Tcl_AppInitProc Vlerq_Init, Vlerq_SafeInit;</div><div class="line"><a name="l00935"></a><span class="lineno"> 935</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00936"></a><span class="lineno"> 936</span> Tcl_AppInitProc Mk4tcl_Init;</div><div class="line"><a name="l00937"></a><span class="lineno"> 937</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00938"></a><span class="lineno"> 938</span> </div><div class="line"><a name="l00939"></a><span class="lineno"> 939</span> <span class="preprocessor">#if defined TCL_THREADS && defined KIT_INCLUDES_THREAD</span></div><div class="line"><a name="l00940"></a><span class="lineno"> 940</span> Tcl_AppInitProc Thread_Init;</div><div class="line"><a name="l00941"></a><span class="lineno"> 941</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00942"></a><span class="lineno"> 942</span> </div><div class="line"><a name="l00943"></a><span class="lineno"> 943</span> <span class="preprocessor">#if KIT_INCLUDES_ZLIB</span></div><div class="line"><a name="l00944"></a><span class="lineno"> 944</span> Tcl_AppInitProc Zlib_Init;</div><div class="line"><a name="l00945"></a><span class="lineno"> 945</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00946"></a><span class="lineno"> 946</span> </div><div class="line"><a name="l00947"></a><span class="lineno"> 947</span> <span class="preprocessor">#ifdef KIT_INCLUDES_ITCL</span></div><div class="line"><a name="l00948"></a><span class="lineno"> 948</span> Tcl_AppInitProc Itcl_Init;</div><div class="line"><a name="l00949"></a><span class="lineno"> 949</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00950"></a><span class="lineno"> 950</span> </div><div class="line"><a name="l00951"></a><span class="lineno"> 951</span> <span class="preprocessor">#ifdef _WIN32</span></div><div class="line"><a name="l00952"></a><span class="lineno"> 952</span> Tcl_AppInitProc Dde_Init, Dde_SafeInit, Registry_Init;</div><div class="line"><a name="l00953"></a><span class="lineno"> 953</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00954"></a><span class="lineno"> 954</span> </div><div class="line"><a name="l00955"></a><span class="lineno"> 955</span> <span class="comment">/*--------------------------------------------------------*/</span></div><div class="line"><a name="l00956"></a><span class="lineno"> 956</span> </div><div class="line"><a name="l00957"></a><span class="lineno"> 957</span> <span class="preprocessor">#define RUBYTK_KITPATH_CONST_NAME "RUBYTK_KITPATH"</span></div><div class="line"><a name="l00958"></a><span class="lineno"> 958</span> </div><div class="line"><a name="l00959"></a><span class="lineno"> 959</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *rubytk_kitpath = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l00960"></a><span class="lineno"> 960</span> </div><div class="line"><a name="l00961"></a><span class="lineno"> 961</span> <span class="keyword">static</span> <span class="keywordtype">char</span> rubytkkit_preInitCmd[] =</div><div class="line"><a name="l00962"></a><span class="lineno"> 962</span> <span class="stringliteral">"proc tclKitPreInit {} {\n"</span></div><div class="line"><a name="l00963"></a><span class="lineno"> 963</span>  <span class="stringliteral">"rename tclKitPreInit {}\n"</span></div><div class="line"><a name="l00964"></a><span class="lineno"> 964</span>  <span class="stringliteral">"load {} rubytk_kitpath\n"</span></div><div class="line"><a name="l00965"></a><span class="lineno"> 965</span> <span class="preprocessor">#if KIT_INCLUDES_ZLIB</span></div><div class="line"><a name="l00966"></a><span class="lineno"> 966</span>  <span class="stringliteral">"catch {load {} zlib}\n"</span></div><div class="line"><a name="l00967"></a><span class="lineno"> 967</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00968"></a><span class="lineno"> 968</span> <span class="preprocessor">#ifdef KIT_LITE</span></div><div class="line"><a name="l00969"></a><span class="lineno"> 969</span>  <span class="stringliteral">"load {} vlerq\n"</span></div><div class="line"><a name="l00970"></a><span class="lineno"> 970</span>  <span class="stringliteral">"namespace eval ::vlerq {}\n"</span></div><div class="line"><a name="l00971"></a><span class="lineno"> 971</span>  <span class="stringliteral">"if {[catch { vlerq open $::tcl::kitpath } ::vlerq::starkit_root]} {\n"</span></div><div class="line"><a name="l00972"></a><span class="lineno"> 972</span>  <span class="stringliteral">"set n -1\n"</span></div><div class="line"><a name="l00973"></a><span class="lineno"> 973</span>  <span class="stringliteral">"} else {\n"</span></div><div class="line"><a name="l00974"></a><span class="lineno"> 974</span>  <span class="stringliteral">"set files [vlerq get $::vlerq::starkit_root 0 dirs 0 files]\n"</span></div><div class="line"><a name="l00975"></a><span class="lineno"> 975</span>  <span class="stringliteral">"set n [lsearch [vlerq get $files * name] boot.tcl]\n"</span></div><div class="line"><a name="l00976"></a><span class="lineno"> 976</span>  <span class="stringliteral">"}\n"</span></div><div class="line"><a name="l00977"></a><span class="lineno"> 977</span>  <span class="stringliteral">"if {$n >= 0} {\n"</span></div><div class="line"><a name="l00978"></a><span class="lineno"> 978</span>  <span class="stringliteral">"array set a [vlerq get $files $n]\n"</span></div><div class="line"><a name="l00979"></a><span class="lineno"> 979</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00980"></a><span class="lineno"> 980</span>  <span class="stringliteral">"load {} Mk4tcl\n"</span></div><div class="line"><a name="l00981"></a><span class="lineno"> 981</span> <span class="preprocessor">#if defined KIT_VFS_WRITABLE && !defined CREATE_RUBYKIT</span></div><div class="line"><a name="l00982"></a><span class="lineno"> 982</span>  <span class="comment">/* running command cannot open itself for writing */</span></div><div class="line"><a name="l00983"></a><span class="lineno"> 983</span>  <span class="stringliteral">"mk::file open exe $::tcl::kitpath\n"</span></div><div class="line"><a name="l00984"></a><span class="lineno"> 984</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l00985"></a><span class="lineno"> 985</span>  <span class="stringliteral">"mk::file open exe $::tcl::kitpath -readonly\n"</span></div><div class="line"><a name="l00986"></a><span class="lineno"> 986</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00987"></a><span class="lineno"> 987</span>  <span class="stringliteral">"set n [mk::select exe.dirs!0.files name boot.tcl]\n"</span></div><div class="line"><a name="l00988"></a><span class="lineno"> 988</span>  <span class="stringliteral">"if {[llength $n] == 1} {\n"</span></div><div class="line"><a name="l00989"></a><span class="lineno"> 989</span>  <span class="stringliteral">"array set a [mk::get exe.dirs!0.files!$n]\n"</span></div><div class="line"><a name="l00990"></a><span class="lineno"> 990</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l00991"></a><span class="lineno"> 991</span>  <span class="stringliteral">"if {![info exists a(contents)]} { error {no boot.tcl file} }\n"</span></div><div class="line"><a name="l00992"></a><span class="lineno"> 992</span>  <span class="stringliteral">"if {$a(size) != [string length $a(contents)]} {\n"</span></div><div class="line"><a name="l00993"></a><span class="lineno"> 993</span>  <span class="stringliteral">"set a(contents) [zlib decompress $a(contents)]\n"</span></div><div class="line"><a name="l00994"></a><span class="lineno"> 994</span>  <span class="stringliteral">"}\n"</span></div><div class="line"><a name="l00995"></a><span class="lineno"> 995</span>  <span class="stringliteral">"if {$a(contents) eq \"\"} { error {empty boot.tcl} }\n"</span></div><div class="line"><a name="l00996"></a><span class="lineno"> 996</span>  <span class="stringliteral">"uplevel #0 $a(contents)\n"</span></div><div class="line"><a name="l00997"></a><span class="lineno"> 997</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l00998"></a><span class="lineno"> 998</span>  <span class="stringliteral">"} elseif {[lindex $::argv 0] eq \"-init-\"} {\n"</span></div><div class="line"><a name="l00999"></a><span class="lineno"> 999</span>  <span class="stringliteral">"uplevel #0 { source [lindex $::argv 1] }\n"</span></div><div class="line"><a name="l01000"></a><span class="lineno"> 1000</span>  <span class="stringliteral">"exit\n"</span></div><div class="line"><a name="l01001"></a><span class="lineno"> 1001</span> <span class="preprocessor">#endif</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="comment">/* When cannot find VFS data, try to use a real directory */</span></div><div class="line"><a name="l01004"></a><span class="lineno"> 1004</span>  <span class="stringliteral">"set vfsdir \"[file rootname $::tcl::kitpath].vfs\"\n"</span></div><div class="line"><a name="l01005"></a><span class="lineno"> 1005</span>  <span class="stringliteral">"if {[file isdirectory $vfsdir]} {\n"</span></div><div class="line"><a name="l01006"></a><span class="lineno"> 1006</span>  <span class="stringliteral">"set ::tcl_library [file join $vfsdir lib tcl$::tcl_version]\n"</span></div><div class="line"><a name="l01007"></a><span class="lineno"> 1007</span>  <span class="stringliteral">"set ::tcl_libPath [list $::tcl_library [file join $vfsdir lib]]\n"</span></div><div class="line"><a name="l01008"></a><span class="lineno"> 1008</span>  <span class="stringliteral">"catch {uplevel #0 [list source [file join $vfsdir config.tcl]]}\n"</span></div><div class="line"><a name="l01009"></a><span class="lineno"> 1009</span>  <span class="stringliteral">"uplevel #0 [list source [file join $::tcl_library init.tcl]]\n"</span></div><div class="line"><a name="l01010"></a><span class="lineno"> 1010</span>  <span class="stringliteral">"set ::auto_path $::tcl_libPath\n"</span></div><div class="line"><a name="l01011"></a><span class="lineno"> 1011</span>  <span class="stringliteral">"} else {\n"</span></div><div class="line"><a name="l01012"></a><span class="lineno"> 1012</span>  <span class="stringliteral">"error \"\n $::tcl::kitpath has no VFS data to start up\"\n"</span></div><div class="line"><a name="l01013"></a><span class="lineno"> 1013</span>  <span class="stringliteral">"}\n"</span></div><div class="line"><a name="l01014"></a><span class="lineno"> 1014</span>  <span class="stringliteral">"}\n"</span></div><div class="line"><a name="l01015"></a><span class="lineno"> 1015</span> <span class="stringliteral">"}\n"</span></div><div class="line"><a name="l01016"></a><span class="lineno"> 1016</span> <span class="stringliteral">"tclKitPreInit"</span></div><div class="line"><a name="l01017"></a><span class="lineno"> 1017</span> ;</div><div class="line"><a name="l01018"></a><span class="lineno"> 1018</span> </div><div class="line"><a name="l01019"></a><span class="lineno"> 1019</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l01020"></a><span class="lineno"> 1020</span> <span class="comment">/* Not use this script.</span></div><div class="line"><a name="l01021"></a><span class="lineno"> 1021</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="l01022"></a><span class="lineno"> 1022</span> <span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">char</span> initScript[] =</div><div class="line"><a name="l01023"></a><span class="lineno"> 1023</span> <span class="stringliteral">"if {[file isfile [file join $::tcl::kitpath main.tcl]]} {\n"</span></div><div class="line"><a name="l01024"></a><span class="lineno"> 1024</span>  <span class="stringliteral">"if {[info commands console] != {}} { console hide }\n"</span></div><div class="line"><a name="l01025"></a><span class="lineno"> 1025</span>  <span class="stringliteral">"set tcl_interactive 0\n"</span></div><div class="line"><a name="l01026"></a><span class="lineno"> 1026</span>  <span class="stringliteral">"incr argc\n"</span></div><div class="line"><a name="l01027"></a><span class="lineno"> 1027</span>  <span class="stringliteral">"set argv [linsert $argv 0 $argv0]\n"</span></div><div class="line"><a name="l01028"></a><span class="lineno"> 1028</span>  <span class="stringliteral">"set argv0 [file join $::tcl::kitpath main.tcl]\n"</span></div><div class="line"><a name="l01029"></a><span class="lineno"> 1029</span> <span class="stringliteral">"} else continue\n"</span></div><div class="line"><a name="l01030"></a><span class="lineno"> 1030</span> ;</div><div class="line"><a name="l01031"></a><span class="lineno"> 1031</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01032"></a><span class="lineno"> 1032</span> </div><div class="line"><a name="l01033"></a><span class="lineno"> 1033</span> <span class="comment">/*--------------------------------------------------------*/</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> <span class="keyword">static</span> <span class="keywordtype">char</span>*</div><div class="line"><a name="l01036"></a><span class="lineno"> 1036</span> set_rubytk_kitpath(<span class="keyword">const</span> <span class="keywordtype">char</span> *kitpath)</div><div class="line"><a name="l01037"></a><span class="lineno"> 1037</span> {</div><div class="line"><a name="l01038"></a><span class="lineno"> 1038</span>  <span class="keywordflow">if</span> (kitpath) {</div><div class="line"><a name="l01039"></a><span class="lineno"> 1039</span>  <span class="keywordtype">int</span> len = (int)<a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(kitpath);</div><div class="line"><a name="l01040"></a><span class="lineno"> 1040</span>  <span class="keywordflow">if</span> (rubytk_kitpath) {</div><div class="line"><a name="l01041"></a><span class="lineno"> 1041</span>  ckfree(rubytk_kitpath);</div><div class="line"><a name="l01042"></a><span class="lineno"> 1042</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>  rubytk_kitpath = (<span class="keywordtype">char</span> *)ckalloc(len + 1);</div><div class="line"><a name="l01045"></a><span class="lineno"> 1045</span>  memcpy(rubytk_kitpath, kitpath, len);</div><div class="line"><a name="l01046"></a><span class="lineno"> 1046</span>  rubytk_kitpath[len] = <span class="charliteral">'\0'</span>;</div><div class="line"><a name="l01047"></a><span class="lineno"> 1047</span>  }</div><div class="line"><a name="l01048"></a><span class="lineno"> 1048</span>  <span class="keywordflow">return</span> rubytk_kitpath;</div><div class="line"><a name="l01049"></a><span class="lineno"> 1049</span> }</div><div class="line"><a name="l01050"></a><span class="lineno"> 1050</span> </div><div class="line"><a name="l01051"></a><span class="lineno"> 1051</span> <span class="comment">/*--------------------------------------------------------*/</span></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> <span class="preprocessor">#ifdef WIN32</span></div><div class="line"><a name="l01054"></a><span class="lineno"> 1054</span> <span class="preprocessor">#define DEV_NULL "NUL"</span></div><div class="line"><a name="l01055"></a><span class="lineno"> 1055</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01056"></a><span class="lineno"> 1056</span> <span class="preprocessor">#define DEV_NULL "/dev/null"</span></div><div class="line"><a name="l01057"></a><span class="lineno"> 1057</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01058"></a><span class="lineno"> 1058</span> </div><div class="line"><a name="l01059"></a><span class="lineno"> 1059</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l01060"></a><span class="lineno"> 1060</span> check_tclkit_std_channels()</div><div class="line"><a name="l01061"></a><span class="lineno"> 1061</span> {</div><div class="line"><a name="l01062"></a><span class="lineno"> 1062</span>  Tcl_Channel chan;</div><div class="line"><a name="l01063"></a><span class="lineno"> 1063</span> </div><div class="line"><a name="l01064"></a><span class="lineno"> 1064</span>  <span class="comment">/*</span></div><div class="line"><a name="l01065"></a><span class="lineno"> 1065</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="l01066"></a><span class="lineno"> 1066</span> <span class="comment"> * not. Otherwise internals channels may get used as standard channels</span></div><div class="line"><a name="l01067"></a><span class="lineno"> 1067</span> <span class="comment"> * (like for encodings) and panic.</span></div><div class="line"><a name="l01068"></a><span class="lineno"> 1068</span> <span class="comment"> */</span></div><div class="line"><a name="l01069"></a><span class="lineno"> 1069</span>  chan = Tcl_GetStdChannel(TCL_STDIN);</div><div class="line"><a name="l01070"></a><span class="lineno"> 1070</span>  <span class="keywordflow">if</span> (chan == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l01071"></a><span class="lineno"> 1071</span>  chan = Tcl_OpenFileChannel(<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, DEV_NULL, <span class="stringliteral">"r"</span>, 0);</div><div class="line"><a name="l01072"></a><span class="lineno"> 1072</span>  <span class="keywordflow">if</span> (chan != <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l01073"></a><span class="lineno"> 1073</span>  Tcl_SetChannelOption(<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, chan, <span class="stringliteral">"-encoding"</span>, <span class="stringliteral">"utf-8"</span>);</div><div class="line"><a name="l01074"></a><span class="lineno"> 1074</span>  }</div><div class="line"><a name="l01075"></a><span class="lineno"> 1075</span>  Tcl_SetStdChannel(chan, TCL_STDIN);</div><div class="line"><a name="l01076"></a><span class="lineno"> 1076</span>  }</div><div class="line"><a name="l01077"></a><span class="lineno"> 1077</span>  chan = Tcl_GetStdChannel(TCL_STDOUT);</div><div class="line"><a name="l01078"></a><span class="lineno"> 1078</span>  <span class="keywordflow">if</span> (chan == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l01079"></a><span class="lineno"> 1079</span>  chan = Tcl_OpenFileChannel(<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, DEV_NULL, <span class="stringliteral">"w"</span>, 0);</div><div class="line"><a name="l01080"></a><span class="lineno"> 1080</span>  <span class="keywordflow">if</span> (chan != <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l01081"></a><span class="lineno"> 1081</span>  Tcl_SetChannelOption(<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, chan, <span class="stringliteral">"-encoding"</span>, <span class="stringliteral">"utf-8"</span>);</div><div class="line"><a name="l01082"></a><span class="lineno"> 1082</span>  }</div><div class="line"><a name="l01083"></a><span class="lineno"> 1083</span>  Tcl_SetStdChannel(chan, TCL_STDOUT);</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>  chan = Tcl_GetStdChannel(TCL_STDERR);</div><div class="line"><a name="l01086"></a><span class="lineno"> 1086</span>  <span class="keywordflow">if</span> (chan == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l01087"></a><span class="lineno"> 1087</span>  chan = Tcl_OpenFileChannel(<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, DEV_NULL, <span class="stringliteral">"w"</span>, 0);</div><div class="line"><a name="l01088"></a><span class="lineno"> 1088</span>  <span class="keywordflow">if</span> (chan != <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l01089"></a><span class="lineno"> 1089</span>  Tcl_SetChannelOption(<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, chan, <span class="stringliteral">"-encoding"</span>, <span class="stringliteral">"utf-8"</span>);</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>  Tcl_SetStdChannel(chan, TCL_STDERR);</div><div class="line"><a name="l01092"></a><span class="lineno"> 1092</span>  }</div><div class="line"><a name="l01093"></a><span class="lineno"> 1093</span> }</div><div class="line"><a name="l01094"></a><span class="lineno"> 1094</span> </div><div class="line"><a name="l01095"></a><span class="lineno"> 1095</span> <span class="comment">/*--------------------------------------------------------*/</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> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l01098"></a><span class="lineno"> 1098</span> rubytk_kitpathObjCmd(ClientData dummy, Tcl_Interp *interp, <span class="keywordtype">int</span> objc, Tcl_Obj *<span class="keyword">const</span> objv[])</div><div class="line"><a name="l01099"></a><span class="lineno"> 1099</span> {</div><div class="line"><a name="l01100"></a><span class="lineno"> 1100</span>  <span class="keyword">const</span> <span class="keywordtype">char</span>* str;</div><div class="line"><a name="l01101"></a><span class="lineno"> 1101</span>  <span class="keywordflow">if</span> (objc == 2) {</div><div class="line"><a name="l01102"></a><span class="lineno"> 1102</span>  set_rubytk_kitpath(Tcl_GetString(objv[1]));</div><div class="line"><a name="l01103"></a><span class="lineno"> 1103</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (objc > 2) {</div><div class="line"><a name="l01104"></a><span class="lineno"> 1104</span>  Tcl_WrongNumArgs(interp, 1, objv, <span class="stringliteral">"?path?"</span>);</div><div class="line"><a name="l01105"></a><span class="lineno"> 1105</span>  }</div><div class="line"><a name="l01106"></a><span class="lineno"> 1106</span>  str = rubytk_kitpath ? rubytk_kitpath : Tcl_GetNameOfExecutable();</div><div class="line"><a name="l01107"></a><span class="lineno"> 1107</span>  Tcl_SetObjResult(interp, Tcl_NewStringObj(str, -1));</div><div class="line"><a name="l01108"></a><span class="lineno"> 1108</span>  <span class="keywordflow">return</span> TCL_OK;</div><div class="line"><a name="l01109"></a><span class="lineno"> 1109</span> }</div><div class="line"><a name="l01110"></a><span class="lineno"> 1110</span> </div><div class="line"><a name="l01111"></a><span class="lineno"> 1111</span> <span class="comment">/*</span></div><div class="line"><a name="l01112"></a><span class="lineno"> 1112</span> <span class="comment"> * Public entry point for ::tcl::kitpath.</span></div><div class="line"><a name="l01113"></a><span class="lineno"> 1113</span> <span class="comment"> * Creates both link variable name and Tcl command ::tcl::kitpath.</span></div><div class="line"><a name="l01114"></a><span class="lineno"> 1114</span> <span class="comment"> */</span></div><div class="line"><a name="l01115"></a><span class="lineno"> 1115</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l01116"></a><span class="lineno"> 1116</span> rubytk_kitpath_init(Tcl_Interp *interp)</div><div class="line"><a name="l01117"></a><span class="lineno"> 1117</span> {</div><div class="line"><a name="l01118"></a><span class="lineno"> 1118</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"::tcl::kitpath"</span>, rubytk_kitpathObjCmd, 0, 0);</div><div class="line"><a name="l01119"></a><span class="lineno"> 1119</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="l01120"></a><span class="lineno"> 1120</span>  TCL_LINK_STRING | TCL_LINK_READ_ONLY) != TCL_OK) {</div><div class="line"><a name="l01121"></a><span class="lineno"> 1121</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l01122"></a><span class="lineno"> 1122</span>  }</div><div class="line"><a name="l01123"></a><span class="lineno"> 1123</span> </div><div class="line"><a name="l01124"></a><span class="lineno"> 1124</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"::tcl::rubytk_kitpath"</span>, rubytk_kitpathObjCmd, 0, 0);</div><div class="line"><a name="l01125"></a><span class="lineno"> 1125</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="l01126"></a><span class="lineno"> 1126</span>  TCL_LINK_STRING | TCL_LINK_READ_ONLY) != TCL_OK) {</div><div class="line"><a name="l01127"></a><span class="lineno"> 1127</span>  Tcl_ResetResult(interp);</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> </div><div class="line"><a name="l01130"></a><span class="lineno"> 1130</span>  <span class="keywordflow">if</span> (rubytk_kitpath == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l01131"></a><span class="lineno"> 1131</span>  <span class="comment">/*</span></div><div class="line"><a name="l01132"></a><span class="lineno"> 1132</span> <span class="comment"> * XXX: We may want to avoid doing this to allow tcl::kitpath calls</span></div><div class="line"><a name="l01133"></a><span class="lineno"> 1133</span> <span class="comment"> * XXX: to obtain changes in nameofexe, if they occur.</span></div><div class="line"><a name="l01134"></a><span class="lineno"> 1134</span> <span class="comment"> */</span></div><div class="line"><a name="l01135"></a><span class="lineno"> 1135</span>  set_rubytk_kitpath(Tcl_GetNameOfExecutable());</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> </div><div class="line"><a name="l01138"></a><span class="lineno"> 1138</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="l01139"></a><span class="lineno"> 1139</span> }</div><div class="line"><a name="l01140"></a><span class="lineno"> 1140</span> </div><div class="line"><a name="l01141"></a><span class="lineno"> 1141</span> <span class="comment">/*--------------------------------------------------------*/</span></div><div class="line"><a name="l01142"></a><span class="lineno"> 1142</span> </div><div class="line"><a name="l01143"></a><span class="lineno"> 1143</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l01144"></a><span class="lineno"> 1144</span> init_static_tcltk_packages()</div><div class="line"><a name="l01145"></a><span class="lineno"> 1145</span> {</div><div class="line"><a name="l01146"></a><span class="lineno"> 1146</span>  <span class="comment">/*</span></div><div class="line"><a name="l01147"></a><span class="lineno"> 1147</span> <span class="comment"> * Ensure that std channels exist (creating them if necessary)</span></div><div class="line"><a name="l01148"></a><span class="lineno"> 1148</span> <span class="comment"> */</span></div><div class="line"><a name="l01149"></a><span class="lineno"> 1149</span>  check_tclkit_std_channels();</div><div class="line"><a name="l01150"></a><span class="lineno"> 1150</span> </div><div class="line"><a name="l01151"></a><span class="lineno"> 1151</span> <span class="preprocessor">#ifdef KIT_INCLUDES_ITCL</span></div><div class="line"><a name="l01152"></a><span class="lineno"> 1152</span>  Tcl_StaticPackage(0, <span class="stringliteral">"Itcl"</span>, Itcl_Init, <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l01153"></a><span class="lineno"> 1153</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01154"></a><span class="lineno"> 1154</span> <span class="preprocessor">#ifdef KIT_LITE</span></div><div class="line"><a name="l01155"></a><span class="lineno"> 1155</span>  Tcl_StaticPackage(0, <span class="stringliteral">"Vlerq"</span>, Vlerq_Init, Vlerq_SafeInit);</div><div class="line"><a name="l01156"></a><span class="lineno"> 1156</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01157"></a><span class="lineno"> 1157</span>  Tcl_StaticPackage(0, <span class="stringliteral">"Mk4tcl"</span>, Mk4tcl_Init, <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">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">#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 85</span></div><div class="line"><a name="l01160"></a><span class="lineno"> 1160</span>  Tcl_StaticPackage(0, <span class="stringliteral">"pwb"</span>, Pwb_Init, <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</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>  Tcl_StaticPackage(0, <span class="stringliteral">"rubytk_kitpath"</span>, rubytk_kitpath_init, <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l01163"></a><span class="lineno"> 1163</span>  Tcl_StaticPackage(0, <span class="stringliteral">"rechan"</span>, Rechan_Init, <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l01164"></a><span class="lineno"> 1164</span>  Tcl_StaticPackage(0, <span class="stringliteral">"vfs"</span>, Vfs_Init, <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l01165"></a><span class="lineno"> 1165</span> <span class="preprocessor">#if KIT_INCLUDES_ZLIB</span></div><div class="line"><a name="l01166"></a><span class="lineno"> 1166</span>  Tcl_StaticPackage(0, <span class="stringliteral">"zlib"</span>, Zlib_Init, <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">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">#if defined TCL_THREADS && defined KIT_INCLUDES_THREAD</span></div><div class="line"><a name="l01169"></a><span class="lineno"> 1169</span>  Tcl_StaticPackage(0, <span class="stringliteral">"Thread"</span>, Thread_Init, Thread_SafeInit);</div><div class="line"><a name="l01170"></a><span class="lineno"> 1170</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01171"></a><span class="lineno"> 1171</span> <span class="preprocessor">#ifdef _WIN32</span></div><div class="line"><a name="l01172"></a><span class="lineno"> 1172</span> <span class="preprocessor">#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION > 84</span></div><div class="line"><a name="l01173"></a><span class="lineno"> 1173</span>  Tcl_StaticPackage(0, <span class="stringliteral">"dde"</span>, Dde_Init, Dde_SafeInit);</div><div class="line"><a name="l01174"></a><span class="lineno"> 1174</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01175"></a><span class="lineno"> 1175</span>  Tcl_StaticPackage(0, <span class="stringliteral">"dde"</span>, Dde_Init, <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l01176"></a><span class="lineno"> 1176</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01177"></a><span class="lineno"> 1177</span>  Tcl_StaticPackage(0, <span class="stringliteral">"registry"</span>, Registry_Init, <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l01178"></a><span class="lineno"> 1178</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01179"></a><span class="lineno"> 1179</span> <span class="preprocessor">#ifdef KIT_INCLUDES_TK</span></div><div class="line"><a name="l01180"></a><span class="lineno"> 1180</span>  Tcl_StaticPackage(0, <span class="stringliteral">"Tk"</span>, Tk_Init, Tk_SafeInit);</div><div class="line"><a name="l01181"></a><span class="lineno"> 1181</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01182"></a><span class="lineno"> 1182</span> }</div><div class="line"><a name="l01183"></a><span class="lineno"> 1183</span> </div><div class="line"><a name="l01184"></a><span class="lineno"> 1184</span> <span class="comment">/*--------------------------------------------------------*/</span></div><div class="line"><a name="l01185"></a><span class="lineno"> 1185</span> </div><div class="line"><a name="l01186"></a><span class="lineno"> 1186</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l01187"></a><span class="lineno"> 1187</span> call_tclkit_init_script(Tcl_Interp *interp)</div><div class="line"><a name="l01188"></a><span class="lineno"> 1188</span> {</div><div class="line"><a name="l01189"></a><span class="lineno"> 1189</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l01190"></a><span class="lineno"> 1190</span>  <span class="comment">/* Currently, do nothing in this function.</span></div><div class="line"><a name="l01191"></a><span class="lineno"> 1191</span> <span class="comment"> It's a memo (quoted from kitInit.c of Tclkit)</span></div><div class="line"><a name="l01192"></a><span class="lineno"> 1192</span> <span class="comment"> to support an initScript for Tcl interpreters in the future. */</span></div><div class="line"><a name="l01193"></a><span class="lineno"> 1193</span>  <span class="keywordflow">if</span> (Tcl_EvalEx(interp, initScript, -1, TCL_EVAL_GLOBAL) == TCL_OK) {</div><div class="line"><a name="l01194"></a><span class="lineno"> 1194</span>  <span class="keyword">const</span> <span class="keywordtype">char</span> *encoding = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l01195"></a><span class="lineno"> 1195</span>  Tcl_Obj* path = Tcl_GetStartupScript(&encoding);</div><div class="line"><a name="l01196"></a><span class="lineno"> 1196</span>  Tcl_SetStartupScript(Tcl_GetObjResult(interp), encoding);</div><div class="line"><a name="l01197"></a><span class="lineno"> 1197</span>  <span class="keywordflow">if</span> (path == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l01198"></a><span class="lineno"> 1198</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="l01199"></a><span class="lineno"> 1199</span>  }</div><div class="line"><a name="l01200"></a><span class="lineno"> 1200</span>  }</div><div class="line"><a name="l01201"></a><span class="lineno"> 1201</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01202"></a><span class="lineno"> 1202</span> </div><div class="line"><a name="l01203"></a><span class="lineno"> 1203</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l01204"></a><span class="lineno"> 1204</span> }</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">/*--------------------------------------------------------*/</span></div><div class="line"><a name="l01207"></a><span class="lineno"> 1207</span> </div><div class="line"><a name="l01208"></a><span class="lineno"> 1208</span> <span class="preprocessor">#ifdef __WIN32__</span></div><div class="line"><a name="l01209"></a><span class="lineno"> 1209</span> <span class="comment">/* #include <tkWinInt.h> */</span><span class="comment">/* conflict definition of struct timezone */</span></div><div class="line"><a name="l01210"></a><span class="lineno"> 1210</span> <span class="comment">/* #include <tkIntPlatDecls.h> */</span></div><div class="line"><a name="l01211"></a><span class="lineno"> 1211</span> <span class="comment">/* #include <windows.h> */</span></div><div class="line"><a name="l01212"></a><span class="lineno"> 1212</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="l01213"></a><span class="lineno"> 1213</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="l01214"></a><span class="lineno"> 1214</span> {</div><div class="line"><a name="l01215"></a><span class="lineno"> 1215</span>  <span class="comment">/* TCHAR szBuf[256]; */</span></div><div class="line"><a name="l01216"></a><span class="lineno"> 1216</span>  HINSTANCE hInst;</div><div class="line"><a name="l01217"></a><span class="lineno"> 1217</span> </div><div class="line"><a name="l01218"></a><span class="lineno"> 1218</span>  <span class="comment">/* hInst = GetModuleHandle(NULL); */</span></div><div class="line"><a name="l01219"></a><span class="lineno"> 1219</span>  <span class="comment">/* hInst = GetModuleHandle("tcltklib.so"); */</span></div><div class="line"><a name="l01220"></a><span class="lineno"> 1220</span>  hInst = GetModuleHandle(module_name);</div><div class="line"><a name="l01221"></a><span class="lineno"> 1221</span>  TkWinSetHINSTANCE(hInst);</div><div class="line"><a name="l01222"></a><span class="lineno"> 1222</span> </div><div class="line"><a name="l01223"></a><span class="lineno"> 1223</span>  <span class="comment">/* GetModuleFileName(hInst, szBuf, sizeof(szBuf) / sizeof(TCHAR)); */</span></div><div class="line"><a name="l01224"></a><span class="lineno"> 1224</span>  <span class="comment">/* MessageBox(NULL, szBuf, TEXT("OK"), MB_OK); */</span></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> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01227"></a><span class="lineno"> 1227</span> </div><div class="line"><a name="l01228"></a><span class="lineno"> 1228</span> <span class="comment">/*--------------------------------------------------------*/</span></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="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l01231"></a><span class="lineno"> 1231</span> setup_rubytkkit()</div><div class="line"><a name="l01232"></a><span class="lineno"> 1232</span> {</div><div class="line"><a name="l01233"></a><span class="lineno"> 1233</span>  init_static_tcltk_packages();</div><div class="line"><a name="l01234"></a><span class="lineno"> 1234</span> </div><div class="line"><a name="l01235"></a><span class="lineno"> 1235</span>  {</div><div class="line"><a name="l01236"></a><span class="lineno"> 1236</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#afa5b9137f051ac26d7ccc8824f178233">ID</a> const_id;</div><div class="line"><a name="l01237"></a><span class="lineno"> 1237</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="l01238"></a><span class="lineno"> 1238</span> </div><div class="line"><a name="l01239"></a><span class="lineno"> 1239</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="l01240"></a><span class="lineno"> 1240</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> pathobj;</div><div class="line"><a name="l01241"></a><span class="lineno"> 1241</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="l01242"></a><span class="lineno"> 1242</span> </div><div class="line"><a name="l01243"></a><span class="lineno"> 1243</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="l01244"></a><span class="lineno"> 1244</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l01245"></a><span class="lineno"> 1245</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="l01246"></a><span class="lineno"> 1246</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01247"></a><span class="lineno"> 1247</span>  set_rubytk_kitpath(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(pathobj));</div><div class="line"><a name="l01248"></a><span class="lineno"> 1248</span>  }</div><div class="line"><a name="l01249"></a><span class="lineno"> 1249</span>  }</div><div class="line"><a name="l01250"></a><span class="lineno"> 1250</span>  }</div><div class="line"><a name="l01251"></a><span class="lineno"> 1251</span> </div><div class="line"><a name="l01252"></a><span class="lineno"> 1252</span> <span class="preprocessor">#ifdef CREATE_RUBYTK_KIT</span></div><div class="line"><a name="l01253"></a><span class="lineno"> 1253</span>  <span class="keywordflow">if</span> (rubytk_kitpath == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l01254"></a><span class="lineno"> 1254</span> <span class="preprocessor">#ifdef __WIN32__</span></div><div class="line"><a name="l01255"></a><span class="lineno"> 1255</span>  <span class="comment">/* rbtk_win32_SetHINSTANCE("tcltklib.so"); */</span></div><div class="line"><a name="l01256"></a><span class="lineno"> 1256</span>  {</div><div class="line"><a name="l01257"></a><span class="lineno"> 1257</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> basename;</div><div class="line"><a name="l01258"></a><span class="lineno"> 1258</span>  basename = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">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="l01259"></a><span class="lineno"> 1259</span>  <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa4f8c9b566fd7fb6873866c423c2016">rb_sourcefile</a>()));</div><div class="line"><a name="l01260"></a><span class="lineno"> 1260</span>  rbtk_win32_SetHINSTANCE(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(basename));</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> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01263"></a><span class="lineno"> 1263</span>  set_rubytk_kitpath(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa4f8c9b566fd7fb6873866c423c2016">rb_sourcefile</a>());</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="preprocessor">#endif</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="keywordflow">if</span> (rubytk_kitpath == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l01268"></a><span class="lineno"> 1268</span>  set_rubytk_kitpath(Tcl_GetNameOfExecutable());</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>  TclSetPreInitScript(rubytkkit_preInitCmd);</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> </div><div class="line"><a name="l01274"></a><span class="lineno"> 1274</span> <span class="comment">/*--------------------------------------------------------*/</span></div><div class="line"><a name="l01275"></a><span class="lineno"> 1275</span> </div><div class="line"><a name="l01276"></a><span class="lineno"> 1276</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="l01277"></a><span class="lineno"> 1277</span> <span class="comment">/*####################################################################*/</span></div><div class="line"><a name="l01278"></a><span class="lineno"> 1278</span> </div><div class="line"><a name="l01279"></a><span class="lineno"> 1279</span> </div><div class="line"><a name="l01280"></a><span class="lineno"> 1280</span> <span class="comment">/**********************************************************************/</span></div><div class="line"><a name="l01281"></a><span class="lineno"> 1281</span> </div><div class="line"><a name="l01282"></a><span class="lineno"> 1282</span> <span class="comment">/* stub status */</span></div><div class="line"><a name="l01283"></a><span class="lineno"> 1283</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l01284"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#acc6e437a3e4205736d8cb9b4888762fc"> 1284</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#acc6e437a3e4205736d8cb9b4888762fc">tcl_stubs_check</a>()</div><div class="line"><a name="l01285"></a><span class="lineno"> 1285</span> {</div><div class="line"><a name="l01286"></a><span class="lineno"> 1286</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="l01287"></a><span class="lineno"> 1287</span>  <span class="keywordtype">int</span> st = <a class="code" href="../../d5/d30/stubs_8c.html#a5781553460d704ea29c0b5065ba79f77">ruby_tcl_stubs_init</a>();</div><div class="line"><a name="l01288"></a><span class="lineno"> 1288</span>  <span class="keywordflow">switch</span>(st) {</div><div class="line"><a name="l01289"></a><span class="lineno"> 1289</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#ad0f6a4b19a2cd67ce370a5c22d95f0d3">TCLTK_STUBS_OK</a>:</div><div class="line"><a name="l01290"></a><span class="lineno"> 1290</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l01291"></a><span class="lineno"> 1291</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="l01292"></a><span class="lineno"> 1292</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="l01293"></a><span class="lineno"> 1293</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="l01294"></a><span class="lineno"> 1294</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="l01295"></a><span class="lineno"> 1295</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="l01296"></a><span class="lineno"> 1296</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="l01297"></a><span class="lineno"> 1297</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="l01298"></a><span class="lineno"> 1298</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="l01299"></a><span class="lineno"> 1299</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="l01300"></a><span class="lineno"> 1300</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="l01301"></a><span class="lineno"> 1301</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="l01302"></a><span class="lineno"> 1302</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="l01303"></a><span class="lineno"> 1303</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l01304"></a><span class="lineno"> 1304</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="l01305"></a><span class="lineno"> 1305</span>  }</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> }</div><div class="line"><a name="l01308"></a><span class="lineno"> 1308</span> </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="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01311"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a549faab10d1f93364421a77ea1699e65"> 1311</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a549faab10d1f93364421a77ea1699e65">tcltkip_init_tk</a>(interp)</div><div class="line"><a name="l01312"></a><span class="lineno"> 1312</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l01313"></a><span class="lineno"> 1313</span> {</div><div class="line"><a name="l01314"></a><span class="lineno"> 1314</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</div><div class="line"><a name="l01315"></a><span class="lineno"> 1315</span> </div><div class="line"><a name="l01316"></a><span class="lineno"> 1316</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l01317"></a><span class="lineno"> 1317</span>  <span class="keywordtype">int</span> st;</div><div class="line"><a name="l01318"></a><span class="lineno"> 1318</span> </div><div class="line"><a name="l01319"></a><span class="lineno"> 1319</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="l01320"></a><span class="lineno"> 1320</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="l01321"></a><span class="lineno"> 1321</span>  st = <a class="code" href="../../d5/d30/stubs_8c.html#ae259dede289f05f3c16979fee73fd604">ruby_tk_stubs_safeinit</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l01322"></a><span class="lineno"> 1322</span>  <span class="keywordflow">switch</span>(st) {</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#ad0f6a4b19a2cd67ce370a5c22d95f0d3">TCLTK_STUBS_OK</a>:</div><div class="line"><a name="l01324"></a><span class="lineno"> 1324</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l01325"></a><span class="lineno"> 1325</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="l01326"></a><span class="lineno"> 1326</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a5485df8856b8fa33d9d378afdabc9d29">rb_eLoadError</a>,</div><div class="line"><a name="l01327"></a><span class="lineno"> 1327</span>  <span class="stringliteral">"tcltklib: can't find Tk_SafeInit()"</span>);</div><div class="line"><a name="l01328"></a><span class="lineno"> 1328</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="l01329"></a><span class="lineno"> 1329</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l01330"></a><span class="lineno"> 1330</span>  <span class="stringliteral">"tcltklib: fail to Tk_SafeInit(). %s"</span>,</div><div class="line"><a name="l01331"></a><span class="lineno"> 1331</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="l01332"></a><span class="lineno"> 1332</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="l01333"></a><span class="lineno"> 1333</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l01334"></a><span class="lineno"> 1334</span>  <span class="stringliteral">"tcltklib: fail to Tk_InitStubs(). %s"</span>,</div><div class="line"><a name="l01335"></a><span class="lineno"> 1335</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="l01336"></a><span class="lineno"> 1336</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l01337"></a><span class="lineno"> 1337</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l01338"></a><span class="lineno"> 1338</span>  <span class="stringliteral">"tcltklib: unknown error(%d) on ruby_tk_stubs_safeinit"</span>, st);</div><div class="line"><a name="l01339"></a><span class="lineno"> 1339</span>  }</div><div class="line"><a name="l01340"></a><span class="lineno"> 1340</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l01341"></a><span class="lineno"> 1341</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="l01342"></a><span class="lineno"> 1342</span>  st = <a class="code" href="../../d5/d30/stubs_8c.html#aab3e675e71476824bc345c6cc4d9e402">ruby_tk_stubs_init</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l01343"></a><span class="lineno"> 1343</span>  <span class="keywordflow">switch</span>(st) {</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#ad0f6a4b19a2cd67ce370a5c22d95f0d3">TCLTK_STUBS_OK</a>:</div><div class="line"><a name="l01345"></a><span class="lineno"> 1345</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l01346"></a><span class="lineno"> 1346</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="l01347"></a><span class="lineno"> 1347</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a5485df8856b8fa33d9d378afdabc9d29">rb_eLoadError</a>,</div><div class="line"><a name="l01348"></a><span class="lineno"> 1348</span>  <span class="stringliteral">"tcltklib: can't find Tk_Init()"</span>);</div><div class="line"><a name="l01349"></a><span class="lineno"> 1349</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="l01350"></a><span class="lineno"> 1350</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l01351"></a><span class="lineno"> 1351</span>  <span class="stringliteral">"tcltklib: fail to Tk_Init(). %s"</span>,</div><div class="line"><a name="l01352"></a><span class="lineno"> 1352</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="l01353"></a><span class="lineno"> 1353</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="l01354"></a><span class="lineno"> 1354</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l01355"></a><span class="lineno"> 1355</span>  <span class="stringliteral">"tcltklib: fail to Tk_InitStubs(). %s"</span>,</div><div class="line"><a name="l01356"></a><span class="lineno"> 1356</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="l01357"></a><span class="lineno"> 1357</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l01358"></a><span class="lineno"> 1358</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l01359"></a><span class="lineno"> 1359</span>  <span class="stringliteral">"tcltklib: unknown error(%d) on ruby_tk_stubs_init"</span>, st);</div><div class="line"><a name="l01360"></a><span class="lineno"> 1360</span>  }</div><div class="line"><a name="l01361"></a><span class="lineno"> 1361</span>  }</div><div class="line"><a name="l01362"></a><span class="lineno"> 1362</span> </div><div class="line"><a name="l01363"></a><span class="lineno"> 1363</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l01364"></a><span class="lineno"> 1364</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="l01365"></a><span class="lineno"> 1365</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d30/stubs_8c.html#aab3e675e71476824bc345c6cc4d9e402">ruby_tk_stubs_init</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) != <a class="code" href="../../df/d55/stubs_8h.html#ad0f6a4b19a2cd67ce370a5c22d95f0d3">TCLTK_STUBS_OK</a>) {</div><div class="line"><a name="l01366"></a><span class="lineno"> 1366</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">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="l01367"></a><span class="lineno"> 1367</span>  }</div><div class="line"><a name="l01368"></a><span class="lineno"> 1368</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01369"></a><span class="lineno"> 1369</span> </div><div class="line"><a name="l01370"></a><span class="lineno"> 1370</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l01371"></a><span class="lineno"> 1371</span>  ptr->tk_thread_id = Tcl_GetCurrentThread();</div><div class="line"><a name="l01372"></a><span class="lineno"> 1372</span> <span class="preprocessor">#endif</span></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>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l01375"></a><span class="lineno"> 1375</span> }</div><div class="line"><a name="l01376"></a><span class="lineno"> 1376</span> </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="comment">/* treat excetiopn on Tcl side */</span></div><div class="line"><a name="l01379"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83"> 1379</a></span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>;</div><div class="line"><a name="l01380"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31"> 1380</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="l01381"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aef1359e3bae2745050e68ee7c53d2c6e"> 1381</a></span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef1359e3bae2745050e68ee7c53d2c6e">rbtk_internal_eventloop_handler</a> = 0;</div><div class="line"><a name="l01382"></a><span class="lineno"> 1382</span> </div><div class="line"><a name="l01383"></a><span class="lineno"> 1383</span> </div><div class="line"><a name="l01384"></a><span class="lineno"> 1384</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l01385"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af98c87d8044c5fd2c6bcd541cbc2c649"> 1385</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af98c87d8044c5fd2c6bcd541cbc2c649">pending_exception_check0</a>()</div><div class="line"><a name="l01386"></a><span class="lineno"> 1386</span> {</div><div class="line"><a name="l01387"></a><span class="lineno"> 1387</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</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="../../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="l01390"></a><span class="lineno"> 1390</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="l01391"></a><span class="lineno"> 1391</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="l01392"></a><span class="lineno"> 1392</span>  || <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef1359e3bae2745050e68ee7c53d2c6e">rbtk_internal_eventloop_handler</a> > 0</div><div class="line"><a name="l01393"></a><span class="lineno"> 1393</span>  ) {</div><div class="line"><a name="l01394"></a><span class="lineno"> 1394</span>  <span class="keywordflow">return</span> 1; <span class="comment">/* pending */</span></div><div class="line"><a name="l01395"></a><span class="lineno"> 1395</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l01396"></a><span class="lineno"> 1396</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l01397"></a><span class="lineno"> 1397</span> </div><div class="line"><a name="l01398"></a><span class="lineno"> 1398</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(exc, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7725cc78dab5aa1a2e8eed31d3ce2f7d">eTkCallbackRetry</a>)) {</div><div class="line"><a name="l01399"></a><span class="lineno"> 1399</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="l01400"></a><span class="lineno"> 1400</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="l01401"></a><span class="lineno"> 1401</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, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae96487c8a7974cdd45d90c8e447ee19d">eTkCallbackRedo</a>)) {</div><div class="line"><a name="l01402"></a><span class="lineno"> 1402</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="l01403"></a><span class="lineno"> 1403</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="l01404"></a><span class="lineno"> 1404</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, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a27579641fb4a7546a1d98f37a30fcef6">eTkCallbackThrow</a>)) {</div><div class="line"><a name="l01405"></a><span class="lineno"> 1405</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="l01406"></a><span class="lineno"> 1406</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="l01407"></a><span class="lineno"> 1407</span>  }</div><div class="line"><a name="l01408"></a><span class="lineno"> 1408</span> </div><div class="line"><a name="l01409"></a><span class="lineno"> 1409</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(exc);</div><div class="line"><a name="l01410"></a><span class="lineno"> 1410</span>  }</div><div class="line"><a name="l01411"></a><span class="lineno"> 1411</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l01412"></a><span class="lineno"> 1412</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l01413"></a><span class="lineno"> 1413</span>  }</div><div class="line"><a name="l01414"></a><span class="lineno"> 1414</span> </div><div class="line"><a name="l01415"></a><span class="lineno"> 1415</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3af99897b60119951af8961dbd52dd3f">UNREACHABLE</a>;</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> </div><div class="line"><a name="l01418"></a><span class="lineno"> 1418</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l01419"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a93291afcb7ee52da109bc8967a61d81f"> 1419</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a93291afcb7ee52da109bc8967a61d81f">pending_exception_check1</a>(thr_crit_bup, ptr)</div><div class="line"><a name="l01420"></a><span class="lineno"> 1420</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l01421"></a><span class="lineno"> 1421</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div><div class="line"><a name="l01422"></a><span class="lineno"> 1422</span> {</div><div class="line"><a name="l01423"></a><span class="lineno"> 1423</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>;</div><div class="line"><a name="l01424"></a><span class="lineno"> 1424</span> </div><div class="line"><a name="l01425"></a><span class="lineno"> 1425</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="l01426"></a><span class="lineno"> 1426</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="l01427"></a><span class="lineno"> 1427</span> </div><div class="line"><a name="l01428"></a><span class="lineno"> 1428</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="l01429"></a><span class="lineno"> 1429</span>  || <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef1359e3bae2745050e68ee7c53d2c6e">rbtk_internal_eventloop_handler</a> > 0</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">return</span> 1; <span class="comment">/* pending */</span></div><div class="line"><a name="l01432"></a><span class="lineno"> 1432</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l01433"></a><span class="lineno"> 1433</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l01434"></a><span class="lineno"> 1434</span> </div><div class="line"><a name="l01435"></a><span class="lineno"> 1435</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="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l01436"></a><span class="lineno"> 1436</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div><div class="line"><a name="l01437"></a><span class="lineno"> 1437</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(ptr);</div><div class="line"><a name="l01438"></a><span class="lineno"> 1438</span>  }</div><div class="line"><a name="l01439"></a><span class="lineno"> 1439</span> </div><div class="line"><a name="l01440"></a><span class="lineno"> 1440</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l01441"></a><span class="lineno"> 1441</span> </div><div class="line"><a name="l01442"></a><span class="lineno"> 1442</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(exc, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7725cc78dab5aa1a2e8eed31d3ce2f7d">eTkCallbackRetry</a>)) {</div><div class="line"><a name="l01443"></a><span class="lineno"> 1443</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="l01444"></a><span class="lineno"> 1444</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="l01445"></a><span class="lineno"> 1445</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, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae96487c8a7974cdd45d90c8e447ee19d">eTkCallbackRedo</a>)) {</div><div class="line"><a name="l01446"></a><span class="lineno"> 1446</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="l01447"></a><span class="lineno"> 1447</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="l01448"></a><span class="lineno"> 1448</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, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a27579641fb4a7546a1d98f37a30fcef6">eTkCallbackThrow</a>)) {</div><div class="line"><a name="l01449"></a><span class="lineno"> 1449</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="l01450"></a><span class="lineno"> 1450</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="l01451"></a><span class="lineno"> 1451</span>  }</div><div class="line"><a name="l01452"></a><span class="lineno"> 1452</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(exc);</div><div class="line"><a name="l01453"></a><span class="lineno"> 1453</span>  }</div><div class="line"><a name="l01454"></a><span class="lineno"> 1454</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l01455"></a><span class="lineno"> 1455</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l01456"></a><span class="lineno"> 1456</span>  }</div><div class="line"><a name="l01457"></a><span class="lineno"> 1457</span> </div><div class="line"><a name="l01458"></a><span class="lineno"> 1458</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3af99897b60119951af8961dbd52dd3f">UNREACHABLE</a>;</div><div class="line"><a name="l01459"></a><span class="lineno"> 1459</span> }</div><div class="line"><a name="l01460"></a><span class="lineno"> 1460</span> </div><div class="line"><a name="l01461"></a><span class="lineno"> 1461</span> </div><div class="line"><a name="l01462"></a><span class="lineno"> 1462</span> <span class="comment">/* call original 'exit' command */</span></div><div class="line"><a name="l01463"></a><span class="lineno"> 1463</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l01464"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#acb5e2917d06a1219dfb5d721db43f9b9"> 1464</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#acb5e2917d06a1219dfb5d721db43f9b9">call_original_exit</a>(ptr, state)</div><div class="line"><a name="l01465"></a><span class="lineno"> 1465</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div><div class="line"><a name="l01466"></a><span class="lineno"> 1466</span>  <span class="keywordtype">int</span> state;</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>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l01469"></a><span class="lineno"> 1469</span>  Tcl_CmdInfo *info;</div><div class="line"><a name="l01470"></a><span class="lineno"> 1470</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l01471"></a><span class="lineno"> 1471</span>  Tcl_Obj *cmd_obj;</div><div class="line"><a name="l01472"></a><span class="lineno"> 1472</span>  Tcl_Obj *state_obj;</div><div class="line"><a name="l01473"></a><span class="lineno"> 1473</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01474"></a><span class="lineno"> 1474</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="l01475"></a><span class="lineno"> 1475</span> </div><div class="line"><a name="l01476"></a><span class="lineno"> 1476</span>  <span class="keywordflow">if</span> (!(ptr-><a class="code" href="../../db/d19/structtcltkip.html#a806a9dbb2520a6a3fc1eb1d860537c63">has_orig_exit</a>)) <span class="keywordflow">return</span>;</div><div class="line"><a name="l01477"></a><span class="lineno"> 1477</span> </div><div class="line"><a name="l01478"></a><span class="lineno"> 1478</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l01479"></a><span class="lineno"> 1479</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l01480"></a><span class="lineno"> 1480</span> </div><div class="line"><a name="l01481"></a><span class="lineno"> 1481</span>  Tcl_ResetResult(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l01482"></a><span class="lineno"> 1482</span> </div><div class="line"><a name="l01483"></a><span class="lineno"> 1483</span>  info = &(ptr-><a class="code" href="../../db/d19/structtcltkip.html#a15f267a597e541e9816d481777696dc1">orig_exit_info</a>);</div><div class="line"><a name="l01484"></a><span class="lineno"> 1484</span> </div><div class="line"><a name="l01485"></a><span class="lineno"> 1485</span>  <span class="comment">/* memory allocation for arguments of this command */</span></div><div class="line"><a name="l01486"></a><span class="lineno"> 1486</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l01487"></a><span class="lineno"> 1487</span>  state_obj = Tcl_NewIntObj(state);</div><div class="line"><a name="l01488"></a><span class="lineno"> 1488</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(state_obj);</div><div class="line"><a name="l01489"></a><span class="lineno"> 1489</span> </div><div class="line"><a name="l01490"></a><span class="lineno"> 1490</span>  <span class="keywordflow">if</span> (info->isNativeObjectProc) {</div><div class="line"><a name="l01491"></a><span class="lineno"> 1491</span>  Tcl_Obj **<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l01492"></a><span class="lineno"> 1492</span> <span class="preprocessor">#define USE_RUBY_ALLOC 0</span></div><div class="line"><a name="l01493"></a><span class="lineno"> 1493</span> <span class="preprocessor">#if USE_RUBY_ALLOC</span></div><div class="line"><a name="l01494"></a><span class="lineno"> 1494</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a> = (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="l01495"></a><span class="lineno"> 1495</span> <span class="preprocessor">#else </span><span class="comment">/* not USE_RUBY_ALLOC */</span><span class="preprocessor"></span></div><div class="line"><a name="l01496"></a><span class="lineno"> 1496</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(Tcl_Obj *, 3);</div><div class="line"><a name="l01497"></a><span class="lineno"> 1497</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="l01498"></a><span class="lineno"> 1498</span>  Tcl_Preserve((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l01499"></a><span class="lineno"> 1499</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01500"></a><span class="lineno"> 1500</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01501"></a><span class="lineno"> 1501</span>  cmd_obj = Tcl_NewStringObj(<span class="stringliteral">"exit"</span>, 4);</div><div class="line"><a name="l01502"></a><span class="lineno"> 1502</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(cmd_obj);</div><div class="line"><a name="l01503"></a><span class="lineno"> 1503</span> </div><div class="line"><a name="l01504"></a><span class="lineno"> 1504</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[0] = cmd_obj;</div><div class="line"><a name="l01505"></a><span class="lineno"> 1505</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1] = state_obj;</div><div class="line"><a name="l01506"></a><span class="lineno"> 1506</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[2] = (Tcl_Obj *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l01507"></a><span class="lineno"> 1507</span> </div><div class="line"><a name="l01508"></a><span class="lineno"> 1508</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a></div><div class="line"><a name="l01509"></a><span class="lineno"> 1509</span>  = (*(info->objProc))(info->objClientData, ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, 2, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l01510"></a><span class="lineno"> 1510</span> </div><div class="line"><a name="l01511"></a><span class="lineno"> 1511</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(cmd_obj);</div><div class="line"><a name="l01512"></a><span class="lineno"> 1512</span> </div><div class="line"><a name="l01513"></a><span class="lineno"> 1513</span> <span class="preprocessor">#if USE_RUBY_ALLOC</span></div><div class="line"><a name="l01514"></a><span class="lineno"> 1514</span>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l01515"></a><span class="lineno"> 1515</span> <span class="preprocessor">#else </span><span class="comment">/* not USE_RUBY_ALLOC */</span><span class="preprocessor"></span></div><div class="line"><a name="l01516"></a><span class="lineno"> 1516</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l01517"></a><span class="lineno"> 1517</span>  Tcl_EventuallyFree((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l01518"></a><span class="lineno"> 1518</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01519"></a><span class="lineno"> 1519</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="l01520"></a><span class="lineno"> 1520</span>  Tcl_Release((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l01521"></a><span class="lineno"> 1521</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01522"></a><span class="lineno"> 1522</span>  <span class="comment">/* free(argv); */</span></div><div class="line"><a name="l01523"></a><span class="lineno"> 1523</span>  ckfree((<span class="keywordtype">char</span>*)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l01524"></a><span class="lineno"> 1524</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01525"></a><span class="lineno"> 1525</span> <span class="preprocessor">#endif</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">#undef USE_RUBY_ALLOC</span></div><div class="line"><a name="l01528"></a><span class="lineno"> 1528</span> </div><div class="line"><a name="l01529"></a><span class="lineno"> 1529</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l01530"></a><span class="lineno"> 1530</span>  <span class="comment">/* string interface */</span></div><div class="line"><a name="l01531"></a><span class="lineno"> 1531</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> **<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l01532"></a><span class="lineno"> 1532</span> <span class="preprocessor">#define USE_RUBY_ALLOC 0</span></div><div class="line"><a name="l01533"></a><span class="lineno"> 1533</span> <span class="preprocessor">#if USE_RUBY_ALLOC</span></div><div class="line"><a name="l01534"></a><span class="lineno"> 1534</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a> = <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="l01535"></a><span class="lineno"> 1535</span> <span class="preprocessor">#else </span><span class="comment">/* not USE_RUBY_ALLOC */</span><span class="preprocessor"></span></div><div class="line"><a name="l01536"></a><span class="lineno"> 1536</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> *, 3);</div><div class="line"><a name="l01537"></a><span class="lineno"> 1537</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="l01538"></a><span class="lineno"> 1538</span>  Tcl_Preserve((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l01539"></a><span class="lineno"> 1539</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01540"></a><span class="lineno"> 1540</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01541"></a><span class="lineno"> 1541</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[0] = (<span class="keywordtype">char</span> *)<span class="stringliteral">"exit"</span>;</div><div class="line"><a name="l01542"></a><span class="lineno"> 1542</span>  <span class="comment">/* argv[1] = Tcl_GetString(state_obj); */</span></div><div class="line"><a name="l01543"></a><span class="lineno"> 1543</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1] = Tcl_GetStringFromObj(state_obj, (<span class="keywordtype">int</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l01544"></a><span class="lineno"> 1544</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[2] = (<span class="keywordtype">char</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l01545"></a><span class="lineno"> 1545</span> </div><div class="line"><a name="l01546"></a><span class="lineno"> 1546</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>, 2, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l01547"></a><span class="lineno"> 1547</span> </div><div class="line"><a name="l01548"></a><span class="lineno"> 1548</span> <span class="preprocessor">#if USE_RUBY_ALLOC</span></div><div class="line"><a name="l01549"></a><span class="lineno"> 1549</span>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l01550"></a><span class="lineno"> 1550</span> <span class="preprocessor">#else </span><span class="comment">/* not USE_RUBY_ALLOC */</span><span class="preprocessor"></span></div><div class="line"><a name="l01551"></a><span class="lineno"> 1551</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l01552"></a><span class="lineno"> 1552</span>  Tcl_EventuallyFree((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l01553"></a><span class="lineno"> 1553</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01554"></a><span class="lineno"> 1554</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="l01555"></a><span class="lineno"> 1555</span>  Tcl_Release((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l01556"></a><span class="lineno"> 1556</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01557"></a><span class="lineno"> 1557</span>  <span class="comment">/* free(argv); */</span></div><div class="line"><a name="l01558"></a><span class="lineno"> 1558</span>  ckfree((<span class="keywordtype">char</span>*)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l01559"></a><span class="lineno"> 1559</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01560"></a><span class="lineno"> 1560</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01561"></a><span class="lineno"> 1561</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01562"></a><span class="lineno"> 1562</span> <span class="preprocessor">#undef USE_RUBY_ALLOC</span></div><div class="line"><a name="l01563"></a><span class="lineno"> 1563</span>  }</div><div class="line"><a name="l01564"></a><span class="lineno"> 1564</span> </div><div class="line"><a name="l01565"></a><span class="lineno"> 1565</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(state_obj);</div><div class="line"><a name="l01566"></a><span class="lineno"> 1566</span> </div><div class="line"><a name="l01567"></a><span class="lineno"> 1567</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l01568"></a><span class="lineno"> 1568</span>  {</div><div class="line"><a name="l01569"></a><span class="lineno"> 1569</span>  <span class="comment">/* string interface */</span></div><div class="line"><a name="l01570"></a><span class="lineno"> 1570</span>  <span class="keywordtype">char</span> **<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l01571"></a><span class="lineno"> 1571</span> <span class="preprocessor">#define USE_RUBY_ALLOC 0</span></div><div class="line"><a name="l01572"></a><span class="lineno"> 1572</span> <span class="preprocessor">#if USE_RUBY_ALLOC</span></div><div class="line"><a name="l01573"></a><span class="lineno"> 1573</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a> = (<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="l01574"></a><span class="lineno"> 1574</span> <span class="preprocessor">#else </span><span class="comment">/* not USE_RUBY_ALLOC */</span><span class="preprocessor"></span></div><div class="line"><a name="l01575"></a><span class="lineno"> 1575</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(<span class="keywordtype">char</span> *, 3);</div><div class="line"><a name="l01576"></a><span class="lineno"> 1576</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="l01577"></a><span class="lineno"> 1577</span>  Tcl_Preserve((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l01578"></a><span class="lineno"> 1578</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01579"></a><span class="lineno"> 1579</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01580"></a><span class="lineno"> 1580</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[0] = <span class="stringliteral">"exit"</span>;</div><div class="line"><a name="l01581"></a><span class="lineno"> 1581</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1] = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">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#a7bce65407b21f6812267e8d5426201f0">INT2NUM</a>(state), 10));</div><div class="line"><a name="l01582"></a><span class="lineno"> 1582</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[2] = (<span class="keywordtype">char</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l01583"></a><span class="lineno"> 1583</span> </div><div class="line"><a name="l01584"></a><span class="lineno"> 1584</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="l01585"></a><span class="lineno"> 1585</span>  2, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l01586"></a><span class="lineno"> 1586</span> </div><div class="line"><a name="l01587"></a><span class="lineno"> 1587</span> <span class="preprocessor">#if USE_RUBY_ALLOC</span></div><div class="line"><a name="l01588"></a><span class="lineno"> 1588</span>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l01589"></a><span class="lineno"> 1589</span> <span class="preprocessor">#else </span><span class="comment">/* not USE_RUBY_ALLOC */</span><span class="preprocessor"></span></div><div class="line"><a name="l01590"></a><span class="lineno"> 1590</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l01591"></a><span class="lineno"> 1591</span>  Tcl_EventuallyFree((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l01592"></a><span class="lineno"> 1592</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01593"></a><span class="lineno"> 1593</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="l01594"></a><span class="lineno"> 1594</span>  Tcl_Release((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l01595"></a><span class="lineno"> 1595</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01596"></a><span class="lineno"> 1596</span>  <span class="comment">/* free(argv); */</span></div><div class="line"><a name="l01597"></a><span class="lineno"> 1597</span>  ckfree(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l01598"></a><span class="lineno"> 1598</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01599"></a><span class="lineno"> 1599</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01600"></a><span class="lineno"> 1600</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01601"></a><span class="lineno"> 1601</span> <span class="preprocessor">#undef USE_RUBY_ALLOC</span></div><div class="line"><a name="l01602"></a><span class="lineno"> 1602</span>  }</div><div class="line"><a name="l01603"></a><span class="lineno"> 1603</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01604"></a><span class="lineno"> 1604</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="l01605"></a><span class="lineno"> 1605</span> </div><div class="line"><a name="l01606"></a><span class="lineno"> 1606</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l01607"></a><span class="lineno"> 1607</span> }</div><div class="line"><a name="l01608"></a><span class="lineno"> 1608</span> </div><div class="line"><a name="l01609"></a><span class="lineno"> 1609</span> <span class="comment">/* Tk_ThreadTimer */</span></div><div class="line"><a name="l01610"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553"> 1610</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="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</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> <span class="comment">/* timer callback */</span></div><div class="line"><a name="l01613"></a><span class="lineno"> 1613</span> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9c2bd05fb4f432989cabce5a81d692b0">_timer_for_tcl</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData));</div><div class="line"><a name="l01614"></a><span class="lineno"> 1614</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l01615"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9c2bd05fb4f432989cabce5a81d692b0"> 1615</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9c2bd05fb4f432989cabce5a81d692b0">_timer_for_tcl</a>(clientData)</div><div class="line"><a name="l01616"></a><span class="lineno"> 1616</span>  ClientData clientData;</div><div class="line"><a name="l01617"></a><span class="lineno"> 1617</span> {</div><div class="line"><a name="l01618"></a><span class="lineno"> 1618</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l01619"></a><span class="lineno"> 1619</span> </div><div class="line"><a name="l01620"></a><span class="lineno"> 1620</span>  <span class="comment">/* struct invoke_queue *q, *tmp; */</span></div><div class="line"><a name="l01621"></a><span class="lineno"> 1621</span>  <span class="comment">/* VALUE thread; */</span></div><div class="line"><a name="l01622"></a><span class="lineno"> 1622</span> </div><div class="line"><a name="l01623"></a><span class="lineno"> 1623</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="l01624"></a><span class="lineno"> 1624</span> </div><div class="line"><a name="l01625"></a><span class="lineno"> 1625</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l01626"></a><span class="lineno"> 1626</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</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>  Tcl_DeleteTimerHandler(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a>);</div><div class="line"><a name="l01629"></a><span class="lineno"> 1629</span> </div><div class="line"><a name="l01630"></a><span class="lineno"> 1630</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a19128ae2c34cb86eeda84fdc1ad3a582">run_timer_flag</a> = 1;</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="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a3b56c2ca4a23c4296f7b38db44424a3d">timer_tick</a> > 0) {</div><div class="line"><a name="l01633"></a><span class="lineno"> 1633</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a> = Tcl_CreateTimerHandler(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a3b56c2ca4a23c4296f7b38db44424a3d">timer_tick</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9c2bd05fb4f432989cabce5a81d692b0">_timer_for_tcl</a>,</div><div class="line"><a name="l01634"></a><span class="lineno"> 1634</span>  (ClientData)0);</div><div class="line"><a name="l01635"></a><span class="lineno"> 1635</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l01636"></a><span class="lineno"> 1636</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a> = (Tcl_TimerToken)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l01637"></a><span class="lineno"> 1637</span>  }</div><div class="line"><a name="l01638"></a><span class="lineno"> 1638</span> </div><div class="line"><a name="l01639"></a><span class="lineno"> 1639</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l01640"></a><span class="lineno"> 1640</span> </div><div class="line"><a name="l01641"></a><span class="lineno"> 1641</span>  <span class="comment">/* rb_thread_schedule(); */</span></div><div class="line"><a name="l01642"></a><span class="lineno"> 1642</span>  <span class="comment">/* tick_counter += event_loop_max; */</span></div><div class="line"><a name="l01643"></a><span class="lineno"> 1643</span> }</div><div class="line"><a name="l01644"></a><span class="lineno"> 1644</span> </div><div class="line"><a name="l01645"></a><span class="lineno"> 1645</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l01646"></a><span class="lineno"> 1646</span> <span class="preprocessor">#if USE_TOGGLE_WINDOW_MODE_FOR_IDLE</span></div><div class="line"><a name="l01647"></a><span class="lineno"> 1647</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l01648"></a><span class="lineno"> 1648</span> toggle_eventloop_window_mode_for_idle()</div><div class="line"><a name="l01649"></a><span class="lineno"> 1649</span> {</div><div class="line"><a name="l01650"></a><span class="lineno"> 1650</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a1874132e952c92de8ac49397d4a67742">window_event_mode</a> & TCL_IDLE_EVENTS) {</div><div class="line"><a name="l01651"></a><span class="lineno"> 1651</span>  <span class="comment">/* idle -> event */</span></div><div class="line"><a name="l01652"></a><span class="lineno"> 1652</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1874132e952c92de8ac49397d4a67742">window_event_mode</a> |= TCL_WINDOW_EVENTS;</div><div class="line"><a name="l01653"></a><span class="lineno"> 1653</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1874132e952c92de8ac49397d4a67742">window_event_mode</a> &= ~TCL_IDLE_EVENTS;</div><div class="line"><a name="l01654"></a><span class="lineno"> 1654</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l01655"></a><span class="lineno"> 1655</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l01656"></a><span class="lineno"> 1656</span>  <span class="comment">/* event -> idle */</span></div><div class="line"><a name="l01657"></a><span class="lineno"> 1657</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1874132e952c92de8ac49397d4a67742">window_event_mode</a> |= TCL_IDLE_EVENTS;</div><div class="line"><a name="l01658"></a><span class="lineno"> 1658</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1874132e952c92de8ac49397d4a67742">window_event_mode</a> &= ~TCL_WINDOW_EVENTS;</div><div class="line"><a name="l01659"></a><span class="lineno"> 1659</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l01660"></a><span class="lineno"> 1660</span>  }</div><div class="line"><a name="l01661"></a><span class="lineno"> 1661</span> }</div><div class="line"><a name="l01662"></a><span class="lineno"> 1662</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01663"></a><span class="lineno"> 1663</span> <span class="preprocessor">#endif</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="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01666"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a32cab3889f06a8a2cd1bd19a21cafacd"> 1666</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a32cab3889f06a8a2cd1bd19a21cafacd">set_eventloop_window_mode</a>(<span class="keyword">self</span>, mode)</div><div class="line"><a name="l01667"></a><span class="lineno"> 1667</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l01668"></a><span class="lineno"> 1668</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> mode;</div><div class="line"><a name="l01669"></a><span class="lineno"> 1669</span> {</div><div class="line"><a name="l01670"></a><span class="lineno"> 1670</span> </div><div class="line"><a name="l01671"></a><span class="lineno"> 1671</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="l01672"></a><span class="lineno"> 1672</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1874132e952c92de8ac49397d4a67742">window_event_mode</a> = ~0;</div><div class="line"><a name="l01673"></a><span class="lineno"> 1673</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l01674"></a><span class="lineno"> 1674</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1874132e952c92de8ac49397d4a67742">window_event_mode</a> = ~TCL_WINDOW_EVENTS;</div><div class="line"><a name="l01675"></a><span class="lineno"> 1675</span>  }</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>  <span class="keywordflow">return</span> mode;</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> </div><div class="line"><a name="l01680"></a><span class="lineno"> 1680</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01681"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aff53058299740e6e65bdfdf16cfea00a"> 1681</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aff53058299740e6e65bdfdf16cfea00a">get_eventloop_window_mode</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l01682"></a><span class="lineno"> 1682</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</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="keywordflow">if</span> ( ~<a class="code" href="../../d5/d9d/tcltklib_8c.html#a1874132e952c92de8ac49397d4a67742">window_event_mode</a> ) {</div><div class="line"><a name="l01685"></a><span class="lineno"> 1685</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l01686"></a><span class="lineno"> 1686</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l01687"></a><span class="lineno"> 1687</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</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> }</div><div class="line"><a name="l01690"></a><span class="lineno"> 1690</span> </div><div class="line"><a name="l01691"></a><span class="lineno"> 1691</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01692"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a27686a7bb4f8c4edefcae08f76d63aae"> 1692</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a27686a7bb4f8c4edefcae08f76d63aae">set_eventloop_tick</a>(<span class="keyword">self</span>, tick)</div><div class="line"><a name="l01693"></a><span class="lineno"> 1693</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l01694"></a><span class="lineno"> 1694</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> tick;</div><div class="line"><a name="l01695"></a><span class="lineno"> 1695</span> {</div><div class="line"><a name="l01696"></a><span class="lineno"> 1696</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="l01697"></a><span class="lineno"> 1697</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l01698"></a><span class="lineno"> 1698</span> </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>  <span class="keywordflow">if</span> (ttick < 0) {</div><div class="line"><a name="l01701"></a><span class="lineno"> 1701</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="l01702"></a><span class="lineno"> 1702</span>  <span class="stringliteral">"timer-tick parameter must be 0 or positive number"</span>);</div><div class="line"><a name="l01703"></a><span class="lineno"> 1703</span>  }</div><div class="line"><a name="l01704"></a><span class="lineno"> 1704</span> </div><div class="line"><a name="l01705"></a><span class="lineno"> 1705</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l01706"></a><span class="lineno"> 1706</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</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>  <span class="comment">/* delete old timer callback */</span></div><div class="line"><a name="l01709"></a><span class="lineno"> 1709</span>  Tcl_DeleteTimerHandler(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</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>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3b56c2ca4a23c4296f7b38db44424a3d">timer_tick</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aee699b1c46e61042b7675d02247208fb">req_timer_tick</a> = ttick;</div><div class="line"><a name="l01712"></a><span class="lineno"> 1712</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a3b56c2ca4a23c4296f7b38db44424a3d">timer_tick</a> > 0) {</div><div class="line"><a name="l01713"></a><span class="lineno"> 1713</span>  <span class="comment">/* start timer callback */</span></div><div class="line"><a name="l01714"></a><span class="lineno"> 1714</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a> = Tcl_CreateTimerHandler(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a3b56c2ca4a23c4296f7b38db44424a3d">timer_tick</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9c2bd05fb4f432989cabce5a81d692b0">_timer_for_tcl</a>,</div><div class="line"><a name="l01715"></a><span class="lineno"> 1715</span>  (ClientData)0);</div><div class="line"><a name="l01716"></a><span class="lineno"> 1716</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l01717"></a><span class="lineno"> 1717</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a> = (Tcl_TimerToken)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l01718"></a><span class="lineno"> 1718</span>  }</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>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l01721"></a><span class="lineno"> 1721</span> </div><div class="line"><a name="l01722"></a><span class="lineno"> 1722</span>  <span class="keywordflow">return</span> tick;</div><div class="line"><a name="l01723"></a><span class="lineno"> 1723</span> }</div><div class="line"><a name="l01724"></a><span class="lineno"> 1724</span> </div><div class="line"><a name="l01725"></a><span class="lineno"> 1725</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01726"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac8db9fd449201bae8181612e747785eb"> 1726</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac8db9fd449201bae8181612e747785eb">get_eventloop_tick</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l01727"></a><span class="lineno"> 1727</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l01728"></a><span class="lineno"> 1728</span> {</div><div class="line"><a name="l01729"></a><span class="lineno"> 1729</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a7bce65407b21f6812267e8d5426201f0">INT2NUM</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a3b56c2ca4a23c4296f7b38db44424a3d">timer_tick</a>);</div><div class="line"><a name="l01730"></a><span class="lineno"> 1730</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> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01733"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#afa5dc85d9ac38f133348564cc314fcf2"> 1733</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa5dc85d9ac38f133348564cc314fcf2">ip_set_eventloop_tick</a>(<span class="keyword">self</span>, tick)</div><div class="line"><a name="l01734"></a><span class="lineno"> 1734</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l01735"></a><span class="lineno"> 1735</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> tick;</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="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>);</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>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l01740"></a><span class="lineno"> 1740</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l01741"></a><span class="lineno"> 1741</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac8db9fd449201bae8181612e747785eb">get_eventloop_tick</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l01742"></a><span class="lineno"> 1742</span>  }</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">if</span> (Tcl_GetMaster(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) != (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l01745"></a><span class="lineno"> 1745</span>  <span class="comment">/* slave IP */</span></div><div class="line"><a name="l01746"></a><span class="lineno"> 1746</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac8db9fd449201bae8181612e747785eb">get_eventloop_tick</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l01747"></a><span class="lineno"> 1747</span>  }</div><div class="line"><a name="l01748"></a><span class="lineno"> 1748</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a27686a7bb4f8c4edefcae08f76d63aae">set_eventloop_tick</a>(<span class="keyword">self</span>, tick);</div><div class="line"><a name="l01749"></a><span class="lineno"> 1749</span> }</div><div class="line"><a name="l01750"></a><span class="lineno"> 1750</span> </div><div class="line"><a name="l01751"></a><span class="lineno"> 1751</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01752"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af66c3331d93fdb16484b85d18d502b06"> 1752</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af66c3331d93fdb16484b85d18d502b06">ip_get_eventloop_tick</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l01753"></a><span class="lineno"> 1753</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l01754"></a><span class="lineno"> 1754</span> {</div><div class="line"><a name="l01755"></a><span class="lineno"> 1755</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac8db9fd449201bae8181612e747785eb">get_eventloop_tick</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l01756"></a><span class="lineno"> 1756</span> }</div><div class="line"><a name="l01757"></a><span class="lineno"> 1757</span> </div><div class="line"><a name="l01758"></a><span class="lineno"> 1758</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01759"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a554381cf6d59dce54dfe1302356852a2"> 1759</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a554381cf6d59dce54dfe1302356852a2">set_no_event_wait</a>(<span class="keyword">self</span>, <a class="code" href="../../d5/df2/win32_8c.html#a6655447bab00753d59759423bf28e22e">wait</a>)</div><div class="line"><a name="l01760"></a><span class="lineno"> 1760</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l01761"></a><span class="lineno"> 1761</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/df2/win32_8c.html#a6655447bab00753d59759423bf28e22e">wait</a>;</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="keywordtype">int</span> t_wait = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a877c38180d23c5447d976c70dda89d69">NUM2INT</a>(<a class="code" href="../../d5/df2/win32_8c.html#a6655447bab00753d59759423bf28e22e">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="keywordflow">if</span> (t_wait <= 0) {</div><div class="line"><a name="l01767"></a><span class="lineno"> 1767</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="l01768"></a><span class="lineno"> 1768</span>  <span class="stringliteral">"no_event_wait parameter must be positive number"</span>);</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> </div><div class="line"><a name="l01771"></a><span class="lineno"> 1771</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5cd666e3d3aacd7c40e7f8132f0f2db6">no_event_wait</a> = t_wait;</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="keywordflow">return</span> <a class="code" href="../../d5/df2/win32_8c.html#a6655447bab00753d59759423bf28e22e">wait</a>;</div><div class="line"><a name="l01774"></a><span class="lineno"> 1774</span> }</div><div class="line"><a name="l01775"></a><span class="lineno"> 1775</span> </div><div class="line"><a name="l01776"></a><span class="lineno"> 1776</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01777"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9728e6326ce0c625758692060db84929"> 1777</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9728e6326ce0c625758692060db84929">get_no_event_wait</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l01778"></a><span class="lineno"> 1778</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</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="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a7bce65407b21f6812267e8d5426201f0">INT2NUM</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a5cd666e3d3aacd7c40e7f8132f0f2db6">no_event_wait</a>);</div><div class="line"><a name="l01781"></a><span class="lineno"> 1781</span> }</div><div class="line"><a name="l01782"></a><span class="lineno"> 1782</span> </div><div class="line"><a name="l01783"></a><span class="lineno"> 1783</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01784"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0131e60372d95e3115ba5ce8da507c38"> 1784</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0131e60372d95e3115ba5ce8da507c38">ip_set_no_event_wait</a>(<span class="keyword">self</span>, <a class="code" href="../../d5/df2/win32_8c.html#a6655447bab00753d59759423bf28e22e">wait</a>)</div><div class="line"><a name="l01785"></a><span class="lineno"> 1785</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l01786"></a><span class="lineno"> 1786</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/df2/win32_8c.html#a6655447bab00753d59759423bf28e22e">wait</a>;</div><div class="line"><a name="l01787"></a><span class="lineno"> 1787</span> {</div><div class="line"><a name="l01788"></a><span class="lineno"> 1788</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l01789"></a><span class="lineno"> 1789</span> </div><div class="line"><a name="l01790"></a><span class="lineno"> 1790</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l01791"></a><span class="lineno"> 1791</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l01792"></a><span class="lineno"> 1792</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9728e6326ce0c625758692060db84929">get_no_event_wait</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l01793"></a><span class="lineno"> 1793</span>  }</div><div class="line"><a name="l01794"></a><span class="lineno"> 1794</span> </div><div class="line"><a name="l01795"></a><span class="lineno"> 1795</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="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l01796"></a><span class="lineno"> 1796</span>  <span class="comment">/* slave IP */</span></div><div class="line"><a name="l01797"></a><span class="lineno"> 1797</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9728e6326ce0c625758692060db84929">get_no_event_wait</a>(<span class="keyword">self</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="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a554381cf6d59dce54dfe1302356852a2">set_no_event_wait</a>(<span class="keyword">self</span>, <a class="code" href="../../d5/df2/win32_8c.html#a6655447bab00753d59759423bf28e22e">wait</a>);</div><div class="line"><a name="l01800"></a><span class="lineno"> 1800</span> }</div><div class="line"><a name="l01801"></a><span class="lineno"> 1801</span> </div><div class="line"><a name="l01802"></a><span class="lineno"> 1802</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01803"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af9a1342eb45e94901edad8f0b29402b2"> 1803</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af9a1342eb45e94901edad8f0b29402b2">ip_get_no_event_wait</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l01804"></a><span class="lineno"> 1804</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l01805"></a><span class="lineno"> 1805</span> {</div><div class="line"><a name="l01806"></a><span class="lineno"> 1806</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9728e6326ce0c625758692060db84929">get_no_event_wait</a>(<span class="keyword">self</span>);</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> </div><div class="line"><a name="l01809"></a><span class="lineno"> 1809</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01810"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9126b68acdeb075206c33efa9162398c"> 1810</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9126b68acdeb075206c33efa9162398c">set_eventloop_weight</a>(<span class="keyword">self</span>, loop_max, no_event)</div><div class="line"><a name="l01811"></a><span class="lineno"> 1811</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l01812"></a><span class="lineno"> 1812</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> loop_max;</div><div class="line"><a name="l01813"></a><span class="lineno"> 1813</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> no_event;</div><div class="line"><a name="l01814"></a><span class="lineno"> 1814</span> {</div><div class="line"><a name="l01815"></a><span class="lineno"> 1815</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="l01816"></a><span class="lineno"> 1816</span>  <span class="keywordtype">int</span> no_ev = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a877c38180d23c5447d976c70dda89d69">NUM2INT</a>(no_event);</div><div class="line"><a name="l01817"></a><span class="lineno"> 1817</span> </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>  <span class="keywordflow">if</span> (lpmax <= 0 || no_ev <= 0) {</div><div class="line"><a name="l01820"></a><span class="lineno"> 1820</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="l01821"></a><span class="lineno"> 1821</span>  }</div><div class="line"><a name="l01822"></a><span class="lineno"> 1822</span> </div><div class="line"><a name="l01823"></a><span class="lineno"> 1823</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8a799d2eb1758e37f3d53a9685db4b5b">event_loop_max</a> = lpmax;</div><div class="line"><a name="l01824"></a><span class="lineno"> 1824</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a69dfe84ee096c35fae385ff59fbc95d9">no_event_tick</a> = no_ev;</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>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a8f3988bb25848bb4e4519a29876b2d55">rb_ary_new3</a>(2, loop_max, no_event);</div><div class="line"><a name="l01827"></a><span class="lineno"> 1827</span> }</div><div class="line"><a name="l01828"></a><span class="lineno"> 1828</span> </div><div class="line"><a name="l01829"></a><span class="lineno"> 1829</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01830"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a79be545f6246bed648026db350f5ba9e"> 1830</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a79be545f6246bed648026db350f5ba9e">get_eventloop_weight</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l01831"></a><span class="lineno"> 1831</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</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="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a8f3988bb25848bb4e4519a29876b2d55">rb_ary_new3</a>(2, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a7bce65407b21f6812267e8d5426201f0">INT2NUM</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a8a799d2eb1758e37f3d53a9685db4b5b">event_loop_max</a>), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a7bce65407b21f6812267e8d5426201f0">INT2NUM</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a69dfe84ee096c35fae385ff59fbc95d9">no_event_tick</a>));</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> </div><div class="line"><a name="l01836"></a><span class="lineno"> 1836</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01837"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a292583c700a005045a3d17b66e3801ed"> 1837</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a292583c700a005045a3d17b66e3801ed">ip_set_eventloop_weight</a>(<span class="keyword">self</span>, loop_max, no_event)</div><div class="line"><a name="l01838"></a><span class="lineno"> 1838</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l01839"></a><span class="lineno"> 1839</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> loop_max;</div><div class="line"><a name="l01840"></a><span class="lineno"> 1840</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> no_event;</div><div class="line"><a name="l01841"></a><span class="lineno"> 1841</span> {</div><div class="line"><a name="l01842"></a><span class="lineno"> 1842</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<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="comment">/* ip is deleted? */</span></div><div class="line"><a name="l01845"></a><span class="lineno"> 1845</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l01846"></a><span class="lineno"> 1846</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a79be545f6246bed648026db350f5ba9e">get_eventloop_weight</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l01847"></a><span class="lineno"> 1847</span>  }</div><div class="line"><a name="l01848"></a><span class="lineno"> 1848</span> </div><div class="line"><a name="l01849"></a><span class="lineno"> 1849</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="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l01850"></a><span class="lineno"> 1850</span>  <span class="comment">/* slave IP */</span></div><div class="line"><a name="l01851"></a><span class="lineno"> 1851</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a79be545f6246bed648026db350f5ba9e">get_eventloop_weight</a>(<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>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9126b68acdeb075206c33efa9162398c">set_eventloop_weight</a>(<span class="keyword">self</span>, loop_max, no_event);</div><div class="line"><a name="l01854"></a><span class="lineno"> 1854</span> }</div><div class="line"><a name="l01855"></a><span class="lineno"> 1855</span> </div><div class="line"><a name="l01856"></a><span class="lineno"> 1856</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01857"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9d9430b2f796c0619bc9d62f22788b9a"> 1857</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d9430b2f796c0619bc9d62f22788b9a">ip_get_eventloop_weight</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l01858"></a><span class="lineno"> 1858</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l01859"></a><span class="lineno"> 1859</span> {</div><div class="line"><a name="l01860"></a><span class="lineno"> 1860</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a79be545f6246bed648026db350f5ba9e">get_eventloop_weight</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l01861"></a><span class="lineno"> 1861</span> }</div><div class="line"><a name="l01862"></a><span class="lineno"> 1862</span> </div><div class="line"><a name="l01863"></a><span class="lineno"> 1863</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01864"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a30f011b2db868d6e9248624460528261"> 1864</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a30f011b2db868d6e9248624460528261">set_max_block_time</a>(<span class="keyword">self</span>, time)</div><div class="line"><a name="l01865"></a><span class="lineno"> 1865</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l01866"></a><span class="lineno"> 1866</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> time;</div><div class="line"><a name="l01867"></a><span class="lineno"> 1867</span> {</div><div class="line"><a name="l01868"></a><span class="lineno"> 1868</span>  <span class="keyword">struct </span>Tcl_Time tcl_time;</div><div class="line"><a name="l01869"></a><span class="lineno"> 1869</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> divmod;</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">switch</span>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a394faf7191f18552a20cb17ce14226f0">TYPE</a>(time)) {</div><div class="line"><a name="l01872"></a><span class="lineno"> 1872</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="l01873"></a><span class="lineno"> 1873</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="l01874"></a><span class="lineno"> 1874</span>  <span class="comment">/* time is micro-second value */</span></div><div class="line"><a name="l01875"></a><span class="lineno"> 1875</span>  divmod = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">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#a854de1c520ed24a625d5a29f36a08f7a">LONG2NUM</a>(1000000));</div><div class="line"><a name="l01876"></a><span class="lineno"> 1876</span>  tcl_time.sec = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aebbec3f6980955bf51d9962ef99a5c13">NUM2LONG</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4e8fe9b7653d67be2401a8b85049e525">RARRAY_PTR</a>(divmod)[0]);</div><div class="line"><a name="l01877"></a><span class="lineno"> 1877</span>  tcl_time.usec = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aebbec3f6980955bf51d9962ef99a5c13">NUM2LONG</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4e8fe9b7653d67be2401a8b85049e525">RARRAY_PTR</a>(divmod)[1]);</div><div class="line"><a name="l01878"></a><span class="lineno"> 1878</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l01879"></a><span class="lineno"> 1879</span> </div><div class="line"><a name="l01880"></a><span class="lineno"> 1880</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="l01881"></a><span class="lineno"> 1881</span>  <span class="comment">/* time is second value */</span></div><div class="line"><a name="l01882"></a><span class="lineno"> 1882</span>  divmod = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">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="l01883"></a><span class="lineno"> 1883</span>  tcl_time.sec = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aebbec3f6980955bf51d9962ef99a5c13">NUM2LONG</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4e8fe9b7653d67be2401a8b85049e525">RARRAY_PTR</a>(divmod)[0]);</div><div class="line"><a name="l01884"></a><span class="lineno"> 1884</span>  tcl_time.usec = (long)(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a084521c82d2eb576d63d64bfe6b79642">NUM2DBL</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4e8fe9b7653d67be2401a8b85049e525">RARRAY_PTR</a>(divmod)[1]) * 1000000);</div><div class="line"><a name="l01885"></a><span class="lineno"> 1885</span> </div><div class="line"><a name="l01886"></a><span class="lineno"> 1886</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l01887"></a><span class="lineno"> 1887</span>  {</div><div class="line"><a name="l01888"></a><span class="lineno"> 1888</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> tmp = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(time, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1e8954156fff89f02ed89339cb91d368">ID_inspect</a>, 0, 0);</div><div class="line"><a name="l01889"></a><span class="lineno"> 1889</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="l01890"></a><span class="lineno"> 1890</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2665a51abbd5b49c15abff3df00fa9db">StringValuePtr</a>(tmp));</div><div class="line"><a name="l01891"></a><span class="lineno"> 1891</span>  }</div><div class="line"><a name="l01892"></a><span class="lineno"> 1892</span>  }</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>  Tcl_SetMaxBlockTime(&tcl_time);</div><div class="line"><a name="l01895"></a><span class="lineno"> 1895</span> </div><div class="line"><a name="l01896"></a><span class="lineno"> 1896</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l01897"></a><span class="lineno"> 1897</span> }</div><div class="line"><a name="l01898"></a><span class="lineno"> 1898</span> </div><div class="line"><a name="l01899"></a><span class="lineno"> 1899</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01900"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ab129e3e196eaea678bc471e3ef375ede"> 1900</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab129e3e196eaea678bc471e3ef375ede">lib_evloop_thread_p</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l01901"></a><span class="lineno"> 1901</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</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="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#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)) {</div><div class="line"><a name="l01904"></a><span class="lineno"> 1904</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>; <span class="comment">/* no eventloop */</span></div><div class="line"><a name="l01905"></a><span class="lineno"> 1905</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>() == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>) {</div><div class="line"><a name="l01906"></a><span class="lineno"> 1906</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>; <span class="comment">/* is eventloop */</span></div><div class="line"><a name="l01907"></a><span class="lineno"> 1907</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l01908"></a><span class="lineno"> 1908</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>; <span class="comment">/* not eventloop */</span></div><div class="line"><a name="l01909"></a><span class="lineno"> 1909</span>  }</div><div class="line"><a name="l01910"></a><span class="lineno"> 1910</span> }</div><div class="line"><a name="l01911"></a><span class="lineno"> 1911</span> </div><div class="line"><a name="l01912"></a><span class="lineno"> 1912</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01913"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a26761b7bba4295953f2ac116ce22e9c1"> 1913</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a26761b7bba4295953f2ac116ce22e9c1">lib_evloop_abort_on_exc</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l01914"></a><span class="lineno"> 1914</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</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="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8b4f77514e0422a4f7597d3ba5728ea">event_loop_abort_on_exc</a> > 0) {</div><div class="line"><a name="l01917"></a><span class="lineno"> 1917</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l01918"></a><span class="lineno"> 1918</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8b4f77514e0422a4f7597d3ba5728ea">event_loop_abort_on_exc</a> == 0) {</div><div class="line"><a name="l01919"></a><span class="lineno"> 1919</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l01920"></a><span class="lineno"> 1920</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l01921"></a><span class="lineno"> 1921</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</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> }</div><div class="line"><a name="l01924"></a><span class="lineno"> 1924</span> </div><div class="line"><a name="l01925"></a><span class="lineno"> 1925</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01926"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a74a8e3c8ce14b5e3bc0afc3afd0de65a"> 1926</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a74a8e3c8ce14b5e3bc0afc3afd0de65a">ip_evloop_abort_on_exc</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l01927"></a><span class="lineno"> 1927</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l01928"></a><span class="lineno"> 1928</span> {</div><div class="line"><a name="l01929"></a><span class="lineno"> 1929</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a26761b7bba4295953f2ac116ce22e9c1">lib_evloop_abort_on_exc</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l01930"></a><span class="lineno"> 1930</span> }</div><div class="line"><a name="l01931"></a><span class="lineno"> 1931</span> </div><div class="line"><a name="l01932"></a><span class="lineno"> 1932</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01933"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad9976bd3f0e23394b60b6b5f9ac807a0"> 1933</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad9976bd3f0e23394b60b6b5f9ac807a0">lib_evloop_abort_on_exc_set</a>(<span class="keyword">self</span>, <a class="code" href="../../df/d38/vm__exec_8c.html">val</a>)</div><div class="line"><a name="l01934"></a><span class="lineno"> 1934</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../df/d38/vm__exec_8c.html">val</a>;</div><div class="line"><a name="l01935"></a><span class="lineno"> 1935</span> {</div><div class="line"><a name="l01936"></a><span class="lineno"> 1936</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../df/d38/vm__exec_8c.html">val</a>)) {</div><div class="line"><a name="l01937"></a><span class="lineno"> 1937</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8b4f77514e0422a4f7597d3ba5728ea">event_loop_abort_on_exc</a> = 1;</div><div class="line"><a name="l01938"></a><span class="lineno"> 1938</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>(<a class="code" href="../../df/d38/vm__exec_8c.html">val</a>)) {</div><div class="line"><a name="l01939"></a><span class="lineno"> 1939</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8b4f77514e0422a4f7597d3ba5728ea">event_loop_abort_on_exc</a> = -1;</div><div class="line"><a name="l01940"></a><span class="lineno"> 1940</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l01941"></a><span class="lineno"> 1941</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8b4f77514e0422a4f7597d3ba5728ea">event_loop_abort_on_exc</a> = 0;</div><div class="line"><a name="l01942"></a><span class="lineno"> 1942</span>  }</div><div class="line"><a name="l01943"></a><span class="lineno"> 1943</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a26761b7bba4295953f2ac116ce22e9c1">lib_evloop_abort_on_exc</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l01944"></a><span class="lineno"> 1944</span> }</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="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01947"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a70253bb7c75ee32a4acfbbc813742d07"> 1947</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a70253bb7c75ee32a4acfbbc813742d07">ip_evloop_abort_on_exc_set</a>(<span class="keyword">self</span>, <a class="code" href="../../df/d38/vm__exec_8c.html">val</a>)</div><div class="line"><a name="l01948"></a><span class="lineno"> 1948</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../df/d38/vm__exec_8c.html">val</a>;</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>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l01951"></a><span class="lineno"> 1951</span> </div><div class="line"><a name="l01952"></a><span class="lineno"> 1952</span> </div><div class="line"><a name="l01953"></a><span class="lineno"> 1953</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l01954"></a><span class="lineno"> 1954</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</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#a26761b7bba4295953f2ac116ce22e9c1">lib_evloop_abort_on_exc</a>(<span class="keyword">self</span>);</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="keywordflow">if</span> (Tcl_GetMaster(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) != (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l01959"></a><span class="lineno"> 1959</span>  <span class="comment">/* slave IP */</span></div><div class="line"><a name="l01960"></a><span class="lineno"> 1960</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a26761b7bba4295953f2ac116ce22e9c1">lib_evloop_abort_on_exc</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l01961"></a><span class="lineno"> 1961</span>  }</div><div class="line"><a name="l01962"></a><span class="lineno"> 1962</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad9976bd3f0e23394b60b6b5f9ac807a0">lib_evloop_abort_on_exc_set</a>(<span class="keyword">self</span>, <a class="code" href="../../df/d38/vm__exec_8c.html">val</a>);</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> </div><div class="line"><a name="l01965"></a><span class="lineno"> 1965</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01966"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#affbf8d8c64c287a609d914f5ac9660ce"> 1966</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#affbf8d8c64c287a609d914f5ac9660ce">lib_num_of_mainwindows_core</a>(<span class="keyword">self</span>, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l01967"></a><span class="lineno"> 1967</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l01968"></a><span class="lineno"> 1968</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>; <span class="comment">/* dummy */</span></div><div class="line"><a name="l01969"></a><span class="lineno"> 1969</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>; <span class="comment">/* dummy */</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="keywordflow">if</span> (<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>()) {</div><div class="line"><a name="l01972"></a><span class="lineno"> 1972</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="l01973"></a><span class="lineno"> 1973</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l01974"></a><span class="lineno"> 1974</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="l01975"></a><span class="lineno"> 1975</span>  }</div><div class="line"><a name="l01976"></a><span class="lineno"> 1976</span> }</div><div class="line"><a name="l01977"></a><span class="lineno"> 1977</span> </div><div class="line"><a name="l01978"></a><span class="lineno"> 1978</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l01979"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad41041b63389250c18db126fe8e484eb"> 1979</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad41041b63389250c18db126fe8e484eb">lib_num_of_mainwindows</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l01980"></a><span class="lineno"> 1980</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</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="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD </span><span class="comment">/* Ruby 1.9+ !!! */</span><span class="preprocessor"></span></div><div class="line"><a name="l01983"></a><span class="lineno"> 1983</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1cec8ebc4c54249136da6b6df38fb723">tk_funcall</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#affbf8d8c64c287a609d914f5ac9660ce">lib_num_of_mainwindows_core</a>, 0, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, <span class="keyword">self</span>);</div><div class="line"><a name="l01984"></a><span class="lineno"> 1984</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l01985"></a><span class="lineno"> 1985</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#affbf8d8c64c287a609d914f5ac9660ce">lib_num_of_mainwindows_core</a>(<span class="keyword">self</span>, 0, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l01986"></a><span class="lineno"> 1986</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l01987"></a><span class="lineno"> 1987</span> }</div><div class="line"><a name="l01988"></a><span class="lineno"> 1988</span> </div><div class="line"><a name="l01989"></a><span class="lineno"> 1989</span> <span class="keywordtype">void</span></div><div class="line"><a name="l01990"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af2bf34bc42df2e5e8332e7ee104d2e1b"> 1990</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af2bf34bc42df2e5e8332e7ee104d2e1b">rbtk_EventSetupProc</a>(ClientData clientData, <span class="keywordtype">int</span> flag)</div><div class="line"><a name="l01991"></a><span class="lineno"> 1991</span> {</div><div class="line"><a name="l01992"></a><span class="lineno"> 1992</span>  Tcl_Time tcl_time;</div><div class="line"><a name="l01993"></a><span class="lineno"> 1993</span>  tcl_time.sec = 0;</div><div class="line"><a name="l01994"></a><span class="lineno"> 1994</span>  tcl_time.usec = 1000L * (long)<a class="code" href="../../d5/d9d/tcltklib_8c.html#a69dfe84ee096c35fae385ff59fbc95d9">no_event_tick</a>;</div><div class="line"><a name="l01995"></a><span class="lineno"> 1995</span>  Tcl_SetMaxBlockTime(&tcl_time);</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="keywordtype">void</span></div><div class="line"><a name="l01999"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7c5cc2da826665da5df5c33182df8746"> 1999</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7c5cc2da826665da5df5c33182df8746">rbtk_EventCheckProc</a>(ClientData clientData, <span class="keywordtype">int</span> flag)</div><div class="line"><a name="l02000"></a><span class="lineno"> 2000</span> {</div><div class="line"><a name="l02001"></a><span class="lineno"> 2001</span>  <a class="code" href="../../db/d2e/intern_8h.html#ad1fe299d3b5a492259ab4e733832868c">rb_thread_schedule</a>();</div><div class="line"><a name="l02002"></a><span class="lineno"> 2002</span> }</div><div class="line"><a name="l02003"></a><span class="lineno"> 2003</span> </div><div class="line"><a name="l02004"></a><span class="lineno"> 2004</span> </div><div class="line"><a name="l02005"></a><span class="lineno"> 2005</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="l02006"></a><span class="lineno"> 2006</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02007"></a><span class="lineno"> 2007</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div><div class="line"><a name="l02008"></a><span class="lineno"> 2008</span> call_DoOneEvent_core(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> flag_val)</div><div class="line"><a name="l02009"></a><span class="lineno"> 2009</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02010"></a><span class="lineno"> 2010</span> call_DoOneEvent_core(flag_val)</div><div class="line"><a name="l02011"></a><span class="lineno"> 2011</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> flag_val;</div><div class="line"><a name="l02012"></a><span class="lineno"> 2012</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02013"></a><span class="lineno"> 2013</span> {</div><div class="line"><a name="l02014"></a><span class="lineno"> 2014</span>  <span class="keywordtype">int</span> flag;</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>  flag = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(flag_val);</div><div class="line"><a name="l02017"></a><span class="lineno"> 2017</span>  <span class="keywordflow">if</span> (Tcl_DoOneEvent(flag)) {</div><div class="line"><a name="l02018"></a><span class="lineno"> 2018</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l02019"></a><span class="lineno"> 2019</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02020"></a><span class="lineno"> 2020</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l02021"></a><span class="lineno"> 2021</span>  }</div><div class="line"><a name="l02022"></a><span class="lineno"> 2022</span> }</div><div class="line"><a name="l02023"></a><span class="lineno"> 2023</span> </div><div class="line"><a name="l02024"></a><span class="lineno"> 2024</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02025"></a><span class="lineno"> 2025</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div><div class="line"><a name="l02026"></a><span class="lineno"> 2026</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d1b4009a0af0bde4902670d7b306568">call_DoOneEvent</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> flag_val)</div><div class="line"><a name="l02027"></a><span class="lineno"> 2027</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02028"></a><span class="lineno"> 2028</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d1b4009a0af0bde4902670d7b306568">call_DoOneEvent</a>(flag_val)</div><div class="line"><a name="l02029"></a><span class="lineno"> 2029</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> flag_val;</div><div class="line"><a name="l02030"></a><span class="lineno"> 2030</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02031"></a><span class="lineno"> 2031</span> {</div><div class="line"><a name="l02032"></a><span class="lineno"> 2032</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1cec8ebc4c54249136da6b6df38fb723">tk_funcall</a>(call_DoOneEvent_core, 0, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, flag_val);</div><div class="line"><a name="l02033"></a><span class="lineno"> 2033</span> }</div><div class="line"><a name="l02034"></a><span class="lineno"> 2034</span> </div><div class="line"><a name="l02035"></a><span class="lineno"> 2035</span> <span class="preprocessor">#else </span><span class="comment">/* Ruby 1.8- */</span><span class="preprocessor"></span></div><div class="line"><a name="l02036"></a><span class="lineno"> 2036</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02037"></a><span class="lineno"> 2037</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div><div class="line"><a name="l02038"></a><span class="lineno"> 2038</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d1b4009a0af0bde4902670d7b306568">call_DoOneEvent</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> flag_val)</div><div class="line"><a name="l02039"></a><span class="lineno"> 2039</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02040"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9d1b4009a0af0bde4902670d7b306568"> 2040</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d1b4009a0af0bde4902670d7b306568">call_DoOneEvent</a>(flag_val)</div><div class="line"><a name="l02041"></a><span class="lineno"> 2041</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> flag_val;</div><div class="line"><a name="l02042"></a><span class="lineno"> 2042</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02043"></a><span class="lineno"> 2043</span> {</div><div class="line"><a name="l02044"></a><span class="lineno"> 2044</span>  <span class="keywordtype">int</span> flag;</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>  flag = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(flag_val);</div><div class="line"><a name="l02047"></a><span class="lineno"> 2047</span>  <span class="keywordflow">if</span> (Tcl_DoOneEvent(flag)) {</div><div class="line"><a name="l02048"></a><span class="lineno"> 2048</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l02049"></a><span class="lineno"> 2049</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02050"></a><span class="lineno"> 2050</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l02051"></a><span class="lineno"> 2051</span>  }</div><div class="line"><a name="l02052"></a><span class="lineno"> 2052</span> }</div><div class="line"><a name="l02053"></a><span class="lineno"> 2053</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02054"></a><span class="lineno"> 2054</span> </div><div class="line"><a name="l02055"></a><span class="lineno"> 2055</span> </div><div class="line"><a name="l02056"></a><span class="lineno"> 2056</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l02057"></a><span class="lineno"> 2057</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02058"></a><span class="lineno"> 2058</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div><div class="line"><a name="l02059"></a><span class="lineno"> 2059</span> eventloop_sleep(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> dummy)</div><div class="line"><a name="l02060"></a><span class="lineno"> 2060</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02061"></a><span class="lineno"> 2061</span> eventloop_sleep(dummy)</div><div class="line"><a name="l02062"></a><span class="lineno"> 2062</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> dummy;</div><div class="line"><a name="l02063"></a><span class="lineno"> 2063</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02064"></a><span class="lineno"> 2064</span> {</div><div class="line"><a name="l02065"></a><span class="lineno"> 2065</span>  <span class="keyword">struct </span><a class="code" href="../../d1/d1b/structtimeval.html">timeval</a> <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>;</div><div class="line"><a name="l02066"></a><span class="lineno"> 2066</span> </div><div class="line"><a name="l02067"></a><span class="lineno"> 2067</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a5cd666e3d3aacd7c40e7f8132f0f2db6">no_event_wait</a> <= 0) {</div><div class="line"><a name="l02068"></a><span class="lineno"> 2068</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l02069"></a><span class="lineno"> 2069</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>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_sec = 0;</div><div class="line"><a name="l02072"></a><span class="lineno"> 2072</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_usec = (int)(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a5cd666e3d3aacd7c40e7f8132f0f2db6">no_event_wait</a>*1000.0);</div><div class="line"><a name="l02073"></a><span class="lineno"> 2073</span> </div><div class="line"><a name="l02074"></a><span class="lineno"> 2074</span> <span class="preprocessor">#ifdef HAVE_NATIVETHREAD</span></div><div class="line"><a name="l02075"></a><span class="lineno"> 2075</span> <span class="preprocessor">#ifndef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l02076"></a><span class="lineno"> 2076</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="l02077"></a><span class="lineno"> 2077</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="l02078"></a><span class="lineno"> 2078</span>  }</div><div class="line"><a name="l02079"></a><span class="lineno"> 2079</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02080"></a><span class="lineno"> 2080</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02081"></a><span class="lineno"> 2081</span> </div><div class="line"><a name="l02082"></a><span class="lineno"> 2082</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="l02083"></a><span class="lineno"> 2083</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0187a1eb4a4d01a4c9ef6b36b51faa6f">rb_thread_wait_for</a>(<a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>);</div><div class="line"><a name="l02084"></a><span class="lineno"> 2084</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="l02085"></a><span class="lineno"> 2085</span> </div><div class="line"><a name="l02086"></a><span class="lineno"> 2086</span> <span class="preprocessor">#ifdef HAVE_NATIVETHREAD</span></div><div class="line"><a name="l02087"></a><span class="lineno"> 2087</span> <span class="preprocessor">#ifndef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l02088"></a><span class="lineno"> 2088</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="l02089"></a><span class="lineno"> 2089</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="l02090"></a><span class="lineno"> 2090</span>  }</div><div class="line"><a name="l02091"></a><span class="lineno"> 2091</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02092"></a><span class="lineno"> 2092</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02093"></a><span class="lineno"> 2093</span> </div><div class="line"><a name="l02094"></a><span class="lineno"> 2094</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l02095"></a><span class="lineno"> 2095</span> }</div><div class="line"><a name="l02096"></a><span class="lineno"> 2096</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02097"></a><span class="lineno"> 2097</span> </div><div class="line"><a name="l02098"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6058a76395808a09a414a8a9b7c2a7b4"> 2098</a></span> <span class="preprocessor">#define USE_EVLOOP_THREAD_ALONE_CHECK_FLAG 0</span></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="preprocessor">#if USE_EVLOOP_THREAD_ALONE_CHECK_FLAG</span></div><div class="line"><a name="l02101"></a><span class="lineno"> 2101</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l02102"></a><span class="lineno"> 2102</span> get_thread_alone_check_flag()</div><div class="line"><a name="l02103"></a><span class="lineno"> 2103</span> {</div><div class="line"><a name="l02104"></a><span class="lineno"> 2104</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l02105"></a><span class="lineno"> 2105</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l02106"></a><span class="lineno"> 2106</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02107"></a><span class="lineno"> 2107</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a171a0d27738b86387c3b5d7a5ff075e8">set_tcltk_version</a>();</div><div class="line"><a name="l02108"></a><span class="lineno"> 2108</span> </div><div class="line"><a name="l02109"></a><span class="lineno"> 2109</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4afd20af9587a4711046697f7730d727">tcltk_version</a>.major < 8) {</div><div class="line"><a name="l02110"></a><span class="lineno"> 2110</span>  <span class="comment">/* Tcl/Tk 7.x */</span></div><div class="line"><a name="l02111"></a><span class="lineno"> 2111</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l02112"></a><span class="lineno"> 2112</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4afd20af9587a4711046697f7730d727">tcltk_version</a>.major == 8) {</div><div class="line"><a name="l02113"></a><span class="lineno"> 2113</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4afd20af9587a4711046697f7730d727">tcltk_version</a>.minor < 5) {</div><div class="line"><a name="l02114"></a><span class="lineno"> 2114</span>  <span class="comment">/* Tcl/Tk 8.0 - 8.4 */</span></div><div class="line"><a name="l02115"></a><span class="lineno"> 2115</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l02116"></a><span class="lineno"> 2116</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4afd20af9587a4711046697f7730d727">tcltk_version</a>.minor == 5) {</div><div class="line"><a name="l02117"></a><span class="lineno"> 2117</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4afd20af9587a4711046697f7730d727">tcltk_version</a>.type < <a class="code" href="../../d5/d9d/tcltklib_8c.html#aeebe90bc7223d7d0cdc31f8e2e336e40">TCL_FINAL_RELEASE</a>) {</div><div class="line"><a name="l02118"></a><span class="lineno"> 2118</span>  <span class="comment">/* Tcl/Tk 8.5a? - 8.5b? */</span></div><div class="line"><a name="l02119"></a><span class="lineno"> 2119</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l02120"></a><span class="lineno"> 2120</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02121"></a><span class="lineno"> 2121</span>  <span class="comment">/* Tcl/Tk 8.5.x */</span></div><div class="line"><a name="l02122"></a><span class="lineno"> 2122</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l02123"></a><span class="lineno"> 2123</span>  }</div><div class="line"><a name="l02124"></a><span class="lineno"> 2124</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02125"></a><span class="lineno"> 2125</span>  <span class="comment">/* Tcl/Tk 8.6 - 8.9 ?? */</span></div><div class="line"><a name="l02126"></a><span class="lineno"> 2126</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l02127"></a><span class="lineno"> 2127</span>  }</div><div class="line"><a name="l02128"></a><span class="lineno"> 2128</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02129"></a><span class="lineno"> 2129</span>  <span class="comment">/* Tcl/Tk 9+ ?? */</span></div><div class="line"><a name="l02130"></a><span class="lineno"> 2130</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l02131"></a><span class="lineno"> 2131</span>  }</div><div class="line"><a name="l02132"></a><span class="lineno"> 2132</span> <span class="preprocessor">#endif</span></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> <span class="preprocessor">#endif</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"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a52e6fec0d2c0348c2e08039651add637"> 2136</a></span> <span class="preprocessor">#define TRAP_CHECK() do { \</span></div><div class="line"><a name="l02137"></a><span class="lineno"> 2137</span> <span class="preprocessor"> if (trap_check(check_var) == 0) return 0; \</span></div><div class="line"><a name="l02138"></a><span class="lineno"> 2138</span> <span class="preprocessor">} while (0)</span></div><div class="line"><a name="l02139"></a><span class="lineno"> 2139</span> </div><div class="line"><a name="l02140"></a><span class="lineno"> 2140</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l02141"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a96d7361e5cdcd126524d9a7310940c5b"> 2141</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a96d7361e5cdcd126524d9a7310940c5b">trap_check</a>(<span class="keywordtype">int</span> *check_var)</div><div class="line"><a name="l02142"></a><span class="lineno"> 2142</span> {</div><div class="line"><a name="l02143"></a><span class="lineno"> 2143</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="l02144"></a><span class="lineno"> 2144</span> </div><div class="line"><a name="l02145"></a><span class="lineno"> 2145</span> <span class="preprocessor">#ifdef RUBY_VM</span></div><div class="line"><a name="l02146"></a><span class="lineno"> 2146</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a41e6a95a134b13d63c516923d0a66f91">rb_thread_check_trap_pending</a>()) {</div><div class="line"><a name="l02147"></a><span class="lineno"> 2147</span>  <span class="keywordflow">if</span> (check_var != (<span class="keywordtype">int</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l02148"></a><span class="lineno"> 2148</span>  <span class="comment">/* wait command */</span></div><div class="line"><a name="l02149"></a><span class="lineno"> 2149</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l02150"></a><span class="lineno"> 2150</span>  }</div><div class="line"><a name="l02151"></a><span class="lineno"> 2151</span>  <span class="keywordflow">else</span> {</div><div class="line"><a name="l02152"></a><span class="lineno"> 2152</span>  <a class="code" href="../../db/d2e/intern_8h.html#a9c9bfa5b17b2be949b3ca843e6a0ee9e">rb_thread_check_ints</a>();</div><div class="line"><a name="l02153"></a><span class="lineno"> 2153</span>  }</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> <span class="preprocessor">#else</span></div><div class="line"><a name="l02156"></a><span class="lineno"> 2156</span>  <span class="keywordflow">if</span> (rb_trap_pending) {</div><div class="line"><a name="l02157"></a><span class="lineno"> 2157</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a19128ae2c34cb86eeda84fdc1ad3a582">run_timer_flag</a> = 0;</div><div class="line"><a name="l02158"></a><span class="lineno"> 2158</span>  <span class="keywordflow">if</span> (rb_prohibit_interrupt || check_var != (<span class="keywordtype">int</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l02159"></a><span class="lineno"> 2159</span>  <span class="comment">/* pending or on wait command */</span></div><div class="line"><a name="l02160"></a><span class="lineno"> 2160</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l02161"></a><span class="lineno"> 2161</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02162"></a><span class="lineno"> 2162</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0ada2cbd6df1fd2e1b65f182f372596a">rb_trap_exec</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>  }</div><div class="line"><a name="l02165"></a><span class="lineno"> 2165</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02166"></a><span class="lineno"> 2166</span> </div><div class="line"><a name="l02167"></a><span class="lineno"> 2167</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l02168"></a><span class="lineno"> 2168</span> }</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> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l02171"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a34e1a549edf3c2940a9d300814df2cd3"> 2171</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a34e1a549edf3c2940a9d300814df2cd3">check_eventloop_interp</a>()</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>  <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="l02174"></a><span class="lineno"> 2174</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a09520768374a3d97d15bad5db2dd06d8">eventloop_interp</a> != (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a></div><div class="line"><a name="l02175"></a><span class="lineno"> 2175</span>  && Tcl_InterpDeleted(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a09520768374a3d97d15bad5db2dd06d8">eventloop_interp</a>)) {</div><div class="line"><a name="l02176"></a><span class="lineno"> 2176</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eventloop_interp(%p) was deleted"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a09520768374a3d97d15bad5db2dd06d8">eventloop_interp</a>);</div><div class="line"><a name="l02177"></a><span class="lineno"> 2177</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l02178"></a><span class="lineno"> 2178</span>  }</div><div class="line"><a name="l02179"></a><span class="lineno"> 2179</span> </div><div class="line"><a name="l02180"></a><span class="lineno"> 2180</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l02181"></a><span class="lineno"> 2181</span> }</div><div class="line"><a name="l02182"></a><span class="lineno"> 2182</span> </div><div class="line"><a name="l02183"></a><span class="lineno"> 2183</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l02184"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a11b5ffc78d9ecba8b638e6ac2821c401"> 2184</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a11b5ffc78d9ecba8b638e6ac2821c401">lib_eventloop_core</a>(check_root, update_flag, check_var, interp)</div><div class="line"><a name="l02185"></a><span class="lineno"> 2185</span>  <span class="keywordtype">int</span> check_root;</div><div class="line"><a name="l02186"></a><span class="lineno"> 2186</span>  <span class="keywordtype">int</span> update_flag;</div><div class="line"><a name="l02187"></a><span class="lineno"> 2187</span>  <span class="keywordtype">int</span> *check_var;</div><div class="line"><a name="l02188"></a><span class="lineno"> 2188</span>  Tcl_Interp *interp;</div><div class="line"><a name="l02189"></a><span class="lineno"> 2189</span> {</div><div class="line"><a name="l02190"></a><span class="lineno"> 2190</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> current = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>;</div><div class="line"><a name="l02191"></a><span class="lineno"> 2191</span>  <span class="keywordtype">int</span> found_event = 1;</div><div class="line"><a name="l02192"></a><span class="lineno"> 2192</span>  <span class="keywordtype">int</span> event_flag;</div><div class="line"><a name="l02193"></a><span class="lineno"> 2193</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l02194"></a><span class="lineno"> 2194</span>  <span class="keyword">struct </span><a class="code" href="../../d1/d1b/structtimeval.html">timeval</a> <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>;</div><div class="line"><a name="l02195"></a><span class="lineno"> 2195</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02196"></a><span class="lineno"> 2196</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l02197"></a><span class="lineno"> 2197</span>  <span class="keywordtype">int</span> status;</div><div class="line"><a name="l02198"></a><span class="lineno"> 2198</span>  <span class="keywordtype">int</span> depth = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a>;</div><div class="line"><a name="l02199"></a><span class="lineno"> 2199</span> <span class="preprocessor">#if USE_EVLOOP_THREAD_ALONE_CHECK_FLAG</span></div><div class="line"><a name="l02200"></a><span class="lineno"> 2200</span>  <span class="keywordtype">int</span> thread_alone_check_flag = 1;</div><div class="line"><a name="l02201"></a><span class="lineno"> 2201</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02202"></a><span class="lineno"> 2202</span>  <span class="keyword">enum</span> {thread_alone_check_flag = 1};</div><div class="line"><a name="l02203"></a><span class="lineno"> 2203</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02204"></a><span class="lineno"> 2204</span> </div><div class="line"><a name="l02205"></a><span class="lineno"> 2205</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="l02206"></a><span class="lineno"> 2206</span> </div><div class="line"><a name="l02207"></a><span class="lineno"> 2207</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l02208"></a><span class="lineno"> 2208</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_sec = 0;</div><div class="line"><a name="l02209"></a><span class="lineno"> 2209</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_usec = 1000 * <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5cd666e3d3aacd7c40e7f8132f0f2db6">no_event_wait</a>;</div><div class="line"><a name="l02210"></a><span class="lineno"> 2210</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02211"></a><span class="lineno"> 2211</span> </div><div class="line"><a name="l02212"></a><span class="lineno"> 2212</span>  Tcl_DeleteTimerHandler(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a>);</div><div class="line"><a name="l02213"></a><span class="lineno"> 2213</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a19128ae2c34cb86eeda84fdc1ad3a582">run_timer_flag</a> = 0;</div><div class="line"><a name="l02214"></a><span class="lineno"> 2214</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a3b56c2ca4a23c4296f7b38db44424a3d">timer_tick</a> > 0) {</div><div class="line"><a name="l02215"></a><span class="lineno"> 2215</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l02216"></a><span class="lineno"> 2216</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l02217"></a><span class="lineno"> 2217</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a> = Tcl_CreateTimerHandler(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a3b56c2ca4a23c4296f7b38db44424a3d">timer_tick</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9c2bd05fb4f432989cabce5a81d692b0">_timer_for_tcl</a>,</div><div class="line"><a name="l02218"></a><span class="lineno"> 2218</span>  (ClientData)0);</div><div class="line"><a name="l02219"></a><span class="lineno"> 2219</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l02220"></a><span class="lineno"> 2220</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02221"></a><span class="lineno"> 2221</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a> = (Tcl_TimerToken)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l02222"></a><span class="lineno"> 2222</span>  }</div><div class="line"><a name="l02223"></a><span class="lineno"> 2223</span> </div><div class="line"><a name="l02224"></a><span class="lineno"> 2224</span> <span class="preprocessor">#if USE_EVLOOP_THREAD_ALONE_CHECK_FLAG</span></div><div class="line"><a name="l02225"></a><span class="lineno"> 2225</span>  <span class="comment">/* version check */</span></div><div class="line"><a name="l02226"></a><span class="lineno"> 2226</span>  thread_alone_check_flag = get_thread_alone_check_flag();</div><div class="line"><a name="l02227"></a><span class="lineno"> 2227</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02228"></a><span class="lineno"> 2228</span> </div><div class="line"><a name="l02229"></a><span class="lineno"> 2229</span>  <span class="keywordflow">for</span>(;;) {</div><div class="line"><a name="l02230"></a><span class="lineno"> 2230</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="l02231"></a><span class="lineno"> 2231</span> </div><div class="line"><a name="l02232"></a><span class="lineno"> 2232</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="l02233"></a><span class="lineno"> 2233</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="l02234"></a><span class="lineno"> 2234</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#af2723ded53fcb84d63096a8272b5b3f6">event_loop_wait_event</a> = 0;</div><div class="line"><a name="l02235"></a><span class="lineno"> 2235</span> </div><div class="line"><a name="l02236"></a><span class="lineno"> 2236</span>  <span class="keywordflow">if</span> (update_flag) {</div><div class="line"><a name="l02237"></a><span class="lineno"> 2237</span>  event_flag = update_flag;</div><div class="line"><a name="l02238"></a><span class="lineno"> 2238</span>  <span class="comment">/* event_flag = update_flag | TCL_DONT_WAIT; */</span> <span class="comment">/* for safety */</span></div><div class="line"><a name="l02239"></a><span class="lineno"> 2239</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02240"></a><span class="lineno"> 2240</span>  event_flag = TCL_ALL_EVENTS;</div><div class="line"><a name="l02241"></a><span class="lineno"> 2241</span>  <span class="comment">/* event_flag = TCL_ALL_EVENTS | TCL_DONT_WAIT; */</span></div><div class="line"><a name="l02242"></a><span class="lineno"> 2242</span>  }</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> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a3b56c2ca4a23c4296f7b38db44424a3d">timer_tick</a> == 0 && update_flag == 0) {</div><div class="line"><a name="l02245"></a><span class="lineno"> 2245</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3b56c2ca4a23c4296f7b38db44424a3d">timer_tick</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a18f3feef1d89c72c2ea59a0ce2dd8366">NO_THREAD_INTERRUPT_TIME</a>;</div><div class="line"><a name="l02246"></a><span class="lineno"> 2246</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a> = Tcl_CreateTimerHandler(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a3b56c2ca4a23c4296f7b38db44424a3d">timer_tick</a>,</div><div class="line"><a name="l02247"></a><span class="lineno"> 2247</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9c2bd05fb4f432989cabce5a81d692b0">_timer_for_tcl</a>,</div><div class="line"><a name="l02248"></a><span class="lineno"> 2248</span>  (ClientData)0);</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="keywordflow">if</span> (check_var != (<span class="keywordtype">int</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l02252"></a><span class="lineno"> 2252</span>  <span class="keywordflow">if</span> (*check_var || !found_event) {</div><div class="line"><a name="l02253"></a><span class="lineno"> 2253</span>  <span class="keywordflow">return</span> found_event;</div><div class="line"><a name="l02254"></a><span class="lineno"> 2254</span>  }</div><div class="line"><a name="l02255"></a><span class="lineno"> 2255</span>  <span class="keywordflow">if</span> (interp != (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a></div><div class="line"><a name="l02256"></a><span class="lineno"> 2256</span>  && Tcl_InterpDeleted(interp)) {</div><div class="line"><a name="l02257"></a><span class="lineno"> 2257</span>  <span class="comment">/* IP for check_var is deleted */</span></div><div class="line"><a name="l02258"></a><span class="lineno"> 2258</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l02259"></a><span class="lineno"> 2259</span>  }</div><div class="line"><a name="l02260"></a><span class="lineno"> 2260</span>  }</div><div class="line"><a name="l02261"></a><span class="lineno"> 2261</span> </div><div class="line"><a name="l02262"></a><span class="lineno"> 2262</span>  <span class="comment">/* found_event = Tcl_DoOneEvent(event_flag); */</span></div><div class="line"><a name="l02263"></a><span class="lineno"> 2263</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>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d1b4009a0af0bde4902670d7b306568">call_DoOneEvent</a>,</div><div class="line"><a name="l02264"></a><span class="lineno"> 2264</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(event_flag), &status));</div><div class="line"><a name="l02265"></a><span class="lineno"> 2265</span>  <span class="keywordflow">if</span> (status) {</div><div class="line"><a name="l02266"></a><span class="lineno"> 2266</span>  <span class="keywordflow">switch</span> (status) {</div><div class="line"><a name="l02267"></a><span class="lineno"> 2267</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="l02268"></a><span class="lineno"> 2268</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="l02269"></a><span class="lineno"> 2269</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a></div><div class="line"><a name="l02270"></a><span class="lineno"> 2270</span>  = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">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="l02271"></a><span class="lineno"> 2271</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02272"></a><span class="lineno"> 2272</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div><div class="line"><a name="l02273"></a><span class="lineno"> 2273</span> </div><div class="line"><a name="l02274"></a><span class="lineno"> 2274</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>)) {</div><div class="line"><a name="l02275"></a><span class="lineno"> 2275</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="l02276"></a><span class="lineno"> 2276</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>;</div><div class="line"><a name="l02277"></a><span class="lineno"> 2277</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l02278"></a><span class="lineno"> 2278</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(exc);</div><div class="line"><a name="l02279"></a><span class="lineno"> 2279</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02280"></a><span class="lineno"> 2280</span>  <span class="keywordflow">return</span> 0;</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">break</span>;</div><div class="line"><a name="l02285"></a><span class="lineno"> 2285</span> </div><div class="line"><a name="l02286"></a><span class="lineno"> 2286</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="l02287"></a><span class="lineno"> 2287</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="l02288"></a><span class="lineno"> 2288</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">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="l02289"></a><span class="lineno"> 2289</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02290"></a><span class="lineno"> 2290</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="l02291"></a><span class="lineno"> 2291</span>  }</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> </div><div class="line"><a name="l02295"></a><span class="lineno"> 2295</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="l02296"></a><span class="lineno"> 2296</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="l02297"></a><span class="lineno"> 2297</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a>);</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> </div><div class="line"><a name="l02300"></a><span class="lineno"> 2300</span>  <span class="keywordflow">if</span> (check_var != (<span class="keywordtype">int</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>)) {</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">"exception on wait"</span>);</div><div class="line"><a name="l02302"></a><span class="lineno"> 2302</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l02303"></a><span class="lineno"> 2303</span>  }</div><div class="line"><a name="l02304"></a><span class="lineno"> 2304</span> </div><div class="line"><a name="l02305"></a><span class="lineno"> 2305</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="l02306"></a><span class="lineno"> 2306</span>  <span class="comment">/* pending -> upper level */</span></div><div class="line"><a name="l02307"></a><span class="lineno"> 2307</span>  <span class="keywordflow">return</span> 0;</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> </div><div class="line"><a name="l02310"></a><span class="lineno"> 2310</span>  <span class="keywordflow">if</span> (update_flag != 0) {</div><div class="line"><a name="l02311"></a><span class="lineno"> 2311</span>  <span class="keywordflow">if</span> (found_event) {</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">"next update loop"</span>);</div><div class="line"><a name="l02313"></a><span class="lineno"> 2313</span>  <span class="keywordflow">continue</span>;</div><div class="line"><a name="l02314"></a><span class="lineno"> 2314</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02315"></a><span class="lineno"> 2315</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="l02316"></a><span class="lineno"> 2316</span>  <span class="keywordflow">return</span> 0;</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> </div><div class="line"><a name="l02320"></a><span class="lineno"> 2320</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a52e6fec0d2c0348c2e08039651add637">TRAP_CHECK</a>();</div><div class="line"><a name="l02321"></a><span class="lineno"> 2321</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="l02322"></a><span class="lineno"> 2322</span> </div><div class="line"><a name="l02323"></a><span class="lineno"> 2323</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="l02324"></a><span class="lineno"> 2324</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="l02325"></a><span class="lineno"> 2325</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a19128ae2c34cb86eeda84fdc1ad3a582">run_timer_flag</a> = 0;</div><div class="line"><a name="l02326"></a><span class="lineno"> 2326</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a52e6fec0d2c0348c2e08039651add637">TRAP_CHECK</a>();</div><div class="line"><a name="l02327"></a><span class="lineno"> 2327</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l02328"></a><span class="lineno"> 2328</span>  }</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>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae4eb912710ffa8fbc4ce6275ea1f23af">loop_counter</a>++ > 30000) {</div><div class="line"><a name="l02331"></a><span class="lineno"> 2331</span>  <span class="comment">/* fprintf(stderr, "loop_counter > 30000\n"); */</span></div><div class="line"><a name="l02332"></a><span class="lineno"> 2332</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae4eb912710ffa8fbc4ce6275ea1f23af">loop_counter</a> = 0;</div><div class="line"><a name="l02333"></a><span class="lineno"> 2333</span>  }</div><div class="line"><a name="l02334"></a><span class="lineno"> 2334</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>  <span class="keywordtype">int</span> tick_counter;</div><div class="line"><a name="l02337"></a><span class="lineno"> 2337</span> </div><div class="line"><a name="l02338"></a><span class="lineno"> 2338</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="l02339"></a><span class="lineno"> 2339</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#af2723ded53fcb84d63096a8272b5b3f6">event_loop_wait_event</a> = 1;</div><div class="line"><a name="l02340"></a><span class="lineno"> 2340</span> </div><div class="line"><a name="l02341"></a><span class="lineno"> 2341</span>  found_event = 1;</div><div class="line"><a name="l02342"></a><span class="lineno"> 2342</span> </div><div class="line"><a name="l02343"></a><span class="lineno"> 2343</span>  <span class="keywordflow">if</span> (update_flag) {</div><div class="line"><a name="l02344"></a><span class="lineno"> 2344</span>  event_flag = update_flag; <span class="comment">/* for safety */</span></div><div class="line"><a name="l02345"></a><span class="lineno"> 2345</span>  <span class="comment">/* event_flag = update_flag | TCL_DONT_WAIT; */</span> <span class="comment">/* for safety */</span></div><div class="line"><a name="l02346"></a><span class="lineno"> 2346</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02347"></a><span class="lineno"> 2347</span>  event_flag = TCL_ALL_EVENTS;</div><div class="line"><a name="l02348"></a><span class="lineno"> 2348</span>  <span class="comment">/* event_flag = TCL_ALL_EVENTS | TCL_DONT_WAIT; */</span></div><div class="line"><a name="l02349"></a><span class="lineno"> 2349</span>  }</div><div class="line"><a name="l02350"></a><span class="lineno"> 2350</span> </div><div class="line"><a name="l02351"></a><span class="lineno"> 2351</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3b56c2ca4a23c4296f7b38db44424a3d">timer_tick</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aee699b1c46e61042b7675d02247208fb">req_timer_tick</a>;</div><div class="line"><a name="l02352"></a><span class="lineno"> 2352</span>  tick_counter = 0;</div><div class="line"><a name="l02353"></a><span class="lineno"> 2353</span>  <span class="keywordflow">while</span>(tick_counter < <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8a799d2eb1758e37f3d53a9685db4b5b">event_loop_max</a>) {</div><div class="line"><a name="l02354"></a><span class="lineno"> 2354</span>  <span class="keywordflow">if</span> (check_var != (<span class="keywordtype">int</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l02355"></a><span class="lineno"> 2355</span>  <span class="keywordflow">if</span> (*check_var || !found_event) {</div><div class="line"><a name="l02356"></a><span class="lineno"> 2356</span>  <span class="keywordflow">return</span> found_event;</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="keywordflow">if</span> (interp != (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a></div><div class="line"><a name="l02359"></a><span class="lineno"> 2359</span>  && Tcl_InterpDeleted(interp)) {</div><div class="line"><a name="l02360"></a><span class="lineno"> 2360</span>  <span class="comment">/* IP for check_var is deleted */</span></div><div class="line"><a name="l02361"></a><span class="lineno"> 2361</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l02362"></a><span class="lineno"> 2362</span>  }</div><div class="line"><a name="l02363"></a><span class="lineno"> 2363</span>  }</div><div class="line"><a name="l02364"></a><span class="lineno"> 2364</span> </div><div class="line"><a name="l02365"></a><span class="lineno"> 2365</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#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>) || current == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>) {</div><div class="line"><a name="l02366"></a><span class="lineno"> 2366</span>  <span class="keywordtype">int</span> st;</div><div class="line"><a name="l02367"></a><span class="lineno"> 2367</span>  <span class="keywordtype">int</span> status;</div><div class="line"><a name="l02368"></a><span class="lineno"> 2368</span> </div><div class="line"><a name="l02369"></a><span class="lineno"> 2369</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l02370"></a><span class="lineno"> 2370</span>  <span class="keywordflow">if</span> (update_flag) {</div><div class="line"><a name="l02371"></a><span class="lineno"> 2371</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>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d1b4009a0af0bde4902670d7b306568">call_DoOneEvent</a>,</div><div class="line"><a name="l02372"></a><span class="lineno"> 2372</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(event_flag), &status));</div><div class="line"><a name="l02373"></a><span class="lineno"> 2373</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02374"></a><span class="lineno"> 2374</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>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d1b4009a0af0bde4902670d7b306568">call_DoOneEvent</a>,</div><div class="line"><a name="l02375"></a><span class="lineno"> 2375</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(event_flag & <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1874132e952c92de8ac49397d4a67742">window_event_mode</a>),</div><div class="line"><a name="l02376"></a><span class="lineno"> 2376</span>  &status));</div><div class="line"><a name="l02377"></a><span class="lineno"> 2377</span> <span class="preprocessor">#if USE_TOGGLE_WINDOW_MODE_FOR_IDLE</span></div><div class="line"><a name="l02378"></a><span class="lineno"> 2378</span>  <span class="keywordflow">if</span> (!st) {</div><div class="line"><a name="l02379"></a><span class="lineno"> 2379</span>  <span class="keywordflow">if</span> (toggle_eventloop_window_mode_for_idle()) {</div><div class="line"><a name="l02380"></a><span class="lineno"> 2380</span>  <span class="comment">/* idle-mode -> event-mode*/</span></div><div class="line"><a name="l02381"></a><span class="lineno"> 2381</span>  tick_counter = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8a799d2eb1758e37f3d53a9685db4b5b">event_loop_max</a>;</div><div class="line"><a name="l02382"></a><span class="lineno"> 2382</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02383"></a><span class="lineno"> 2383</span>  <span class="comment">/* event-mode -> idle-mode */</span></div><div class="line"><a name="l02384"></a><span class="lineno"> 2384</span>  tick_counter = 0;</div><div class="line"><a name="l02385"></a><span class="lineno"> 2385</span>  }</div><div class="line"><a name="l02386"></a><span class="lineno"> 2386</span>  }</div><div class="line"><a name="l02387"></a><span class="lineno"> 2387</span> <span class="preprocessor">#endif</span></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">#else</span></div><div class="line"><a name="l02390"></a><span class="lineno"> 2390</span>  <span class="comment">/* st = Tcl_DoOneEvent(event_flag); */</span></div><div class="line"><a name="l02391"></a><span class="lineno"> 2391</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>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d1b4009a0af0bde4902670d7b306568">call_DoOneEvent</a>,</div><div class="line"><a name="l02392"></a><span class="lineno"> 2392</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac55fae7f748afd3fc2533d0d7d06cf5a">INT2FIX</a>(event_flag), &status));</div><div class="line"><a name="l02393"></a><span class="lineno"> 2393</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02394"></a><span class="lineno"> 2394</span> </div><div class="line"><a name="l02395"></a><span class="lineno"> 2395</span> <span class="preprocessor">#if CONTROL_BY_STATUS_OF_RB_THREAD_WAITING_FOR_VALUE</span></div><div class="line"><a name="l02396"></a><span class="lineno"> 2396</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a36aff997f6e550b516224b18bfe5bd25">have_rb_thread_waiting_for_value</a>) {</div><div class="line"><a name="l02397"></a><span class="lineno"> 2397</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="l02398"></a><span class="lineno"> 2398</span>  <a class="code" href="../../db/d2e/intern_8h.html#ad1fe299d3b5a492259ab4e733832868c">rb_thread_schedule</a>();</div><div class="line"><a name="l02399"></a><span class="lineno"> 2399</span>  }</div><div class="line"><a name="l02400"></a><span class="lineno"> 2400</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02401"></a><span class="lineno"> 2401</span> </div><div class="line"><a name="l02402"></a><span class="lineno"> 2402</span>  <span class="keywordflow">if</span> (status) {</div><div class="line"><a name="l02403"></a><span class="lineno"> 2403</span>  <span class="keywordflow">switch</span> (status) {</div><div class="line"><a name="l02404"></a><span class="lineno"> 2404</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="l02405"></a><span class="lineno"> 2405</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="l02406"></a><span class="lineno"> 2406</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a></div><div class="line"><a name="l02407"></a><span class="lineno"> 2407</span>  = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>,</div><div class="line"><a name="l02408"></a><span class="lineno"> 2408</span>  <span class="stringliteral">"unknown exception"</span>);</div><div class="line"><a name="l02409"></a><span class="lineno"> 2409</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02410"></a><span class="lineno"> 2410</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div><div class="line"><a name="l02411"></a><span class="lineno"> 2411</span> </div><div class="line"><a name="l02412"></a><span class="lineno"> 2412</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>)) {</div><div class="line"><a name="l02413"></a><span class="lineno"> 2413</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="l02414"></a><span class="lineno"> 2414</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>;</div><div class="line"><a name="l02415"></a><span class="lineno"> 2415</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l02416"></a><span class="lineno"> 2416</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(exc);</div><div class="line"><a name="l02417"></a><span class="lineno"> 2417</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02418"></a><span class="lineno"> 2418</span>  <span class="keywordflow">return</span> 0;</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">break</span>;</div><div class="line"><a name="l02423"></a><span class="lineno"> 2423</span> </div><div class="line"><a name="l02424"></a><span class="lineno"> 2424</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="l02425"></a><span class="lineno"> 2425</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="l02426"></a><span class="lineno"> 2426</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">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="l02427"></a><span class="lineno"> 2427</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02428"></a><span class="lineno"> 2428</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="l02429"></a><span class="lineno"> 2429</span>  }</div><div class="line"><a name="l02430"></a><span class="lineno"> 2430</span>  }</div><div class="line"><a name="l02431"></a><span class="lineno"> 2431</span>  }</div><div class="line"><a name="l02432"></a><span class="lineno"> 2432</span> </div><div class="line"><a name="l02433"></a><span class="lineno"> 2433</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="l02434"></a><span class="lineno"> 2434</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="l02435"></a><span class="lineno"> 2435</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a>);</div><div class="line"><a name="l02436"></a><span class="lineno"> 2436</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l02437"></a><span class="lineno"> 2437</span>  }</div><div class="line"><a name="l02438"></a><span class="lineno"> 2438</span> </div><div class="line"><a name="l02439"></a><span class="lineno"> 2439</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a52e6fec0d2c0348c2e08039651add637">TRAP_CHECK</a>();</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> (check_var != (<span class="keywordtype">int</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a></div><div class="line"><a name="l02442"></a><span class="lineno"> 2442</span>  && !<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>)) {</div><div class="line"><a name="l02443"></a><span class="lineno"> 2443</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="l02444"></a><span class="lineno"> 2444</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l02445"></a><span class="lineno"> 2445</span>  }</div><div class="line"><a name="l02446"></a><span class="lineno"> 2446</span> </div><div class="line"><a name="l02447"></a><span class="lineno"> 2447</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="l02448"></a><span class="lineno"> 2448</span>  <span class="comment">/* pending -> upper level */</span></div><div class="line"><a name="l02449"></a><span class="lineno"> 2449</span>  <span class="keywordflow">return</span> 0;</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> </div><div class="line"><a name="l02452"></a><span class="lineno"> 2452</span>  <span class="keywordflow">if</span> (st) {</div><div class="line"><a name="l02453"></a><span class="lineno"> 2453</span>  tick_counter++;</div><div class="line"><a name="l02454"></a><span class="lineno"> 2454</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02455"></a><span class="lineno"> 2455</span>  <span class="keywordflow">if</span> (update_flag != 0) {</div><div class="line"><a name="l02456"></a><span class="lineno"> 2456</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="l02457"></a><span class="lineno"> 2457</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l02458"></a><span class="lineno"> 2458</span>  }</div><div class="line"><a name="l02459"></a><span class="lineno"> 2459</span> </div><div class="line"><a name="l02460"></a><span class="lineno"> 2460</span>  tick_counter += <a class="code" href="../../d5/d9d/tcltklib_8c.html#a69dfe84ee096c35fae385ff59fbc95d9">no_event_tick</a>;</div><div class="line"><a name="l02461"></a><span class="lineno"> 2461</span> </div><div class="line"><a name="l02462"></a><span class="lineno"> 2462</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l02463"></a><span class="lineno"> 2463</span>  <span class="comment">/* rb_thread_wait_for(t); */</span></div><div class="line"><a name="l02464"></a><span class="lineno"> 2464</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#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>, &status);</div><div class="line"><a name="l02465"></a><span class="lineno"> 2465</span> </div><div class="line"><a name="l02466"></a><span class="lineno"> 2466</span>  <span class="keywordflow">if</span> (status) {</div><div class="line"><a name="l02467"></a><span class="lineno"> 2467</span>  <span class="keywordflow">switch</span> (status) {</div><div class="line"><a name="l02468"></a><span class="lineno"> 2468</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="l02469"></a><span class="lineno"> 2469</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="l02470"></a><span class="lineno"> 2470</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a></div><div class="line"><a name="l02471"></a><span class="lineno"> 2471</span>  = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>,</div><div class="line"><a name="l02472"></a><span class="lineno"> 2472</span>  <span class="stringliteral">"unknown exception"</span>);</div><div class="line"><a name="l02473"></a><span class="lineno"> 2473</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02474"></a><span class="lineno"> 2474</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div><div class="line"><a name="l02475"></a><span class="lineno"> 2475</span> </div><div class="line"><a name="l02476"></a><span class="lineno"> 2476</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>)) {</div><div class="line"><a name="l02477"></a><span class="lineno"> 2477</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="l02478"></a><span class="lineno"> 2478</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>;</div><div class="line"><a name="l02479"></a><span class="lineno"> 2479</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l02480"></a><span class="lineno"> 2480</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(exc);</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>  <span class="keywordflow">return</span> 0;</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="keywordflow">break</span>;</div><div class="line"><a name="l02487"></a><span class="lineno"> 2487</span> </div><div class="line"><a name="l02488"></a><span class="lineno"> 2488</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="l02489"></a><span class="lineno"> 2489</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="l02490"></a><span class="lineno"> 2490</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a7df09bfc26c0ffa7592f91fdcf64fcec">rb_eFatal</a>,</div><div class="line"><a name="l02491"></a><span class="lineno"> 2491</span>  <span class="stringliteral">"FATAL"</span>));</div><div class="line"><a name="l02492"></a><span class="lineno"> 2492</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02493"></a><span class="lineno"> 2493</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="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>  }</div><div class="line"><a name="l02497"></a><span class="lineno"> 2497</span> <span class="preprocessor">#endif</span></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>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02501"></a><span class="lineno"> 2501</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="l02502"></a><span class="lineno"> 2502</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eventloop thread is %lx"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>);</div><div class="line"><a name="l02503"></a><span class="lineno"> 2503</span>  <span class="comment">/* rb_thread_stop(); */</span></div><div class="line"><a name="l02504"></a><span class="lineno"> 2504</span>  <a class="code" href="../../db/d2e/intern_8h.html#a57a3a6b1a7a0c9dc8905611023297567">rb_thread_sleep_forever</a>();</div><div class="line"><a name="l02505"></a><span class="lineno"> 2505</span>  }</div><div class="line"><a name="l02506"></a><span class="lineno"> 2506</span> </div><div class="line"><a name="l02507"></a><span class="lineno"> 2507</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#a73ffc5e8c3f30a29963a2df64361b93a">watchdog_thread</a>) && <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a> != current) {</div><div class="line"><a name="l02508"></a><span class="lineno"> 2508</span>  <span class="keywordflow">return</span> 1;</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> </div><div class="line"><a name="l02511"></a><span class="lineno"> 2511</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a52e6fec0d2c0348c2e08039651add637">TRAP_CHECK</a>();</div><div class="line"><a name="l02512"></a><span class="lineno"> 2512</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="l02513"></a><span class="lineno"> 2513</span> </div><div class="line"><a name="l02514"></a><span class="lineno"> 2514</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="l02515"></a><span class="lineno"> 2515</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="l02516"></a><span class="lineno"> 2516</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a19128ae2c34cb86eeda84fdc1ad3a582">run_timer_flag</a> = 0;</div><div class="line"><a name="l02517"></a><span class="lineno"> 2517</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a52e6fec0d2c0348c2e08039651add637">TRAP_CHECK</a>();</div><div class="line"><a name="l02518"></a><span class="lineno"> 2518</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l02519"></a><span class="lineno"> 2519</span>  }</div><div class="line"><a name="l02520"></a><span class="lineno"> 2520</span> </div><div class="line"><a name="l02521"></a><span class="lineno"> 2521</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae4eb912710ffa8fbc4ce6275ea1f23af">loop_counter</a>++ > 30000) {</div><div class="line"><a name="l02522"></a><span class="lineno"> 2522</span>  <span class="comment">/* fprintf(stderr, "loop_counter > 30000\n"); */</span></div><div class="line"><a name="l02523"></a><span class="lineno"> 2523</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae4eb912710ffa8fbc4ce6275ea1f23af">loop_counter</a> = 0;</div><div class="line"><a name="l02524"></a><span class="lineno"> 2524</span>  }</div><div class="line"><a name="l02525"></a><span class="lineno"> 2525</span> </div><div class="line"><a name="l02526"></a><span class="lineno"> 2526</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a19128ae2c34cb86eeda84fdc1ad3a582">run_timer_flag</a>) {</div><div class="line"><a name="l02527"></a><span class="lineno"> 2527</span>  <span class="comment">/*</span></div><div class="line"><a name="l02528"></a><span class="lineno"> 2528</span> <span class="comment"> DUMP1("timer interrupt");</span></div><div class="line"><a name="l02529"></a><span class="lineno"> 2529</span> <span class="comment"> run_timer_flag = 0;</span></div><div class="line"><a name="l02530"></a><span class="lineno"> 2530</span> <span class="comment"> */</span></div><div class="line"><a name="l02531"></a><span class="lineno"> 2531</span>  <span class="keywordflow">break</span>; <span class="comment">/* switch to other thread */</span></div><div class="line"><a name="l02532"></a><span class="lineno"> 2532</span>  }</div><div class="line"><a name="l02533"></a><span class="lineno"> 2533</span>  }</div><div class="line"><a name="l02534"></a><span class="lineno"> 2534</span> </div><div class="line"><a name="l02535"></a><span class="lineno"> 2535</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="l02536"></a><span class="lineno"> 2536</span>  <a class="code" href="../../db/d2e/intern_8h.html#ad1fe299d3b5a492259ab4e733832868c">rb_thread_schedule</a>();</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>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"check interrupts"</span>);</div><div class="line"><a name="l02540"></a><span class="lineno"> 2540</span> <span class="preprocessor">#if defined(RUBY_USE_NATIVE_THREAD) || defined(RUBY_VM)</span></div><div class="line"><a name="l02541"></a><span class="lineno"> 2541</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="l02542"></a><span class="lineno"> 2542</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02543"></a><span class="lineno"> 2543</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="l02544"></a><span class="lineno"> 2544</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02545"></a><span class="lineno"> 2545</span> </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>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l02548"></a><span class="lineno"> 2548</span> }</div><div class="line"><a name="l02549"></a><span class="lineno"> 2549</span> </div><div class="line"><a name="l02550"></a><span class="lineno"> 2550</span> </div><div class="line"><a name="l02551"></a><span class="lineno"><a class="line" href="../../d3/de9/structevloop__params.html"> 2551</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="l02552"></a><span class="lineno"><a class="line" href="../../d3/de9/structevloop__params.html#a708cc255e06d9c190c2e05cd8c216495"> 2552</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="l02553"></a><span class="lineno"><a class="line" href="../../d3/de9/structevloop__params.html#ae4dc203be43e5fa9f03ebcc643e40fe4"> 2553</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="l02554"></a><span class="lineno"><a class="line" href="../../d3/de9/structevloop__params.html#a76b488a954ff0c3cd0770004a1cd91c3"> 2554</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="l02555"></a><span class="lineno"><a class="line" href="../../d3/de9/structevloop__params.html#ab1ca04ef36befd4c7dbfc886eef74e32"> 2555</a></span>  Tcl_Interp *<a class="code" href="../../d3/de9/structevloop__params.html#ab1ca04ef36befd4c7dbfc886eef74e32">interp</a>;</div><div class="line"><a name="l02556"></a><span class="lineno"><a class="line" href="../../d3/de9/structevloop__params.html#a44b43898f08f3a4f4005db107aebb978"> 2556</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="l02557"></a><span class="lineno"> 2557</span> };</div><div class="line"><a name="l02558"></a><span class="lineno"> 2558</span> </div><div class="line"><a name="l02559"></a><span class="lineno"> 2559</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02560"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a531b4cda232013cf16217ff379ac4aa5"> 2560</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a531b4cda232013cf16217ff379ac4aa5">lib_eventloop_main_core</a>(args)</div><div class="line"><a name="l02561"></a><span class="lineno"> 2561</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> args;</div><div class="line"><a name="l02562"></a><span class="lineno"> 2562</span> {</div><div class="line"><a name="l02563"></a><span class="lineno"> 2563</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="l02564"></a><span class="lineno"> 2564</span> </div><div class="line"><a name="l02565"></a><span class="lineno"> 2565</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4a637ca8a762090680e727e293544aea">check_rootwidget_flag</a> = params-><a class="code" href="../../d3/de9/structevloop__params.html#a708cc255e06d9c190c2e05cd8c216495">check_root</a>;</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>  Tcl_CreateEventSource(<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="l02568"></a><span class="lineno"> 2568</span> </div><div class="line"><a name="l02569"></a><span class="lineno"> 2569</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a11b5ffc78d9ecba8b638e6ac2821c401">lib_eventloop_core</a>(params-><a class="code" href="../../d3/de9/structevloop__params.html#a708cc255e06d9c190c2e05cd8c216495">check_root</a>,</div><div class="line"><a name="l02570"></a><span class="lineno"> 2570</span>  params-><a class="code" href="../../d3/de9/structevloop__params.html#ae4dc203be43e5fa9f03ebcc643e40fe4">update_flag</a>,</div><div class="line"><a name="l02571"></a><span class="lineno"> 2571</span>  params-><a class="code" href="../../d3/de9/structevloop__params.html#a76b488a954ff0c3cd0770004a1cd91c3">check_var</a>,</div><div class="line"><a name="l02572"></a><span class="lineno"> 2572</span>  params-><a class="code" href="../../d3/de9/structevloop__params.html#ab1ca04ef36befd4c7dbfc886eef74e32">interp</a>)) {</div><div class="line"><a name="l02573"></a><span class="lineno"> 2573</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l02574"></a><span class="lineno"> 2574</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02575"></a><span class="lineno"> 2575</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l02576"></a><span class="lineno"> 2576</span>  }</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> </div><div class="line"><a name="l02579"></a><span class="lineno"> 2579</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02580"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad09137e93e6fd9828100ba236f6aeb2b"> 2580</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad09137e93e6fd9828100ba236f6aeb2b">lib_eventloop_main</a>(args)</div><div class="line"><a name="l02581"></a><span class="lineno"> 2581</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> args;</div><div class="line"><a name="l02582"></a><span class="lineno"> 2582</span> {</div><div class="line"><a name="l02583"></a><span class="lineno"> 2583</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a531b4cda232013cf16217ff379ac4aa5">lib_eventloop_main_core</a>(args);</div><div class="line"><a name="l02584"></a><span class="lineno"> 2584</span> </div><div class="line"><a name="l02585"></a><span class="lineno"> 2585</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l02586"></a><span class="lineno"> 2586</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ret;</div><div class="line"><a name="l02587"></a><span class="lineno"> 2587</span>  <span class="keywordtype">int</span> status = 0;</div><div class="line"><a name="l02588"></a><span class="lineno"> 2588</span> </div><div class="line"><a name="l02589"></a><span class="lineno"> 2589</span>  ret = <a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a531b4cda232013cf16217ff379ac4aa5">lib_eventloop_main_core</a>, args, &status);</div><div class="line"><a name="l02590"></a><span class="lineno"> 2590</span> </div><div class="line"><a name="l02591"></a><span class="lineno"> 2591</span>  <span class="keywordflow">switch</span> (status) {</div><div class="line"><a name="l02592"></a><span class="lineno"> 2592</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="l02593"></a><span class="lineno"> 2593</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="l02594"></a><span class="lineno"> 2594</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a></div><div class="line"><a name="l02595"></a><span class="lineno"> 2595</span>  = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">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="l02596"></a><span class="lineno"> 2596</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02597"></a><span class="lineno"> 2597</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</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="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l02600"></a><span class="lineno"> 2600</span> </div><div class="line"><a name="l02601"></a><span class="lineno"> 2601</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="l02602"></a><span class="lineno"> 2602</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="l02603"></a><span class="lineno"> 2603</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">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="l02604"></a><span class="lineno"> 2604</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02605"></a><span class="lineno"> 2605</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</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="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l02608"></a><span class="lineno"> 2608</span>  }</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>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l02611"></a><span class="lineno"> 2611</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02612"></a><span class="lineno"> 2612</span> }</div><div class="line"><a name="l02613"></a><span class="lineno"> 2613</span> </div><div class="line"><a name="l02614"></a><span class="lineno"> 2614</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02615"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a04aca966ccbbc51fd5d317cd8e7076c8"> 2615</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a04aca966ccbbc51fd5d317cd8e7076c8">lib_eventloop_ensure</a>(args)</div><div class="line"><a name="l02616"></a><span class="lineno"> 2616</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> args;</div><div class="line"><a name="l02617"></a><span class="lineno"> 2617</span> {</div><div class="line"><a name="l02618"></a><span class="lineno"> 2618</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="l02619"></a><span class="lineno"> 2619</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> current_evloop = <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>();</div><div class="line"><a name="l02620"></a><span class="lineno"> 2620</span> </div><div class="line"><a name="l02621"></a><span class="lineno"> 2621</span>  Tcl_DeleteEventSource(<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="l02622"></a><span class="lineno"> 2622</span> </div><div class="line"><a name="l02623"></a><span class="lineno"> 2623</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="l02624"></a><span class="lineno"> 2624</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eventloop_ensure: eventloop-thread : %lx"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>);</div><div class="line"><a name="l02625"></a><span class="lineno"> 2625</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a> != current_evloop) {</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">"finish eventloop %lx (NOT current eventloop)"</span>, current_evloop);</div><div class="line"><a name="l02627"></a><span class="lineno"> 2627</span> </div><div class="line"><a name="l02628"></a><span class="lineno"> 2628</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">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="l02629"></a><span class="lineno"> 2629</span> </div><div class="line"><a name="l02630"></a><span class="lineno"> 2630</span>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(ptr);</div><div class="line"><a name="l02631"></a><span class="lineno"> 2631</span>  <span class="comment">/* ckfree((char*)ptr); */</span></div><div class="line"><a name="l02632"></a><span class="lineno"> 2632</span> </div><div class="line"><a name="l02633"></a><span class="lineno"> 2633</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</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> </div><div class="line"><a name="l02636"></a><span class="lineno"> 2636</span>  <span class="keywordflow">while</span>((<a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a> = <a class="code" href="../../dc/dcc/array_8c.html#aacb1ec2239256ca2e537588fc534e7b8">rb_ary_pop</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a606d7647537ea0c5a15818642b884f6b">eventloop_stack</a>))) {</div><div class="line"><a name="l02637"></a><span class="lineno"> 2637</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="l02638"></a><span class="lineno"> 2638</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>);</div><div class="line"><a name="l02639"></a><span class="lineno"> 2639</span> </div><div class="line"><a name="l02640"></a><span class="lineno"> 2640</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a> == current_evloop) {</div><div class="line"><a name="l02641"></a><span class="lineno"> 2641</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a>--;</div><div class="line"><a name="l02642"></a><span class="lineno"> 2642</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="l02643"></a><span class="lineno"> 2643</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02644"></a><span class="lineno"> 2644</span>  }</div><div class="line"><a name="l02645"></a><span class="lineno"> 2645</span> </div><div class="line"><a name="l02646"></a><span class="lineno"> 2646</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#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)) {</div><div class="line"><a name="l02647"></a><span class="lineno"> 2647</span>  Tcl_DeleteTimerHandler(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a>);</div><div class="line"><a name="l02648"></a><span class="lineno"> 2648</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a20b2625ccd76a263e035cdcda2cc7553">timer_token</a> = (Tcl_TimerToken)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</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>  <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#a598f7c4cee4b8028312b375364ac55b4">rb_thread_alive_p</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>))) {</div><div class="line"><a name="l02654"></a><span class="lineno"> 2654</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eventloop-enshure: wake up parent %lx"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>);</div><div class="line"><a name="l02655"></a><span class="lineno"> 2655</span>  <a class="code" href="../../db/d2e/intern_8h.html#a5ec55864056da2a01e4b87fde4c807b9">rb_thread_wakeup</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>);</div><div class="line"><a name="l02656"></a><span class="lineno"> 2656</span> </div><div class="line"><a name="l02657"></a><span class="lineno"> 2657</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l02658"></a><span class="lineno"> 2658</span>  }</div><div class="line"><a name="l02659"></a><span class="lineno"> 2659</span>  }</div><div class="line"><a name="l02660"></a><span class="lineno"> 2660</span> </div><div class="line"><a name="l02661"></a><span class="lineno"> 2661</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l02662"></a><span class="lineno"> 2662</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#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)) {</div><div class="line"><a name="l02663"></a><span class="lineno"> 2663</span>  tk_eventloop_thread_id = (Tcl_ThreadId) 0;</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> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02666"></a><span class="lineno"> 2666</span> </div><div class="line"><a name="l02667"></a><span class="lineno"> 2667</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">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="l02668"></a><span class="lineno"> 2668</span> </div><div class="line"><a name="l02669"></a><span class="lineno"> 2669</span>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(ptr);</div><div class="line"><a name="l02670"></a><span class="lineno"> 2670</span>  <span class="comment">/* ckfree((char*)ptr);*/</span></div><div class="line"><a name="l02671"></a><span class="lineno"> 2671</span> </div><div class="line"><a name="l02672"></a><span class="lineno"> 2672</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="l02673"></a><span class="lineno"> 2673</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l02674"></a><span class="lineno"> 2674</span> }</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">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02677"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aed5576b12eec97d8314b7aae8903d64b"> 2677</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed5576b12eec97d8314b7aae8903d64b">lib_eventloop_launcher</a>(<a class="code" href="../../d3/de9/structevloop__params.html#a708cc255e06d9c190c2e05cd8c216495">check_root</a>, <a class="code" href="../../d3/de9/structevloop__params.html#ae4dc203be43e5fa9f03ebcc643e40fe4">update_flag</a>, <a class="code" href="../../d3/de9/structevloop__params.html#a76b488a954ff0c3cd0770004a1cd91c3">check_var</a>, <a class="code" href="../../d3/de9/structevloop__params.html#ab1ca04ef36befd4c7dbfc886eef74e32">interp</a>)</div><div class="line"><a name="l02678"></a><span class="lineno"> 2678</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="l02679"></a><span class="lineno"> 2679</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="l02680"></a><span class="lineno"> 2680</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="l02681"></a><span class="lineno"> 2681</span>  Tcl_Interp *<a class="code" href="../../d3/de9/structevloop__params.html#ab1ca04ef36befd4c7dbfc886eef74e32">interp</a>;</div><div class="line"><a name="l02682"></a><span class="lineno"> 2682</span> {</div><div class="line"><a name="l02683"></a><span class="lineno"> 2683</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> parent_evloop = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>;</div><div class="line"><a name="l02684"></a><span class="lineno"> 2684</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="l02685"></a><span class="lineno"> 2685</span>  <span class="comment">/* struct evloop_params *args = RbTk_ALLOC_N(struct evloop_params, 1); */</span></div><div class="line"><a name="l02686"></a><span class="lineno"> 2686</span> </div><div class="line"><a name="l02687"></a><span class="lineno"> 2687</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acc6e437a3e4205736d8cb9b4888762fc">tcl_stubs_check</a>();</div><div class="line"><a name="l02688"></a><span class="lineno"> 2688</span> </div><div class="line"><a name="l02689"></a><span class="lineno"> 2689</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a> = <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>();</div><div class="line"><a name="l02690"></a><span class="lineno"> 2690</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l02691"></a><span class="lineno"> 2691</span>  tk_eventloop_thread_id = Tcl_GetCurrentThread();</div><div class="line"><a name="l02692"></a><span class="lineno"> 2692</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02693"></a><span class="lineno"> 2693</span> </div><div class="line"><a name="l02694"></a><span class="lineno"> 2694</span>  <span class="keywordflow">if</span> (parent_evloop == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>) {</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">"eventloop: recursive call on %lx"</span>, parent_evloop);</div><div class="line"><a name="l02696"></a><span class="lineno"> 2696</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a>++;</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> </div><div class="line"><a name="l02699"></a><span class="lineno"> 2699</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(parent_evloop) && parent_evloop != <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>) {</div><div class="line"><a name="l02700"></a><span class="lineno"> 2700</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="l02701"></a><span class="lineno"> 2701</span>  <span class="keywordflow">while</span>(!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(parent_evloop, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3146c23bbdd4311489cbe8cb76c7aebb">ID_stop_p</a>, 0))) {</div><div class="line"><a name="l02702"></a><span class="lineno"> 2702</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="l02703"></a><span class="lineno"> 2703</span>  <a class="code" href="../../db/d2e/intern_8h.html#a466749a3498fa8fbb48f7fc783a7cf34">rb_thread_run</a>(parent_evloop);</div><div class="line"><a name="l02704"></a><span class="lineno"> 2704</span>  }</div><div class="line"><a name="l02705"></a><span class="lineno"> 2705</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="l02706"></a><span class="lineno"> 2706</span>  }</div><div class="line"><a name="l02707"></a><span class="lineno"> 2707</span> </div><div class="line"><a name="l02708"></a><span class="lineno"> 2708</span>  <a class="code" href="../../dc/dcc/array_8c.html#a59d553a8cd781364b8bcb0deae25cca2">rb_ary_push</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a606d7647537ea0c5a15818642b884f6b">eventloop_stack</a>, parent_evloop);</div><div class="line"><a name="l02709"></a><span class="lineno"> 2709</span> </div><div class="line"><a name="l02710"></a><span class="lineno"> 2710</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="l02711"></a><span class="lineno"> 2711</span>  parent_evloop, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>);</div><div class="line"><a name="l02712"></a><span class="lineno"> 2712</span> </div><div class="line"><a name="l02713"></a><span class="lineno"> 2713</span>  args-><a class="code" href="../../d3/de9/structevloop__params.html#a708cc255e06d9c190c2e05cd8c216495">check_root</a> = <a class="code" href="../../d3/de9/structevloop__params.html#a708cc255e06d9c190c2e05cd8c216495">check_root</a>;</div><div class="line"><a name="l02714"></a><span class="lineno"> 2714</span>  args-><a class="code" href="../../d3/de9/structevloop__params.html#ae4dc203be43e5fa9f03ebcc643e40fe4">update_flag</a> = <a class="code" href="../../d3/de9/structevloop__params.html#ae4dc203be43e5fa9f03ebcc643e40fe4">update_flag</a>;</div><div class="line"><a name="l02715"></a><span class="lineno"> 2715</span>  args-><a class="code" href="../../d3/de9/structevloop__params.html#a76b488a954ff0c3cd0770004a1cd91c3">check_var</a> = <a class="code" href="../../d3/de9/structevloop__params.html#a76b488a954ff0c3cd0770004a1cd91c3">check_var</a>;</div><div class="line"><a name="l02716"></a><span class="lineno"> 2716</span>  args-><a class="code" href="../../d3/de9/structevloop__params.html#ab1ca04ef36befd4c7dbfc886eef74e32">interp</a> = <a class="code" href="../../d3/de9/structevloop__params.html#ab1ca04ef36befd4c7dbfc886eef74e32">interp</a>;</div><div class="line"><a name="l02717"></a><span class="lineno"> 2717</span>  args-><a class="code" href="../../d3/de9/structevloop__params.html#a44b43898f08f3a4f4005db107aebb978">thr_crit_bup</a> = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l02718"></a><span class="lineno"> 2718</span> </div><div class="line"><a name="l02719"></a><span class="lineno"> 2719</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</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> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l02722"></a><span class="lineno"> 2722</span>  <span class="keywordflow">return</span> <a class="code" href="../../d3/d57/eval_8c.html#a8061198378fb16adeb931f90540b2839">rb_ensure</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ad09137e93e6fd9828100ba236f6aeb2b">lib_eventloop_main</a>, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)args,</div><div class="line"><a name="l02723"></a><span class="lineno"> 2723</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a04aca966ccbbc51fd5d317cd8e7076c8">lib_eventloop_ensure</a>, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)args);</div><div class="line"><a name="l02724"></a><span class="lineno"> 2724</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02725"></a><span class="lineno"> 2725</span>  <span class="keywordflow">return</span> <a class="code" href="../../d3/d57/eval_8c.html#a8061198378fb16adeb931f90540b2839">rb_ensure</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a531b4cda232013cf16217ff379ac4aa5">lib_eventloop_main_core</a>, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)args,</div><div class="line"><a name="l02726"></a><span class="lineno"> 2726</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a04aca966ccbbc51fd5d317cd8e7076c8">lib_eventloop_ensure</a>, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)args);</div><div class="line"><a name="l02727"></a><span class="lineno"> 2727</span> }</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> <span class="comment">/* execute Tk_MainLoop */</span></div><div class="line"><a name="l02730"></a><span class="lineno"> 2730</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02731"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9fbe12119a2f37b103a041490d037b85"> 2731</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9fbe12119a2f37b103a041490d037b85">lib_mainloop</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>)</div><div class="line"><a name="l02732"></a><span class="lineno"> 2732</span>  int <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l02733"></a><span class="lineno"> 2733</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l02734"></a><span class="lineno"> 2734</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l02735"></a><span class="lineno"> 2735</span> {</div><div class="line"><a name="l02736"></a><span class="lineno"> 2736</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> check_rootwidget;</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>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"01"</span>, &check_rootwidget) == 0) {</div><div class="line"><a name="l02739"></a><span class="lineno"> 2739</span>  check_rootwidget = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l02740"></a><span class="lineno"> 2740</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="l02741"></a><span class="lineno"> 2741</span>  check_rootwidget = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l02742"></a><span class="lineno"> 2742</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02743"></a><span class="lineno"> 2743</span>  check_rootwidget = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l02744"></a><span class="lineno"> 2744</span>  }</div><div class="line"><a name="l02745"></a><span class="lineno"> 2745</span> </div><div class="line"><a name="l02746"></a><span class="lineno"> 2746</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed5576b12eec97d8314b7aae8903d64b">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="l02747"></a><span class="lineno"> 2747</span>  (<span class="keywordtype">int</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</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> </div><div class="line"><a name="l02750"></a><span class="lineno"> 2750</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02751"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abe42e2876c470464dea5b16fd5763de5"> 2751</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abe42e2876c470464dea5b16fd5763de5">ip_mainloop</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>)</div><div class="line"><a name="l02752"></a><span class="lineno"> 2752</span>  int <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l02753"></a><span class="lineno"> 2753</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l02754"></a><span class="lineno"> 2754</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</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>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ret;</div><div class="line"><a name="l02757"></a><span class="lineno"> 2757</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l02758"></a><span class="lineno"> 2758</span> </div><div class="line"><a name="l02759"></a><span class="lineno"> 2759</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l02760"></a><span class="lineno"> 2760</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l02761"></a><span class="lineno"> 2761</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l02762"></a><span class="lineno"> 2762</span>  }</div><div class="line"><a name="l02763"></a><span class="lineno"> 2763</span> </div><div class="line"><a name="l02764"></a><span class="lineno"> 2764</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="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l02765"></a><span class="lineno"> 2765</span>  <span class="comment">/* slave IP */</span></div><div class="line"><a name="l02766"></a><span class="lineno"> 2766</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</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>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a09520768374a3d97d15bad5db2dd06d8">eventloop_interp</a> = ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>;</div><div class="line"><a name="l02770"></a><span class="lineno"> 2770</span>  ret = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9fbe12119a2f37b103a041490d037b85">lib_mainloop</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>);</div><div class="line"><a name="l02771"></a><span class="lineno"> 2771</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a09520768374a3d97d15bad5db2dd06d8">eventloop_interp</a> = (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l02772"></a><span class="lineno"> 2772</span>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l02773"></a><span class="lineno"> 2773</span> }</div><div class="line"><a name="l02774"></a><span class="lineno"> 2774</span> </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> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02777"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aab0fce189f0f9c11438fa9020bb18be8"> 2777</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aab0fce189f0f9c11438fa9020bb18be8">watchdog_evloop_launcher</a>(check_rootwidget)</div><div class="line"><a name="l02778"></a><span class="lineno"> 2778</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> check_rootwidget;</div><div class="line"><a name="l02779"></a><span class="lineno"> 2779</span> {</div><div class="line"><a name="l02780"></a><span class="lineno"> 2780</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed5576b12eec97d8314b7aae8903d64b">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="l02781"></a><span class="lineno"> 2781</span>  (<span class="keywordtype">int</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</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> </div><div class="line"><a name="l02784"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a43ff4666b9a565e45077f1e660def679"> 2784</a></span> <span class="preprocessor">#define EVLOOP_WAKEUP_CHANCE 3</span></div><div class="line"><a name="l02785"></a><span class="lineno"> 2785</span> </div><div class="line"><a name="l02786"></a><span class="lineno"> 2786</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02787"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af158659d1ee3311b27cce980fa40e257"> 2787</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af158659d1ee3311b27cce980fa40e257">lib_watchdog_core</a>(check_rootwidget)</div><div class="line"><a name="l02788"></a><span class="lineno"> 2788</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> check_rootwidget;</div><div class="line"><a name="l02789"></a><span class="lineno"> 2789</span> {</div><div class="line"><a name="l02790"></a><span class="lineno"> 2790</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> evloop;</div><div class="line"><a name="l02791"></a><span class="lineno"> 2791</span>  <span class="keywordtype">int</span> prev_val = -1;</div><div class="line"><a name="l02792"></a><span class="lineno"> 2792</span>  <span class="keywordtype">int</span> chance = 0;</div><div class="line"><a name="l02793"></a><span class="lineno"> 2793</span>  <span class="keywordtype">int</span> check = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(check_rootwidget);</div><div class="line"><a name="l02794"></a><span class="lineno"> 2794</span>  <span class="keyword">struct </span><a class="code" href="../../d1/d1b/structtimeval.html">timeval</a> t0, t1;</div><div class="line"><a name="l02795"></a><span class="lineno"> 2795</span> </div><div class="line"><a name="l02796"></a><span class="lineno"> 2796</span>  t0.<a class="code" href="../../d1/d1b/structtimeval.html#a3599199839a89e99a2ce29d45312b5cf">tv_sec</a> = 0;</div><div class="line"><a name="l02797"></a><span class="lineno"> 2797</span>  t0.<a class="code" href="../../d1/d1b/structtimeval.html#aa8396731f2914f9ed2a457d3da602b80">tv_usec</a> = (long)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#a18f3feef1d89c72c2ea59a0ce2dd8366">NO_THREAD_INTERRUPT_TIME</a>)*1000.0);</div><div class="line"><a name="l02798"></a><span class="lineno"> 2798</span>  t1.<a class="code" href="../../d1/d1b/structtimeval.html#a3599199839a89e99a2ce29d45312b5cf">tv_sec</a> = 0;</div><div class="line"><a name="l02799"></a><span class="lineno"> 2799</span>  t1.<a class="code" href="../../d1/d1b/structtimeval.html#aa8396731f2914f9ed2a457d3da602b80">tv_usec</a> = (long)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#a92353a0b223e78081b022d5a33870967">WATCHDOG_INTERVAL</a>)*1000.0);</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>  <span class="comment">/* check other watchdog thread */</span></div><div class="line"><a name="l02802"></a><span class="lineno"> 2802</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#a73ffc5e8c3f30a29963a2df64361b93a">watchdog_thread</a>)) {</div><div class="line"><a name="l02803"></a><span class="lineno"> 2803</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a73ffc5e8c3f30a29963a2df64361b93a">watchdog_thread</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3146c23bbdd4311489cbe8cb76c7aebb">ID_stop_p</a>, 0))) {</div><div class="line"><a name="l02804"></a><span class="lineno"> 2804</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a73ffc5e8c3f30a29963a2df64361b93a">watchdog_thread</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa0338a6024357b513fd58ebd112be7db">ID_kill</a>, 0);</div><div class="line"><a name="l02805"></a><span class="lineno"> 2805</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02806"></a><span class="lineno"> 2806</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l02807"></a><span class="lineno"> 2807</span>  }</div><div class="line"><a name="l02808"></a><span class="lineno"> 2808</span>  }</div><div class="line"><a name="l02809"></a><span class="lineno"> 2809</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a73ffc5e8c3f30a29963a2df64361b93a">watchdog_thread</a> = <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>();</div><div class="line"><a name="l02810"></a><span class="lineno"> 2810</span> </div><div class="line"><a name="l02811"></a><span class="lineno"> 2811</span>  <span class="comment">/* watchdog start */</span></div><div class="line"><a name="l02812"></a><span class="lineno"> 2812</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l02813"></a><span class="lineno"> 2813</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#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)</div><div class="line"><a name="l02814"></a><span class="lineno"> 2814</span>  || (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae4eb912710ffa8fbc4ce6275ea1f23af">loop_counter</a> == prev_val && chance >= <a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ff4666b9a565e45077f1e660def679">EVLOOP_WAKEUP_CHANCE</a>)) {</div><div class="line"><a name="l02815"></a><span class="lineno"> 2815</span>  <span class="comment">/* start new eventloop thread */</span></div><div class="line"><a name="l02816"></a><span class="lineno"> 2816</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="l02817"></a><span class="lineno"> 2817</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>);</div><div class="line"><a name="l02818"></a><span class="lineno"> 2818</span>  evloop = <a class="code" href="../../db/d2e/intern_8h.html#a987c01487d77573a7840848bc2c37b0e">rb_thread_create</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aab0fce189f0f9c11438fa9020bb18be8">watchdog_evloop_launcher</a>,</div><div class="line"><a name="l02819"></a><span class="lineno"> 2819</span>  (<span class="keywordtype">void</span>*)&check_rootwidget);</div><div class="line"><a name="l02820"></a><span class="lineno"> 2820</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="l02821"></a><span class="lineno"> 2821</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae4eb912710ffa8fbc4ce6275ea1f23af">loop_counter</a> = -1;</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>  <a class="code" href="../../db/d2e/intern_8h.html#a466749a3498fa8fbb48f7fc783a7cf34">rb_thread_run</a>(evloop);</div><div class="line"><a name="l02824"></a><span class="lineno"> 2824</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02825"></a><span class="lineno"> 2825</span>  prev_val = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae4eb912710ffa8fbc4ce6275ea1f23af">loop_counter</a>;</div><div class="line"><a name="l02826"></a><span class="lineno"> 2826</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3146c23bbdd4311489cbe8cb76c7aebb">ID_stop_p</a>, 0))) {</div><div class="line"><a name="l02827"></a><span class="lineno"> 2827</span>  ++chance;</div><div class="line"><a name="l02828"></a><span class="lineno"> 2828</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02829"></a><span class="lineno"> 2829</span>  chance = 0;</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">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#af2723ded53fcb84d63096a8272b5b3f6">event_loop_wait_event</a>) {</div><div class="line"><a name="l02832"></a><span class="lineno"> 2832</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0187a1eb4a4d01a4c9ef6b36b51faa6f">rb_thread_wait_for</a>(t0);</div><div class="line"><a name="l02833"></a><span class="lineno"> 2833</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02834"></a><span class="lineno"> 2834</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0187a1eb4a4d01a4c9ef6b36b51faa6f">rb_thread_wait_for</a>(t1);</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>  <span class="comment">/* rb_thread_schedule(); */</span></div><div class="line"><a name="l02837"></a><span class="lineno"> 2837</span>  }</div><div class="line"><a name="l02838"></a><span class="lineno"> 2838</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="l02839"></a><span class="lineno"> 2839</span> </div><div class="line"><a name="l02840"></a><span class="lineno"> 2840</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l02841"></a><span class="lineno"> 2841</span> }</div><div class="line"><a name="l02842"></a><span class="lineno"> 2842</span> </div><div class="line"><a name="l02843"></a><span class="lineno"> 2843</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02844"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a73077b7b97d6e3f263fcc7bee1e2960f"> 2844</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a73077b7b97d6e3f263fcc7bee1e2960f">lib_watchdog_ensure</a>(arg)</div><div class="line"><a name="l02845"></a><span class="lineno"> 2845</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> arg;</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>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>; <span class="comment">/* stop eventloops */</span></div><div class="line"><a name="l02848"></a><span class="lineno"> 2848</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l02849"></a><span class="lineno"> 2849</span>  tk_eventloop_thread_id = (Tcl_ThreadId) 0;</div><div class="line"><a name="l02850"></a><span class="lineno"> 2850</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02851"></a><span class="lineno"> 2851</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</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> </div><div class="line"><a name="l02854"></a><span class="lineno"> 2854</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02855"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae977a1cc3c4fe5396d83e62d9cd84768"> 2855</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae977a1cc3c4fe5396d83e62d9cd84768">lib_mainloop_watchdog</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>)</div><div class="line"><a name="l02856"></a><span class="lineno"> 2856</span>  int <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l02857"></a><span class="lineno"> 2857</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l02858"></a><span class="lineno"> 2858</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l02859"></a><span class="lineno"> 2859</span> {</div><div class="line"><a name="l02860"></a><span class="lineno"> 2860</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> check_rootwidget;</div><div class="line"><a name="l02861"></a><span class="lineno"> 2861</span> </div><div class="line"><a name="l02862"></a><span class="lineno"> 2862</span> <span class="preprocessor">#ifdef RUBY_VM</span></div><div class="line"><a name="l02863"></a><span class="lineno"> 2863</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="l02864"></a><span class="lineno"> 2864</span>  <span class="stringliteral">"eventloop_watchdog is not implemented on Ruby VM."</span>);</div><div class="line"><a name="l02865"></a><span class="lineno"> 2865</span> <span class="preprocessor">#endif</span></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>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"01"</span>, &check_rootwidget) == 0) {</div><div class="line"><a name="l02868"></a><span class="lineno"> 2868</span>  check_rootwidget = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l02869"></a><span class="lineno"> 2869</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="l02870"></a><span class="lineno"> 2870</span>  check_rootwidget = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l02871"></a><span class="lineno"> 2871</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02872"></a><span class="lineno"> 2872</span>  check_rootwidget = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l02873"></a><span class="lineno"> 2873</span>  }</div><div class="line"><a name="l02874"></a><span class="lineno"> 2874</span> </div><div class="line"><a name="l02875"></a><span class="lineno"> 2875</span>  <span class="keywordflow">return</span> <a class="code" href="../../d3/d57/eval_8c.html#a8061198378fb16adeb931f90540b2839">rb_ensure</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#af158659d1ee3311b27cce980fa40e257">lib_watchdog_core</a>, check_rootwidget,</div><div class="line"><a name="l02876"></a><span class="lineno"> 2876</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a73077b7b97d6e3f263fcc7bee1e2960f">lib_watchdog_ensure</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>);</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> </div><div class="line"><a name="l02879"></a><span class="lineno"> 2879</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02880"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa4890e0e98d5502c6ea43aa6a29bad38"> 2880</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa4890e0e98d5502c6ea43aa6a29bad38">ip_mainloop_watchdog</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>)</div><div class="line"><a name="l02881"></a><span class="lineno"> 2881</span>  int <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l02882"></a><span class="lineno"> 2882</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l02883"></a><span class="lineno"> 2883</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</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="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l02886"></a><span class="lineno"> 2886</span> </div><div class="line"><a name="l02887"></a><span class="lineno"> 2887</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l02888"></a><span class="lineno"> 2888</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l02889"></a><span class="lineno"> 2889</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</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>  <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="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l02893"></a><span class="lineno"> 2893</span>  <span class="comment">/* slave IP */</span></div><div class="line"><a name="l02894"></a><span class="lineno"> 2894</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l02895"></a><span class="lineno"> 2895</span>  }</div><div class="line"><a name="l02896"></a><span class="lineno"> 2896</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae977a1cc3c4fe5396d83e62d9cd84768">lib_mainloop_watchdog</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>);</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> </div><div class="line"><a name="l02900"></a><span class="lineno"> 2900</span> <span class="comment">/* thread-safe(?) interaction between Ruby and Tk */</span></div><div class="line"><a name="l02901"></a><span class="lineno"><a class="line" href="../../d6/dec/structthread__call__proc__arg.html"> 2901</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="l02902"></a><span class="lineno"><a class="line" href="../../d6/dec/structthread__call__proc__arg.html#a88c2082d5ef020c3bf715fffcf3e846c"> 2902</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <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"><a class="line" href="../../d6/dec/structthread__call__proc__arg.html#a8c9f6e61dae5c5ff9318dc849fbe4ff0"> 2903</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="l02904"></a><span class="lineno"> 2904</span> };</div><div class="line"><a name="l02905"></a><span class="lineno"> 2905</span> </div><div class="line"><a name="l02906"></a><span class="lineno"> 2906</span> <span class="keywordtype">void</span></div><div class="line"><a name="l02907"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a68d215a0a799125badfec44692eef7c0"> 2907</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> *q)</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>  <a class="code" href="../../d8/d16/gc_8c.html#a98250264e6adf4924cf2becf80122325">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="l02910"></a><span class="lineno"> 2910</span> }</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> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02913"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abbc576c100b4422fdc8e8fb384d56c36"> 2913</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abbc576c100b4422fdc8e8fb384d56c36">_thread_call_proc_core</a>(arg)</div><div class="line"><a name="l02914"></a><span class="lineno"> 2914</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> arg;</div><div class="line"><a name="l02915"></a><span class="lineno"> 2915</span> {</div><div class="line"><a name="l02916"></a><span class="lineno"> 2916</span>  <span class="keyword">struct </span><a class="code" href="../../d6/dec/structthread__call__proc__arg.html">thread_call_proc_arg</a> *q = (<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="l02917"></a><span class="lineno"> 2917</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(q-><a class="code" href="../../d6/dec/structthread__call__proc__arg.html#a88c2082d5ef020c3bf715fffcf3e846c">proc</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a31a624c57e908d47f2aeb7209e7db3e7">ID_call</a>, 0);</div><div class="line"><a name="l02918"></a><span class="lineno"> 2918</span> }</div><div class="line"><a name="l02919"></a><span class="lineno"> 2919</span> </div><div class="line"><a name="l02920"></a><span class="lineno"> 2920</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02921"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#abd8f4f15b673d6e4b8870870639ad5dc"> 2921</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#abd8f4f15b673d6e4b8870870639ad5dc">_thread_call_proc_ensure</a>(arg)</div><div class="line"><a name="l02922"></a><span class="lineno"> 2922</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> arg;</div><div class="line"><a name="l02923"></a><span class="lineno"> 2923</span> {</div><div class="line"><a name="l02924"></a><span class="lineno"> 2924</span>  <span class="keyword">struct </span><a class="code" href="../../d6/dec/structthread__call__proc__arg.html">thread_call_proc_arg</a> *q = (<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="l02925"></a><span class="lineno"> 2925</span>  *(q-><a class="code" href="../../d6/dec/structthread__call__proc__arg.html#a8c9f6e61dae5c5ff9318dc849fbe4ff0">done</a>) = 1;</div><div class="line"><a name="l02926"></a><span class="lineno"> 2926</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</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> </div><div class="line"><a name="l02929"></a><span class="lineno"> 2929</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02930"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa6313a173a762dd8a2a94b0d9b0ce8aa"> 2930</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6313a173a762dd8a2a94b0d9b0ce8aa">_thread_call_proc</a>(arg)</div><div class="line"><a name="l02931"></a><span class="lineno"> 2931</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> arg;</div><div class="line"><a name="l02932"></a><span class="lineno"> 2932</span> {</div><div class="line"><a name="l02933"></a><span class="lineno"> 2933</span>  <span class="keyword">struct </span><a class="code" href="../../d6/dec/structthread__call__proc__arg.html">thread_call_proc_arg</a> *q = (<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="l02934"></a><span class="lineno"> 2934</span> </div><div class="line"><a name="l02935"></a><span class="lineno"> 2935</span>  <span class="keywordflow">return</span> <a class="code" href="../../d3/d57/eval_8c.html#a8061198378fb16adeb931f90540b2839">rb_ensure</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#abbc576c100b4422fdc8e8fb384d56c36">_thread_call_proc_core</a>, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)q,</div><div class="line"><a name="l02936"></a><span class="lineno"> 2936</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#abd8f4f15b673d6e4b8870870639ad5dc">_thread_call_proc_ensure</a>, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)q);</div><div class="line"><a name="l02937"></a><span class="lineno"> 2937</span> }</div><div class="line"><a name="l02938"></a><span class="lineno"> 2938</span> </div><div class="line"><a name="l02939"></a><span class="lineno"> 2939</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02940"></a><span class="lineno"> 2940</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div><div class="line"><a name="l02941"></a><span class="lineno"> 2941</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a10f530f1dec144f7f740a7e3b78def0e">_thread_call_proc_value</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> th)</div><div class="line"><a name="l02942"></a><span class="lineno"> 2942</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l02943"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a10f530f1dec144f7f740a7e3b78def0e"> 2943</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a10f530f1dec144f7f740a7e3b78def0e">_thread_call_proc_value</a>(th)</div><div class="line"><a name="l02944"></a><span class="lineno"> 2944</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> th;</div><div class="line"><a name="l02945"></a><span class="lineno"> 2945</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l02946"></a><span class="lineno"> 2946</span> {</div><div class="line"><a name="l02947"></a><span class="lineno"> 2947</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(th, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab120af30b98a101b13e07722999f6e60">ID_value</a>, 0);</div><div class="line"><a name="l02948"></a><span class="lineno"> 2948</span> }</div><div class="line"><a name="l02949"></a><span class="lineno"> 2949</span> </div><div class="line"><a name="l02950"></a><span class="lineno"> 2950</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l02951"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3e277c7839c769dbda6f519c443eed20"> 2951</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e277c7839c769dbda6f519c443eed20">lib_thread_callback</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>)</div><div class="line"><a name="l02952"></a><span class="lineno"> 2952</span>  int <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l02953"></a><span class="lineno"> 2953</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l02954"></a><span class="lineno"> 2954</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</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>  <span class="keyword">struct </span><a class="code" href="../../d6/dec/structthread__call__proc__arg.html">thread_call_proc_arg</a> *q;</div><div class="line"><a name="l02957"></a><span class="lineno"> 2957</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d6/dec/structthread__call__proc__arg.html#a88c2082d5ef020c3bf715fffcf3e846c">proc</a>, th, ret;</div><div class="line"><a name="l02958"></a><span class="lineno"> 2958</span>  <span class="keywordtype">int</span> status;</div><div class="line"><a name="l02959"></a><span class="lineno"> 2959</span> </div><div class="line"><a name="l02960"></a><span class="lineno"> 2960</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"01"</span>, &<a class="code" href="../../d6/dec/structthread__call__proc__arg.html#a88c2082d5ef020c3bf715fffcf3e846c">proc</a>) == 0) {</div><div class="line"><a name="l02961"></a><span class="lineno"> 2961</span>  <a class="code" href="../../d6/dec/structthread__call__proc__arg.html#a88c2082d5ef020c3bf715fffcf3e846c">proc</a> = <a class="code" href="../../db/d2e/intern_8h.html#a7b330d2905c5f0c9a68cef4ebba5c00f">rb_block_proc</a>();</div><div class="line"><a name="l02962"></a><span class="lineno"> 2962</span>  }</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>  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="l02965"></a><span class="lineno"> 2965</span>  <span class="comment">/* q = RbTk_ALLOC_N(struct thread_call_proc_arg, 1); */</span></div><div class="line"><a name="l02966"></a><span class="lineno"> 2966</span>  q-><a class="code" href="../../d6/dec/structthread__call__proc__arg.html#a88c2082d5ef020c3bf715fffcf3e846c">proc</a> = <a class="code" href="../../d6/dec/structthread__call__proc__arg.html#a88c2082d5ef020c3bf715fffcf3e846c">proc</a>;</div><div class="line"><a name="l02967"></a><span class="lineno"> 2967</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="l02968"></a><span class="lineno"> 2968</span>  <span class="comment">/* q->done = RbTk_ALLOC_N(int, 1); */</span></div><div class="line"><a name="l02969"></a><span class="lineno"> 2969</span>  *(q-><a class="code" href="../../d6/dec/structthread__call__proc__arg.html#a8c9f6e61dae5c5ff9318dc849fbe4ff0">done</a>) = 0;</div><div class="line"><a name="l02970"></a><span class="lineno"> 2970</span> </div><div class="line"><a name="l02971"></a><span class="lineno"> 2971</span>  <span class="comment">/* create call-proc thread */</span></div><div class="line"><a name="l02972"></a><span class="lineno"> 2972</span>  th = <a class="code" href="../../db/d2e/intern_8h.html#a987c01487d77573a7840848bc2c37b0e">rb_thread_create</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6313a173a762dd8a2a94b0d9b0ce8aa">_thread_call_proc</a>, (<span class="keywordtype">void</span>*)q);</div><div class="line"><a name="l02973"></a><span class="lineno"> 2973</span> </div><div class="line"><a name="l02974"></a><span class="lineno"> 2974</span>  <a class="code" href="../../db/d2e/intern_8h.html#ad1fe299d3b5a492259ab4e733832868c">rb_thread_schedule</a>();</div><div class="line"><a name="l02975"></a><span class="lineno"> 2975</span> </div><div class="line"><a name="l02976"></a><span class="lineno"> 2976</span>  <span class="comment">/* start sub-eventloop */</span></div><div class="line"><a name="l02977"></a><span class="lineno"> 2977</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed5576b12eec97d8314b7aae8903d64b">lib_eventloop_launcher</a>(<span class="comment">/* not check root-widget */</span>0, 0,</div><div class="line"><a name="l02978"></a><span class="lineno"> 2978</span>  q->done, (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l02979"></a><span class="lineno"> 2979</span> </div><div class="line"><a name="l02980"></a><span class="lineno"> 2980</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#a598f7c4cee4b8028312b375364ac55b4">rb_thread_alive_p</a>(th))) {</div><div class="line"><a name="l02981"></a><span class="lineno"> 2981</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(th, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa0338a6024357b513fd58ebd112be7db">ID_kill</a>, 0);</div><div class="line"><a name="l02982"></a><span class="lineno"> 2982</span>  ret = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l02983"></a><span class="lineno"> 2983</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02984"></a><span class="lineno"> 2984</span>  ret = <a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a10f530f1dec144f7f740a7e3b78def0e">_thread_call_proc_value</a>, th, &status);</div><div class="line"><a name="l02985"></a><span class="lineno"> 2985</span>  }</div><div class="line"><a name="l02986"></a><span class="lineno"> 2986</span> </div><div class="line"><a name="l02987"></a><span class="lineno"> 2987</span>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(q->done);</div><div class="line"><a name="l02988"></a><span class="lineno"> 2988</span>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(q);</div><div class="line"><a name="l02989"></a><span class="lineno"> 2989</span>  <span class="comment">/* ckfree((char*)q->done); */</span></div><div class="line"><a name="l02990"></a><span class="lineno"> 2990</span>  <span class="comment">/* ckfree((char*)q); */</span></div><div class="line"><a name="l02991"></a><span class="lineno"> 2991</span> </div><div class="line"><a name="l02992"></a><span class="lineno"> 2992</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>)) {</div><div class="line"><a name="l02993"></a><span class="lineno"> 2993</span>  <span class="comment">/* return rb_errinfo(); */</span></div><div class="line"><a name="l02994"></a><span class="lineno"> 2994</span>  <span class="keywordflow">if</span> (status) {</div><div class="line"><a name="l02995"></a><span class="lineno"> 2995</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="l02996"></a><span class="lineno"> 2996</span>  }</div><div class="line"><a name="l02997"></a><span class="lineno"> 2997</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l02998"></a><span class="lineno"> 2998</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>;</div><div class="line"><a name="l02999"></a><span class="lineno"> 2999</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l03000"></a><span class="lineno"> 3000</span>  <span class="comment">/* return exc; */</span></div><div class="line"><a name="l03001"></a><span class="lineno"> 3001</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(exc);</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>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l03005"></a><span class="lineno"> 3005</span> }</div><div class="line"><a name="l03006"></a><span class="lineno"> 3006</span> </div><div class="line"><a name="l03007"></a><span class="lineno"> 3007</span> </div><div class="line"><a name="l03008"></a><span class="lineno"> 3008</span> <span class="comment">/* do_one_event */</span></div><div class="line"><a name="l03009"></a><span class="lineno"> 3009</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l03010"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a581f007ce5b3d556b3d97c06de928260"> 3010</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a581f007ce5b3d556b3d97c06de928260">lib_do_one_event_core</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>, is_ip)</div><div class="line"><a name="l03011"></a><span class="lineno"> 3011</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l03012"></a><span class="lineno"> 3012</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l03013"></a><span class="lineno"> 3013</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l03014"></a><span class="lineno"> 3014</span>  <span class="keywordtype">int</span> is_ip;</div><div class="line"><a name="l03015"></a><span class="lineno"> 3015</span> {</div><div class="line"><a name="l03016"></a><span class="lineno"> 3016</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> vflags;</div><div class="line"><a name="l03017"></a><span class="lineno"> 3017</span>  <span class="keywordtype">int</span> flags;</div><div class="line"><a name="l03018"></a><span class="lineno"> 3018</span>  <span class="keywordtype">int</span> found_event;</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>  <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#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)) {</div><div class="line"><a name="l03021"></a><span class="lineno"> 3021</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="l03022"></a><span class="lineno"> 3022</span>  }</div><div class="line"><a name="l03023"></a><span class="lineno"> 3023</span> </div><div class="line"><a name="l03024"></a><span class="lineno"> 3024</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acc6e437a3e4205736d8cb9b4888762fc">tcl_stubs_check</a>();</div><div class="line"><a name="l03025"></a><span class="lineno"> 3025</span> </div><div class="line"><a name="l03026"></a><span class="lineno"> 3026</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"01"</span>, &vflags) == 0) {</div><div class="line"><a name="l03027"></a><span class="lineno"> 3027</span>  flags = TCL_ALL_EVENTS | TCL_DONT_WAIT;</div><div class="line"><a name="l03028"></a><span class="lineno"> 3028</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l03029"></a><span class="lineno"> 3029</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="l03030"></a><span class="lineno"> 3030</span>  flags = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(vflags);</div><div class="line"><a name="l03031"></a><span class="lineno"> 3031</span>  }</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>  <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="l03034"></a><span class="lineno"> 3034</span>  flags |= TCL_DONT_WAIT;</div><div class="line"><a name="l03035"></a><span class="lineno"> 3035</span>  }</div><div class="line"><a name="l03036"></a><span class="lineno"> 3036</span> </div><div class="line"><a name="l03037"></a><span class="lineno"> 3037</span>  <span class="keywordflow">if</span> (is_ip) {</div><div class="line"><a name="l03038"></a><span class="lineno"> 3038</span>  <span class="comment">/* check IP */</span></div><div class="line"><a name="l03039"></a><span class="lineno"> 3039</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l03040"></a><span class="lineno"> 3040</span> </div><div class="line"><a name="l03041"></a><span class="lineno"> 3041</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l03042"></a><span class="lineno"> 3042</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l03043"></a><span class="lineno"> 3043</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l03044"></a><span class="lineno"> 3044</span>  }</div><div class="line"><a name="l03045"></a><span class="lineno"> 3045</span> </div><div class="line"><a name="l03046"></a><span class="lineno"> 3046</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="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l03047"></a><span class="lineno"> 3047</span>  <span class="comment">/* slave IP */</span></div><div class="line"><a name="l03048"></a><span class="lineno"> 3048</span>  flags |= TCL_DONT_WAIT;</div><div class="line"><a name="l03049"></a><span class="lineno"> 3049</span>  }</div><div class="line"><a name="l03050"></a><span class="lineno"> 3050</span>  }</div><div class="line"><a name="l03051"></a><span class="lineno"> 3051</span> </div><div class="line"><a name="l03052"></a><span class="lineno"> 3052</span>  <span class="comment">/* found_event = Tcl_DoOneEvent(TCL_ALL_EVENTS | TCL_DONT_WAIT); */</span></div><div class="line"><a name="l03053"></a><span class="lineno"> 3053</span>  found_event = Tcl_DoOneEvent(flags);</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>  <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="l03056"></a><span class="lineno"> 3056</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l03057"></a><span class="lineno"> 3057</span>  }</div><div class="line"><a name="l03058"></a><span class="lineno"> 3058</span> </div><div class="line"><a name="l03059"></a><span class="lineno"> 3059</span>  <span class="keywordflow">if</span> (found_event) {</div><div class="line"><a name="l03060"></a><span class="lineno"> 3060</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l03061"></a><span class="lineno"> 3061</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l03062"></a><span class="lineno"> 3062</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l03063"></a><span class="lineno"> 3063</span>  }</div><div class="line"><a name="l03064"></a><span class="lineno"> 3064</span> }</div><div class="line"><a name="l03065"></a><span class="lineno"> 3065</span> </div><div class="line"><a name="l03066"></a><span class="lineno"> 3066</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l03067"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7354a37a34ef9099af49f1328f3f1016"> 3067</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7354a37a34ef9099af49f1328f3f1016">lib_do_one_event</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>)</div><div class="line"><a name="l03068"></a><span class="lineno"> 3068</span>  int <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l03069"></a><span class="lineno"> 3069</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l03070"></a><span class="lineno"> 3070</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</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="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a581f007ce5b3d556b3d97c06de928260">lib_do_one_event_core</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>, 0);</div><div class="line"><a name="l03073"></a><span class="lineno"> 3073</span> }</div><div class="line"><a name="l03074"></a><span class="lineno"> 3074</span> </div><div class="line"><a name="l03075"></a><span class="lineno"> 3075</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l03076"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af1362a3075b310b2695b19dea8ae3324"> 3076</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af1362a3075b310b2695b19dea8ae3324">ip_do_one_event</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>)</div><div class="line"><a name="l03077"></a><span class="lineno"> 3077</span>  int <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l03078"></a><span class="lineno"> 3078</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l03079"></a><span class="lineno"> 3079</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</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>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a581f007ce5b3d556b3d97c06de928260">lib_do_one_event_core</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>, 0);</div><div class="line"><a name="l03082"></a><span class="lineno"> 3082</span> }</div><div class="line"><a name="l03083"></a><span class="lineno"> 3083</span> </div><div class="line"><a name="l03084"></a><span class="lineno"> 3084</span> </div><div class="line"><a name="l03085"></a><span class="lineno"> 3085</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l03086"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a659ab12358313d8e66d50854f534f667"> 3086</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a659ab12358313d8e66d50854f534f667">ip_set_exc_message</a>(interp, exc)</div><div class="line"><a name="l03087"></a><span class="lineno"> 3087</span>  Tcl_Interp *interp;</div><div class="line"><a name="l03088"></a><span class="lineno"> 3088</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> exc;</div><div class="line"><a name="l03089"></a><span class="lineno"> 3089</span> {</div><div class="line"><a name="l03090"></a><span class="lineno"> 3090</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>;</div><div class="line"><a name="l03091"></a><span class="lineno"> 3091</span>  Tcl_DString dstr;</div><div class="line"><a name="l03092"></a><span class="lineno"> 3092</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a>;</div><div class="line"><a name="l03093"></a><span class="lineno"> 3093</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l03094"></a><span class="lineno"> 3094</span> </div><div class="line"><a name="l03095"></a><span class="lineno"> 3095</span> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION > 0)</span></div><div class="line"><a name="l03096"></a><span class="lineno"> 3096</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> enc;</div><div class="line"><a name="l03097"></a><span class="lineno"> 3097</span>  Tcl_Encoding encoding;</div><div class="line"><a name="l03098"></a><span class="lineno"> 3098</span> <span class="preprocessor">#endif</span></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>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l03101"></a><span class="lineno"> 3101</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</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>  <a class="code" href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(exc, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad6092a7044451d4e36f1a65618c9b4fc">ID_message</a>, 0, 0);</div><div class="line"><a name="l03104"></a><span class="lineno"> 3104</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(<a class="code" href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a>);</div><div class="line"><a name="l03105"></a><span class="lineno"> 3105</span> </div><div class="line"><a name="l03106"></a><span class="lineno"> 3106</span> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION > 0)</span></div><div class="line"><a name="l03107"></a><span class="lineno"> 3107</span>  enc = <a class="code" href="../../db/d2e/intern_8h.html#ab8a448eec4dc767e47f5f9bd35974734">rb_attr_get</a>(exc, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>);</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>  enc = <a class="code" href="../../db/d2e/intern_8h.html#ab8a448eec4dc767e47f5f9bd35974734">rb_attr_get</a>(<a class="code" href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>);</div><div class="line"><a name="l03110"></a><span class="lineno"> 3110</span>  }</div><div class="line"><a name="l03111"></a><span class="lineno"> 3111</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="l03112"></a><span class="lineno"> 3112</span>  encoding = (Tcl_Encoding)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l03113"></a><span class="lineno"> 3113</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="l03114"></a><span class="lineno"> 3114</span>  <span class="comment">/* encoding = Tcl_GetEncoding(interp, RSTRING_PTR(enc)); */</span></div><div class="line"><a name="l03115"></a><span class="lineno"> 3115</span>  encoding = Tcl_GetEncoding((Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(enc));</div><div class="line"><a name="l03116"></a><span class="lineno"> 3116</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l03117"></a><span class="lineno"> 3117</span>  enc = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(enc, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2876182790d4d4deb29d00b4048d7565">ID_to_s</a>, 0, 0);</div><div class="line"><a name="l03118"></a><span class="lineno"> 3118</span>  <span class="comment">/* encoding = Tcl_GetEncoding(interp, RSTRING_PTR(enc)); */</span></div><div class="line"><a name="l03119"></a><span class="lineno"> 3119</span>  encoding = Tcl_GetEncoding((Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(enc));</div><div class="line"><a name="l03120"></a><span class="lineno"> 3120</span>  }</div><div class="line"><a name="l03121"></a><span class="lineno"> 3121</span> </div><div class="line"><a name="l03122"></a><span class="lineno"> 3122</span>  <span class="comment">/* to avoid a garbled error message dialog */</span></div><div class="line"><a name="l03123"></a><span class="lineno"> 3123</span>  <span class="comment">/* buf = ALLOC_N(char, (RSTRING(msg)->len)+1);*/</span></div><div class="line"><a name="l03124"></a><span class="lineno"> 3124</span>  <span class="comment">/* memcpy(buf, RSTRING(msg)->ptr, RSTRING(msg)->len);*/</span></div><div class="line"><a name="l03125"></a><span class="lineno"> 3125</span>  <span class="comment">/* buf[RSTRING(msg)->len] = 0; */</span></div><div class="line"><a name="l03126"></a><span class="lineno"> 3126</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a79041aa2bc7439c11906a86f82a52eb6">ALLOC_N</a>(<span class="keywordtype">char</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(<a class="code" href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a>)+1);</div><div class="line"><a name="l03127"></a><span class="lineno"> 3127</span>  <span class="comment">/* buf = ckalloc(RSTRING_LENINT(msg)+1); */</span></div><div class="line"><a name="l03128"></a><span class="lineno"> 3128</span>  memcpy(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(<a class="code" href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a>), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(<a class="code" href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a>));</div><div class="line"><a name="l03129"></a><span class="lineno"> 3129</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>[<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(<a class="code" href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a>)] = 0;</div><div class="line"><a name="l03130"></a><span class="lineno"> 3130</span> </div><div class="line"><a name="l03131"></a><span class="lineno"> 3131</span>  Tcl_DStringInit(&dstr);</div><div class="line"><a name="l03132"></a><span class="lineno"> 3132</span>  Tcl_DStringFree(&dstr);</div><div class="line"><a name="l03133"></a><span class="lineno"> 3133</span>  Tcl_ExternalToUtfDString(encoding, <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(<a class="code" href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a>), &dstr);</div><div class="line"><a name="l03134"></a><span class="lineno"> 3134</span> </div><div class="line"><a name="l03135"></a><span class="lineno"> 3135</span>  Tcl_AppendResult(interp, Tcl_DStringValue(&dstr), (<span class="keywordtype">char</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l03136"></a><span class="lineno"> 3136</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="l03137"></a><span class="lineno"> 3137</span>  Tcl_DStringFree(&dstr);</div><div class="line"><a name="l03138"></a><span class="lineno"> 3138</span>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>);</div><div class="line"><a name="l03139"></a><span class="lineno"> 3139</span>  <span class="comment">/* ckfree(buf); */</span></div><div class="line"><a name="l03140"></a><span class="lineno"> 3140</span> </div><div class="line"><a name="l03141"></a><span class="lineno"> 3141</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_VERSION <= 8.0 */</span><span class="preprocessor"></span></div><div class="line"><a name="l03142"></a><span class="lineno"> 3142</span>  Tcl_AppendResult(interp, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(<a class="code" href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a>), (<span class="keywordtype">char</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l03143"></a><span class="lineno"> 3143</span> <span class="preprocessor">#endif</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>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l03146"></a><span class="lineno"> 3146</span> }</div><div class="line"><a name="l03147"></a><span class="lineno"> 3147</span> </div><div class="line"><a name="l03148"></a><span class="lineno"> 3148</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l03149"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af9aa6db946b929642dc853475e21bb3f"> 3149</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af9aa6db946b929642dc853475e21bb3f">TkStringValue</a>(obj)</div><div class="line"><a name="l03150"></a><span class="lineno"> 3150</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> obj;</div><div class="line"><a name="l03151"></a><span class="lineno"> 3151</span> {</div><div class="line"><a name="l03152"></a><span class="lineno"> 3152</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="l03153"></a><span class="lineno"> 3153</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="l03154"></a><span class="lineno"> 3154</span>  <span class="keywordflow">return</span> obj;</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#a3a7d10c48d5dff0a5d4aa94acb74811a">T_NIL</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#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">""</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#a7fc7e09f45d0ef129ea29f3a5b0c32b8">T_TRUE</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#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">"1"</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#a9ab816c37c9173898ff256b7be9e5ea9">T_FALSE</a>:</div><div class="line"><a name="l03163"></a><span class="lineno"> 3163</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">"0"</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">case</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#abbd332f6f94d77e0a369c7720128639e">T_ARRAY</a>:</div><div class="line"><a name="l03166"></a><span class="lineno"> 3166</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(obj, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4f4b8818725098180b9d71be7c020e6a">ID_join</a>, 1, <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">" "</span>));</div><div class="line"><a name="l03167"></a><span class="lineno"> 3167</span> </div><div class="line"><a name="l03168"></a><span class="lineno"> 3168</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l03169"></a><span class="lineno"> 3169</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a5c6c63c2619b8c03df2e173ef1e73846">rb_respond_to</a>(obj, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2876182790d4d4deb29d00b4048d7565">ID_to_s</a>)) {</div><div class="line"><a name="l03170"></a><span class="lineno"> 3170</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(obj, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2876182790d4d4deb29d00b4048d7565">ID_to_s</a>, 0, 0);</div><div class="line"><a name="l03171"></a><span class="lineno"> 3171</span>  }</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="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(obj, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1e8954156fff89f02ed89339cb91d368">ID_inspect</a>, 0, 0);</div><div class="line"><a name="l03175"></a><span class="lineno"> 3175</span> }</div><div class="line"><a name="l03176"></a><span class="lineno"> 3176</span> </div><div class="line"><a name="l03177"></a><span class="lineno"> 3177</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l03178"></a><span class="lineno"> 3178</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div><div class="line"><a name="l03179"></a><span class="lineno"> 3179</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#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> (*proc)(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> data)</div><div class="line"><a name="l03180"></a><span class="lineno"> 3180</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03181"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a812614951e4a83bb949becbfec2f3828"> 3181</a></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="l03182"></a><span class="lineno"> 3182</span>  Tcl_Interp *interp;</div><div class="line"><a name="l03183"></a><span class="lineno"> 3183</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> (*proc)();</div><div class="line"><a name="l03184"></a><span class="lineno"> 3184</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> data;</div><div class="line"><a name="l03185"></a><span class="lineno"> 3185</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03186"></a><span class="lineno"> 3186</span> {</div><div class="line"><a name="l03187"></a><span class="lineno"> 3187</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ret, exc = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l03188"></a><span class="lineno"> 3188</span>  <span class="keywordtype">int</span> status = 0;</div><div class="line"><a name="l03189"></a><span class="lineno"> 3189</span>  <span class="keywordtype">int</span> thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l03190"></a><span class="lineno"> 3190</span> </div><div class="line"><a name="l03191"></a><span class="lineno"> 3191</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l03192"></a><span class="lineno"> 3192</span> </div><div class="line"><a name="l03193"></a><span class="lineno"> 3193</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l03194"></a><span class="lineno"> 3194</span>  ret = <a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(proc, data, &status);</div><div class="line"><a name="l03195"></a><span class="lineno"> 3195</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l03196"></a><span class="lineno"> 3196</span>  <span class="keywordflow">if</span> (status) {</div><div class="line"><a name="l03197"></a><span class="lineno"> 3197</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>;</div><div class="line"><a name="l03198"></a><span class="lineno"> 3198</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> old_gc;</div><div class="line"><a name="l03199"></a><span class="lineno"> 3199</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac765329451135abec74c45e1897abf26">type</a>, str;</div><div class="line"><a name="l03200"></a><span class="lineno"> 3200</span> </div><div class="line"><a name="l03201"></a><span class="lineno"> 3201</span>  old_gc = <a class="code" href="../../d8/d16/gc_8c.html#a27a2dbb7307d5ea8e096ce4357f6ece6">rb_gc_disable</a>();</div><div class="line"><a name="l03202"></a><span class="lineno"> 3202</span> </div><div class="line"><a name="l03203"></a><span class="lineno"> 3203</span>  <span class="keywordflow">switch</span>(status) {</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#abfe39758eac9658dbce9750e4bfddbc6">TAG_RETURN</a>:</div><div class="line"><a name="l03205"></a><span class="lineno"> 3205</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac765329451135abec74c45e1897abf26">type</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7a2cabfa69c181ac17f416e6c78f4fd9">eTkCallbackReturn</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#aa69d9fa25afdc01237612a6047b96189">TAG_BREAK</a>:</div><div class="line"><a name="l03208"></a><span class="lineno"> 3208</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac765329451135abec74c45e1897abf26">type</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7fefdc0a0bdb479dcd15d610533497d6">eTkCallbackBreak</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>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac5d3e11622cde853addb87cfae24021e">TAG_NEXT</a>:</div><div class="line"><a name="l03211"></a><span class="lineno"> 3211</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac765329451135abec74c45e1897abf26">type</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5ae51f46018b1ae0a423aca2b89bf7ab">eTkCallbackContinue</a>;</div><div class="line"><a name="l03212"></a><span class="lineno"> 3212</span>  <span class="keywordflow">goto</span> error;</div><div class="line"><a name="l03213"></a><span class="lineno"> 3213</span>  error:</div><div class="line"><a name="l03214"></a><span class="lineno"> 3214</span>  str = <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">"LocalJumpError: "</span>);</div><div class="line"><a name="l03215"></a><span class="lineno"> 3215</span>  <a class="code" href="../../db/d2e/intern_8h.html#ab592dcd9e193dea76fb0ff58b5d907e4">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="l03216"></a><span class="lineno"> 3216</span>  exc = <a class="code" href="../../db/d2e/intern_8h.html#a9853d1348e5a26b4802117aa465f65bc">rb_exc_new3</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac765329451135abec74c45e1897abf26">type</a>, str);</div><div class="line"><a name="l03217"></a><span class="lineno"> 3217</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03218"></a><span class="lineno"> 3218</span> </div><div class="line"><a name="l03219"></a><span class="lineno"> 3219</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="l03220"></a><span class="lineno"> 3220</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="l03221"></a><span class="lineno"> 3221</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="l03222"></a><span class="lineno"> 3222</span>  exc = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a7725cc78dab5aa1a2e8eed31d3ce2f7d">eTkCallbackRetry</a>, <span class="stringliteral">"retry jump error"</span>);</div><div class="line"><a name="l03223"></a><span class="lineno"> 3223</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l03224"></a><span class="lineno"> 3224</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div><div class="line"><a name="l03225"></a><span class="lineno"> 3225</span>  }</div><div class="line"><a name="l03226"></a><span class="lineno"> 3226</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03227"></a><span class="lineno"> 3227</span> </div><div class="line"><a name="l03228"></a><span class="lineno"> 3228</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="l03229"></a><span class="lineno"> 3229</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="l03230"></a><span class="lineno"> 3230</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="l03231"></a><span class="lineno"> 3231</span>  exc = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae96487c8a7974cdd45d90c8e447ee19d">eTkCallbackRedo</a>, <span class="stringliteral">"redo jump error"</span>);</div><div class="line"><a name="l03232"></a><span class="lineno"> 3232</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l03233"></a><span class="lineno"> 3233</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div><div class="line"><a name="l03234"></a><span class="lineno"> 3234</span>  }</div><div class="line"><a name="l03235"></a><span class="lineno"> 3235</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03236"></a><span class="lineno"> 3236</span> </div><div class="line"><a name="l03237"></a><span class="lineno"> 3237</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="l03238"></a><span class="lineno"> 3238</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="l03239"></a><span class="lineno"> 3239</span>  exc = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">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="l03240"></a><span class="lineno"> 3240</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l03241"></a><span class="lineno"> 3241</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div><div class="line"><a name="l03242"></a><span class="lineno"> 3242</span>  }</div><div class="line"><a name="l03243"></a><span class="lineno"> 3243</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03244"></a><span class="lineno"> 3244</span> </div><div class="line"><a name="l03245"></a><span class="lineno"> 3245</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="l03246"></a><span class="lineno"> 3246</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="l03247"></a><span class="lineno"> 3247</span>  exc = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">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="l03248"></a><span class="lineno"> 3248</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l03249"></a><span class="lineno"> 3249</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div><div class="line"><a name="l03250"></a><span class="lineno"> 3250</span>  }</div><div class="line"><a name="l03251"></a><span class="lineno"> 3251</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03252"></a><span class="lineno"> 3252</span> </div><div class="line"><a name="l03253"></a><span class="lineno"> 3253</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="l03254"></a><span class="lineno"> 3254</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="l03255"></a><span class="lineno"> 3255</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="l03256"></a><span class="lineno"> 3256</span>  exc = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a27579641fb4a7546a1d98f37a30fcef6">eTkCallbackThrow</a>, <span class="stringliteral">"throw jump error"</span>);</div><div class="line"><a name="l03257"></a><span class="lineno"> 3257</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l03258"></a><span class="lineno"> 3258</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div><div class="line"><a name="l03259"></a><span class="lineno"> 3259</span>  }</div><div class="line"><a name="l03260"></a><span class="lineno"> 3260</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03261"></a><span class="lineno"> 3261</span> </div><div class="line"><a name="l03262"></a><span class="lineno"> 3262</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l03263"></a><span class="lineno"> 3263</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a> = <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="l03264"></a><span class="lineno"> 3264</span>  <span class="comment">/* buf = ckalloc(sizeof(char) * 256); */</span></div><div class="line"><a name="l03265"></a><span class="lineno"> 3265</span>  sprintf(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>, <span class="stringliteral">"unknown loncaljmp status %d"</span>, status);</div><div class="line"><a name="l03266"></a><span class="lineno"> 3266</span>  exc = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>, <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>);</div><div class="line"><a name="l03267"></a><span class="lineno"> 3267</span>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>);</div><div class="line"><a name="l03268"></a><span class="lineno"> 3268</span>  <span class="comment">/* ckfree(buf); */</span></div><div class="line"><a name="l03269"></a><span class="lineno"> 3269</span>  <span class="keywordflow">break</span>;</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> </div><div class="line"><a name="l03272"></a><span class="lineno"> 3272</span>  <span class="keywordflow">if</span> (old_gc == <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>) <a class="code" href="../../d8/d16/gc_8c.html#a3cbc64cc9d74c437c08a5dc923d1c7dd">rb_gc_enable</a>();</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>  ret = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</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> </div><div class="line"><a name="l03277"></a><span class="lineno"> 3277</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l03278"></a><span class="lineno"> 3278</span> </div><div class="line"><a name="l03279"></a><span class="lineno"> 3279</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l03280"></a><span class="lineno"> 3280</span> </div><div class="line"><a name="l03281"></a><span class="lineno"> 3281</span>  <span class="comment">/* status check */</span></div><div class="line"><a name="l03282"></a><span class="lineno"> 3282</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="l03283"></a><span class="lineno"> 3283</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> eclass = <a class="code" href="../../db/d2e/intern_8h.html#ac2be7243e739fa8f5dce6be0c8ee5f6d">rb_obj_class</a>(exc);</div><div class="line"><a name="l03284"></a><span class="lineno"> 3284</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> backtrace;</div><div class="line"><a name="l03285"></a><span class="lineno"> 3285</span> </div><div class="line"><a name="l03286"></a><span class="lineno"> 3286</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"(failed)"</span>);</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>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l03289"></a><span class="lineno"> 3289</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l03290"></a><span class="lineno"> 3290</span> </div><div class="line"><a name="l03291"></a><span class="lineno"> 3291</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="l03292"></a><span class="lineno"> 3292</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="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(exc, <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd0c08166926d1e4b90b5f6b811733bd">ID_backtrace</a>, 0, 0))) {</div><div class="line"><a name="l03293"></a><span class="lineno"> 3293</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#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">"\n"</span>));</div><div class="line"><a name="l03294"></a><span class="lineno"> 3294</span>  Tcl_AddErrorInfo(interp, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2665a51abbd5b49c15abff3df00fa9db">StringValuePtr</a>(backtrace));</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> </div><div class="line"><a name="l03297"></a><span class="lineno"> 3297</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l03298"></a><span class="lineno"> 3298</span> </div><div class="line"><a name="l03299"></a><span class="lineno"> 3299</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a659ab12358313d8e66d50854f534f667">ip_set_exc_message</a>(interp, exc);</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 == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7a2cabfa69c181ac17f416e6c78f4fd9">eTkCallbackReturn</a>)</div><div class="line"><a name="l03302"></a><span class="lineno"> 3302</span>  <span class="keywordflow">return</span> TCL_RETURN;</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 == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7fefdc0a0bdb479dcd15d610533497d6">eTkCallbackBreak</a>)</div><div class="line"><a name="l03305"></a><span class="lineno"> 3305</span>  <span class="keywordflow">return</span> TCL_BREAK;</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="../../d5/d9d/tcltklib_8c.html#a5ae51f46018b1ae0a423aca2b89bf7ab">eTkCallbackContinue</a>)</div><div class="line"><a name="l03308"></a><span class="lineno"> 3308</span>  <span class="keywordflow">return</span> TCL_CONTINUE;</div><div class="line"><a name="l03309"></a><span class="lineno"> 3309</span> </div><div class="line"><a name="l03310"></a><span class="lineno"> 3310</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="l03311"></a><span class="lineno"> 3311</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = exc;</div><div class="line"><a name="l03312"></a><span class="lineno"> 3312</span>  <span class="keywordflow">return</span> TCL_RETURN;</div><div class="line"><a name="l03313"></a><span class="lineno"> 3313</span>  }</div><div class="line"><a name="l03314"></a><span class="lineno"> 3314</span> </div><div class="line"><a name="l03315"></a><span class="lineno"> 3315</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(exc, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a86edc457c880e8c17e678380e174902c">eTkLocalJumpError</a>)) {</div><div class="line"><a name="l03316"></a><span class="lineno"> 3316</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = exc;</div><div class="line"><a name="l03317"></a><span class="lineno"> 3317</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l03318"></a><span class="lineno"> 3318</span>  }</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="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(exc, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a03b95ffac44da77386f3add147e7958c">eLocalJumpError</a>)) {</div><div class="line"><a name="l03321"></a><span class="lineno"> 3321</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> reason = <a class="code" href="../../db/d2e/intern_8h.html#a35a10b958666c1b330238eea7b7f3a8a">rb_ivar_get</a>(exc, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a189bd2ac1c121d796cb2d123c7adc599">ID_at_reason</a>);</div><div class="line"><a name="l03322"></a><span class="lineno"> 3322</span> </div><div class="line"><a name="l03323"></a><span class="lineno"> 3323</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="l03324"></a><span class="lineno"> 3324</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5a8a0a36dbacb1ec73a860b8fd6a61a1">SYM2ID</a>(reason) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9361a0096f960a099dac9a504d008765">ID_return</a>)</div><div class="line"><a name="l03325"></a><span class="lineno"> 3325</span>  <span class="keywordflow">return</span> TCL_RETURN;</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="../../de/de6/ruby_2ruby_8h.html#a5a8a0a36dbacb1ec73a860b8fd6a61a1">SYM2ID</a>(reason) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a14e7d89ffd600ee06f033277ba33a51f">ID_break</a>)</div><div class="line"><a name="l03328"></a><span class="lineno"> 3328</span>  <span class="keywordflow">return</span> TCL_BREAK;</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>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5a8a0a36dbacb1ec73a860b8fd6a61a1">SYM2ID</a>(reason) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a265eab0dd3b7a7e51f7872c3c6d820c6">ID_next</a>)</div><div class="line"><a name="l03331"></a><span class="lineno"> 3331</span>  <span class="keywordflow">return</span> TCL_CONTINUE;</div><div class="line"><a name="l03332"></a><span class="lineno"> 3332</span>  }</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="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l03336"></a><span class="lineno"> 3336</span>  }</div><div class="line"><a name="l03337"></a><span class="lineno"> 3337</span> </div><div class="line"><a name="l03338"></a><span class="lineno"> 3338</span>  <span class="comment">/* result must be string or nil */</span></div><div class="line"><a name="l03339"></a><span class="lineno"> 3339</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="l03340"></a><span class="lineno"> 3340</span>  <span class="comment">/* copy result to the tcl interpreter */</span></div><div class="line"><a name="l03341"></a><span class="lineno"> 3341</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l03342"></a><span class="lineno"> 3342</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l03343"></a><span class="lineno"> 3343</span> </div><div class="line"><a name="l03344"></a><span class="lineno"> 3344</span>  ret = <a class="code" href="../../d5/d9d/tcltklib_8c.html#af9aa6db946b929642dc853475e21bb3f">TkStringValue</a>(ret);</div><div class="line"><a name="l03345"></a><span class="lineno"> 3345</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="l03346"></a><span class="lineno"> 3346</span>  Tcl_AppendResult(interp, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(ret), (<span class="keywordtype">char</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</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="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</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> </div><div class="line"><a name="l03351"></a><span class="lineno"> 3351</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="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(ret));</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="keywordflow">return</span> TCL_OK;</div><div class="line"><a name="l03354"></a><span class="lineno"> 3354</span> }</div><div class="line"><a name="l03355"></a><span class="lineno"> 3355</span> </div><div class="line"><a name="l03356"></a><span class="lineno"> 3356</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l03357"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a19d7bb32bbc3c14b7b717e079c94de2b"> 3357</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a19d7bb32bbc3c14b7b717e079c94de2b">tcl_protect</a>(interp, proc, data)</div><div class="line"><a name="l03358"></a><span class="lineno"> 3358</span>  Tcl_Interp *interp;</div><div class="line"><a name="l03359"></a><span class="lineno"> 3359</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> (*proc)();</div><div class="line"><a name="l03360"></a><span class="lineno"> 3360</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> data;</div><div class="line"><a name="l03361"></a><span class="lineno"> 3361</span> {</div><div class="line"><a name="l03362"></a><span class="lineno"> 3362</span>  <span class="keywordtype">int</span> code;</div><div class="line"><a name="l03363"></a><span class="lineno"> 3363</span> </div><div class="line"><a name="l03364"></a><span class="lineno"> 3364</span> <span class="preprocessor">#ifdef HAVE_NATIVETHREAD</span></div><div class="line"><a name="l03365"></a><span class="lineno"> 3365</span> <span class="preprocessor">#ifndef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l03366"></a><span class="lineno"> 3366</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="l03367"></a><span class="lineno"> 3367</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="l03368"></a><span class="lineno"> 3368</span>  }</div><div class="line"><a name="l03369"></a><span class="lineno"> 3369</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03370"></a><span class="lineno"> 3370</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03371"></a><span class="lineno"> 3371</span> </div><div class="line"><a name="l03372"></a><span class="lineno"> 3372</span> <span class="preprocessor">#ifdef RUBY_VM</span></div><div class="line"><a name="l03373"></a><span class="lineno"> 3373</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="l03374"></a><span class="lineno"> 3374</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03375"></a><span class="lineno"> 3375</span>  <span class="keywordflow">do</span> {</div><div class="line"><a name="l03376"></a><span class="lineno"> 3376</span>  <span class="keywordtype">int</span> old_trapflag = rb_trap_immediate;</div><div class="line"><a name="l03377"></a><span class="lineno"> 3377</span>  rb_trap_immediate = 0;</div><div class="line"><a name="l03378"></a><span class="lineno"> 3378</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="l03379"></a><span class="lineno"> 3379</span>  rb_trap_immediate = old_trapflag;</div><div class="line"><a name="l03380"></a><span class="lineno"> 3380</span>  } <span class="keywordflow">while</span> (0);</div><div class="line"><a name="l03381"></a><span class="lineno"> 3381</span> <span class="preprocessor">#endif</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="keywordflow">return</span> code;</div><div class="line"><a name="l03384"></a><span class="lineno"> 3384</span> }</div><div class="line"><a name="l03385"></a><span class="lineno"> 3385</span> </div><div class="line"><a name="l03386"></a><span class="lineno"> 3386</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l03387"></a><span class="lineno"> 3387</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l03388"></a><span class="lineno"> 3388</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9649e91a7475facf32db7a1e06d170cd">ip_ruby_eval</a>(clientData, interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l03389"></a><span class="lineno"> 3389</span>  ClientData clientData;</div><div class="line"><a name="l03390"></a><span class="lineno"> 3390</span>  Tcl_Interp *interp;</div><div class="line"><a name="l03391"></a><span class="lineno"> 3391</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l03392"></a><span class="lineno"> 3392</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[];</div><div class="line"><a name="l03393"></a><span class="lineno"> 3393</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l03394"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9649e91a7475facf32db7a1e06d170cd"> 3394</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9649e91a7475facf32db7a1e06d170cd">ip_ruby_eval</a>(clientData, interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l03395"></a><span class="lineno"> 3395</span>  ClientData clientData;</div><div class="line"><a name="l03396"></a><span class="lineno"> 3396</span>  Tcl_Interp *interp;</div><div class="line"><a name="l03397"></a><span class="lineno"> 3397</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l03398"></a><span class="lineno"> 3398</span>  <span class="keywordtype">char</span> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[];</div><div class="line"><a name="l03399"></a><span class="lineno"> 3399</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03400"></a><span class="lineno"> 3400</span> {</div><div class="line"><a name="l03401"></a><span class="lineno"> 3401</span>  <span class="keywordtype">char</span> *arg;</div><div class="line"><a name="l03402"></a><span class="lineno"> 3402</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l03403"></a><span class="lineno"> 3403</span>  <span class="keywordtype">int</span> code;</div><div class="line"><a name="l03404"></a><span class="lineno"> 3404</span> </div><div class="line"><a name="l03405"></a><span class="lineno"> 3405</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l03406"></a><span class="lineno"> 3406</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l03407"></a><span class="lineno"> 3407</span>  <span class="stringliteral">"IP is deleted"</span>);</div><div class="line"><a name="l03408"></a><span class="lineno"> 3408</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l03409"></a><span class="lineno"> 3409</span>  }</div><div class="line"><a name="l03410"></a><span class="lineno"> 3410</span> </div><div class="line"><a name="l03411"></a><span class="lineno"> 3411</span>  <span class="comment">/* ruby command has 1 arg. */</span></div><div class="line"><a name="l03412"></a><span class="lineno"> 3412</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a> != 2) {</div><div class="line"><a name="l03413"></a><span class="lineno"> 3413</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l03414"></a><span class="lineno"> 3414</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="l03415"></a><span class="lineno"> 3415</span>  <span class="stringliteral">"wrong number of arguments (%d for 1)"</span>, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a> - 1);</div><div class="line"><a name="l03416"></a><span class="lineno"> 3416</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03417"></a><span class="lineno"> 3417</span>  <span class="keywordtype">char</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>[<span class="keyword">sizeof</span>(int)*8 + 1];</div><div class="line"><a name="l03418"></a><span class="lineno"> 3418</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l03419"></a><span class="lineno"> 3419</span>  sprintf(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>, <span class="stringliteral">"%d"</span>, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>-1);</div><div class="line"><a name="l03420"></a><span class="lineno"> 3420</span>  Tcl_AppendResult(interp, <span class="stringliteral">"wrong number of arguments ("</span>,</div><div class="line"><a name="l03421"></a><span class="lineno"> 3421</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>, <span class="stringliteral">" for 1)"</span>, (<span class="keywordtype">char</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l03422"></a><span class="lineno"> 3422</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>,</div><div class="line"><a name="l03423"></a><span class="lineno"> 3423</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(interp));</div><div class="line"><a name="l03424"></a><span class="lineno"> 3424</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l03425"></a><span class="lineno"> 3425</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03426"></a><span class="lineno"> 3426</span>  }</div><div class="line"><a name="l03427"></a><span class="lineno"> 3427</span> </div><div class="line"><a name="l03428"></a><span class="lineno"> 3428</span>  <span class="comment">/* get C string from Tcl object */</span></div><div class="line"><a name="l03429"></a><span class="lineno"> 3429</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></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>  <span class="keywordtype">char</span> *str;</div><div class="line"><a name="l03432"></a><span class="lineno"> 3432</span>  <span class="keywordtype">int</span> len;</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>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l03435"></a><span class="lineno"> 3435</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l03436"></a><span class="lineno"> 3436</span> </div><div class="line"><a name="l03437"></a><span class="lineno"> 3437</span>  str = Tcl_GetStringFromObj(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1], &len);</div><div class="line"><a name="l03438"></a><span class="lineno"> 3438</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="l03439"></a><span class="lineno"> 3439</span>  <span class="comment">/* arg = ckalloc(sizeof(char) * (len + 1)); */</span></div><div class="line"><a name="l03440"></a><span class="lineno"> 3440</span>  memcpy(arg, str, len);</div><div class="line"><a name="l03441"></a><span class="lineno"> 3441</span>  arg[len] = 0;</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>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l03444"></a><span class="lineno"> 3444</span> </div><div class="line"><a name="l03445"></a><span class="lineno"> 3445</span>  }</div><div class="line"><a name="l03446"></a><span class="lineno"> 3446</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l03447"></a><span class="lineno"> 3447</span>  arg = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1];</div><div class="line"><a name="l03448"></a><span class="lineno"> 3448</span> <span class="preprocessor">#endif</span></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>  <span class="comment">/* evaluate the argument string by ruby */</span></div><div class="line"><a name="l03451"></a><span class="lineno"> 3451</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="l03452"></a><span class="lineno"> 3452</span> </div><div class="line"><a name="l03453"></a><span class="lineno"> 3453</span>  code = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a19d7bb32bbc3c14b7b717e079c94de2b">tcl_protect</a>(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#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)arg);</div><div class="line"><a name="l03454"></a><span class="lineno"> 3454</span> </div><div class="line"><a name="l03455"></a><span class="lineno"> 3455</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l03456"></a><span class="lineno"> 3456</span>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(arg);</div><div class="line"><a name="l03457"></a><span class="lineno"> 3457</span>  <span class="comment">/* ckfree(arg); */</span></div><div class="line"><a name="l03458"></a><span class="lineno"> 3458</span> <span class="preprocessor">#endif</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>  <span class="keywordflow">return</span> code;</div><div class="line"><a name="l03461"></a><span class="lineno"> 3461</span> }</div><div class="line"><a name="l03462"></a><span class="lineno"> 3462</span> </div><div class="line"><a name="l03463"></a><span class="lineno"> 3463</span> </div><div class="line"><a name="l03464"></a><span class="lineno"> 3464</span> <span class="comment">/* Tcl command `ruby_cmd' */</span></div><div class="line"><a name="l03465"></a><span class="lineno"> 3465</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l03466"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aac60f81a7a47a728e6c471f3297e814e"> 3466</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aac60f81a7a47a728e6c471f3297e814e">ip_ruby_cmd_core</a>(arg)</div><div class="line"><a name="l03467"></a><span class="lineno"> 3467</span>  <span class="keyword">struct </span><a class="code" href="../../d6/d58/structcmd__body__arg.html">cmd_body_arg</a> *arg;</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>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ret;</div><div class="line"><a name="l03470"></a><span class="lineno"> 3470</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l03471"></a><span class="lineno"> 3471</span> </div><div class="line"><a name="l03472"></a><span class="lineno"> 3472</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="l03473"></a><span class="lineno"> 3473</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l03474"></a><span class="lineno"> 3474</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l03475"></a><span class="lineno"> 3475</span>  ret = <a class="code" href="../../db/d2e/intern_8h.html#aa8e250f234a95692386f8cb7e858794d">rb_apply</a>(arg-><a class="code" href="../../d6/d58/structcmd__body__arg.html#a6cc0250b850b77f58f01f05913e3ddab">receiver</a>, arg-><a class="code" href="../../d6/d58/structcmd__body__arg.html#ac9ac9c13c40fba180d11b3cad2303b6f">method</a>, arg-><a class="code" href="../../d6/d58/structcmd__body__arg.html#a69cc5f5a65054e5b276eeb78716cbeb9">args</a>);</div><div class="line"><a name="l03476"></a><span class="lineno"> 3476</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="l03477"></a><span class="lineno"> 3477</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l03478"></a><span class="lineno"> 3478</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="l03479"></a><span class="lineno"> 3479</span> </div><div class="line"><a name="l03480"></a><span class="lineno"> 3480</span>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l03481"></a><span class="lineno"> 3481</span> }</div><div class="line"><a name="l03482"></a><span class="lineno"> 3482</span> </div><div class="line"><a name="l03483"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a656a2c15c7c66b54e5d19b494c2e5c67"> 3483</a></span> <span class="preprocessor">#define SUPPORT_NESTED_CONST_AS_IP_RUBY_CMD_RECEIVER 1</span></div><div class="line"><a name="l03484"></a><span class="lineno"> 3484</span> </div><div class="line"><a name="l03485"></a><span class="lineno"> 3485</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l03486"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aae8dad6d56978437346551c280310720"> 3486</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aae8dad6d56978437346551c280310720">ip_ruby_cmd_receiver_const_get</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>)</div><div class="line"><a name="l03487"></a><span class="lineno"> 3487</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>;</div><div class="line"><a name="l03488"></a><span class="lineno"> 3488</span> {</div><div class="line"><a name="l03489"></a><span class="lineno"> 3489</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> klass = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a57c96ead3ef230b4838e65fe037c346e">rb_cObject</a>;</div><div class="line"><a name="l03490"></a><span class="lineno"> 3490</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l03491"></a><span class="lineno"> 3491</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d4/d71/st_8c.html#a6d1197264c8235ebd5bda57ba423914e">head</a>, *<a class="code" href="../../d4/d71/st_8c.html#aeb205b1461b511358d0bdd0a457b6428">tail</a>;</div><div class="line"><a name="l03492"></a><span class="lineno"> 3492</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03493"></a><span class="lineno"> 3493</span>  <span class="keywordtype">int</span> state;</div><div class="line"><a name="l03494"></a><span class="lineno"> 3494</span> </div><div class="line"><a name="l03495"></a><span class="lineno"> 3495</span> <span class="preprocessor">#if SUPPORT_NESTED_CONST_AS_IP_RUBY_CMD_RECEIVER</span></div><div class="line"><a name="l03496"></a><span class="lineno"> 3496</span>  klass = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad9496ba24c0bd359887446e315b1bc78">rb_eval_string_protect</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>, &state);</div><div class="line"><a name="l03497"></a><span class="lineno"> 3497</span>  <span class="keywordflow">if</span> (state) {</div><div class="line"><a name="l03498"></a><span class="lineno"> 3498</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l03499"></a><span class="lineno"> 3499</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l03500"></a><span class="lineno"> 3500</span>  <span class="keywordflow">return</span> klass;</div><div class="line"><a name="l03501"></a><span class="lineno"> 3501</span>  }</div><div class="line"><a name="l03502"></a><span class="lineno"> 3502</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03503"></a><span class="lineno"> 3503</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>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>));</div><div class="line"><a name="l03504"></a><span class="lineno"> 3504</span> <span class="preprocessor">#endif</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">/* TODO!!!!!! */</span></div><div class="line"><a name="l03507"></a><span class="lineno"> 3507</span>  <span class="comment">/* support nest of classes/modules */</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="comment">/* return rb_eval_string(name); */</span></div><div class="line"><a name="l03510"></a><span class="lineno"> 3510</span>  <span class="comment">/* return rb_eval_string_protect(name, &state); */</span></div><div class="line"><a name="l03511"></a><span class="lineno"> 3511</span> </div><div class="line"><a name="l03512"></a><span class="lineno"> 3512</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="l03513"></a><span class="lineno"> 3513</span>  <span class="comment">/* duplicate */</span></div><div class="line"><a name="l03514"></a><span class="lineno"> 3514</span>  <a class="code" href="../../d4/d71/st_8c.html#a6d1197264c8235ebd5bda57ba423914e">head</a> = <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a> = <a class="code" href="../../d8/d3c/util_8h.html#ad832104a69551cf1e4e347fffa9dc77c">strdup</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>);</div><div class="line"><a name="l03515"></a><span class="lineno"> 3515</span> </div><div class="line"><a name="l03516"></a><span class="lineno"> 3516</span>  <span class="comment">/* has '::' at head ? */</span></div><div class="line"><a name="l03517"></a><span class="lineno"> 3517</span>  <span class="keywordflow">if</span> (*<a class="code" href="../../d4/d71/st_8c.html#a6d1197264c8235ebd5bda57ba423914e">head</a> == <span class="charliteral">':'</span>) <a class="code" href="../../d4/d71/st_8c.html#a6d1197264c8235ebd5bda57ba423914e">head</a> += 2;</div><div class="line"><a name="l03518"></a><span class="lineno"> 3518</span>  <a class="code" href="../../d4/d71/st_8c.html#aeb205b1461b511358d0bdd0a457b6428">tail</a> = <a class="code" href="../../d4/d71/st_8c.html#a6d1197264c8235ebd5bda57ba423914e">head</a>;</div><div class="line"><a name="l03519"></a><span class="lineno"> 3519</span> </div><div class="line"><a name="l03520"></a><span class="lineno"> 3520</span>  <span class="comment">/* search */</span></div><div class="line"><a name="l03521"></a><span class="lineno"> 3521</span>  <span class="keywordflow">while</span>(*<a class="code" href="../../d4/d71/st_8c.html#aeb205b1461b511358d0bdd0a457b6428">tail</a>) {</div><div class="line"><a name="l03522"></a><span class="lineno"> 3522</span>  <span class="keywordflow">if</span> (*<a class="code" href="../../d4/d71/st_8c.html#aeb205b1461b511358d0bdd0a457b6428">tail</a> == <span class="charliteral">':'</span>) {</div><div class="line"><a name="l03523"></a><span class="lineno"> 3523</span>  *<a class="code" href="../../d4/d71/st_8c.html#aeb205b1461b511358d0bdd0a457b6428">tail</a> = <span class="charliteral">'\0'</span>;</div><div class="line"><a name="l03524"></a><span class="lineno"> 3524</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>(<a class="code" href="../../d4/d71/st_8c.html#a6d1197264c8235ebd5bda57ba423914e">head</a>));</div><div class="line"><a name="l03525"></a><span class="lineno"> 3525</span>  <a class="code" href="../../d4/d71/st_8c.html#aeb205b1461b511358d0bdd0a457b6428">tail</a> += 2;</div><div class="line"><a name="l03526"></a><span class="lineno"> 3526</span>  <a class="code" href="../../d4/d71/st_8c.html#a6d1197264c8235ebd5bda57ba423914e">head</a> = <a class="code" href="../../d4/d71/st_8c.html#aeb205b1461b511358d0bdd0a457b6428">tail</a>;</div><div class="line"><a name="l03527"></a><span class="lineno"> 3527</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l03528"></a><span class="lineno"> 3528</span>  <a class="code" href="../../d4/d71/st_8c.html#aeb205b1461b511358d0bdd0a457b6428">tail</a>++;</div><div class="line"><a name="l03529"></a><span class="lineno"> 3529</span>  }</div><div class="line"><a name="l03530"></a><span class="lineno"> 3530</span>  }</div><div class="line"><a name="l03531"></a><span class="lineno"> 3531</span> </div><div class="line"><a name="l03532"></a><span class="lineno"> 3532</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#a18100522f0b19b5e9b9875f5737a9386">free</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>);</div><div class="line"><a name="l03533"></a><span class="lineno"> 3533</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>(<a class="code" href="../../d4/d71/st_8c.html#a6d1197264c8235ebd5bda57ba423914e">head</a>));</div><div class="line"><a name="l03534"></a><span class="lineno"> 3534</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03535"></a><span class="lineno"> 3535</span> }</div><div class="line"><a name="l03536"></a><span class="lineno"> 3536</span> </div><div class="line"><a name="l03537"></a><span class="lineno"> 3537</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l03538"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5397f07b7cd5249e5cc6cf1a1d5eb14f"> 3538</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5397f07b7cd5249e5cc6cf1a1d5eb14f">ip_ruby_cmd_receiver_get</a>(str)</div><div class="line"><a name="l03539"></a><span class="lineno"> 3539</span>  <span class="keywordtype">char</span> *str;</div><div class="line"><a name="l03540"></a><span class="lineno"> 3540</span> {</div><div class="line"><a name="l03541"></a><span class="lineno"> 3541</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d6/d58/structcmd__body__arg.html#a6cc0250b850b77f58f01f05913e3ddab">receiver</a>;</div><div class="line"><a name="l03542"></a><span class="lineno"> 3542</span> <span class="preprocessor">#if !SUPPORT_NESTED_CONST_AS_IP_RUBY_CMD_RECEIVER</span></div><div class="line"><a name="l03543"></a><span class="lineno"> 3543</span>  <span class="keywordtype">int</span> state;</div><div class="line"><a name="l03544"></a><span class="lineno"> 3544</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03545"></a><span class="lineno"> 3545</span> </div><div class="line"><a name="l03546"></a><span class="lineno"> 3546</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="l03547"></a><span class="lineno"> 3547</span>  <span class="comment">/* class | module | constant */</span></div><div class="line"><a name="l03548"></a><span class="lineno"> 3548</span> <span class="preprocessor">#if SUPPORT_NESTED_CONST_AS_IP_RUBY_CMD_RECEIVER</span></div><div class="line"><a name="l03549"></a><span class="lineno"> 3549</span>  <a class="code" href="../../d6/d58/structcmd__body__arg.html#a6cc0250b850b77f58f01f05913e3ddab">receiver</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aae8dad6d56978437346551c280310720">ip_ruby_cmd_receiver_const_get</a>(str);</div><div class="line"><a name="l03550"></a><span class="lineno"> 3550</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03551"></a><span class="lineno"> 3551</span>  <a class="code" href="../../d6/d58/structcmd__body__arg.html#a6cc0250b850b77f58f01f05913e3ddab">receiver</a> = <a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aae8dad6d56978437346551c280310720">ip_ruby_cmd_receiver_const_get</a>, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)str, &state);</div><div class="line"><a name="l03552"></a><span class="lineno"> 3552</span>  <span class="keywordflow">if</span> (state) <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l03553"></a><span class="lineno"> 3553</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03554"></a><span class="lineno"> 3554</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (str[0] == <span class="charliteral">'$'</span>) {</div><div class="line"><a name="l03555"></a><span class="lineno"> 3555</span>  <span class="comment">/* global variable */</span></div><div class="line"><a name="l03556"></a><span class="lineno"> 3556</span>  <a class="code" href="../../d6/d58/structcmd__body__arg.html#a6cc0250b850b77f58f01f05913e3ddab">receiver</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac264a2e60151682299aa24aadaf69d39">rb_gv_get</a>(str);</div><div class="line"><a name="l03557"></a><span class="lineno"> 3557</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l03558"></a><span class="lineno"> 3558</span>  <span class="comment">/* global variable omitted '$' */</span></div><div class="line"><a name="l03559"></a><span class="lineno"> 3559</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>;</div><div class="line"><a name="l03560"></a><span class="lineno"> 3560</span>  <span class="keywordtype">size_t</span> len;</div><div class="line"><a name="l03561"></a><span class="lineno"> 3561</span> </div><div class="line"><a name="l03562"></a><span class="lineno"> 3562</span>  len = <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(str);</div><div class="line"><a name="l03563"></a><span class="lineno"> 3563</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a> = <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="l03564"></a><span class="lineno"> 3564</span>  <span class="comment">/* buf = ckalloc(sizeof(char) * (len + 2)); */</span></div><div class="line"><a name="l03565"></a><span class="lineno"> 3565</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>[0] = <span class="charliteral">'$'</span>;</div><div class="line"><a name="l03566"></a><span class="lineno"> 3566</span>  memcpy(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a> + 1, str, len);</div><div class="line"><a name="l03567"></a><span class="lineno"> 3567</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>[len + 1] = 0;</div><div class="line"><a name="l03568"></a><span class="lineno"> 3568</span>  <a class="code" href="../../d6/d58/structcmd__body__arg.html#a6cc0250b850b77f58f01f05913e3ddab">receiver</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#ac264a2e60151682299aa24aadaf69d39">rb_gv_get</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>);</div><div class="line"><a name="l03569"></a><span class="lineno"> 3569</span>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>);</div><div class="line"><a name="l03570"></a><span class="lineno"> 3570</span>  <span class="comment">/* ckfree(buf); */</span></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="keywordflow">return</span> <a class="code" href="../../d6/d58/structcmd__body__arg.html#a6cc0250b850b77f58f01f05913e3ddab">receiver</a>;</div><div class="line"><a name="l03574"></a><span class="lineno"> 3574</span> }</div><div class="line"><a name="l03575"></a><span class="lineno"> 3575</span> </div><div class="line"><a name="l03576"></a><span class="lineno"> 3576</span> <span class="comment">/* ruby_cmd receiver method arg ... */</span></div><div class="line"><a name="l03577"></a><span class="lineno"> 3577</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l03578"></a><span class="lineno"> 3578</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l03579"></a><span class="lineno"> 3579</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa1cc4fb1e40a147c166a6639894cec69">ip_ruby_cmd</a>(clientData, interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l03580"></a><span class="lineno"> 3580</span>  ClientData clientData;</div><div class="line"><a name="l03581"></a><span class="lineno"> 3581</span>  Tcl_Interp *interp;</div><div class="line"><a name="l03582"></a><span class="lineno"> 3582</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l03583"></a><span class="lineno"> 3583</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[];</div><div class="line"><a name="l03584"></a><span class="lineno"> 3584</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l03585"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa1cc4fb1e40a147c166a6639894cec69"> 3585</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa1cc4fb1e40a147c166a6639894cec69">ip_ruby_cmd</a>(clientData, interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l03586"></a><span class="lineno"> 3586</span>  ClientData clientData;</div><div class="line"><a name="l03587"></a><span class="lineno"> 3587</span>  Tcl_Interp *interp;</div><div class="line"><a name="l03588"></a><span class="lineno"> 3588</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l03589"></a><span class="lineno"> 3589</span>  <span class="keywordtype">char</span> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[];</div><div class="line"><a name="l03590"></a><span class="lineno"> 3590</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03591"></a><span class="lineno"> 3591</span> {</div><div class="line"><a name="l03592"></a><span class="lineno"> 3592</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d6/d58/structcmd__body__arg.html#a6cc0250b850b77f58f01f05913e3ddab">receiver</a>;</div><div class="line"><a name="l03593"></a><span class="lineno"> 3593</span>  <span class="keyword">volatile</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="l03594"></a><span class="lineno"> 3594</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d6/d58/structcmd__body__arg.html#a69cc5f5a65054e5b276eeb78716cbeb9">args</a>;</div><div class="line"><a name="l03595"></a><span class="lineno"> 3595</span>  <span class="keywordtype">char</span> *str;</div><div class="line"><a name="l03596"></a><span class="lineno"> 3596</span>  <span class="keywordtype">int</span> i;</div><div class="line"><a name="l03597"></a><span class="lineno"> 3597</span>  <span class="keywordtype">int</span> len;</div><div class="line"><a name="l03598"></a><span class="lineno"> 3598</span>  <span class="keyword">struct </span><a class="code" href="../../d6/d58/structcmd__body__arg.html">cmd_body_arg</a> *arg;</div><div class="line"><a name="l03599"></a><span class="lineno"> 3599</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l03600"></a><span class="lineno"> 3600</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> old_gc;</div><div class="line"><a name="l03601"></a><span class="lineno"> 3601</span>  <span class="keywordtype">int</span> code;</div><div class="line"><a name="l03602"></a><span class="lineno"> 3602</span> </div><div class="line"><a name="l03603"></a><span class="lineno"> 3603</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l03604"></a><span class="lineno"> 3604</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l03605"></a><span class="lineno"> 3605</span>  <span class="stringliteral">"IP is deleted"</span>);</div><div class="line"><a name="l03606"></a><span class="lineno"> 3606</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l03607"></a><span class="lineno"> 3607</span>  }</div><div class="line"><a name="l03608"></a><span class="lineno"> 3608</span> </div><div class="line"><a name="l03609"></a><span class="lineno"> 3609</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a> < 3) {</div><div class="line"><a name="l03610"></a><span class="lineno"> 3610</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l03611"></a><span class="lineno"> 3611</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="l03612"></a><span class="lineno"> 3612</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03613"></a><span class="lineno"> 3613</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l03614"></a><span class="lineno"> 3614</span>  Tcl_AppendResult(interp, <span class="stringliteral">"too few arguments"</span>, (<span class="keywordtype">char</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l03615"></a><span class="lineno"> 3615</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>,</div><div class="line"><a name="l03616"></a><span class="lineno"> 3616</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(interp));</div><div class="line"><a name="l03617"></a><span class="lineno"> 3617</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l03618"></a><span class="lineno"> 3618</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03619"></a><span class="lineno"> 3619</span>  }</div><div class="line"><a name="l03620"></a><span class="lineno"> 3620</span> </div><div class="line"><a name="l03621"></a><span class="lineno"> 3621</span>  <span class="comment">/* get arguments from Tcl objects */</span></div><div class="line"><a name="l03622"></a><span class="lineno"> 3622</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l03623"></a><span class="lineno"> 3623</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l03624"></a><span class="lineno"> 3624</span>  old_gc = <a class="code" href="../../d8/d16/gc_8c.html#a27a2dbb7307d5ea8e096ce4357f6ece6">rb_gc_disable</a>();</div><div class="line"><a name="l03625"></a><span class="lineno"> 3625</span> </div><div class="line"><a name="l03626"></a><span class="lineno"> 3626</span>  <span class="comment">/* get receiver */</span></div><div class="line"><a name="l03627"></a><span class="lineno"> 3627</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l03628"></a><span class="lineno"> 3628</span>  str = Tcl_GetStringFromObj(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1], &len);</div><div class="line"><a name="l03629"></a><span class="lineno"> 3629</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l03630"></a><span class="lineno"> 3630</span>  str = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1];</div><div class="line"><a name="l03631"></a><span class="lineno"> 3631</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03632"></a><span class="lineno"> 3632</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="l03633"></a><span class="lineno"> 3633</span>  <span class="comment">/* receiver = rb_protect(ip_ruby_cmd_receiver_get, (VALUE)str, &code); */</span></div><div class="line"><a name="l03634"></a><span class="lineno"> 3634</span>  <a class="code" href="../../d6/d58/structcmd__body__arg.html#a6cc0250b850b77f58f01f05913e3ddab">receiver</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5397f07b7cd5249e5cc6cf1a1d5eb14f">ip_ruby_cmd_receiver_get</a>(str);</div><div class="line"><a name="l03635"></a><span class="lineno"> 3635</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d6/d58/structcmd__body__arg.html#a6cc0250b850b77f58f01f05913e3ddab">receiver</a>)) {</div><div class="line"><a name="l03636"></a><span class="lineno"> 3636</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l03637"></a><span class="lineno"> 3637</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="l03638"></a><span class="lineno"> 3638</span>  <span class="stringliteral">"unknown class/module/global-variable '%s'"</span>, str);</div><div class="line"><a name="l03639"></a><span class="lineno"> 3639</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03640"></a><span class="lineno"> 3640</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l03641"></a><span class="lineno"> 3641</span>  Tcl_AppendResult(interp, <span class="stringliteral">"unknown class/module/global-variable '"</span>,</div><div class="line"><a name="l03642"></a><span class="lineno"> 3642</span>  str, <span class="stringliteral">"'"</span>, (<span class="keywordtype">char</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l03643"></a><span class="lineno"> 3643</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ab5e2a9fec766c75176fbb262bfe6a596">rb_eArgError</a>,</div><div class="line"><a name="l03644"></a><span class="lineno"> 3644</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(interp));</div><div class="line"><a name="l03645"></a><span class="lineno"> 3645</span>  <span class="keywordflow">if</span> (old_gc == <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>) <a class="code" href="../../d8/d16/gc_8c.html#a3cbc64cc9d74c437c08a5dc923d1c7dd">rb_gc_enable</a>();</div><div class="line"><a name="l03646"></a><span class="lineno"> 3646</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l03647"></a><span class="lineno"> 3647</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03648"></a><span class="lineno"> 3648</span>  }</div><div class="line"><a name="l03649"></a><span class="lineno"> 3649</span> </div><div class="line"><a name="l03650"></a><span class="lineno"> 3650</span>  <span class="comment">/* get metrhod */</span></div><div class="line"><a name="l03651"></a><span class="lineno"> 3651</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l03652"></a><span class="lineno"> 3652</span>  str = Tcl_GetStringFromObj(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[2], &len);</div><div class="line"><a name="l03653"></a><span class="lineno"> 3653</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l03654"></a><span class="lineno"> 3654</span>  str = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[2];</div><div class="line"><a name="l03655"></a><span class="lineno"> 3655</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03656"></a><span class="lineno"> 3656</span>  <a class="code" href="../../d6/d58/structcmd__body__arg.html#ac9ac9c13c40fba180d11b3cad2303b6f">method</a> = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(str);</div><div class="line"><a name="l03657"></a><span class="lineno"> 3657</span> </div><div class="line"><a name="l03658"></a><span class="lineno"> 3658</span>  <span class="comment">/* get args */</span></div><div class="line"><a name="l03659"></a><span class="lineno"> 3659</span>  <a class="code" href="../../d6/d58/structcmd__body__arg.html#a69cc5f5a65054e5b276eeb78716cbeb9">args</a> = <a class="code" href="../../db/d2e/intern_8h.html#aec80847cff5250fc99e223d1966a2153">rb_ary_new2</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a> - 2);</div><div class="line"><a name="l03660"></a><span class="lineno"> 3660</span>  <span class="keywordflow">for</span>(i = 3; i < <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>; i++) {</div><div class="line"><a name="l03661"></a><span class="lineno"> 3661</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> s;</div><div class="line"><a name="l03662"></a><span class="lineno"> 3662</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l03663"></a><span class="lineno"> 3663</span>  str = Tcl_GetStringFromObj(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[i], &len);</div><div class="line"><a name="l03664"></a><span class="lineno"> 3664</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="l03665"></a><span class="lineno"> 3665</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l03666"></a><span class="lineno"> 3666</span>  str = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[i];</div><div class="line"><a name="l03667"></a><span class="lineno"> 3667</span>  s = <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(str);</div><div class="line"><a name="l03668"></a><span class="lineno"> 3668</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03669"></a><span class="lineno"> 3669</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="l03670"></a><span class="lineno"> 3670</span> <span class="preprocessor">#ifndef HAVE_STRUCT_RARRAY_LEN</span></div><div class="line"><a name="l03671"></a><span class="lineno"> 3671</span>  <a class="code" href="../../dc/dcc/array_8c.html#a59d553a8cd781364b8bcb0deae25cca2">rb_ary_push</a>(<a class="code" href="../../d6/d58/structcmd__body__arg.html#a69cc5f5a65054e5b276eeb78716cbeb9">args</a>, s);</div><div class="line"><a name="l03672"></a><span class="lineno"> 3672</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03673"></a><span class="lineno"> 3673</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6ad4b459637de1ab73940dff465b63ea">RARRAY</a>(<a class="code" href="../../d6/d58/structcmd__body__arg.html#a69cc5f5a65054e5b276eeb78716cbeb9">args</a>)->ptr[<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6ad4b459637de1ab73940dff465b63ea">RARRAY</a>(<a class="code" href="../../d6/d58/structcmd__body__arg.html#a69cc5f5a65054e5b276eeb78716cbeb9">args</a>)->len++] = s;</div><div class="line"><a name="l03674"></a><span class="lineno"> 3674</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03675"></a><span class="lineno"> 3675</span>  }</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="keywordflow">if</span> (old_gc == <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>) <a class="code" href="../../d8/d16/gc_8c.html#a3cbc64cc9d74c437c08a5dc923d1c7dd">rb_gc_enable</a>();</div><div class="line"><a name="l03678"></a><span class="lineno"> 3678</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l03679"></a><span class="lineno"> 3679</span> </div><div class="line"><a name="l03680"></a><span class="lineno"> 3680</span>  <span class="comment">/* allocate */</span></div><div class="line"><a name="l03681"></a><span class="lineno"> 3681</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="l03682"></a><span class="lineno"> 3682</span>  <span class="comment">/* arg = RbTk_ALLOC_N(struct cmd_body_arg, 1); */</span></div><div class="line"><a name="l03683"></a><span class="lineno"> 3683</span> </div><div class="line"><a name="l03684"></a><span class="lineno"> 3684</span>  arg-><a class="code" href="../../d6/d58/structcmd__body__arg.html#a6cc0250b850b77f58f01f05913e3ddab">receiver</a> = <a class="code" href="../../d6/d58/structcmd__body__arg.html#a6cc0250b850b77f58f01f05913e3ddab">receiver</a>;</div><div class="line"><a name="l03685"></a><span class="lineno"> 3685</span>  arg-><a class="code" href="../../d6/d58/structcmd__body__arg.html#ac9ac9c13c40fba180d11b3cad2303b6f">method</a> = <a class="code" href="../../d6/d58/structcmd__body__arg.html#ac9ac9c13c40fba180d11b3cad2303b6f">method</a>;</div><div class="line"><a name="l03686"></a><span class="lineno"> 3686</span>  arg-><a class="code" href="../../d6/d58/structcmd__body__arg.html#a69cc5f5a65054e5b276eeb78716cbeb9">args</a> = <a class="code" href="../../d6/d58/structcmd__body__arg.html#a69cc5f5a65054e5b276eeb78716cbeb9">args</a>;</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>  <span class="comment">/* evaluate the argument string by ruby */</span></div><div class="line"><a name="l03689"></a><span class="lineno"> 3689</span>  code = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a19d7bb32bbc3c14b7b717e079c94de2b">tcl_protect</a>(interp, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aac60f81a7a47a728e6c471f3297e814e">ip_ruby_cmd_core</a>, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)arg);</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>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(arg);</div><div class="line"><a name="l03692"></a><span class="lineno"> 3692</span>  <span class="comment">/* ckfree((char*)arg); */</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>  <span class="keywordflow">return</span> code;</div><div class="line"><a name="l03695"></a><span class="lineno"> 3695</span> }</div><div class="line"><a name="l03696"></a><span class="lineno"> 3696</span> </div><div class="line"><a name="l03697"></a><span class="lineno"> 3697</span> </div><div class="line"><a name="l03698"></a><span class="lineno"> 3698</span> <span class="comment">/*****************************/</span></div><div class="line"><a name="l03699"></a><span class="lineno"> 3699</span> <span class="comment">/* relpace of 'exit' command */</span></div><div class="line"><a name="l03700"></a><span class="lineno"> 3700</span> <span class="comment">/*****************************/</span></div><div class="line"><a name="l03701"></a><span class="lineno"> 3701</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l03702"></a><span class="lineno"> 3702</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l03703"></a><span class="lineno"> 3703</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div><div class="line"><a name="l03704"></a><span class="lineno"> 3704</span> ip_InterpExitObjCmd(ClientData clientData, Tcl_Interp *interp,</div><div class="line"><a name="l03705"></a><span class="lineno"> 3705</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[])</div><div class="line"><a name="l03706"></a><span class="lineno"> 3706</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03707"></a><span class="lineno"> 3707</span> ip_InterpExitObjCmd(clientData, interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l03708"></a><span class="lineno"> 3708</span>  ClientData clientData;</div><div class="line"><a name="l03709"></a><span class="lineno"> 3709</span>  Tcl_Interp *interp;</div><div class="line"><a name="l03710"></a><span class="lineno"> 3710</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l03711"></a><span class="lineno"> 3711</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[];</div><div class="line"><a name="l03712"></a><span class="lineno"> 3712</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03713"></a><span class="lineno"> 3713</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l03714"></a><span class="lineno"> 3714</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div><div class="line"><a name="l03715"></a><span class="lineno"> 3715</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac039247bd36850b582d929b1d204a35d">ip_InterpExitCommand</a>(ClientData clientData, Tcl_Interp *interp,</div><div class="line"><a name="l03716"></a><span class="lineno"> 3716</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <span class="keywordtype">char</span> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[])</div><div class="line"><a name="l03717"></a><span class="lineno"> 3717</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03718"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac039247bd36850b582d929b1d204a35d"> 3718</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac039247bd36850b582d929b1d204a35d">ip_InterpExitCommand</a>(clientData, interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l03719"></a><span class="lineno"> 3719</span>  ClientData clientData;</div><div class="line"><a name="l03720"></a><span class="lineno"> 3720</span>  Tcl_Interp *interp;</div><div class="line"><a name="l03721"></a><span class="lineno"> 3721</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l03722"></a><span class="lineno"> 3722</span>  <span class="keywordtype">char</span> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[];</div><div class="line"><a name="l03723"></a><span class="lineno"> 3723</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03724"></a><span class="lineno"> 3724</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03725"></a><span class="lineno"> 3725</span> {</div><div class="line"><a name="l03726"></a><span class="lineno"> 3726</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="l03727"></a><span class="lineno"> 3727</span>  <span class="keywordflow">if</span> (interp != (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a></div><div class="line"><a name="l03728"></a><span class="lineno"> 3728</span>  && !Tcl_InterpDeleted(interp)</div><div class="line"><a name="l03729"></a><span class="lineno"> 3729</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="l03730"></a><span class="lineno"> 3730</span>  && !ip_null_namespace(interp)</div><div class="line"><a name="l03731"></a><span class="lineno"> 3731</span> #endif</div><div class="line"><a name="l03732"></a><span class="lineno"> 3732</span>  ) {</div><div class="line"><a name="l03733"></a><span class="lineno"> 3733</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l03734"></a><span class="lineno"> 3734</span>  <span class="comment">/* Tcl_Preserve(interp); */</span></div><div class="line"><a name="l03735"></a><span class="lineno"> 3735</span>  <span class="comment">/* Tcl_Eval(interp, "interp eval {} {destroy .}; interp delete {}"); */</span></div><div class="line"><a name="l03736"></a><span class="lineno"> 3736</span>  <span class="keywordflow">if</span> (!Tcl_InterpDeleted(interp)) {</div><div class="line"><a name="l03737"></a><span class="lineno"> 3737</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#af3e6f9a2db4741e3208aeedae20c97cd">ip_finalize</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>  Tcl_DeleteInterp(interp);</div><div class="line"><a name="l03740"></a><span class="lineno"> 3740</span>  Tcl_Release(interp);</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="keywordflow">return</span> TCL_OK;</div><div class="line"><a name="l03744"></a><span class="lineno"> 3744</span> }</div><div class="line"><a name="l03745"></a><span class="lineno"> 3745</span> </div><div class="line"><a name="l03746"></a><span class="lineno"> 3746</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l03747"></a><span class="lineno"> 3747</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l03748"></a><span class="lineno"> 3748</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div><div class="line"><a name="l03749"></a><span class="lineno"> 3749</span> ip_RubyExitObjCmd(ClientData clientData, Tcl_Interp *interp,</div><div class="line"><a name="l03750"></a><span class="lineno"> 3750</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[])</div><div class="line"><a name="l03751"></a><span class="lineno"> 3751</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03752"></a><span class="lineno"> 3752</span> ip_RubyExitObjCmd(clientData, interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l03753"></a><span class="lineno"> 3753</span>  ClientData clientData;</div><div class="line"><a name="l03754"></a><span class="lineno"> 3754</span>  Tcl_Interp *interp;</div><div class="line"><a name="l03755"></a><span class="lineno"> 3755</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l03756"></a><span class="lineno"> 3756</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[];</div><div class="line"><a name="l03757"></a><span class="lineno"> 3757</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03758"></a><span class="lineno"> 3758</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l03759"></a><span class="lineno"> 3759</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div><div class="line"><a name="l03760"></a><span class="lineno"> 3760</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af3e1e17b0ba1a5761dd984e57771955e">ip_RubyExitCommand</a>(ClientData clientData, Tcl_Interp *interp,</div><div class="line"><a name="l03761"></a><span class="lineno"> 3761</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <span class="keywordtype">char</span> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[])</div><div class="line"><a name="l03762"></a><span class="lineno"> 3762</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03763"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af3e1e17b0ba1a5761dd984e57771955e"> 3763</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af3e1e17b0ba1a5761dd984e57771955e">ip_RubyExitCommand</a>(clientData, interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l03764"></a><span class="lineno"> 3764</span>  ClientData clientData;</div><div class="line"><a name="l03765"></a><span class="lineno"> 3765</span>  Tcl_Interp *interp;</div><div class="line"><a name="l03766"></a><span class="lineno"> 3766</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l03767"></a><span class="lineno"> 3767</span>  <span class="keywordtype">char</span> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[];</div><div class="line"><a name="l03768"></a><span class="lineno"> 3768</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03769"></a><span class="lineno"> 3769</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03770"></a><span class="lineno"> 3770</span> {</div><div class="line"><a name="l03771"></a><span class="lineno"> 3771</span>  <span class="keywordtype">int</span> state;</div><div class="line"><a name="l03772"></a><span class="lineno"> 3772</span>  <span class="keywordtype">char</span> *cmd, *param;</div><div class="line"><a name="l03773"></a><span class="lineno"> 3773</span> <span class="preprocessor">#if TCL_MAJOR_VERSION < 8</span></div><div class="line"><a name="l03774"></a><span class="lineno"> 3774</span>  <span class="keywordtype">char</span> *endptr;</div><div class="line"><a name="l03775"></a><span class="lineno"> 3775</span>  cmd = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[0];</div><div class="line"><a name="l03776"></a><span class="lineno"> 3776</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03777"></a><span class="lineno"> 3777</span> </div><div class="line"><a name="l03778"></a><span class="lineno"> 3778</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="l03779"></a><span class="lineno"> 3779</span> </div><div class="line"><a name="l03780"></a><span class="lineno"> 3780</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l03781"></a><span class="lineno"> 3781</span>  <span class="comment">/* cmd = Tcl_GetString(argv[0]); */</span></div><div class="line"><a name="l03782"></a><span class="lineno"> 3782</span>  cmd = Tcl_GetStringFromObj(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[0], (<span class="keywordtype">int</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l03783"></a><span class="lineno"> 3783</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03784"></a><span class="lineno"> 3784</span> </div><div class="line"><a name="l03785"></a><span class="lineno"> 3785</span>  <span class="keywordflow">if</span> (argc < 1 || argc > 2) {</div><div class="line"><a name="l03786"></a><span class="lineno"> 3786</span>  <span class="comment">/* arguemnt error */</span></div><div class="line"><a name="l03787"></a><span class="lineno"> 3787</span>  Tcl_AppendResult(interp,</div><div class="line"><a name="l03788"></a><span class="lineno"> 3788</span>  <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div><div class="line"><a name="l03789"></a><span class="lineno"> 3789</span>  cmd, <span class="stringliteral">" ?returnCode?\""</span>, (<span class="keywordtype">char</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l03790"></a><span class="lineno"> 3790</span>  <span class="keywordflow">return</span> TCL_ERROR;</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> </div><div class="line"><a name="l03793"></a><span class="lineno"> 3793</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) <span class="keywordflow">return</span> TCL_OK;</div><div class="line"><a name="l03794"></a><span class="lineno"> 3794</span> </div><div class="line"><a name="l03795"></a><span class="lineno"> 3795</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l03796"></a><span class="lineno"> 3796</span> </div><div class="line"><a name="l03797"></a><span class="lineno"> 3797</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="l03798"></a><span class="lineno"> 3798</span>  <span class="keywordflow">if</span> (!Tcl_InterpDeleted(interp)) {</div><div class="line"><a name="l03799"></a><span class="lineno"> 3799</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#af3e6f9a2db4741e3208aeedae20c97cd">ip_finalize</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>  Tcl_DeleteInterp(interp);</div><div class="line"><a name="l03802"></a><span class="lineno"> 3802</span>  Tcl_Release(interp);</div><div class="line"><a name="l03803"></a><span class="lineno"> 3803</span>  }</div><div class="line"><a name="l03804"></a><span class="lineno"> 3804</span>  <span class="keywordflow">return</span> TCL_OK;</div><div class="line"><a name="l03805"></a><span class="lineno"> 3805</span>  }</div><div class="line"><a name="l03806"></a><span class="lineno"> 3806</span> </div><div class="line"><a name="l03807"></a><span class="lineno"> 3807</span>  <span class="keywordflow">switch</span>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>) {</div><div class="line"><a name="l03808"></a><span class="lineno"> 3808</span>  <span class="keywordflow">case</span> 1:</div><div class="line"><a name="l03809"></a><span class="lineno"> 3809</span>  <span class="comment">/* rb_exit(0); */</span> <span class="comment">/* not return if succeed */</span></div><div class="line"><a name="l03810"></a><span class="lineno"> 3810</span>  Tcl_AppendResult(interp,</div><div class="line"><a name="l03811"></a><span class="lineno"> 3811</span>  <span class="stringliteral">"fail to call \""</span>, cmd, <span class="stringliteral">"\""</span>, (<span class="keywordtype">char</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l03812"></a><span class="lineno"> 3812</span> </div><div class="line"><a name="l03813"></a><span class="lineno"> 3813</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a34c7841e8f21712bc79d7bd6f64483b3">rb_eSystemExit</a>,</div><div class="line"><a name="l03814"></a><span class="lineno"> 3814</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(interp));</div><div class="line"><a name="l03815"></a><span class="lineno"> 3815</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a7e5b0d4c40fecb26c1ac946f674a690e">rb_iv_set</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">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="l03816"></a><span class="lineno"> 3816</span> </div><div class="line"><a name="l03817"></a><span class="lineno"> 3817</span>  <span class="keywordflow">return</span> TCL_RETURN;</div><div class="line"><a name="l03818"></a><span class="lineno"> 3818</span> </div><div class="line"><a name="l03819"></a><span class="lineno"> 3819</span>  <span class="keywordflow">case</span> 2:</div><div class="line"><a name="l03820"></a><span class="lineno"> 3820</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l03821"></a><span class="lineno"> 3821</span>  <span class="keywordflow">if</span> (Tcl_GetIntFromObj(interp, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1], &state) == TCL_ERROR) {</div><div class="line"><a name="l03822"></a><span class="lineno"> 3822</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l03823"></a><span class="lineno"> 3823</span>  }</div><div class="line"><a name="l03824"></a><span class="lineno"> 3824</span>  <span class="comment">/* param = Tcl_GetString(argv[1]); */</span></div><div class="line"><a name="l03825"></a><span class="lineno"> 3825</span>  param = Tcl_GetStringFromObj(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1], (<span class="keywordtype">int</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l03826"></a><span class="lineno"> 3826</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l03827"></a><span class="lineno"> 3827</span>  state = (int)<a class="code" href="../../d5/d65/strtol_8c.html#a311071298c2fe3e5d7057f396a6acfdc">strtol</a>(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1], &endptr, 0);</div><div class="line"><a name="l03828"></a><span class="lineno"> 3828</span>  <span class="keywordflow">if</span> (*endptr) {</div><div class="line"><a name="l03829"></a><span class="lineno"> 3829</span>  Tcl_AppendResult(interp,</div><div class="line"><a name="l03830"></a><span class="lineno"> 3830</span>  <span class="stringliteral">"expected integer but got \""</span>,</div><div class="line"><a name="l03831"></a><span class="lineno"> 3831</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1], <span class="stringliteral">"\""</span>, (<span class="keywordtype">char</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l03832"></a><span class="lineno"> 3832</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l03833"></a><span class="lineno"> 3833</span>  }</div><div class="line"><a name="l03834"></a><span class="lineno"> 3834</span>  param = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1];</div><div class="line"><a name="l03835"></a><span class="lineno"> 3835</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03836"></a><span class="lineno"> 3836</span>  <span class="comment">/* rb_exit(state); */</span> <span class="comment">/* not return if succeed */</span></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>  Tcl_AppendResult(interp, <span class="stringliteral">"fail to call \""</span>, cmd, <span class="stringliteral">" "</span>,</div><div class="line"><a name="l03839"></a><span class="lineno"> 3839</span>  param, <span class="stringliteral">"\""</span>, (<span class="keywordtype">char</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l03840"></a><span class="lineno"> 3840</span> </div><div class="line"><a name="l03841"></a><span class="lineno"> 3841</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a34c7841e8f21712bc79d7bd6f64483b3">rb_eSystemExit</a>,</div><div class="line"><a name="l03842"></a><span class="lineno"> 3842</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(interp));</div><div class="line"><a name="l03843"></a><span class="lineno"> 3843</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a7e5b0d4c40fecb26c1ac946f674a690e">rb_iv_set</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">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="l03844"></a><span class="lineno"> 3844</span> </div><div class="line"><a name="l03845"></a><span class="lineno"> 3845</span>  <span class="keywordflow">return</span> TCL_RETURN;</div><div class="line"><a name="l03846"></a><span class="lineno"> 3846</span> </div><div class="line"><a name="l03847"></a><span class="lineno"> 3847</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l03848"></a><span class="lineno"> 3848</span>  <span class="comment">/* arguemnt error */</span></div><div class="line"><a name="l03849"></a><span class="lineno"> 3849</span>  Tcl_AppendResult(interp,</div><div class="line"><a name="l03850"></a><span class="lineno"> 3850</span>  <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div><div class="line"><a name="l03851"></a><span class="lineno"> 3851</span>  cmd, <span class="stringliteral">" ?returnCode?\""</span>, (<span class="keywordtype">char</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l03852"></a><span class="lineno"> 3852</span>  <span class="keywordflow">return</span> TCL_ERROR;</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> }</div><div class="line"><a name="l03855"></a><span class="lineno"> 3855</span> </div><div class="line"><a name="l03856"></a><span class="lineno"> 3856</span> </div><div class="line"><a name="l03857"></a><span class="lineno"> 3857</span> <span class="comment">/**************************/</span></div><div class="line"><a name="l03858"></a><span class="lineno"> 3858</span> <span class="comment">/* based on tclEvent.c */</span></div><div class="line"><a name="l03859"></a><span class="lineno"> 3859</span> <span class="comment">/**************************/</span></div><div class="line"><a name="l03860"></a><span class="lineno"> 3860</span> </div><div class="line"><a name="l03861"></a><span class="lineno"> 3861</span> <span class="comment">/*********************/</span></div><div class="line"><a name="l03862"></a><span class="lineno"> 3862</span> <span class="comment">/* replace of update */</span></div><div class="line"><a name="l03863"></a><span class="lineno"> 3863</span> <span class="comment">/*********************/</span></div><div class="line"><a name="l03864"></a><span class="lineno"> 3864</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l03865"></a><span class="lineno"> 3865</span> <span class="keyword">static</span> <span class="keywordtype">int</span> ip_rbUpdateObjCmd <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div><div class="line"><a name="l03866"></a><span class="lineno"> 3866</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> []));</div><div class="line"><a name="l03867"></a><span class="lineno"> 3867</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l03868"></a><span class="lineno"> 3868</span> ip_rbUpdateObjCmd(clientData, interp, objc, objv)</div><div class="line"><a name="l03869"></a><span class="lineno"> 3869</span>  ClientData clientData;</div><div class="line"><a name="l03870"></a><span class="lineno"> 3870</span>  Tcl_Interp *interp;</div><div class="line"><a name="l03871"></a><span class="lineno"> 3871</span>  <span class="keywordtype">int</span> objc;</div><div class="line"><a name="l03872"></a><span class="lineno"> 3872</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> objv[];</div><div class="line"><a name="l03873"></a><span class="lineno"> 3873</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l03874"></a><span class="lineno"> 3874</span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6a4bf2b5a79b438ef4ba5e7a6495b05c">ip_rbUpdateCommand</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>, <span class="keywordtype">char</span> *[]));</div><div class="line"><a name="l03875"></a><span class="lineno"> 3875</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l03876"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6a4bf2b5a79b438ef4ba5e7a6495b05c"> 3876</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6a4bf2b5a79b438ef4ba5e7a6495b05c">ip_rbUpdateCommand</a>(clientData, interp, objc, objv)</div><div class="line"><a name="l03877"></a><span class="lineno"> 3877</span>  ClientData clientData;</div><div class="line"><a name="l03878"></a><span class="lineno"> 3878</span>  Tcl_Interp *interp;</div><div class="line"><a name="l03879"></a><span class="lineno"> 3879</span>  <span class="keywordtype">int</span> objc;</div><div class="line"><a name="l03880"></a><span class="lineno"> 3880</span>  <span class="keywordtype">char</span> *objv[];</div><div class="line"><a name="l03881"></a><span class="lineno"> 3881</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03882"></a><span class="lineno"> 3882</span> {</div><div class="line"><a name="l03883"></a><span class="lineno"> 3883</span>  <span class="keywordtype">int</span> flags = 0;</div><div class="line"><a name="l03884"></a><span class="lineno"> 3884</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="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>};</div><div class="line"><a name="l03885"></a><span class="lineno"> 3885</span>  <span class="keyword">enum</span> updateOptions {REGEXP_IDLETASKS};</div><div class="line"><a name="l03886"></a><span class="lineno"> 3886</span> </div><div class="line"><a name="l03887"></a><span class="lineno"> 3887</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="l03888"></a><span class="lineno"> 3888</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l03889"></a><span class="lineno"> 3889</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l03890"></a><span class="lineno"> 3890</span>  <span class="stringliteral">"IP is deleted"</span>);</div><div class="line"><a name="l03891"></a><span class="lineno"> 3891</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l03892"></a><span class="lineno"> 3892</span>  }</div><div class="line"><a name="l03893"></a><span class="lineno"> 3893</span> <span class="preprocessor">#ifdef HAVE_NATIVETHREAD</span></div><div class="line"><a name="l03894"></a><span class="lineno"> 3894</span> <span class="preprocessor">#ifndef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l03895"></a><span class="lineno"> 3895</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="l03896"></a><span class="lineno"> 3896</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="l03897"></a><span class="lineno"> 3897</span>  }</div><div class="line"><a name="l03898"></a><span class="lineno"> 3898</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03899"></a><span class="lineno"> 3899</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03900"></a><span class="lineno"> 3900</span> </div><div class="line"><a name="l03901"></a><span class="lineno"> 3901</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l03902"></a><span class="lineno"> 3902</span> </div><div class="line"><a name="l03903"></a><span class="lineno"> 3903</span>  <span class="keywordflow">if</span> (objc == 1) {</div><div class="line"><a name="l03904"></a><span class="lineno"> 3904</span>  flags = TCL_DONT_WAIT;</div><div class="line"><a name="l03905"></a><span class="lineno"> 3905</span> </div><div class="line"><a name="l03906"></a><span class="lineno"> 3906</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (objc == 2) {</div><div class="line"><a name="l03907"></a><span class="lineno"> 3907</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l03908"></a><span class="lineno"> 3908</span>  <span class="keywordtype">int</span> optionIndex;</div><div class="line"><a name="l03909"></a><span class="lineno"> 3909</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="l03910"></a><span class="lineno"> 3910</span>  <span class="stringliteral">"option"</span>, 0, &optionIndex) != TCL_OK) {</div><div class="line"><a name="l03911"></a><span class="lineno"> 3911</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l03912"></a><span class="lineno"> 3912</span>  }</div><div class="line"><a name="l03913"></a><span class="lineno"> 3913</span>  <span class="keywordflow">switch</span> ((<span class="keyword">enum</span> updateOptions) optionIndex) {</div><div class="line"><a name="l03914"></a><span class="lineno"> 3914</span>  <span class="keywordflow">case</span> REGEXP_IDLETASKS: {</div><div class="line"><a name="l03915"></a><span class="lineno"> 3915</span>  flags = TCL_IDLE_EVENTS;</div><div class="line"><a name="l03916"></a><span class="lineno"> 3916</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l03917"></a><span class="lineno"> 3917</span>  }</div><div class="line"><a name="l03918"></a><span class="lineno"> 3918</span>  <span class="keywordflow">default</span>: {</div><div class="line"><a name="l03919"></a><span class="lineno"> 3919</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="l03920"></a><span class="lineno"> 3920</span>  }</div><div class="line"><a name="l03921"></a><span class="lineno"> 3921</span>  }</div><div class="line"><a name="l03922"></a><span class="lineno"> 3922</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03923"></a><span class="lineno"> 3923</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="l03924"></a><span class="lineno"> 3924</span>  Tcl_AppendResult(interp, <span class="stringliteral">"bad option \""</span>, objv[1],</div><div class="line"><a name="l03925"></a><span class="lineno"> 3925</span>  <span class="stringliteral">"\": must be idletasks"</span>, (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l03926"></a><span class="lineno"> 3926</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l03927"></a><span class="lineno"> 3927</span>  }</div><div class="line"><a name="l03928"></a><span class="lineno"> 3928</span>  flags = TCL_IDLE_EVENTS;</div><div class="line"><a name="l03929"></a><span class="lineno"> 3929</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03930"></a><span class="lineno"> 3930</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l03931"></a><span class="lineno"> 3931</span> <span class="preprocessor">#ifdef Tcl_WrongNumArgs</span></div><div class="line"><a name="l03932"></a><span class="lineno"> 3932</span>  Tcl_WrongNumArgs(interp, 1, objv, <span class="stringliteral">"[ idletasks ]"</span>);</div><div class="line"><a name="l03933"></a><span class="lineno"> 3933</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l03934"></a><span class="lineno"> 3934</span> <span class="preprocessor"># if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l03935"></a><span class="lineno"> 3935</span>  <span class="keywordtype">int</span> dummy;</div><div class="line"><a name="l03936"></a><span class="lineno"> 3936</span>  Tcl_AppendResult(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div><div class="line"><a name="l03937"></a><span class="lineno"> 3937</span>  Tcl_GetStringFromObj(objv[0], &dummy),</div><div class="line"><a name="l03938"></a><span class="lineno"> 3938</span>  <span class="stringliteral">" [ idletasks ]\""</span>,</div><div class="line"><a name="l03939"></a><span class="lineno"> 3939</span>  (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l03940"></a><span class="lineno"> 3940</span> <span class="preprocessor"># else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l03941"></a><span class="lineno"> 3941</span>  Tcl_AppendResult(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div><div class="line"><a name="l03942"></a><span class="lineno"> 3942</span>  objv[0], <span class="stringliteral">" [ idletasks ]\""</span>, (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l03943"></a><span class="lineno"> 3943</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l03944"></a><span class="lineno"> 3944</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l03945"></a><span class="lineno"> 3945</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l03946"></a><span class="lineno"> 3946</span>  }</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>  Tcl_Preserve(interp);</div><div class="line"><a name="l03949"></a><span class="lineno"> 3949</span> </div><div class="line"><a name="l03950"></a><span class="lineno"> 3950</span>  <span class="comment">/* call eventloop */</span></div><div class="line"><a name="l03951"></a><span class="lineno"> 3951</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="l03952"></a><span class="lineno"> 3952</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed5576b12eec97d8314b7aae8903d64b">lib_eventloop_launcher</a>(0, flags, (<span class="keywordtype">int</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, interp); <span class="comment">/* ignore result */</span></div><div class="line"><a name="l03953"></a><span class="lineno"> 3953</span> </div><div class="line"><a name="l03954"></a><span class="lineno"> 3954</span>  <span class="comment">/* exception check */</span></div><div class="line"><a name="l03955"></a><span class="lineno"> 3955</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>)) {</div><div class="line"><a name="l03956"></a><span class="lineno"> 3956</span>  Tcl_Release(interp);</div><div class="line"><a name="l03957"></a><span class="lineno"> 3957</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="comment"> if (rb_obj_is_kind_of(rbtk_pending_exception, rb_eSystemExit)) {</span></div><div class="line"><a name="l03960"></a><span class="lineno"> 3960</span> <span class="comment"> */</span></div><div class="line"><a name="l03961"></a><span class="lineno"> 3961</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a34c7841e8f21712bc79d7bd6f64483b3">rb_eSystemExit</a>)</div><div class="line"><a name="l03962"></a><span class="lineno"> 3962</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a8378eac5be044398a53aca753116817b">rb_eInterrupt</a>)) {</div><div class="line"><a name="l03963"></a><span class="lineno"> 3963</span>  <span class="keywordflow">return</span> TCL_RETURN;</div><div class="line"><a name="l03964"></a><span class="lineno"> 3964</span>  } <span class="keywordflow">else</span>{</div><div class="line"><a name="l03965"></a><span class="lineno"> 3965</span>  <span class="keywordflow">return</span> TCL_ERROR;</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>  }</div><div class="line"><a name="l03968"></a><span class="lineno"> 3968</span> </div><div class="line"><a name="l03969"></a><span class="lineno"> 3969</span>  <span class="comment">/* trap check */</span></div><div class="line"><a name="l03970"></a><span class="lineno"> 3970</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a41e6a95a134b13d63c516923d0a66f91">rb_thread_check_trap_pending</a>()) {</div><div class="line"><a name="l03971"></a><span class="lineno"> 3971</span>  Tcl_Release(interp);</div><div class="line"><a name="l03972"></a><span class="lineno"> 3972</span> </div><div class="line"><a name="l03973"></a><span class="lineno"> 3973</span>  <span class="keywordflow">return</span> TCL_RETURN;</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> </div><div class="line"><a name="l03976"></a><span class="lineno"> 3976</span>  <span class="comment">/*</span></div><div class="line"><a name="l03977"></a><span class="lineno"> 3977</span> <span class="comment"> * Must clear the interpreter's result because event handlers could</span></div><div class="line"><a name="l03978"></a><span class="lineno"> 3978</span> <span class="comment"> * have executed commands.</span></div><div class="line"><a name="l03979"></a><span class="lineno"> 3979</span> <span class="comment"> */</span></div><div class="line"><a name="l03980"></a><span class="lineno"> 3980</span> </div><div class="line"><a name="l03981"></a><span class="lineno"> 3981</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="l03982"></a><span class="lineno"> 3982</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l03983"></a><span class="lineno"> 3983</span>  Tcl_Release(interp);</div><div class="line"><a name="l03984"></a><span class="lineno"> 3984</span> </div><div class="line"><a name="l03985"></a><span class="lineno"> 3985</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="l03986"></a><span class="lineno"> 3986</span>  <span class="keywordflow">return</span> TCL_OK;</div><div class="line"><a name="l03987"></a><span class="lineno"> 3987</span> }</div><div class="line"><a name="l03988"></a><span class="lineno"> 3988</span> </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> <span class="comment">/**********************/</span></div><div class="line"><a name="l03991"></a><span class="lineno"> 3991</span> <span class="comment">/* update with thread */</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"><a class="line" href="../../dc/d68/structth__update__param.html"> 3993</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="l03994"></a><span class="lineno"><a class="line" href="../../dc/d68/structth__update__param.html#a1c99d3d9f246be80f225ba4fc915bfb5"> 3994</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../dc/d68/structth__update__param.html#a1c99d3d9f246be80f225ba4fc915bfb5">thread</a>;</div><div class="line"><a name="l03995"></a><span class="lineno"><a class="line" href="../../dc/d68/structth__update__param.html#ac41d8c11b482906fbb9410cf37ed8181"> 3995</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="l03996"></a><span class="lineno"> 3996</span> };</div><div class="line"><a name="l03997"></a><span class="lineno"> 3997</span> </div><div class="line"><a name="l03998"></a><span class="lineno"> 3998</span> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2b24b25dc88d0bb76c8b6feca2ca67f4">rb_threadUpdateProc</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData));</div><div class="line"><a name="l03999"></a><span class="lineno"> 3999</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l04000"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a2b24b25dc88d0bb76c8b6feca2ca67f4"> 4000</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2b24b25dc88d0bb76c8b6feca2ca67f4">rb_threadUpdateProc</a>(clientData)</div><div class="line"><a name="l04001"></a><span class="lineno"> 4001</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div><div class="line"><a name="l04002"></a><span class="lineno"> 4002</span> {</div><div class="line"><a name="l04003"></a><span class="lineno"> 4003</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="l04004"></a><span class="lineno"> 4004</span> </div><div class="line"><a name="l04005"></a><span class="lineno"> 4005</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="l04006"></a><span class="lineno"> 4006</span>  param-><a class="code" href="../../dc/d68/structth__update__param.html#ac41d8c11b482906fbb9410cf37ed8181">done</a> = 1;</div><div class="line"><a name="l04007"></a><span class="lineno"> 4007</span>  <a class="code" href="../../db/d2e/intern_8h.html#a5ec55864056da2a01e4b87fde4c807b9">rb_thread_wakeup</a>(param-><a class="code" href="../../dc/d68/structth__update__param.html#a1c99d3d9f246be80f225ba4fc915bfb5">thread</a>);</div><div class="line"><a name="l04008"></a><span class="lineno"> 4008</span> </div><div class="line"><a name="l04009"></a><span class="lineno"> 4009</span>  <span class="keywordflow">return</span>;</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> </div><div class="line"><a name="l04012"></a><span class="lineno"> 4012</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04013"></a><span class="lineno"> 4013</span> <span class="keyword">static</span> <span class="keywordtype">int</span> ip_rb_threadUpdateObjCmd <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div><div class="line"><a name="l04014"></a><span class="lineno"> 4014</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> []));</div><div class="line"><a name="l04015"></a><span class="lineno"> 4015</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l04016"></a><span class="lineno"> 4016</span> ip_rb_threadUpdateObjCmd(clientData, interp, objc, objv)</div><div class="line"><a name="l04017"></a><span class="lineno"> 4017</span>  ClientData clientData;</div><div class="line"><a name="l04018"></a><span class="lineno"> 4018</span>  Tcl_Interp *interp;</div><div class="line"><a name="l04019"></a><span class="lineno"> 4019</span>  <span class="keywordtype">int</span> objc;</div><div class="line"><a name="l04020"></a><span class="lineno"> 4020</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> objv[];</div><div class="line"><a name="l04021"></a><span class="lineno"> 4021</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04022"></a><span class="lineno"> 4022</span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a302248e971b4839713a2a9f95c3aeb15">ip_rb_threadUpdateCommand</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div><div class="line"><a name="l04023"></a><span class="lineno"> 4023</span>  <span class="keywordtype">char</span> *[]));</div><div class="line"><a name="l04024"></a><span class="lineno"> 4024</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l04025"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a302248e971b4839713a2a9f95c3aeb15"> 4025</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a302248e971b4839713a2a9f95c3aeb15">ip_rb_threadUpdateCommand</a>(clientData, interp, objc, objv)</div><div class="line"><a name="l04026"></a><span class="lineno"> 4026</span>  ClientData clientData;</div><div class="line"><a name="l04027"></a><span class="lineno"> 4027</span>  Tcl_Interp *interp;</div><div class="line"><a name="l04028"></a><span class="lineno"> 4028</span>  <span class="keywordtype">int</span> objc;</div><div class="line"><a name="l04029"></a><span class="lineno"> 4029</span>  <span class="keywordtype">char</span> *objv[];</div><div class="line"><a name="l04030"></a><span class="lineno"> 4030</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04031"></a><span class="lineno"> 4031</span> {</div><div class="line"><a name="l04032"></a><span class="lineno"> 4032</span> <span class="preprocessor"># if 0</span></div><div class="line"><a name="l04033"></a><span class="lineno"> 4033</span>  <span class="keywordtype">int</span> flags = 0;</div><div class="line"><a name="l04034"></a><span class="lineno"> 4034</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l04035"></a><span class="lineno"> 4035</span>  <span class="keyword">struct </span><a class="code" href="../../dc/d68/structth__update__param.html">th_update_param</a> *param;</div><div class="line"><a name="l04036"></a><span class="lineno"> 4036</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="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>};</div><div class="line"><a name="l04037"></a><span class="lineno"> 4037</span>  <span class="keyword">enum</span> updateOptions {REGEXP_IDLETASKS};</div><div class="line"><a name="l04038"></a><span class="lineno"> 4038</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> current_thread = <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>();</div><div class="line"><a name="l04039"></a><span class="lineno"> 4039</span>  <span class="keyword">struct </span><a class="code" href="../../d1/d1b/structtimeval.html">timeval</a> <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>;</div><div class="line"><a name="l04040"></a><span class="lineno"> 4040</span> </div><div class="line"><a name="l04041"></a><span class="lineno"> 4041</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="l04042"></a><span class="lineno"> 4042</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l04043"></a><span class="lineno"> 4043</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l04044"></a><span class="lineno"> 4044</span>  <span class="stringliteral">"IP is deleted"</span>);</div><div class="line"><a name="l04045"></a><span class="lineno"> 4045</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l04046"></a><span class="lineno"> 4046</span>  }</div><div class="line"><a name="l04047"></a><span class="lineno"> 4047</span> <span class="preprocessor">#ifdef HAVE_NATIVETHREAD</span></div><div class="line"><a name="l04048"></a><span class="lineno"> 4048</span> <span class="preprocessor">#ifndef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l04049"></a><span class="lineno"> 4049</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="l04050"></a><span class="lineno"> 4050</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="l04051"></a><span class="lineno"> 4051</span>  }</div><div class="line"><a name="l04052"></a><span class="lineno"> 4052</span> <span class="preprocessor">#endif</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> </div><div class="line"><a name="l04055"></a><span class="lineno"> 4055</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="l04056"></a><span class="lineno"> 4056</span>  || <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>) || <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a> == current_thread) {</div><div class="line"><a name="l04057"></a><span class="lineno"> 4057</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04058"></a><span class="lineno"> 4058</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="l04059"></a><span class="lineno"> 4059</span>  <span class="keywordflow">return</span> ip_rbUpdateObjCmd(clientData, interp, objc, objv);</div><div class="line"><a name="l04060"></a><span class="lineno"> 4060</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04061"></a><span class="lineno"> 4061</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="l04062"></a><span class="lineno"> 4062</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6a4bf2b5a79b438ef4ba5e7a6495b05c">ip_rbUpdateCommand</a>(clientData, interp, objc, objv);</div><div class="line"><a name="l04063"></a><span class="lineno"> 4063</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04064"></a><span class="lineno"> 4064</span>  }</div><div class="line"><a name="l04065"></a><span class="lineno"> 4065</span> </div><div class="line"><a name="l04066"></a><span class="lineno"> 4066</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="l04067"></a><span class="lineno"> 4067</span> </div><div class="line"><a name="l04068"></a><span class="lineno"> 4068</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l04069"></a><span class="lineno"> 4069</span> </div><div class="line"><a name="l04070"></a><span class="lineno"> 4070</span>  <span class="keywordflow">if</span> (objc == 1) {</div><div class="line"><a name="l04071"></a><span class="lineno"> 4071</span> <span class="preprocessor"># if 0</span></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> <span class="preprocessor"># endif</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="keywordtype">int</span> optionIndex;</div><div class="line"><a name="l04077"></a><span class="lineno"> 4077</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="l04078"></a><span class="lineno"> 4078</span>  <span class="stringliteral">"option"</span>, 0, &optionIndex) != TCL_OK) {</div><div class="line"><a name="l04079"></a><span class="lineno"> 4079</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l04080"></a><span class="lineno"> 4080</span>  }</div><div class="line"><a name="l04081"></a><span class="lineno"> 4081</span>  <span class="keywordflow">switch</span> ((<span class="keyword">enum</span> updateOptions) optionIndex) {</div><div class="line"><a name="l04082"></a><span class="lineno"> 4082</span>  <span class="keywordflow">case</span> REGEXP_IDLETASKS: {</div><div class="line"><a name="l04083"></a><span class="lineno"> 4083</span> <span class="preprocessor"># if 0</span></div><div class="line"><a name="l04084"></a><span class="lineno"> 4084</span>  flags = TCL_IDLE_EVENTS;</div><div class="line"><a name="l04085"></a><span class="lineno"> 4085</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l04086"></a><span class="lineno"> 4086</span>  <span class="keywordflow">break</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>  <span class="keywordflow">default</span>: {</div><div class="line"><a name="l04089"></a><span class="lineno"> 4089</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="l04090"></a><span class="lineno"> 4090</span>  }</div><div class="line"><a name="l04091"></a><span class="lineno"> 4091</span>  }</div><div class="line"><a name="l04092"></a><span class="lineno"> 4092</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l04093"></a><span class="lineno"> 4093</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="l04094"></a><span class="lineno"> 4094</span>  Tcl_AppendResult(interp, <span class="stringliteral">"bad option \""</span>, objv[1],</div><div class="line"><a name="l04095"></a><span class="lineno"> 4095</span>  <span class="stringliteral">"\": must be idletasks"</span>, (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l04096"></a><span class="lineno"> 4096</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l04097"></a><span class="lineno"> 4097</span>  }</div><div class="line"><a name="l04098"></a><span class="lineno"> 4098</span> <span class="preprocessor"># if 0</span></div><div class="line"><a name="l04099"></a><span class="lineno"> 4099</span>  flags = TCL_IDLE_EVENTS;</div><div class="line"><a name="l04100"></a><span class="lineno"> 4100</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l04101"></a><span class="lineno"> 4101</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04102"></a><span class="lineno"> 4102</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l04103"></a><span class="lineno"> 4103</span> <span class="preprocessor">#ifdef Tcl_WrongNumArgs</span></div><div class="line"><a name="l04104"></a><span class="lineno"> 4104</span>  Tcl_WrongNumArgs(interp, 1, objv, <span class="stringliteral">"[ idletasks ]"</span>);</div><div class="line"><a name="l04105"></a><span class="lineno"> 4105</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l04106"></a><span class="lineno"> 4106</span> <span class="preprocessor"># if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04107"></a><span class="lineno"> 4107</span>  <span class="keywordtype">int</span> dummy;</div><div class="line"><a name="l04108"></a><span class="lineno"> 4108</span>  Tcl_AppendResult(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div><div class="line"><a name="l04109"></a><span class="lineno"> 4109</span>  Tcl_GetStringFromObj(objv[0], &dummy),</div><div class="line"><a name="l04110"></a><span class="lineno"> 4110</span>  <span class="stringliteral">" [ idletasks ]\""</span>,</div><div class="line"><a name="l04111"></a><span class="lineno"> 4111</span>  (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l04112"></a><span class="lineno"> 4112</span> <span class="preprocessor"># else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04113"></a><span class="lineno"> 4113</span>  Tcl_AppendResult(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div><div class="line"><a name="l04114"></a><span class="lineno"> 4114</span>  objv[0], <span class="stringliteral">" [ idletasks ]\""</span>, (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l04115"></a><span class="lineno"> 4115</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l04116"></a><span class="lineno"> 4116</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04117"></a><span class="lineno"> 4117</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l04118"></a><span class="lineno"> 4118</span>  }</div><div class="line"><a name="l04119"></a><span class="lineno"> 4119</span> </div><div class="line"><a name="l04120"></a><span class="lineno"> 4120</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="l04121"></a><span class="lineno"> 4121</span> </div><div class="line"><a name="l04122"></a><span class="lineno"> 4122</span>  <span class="comment">/* param = (struct th_update_param *)Tcl_Alloc(sizeof(struct th_update_param)); */</span></div><div class="line"><a name="l04123"></a><span class="lineno"> 4123</span>  param = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(<span class="keyword">struct</span> <a class="code" href="../../dc/d68/structth__update__param.html">th_update_param</a>, 1);</div><div class="line"><a name="l04124"></a><span class="lineno"> 4124</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="l04125"></a><span class="lineno"> 4125</span>  Tcl_Preserve((ClientData)param);</div><div class="line"><a name="l04126"></a><span class="lineno"> 4126</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04127"></a><span class="lineno"> 4127</span>  param->thread = current_thread;</div><div class="line"><a name="l04128"></a><span class="lineno"> 4128</span>  param->done = 0;</div><div class="line"><a name="l04129"></a><span class="lineno"> 4129</span> </div><div class="line"><a name="l04130"></a><span class="lineno"> 4130</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="l04131"></a><span class="lineno"> 4131</span>  Tcl_DoWhenIdle(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2b24b25dc88d0bb76c8b6feca2ca67f4">rb_threadUpdateProc</a>, (ClientData) param);</div><div class="line"><a name="l04132"></a><span class="lineno"> 4132</span> </div><div class="line"><a name="l04133"></a><span class="lineno"> 4133</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_sec = 0;</div><div class="line"><a name="l04134"></a><span class="lineno"> 4134</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_usec = (long)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd2530678e6262a587dd99dedeb053b">EVENT_HANDLER_TIMEOUT</a>)*1000.0);</div><div class="line"><a name="l04135"></a><span class="lineno"> 4135</span> </div><div class="line"><a name="l04136"></a><span class="lineno"> 4136</span>  <span class="keywordflow">while</span>(!param->done) {</div><div class="line"><a name="l04137"></a><span class="lineno"> 4137</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="l04138"></a><span class="lineno"> 4138</span>  <span class="comment">/* rb_thread_stop(); */</span></div><div class="line"><a name="l04139"></a><span class="lineno"> 4139</span>  <span class="comment">/* rb_thread_sleep_forever(); */</span></div><div class="line"><a name="l04140"></a><span class="lineno"> 4140</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0187a1eb4a4d01a4c9ef6b36b51faa6f">rb_thread_wait_for</a>(<a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>);</div><div class="line"><a name="l04141"></a><span class="lineno"> 4141</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#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)) {</div><div class="line"><a name="l04142"></a><span class="lineno"> 4142</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l04143"></a><span class="lineno"> 4143</span>  }</div><div class="line"><a name="l04144"></a><span class="lineno"> 4144</span>  }</div><div class="line"><a name="l04145"></a><span class="lineno"> 4145</span> </div><div class="line"><a name="l04146"></a><span class="lineno"> 4146</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l04147"></a><span class="lineno"> 4147</span>  Tcl_EventuallyFree((ClientData)param, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l04148"></a><span class="lineno"> 4148</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l04149"></a><span class="lineno"> 4149</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="l04150"></a><span class="lineno"> 4150</span>  Tcl_Release((ClientData)param);</div><div class="line"><a name="l04151"></a><span class="lineno"> 4151</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l04152"></a><span class="lineno"> 4152</span>  <span class="comment">/* Tcl_Free((char *)param); */</span></div><div class="line"><a name="l04153"></a><span class="lineno"> 4153</span>  ckfree((<span class="keywordtype">char</span> *)param);</div><div class="line"><a name="l04154"></a><span class="lineno"> 4154</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04155"></a><span class="lineno"> 4155</span> <span class="preprocessor">#endif</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>  <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="l04158"></a><span class="lineno"> 4158</span>  <span class="keywordflow">return</span> TCL_OK;</div><div class="line"><a name="l04159"></a><span class="lineno"> 4159</span> }</div><div class="line"><a name="l04160"></a><span class="lineno"> 4160</span> </div><div class="line"><a name="l04161"></a><span class="lineno"> 4161</span> </div><div class="line"><a name="l04162"></a><span class="lineno"> 4162</span> <span class="comment">/***************************/</span></div><div class="line"><a name="l04163"></a><span class="lineno"> 4163</span> <span class="comment">/* replace of vwait/tkwait */</span></div><div class="line"><a name="l04164"></a><span class="lineno"> 4164</span> <span class="comment">/***************************/</span></div><div class="line"><a name="l04165"></a><span class="lineno"> 4165</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04166"></a><span class="lineno"> 4166</span> <span class="keyword">static</span> <span class="keywordtype">int</span> ip_rbVwaitObjCmd <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div><div class="line"><a name="l04167"></a><span class="lineno"> 4167</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> []));</div><div class="line"><a name="l04168"></a><span class="lineno"> 4168</span> <span class="keyword">static</span> <span class="keywordtype">int</span> ip_rb_threadVwaitObjCmd <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div><div class="line"><a name="l04169"></a><span class="lineno"> 4169</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> []));</div><div class="line"><a name="l04170"></a><span class="lineno"> 4170</span> <span class="keyword">static</span> <span class="keywordtype">int</span> ip_rbTkWaitObjCmd <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div><div class="line"><a name="l04171"></a><span class="lineno"> 4171</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> []));</div><div class="line"><a name="l04172"></a><span class="lineno"> 4172</span> <span class="keyword">static</span> <span class="keywordtype">int</span> ip_rb_threadTkWaitObjCmd <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div><div class="line"><a name="l04173"></a><span class="lineno"> 4173</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> []));</div><div class="line"><a name="l04174"></a><span class="lineno"> 4174</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l04175"></a><span class="lineno"> 4175</span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a723e68c456dbef62ddda9c3aed60c548">ip_rbVwaitCommand</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>, <span class="keywordtype">char</span> *[]));</div><div class="line"><a name="l04176"></a><span class="lineno"> 4176</span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a58f3a974e555518cd87217db5273de57">ip_rb_threadVwaitCommand</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div><div class="line"><a name="l04177"></a><span class="lineno"> 4177</span>  <span class="keywordtype">char</span> *[]));</div><div class="line"><a name="l04178"></a><span class="lineno"> 4178</span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#afc2f1f2ea51cf8f475b7075cf1052bd9">ip_rbTkWaitCommand</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>, <span class="keywordtype">char</span> *[]));</div><div class="line"><a name="l04179"></a><span class="lineno"> 4179</span> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a34a4e30596fa823b890b12d95811cad6">ip_rb_threadTkWaitCommand</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div><div class="line"><a name="l04180"></a><span class="lineno"> 4180</span>  <span class="keywordtype">char</span> *[]));</div><div class="line"><a name="l04181"></a><span class="lineno"> 4181</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04182"></a><span class="lineno"> 4182</span> </div><div class="line"><a name="l04183"></a><span class="lineno"> 4183</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04184"></a><span class="lineno"> 4184</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a446cc9f4e8ae143fbbbb835a0cd3af23">VwaitVarProc</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *,</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> *,<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="l04186"></a><span class="lineno"> 4186</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *</div><div class="line"><a name="l04187"></a><span class="lineno"> 4187</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a446cc9f4e8ae143fbbbb835a0cd3af23">VwaitVarProc</a>(clientData, interp, name1, name2, flags)</div><div class="line"><a name="l04188"></a><span class="lineno"> 4188</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div><div class="line"><a name="l04189"></a><span class="lineno"> 4189</span>  Tcl_Interp *interp; <span class="comment">/* Interpreter containing variable. */</span></div><div class="line"><a name="l04190"></a><span class="lineno"> 4190</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="l04191"></a><span class="lineno"> 4191</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="l04192"></a><span class="lineno"> 4192</span>  <span class="keywordtype">int</span> flags; <span class="comment">/* Information about what happened. */</span></div><div class="line"><a name="l04193"></a><span class="lineno"> 4193</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04194"></a><span class="lineno"> 4194</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a446cc9f4e8ae143fbbbb835a0cd3af23">VwaitVarProc</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</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="l04195"></a><span class="lineno"> 4195</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *</div><div class="line"><a name="l04196"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a446cc9f4e8ae143fbbbb835a0cd3af23"> 4196</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a446cc9f4e8ae143fbbbb835a0cd3af23">VwaitVarProc</a>(clientData, interp, name1, name2, flags)</div><div class="line"><a name="l04197"></a><span class="lineno"> 4197</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div><div class="line"><a name="l04198"></a><span class="lineno"> 4198</span>  Tcl_Interp *interp; <span class="comment">/* Interpreter containing variable. */</span></div><div class="line"><a name="l04199"></a><span class="lineno"> 4199</span>  <span class="keywordtype">char</span> *name1; <span class="comment">/* Name of variable. */</span></div><div class="line"><a name="l04200"></a><span class="lineno"> 4200</span>  <span class="keywordtype">char</span> *name2; <span class="comment">/* Second part of variable name. */</span></div><div class="line"><a name="l04201"></a><span class="lineno"> 4201</span>  <span class="keywordtype">int</span> flags; <span class="comment">/* Information about what happened. */</span></div><div class="line"><a name="l04202"></a><span class="lineno"> 4202</span> <span class="preprocessor">#endif</span></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>  <span class="keywordtype">int</span> *donePtr = (<span class="keywordtype">int</span> *) clientData;</div><div class="line"><a name="l04205"></a><span class="lineno"> 4205</span> </div><div class="line"><a name="l04206"></a><span class="lineno"> 4206</span>  *donePtr = 1;</div><div class="line"><a name="l04207"></a><span class="lineno"> 4207</span>  <span class="keywordflow">return</span> (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l04208"></a><span class="lineno"> 4208</span> }</div><div class="line"><a name="l04209"></a><span class="lineno"> 4209</span> </div><div class="line"><a name="l04210"></a><span class="lineno"> 4210</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04211"></a><span class="lineno"> 4211</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l04212"></a><span class="lineno"> 4212</span> ip_rbVwaitObjCmd(clientData, interp, objc, objv)</div><div class="line"><a name="l04213"></a><span class="lineno"> 4213</span>  ClientData clientData; <span class="comment">/* Not used */</span></div><div class="line"><a name="l04214"></a><span class="lineno"> 4214</span>  Tcl_Interp *interp;</div><div class="line"><a name="l04215"></a><span class="lineno"> 4215</span>  <span class="keywordtype">int</span> objc;</div><div class="line"><a name="l04216"></a><span class="lineno"> 4216</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> objv[];</div><div class="line"><a name="l04217"></a><span class="lineno"> 4217</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04218"></a><span class="lineno"> 4218</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l04219"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a723e68c456dbef62ddda9c3aed60c548"> 4219</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a723e68c456dbef62ddda9c3aed60c548">ip_rbVwaitCommand</a>(clientData, interp, objc, objv)</div><div class="line"><a name="l04220"></a><span class="lineno"> 4220</span>  ClientData clientData; <span class="comment">/* Not used */</span></div><div class="line"><a name="l04221"></a><span class="lineno"> 4221</span>  Tcl_Interp *interp;</div><div class="line"><a name="l04222"></a><span class="lineno"> 4222</span>  <span class="keywordtype">int</span> objc;</div><div class="line"><a name="l04223"></a><span class="lineno"> 4223</span>  <span class="keywordtype">char</span> *objv[];</div><div class="line"><a name="l04224"></a><span class="lineno"> 4224</span> <span class="preprocessor">#endif</span></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>  <span class="keywordtype">int</span> ret, done, foundEvent;</div><div class="line"><a name="l04227"></a><span class="lineno"> 4227</span>  <span class="keywordtype">char</span> *nameString;</div><div class="line"><a name="l04228"></a><span class="lineno"> 4228</span>  <span class="keywordtype">int</span> dummy;</div><div class="line"><a name="l04229"></a><span class="lineno"> 4229</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l04230"></a><span class="lineno"> 4230</span> </div><div class="line"><a name="l04231"></a><span class="lineno"> 4231</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="l04232"></a><span class="lineno"> 4232</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l04233"></a><span class="lineno"> 4233</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l04234"></a><span class="lineno"> 4234</span>  <span class="stringliteral">"IP is deleted"</span>);</div><div class="line"><a name="l04235"></a><span class="lineno"> 4235</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l04236"></a><span class="lineno"> 4236</span>  }</div><div class="line"><a name="l04237"></a><span class="lineno"> 4237</span> </div><div class="line"><a name="l04238"></a><span class="lineno"> 4238</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l04239"></a><span class="lineno"> 4239</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="l04240"></a><span class="lineno"> 4240</span>  && <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a> != <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a></div><div class="line"><a name="l04241"></a><span class="lineno"> 4241</span>  && <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a> != <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>()) {</div><div class="line"><a name="l04242"></a><span class="lineno"> 4242</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04243"></a><span class="lineno"> 4243</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="l04244"></a><span class="lineno"> 4244</span>  <span class="keywordflow">return</span> ip_rb_threadVwaitObjCmd(clientData, interp, objc, objv);</div><div class="line"><a name="l04245"></a><span class="lineno"> 4245</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04246"></a><span class="lineno"> 4246</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="l04247"></a><span class="lineno"> 4247</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a58f3a974e555518cd87217db5273de57">ip_rb_threadVwaitCommand</a>(clientData, interp, objc, objv);</div><div class="line"><a name="l04248"></a><span class="lineno"> 4248</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04249"></a><span class="lineno"> 4249</span>  }</div><div class="line"><a name="l04250"></a><span class="lineno"> 4250</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04251"></a><span class="lineno"> 4251</span> </div><div class="line"><a name="l04252"></a><span class="lineno"> 4252</span>  Tcl_Preserve(interp);</div><div class="line"><a name="l04253"></a><span class="lineno"> 4253</span> <span class="preprocessor">#ifdef HAVE_NATIVETHREAD</span></div><div class="line"><a name="l04254"></a><span class="lineno"> 4254</span> <span class="preprocessor">#ifndef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l04255"></a><span class="lineno"> 4255</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="l04256"></a><span class="lineno"> 4256</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="l04257"></a><span class="lineno"> 4257</span>  }</div><div class="line"><a name="l04258"></a><span class="lineno"> 4258</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04259"></a><span class="lineno"> 4259</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04260"></a><span class="lineno"> 4260</span> </div><div class="line"><a name="l04261"></a><span class="lineno"> 4261</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l04262"></a><span class="lineno"> 4262</span> </div><div class="line"><a name="l04263"></a><span class="lineno"> 4263</span>  <span class="keywordflow">if</span> (objc != 2) {</div><div class="line"><a name="l04264"></a><span class="lineno"> 4264</span> <span class="preprocessor">#ifdef Tcl_WrongNumArgs</span></div><div class="line"><a name="l04265"></a><span class="lineno"> 4265</span>  Tcl_WrongNumArgs(interp, 1, objv, <span class="stringliteral">"name"</span>);</div><div class="line"><a name="l04266"></a><span class="lineno"> 4266</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l04267"></a><span class="lineno"> 4267</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l04268"></a><span class="lineno"> 4268</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l04269"></a><span class="lineno"> 4269</span> </div><div class="line"><a name="l04270"></a><span class="lineno"> 4270</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04271"></a><span class="lineno"> 4271</span>  <span class="comment">/* nameString = Tcl_GetString(objv[0]); */</span></div><div class="line"><a name="l04272"></a><span class="lineno"> 4272</span>  nameString = Tcl_GetStringFromObj(objv[0], &dummy);</div><div class="line"><a name="l04273"></a><span class="lineno"> 4273</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04274"></a><span class="lineno"> 4274</span>  nameString = objv[0];</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>  Tcl_AppendResult(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div><div class="line"><a name="l04277"></a><span class="lineno"> 4277</span>  nameString, <span class="stringliteral">" name\""</span>, (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l04278"></a><span class="lineno"> 4278</span> </div><div class="line"><a name="l04279"></a><span class="lineno"> 4279</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l04280"></a><span class="lineno"> 4280</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04281"></a><span class="lineno"> 4281</span> </div><div class="line"><a name="l04282"></a><span class="lineno"> 4282</span>  Tcl_Release(interp);</div><div class="line"><a name="l04283"></a><span class="lineno"> 4283</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l04284"></a><span class="lineno"> 4284</span>  }</div><div class="line"><a name="l04285"></a><span class="lineno"> 4285</span> </div><div class="line"><a name="l04286"></a><span class="lineno"> 4286</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l04287"></a><span class="lineno"> 4287</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l04288"></a><span class="lineno"> 4288</span> </div><div class="line"><a name="l04289"></a><span class="lineno"> 4289</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04290"></a><span class="lineno"> 4290</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(objv[1]);</div><div class="line"><a name="l04291"></a><span class="lineno"> 4291</span>  <span class="comment">/* nameString = Tcl_GetString(objv[1]); */</span></div><div class="line"><a name="l04292"></a><span class="lineno"> 4292</span>  nameString = Tcl_GetStringFromObj(objv[1], &dummy);</div><div class="line"><a name="l04293"></a><span class="lineno"> 4293</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04294"></a><span class="lineno"> 4294</span>  nameString = objv[1];</div><div class="line"><a name="l04295"></a><span class="lineno"> 4295</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04296"></a><span class="lineno"> 4296</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"> if (Tcl_TraceVar(interp, nameString,</span></div><div class="line"><a name="l04299"></a><span class="lineno"> 4299</span> <span class="comment"> TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</span></div><div class="line"><a name="l04300"></a><span class="lineno"> 4300</span> <span class="comment"> VwaitVarProc, (ClientData) &done) != TCL_OK) {</span></div><div class="line"><a name="l04301"></a><span class="lineno"> 4301</span> <span class="comment"> return TCL_ERROR;</span></div><div class="line"><a name="l04302"></a><span class="lineno"> 4302</span> <span class="comment"> }</span></div><div class="line"><a name="l04303"></a><span class="lineno"> 4303</span> <span class="comment"> */</span></div><div class="line"><a name="l04304"></a><span class="lineno"> 4304</span>  ret = Tcl_TraceVar(interp, nameString,</div><div class="line"><a name="l04305"></a><span class="lineno"> 4305</span>  TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</div><div class="line"><a name="l04306"></a><span class="lineno"> 4306</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a446cc9f4e8ae143fbbbb835a0cd3af23">VwaitVarProc</a>, (ClientData) &done);</div><div class="line"><a name="l04307"></a><span class="lineno"> 4307</span> </div><div class="line"><a name="l04308"></a><span class="lineno"> 4308</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l04309"></a><span class="lineno"> 4309</span> </div><div class="line"><a name="l04310"></a><span class="lineno"> 4310</span>  <span class="keywordflow">if</span> (ret != TCL_OK) {</div><div class="line"><a name="l04311"></a><span class="lineno"> 4311</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04312"></a><span class="lineno"> 4312</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[1]);</div><div class="line"><a name="l04313"></a><span class="lineno"> 4313</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04314"></a><span class="lineno"> 4314</span>  Tcl_Release(interp);</div><div class="line"><a name="l04315"></a><span class="lineno"> 4315</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l04316"></a><span class="lineno"> 4316</span>  }</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>  done = 0;</div><div class="line"><a name="l04319"></a><span class="lineno"> 4319</span> </div><div class="line"><a name="l04320"></a><span class="lineno"> 4320</span>  foundEvent = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aed5576b12eec97d8314b7aae8903d64b">lib_eventloop_launcher</a>(<span class="comment">/* not check root-widget */</span>0,</div><div class="line"><a name="l04321"></a><span class="lineno"> 4321</span>  0, &done, interp));</div><div class="line"><a name="l04322"></a><span class="lineno"> 4322</span> </div><div class="line"><a name="l04323"></a><span class="lineno"> 4323</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l04324"></a><span class="lineno"> 4324</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l04325"></a><span class="lineno"> 4325</span> </div><div class="line"><a name="l04326"></a><span class="lineno"> 4326</span>  Tcl_UntraceVar(interp, nameString,</div><div class="line"><a name="l04327"></a><span class="lineno"> 4327</span>  TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</div><div class="line"><a name="l04328"></a><span class="lineno"> 4328</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a446cc9f4e8ae143fbbbb835a0cd3af23">VwaitVarProc</a>, (ClientData) &done);</div><div class="line"><a name="l04329"></a><span class="lineno"> 4329</span> </div><div class="line"><a name="l04330"></a><span class="lineno"> 4330</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l04331"></a><span class="lineno"> 4331</span> </div><div class="line"><a name="l04332"></a><span class="lineno"> 4332</span>  <span class="comment">/* exception check */</span></div><div class="line"><a name="l04333"></a><span class="lineno"> 4333</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>)) {</div><div class="line"><a name="l04334"></a><span class="lineno"> 4334</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04335"></a><span class="lineno"> 4335</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[1]);</div><div class="line"><a name="l04336"></a><span class="lineno"> 4336</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04337"></a><span class="lineno"> 4337</span>  Tcl_Release(interp);</div><div class="line"><a name="l04338"></a><span class="lineno"> 4338</span> </div><div class="line"><a name="l04339"></a><span class="lineno"> 4339</span> <span class="comment">/*</span></div><div class="line"><a name="l04340"></a><span class="lineno"> 4340</span> <span class="comment"> if (rb_obj_is_kind_of(rbtk_pending_exception, rb_eSystemExit)) {</span></div><div class="line"><a name="l04341"></a><span class="lineno"> 4341</span> <span class="comment">*/</span></div><div class="line"><a name="l04342"></a><span class="lineno"> 4342</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a34c7841e8f21712bc79d7bd6f64483b3">rb_eSystemExit</a>)</div><div class="line"><a name="l04343"></a><span class="lineno"> 4343</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a8378eac5be044398a53aca753116817b">rb_eInterrupt</a>)) {</div><div class="line"><a name="l04344"></a><span class="lineno"> 4344</span>  <span class="keywordflow">return</span> TCL_RETURN;</div><div class="line"><a name="l04345"></a><span class="lineno"> 4345</span>  } <span class="keywordflow">else</span>{</div><div class="line"><a name="l04346"></a><span class="lineno"> 4346</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l04347"></a><span class="lineno"> 4347</span>  }</div><div class="line"><a name="l04348"></a><span class="lineno"> 4348</span>  }</div><div class="line"><a name="l04349"></a><span class="lineno"> 4349</span> </div><div class="line"><a name="l04350"></a><span class="lineno"> 4350</span>  <span class="comment">/* trap check */</span></div><div class="line"><a name="l04351"></a><span class="lineno"> 4351</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a41e6a95a134b13d63c516923d0a66f91">rb_thread_check_trap_pending</a>()) {</div><div class="line"><a name="l04352"></a><span class="lineno"> 4352</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04353"></a><span class="lineno"> 4353</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[1]);</div><div class="line"><a name="l04354"></a><span class="lineno"> 4354</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04355"></a><span class="lineno"> 4355</span>  Tcl_Release(interp);</div><div class="line"><a name="l04356"></a><span class="lineno"> 4356</span> </div><div class="line"><a name="l04357"></a><span class="lineno"> 4357</span>  <span class="keywordflow">return</span> TCL_RETURN;</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> </div><div class="line"><a name="l04360"></a><span class="lineno"> 4360</span>  <span class="comment">/*</span></div><div class="line"><a name="l04361"></a><span class="lineno"> 4361</span> <span class="comment"> * Clear out the interpreter's result, since it may have been set</span></div><div class="line"><a name="l04362"></a><span class="lineno"> 4362</span> <span class="comment"> * by event handlers.</span></div><div class="line"><a name="l04363"></a><span class="lineno"> 4363</span> <span class="comment"> */</span></div><div class="line"><a name="l04364"></a><span class="lineno"> 4364</span> </div><div class="line"><a name="l04365"></a><span class="lineno"> 4365</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l04366"></a><span class="lineno"> 4366</span>  <span class="keywordflow">if</span> (!foundEvent) {</div><div class="line"><a name="l04367"></a><span class="lineno"> 4367</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l04368"></a><span class="lineno"> 4368</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l04369"></a><span class="lineno"> 4369</span> </div><div class="line"><a name="l04370"></a><span class="lineno"> 4370</span>  Tcl_AppendResult(interp, <span class="stringliteral">"can't wait for variable \""</span>, nameString,</div><div class="line"><a name="l04371"></a><span class="lineno"> 4371</span>  <span class="stringliteral">"\": would wait forever"</span>, (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l04372"></a><span class="lineno"> 4372</span> </div><div class="line"><a name="l04373"></a><span class="lineno"> 4373</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l04374"></a><span class="lineno"> 4374</span> </div><div class="line"><a name="l04375"></a><span class="lineno"> 4375</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04376"></a><span class="lineno"> 4376</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[1]);</div><div class="line"><a name="l04377"></a><span class="lineno"> 4377</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04378"></a><span class="lineno"> 4378</span>  Tcl_Release(interp);</div><div class="line"><a name="l04379"></a><span class="lineno"> 4379</span>  <span class="keywordflow">return</span> TCL_ERROR;</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> </div><div class="line"><a name="l04382"></a><span class="lineno"> 4382</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04383"></a><span class="lineno"> 4383</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[1]);</div><div class="line"><a name="l04384"></a><span class="lineno"> 4384</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04385"></a><span class="lineno"> 4385</span>  Tcl_Release(interp);</div><div class="line"><a name="l04386"></a><span class="lineno"> 4386</span>  <span class="keywordflow">return</span> TCL_OK;</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> </div><div class="line"><a name="l04390"></a><span class="lineno"> 4390</span> <span class="comment">/**************************/</span></div><div class="line"><a name="l04391"></a><span class="lineno"> 4391</span> <span class="comment">/* based on tkCmd.c */</span></div><div class="line"><a name="l04392"></a><span class="lineno"> 4392</span> <span class="comment">/**************************/</span></div><div class="line"><a name="l04393"></a><span class="lineno"> 4393</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04394"></a><span class="lineno"> 4394</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a16e54a52941869f32517fc7f0e438513">WaitVariableProc</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *,</div><div class="line"><a name="l04395"></a><span class="lineno"> 4395</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="l04396"></a><span class="lineno"> 4396</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *</div><div class="line"><a name="l04397"></a><span class="lineno"> 4397</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a16e54a52941869f32517fc7f0e438513">WaitVariableProc</a>(clientData, interp, name1, name2, flags)</div><div class="line"><a name="l04398"></a><span class="lineno"> 4398</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div><div class="line"><a name="l04399"></a><span class="lineno"> 4399</span>  Tcl_Interp *interp; <span class="comment">/* Interpreter containing 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> *name1; <span class="comment">/* Name of variable. */</span></div><div class="line"><a name="l04401"></a><span class="lineno"> 4401</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="l04402"></a><span class="lineno"> 4402</span>  <span class="keywordtype">int</span> flags; <span class="comment">/* Information about what happened. */</span></div><div class="line"><a name="l04403"></a><span class="lineno"> 4403</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04404"></a><span class="lineno"> 4404</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a16e54a52941869f32517fc7f0e438513">WaitVariableProc</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *,</div><div class="line"><a name="l04405"></a><span class="lineno"> 4405</span>  <span class="keywordtype">char</span> *, <span class="keywordtype">char</span> *, <span class="keywordtype">int</span>));</div><div class="line"><a name="l04406"></a><span class="lineno"> 4406</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *</div><div class="line"><a name="l04407"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a16e54a52941869f32517fc7f0e438513"> 4407</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a16e54a52941869f32517fc7f0e438513">WaitVariableProc</a>(clientData, interp, name1, name2, flags)</div><div class="line"><a name="l04408"></a><span class="lineno"> 4408</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div><div class="line"><a name="l04409"></a><span class="lineno"> 4409</span>  Tcl_Interp *interp; <span class="comment">/* Interpreter containing variable. */</span></div><div class="line"><a name="l04410"></a><span class="lineno"> 4410</span>  <span class="keywordtype">char</span> *name1; <span class="comment">/* Name of variable. */</span></div><div class="line"><a name="l04411"></a><span class="lineno"> 4411</span>  <span class="keywordtype">char</span> *name2; <span class="comment">/* Second part of variable name. */</span></div><div class="line"><a name="l04412"></a><span class="lineno"> 4412</span>  <span class="keywordtype">int</span> flags; <span class="comment">/* Information about what happened. */</span></div><div class="line"><a name="l04413"></a><span class="lineno"> 4413</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04414"></a><span class="lineno"> 4414</span> {</div><div class="line"><a name="l04415"></a><span class="lineno"> 4415</span>  <span class="keywordtype">int</span> *donePtr = (<span class="keywordtype">int</span> *) clientData;</div><div class="line"><a name="l04416"></a><span class="lineno"> 4416</span> </div><div class="line"><a name="l04417"></a><span class="lineno"> 4417</span>  *donePtr = 1;</div><div class="line"><a name="l04418"></a><span class="lineno"> 4418</span>  <span class="keywordflow">return</span> (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</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> </div><div class="line"><a name="l04421"></a><span class="lineno"> 4421</span> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a16ec218b5beacb3a41f577d7e4982f34">WaitVisibilityProc</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, XEvent *));</div><div class="line"><a name="l04422"></a><span class="lineno"> 4422</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l04423"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a16ec218b5beacb3a41f577d7e4982f34"> 4423</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a16ec218b5beacb3a41f577d7e4982f34">WaitVisibilityProc</a>(clientData, eventPtr)</div><div class="line"><a name="l04424"></a><span class="lineno"> 4424</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div><div class="line"><a name="l04425"></a><span class="lineno"> 4425</span>  XEvent *eventPtr; <span class="comment">/* Information about event (not used). */</span></div><div class="line"><a name="l04426"></a><span class="lineno"> 4426</span> {</div><div class="line"><a name="l04427"></a><span class="lineno"> 4427</span>  <span class="keywordtype">int</span> *donePtr = (<span class="keywordtype">int</span> *) clientData;</div><div class="line"><a name="l04428"></a><span class="lineno"> 4428</span> </div><div class="line"><a name="l04429"></a><span class="lineno"> 4429</span>  <span class="keywordflow">if</span> (eventPtr->type == VisibilityNotify) {</div><div class="line"><a name="l04430"></a><span class="lineno"> 4430</span>  *donePtr = 1;</div><div class="line"><a name="l04431"></a><span class="lineno"> 4431</span>  }</div><div class="line"><a name="l04432"></a><span class="lineno"> 4432</span>  <span class="keywordflow">if</span> (eventPtr->type == DestroyNotify) {</div><div class="line"><a name="l04433"></a><span class="lineno"> 4433</span>  *donePtr = 2;</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> </div><div class="line"><a name="l04437"></a><span class="lineno"> 4437</span> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a306f46e41cb264c3e0247760b6fd1a8d">WaitWindowProc</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, XEvent *));</div><div class="line"><a name="l04438"></a><span class="lineno"> 4438</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l04439"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a306f46e41cb264c3e0247760b6fd1a8d"> 4439</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a306f46e41cb264c3e0247760b6fd1a8d">WaitWindowProc</a>(clientData, eventPtr)</div><div class="line"><a name="l04440"></a><span class="lineno"> 4440</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div><div class="line"><a name="l04441"></a><span class="lineno"> 4441</span>  XEvent *eventPtr; <span class="comment">/* Information about event. */</span></div><div class="line"><a name="l04442"></a><span class="lineno"> 4442</span> {</div><div class="line"><a name="l04443"></a><span class="lineno"> 4443</span>  <span class="keywordtype">int</span> *donePtr = (<span class="keywordtype">int</span> *) clientData;</div><div class="line"><a name="l04444"></a><span class="lineno"> 4444</span> </div><div class="line"><a name="l04445"></a><span class="lineno"> 4445</span>  <span class="keywordflow">if</span> (eventPtr->type == DestroyNotify) {</div><div class="line"><a name="l04446"></a><span class="lineno"> 4446</span>  *donePtr = 1;</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> </div><div class="line"><a name="l04450"></a><span class="lineno"> 4450</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04451"></a><span class="lineno"> 4451</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l04452"></a><span class="lineno"> 4452</span> ip_rbTkWaitObjCmd(clientData, interp, objc, objv)</div><div class="line"><a name="l04453"></a><span class="lineno"> 4453</span>  ClientData clientData;</div><div class="line"><a name="l04454"></a><span class="lineno"> 4454</span>  Tcl_Interp *interp;</div><div class="line"><a name="l04455"></a><span class="lineno"> 4455</span>  <span class="keywordtype">int</span> objc;</div><div class="line"><a name="l04456"></a><span class="lineno"> 4456</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> objv[];</div><div class="line"><a name="l04457"></a><span class="lineno"> 4457</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04458"></a><span class="lineno"> 4458</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l04459"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#afc2f1f2ea51cf8f475b7075cf1052bd9"> 4459</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#afc2f1f2ea51cf8f475b7075cf1052bd9">ip_rbTkWaitCommand</a>(clientData, interp, objc, objv)</div><div class="line"><a name="l04460"></a><span class="lineno"> 4460</span>  ClientData clientData;</div><div class="line"><a name="l04461"></a><span class="lineno"> 4461</span>  Tcl_Interp *interp;</div><div class="line"><a name="l04462"></a><span class="lineno"> 4462</span>  <span class="keywordtype">int</span> objc;</div><div class="line"><a name="l04463"></a><span class="lineno"> 4463</span>  <span class="keywordtype">char</span> *objv[];</div><div class="line"><a name="l04464"></a><span class="lineno"> 4464</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04465"></a><span class="lineno"> 4465</span> {</div><div class="line"><a name="l04466"></a><span class="lineno"> 4466</span>  Tk_Window tkwin = (Tk_Window) clientData;</div><div class="line"><a name="l04467"></a><span class="lineno"> 4467</span>  Tk_Window window;</div><div class="line"><a name="l04468"></a><span class="lineno"> 4468</span>  <span class="keywordtype">int</span> done, index;</div><div class="line"><a name="l04469"></a><span class="lineno"> 4469</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="l04470"></a><span class="lineno"> 4470</span>  (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a> };</div><div class="line"><a name="l04471"></a><span class="lineno"> 4471</span>  <span class="keyword">enum</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ad2d8a938168dc85041b2bac532a7cf75">options</a> { TKWAIT_VARIABLE, TKWAIT_VISIBILITY, TKWAIT_WINDOW };</div><div class="line"><a name="l04472"></a><span class="lineno"> 4472</span>  <span class="keywordtype">char</span> *nameString;</div><div class="line"><a name="l04473"></a><span class="lineno"> 4473</span>  <span class="keywordtype">int</span> ret, dummy;</div><div class="line"><a name="l04474"></a><span class="lineno"> 4474</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l04475"></a><span class="lineno"> 4475</span> </div><div class="line"><a name="l04476"></a><span class="lineno"> 4476</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="l04477"></a><span class="lineno"> 4477</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l04478"></a><span class="lineno"> 4478</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l04479"></a><span class="lineno"> 4479</span>  <span class="stringliteral">"IP is deleted"</span>);</div><div class="line"><a name="l04480"></a><span class="lineno"> 4480</span>  <span class="keywordflow">return</span> TCL_ERROR;</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> </div><div class="line"><a name="l04483"></a><span class="lineno"> 4483</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l04484"></a><span class="lineno"> 4484</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="l04485"></a><span class="lineno"> 4485</span>  && <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a> != <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a></div><div class="line"><a name="l04486"></a><span class="lineno"> 4486</span>  && <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a> != <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>()) {</div><div class="line"><a name="l04487"></a><span class="lineno"> 4487</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04488"></a><span class="lineno"> 4488</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="l04489"></a><span class="lineno"> 4489</span>  <span class="keywordflow">return</span> ip_rb_threadTkWaitObjCmd((ClientData)tkwin, interp, objc, objv);</div><div class="line"><a name="l04490"></a><span class="lineno"> 4490</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04491"></a><span class="lineno"> 4491</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="l04492"></a><span class="lineno"> 4492</span>  <span class="keywordflow">return</span> ip_rb_threadTkWwaitCommand((ClientData)tkwin, interp, objc, objv);</div><div class="line"><a name="l04493"></a><span class="lineno"> 4493</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04494"></a><span class="lineno"> 4494</span>  }</div><div class="line"><a name="l04495"></a><span class="lineno"> 4495</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04496"></a><span class="lineno"> 4496</span> </div><div class="line"><a name="l04497"></a><span class="lineno"> 4497</span>  Tcl_Preserve(interp);</div><div class="line"><a name="l04498"></a><span class="lineno"> 4498</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l04499"></a><span class="lineno"> 4499</span> </div><div class="line"><a name="l04500"></a><span class="lineno"> 4500</span>  <span class="keywordflow">if</span> (objc != 3) {</div><div class="line"><a name="l04501"></a><span class="lineno"> 4501</span> <span class="preprocessor">#ifdef Tcl_WrongNumArgs</span></div><div class="line"><a name="l04502"></a><span class="lineno"> 4502</span>  Tcl_WrongNumArgs(interp, 1, objv, <span class="stringliteral">"variable|visibility|window name"</span>);</div><div class="line"><a name="l04503"></a><span class="lineno"> 4503</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l04504"></a><span class="lineno"> 4504</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l04505"></a><span class="lineno"> 4505</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l04506"></a><span class="lineno"> 4506</span> </div><div class="line"><a name="l04507"></a><span class="lineno"> 4507</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04508"></a><span class="lineno"> 4508</span>  Tcl_AppendResult(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div><div class="line"><a name="l04509"></a><span class="lineno"> 4509</span>  Tcl_GetStringFromObj(objv[0], &dummy),</div><div class="line"><a name="l04510"></a><span class="lineno"> 4510</span>  <span class="stringliteral">" variable|visibility|window name\""</span>,</div><div class="line"><a name="l04511"></a><span class="lineno"> 4511</span>  (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l04512"></a><span class="lineno"> 4512</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04513"></a><span class="lineno"> 4513</span>  Tcl_AppendResult(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div><div class="line"><a name="l04514"></a><span class="lineno"> 4514</span>  objv[0], <span class="stringliteral">" variable|visibility|window name\""</span>,</div><div class="line"><a name="l04515"></a><span class="lineno"> 4515</span>  (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l04516"></a><span class="lineno"> 4516</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04517"></a><span class="lineno"> 4517</span> </div><div class="line"><a name="l04518"></a><span class="lineno"> 4518</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l04519"></a><span class="lineno"> 4519</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04520"></a><span class="lineno"> 4520</span> </div><div class="line"><a name="l04521"></a><span class="lineno"> 4521</span>  Tcl_Release(interp);</div><div class="line"><a name="l04522"></a><span class="lineno"> 4522</span>  <span class="keywordflow">return</span> TCL_ERROR;</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> </div><div class="line"><a name="l04525"></a><span class="lineno"> 4525</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04526"></a><span class="lineno"> 4526</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l04527"></a><span class="lineno"> 4527</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l04528"></a><span class="lineno"> 4528</span> </div><div class="line"><a name="l04529"></a><span class="lineno"> 4529</span>  <span class="comment">/*</span></div><div class="line"><a name="l04530"></a><span class="lineno"> 4530</span> <span class="comment"> if (Tcl_GetIndexFromObj(interp, objv[1],</span></div><div class="line"><a name="l04531"></a><span class="lineno"> 4531</span> <span class="comment"> (CONST84 char **)optionStrings,</span></div><div class="line"><a name="l04532"></a><span class="lineno"> 4532</span> <span class="comment"> "option", 0, &index) != TCL_OK) {</span></div><div class="line"><a name="l04533"></a><span class="lineno"> 4533</span> <span class="comment"> return TCL_ERROR;</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> <span class="comment"> */</span></div><div class="line"><a name="l04536"></a><span class="lineno"> 4536</span>  ret = Tcl_GetIndexFromObj(interp, objv[1],</div><div class="line"><a name="l04537"></a><span class="lineno"> 4537</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="l04538"></a><span class="lineno"> 4538</span>  <span class="stringliteral">"option"</span>, 0, &index);</div><div class="line"><a name="l04539"></a><span class="lineno"> 4539</span> </div><div class="line"><a name="l04540"></a><span class="lineno"> 4540</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l04541"></a><span class="lineno"> 4541</span> </div><div class="line"><a name="l04542"></a><span class="lineno"> 4542</span>  <span class="keywordflow">if</span> (ret != TCL_OK) {</div><div class="line"><a name="l04543"></a><span class="lineno"> 4543</span>  Tcl_Release(interp);</div><div class="line"><a name="l04544"></a><span class="lineno"> 4544</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l04545"></a><span class="lineno"> 4545</span>  }</div><div class="line"><a name="l04546"></a><span class="lineno"> 4546</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04547"></a><span class="lineno"> 4547</span>  {</div><div class="line"><a name="l04548"></a><span class="lineno"> 4548</span>  <span class="keywordtype">int</span> c = objv[1][0];</div><div class="line"><a name="l04549"></a><span class="lineno"> 4549</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="l04550"></a><span class="lineno"> 4550</span> </div><div class="line"><a name="l04551"></a><span class="lineno"> 4551</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="l04552"></a><span class="lineno"> 4552</span>  && (length >= 2)) {</div><div class="line"><a name="l04553"></a><span class="lineno"> 4553</span>  index = TKWAIT_VARIABLE;</div><div class="line"><a name="l04554"></a><span class="lineno"> 4554</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="l04555"></a><span class="lineno"> 4555</span>  && (length >= 2)) {</div><div class="line"><a name="l04556"></a><span class="lineno"> 4556</span>  index = TKWAIT_VISIBILITY;</div><div class="line"><a name="l04557"></a><span class="lineno"> 4557</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="l04558"></a><span class="lineno"> 4558</span>  index = TKWAIT_WINDOW;</div><div class="line"><a name="l04559"></a><span class="lineno"> 4559</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l04560"></a><span class="lineno"> 4560</span>  Tcl_AppendResult(interp, <span class="stringliteral">"bad option \""</span>, objv[1],</div><div class="line"><a name="l04561"></a><span class="lineno"> 4561</span>  <span class="stringliteral">"\": must be variable, visibility, or window"</span>,</div><div class="line"><a name="l04562"></a><span class="lineno"> 4562</span>  (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l04563"></a><span class="lineno"> 4563</span>  Tcl_Release(interp);</div><div class="line"><a name="l04564"></a><span class="lineno"> 4564</span>  <span class="keywordflow">return</span> TCL_ERROR;</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>  }</div><div class="line"><a name="l04567"></a><span class="lineno"> 4567</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04568"></a><span class="lineno"> 4568</span> </div><div class="line"><a name="l04569"></a><span class="lineno"> 4569</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l04570"></a><span class="lineno"> 4570</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l04571"></a><span class="lineno"> 4571</span> </div><div class="line"><a name="l04572"></a><span class="lineno"> 4572</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04573"></a><span class="lineno"> 4573</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(objv[2]);</div><div class="line"><a name="l04574"></a><span class="lineno"> 4574</span>  <span class="comment">/* nameString = Tcl_GetString(objv[2]); */</span></div><div class="line"><a name="l04575"></a><span class="lineno"> 4575</span>  nameString = Tcl_GetStringFromObj(objv[2], &dummy);</div><div class="line"><a name="l04576"></a><span class="lineno"> 4576</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04577"></a><span class="lineno"> 4577</span>  nameString = objv[2];</div><div class="line"><a name="l04578"></a><span class="lineno"> 4578</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04579"></a><span class="lineno"> 4579</span> </div><div class="line"><a name="l04580"></a><span class="lineno"> 4580</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l04581"></a><span class="lineno"> 4581</span> </div><div class="line"><a name="l04582"></a><span class="lineno"> 4582</span>  <span class="keywordflow">switch</span> ((<span class="keyword">enum</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ad2d8a938168dc85041b2bac532a7cf75">options</a>) index) {</div><div class="line"><a name="l04583"></a><span class="lineno"> 4583</span>  <span class="keywordflow">case</span> TKWAIT_VARIABLE:</div><div class="line"><a name="l04584"></a><span class="lineno"> 4584</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l04585"></a><span class="lineno"> 4585</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l04586"></a><span class="lineno"> 4586</span>  <span class="comment">/*</span></div><div class="line"><a name="l04587"></a><span class="lineno"> 4587</span> <span class="comment"> if (Tcl_TraceVar(interp, nameString,</span></div><div class="line"><a name="l04588"></a><span class="lineno"> 4588</span> <span class="comment"> TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</span></div><div class="line"><a name="l04589"></a><span class="lineno"> 4589</span> <span class="comment"> WaitVariableProc, (ClientData) &done) != TCL_OK) {</span></div><div class="line"><a name="l04590"></a><span class="lineno"> 4590</span> <span class="comment"> return TCL_ERROR;</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> <span class="comment"> */</span></div><div class="line"><a name="l04593"></a><span class="lineno"> 4593</span>  ret = Tcl_TraceVar(interp, nameString,</div><div class="line"><a name="l04594"></a><span class="lineno"> 4594</span>  TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</div><div class="line"><a name="l04595"></a><span class="lineno"> 4595</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a16e54a52941869f32517fc7f0e438513">WaitVariableProc</a>, (ClientData) &done);</div><div class="line"><a name="l04596"></a><span class="lineno"> 4596</span> </div><div class="line"><a name="l04597"></a><span class="lineno"> 4597</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l04598"></a><span class="lineno"> 4598</span> </div><div class="line"><a name="l04599"></a><span class="lineno"> 4599</span>  <span class="keywordflow">if</span> (ret != TCL_OK) {</div><div class="line"><a name="l04600"></a><span class="lineno"> 4600</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04601"></a><span class="lineno"> 4601</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div><div class="line"><a name="l04602"></a><span class="lineno"> 4602</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04603"></a><span class="lineno"> 4603</span>  Tcl_Release(interp);</div><div class="line"><a name="l04604"></a><span class="lineno"> 4604</span>  <span class="keywordflow">return</span> TCL_ERROR;</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> </div><div class="line"><a name="l04607"></a><span class="lineno"> 4607</span>  done = 0;</div><div class="line"><a name="l04608"></a><span class="lineno"> 4608</span>  <span class="comment">/* lib_eventloop_core(check_rootwidget_flag, 0, &done); */</span></div><div class="line"><a name="l04609"></a><span class="lineno"> 4609</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed5576b12eec97d8314b7aae8903d64b">lib_eventloop_launcher</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4a637ca8a762090680e727e293544aea">check_rootwidget_flag</a>, 0, &done, interp);</div><div class="line"><a name="l04610"></a><span class="lineno"> 4610</span> </div><div class="line"><a name="l04611"></a><span class="lineno"> 4611</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l04612"></a><span class="lineno"> 4612</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l04613"></a><span class="lineno"> 4613</span> </div><div class="line"><a name="l04614"></a><span class="lineno"> 4614</span>  Tcl_UntraceVar(interp, nameString,</div><div class="line"><a name="l04615"></a><span class="lineno"> 4615</span>  TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</div><div class="line"><a name="l04616"></a><span class="lineno"> 4616</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a16e54a52941869f32517fc7f0e438513">WaitVariableProc</a>, (ClientData) &done);</div><div class="line"><a name="l04617"></a><span class="lineno"> 4617</span> </div><div class="line"><a name="l04618"></a><span class="lineno"> 4618</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04619"></a><span class="lineno"> 4619</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div><div class="line"><a name="l04620"></a><span class="lineno"> 4620</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04621"></a><span class="lineno"> 4621</span> </div><div class="line"><a name="l04622"></a><span class="lineno"> 4622</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l04623"></a><span class="lineno"> 4623</span> </div><div class="line"><a name="l04624"></a><span class="lineno"> 4624</span>  <span class="comment">/* exception check */</span></div><div class="line"><a name="l04625"></a><span class="lineno"> 4625</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>)) {</div><div class="line"><a name="l04626"></a><span class="lineno"> 4626</span>  Tcl_Release(interp);</div><div class="line"><a name="l04627"></a><span class="lineno"> 4627</span> </div><div class="line"><a name="l04628"></a><span class="lineno"> 4628</span>  <span class="comment">/*</span></div><div class="line"><a name="l04629"></a><span class="lineno"> 4629</span> <span class="comment"> if (rb_obj_is_kind_of(rbtk_pending_exception, rb_eSystemExit)) {</span></div><div class="line"><a name="l04630"></a><span class="lineno"> 4630</span> <span class="comment"> */</span></div><div class="line"><a name="l04631"></a><span class="lineno"> 4631</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a34c7841e8f21712bc79d7bd6f64483b3">rb_eSystemExit</a>)</div><div class="line"><a name="l04632"></a><span class="lineno"> 4632</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a8378eac5be044398a53aca753116817b">rb_eInterrupt</a>)) {</div><div class="line"><a name="l04633"></a><span class="lineno"> 4633</span>  <span class="keywordflow">return</span> TCL_RETURN;</div><div class="line"><a name="l04634"></a><span class="lineno"> 4634</span>  } <span class="keywordflow">else</span>{</div><div class="line"><a name="l04635"></a><span class="lineno"> 4635</span>  <span class="keywordflow">return</span> TCL_ERROR;</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> </div><div class="line"><a name="l04639"></a><span class="lineno"> 4639</span>  <span class="comment">/* trap check */</span></div><div class="line"><a name="l04640"></a><span class="lineno"> 4640</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a41e6a95a134b13d63c516923d0a66f91">rb_thread_check_trap_pending</a>()) {</div><div class="line"><a name="l04641"></a><span class="lineno"> 4641</span>  Tcl_Release(interp);</div><div class="line"><a name="l04642"></a><span class="lineno"> 4642</span> </div><div class="line"><a name="l04643"></a><span class="lineno"> 4643</span>  <span class="keywordflow">return</span> TCL_RETURN;</div><div class="line"><a name="l04644"></a><span class="lineno"> 4644</span>  }</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">break</span>;</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>  <span class="keywordflow">case</span> TKWAIT_VISIBILITY:</div><div class="line"><a name="l04649"></a><span class="lineno"> 4649</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l04650"></a><span class="lineno"> 4650</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l04651"></a><span class="lineno"> 4651</span> </div><div class="line"><a name="l04652"></a><span class="lineno"> 4652</span>  <span class="comment">/* This function works on the Tk eventloop thread only. */</span></div><div class="line"><a name="l04653"></a><span class="lineno"> 4653</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="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l04654"></a><span class="lineno"> 4654</span>  window = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l04655"></a><span class="lineno"> 4655</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l04656"></a><span class="lineno"> 4656</span>  window = Tk_NameToWindow(interp, nameString, tkwin);</div><div class="line"><a name="l04657"></a><span class="lineno"> 4657</span>  }</div><div class="line"><a name="l04658"></a><span class="lineno"> 4658</span> </div><div class="line"><a name="l04659"></a><span class="lineno"> 4659</span>  <span class="keywordflow">if</span> (window == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l04660"></a><span class="lineno"> 4660</span>  Tcl_AppendResult(interp, <span class="stringliteral">": tkwait: "</span>,</div><div class="line"><a name="l04661"></a><span class="lineno"> 4661</span>  <span class="stringliteral">"no main-window (not Tk application?)"</span>,</div><div class="line"><a name="l04662"></a><span class="lineno"> 4662</span>  (<span class="keywordtype">char</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l04663"></a><span class="lineno"> 4663</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l04664"></a><span class="lineno"> 4664</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04665"></a><span class="lineno"> 4665</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div><div class="line"><a name="l04666"></a><span class="lineno"> 4666</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04667"></a><span class="lineno"> 4667</span>  Tcl_Release(interp);</div><div class="line"><a name="l04668"></a><span class="lineno"> 4668</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l04669"></a><span class="lineno"> 4669</span>  }</div><div class="line"><a name="l04670"></a><span class="lineno"> 4670</span> </div><div class="line"><a name="l04671"></a><span class="lineno"> 4671</span>  Tk_CreateEventHandler(window,</div><div class="line"><a name="l04672"></a><span class="lineno"> 4672</span>  VisibilityChangeMask|StructureNotifyMask,</div><div class="line"><a name="l04673"></a><span class="lineno"> 4673</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a16ec218b5beacb3a41f577d7e4982f34">WaitVisibilityProc</a>, (ClientData) &done);</div><div class="line"><a name="l04674"></a><span class="lineno"> 4674</span> </div><div class="line"><a name="l04675"></a><span class="lineno"> 4675</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l04676"></a><span class="lineno"> 4676</span> </div><div class="line"><a name="l04677"></a><span class="lineno"> 4677</span>  done = 0;</div><div class="line"><a name="l04678"></a><span class="lineno"> 4678</span>  <span class="comment">/* lib_eventloop_core(check_rootwidget_flag, 0, &done); */</span></div><div class="line"><a name="l04679"></a><span class="lineno"> 4679</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed5576b12eec97d8314b7aae8903d64b">lib_eventloop_launcher</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4a637ca8a762090680e727e293544aea">check_rootwidget_flag</a>, 0, &done, interp);</div><div class="line"><a name="l04680"></a><span class="lineno"> 4680</span> </div><div class="line"><a name="l04681"></a><span class="lineno"> 4681</span>  <span class="comment">/* exception check */</span></div><div class="line"><a name="l04682"></a><span class="lineno"> 4682</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>)) {</div><div class="line"><a name="l04683"></a><span class="lineno"> 4683</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04684"></a><span class="lineno"> 4684</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div><div class="line"><a name="l04685"></a><span class="lineno"> 4685</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04686"></a><span class="lineno"> 4686</span>  Tcl_Release(interp);</div><div class="line"><a name="l04687"></a><span class="lineno"> 4687</span> </div><div class="line"><a name="l04688"></a><span class="lineno"> 4688</span>  <span class="comment">/*</span></div><div class="line"><a name="l04689"></a><span class="lineno"> 4689</span> <span class="comment"> if (rb_obj_is_kind_of(rbtk_pending_exception, rb_eSystemExit)) {</span></div><div class="line"><a name="l04690"></a><span class="lineno"> 4690</span> <span class="comment"> */</span></div><div class="line"><a name="l04691"></a><span class="lineno"> 4691</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a34c7841e8f21712bc79d7bd6f64483b3">rb_eSystemExit</a>)</div><div class="line"><a name="l04692"></a><span class="lineno"> 4692</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a8378eac5be044398a53aca753116817b">rb_eInterrupt</a>)) {</div><div class="line"><a name="l04693"></a><span class="lineno"> 4693</span>  <span class="keywordflow">return</span> TCL_RETURN;</div><div class="line"><a name="l04694"></a><span class="lineno"> 4694</span>  } <span class="keywordflow">else</span>{</div><div class="line"><a name="l04695"></a><span class="lineno"> 4695</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l04696"></a><span class="lineno"> 4696</span>  }</div><div class="line"><a name="l04697"></a><span class="lineno"> 4697</span>  }</div><div class="line"><a name="l04698"></a><span class="lineno"> 4698</span> </div><div class="line"><a name="l04699"></a><span class="lineno"> 4699</span>  <span class="comment">/* trap check */</span></div><div class="line"><a name="l04700"></a><span class="lineno"> 4700</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a41e6a95a134b13d63c516923d0a66f91">rb_thread_check_trap_pending</a>()) {</div><div class="line"><a name="l04701"></a><span class="lineno"> 4701</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04702"></a><span class="lineno"> 4702</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div><div class="line"><a name="l04703"></a><span class="lineno"> 4703</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04704"></a><span class="lineno"> 4704</span>  Tcl_Release(interp);</div><div class="line"><a name="l04705"></a><span class="lineno"> 4705</span> </div><div class="line"><a name="l04706"></a><span class="lineno"> 4706</span>  <span class="keywordflow">return</span> TCL_RETURN;</div><div class="line"><a name="l04707"></a><span class="lineno"> 4707</span>  }</div><div class="line"><a name="l04708"></a><span class="lineno"> 4708</span> </div><div class="line"><a name="l04709"></a><span class="lineno"> 4709</span>  <span class="keywordflow">if</span> (done != 1) {</div><div class="line"><a name="l04710"></a><span class="lineno"> 4710</span>  <span class="comment">/*</span></div><div class="line"><a name="l04711"></a><span class="lineno"> 4711</span> <span class="comment"> * Note that we do not delete the event handler because it</span></div><div class="line"><a name="l04712"></a><span class="lineno"> 4712</span> <span class="comment"> * was deleted automatically when the window was destroyed.</span></div><div class="line"><a name="l04713"></a><span class="lineno"> 4713</span> <span class="comment"> */</span></div><div class="line"><a name="l04714"></a><span class="lineno"> 4714</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l04715"></a><span class="lineno"> 4715</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l04716"></a><span class="lineno"> 4716</span> </div><div class="line"><a name="l04717"></a><span class="lineno"> 4717</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l04718"></a><span class="lineno"> 4718</span>  Tcl_AppendResult(interp, <span class="stringliteral">"window \""</span>, nameString,</div><div class="line"><a name="l04719"></a><span class="lineno"> 4719</span>  <span class="stringliteral">"\" was deleted before its visibility changed"</span>,</div><div class="line"><a name="l04720"></a><span class="lineno"> 4720</span>  (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l04721"></a><span class="lineno"> 4721</span> </div><div class="line"><a name="l04722"></a><span class="lineno"> 4722</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</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> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04725"></a><span class="lineno"> 4725</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div><div class="line"><a name="l04726"></a><span class="lineno"> 4726</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04727"></a><span class="lineno"> 4727</span>  Tcl_Release(interp);</div><div class="line"><a name="l04728"></a><span class="lineno"> 4728</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l04729"></a><span class="lineno"> 4729</span>  }</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>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l04732"></a><span class="lineno"> 4732</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l04733"></a><span class="lineno"> 4733</span> </div><div class="line"><a name="l04734"></a><span class="lineno"> 4734</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04735"></a><span class="lineno"> 4735</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div><div class="line"><a name="l04736"></a><span class="lineno"> 4736</span> <span class="preprocessor">#endif</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>  Tk_DeleteEventHandler(window,</div><div class="line"><a name="l04739"></a><span class="lineno"> 4739</span>  VisibilityChangeMask|StructureNotifyMask,</div><div class="line"><a name="l04740"></a><span class="lineno"> 4740</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a16ec218b5beacb3a41f577d7e4982f34">WaitVisibilityProc</a>, (ClientData) &done);</div><div class="line"><a name="l04741"></a><span class="lineno"> 4741</span> </div><div class="line"><a name="l04742"></a><span class="lineno"> 4742</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l04743"></a><span class="lineno"> 4743</span> </div><div class="line"><a name="l04744"></a><span class="lineno"> 4744</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l04745"></a><span class="lineno"> 4745</span> </div><div class="line"><a name="l04746"></a><span class="lineno"> 4746</span>  <span class="keywordflow">case</span> TKWAIT_WINDOW:</div><div class="line"><a name="l04747"></a><span class="lineno"> 4747</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l04748"></a><span class="lineno"> 4748</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l04749"></a><span class="lineno"> 4749</span> </div><div class="line"><a name="l04750"></a><span class="lineno"> 4750</span>  <span class="comment">/* This function works on the Tk eventloop thread only. */</span></div><div class="line"><a name="l04751"></a><span class="lineno"> 4751</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="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l04752"></a><span class="lineno"> 4752</span>  window = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l04753"></a><span class="lineno"> 4753</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l04754"></a><span class="lineno"> 4754</span>  window = Tk_NameToWindow(interp, nameString, tkwin);</div><div class="line"><a name="l04755"></a><span class="lineno"> 4755</span>  }</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="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04758"></a><span class="lineno"> 4758</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div><div class="line"><a name="l04759"></a><span class="lineno"> 4759</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04760"></a><span class="lineno"> 4760</span> </div><div class="line"><a name="l04761"></a><span class="lineno"> 4761</span>  <span class="keywordflow">if</span> (window == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l04762"></a><span class="lineno"> 4762</span>  Tcl_AppendResult(interp, <span class="stringliteral">": tkwait: "</span>,</div><div class="line"><a name="l04763"></a><span class="lineno"> 4763</span>  <span class="stringliteral">"no main-window (not Tk application?)"</span>,</div><div class="line"><a name="l04764"></a><span class="lineno"> 4764</span>  (<span class="keywordtype">char</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l04765"></a><span class="lineno"> 4765</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l04766"></a><span class="lineno"> 4766</span>  Tcl_Release(interp);</div><div class="line"><a name="l04767"></a><span class="lineno"> 4767</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l04768"></a><span class="lineno"> 4768</span>  }</div><div class="line"><a name="l04769"></a><span class="lineno"> 4769</span> </div><div class="line"><a name="l04770"></a><span class="lineno"> 4770</span>  Tk_CreateEventHandler(window, StructureNotifyMask,</div><div class="line"><a name="l04771"></a><span class="lineno"> 4771</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a306f46e41cb264c3e0247760b6fd1a8d">WaitWindowProc</a>, (ClientData) &done);</div><div class="line"><a name="l04772"></a><span class="lineno"> 4772</span> </div><div class="line"><a name="l04773"></a><span class="lineno"> 4773</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l04774"></a><span class="lineno"> 4774</span> </div><div class="line"><a name="l04775"></a><span class="lineno"> 4775</span>  done = 0;</div><div class="line"><a name="l04776"></a><span class="lineno"> 4776</span>  <span class="comment">/* lib_eventloop_core(check_rootwidget_flag, 0, &done); */</span></div><div class="line"><a name="l04777"></a><span class="lineno"> 4777</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed5576b12eec97d8314b7aae8903d64b">lib_eventloop_launcher</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4a637ca8a762090680e727e293544aea">check_rootwidget_flag</a>, 0, &done, interp);</div><div class="line"><a name="l04778"></a><span class="lineno"> 4778</span> </div><div class="line"><a name="l04779"></a><span class="lineno"> 4779</span>  <span class="comment">/* exception check */</span></div><div class="line"><a name="l04780"></a><span class="lineno"> 4780</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>)) {</div><div class="line"><a name="l04781"></a><span class="lineno"> 4781</span>  Tcl_Release(interp);</div><div class="line"><a name="l04782"></a><span class="lineno"> 4782</span> </div><div class="line"><a name="l04783"></a><span class="lineno"> 4783</span>  <span class="comment">/*</span></div><div class="line"><a name="l04784"></a><span class="lineno"> 4784</span> <span class="comment"> if (rb_obj_is_kind_of(rbtk_pending_exception, rb_eSystemExit)) {</span></div><div class="line"><a name="l04785"></a><span class="lineno"> 4785</span> <span class="comment"> */</span></div><div class="line"><a name="l04786"></a><span class="lineno"> 4786</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a34c7841e8f21712bc79d7bd6f64483b3">rb_eSystemExit</a>)</div><div class="line"><a name="l04787"></a><span class="lineno"> 4787</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#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>, <a class="code" href="../../db/dcc/error_8c.html#a8378eac5be044398a53aca753116817b">rb_eInterrupt</a>)) {</div><div class="line"><a name="l04788"></a><span class="lineno"> 4788</span>  <span class="keywordflow">return</span> TCL_RETURN;</div><div class="line"><a name="l04789"></a><span class="lineno"> 4789</span>  } <span class="keywordflow">else</span>{</div><div class="line"><a name="l04790"></a><span class="lineno"> 4790</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l04791"></a><span class="lineno"> 4791</span>  }</div><div class="line"><a name="l04792"></a><span class="lineno"> 4792</span>  }</div><div class="line"><a name="l04793"></a><span class="lineno"> 4793</span> </div><div class="line"><a name="l04794"></a><span class="lineno"> 4794</span>  <span class="comment">/* trap check */</span></div><div class="line"><a name="l04795"></a><span class="lineno"> 4795</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a41e6a95a134b13d63c516923d0a66f91">rb_thread_check_trap_pending</a>()) {</div><div class="line"><a name="l04796"></a><span class="lineno"> 4796</span>  Tcl_Release(interp);</div><div class="line"><a name="l04797"></a><span class="lineno"> 4797</span> </div><div class="line"><a name="l04798"></a><span class="lineno"> 4798</span>  <span class="keywordflow">return</span> TCL_RETURN;</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">/*</span></div><div class="line"><a name="l04802"></a><span class="lineno"> 4802</span> <span class="comment"> * Note: there's no need to delete the event handler. It was</span></div><div class="line"><a name="l04803"></a><span class="lineno"> 4803</span> <span class="comment"> * deleted automatically when the window was destroyed.</span></div><div class="line"><a name="l04804"></a><span class="lineno"> 4804</span> <span class="comment"> */</span></div><div class="line"><a name="l04805"></a><span class="lineno"> 4805</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l04806"></a><span class="lineno"> 4806</span>  }</div><div class="line"><a name="l04807"></a><span class="lineno"> 4807</span> </div><div class="line"><a name="l04808"></a><span class="lineno"> 4808</span>  <span class="comment">/*</span></div><div class="line"><a name="l04809"></a><span class="lineno"> 4809</span> <span class="comment"> * Clear out the interpreter's result, since it may have been set</span></div><div class="line"><a name="l04810"></a><span class="lineno"> 4810</span> <span class="comment"> * by event handlers.</span></div><div class="line"><a name="l04811"></a><span class="lineno"> 4811</span> <span class="comment"> */</span></div><div class="line"><a name="l04812"></a><span class="lineno"> 4812</span> </div><div class="line"><a name="l04813"></a><span class="lineno"> 4813</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l04814"></a><span class="lineno"> 4814</span>  Tcl_Release(interp);</div><div class="line"><a name="l04815"></a><span class="lineno"> 4815</span>  <span class="keywordflow">return</span> TCL_OK;</div><div class="line"><a name="l04816"></a><span class="lineno"> 4816</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> <span class="comment">/****************************/</span></div><div class="line"><a name="l04819"></a><span class="lineno"> 4819</span> <span class="comment">/* vwait/tkwait with thread */</span></div><div class="line"><a name="l04820"></a><span class="lineno"> 4820</span> <span class="comment">/****************************/</span></div><div class="line"><a name="l04821"></a><span class="lineno"><a class="line" href="../../dd/dca/structth__vwait__param.html"> 4821</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="l04822"></a><span class="lineno"><a class="line" href="../../dd/dca/structth__vwait__param.html#abfac73593f1d6ac7a80953799ec9a91c"> 4822</a></span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../dd/dca/structth__vwait__param.html#abfac73593f1d6ac7a80953799ec9a91c">thread</a>;</div><div class="line"><a name="l04823"></a><span class="lineno"><a class="line" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3"> 4823</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="l04824"></a><span class="lineno"> 4824</span> };</div><div class="line"><a name="l04825"></a><span class="lineno"> 4825</span> </div><div class="line"><a name="l04826"></a><span class="lineno"> 4826</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04827"></a><span class="lineno"> 4827</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0614494bd697c4f5fa620fe67a7f411e">rb_threadVwaitProc</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *,</div><div class="line"><a name="l04828"></a><span class="lineno"> 4828</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="l04829"></a><span class="lineno"> 4829</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *</div><div class="line"><a name="l04830"></a><span class="lineno"> 4830</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0614494bd697c4f5fa620fe67a7f411e">rb_threadVwaitProc</a>(clientData, interp, name1, name2, flags)</div><div class="line"><a name="l04831"></a><span class="lineno"> 4831</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div><div class="line"><a name="l04832"></a><span class="lineno"> 4832</span>  Tcl_Interp *interp; <span class="comment">/* Interpreter containing variable. */</span></div><div class="line"><a name="l04833"></a><span class="lineno"> 4833</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="l04834"></a><span class="lineno"> 4834</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="l04835"></a><span class="lineno"> 4835</span>  <span class="keywordtype">int</span> flags; <span class="comment">/* Information about what happened. */</span></div><div class="line"><a name="l04836"></a><span class="lineno"> 4836</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04837"></a><span class="lineno"> 4837</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0614494bd697c4f5fa620fe67a7f411e">rb_threadVwaitProc</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *,</div><div class="line"><a name="l04838"></a><span class="lineno"> 4838</span>  <span class="keywordtype">char</span> *, <span class="keywordtype">char</span> *, <span class="keywordtype">int</span>));</div><div class="line"><a name="l04839"></a><span class="lineno"> 4839</span> <span class="keyword">static</span> <span class="keywordtype">char</span> *</div><div class="line"><a name="l04840"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0614494bd697c4f5fa620fe67a7f411e"> 4840</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0614494bd697c4f5fa620fe67a7f411e">rb_threadVwaitProc</a>(clientData, interp, name1, name2, flags)</div><div class="line"><a name="l04841"></a><span class="lineno"> 4841</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div><div class="line"><a name="l04842"></a><span class="lineno"> 4842</span>  Tcl_Interp *interp; <span class="comment">/* Interpreter containing variable. */</span></div><div class="line"><a name="l04843"></a><span class="lineno"> 4843</span>  <span class="keywordtype">char</span> *name1; <span class="comment">/* Name of variable. */</span></div><div class="line"><a name="l04844"></a><span class="lineno"> 4844</span>  <span class="keywordtype">char</span> *name2; <span class="comment">/* Second part of variable name. */</span></div><div class="line"><a name="l04845"></a><span class="lineno"> 4845</span>  <span class="keywordtype">int</span> flags; <span class="comment">/* Information about what happened. */</span></div><div class="line"><a name="l04846"></a><span class="lineno"> 4846</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04847"></a><span class="lineno"> 4847</span> {</div><div class="line"><a name="l04848"></a><span class="lineno"> 4848</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="l04849"></a><span class="lineno"> 4849</span> </div><div class="line"><a name="l04850"></a><span class="lineno"> 4850</span>  <span class="keywordflow">if</span> (flags & (TCL_INTERP_DESTROYED | TCL_TRACE_DESTROYED)) {</div><div class="line"><a name="l04851"></a><span class="lineno"> 4851</span>  param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> = -1;</div><div class="line"><a name="l04852"></a><span class="lineno"> 4852</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l04853"></a><span class="lineno"> 4853</span>  param-><a class="code" href="../../dd/dca/structth__vwait__param.html#a4e5d262db20649f09e20b3b69525cff3">done</a> = 1;</div><div class="line"><a name="l04854"></a><span class="lineno"> 4854</span>  }</div><div class="line"><a name="l04855"></a><span class="lineno"> 4855</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="../../db/d2e/intern_8h.html#a5ec55864056da2a01e4b87fde4c807b9">rb_thread_wakeup</a>(param-><a class="code" href="../../dd/dca/structth__vwait__param.html#abfac73593f1d6ac7a80953799ec9a91c">thread</a>);</div><div class="line"><a name="l04856"></a><span class="lineno"> 4856</span> </div><div class="line"><a name="l04857"></a><span class="lineno"> 4857</span>  <span class="keywordflow">return</span> (<span class="keywordtype">char</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l04858"></a><span class="lineno"> 4858</span> }</div><div class="line"><a name="l04859"></a><span class="lineno"> 4859</span> </div><div class="line"><a name="l04860"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac904beb2aab947ee7a16ad741ae38ef1"> 4860</a></span> <span class="preprocessor">#define TKWAIT_MODE_VISIBILITY 1</span></div><div class="line"><a name="l04861"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#add9a7c9b57ebc6b1e1a25640d8e17e29"> 4861</a></span> <span class="preprocessor">#define TKWAIT_MODE_DESTROY 2</span></div><div class="line"><a name="l04862"></a><span class="lineno"> 4862</span> </div><div class="line"><a name="l04863"></a><span class="lineno"> 4863</span> <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aca15514270a006b5a1eda592c0d0ee75">rb_threadWaitVisibilityProc</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, XEvent *));</div><div class="line"><a name="l04864"></a><span class="lineno"> 4864</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l04865"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aca15514270a006b5a1eda592c0d0ee75"> 4865</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aca15514270a006b5a1eda592c0d0ee75">rb_threadWaitVisibilityProc</a>(clientData, eventPtr)</div><div class="line"><a name="l04866"></a><span class="lineno"> 4866</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div><div class="line"><a name="l04867"></a><span class="lineno"> 4867</span>  XEvent *eventPtr; <span class="comment">/* Information about event (not used). */</span></div><div class="line"><a name="l04868"></a><span class="lineno"> 4868</span> {</div><div class="line"><a name="l04869"></a><span class="lineno"> 4869</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="l04870"></a><span class="lineno"> 4870</span> </div><div class="line"><a name="l04871"></a><span class="lineno"> 4871</span>  <span class="keywordflow">if</span> (eventPtr->type == VisibilityNotify) {</div><div class="line"><a name="l04872"></a><span class="lineno"> 4872</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="l04873"></a><span class="lineno"> 4873</span>  }</div><div class="line"><a name="l04874"></a><span class="lineno"> 4874</span>  <span class="keywordflow">if</span> (eventPtr->type == DestroyNotify) {</div><div class="line"><a name="l04875"></a><span class="lineno"> 4875</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="l04876"></a><span class="lineno"> 4876</span>  }</div><div class="line"><a name="l04877"></a><span class="lineno"> 4877</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="../../db/d2e/intern_8h.html#a5ec55864056da2a01e4b87fde4c807b9">rb_thread_wakeup</a>(param-><a class="code" href="../../dd/dca/structth__vwait__param.html#abfac73593f1d6ac7a80953799ec9a91c">thread</a>);</div><div class="line"><a name="l04878"></a><span class="lineno"> 4878</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">static</span> <span class="keywordtype">void</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2212c740c8836eec937d1aca9a21332f">rb_threadWaitWindowProc</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, XEvent *));</div><div class="line"><a name="l04881"></a><span class="lineno"> 4881</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l04882"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a2212c740c8836eec937d1aca9a21332f"> 4882</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2212c740c8836eec937d1aca9a21332f">rb_threadWaitWindowProc</a>(clientData, eventPtr)</div><div class="line"><a name="l04883"></a><span class="lineno"> 4883</span>  ClientData clientData; <span class="comment">/* Pointer to integer to set to 1. */</span></div><div class="line"><a name="l04884"></a><span class="lineno"> 4884</span>  XEvent *eventPtr; <span class="comment">/* Information about event. */</span></div><div class="line"><a name="l04885"></a><span class="lineno"> 4885</span> {</div><div class="line"><a name="l04886"></a><span class="lineno"> 4886</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="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> (eventPtr->type == DestroyNotify) {</div><div class="line"><a name="l04889"></a><span class="lineno"> 4889</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="l04890"></a><span class="lineno"> 4890</span>  }</div><div class="line"><a name="l04891"></a><span class="lineno"> 4891</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="../../db/d2e/intern_8h.html#a5ec55864056da2a01e4b87fde4c807b9">rb_thread_wakeup</a>(param-><a class="code" href="../../dd/dca/structth__vwait__param.html#abfac73593f1d6ac7a80953799ec9a91c">thread</a>);</div><div class="line"><a name="l04892"></a><span class="lineno"> 4892</span> }</div><div class="line"><a name="l04893"></a><span class="lineno"> 4893</span> </div><div class="line"><a name="l04894"></a><span class="lineno"> 4894</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04895"></a><span class="lineno"> 4895</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l04896"></a><span class="lineno"> 4896</span> ip_rb_threadVwaitObjCmd(clientData, interp, objc, objv)</div><div class="line"><a name="l04897"></a><span class="lineno"> 4897</span>  ClientData clientData;</div><div class="line"><a name="l04898"></a><span class="lineno"> 4898</span>  Tcl_Interp *interp;</div><div class="line"><a name="l04899"></a><span class="lineno"> 4899</span>  <span class="keywordtype">int</span> objc;</div><div class="line"><a name="l04900"></a><span class="lineno"> 4900</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> objv[];</div><div class="line"><a name="l04901"></a><span class="lineno"> 4901</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04902"></a><span class="lineno"> 4902</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l04903"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a58f3a974e555518cd87217db5273de57"> 4903</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a58f3a974e555518cd87217db5273de57">ip_rb_threadVwaitCommand</a>(clientData, interp, objc, objv)</div><div class="line"><a name="l04904"></a><span class="lineno"> 4904</span>  ClientData clientData; <span class="comment">/* Not used */</span></div><div class="line"><a name="l04905"></a><span class="lineno"> 4905</span>  Tcl_Interp *interp;</div><div class="line"><a name="l04906"></a><span class="lineno"> 4906</span>  <span class="keywordtype">int</span> objc;</div><div class="line"><a name="l04907"></a><span class="lineno"> 4907</span>  <span class="keywordtype">char</span> *objv[];</div><div class="line"><a name="l04908"></a><span class="lineno"> 4908</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04909"></a><span class="lineno"> 4909</span> {</div><div class="line"><a name="l04910"></a><span class="lineno"> 4910</span>  <span class="keyword">struct </span><a class="code" href="../../dd/dca/structth__vwait__param.html">th_vwait_param</a> *param;</div><div class="line"><a name="l04911"></a><span class="lineno"> 4911</span>  <span class="keywordtype">char</span> *nameString;</div><div class="line"><a name="l04912"></a><span class="lineno"> 4912</span>  <span class="keywordtype">int</span> ret, dummy;</div><div class="line"><a name="l04913"></a><span class="lineno"> 4913</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l04914"></a><span class="lineno"> 4914</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> current_thread = <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>();</div><div class="line"><a name="l04915"></a><span class="lineno"> 4915</span>  <span class="keyword">struct </span><a class="code" href="../../d1/d1b/structtimeval.html">timeval</a> <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>;</div><div class="line"><a name="l04916"></a><span class="lineno"> 4916</span> </div><div class="line"><a name="l04917"></a><span class="lineno"> 4917</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="l04918"></a><span class="lineno"> 4918</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l04919"></a><span class="lineno"> 4919</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l04920"></a><span class="lineno"> 4920</span>  <span class="stringliteral">"IP is deleted"</span>);</div><div class="line"><a name="l04921"></a><span class="lineno"> 4921</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l04922"></a><span class="lineno"> 4922</span>  }</div><div class="line"><a name="l04923"></a><span class="lineno"> 4923</span> </div><div class="line"><a name="l04924"></a><span class="lineno"> 4924</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#ac86131edba4a5a668958ce58b661d7ee">rb_thread_alone</a>() || <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a> == current_thread) {</div><div class="line"><a name="l04925"></a><span class="lineno"> 4925</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04926"></a><span class="lineno"> 4926</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="l04927"></a><span class="lineno"> 4927</span>  <span class="keywordflow">return</span> ip_rbVwaitObjCmd(clientData, interp, objc, objv);</div><div class="line"><a name="l04928"></a><span class="lineno"> 4928</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04929"></a><span class="lineno"> 4929</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="l04930"></a><span class="lineno"> 4930</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a723e68c456dbef62ddda9c3aed60c548">ip_rbVwaitCommand</a>(clientData, interp, objc, objv);</div><div class="line"><a name="l04931"></a><span class="lineno"> 4931</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04932"></a><span class="lineno"> 4932</span>  }</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>  Tcl_Preserve(interp);</div><div class="line"><a name="l04935"></a><span class="lineno"> 4935</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l04936"></a><span class="lineno"> 4936</span> </div><div class="line"><a name="l04937"></a><span class="lineno"> 4937</span>  <span class="keywordflow">if</span> (objc != 2) {</div><div class="line"><a name="l04938"></a><span class="lineno"> 4938</span> <span class="preprocessor">#ifdef Tcl_WrongNumArgs</span></div><div class="line"><a name="l04939"></a><span class="lineno"> 4939</span>  Tcl_WrongNumArgs(interp, 1, objv, <span class="stringliteral">"name"</span>);</div><div class="line"><a name="l04940"></a><span class="lineno"> 4940</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l04941"></a><span class="lineno"> 4941</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l04942"></a><span class="lineno"> 4942</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l04943"></a><span class="lineno"> 4943</span> </div><div class="line"><a name="l04944"></a><span class="lineno"> 4944</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04945"></a><span class="lineno"> 4945</span>  <span class="comment">/* nameString = Tcl_GetString(objv[0]); */</span></div><div class="line"><a name="l04946"></a><span class="lineno"> 4946</span>  nameString = Tcl_GetStringFromObj(objv[0], &dummy);</div><div class="line"><a name="l04947"></a><span class="lineno"> 4947</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04948"></a><span class="lineno"> 4948</span>  nameString = objv[0];</div><div class="line"><a name="l04949"></a><span class="lineno"> 4949</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04950"></a><span class="lineno"> 4950</span>  Tcl_AppendResult(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div><div class="line"><a name="l04951"></a><span class="lineno"> 4951</span>  nameString, <span class="stringliteral">" name\""</span>, (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l04952"></a><span class="lineno"> 4952</span> </div><div class="line"><a name="l04953"></a><span class="lineno"> 4953</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l04954"></a><span class="lineno"> 4954</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04955"></a><span class="lineno"> 4955</span> </div><div class="line"><a name="l04956"></a><span class="lineno"> 4956</span>  Tcl_Release(interp);</div><div class="line"><a name="l04957"></a><span class="lineno"> 4957</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l04958"></a><span class="lineno"> 4958</span>  }</div><div class="line"><a name="l04959"></a><span class="lineno"> 4959</span> </div><div class="line"><a name="l04960"></a><span class="lineno"> 4960</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l04961"></a><span class="lineno"> 4961</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(objv[1]);</div><div class="line"><a name="l04962"></a><span class="lineno"> 4962</span>  <span class="comment">/* nameString = Tcl_GetString(objv[1]); */</span></div><div class="line"><a name="l04963"></a><span class="lineno"> 4963</span>  nameString = Tcl_GetStringFromObj(objv[1], &dummy);</div><div class="line"><a name="l04964"></a><span class="lineno"> 4964</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l04965"></a><span class="lineno"> 4965</span>  nameString = objv[1];</div><div class="line"><a name="l04966"></a><span class="lineno"> 4966</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04967"></a><span class="lineno"> 4967</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l04968"></a><span class="lineno"> 4968</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</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>  <span class="comment">/* param = (struct th_vwait_param *)Tcl_Alloc(sizeof(struct th_vwait_param)); */</span></div><div class="line"><a name="l04971"></a><span class="lineno"> 4971</span>  param = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(<span class="keyword">struct</span> <a class="code" href="../../dd/dca/structth__vwait__param.html">th_vwait_param</a>, 1);</div><div class="line"><a name="l04972"></a><span class="lineno"> 4972</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="l04973"></a><span class="lineno"> 4973</span>  Tcl_Preserve((ClientData)param);</div><div class="line"><a name="l04974"></a><span class="lineno"> 4974</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l04975"></a><span class="lineno"> 4975</span>  param->thread = current_thread;</div><div class="line"><a name="l04976"></a><span class="lineno"> 4976</span>  param->done = 0;</div><div class="line"><a name="l04977"></a><span class="lineno"> 4977</span> </div><div class="line"><a name="l04978"></a><span class="lineno"> 4978</span>  <span class="comment">/*</span></div><div class="line"><a name="l04979"></a><span class="lineno"> 4979</span> <span class="comment"> if (Tcl_TraceVar(interp, nameString,</span></div><div class="line"><a name="l04980"></a><span class="lineno"> 4980</span> <span class="comment"> TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</span></div><div class="line"><a name="l04981"></a><span class="lineno"> 4981</span> <span class="comment"> rb_threadVwaitProc, (ClientData) param) != TCL_OK) {</span></div><div class="line"><a name="l04982"></a><span class="lineno"> 4982</span> <span class="comment"> return TCL_ERROR;</span></div><div class="line"><a name="l04983"></a><span class="lineno"> 4983</span> <span class="comment"> }</span></div><div class="line"><a name="l04984"></a><span class="lineno"> 4984</span> <span class="comment"> */</span></div><div class="line"><a name="l04985"></a><span class="lineno"> 4985</span>  ret = Tcl_TraceVar(interp, nameString,</div><div class="line"><a name="l04986"></a><span class="lineno"> 4986</span>  TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</div><div class="line"><a name="l04987"></a><span class="lineno"> 4987</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0614494bd697c4f5fa620fe67a7f411e">rb_threadVwaitProc</a>, (ClientData) param);</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>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l04990"></a><span class="lineno"> 4990</span> </div><div class="line"><a name="l04991"></a><span class="lineno"> 4991</span>  <span class="keywordflow">if</span> (ret != TCL_OK) {</div><div class="line"><a name="l04992"></a><span class="lineno"> 4992</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l04993"></a><span class="lineno"> 4993</span>  Tcl_EventuallyFree((ClientData)param, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l04994"></a><span class="lineno"> 4994</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l04995"></a><span class="lineno"> 4995</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="l04996"></a><span class="lineno"> 4996</span>  Tcl_Release((ClientData)param);</div><div class="line"><a name="l04997"></a><span class="lineno"> 4997</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l04998"></a><span class="lineno"> 4998</span>  <span class="comment">/* Tcl_Free((char *)param); */</span></div><div class="line"><a name="l04999"></a><span class="lineno"> 4999</span>  ckfree((<span class="keywordtype">char</span> *)param);</div><div class="line"><a name="l05000"></a><span class="lineno"> 5000</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05001"></a><span class="lineno"> 5001</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05002"></a><span class="lineno"> 5002</span> </div><div class="line"><a name="l05003"></a><span class="lineno"> 5003</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05004"></a><span class="lineno"> 5004</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[1]);</div><div class="line"><a name="l05005"></a><span class="lineno"> 5005</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05006"></a><span class="lineno"> 5006</span>  Tcl_Release(interp);</div><div class="line"><a name="l05007"></a><span class="lineno"> 5007</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l05008"></a><span class="lineno"> 5008</span>  }</div><div class="line"><a name="l05009"></a><span class="lineno"> 5009</span> </div><div class="line"><a name="l05010"></a><span class="lineno"> 5010</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_sec = 0;</div><div class="line"><a name="l05011"></a><span class="lineno"> 5011</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_usec = (long)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd2530678e6262a587dd99dedeb053b">EVENT_HANDLER_TIMEOUT</a>)*1000.0);</div><div class="line"><a name="l05012"></a><span class="lineno"> 5012</span> </div><div class="line"><a name="l05013"></a><span class="lineno"> 5013</span>  <span class="keywordflow">while</span>(!param->done) {</div><div class="line"><a name="l05014"></a><span class="lineno"> 5014</span>  <span class="comment">/* rb_thread_stop(); */</span></div><div class="line"><a name="l05015"></a><span class="lineno"> 5015</span>  <span class="comment">/* rb_thread_sleep_forever(); */</span></div><div class="line"><a name="l05016"></a><span class="lineno"> 5016</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0187a1eb4a4d01a4c9ef6b36b51faa6f">rb_thread_wait_for</a>(<a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>);</div><div class="line"><a name="l05017"></a><span class="lineno"> 5017</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#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)) {</div><div class="line"><a name="l05018"></a><span class="lineno"> 5018</span>  <span class="keywordflow">break</span>;</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> </div><div class="line"><a name="l05022"></a><span class="lineno"> 5022</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l05023"></a><span class="lineno"> 5023</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l05024"></a><span class="lineno"> 5024</span> </div><div class="line"><a name="l05025"></a><span class="lineno"> 5025</span>  <span class="keywordflow">if</span> (param->done > 0) {</div><div class="line"><a name="l05026"></a><span class="lineno"> 5026</span>  Tcl_UntraceVar(interp, nameString,</div><div class="line"><a name="l05027"></a><span class="lineno"> 5027</span>  TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</div><div class="line"><a name="l05028"></a><span class="lineno"> 5028</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0614494bd697c4f5fa620fe67a7f411e">rb_threadVwaitProc</a>, (ClientData) param);</div><div class="line"><a name="l05029"></a><span class="lineno"> 5029</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> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l05032"></a><span class="lineno"> 5032</span>  Tcl_EventuallyFree((ClientData)param, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l05033"></a><span class="lineno"> 5033</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05034"></a><span class="lineno"> 5034</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="l05035"></a><span class="lineno"> 5035</span>  Tcl_Release((ClientData)param);</div><div class="line"><a name="l05036"></a><span class="lineno"> 5036</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05037"></a><span class="lineno"> 5037</span>  <span class="comment">/* Tcl_Free((char *)param); */</span></div><div class="line"><a name="l05038"></a><span class="lineno"> 5038</span>  ckfree((<span class="keywordtype">char</span> *)param);</div><div class="line"><a name="l05039"></a><span class="lineno"> 5039</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05040"></a><span class="lineno"> 5040</span> <span class="preprocessor">#endif</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>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l05043"></a><span class="lineno"> 5043</span> </div><div class="line"><a name="l05044"></a><span class="lineno"> 5044</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05045"></a><span class="lineno"> 5045</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[1]);</div><div class="line"><a name="l05046"></a><span class="lineno"> 5046</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05047"></a><span class="lineno"> 5047</span>  Tcl_Release(interp);</div><div class="line"><a name="l05048"></a><span class="lineno"> 5048</span>  <span class="keywordflow">return</span> TCL_OK;</div><div class="line"><a name="l05049"></a><span class="lineno"> 5049</span> }</div><div class="line"><a name="l05050"></a><span class="lineno"> 5050</span> </div><div class="line"><a name="l05051"></a><span class="lineno"> 5051</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05052"></a><span class="lineno"> 5052</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l05053"></a><span class="lineno"> 5053</span> ip_rb_threadTkWaitObjCmd(clientData, interp, objc, objv)</div><div class="line"><a name="l05054"></a><span class="lineno"> 5054</span>  ClientData clientData;</div><div class="line"><a name="l05055"></a><span class="lineno"> 5055</span>  Tcl_Interp *interp;</div><div class="line"><a name="l05056"></a><span class="lineno"> 5056</span>  <span class="keywordtype">int</span> objc;</div><div class="line"><a name="l05057"></a><span class="lineno"> 5057</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> objv[];</div><div class="line"><a name="l05058"></a><span class="lineno"> 5058</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l05059"></a><span class="lineno"> 5059</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l05060"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a34a4e30596fa823b890b12d95811cad6"> 5060</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a34a4e30596fa823b890b12d95811cad6">ip_rb_threadTkWaitCommand</a>(clientData, interp, objc, objv)</div><div class="line"><a name="l05061"></a><span class="lineno"> 5061</span>  ClientData clientData;</div><div class="line"><a name="l05062"></a><span class="lineno"> 5062</span>  Tcl_Interp *interp;</div><div class="line"><a name="l05063"></a><span class="lineno"> 5063</span>  <span class="keywordtype">int</span> objc;</div><div class="line"><a name="l05064"></a><span class="lineno"> 5064</span>  <span class="keywordtype">char</span> *objv[];</div><div class="line"><a name="l05065"></a><span class="lineno"> 5065</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05066"></a><span class="lineno"> 5066</span> {</div><div class="line"><a name="l05067"></a><span class="lineno"> 5067</span>  <span class="keyword">struct </span><a class="code" href="../../dd/dca/structth__vwait__param.html">th_vwait_param</a> *param;</div><div class="line"><a name="l05068"></a><span class="lineno"> 5068</span>  Tk_Window tkwin = (Tk_Window) clientData;</div><div class="line"><a name="l05069"></a><span class="lineno"> 5069</span>  Tk_Window window;</div><div class="line"><a name="l05070"></a><span class="lineno"> 5070</span>  <span class="keywordtype">int</span> index;</div><div class="line"><a name="l05071"></a><span class="lineno"> 5071</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="l05072"></a><span class="lineno"> 5072</span>  (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a> };</div><div class="line"><a name="l05073"></a><span class="lineno"> 5073</span>  <span class="keyword">enum</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ad2d8a938168dc85041b2bac532a7cf75">options</a> { TKWAIT_VARIABLE, TKWAIT_VISIBILITY, TKWAIT_WINDOW };</div><div class="line"><a name="l05074"></a><span class="lineno"> 5074</span>  <span class="keywordtype">char</span> *nameString;</div><div class="line"><a name="l05075"></a><span class="lineno"> 5075</span>  <span class="keywordtype">int</span> ret, dummy;</div><div class="line"><a name="l05076"></a><span class="lineno"> 5076</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l05077"></a><span class="lineno"> 5077</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> current_thread = <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>();</div><div class="line"><a name="l05078"></a><span class="lineno"> 5078</span>  <span class="keyword">struct </span><a class="code" href="../../d1/d1b/structtimeval.html">timeval</a> <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>;</div><div class="line"><a name="l05079"></a><span class="lineno"> 5079</span> </div><div class="line"><a name="l05080"></a><span class="lineno"> 5080</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="l05081"></a><span class="lineno"> 5081</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l05082"></a><span class="lineno"> 5082</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l05083"></a><span class="lineno"> 5083</span>  <span class="stringliteral">"IP is deleted"</span>);</div><div class="line"><a name="l05084"></a><span class="lineno"> 5084</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l05085"></a><span class="lineno"> 5085</span>  }</div><div class="line"><a name="l05086"></a><span class="lineno"> 5086</span> </div><div class="line"><a name="l05087"></a><span class="lineno"> 5087</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#ac86131edba4a5a668958ce58b661d7ee">rb_thread_alone</a>() || <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a> == current_thread) {</div><div class="line"><a name="l05088"></a><span class="lineno"> 5088</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05089"></a><span class="lineno"> 5089</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="l05090"></a><span class="lineno"> 5090</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"eventloop_thread %lx"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>);</div><div class="line"><a name="l05091"></a><span class="lineno"> 5091</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="l05092"></a><span class="lineno"> 5092</span>  <span class="keywordflow">return</span> ip_rbTkWaitObjCmd(clientData, interp, objc, objv);</div><div class="line"><a name="l05093"></a><span class="lineno"> 5093</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l05094"></a><span class="lineno"> 5094</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="l05095"></a><span class="lineno"> 5095</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#afc2f1f2ea51cf8f475b7075cf1052bd9">ip_rbTkWaitCommand</a>(clientData, interp, objc, objv);</div><div class="line"><a name="l05096"></a><span class="lineno"> 5096</span> <span class="preprocessor">#endif</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"> 5098</span> </div><div class="line"><a name="l05099"></a><span class="lineno"> 5099</span>  Tcl_Preserve(interp);</div><div class="line"><a name="l05100"></a><span class="lineno"> 5100</span>  Tcl_Preserve(tkwin);</div><div class="line"><a name="l05101"></a><span class="lineno"> 5101</span> </div><div class="line"><a name="l05102"></a><span class="lineno"> 5102</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l05103"></a><span class="lineno"> 5103</span> </div><div class="line"><a name="l05104"></a><span class="lineno"> 5104</span>  <span class="keywordflow">if</span> (objc != 3) {</div><div class="line"><a name="l05105"></a><span class="lineno"> 5105</span> <span class="preprocessor">#ifdef Tcl_WrongNumArgs</span></div><div class="line"><a name="l05106"></a><span class="lineno"> 5106</span>  Tcl_WrongNumArgs(interp, 1, objv, <span class="stringliteral">"variable|visibility|window name"</span>);</div><div class="line"><a name="l05107"></a><span class="lineno"> 5107</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05108"></a><span class="lineno"> 5108</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l05109"></a><span class="lineno"> 5109</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l05110"></a><span class="lineno"> 5110</span> </div><div class="line"><a name="l05111"></a><span class="lineno"> 5111</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05112"></a><span class="lineno"> 5112</span>  Tcl_AppendResult(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div><div class="line"><a name="l05113"></a><span class="lineno"> 5113</span>  Tcl_GetStringFromObj(objv[0], &dummy),</div><div class="line"><a name="l05114"></a><span class="lineno"> 5114</span>  <span class="stringliteral">" variable|visibility|window name\""</span>,</div><div class="line"><a name="l05115"></a><span class="lineno"> 5115</span>  (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05116"></a><span class="lineno"> 5116</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l05117"></a><span class="lineno"> 5117</span>  Tcl_AppendResult(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div><div class="line"><a name="l05118"></a><span class="lineno"> 5118</span>  objv[0], <span class="stringliteral">" variable|visibility|window name\""</span>,</div><div class="line"><a name="l05119"></a><span class="lineno"> 5119</span>  (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05120"></a><span class="lineno"> 5120</span> <span class="preprocessor">#endif</span></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>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l05123"></a><span class="lineno"> 5123</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05124"></a><span class="lineno"> 5124</span> </div><div class="line"><a name="l05125"></a><span class="lineno"> 5125</span>  Tcl_Release(tkwin);</div><div class="line"><a name="l05126"></a><span class="lineno"> 5126</span>  Tcl_Release(interp);</div><div class="line"><a name="l05127"></a><span class="lineno"> 5127</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l05128"></a><span class="lineno"> 5128</span>  }</div><div class="line"><a name="l05129"></a><span class="lineno"> 5129</span> </div><div class="line"><a name="l05130"></a><span class="lineno"> 5130</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05131"></a><span class="lineno"> 5131</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l05132"></a><span class="lineno"> 5132</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l05133"></a><span class="lineno"> 5133</span>  <span class="comment">/*</span></div><div class="line"><a name="l05134"></a><span class="lineno"> 5134</span> <span class="comment"> if (Tcl_GetIndexFromObj(interp, objv[1],</span></div><div class="line"><a name="l05135"></a><span class="lineno"> 5135</span> <span class="comment"> (CONST84 char **)optionStrings,</span></div><div class="line"><a name="l05136"></a><span class="lineno"> 5136</span> <span class="comment"> "option", 0, &index) != TCL_OK) {</span></div><div class="line"><a name="l05137"></a><span class="lineno"> 5137</span> <span class="comment"> return TCL_ERROR;</span></div><div class="line"><a name="l05138"></a><span class="lineno"> 5138</span> <span class="comment"> }</span></div><div class="line"><a name="l05139"></a><span class="lineno"> 5139</span> <span class="comment"> */</span></div><div class="line"><a name="l05140"></a><span class="lineno"> 5140</span>  ret = Tcl_GetIndexFromObj(interp, objv[1],</div><div class="line"><a name="l05141"></a><span class="lineno"> 5141</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="l05142"></a><span class="lineno"> 5142</span>  <span class="stringliteral">"option"</span>, 0, &index);</div><div class="line"><a name="l05143"></a><span class="lineno"> 5143</span> </div><div class="line"><a name="l05144"></a><span class="lineno"> 5144</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l05145"></a><span class="lineno"> 5145</span> </div><div class="line"><a name="l05146"></a><span class="lineno"> 5146</span>  <span class="keywordflow">if</span> (ret != TCL_OK) {</div><div class="line"><a name="l05147"></a><span class="lineno"> 5147</span>  Tcl_Release(tkwin);</div><div class="line"><a name="l05148"></a><span class="lineno"> 5148</span>  Tcl_Release(interp);</div><div class="line"><a name="l05149"></a><span class="lineno"> 5149</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l05150"></a><span class="lineno"> 5150</span>  }</div><div class="line"><a name="l05151"></a><span class="lineno"> 5151</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l05152"></a><span class="lineno"> 5152</span>  {</div><div class="line"><a name="l05153"></a><span class="lineno"> 5153</span>  <span class="keywordtype">int</span> c = objv[1][0];</div><div class="line"><a name="l05154"></a><span class="lineno"> 5154</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="l05155"></a><span class="lineno"> 5155</span> </div><div class="line"><a name="l05156"></a><span class="lineno"> 5156</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="l05157"></a><span class="lineno"> 5157</span>  && (length >= 2)) {</div><div class="line"><a name="l05158"></a><span class="lineno"> 5158</span>  index = TKWAIT_VARIABLE;</div><div class="line"><a name="l05159"></a><span class="lineno"> 5159</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="l05160"></a><span class="lineno"> 5160</span>  && (length >= 2)) {</div><div class="line"><a name="l05161"></a><span class="lineno"> 5161</span>  index = TKWAIT_VISIBILITY;</div><div class="line"><a name="l05162"></a><span class="lineno"> 5162</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="l05163"></a><span class="lineno"> 5163</span>  index = TKWAIT_WINDOW;</div><div class="line"><a name="l05164"></a><span class="lineno"> 5164</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l05165"></a><span class="lineno"> 5165</span>  Tcl_AppendResult(interp, <span class="stringliteral">"bad option \""</span>, objv[1],</div><div class="line"><a name="l05166"></a><span class="lineno"> 5166</span>  <span class="stringliteral">"\": must be variable, visibility, or window"</span>,</div><div class="line"><a name="l05167"></a><span class="lineno"> 5167</span>  (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05168"></a><span class="lineno"> 5168</span>  Tcl_Release(tkwin);</div><div class="line"><a name="l05169"></a><span class="lineno"> 5169</span>  Tcl_Release(interp);</div><div class="line"><a name="l05170"></a><span class="lineno"> 5170</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l05171"></a><span class="lineno"> 5171</span>  }</div><div class="line"><a name="l05172"></a><span class="lineno"> 5172</span>  }</div><div class="line"><a name="l05173"></a><span class="lineno"> 5173</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05174"></a><span class="lineno"> 5174</span> </div><div class="line"><a name="l05175"></a><span class="lineno"> 5175</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l05176"></a><span class="lineno"> 5176</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l05177"></a><span class="lineno"> 5177</span> </div><div class="line"><a name="l05178"></a><span class="lineno"> 5178</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05179"></a><span class="lineno"> 5179</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(objv[2]);</div><div class="line"><a name="l05180"></a><span class="lineno"> 5180</span>  <span class="comment">/* nameString = Tcl_GetString(objv[2]); */</span></div><div class="line"><a name="l05181"></a><span class="lineno"> 5181</span>  nameString = Tcl_GetStringFromObj(objv[2], &dummy);</div><div class="line"><a name="l05182"></a><span class="lineno"> 5182</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l05183"></a><span class="lineno"> 5183</span>  nameString = objv[2];</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> </div><div class="line"><a name="l05186"></a><span class="lineno"> 5186</span>  <span class="comment">/* param = (struct th_vwait_param *)Tcl_Alloc(sizeof(struct th_vwait_param)); */</span></div><div class="line"><a name="l05187"></a><span class="lineno"> 5187</span>  param = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(<span class="keyword">struct</span> <a class="code" href="../../dd/dca/structth__vwait__param.html">th_vwait_param</a>, 1);</div><div class="line"><a name="l05188"></a><span class="lineno"> 5188</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="l05189"></a><span class="lineno"> 5189</span>  Tcl_Preserve((ClientData)param);</div><div class="line"><a name="l05190"></a><span class="lineno"> 5190</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05191"></a><span class="lineno"> 5191</span>  param->thread = current_thread;</div><div class="line"><a name="l05192"></a><span class="lineno"> 5192</span>  param->done = 0;</div><div class="line"><a name="l05193"></a><span class="lineno"> 5193</span> </div><div class="line"><a name="l05194"></a><span class="lineno"> 5194</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l05195"></a><span class="lineno"> 5195</span> </div><div class="line"><a name="l05196"></a><span class="lineno"> 5196</span>  <span class="keywordflow">switch</span> ((<span class="keyword">enum</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ad2d8a938168dc85041b2bac532a7cf75">options</a>) index) {</div><div class="line"><a name="l05197"></a><span class="lineno"> 5197</span>  <span class="keywordflow">case</span> TKWAIT_VARIABLE:</div><div class="line"><a name="l05198"></a><span class="lineno"> 5198</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l05199"></a><span class="lineno"> 5199</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l05200"></a><span class="lineno"> 5200</span>  <span class="comment">/*</span></div><div class="line"><a name="l05201"></a><span class="lineno"> 5201</span> <span class="comment"> if (Tcl_TraceVar(interp, nameString,</span></div><div class="line"><a name="l05202"></a><span class="lineno"> 5202</span> <span class="comment"> TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</span></div><div class="line"><a name="l05203"></a><span class="lineno"> 5203</span> <span class="comment"> rb_threadVwaitProc, (ClientData) param) != TCL_OK) {</span></div><div class="line"><a name="l05204"></a><span class="lineno"> 5204</span> <span class="comment"> return TCL_ERROR;</span></div><div class="line"><a name="l05205"></a><span class="lineno"> 5205</span> <span class="comment"> }</span></div><div class="line"><a name="l05206"></a><span class="lineno"> 5206</span> <span class="comment"> */</span></div><div class="line"><a name="l05207"></a><span class="lineno"> 5207</span>  ret = Tcl_TraceVar(interp, nameString,</div><div class="line"><a name="l05208"></a><span class="lineno"> 5208</span>  TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</div><div class="line"><a name="l05209"></a><span class="lineno"> 5209</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0614494bd697c4f5fa620fe67a7f411e">rb_threadVwaitProc</a>, (ClientData) param);</div><div class="line"><a name="l05210"></a><span class="lineno"> 5210</span> </div><div class="line"><a name="l05211"></a><span class="lineno"> 5211</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l05212"></a><span class="lineno"> 5212</span> </div><div class="line"><a name="l05213"></a><span class="lineno"> 5213</span>  <span class="keywordflow">if</span> (ret != TCL_OK) {</div><div class="line"><a name="l05214"></a><span class="lineno"> 5214</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l05215"></a><span class="lineno"> 5215</span>  Tcl_EventuallyFree((ClientData)param, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l05216"></a><span class="lineno"> 5216</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05217"></a><span class="lineno"> 5217</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="l05218"></a><span class="lineno"> 5218</span>  Tcl_Release(param);</div><div class="line"><a name="l05219"></a><span class="lineno"> 5219</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05220"></a><span class="lineno"> 5220</span>  <span class="comment">/* Tcl_Free((char *)param); */</span></div><div class="line"><a name="l05221"></a><span class="lineno"> 5221</span>  ckfree((<span class="keywordtype">char</span> *)param);</div><div class="line"><a name="l05222"></a><span class="lineno"> 5222</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05223"></a><span class="lineno"> 5223</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05224"></a><span class="lineno"> 5224</span> </div><div class="line"><a name="l05225"></a><span class="lineno"> 5225</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05226"></a><span class="lineno"> 5226</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div><div class="line"><a name="l05227"></a><span class="lineno"> 5227</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05228"></a><span class="lineno"> 5228</span> </div><div class="line"><a name="l05229"></a><span class="lineno"> 5229</span>  Tcl_Release(tkwin);</div><div class="line"><a name="l05230"></a><span class="lineno"> 5230</span>  Tcl_Release(interp);</div><div class="line"><a name="l05231"></a><span class="lineno"> 5231</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l05232"></a><span class="lineno"> 5232</span>  }</div><div class="line"><a name="l05233"></a><span class="lineno"> 5233</span> </div><div class="line"><a name="l05234"></a><span class="lineno"> 5234</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_sec = 0;</div><div class="line"><a name="l05235"></a><span class="lineno"> 5235</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_usec = (long)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd2530678e6262a587dd99dedeb053b">EVENT_HANDLER_TIMEOUT</a>)*1000.0);</div><div class="line"><a name="l05236"></a><span class="lineno"> 5236</span> </div><div class="line"><a name="l05237"></a><span class="lineno"> 5237</span>  <span class="keywordflow">while</span>(!param->done) {</div><div class="line"><a name="l05238"></a><span class="lineno"> 5238</span>  <span class="comment">/* rb_thread_stop(); */</span></div><div class="line"><a name="l05239"></a><span class="lineno"> 5239</span>  <span class="comment">/* rb_thread_sleep_forever(); */</span></div><div class="line"><a name="l05240"></a><span class="lineno"> 5240</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0187a1eb4a4d01a4c9ef6b36b51faa6f">rb_thread_wait_for</a>(<a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>);</div><div class="line"><a name="l05241"></a><span class="lineno"> 5241</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#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)) {</div><div class="line"><a name="l05242"></a><span class="lineno"> 5242</span>  <span class="keywordflow">break</span>;</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> </div><div class="line"><a name="l05246"></a><span class="lineno"> 5246</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l05247"></a><span class="lineno"> 5247</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l05248"></a><span class="lineno"> 5248</span> </div><div class="line"><a name="l05249"></a><span class="lineno"> 5249</span>  <span class="keywordflow">if</span> (param->done > 0) {</div><div class="line"><a name="l05250"></a><span class="lineno"> 5250</span>  Tcl_UntraceVar(interp, nameString,</div><div class="line"><a name="l05251"></a><span class="lineno"> 5251</span>  TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,</div><div class="line"><a name="l05252"></a><span class="lineno"> 5252</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0614494bd697c4f5fa620fe67a7f411e">rb_threadVwaitProc</a>, (ClientData) param);</div><div class="line"><a name="l05253"></a><span class="lineno"> 5253</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> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05256"></a><span class="lineno"> 5256</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div><div class="line"><a name="l05257"></a><span class="lineno"> 5257</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05258"></a><span class="lineno"> 5258</span> </div><div class="line"><a name="l05259"></a><span class="lineno"> 5259</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l05260"></a><span class="lineno"> 5260</span> </div><div class="line"><a name="l05261"></a><span class="lineno"> 5261</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05262"></a><span class="lineno"> 5262</span> </div><div class="line"><a name="l05263"></a><span class="lineno"> 5263</span>  <span class="keywordflow">case</span> TKWAIT_VISIBILITY:</div><div class="line"><a name="l05264"></a><span class="lineno"> 5264</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l05265"></a><span class="lineno"> 5265</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l05266"></a><span class="lineno"> 5266</span> </div><div class="line"><a name="l05267"></a><span class="lineno"> 5267</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="l05268"></a><span class="lineno"> 5268</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="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l05269"></a><span class="lineno"> 5269</span>  window = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l05270"></a><span class="lineno"> 5270</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l05271"></a><span class="lineno"> 5271</span>  window = Tk_NameToWindow(interp, nameString, tkwin);</div><div class="line"><a name="l05272"></a><span class="lineno"> 5272</span>  }</div><div class="line"><a name="l05273"></a><span class="lineno"> 5273</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05274"></a><span class="lineno"> 5274</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>() || tkwin == (Tk_Window)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l05275"></a><span class="lineno"> 5275</span>  window = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l05276"></a><span class="lineno"> 5276</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l05277"></a><span class="lineno"> 5277</span>  <span class="comment">/* Tk_NameToWindow() returns right token on non-eventloop thread */</span></div><div class="line"><a name="l05278"></a><span class="lineno"> 5278</span>  Tcl_CmdInfo info;</div><div class="line"><a name="l05279"></a><span class="lineno"> 5279</span>  <span class="keywordflow">if</span> (Tcl_GetCommandInfo(interp, <span class="stringliteral">"."</span>, &info)) { <span class="comment">/* check root */</span></div><div class="line"><a name="l05280"></a><span class="lineno"> 5280</span>  window = Tk_NameToWindow(interp, nameString, tkwin);</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 = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</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>  }</div><div class="line"><a name="l05285"></a><span class="lineno"> 5285</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05286"></a><span class="lineno"> 5286</span> </div><div class="line"><a name="l05287"></a><span class="lineno"> 5287</span>  <span class="keywordflow">if</span> (window == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l05288"></a><span class="lineno"> 5288</span>  Tcl_AppendResult(interp, <span class="stringliteral">": thread_tkwait: "</span>,</div><div class="line"><a name="l05289"></a><span class="lineno"> 5289</span>  <span class="stringliteral">"no main-window (not Tk application?)"</span>,</div><div class="line"><a name="l05290"></a><span class="lineno"> 5290</span>  (<span class="keywordtype">char</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05291"></a><span class="lineno"> 5291</span> </div><div class="line"><a name="l05292"></a><span class="lineno"> 5292</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l05293"></a><span class="lineno"> 5293</span> </div><div class="line"><a name="l05294"></a><span class="lineno"> 5294</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l05295"></a><span class="lineno"> 5295</span>  Tcl_EventuallyFree((ClientData)param, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l05296"></a><span class="lineno"> 5296</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05297"></a><span class="lineno"> 5297</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="l05298"></a><span class="lineno"> 5298</span>  Tcl_Release(param);</div><div class="line"><a name="l05299"></a><span class="lineno"> 5299</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05300"></a><span class="lineno"> 5300</span>  <span class="comment">/* Tcl_Free((char *)param); */</span></div><div class="line"><a name="l05301"></a><span class="lineno"> 5301</span>  ckfree((<span class="keywordtype">char</span> *)param);</div><div class="line"><a name="l05302"></a><span class="lineno"> 5302</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05303"></a><span class="lineno"> 5303</span> <span class="preprocessor">#endif</span></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 TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05306"></a><span class="lineno"> 5306</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div><div class="line"><a name="l05307"></a><span class="lineno"> 5307</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05308"></a><span class="lineno"> 5308</span>  Tcl_Release(tkwin);</div><div class="line"><a name="l05309"></a><span class="lineno"> 5309</span>  Tcl_Release(interp);</div><div class="line"><a name="l05310"></a><span class="lineno"> 5310</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l05311"></a><span class="lineno"> 5311</span>  }</div><div class="line"><a name="l05312"></a><span class="lineno"> 5312</span>  Tcl_Preserve(window);</div><div class="line"><a name="l05313"></a><span class="lineno"> 5313</span> </div><div class="line"><a name="l05314"></a><span class="lineno"> 5314</span>  Tk_CreateEventHandler(window,</div><div class="line"><a name="l05315"></a><span class="lineno"> 5315</span>  VisibilityChangeMask|StructureNotifyMask,</div><div class="line"><a name="l05316"></a><span class="lineno"> 5316</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aca15514270a006b5a1eda592c0d0ee75">rb_threadWaitVisibilityProc</a>, (ClientData) param);</div><div class="line"><a name="l05317"></a><span class="lineno"> 5317</span> </div><div class="line"><a name="l05318"></a><span class="lineno"> 5318</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l05319"></a><span class="lineno"> 5319</span> </div><div class="line"><a name="l05320"></a><span class="lineno"> 5320</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_sec = 0;</div><div class="line"><a name="l05321"></a><span class="lineno"> 5321</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_usec = (long)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd2530678e6262a587dd99dedeb053b">EVENT_HANDLER_TIMEOUT</a>)*1000.0);</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>  <span class="keywordflow">while</span>(param->done != <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac904beb2aab947ee7a16ad741ae38ef1">TKWAIT_MODE_VISIBILITY</a>) {</div><div class="line"><a name="l05324"></a><span class="lineno"> 5324</span>  <span class="keywordflow">if</span> (param->done == <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="l05325"></a><span class="lineno"> 5325</span>  <span class="comment">/* rb_thread_stop(); */</span></div><div class="line"><a name="l05326"></a><span class="lineno"> 5326</span>  <span class="comment">/* rb_thread_sleep_forever(); */</span></div><div class="line"><a name="l05327"></a><span class="lineno"> 5327</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0187a1eb4a4d01a4c9ef6b36b51faa6f">rb_thread_wait_for</a>(<a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>);</div><div class="line"><a name="l05328"></a><span class="lineno"> 5328</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#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)) {</div><div class="line"><a name="l05329"></a><span class="lineno"> 5329</span>  <span class="keywordflow">break</span>;</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>  }</div><div class="line"><a name="l05332"></a><span class="lineno"> 5332</span> </div><div class="line"><a name="l05333"></a><span class="lineno"> 5333</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l05334"></a><span class="lineno"> 5334</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l05335"></a><span class="lineno"> 5335</span> </div><div class="line"><a name="l05336"></a><span class="lineno"> 5336</span>  <span class="comment">/* when a window is destroyed, no need to call Tk_DeleteEventHandler */</span></div><div class="line"><a name="l05337"></a><span class="lineno"> 5337</span>  <span class="keywordflow">if</span> (param->done != <a class="code" href="../../d5/d9d/tcltklib_8c.html#add9a7c9b57ebc6b1e1a25640d8e17e29">TKWAIT_MODE_DESTROY</a>) {</div><div class="line"><a name="l05338"></a><span class="lineno"> 5338</span>  Tk_DeleteEventHandler(window,</div><div class="line"><a name="l05339"></a><span class="lineno"> 5339</span>  VisibilityChangeMask|StructureNotifyMask,</div><div class="line"><a name="l05340"></a><span class="lineno"> 5340</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aca15514270a006b5a1eda592c0d0ee75">rb_threadWaitVisibilityProc</a>,</div><div class="line"><a name="l05341"></a><span class="lineno"> 5341</span>  (ClientData) param);</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>  <span class="keywordflow">if</span> (param->done != 1) {</div><div class="line"><a name="l05345"></a><span class="lineno"> 5345</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l05346"></a><span class="lineno"> 5346</span>  Tcl_AppendResult(interp, <span class="stringliteral">"window \""</span>, nameString,</div><div class="line"><a name="l05347"></a><span class="lineno"> 5347</span>  <span class="stringliteral">"\" was deleted before its visibility changed"</span>,</div><div class="line"><a name="l05348"></a><span class="lineno"> 5348</span>  (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05349"></a><span class="lineno"> 5349</span> </div><div class="line"><a name="l05350"></a><span class="lineno"> 5350</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l05351"></a><span class="lineno"> 5351</span> </div><div class="line"><a name="l05352"></a><span class="lineno"> 5352</span>  Tcl_Release(window);</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> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l05355"></a><span class="lineno"> 5355</span>  Tcl_EventuallyFree((ClientData)param, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l05356"></a><span class="lineno"> 5356</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05357"></a><span class="lineno"> 5357</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="l05358"></a><span class="lineno"> 5358</span>  Tcl_Release(param);</div><div class="line"><a name="l05359"></a><span class="lineno"> 5359</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05360"></a><span class="lineno"> 5360</span>  <span class="comment">/* Tcl_Free((char *)param); */</span></div><div class="line"><a name="l05361"></a><span class="lineno"> 5361</span>  ckfree((<span class="keywordtype">char</span> *)param);</div><div class="line"><a name="l05362"></a><span class="lineno"> 5362</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05363"></a><span class="lineno"> 5363</span> <span class="preprocessor">#endif</span></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 TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05366"></a><span class="lineno"> 5366</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div><div class="line"><a name="l05367"></a><span class="lineno"> 5367</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05368"></a><span class="lineno"> 5368</span> </div><div class="line"><a name="l05369"></a><span class="lineno"> 5369</span>  Tcl_Release(tkwin);</div><div class="line"><a name="l05370"></a><span class="lineno"> 5370</span>  Tcl_Release(interp);</div><div class="line"><a name="l05371"></a><span class="lineno"> 5371</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l05372"></a><span class="lineno"> 5372</span>  }</div><div class="line"><a name="l05373"></a><span class="lineno"> 5373</span> </div><div class="line"><a name="l05374"></a><span class="lineno"> 5374</span>  Tcl_Release(window);</div><div class="line"><a name="l05375"></a><span class="lineno"> 5375</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>  <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> </div><div class="line"><a name="l05380"></a><span class="lineno"> 5380</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l05381"></a><span class="lineno"> 5381</span> </div><div class="line"><a name="l05382"></a><span class="lineno"> 5382</span>  <span class="keywordflow">break</span>;</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>  <span class="keywordflow">case</span> TKWAIT_WINDOW:</div><div class="line"><a name="l05385"></a><span class="lineno"> 5385</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l05386"></a><span class="lineno"> 5386</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l05387"></a><span class="lineno"> 5387</span> </div><div class="line"><a name="l05388"></a><span class="lineno"> 5388</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="l05389"></a><span class="lineno"> 5389</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="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l05390"></a><span class="lineno"> 5390</span>  window = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l05391"></a><span class="lineno"> 5391</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l05392"></a><span class="lineno"> 5392</span>  window = Tk_NameToWindow(interp, nameString, tkwin);</div><div class="line"><a name="l05393"></a><span class="lineno"> 5393</span>  }</div><div class="line"><a name="l05394"></a><span class="lineno"> 5394</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05395"></a><span class="lineno"> 5395</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>() || tkwin == (Tk_Window)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l05396"></a><span class="lineno"> 5396</span>  window = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l05397"></a><span class="lineno"> 5397</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l05398"></a><span class="lineno"> 5398</span>  <span class="comment">/* Tk_NameToWindow() returns right token on non-eventloop thread */</span></div><div class="line"><a name="l05399"></a><span class="lineno"> 5399</span>  Tcl_CmdInfo info;</div><div class="line"><a name="l05400"></a><span class="lineno"> 5400</span>  <span class="keywordflow">if</span> (Tcl_GetCommandInfo(interp, <span class="stringliteral">"."</span>, &info)) { <span class="comment">/* check root */</span></div><div class="line"><a name="l05401"></a><span class="lineno"> 5401</span>  window = Tk_NameToWindow(interp, nameString, tkwin);</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 = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</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>  }</div><div class="line"><a name="l05406"></a><span class="lineno"> 5406</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05407"></a><span class="lineno"> 5407</span> </div><div class="line"><a name="l05408"></a><span class="lineno"> 5408</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05409"></a><span class="lineno"> 5409</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[2]);</div><div class="line"><a name="l05410"></a><span class="lineno"> 5410</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05411"></a><span class="lineno"> 5411</span> </div><div class="line"><a name="l05412"></a><span class="lineno"> 5412</span>  <span class="keywordflow">if</span> (window == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l05413"></a><span class="lineno"> 5413</span>  Tcl_AppendResult(interp, <span class="stringliteral">": thread_tkwait: "</span>,</div><div class="line"><a name="l05414"></a><span class="lineno"> 5414</span>  <span class="stringliteral">"no main-window (not Tk application?)"</span>,</div><div class="line"><a name="l05415"></a><span class="lineno"> 5415</span>  (<span class="keywordtype">char</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</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>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l05418"></a><span class="lineno"> 5418</span> </div><div class="line"><a name="l05419"></a><span class="lineno"> 5419</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l05420"></a><span class="lineno"> 5420</span>  Tcl_EventuallyFree((ClientData)param, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l05421"></a><span class="lineno"> 5421</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05422"></a><span class="lineno"> 5422</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="l05423"></a><span class="lineno"> 5423</span>  Tcl_Release(param);</div><div class="line"><a name="l05424"></a><span class="lineno"> 5424</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05425"></a><span class="lineno"> 5425</span>  <span class="comment">/* Tcl_Free((char *)param); */</span></div><div class="line"><a name="l05426"></a><span class="lineno"> 5426</span>  ckfree((<span class="keywordtype">char</span> *)param);</div><div class="line"><a name="l05427"></a><span class="lineno"> 5427</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05428"></a><span class="lineno"> 5428</span> <span class="preprocessor">#endif</span></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>  Tcl_Release(tkwin);</div><div class="line"><a name="l05431"></a><span class="lineno"> 5431</span>  Tcl_Release(interp);</div><div class="line"><a name="l05432"></a><span class="lineno"> 5432</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l05433"></a><span class="lineno"> 5433</span>  }</div><div class="line"><a name="l05434"></a><span class="lineno"> 5434</span> </div><div class="line"><a name="l05435"></a><span class="lineno"> 5435</span>  Tcl_Preserve(window);</div><div class="line"><a name="l05436"></a><span class="lineno"> 5436</span> </div><div class="line"><a name="l05437"></a><span class="lineno"> 5437</span>  Tk_CreateEventHandler(window, StructureNotifyMask,</div><div class="line"><a name="l05438"></a><span class="lineno"> 5438</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2212c740c8836eec937d1aca9a21332f">rb_threadWaitWindowProc</a>, (ClientData) param);</div><div class="line"><a name="l05439"></a><span class="lineno"> 5439</span> </div><div class="line"><a name="l05440"></a><span class="lineno"> 5440</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l05441"></a><span class="lineno"> 5441</span> </div><div class="line"><a name="l05442"></a><span class="lineno"> 5442</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_sec = 0;</div><div class="line"><a name="l05443"></a><span class="lineno"> 5443</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_usec = (long)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd2530678e6262a587dd99dedeb053b">EVENT_HANDLER_TIMEOUT</a>)*1000.0);</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>  <span class="keywordflow">while</span>(param->done != <a class="code" href="../../d5/d9d/tcltklib_8c.html#add9a7c9b57ebc6b1e1a25640d8e17e29">TKWAIT_MODE_DESTROY</a>) {</div><div class="line"><a name="l05446"></a><span class="lineno"> 5446</span>  <span class="comment">/* rb_thread_stop(); */</span></div><div class="line"><a name="l05447"></a><span class="lineno"> 5447</span>  <span class="comment">/* rb_thread_sleep_forever(); */</span></div><div class="line"><a name="l05448"></a><span class="lineno"> 5448</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0187a1eb4a4d01a4c9ef6b36b51faa6f">rb_thread_wait_for</a>(<a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>);</div><div class="line"><a name="l05449"></a><span class="lineno"> 5449</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#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)) {</div><div class="line"><a name="l05450"></a><span class="lineno"> 5450</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05451"></a><span class="lineno"> 5451</span>  }</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> </div><div class="line"><a name="l05454"></a><span class="lineno"> 5454</span>  Tcl_Release(window);</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="comment">/* when a window is destroyed, no need to call Tk_DeleteEventHandler</span></div><div class="line"><a name="l05457"></a><span class="lineno"> 5457</span> <span class="comment"> thr_crit_bup = rb_thread_critical;</span></div><div class="line"><a name="l05458"></a><span class="lineno"> 5458</span> <span class="comment"> rb_thread_critical = Qtrue;</span></div><div class="line"><a name="l05459"></a><span class="lineno"> 5459</span> <span class="comment"></span></div><div class="line"><a name="l05460"></a><span class="lineno"> 5460</span> <span class="comment"> Tk_DeleteEventHandler(window, StructureNotifyMask,</span></div><div class="line"><a name="l05461"></a><span class="lineno"> 5461</span> <span class="comment"> rb_threadWaitWindowProc, (ClientData) param);</span></div><div class="line"><a name="l05462"></a><span class="lineno"> 5462</span> <span class="comment"></span></div><div class="line"><a name="l05463"></a><span class="lineno"> 5463</span> <span class="comment"> rb_thread_critical = thr_crit_bup;</span></div><div class="line"><a name="l05464"></a><span class="lineno"> 5464</span> <span class="comment"> */</span></div><div class="line"><a name="l05465"></a><span class="lineno"> 5465</span> </div><div class="line"><a name="l05466"></a><span class="lineno"> 5466</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l05467"></a><span class="lineno"> 5467</span>  } <span class="comment">/* end of 'switch' statement */</span></div><div class="line"><a name="l05468"></a><span class="lineno"> 5468</span> </div><div class="line"><a name="l05469"></a><span class="lineno"> 5469</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l05470"></a><span class="lineno"> 5470</span>  Tcl_EventuallyFree((ClientData)param, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l05471"></a><span class="lineno"> 5471</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05472"></a><span class="lineno"> 5472</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="l05473"></a><span class="lineno"> 5473</span>  Tcl_Release((ClientData)param);</div><div class="line"><a name="l05474"></a><span class="lineno"> 5474</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05475"></a><span class="lineno"> 5475</span>  <span class="comment">/* Tcl_Free((char *)param); */</span></div><div class="line"><a name="l05476"></a><span class="lineno"> 5476</span>  ckfree((<span class="keywordtype">char</span> *)param);</div><div class="line"><a name="l05477"></a><span class="lineno"> 5477</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05478"></a><span class="lineno"> 5478</span> <span class="preprocessor">#endif</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="comment">/*</span></div><div class="line"><a name="l05481"></a><span class="lineno"> 5481</span> <span class="comment"> * Clear out the interpreter's result, since it may have been set</span></div><div class="line"><a name="l05482"></a><span class="lineno"> 5482</span> <span class="comment"> * by event handlers.</span></div><div class="line"><a name="l05483"></a><span class="lineno"> 5483</span> <span class="comment"> */</span></div><div class="line"><a name="l05484"></a><span class="lineno"> 5484</span> </div><div class="line"><a name="l05485"></a><span class="lineno"> 5485</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l05486"></a><span class="lineno"> 5486</span> </div><div class="line"><a name="l05487"></a><span class="lineno"> 5487</span>  Tcl_Release(tkwin);</div><div class="line"><a name="l05488"></a><span class="lineno"> 5488</span>  Tcl_Release(interp);</div><div class="line"><a name="l05489"></a><span class="lineno"> 5489</span>  <span class="keywordflow">return</span> TCL_OK;</div><div class="line"><a name="l05490"></a><span class="lineno"> 5490</span> }</div><div class="line"><a name="l05491"></a><span class="lineno"> 5491</span> </div><div class="line"><a name="l05492"></a><span class="lineno"> 5492</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l05493"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a88f2eac7c5925475e0bc985959852d99"> 5493</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a88f2eac7c5925475e0bc985959852d99">ip_thread_vwait</a>(<span class="keyword">self</span>, var)</div><div class="line"><a name="l05494"></a><span class="lineno"> 5494</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l05495"></a><span class="lineno"> 5495</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> var;</div><div class="line"><a name="l05496"></a><span class="lineno"> 5496</span> {</div><div class="line"><a name="l05497"></a><span class="lineno"> 5497</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[2];</div><div class="line"><a name="l05498"></a><span class="lineno"> 5498</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> cmd_str = <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">"thread_vwait"</span>);</div><div class="line"><a name="l05499"></a><span class="lineno"> 5499</span> </div><div class="line"><a name="l05500"></a><span class="lineno"> 5500</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[0] = cmd_str;</div><div class="line"><a name="l05501"></a><span class="lineno"> 5501</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1] = var;</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="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f3a24bb704d7b2c89ef9423cd219e78">ip_invoke_with_position</a>(2, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>, TCL_QUEUE_TAIL);</div><div class="line"><a name="l05504"></a><span class="lineno"> 5504</span> }</div><div class="line"><a name="l05505"></a><span class="lineno"> 5505</span> </div><div class="line"><a name="l05506"></a><span class="lineno"> 5506</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l05507"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a31f0d49512e1c6c15cce7c7855fdcb71"> 5507</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a31f0d49512e1c6c15cce7c7855fdcb71">ip_thread_tkwait</a>(<span class="keyword">self</span>, mode, target)</div><div class="line"><a name="l05508"></a><span class="lineno"> 5508</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l05509"></a><span class="lineno"> 5509</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> mode;</div><div class="line"><a name="l05510"></a><span class="lineno"> 5510</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> target;</div><div class="line"><a name="l05511"></a><span class="lineno"> 5511</span> {</div><div class="line"><a name="l05512"></a><span class="lineno"> 5512</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[3];</div><div class="line"><a name="l05513"></a><span class="lineno"> 5513</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> cmd_str = <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">"thread_tkwait"</span>);</div><div class="line"><a name="l05514"></a><span class="lineno"> 5514</span> </div><div class="line"><a name="l05515"></a><span class="lineno"> 5515</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[0] = cmd_str;</div><div class="line"><a name="l05516"></a><span class="lineno"> 5516</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1] = mode;</div><div class="line"><a name="l05517"></a><span class="lineno"> 5517</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[2] = target;</div><div class="line"><a name="l05518"></a><span class="lineno"> 5518</span> </div><div class="line"><a name="l05519"></a><span class="lineno"> 5519</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f3a24bb704d7b2c89ef9423cd219e78">ip_invoke_with_position</a>(3, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>, TCL_QUEUE_TAIL);</div><div class="line"><a name="l05520"></a><span class="lineno"> 5520</span> }</div><div class="line"><a name="l05521"></a><span class="lineno"> 5521</span> </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> <span class="comment">/* delete slave interpreters */</span></div><div class="line"><a name="l05524"></a><span class="lineno"> 5524</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05525"></a><span class="lineno"> 5525</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l05526"></a><span class="lineno"> 5526</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a08bba8786c84798961e0c5d04343a65c">delete_slaves</a>(ip)</div><div class="line"><a name="l05527"></a><span class="lineno"> 5527</span>  Tcl_Interp *ip;</div><div class="line"><a name="l05528"></a><span class="lineno"> 5528</span> {</div><div class="line"><a name="l05529"></a><span class="lineno"> 5529</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l05530"></a><span class="lineno"> 5530</span>  Tcl_Interp *slave;</div><div class="line"><a name="l05531"></a><span class="lineno"> 5531</span>  Tcl_Obj *slave_list, *elem;</div><div class="line"><a name="l05532"></a><span class="lineno"> 5532</span>  <span class="keywordtype">char</span> *slave_name;</div><div class="line"><a name="l05533"></a><span class="lineno"> 5533</span>  <span class="keywordtype">int</span> i, len;</div><div class="line"><a name="l05534"></a><span class="lineno"> 5534</span> </div><div class="line"><a name="l05535"></a><span class="lineno"> 5535</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="l05536"></a><span class="lineno"> 5536</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l05537"></a><span class="lineno"> 5537</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l05538"></a><span class="lineno"> 5538</span> </div><div class="line"><a name="l05539"></a><span class="lineno"> 5539</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>) == TCL_OK) {</div><div class="line"><a name="l05540"></a><span class="lineno"> 5540</span>  slave_list = Tcl_GetObjResult(ip);</div><div class="line"><a name="l05541"></a><span class="lineno"> 5541</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(slave_list);</div><div class="line"><a name="l05542"></a><span class="lineno"> 5542</span> </div><div class="line"><a name="l05543"></a><span class="lineno"> 5543</span>  <span class="keywordflow">if</span> (Tcl_ListObjLength((Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, slave_list, &len) == TCL_OK) {</div><div class="line"><a name="l05544"></a><span class="lineno"> 5544</span>  <span class="keywordflow">for</span>(i = 0; i < len; i++) {</div><div class="line"><a name="l05545"></a><span class="lineno"> 5545</span>  Tcl_ListObjIndex((Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, slave_list, i, &elem);</div><div class="line"><a name="l05546"></a><span class="lineno"> 5546</span> </div><div class="line"><a name="l05547"></a><span class="lineno"> 5547</span>  <span class="keywordflow">if</span> (elem == (Tcl_Obj*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) <span class="keywordflow">continue</span>;</div><div class="line"><a name="l05548"></a><span class="lineno"> 5548</span> </div><div class="line"><a name="l05549"></a><span class="lineno"> 5549</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(elem);</div><div class="line"><a name="l05550"></a><span class="lineno"> 5550</span> </div><div class="line"><a name="l05551"></a><span class="lineno"> 5551</span>  <span class="comment">/* get slave */</span></div><div class="line"><a name="l05552"></a><span class="lineno"> 5552</span>  <span class="comment">/* slave_name = Tcl_GetString(elem); */</span></div><div class="line"><a name="l05553"></a><span class="lineno"> 5553</span>  slave_name = Tcl_GetStringFromObj(elem, (<span class="keywordtype">int</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05554"></a><span class="lineno"> 5554</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="l05555"></a><span class="lineno"> 5555</span> </div><div class="line"><a name="l05556"></a><span class="lineno"> 5556</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(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>  slave = Tcl_GetSlave(ip, slave_name);</div><div class="line"><a name="l05559"></a><span class="lineno"> 5559</span>  <span class="keywordflow">if</span> (slave == (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) <span class="keywordflow">continue</span>;</div><div class="line"><a name="l05560"></a><span class="lineno"> 5560</span> </div><div class="line"><a name="l05561"></a><span class="lineno"> 5561</span>  <span class="keywordflow">if</span> (!Tcl_InterpDeleted(slave)) {</div><div class="line"><a name="l05562"></a><span class="lineno"> 5562</span>  <span class="comment">/* call ip_finalize */</span></div><div class="line"><a name="l05563"></a><span class="lineno"> 5563</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#af3e6f9a2db4741e3208aeedae20c97cd">ip_finalize</a>(slave);</div><div class="line"><a name="l05564"></a><span class="lineno"> 5564</span> </div><div class="line"><a name="l05565"></a><span class="lineno"> 5565</span>  Tcl_DeleteInterp(slave);</div><div class="line"><a name="l05566"></a><span class="lineno"> 5566</span>  <span class="comment">/* Tcl_Release(slave); */</span></div><div class="line"><a name="l05567"></a><span class="lineno"> 5567</span>  }</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>  }</div><div class="line"><a name="l05570"></a><span class="lineno"> 5570</span> </div><div class="line"><a name="l05571"></a><span class="lineno"> 5571</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(slave_list);</div><div class="line"><a name="l05572"></a><span class="lineno"> 5572</span>  }</div><div class="line"><a name="l05573"></a><span class="lineno"> 5573</span> </div><div class="line"><a name="l05574"></a><span class="lineno"> 5574</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</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> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l05577"></a><span class="lineno"> 5577</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l05578"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a08bba8786c84798961e0c5d04343a65c"> 5578</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a08bba8786c84798961e0c5d04343a65c">delete_slaves</a>(ip)</div><div class="line"><a name="l05579"></a><span class="lineno"> 5579</span>  Tcl_Interp *ip;</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>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l05582"></a><span class="lineno"> 5582</span>  Tcl_Interp *slave;</div><div class="line"><a name="l05583"></a><span class="lineno"> 5583</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l05584"></a><span class="lineno"> 5584</span>  <span class="keywordtype">char</span> **<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l05585"></a><span class="lineno"> 5585</span>  <span class="keywordtype">char</span> *slave_list;</div><div class="line"><a name="l05586"></a><span class="lineno"> 5586</span>  <span class="keywordtype">char</span> *slave_name;</div><div class="line"><a name="l05587"></a><span class="lineno"> 5587</span>  <span class="keywordtype">int</span> i, len;</div><div class="line"><a name="l05588"></a><span class="lineno"> 5588</span> </div><div class="line"><a name="l05589"></a><span class="lineno"> 5589</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="l05590"></a><span class="lineno"> 5590</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l05591"></a><span class="lineno"> 5591</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l05592"></a><span class="lineno"> 5592</span> </div><div class="line"><a name="l05593"></a><span class="lineno"> 5593</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>) == TCL_OK) {</div><div class="line"><a name="l05594"></a><span class="lineno"> 5594</span>  slave_list = ip->result;</div><div class="line"><a name="l05595"></a><span class="lineno"> 5595</span>  <span class="keywordflow">if</span> (Tcl_SplitList((Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>,</div><div class="line"><a name="l05596"></a><span class="lineno"> 5596</span>  slave_list, &<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, &<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>) == TCL_OK) {</div><div class="line"><a name="l05597"></a><span class="lineno"> 5597</span>  <span class="keywordflow">for</span>(i = 0; i < <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>; i++) {</div><div class="line"><a name="l05598"></a><span class="lineno"> 5598</span>  slave_name = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[i];</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#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"delete slave:'%s'"</span>, slave_name);</div><div class="line"><a name="l05601"></a><span class="lineno"> 5601</span> </div><div class="line"><a name="l05602"></a><span class="lineno"> 5602</span>  slave = Tcl_GetSlave(ip, slave_name);</div><div class="line"><a name="l05603"></a><span class="lineno"> 5603</span>  <span class="keywordflow">if</span> (slave == (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) <span class="keywordflow">continue</span>;</div><div class="line"><a name="l05604"></a><span class="lineno"> 5604</span> </div><div class="line"><a name="l05605"></a><span class="lineno"> 5605</span>  <span class="keywordflow">if</span> (!Tcl_InterpDeleted(slave)) {</div><div class="line"><a name="l05606"></a><span class="lineno"> 5606</span>  <span class="comment">/* call ip_finalize */</span></div><div class="line"><a name="l05607"></a><span class="lineno"> 5607</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#af3e6f9a2db4741e3208aeedae20c97cd">ip_finalize</a>(slave);</div><div class="line"><a name="l05608"></a><span class="lineno"> 5608</span> </div><div class="line"><a name="l05609"></a><span class="lineno"> 5609</span>  Tcl_DeleteInterp(slave);</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>  }</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>  }</div><div class="line"><a name="l05614"></a><span class="lineno"> 5614</span> </div><div class="line"><a name="l05615"></a><span class="lineno"> 5615</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l05616"></a><span class="lineno"> 5616</span> }</div><div class="line"><a name="l05617"></a><span class="lineno"> 5617</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05618"></a><span class="lineno"> 5618</span> </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> <span class="comment">/* finalize operation */</span></div><div class="line"><a name="l05621"></a><span class="lineno"> 5621</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l05622"></a><span class="lineno"> 5622</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div><div class="line"><a name="l05623"></a><span class="lineno"> 5623</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67448108787dbc8ff0220daad052bb96">lib_mark_at_exit</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>)</div><div class="line"><a name="l05624"></a><span class="lineno"> 5624</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05625"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a67448108787dbc8ff0220daad052bb96"> 5625</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67448108787dbc8ff0220daad052bb96">lib_mark_at_exit</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l05626"></a><span class="lineno"> 5626</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l05627"></a><span class="lineno"> 5627</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05628"></a><span class="lineno"> 5628</span> {</div><div class="line"><a name="l05629"></a><span class="lineno"> 5629</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0964f0f2c4ef2a9554392a5aaf13b032">at_exit</a> = 1;</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> </div><div class="line"><a name="l05632"></a><span class="lineno"> 5632</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l05633"></a><span class="lineno"> 5633</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05634"></a><span class="lineno"> 5634</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div><div class="line"><a name="l05635"></a><span class="lineno"> 5635</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed786a74627a6420a58f515327351758">ip_null_proc</a>(ClientData clientData, Tcl_Interp *interp,</div><div class="line"><a name="l05636"></a><span class="lineno"> 5636</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[])</div><div class="line"><a name="l05637"></a><span class="lineno"> 5637</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05638"></a><span class="lineno"> 5638</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed786a74627a6420a58f515327351758">ip_null_proc</a>(clientData, interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l05639"></a><span class="lineno"> 5639</span>  ClientData clientData;</div><div class="line"><a name="l05640"></a><span class="lineno"> 5640</span>  Tcl_Interp *interp;</div><div class="line"><a name="l05641"></a><span class="lineno"> 5641</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l05642"></a><span class="lineno"> 5642</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[];</div><div class="line"><a name="l05643"></a><span class="lineno"> 5643</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05644"></a><span class="lineno"> 5644</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l05645"></a><span class="lineno"> 5645</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div><div class="line"><a name="l05646"></a><span class="lineno"> 5646</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed786a74627a6420a58f515327351758">ip_null_proc</a>(ClientData clientData, Tcl_Interp *interp, <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <span class="keywordtype">char</span> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[])</div><div class="line"><a name="l05647"></a><span class="lineno"> 5647</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05648"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aed786a74627a6420a58f515327351758"> 5648</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed786a74627a6420a58f515327351758">ip_null_proc</a>(clientData, interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l05649"></a><span class="lineno"> 5649</span>  ClientData clientData;</div><div class="line"><a name="l05650"></a><span class="lineno"> 5650</span>  Tcl_Interp *interp;</div><div class="line"><a name="l05651"></a><span class="lineno"> 5651</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l05652"></a><span class="lineno"> 5652</span>  <span class="keywordtype">char</span> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[];</div><div class="line"><a name="l05653"></a><span class="lineno"> 5653</span> <span class="preprocessor">#endif</span></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> {</div><div class="line"><a name="l05656"></a><span class="lineno"> 5656</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l05657"></a><span class="lineno"> 5657</span>  <span class="keywordflow">return</span> TCL_OK;</div><div class="line"><a name="l05658"></a><span class="lineno"> 5658</span> }</div><div class="line"><a name="l05659"></a><span class="lineno"> 5659</span> </div><div class="line"><a name="l05660"></a><span class="lineno"> 5660</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l05661"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af3e6f9a2db4741e3208aeedae20c97cd"> 5661</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af3e6f9a2db4741e3208aeedae20c97cd">ip_finalize</a>(ip)</div><div class="line"><a name="l05662"></a><span class="lineno"> 5662</span>  Tcl_Interp *ip;</div><div class="line"><a name="l05663"></a><span class="lineno"> 5663</span> {</div><div class="line"><a name="l05664"></a><span class="lineno"> 5664</span>  Tcl_CmdInfo info;</div><div class="line"><a name="l05665"></a><span class="lineno"> 5665</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l05666"></a><span class="lineno"> 5666</span> </div><div class="line"><a name="l05667"></a><span class="lineno"> 5667</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> rb_debug_bup, rb_verbose_bup;</div><div class="line"><a name="l05668"></a><span class="lineno"> 5668</span>  <span class="comment">/* When ruby is exiting, printing debug messages in some callback</span></div><div class="line"><a name="l05669"></a><span class="lineno"> 5669</span> <span class="comment"> operations from Tcl-IP sometimes cause SEGV. I don't know the</span></div><div class="line"><a name="l05670"></a><span class="lineno"> 5670</span> <span class="comment"> reason. But I got SEGV when calling "rb_io_write(rb_stdout, ...)".</span></div><div class="line"><a name="l05671"></a><span class="lineno"> 5671</span> <span class="comment"> So, in some part of this function, debug mode and verbose mode</span></div><div class="line"><a name="l05672"></a><span class="lineno"> 5672</span> <span class="comment"> are disabled. If you know the reason, please fix it.</span></div><div class="line"><a name="l05673"></a><span class="lineno"> 5673</span> <span class="comment"> -- Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp) */</span></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>  <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="l05676"></a><span class="lineno"> 5676</span> </div><div class="line"><a name="l05677"></a><span class="lineno"> 5677</span>  <span class="keywordflow">if</span> (ip == (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l05678"></a><span class="lineno"> 5678</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="l05679"></a><span class="lineno"> 5679</span>  <span class="keywordflow">return</span>;</div><div class="line"><a name="l05680"></a><span class="lineno"> 5680</span>  }</div><div class="line"><a name="l05681"></a><span class="lineno"> 5681</span> </div><div class="line"><a name="l05682"></a><span class="lineno"> 5682</span>  <span class="keywordflow">if</span> (Tcl_InterpDeleted(ip)) {</div><div class="line"><a name="l05683"></a><span class="lineno"> 5683</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="l05684"></a><span class="lineno"> 5684</span>  <span class="keywordflow">return</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> </div><div class="line"><a name="l05687"></a><span class="lineno"> 5687</span> <span class="preprocessor">#if TCL_NAMESPACE_DEBUG</span></div><div class="line"><a name="l05688"></a><span class="lineno"> 5688</span>  <span class="keywordflow">if</span> (ip_null_namespace(ip)) {</div><div class="line"><a name="l05689"></a><span class="lineno"> 5689</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="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> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05693"></a><span class="lineno"> 5693</span> </div><div class="line"><a name="l05694"></a><span class="lineno"> 5694</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l05695"></a><span class="lineno"> 5695</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</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>  rb_debug_bup = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a01ed2eb085103197c53c2b5c63b8f637">ruby_debug</a>;</div><div class="line"><a name="l05698"></a><span class="lineno"> 5698</span>  rb_verbose_bup = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a56087d5316e4c73027105c023006cb15">ruby_verbose</a>;</div><div class="line"><a name="l05699"></a><span class="lineno"> 5699</span> </div><div class="line"><a name="l05700"></a><span class="lineno"> 5700</span>  Tcl_Preserve(ip);</div><div class="line"><a name="l05701"></a><span class="lineno"> 5701</span> </div><div class="line"><a name="l05702"></a><span class="lineno"> 5702</span>  <span class="comment">/* delete slaves */</span></div><div class="line"><a name="l05703"></a><span class="lineno"> 5703</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a08bba8786c84798961e0c5d04343a65c">delete_slaves</a>(ip);</div><div class="line"><a name="l05704"></a><span class="lineno"> 5704</span> </div><div class="line"><a name="l05705"></a><span class="lineno"> 5705</span>  <span class="comment">/* shut off some connections from Tcl-proc to Ruby */</span></div><div class="line"><a name="l05706"></a><span class="lineno"> 5706</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0964f0f2c4ef2a9554392a5aaf13b032">at_exit</a>) {</div><div class="line"><a name="l05707"></a><span class="lineno"> 5707</span>  <span class="comment">/* NOTE: Only when at exit.</span></div><div class="line"><a name="l05708"></a><span class="lineno"> 5708</span> <span class="comment"> Because, ruby removes objects, which depends on the deleted</span></div><div class="line"><a name="l05709"></a><span class="lineno"> 5709</span> <span class="comment"> interpreter, on some callback operations.</span></div><div class="line"><a name="l05710"></a><span class="lineno"> 5710</span> <span class="comment"> It is important for GC. */</span></div><div class="line"><a name="l05711"></a><span class="lineno"> 5711</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05712"></a><span class="lineno"> 5712</span>  Tcl_CreateObjCommand(ip, <span class="stringliteral">"ruby"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed786a74627a6420a58f515327351758">ip_null_proc</a>,</div><div class="line"><a name="l05713"></a><span class="lineno"> 5713</span>  (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05714"></a><span class="lineno"> 5714</span>  Tcl_CreateObjCommand(ip, <span class="stringliteral">"ruby_eval"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed786a74627a6420a58f515327351758">ip_null_proc</a>,</div><div class="line"><a name="l05715"></a><span class="lineno"> 5715</span>  (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05716"></a><span class="lineno"> 5716</span>  Tcl_CreateObjCommand(ip, <span class="stringliteral">"ruby_cmd"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed786a74627a6420a58f515327351758">ip_null_proc</a>,</div><div class="line"><a name="l05717"></a><span class="lineno"> 5717</span>  (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05718"></a><span class="lineno"> 5718</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l05719"></a><span class="lineno"> 5719</span>  Tcl_CreateCommand(ip, <span class="stringliteral">"ruby"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed786a74627a6420a58f515327351758">ip_null_proc</a>,</div><div class="line"><a name="l05720"></a><span class="lineno"> 5720</span>  (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05721"></a><span class="lineno"> 5721</span>  Tcl_CreateCommand(ip, <span class="stringliteral">"ruby_eval"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed786a74627a6420a58f515327351758">ip_null_proc</a>,</div><div class="line"><a name="l05722"></a><span class="lineno"> 5722</span>  (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05723"></a><span class="lineno"> 5723</span>  Tcl_CreateCommand(ip, <span class="stringliteral">"ruby_cmd"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed786a74627a6420a58f515327351758">ip_null_proc</a>,</div><div class="line"><a name="l05724"></a><span class="lineno"> 5724</span>  (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05725"></a><span class="lineno"> 5725</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05726"></a><span class="lineno"> 5726</span>  <span class="comment">/*</span></div><div class="line"><a name="l05727"></a><span class="lineno"> 5727</span> <span class="comment"> rb_thread_critical = thr_crit_bup;</span></div><div class="line"><a name="l05728"></a><span class="lineno"> 5728</span> <span class="comment"> return;</span></div><div class="line"><a name="l05729"></a><span class="lineno"> 5729</span> <span class="comment"> */</span></div><div class="line"><a name="l05730"></a><span class="lineno"> 5730</span>  }</div><div class="line"><a name="l05731"></a><span class="lineno"> 5731</span> </div><div class="line"><a name="l05732"></a><span class="lineno"> 5732</span>  <span class="comment">/* delete root widget */</span></div><div class="line"><a name="l05733"></a><span class="lineno"> 5733</span> <span class="preprocessor">#ifdef RUBY_VM</span></div><div class="line"><a name="l05734"></a><span class="lineno"> 5734</span>  <span class="comment">/* cause SEGV on Ruby 1.9 */</span></div><div class="line"><a name="l05735"></a><span class="lineno"> 5735</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05736"></a><span class="lineno"> 5736</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="l05737"></a><span class="lineno"> 5737</span>  <span class="keywordflow">if</span> (Tcl_GetCommandInfo(ip, <span class="stringliteral">"destroy"</span>, &info)) {</div><div class="line"><a name="l05738"></a><span class="lineno"> 5738</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="l05739"></a><span class="lineno"> 5739</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="l05740"></a><span class="lineno"> 5740</span>  }</div><div class="line"><a name="l05741"></a><span class="lineno"> 5741</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05742"></a><span class="lineno"> 5742</span> <span class="preprocessor">#if 1</span></div><div class="line"><a name="l05743"></a><span class="lineno"> 5743</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="l05744"></a><span class="lineno"> 5744</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)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l05745"></a><span class="lineno"> 5745</span>  <span class="comment">/*</span></div><div class="line"><a name="l05746"></a><span class="lineno"> 5746</span> <span class="comment"> * On Ruby VM, this code piece may be not called, because</span></div><div class="line"><a name="l05747"></a><span class="lineno"> 5747</span> <span class="comment"> * Tk_MainWindow() returns NULL on a native thread except</span></div><div class="line"><a name="l05748"></a><span class="lineno"> 5748</span> <span class="comment"> * the thread which initialize Tk environment.</span></div><div class="line"><a name="l05749"></a><span class="lineno"> 5749</span> <span class="comment"> * Of course, that is a problem. But maybe not so serious.</span></div><div class="line"><a name="l05750"></a><span class="lineno"> 5750</span> <span class="comment"> * All widgets are destroyed when the Tcl interp is deleted.</span></div><div class="line"><a name="l05751"></a><span class="lineno"> 5751</span> <span class="comment"> * At then, Ruby may raise exceptions on the delete hook</span></div><div class="line"><a name="l05752"></a><span class="lineno"> 5752</span> <span class="comment"> * callbacks which registered for the deleted widgets, and</span></div><div class="line"><a name="l05753"></a><span class="lineno"> 5753</span> <span class="comment"> * may fail to clear objects which depends on the widgets.</span></div><div class="line"><a name="l05754"></a><span class="lineno"> 5754</span> <span class="comment"> * Although it is the problem, it is possibly avoidable by</span></div><div class="line"><a name="l05755"></a><span class="lineno"> 5755</span> <span class="comment"> * rescuing exceptions and the finalize hook of the interp.</span></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>  Tk_Window win = Tk_MainWindow(ip);</div><div class="line"><a name="l05758"></a><span class="lineno"> 5758</span> </div><div class="line"><a name="l05759"></a><span class="lineno"> 5759</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="l05760"></a><span class="lineno"> 5760</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a01ed2eb085103197c53c2b5c63b8f637">ruby_debug</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l05761"></a><span class="lineno"> 5761</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a56087d5316e4c73027105c023006cb15">ruby_verbose</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l05762"></a><span class="lineno"> 5762</span>  <span class="keywordflow">if</span> (! (((Tk_FakeWin*)win)->flags & TK_ALREADY_DEAD)) {</div><div class="line"><a name="l05763"></a><span class="lineno"> 5763</span>  Tk_DestroyWindow(win);</div><div class="line"><a name="l05764"></a><span class="lineno"> 5764</span>  }</div><div class="line"><a name="l05765"></a><span class="lineno"> 5765</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a01ed2eb085103197c53c2b5c63b8f637">ruby_debug</a> = rb_debug_bup;</div><div class="line"><a name="l05766"></a><span class="lineno"> 5766</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a56087d5316e4c73027105c023006cb15">ruby_verbose</a> = rb_verbose_bup;</div><div class="line"><a name="l05767"></a><span class="lineno"> 5767</span>  }</div><div class="line"><a name="l05768"></a><span class="lineno"> 5768</span> <span class="preprocessor">#endif</span></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>  <span class="comment">/* call finalize-hook-proc */</span></div><div class="line"><a name="l05771"></a><span class="lineno"> 5771</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="l05772"></a><span class="lineno"> 5772</span>  <span class="keywordflow">if</span> ( Tcl_GetCommandInfo(ip, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6a0604a3645e14c4d8c8272cfb51bb05">finalize_hook_name</a>, &info)) {</div><div class="line"><a name="l05773"></a><span class="lineno"> 5773</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"call finalize hook proc '%s'"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6a0604a3645e14c4d8c8272cfb51bb05">finalize_hook_name</a>);</div><div class="line"><a name="l05774"></a><span class="lineno"> 5774</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a01ed2eb085103197c53c2b5c63b8f637">ruby_debug</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l05775"></a><span class="lineno"> 5775</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a56087d5316e4c73027105c023006cb15">ruby_verbose</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l05776"></a><span class="lineno"> 5776</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1011eb5bef1d3b60fdf51e46ce243153">Tcl_GlobalEval</a>(ip, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6a0604a3645e14c4d8c8272cfb51bb05">finalize_hook_name</a>);</div><div class="line"><a name="l05777"></a><span class="lineno"> 5777</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a01ed2eb085103197c53c2b5c63b8f637">ruby_debug</a> = rb_debug_bup;</div><div class="line"><a name="l05778"></a><span class="lineno"> 5778</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a56087d5316e4c73027105c023006cb15">ruby_verbose</a> = rb_verbose_bup;</div><div class="line"><a name="l05779"></a><span class="lineno"> 5779</span>  }</div><div class="line"><a name="l05780"></a><span class="lineno"> 5780</span> </div><div class="line"><a name="l05781"></a><span class="lineno"> 5781</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="l05782"></a><span class="lineno"> 5782</span>  <span class="keywordflow">if</span> ( Tcl_GetCommandInfo(ip, <span class="stringliteral">"foreach"</span>, &info)</div><div class="line"><a name="l05783"></a><span class="lineno"> 5783</span>  && Tcl_GetCommandInfo(ip, <span class="stringliteral">"after"</span>, &info) ) {</div><div class="line"><a name="l05784"></a><span class="lineno"> 5784</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="l05785"></a><span class="lineno"> 5785</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a01ed2eb085103197c53c2b5c63b8f637">ruby_debug</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l05786"></a><span class="lineno"> 5786</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a56087d5316e4c73027105c023006cb15">ruby_verbose</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">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, <span class="stringliteral">"catch {foreach id [after info] {after cancel $id}}"</span>);</div><div class="line"><a name="l05788"></a><span class="lineno"> 5788</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a01ed2eb085103197c53c2b5c63b8f637">ruby_debug</a> = rb_debug_bup;</div><div class="line"><a name="l05789"></a><span class="lineno"> 5789</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a56087d5316e4c73027105c023006cb15">ruby_verbose</a> = rb_verbose_bup;</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>  Tcl_Release(ip);</div><div class="line"><a name="l05793"></a><span class="lineno"> 5793</span> </div><div class="line"><a name="l05794"></a><span class="lineno"> 5794</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="l05795"></a><span class="lineno"> 5795</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a01ed2eb085103197c53c2b5c63b8f637">ruby_debug</a> = rb_debug_bup;</div><div class="line"><a name="l05796"></a><span class="lineno"> 5796</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a56087d5316e4c73027105c023006cb15">ruby_verbose</a> = rb_verbose_bup;</div><div class="line"><a name="l05797"></a><span class="lineno"> 5797</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l05798"></a><span class="lineno"> 5798</span> }</div><div class="line"><a name="l05799"></a><span class="lineno"> 5799</span> </div><div class="line"><a name="l05800"></a><span class="lineno"> 5800</span> </div><div class="line"><a name="l05801"></a><span class="lineno"> 5801</span> <span class="comment">/* destroy interpreter */</span></div><div class="line"><a name="l05802"></a><span class="lineno"> 5802</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l05803"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0f7b07ccc6e87abaec80e30ad6780189"> 5803</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0f7b07ccc6e87abaec80e30ad6780189">ip_free</a>(ptr)</div><div class="line"><a name="l05804"></a><span class="lineno"> 5804</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div><div class="line"><a name="l05805"></a><span class="lineno"> 5805</span> {</div><div class="line"><a name="l05806"></a><span class="lineno"> 5806</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l05807"></a><span class="lineno"> 5807</span> </div><div class="line"><a name="l05808"></a><span class="lineno"> 5808</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-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l05809"></a><span class="lineno"> 5809</span>  <span class="keywordflow">if</span> (ptr) {</div><div class="line"><a name="l05810"></a><span class="lineno"> 5810</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l05811"></a><span class="lineno"> 5811</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l05812"></a><span class="lineno"> 5812</span> </div><div class="line"><a name="l05813"></a><span class="lineno"> 5813</span>  <span class="keywordflow">if</span> ( ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a> != (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a></div><div class="line"><a name="l05814"></a><span class="lineno"> 5814</span>  && !Tcl_InterpDeleted(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>)</div><div class="line"><a name="l05815"></a><span class="lineno"> 5815</span>  && Tcl_GetMaster(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) != (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a></div><div class="line"><a name="l05816"></a><span class="lineno"> 5816</span>  && !Tcl_InterpDeleted(Tcl_GetMaster(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>)) ) {</div><div class="line"><a name="l05817"></a><span class="lineno"> 5817</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="l05818"></a><span class="lineno"> 5818</span>  (<span class="keywordtype">unsigned</span> <span class="keywordtype">long</span>)Tcl_GetMaster(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>));</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">"slave IP(%lx) should not be deleted"</span>,</div><div class="line"><a name="l05820"></a><span class="lineno"> 5820</span>  (<span class="keywordtype">unsigned</span> <span class="keywordtype">long</span>)ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l05821"></a><span class="lineno"> 5821</span>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(ptr);</div><div class="line"><a name="l05822"></a><span class="lineno"> 5822</span>  <span class="comment">/* ckfree((char*)ptr); */</span></div><div class="line"><a name="l05823"></a><span class="lineno"> 5823</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l05824"></a><span class="lineno"> 5824</span>  <span class="keywordflow">return</span>;</div><div class="line"><a name="l05825"></a><span class="lineno"> 5825</span>  }</div><div class="line"><a name="l05826"></a><span class="lineno"> 5826</span> </div><div class="line"><a name="l05827"></a><span class="lineno"> 5827</span>  <span class="keywordflow">if</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a> == (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l05828"></a><span class="lineno"> 5828</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="l05829"></a><span class="lineno"> 5829</span>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(ptr);</div><div class="line"><a name="l05830"></a><span class="lineno"> 5830</span>  <span class="comment">/* ckfree((char*)ptr); */</span></div><div class="line"><a name="l05831"></a><span class="lineno"> 5831</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l05832"></a><span class="lineno"> 5832</span>  <span class="keywordflow">return</span>;</div><div class="line"><a name="l05833"></a><span class="lineno"> 5833</span>  }</div><div class="line"><a name="l05834"></a><span class="lineno"> 5834</span> </div><div class="line"><a name="l05835"></a><span class="lineno"> 5835</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="l05836"></a><span class="lineno"> 5836</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#af3e6f9a2db4741e3208aeedae20c97cd">ip_finalize</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</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>  Tcl_DeleteInterp(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l05839"></a><span class="lineno"> 5839</span>  Tcl_Release(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l05840"></a><span class="lineno"> 5840</span>  }</div><div class="line"><a name="l05841"></a><span class="lineno"> 5841</span> </div><div class="line"><a name="l05842"></a><span class="lineno"> 5842</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a> = (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l05843"></a><span class="lineno"> 5843</span>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(ptr);</div><div class="line"><a name="l05844"></a><span class="lineno"> 5844</span>  <span class="comment">/* ckfree((char*)ptr); */</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>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l05847"></a><span class="lineno"> 5847</span>  }</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>  <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="l05850"></a><span class="lineno"> 5850</span> }</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> <span class="comment">/* create and initialize interpreter */</span></div><div class="line"><a name="l05854"></a><span class="lineno"> 5854</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad42860501d76c1b7b98d62647da16712">ip_alloc</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>));</div><div class="line"><a name="l05855"></a><span class="lineno"> 5855</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l05856"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad42860501d76c1b7b98d62647da16712"> 5856</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad42860501d76c1b7b98d62647da16712">ip_alloc</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l05857"></a><span class="lineno"> 5857</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</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>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a27705a261a9addb9ed4cb65dd5a61b1c">Data_Wrap_Struct</a>(<span class="keyword">self</span>, 0, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0f7b07ccc6e87abaec80e30ad6780189">ip_free</a>, 0);</div><div class="line"><a name="l05860"></a><span class="lineno"> 5860</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> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l05863"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac7dc62d7648c1a3b4f1e39053d0073c4"> 5863</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac7dc62d7648c1a3b4f1e39053d0073c4">ip_replace_wait_commands</a>(interp, mainWin)</div><div class="line"><a name="l05864"></a><span class="lineno"> 5864</span>  Tcl_Interp *interp;</div><div class="line"><a name="l05865"></a><span class="lineno"> 5865</span>  Tk_Window mainWin;</div><div class="line"><a name="l05866"></a><span class="lineno"> 5866</span> {</div><div class="line"><a name="l05867"></a><span class="lineno"> 5867</span>  <span class="comment">/* replace 'vwait' command */</span></div><div class="line"><a name="l05868"></a><span class="lineno"> 5868</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05869"></a><span class="lineno"> 5869</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="l05870"></a><span class="lineno"> 5870</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"vwait"</span>, ip_rbVwaitObjCmd,</div><div class="line"><a name="l05871"></a><span class="lineno"> 5871</span>  (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05872"></a><span class="lineno"> 5872</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l05873"></a><span class="lineno"> 5873</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="l05874"></a><span class="lineno"> 5874</span>  Tcl_CreateCommand(interp, <span class="stringliteral">"vwait"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a723e68c456dbef62ddda9c3aed60c548">ip_rbVwaitCommand</a>,</div><div class="line"><a name="l05875"></a><span class="lineno"> 5875</span>  (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05876"></a><span class="lineno"> 5876</span> <span class="preprocessor">#endif</span></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 'tkwait' 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>  <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="l05881"></a><span class="lineno"> 5881</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"tkwait"</span>, ip_rbTkWaitObjCmd,</div><div class="line"><a name="l05882"></a><span class="lineno"> 5882</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</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>  <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="l05885"></a><span class="lineno"> 5885</span>  Tcl_CreateCommand(interp, <span class="stringliteral">"tkwait"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#afc2f1f2ea51cf8f475b7075cf1052bd9">ip_rbTkWaitCommand</a>,</div><div class="line"><a name="l05886"></a><span class="lineno"> 5886</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</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> </div><div class="line"><a name="l05889"></a><span class="lineno"> 5889</span>  <span class="comment">/* add 'thread_vwait' 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>  <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="l05892"></a><span class="lineno"> 5892</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"thread_vwait"</span>, ip_rb_threadVwaitObjCmd,</div><div class="line"><a name="l05893"></a><span class="lineno"> 5893</span>  (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</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>  <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="l05896"></a><span class="lineno"> 5896</span>  Tcl_CreateCommand(interp, <span class="stringliteral">"thread_vwait"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a58f3a974e555518cd87217db5273de57">ip_rb_threadVwaitCommand</a>,</div><div class="line"><a name="l05897"></a><span class="lineno"> 5897</span>  (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</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> </div><div class="line"><a name="l05900"></a><span class="lineno"> 5900</span>  <span class="comment">/* add 'thread_tkwait' 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>  <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="l05903"></a><span class="lineno"> 5903</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"thread_tkwait"</span>, ip_rb_threadTkWaitObjCmd,</div><div class="line"><a name="l05904"></a><span class="lineno"> 5904</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</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>  <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="l05907"></a><span class="lineno"> 5907</span>  Tcl_CreateCommand(interp, <span class="stringliteral">"thread_tkwait"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a34a4e30596fa823b890b12d95811cad6">ip_rb_threadTkWaitCommand</a>,</div><div class="line"><a name="l05908"></a><span class="lineno"> 5908</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</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> </div><div class="line"><a name="l05911"></a><span class="lineno"> 5911</span>  <span class="comment">/* replace 'update' 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>  <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="l05914"></a><span class="lineno"> 5914</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"update"</span>, ip_rbUpdateObjCmd,</div><div class="line"><a name="l05915"></a><span class="lineno"> 5915</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</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>  <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="l05918"></a><span class="lineno"> 5918</span>  Tcl_CreateCommand(interp, <span class="stringliteral">"update"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6a4bf2b5a79b438ef4ba5e7a6495b05c">ip_rbUpdateCommand</a>,</div><div class="line"><a name="l05919"></a><span class="lineno"> 5919</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</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> </div><div class="line"><a name="l05922"></a><span class="lineno"> 5922</span>  <span class="comment">/* add 'thread_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>  <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="l05925"></a><span class="lineno"> 5925</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"thread_update"</span>, ip_rb_threadUpdateObjCmd,</div><div class="line"><a name="l05926"></a><span class="lineno"> 5926</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</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>  <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="l05929"></a><span class="lineno"> 5929</span>  Tcl_CreateCommand(interp, <span class="stringliteral">"thread_update"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a302248e971b4839713a2a9f95c3aeb15">ip_rb_threadUpdateCommand</a>,</div><div class="line"><a name="l05930"></a><span class="lineno"> 5930</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</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> }</div><div class="line"><a name="l05933"></a><span class="lineno"> 5933</span> </div><div class="line"><a name="l05934"></a><span class="lineno"> 5934</span> </div><div class="line"><a name="l05935"></a><span class="lineno"> 5935</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05936"></a><span class="lineno"> 5936</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l05937"></a><span class="lineno"> 5937</span> ip_rb_replaceSlaveTkCmdsObjCmd(clientData, interp, objc, objv)</div><div class="line"><a name="l05938"></a><span class="lineno"> 5938</span>  ClientData clientData;</div><div class="line"><a name="l05939"></a><span class="lineno"> 5939</span>  Tcl_Interp *interp;</div><div class="line"><a name="l05940"></a><span class="lineno"> 5940</span>  <span class="keywordtype">int</span> objc;</div><div class="line"><a name="l05941"></a><span class="lineno"> 5941</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> objv[];</div><div class="line"><a name="l05942"></a><span class="lineno"> 5942</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l05943"></a><span class="lineno"> 5943</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l05944"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6cdd1d7d9dd22a3a2e72665d22edead4"> 5944</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6cdd1d7d9dd22a3a2e72665d22edead4">ip_rb_replaceSlaveTkCmdsCommand</a>(clientData, interp, objc, objv)</div><div class="line"><a name="l05945"></a><span class="lineno"> 5945</span>  ClientData clientData;</div><div class="line"><a name="l05946"></a><span class="lineno"> 5946</span>  Tcl_Interp *interp;</div><div class="line"><a name="l05947"></a><span class="lineno"> 5947</span>  <span class="keywordtype">int</span> objc;</div><div class="line"><a name="l05948"></a><span class="lineno"> 5948</span>  <span class="keywordtype">char</span> *objv[];</div><div class="line"><a name="l05949"></a><span class="lineno"> 5949</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05950"></a><span class="lineno"> 5950</span> {</div><div class="line"><a name="l05951"></a><span class="lineno"> 5951</span>  <span class="keywordtype">char</span> *slave_name;</div><div class="line"><a name="l05952"></a><span class="lineno"> 5952</span>  Tcl_Interp *slave;</div><div class="line"><a name="l05953"></a><span class="lineno"> 5953</span>  Tk_Window mainWin;</div><div class="line"><a name="l05954"></a><span class="lineno"> 5954</span> </div><div class="line"><a name="l05955"></a><span class="lineno"> 5955</span>  <span class="keywordflow">if</span> (objc != 2) {</div><div class="line"><a name="l05956"></a><span class="lineno"> 5956</span> <span class="preprocessor">#ifdef Tcl_WrongNumArgs</span></div><div class="line"><a name="l05957"></a><span class="lineno"> 5957</span>  Tcl_WrongNumArgs(interp, 1, objv, <span class="stringliteral">"slave_name"</span>);</div><div class="line"><a name="l05958"></a><span class="lineno"> 5958</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05959"></a><span class="lineno"> 5959</span>  <span class="keywordtype">char</span> *nameString;</div><div class="line"><a name="l05960"></a><span class="lineno"> 5960</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05961"></a><span class="lineno"> 5961</span>  nameString = Tcl_GetStringFromObj(objv[0], (<span class="keywordtype">int</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05962"></a><span class="lineno"> 5962</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l05963"></a><span class="lineno"> 5963</span>  nameString = objv[0];</div><div class="line"><a name="l05964"></a><span class="lineno"> 5964</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05965"></a><span class="lineno"> 5965</span>  Tcl_AppendResult(interp, <span class="stringliteral">"wrong number of arguments: should be \""</span>,</div><div class="line"><a name="l05966"></a><span class="lineno"> 5966</span>  nameString, <span class="stringliteral">" slave_name\""</span>, (<span class="keywordtype">char</span> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05967"></a><span class="lineno"> 5967</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05968"></a><span class="lineno"> 5968</span>  }</div><div class="line"><a name="l05969"></a><span class="lineno"> 5969</span> </div><div class="line"><a name="l05970"></a><span class="lineno"> 5970</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05971"></a><span class="lineno"> 5971</span>  slave_name = Tcl_GetStringFromObj(objv[1], (<span class="keywordtype">int</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05972"></a><span class="lineno"> 5972</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l05973"></a><span class="lineno"> 5973</span>  slave_name = objv[1];</div><div class="line"><a name="l05974"></a><span class="lineno"> 5974</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l05975"></a><span class="lineno"> 5975</span> </div><div class="line"><a name="l05976"></a><span class="lineno"> 5976</span>  slave = Tcl_GetSlave(interp, slave_name);</div><div class="line"><a name="l05977"></a><span class="lineno"> 5977</span>  <span class="keywordflow">if</span> (slave == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l05978"></a><span class="lineno"> 5978</span>  Tcl_AppendResult(interp, <span class="stringliteral">"cannot find slave \""</span>,</div><div class="line"><a name="l05979"></a><span class="lineno"> 5979</span>  slave_name, <span class="stringliteral">"\""</span>, (<span class="keywordtype">char</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05980"></a><span class="lineno"> 5980</span>  <span class="keywordflow">return</span> TCL_ERROR;</div><div class="line"><a name="l05981"></a><span class="lineno"> 5981</span>  }</div><div class="line"><a name="l05982"></a><span class="lineno"> 5982</span>  mainWin = Tk_MainWindow(slave);</div><div class="line"><a name="l05983"></a><span class="lineno"> 5983</span> </div><div class="line"><a name="l05984"></a><span class="lineno"> 5984</span>  <span class="comment">/* replace 'exit' command --> 'interp_exit' command */</span></div><div class="line"><a name="l05985"></a><span class="lineno"> 5985</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l05986"></a><span class="lineno"> 5986</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="l05987"></a><span class="lineno"> 5987</span>  Tcl_CreateObjCommand(slave, <span class="stringliteral">"exit"</span>, ip_InterpExitObjCmd,</div><div class="line"><a name="l05988"></a><span class="lineno"> 5988</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05989"></a><span class="lineno"> 5989</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l05990"></a><span class="lineno"> 5990</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="l05991"></a><span class="lineno"> 5991</span>  Tcl_CreateCommand(slave, <span class="stringliteral">"exit"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac039247bd36850b582d929b1d204a35d">ip_InterpExitCommand</a>,</div><div class="line"><a name="l05992"></a><span class="lineno"> 5992</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l05993"></a><span class="lineno"> 5993</span> <span class="preprocessor">#endif</span></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 vwait and tkwait */</span></div><div class="line"><a name="l05996"></a><span class="lineno"> 5996</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac7dc62d7648c1a3b4f1e39053d0073c4">ip_replace_wait_commands</a>(slave, mainWin);</div><div class="line"><a name="l05997"></a><span class="lineno"> 5997</span> </div><div class="line"><a name="l05998"></a><span class="lineno"> 5998</span>  <span class="keywordflow">return</span> TCL_OK;</div><div class="line"><a name="l05999"></a><span class="lineno"> 5999</span> }</div><div class="line"><a name="l06000"></a><span class="lineno"> 6000</span> </div><div class="line"><a name="l06001"></a><span class="lineno"> 6001</span> </div><div class="line"><a name="l06002"></a><span class="lineno"> 6002</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l06003"></a><span class="lineno"> 6003</span> <span class="keyword">static</span> <span class="keywordtype">int</span> ip_rbNamespaceObjCmd <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((ClientData, Tcl_Interp *, <span class="keywordtype">int</span>,</div><div class="line"><a name="l06004"></a><span class="lineno"> 6004</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> []));</div><div class="line"><a name="l06005"></a><span class="lineno"> 6005</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l06006"></a><span class="lineno"> 6006</span> ip_rbNamespaceObjCmd(clientData, interp, objc, objv)</div><div class="line"><a name="l06007"></a><span class="lineno"> 6007</span>  ClientData clientData;</div><div class="line"><a name="l06008"></a><span class="lineno"> 6008</span>  Tcl_Interp *interp;</div><div class="line"><a name="l06009"></a><span class="lineno"> 6009</span>  <span class="keywordtype">int</span> objc;</div><div class="line"><a name="l06010"></a><span class="lineno"> 6010</span>  Tcl_Obj *<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> objv[];</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>  Tcl_CmdInfo info;</div><div class="line"><a name="l06013"></a><span class="lineno"> 6013</span>  <span class="keywordtype">int</span> ret;</div><div class="line"><a name="l06014"></a><span class="lineno"> 6014</span> </div><div class="line"><a name="l06015"></a><span class="lineno"> 6015</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call ip_rbNamespaceObjCmd"</span>);</div><div class="line"><a name="l06016"></a><span class="lineno"> 6016</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"objc = %d"</span>, objc);</div><div class="line"><a name="l06017"></a><span class="lineno"> 6017</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"objv[0] = '%s'"</span>, Tcl_GetString(objv[0]));</div><div class="line"><a name="l06018"></a><span class="lineno"> 6018</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"objv[1] = '%s'"</span>, Tcl_GetString(objv[1]));</div><div class="line"><a name="l06019"></a><span class="lineno"> 6019</span>  <span class="keywordflow">if</span> (!Tcl_GetCommandInfo(interp, <span class="stringliteral">"__orig_namespace_command__"</span>, &(info))) {</div><div class="line"><a name="l06020"></a><span class="lineno"> 6020</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"fail to get __orig_namespace_command__"</span>);</div><div class="line"><a name="l06021"></a><span class="lineno"> 6021</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l06022"></a><span class="lineno"> 6022</span>  Tcl_AppendResult(interp,</div><div class="line"><a name="l06023"></a><span class="lineno"> 6023</span>  <span class="stringliteral">"invalid command name \"namespace\""</span>, (<span class="keywordtype">char</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06024"></a><span class="lineno"> 6024</span>  <span class="keywordflow">return</span> TCL_ERROR;</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> </div><div class="line"><a name="l06027"></a><span class="lineno"> 6027</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a>++;</div><div class="line"><a name="l06028"></a><span class="lineno"> 6028</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"namespace wrapper enter depth == %d"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a>);</div><div class="line"><a name="l06029"></a><span class="lineno"> 6029</span> </div><div class="line"><a name="l06030"></a><span class="lineno"> 6030</span>  <span class="keywordflow">if</span> (info.isNativeObjectProc) {</div><div class="line"><a name="l06031"></a><span class="lineno"> 6031</span> <span class="preprocessor">#if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION < 6</span></div><div class="line"><a name="l06032"></a><span class="lineno"> 6032</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call a native-object-proc"</span>);</div><div class="line"><a name="l06033"></a><span class="lineno"> 6033</span>  ret = (*(info.objProc))(info.objClientData, interp, objc, objv);</div><div class="line"><a name="l06034"></a><span class="lineno"> 6034</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l06035"></a><span class="lineno"> 6035</span>  <span class="comment">/* Tcl8.6 or later */</span></div><div class="line"><a name="l06036"></a><span class="lineno"> 6036</span>  <span class="keywordtype">int</span> i;</div><div class="line"><a name="l06037"></a><span class="lineno"> 6037</span>  Tcl_Obj **cp_objv;</div><div class="line"><a name="l06038"></a><span class="lineno"> 6038</span>  <span class="keywordtype">char</span> org_ns_cmd_name[] = <span class="stringliteral">"__orig_namespace_command__"</span>;</div><div class="line"><a name="l06039"></a><span class="lineno"> 6039</span> </div><div class="line"><a name="l06040"></a><span class="lineno"> 6040</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call a native-object-proc for tcl8.6 or later"</span>);</div><div class="line"><a name="l06041"></a><span class="lineno"> 6041</span>  cp_objv = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(Tcl_Obj *, (objc + 1));</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>  cp_objv[0] = Tcl_NewStringObj(org_ns_cmd_name, <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(org_ns_cmd_name));</div><div class="line"><a name="l06044"></a><span class="lineno"> 6044</span>  <span class="keywordflow">for</span>(i = 1; i < objc; i++) {</div><div class="line"><a name="l06045"></a><span class="lineno"> 6045</span>  cp_objv[i] = objv[i];</div><div class="line"><a name="l06046"></a><span class="lineno"> 6046</span>  }</div><div class="line"><a name="l06047"></a><span class="lineno"> 6047</span>  cp_objv[objc] = (Tcl_Obj *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l06048"></a><span class="lineno"> 6048</span> </div><div class="line"><a name="l06049"></a><span class="lineno"> 6049</span>  <span class="comment">/* ret = Tcl_EvalObjv(interp, objc, cp_objv, TCL_EVAL_DIRECT); */</span></div><div class="line"><a name="l06050"></a><span class="lineno"> 6050</span>  ret = Tcl_EvalObjv(interp, objc, cp_objv, 0);</div><div class="line"><a name="l06051"></a><span class="lineno"> 6051</span> </div><div class="line"><a name="l06052"></a><span class="lineno"> 6052</span>  ckfree((<span class="keywordtype">char</span>*)cp_objv);</div><div class="line"><a name="l06053"></a><span class="lineno"> 6053</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06054"></a><span class="lineno"> 6054</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l06055"></a><span class="lineno"> 6055</span>  <span class="comment">/* string interface */</span></div><div class="line"><a name="l06056"></a><span class="lineno"> 6056</span>  <span class="keywordtype">int</span> i;</div><div class="line"><a name="l06057"></a><span class="lineno"> 6057</span>  <span class="keywordtype">char</span> **<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l06058"></a><span class="lineno"> 6058</span> </div><div class="line"><a name="l06059"></a><span class="lineno"> 6059</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call with the string-interface"</span>);</div><div class="line"><a name="l06060"></a><span class="lineno"> 6060</span>  <span class="comment">/* argv = (char **)Tcl_Alloc(sizeof(char *) * (objc + 1)); */</span></div><div class="line"><a name="l06061"></a><span class="lineno"> 6061</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(<span class="keywordtype">char</span> *, (objc + 1));</div><div class="line"><a name="l06062"></a><span class="lineno"> 6062</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="l06063"></a><span class="lineno"> 6063</span>  Tcl_Preserve((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l06064"></a><span class="lineno"> 6064</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06065"></a><span class="lineno"> 6065</span> </div><div class="line"><a name="l06066"></a><span class="lineno"> 6066</span>  <span class="keywordflow">for</span>(i = 0; i < objc; i++) {</div><div class="line"><a name="l06067"></a><span class="lineno"> 6067</span>  <span class="comment">/* argv[i] = Tcl_GetString(objv[i]); */</span></div><div class="line"><a name="l06068"></a><span class="lineno"> 6068</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[i] = Tcl_GetStringFromObj(objv[i], (<span class="keywordtype">int</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</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>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[objc] = (<span class="keywordtype">char</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l06071"></a><span class="lineno"> 6071</span> </div><div class="line"><a name="l06072"></a><span class="lineno"> 6072</span>  ret = (*(info.proc))(info.clientData, interp,</div><div class="line"><a name="l06073"></a><span class="lineno"> 6073</span>  objc, (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> **)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</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">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l06076"></a><span class="lineno"> 6076</span>  Tcl_EventuallyFree((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l06077"></a><span class="lineno"> 6077</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l06078"></a><span class="lineno"> 6078</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="l06079"></a><span class="lineno"> 6079</span>  Tcl_Release((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l06080"></a><span class="lineno"> 6080</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l06081"></a><span class="lineno"> 6081</span>  <span class="comment">/* Tcl_Free((char*)argv); */</span></div><div class="line"><a name="l06082"></a><span class="lineno"> 6082</span>  ckfree((<span class="keywordtype">char</span>*)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l06083"></a><span class="lineno"> 6083</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06084"></a><span class="lineno"> 6084</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06085"></a><span class="lineno"> 6085</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>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"namespace wrapper exit depth == %d"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a>);</div><div class="line"><a name="l06088"></a><span class="lineno"> 6088</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef7b441199ecadd2370601a651af7c31">rbtk_eventloop_depth</a>--;</div><div class="line"><a name="l06089"></a><span class="lineno"> 6089</span> </div><div class="line"><a name="l06090"></a><span class="lineno"> 6090</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"end of ip_rbNamespaceObjCmd"</span>);</div><div class="line"><a name="l06091"></a><span class="lineno"> 6091</span>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l06092"></a><span class="lineno"> 6092</span> }</div><div class="line"><a name="l06093"></a><span class="lineno"> 6093</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06094"></a><span class="lineno"> 6094</span> </div><div class="line"><a name="l06095"></a><span class="lineno"> 6095</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l06096"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a2c752c3113a4e3d5f552842910dc2ac6"> 6096</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2c752c3113a4e3d5f552842910dc2ac6">ip_wrap_namespace_command</a>(interp)</div><div class="line"><a name="l06097"></a><span class="lineno"> 6097</span>  Tcl_Interp *interp;</div><div class="line"><a name="l06098"></a><span class="lineno"> 6098</span> {</div><div class="line"><a name="l06099"></a><span class="lineno"> 6099</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l06100"></a><span class="lineno"> 6100</span> </div><div class="line"><a name="l06101"></a><span class="lineno"> 6101</span> <span class="preprocessor">#if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION < 6</span></div><div class="line"><a name="l06102"></a><span class="lineno"> 6102</span>  Tcl_CmdInfo orig_info;</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="keywordflow">if</span> (!Tcl_GetCommandInfo(interp, <span class="stringliteral">"namespace"</span>, &(orig_info))) {</div><div class="line"><a name="l06105"></a><span class="lineno"> 6105</span>  <span class="keywordflow">return</span>;</div><div class="line"><a name="l06106"></a><span class="lineno"> 6106</span>  }</div><div class="line"><a name="l06107"></a><span class="lineno"> 6107</span> </div><div class="line"><a name="l06108"></a><span class="lineno"> 6108</span>  <span class="keywordflow">if</span> (orig_info.isNativeObjectProc) {</div><div class="line"><a name="l06109"></a><span class="lineno"> 6109</span>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"__orig_namespace_command__"</span>,</div><div class="line"><a name="l06110"></a><span class="lineno"> 6110</span>  orig_info.objProc, orig_info.objClientData,</div><div class="line"><a name="l06111"></a><span class="lineno"> 6111</span>  orig_info.deleteProc);</div><div class="line"><a name="l06112"></a><span class="lineno"> 6112</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l06113"></a><span class="lineno"> 6113</span>  Tcl_CreateCommand(interp, <span class="stringliteral">"__orig_namespace_command__"</span>,</div><div class="line"><a name="l06114"></a><span class="lineno"> 6114</span>  orig_info.proc, orig_info.clientData,</div><div class="line"><a name="l06115"></a><span class="lineno"> 6115</span>  orig_info.deleteProc);</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> </div><div class="line"><a name="l06118"></a><span class="lineno"> 6118</span> <span class="preprocessor">#else </span><span class="comment">/* tcl8.6 or later */</span><span class="preprocessor"></span></div><div class="line"><a name="l06119"></a><span class="lineno"> 6119</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1011eb5bef1d3b60fdf51e46ce243153">Tcl_GlobalEval</a>(interp, <span class="stringliteral">"rename namespace __orig_namespace_command__"</span>);</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> <span class="preprocessor">#endif</span></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>  Tcl_CreateObjCommand(interp, <span class="stringliteral">"namespace"</span>, ip_rbNamespaceObjCmd,</div><div class="line"><a name="l06124"></a><span class="lineno"> 6124</span>  (ClientData) 0, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06125"></a><span class="lineno"> 6125</span> <span class="preprocessor">#endif</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> </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">/* call when interpreter is deleted */</span></div><div class="line"><a name="l06130"></a><span class="lineno"> 6130</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l06131"></a><span class="lineno"> 6131</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div><div class="line"><a name="l06132"></a><span class="lineno"> 6132</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab00abfb735d3f312974208b69126b6d9">ip_CallWhenDeleted</a>(ClientData clientData, Tcl_Interp *<a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>)</div><div class="line"><a name="l06133"></a><span class="lineno"> 6133</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l06134"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ab00abfb735d3f312974208b69126b6d9"> 6134</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab00abfb735d3f312974208b69126b6d9">ip_CallWhenDeleted</a>(clientData, <a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>)</div><div class="line"><a name="l06135"></a><span class="lineno"> 6135</span>  ClientData clientData;</div><div class="line"><a name="l06136"></a><span class="lineno"> 6136</span>  Tcl_Interp *<a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>;</div><div class="line"><a name="l06137"></a><span class="lineno"> 6137</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06138"></a><span class="lineno"> 6138</span> {</div><div class="line"><a name="l06139"></a><span class="lineno"> 6139</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l06140"></a><span class="lineno"> 6140</span>  <span class="comment">/* Tk_Window main_win = (Tk_Window) clientData; */</span></div><div class="line"><a name="l06141"></a><span class="lineno"> 6141</span> </div><div class="line"><a name="l06142"></a><span class="lineno"> 6142</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="l06143"></a><span class="lineno"> 6143</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l06144"></a><span class="lineno"> 6144</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l06145"></a><span class="lineno"> 6145</span> </div><div class="line"><a name="l06146"></a><span class="lineno"> 6146</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#af3e6f9a2db4741e3208aeedae20c97cd">ip_finalize</a>(<a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l06147"></a><span class="lineno"> 6147</span> </div><div class="line"><a name="l06148"></a><span class="lineno"> 6148</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="l06149"></a><span class="lineno"> 6149</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l06150"></a><span class="lineno"> 6150</span> }</div><div class="line"><a name="l06151"></a><span class="lineno"> 6151</span> </div><div class="line"><a name="l06152"></a><span class="lineno"> 6152</span> <span class="comment">/*--------------------------------------------------------*/</span></div><div class="line"><a name="l06153"></a><span class="lineno"> 6153</span> </div><div class="line"><a name="l06154"></a><span class="lineno"> 6154</span> <span class="comment">/* initialize interpreter */</span></div><div class="line"><a name="l06155"></a><span class="lineno"> 6155</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06156"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a76aecd7fcd37d851e304827104fe1d83"> 6156</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a76aecd7fcd37d851e304827104fe1d83">ip_init</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>)</div><div class="line"><a name="l06157"></a><span class="lineno"> 6157</span>  int <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l06158"></a><span class="lineno"> 6158</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l06159"></a><span class="lineno"> 6159</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l06160"></a><span class="lineno"> 6160</span> {</div><div class="line"><a name="l06161"></a><span class="lineno"> 6161</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr; <span class="comment">/* tcltkip data struct */</span></div><div class="line"><a name="l06162"></a><span class="lineno"> 6162</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> argv0, opts;</div><div class="line"><a name="l06163"></a><span class="lineno"> 6163</span>  <span class="keywordtype">int</span> <a class="code" href="../../d8/d36/signal_8c.html#a6f2334d7e90694f211f708b860dfa486">cnt</a>;</div><div class="line"><a name="l06164"></a><span class="lineno"> 6164</span>  <span class="keywordtype">int</span> st;</div><div class="line"><a name="l06165"></a><span class="lineno"> 6165</span>  <span class="keywordtype">int</span> with_tk = 1;</div><div class="line"><a name="l06166"></a><span class="lineno"> 6166</span>  Tk_Window mainWin = (Tk_Window)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l06167"></a><span class="lineno"> 6167</span> </div><div class="line"><a name="l06168"></a><span class="lineno"> 6168</span>  <span class="comment">/* security check */</span></div><div class="line"><a name="l06169"></a><span class="lineno"> 6169</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="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#ae53f1d228c34c2a7715d7d39ab1a2991">rb_eSecurityError</a>,</div><div class="line"><a name="l06171"></a><span class="lineno"> 6171</span>  <span class="stringliteral">"Cannot create a TclTkIp object at level %d"</span>,</div><div class="line"><a name="l06172"></a><span class="lineno"> 6172</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f520624fabb8332dc98fd223491bf8d">rb_safe_level</a>());</div><div class="line"><a name="l06173"></a><span class="lineno"> 6173</span>  }</div><div class="line"><a name="l06174"></a><span class="lineno"> 6174</span> </div><div class="line"><a name="l06175"></a><span class="lineno"> 6175</span>  <span class="comment">/* create object */</span></div><div class="line"><a name="l06176"></a><span class="lineno"> 6176</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="l06177"></a><span class="lineno"> 6177</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="l06178"></a><span class="lineno"> 6178</span>  <span class="comment">/* ptr = RbTk_ALLOC_N(struct tcltkip, 1); */</span></div><div class="line"><a name="l06179"></a><span class="lineno"> 6179</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#abb509cfdf6560a9f795b1f6932d93691">DATA_PTR</a>(<span class="keyword">self</span>) = ptr;</div><div class="line"><a name="l06180"></a><span class="lineno"> 6180</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l06181"></a><span class="lineno"> 6181</span>  ptr->tk_thread_id = 0;</div><div class="line"><a name="l06182"></a><span class="lineno"> 6182</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06183"></a><span class="lineno"> 6183</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f">ref_count</a> = 0;</div><div class="line"><a name="l06184"></a><span class="lineno"> 6184</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#ace5c5b6dab42be91b5cf7389a84cbb2c">allow_ruby_exit</a> = 1;</div><div class="line"><a name="l06185"></a><span class="lineno"> 6185</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = 0;</div><div class="line"><a name="l06186"></a><span class="lineno"> 6186</span> </div><div class="line"><a name="l06187"></a><span class="lineno"> 6187</span>  <span class="comment">/* from Tk_Main() */</span></div><div class="line"><a name="l06188"></a><span class="lineno"> 6188</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="l06189"></a><span class="lineno"> 6189</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a> = <a class="code" href="../../d5/d30/stubs_8c.html#a328823f52192576f76c025d37ead8f3b">ruby_tcl_create_ip_and_stubs_init</a>(&st);</div><div class="line"><a name="l06190"></a><span class="lineno"> 6190</span>  <span class="keywordflow">if</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a> == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l06191"></a><span class="lineno"> 6191</span>  <span class="keywordflow">switch</span>(st) {</div><div class="line"><a name="l06192"></a><span class="lineno"> 6192</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#ad0f6a4b19a2cd67ce370a5c22d95f0d3">TCLTK_STUBS_OK</a>:</div><div class="line"><a name="l06193"></a><span class="lineno"> 6193</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l06194"></a><span class="lineno"> 6194</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="l06195"></a><span class="lineno"> 6195</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="l06196"></a><span class="lineno"> 6196</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="l06197"></a><span class="lineno"> 6197</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="l06198"></a><span class="lineno"> 6198</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="l06199"></a><span class="lineno"> 6199</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="l06200"></a><span class="lineno"> 6200</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="l06201"></a><span class="lineno"> 6201</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="l06202"></a><span class="lineno"> 6202</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="l06203"></a><span class="lineno"> 6203</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="l06204"></a><span class="lineno"> 6204</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="l06205"></a><span class="lineno"> 6205</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="l06206"></a><span class="lineno"> 6206</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l06207"></a><span class="lineno"> 6207</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="l06208"></a><span class="lineno"> 6208</span>  }</div><div class="line"><a name="l06209"></a><span class="lineno"> 6209</span>  }</div><div class="line"><a name="l06210"></a><span class="lineno"> 6210</span> </div><div class="line"><a name="l06211"></a><span class="lineno"> 6211</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l06212"></a><span class="lineno"> 6212</span> <span class="preprocessor">#if TCL_NAMESPACE_DEBUG</span></div><div class="line"><a name="l06213"></a><span class="lineno"> 6213</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="l06214"></a><span class="lineno"> 6214</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="l06215"></a><span class="lineno"> 6215</span>  == (Tcl_Namespace*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l06216"></a><span class="lineno"> 6216</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="l06217"></a><span class="lineno"> 6217</span>  }</div><div class="line"><a name="l06218"></a><span class="lineno"> 6218</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06219"></a><span class="lineno"> 6219</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06220"></a><span class="lineno"> 6220</span> </div><div class="line"><a name="l06221"></a><span class="lineno"> 6221</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a55dbead056a35cc4c3bcdaefe23e6252">rbtk_preserve_ip</a>(ptr);</div><div class="line"><a name="l06222"></a><span class="lineno"> 6222</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="l06223"></a><span class="lineno"> 6223</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a067558608d86b7cda4a19dadf6533e26">current_interp</a> = ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>;</div><div class="line"><a name="l06224"></a><span class="lineno"> 6224</span> </div><div class="line"><a name="l06225"></a><span class="lineno"> 6225</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a806a9dbb2520a6a3fc1eb1d860537c63">has_orig_exit</a></div><div class="line"><a name="l06226"></a><span class="lineno"> 6226</span>  = Tcl_GetCommandInfo(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="l06227"></a><span class="lineno"> 6227</span> </div><div class="line"><a name="l06228"></a><span class="lineno"> 6228</span> <span class="preprocessor">#if defined CREATE_RUBYTK_KIT || defined CREATE_RUBYKIT</span></div><div class="line"><a name="l06229"></a><span class="lineno"> 6229</span>  call_tclkit_init_script(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a067558608d86b7cda4a19dadf6533e26">current_interp</a>);</div><div class="line"><a name="l06230"></a><span class="lineno"> 6230</span> </div><div class="line"><a name="l06231"></a><span class="lineno"> 6231</span> <span class="preprocessor"># if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION > 84</span></div><div class="line"><a name="l06232"></a><span class="lineno"> 6232</span>  {</div><div class="line"><a name="l06233"></a><span class="lineno"> 6233</span>  Tcl_DString encodingName;</div><div class="line"><a name="l06234"></a><span class="lineno"> 6234</span>  Tcl_GetEncodingNameFromEnvironment(&encodingName);</div><div class="line"><a name="l06235"></a><span class="lineno"> 6235</span>  <span class="keywordflow">if</span> (strcmp(Tcl_DStringValue(&encodingName), Tcl_GetEncodingName(<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>))) {</div><div class="line"><a name="l06236"></a><span class="lineno"> 6236</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="l06237"></a><span class="lineno"> 6237</span>  Tcl_SetSystemEncoding(<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, Tcl_DStringValue(&encodingName));</div><div class="line"><a name="l06238"></a><span class="lineno"> 6238</span>  }</div><div class="line"><a name="l06239"></a><span class="lineno"> 6239</span>  Tcl_SetVar(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a067558608d86b7cda4a19dadf6533e26">current_interp</a>, <span class="stringliteral">"tclkit_system_encoding"</span>, Tcl_DStringValue(&encodingName), 0);</div><div class="line"><a name="l06240"></a><span class="lineno"> 6240</span>  Tcl_DStringFree(&encodingName);</div><div class="line"><a name="l06241"></a><span class="lineno"> 6241</span>  }</div><div class="line"><a name="l06242"></a><span class="lineno"> 6242</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l06243"></a><span class="lineno"> 6243</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06244"></a><span class="lineno"> 6244</span> </div><div class="line"><a name="l06245"></a><span class="lineno"> 6245</span>  <span class="comment">/* set variables */</span></div><div class="line"><a name="l06246"></a><span class="lineno"> 6246</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="l06247"></a><span class="lineno"> 6247</span> </div><div class="line"><a name="l06248"></a><span class="lineno"> 6248</span>  <a class="code" href="../../d8/d36/signal_8c.html#a6f2334d7e90694f211f708b860dfa486">cnt</a> = <a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"02"</span>, &argv0, &opts);</div><div class="line"><a name="l06249"></a><span class="lineno"> 6249</span>  <span class="keywordflow">switch</span>(<a class="code" href="../../d8/d36/signal_8c.html#a6f2334d7e90694f211f708b860dfa486">cnt</a>) {</div><div class="line"><a name="l06250"></a><span class="lineno"> 6250</span>  <span class="keywordflow">case</span> 2:</div><div class="line"><a name="l06251"></a><span class="lineno"> 6251</span>  <span class="comment">/* options */</span></div><div class="line"><a name="l06252"></a><span class="lineno"> 6252</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="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>) {</div><div class="line"><a name="l06253"></a><span class="lineno"> 6253</span>  <span class="comment">/* without Tk */</span></div><div class="line"><a name="l06254"></a><span class="lineno"> 6254</span>  with_tk = 0;</div><div class="line"><a name="l06255"></a><span class="lineno"> 6255</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l06256"></a><span class="lineno"> 6256</span>  <span class="comment">/* Tcl_SetVar(ptr->ip, "argv", StringValuePtr(opts), 0); */</span></div><div class="line"><a name="l06257"></a><span class="lineno"> 6257</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="l06258"></a><span class="lineno"> 6258</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="l06259"></a><span class="lineno"> 6259</span>  }</div><div class="line"><a name="l06260"></a><span class="lineno"> 6260</span>  <span class="keywordflow">case</span> 1:</div><div class="line"><a name="l06261"></a><span class="lineno"> 6261</span>  <span class="comment">/* argv0 */</span></div><div class="line"><a name="l06262"></a><span class="lineno"> 6262</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="l06263"></a><span class="lineno"> 6263</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="l06264"></a><span class="lineno"> 6264</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="l06265"></a><span class="lineno"> 6265</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="l06266"></a><span class="lineno"> 6266</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l06267"></a><span class="lineno"> 6267</span>  <span class="comment">/* Tcl_SetVar(ptr->ip, "argv0", StringValuePtr(argv0), 0); */</span></div><div class="line"><a name="l06268"></a><span class="lineno"> 6268</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="l06269"></a><span class="lineno"> 6269</span>  TCL_GLOBAL_ONLY);</div><div class="line"><a name="l06270"></a><span class="lineno"> 6270</span>  }</div><div class="line"><a name="l06271"></a><span class="lineno"> 6271</span>  }</div><div class="line"><a name="l06272"></a><span class="lineno"> 6272</span>  <span class="keywordflow">case</span> 0:</div><div class="line"><a name="l06273"></a><span class="lineno"> 6273</span>  <span class="comment">/* no args */</span></div><div class="line"><a name="l06274"></a><span class="lineno"> 6274</span>  ;</div><div class="line"><a name="l06275"></a><span class="lineno"> 6275</span>  }</div><div class="line"><a name="l06276"></a><span class="lineno"> 6276</span> </div><div class="line"><a name="l06277"></a><span class="lineno"> 6277</span>  <span class="comment">/* from Tcl_AppInit() */</span></div><div class="line"><a name="l06278"></a><span class="lineno"> 6278</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="l06279"></a><span class="lineno"> 6279</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="l06280"></a><span class="lineno"> 6280</span>  <span class="comment">/*************************************************************************/</span></div><div class="line"><a name="l06281"></a><span class="lineno"> 6281</span>  <span class="comment">/* FIX ME (2010/06/28) */</span></div><div class="line"><a name="l06282"></a><span class="lineno"> 6282</span>  <span class="comment">/* Don't use ::chan command for Mk4tcl + tclvfs-1.4 on Tcl8.5. */</span></div><div class="line"><a name="l06283"></a><span class="lineno"> 6283</span>  <span class="comment">/* It fails to access VFS files because of vfs::zstream. */</span></div><div class="line"><a name="l06284"></a><span class="lineno"> 6284</span>  <span class="comment">/* So, force to use ::rechan by temporaly hiding ::chan. */</span></div><div class="line"><a name="l06285"></a><span class="lineno"> 6285</span>  <span class="comment">/*************************************************************************/</span></div><div class="line"><a name="l06286"></a><span class="lineno"> 6286</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="l06287"></a><span class="lineno"> 6287</span>  <span class="keywordflow">if</span> (Tcl_Init(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) == TCL_ERROR) {</div><div class="line"><a name="l06288"></a><span class="lineno"> 6288</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="l06289"></a><span class="lineno"> 6289</span>  }</div><div class="line"><a name="l06290"></a><span class="lineno"> 6290</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="l06291"></a><span class="lineno"> 6291</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l06292"></a><span class="lineno"> 6292</span>  <span class="keywordflow">if</span> (Tcl_Init(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) == TCL_ERROR) {</div><div class="line"><a name="l06293"></a><span class="lineno"> 6293</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="l06294"></a><span class="lineno"> 6294</span>  }</div><div class="line"><a name="l06295"></a><span class="lineno"> 6295</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06296"></a><span class="lineno"> 6296</span> </div><div class="line"><a name="l06297"></a><span class="lineno"> 6297</span>  st = <a class="code" href="../../d5/d30/stubs_8c.html#a5781553460d704ea29c0b5065ba79f77">ruby_tcl_stubs_init</a>();</div><div class="line"><a name="l06298"></a><span class="lineno"> 6298</span>  <span class="comment">/* from Tcl_AppInit() */</span></div><div class="line"><a name="l06299"></a><span class="lineno"> 6299</span>  <span class="keywordflow">if</span> (with_tk) {</div><div class="line"><a name="l06300"></a><span class="lineno"> 6300</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="l06301"></a><span class="lineno"> 6301</span>  st = <a class="code" href="../../d5/d30/stubs_8c.html#aab3e675e71476824bc345c6cc4d9e402">ruby_tk_stubs_init</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l06302"></a><span class="lineno"> 6302</span>  <span class="keywordflow">switch</span>(st) {</div><div class="line"><a name="l06303"></a><span class="lineno"> 6303</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#ad0f6a4b19a2cd67ce370a5c22d95f0d3">TCLTK_STUBS_OK</a>:</div><div class="line"><a name="l06304"></a><span class="lineno"> 6304</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l06305"></a><span class="lineno"> 6305</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="l06306"></a><span class="lineno"> 6306</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="l06307"></a><span class="lineno"> 6307</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="l06308"></a><span class="lineno"> 6308</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="l06309"></a><span class="lineno"> 6309</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="l06310"></a><span class="lineno"> 6310</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="l06311"></a><span class="lineno"> 6311</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="l06312"></a><span class="lineno"> 6312</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="l06313"></a><span class="lineno"> 6313</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l06314"></a><span class="lineno"> 6314</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="l06315"></a><span class="lineno"> 6315</span>  }</div><div class="line"><a name="l06316"></a><span class="lineno"> 6316</span> </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_StaticPackage(\"Tk\")"</span>);</div><div class="line"><a name="l06318"></a><span class="lineno"> 6318</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l06319"></a><span class="lineno"> 6319</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="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>  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="l06322"></a><span class="lineno"> 6322</span>  (Tcl_PackageInitProc *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06323"></a><span class="lineno"> 6323</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06324"></a><span class="lineno"> 6324</span> </div><div class="line"><a name="l06325"></a><span class="lineno"> 6325</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l06326"></a><span class="lineno"> 6326</span>  <span class="comment">/* set Tk thread ID */</span></div><div class="line"><a name="l06327"></a><span class="lineno"> 6327</span>  ptr->tk_thread_id = Tcl_GetCurrentThread();</div><div class="line"><a name="l06328"></a><span class="lineno"> 6328</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06329"></a><span class="lineno"> 6329</span>  <span class="comment">/* get main window */</span></div><div class="line"><a name="l06330"></a><span class="lineno"> 6330</span>  mainWin = Tk_MainWindow(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l06331"></a><span class="lineno"> 6331</span>  Tk_Preserve((ClientData)mainWin);</div><div class="line"><a name="l06332"></a><span class="lineno"> 6332</span>  }</div><div class="line"><a name="l06333"></a><span class="lineno"> 6333</span> </div><div class="line"><a name="l06334"></a><span class="lineno"> 6334</span>  <span class="comment">/* add ruby command to the interpreter */</span></div><div class="line"><a name="l06335"></a><span class="lineno"> 6335</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l06336"></a><span class="lineno"> 6336</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="l06337"></a><span class="lineno"> 6337</span>  Tcl_CreateObjCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"ruby"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9649e91a7475facf32db7a1e06d170cd">ip_ruby_eval</a>, (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>,</div><div class="line"><a name="l06338"></a><span class="lineno"> 6338</span>  (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06339"></a><span class="lineno"> 6339</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="l06340"></a><span class="lineno"> 6340</span>  Tcl_CreateObjCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"ruby_eval"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9649e91a7475facf32db7a1e06d170cd">ip_ruby_eval</a>, (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>,</div><div class="line"><a name="l06341"></a><span class="lineno"> 6341</span>  (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06342"></a><span class="lineno"> 6342</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="l06343"></a><span class="lineno"> 6343</span>  Tcl_CreateObjCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"ruby_cmd"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa1cc4fb1e40a147c166a6639894cec69">ip_ruby_cmd</a>, (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>,</div><div class="line"><a name="l06344"></a><span class="lineno"> 6344</span>  (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06345"></a><span class="lineno"> 6345</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l06346"></a><span class="lineno"> 6346</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="l06347"></a><span class="lineno"> 6347</span>  Tcl_CreateCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"ruby"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9649e91a7475facf32db7a1e06d170cd">ip_ruby_eval</a>, (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>,</div><div class="line"><a name="l06348"></a><span class="lineno"> 6348</span>  (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06349"></a><span class="lineno"> 6349</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="l06350"></a><span class="lineno"> 6350</span>  Tcl_CreateCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"ruby_eval"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9649e91a7475facf32db7a1e06d170cd">ip_ruby_eval</a>, (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>,</div><div class="line"><a name="l06351"></a><span class="lineno"> 6351</span>  (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06352"></a><span class="lineno"> 6352</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="l06353"></a><span class="lineno"> 6353</span>  Tcl_CreateCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"ruby_cmd"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa1cc4fb1e40a147c166a6639894cec69">ip_ruby_cmd</a>, (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>,</div><div class="line"><a name="l06354"></a><span class="lineno"> 6354</span>  (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06355"></a><span class="lineno"> 6355</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06356"></a><span class="lineno"> 6356</span> </div><div class="line"><a name="l06357"></a><span class="lineno"> 6357</span>  <span class="comment">/* add 'interp_exit', 'ruby_exit' and replace 'exit' command */</span></div><div class="line"><a name="l06358"></a><span class="lineno"> 6358</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l06359"></a><span class="lineno"> 6359</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="l06360"></a><span class="lineno"> 6360</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="l06361"></a><span class="lineno"> 6361</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06362"></a><span class="lineno"> 6362</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="l06363"></a><span class="lineno"> 6363</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="l06364"></a><span class="lineno"> 6364</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06365"></a><span class="lineno"> 6365</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="l06366"></a><span class="lineno"> 6366</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="l06367"></a><span class="lineno"> 6367</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06368"></a><span class="lineno"> 6368</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l06369"></a><span class="lineno"> 6369</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="l06370"></a><span class="lineno"> 6370</span>  Tcl_CreateCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"interp_exit"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac039247bd36850b582d929b1d204a35d">ip_InterpExitCommand</a>,</div><div class="line"><a name="l06371"></a><span class="lineno"> 6371</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06372"></a><span class="lineno"> 6372</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="l06373"></a><span class="lineno"> 6373</span>  Tcl_CreateCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"ruby_exit"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#af3e1e17b0ba1a5761dd984e57771955e">ip_RubyExitCommand</a>,</div><div class="line"><a name="l06374"></a><span class="lineno"> 6374</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06375"></a><span class="lineno"> 6375</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="l06376"></a><span class="lineno"> 6376</span>  Tcl_CreateCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"exit"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#af3e1e17b0ba1a5761dd984e57771955e">ip_RubyExitCommand</a>,</div><div class="line"><a name="l06377"></a><span class="lineno"> 6377</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06378"></a><span class="lineno"> 6378</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06379"></a><span class="lineno"> 6379</span> </div><div class="line"><a name="l06380"></a><span class="lineno"> 6380</span>  <span class="comment">/* replace vwait and tkwait */</span></div><div class="line"><a name="l06381"></a><span class="lineno"> 6381</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac7dc62d7648c1a3b4f1e39053d0073c4">ip_replace_wait_commands</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, mainWin);</div><div class="line"><a name="l06382"></a><span class="lineno"> 6382</span> </div><div class="line"><a name="l06383"></a><span class="lineno"> 6383</span>  <span class="comment">/* wrap namespace command */</span></div><div class="line"><a name="l06384"></a><span class="lineno"> 6384</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2c752c3113a4e3d5f552842910dc2ac6">ip_wrap_namespace_command</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l06385"></a><span class="lineno"> 6385</span> </div><div class="line"><a name="l06386"></a><span class="lineno"> 6386</span>  <span class="comment">/* define command to replace commands which depend on slave's MainWindow */</span></div><div class="line"><a name="l06387"></a><span class="lineno"> 6387</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l06388"></a><span class="lineno"> 6388</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="l06389"></a><span class="lineno"> 6389</span>  ip_rb_replaceSlaveTkCmdsObjCmd,</div><div class="line"><a name="l06390"></a><span class="lineno"> 6390</span>  (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06391"></a><span class="lineno"> 6391</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l06392"></a><span class="lineno"> 6392</span>  Tcl_CreateCommand(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="l06393"></a><span class="lineno"> 6393</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6cdd1d7d9dd22a3a2e72665d22edead4">ip_rb_replaceSlaveTkCmdsCommand</a>,</div><div class="line"><a name="l06394"></a><span class="lineno"> 6394</span>  (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06395"></a><span class="lineno"> 6395</span> <span class="preprocessor">#endif</span></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">/* set finalizer */</span></div><div class="line"><a name="l06398"></a><span class="lineno"> 6398</span>  Tcl_CallWhenDeleted(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab00abfb735d3f312974208b69126b6d9">ip_CallWhenDeleted</a>, (ClientData)mainWin);</div><div class="line"><a name="l06399"></a><span class="lineno"> 6399</span> </div><div class="line"><a name="l06400"></a><span class="lineno"> 6400</span>  <span class="keywordflow">if</span> (mainWin != (Tk_Window)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l06401"></a><span class="lineno"> 6401</span>  Tk_Release((ClientData)mainWin);</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> </div><div class="line"><a name="l06404"></a><span class="lineno"> 6404</span>  <span class="keywordflow">return</span> <span class="keyword">self</span>;</div><div class="line"><a name="l06405"></a><span class="lineno"> 6405</span> }</div><div class="line"><a name="l06406"></a><span class="lineno"> 6406</span> </div><div class="line"><a name="l06407"></a><span class="lineno"> 6407</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06408"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8889e269c13930f6ca02a4d8034834a9"> 6408</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8889e269c13930f6ca02a4d8034834a9">ip_create_slave_core</a>(interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l06409"></a><span class="lineno"> 6409</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l06410"></a><span class="lineno"> 6410</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l06411"></a><span class="lineno"> 6411</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l06412"></a><span class="lineno"> 6412</span> {</div><div class="line"><a name="l06413"></a><span class="lineno"> 6413</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *master = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</div><div class="line"><a name="l06414"></a><span class="lineno"> 6414</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="l06415"></a><span class="lineno"> 6415</span>  <span class="comment">/* struct tcltkip *slave = RbTk_ALLOC_N(struct tcltkip, 1); */</span></div><div class="line"><a name="l06416"></a><span class="lineno"> 6416</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> safemode;</div><div class="line"><a name="l06417"></a><span class="lineno"> 6417</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>;</div><div class="line"><a name="l06418"></a><span class="lineno"> 6418</span>  <span class="keywordtype">int</span> safe;</div><div class="line"><a name="l06419"></a><span class="lineno"> 6419</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l06420"></a><span class="lineno"> 6420</span>  Tk_Window mainWin;</div><div class="line"><a name="l06421"></a><span class="lineno"> 6421</span> </div><div class="line"><a name="l06422"></a><span class="lineno"> 6422</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l06423"></a><span class="lineno"> 6423</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(master)) {</div><div class="line"><a name="l06424"></a><span class="lineno"> 6424</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l06425"></a><span class="lineno"> 6425</span>  <span class="stringliteral">"deleted master cannot create a new slave"</span>);</div><div class="line"><a name="l06426"></a><span class="lineno"> 6426</span>  }</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>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a> = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[0];</div><div class="line"><a name="l06429"></a><span class="lineno"> 6429</span>  safemode = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1];</div><div class="line"><a name="l06430"></a><span class="lineno"> 6430</span> </div><div class="line"><a name="l06431"></a><span class="lineno"> 6431</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="l06432"></a><span class="lineno"> 6432</span>  safe = 1;</div><div class="line"><a name="l06433"></a><span class="lineno"> 6433</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (safemode == <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a> || <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(safemode)) {</div><div class="line"><a name="l06434"></a><span class="lineno"> 6434</span>  safe = 0;</div><div class="line"><a name="l06435"></a><span class="lineno"> 6435</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l06436"></a><span class="lineno"> 6436</span>  safe = 1;</div><div class="line"><a name="l06437"></a><span class="lineno"> 6437</span>  }</div><div class="line"><a name="l06438"></a><span class="lineno"> 6438</span> </div><div class="line"><a name="l06439"></a><span class="lineno"> 6439</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l06440"></a><span class="lineno"> 6440</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l06441"></a><span class="lineno"> 6441</span> </div><div class="line"><a name="l06442"></a><span class="lineno"> 6442</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l06443"></a><span class="lineno"> 6443</span>  <span class="comment">/* init Tk */</span></div><div class="line"><a name="l06444"></a><span class="lineno"> 6444</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="l06445"></a><span class="lineno"> 6445</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> exc;</div><div class="line"><a name="l06446"></a><span class="lineno"> 6446</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="l06447"></a><span class="lineno"> 6447</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a549faab10d1f93364421a77ea1699e65">tcltkip_init_tk</a>(interp);</div><div class="line"><a name="l06448"></a><span class="lineno"> 6448</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="l06449"></a><span class="lineno"> 6449</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l06450"></a><span class="lineno"> 6450</span>  <span class="keywordflow">return</span> exc;</div><div class="line"><a name="l06451"></a><span class="lineno"> 6451</span>  }</div><div class="line"><a name="l06452"></a><span class="lineno"> 6452</span>  }</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> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06455"></a><span class="lineno"> 6455</span> </div><div class="line"><a name="l06456"></a><span class="lineno"> 6456</span>  <span class="comment">/* create slave-ip */</span></div><div class="line"><a name="l06457"></a><span class="lineno"> 6457</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l06458"></a><span class="lineno"> 6458</span>  <span class="comment">/* slave->tk_thread_id = 0; */</span></div><div class="line"><a name="l06459"></a><span class="lineno"> 6459</span>  slave->tk_thread_id = master->tk_thread_id; <span class="comment">/* == current thread */</span></div><div class="line"><a name="l06460"></a><span class="lineno"> 6460</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06461"></a><span class="lineno"> 6461</span>  slave-><a class="code" href="../../db/d19/structtcltkip.html#a67f82d92ca91577d4a48287e9e0ee29f">ref_count</a> = 0;</div><div class="line"><a name="l06462"></a><span class="lineno"> 6462</span>  slave-><a class="code" href="../../db/d19/structtcltkip.html#ace5c5b6dab42be91b5cf7389a84cbb2c">allow_ruby_exit</a> = 0;</div><div class="line"><a name="l06463"></a><span class="lineno"> 6463</span>  slave-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = 0;</div><div class="line"><a name="l06464"></a><span class="lineno"> 6464</span> </div><div class="line"><a name="l06465"></a><span class="lineno"> 6465</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>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>), safe);</div><div class="line"><a name="l06466"></a><span class="lineno"> 6466</span>  <span class="keywordflow">if</span> (slave-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a> == <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l06467"></a><span class="lineno"> 6467</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l06468"></a><span class="lineno"> 6468</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l06469"></a><span class="lineno"> 6469</span>  <span class="stringliteral">"fail to create the new slave interpreter"</span>);</div><div class="line"><a name="l06470"></a><span class="lineno"> 6470</span>  }</div><div class="line"><a name="l06471"></a><span class="lineno"> 6471</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l06472"></a><span class="lineno"> 6472</span> <span class="preprocessor">#if TCL_NAMESPACE_DEBUG</span></div><div class="line"><a name="l06473"></a><span class="lineno"> 6473</span>  slave->default_ns = Tcl_GetCurrentNamespace(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> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06475"></a><span class="lineno"> 6475</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06476"></a><span class="lineno"> 6476</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a55dbead056a35cc4c3bcdaefe23e6252">rbtk_preserve_ip</a>(slave);</div><div class="line"><a name="l06477"></a><span class="lineno"> 6477</span> </div><div class="line"><a name="l06478"></a><span class="lineno"> 6478</span>  slave-><a class="code" href="../../db/d19/structtcltkip.html#a806a9dbb2520a6a3fc1eb1d860537c63">has_orig_exit</a></div><div class="line"><a name="l06479"></a><span class="lineno"> 6479</span>  = Tcl_GetCommandInfo(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="l06480"></a><span class="lineno"> 6480</span> </div><div class="line"><a name="l06481"></a><span class="lineno"> 6481</span>  <span class="comment">/* replace 'exit' command --> 'interp_exit' command */</span></div><div class="line"><a name="l06482"></a><span class="lineno"> 6482</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)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l06483"></a><span class="lineno"> 6483</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l06484"></a><span class="lineno"> 6484</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="l06485"></a><span class="lineno"> 6485</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="l06486"></a><span class="lineno"> 6486</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06487"></a><span class="lineno"> 6487</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l06488"></a><span class="lineno"> 6488</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="l06489"></a><span class="lineno"> 6489</span>  Tcl_CreateCommand(slave-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"exit"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac039247bd36850b582d929b1d204a35d">ip_InterpExitCommand</a>,</div><div class="line"><a name="l06490"></a><span class="lineno"> 6490</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06491"></a><span class="lineno"> 6491</span> <span class="preprocessor">#endif</span></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>  <span class="comment">/* replace vwait and tkwait */</span></div><div class="line"><a name="l06494"></a><span class="lineno"> 6494</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac7dc62d7648c1a3b4f1e39053d0073c4">ip_replace_wait_commands</a>(slave-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, mainWin);</div><div class="line"><a name="l06495"></a><span class="lineno"> 6495</span> </div><div class="line"><a name="l06496"></a><span class="lineno"> 6496</span>  <span class="comment">/* wrap namespace command */</span></div><div class="line"><a name="l06497"></a><span class="lineno"> 6497</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2c752c3113a4e3d5f552842910dc2ac6">ip_wrap_namespace_command</a>(slave-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l06498"></a><span class="lineno"> 6498</span> </div><div class="line"><a name="l06499"></a><span class="lineno"> 6499</span>  <span class="comment">/* define command to replace cmds which depend on slave-slave's MainWin */</span></div><div class="line"><a name="l06500"></a><span class="lineno"> 6500</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l06501"></a><span class="lineno"> 6501</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="l06502"></a><span class="lineno"> 6502</span>  ip_rb_replaceSlaveTkCmdsObjCmd,</div><div class="line"><a name="l06503"></a><span class="lineno"> 6503</span>  (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06504"></a><span class="lineno"> 6504</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l06505"></a><span class="lineno"> 6505</span>  Tcl_CreateCommand(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="l06506"></a><span class="lineno"> 6506</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6cdd1d7d9dd22a3a2e72665d22edead4">ip_rb_replaceSlaveTkCmdsCommand</a>,</div><div class="line"><a name="l06507"></a><span class="lineno"> 6507</span>  (ClientData)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06508"></a><span class="lineno"> 6508</span> <span class="preprocessor">#endif</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>  <span class="comment">/* set finalizer */</span></div><div class="line"><a name="l06511"></a><span class="lineno"> 6511</span>  Tcl_CallWhenDeleted(slave-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab00abfb735d3f312974208b69126b6d9">ip_CallWhenDeleted</a>, (ClientData)mainWin);</div><div class="line"><a name="l06512"></a><span class="lineno"> 6512</span> </div><div class="line"><a name="l06513"></a><span class="lineno"> 6513</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l06514"></a><span class="lineno"> 6514</span> </div><div class="line"><a name="l06515"></a><span class="lineno"> 6515</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a27705a261a9addb9ed4cb65dd5a61b1c">Data_Wrap_Struct</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#ad07df58de9895cbc33c10f02540d2d4d">CLASS_OF</a>(interp), 0, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0f7b07ccc6e87abaec80e30ad6780189">ip_free</a>, slave);</div><div class="line"><a name="l06516"></a><span class="lineno"> 6516</span> }</div><div class="line"><a name="l06517"></a><span class="lineno"> 6517</span> </div><div class="line"><a name="l06518"></a><span class="lineno"> 6518</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06519"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0b5edc1367cecaabf7aded34aeb9e570"> 6519</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0b5edc1367cecaabf7aded34aeb9e570">ip_create_slave</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>)</div><div class="line"><a name="l06520"></a><span class="lineno"> 6520</span>  int <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l06521"></a><span class="lineno"> 6521</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l06522"></a><span class="lineno"> 6522</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</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="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *master = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l06525"></a><span class="lineno"> 6525</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> safemode;</div><div class="line"><a name="l06526"></a><span class="lineno"> 6526</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>;</div><div class="line"><a name="l06527"></a><span class="lineno"> 6527</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> callargv[2];</div><div class="line"><a name="l06528"></a><span class="lineno"> 6528</span> </div><div class="line"><a name="l06529"></a><span class="lineno"> 6529</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l06530"></a><span class="lineno"> 6530</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(master)) {</div><div class="line"><a name="l06531"></a><span class="lineno"> 6531</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="l06532"></a><span class="lineno"> 6532</span>  <span class="stringliteral">"deleted master cannot create a new slave interpreter"</span>);</div><div class="line"><a name="l06533"></a><span class="lineno"> 6533</span>  }</div><div class="line"><a name="l06534"></a><span class="lineno"> 6534</span> </div><div class="line"><a name="l06535"></a><span class="lineno"> 6535</span>  <span class="comment">/* argument check */</span></div><div class="line"><a name="l06536"></a><span class="lineno"> 6536</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"11"</span>, &<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>, &safemode) == 1) {</div><div class="line"><a name="l06537"></a><span class="lineno"> 6537</span>  safemode = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l06538"></a><span class="lineno"> 6538</span>  }</div><div class="line"><a name="l06539"></a><span class="lineno"> 6539</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="l06540"></a><span class="lineno"> 6540</span>  && (safemode == <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a> || <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(safemode))) {</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>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>);</div><div class="line"><a name="l06544"></a><span class="lineno"> 6544</span>  callargv[0] = <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>;</div><div class="line"><a name="l06545"></a><span class="lineno"> 6545</span>  callargv[1] = safemode;</div><div class="line"><a name="l06546"></a><span class="lineno"> 6546</span> </div><div class="line"><a name="l06547"></a><span class="lineno"> 6547</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1cec8ebc4c54249136da6b6df38fb723">tk_funcall</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a8889e269c13930f6ca02a4d8034834a9">ip_create_slave_core</a>, 2, callargv, <span class="keyword">self</span>);</div><div class="line"><a name="l06548"></a><span class="lineno"> 6548</span> }</div><div class="line"><a name="l06549"></a><span class="lineno"> 6549</span> </div><div class="line"><a name="l06550"></a><span class="lineno"> 6550</span> </div><div class="line"><a name="l06551"></a><span class="lineno"> 6551</span> <span class="comment">/* self is slave of master? */</span></div><div class="line"><a name="l06552"></a><span class="lineno"> 6552</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06553"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6afd959b5c225f5fb614a77749f86280"> 6553</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6afd959b5c225f5fb614a77749f86280">ip_is_slave_of_p</a>(<span class="keyword">self</span>, master)</div><div class="line"><a name="l06554"></a><span class="lineno"> 6554</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, master;</div><div class="line"><a name="l06555"></a><span class="lineno"> 6555</span> {</div><div class="line"><a name="l06556"></a><span class="lineno"> 6556</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../db/d2e/intern_8h.html#a6e65fc310dd65ebd60d68ada991da6f6">rb_obj_is_kind_of</a>(master, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9da382a32faf00a1e9fa10aa11c5fb1b">tcltkip_class</a>)) {</div><div class="line"><a name="l06557"></a><span class="lineno"> 6557</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="l06558"></a><span class="lineno"> 6558</span>  }</div><div class="line"><a name="l06559"></a><span class="lineno"> 6559</span> </div><div class="line"><a name="l06560"></a><span class="lineno"> 6560</span>  <span class="keywordflow">if</span> (Tcl_GetMaster(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>)-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(master)-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) {</div><div class="line"><a name="l06561"></a><span class="lineno"> 6561</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l06562"></a><span class="lineno"> 6562</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l06563"></a><span class="lineno"> 6563</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l06564"></a><span class="lineno"> 6564</span>  }</div><div class="line"><a name="l06565"></a><span class="lineno"> 6565</span> }</div><div class="line"><a name="l06566"></a><span class="lineno"> 6566</span> </div><div class="line"><a name="l06567"></a><span class="lineno"> 6567</span> </div><div class="line"><a name="l06568"></a><span class="lineno"> 6568</span> <span class="comment">/* create console (if supported) */</span></div><div class="line"><a name="l06569"></a><span class="lineno"> 6569</span> <span class="preprocessor">#if defined(MAC_TCL) || defined(__WIN32__)</span></div><div class="line"><a name="l06570"></a><span class="lineno"> 6570</span> <span class="preprocessor">#if TCL_MAJOR_VERSION < 8 \</span></div><div class="line"><a name="l06571"></a><span class="lineno"> 6571</span> <span class="preprocessor"> || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION == 0) \</span></div><div class="line"><a name="l06572"></a><span class="lineno"> 6572</span> <span class="preprocessor"> || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION == 1 \</span></div><div class="line"><a name="l06573"></a><span class="lineno"> 6573</span> <span class="preprocessor"> && (TCL_RELEASE_LEVEL == TCL_ALPHA_RELEASE \</span></div><div class="line"><a name="l06574"></a><span class="lineno"> 6574</span> <span class="preprocessor"> || (TCL_RELEASE_LEVEL == TCL_BETA_RELEASE \</span></div><div class="line"><a name="l06575"></a><span class="lineno"> 6575</span> <span class="preprocessor"> && TCL_RELEASE_SERIAL < 2) ) )</span></div><div class="line"><a name="l06576"></a><span class="lineno"> 6576</span> <a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keywordtype">void</span> TkConsoleCreate <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<span class="keywordtype">void</span>));</div><div class="line"><a name="l06577"></a><span class="lineno"> 6577</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06578"></a><span class="lineno"> 6578</span> <span class="preprocessor">#if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION == 1 \</span></div><div class="line"><a name="l06579"></a><span class="lineno"> 6579</span> <span class="preprocessor"> && ( (TCL_RELEASE_LEVEL == TCL_FINAL_RELEASE \</span></div><div class="line"><a name="l06580"></a><span class="lineno"> 6580</span> <span class="preprocessor"> && TCL_RELEASE_SERIAL == 0) \</span></div><div class="line"><a name="l06581"></a><span class="lineno"> 6581</span> <span class="preprocessor"> || (TCL_RELEASE_LEVEL == TCL_BETA_RELEASE \</span></div><div class="line"><a name="l06582"></a><span class="lineno"> 6582</span> <span class="preprocessor"> && TCL_RELEASE_SERIAL >= 2) )</span></div><div class="line"><a name="l06583"></a><span class="lineno"> 6583</span> <a class="code" href="../../d8/db0/defines_8h.html#a77366c1bd428629dc898e188bfd182a3">EXTERN</a> <span class="keywordtype">void</span> TkConsoleCreate_ <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((<span class="keywordtype">void</span>));</div><div class="line"><a name="l06584"></a><span class="lineno"> 6584</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06585"></a><span class="lineno"> 6585</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06586"></a><span class="lineno"> 6586</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06587"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6579e4c538bc36332874a0e3fcbf0e07"> 6587</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6579e4c538bc36332874a0e3fcbf0e07">ip_create_console_core</a>(interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l06588"></a><span class="lineno"> 6588</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l06589"></a><span class="lineno"> 6589</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>; <span class="comment">/* dummy */</span></div><div class="line"><a name="l06590"></a><span class="lineno"> 6590</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>; <span class="comment">/* dummy */</span></div><div class="line"><a name="l06591"></a><span class="lineno"> 6591</span> {</div><div class="line"><a name="l06592"></a><span class="lineno"> 6592</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</div><div class="line"><a name="l06593"></a><span class="lineno"> 6593</span> </div><div class="line"><a name="l06594"></a><span class="lineno"> 6594</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="l06595"></a><span class="lineno"> 6595</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a549faab10d1f93364421a77ea1699e65">tcltkip_init_tk</a>(interp);</div><div class="line"><a name="l06596"></a><span class="lineno"> 6596</span>  }</div><div class="line"><a name="l06597"></a><span class="lineno"> 6597</span> </div><div class="line"><a name="l06598"></a><span class="lineno"> 6598</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>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l06599"></a><span class="lineno"> 6599</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="l06600"></a><span class="lineno"> 6600</span>  }</div><div class="line"><a name="l06601"></a><span class="lineno"> 6601</span> </div><div class="line"><a name="l06602"></a><span class="lineno"> 6602</span> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 \</span></div><div class="line"><a name="l06603"></a><span class="lineno"> 6603</span> <span class="preprocessor"> || (TCL_MAJOR_VERSION == 8 \</span></div><div class="line"><a name="l06604"></a><span class="lineno"> 6604</span> <span class="preprocessor"> && (TCL_MINOR_VERSION > 1 \</span></div><div class="line"><a name="l06605"></a><span class="lineno"> 6605</span> <span class="preprocessor"> || (TCL_MINOR_VERSION == 1 \</span></div><div class="line"><a name="l06606"></a><span class="lineno"> 6606</span> <span class="preprocessor"> && TCL_RELEASE_LEVEL == TCL_FINAL_RELEASE \</span></div><div class="line"><a name="l06607"></a><span class="lineno"> 6607</span> <span class="preprocessor"> && TCL_RELEASE_SERIAL >= 1) ) )</span></div><div class="line"><a name="l06608"></a><span class="lineno"> 6608</span>  Tk_InitConsoleChannels(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</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>  <span class="keywordflow">if</span> (Tk_CreateConsoleWindow(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) != TCL_OK) {</div><div class="line"><a name="l06611"></a><span class="lineno"> 6611</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="l06612"></a><span class="lineno"> 6612</span>  }</div><div class="line"><a name="l06613"></a><span class="lineno"> 6613</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l06614"></a><span class="lineno"> 6614</span> <span class="preprocessor">#if defined(MAC_TCL) || defined(__WIN32__)</span></div><div class="line"><a name="l06615"></a><span class="lineno"> 6615</span> <span class="preprocessor">#if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION == 1 \</span></div><div class="line"><a name="l06616"></a><span class="lineno"> 6616</span> <span class="preprocessor"> && ( (TCL_RELEASE_LEVEL == TCL_FINAL_RELEASE && TCL_RELEASE_SERIAL == 0) \</span></div><div class="line"><a name="l06617"></a><span class="lineno"> 6617</span> <span class="preprocessor"> || (TCL_RELEASE_LEVEL == TCL_BETA_RELEASE && TCL_RELEASE_SERIAL >= 2) )</span></div><div class="line"><a name="l06618"></a><span class="lineno"> 6618</span>  TkConsoleCreate_();</div><div class="line"><a name="l06619"></a><span class="lineno"> 6619</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l06620"></a><span class="lineno"> 6620</span>  TkConsoleCreate();</div><div class="line"><a name="l06621"></a><span class="lineno"> 6621</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06622"></a><span class="lineno"> 6622</span> </div><div class="line"><a name="l06623"></a><span class="lineno"> 6623</span>  <span class="keywordflow">if</span> (TkConsoleInit(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) != TCL_OK) {</div><div class="line"><a name="l06624"></a><span class="lineno"> 6624</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="l06625"></a><span class="lineno"> 6625</span>  }</div><div class="line"><a name="l06626"></a><span class="lineno"> 6626</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l06627"></a><span class="lineno"> 6627</span>  <a class="code" href="../../db/dcc/error_8c.html#a0083d327c582acc3300d59e8fe257c27">rb_notimplement</a>();</div><div class="line"><a name="l06628"></a><span class="lineno"> 6628</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06629"></a><span class="lineno"> 6629</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06630"></a><span class="lineno"> 6630</span> </div><div class="line"><a name="l06631"></a><span class="lineno"> 6631</span>  <span class="keywordflow">return</span> interp;</div><div class="line"><a name="l06632"></a><span class="lineno"> 6632</span> }</div><div class="line"><a name="l06633"></a><span class="lineno"> 6633</span> </div><div class="line"><a name="l06634"></a><span class="lineno"> 6634</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06635"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aef40fa1c994b74c38cf0b7f838d47824"> 6635</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef40fa1c994b74c38cf0b7f838d47824">ip_create_console</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l06636"></a><span class="lineno"> 6636</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l06637"></a><span class="lineno"> 6637</span> {</div><div class="line"><a name="l06638"></a><span class="lineno"> 6638</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</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"> 6640</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l06641"></a><span class="lineno"> 6641</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l06642"></a><span class="lineno"> 6642</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="l06643"></a><span class="lineno"> 6643</span>  }</div><div class="line"><a name="l06644"></a><span class="lineno"> 6644</span> </div><div class="line"><a name="l06645"></a><span class="lineno"> 6645</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1cec8ebc4c54249136da6b6df38fb723">tk_funcall</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6579e4c538bc36332874a0e3fcbf0e07">ip_create_console_core</a>, 0, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, <span class="keyword">self</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> </div><div class="line"><a name="l06648"></a><span class="lineno"> 6648</span> <span class="comment">/* make ip "safe" */</span></div><div class="line"><a name="l06649"></a><span class="lineno"> 6649</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06650"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af545c646fb42a4dc301363b3afa0c01c"> 6650</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af545c646fb42a4dc301363b3afa0c01c">ip_make_safe_core</a>(interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l06651"></a><span class="lineno"> 6651</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l06652"></a><span class="lineno"> 6652</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>; <span class="comment">/* dummy */</span></div><div class="line"><a name="l06653"></a><span class="lineno"> 6653</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>; <span class="comment">/* dummy */</span></div><div class="line"><a name="l06654"></a><span class="lineno"> 6654</span> {</div><div class="line"><a name="l06655"></a><span class="lineno"> 6655</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</div><div class="line"><a name="l06656"></a><span class="lineno"> 6656</span>  Tk_Window mainWin;</div><div class="line"><a name="l06657"></a><span class="lineno"> 6657</span> </div><div class="line"><a name="l06658"></a><span class="lineno"> 6658</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l06659"></a><span class="lineno"> 6659</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l06660"></a><span class="lineno"> 6660</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">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="l06661"></a><span class="lineno"> 6661</span>  }</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>  <span class="keywordflow">if</span> (Tcl_MakeSafe(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>) == TCL_ERROR) {</div><div class="line"><a name="l06664"></a><span class="lineno"> 6664</span>  <span class="comment">/* return rb_exc_new2(rb_eRuntimeError,</span></div><div class="line"><a name="l06665"></a><span class="lineno"> 6665</span> <span class="comment"> Tcl_GetStringResult(ptr->ip)); */</span></div><div class="line"><a name="l06666"></a><span class="lineno"> 6666</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l06667"></a><span class="lineno"> 6667</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="l06668"></a><span class="lineno"> 6668</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>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#ace5c5b6dab42be91b5cf7389a84cbb2c">allow_ruby_exit</a> = 0;</div><div class="line"><a name="l06671"></a><span class="lineno"> 6671</span> </div><div class="line"><a name="l06672"></a><span class="lineno"> 6672</span>  <span class="comment">/* replace 'exit' command --> 'interp_exit' command */</span></div><div class="line"><a name="l06673"></a><span class="lineno"> 6673</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)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l06674"></a><span class="lineno"> 6674</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l06675"></a><span class="lineno"> 6675</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="l06676"></a><span class="lineno"> 6676</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="l06677"></a><span class="lineno"> 6677</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06678"></a><span class="lineno"> 6678</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l06679"></a><span class="lineno"> 6679</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="l06680"></a><span class="lineno"> 6680</span>  Tcl_CreateCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"exit"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac039247bd36850b582d929b1d204a35d">ip_InterpExitCommand</a>,</div><div class="line"><a name="l06681"></a><span class="lineno"> 6681</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06682"></a><span class="lineno"> 6682</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06683"></a><span class="lineno"> 6683</span> </div><div class="line"><a name="l06684"></a><span class="lineno"> 6684</span>  <span class="keywordflow">return</span> interp;</div><div class="line"><a name="l06685"></a><span class="lineno"> 6685</span> }</div><div class="line"><a name="l06686"></a><span class="lineno"> 6686</span> </div><div class="line"><a name="l06687"></a><span class="lineno"> 6687</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06688"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a35f1dffc672795ce3d938184a81e5580"> 6688</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a35f1dffc672795ce3d938184a81e5580">ip_make_safe</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l06689"></a><span class="lineno"> 6689</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l06690"></a><span class="lineno"> 6690</span> {</div><div class="line"><a name="l06691"></a><span class="lineno"> 6691</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l06692"></a><span class="lineno"> 6692</span> </div><div class="line"><a name="l06693"></a><span class="lineno"> 6693</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l06694"></a><span class="lineno"> 6694</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l06695"></a><span class="lineno"> 6695</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="l06696"></a><span class="lineno"> 6696</span>  }</div><div class="line"><a name="l06697"></a><span class="lineno"> 6697</span> </div><div class="line"><a name="l06698"></a><span class="lineno"> 6698</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1cec8ebc4c54249136da6b6df38fb723">tk_funcall</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#af545c646fb42a4dc301363b3afa0c01c">ip_make_safe_core</a>, 0, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, <span class="keyword">self</span>);</div><div class="line"><a name="l06699"></a><span class="lineno"> 6699</span> }</div><div class="line"><a name="l06700"></a><span class="lineno"> 6700</span> </div><div class="line"><a name="l06701"></a><span class="lineno"> 6701</span> <span class="comment">/* is safe? */</span></div><div class="line"><a name="l06702"></a><span class="lineno"> 6702</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06703"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ab150321a746700b39420f8b6fa40d29a"> 6703</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab150321a746700b39420f8b6fa40d29a">ip_is_safe_p</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l06704"></a><span class="lineno"> 6704</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l06705"></a><span class="lineno"> 6705</span> {</div><div class="line"><a name="l06706"></a><span class="lineno"> 6706</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</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>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l06709"></a><span class="lineno"> 6709</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l06710"></a><span class="lineno"> 6710</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="l06711"></a><span class="lineno"> 6711</span>  }</div><div class="line"><a name="l06712"></a><span class="lineno"> 6712</span> </div><div class="line"><a name="l06713"></a><span class="lineno"> 6713</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="l06714"></a><span class="lineno"> 6714</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l06715"></a><span class="lineno"> 6715</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l06716"></a><span class="lineno"> 6716</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l06717"></a><span class="lineno"> 6717</span>  }</div><div class="line"><a name="l06718"></a><span class="lineno"> 6718</span> }</div><div class="line"><a name="l06719"></a><span class="lineno"> 6719</span> </div><div class="line"><a name="l06720"></a><span class="lineno"> 6720</span> <span class="comment">/* allow_ruby_exit? */</span></div><div class="line"><a name="l06721"></a><span class="lineno"> 6721</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06722"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad5f7e585527b297dd62440f0ef749249"> 6722</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad5f7e585527b297dd62440f0ef749249">ip_allow_ruby_exit_p</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l06723"></a><span class="lineno"> 6723</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l06724"></a><span class="lineno"> 6724</span> {</div><div class="line"><a name="l06725"></a><span class="lineno"> 6725</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l06726"></a><span class="lineno"> 6726</span> </div><div class="line"><a name="l06727"></a><span class="lineno"> 6727</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l06728"></a><span class="lineno"> 6728</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l06729"></a><span class="lineno"> 6729</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="l06730"></a><span class="lineno"> 6730</span>  }</div><div class="line"><a name="l06731"></a><span class="lineno"> 6731</span> </div><div class="line"><a name="l06732"></a><span class="lineno"> 6732</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="l06733"></a><span class="lineno"> 6733</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l06734"></a><span class="lineno"> 6734</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l06735"></a><span class="lineno"> 6735</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l06736"></a><span class="lineno"> 6736</span>  }</div><div class="line"><a name="l06737"></a><span class="lineno"> 6737</span> }</div><div class="line"><a name="l06738"></a><span class="lineno"> 6738</span> </div><div class="line"><a name="l06739"></a><span class="lineno"> 6739</span> <span class="comment">/* allow_ruby_exit = mode */</span></div><div class="line"><a name="l06740"></a><span class="lineno"> 6740</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06741"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a63b0b31e96100a5676c4fd51783fc498"> 6741</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a63b0b31e96100a5676c4fd51783fc498">ip_allow_ruby_exit_set</a>(<span class="keyword">self</span>, <a class="code" href="../../df/d38/vm__exec_8c.html">val</a>)</div><div class="line"><a name="l06742"></a><span class="lineno"> 6742</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>, <a class="code" href="../../df/d38/vm__exec_8c.html">val</a>;</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="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l06745"></a><span class="lineno"> 6745</span>  Tk_Window mainWin;</div><div class="line"><a name="l06746"></a><span class="lineno"> 6746</span> </div><div class="line"><a name="l06747"></a><span class="lineno"> 6747</span> </div><div class="line"><a name="l06748"></a><span class="lineno"> 6748</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l06749"></a><span class="lineno"> 6749</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l06750"></a><span class="lineno"> 6750</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="l06751"></a><span class="lineno"> 6751</span>  }</div><div class="line"><a name="l06752"></a><span class="lineno"> 6752</span> </div><div class="line"><a name="l06753"></a><span class="lineno"> 6753</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="l06754"></a><span class="lineno"> 6754</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="l06755"></a><span class="lineno"> 6755</span>  <span class="stringliteral">"insecure operation on a safe interpreter"</span>);</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> </div><div class="line"><a name="l06758"></a><span class="lineno"> 6758</span>  <span class="comment">/*</span></div><div class="line"><a name="l06759"></a><span class="lineno"> 6759</span> <span class="comment"> * Because of cross-threading, the following line may fail to find</span></div><div class="line"><a name="l06760"></a><span class="lineno"> 6760</span> <span class="comment"> * the MainWindow, even if the Tcl/Tk interpreter has one or more.</span></div><div class="line"><a name="l06761"></a><span class="lineno"> 6761</span> <span class="comment"> * But it has no problem. Current implementation of both type of</span></div><div class="line"><a name="l06762"></a><span class="lineno"> 6762</span> <span class="comment"> * the "exit" command don't need maiinWin token.</span></div><div class="line"><a name="l06763"></a><span class="lineno"> 6763</span> <span class="comment"> */</span></div><div class="line"><a name="l06764"></a><span class="lineno"> 6764</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)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l06765"></a><span class="lineno"> 6765</span> </div><div class="line"><a name="l06766"></a><span class="lineno"> 6766</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../df/d38/vm__exec_8c.html">val</a>)) {</div><div class="line"><a name="l06767"></a><span class="lineno"> 6767</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#ace5c5b6dab42be91b5cf7389a84cbb2c">allow_ruby_exit</a> = 1;</div><div class="line"><a name="l06768"></a><span class="lineno"> 6768</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l06769"></a><span class="lineno"> 6769</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="l06770"></a><span class="lineno"> 6770</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="l06771"></a><span class="lineno"> 6771</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06772"></a><span class="lineno"> 6772</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l06773"></a><span class="lineno"> 6773</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="l06774"></a><span class="lineno"> 6774</span>  Tcl_CreateCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"exit"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#af3e1e17b0ba1a5761dd984e57771955e">ip_RubyExitCommand</a>,</div><div class="line"><a name="l06775"></a><span class="lineno"> 6775</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06776"></a><span class="lineno"> 6776</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06777"></a><span class="lineno"> 6777</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l06778"></a><span class="lineno"> 6778</span> </div><div class="line"><a name="l06779"></a><span class="lineno"> 6779</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l06780"></a><span class="lineno"> 6780</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#ace5c5b6dab42be91b5cf7389a84cbb2c">allow_ruby_exit</a> = 0;</div><div class="line"><a name="l06781"></a><span class="lineno"> 6781</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></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">"Tcl_CreateObjCommand(\"exit\") --> \"interp_exit\""</span>);</div><div class="line"><a name="l06783"></a><span class="lineno"> 6783</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="l06784"></a><span class="lineno"> 6784</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06785"></a><span class="lineno"> 6785</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l06786"></a><span class="lineno"> 6786</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="l06787"></a><span class="lineno"> 6787</span>  Tcl_CreateCommand(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <span class="stringliteral">"exit"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac039247bd36850b582d929b1d204a35d">ip_InterpExitCommand</a>,</div><div class="line"><a name="l06788"></a><span class="lineno"> 6788</span>  (ClientData)mainWin, (Tcl_CmdDeleteProc *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l06789"></a><span class="lineno"> 6789</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06790"></a><span class="lineno"> 6790</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l06791"></a><span class="lineno"> 6791</span>  }</div><div class="line"><a name="l06792"></a><span class="lineno"> 6792</span> }</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> <span class="comment">/* delete interpreter */</span></div><div class="line"><a name="l06795"></a><span class="lineno"> 6795</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06796"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ab569b91e16f4f01e23e8001c1a767737"> 6796</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab569b91e16f4f01e23e8001c1a767737">ip_delete</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l06797"></a><span class="lineno"> 6797</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l06798"></a><span class="lineno"> 6798</span> {</div><div class="line"><a name="l06799"></a><span class="lineno"> 6799</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l06800"></a><span class="lineno"> 6800</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>);</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>  <span class="comment">/* if (ptr == (struct tcltkip *)NULL || ptr->ip == (Tcl_Interp*)NULL) { */</span></div><div class="line"><a name="l06803"></a><span class="lineno"> 6803</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l06804"></a><span class="lineno"> 6804</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="l06805"></a><span class="lineno"> 6805</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l06806"></a><span class="lineno"> 6806</span>  }</div><div class="line"><a name="l06807"></a><span class="lineno"> 6807</span> </div><div class="line"><a name="l06808"></a><span class="lineno"> 6808</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l06809"></a><span class="lineno"> 6809</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</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>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"delete interp"</span>);</div><div class="line"><a name="l06812"></a><span class="lineno"> 6812</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="l06813"></a><span class="lineno"> 6813</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="l06814"></a><span class="lineno"> 6814</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#af3e6f9a2db4741e3208aeedae20c97cd">ip_finalize</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</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>  Tcl_DeleteInterp(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l06817"></a><span class="lineno"> 6817</span>  Tcl_Release(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l06818"></a><span class="lineno"> 6818</span>  }</div><div class="line"><a name="l06819"></a><span class="lineno"> 6819</span> </div><div class="line"><a name="l06820"></a><span class="lineno"> 6820</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</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="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l06823"></a><span class="lineno"> 6823</span> }</div><div class="line"><a name="l06824"></a><span class="lineno"> 6824</span> </div><div class="line"><a name="l06825"></a><span class="lineno"> 6825</span> </div><div class="line"><a name="l06826"></a><span class="lineno"> 6826</span> <span class="comment">/* is deleted? */</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#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06828"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a26fc7fcdf650154d948f3bb5334f7906"> 6828</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a26fc7fcdf650154d948f3bb5334f7906">ip_has_invalid_namespace_p</a>(<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#a3c1d4bfc6a81af60bdcb48744c35f760">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 = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<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> (ptr == (<span class="keyword">struct</span> <a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a> || ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a> == (Tcl_Interp *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l06834"></a><span class="lineno"> 6834</span>  <span class="comment">/* deleted IP */</span></div><div class="line"><a name="l06835"></a><span class="lineno"> 6835</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l06836"></a><span class="lineno"> 6836</span>  }</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> <span class="preprocessor">#if TCL_NAMESPACE_DEBUG</span></div><div class="line"><a name="l06839"></a><span class="lineno"> 6839</span>  <span class="keywordflow">if</span> (rbtk_invalid_namespace(ptr)) {</div><div class="line"><a name="l06840"></a><span class="lineno"> 6840</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l06841"></a><span class="lineno"> 6841</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l06842"></a><span class="lineno"> 6842</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l06843"></a><span class="lineno"> 6843</span>  }</div><div class="line"><a name="l06844"></a><span class="lineno"> 6844</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l06845"></a><span class="lineno"> 6845</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l06846"></a><span class="lineno"> 6846</span> <span class="preprocessor">#endif</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"> 6848</span> </div><div class="line"><a name="l06849"></a><span class="lineno"> 6849</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06850"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a16caf63f211ddb58e34d7fea73c8f8b8"> 6850</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a16caf63f211ddb58e34d7fea73c8f8b8">ip_is_deleted_p</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l06851"></a><span class="lineno"> 6851</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l06852"></a><span class="lineno"> 6852</span> {</div><div class="line"><a name="l06853"></a><span class="lineno"> 6853</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>);</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>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l06856"></a><span class="lineno"> 6856</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l06857"></a><span class="lineno"> 6857</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l06858"></a><span class="lineno"> 6858</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l06859"></a><span class="lineno"> 6859</span>  }</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> </div><div class="line"><a name="l06862"></a><span class="lineno"> 6862</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06863"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aae0e06e43d2d7bf10fec3114b39b7866"> 6863</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aae0e06e43d2d7bf10fec3114b39b7866">ip_has_mainwindow_p_core</a>(<span class="keyword">self</span>, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l06864"></a><span class="lineno"> 6864</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l06865"></a><span class="lineno"> 6865</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>; <span class="comment">/* dummy */</span></div><div class="line"><a name="l06866"></a><span class="lineno"> 6866</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>; <span class="comment">/* dummy */</span></div><div class="line"><a name="l06867"></a><span class="lineno"> 6867</span> {</div><div class="line"><a name="l06868"></a><span class="lineno"> 6868</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l06869"></a><span class="lineno"> 6869</span> </div><div class="line"><a name="l06870"></a><span class="lineno"> 6870</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr) || !<a class="code" href="../../d5/d30/stubs_8c.html#a237743b5abae83fd8b5a3ef2715ec7bf">tk_stubs_init_p</a>()) {</div><div class="line"><a name="l06871"></a><span class="lineno"> 6871</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l06872"></a><span class="lineno"> 6872</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)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l06873"></a><span class="lineno"> 6873</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l06874"></a><span class="lineno"> 6874</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l06875"></a><span class="lineno"> 6875</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l06876"></a><span class="lineno"> 6876</span>  }</div><div class="line"><a name="l06877"></a><span class="lineno"> 6877</span> }</div><div class="line"><a name="l06878"></a><span class="lineno"> 6878</span> </div><div class="line"><a name="l06879"></a><span class="lineno"> 6879</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06880"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5453a353691a18219b5dd3e160a2a146"> 6880</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5453a353691a18219b5dd3e160a2a146">ip_has_mainwindow_p</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l06881"></a><span class="lineno"> 6881</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l06882"></a><span class="lineno"> 6882</span> {</div><div class="line"><a name="l06883"></a><span class="lineno"> 6883</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1cec8ebc4c54249136da6b6df38fb723">tk_funcall</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aae0e06e43d2d7bf10fec3114b39b7866">ip_has_mainwindow_p_core</a>, 0, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, <span class="keyword">self</span>);</div><div class="line"><a name="l06884"></a><span class="lineno"> 6884</span> }</div><div class="line"><a name="l06885"></a><span class="lineno"> 6885</span> </div><div class="line"><a name="l06886"></a><span class="lineno"> 6886</span> </div><div class="line"><a name="l06887"></a><span class="lineno"> 6887</span> <span class="comment">/*** ruby string <=> tcl object ***/</span></div><div class="line"><a name="l06888"></a><span class="lineno"> 6888</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l06889"></a><span class="lineno"> 6889</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06890"></a><span class="lineno"> 6890</span> get_str_from_obj(obj)</div><div class="line"><a name="l06891"></a><span class="lineno"> 6891</span>  Tcl_Obj *obj;</div><div class="line"><a name="l06892"></a><span class="lineno"> 6892</span> {</div><div class="line"><a name="l06893"></a><span class="lineno"> 6893</span>  <span class="keywordtype">int</span> len, binary = 0;</div><div class="line"><a name="l06894"></a><span class="lineno"> 6894</span>  <span class="keyword">const</span> <span class="keywordtype">char</span> *s;</div><div class="line"><a name="l06895"></a><span class="lineno"> 6895</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> str;</div><div class="line"><a name="l06896"></a><span class="lineno"> 6896</span> </div><div class="line"><a name="l06897"></a><span class="lineno"> 6897</span> <span class="preprocessor">#if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION == 0</span></div><div class="line"><a name="l06898"></a><span class="lineno"> 6898</span>  s = Tcl_GetStringFromObj(obj, &len);</div><div class="line"><a name="l06899"></a><span class="lineno"> 6899</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l06900"></a><span class="lineno"> 6900</span> <span class="preprocessor">#if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION <= 3</span></div><div class="line"><a name="l06901"></a><span class="lineno"> 6901</span>  <span class="comment">/* TCL_VERSION 8.1 -- 8.3 */</span></div><div class="line"><a name="l06902"></a><span class="lineno"> 6902</span>  <span class="keywordflow">if</span> (Tcl_GetCharLength(obj) != Tcl_UniCharLen(Tcl_GetUnicode(obj))) {</div><div class="line"><a name="l06903"></a><span class="lineno"> 6903</span>  <span class="comment">/* possibly binary string */</span></div><div class="line"><a name="l06904"></a><span class="lineno"> 6904</span>  s = (<span class="keywordtype">char</span> *)Tcl_GetByteArrayFromObj(obj, &len);</div><div class="line"><a name="l06905"></a><span class="lineno"> 6905</span>  binary = 1;</div><div class="line"><a name="l06906"></a><span class="lineno"> 6906</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l06907"></a><span class="lineno"> 6907</span>  <span class="comment">/* possibly text string */</span></div><div class="line"><a name="l06908"></a><span class="lineno"> 6908</span>  s = Tcl_GetStringFromObj(obj, &len);</div><div class="line"><a name="l06909"></a><span class="lineno"> 6909</span>  }</div><div class="line"><a name="l06910"></a><span class="lineno"> 6910</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_VERSION >= 8.4 */</span><span class="preprocessor"></span></div><div class="line"><a name="l06911"></a><span class="lineno"> 6911</span>  <span class="keywordflow">if</span> (IS_TCL_BYTEARRAY(obj)) {</div><div class="line"><a name="l06912"></a><span class="lineno"> 6912</span>  s = (<span class="keywordtype">char</span> *)Tcl_GetByteArrayFromObj(obj, &len);</div><div class="line"><a name="l06913"></a><span class="lineno"> 6913</span>  binary = 1;</div><div class="line"><a name="l06914"></a><span class="lineno"> 6914</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l06915"></a><span class="lineno"> 6915</span>  s = Tcl_GetStringFromObj(obj, &len);</div><div class="line"><a name="l06916"></a><span class="lineno"> 6916</span>  }</div><div class="line"><a name="l06917"></a><span class="lineno"> 6917</span> </div><div class="line"><a name="l06918"></a><span class="lineno"> 6918</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06919"></a><span class="lineno"> 6919</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06920"></a><span class="lineno"> 6920</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#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l06921"></a><span class="lineno"> 6921</span>  <span class="keywordflow">if</span> (binary) {</div><div class="line"><a name="l06922"></a><span class="lineno"> 6922</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l06923"></a><span class="lineno"> 6923</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a76a58884428d17b0ae0736d9d16ade61">ENCODING_INDEX_BINARY</a>);</div><div class="line"><a name="l06924"></a><span class="lineno"> 6924</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06925"></a><span class="lineno"> 6925</span>  <a class="code" href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a233859a1dce4fae0b33d1ea0243b0d47">ENCODING_NAME_BINARY</a>);</div><div class="line"><a name="l06926"></a><span class="lineno"> 6926</span> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION >= 1)</span></div><div class="line"><a name="l06927"></a><span class="lineno"> 6927</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l06928"></a><span class="lineno"> 6928</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l06929"></a><span class="lineno"> 6929</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a154b1f5c9c90acef2a0b248f861fea29">ENCODING_INDEX_UTF8</a>);</div><div class="line"><a name="l06930"></a><span class="lineno"> 6930</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06931"></a><span class="lineno"> 6931</span>  <a class="code" href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8b1d6a68739d2f40636d9a8f3aea4253">ENCODING_NAME_UTF8</a>);</div><div class="line"><a name="l06932"></a><span class="lineno"> 6932</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06933"></a><span class="lineno"> 6933</span>  }</div><div class="line"><a name="l06934"></a><span class="lineno"> 6934</span>  <span class="keywordflow">return</span> str;</div><div class="line"><a name="l06935"></a><span class="lineno"> 6935</span> }</div><div class="line"><a name="l06936"></a><span class="lineno"> 6936</span> </div><div class="line"><a name="l06937"></a><span class="lineno"> 6937</span> <span class="keyword">static</span> Tcl_Obj *</div><div class="line"><a name="l06938"></a><span class="lineno"> 6938</span> get_obj_from_str(str)</div><div class="line"><a name="l06939"></a><span class="lineno"> 6939</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> str;</div><div class="line"><a name="l06940"></a><span class="lineno"> 6940</span> {</div><div class="line"><a name="l06941"></a><span class="lineno"> 6941</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="l06942"></a><span class="lineno"> 6942</span> </div><div class="line"><a name="l06943"></a><span class="lineno"> 6943</span> <span class="preprocessor">#if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION == 0</span></div><div class="line"><a name="l06944"></a><span class="lineno"> 6944</span>  <span class="keywordflow">return</span> Tcl_NewStringObj((<span class="keywordtype">char</span>*)s, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(str));</div><div class="line"><a name="l06945"></a><span class="lineno"> 6945</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_VERSION >= 8.1 */</span><span class="preprocessor"></span></div><div class="line"><a name="l06946"></a><span class="lineno"> 6946</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> enc = <a class="code" href="../../db/d2e/intern_8h.html#ab8a448eec4dc767e47f5f9bd35974734">rb_attr_get</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>);</div><div class="line"><a name="l06947"></a><span class="lineno"> 6947</span> </div><div class="line"><a name="l06948"></a><span class="lineno"> 6948</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="l06949"></a><span class="lineno"> 6949</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(enc);</div><div class="line"><a name="l06950"></a><span class="lineno"> 6950</span>  <span class="keywordflow">if</span> (strcmp(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(enc), <span class="stringliteral">"binary"</span>) == 0) {</div><div class="line"><a name="l06951"></a><span class="lineno"> 6951</span>  <span class="comment">/* binary string */</span></div><div class="line"><a name="l06952"></a><span class="lineno"> 6952</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="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(str));</div><div class="line"><a name="l06953"></a><span class="lineno"> 6953</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l06954"></a><span class="lineno"> 6954</span>  <span class="comment">/* text string */</span></div><div class="line"><a name="l06955"></a><span class="lineno"> 6955</span>  <span class="keywordflow">return</span> Tcl_NewStringObj(s, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(str));</div><div class="line"><a name="l06956"></a><span class="lineno"> 6956</span>  }</div><div class="line"><a name="l06957"></a><span class="lineno"> 6957</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l06958"></a><span class="lineno"> 6958</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) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a76a58884428d17b0ae0736d9d16ade61">ENCODING_INDEX_BINARY</a>) {</div><div class="line"><a name="l06959"></a><span class="lineno"> 6959</span>  <span class="comment">/* binary string */</span></div><div class="line"><a name="l06960"></a><span class="lineno"> 6960</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="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(str));</div><div class="line"><a name="l06961"></a><span class="lineno"> 6961</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06962"></a><span class="lineno"> 6962</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (memchr(s, 0, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(str))) {</div><div class="line"><a name="l06963"></a><span class="lineno"> 6963</span>  <span class="comment">/* probably binary string */</span></div><div class="line"><a name="l06964"></a><span class="lineno"> 6964</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="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(str));</div><div class="line"><a name="l06965"></a><span class="lineno"> 6965</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l06966"></a><span class="lineno"> 6966</span>  <span class="comment">/* probably text string */</span></div><div class="line"><a name="l06967"></a><span class="lineno"> 6967</span>  <span class="keywordflow">return</span> Tcl_NewStringObj(s, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(str));</div><div class="line"><a name="l06968"></a><span class="lineno"> 6968</span>  }</div><div class="line"><a name="l06969"></a><span class="lineno"> 6969</span> <span class="preprocessor">#endif</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="preprocessor">#endif </span><span class="comment">/* ruby string <=> tcl object */</span><span class="preprocessor"></span></div><div class="line"><a name="l06972"></a><span class="lineno"> 6972</span> </div><div class="line"><a name="l06973"></a><span class="lineno"> 6973</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06974"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#add644d94ab52340375fda4f35eb8847b"> 6974</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#add644d94ab52340375fda4f35eb8847b">ip_get_result_string_obj</a>(interp)</div><div class="line"><a name="l06975"></a><span class="lineno"> 6975</span>  Tcl_Interp *interp;</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="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l06978"></a><span class="lineno"> 6978</span>  Tcl_Obj *retObj;</div><div class="line"><a name="l06979"></a><span class="lineno"> 6979</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> strval;</div><div class="line"><a name="l06980"></a><span class="lineno"> 6980</span> </div><div class="line"><a name="l06981"></a><span class="lineno"> 6981</span>  retObj = Tcl_GetObjResult(interp);</div><div class="line"><a name="l06982"></a><span class="lineno"> 6982</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(retObj);</div><div class="line"><a name="l06983"></a><span class="lineno"> 6983</span>  strval = get_str_from_obj(retObj);</div><div class="line"><a name="l06984"></a><span class="lineno"> 6984</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832">RbTk_OBJ_UNTRUST</a>(strval);</div><div class="line"><a name="l06985"></a><span class="lineno"> 6985</span>  Tcl_ResetResult(interp);</div><div class="line"><a name="l06986"></a><span class="lineno"> 6986</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(retObj);</div><div class="line"><a name="l06987"></a><span class="lineno"> 6987</span>  <span class="keywordflow">return</span> strval;</div><div class="line"><a name="l06988"></a><span class="lineno"> 6988</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l06989"></a><span class="lineno"> 6989</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(interp->result);</div><div class="line"><a name="l06990"></a><span class="lineno"> 6990</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l06991"></a><span class="lineno"> 6991</span> }</div><div class="line"><a name="l06992"></a><span class="lineno"> 6992</span> </div><div class="line"><a name="l06993"></a><span class="lineno"> 6993</span> <span class="comment">/* call Tcl/Tk functions on the eventloop thread */</span></div><div class="line"><a name="l06994"></a><span class="lineno"> 6994</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l06995"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a2e5f0962283cff538726b7aceb5599a9"> 6995</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2e5f0962283cff538726b7aceb5599a9">callq_safelevel_handler</a>(arg, callq)</div><div class="line"><a name="l06996"></a><span class="lineno"> 6996</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> arg;</div><div class="line"><a name="l06997"></a><span class="lineno"> 6997</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> callq;</div><div class="line"><a name="l06998"></a><span class="lineno"> 6998</span> {</div><div class="line"><a name="l06999"></a><span class="lineno"> 6999</span>  <span class="keyword">struct </span><a class="code" href="../../df/db5/structcall__queue.html">call_queue</a> *q;</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>  <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="l07002"></a><span class="lineno"> 7002</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="l07003"></a><span class="lineno"> 7003</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5e959fe5d6961caa34f52e0369506659">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="l07004"></a><span class="lineno"> 7004</span>  <span class="keywordflow">return</span>((q-><a class="code" href="../../df/db5/structcall__queue.html#a540c5867e3e06f497722e95e8b6d0d73">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="l07005"></a><span class="lineno"> 7005</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> <span class="keyword">static</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7c8f904c8246d8a1c9daaa67b887722e">call_queue_handler</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((Tcl_Event *, <span class="keywordtype">int</span>));</div><div class="line"><a name="l07008"></a><span class="lineno"> 7008</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l07009"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7c8f904c8246d8a1c9daaa67b887722e"> 7009</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7c8f904c8246d8a1c9daaa67b887722e">call_queue_handler</a>(evPtr, flags)</div><div class="line"><a name="l07010"></a><span class="lineno"> 7010</span>  Tcl_Event *evPtr;</div><div class="line"><a name="l07011"></a><span class="lineno"> 7011</span>  <span class="keywordtype">int</span> flags;</div><div class="line"><a name="l07012"></a><span class="lineno"> 7012</span> {</div><div class="line"><a name="l07013"></a><span class="lineno"> 7013</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="l07014"></a><span class="lineno"> 7014</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ret;</div><div class="line"><a name="l07015"></a><span class="lineno"> 7015</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> q_dat;</div><div class="line"><a name="l07016"></a><span class="lineno"> 7016</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../df/db5/structcall__queue.html#af9fb1a0fdd886cd9585db5f86c4de119">thread</a> = q-><a class="code" href="../../df/db5/structcall__queue.html#af9fb1a0fdd886cd9585db5f86c4de119">thread</a>;</div><div class="line"><a name="l07017"></a><span class="lineno"> 7017</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</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>  <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="l07020"></a><span class="lineno"> 7020</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="l07021"></a><span class="lineno"> 7021</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="l07022"></a><span class="lineno"> 7022</span> </div><div class="line"><a name="l07023"></a><span class="lineno"> 7023</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="l07024"></a><span class="lineno"> 7024</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="l07025"></a><span class="lineno"> 7025</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l07026"></a><span class="lineno"> 7026</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07027"></a><span class="lineno"> 7027</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="l07028"></a><span class="lineno"> 7028</span>  }</div><div class="line"><a name="l07029"></a><span class="lineno"> 7029</span> </div><div class="line"><a name="l07030"></a><span class="lineno"> 7030</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#a598f7c4cee4b8028312b375364ac55b4">rb_thread_alive_p</a>(thread))</div><div class="line"><a name="l07031"></a><span class="lineno"> 7031</span>  && ! <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(thread, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3146c23bbdd4311489cbe8cb76c7aebb">ID_stop_p</a>, 0))) {</div><div class="line"><a name="l07032"></a><span class="lineno"> 7032</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="l07033"></a><span class="lineno"> 7033</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l07034"></a><span class="lineno"> 7034</span>  }</div><div class="line"><a name="l07035"></a><span class="lineno"> 7035</span> </div><div class="line"><a name="l07036"></a><span class="lineno"> 7036</span>  <span class="comment">/* process it */</span></div><div class="line"><a name="l07037"></a><span class="lineno"> 7037</span>  *(q-><a class="code" href="../../df/db5/structcall__queue.html#a8a92b3683558cebdb46d573532c05132">done</a>) = 1;</div><div class="line"><a name="l07038"></a><span class="lineno"> 7038</span> </div><div class="line"><a name="l07039"></a><span class="lineno"> 7039</span>  <span class="comment">/* deleted ipterp ? */</span></div><div class="line"><a name="l07040"></a><span class="lineno"> 7040</span>  ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(q-><a class="code" href="../../df/db5/structcall__queue.html#a3972740fcad6029560d33a85baf220a3">interp</a>);</div><div class="line"><a name="l07041"></a><span class="lineno"> 7041</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l07042"></a><span class="lineno"> 7042</span>  <span class="comment">/* deleted IP --> ignore */</span></div><div class="line"><a name="l07043"></a><span class="lineno"> 7043</span>  <span class="keywordflow">return</span> 1;</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">/* incr internal handler mark */</span></div><div class="line"><a name="l07047"></a><span class="lineno"> 7047</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef1359e3bae2745050e68ee7c53d2c6e">rbtk_internal_eventloop_handler</a>++;</div><div class="line"><a name="l07048"></a><span class="lineno"> 7048</span> </div><div class="line"><a name="l07049"></a><span class="lineno"> 7049</span>  <span class="comment">/* check safe-level */</span></div><div class="line"><a name="l07050"></a><span class="lineno"> 7050</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="l07051"></a><span class="lineno"> 7051</span>  <span class="comment">/* q_dat = Data_Wrap_Struct(rb_cData,0,-1,q); */</span></div><div class="line"><a name="l07052"></a><span class="lineno"> 7052</span>  q_dat = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a27705a261a9addb9ed4cb65dd5a61b1c">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="l07053"></a><span class="lineno"> 7053</span>  ret = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(<a class="code" href="../../db/d2e/intern_8h.html#a8a4a55d3f2ed6d9ece055553e48755d5">rb_proc_new</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a2e5f0962283cff538726b7aceb5599a9">callq_safelevel_handler</a>, q_dat),</div><div class="line"><a name="l07054"></a><span class="lineno"> 7054</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a31a624c57e908d47f2aeb7209e7db3e7">ID_call</a>, 0);</div><div class="line"><a name="l07055"></a><span class="lineno"> 7055</span>  <a class="code" href="../../d8/d16/gc_8c.html#a53016811c87ff4c3ea839c9e85a9a9a4">rb_gc_force_recycle</a>(q_dat);</div><div class="line"><a name="l07056"></a><span class="lineno"> 7056</span>  q_dat = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l07057"></a><span class="lineno"> 7057</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07058"></a><span class="lineno"> 7058</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="l07059"></a><span class="lineno"> 7059</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="l07060"></a><span class="lineno"> 7060</span>  ret = (q-><a class="code" href="../../df/db5/structcall__queue.html#a540c5867e3e06f497722e95e8b6d0d73">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="l07061"></a><span class="lineno"> 7061</span>  }</div><div class="line"><a name="l07062"></a><span class="lineno"> 7062</span> </div><div class="line"><a name="l07063"></a><span class="lineno"> 7063</span>  <span class="comment">/* set result */</span></div><div class="line"><a name="l07064"></a><span class="lineno"> 7064</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4e8fe9b7653d67be2401a8b85049e525">RARRAY_PTR</a>(q-><a class="code" href="../../df/db5/structcall__queue.html#a5c7e8c167c5d49678aa368f966191b2e">result</a>)[0] = ret;</div><div class="line"><a name="l07065"></a><span class="lineno"> 7065</span>  ret = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l07066"></a><span class="lineno"> 7066</span> </div><div class="line"><a name="l07067"></a><span class="lineno"> 7067</span>  <span class="comment">/* decr internal handler mark */</span></div><div class="line"><a name="l07068"></a><span class="lineno"> 7068</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef1359e3bae2745050e68ee7c53d2c6e">rbtk_internal_eventloop_handler</a>--;</div><div class="line"><a name="l07069"></a><span class="lineno"> 7069</span> </div><div class="line"><a name="l07070"></a><span class="lineno"> 7070</span>  <span class="comment">/* complete */</span></div><div class="line"><a name="l07071"></a><span class="lineno"> 7071</span>  *(q-><a class="code" href="../../df/db5/structcall__queue.html#a8a92b3683558cebdb46d573532c05132">done</a>) = -1;</div><div class="line"><a name="l07072"></a><span class="lineno"> 7072</span> </div><div class="line"><a name="l07073"></a><span class="lineno"> 7073</span>  <span class="comment">/* unlink ruby objects */</span></div><div class="line"><a name="l07074"></a><span class="lineno"> 7074</span>  q-><a class="code" href="../../df/db5/structcall__queue.html#a097b73e5bc4374d83e3103bb3fb4b40d">argv</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l07075"></a><span class="lineno"> 7075</span>  q-><a class="code" href="../../df/db5/structcall__queue.html#a3972740fcad6029560d33a85baf220a3">interp</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l07076"></a><span class="lineno"> 7076</span>  q-><a class="code" href="../../df/db5/structcall__queue.html#a5c7e8c167c5d49678aa368f966191b2e">result</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l07077"></a><span class="lineno"> 7077</span>  q-><a class="code" href="../../df/db5/structcall__queue.html#af9fb1a0fdd886cd9585db5f86c4de119">thread</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l07078"></a><span class="lineno"> 7078</span> </div><div class="line"><a name="l07079"></a><span class="lineno"> 7079</span>  <span class="comment">/* back to caller */</span></div><div class="line"><a name="l07080"></a><span class="lineno"> 7080</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#a598f7c4cee4b8028312b375364ac55b4">rb_thread_alive_p</a>(thread))) {</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">"back to caller (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> <span class="preprocessor">#if CONTROL_BY_STATUS_OF_RB_THREAD_WAITING_FOR_VALUE</span></div><div class="line"><a name="l07084"></a><span class="lineno"> 7084</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a36aff997f6e550b516224b18bfe5bd25">have_rb_thread_waiting_for_value</a> = 1;</div><div class="line"><a name="l07085"></a><span class="lineno"> 7085</span>  <a class="code" href="../../db/d2e/intern_8h.html#a5ec55864056da2a01e4b87fde4c807b9">rb_thread_wakeup</a>(thread);</div><div class="line"><a name="l07086"></a><span class="lineno"> 7086</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l07087"></a><span class="lineno"> 7087</span>  <a class="code" href="../../db/d2e/intern_8h.html#a466749a3498fa8fbb48f7fc783a7cf34">rb_thread_run</a>(thread);</div><div class="line"><a name="l07088"></a><span class="lineno"> 7088</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07089"></a><span class="lineno"> 7089</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="l07090"></a><span class="lineno"> 7090</span> <span class="preprocessor">#if DO_THREAD_SCHEDULE_AT_CALLBACK_DONE</span></div><div class="line"><a name="l07091"></a><span class="lineno"> 7091</span>  <a class="code" href="../../db/d2e/intern_8h.html#ad1fe299d3b5a492259ab4e733832868c">rb_thread_schedule</a>();</div><div class="line"><a name="l07092"></a><span class="lineno"> 7092</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07093"></a><span class="lineno"> 7093</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07094"></a><span class="lineno"> 7094</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="l07095"></a><span class="lineno"> 7095</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="l07096"></a><span class="lineno"> 7096</span>  }</div><div class="line"><a name="l07097"></a><span class="lineno"> 7097</span> </div><div class="line"><a name="l07098"></a><span class="lineno"> 7098</span>  <span class="comment">/* end of handler : remove it */</span></div><div class="line"><a name="l07099"></a><span class="lineno"> 7099</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l07100"></a><span class="lineno"> 7100</span> }</div><div class="line"><a name="l07101"></a><span class="lineno"> 7101</span> </div><div class="line"><a name="l07102"></a><span class="lineno"> 7102</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l07103"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a1cec8ebc4c54249136da6b6df38fb723"> 7103</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1cec8ebc4c54249136da6b6df38fb723">tk_funcall</a>(<a class="code" href="../../dc/dd1/ossl__ssl_8c.html#a86771351f4ef469ab9c94739a64fd7ea">func</a>, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, obj)</div><div class="line"><a name="l07104"></a><span class="lineno"> 7104</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> (*<a class="code" href="../../dc/dd1/ossl__ssl_8c.html#a86771351f4ef469ab9c94739a64fd7ea">func</a>)();</div><div class="line"><a name="l07105"></a><span class="lineno"> 7105</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l07106"></a><span class="lineno"> 7106</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l07107"></a><span class="lineno"> 7107</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> obj;</div><div class="line"><a name="l07108"></a><span class="lineno"> 7108</span> {</div><div class="line"><a name="l07109"></a><span class="lineno"> 7109</span>  <span class="keyword">struct </span><a class="code" href="../../df/db5/structcall__queue.html">call_queue</a> *callq;</div><div class="line"><a name="l07110"></a><span class="lineno"> 7110</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div><div class="line"><a name="l07111"></a><span class="lineno"> 7111</span>  <span class="keywordtype">int</span> *alloc_done;</div><div class="line"><a name="l07112"></a><span class="lineno"> 7112</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l07113"></a><span class="lineno"> 7113</span>  <span class="keywordtype">int</span> is_tk_evloop_thread;</div><div class="line"><a name="l07114"></a><span class="lineno"> 7114</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> current = <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>();</div><div class="line"><a name="l07115"></a><span class="lineno"> 7115</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ip_obj = obj;</div><div class="line"><a name="l07116"></a><span class="lineno"> 7116</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>;</div><div class="line"><a name="l07117"></a><span class="lineno"> 7117</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ret;</div><div class="line"><a name="l07118"></a><span class="lineno"> 7118</span>  <span class="keyword">struct </span><a class="code" href="../../d1/d1b/structtimeval.html">timeval</a> <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>;</div><div class="line"><a name="l07119"></a><span class="lineno"> 7119</span> </div><div class="line"><a name="l07120"></a><span class="lineno"> 7120</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, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9da382a32faf00a1e9fa10aa11c5fb1b">tcltkip_class</a>)) {</div><div class="line"><a name="l07121"></a><span class="lineno"> 7121</span>  ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(ip_obj);</div><div class="line"><a name="l07122"></a><span class="lineno"> 7122</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l07123"></a><span class="lineno"> 7123</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07124"></a><span class="lineno"> 7124</span>  ptr = (<span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l07125"></a><span class="lineno"> 7125</span>  }</div><div class="line"><a name="l07126"></a><span class="lineno"> 7126</span> </div><div class="line"><a name="l07127"></a><span class="lineno"> 7127</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l07128"></a><span class="lineno"> 7128</span>  <span class="keywordflow">if</span> (ptr) {</div><div class="line"><a name="l07129"></a><span class="lineno"> 7129</span>  <span class="comment">/* on Tcl interpreter */</span></div><div class="line"><a name="l07130"></a><span class="lineno"> 7130</span>  is_tk_evloop_thread = (ptr->tk_thread_id == (Tcl_ThreadId) 0</div><div class="line"><a name="l07131"></a><span class="lineno"> 7131</span>  || ptr->tk_thread_id == Tcl_GetCurrentThread());</div><div class="line"><a name="l07132"></a><span class="lineno"> 7132</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07133"></a><span class="lineno"> 7133</span>  <span class="comment">/* on Tcl/Tk library */</span></div><div class="line"><a name="l07134"></a><span class="lineno"> 7134</span>  is_tk_evloop_thread = (tk_eventloop_thread_id == (Tcl_ThreadId) 0</div><div class="line"><a name="l07135"></a><span class="lineno"> 7135</span>  || tk_eventloop_thread_id == Tcl_GetCurrentThread());</div><div class="line"><a name="l07136"></a><span class="lineno"> 7136</span>  }</div><div class="line"><a name="l07137"></a><span class="lineno"> 7137</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l07138"></a><span class="lineno"> 7138</span>  is_tk_evloop_thread = 1;</div><div class="line"><a name="l07139"></a><span class="lineno"> 7139</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07140"></a><span class="lineno"> 7140</span> </div><div class="line"><a name="l07141"></a><span class="lineno"> 7141</span>  <span class="keywordflow">if</span> (is_tk_evloop_thread</div><div class="line"><a name="l07142"></a><span class="lineno"> 7142</span>  && (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>) || current == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)</div><div class="line"><a name="l07143"></a><span class="lineno"> 7143</span>  ) {</div><div class="line"><a name="l07144"></a><span class="lineno"> 7144</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#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)) {</div><div class="line"><a name="l07145"></a><span class="lineno"> 7145</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="l07146"></a><span class="lineno"> 7146</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07147"></a><span class="lineno"> 7147</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="l07148"></a><span class="lineno"> 7148</span>  }</div><div class="line"><a name="l07149"></a><span class="lineno"> 7149</span>  <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a> = (<a class="code" href="../../dc/dd1/ossl__ssl_8c.html#a86771351f4ef469ab9c94739a64fd7ea">func</a>)(ip_obj, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l07150"></a><span class="lineno"> 7150</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="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>, <a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>)) {</div><div class="line"><a name="l07151"></a><span class="lineno"> 7151</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>);</div><div class="line"><a name="l07152"></a><span class="lineno"> 7152</span>  }</div><div class="line"><a name="l07153"></a><span class="lineno"> 7153</span>  <span class="keywordflow">return</span> <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>;</div><div class="line"><a name="l07154"></a><span class="lineno"> 7154</span>  }</div><div class="line"><a name="l07155"></a><span class="lineno"> 7155</span> </div><div class="line"><a name="l07156"></a><span class="lineno"> 7156</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="l07157"></a><span class="lineno"> 7157</span> </div><div class="line"><a name="l07158"></a><span class="lineno"> 7158</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l07159"></a><span class="lineno"> 7159</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l07160"></a><span class="lineno"> 7160</span> </div><div class="line"><a name="l07161"></a><span class="lineno"> 7161</span>  <span class="comment">/* allocate memory (argv cross over thread : must be in heap) */</span></div><div class="line"><a name="l07162"></a><span class="lineno"> 7162</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>) {</div><div class="line"><a name="l07163"></a><span class="lineno"> 7163</span>  <span class="comment">/* VALUE *temp = ALLOC_N(VALUE, argc); */</span></div><div class="line"><a name="l07164"></a><span class="lineno"> 7164</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *temp = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>);</div><div class="line"><a name="l07165"></a><span class="lineno"> 7165</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="l07166"></a><span class="lineno"> 7166</span>  Tcl_Preserve((ClientData)temp); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l07167"></a><span class="lineno"> 7167</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07168"></a><span class="lineno"> 7168</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a04ab67335215e8362c63ed27ae2d1c40">MEMCPY</a>(temp, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>);</div><div class="line"><a name="l07169"></a><span class="lineno"> 7169</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a> = temp;</div><div class="line"><a name="l07170"></a><span class="lineno"> 7170</span>  }</div><div class="line"><a name="l07171"></a><span class="lineno"> 7171</span> </div><div class="line"><a name="l07172"></a><span class="lineno"> 7172</span>  <span class="comment">/* allocate memory (keep result) */</span></div><div class="line"><a name="l07173"></a><span class="lineno"> 7173</span>  <span class="comment">/* alloc_done = (int*)ALLOC(int); */</span></div><div class="line"><a name="l07174"></a><span class="lineno"> 7174</span>  alloc_done = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(<span class="keywordtype">int</span>, 1);</div><div class="line"><a name="l07175"></a><span class="lineno"> 7175</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="l07176"></a><span class="lineno"> 7176</span>  Tcl_Preserve((ClientData)alloc_done); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l07177"></a><span class="lineno"> 7177</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07178"></a><span class="lineno"> 7178</span>  *alloc_done = 0;</div><div class="line"><a name="l07179"></a><span class="lineno"> 7179</span> </div><div class="line"><a name="l07180"></a><span class="lineno"> 7180</span>  <span class="comment">/* allocate memory (freed by Tcl_ServiceEvent) */</span></div><div class="line"><a name="l07181"></a><span class="lineno"> 7181</span>  <span class="comment">/* callq = (struct call_queue *)Tcl_Alloc(sizeof(struct call_queue)); */</span></div><div class="line"><a name="l07182"></a><span class="lineno"> 7182</span>  callq = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(<span class="keyword">struct</span> <a class="code" href="../../df/db5/structcall__queue.html">call_queue</a>, 1);</div><div class="line"><a name="l07183"></a><span class="lineno"> 7183</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="l07184"></a><span class="lineno"> 7184</span>  Tcl_Preserve(callq);</div><div class="line"><a name="l07185"></a><span class="lineno"> 7185</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07186"></a><span class="lineno"> 7186</span> </div><div class="line"><a name="l07187"></a><span class="lineno"> 7187</span>  <span class="comment">/* allocate result obj */</span></div><div class="line"><a name="l07188"></a><span class="lineno"> 7188</span>  <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a> = <a class="code" href="../../db/d2e/intern_8h.html#a8f3988bb25848bb4e4519a29876b2d55">rb_ary_new3</a>(1, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>);</div><div class="line"><a name="l07189"></a><span class="lineno"> 7189</span> </div><div class="line"><a name="l07190"></a><span class="lineno"> 7190</span>  <span class="comment">/* construct event data */</span></div><div class="line"><a name="l07191"></a><span class="lineno"> 7191</span>  callq-><a class="code" href="../../df/db5/structcall__queue.html#a8a92b3683558cebdb46d573532c05132">done</a> = alloc_done;</div><div class="line"><a name="l07192"></a><span class="lineno"> 7192</span>  callq-><a class="code" href="../../df/db5/structcall__queue.html#a540c5867e3e06f497722e95e8b6d0d73">func</a> = <a class="code" href="../../dc/dd1/ossl__ssl_8c.html#a86771351f4ef469ab9c94739a64fd7ea">func</a>;</div><div class="line"><a name="l07193"></a><span class="lineno"> 7193</span>  callq-><a class="code" href="../../df/db5/structcall__queue.html#a91fe68bac1f77162fbe356d3b7812b9a">argc</a> = <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l07194"></a><span class="lineno"> 7194</span>  callq-><a class="code" href="../../df/db5/structcall__queue.html#a097b73e5bc4374d83e3103bb3fb4b40d">argv</a> = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l07195"></a><span class="lineno"> 7195</span>  callq-><a class="code" href="../../df/db5/structcall__queue.html#a3972740fcad6029560d33a85baf220a3">interp</a> = ip_obj;</div><div class="line"><a name="l07196"></a><span class="lineno"> 7196</span>  callq-><a class="code" href="../../df/db5/structcall__queue.html#a5c7e8c167c5d49678aa368f966191b2e">result</a> = <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>;</div><div class="line"><a name="l07197"></a><span class="lineno"> 7197</span>  callq-><a class="code" href="../../df/db5/structcall__queue.html#af9fb1a0fdd886cd9585db5f86c4de119">thread</a> = current;</div><div class="line"><a name="l07198"></a><span class="lineno"> 7198</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="l07199"></a><span class="lineno"> 7199</span>  callq-><a class="code" href="../../df/db5/structcall__queue.html#a45df10c3b9ffd2cf0572157be3bcbec4">ev</a>.proc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7c8f904c8246d8a1c9daaa67b887722e">call_queue_handler</a>;</div><div class="line"><a name="l07200"></a><span class="lineno"> 7200</span> </div><div class="line"><a name="l07201"></a><span class="lineno"> 7201</span>  <span class="comment">/* add the handler to Tcl event queue */</span></div><div class="line"><a name="l07202"></a><span class="lineno"> 7202</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="l07203"></a><span class="lineno"> 7203</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l07204"></a><span class="lineno"> 7204</span>  <span class="keywordflow">if</span> (ptr && ptr->tk_thread_id) {</div><div class="line"><a name="l07205"></a><span class="lineno"> 7205</span>  <span class="comment">/* Tcl_ThreadQueueEvent(ptr->tk_thread_id,</span></div><div class="line"><a name="l07206"></a><span class="lineno"> 7206</span> <span class="comment"> &(callq->ev), TCL_QUEUE_HEAD); */</span></div><div class="line"><a name="l07207"></a><span class="lineno"> 7207</span>  Tcl_ThreadQueueEvent(ptr->tk_thread_id,</div><div class="line"><a name="l07208"></a><span class="lineno"> 7208</span>  (Tcl_Event*)callq, TCL_QUEUE_HEAD);</div><div class="line"><a name="l07209"></a><span class="lineno"> 7209</span>  Tcl_ThreadAlert(ptr->tk_thread_id);</div><div class="line"><a name="l07210"></a><span class="lineno"> 7210</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (tk_eventloop_thread_id) {</div><div class="line"><a name="l07211"></a><span class="lineno"> 7211</span>  <span class="comment">/* Tcl_ThreadQueueEvent(tk_eventloop_thread_id,</span></div><div class="line"><a name="l07212"></a><span class="lineno"> 7212</span> <span class="comment"> &(callq->ev), TCL_QUEUE_HEAD); */</span></div><div class="line"><a name="l07213"></a><span class="lineno"> 7213</span>  Tcl_ThreadQueueEvent(tk_eventloop_thread_id,</div><div class="line"><a name="l07214"></a><span class="lineno"> 7214</span>  (Tcl_Event*)callq, TCL_QUEUE_HEAD);</div><div class="line"><a name="l07215"></a><span class="lineno"> 7215</span>  Tcl_ThreadAlert(tk_eventloop_thread_id);</div><div class="line"><a name="l07216"></a><span class="lineno"> 7216</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07217"></a><span class="lineno"> 7217</span>  <span class="comment">/* Tcl_QueueEvent(&(callq->ev), TCL_QUEUE_HEAD); */</span></div><div class="line"><a name="l07218"></a><span class="lineno"> 7218</span>  Tcl_QueueEvent((Tcl_Event*)callq, TCL_QUEUE_HEAD);</div><div class="line"><a name="l07219"></a><span class="lineno"> 7219</span>  }</div><div class="line"><a name="l07220"></a><span class="lineno"> 7220</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l07221"></a><span class="lineno"> 7221</span>  <span class="comment">/* Tcl_QueueEvent(&(callq->ev), TCL_QUEUE_HEAD); */</span></div><div class="line"><a name="l07222"></a><span class="lineno"> 7222</span>  Tcl_QueueEvent((Tcl_Event*)callq, TCL_QUEUE_HEAD);</div><div class="line"><a name="l07223"></a><span class="lineno"> 7223</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07224"></a><span class="lineno"> 7224</span> </div><div class="line"><a name="l07225"></a><span class="lineno"> 7225</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l07226"></a><span class="lineno"> 7226</span> </div><div class="line"><a name="l07227"></a><span class="lineno"> 7227</span>  <span class="comment">/* wait for the handler to be processed */</span></div><div class="line"><a name="l07228"></a><span class="lineno"> 7228</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_sec = 0;</div><div class="line"><a name="l07229"></a><span class="lineno"> 7229</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_usec = (long)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd2530678e6262a587dd99dedeb053b">EVENT_HANDLER_TIMEOUT</a>)*1000.0);</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">"callq wait for handler (current thread:%lx)"</span>, current);</div><div class="line"><a name="l07232"></a><span class="lineno"> 7232</span>  <span class="keywordflow">while</span>(*alloc_done >= 0) {</div><div class="line"><a name="l07233"></a><span class="lineno"> 7233</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="l07234"></a><span class="lineno"> 7234</span>  <span class="comment">/* rb_thread_stop(); */</span></div><div class="line"><a name="l07235"></a><span class="lineno"> 7235</span>  <span class="comment">/* rb_thread_sleep_forever(); */</span></div><div class="line"><a name="l07236"></a><span class="lineno"> 7236</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0187a1eb4a4d01a4c9ef6b36b51faa6f">rb_thread_wait_for</a>(<a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>);</div><div class="line"><a name="l07237"></a><span class="lineno"> 7237</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="l07238"></a><span class="lineno"> 7238</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"*** (eventloop thread:%lx)"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>);</div><div class="line"><a name="l07239"></a><span class="lineno"> 7239</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#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)) {</div><div class="line"><a name="l07240"></a><span class="lineno"> 7240</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="l07241"></a><span class="lineno"> 7241</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l07242"></a><span class="lineno"> 7242</span>  }</div><div class="line"><a name="l07243"></a><span class="lineno"> 7243</span>  }</div><div class="line"><a name="l07244"></a><span class="lineno"> 7244</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="l07245"></a><span class="lineno"> 7245</span> </div><div class="line"><a name="l07246"></a><span class="lineno"> 7246</span>  <span class="comment">/* get result & free allocated memory */</span></div><div class="line"><a name="l07247"></a><span class="lineno"> 7247</span>  ret = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4e8fe9b7653d67be2401a8b85049e525">RARRAY_PTR</a>(<a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>)[0];</div><div class="line"><a name="l07248"></a><span class="lineno"> 7248</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l07249"></a><span class="lineno"> 7249</span>  Tcl_EventuallyFree((ClientData)alloc_done, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l07250"></a><span class="lineno"> 7250</span> <span class="preprocessor">#else</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_Preserve/Release */</span><span class="preprocessor"></span></div><div class="line"><a name="l07252"></a><span class="lineno"> 7252</span>  Tcl_Release((ClientData)alloc_done); <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="comment">/* free(alloc_done); */</span></div><div class="line"><a name="l07255"></a><span class="lineno"> 7255</span>  ckfree((<span class="keywordtype">char</span>*)alloc_done);</div><div class="line"><a name="l07256"></a><span class="lineno"> 7256</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07257"></a><span class="lineno"> 7257</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07258"></a><span class="lineno"> 7258</span>  <span class="comment">/* if (argv) free(argv); */</span></div><div class="line"><a name="l07259"></a><span class="lineno"> 7259</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>) {</div><div class="line"><a name="l07260"></a><span class="lineno"> 7260</span>  <span class="comment">/* if argv != NULL, alloc as 'temp' */</span></div><div class="line"><a name="l07261"></a><span class="lineno"> 7261</span>  <span class="keywordtype">int</span> i;</div><div class="line"><a name="l07262"></a><span class="lineno"> 7262</span>  <span class="keywordflow">for</span>(i = 0; i < <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>; i++) { <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[i] = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>; }</div><div class="line"><a name="l07263"></a><span class="lineno"> 7263</span> </div><div class="line"><a name="l07264"></a><span class="lineno"> 7264</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l07265"></a><span class="lineno"> 7265</span>  Tcl_EventuallyFree((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l07266"></a><span class="lineno"> 7266</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l07267"></a><span class="lineno"> 7267</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="l07268"></a><span class="lineno"> 7268</span>  Tcl_Release((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l07269"></a><span class="lineno"> 7269</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l07270"></a><span class="lineno"> 7270</span>  ckfree((<span class="keywordtype">char</span>*)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l07271"></a><span class="lineno"> 7271</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07272"></a><span class="lineno"> 7272</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07273"></a><span class="lineno"> 7273</span>  }</div><div class="line"><a name="l07274"></a><span class="lineno"> 7274</span> </div><div class="line"><a name="l07275"></a><span class="lineno"> 7275</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="l07276"></a><span class="lineno"> 7276</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="l07277"></a><span class="lineno"> 7277</span>  Tcl_Release(callq);</div><div class="line"><a name="l07278"></a><span class="lineno"> 7278</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l07279"></a><span class="lineno"> 7279</span>  ckfree((<span class="keywordtype">char</span>*)callq);</div><div class="line"><a name="l07280"></a><span class="lineno"> 7280</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07281"></a><span class="lineno"> 7281</span> <span class="preprocessor">#endif</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">/* exception? */</span></div><div class="line"><a name="l07284"></a><span class="lineno"> 7284</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="l07285"></a><span class="lineno"> 7285</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="l07286"></a><span class="lineno"> 7286</span>  <span class="comment">/* rb_exc_raise(ret); */</span></div><div class="line"><a name="l07287"></a><span class="lineno"> 7287</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../db/d2e/intern_8h.html#a9853d1348e5a26b4802117aa465f65bc">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="l07288"></a><span class="lineno"> 7288</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(ret, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2876182790d4d4deb29d00b4048d7565">ID_to_s</a>, 0, 0)));</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> </div><div class="line"><a name="l07291"></a><span class="lineno"> 7291</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="l07292"></a><span class="lineno"> 7292</span>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l07293"></a><span class="lineno"> 7293</span> }</div><div class="line"><a name="l07294"></a><span class="lineno"> 7294</span> </div><div class="line"><a name="l07295"></a><span class="lineno"> 7295</span> </div><div class="line"><a name="l07296"></a><span class="lineno"> 7296</span> <span class="comment">/* eval string in tcl by Tcl_Eval() */</span></div><div class="line"><a name="l07297"></a><span class="lineno"> 7297</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l07298"></a><span class="lineno"> 7298</span> <span class="keyword">struct </span>call_eval_info {</div><div class="line"><a name="l07299"></a><span class="lineno"> 7299</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div><div class="line"><a name="l07300"></a><span class="lineno"> 7300</span>  Tcl_Obj *cmd;</div><div class="line"><a name="l07301"></a><span class="lineno"> 7301</span> };</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="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l07304"></a><span class="lineno"> 7304</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div><div class="line"><a name="l07305"></a><span class="lineno"> 7305</span> call_tcl_eval(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> arg)</div><div class="line"><a name="l07306"></a><span class="lineno"> 7306</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l07307"></a><span class="lineno"> 7307</span> call_tcl_eval(arg)</div><div class="line"><a name="l07308"></a><span class="lineno"> 7308</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> arg;</div><div class="line"><a name="l07309"></a><span class="lineno"> 7309</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07310"></a><span class="lineno"> 7310</span> {</div><div class="line"><a name="l07311"></a><span class="lineno"> 7311</span>  <span class="keyword">struct </span>call_eval_info *<a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a> = (<span class="keyword">struct </span>call_eval_info *)arg;</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>  Tcl_AllowExceptions(<a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->ptr->ip);</div><div class="line"><a name="l07314"></a><span class="lineno"> 7314</span>  <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->ptr->return_value = Tcl_EvalObj(<a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->ptr->ip, <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->cmd);</div><div class="line"><a name="l07315"></a><span class="lineno"> 7315</span> </div><div class="line"><a name="l07316"></a><span class="lineno"> 7316</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l07317"></a><span class="lineno"> 7317</span> }</div><div class="line"><a name="l07318"></a><span class="lineno"> 7318</span> <span class="preprocessor">#endif</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> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l07321"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af132ec97e540b14453af8ac96fec0fb6"> 7321</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af132ec97e540b14453af8ac96fec0fb6">ip_eval_real</a>(<span class="keyword">self</span>, cmd_str, cmd_len)</div><div class="line"><a name="l07322"></a><span class="lineno"> 7322</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l07323"></a><span class="lineno"> 7323</span>  <span class="keywordtype">char</span> *cmd_str;</div><div class="line"><a name="l07324"></a><span class="lineno"> 7324</span>  <span class="keywordtype">int</span> cmd_len;</div><div class="line"><a name="l07325"></a><span class="lineno"> 7325</span> {</div><div class="line"><a name="l07326"></a><span class="lineno"> 7326</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ret;</div><div class="line"><a name="l07327"></a><span class="lineno"> 7327</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l07328"></a><span class="lineno"> 7328</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l07329"></a><span class="lineno"> 7329</span> </div><div class="line"><a name="l07330"></a><span class="lineno"> 7330</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l07331"></a><span class="lineno"> 7331</span>  <span class="comment">/* call Tcl_EvalObj() */</span></div><div class="line"><a name="l07332"></a><span class="lineno"> 7332</span>  {</div><div class="line"><a name="l07333"></a><span class="lineno"> 7333</span>  Tcl_Obj *cmd;</div><div class="line"><a name="l07334"></a><span class="lineno"> 7334</span> </div><div class="line"><a name="l07335"></a><span class="lineno"> 7335</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l07336"></a><span class="lineno"> 7336</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</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>  cmd = Tcl_NewStringObj(cmd_str, cmd_len);</div><div class="line"><a name="l07339"></a><span class="lineno"> 7339</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(cmd);</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="comment">/* ip is deleted? */</span></div><div class="line"><a name="l07342"></a><span class="lineno"> 7342</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l07343"></a><span class="lineno"> 7343</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(cmd);</div><div class="line"><a name="l07344"></a><span class="lineno"> 7344</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l07345"></a><span class="lineno"> 7345</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = TCL_OK;</div><div class="line"><a name="l07346"></a><span class="lineno"> 7346</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l07347"></a><span class="lineno"> 7347</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07348"></a><span class="lineno"> 7348</span>  <span class="keywordtype">int</span> status;</div><div class="line"><a name="l07349"></a><span class="lineno"> 7349</span>  <span class="keyword">struct </span>call_eval_info <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>;</div><div class="line"><a name="l07350"></a><span class="lineno"> 7350</span> </div><div class="line"><a name="l07351"></a><span class="lineno"> 7351</span>  <span class="comment">/* Tcl_Preserve(ptr->ip); */</span></div><div class="line"><a name="l07352"></a><span class="lineno"> 7352</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a55dbead056a35cc4c3bcdaefe23e6252">rbtk_preserve_ip</a>(ptr);</div><div class="line"><a name="l07353"></a><span class="lineno"> 7353</span> </div><div class="line"><a name="l07354"></a><span class="lineno"> 7354</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l07355"></a><span class="lineno"> 7355</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="l07356"></a><span class="lineno"> 7356</span>  <span class="comment">/* ptr->return_value = Tcl_GlobalEvalObj(ptr->ip, cmd); */</span></div><div class="line"><a name="l07357"></a><span class="lineno"> 7357</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l07358"></a><span class="lineno"> 7358</span>  <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>.ptr = ptr;</div><div class="line"><a name="l07359"></a><span class="lineno"> 7359</span>  <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>.cmd = cmd;</div><div class="line"><a name="l07360"></a><span class="lineno"> 7360</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#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)&<a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>, &status);</div><div class="line"><a name="l07361"></a><span class="lineno"> 7361</span>  <span class="keywordflow">switch</span>(status) {</div><div class="line"><a name="l07362"></a><span class="lineno"> 7362</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="l07363"></a><span class="lineno"> 7363</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="l07364"></a><span class="lineno"> 7364</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>,</div><div class="line"><a name="l07365"></a><span class="lineno"> 7365</span>  <span class="stringliteral">"unknown exception"</span>);</div><div class="line"><a name="l07366"></a><span class="lineno"> 7366</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07367"></a><span class="lineno"> 7367</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div><div class="line"><a name="l07368"></a><span class="lineno"> 7368</span>  }</div><div class="line"><a name="l07369"></a><span class="lineno"> 7369</span>  <span class="keywordflow">break</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>  <span class="keywordflow">case</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7490e601d6a9d97a79d4d895ad73c93a">TAG_FATAL</a>:</div><div class="line"><a name="l07372"></a><span class="lineno"> 7372</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="l07373"></a><span class="lineno"> 7373</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">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="l07374"></a><span class="lineno"> 7374</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07375"></a><span class="lineno"> 7375</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</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>  }</div><div class="line"><a name="l07378"></a><span class="lineno"> 7378</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07379"></a><span class="lineno"> 7379</span>  }</div><div class="line"><a name="l07380"></a><span class="lineno"> 7380</span> </div><div class="line"><a name="l07381"></a><span class="lineno"> 7381</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(cmd);</div><div class="line"><a name="l07382"></a><span class="lineno"> 7382</span> </div><div class="line"><a name="l07383"></a><span class="lineno"> 7383</span>  }</div><div class="line"><a name="l07384"></a><span class="lineno"> 7384</span> </div><div class="line"><a name="l07385"></a><span class="lineno"> 7385</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a93291afcb7ee52da109bc8967a61d81f">pending_exception_check1</a>(thr_crit_bup, ptr)) {</div><div class="line"><a name="l07386"></a><span class="lineno"> 7386</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(ptr);</div><div class="line"><a name="l07387"></a><span class="lineno"> 7387</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>;</div><div class="line"><a name="l07388"></a><span class="lineno"> 7388</span>  }</div><div class="line"><a name="l07389"></a><span class="lineno"> 7389</span> </div><div class="line"><a name="l07390"></a><span class="lineno"> 7390</span>  <span class="comment">/* if (ptr->return_value == TCL_ERROR) { */</span></div><div class="line"><a name="l07391"></a><span class="lineno"> 7391</span>  <span class="keywordflow">if</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> != TCL_OK) {</div><div class="line"><a name="l07392"></a><span class="lineno"> 7392</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8b4f77514e0422a4f7597d3ba5728ea">event_loop_abort_on_exc</a> > 0 && !Tcl_InterpDeleted(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>)) {</div><div class="line"><a name="l07393"></a><span class="lineno"> 7393</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> exc;</div><div class="line"><a name="l07394"></a><span class="lineno"> 7394</span> </div><div class="line"><a name="l07395"></a><span class="lineno"> 7395</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="l07396"></a><span class="lineno"> 7396</span>  <span class="keywordflow">case</span> TCL_RETURN:</div><div class="line"><a name="l07397"></a><span class="lineno"> 7397</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(<span class="keyword">self</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7a2cabfa69c181ac17f416e6c78f4fd9">eTkCallbackReturn</a>,</div><div class="line"><a name="l07398"></a><span class="lineno"> 7398</span>  <span class="stringliteral">"ip_eval_real receives TCL_RETURN"</span>);</div><div class="line"><a name="l07399"></a><span class="lineno"> 7399</span>  <span class="keywordflow">case</span> TCL_BREAK:</div><div class="line"><a name="l07400"></a><span class="lineno"> 7400</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(<span class="keyword">self</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7fefdc0a0bdb479dcd15d610533497d6">eTkCallbackBreak</a>,</div><div class="line"><a name="l07401"></a><span class="lineno"> 7401</span>  <span class="stringliteral">"ip_eval_real receives TCL_BREAK"</span>);</div><div class="line"><a name="l07402"></a><span class="lineno"> 7402</span>  <span class="keywordflow">case</span> TCL_CONTINUE:</div><div class="line"><a name="l07403"></a><span class="lineno"> 7403</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(<span class="keyword">self</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5ae51f46018b1ae0a423aca2b89bf7ab">eTkCallbackContinue</a>,</div><div class="line"><a name="l07404"></a><span class="lineno"> 7404</span>  <span class="stringliteral">"ip_eval_real receives TCL_CONTINUE"</span>);</div><div class="line"><a name="l07405"></a><span class="lineno"> 7405</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l07406"></a><span class="lineno"> 7406</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(<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="l07407"></a><span class="lineno"> 7407</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="l07408"></a><span class="lineno"> 7408</span>  }</div><div class="line"><a name="l07409"></a><span class="lineno"> 7409</span> </div><div class="line"><a name="l07410"></a><span class="lineno"> 7410</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(ptr);</div><div class="line"><a name="l07411"></a><span class="lineno"> 7411</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l07412"></a><span class="lineno"> 7412</span>  <span class="keywordflow">return</span> exc;</div><div class="line"><a name="l07413"></a><span class="lineno"> 7413</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07414"></a><span class="lineno"> 7414</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8b4f77514e0422a4f7597d3ba5728ea">event_loop_abort_on_exc</a> < 0) {</div><div class="line"><a name="l07415"></a><span class="lineno"> 7415</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="l07416"></a><span class="lineno"> 7416</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07417"></a><span class="lineno"> 7417</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="l07418"></a><span class="lineno"> 7418</span>  }</div><div class="line"><a name="l07419"></a><span class="lineno"> 7419</span>  Tcl_ResetResult(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l07420"></a><span class="lineno"> 7420</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(ptr);</div><div class="line"><a name="l07421"></a><span class="lineno"> 7421</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l07422"></a><span class="lineno"> 7422</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l07423"></a><span class="lineno"> 7423</span>  }</div><div class="line"><a name="l07424"></a><span class="lineno"> 7424</span>  }</div><div class="line"><a name="l07425"></a><span class="lineno"> 7425</span> </div><div class="line"><a name="l07426"></a><span class="lineno"> 7426</span>  <span class="comment">/* pass back the result (as string) */</span></div><div class="line"><a name="l07427"></a><span class="lineno"> 7427</span>  ret = <a class="code" href="../../d5/d9d/tcltklib_8c.html#add644d94ab52340375fda4f35eb8847b">ip_get_result_string_obj</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l07428"></a><span class="lineno"> 7428</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(ptr);</div><div class="line"><a name="l07429"></a><span class="lineno"> 7429</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l07430"></a><span class="lineno"> 7430</span>  <span class="keywordflow">return</span> ret;</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> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l07433"></a><span class="lineno"> 7433</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="l07434"></a><span class="lineno"> 7434</span> </div><div class="line"><a name="l07435"></a><span class="lineno"> 7435</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l07436"></a><span class="lineno"> 7436</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l07437"></a><span class="lineno"> 7437</span>  ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = TCL_OK;</div><div class="line"><a name="l07438"></a><span class="lineno"> 7438</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l07439"></a><span class="lineno"> 7439</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07440"></a><span class="lineno"> 7440</span>  <span class="comment">/* Tcl_Preserve(ptr->ip); */</span></div><div class="line"><a name="l07441"></a><span class="lineno"> 7441</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a55dbead056a35cc4c3bcdaefe23e6252">rbtk_preserve_ip</a>(ptr);</div><div class="line"><a name="l07442"></a><span class="lineno"> 7442</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="l07443"></a><span class="lineno"> 7443</span>  <span class="comment">/* ptr->return_value = Tcl_GlobalEval(ptr->ip, cmd_str); */</span></div><div class="line"><a name="l07444"></a><span class="lineno"> 7444</span>  }</div><div class="line"><a name="l07445"></a><span class="lineno"> 7445</span> </div><div class="line"><a name="l07446"></a><span class="lineno"> 7446</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a93291afcb7ee52da109bc8967a61d81f">pending_exception_check1</a>(thr_crit_bup, ptr)) {</div><div class="line"><a name="l07447"></a><span class="lineno"> 7447</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(ptr);</div><div class="line"><a name="l07448"></a><span class="lineno"> 7448</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>;</div><div class="line"><a name="l07449"></a><span class="lineno"> 7449</span>  }</div><div class="line"><a name="l07450"></a><span class="lineno"> 7450</span> </div><div class="line"><a name="l07451"></a><span class="lineno"> 7451</span>  <span class="comment">/* if (ptr->return_value == TCL_ERROR) { */</span></div><div class="line"><a name="l07452"></a><span class="lineno"> 7452</span>  <span class="keywordflow">if</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> != TCL_OK) {</div><div class="line"><a name="l07453"></a><span class="lineno"> 7453</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> exc;</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>  <span class="keywordflow">switch</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a>) {</div><div class="line"><a name="l07456"></a><span class="lineno"> 7456</span>  <span class="keywordflow">case</span> TCL_RETURN:</div><div class="line"><a name="l07457"></a><span class="lineno"> 7457</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(<span class="keyword">self</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7a2cabfa69c181ac17f416e6c78f4fd9">eTkCallbackReturn</a>,</div><div class="line"><a name="l07458"></a><span class="lineno"> 7458</span>  <span class="stringliteral">"ip_eval_real receives TCL_RETURN"</span>);</div><div class="line"><a name="l07459"></a><span class="lineno"> 7459</span>  <span class="keywordflow">case</span> TCL_BREAK:</div><div class="line"><a name="l07460"></a><span class="lineno"> 7460</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(<span class="keyword">self</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7fefdc0a0bdb479dcd15d610533497d6">eTkCallbackBreak</a>,</div><div class="line"><a name="l07461"></a><span class="lineno"> 7461</span>  <span class="stringliteral">"ip_eval_real receives TCL_BREAK"</span>);</div><div class="line"><a name="l07462"></a><span class="lineno"> 7462</span>  <span class="keywordflow">case</span> TCL_CONTINUE:</div><div class="line"><a name="l07463"></a><span class="lineno"> 7463</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(<span class="keyword">self</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5ae51f46018b1ae0a423aca2b89bf7ab">eTkCallbackContinue</a>,</div><div class="line"><a name="l07464"></a><span class="lineno"> 7464</span>  <span class="stringliteral">"ip_eval_real receives TCL_CONTINUE"</span>);</div><div class="line"><a name="l07465"></a><span class="lineno"> 7465</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l07466"></a><span class="lineno"> 7466</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(<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="l07467"></a><span class="lineno"> 7467</span>  }</div><div class="line"><a name="l07468"></a><span class="lineno"> 7468</span> </div><div class="line"><a name="l07469"></a><span class="lineno"> 7469</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(ptr);</div><div class="line"><a name="l07470"></a><span class="lineno"> 7470</span>  <span class="keywordflow">return</span> exc;</div><div class="line"><a name="l07471"></a><span class="lineno"> 7471</span>  }</div><div class="line"><a name="l07472"></a><span class="lineno"> 7472</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="l07473"></a><span class="lineno"> 7473</span> </div><div class="line"><a name="l07474"></a><span class="lineno"> 7474</span>  <span class="comment">/* pass back the result (as string) */</span></div><div class="line"><a name="l07475"></a><span class="lineno"> 7475</span>  ret = <a class="code" href="../../d5/d9d/tcltklib_8c.html#add644d94ab52340375fda4f35eb8847b">ip_get_result_string_obj</a>(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l07476"></a><span class="lineno"> 7476</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(ptr);</div><div class="line"><a name="l07477"></a><span class="lineno"> 7477</span>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l07478"></a><span class="lineno"> 7478</span> <span class="preprocessor">#endif</span></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="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l07482"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa80d79dc72b2728dfb12274b613630ee"> 7482</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa80d79dc72b2728dfb12274b613630ee">evq_safelevel_handler</a>(arg, evq)</div><div class="line"><a name="l07483"></a><span class="lineno"> 7483</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> arg;</div><div class="line"><a name="l07484"></a><span class="lineno"> 7484</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> evq;</div><div class="line"><a name="l07485"></a><span class="lineno"> 7485</span> {</div><div class="line"><a name="l07486"></a><span class="lineno"> 7486</span>  <span class="keyword">struct </span><a class="code" href="../../de/d17/structeval__queue.html">eval_queue</a> *q;</div><div class="line"><a name="l07487"></a><span class="lineno"> 7487</span> </div><div class="line"><a name="l07488"></a><span class="lineno"> 7488</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="l07489"></a><span class="lineno"> 7489</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="l07490"></a><span class="lineno"> 7490</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5e959fe5d6961caa34f52e0369506659">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="l07491"></a><span class="lineno"> 7491</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af132ec97e540b14453af8ac96fec0fb6">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="l07492"></a><span class="lineno"> 7492</span> }</div><div class="line"><a name="l07493"></a><span class="lineno"> 7493</span> </div><div class="line"><a name="l07494"></a><span class="lineno"> 7494</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a539158e19be012e60d742245117808b1">eval_queue_handler</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((Tcl_Event *, <span class="keywordtype">int</span>));</div><div class="line"><a name="l07495"></a><span class="lineno"> 7495</span> <span class="keywordtype">int</span></div><div class="line"><a name="l07496"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a539158e19be012e60d742245117808b1"> 7496</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a539158e19be012e60d742245117808b1">eval_queue_handler</a>(evPtr, flags)</div><div class="line"><a name="l07497"></a><span class="lineno"> 7497</span>  Tcl_Event *evPtr;</div><div class="line"><a name="l07498"></a><span class="lineno"> 7498</span>  <span class="keywordtype">int</span> flags;</div><div class="line"><a name="l07499"></a><span class="lineno"> 7499</span> {</div><div class="line"><a name="l07500"></a><span class="lineno"> 7500</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="l07501"></a><span class="lineno"> 7501</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ret;</div><div class="line"><a name="l07502"></a><span class="lineno"> 7502</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> q_dat;</div><div class="line"><a name="l07503"></a><span class="lineno"> 7503</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../de/d17/structeval__queue.html#ada0646ae22281aa3c00d86f8bebd6c9d">thread</a> = q-><a class="code" href="../../de/d17/structeval__queue.html#ada0646ae22281aa3c00d86f8bebd6c9d">thread</a>;</div><div class="line"><a name="l07504"></a><span class="lineno"> 7504</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div><div class="line"><a name="l07505"></a><span class="lineno"> 7505</span> </div><div class="line"><a name="l07506"></a><span class="lineno"> 7506</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="l07507"></a><span class="lineno"> 7507</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="l07508"></a><span class="lineno"> 7508</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="l07509"></a><span class="lineno"> 7509</span> </div><div class="line"><a name="l07510"></a><span class="lineno"> 7510</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="l07511"></a><span class="lineno"> 7511</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="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>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07514"></a><span class="lineno"> 7514</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="l07515"></a><span class="lineno"> 7515</span>  }</div><div class="line"><a name="l07516"></a><span class="lineno"> 7516</span> </div><div class="line"><a name="l07517"></a><span class="lineno"> 7517</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#a598f7c4cee4b8028312b375364ac55b4">rb_thread_alive_p</a>(thread))</div><div class="line"><a name="l07518"></a><span class="lineno"> 7518</span>  && ! <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(thread, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3146c23bbdd4311489cbe8cb76c7aebb">ID_stop_p</a>, 0))) {</div><div class="line"><a name="l07519"></a><span class="lineno"> 7519</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="l07520"></a><span class="lineno"> 7520</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l07521"></a><span class="lineno"> 7521</span>  }</div><div class="line"><a name="l07522"></a><span class="lineno"> 7522</span> </div><div class="line"><a name="l07523"></a><span class="lineno"> 7523</span>  <span class="comment">/* process it */</span></div><div class="line"><a name="l07524"></a><span class="lineno"> 7524</span>  *(q-><a class="code" href="../../de/d17/structeval__queue.html#adc749ca5e6e0e9bdd5e2c787ed3f4b32">done</a>) = 1;</div><div class="line"><a name="l07525"></a><span class="lineno"> 7525</span> </div><div class="line"><a name="l07526"></a><span class="lineno"> 7526</span>  <span class="comment">/* deleted ipterp ? */</span></div><div class="line"><a name="l07527"></a><span class="lineno"> 7527</span>  ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(q-><a class="code" href="../../de/d17/structeval__queue.html#a597f4df83c9d25f275e0e83fda96b47a">interp</a>);</div><div class="line"><a name="l07528"></a><span class="lineno"> 7528</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l07529"></a><span class="lineno"> 7529</span>  <span class="comment">/* deleted IP --> ignore */</span></div><div class="line"><a name="l07530"></a><span class="lineno"> 7530</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l07531"></a><span class="lineno"> 7531</span>  }</div><div class="line"><a name="l07532"></a><span class="lineno"> 7532</span> </div><div class="line"><a name="l07533"></a><span class="lineno"> 7533</span>  <span class="comment">/* incr internal handler mark */</span></div><div class="line"><a name="l07534"></a><span class="lineno"> 7534</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef1359e3bae2745050e68ee7c53d2c6e">rbtk_internal_eventloop_handler</a>++;</div><div class="line"><a name="l07535"></a><span class="lineno"> 7535</span> </div><div class="line"><a name="l07536"></a><span class="lineno"> 7536</span>  <span class="comment">/* check safe-level */</span></div><div class="line"><a name="l07537"></a><span class="lineno"> 7537</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="l07538"></a><span class="lineno"> 7538</span> <span class="preprocessor">#ifdef HAVE_NATIVETHREAD</span></div><div class="line"><a name="l07539"></a><span class="lineno"> 7539</span> <span class="preprocessor">#ifndef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l07540"></a><span class="lineno"> 7540</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="l07541"></a><span class="lineno"> 7541</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="l07542"></a><span class="lineno"> 7542</span>  }</div><div class="line"><a name="l07543"></a><span class="lineno"> 7543</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07544"></a><span class="lineno"> 7544</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07545"></a><span class="lineno"> 7545</span>  <span class="comment">/* q_dat = Data_Wrap_Struct(rb_cData,0,-1,q); */</span></div><div class="line"><a name="l07546"></a><span class="lineno"> 7546</span>  q_dat = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a27705a261a9addb9ed4cb65dd5a61b1c">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="l07547"></a><span class="lineno"> 7547</span>  ret = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(<a class="code" href="../../db/d2e/intern_8h.html#a8a4a55d3f2ed6d9ece055553e48755d5">rb_proc_new</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aa80d79dc72b2728dfb12274b613630ee">evq_safelevel_handler</a>, q_dat),</div><div class="line"><a name="l07548"></a><span class="lineno"> 7548</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a31a624c57e908d47f2aeb7209e7db3e7">ID_call</a>, 0);</div><div class="line"><a name="l07549"></a><span class="lineno"> 7549</span>  <a class="code" href="../../d8/d16/gc_8c.html#a53016811c87ff4c3ea839c9e85a9a9a4">rb_gc_force_recycle</a>(q_dat);</div><div class="line"><a name="l07550"></a><span class="lineno"> 7550</span>  q_dat = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l07551"></a><span class="lineno"> 7551</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07552"></a><span class="lineno"> 7552</span>  ret = <a class="code" href="../../d5/d9d/tcltklib_8c.html#af132ec97e540b14453af8ac96fec0fb6">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="l07553"></a><span class="lineno"> 7553</span>  }</div><div class="line"><a name="l07554"></a><span class="lineno"> 7554</span> </div><div class="line"><a name="l07555"></a><span class="lineno"> 7555</span>  <span class="comment">/* set result */</span></div><div class="line"><a name="l07556"></a><span class="lineno"> 7556</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4e8fe9b7653d67be2401a8b85049e525">RARRAY_PTR</a>(q-><a class="code" href="../../de/d17/structeval__queue.html#a41aad58e8a23dcf0370b40b9afebef6f">result</a>)[0] = ret;</div><div class="line"><a name="l07557"></a><span class="lineno"> 7557</span>  ret = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l07558"></a><span class="lineno"> 7558</span> </div><div class="line"><a name="l07559"></a><span class="lineno"> 7559</span>  <span class="comment">/* decr internal handler mark */</span></div><div class="line"><a name="l07560"></a><span class="lineno"> 7560</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef1359e3bae2745050e68ee7c53d2c6e">rbtk_internal_eventloop_handler</a>--;</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">/* complete */</span></div><div class="line"><a name="l07563"></a><span class="lineno"> 7563</span>  *(q-><a class="code" href="../../de/d17/structeval__queue.html#adc749ca5e6e0e9bdd5e2c787ed3f4b32">done</a>) = -1;</div><div class="line"><a name="l07564"></a><span class="lineno"> 7564</span> </div><div class="line"><a name="l07565"></a><span class="lineno"> 7565</span>  <span class="comment">/* unlink ruby objects */</span></div><div class="line"><a name="l07566"></a><span class="lineno"> 7566</span>  q-><a class="code" href="../../de/d17/structeval__queue.html#a597f4df83c9d25f275e0e83fda96b47a">interp</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l07567"></a><span class="lineno"> 7567</span>  q-><a class="code" href="../../de/d17/structeval__queue.html#a41aad58e8a23dcf0370b40b9afebef6f">result</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l07568"></a><span class="lineno"> 7568</span>  q-><a class="code" href="../../de/d17/structeval__queue.html#ada0646ae22281aa3c00d86f8bebd6c9d">thread</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l07569"></a><span class="lineno"> 7569</span> </div><div class="line"><a name="l07570"></a><span class="lineno"> 7570</span>  <span class="comment">/* back to caller */</span></div><div class="line"><a name="l07571"></a><span class="lineno"> 7571</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#a598f7c4cee4b8028312b375364ac55b4">rb_thread_alive_p</a>(thread))) {</div><div class="line"><a name="l07572"></a><span class="lineno"> 7572</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="l07573"></a><span class="lineno"> 7573</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="l07574"></a><span class="lineno"> 7574</span> <span class="preprocessor">#if CONTROL_BY_STATUS_OF_RB_THREAD_WAITING_FOR_VALUE</span></div><div class="line"><a name="l07575"></a><span class="lineno"> 7575</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a36aff997f6e550b516224b18bfe5bd25">have_rb_thread_waiting_for_value</a> = 1;</div><div class="line"><a name="l07576"></a><span class="lineno"> 7576</span>  <a class="code" href="../../db/d2e/intern_8h.html#a5ec55864056da2a01e4b87fde4c807b9">rb_thread_wakeup</a>(thread);</div><div class="line"><a name="l07577"></a><span class="lineno"> 7577</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l07578"></a><span class="lineno"> 7578</span>  <a class="code" href="../../db/d2e/intern_8h.html#a466749a3498fa8fbb48f7fc783a7cf34">rb_thread_run</a>(thread);</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>  <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="l07581"></a><span class="lineno"> 7581</span> <span class="preprocessor">#if DO_THREAD_SCHEDULE_AT_CALLBACK_DONE</span></div><div class="line"><a name="l07582"></a><span class="lineno"> 7582</span>  <a class="code" href="../../db/d2e/intern_8h.html#ad1fe299d3b5a492259ab4e733832868c">rb_thread_schedule</a>();</div><div class="line"><a name="l07583"></a><span class="lineno"> 7583</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07584"></a><span class="lineno"> 7584</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07585"></a><span class="lineno"> 7585</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="l07586"></a><span class="lineno"> 7586</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="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="comment">/* end of handler : remove it */</span></div><div class="line"><a name="l07590"></a><span class="lineno"> 7590</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l07591"></a><span class="lineno"> 7591</span> }</div><div class="line"><a name="l07592"></a><span class="lineno"> 7592</span> </div><div class="line"><a name="l07593"></a><span class="lineno"> 7593</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l07594"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a05b4c4302380cf16a80770983ccba5bf"> 7594</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a05b4c4302380cf16a80770983ccba5bf">ip_eval</a>(<span class="keyword">self</span>, str)</div><div class="line"><a name="l07595"></a><span class="lineno"> 7595</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l07596"></a><span class="lineno"> 7596</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> str;</div><div class="line"><a name="l07597"></a><span class="lineno"> 7597</span> {</div><div class="line"><a name="l07598"></a><span class="lineno"> 7598</span>  <span class="keyword">struct </span><a class="code" href="../../de/d17/structeval__queue.html">eval_queue</a> *evq;</div><div class="line"><a name="l07599"></a><span class="lineno"> 7599</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l07600"></a><span class="lineno"> 7600</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div><div class="line"><a name="l07601"></a><span class="lineno"> 7601</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07602"></a><span class="lineno"> 7602</span>  <span class="keywordtype">char</span> *eval_str;</div><div class="line"><a name="l07603"></a><span class="lineno"> 7603</span>  <span class="keywordtype">int</span> *alloc_done;</div><div class="line"><a name="l07604"></a><span class="lineno"> 7604</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l07605"></a><span class="lineno"> 7605</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> current = <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>();</div><div class="line"><a name="l07606"></a><span class="lineno"> 7606</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ip_obj = <span class="keyword">self</span>;</div><div class="line"><a name="l07607"></a><span class="lineno"> 7607</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>;</div><div class="line"><a name="l07608"></a><span class="lineno"> 7608</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ret;</div><div class="line"><a name="l07609"></a><span class="lineno"> 7609</span>  Tcl_QueuePosition position;</div><div class="line"><a name="l07610"></a><span class="lineno"> 7610</span>  <span class="keyword">struct </span><a class="code" href="../../d1/d1b/structtimeval.html">timeval</a> <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>;</div><div class="line"><a name="l07611"></a><span class="lineno"> 7611</span> </div><div class="line"><a name="l07612"></a><span class="lineno"> 7612</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l07613"></a><span class="lineno"> 7613</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l07614"></a><span class="lineno"> 7614</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(str);</div><div class="line"><a name="l07615"></a><span class="lineno"> 7615</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l07616"></a><span class="lineno"> 7616</span> </div><div class="line"><a name="l07617"></a><span class="lineno"> 7617</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l07618"></a><span class="lineno"> 7618</span>  ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(ip_obj);</div><div class="line"><a name="l07619"></a><span class="lineno"> 7619</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="l07620"></a><span class="lineno"> 7620</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="l07621"></a><span class="lineno"> 7621</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l07622"></a><span class="lineno"> 7622</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="l07623"></a><span class="lineno"> 7623</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07624"></a><span class="lineno"> 7624</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"status: eventloopt_thread %lx"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>);</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>  <span class="keywordflow">if</span> (</div><div class="line"><a name="l07627"></a><span class="lineno"> 7627</span> #ifdef RUBY_USE_NATIVE_THREAD</div><div class="line"><a name="l07628"></a><span class="lineno"> 7628</span>  (ptr->tk_thread_id == 0 || ptr->tk_thread_id == Tcl_GetCurrentThread())</div><div class="line"><a name="l07629"></a><span class="lineno"> 7629</span>  &&</div><div class="line"><a name="l07630"></a><span class="lineno"> 7630</span> #endif</div><div class="line"><a name="l07631"></a><span class="lineno"> 7631</span>  (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>) || current == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)</div><div class="line"><a name="l07632"></a><span class="lineno"> 7632</span>  ) {</div><div class="line"><a name="l07633"></a><span class="lineno"> 7633</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#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)) {</div><div class="line"><a name="l07634"></a><span class="lineno"> 7634</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="l07635"></a><span class="lineno"> 7635</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07636"></a><span class="lineno"> 7636</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="l07637"></a><span class="lineno"> 7637</span>  }</div><div class="line"><a name="l07638"></a><span class="lineno"> 7638</span>  <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#af132ec97e540b14453af8ac96fec0fb6">ip_eval_real</a>(<span class="keyword">self</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(str), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(str));</div><div class="line"><a name="l07639"></a><span class="lineno"> 7639</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="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>, <a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>)) {</div><div class="line"><a name="l07640"></a><span class="lineno"> 7640</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>);</div><div class="line"><a name="l07641"></a><span class="lineno"> 7641</span>  }</div><div class="line"><a name="l07642"></a><span class="lineno"> 7642</span>  <span class="keywordflow">return</span> <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>;</div><div class="line"><a name="l07643"></a><span class="lineno"> 7643</span>  }</div><div class="line"><a name="l07644"></a><span class="lineno"> 7644</span> </div><div class="line"><a name="l07645"></a><span class="lineno"> 7645</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="l07646"></a><span class="lineno"> 7646</span> </div><div class="line"><a name="l07647"></a><span class="lineno"> 7647</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l07648"></a><span class="lineno"> 7648</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l07649"></a><span class="lineno"> 7649</span> </div><div class="line"><a name="l07650"></a><span class="lineno"> 7650</span>  <span class="comment">/* allocate memory (keep result) */</span></div><div class="line"><a name="l07651"></a><span class="lineno"> 7651</span>  <span class="comment">/* alloc_done = (int*)ALLOC(int); */</span></div><div class="line"><a name="l07652"></a><span class="lineno"> 7652</span>  alloc_done = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(<span class="keywordtype">int</span>, 1);</div><div class="line"><a name="l07653"></a><span class="lineno"> 7653</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="l07654"></a><span class="lineno"> 7654</span>  Tcl_Preserve((ClientData)alloc_done); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l07655"></a><span class="lineno"> 7655</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07656"></a><span class="lineno"> 7656</span>  *alloc_done = 0;</div><div class="line"><a name="l07657"></a><span class="lineno"> 7657</span> </div><div class="line"><a name="l07658"></a><span class="lineno"> 7658</span>  <span class="comment">/* eval_str = ALLOC_N(char, RSTRING_LEN(str) + 1); */</span></div><div class="line"><a name="l07659"></a><span class="lineno"> 7659</span>  eval_str = ckalloc(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(str) + 1);</div><div class="line"><a name="l07660"></a><span class="lineno"> 7660</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="l07661"></a><span class="lineno"> 7661</span>  Tcl_Preserve((ClientData)eval_str); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l07662"></a><span class="lineno"> 7662</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07663"></a><span class="lineno"> 7663</span>  memcpy(eval_str, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(str), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(str));</div><div class="line"><a name="l07664"></a><span class="lineno"> 7664</span>  eval_str[<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(str)] = 0;</div><div class="line"><a name="l07665"></a><span class="lineno"> 7665</span> </div><div class="line"><a name="l07666"></a><span class="lineno"> 7666</span>  <span class="comment">/* allocate memory (freed by Tcl_ServiceEvent) */</span></div><div class="line"><a name="l07667"></a><span class="lineno"> 7667</span>  <span class="comment">/* evq = (struct eval_queue *)Tcl_Alloc(sizeof(struct eval_queue)); */</span></div><div class="line"><a name="l07668"></a><span class="lineno"> 7668</span>  evq = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(<span class="keyword">struct</span> <a class="code" href="../../de/d17/structeval__queue.html">eval_queue</a>, 1);</div><div class="line"><a name="l07669"></a><span class="lineno"> 7669</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="l07670"></a><span class="lineno"> 7670</span>  Tcl_Preserve(evq);</div><div class="line"><a name="l07671"></a><span class="lineno"> 7671</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07672"></a><span class="lineno"> 7672</span> </div><div class="line"><a name="l07673"></a><span class="lineno"> 7673</span>  <span class="comment">/* allocate result obj */</span></div><div class="line"><a name="l07674"></a><span class="lineno"> 7674</span>  <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a> = <a class="code" href="../../db/d2e/intern_8h.html#a8f3988bb25848bb4e4519a29876b2d55">rb_ary_new3</a>(1, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>);</div><div class="line"><a name="l07675"></a><span class="lineno"> 7675</span> </div><div class="line"><a name="l07676"></a><span class="lineno"> 7676</span>  <span class="comment">/* construct event data */</span></div><div class="line"><a name="l07677"></a><span class="lineno"> 7677</span>  evq-><a class="code" href="../../de/d17/structeval__queue.html#adc749ca5e6e0e9bdd5e2c787ed3f4b32">done</a> = alloc_done;</div><div class="line"><a name="l07678"></a><span class="lineno"> 7678</span>  evq-><a class="code" href="../../de/d17/structeval__queue.html#aa4e9dc85f66fdcb7c3723741fed73a3b">str</a> = eval_str;</div><div class="line"><a name="l07679"></a><span class="lineno"> 7679</span>  evq-><a class="code" href="../../de/d17/structeval__queue.html#a4d3b821dfc369ee9d6ffcc250feda3c1">len</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(str);</div><div class="line"><a name="l07680"></a><span class="lineno"> 7680</span>  evq-><a class="code" href="../../de/d17/structeval__queue.html#a597f4df83c9d25f275e0e83fda96b47a">interp</a> = ip_obj;</div><div class="line"><a name="l07681"></a><span class="lineno"> 7681</span>  evq-><a class="code" href="../../de/d17/structeval__queue.html#a41aad58e8a23dcf0370b40b9afebef6f">result</a> = <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>;</div><div class="line"><a name="l07682"></a><span class="lineno"> 7682</span>  evq-><a class="code" href="../../de/d17/structeval__queue.html#ada0646ae22281aa3c00d86f8bebd6c9d">thread</a> = current;</div><div class="line"><a name="l07683"></a><span class="lineno"> 7683</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="l07684"></a><span class="lineno"> 7684</span>  evq-><a class="code" href="../../de/d17/structeval__queue.html#a059ee495f45f2904277a72b0fff6a322">ev</a>.proc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a539158e19be012e60d742245117808b1">eval_queue_handler</a>;</div><div class="line"><a name="l07685"></a><span class="lineno"> 7685</span> </div><div class="line"><a name="l07686"></a><span class="lineno"> 7686</span>  position = TCL_QUEUE_TAIL;</div><div class="line"><a name="l07687"></a><span class="lineno"> 7687</span> </div><div class="line"><a name="l07688"></a><span class="lineno"> 7688</span>  <span class="comment">/* add the handler to Tcl event queue */</span></div><div class="line"><a name="l07689"></a><span class="lineno"> 7689</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="l07690"></a><span class="lineno"> 7690</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l07691"></a><span class="lineno"> 7691</span>  <span class="keywordflow">if</span> (ptr->tk_thread_id) {</div><div class="line"><a name="l07692"></a><span class="lineno"> 7692</span>  <span class="comment">/* Tcl_ThreadQueueEvent(ptr->tk_thread_id, &(evq->ev), position); */</span></div><div class="line"><a name="l07693"></a><span class="lineno"> 7693</span>  Tcl_ThreadQueueEvent(ptr->tk_thread_id, (Tcl_Event*)evq, position);</div><div class="line"><a name="l07694"></a><span class="lineno"> 7694</span>  Tcl_ThreadAlert(ptr->tk_thread_id);</div><div class="line"><a name="l07695"></a><span class="lineno"> 7695</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (tk_eventloop_thread_id) {</div><div class="line"><a name="l07696"></a><span class="lineno"> 7696</span>  Tcl_ThreadQueueEvent(tk_eventloop_thread_id, (Tcl_Event*)evq, position);</div><div class="line"><a name="l07697"></a><span class="lineno"> 7697</span>  <span class="comment">/* Tcl_ThreadQueueEvent(tk_eventloop_thread_id,</span></div><div class="line"><a name="l07698"></a><span class="lineno"> 7698</span> <span class="comment"> &(evq->ev), position); */</span></div><div class="line"><a name="l07699"></a><span class="lineno"> 7699</span>  Tcl_ThreadAlert(tk_eventloop_thread_id);</div><div class="line"><a name="l07700"></a><span class="lineno"> 7700</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07701"></a><span class="lineno"> 7701</span>  <span class="comment">/* Tcl_QueueEvent(&(evq->ev), position); */</span></div><div class="line"><a name="l07702"></a><span class="lineno"> 7702</span>  Tcl_QueueEvent((Tcl_Event*)evq, position);</div><div class="line"><a name="l07703"></a><span class="lineno"> 7703</span>  }</div><div class="line"><a name="l07704"></a><span class="lineno"> 7704</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l07705"></a><span class="lineno"> 7705</span>  <span class="comment">/* Tcl_QueueEvent(&(evq->ev), position); */</span></div><div class="line"><a name="l07706"></a><span class="lineno"> 7706</span>  Tcl_QueueEvent((Tcl_Event*)evq, position);</div><div class="line"><a name="l07707"></a><span class="lineno"> 7707</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07708"></a><span class="lineno"> 7708</span> </div><div class="line"><a name="l07709"></a><span class="lineno"> 7709</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</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>  <span class="comment">/* wait for the handler to be processed */</span></div><div class="line"><a name="l07712"></a><span class="lineno"> 7712</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_sec = 0;</div><div class="line"><a name="l07713"></a><span class="lineno"> 7713</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_usec = (long)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd2530678e6262a587dd99dedeb053b">EVENT_HANDLER_TIMEOUT</a>)*1000.0);</div><div class="line"><a name="l07714"></a><span class="lineno"> 7714</span> </div><div class="line"><a name="l07715"></a><span class="lineno"> 7715</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="l07716"></a><span class="lineno"> 7716</span>  <span class="keywordflow">while</span>(*alloc_done >= 0) {</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 wait for handler (current thread:%lx)"</span>, current);</div><div class="line"><a name="l07718"></a><span class="lineno"> 7718</span>  <span class="comment">/* rb_thread_stop(); */</span></div><div class="line"><a name="l07719"></a><span class="lineno"> 7719</span>  <span class="comment">/* rb_thread_sleep_forever(); */</span></div><div class="line"><a name="l07720"></a><span class="lineno"> 7720</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0187a1eb4a4d01a4c9ef6b36b51faa6f">rb_thread_wait_for</a>(<a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>);</div><div class="line"><a name="l07721"></a><span class="lineno"> 7721</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="l07722"></a><span class="lineno"> 7722</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"*** (eventloop thread:%lx)"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>);</div><div class="line"><a name="l07723"></a><span class="lineno"> 7723</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#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)) {</div><div class="line"><a name="l07724"></a><span class="lineno"> 7724</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="l07725"></a><span class="lineno"> 7725</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l07726"></a><span class="lineno"> 7726</span>  }</div><div class="line"><a name="l07727"></a><span class="lineno"> 7727</span>  }</div><div class="line"><a name="l07728"></a><span class="lineno"> 7728</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="l07729"></a><span class="lineno"> 7729</span> </div><div class="line"><a name="l07730"></a><span class="lineno"> 7730</span>  <span class="comment">/* get result & free allocated memory */</span></div><div class="line"><a name="l07731"></a><span class="lineno"> 7731</span>  ret = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4e8fe9b7653d67be2401a8b85049e525">RARRAY_PTR</a>(<a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>)[0];</div><div class="line"><a name="l07732"></a><span class="lineno"> 7732</span> </div><div class="line"><a name="l07733"></a><span class="lineno"> 7733</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l07734"></a><span class="lineno"> 7734</span>  Tcl_EventuallyFree((ClientData)alloc_done, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l07735"></a><span class="lineno"> 7735</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l07736"></a><span class="lineno"> 7736</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="l07737"></a><span class="lineno"> 7737</span>  Tcl_Release((ClientData)alloc_done); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l07738"></a><span class="lineno"> 7738</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l07739"></a><span class="lineno"> 7739</span>  <span class="comment">/* free(alloc_done); */</span></div><div class="line"><a name="l07740"></a><span class="lineno"> 7740</span>  ckfree((<span class="keywordtype">char</span>*)alloc_done);</div><div class="line"><a name="l07741"></a><span class="lineno"> 7741</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07742"></a><span class="lineno"> 7742</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07743"></a><span class="lineno"> 7743</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l07744"></a><span class="lineno"> 7744</span>  Tcl_EventuallyFree((ClientData)eval_str, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l07745"></a><span class="lineno"> 7745</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l07746"></a><span class="lineno"> 7746</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="l07747"></a><span class="lineno"> 7747</span>  Tcl_Release((ClientData)eval_str); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l07748"></a><span class="lineno"> 7748</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l07749"></a><span class="lineno"> 7749</span>  <span class="comment">/* free(eval_str); */</span></div><div class="line"><a name="l07750"></a><span class="lineno"> 7750</span>  ckfree(eval_str);</div><div class="line"><a name="l07751"></a><span class="lineno"> 7751</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07752"></a><span class="lineno"> 7752</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07753"></a><span class="lineno"> 7753</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="l07754"></a><span class="lineno"> 7754</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="l07755"></a><span class="lineno"> 7755</span>  Tcl_Release(evq);</div><div class="line"><a name="l07756"></a><span class="lineno"> 7756</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l07757"></a><span class="lineno"> 7757</span>  ckfree((<span class="keywordtype">char</span>*)evq);</div><div class="line"><a name="l07758"></a><span class="lineno"> 7758</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07759"></a><span class="lineno"> 7759</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07760"></a><span class="lineno"> 7760</span> </div><div class="line"><a name="l07761"></a><span class="lineno"> 7761</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="l07762"></a><span class="lineno"> 7762</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="l07763"></a><span class="lineno"> 7763</span>  <span class="comment">/* rb_exc_raise(ret); */</span></div><div class="line"><a name="l07764"></a><span class="lineno"> 7764</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../db/d2e/intern_8h.html#a9853d1348e5a26b4802117aa465f65bc">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="l07765"></a><span class="lineno"> 7765</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(ret, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2876182790d4d4deb29d00b4048d7565">ID_to_s</a>, 0, 0)));</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="keywordflow">return</span> ret;</div><div class="line"><a name="l07769"></a><span class="lineno"> 7769</span> }</div><div class="line"><a name="l07770"></a><span class="lineno"> 7770</span> </div><div class="line"><a name="l07771"></a><span class="lineno"> 7771</span> </div><div class="line"><a name="l07772"></a><span class="lineno"> 7772</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l07773"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6ede5243c724a8f6d416af4f54ba7a9e"> 7773</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6ede5243c724a8f6d416af4f54ba7a9e">ip_cancel_eval_core</a>(interp, <a class="code" href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a>, flag)</div><div class="line"><a name="l07774"></a><span class="lineno"> 7774</span>  Tcl_Interp *interp;</div><div class="line"><a name="l07775"></a><span class="lineno"> 7775</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a>;</div><div class="line"><a name="l07776"></a><span class="lineno"> 7776</span>  <span class="keywordtype">int</span> flag;</div><div class="line"><a name="l07777"></a><span class="lineno"> 7777</span> {</div><div class="line"><a name="l07778"></a><span class="lineno"> 7778</span> <span class="preprocessor">#if TCL_MAJOR_VERSION < 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION < 6)</span></div><div class="line"><a name="l07779"></a><span class="lineno"> 7779</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="l07780"></a><span class="lineno"> 7780</span>  <span class="stringliteral">"cancel_eval is supported Tcl/Tk8.6 or later."</span>);</div><div class="line"><a name="l07781"></a><span class="lineno"> 7781</span> </div><div class="line"><a name="l07782"></a><span class="lineno"> 7782</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3af99897b60119951af8961dbd52dd3f">UNREACHABLE</a>;</div><div class="line"><a name="l07783"></a><span class="lineno"> 7783</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l07784"></a><span class="lineno"> 7784</span>  Tcl_Obj *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>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a>)) {</div><div class="line"><a name="l07787"></a><span class="lineno"> 7787</span>  msg_obj = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l07788"></a><span class="lineno"> 7788</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07789"></a><span class="lineno"> 7789</span>  msg_obj = Tcl_NewStringObj(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(<a class="code" href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a>), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(<a class="code" href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a>));</div><div class="line"><a name="l07790"></a><span class="lineno"> 7790</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(msg_obj);</div><div class="line"><a name="l07791"></a><span class="lineno"> 7791</span>  }</div><div class="line"><a name="l07792"></a><span class="lineno"> 7792</span> </div><div class="line"><a name="l07793"></a><span class="lineno"> 7793</span>  <span class="keywordflow">return</span> Tcl_CancelEval(interp, msg_obj, 0, flag);</div><div class="line"><a name="l07794"></a><span class="lineno"> 7794</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07795"></a><span class="lineno"> 7795</span> }</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> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l07798"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a452874d0514b81b3089a59e08b6a0959"> 7798</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a452874d0514b81b3089a59e08b6a0959">ip_cancel_eval</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>)</div><div class="line"><a name="l07799"></a><span class="lineno"> 7799</span>  int <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l07800"></a><span class="lineno"> 7800</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l07801"></a><span class="lineno"> 7801</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l07802"></a><span class="lineno"> 7802</span> {</div><div class="line"><a name="l07803"></a><span class="lineno"> 7803</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> retval;</div><div class="line"><a name="l07804"></a><span class="lineno"> 7804</span> </div><div class="line"><a name="l07805"></a><span class="lineno"> 7805</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"01"</span>, &retval) == 0) {</div><div class="line"><a name="l07806"></a><span class="lineno"> 7806</span>  retval = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</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>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6ede5243c724a8f6d416af4f54ba7a9e">ip_cancel_eval_core</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>)->ip, retval, 0) == TCL_OK) {</div><div class="line"><a name="l07809"></a><span class="lineno"> 7809</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l07810"></a><span class="lineno"> 7810</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07811"></a><span class="lineno"> 7811</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l07812"></a><span class="lineno"> 7812</span>  }</div><div class="line"><a name="l07813"></a><span class="lineno"> 7813</span> }</div><div class="line"><a name="l07814"></a><span class="lineno"> 7814</span> </div><div class="line"><a name="l07815"></a><span class="lineno"> 7815</span> <span class="preprocessor">#ifndef TCL_CANCEL_UNWIND</span></div><div class="line"><a name="l07816"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8c25bd9e73ecb18e4f9f352090bb2911"> 7816</a></span> <span class="preprocessor">#define TCL_CANCEL_UNWIND 0x100000</span></div><div class="line"><a name="l07817"></a><span class="lineno"> 7817</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07818"></a><span class="lineno"> 7818</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l07819"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a329be50b55827b0b70889787d9527c62"> 7819</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a329be50b55827b0b70889787d9527c62">ip_cancel_eval_unwind</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>)</div><div class="line"><a name="l07820"></a><span class="lineno"> 7820</span>  int <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l07821"></a><span class="lineno"> 7821</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l07822"></a><span class="lineno"> 7822</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</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>  <span class="keywordtype">int</span> flag = 0;</div><div class="line"><a name="l07825"></a><span class="lineno"> 7825</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> retval;</div><div class="line"><a name="l07826"></a><span class="lineno"> 7826</span> </div><div class="line"><a name="l07827"></a><span class="lineno"> 7827</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"01"</span>, &retval) == 0) {</div><div class="line"><a name="l07828"></a><span class="lineno"> 7828</span>  retval = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l07829"></a><span class="lineno"> 7829</span>  }</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>  flag |= <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8c25bd9e73ecb18e4f9f352090bb2911">TCL_CANCEL_UNWIND</a>;</div><div class="line"><a name="l07832"></a><span class="lineno"> 7832</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6ede5243c724a8f6d416af4f54ba7a9e">ip_cancel_eval_core</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>)->ip, retval, flag) == TCL_OK) {</div><div class="line"><a name="l07833"></a><span class="lineno"> 7833</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l07834"></a><span class="lineno"> 7834</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07835"></a><span class="lineno"> 7835</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l07836"></a><span class="lineno"> 7836</span>  }</div><div class="line"><a name="l07837"></a><span class="lineno"> 7837</span> }</div><div class="line"><a name="l07838"></a><span class="lineno"> 7838</span> </div><div class="line"><a name="l07839"></a><span class="lineno"> 7839</span> <span class="comment">/* restart Tk */</span></div><div class="line"><a name="l07840"></a><span class="lineno"> 7840</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l07841"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8042cd4a5f945f9b8436ee00724eaa2b"> 7841</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8042cd4a5f945f9b8436ee00724eaa2b">lib_restart_core</a>(interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l07842"></a><span class="lineno"> 7842</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l07843"></a><span class="lineno"> 7843</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>; <span class="comment">/* dummy */</span></div><div class="line"><a name="l07844"></a><span class="lineno"> 7844</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>; <span class="comment">/* dummy */</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="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> exc;</div><div class="line"><a name="l07847"></a><span class="lineno"> 7847</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</div><div class="line"><a name="l07848"></a><span class="lineno"> 7848</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l07849"></a><span class="lineno"> 7849</span> </div><div class="line"><a name="l07850"></a><span class="lineno"> 7850</span> </div><div class="line"><a name="l07851"></a><span class="lineno"> 7851</span>  <span class="comment">/* tcl_stubs_check(); */</span> <span class="comment">/* already checked */</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>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l07854"></a><span class="lineno"> 7854</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l07855"></a><span class="lineno"> 7855</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">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="l07856"></a><span class="lineno"> 7856</span>  }</div><div class="line"><a name="l07857"></a><span class="lineno"> 7857</span> </div><div class="line"><a name="l07858"></a><span class="lineno"> 7858</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l07859"></a><span class="lineno"> 7859</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l07860"></a><span class="lineno"> 7860</span> </div><div class="line"><a name="l07861"></a><span class="lineno"> 7861</span>  <span class="comment">/* Tcl_Preserve(ptr->ip); */</span></div><div class="line"><a name="l07862"></a><span class="lineno"> 7862</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a55dbead056a35cc4c3bcdaefe23e6252">rbtk_preserve_ip</a>(ptr);</div><div class="line"><a name="l07863"></a><span class="lineno"> 7863</span> </div><div class="line"><a name="l07864"></a><span class="lineno"> 7864</span>  <span class="comment">/* destroy the root wdiget */</span></div><div class="line"><a name="l07865"></a><span class="lineno"> 7865</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="l07866"></a><span class="lineno"> 7866</span>  <span class="comment">/* ignore ERROR */</span></div><div class="line"><a name="l07867"></a><span class="lineno"> 7867</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="l07868"></a><span class="lineno"> 7868</span>  Tcl_ResetResult(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l07869"></a><span class="lineno"> 7869</span> </div><div class="line"><a name="l07870"></a><span class="lineno"> 7870</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l07871"></a><span class="lineno"> 7871</span>  <span class="comment">/* delete namespace ( tested on tk8.4.5 ) */</span></div><div class="line"><a name="l07872"></a><span class="lineno"> 7872</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="l07873"></a><span class="lineno"> 7873</span>  <span class="comment">/* ignore ERROR */</span></div><div class="line"><a name="l07874"></a><span class="lineno"> 7874</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="l07875"></a><span class="lineno"> 7875</span>  Tcl_ResetResult(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l07876"></a><span class="lineno"> 7876</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07877"></a><span class="lineno"> 7877</span> </div><div class="line"><a name="l07878"></a><span class="lineno"> 7878</span>  <span class="comment">/* delete trace proc ( tested on tk8.4.5 ) */</span></div><div class="line"><a name="l07879"></a><span class="lineno"> 7879</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="l07880"></a><span class="lineno"> 7880</span>  <span class="comment">/* ignore ERROR */</span></div><div class="line"><a name="l07881"></a><span class="lineno"> 7881</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="l07882"></a><span class="lineno"> 7882</span>  Tcl_ResetResult(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l07883"></a><span class="lineno"> 7883</span> </div><div class="line"><a name="l07884"></a><span class="lineno"> 7884</span>  <span class="comment">/* execute Tk_Init or Tk_SafeInit */</span></div><div class="line"><a name="l07885"></a><span class="lineno"> 7885</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a549faab10d1f93364421a77ea1699e65">tcltkip_init_tk</a>(interp);</div><div class="line"><a name="l07886"></a><span class="lineno"> 7886</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="l07887"></a><span class="lineno"> 7887</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l07888"></a><span class="lineno"> 7888</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(ptr);</div><div class="line"><a name="l07889"></a><span class="lineno"> 7889</span>  <span class="keywordflow">return</span> exc;</div><div class="line"><a name="l07890"></a><span class="lineno"> 7890</span>  }</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">/* Tcl_Release(ptr->ip); */</span></div><div class="line"><a name="l07893"></a><span class="lineno"> 7893</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(ptr);</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>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l07896"></a><span class="lineno"> 7896</span> </div><div class="line"><a name="l07897"></a><span class="lineno"> 7897</span>  <span class="comment">/* return Qnil; */</span></div><div class="line"><a name="l07898"></a><span class="lineno"> 7898</span>  <span class="keywordflow">return</span> interp;</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> </div><div class="line"><a name="l07901"></a><span class="lineno"> 7901</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l07902"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a959d87e76e7c29f41ee1d8ddb46d5ee1"> 7902</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a959d87e76e7c29f41ee1d8ddb46d5ee1">lib_restart</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l07903"></a><span class="lineno"> 7903</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l07904"></a><span class="lineno"> 7904</span> {</div><div class="line"><a name="l07905"></a><span class="lineno"> 7905</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l07906"></a><span class="lineno"> 7906</span> </div><div class="line"><a name="l07907"></a><span class="lineno"> 7907</span> </div><div class="line"><a name="l07908"></a><span class="lineno"> 7908</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acc6e437a3e4205736d8cb9b4888762fc">tcl_stubs_check</a>();</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>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l07911"></a><span class="lineno"> 7911</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l07912"></a><span class="lineno"> 7912</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="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="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1cec8ebc4c54249136da6b6df38fb723">tk_funcall</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a8042cd4a5f945f9b8436ee00724eaa2b">lib_restart_core</a>, 0, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, <span class="keyword">self</span>);</div><div class="line"><a name="l07916"></a><span class="lineno"> 7916</span> }</div><div class="line"><a name="l07917"></a><span class="lineno"> 7917</span> </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">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l07920"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9b17a18e847d33308d64879ac1dbd515"> 7920</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9b17a18e847d33308d64879ac1dbd515">ip_restart</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l07921"></a><span class="lineno"> 7921</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</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>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>);</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> </div><div class="line"><a name="l07926"></a><span class="lineno"> 7926</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acc6e437a3e4205736d8cb9b4888762fc">tcl_stubs_check</a>();</div><div class="line"><a name="l07927"></a><span class="lineno"> 7927</span> </div><div class="line"><a name="l07928"></a><span class="lineno"> 7928</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l07929"></a><span class="lineno"> 7929</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l07930"></a><span class="lineno"> 7930</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="l07931"></a><span class="lineno"> 7931</span>  }</div><div class="line"><a name="l07932"></a><span class="lineno"> 7932</span> </div><div class="line"><a name="l07933"></a><span class="lineno"> 7933</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="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l07934"></a><span class="lineno"> 7934</span>  <span class="comment">/* slave IP */</span></div><div class="line"><a name="l07935"></a><span class="lineno"> 7935</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</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="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a959d87e76e7c29f41ee1d8ddb46d5ee1">lib_restart</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l07938"></a><span class="lineno"> 7938</span> }</div><div class="line"><a name="l07939"></a><span class="lineno"> 7939</span> </div><div class="line"><a name="l07940"></a><span class="lineno"> 7940</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l07941"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa63d6966a11e92b8fed41f4c188a6f1c"> 7941</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa63d6966a11e92b8fed41f4c188a6f1c">lib_toUTF8_core</a>(ip_obj, src, encodename)</div><div class="line"><a name="l07942"></a><span class="lineno"> 7942</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ip_obj;</div><div class="line"><a name="l07943"></a><span class="lineno"> 7943</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> src;</div><div class="line"><a name="l07944"></a><span class="lineno"> 7944</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> encodename;</div><div class="line"><a name="l07945"></a><span class="lineno"> 7945</span> {</div><div class="line"><a name="l07946"></a><span class="lineno"> 7946</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> str = src;</div><div class="line"><a name="l07947"></a><span class="lineno"> 7947</span> </div><div class="line"><a name="l07948"></a><span class="lineno"> 7948</span> <span class="preprocessor">#ifdef TCL_UTF_MAX</span></div><div class="line"><a name="l07949"></a><span class="lineno"> 7949</span> <span class="preprocessor"># if 0</span></div><div class="line"><a name="l07950"></a><span class="lineno"> 7950</span>  Tcl_Interp *interp;</div><div class="line"><a name="l07951"></a><span class="lineno"> 7951</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l07952"></a><span class="lineno"> 7952</span>  Tcl_Encoding encoding;</div><div class="line"><a name="l07953"></a><span class="lineno"> 7953</span>  Tcl_DString dstr;</div><div class="line"><a name="l07954"></a><span class="lineno"> 7954</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="l07955"></a><span class="lineno"> 7955</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div><div class="line"><a name="l07956"></a><span class="lineno"> 7956</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>;</div><div class="line"><a name="l07957"></a><span class="lineno"> 7957</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l07958"></a><span class="lineno"> 7958</span> <span class="preprocessor">#endif</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>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acc6e437a3e4205736d8cb9b4888762fc">tcl_stubs_check</a>();</div><div class="line"><a name="l07961"></a><span class="lineno"> 7961</span> </div><div class="line"><a name="l07962"></a><span class="lineno"> 7962</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="l07963"></a><span class="lineno"> 7963</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l07964"></a><span class="lineno"> 7964</span>  }</div><div class="line"><a name="l07965"></a><span class="lineno"> 7965</span> </div><div class="line"><a name="l07966"></a><span class="lineno"> 7966</span> <span class="preprocessor">#ifdef TCL_UTF_MAX</span></div><div class="line"><a name="l07967"></a><span class="lineno"> 7967</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="l07968"></a><span class="lineno"> 7968</span> <span class="preprocessor"># if 0</span></div><div class="line"><a name="l07969"></a><span class="lineno"> 7969</span>  interp = (Tcl_Interp *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l07970"></a><span class="lineno"> 7970</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l07971"></a><span class="lineno"> 7971</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07972"></a><span class="lineno"> 7972</span>  ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(ip_obj);</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>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l07975"></a><span class="lineno"> 7975</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l07976"></a><span class="lineno"> 7976</span> <span class="preprocessor"># if 0</span></div><div class="line"><a name="l07977"></a><span class="lineno"> 7977</span>  interp = (Tcl_Interp *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l07978"></a><span class="lineno"> 7978</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l07979"></a><span class="lineno"> 7979</span>  interp = ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>;</div><div class="line"><a name="l07980"></a><span class="lineno"> 7980</span> <span class="preprocessor"># endif</span></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>  }</div><div class="line"><a name="l07983"></a><span class="lineno"> 7983</span> </div><div class="line"><a name="l07984"></a><span class="lineno"> 7984</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l07985"></a><span class="lineno"> 7985</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l07986"></a><span class="lineno"> 7986</span> </div><div class="line"><a name="l07987"></a><span class="lineno"> 7987</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="l07988"></a><span class="lineno"> 7988</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="l07989"></a><span class="lineno"> 7989</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> enc;</div><div class="line"><a name="l07990"></a><span class="lineno"> 7990</span> </div><div class="line"><a name="l07991"></a><span class="lineno"> 7991</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l07992"></a><span class="lineno"> 7992</span>  enc = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(<a class="code" href="../../d5/db5/encoding_8c.html#aca4947a16b0f9c7ae2db67a72e52b6ca">rb_obj_encoding</a>(str), <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2876182790d4d4deb29d00b4048d7565">ID_to_s</a>, 0, 0);</div><div class="line"><a name="l07993"></a><span class="lineno"> 7993</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l07994"></a><span class="lineno"> 7994</span>  enc = <a class="code" href="../../db/d2e/intern_8h.html#ab8a448eec4dc767e47f5f9bd35974734">rb_attr_get</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>);</div><div class="line"><a name="l07995"></a><span class="lineno"> 7995</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l07996"></a><span class="lineno"> 7996</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="l07997"></a><span class="lineno"> 7997</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="l07998"></a><span class="lineno"> 7998</span>  encoding = (Tcl_Encoding)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l07999"></a><span class="lineno"> 7999</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08000"></a><span class="lineno"> 8000</span>  enc = <a class="code" href="../../db/d2e/intern_8h.html#ab8a448eec4dc767e47f5f9bd35974734">rb_attr_get</a>(ip_obj, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>);</div><div class="line"><a name="l08001"></a><span class="lineno"> 8001</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="l08002"></a><span class="lineno"> 8002</span>  encoding = (Tcl_Encoding)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08003"></a><span class="lineno"> 8003</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08004"></a><span class="lineno"> 8004</span>  <span class="comment">/* StringValue(enc); */</span></div><div class="line"><a name="l08005"></a><span class="lineno"> 8005</span>  enc = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(enc, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2876182790d4d4deb29d00b4048d7565">ID_to_s</a>, 0, 0);</div><div class="line"><a name="l08006"></a><span class="lineno"> 8006</span>  <span class="comment">/* encoding = Tcl_GetEncoding(interp, RSTRING_PTR(enc)); */</span></div><div class="line"><a name="l08007"></a><span class="lineno"> 8007</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(enc)) {</div><div class="line"><a name="l08008"></a><span class="lineno"> 8008</span>  encoding = (Tcl_Encoding)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</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>  encoding = Tcl_GetEncoding((Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>,</div><div class="line"><a name="l08011"></a><span class="lineno"> 8011</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(enc));</div><div class="line"><a name="l08012"></a><span class="lineno"> 8012</span>  <span class="keywordflow">if</span> (encoding == (Tcl_Encoding)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l08013"></a><span class="lineno"> 8013</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="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(enc));</div><div class="line"><a name="l08014"></a><span class="lineno"> 8014</span>  }</div><div class="line"><a name="l08015"></a><span class="lineno"> 8015</span>  }</div><div class="line"><a name="l08016"></a><span class="lineno"> 8016</span>  }</div><div class="line"><a name="l08017"></a><span class="lineno"> 8017</span>  }</div><div class="line"><a name="l08018"></a><span class="lineno"> 8018</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08019"></a><span class="lineno"> 8019</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(enc);</div><div class="line"><a name="l08020"></a><span class="lineno"> 8020</span>  <span class="keywordflow">if</span> (strcmp(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(enc), <span class="stringliteral">"binary"</span>) == 0) {</div><div class="line"><a name="l08021"></a><span class="lineno"> 8021</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l08022"></a><span class="lineno"> 8022</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a76a58884428d17b0ae0736d9d16ade61">ENCODING_INDEX_BINARY</a>);</div><div class="line"><a name="l08023"></a><span class="lineno"> 8023</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08024"></a><span class="lineno"> 8024</span>  <a class="code" href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a233859a1dce4fae0b33d1ea0243b0d47">ENCODING_NAME_BINARY</a>);</div><div class="line"><a name="l08025"></a><span class="lineno"> 8025</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l08026"></a><span class="lineno"> 8026</span>  <span class="keywordflow">return</span> str;</div><div class="line"><a name="l08027"></a><span class="lineno"> 8027</span>  }</div><div class="line"><a name="l08028"></a><span class="lineno"> 8028</span>  <span class="comment">/* encoding = Tcl_GetEncoding(interp, RSTRING_PTR(enc)); */</span></div><div class="line"><a name="l08029"></a><span class="lineno"> 8029</span>  encoding = Tcl_GetEncoding((Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>,</div><div class="line"><a name="l08030"></a><span class="lineno"> 8030</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(enc));</div><div class="line"><a name="l08031"></a><span class="lineno"> 8031</span>  <span class="keywordflow">if</span> (encoding == (Tcl_Encoding)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l08032"></a><span class="lineno"> 8032</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="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(enc));</div><div class="line"><a name="l08033"></a><span class="lineno"> 8033</span>  }</div><div class="line"><a name="l08034"></a><span class="lineno"> 8034</span>  }</div><div class="line"><a name="l08035"></a><span class="lineno"> 8035</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08036"></a><span class="lineno"> 8036</span>  encoding = (Tcl_Encoding)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08037"></a><span class="lineno"> 8037</span>  }</div><div class="line"><a name="l08038"></a><span class="lineno"> 8038</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08039"></a><span class="lineno"> 8039</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(encodename);</div><div class="line"><a name="l08040"></a><span class="lineno"> 8040</span>  <span class="keywordflow">if</span> (strcmp(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(encodename), <span class="stringliteral">"binary"</span>) == 0) {</div><div class="line"><a name="l08041"></a><span class="lineno"> 8041</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l08042"></a><span class="lineno"> 8042</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a76a58884428d17b0ae0736d9d16ade61">ENCODING_INDEX_BINARY</a>);</div><div class="line"><a name="l08043"></a><span class="lineno"> 8043</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08044"></a><span class="lineno"> 8044</span>  <a class="code" href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a233859a1dce4fae0b33d1ea0243b0d47">ENCODING_NAME_BINARY</a>);</div><div class="line"><a name="l08045"></a><span class="lineno"> 8045</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l08046"></a><span class="lineno"> 8046</span>  <span class="keywordflow">return</span> str;</div><div class="line"><a name="l08047"></a><span class="lineno"> 8047</span>  }</div><div class="line"><a name="l08048"></a><span class="lineno"> 8048</span>  <span class="comment">/* encoding = Tcl_GetEncoding(interp, RSTRING_PTR(encodename)); */</span></div><div class="line"><a name="l08049"></a><span class="lineno"> 8049</span>  encoding = Tcl_GetEncoding((Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(encodename));</div><div class="line"><a name="l08050"></a><span class="lineno"> 8050</span>  <span class="keywordflow">if</span> (encoding == (Tcl_Encoding)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l08051"></a><span class="lineno"> 8051</span>  <span class="comment">/*</span></div><div class="line"><a name="l08052"></a><span class="lineno"> 8052</span> <span class="comment"> rb_warning("unknown encoding name '%s'",</span></div><div class="line"><a name="l08053"></a><span class="lineno"> 8053</span> <span class="comment"> RSTRING_PTR(encodename));</span></div><div class="line"><a name="l08054"></a><span class="lineno"> 8054</span> <span class="comment"> */</span></div><div class="line"><a name="l08055"></a><span class="lineno"> 8055</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="l08056"></a><span class="lineno"> 8056</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(encodename));</div><div class="line"><a name="l08057"></a><span class="lineno"> 8057</span>  }</div><div class="line"><a name="l08058"></a><span class="lineno"> 8058</span>  }</div><div class="line"><a name="l08059"></a><span class="lineno"> 8059</span> </div><div class="line"><a name="l08060"></a><span class="lineno"> 8060</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(str);</div><div class="line"><a name="l08061"></a><span class="lineno"> 8061</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(str)) {</div><div class="line"><a name="l08062"></a><span class="lineno"> 8062</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l08063"></a><span class="lineno"> 8063</span>  <span class="keywordflow">return</span> str;</div><div class="line"><a name="l08064"></a><span class="lineno"> 8064</span>  }</div><div class="line"><a name="l08065"></a><span class="lineno"> 8065</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a79041aa2bc7439c11906a86f82a52eb6">ALLOC_N</a>(<span class="keywordtype">char</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(str)+1);</div><div class="line"><a name="l08066"></a><span class="lineno"> 8066</span>  <span class="comment">/* buf = ckalloc(sizeof(char) * (RSTRING_LENINT(str)+1)); */</span></div><div class="line"><a name="l08067"></a><span class="lineno"> 8067</span>  memcpy(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(str), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(str));</div><div class="line"><a name="l08068"></a><span class="lineno"> 8068</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>[<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(str)] = 0;</div><div class="line"><a name="l08069"></a><span class="lineno"> 8069</span> </div><div class="line"><a name="l08070"></a><span class="lineno"> 8070</span>  Tcl_DStringInit(&dstr);</div><div class="line"><a name="l08071"></a><span class="lineno"> 8071</span>  Tcl_DStringFree(&dstr);</div><div class="line"><a name="l08072"></a><span class="lineno"> 8072</span>  <span class="comment">/* Tcl_ExternalToUtfDString(encoding,buf,strlen(buf),&dstr); */</span></div><div class="line"><a name="l08073"></a><span class="lineno"> 8073</span>  Tcl_ExternalToUtfDString(encoding, <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(str), &dstr);</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">/* str = rb_tainted_str_new2(Tcl_DStringValue(&dstr)); */</span></div><div class="line"><a name="l08076"></a><span class="lineno"> 8076</span>  <span class="comment">/* str = rb_str_new2(Tcl_DStringValue(&dstr)); */</span></div><div class="line"><a name="l08077"></a><span class="lineno"> 8077</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="l08078"></a><span class="lineno"> 8078</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l08079"></a><span class="lineno"> 8079</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a154b1f5c9c90acef2a0b248f861fea29">ENCODING_INDEX_UTF8</a>);</div><div class="line"><a name="l08080"></a><span class="lineno"> 8080</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08081"></a><span class="lineno"> 8081</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="l08082"></a><span class="lineno"> 8082</span>  <a class="code" href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8b1d6a68739d2f40636d9a8f3aea4253">ENCODING_NAME_UTF8</a>);</div><div class="line"><a name="l08083"></a><span class="lineno"> 8083</span> </div><div class="line"><a name="l08084"></a><span class="lineno"> 8084</span>  <span class="comment">/*</span></div><div class="line"><a name="l08085"></a><span class="lineno"> 8085</span> <span class="comment"> if (encoding != (Tcl_Encoding)NULL) {</span></div><div class="line"><a name="l08086"></a><span class="lineno"> 8086</span> <span class="comment"> Tcl_FreeEncoding(encoding);</span></div><div class="line"><a name="l08087"></a><span class="lineno"> 8087</span> <span class="comment"> }</span></div><div class="line"><a name="l08088"></a><span class="lineno"> 8088</span> <span class="comment"> */</span></div><div class="line"><a name="l08089"></a><span class="lineno"> 8089</span>  Tcl_DStringFree(&dstr);</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>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>);</div><div class="line"><a name="l08092"></a><span class="lineno"> 8092</span>  <span class="comment">/* ckfree(buf); */</span></div><div class="line"><a name="l08093"></a><span class="lineno"> 8093</span> </div><div class="line"><a name="l08094"></a><span class="lineno"> 8094</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l08095"></a><span class="lineno"> 8095</span> <span class="preprocessor">#endif</span></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>  <span class="keywordflow">return</span> str;</div><div class="line"><a name="l08098"></a><span class="lineno"> 8098</span> }</div><div class="line"><a name="l08099"></a><span class="lineno"> 8099</span> </div><div class="line"><a name="l08100"></a><span class="lineno"> 8100</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l08101"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a01a6de6a1215a803584201ab4b55f2f0"> 8101</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a01a6de6a1215a803584201ab4b55f2f0">lib_toUTF8</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>)</div><div class="line"><a name="l08102"></a><span class="lineno"> 8102</span>  int <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l08103"></a><span class="lineno"> 8103</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l08104"></a><span class="lineno"> 8104</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l08105"></a><span class="lineno"> 8105</span> {</div><div class="line"><a name="l08106"></a><span class="lineno"> 8106</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> str, encodename;</div><div class="line"><a name="l08107"></a><span class="lineno"> 8107</span> </div><div class="line"><a name="l08108"></a><span class="lineno"> 8108</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"11"</span>, &str, &encodename) == 1) {</div><div class="line"><a name="l08109"></a><span class="lineno"> 8109</span>  encodename = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</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>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa63d6966a11e92b8fed41f4c188a6f1c">lib_toUTF8_core</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>, str, encodename);</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> </div><div class="line"><a name="l08114"></a><span class="lineno"> 8114</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l08115"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a1dd0705e9361b7d3cd04de4296964330"> 8115</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1dd0705e9361b7d3cd04de4296964330">ip_toUTF8</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>)</div><div class="line"><a name="l08116"></a><span class="lineno"> 8116</span>  int <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l08117"></a><span class="lineno"> 8117</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l08118"></a><span class="lineno"> 8118</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l08119"></a><span class="lineno"> 8119</span> {</div><div class="line"><a name="l08120"></a><span class="lineno"> 8120</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> str, encodename;</div><div class="line"><a name="l08121"></a><span class="lineno"> 8121</span> </div><div class="line"><a name="l08122"></a><span class="lineno"> 8122</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"11"</span>, &str, &encodename) == 1) {</div><div class="line"><a name="l08123"></a><span class="lineno"> 8123</span>  encodename = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</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="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa63d6966a11e92b8fed41f4c188a6f1c">lib_toUTF8_core</a>(<span class="keyword">self</span>, str, encodename);</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> </div><div class="line"><a name="l08128"></a><span class="lineno"> 8128</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l08129"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a45917d46e06b178597a556ea1237d43a"> 8129</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a45917d46e06b178597a556ea1237d43a">lib_fromUTF8_core</a>(ip_obj, src, encodename)</div><div class="line"><a name="l08130"></a><span class="lineno"> 8130</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ip_obj;</div><div class="line"><a name="l08131"></a><span class="lineno"> 8131</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> src;</div><div class="line"><a name="l08132"></a><span class="lineno"> 8132</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> encodename;</div><div class="line"><a name="l08133"></a><span class="lineno"> 8133</span> {</div><div class="line"><a name="l08134"></a><span class="lineno"> 8134</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> str = src;</div><div class="line"><a name="l08135"></a><span class="lineno"> 8135</span> </div><div class="line"><a name="l08136"></a><span class="lineno"> 8136</span> <span class="preprocessor">#ifdef TCL_UTF_MAX</span></div><div class="line"><a name="l08137"></a><span class="lineno"> 8137</span>  Tcl_Interp *interp;</div><div class="line"><a name="l08138"></a><span class="lineno"> 8138</span>  Tcl_Encoding encoding;</div><div class="line"><a name="l08139"></a><span class="lineno"> 8139</span>  Tcl_DString dstr;</div><div class="line"><a name="l08140"></a><span class="lineno"> 8140</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="l08141"></a><span class="lineno"> 8141</span>  <span class="keywordtype">char</span> *<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>;</div><div class="line"><a name="l08142"></a><span class="lineno"> 8142</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l08143"></a><span class="lineno"> 8143</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08144"></a><span class="lineno"> 8144</span> </div><div class="line"><a name="l08145"></a><span class="lineno"> 8145</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acc6e437a3e4205736d8cb9b4888762fc">tcl_stubs_check</a>();</div><div class="line"><a name="l08146"></a><span class="lineno"> 8146</span> </div><div class="line"><a name="l08147"></a><span class="lineno"> 8147</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="l08148"></a><span class="lineno"> 8148</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">""</span>);</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> <span class="preprocessor">#ifdef TCL_UTF_MAX</span></div><div class="line"><a name="l08152"></a><span class="lineno"> 8152</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="l08153"></a><span class="lineno"> 8153</span>  interp = (Tcl_Interp *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08154"></a><span class="lineno"> 8154</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(ip_obj) == (<span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l08155"></a><span class="lineno"> 8155</span>  interp = (Tcl_Interp *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08156"></a><span class="lineno"> 8156</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08157"></a><span class="lineno"> 8157</span>  interp = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(ip_obj)-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>;</div><div class="line"><a name="l08158"></a><span class="lineno"> 8158</span>  }</div><div class="line"><a name="l08159"></a><span class="lineno"> 8159</span> </div><div class="line"><a name="l08160"></a><span class="lineno"> 8160</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l08161"></a><span class="lineno"> 8161</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l08162"></a><span class="lineno"> 8162</span> </div><div class="line"><a name="l08163"></a><span class="lineno"> 8163</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="l08164"></a><span class="lineno"> 8164</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> enc;</div><div class="line"><a name="l08165"></a><span class="lineno"> 8165</span> </div><div class="line"><a name="l08166"></a><span class="lineno"> 8166</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="l08167"></a><span class="lineno"> 8167</span>  enc = <a class="code" href="../../db/d2e/intern_8h.html#ab8a448eec4dc767e47f5f9bd35974734">rb_attr_get</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>);</div><div class="line"><a name="l08168"></a><span class="lineno"> 8168</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="l08169"></a><span class="lineno"> 8169</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(enc);</div><div class="line"><a name="l08170"></a><span class="lineno"> 8170</span>  <span class="keywordflow">if</span> (strcmp(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(enc), <span class="stringliteral">"binary"</span>) == 0) {</div><div class="line"><a name="l08171"></a><span class="lineno"> 8171</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l08172"></a><span class="lineno"> 8172</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a76a58884428d17b0ae0736d9d16ade61">ENCODING_INDEX_BINARY</a>);</div><div class="line"><a name="l08173"></a><span class="lineno"> 8173</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08174"></a><span class="lineno"> 8174</span>  <a class="code" href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a233859a1dce4fae0b33d1ea0243b0d47">ENCODING_NAME_BINARY</a>);</div><div class="line"><a name="l08175"></a><span class="lineno"> 8175</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l08176"></a><span class="lineno"> 8176</span>  <span class="keywordflow">return</span> str;</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> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l08179"></a><span class="lineno"> 8179</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) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a76a58884428d17b0ae0736d9d16ade61">ENCODING_INDEX_BINARY</a>) {</div><div class="line"><a name="l08180"></a><span class="lineno"> 8180</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a76a58884428d17b0ae0736d9d16ade61">ENCODING_INDEX_BINARY</a>);</div><div class="line"><a name="l08181"></a><span class="lineno"> 8181</span>  <a class="code" href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a233859a1dce4fae0b33d1ea0243b0d47">ENCODING_NAME_BINARY</a>);</div><div class="line"><a name="l08182"></a><span class="lineno"> 8182</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l08183"></a><span class="lineno"> 8183</span>  <span class="keywordflow">return</span> str;</div><div class="line"><a name="l08184"></a><span class="lineno"> 8184</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08185"></a><span class="lineno"> 8185</span>  }</div><div class="line"><a name="l08186"></a><span class="lineno"> 8186</span>  }</div><div class="line"><a name="l08187"></a><span class="lineno"> 8187</span> </div><div class="line"><a name="l08188"></a><span class="lineno"> 8188</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="l08189"></a><span class="lineno"> 8189</span>  encoding = (Tcl_Encoding)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08190"></a><span class="lineno"> 8190</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08191"></a><span class="lineno"> 8191</span>  enc = <a class="code" href="../../db/d2e/intern_8h.html#ab8a448eec4dc767e47f5f9bd35974734">rb_attr_get</a>(ip_obj, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>);</div><div class="line"><a name="l08192"></a><span class="lineno"> 8192</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="l08193"></a><span class="lineno"> 8193</span>  encoding = (Tcl_Encoding)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08194"></a><span class="lineno"> 8194</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08195"></a><span class="lineno"> 8195</span>  <span class="comment">/* StringValue(enc); */</span></div><div class="line"><a name="l08196"></a><span class="lineno"> 8196</span>  enc = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(enc, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2876182790d4d4deb29d00b4048d7565">ID_to_s</a>, 0, 0);</div><div class="line"><a name="l08197"></a><span class="lineno"> 8197</span>  <span class="comment">/* encoding = Tcl_GetEncoding(interp, RSTRING_PTR(enc)); */</span></div><div class="line"><a name="l08198"></a><span class="lineno"> 8198</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(enc)) {</div><div class="line"><a name="l08199"></a><span class="lineno"> 8199</span>  encoding = (Tcl_Encoding)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08200"></a><span class="lineno"> 8200</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08201"></a><span class="lineno"> 8201</span>  encoding = Tcl_GetEncoding((Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>,</div><div class="line"><a name="l08202"></a><span class="lineno"> 8202</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(enc));</div><div class="line"><a name="l08203"></a><span class="lineno"> 8203</span>  <span class="keywordflow">if</span> (encoding == (Tcl_Encoding)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l08204"></a><span class="lineno"> 8204</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="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(enc));</div><div class="line"><a name="l08205"></a><span class="lineno"> 8205</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08206"></a><span class="lineno"> 8206</span>  encodename = <a class="code" href="../../db/d2e/intern_8h.html#a303b384bd946cba1101841237c5c27d0">rb_obj_dup</a>(enc);</div><div class="line"><a name="l08207"></a><span class="lineno"> 8207</span>  }</div><div class="line"><a name="l08208"></a><span class="lineno"> 8208</span>  }</div><div class="line"><a name="l08209"></a><span class="lineno"> 8209</span>  }</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> </div><div class="line"><a name="l08212"></a><span class="lineno"> 8212</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08213"></a><span class="lineno"> 8213</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(encodename);</div><div class="line"><a name="l08214"></a><span class="lineno"> 8214</span> </div><div class="line"><a name="l08215"></a><span class="lineno"> 8215</span>  <span class="keywordflow">if</span> (strcmp(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(encodename), <span class="stringliteral">"binary"</span>) == 0) {</div><div class="line"><a name="l08216"></a><span class="lineno"> 8216</span>  Tcl_Obj *tclstr;</div><div class="line"><a name="l08217"></a><span class="lineno"> 8217</span>  <span class="keywordtype">char</span> *s;</div><div class="line"><a name="l08218"></a><span class="lineno"> 8218</span>  <span class="keywordtype">int</span> len;</div><div class="line"><a name="l08219"></a><span class="lineno"> 8219</span> </div><div class="line"><a name="l08220"></a><span class="lineno"> 8220</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(str);</div><div class="line"><a name="l08221"></a><span class="lineno"> 8221</span>  tclstr = Tcl_NewStringObj(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(str), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(str));</div><div class="line"><a name="l08222"></a><span class="lineno"> 8222</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(tclstr);</div><div class="line"><a name="l08223"></a><span class="lineno"> 8223</span>  s = (<span class="keywordtype">char</span>*)Tcl_GetByteArrayFromObj(tclstr, &len);</div><div class="line"><a name="l08224"></a><span class="lineno"> 8224</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="l08225"></a><span class="lineno"> 8225</span>  s = (<span class="keywordtype">char</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08226"></a><span class="lineno"> 8226</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(tclstr);</div><div class="line"><a name="l08227"></a><span class="lineno"> 8227</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l08228"></a><span class="lineno"> 8228</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a76a58884428d17b0ae0736d9d16ade61">ENCODING_INDEX_BINARY</a>);</div><div class="line"><a name="l08229"></a><span class="lineno"> 8229</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08230"></a><span class="lineno"> 8230</span>  <a class="code" href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a233859a1dce4fae0b33d1ea0243b0d47">ENCODING_NAME_BINARY</a>);</div><div class="line"><a name="l08231"></a><span class="lineno"> 8231</span> </div><div class="line"><a name="l08232"></a><span class="lineno"> 8232</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l08233"></a><span class="lineno"> 8233</span>  <span class="keywordflow">return</span> str;</div><div class="line"><a name="l08234"></a><span class="lineno"> 8234</span>  }</div><div class="line"><a name="l08235"></a><span class="lineno"> 8235</span> </div><div class="line"><a name="l08236"></a><span class="lineno"> 8236</span>  <span class="comment">/* encoding = Tcl_GetEncoding(interp, RSTRING_PTR(encodename)); */</span></div><div class="line"><a name="l08237"></a><span class="lineno"> 8237</span>  encoding = Tcl_GetEncoding((Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(encodename));</div><div class="line"><a name="l08238"></a><span class="lineno"> 8238</span>  <span class="keywordflow">if</span> (encoding == (Tcl_Encoding)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l08239"></a><span class="lineno"> 8239</span>  <span class="comment">/*</span></div><div class="line"><a name="l08240"></a><span class="lineno"> 8240</span> <span class="comment"> rb_warning("unknown encoding name '%s'",</span></div><div class="line"><a name="l08241"></a><span class="lineno"> 8241</span> <span class="comment"> RSTRING_PTR(encodename));</span></div><div class="line"><a name="l08242"></a><span class="lineno"> 8242</span> <span class="comment"> encodename = Qnil;</span></div><div class="line"><a name="l08243"></a><span class="lineno"> 8243</span> <span class="comment"> */</span></div><div class="line"><a name="l08244"></a><span class="lineno"> 8244</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="l08245"></a><span class="lineno"> 8245</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(encodename));</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>  }</div><div class="line"><a name="l08248"></a><span class="lineno"> 8248</span> </div><div class="line"><a name="l08249"></a><span class="lineno"> 8249</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(str);</div><div class="line"><a name="l08250"></a><span class="lineno"> 8250</span> </div><div class="line"><a name="l08251"></a><span class="lineno"> 8251</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(str) == 0) {</div><div class="line"><a name="l08252"></a><span class="lineno"> 8252</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l08253"></a><span class="lineno"> 8253</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l08254"></a><span class="lineno"> 8254</span>  }</div><div class="line"><a name="l08255"></a><span class="lineno"> 8255</span> </div><div class="line"><a name="l08256"></a><span class="lineno"> 8256</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a79041aa2bc7439c11906a86f82a52eb6">ALLOC_N</a>(<span class="keywordtype">char</span>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(str)+1);</div><div class="line"><a name="l08257"></a><span class="lineno"> 8257</span>  <span class="comment">/* buf = ckalloc(sizeof(char) * (RSTRING_LENINT(str)+1)); */</span></div><div class="line"><a name="l08258"></a><span class="lineno"> 8258</span>  memcpy(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(str), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(str));</div><div class="line"><a name="l08259"></a><span class="lineno"> 8259</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>[<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(str)] = 0;</div><div class="line"><a name="l08260"></a><span class="lineno"> 8260</span> </div><div class="line"><a name="l08261"></a><span class="lineno"> 8261</span>  Tcl_DStringInit(&dstr);</div><div class="line"><a name="l08262"></a><span class="lineno"> 8262</span>  Tcl_DStringFree(&dstr);</div><div class="line"><a name="l08263"></a><span class="lineno"> 8263</span>  <span class="comment">/* Tcl_UtfToExternalDString(encoding,buf,strlen(buf),&dstr); */</span></div><div class="line"><a name="l08264"></a><span class="lineno"> 8264</span>  Tcl_UtfToExternalDString(encoding,<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>,<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(str),&dstr);</div><div class="line"><a name="l08265"></a><span class="lineno"> 8265</span> </div><div class="line"><a name="l08266"></a><span class="lineno"> 8266</span>  <span class="comment">/* str = rb_tainted_str_new2(Tcl_DStringValue(&dstr)); */</span></div><div class="line"><a name="l08267"></a><span class="lineno"> 8267</span>  <span class="comment">/* str = rb_str_new2(Tcl_DStringValue(&dstr)); */</span></div><div class="line"><a name="l08268"></a><span class="lineno"> 8268</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="l08269"></a><span class="lineno"> 8269</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l08270"></a><span class="lineno"> 8270</span>  <span class="keywordflow">if</span> (interp) {</div><div class="line"><a name="l08271"></a><span class="lineno"> 8271</span>  <span class="comment">/* can access encoding_table of TclTkIp */</span></div><div class="line"><a name="l08272"></a><span class="lineno"> 8272</span>  <span class="comment">/* -> try to use encoding_table */</span></div><div class="line"><a name="l08273"></a><span class="lineno"> 8273</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> tbl = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a71caa788c630a6c4ebbe79ab8bfb57f6">ip_get_encoding_table</a>(ip_obj);</div><div class="line"><a name="l08274"></a><span class="lineno"> 8274</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> encobj = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad4888e9518ae5e8a1ef95e4ae45583f2">encoding_table_get_obj</a>(tbl, encodename);</div><div class="line"><a name="l08275"></a><span class="lineno"> 8275</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="l08276"></a><span class="lineno"> 8276</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08277"></a><span class="lineno"> 8277</span>  <span class="comment">/* cannot access encoding_table of TclTkIp */</span></div><div class="line"><a name="l08278"></a><span class="lineno"> 8278</span>  <span class="comment">/* -> try to find on Ruby Encoding */</span></div><div class="line"><a name="l08279"></a><span class="lineno"> 8279</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="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(encodename)));</div><div class="line"><a name="l08280"></a><span class="lineno"> 8280</span>  }</div><div class="line"><a name="l08281"></a><span class="lineno"> 8281</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08282"></a><span class="lineno"> 8282</span> </div><div class="line"><a name="l08283"></a><span class="lineno"> 8283</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="l08284"></a><span class="lineno"> 8284</span>  <a class="code" href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>, encodename);</div><div class="line"><a name="l08285"></a><span class="lineno"> 8285</span> </div><div class="line"><a name="l08286"></a><span class="lineno"> 8286</span>  <span class="comment">/*</span></div><div class="line"><a name="l08287"></a><span class="lineno"> 8287</span> <span class="comment"> if (encoding != (Tcl_Encoding)NULL) {</span></div><div class="line"><a name="l08288"></a><span class="lineno"> 8288</span> <span class="comment"> Tcl_FreeEncoding(encoding);</span></div><div class="line"><a name="l08289"></a><span class="lineno"> 8289</span> <span class="comment"> }</span></div><div class="line"><a name="l08290"></a><span class="lineno"> 8290</span> <span class="comment"> */</span></div><div class="line"><a name="l08291"></a><span class="lineno"> 8291</span>  Tcl_DStringFree(&dstr);</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>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">buf</a>);</div><div class="line"><a name="l08294"></a><span class="lineno"> 8294</span>  <span class="comment">/* ckfree(buf); */</span></div><div class="line"><a name="l08295"></a><span class="lineno"> 8295</span> </div><div class="line"><a name="l08296"></a><span class="lineno"> 8296</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l08297"></a><span class="lineno"> 8297</span> <span class="preprocessor">#endif</span></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>  <span class="keywordflow">return</span> str;</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> </div><div class="line"><a name="l08302"></a><span class="lineno"> 8302</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l08303"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a393d343aab434d9bb0cf1e27ae6f0f89"> 8303</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a393d343aab434d9bb0cf1e27ae6f0f89">lib_fromUTF8</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>)</div><div class="line"><a name="l08304"></a><span class="lineno"> 8304</span>  int <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l08305"></a><span class="lineno"> 8305</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l08306"></a><span class="lineno"> 8306</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l08307"></a><span class="lineno"> 8307</span> {</div><div class="line"><a name="l08308"></a><span class="lineno"> 8308</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> str, encodename;</div><div class="line"><a name="l08309"></a><span class="lineno"> 8309</span> </div><div class="line"><a name="l08310"></a><span class="lineno"> 8310</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"11"</span>, &str, &encodename) == 1) {</div><div class="line"><a name="l08311"></a><span class="lineno"> 8311</span>  encodename = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</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>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a45917d46e06b178597a556ea1237d43a">lib_fromUTF8_core</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>, str, encodename);</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> </div><div class="line"><a name="l08316"></a><span class="lineno"> 8316</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l08317"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a49f5f61641a0a4c22b079c28bdcec19f"> 8317</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a49f5f61641a0a4c22b079c28bdcec19f">ip_fromUTF8</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>)</div><div class="line"><a name="l08318"></a><span class="lineno"> 8318</span>  int <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l08319"></a><span class="lineno"> 8319</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l08320"></a><span class="lineno"> 8320</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l08321"></a><span class="lineno"> 8321</span> {</div><div class="line"><a name="l08322"></a><span class="lineno"> 8322</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> str, encodename;</div><div class="line"><a name="l08323"></a><span class="lineno"> 8323</span> </div><div class="line"><a name="l08324"></a><span class="lineno"> 8324</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d7/d19/group__defmethod.html#gaa7bed88640f01bee619f85fda09d28d7">rb_scan_args</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="stringliteral">"11"</span>, &str, &encodename) == 1) {</div><div class="line"><a name="l08325"></a><span class="lineno"> 8325</span>  encodename = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</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="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a45917d46e06b178597a556ea1237d43a">lib_fromUTF8_core</a>(<span class="keyword">self</span>, str, encodename);</div><div class="line"><a name="l08328"></a><span class="lineno"> 8328</span> }</div><div class="line"><a name="l08329"></a><span class="lineno"> 8329</span> </div><div class="line"><a name="l08330"></a><span class="lineno"> 8330</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l08331"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac958fa40a0230a89556ffb7eea35b256"> 8331</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac958fa40a0230a89556ffb7eea35b256">lib_UTF_backslash_core</a>(<span class="keyword">self</span>, str, all_bs)</div><div class="line"><a name="l08332"></a><span class="lineno"> 8332</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l08333"></a><span class="lineno"> 8333</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> str;</div><div class="line"><a name="l08334"></a><span class="lineno"> 8334</span>  <span class="keywordtype">int</span> all_bs;</div><div class="line"><a name="l08335"></a><span class="lineno"> 8335</span> {</div><div class="line"><a name="l08336"></a><span class="lineno"> 8336</span> <span class="preprocessor">#ifdef TCL_UTF_MAX</span></div><div class="line"><a name="l08337"></a><span class="lineno"> 8337</span>  <span class="keywordtype">char</span> *src_buf, *dst_buf, *ptr;</div><div class="line"><a name="l08338"></a><span class="lineno"> 8338</span>  <span class="keywordtype">int</span> read_len = 0, dst_len = 0;</div><div class="line"><a name="l08339"></a><span class="lineno"> 8339</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="l08340"></a><span class="lineno"> 8340</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l08341"></a><span class="lineno"> 8341</span> </div><div class="line"><a name="l08342"></a><span class="lineno"> 8342</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acc6e437a3e4205736d8cb9b4888762fc">tcl_stubs_check</a>();</div><div class="line"><a name="l08343"></a><span class="lineno"> 8343</span> </div><div class="line"><a name="l08344"></a><span class="lineno"> 8344</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(str);</div><div class="line"><a name="l08345"></a><span class="lineno"> 8345</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(str)) {</div><div class="line"><a name="l08346"></a><span class="lineno"> 8346</span>  <span class="keywordflow">return</span> str;</div><div class="line"><a name="l08347"></a><span class="lineno"> 8347</span>  }</div><div class="line"><a name="l08348"></a><span class="lineno"> 8348</span> </div><div class="line"><a name="l08349"></a><span class="lineno"> 8349</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l08350"></a><span class="lineno"> 8350</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l08351"></a><span class="lineno"> 8351</span> </div><div class="line"><a name="l08352"></a><span class="lineno"> 8352</span>  <span class="comment">/* src_buf = ALLOC_N(char, RSTRING_LEN(str)+1); */</span></div><div class="line"><a name="l08353"></a><span class="lineno"> 8353</span>  src_buf = ckalloc(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(str)+1);</div><div class="line"><a name="l08354"></a><span class="lineno"> 8354</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="l08355"></a><span class="lineno"> 8355</span>  Tcl_Preserve((ClientData)src_buf); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08356"></a><span class="lineno"> 8356</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08357"></a><span class="lineno"> 8357</span>  memcpy(src_buf, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(str), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(str));</div><div class="line"><a name="l08358"></a><span class="lineno"> 8358</span>  src_buf[<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(str)] = 0;</div><div class="line"><a name="l08359"></a><span class="lineno"> 8359</span> </div><div class="line"><a name="l08360"></a><span class="lineno"> 8360</span>  <span class="comment">/* dst_buf = ALLOC_N(char, RSTRING_LEN(str)+1); */</span></div><div class="line"><a name="l08361"></a><span class="lineno"> 8361</span>  dst_buf = ckalloc(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(str)+1);</div><div class="line"><a name="l08362"></a><span class="lineno"> 8362</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="l08363"></a><span class="lineno"> 8363</span>  Tcl_Preserve((ClientData)dst_buf); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08364"></a><span class="lineno"> 8364</span> <span class="preprocessor">#endif</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>  ptr = src_buf;</div><div class="line"><a name="l08367"></a><span class="lineno"> 8367</span>  <span class="keywordflow">while</span>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a>(str) > ptr - src_buf) {</div><div class="line"><a name="l08368"></a><span class="lineno"> 8368</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="l08369"></a><span class="lineno"> 8369</span>  dst_len += Tcl_UtfBackslash(ptr, &read_len, (dst_buf + dst_len));</div><div class="line"><a name="l08370"></a><span class="lineno"> 8370</span>  ptr += read_len;</div><div class="line"><a name="l08371"></a><span class="lineno"> 8371</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08372"></a><span class="lineno"> 8372</span>  *(dst_buf + (dst_len++)) = *(ptr++);</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>  }</div><div class="line"><a name="l08375"></a><span class="lineno"> 8375</span> </div><div class="line"><a name="l08376"></a><span class="lineno"> 8376</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="l08377"></a><span class="lineno"> 8377</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="l08378"></a><span class="lineno"> 8378</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l08379"></a><span class="lineno"> 8379</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a154b1f5c9c90acef2a0b248f861fea29">ENCODING_INDEX_UTF8</a>);</div><div class="line"><a name="l08380"></a><span class="lineno"> 8380</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08381"></a><span class="lineno"> 8381</span>  <a class="code" href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a>(str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8b1d6a68739d2f40636d9a8f3aea4253">ENCODING_NAME_UTF8</a>);</div><div class="line"><a name="l08382"></a><span class="lineno"> 8382</span> </div><div class="line"><a name="l08383"></a><span class="lineno"> 8383</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l08384"></a><span class="lineno"> 8384</span>  Tcl_EventuallyFree((ClientData)src_buf, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08385"></a><span class="lineno"> 8385</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08386"></a><span class="lineno"> 8386</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="l08387"></a><span class="lineno"> 8387</span>  Tcl_Release((ClientData)src_buf); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08388"></a><span class="lineno"> 8388</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08389"></a><span class="lineno"> 8389</span>  <span class="comment">/* free(src_buf); */</span></div><div class="line"><a name="l08390"></a><span class="lineno"> 8390</span>  ckfree(src_buf);</div><div class="line"><a name="l08391"></a><span class="lineno"> 8391</span> <span class="preprocessor">#endif</span></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">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l08394"></a><span class="lineno"> 8394</span>  Tcl_EventuallyFree((ClientData)dst_buf, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08395"></a><span class="lineno"> 8395</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08396"></a><span class="lineno"> 8396</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="l08397"></a><span class="lineno"> 8397</span>  Tcl_Release((ClientData)dst_buf); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08398"></a><span class="lineno"> 8398</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08399"></a><span class="lineno"> 8399</span>  <span class="comment">/* free(dst_buf); */</span></div><div class="line"><a name="l08400"></a><span class="lineno"> 8400</span>  ckfree(dst_buf);</div><div class="line"><a name="l08401"></a><span class="lineno"> 8401</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08402"></a><span class="lineno"> 8402</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08403"></a><span class="lineno"> 8403</span> </div><div class="line"><a name="l08404"></a><span class="lineno"> 8404</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l08405"></a><span class="lineno"> 8405</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08406"></a><span class="lineno"> 8406</span> </div><div class="line"><a name="l08407"></a><span class="lineno"> 8407</span>  <span class="keywordflow">return</span> str;</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> </div><div class="line"><a name="l08410"></a><span class="lineno"> 8410</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l08411"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad24910a290409c576d362d4125cb12e5"> 8411</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad24910a290409c576d362d4125cb12e5">lib_UTF_backslash</a>(<span class="keyword">self</span>, str)</div><div class="line"><a name="l08412"></a><span class="lineno"> 8412</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l08413"></a><span class="lineno"> 8413</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> str;</div><div class="line"><a name="l08414"></a><span class="lineno"> 8414</span> {</div><div class="line"><a name="l08415"></a><span class="lineno"> 8415</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac958fa40a0230a89556ffb7eea35b256">lib_UTF_backslash_core</a>(<span class="keyword">self</span>, str, 0);</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> </div><div class="line"><a name="l08418"></a><span class="lineno"> 8418</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l08419"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0323d248d302426ccb53a73749823b7d"> 8419</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0323d248d302426ccb53a73749823b7d">lib_Tcl_backslash</a>(<span class="keyword">self</span>, str)</div><div class="line"><a name="l08420"></a><span class="lineno"> 8420</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l08421"></a><span class="lineno"> 8421</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> str;</div><div class="line"><a name="l08422"></a><span class="lineno"> 8422</span> {</div><div class="line"><a name="l08423"></a><span class="lineno"> 8423</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac958fa40a0230a89556ffb7eea35b256">lib_UTF_backslash_core</a>(<span class="keyword">self</span>, str, 1);</div><div class="line"><a name="l08424"></a><span class="lineno"> 8424</span> }</div><div class="line"><a name="l08425"></a><span class="lineno"> 8425</span> </div><div class="line"><a name="l08426"></a><span class="lineno"> 8426</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l08427"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac4f692b38fb45e52602bbc57f132836c"> 8427</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4f692b38fb45e52602bbc57f132836c">lib_get_system_encoding</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l08428"></a><span class="lineno"> 8428</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l08429"></a><span class="lineno"> 8429</span> {</div><div class="line"><a name="l08430"></a><span class="lineno"> 8430</span> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION > 0)</span></div><div class="line"><a name="l08431"></a><span class="lineno"> 8431</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acc6e437a3e4205736d8cb9b4888762fc">tcl_stubs_check</a>();</div><div class="line"><a name="l08432"></a><span class="lineno"> 8432</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(Tcl_GetEncodingName((Tcl_Encoding)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>));</div><div class="line"><a name="l08433"></a><span class="lineno"> 8433</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08434"></a><span class="lineno"> 8434</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l08435"></a><span class="lineno"> 8435</span> <span class="preprocessor">#endif</span></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> </div><div class="line"><a name="l08438"></a><span class="lineno"> 8438</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l08439"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aeeb6a476660d7ec93557e9ccedde18dc"> 8439</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aeeb6a476660d7ec93557e9ccedde18dc">lib_set_system_encoding</a>(<span class="keyword">self</span>, <a class="code" href="../../d5/db5/encoding_8c.html#aa020a886cff98ea2edead4231ff72973">enc_name</a>)</div><div class="line"><a name="l08440"></a><span class="lineno"> 8440</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l08441"></a><span class="lineno"> 8441</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d5/db5/encoding_8c.html#aa020a886cff98ea2edead4231ff72973">enc_name</a>;</div><div class="line"><a name="l08442"></a><span class="lineno"> 8442</span> {</div><div class="line"><a name="l08443"></a><span class="lineno"> 8443</span> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION > 0)</span></div><div class="line"><a name="l08444"></a><span class="lineno"> 8444</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acc6e437a3e4205736d8cb9b4888762fc">tcl_stubs_check</a>();</div><div class="line"><a name="l08445"></a><span class="lineno"> 8445</span> </div><div class="line"><a name="l08446"></a><span class="lineno"> 8446</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/db5/encoding_8c.html#aa020a886cff98ea2edead4231ff72973">enc_name</a>)) {</div><div class="line"><a name="l08447"></a><span class="lineno"> 8447</span>  Tcl_SetSystemEncoding((Tcl_Interp *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l08448"></a><span class="lineno"> 8448</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4f692b38fb45e52602bbc57f132836c">lib_get_system_encoding</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l08449"></a><span class="lineno"> 8449</span>  }</div><div class="line"><a name="l08450"></a><span class="lineno"> 8450</span> </div><div class="line"><a name="l08451"></a><span class="lineno"> 8451</span>  <a class="code" href="../../d5/db5/encoding_8c.html#aa020a886cff98ea2edead4231ff72973">enc_name</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(<a class="code" href="../../d5/db5/encoding_8c.html#aa020a886cff98ea2edead4231ff72973">enc_name</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2876182790d4d4deb29d00b4048d7565">ID_to_s</a>, 0, 0);</div><div class="line"><a name="l08452"></a><span class="lineno"> 8452</span>  <span class="keywordflow">if</span> (Tcl_SetSystemEncoding((Tcl_Interp *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>,</div><div class="line"><a name="l08453"></a><span class="lineno"> 8453</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2665a51abbd5b49c15abff3df00fa9db">StringValuePtr</a>(<a class="code" href="../../d5/db5/encoding_8c.html#aa020a886cff98ea2edead4231ff72973">enc_name</a>)) != TCL_OK) {</div><div class="line"><a name="l08454"></a><span class="lineno"> 8454</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="l08455"></a><span class="lineno"> 8455</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(<a class="code" href="../../d5/db5/encoding_8c.html#aa020a886cff98ea2edead4231ff72973">enc_name</a>));</div><div class="line"><a name="l08456"></a><span class="lineno"> 8456</span>  }</div><div class="line"><a name="l08457"></a><span class="lineno"> 8457</span> </div><div class="line"><a name="l08458"></a><span class="lineno"> 8458</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/db5/encoding_8c.html#aa020a886cff98ea2edead4231ff72973">enc_name</a>;</div><div class="line"><a name="l08459"></a><span class="lineno"> 8459</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08460"></a><span class="lineno"> 8460</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l08461"></a><span class="lineno"> 8461</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08462"></a><span class="lineno"> 8462</span> }</div><div class="line"><a name="l08463"></a><span class="lineno"> 8463</span> </div><div class="line"><a name="l08464"></a><span class="lineno"> 8464</span> </div><div class="line"><a name="l08465"></a><span class="lineno"> 8465</span> <span class="comment">/* invoke Tcl proc */</span></div><div class="line"><a name="l08466"></a><span class="lineno"><a class="line" href="../../d4/d4a/structinvoke__info.html"> 8466</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="l08467"></a><span class="lineno"><a class="line" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81"> 8467</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="l08468"></a><span class="lineno"><a class="line" href="../../d4/d4a/structinvoke__info.html#a15e2c7ffe00581c53e8f493c352b55fd"> 8468</a></span>  Tcl_CmdInfo <a class="code" href="../../d4/d4a/structinvoke__info.html#a15e2c7ffe00581c53e8f493c352b55fd">cmdinfo</a>;</div><div class="line"><a name="l08469"></a><span class="lineno"> 8469</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l08470"></a><span class="lineno"> 8470</span>  <span class="keywordtype">int</span> objc;</div><div class="line"><a name="l08471"></a><span class="lineno"> 8471</span>  Tcl_Obj **objv;</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"><a class="line" href="../../d4/d4a/structinvoke__info.html#ad9c9ad4cfec1603d7a2e2bae1117df42"> 8473</a></span>  <span class="keywordtype">int</span> <a class="code" href="../../d4/d4a/structinvoke__info.html#ad9c9ad4cfec1603d7a2e2bae1117df42">argc</a>;</div><div class="line"><a name="l08474"></a><span class="lineno"><a class="line" href="../../d4/d4a/structinvoke__info.html#a89830f7e2e97e7ad0c18c0541fbef975"> 8474</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="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> };</div><div class="line"><a name="l08477"></a><span class="lineno"> 8477</span> </div><div class="line"><a name="l08478"></a><span class="lineno"> 8478</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l08479"></a><span class="lineno"> 8479</span> <span class="preprocessor">#ifdef HAVE_PROTOTYPES</span></div><div class="line"><a name="l08480"></a><span class="lineno"> 8480</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af37170bd6947038f223541fd8b2d1212">invoke_tcl_proc</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> arg)</div><div class="line"><a name="l08481"></a><span class="lineno"> 8481</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08482"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af37170bd6947038f223541fd8b2d1212"> 8482</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af37170bd6947038f223541fd8b2d1212">invoke_tcl_proc</a>(arg)</div><div class="line"><a name="l08483"></a><span class="lineno"> 8483</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> arg;</div><div class="line"><a name="l08484"></a><span class="lineno"> 8484</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08485"></a><span class="lineno"> 8485</span> {</div><div class="line"><a name="l08486"></a><span class="lineno"> 8486</span>  <span class="keyword">struct </span><a class="code" href="../../d4/d4a/structinvoke__info.html">invoke_info</a> *<a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">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="l08487"></a><span class="lineno"> 8487</span> </div><div class="line"><a name="l08488"></a><span class="lineno"> 8488</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8 && TCL_MINOR_VERSION < 6</span></div><div class="line"><a name="l08489"></a><span class="lineno"> 8489</span>  <span class="keywordtype">int</span> i, len;</div><div class="line"><a name="l08490"></a><span class="lineno"> 8490</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a> = <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->objc;</div><div class="line"><a name="l08491"></a><span class="lineno"> 8491</span>  <span class="keywordtype">char</span> **<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a> = (<span class="keywordtype">char</span> **)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</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> </div><div class="line"><a name="l08494"></a><span class="lineno"> 8494</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call invoke_tcl_proc"</span>);</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> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION >= 6)</span></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="comment">/* eval */</span></div><div class="line"><a name="l08499"></a><span class="lineno"> 8499</span>  <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->ptr->return_value = Tcl_EvalObjv(<a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->ptr->ip, <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->objc, <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->objv, TCL_EVAL_DIRECT);</div><div class="line"><a name="l08500"></a><span class="lineno"> 8500</span>  <span class="comment">/* inf->ptr->return_value = Tcl_EvalObjv(inf->ptr->ip, inf->objc, inf->objv, 0); */</span></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="preprocessor">#else </span><span class="comment">/* Tcl/Tk 7.x, 8.0 -- 8.5 */</span><span class="preprocessor"></span></div><div class="line"><a name="l08503"></a><span class="lineno"> 8503</span> </div><div class="line"><a name="l08504"></a><span class="lineno"> 8504</span>  <span class="comment">/* memory allocation for arguments of this command */</span></div><div class="line"><a name="l08505"></a><span class="lineno"> 8505</span> <span class="preprocessor">#if TCL_MAJOR_VERSION == 8</span></div><div class="line"><a name="l08506"></a><span class="lineno"> 8506</span>  <span class="comment">/* Tcl/Tk 8.0 -- 8.5 */</span></div><div class="line"><a name="l08507"></a><span class="lineno"> 8507</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->cmdinfo.isNativeObjectProc) {</div><div class="line"><a name="l08508"></a><span class="lineno"> 8508</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"called proc is not a native-obj-proc"</span>);</div><div class="line"><a name="l08509"></a><span class="lineno"> 8509</span>  <span class="comment">/* string interface */</span></div><div class="line"><a name="l08510"></a><span class="lineno"> 8510</span>  <span class="comment">/* argv = (char **)ALLOC_N(char *, argc+1);*/</span> <span class="comment">/* XXXXXXXXXX */</span></div><div class="line"><a name="l08511"></a><span class="lineno"> 8511</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(<span class="keywordtype">char</span> *, (<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>+1));</div><div class="line"><a name="l08512"></a><span class="lineno"> 8512</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="l08513"></a><span class="lineno"> 8513</span>  Tcl_Preserve((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08514"></a><span class="lineno"> 8514</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08515"></a><span class="lineno"> 8515</span>  <span class="keywordflow">for</span> (i = 0; i < <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>; ++i) {</div><div class="line"><a name="l08516"></a><span class="lineno"> 8516</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[i] = Tcl_GetStringFromObj(<a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->objv[i], &len);</div><div class="line"><a name="l08517"></a><span class="lineno"> 8517</span>  }</div><div class="line"><a name="l08518"></a><span class="lineno"> 8518</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>] = (<span class="keywordtype">char</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08519"></a><span class="lineno"> 8519</span>  }</div><div class="line"><a name="l08520"></a><span class="lineno"> 8520</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08521"></a><span class="lineno"> 8521</span> </div><div class="line"><a name="l08522"></a><span class="lineno"> 8522</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"reset result of tcl-interp"</span>);</div><div class="line"><a name="l08523"></a><span class="lineno"> 8523</span>  Tcl_ResetResult(<a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->ptr->ip);</div><div class="line"><a name="l08524"></a><span class="lineno"> 8524</span> </div><div class="line"><a name="l08525"></a><span class="lineno"> 8525</span>  <span class="comment">/* Invoke the C procedure */</span></div><div class="line"><a name="l08526"></a><span class="lineno"> 8526</span> <span class="preprocessor">#if TCL_MAJOR_VERSION == 8</span></div><div class="line"><a name="l08527"></a><span class="lineno"> 8527</span>  <span class="comment">/* Tcl/Tk 8.0 -- 8.5 */</span></div><div class="line"><a name="l08528"></a><span class="lineno"> 8528</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->cmdinfo.isNativeObjectProc) {</div><div class="line"><a name="l08529"></a><span class="lineno"> 8529</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call tcl_proc as a native-obj-proc"</span>);</div><div class="line"><a name="l08530"></a><span class="lineno"> 8530</span>  <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->ptr->return_value</div><div class="line"><a name="l08531"></a><span class="lineno"> 8531</span>  = (*(<a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->cmdinfo.objProc))(<a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->cmdinfo.objClientData,</div><div class="line"><a name="l08532"></a><span class="lineno"> 8532</span>  <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->ptr->ip, <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->objc, <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->objv);</div><div class="line"><a name="l08533"></a><span class="lineno"> 8533</span>  }</div><div class="line"><a name="l08534"></a><span class="lineno"> 8534</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l08535"></a><span class="lineno"> 8535</span> <span class="preprocessor">#endif</span></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> <span class="preprocessor">#if TCL_MAJOR_VERSION == 8</span></div><div class="line"><a name="l08538"></a><span class="lineno"> 8538</span>  <span class="comment">/* Tcl/Tk 8.0 -- 8.5 */</span></div><div class="line"><a name="l08539"></a><span class="lineno"> 8539</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"call tcl_proc as not a native-obj-proc"</span>);</div><div class="line"><a name="l08540"></a><span class="lineno"> 8540</span>  <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->ptr->return_value</div><div class="line"><a name="l08541"></a><span class="lineno"> 8541</span>  = (*(<a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->cmdinfo.proc))(<a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->cmdinfo.clientData, <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->ptr->ip,</div><div class="line"><a name="l08542"></a><span class="lineno"> 8542</span>  <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> **)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l08543"></a><span class="lineno"> 8543</span> </div><div class="line"><a name="l08544"></a><span class="lineno"> 8544</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l08545"></a><span class="lineno"> 8545</span>  Tcl_EventuallyFree((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08546"></a><span class="lineno"> 8546</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08547"></a><span class="lineno"> 8547</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="l08548"></a><span class="lineno"> 8548</span>  Tcl_Release((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08549"></a><span class="lineno"> 8549</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08550"></a><span class="lineno"> 8550</span>  <span class="comment">/* free(argv); */</span></div><div class="line"><a name="l08551"></a><span class="lineno"> 8551</span>  ckfree((<span class="keywordtype">char</span>*)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l08552"></a><span class="lineno"> 8552</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08553"></a><span class="lineno"> 8553</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08554"></a><span class="lineno"> 8554</span> </div><div class="line"><a name="l08555"></a><span class="lineno"> 8555</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l08556"></a><span class="lineno"> 8556</span>  <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->ptr->return_value</div><div class="line"><a name="l08557"></a><span class="lineno"> 8557</span>  = (*(<a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->cmdinfo.proc))(<a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->cmdinfo.clientData, <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->ptr->ip,</div><div class="line"><a name="l08558"></a><span class="lineno"> 8558</span>  <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->argc, <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>->argv);</div><div class="line"><a name="l08559"></a><span class="lineno"> 8559</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08560"></a><span class="lineno"> 8560</span>  }</div><div class="line"><a name="l08561"></a><span class="lineno"> 8561</span> </div><div class="line"><a name="l08562"></a><span class="lineno"> 8562</span> <span class="preprocessor">#endif </span><span class="comment">/* Tcl/Tk 8.6 or later || Tcl 7.x, 8.0 -- 8.5 */</span><span class="preprocessor"></span></div><div class="line"><a name="l08563"></a><span class="lineno"> 8563</span> </div><div class="line"><a name="l08564"></a><span class="lineno"> 8564</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"end of invoke_tcl_proc"</span>);</div><div class="line"><a name="l08565"></a><span class="lineno"> 8565</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l08566"></a><span class="lineno"> 8566</span> }</div><div class="line"><a name="l08567"></a><span class="lineno"> 8567</span> </div><div class="line"><a name="l08568"></a><span class="lineno"> 8568</span> </div><div class="line"><a name="l08569"></a><span class="lineno"> 8569</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l08570"></a><span class="lineno"> 8570</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l08571"></a><span class="lineno"> 8571</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9f3054e32c0839d178977ff18158150e">ip_invoke_core</a>(interp, objc, objv)</div><div class="line"><a name="l08572"></a><span class="lineno"> 8572</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l08573"></a><span class="lineno"> 8573</span>  <span class="keywordtype">int</span> objc;</div><div class="line"><a name="l08574"></a><span class="lineno"> 8574</span>  Tcl_Obj **objv;</div><div class="line"><a name="l08575"></a><span class="lineno"> 8575</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08576"></a><span class="lineno"> 8576</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l08577"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a9f3054e32c0839d178977ff18158150e"> 8577</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9f3054e32c0839d178977ff18158150e">ip_invoke_core</a>(interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l08578"></a><span class="lineno"> 8578</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l08579"></a><span class="lineno"> 8579</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l08580"></a><span class="lineno"> 8580</span>  <span class="keywordtype">char</span> **<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l08581"></a><span class="lineno"> 8581</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08582"></a><span class="lineno"> 8582</span> {</div><div class="line"><a name="l08583"></a><span class="lineno"> 8583</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div><div class="line"><a name="l08584"></a><span class="lineno"> 8584</span>  Tcl_CmdInfo info;</div><div class="line"><a name="l08585"></a><span class="lineno"> 8585</span>  <span class="keywordtype">char</span> *cmd;</div><div class="line"><a name="l08586"></a><span class="lineno"> 8586</span>  <span class="keywordtype">int</span> len;</div><div class="line"><a name="l08587"></a><span class="lineno"> 8587</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l08588"></a><span class="lineno"> 8588</span>  <span class="keywordtype">int</span> unknown_flag = 0;</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="preprocessor">#if 1 </span><span class="comment">/* wrap tcl-proc call */</span><span class="preprocessor"></span></div><div class="line"><a name="l08591"></a><span class="lineno"> 8591</span>  <span class="keyword">struct </span><a class="code" href="../../d4/d4a/structinvoke__info.html">invoke_info</a> <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>;</div><div class="line"><a name="l08592"></a><span class="lineno"> 8592</span>  <span class="keywordtype">int</span> status;</div><div class="line"><a name="l08593"></a><span class="lineno"> 8593</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08594"></a><span class="lineno"> 8594</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l08595"></a><span class="lineno"> 8595</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a> = objc;</div><div class="line"><a name="l08596"></a><span class="lineno"> 8596</span>  <span class="keywordtype">char</span> **<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a> = (<span class="keywordtype">char</span> **)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08597"></a><span class="lineno"> 8597</span>  <span class="comment">/* Tcl_Obj *resultPtr; */</span></div><div class="line"><a name="l08598"></a><span class="lineno"> 8598</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08599"></a><span class="lineno"> 8599</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08600"></a><span class="lineno"> 8600</span> </div><div class="line"><a name="l08601"></a><span class="lineno"> 8601</span>  <span class="comment">/* get the data struct */</span></div><div class="line"><a name="l08602"></a><span class="lineno"> 8602</span>  <a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</div><div class="line"><a name="l08603"></a><span class="lineno"> 8603</span> </div><div class="line"><a name="l08604"></a><span class="lineno"> 8604</span>  <span class="comment">/* get the command name string */</span></div><div class="line"><a name="l08605"></a><span class="lineno"> 8605</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l08606"></a><span class="lineno"> 8606</span>  cmd = Tcl_GetStringFromObj(objv[0], &len);</div><div class="line"><a name="l08607"></a><span class="lineno"> 8607</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l08608"></a><span class="lineno"> 8608</span>  cmd = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[0];</div><div class="line"><a name="l08609"></a><span class="lineno"> 8609</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08610"></a><span class="lineno"> 8610</span> </div><div class="line"><a name="l08611"></a><span class="lineno"> 8611</span>  <span class="comment">/* get the data struct */</span></div><div class="line"><a name="l08612"></a><span class="lineno"> 8612</span>  <a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</div><div class="line"><a name="l08613"></a><span class="lineno"> 8613</span> </div><div class="line"><a name="l08614"></a><span class="lineno"> 8614</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l08615"></a><span class="lineno"> 8615</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(<a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>)) {</div><div class="line"><a name="l08616"></a><span class="lineno"> 8616</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l08617"></a><span class="lineno"> 8617</span>  }</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>  <span class="comment">/* Tcl_Preserve(ptr->ip); */</span></div><div class="line"><a name="l08620"></a><span class="lineno"> 8620</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a55dbead056a35cc4c3bcdaefe23e6252">rbtk_preserve_ip</a>(<a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>);</div><div class="line"><a name="l08621"></a><span class="lineno"> 8621</span> </div><div class="line"><a name="l08622"></a><span class="lineno"> 8622</span>  <span class="comment">/* map from the command name to a C procedure */</span></div><div class="line"><a name="l08623"></a><span class="lineno"> 8623</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="l08624"></a><span class="lineno"> 8624</span>  <span class="keywordflow">if</span> (!Tcl_GetCommandInfo(<a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, cmd, &info)) {</div><div class="line"><a name="l08625"></a><span class="lineno"> 8625</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="l08626"></a><span class="lineno"> 8626</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="l08627"></a><span class="lineno"> 8627</span>  <span class="keywordflow">if</span> (!Tcl_GetCommandInfo(<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="l08628"></a><span class="lineno"> 8628</span> #<span class="keywordflow">if</span> TCL_MAJOR_VERSION >= 8</div><div class="line"><a name="l08629"></a><span class="lineno"> 8629</span>  <span class="stringliteral">"::unknown"</span>,</div><div class="line"><a name="l08630"></a><span class="lineno"> 8630</span> #<span class="keywordflow">else</span></div><div class="line"><a name="l08631"></a><span class="lineno"> 8631</span>  <span class="stringliteral">"unknown"</span>,</div><div class="line"><a name="l08632"></a><span class="lineno"> 8632</span> #endif</div><div class="line"><a name="l08633"></a><span class="lineno"> 8633</span>  &info)) {</div><div class="line"><a name="l08634"></a><span class="lineno"> 8634</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="l08635"></a><span class="lineno"> 8635</span>  <span class="comment">/* if (event_loop_abort_on_exc || cmd[0] != '.') { */</span></div><div class="line"><a name="l08636"></a><span class="lineno"> 8636</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8b4f77514e0422a4f7597d3ba5728ea">event_loop_abort_on_exc</a> > 0) {</div><div class="line"><a name="l08637"></a><span class="lineno"> 8637</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div><div class="line"><a name="l08638"></a><span class="lineno"> 8638</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(<a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>);</div><div class="line"><a name="l08639"></a><span class="lineno"> 8639</span>  <span class="comment">/*rb_ip_raise(obj,rb_eNameError,"invalid command name `%s'",cmd);*/</span></div><div class="line"><a name="l08640"></a><span class="lineno"> 8640</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(interp, <a class="code" href="../../db/dcc/error_8c.html#a83f38068d329a7f4e8e8687b00aa4062">rb_eNameError</a>,</div><div class="line"><a name="l08641"></a><span class="lineno"> 8641</span>  <span class="stringliteral">"invalid command name `%s'"</span>, cmd);</div><div class="line"><a name="l08642"></a><span class="lineno"> 8642</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08643"></a><span class="lineno"> 8643</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8b4f77514e0422a4f7597d3ba5728ea">event_loop_abort_on_exc</a> < 0) {</div><div class="line"><a name="l08644"></a><span class="lineno"> 8644</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="l08645"></a><span class="lineno"> 8645</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08646"></a><span class="lineno"> 8646</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="l08647"></a><span class="lineno"> 8647</span>  }</div><div class="line"><a name="l08648"></a><span class="lineno"> 8648</span>  Tcl_ResetResult(<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="l08649"></a><span class="lineno"> 8649</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div><div class="line"><a name="l08650"></a><span class="lineno"> 8650</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(<a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>);</div><div class="line"><a name="l08651"></a><span class="lineno"> 8651</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l08652"></a><span class="lineno"> 8652</span>  }</div><div class="line"><a name="l08653"></a><span class="lineno"> 8653</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08654"></a><span class="lineno"> 8654</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l08655"></a><span class="lineno"> 8655</span>  Tcl_Obj **unknown_objv;</div><div class="line"><a name="l08656"></a><span class="lineno"> 8656</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08657"></a><span class="lineno"> 8657</span>  <span class="keywordtype">char</span> **unknown_argv;</div><div class="line"><a name="l08658"></a><span class="lineno"> 8658</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08659"></a><span class="lineno"> 8659</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="l08660"></a><span class="lineno"> 8660</span>  unknown_flag = 1;</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 TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l08663"></a><span class="lineno"> 8663</span>  <span class="comment">/* unknown_objv = (Tcl_Obj **)ALLOC_N(Tcl_Obj *, objc+2); */</span></div><div class="line"><a name="l08664"></a><span class="lineno"> 8664</span>  unknown_objv = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(Tcl_Obj *, (objc+2));</div><div class="line"><a name="l08665"></a><span class="lineno"> 8665</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="l08666"></a><span class="lineno"> 8666</span>  Tcl_Preserve((ClientData)unknown_objv); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08667"></a><span class="lineno"> 8667</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08668"></a><span class="lineno"> 8668</span>  unknown_objv[0] = Tcl_NewStringObj(<span class="stringliteral">"::unknown"</span>, 9);</div><div class="line"><a name="l08669"></a><span class="lineno"> 8669</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(unknown_objv[0]);</div><div class="line"><a name="l08670"></a><span class="lineno"> 8670</span>  memcpy(unknown_objv + 1, objv, <span class="keyword">sizeof</span>(Tcl_Obj *)*objc);</div><div class="line"><a name="l08671"></a><span class="lineno"> 8671</span>  unknown_objv[++objc] = (Tcl_Obj*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08672"></a><span class="lineno"> 8672</span>  objv = unknown_objv;</div><div class="line"><a name="l08673"></a><span class="lineno"> 8673</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08674"></a><span class="lineno"> 8674</span>  <span class="comment">/* unknown_argv = (char **)ALLOC_N(char *, argc+2); */</span></div><div class="line"><a name="l08675"></a><span class="lineno"> 8675</span>  unknown_argv = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(<span class="keywordtype">char</span> *, (<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>+2));</div><div class="line"><a name="l08676"></a><span class="lineno"> 8676</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="l08677"></a><span class="lineno"> 8677</span>  Tcl_Preserve((ClientData)unknown_argv); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08678"></a><span class="lineno"> 8678</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08679"></a><span class="lineno"> 8679</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="l08680"></a><span class="lineno"> 8680</span>  memcpy(unknown_argv + 1, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">sizeof</span>(<span class="keywordtype">char</span> *)*<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>);</div><div class="line"><a name="l08681"></a><span class="lineno"> 8681</span>  unknown_argv[++<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>] = (<span class="keywordtype">char</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08682"></a><span class="lineno"> 8682</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a> = unknown_argv;</div><div class="line"><a name="l08683"></a><span class="lineno"> 8683</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08684"></a><span class="lineno"> 8684</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>  <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="l08687"></a><span class="lineno"> 8687</span> </div><div class="line"><a name="l08688"></a><span class="lineno"> 8688</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l08689"></a><span class="lineno"> 8689</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l08690"></a><span class="lineno"> 8690</span> </div><div class="line"><a name="l08691"></a><span class="lineno"> 8691</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="l08692"></a><span class="lineno"> 8692</span>  <span class="comment">/* setup params */</span></div><div class="line"><a name="l08693"></a><span class="lineno"> 8693</span>  <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>.ptr = <a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>;</div><div class="line"><a name="l08694"></a><span class="lineno"> 8694</span>  <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>.cmdinfo = info;</div><div class="line"><a name="l08695"></a><span class="lineno"> 8695</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l08696"></a><span class="lineno"> 8696</span>  <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>.objc = objc;</div><div class="line"><a name="l08697"></a><span class="lineno"> 8697</span>  <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>.objv = objv;</div><div class="line"><a name="l08698"></a><span class="lineno"> 8698</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08699"></a><span class="lineno"> 8699</span>  <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>.argc = <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l08700"></a><span class="lineno"> 8700</span>  <a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>.argv = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l08701"></a><span class="lineno"> 8701</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08702"></a><span class="lineno"> 8702</span> </div><div class="line"><a name="l08703"></a><span class="lineno"> 8703</span>  <span class="comment">/* invoke tcl-proc */</span></div><div class="line"><a name="l08704"></a><span class="lineno"> 8704</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5f41d856fdd02f7cc90b9f33be456095">DUMP1</a>(<span class="stringliteral">"invoke tcl-proc"</span>);</div><div class="line"><a name="l08705"></a><span class="lineno"> 8705</span>  <a class="code" href="../../d3/d57/eval_8c.html#a6aa7fb1169ed41978a16375b6f921b0e">rb_protect</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#af37170bd6947038f223541fd8b2d1212">invoke_tcl_proc</a>, (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)&<a class="code" href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a>, &status);</div><div class="line"><a name="l08706"></a><span class="lineno"> 8706</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"status of tcl-proc, %d"</span>, status);</div><div class="line"><a name="l08707"></a><span class="lineno"> 8707</span>  <span class="keywordflow">switch</span>(status) {</div><div class="line"><a name="l08708"></a><span class="lineno"> 8708</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="l08709"></a><span class="lineno"> 8709</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="l08710"></a><span class="lineno"> 8710</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a>(<a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>,</div><div class="line"><a name="l08711"></a><span class="lineno"> 8711</span>  <span class="stringliteral">"unknown exception"</span>);</div><div class="line"><a name="l08712"></a><span class="lineno"> 8712</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08713"></a><span class="lineno"> 8713</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div><div class="line"><a name="l08714"></a><span class="lineno"> 8714</span>  }</div><div class="line"><a name="l08715"></a><span class="lineno"> 8715</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l08716"></a><span class="lineno"> 8716</span> </div><div class="line"><a name="l08717"></a><span class="lineno"> 8717</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="l08718"></a><span class="lineno"> 8718</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="l08719"></a><span class="lineno"> 8719</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">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="l08720"></a><span class="lineno"> 8720</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08721"></a><span class="lineno"> 8721</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a89cd18829599d193ee75073219cc42c4">rb_errinfo</a>();</div><div class="line"><a name="l08722"></a><span class="lineno"> 8722</span>  }</div><div class="line"><a name="l08723"></a><span class="lineno"> 8723</span>  }</div><div class="line"><a name="l08724"></a><span class="lineno"> 8724</span> </div><div class="line"><a name="l08725"></a><span class="lineno"> 8725</span> <span class="preprocessor">#else </span><span class="comment">/* !wrap tcl-proc call */</span><span class="preprocessor"></span></div><div class="line"><a name="l08726"></a><span class="lineno"> 8726</span> </div><div class="line"><a name="l08727"></a><span class="lineno"> 8727</span>  <span class="comment">/* memory allocation for arguments of this command */</span></div><div class="line"><a name="l08728"></a><span class="lineno"> 8728</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l08729"></a><span class="lineno"> 8729</span>  <span class="keywordflow">if</span> (!info.isNativeObjectProc) {</div><div class="line"><a name="l08730"></a><span class="lineno"> 8730</span>  <span class="keywordtype">int</span> i;</div><div class="line"><a name="l08731"></a><span class="lineno"> 8731</span> </div><div class="line"><a name="l08732"></a><span class="lineno"> 8732</span>  <span class="comment">/* string interface */</span></div><div class="line"><a name="l08733"></a><span class="lineno"> 8733</span>  <span class="comment">/* argv = (char **)ALLOC_N(char *, argc+1); */</span></div><div class="line"><a name="l08734"></a><span class="lineno"> 8734</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(<span class="keywordtype">char</span> *, (<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>+1));</div><div class="line"><a name="l08735"></a><span class="lineno"> 8735</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="l08736"></a><span class="lineno"> 8736</span>  Tcl_Preserve((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08737"></a><span class="lineno"> 8737</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08738"></a><span class="lineno"> 8738</span>  <span class="keywordflow">for</span> (i = 0; i < <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>; ++i) {</div><div class="line"><a name="l08739"></a><span class="lineno"> 8739</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[i] = Tcl_GetStringFromObj(objv[i], &len);</div><div class="line"><a name="l08740"></a><span class="lineno"> 8740</span>  }</div><div class="line"><a name="l08741"></a><span class="lineno"> 8741</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>] = (<span class="keywordtype">char</span> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08742"></a><span class="lineno"> 8742</span>  }</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> </div><div class="line"><a name="l08745"></a><span class="lineno"> 8745</span>  Tcl_ResetResult(<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="l08746"></a><span class="lineno"> 8746</span> </div><div class="line"><a name="l08747"></a><span class="lineno"> 8747</span>  <span class="comment">/* Invoke the C procedure */</span></div><div class="line"><a name="l08748"></a><span class="lineno"> 8748</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l08749"></a><span class="lineno"> 8749</span>  <span class="keywordflow">if</span> (info.isNativeObjectProc) {</div><div class="line"><a name="l08750"></a><span class="lineno"> 8750</span>  <a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = (*info.objProc)(info.objClientData, <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="l08751"></a><span class="lineno"> 8751</span>  objc, objv);</div><div class="line"><a name="l08752"></a><span class="lineno"> 8752</span> <span class="preprocessor">#if 0</span></div><div class="line"><a name="l08753"></a><span class="lineno"> 8753</span>  <span class="comment">/* get the string value from the result object */</span></div><div class="line"><a name="l08754"></a><span class="lineno"> 8754</span>  resultPtr = Tcl_GetObjResult(<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="l08755"></a><span class="lineno"> 8755</span>  Tcl_SetResult(<a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, Tcl_GetStringFromObj(resultPtr, &len),</div><div class="line"><a name="l08756"></a><span class="lineno"> 8756</span>  TCL_VOLATILE);</div><div class="line"><a name="l08757"></a><span class="lineno"> 8757</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08758"></a><span class="lineno"> 8758</span>  }</div><div class="line"><a name="l08759"></a><span class="lineno"> 8759</span>  <span class="keywordflow">else</span></div><div class="line"><a name="l08760"></a><span class="lineno"> 8760</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08761"></a><span class="lineno"> 8761</span>  {</div><div class="line"><a name="l08762"></a><span class="lineno"> 8762</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l08763"></a><span class="lineno"> 8763</span>  <a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = (*info.proc)(info.clientData, <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="l08764"></a><span class="lineno"> 8764</span>  <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac0e3ea2fc8f0340072cc2f98f2d05fbd">CONST84</a> <span class="keywordtype">char</span> **)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l08765"></a><span class="lineno"> 8765</span> </div><div class="line"><a name="l08766"></a><span class="lineno"> 8766</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l08767"></a><span class="lineno"> 8767</span>  Tcl_EventuallyFree((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08768"></a><span class="lineno"> 8768</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08769"></a><span class="lineno"> 8769</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="l08770"></a><span class="lineno"> 8770</span>  Tcl_Release((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08771"></a><span class="lineno"> 8771</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08772"></a><span class="lineno"> 8772</span>  <span class="comment">/* free(argv); */</span></div><div class="line"><a name="l08773"></a><span class="lineno"> 8773</span>  ckfree((<span class="keywordtype">char</span>*)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l08774"></a><span class="lineno"> 8774</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08775"></a><span class="lineno"> 8775</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08776"></a><span class="lineno"> 8776</span> </div><div class="line"><a name="l08777"></a><span class="lineno"> 8777</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l08778"></a><span class="lineno"> 8778</span>  <a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> = (*info.proc)(info.clientData, <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="l08779"></a><span class="lineno"> 8779</span>  <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l08780"></a><span class="lineno"> 8780</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08781"></a><span class="lineno"> 8781</span>  }</div><div class="line"><a name="l08782"></a><span class="lineno"> 8782</span> <span class="preprocessor">#endif </span><span class="comment">/* ! wrap tcl-proc call */</span><span class="preprocessor"></span></div><div class="line"><a name="l08783"></a><span class="lineno"> 8783</span> </div><div class="line"><a name="l08784"></a><span class="lineno"> 8784</span>  <span class="comment">/* free allocated memory for calling 'unknown' command */</span></div><div class="line"><a name="l08785"></a><span class="lineno"> 8785</span>  <span class="keywordflow">if</span> (unknown_flag) {</div><div class="line"><a name="l08786"></a><span class="lineno"> 8786</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l08787"></a><span class="lineno"> 8787</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[0]);</div><div class="line"><a name="l08788"></a><span class="lineno"> 8788</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l08789"></a><span class="lineno"> 8789</span>  Tcl_EventuallyFree((ClientData)objv, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08790"></a><span class="lineno"> 8790</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08791"></a><span class="lineno"> 8791</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="l08792"></a><span class="lineno"> 8792</span>  Tcl_Release((ClientData)objv); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08793"></a><span class="lineno"> 8793</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08794"></a><span class="lineno"> 8794</span>  <span class="comment">/* free(objv); */</span></div><div class="line"><a name="l08795"></a><span class="lineno"> 8795</span>  ckfree((<span class="keywordtype">char</span>*)objv);</div><div class="line"><a name="l08796"></a><span class="lineno"> 8796</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08797"></a><span class="lineno"> 8797</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08798"></a><span class="lineno"> 8798</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l08799"></a><span class="lineno"> 8799</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#a18100522f0b19b5e9b9875f5737a9386">free</a>(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[0]);</div><div class="line"><a name="l08800"></a><span class="lineno"> 8800</span>  <span class="comment">/* ckfree(argv[0]); */</span></div><div class="line"><a name="l08801"></a><span class="lineno"> 8801</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l08802"></a><span class="lineno"> 8802</span>  Tcl_EventuallyFree((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08803"></a><span class="lineno"> 8803</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08804"></a><span class="lineno"> 8804</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="l08805"></a><span class="lineno"> 8805</span>  Tcl_Release((ClientData)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08806"></a><span class="lineno"> 8806</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08807"></a><span class="lineno"> 8807</span>  <span class="comment">/* free(argv); */</span></div><div class="line"><a name="l08808"></a><span class="lineno"> 8808</span>  ckfree((<span class="keywordtype">char</span>*)<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l08809"></a><span class="lineno"> 8809</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08810"></a><span class="lineno"> 8810</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08811"></a><span class="lineno"> 8811</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08812"></a><span class="lineno"> 8812</span>  }</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>  <span class="comment">/* exception on mainloop */</span></div><div class="line"><a name="l08815"></a><span class="lineno"> 8815</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a93291afcb7ee52da109bc8967a61d81f">pending_exception_check1</a>(thr_crit_bup, <a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>)) {</div><div class="line"><a name="l08816"></a><span class="lineno"> 8816</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>;</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>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l08820"></a><span class="lineno"> 8820</span> </div><div class="line"><a name="l08821"></a><span class="lineno"> 8821</span>  <span class="comment">/* if (ptr->return_value == TCL_ERROR) { */</span></div><div class="line"><a name="l08822"></a><span class="lineno"> 8822</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d4/d4a/structinvoke__info.html#af88357514c09a81e4bd4abc3cdb27c81">ptr</a>-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> != TCL_OK) {</div><div class="line"><a name="l08823"></a><span class="lineno"> 8823</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8b4f77514e0422a4f7597d3ba5728ea">event_loop_abort_on_exc</a> > 0 && !Tcl_InterpDeleted(<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="l08824"></a><span class="lineno"> 8824</span>  <span class="keywordflow">switch</span> (<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="l08825"></a><span class="lineno"> 8825</span>  <span class="keywordflow">case</span> TCL_RETURN:</div><div class="line"><a name="l08826"></a><span class="lineno"> 8826</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(interp, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7a2cabfa69c181ac17f416e6c78f4fd9">eTkCallbackReturn</a>,</div><div class="line"><a name="l08827"></a><span class="lineno"> 8827</span>  <span class="stringliteral">"ip_invoke_core receives TCL_RETURN"</span>);</div><div class="line"><a name="l08828"></a><span class="lineno"> 8828</span>  <span class="keywordflow">case</span> TCL_BREAK:</div><div class="line"><a name="l08829"></a><span class="lineno"> 8829</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(interp, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7fefdc0a0bdb479dcd15d610533497d6">eTkCallbackBreak</a>,</div><div class="line"><a name="l08830"></a><span class="lineno"> 8830</span>  <span class="stringliteral">"ip_invoke_core receives TCL_BREAK"</span>);</div><div class="line"><a name="l08831"></a><span class="lineno"> 8831</span>  <span class="keywordflow">case</span> TCL_CONTINUE:</div><div class="line"><a name="l08832"></a><span class="lineno"> 8832</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(interp, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5ae51f46018b1ae0a423aca2b89bf7ab">eTkCallbackContinue</a>,</div><div class="line"><a name="l08833"></a><span class="lineno"> 8833</span>  <span class="stringliteral">"ip_invoke_core receives TCL_CONTINUE"</span>);</div><div class="line"><a name="l08834"></a><span class="lineno"> 8834</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l08835"></a><span class="lineno"> 8835</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(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="l08836"></a><span class="lineno"> 8836</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae9a481084d28da8dd65ea016ce68a4c1">Tcl_GetStringResult</a>(<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="l08837"></a><span class="lineno"> 8837</span>  }</div><div class="line"><a name="l08838"></a><span class="lineno"> 8838</span> </div><div class="line"><a name="l08839"></a><span class="lineno"> 8839</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08840"></a><span class="lineno"> 8840</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae8b4f77514e0422a4f7597d3ba5728ea">event_loop_abort_on_exc</a> < 0) {</div><div class="line"><a name="l08841"></a><span class="lineno"> 8841</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>(<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="l08842"></a><span class="lineno"> 8842</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l08843"></a><span class="lineno"> 8843</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>(<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="l08844"></a><span class="lineno"> 8844</span>  }</div><div class="line"><a name="l08845"></a><span class="lineno"> 8845</span>  Tcl_ResetResult(<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="l08846"></a><span class="lineno"> 8846</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l08847"></a><span class="lineno"> 8847</span>  }</div><div class="line"><a name="l08848"></a><span class="lineno"> 8848</span>  }</div><div class="line"><a name="l08849"></a><span class="lineno"> 8849</span> </div><div class="line"><a name="l08850"></a><span class="lineno"> 8850</span>  <span class="comment">/* pass back the result (as string) */</span></div><div class="line"><a name="l08851"></a><span class="lineno"> 8851</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#add644d94ab52340375fda4f35eb8847b">ip_get_result_string_obj</a>(<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="l08852"></a><span class="lineno"> 8852</span> }</div><div class="line"><a name="l08853"></a><span class="lineno"> 8853</span> </div><div class="line"><a name="l08854"></a><span class="lineno"> 8854</span> </div><div class="line"><a name="l08855"></a><span class="lineno"> 8855</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l08856"></a><span class="lineno"> 8856</span> <span class="keyword">static</span> Tcl_Obj **</div><div class="line"><a name="l08857"></a><span class="lineno"> 8857</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l08858"></a><span class="lineno"> 8858</span> <span class="keyword">static</span> <span class="keywordtype">char</span> **</div><div class="line"><a name="l08859"></a><span class="lineno"> 8859</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08860"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae148015393811a58ebcacc8780449454"> 8860</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae148015393811a58ebcacc8780449454">alloc_invoke_arguments</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l08861"></a><span class="lineno"> 8861</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l08862"></a><span class="lineno"> 8862</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l08863"></a><span class="lineno"> 8863</span> {</div><div class="line"><a name="l08864"></a><span class="lineno"> 8864</span>  <span class="keywordtype">int</span> i;</div><div class="line"><a name="l08865"></a><span class="lineno"> 8865</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l08866"></a><span class="lineno"> 8866</span> </div><div class="line"><a name="l08867"></a><span class="lineno"> 8867</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l08868"></a><span class="lineno"> 8868</span>  Tcl_Obj **av;</div><div class="line"><a name="l08869"></a><span class="lineno"> 8869</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l08870"></a><span class="lineno"> 8870</span>  <span class="keywordtype">char</span> **av;</div><div class="line"><a name="l08871"></a><span class="lineno"> 8871</span> <span class="preprocessor">#endif</span></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>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l08874"></a><span class="lineno"> 8874</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</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="comment">/* memory allocation */</span></div><div class="line"><a name="l08877"></a><span class="lineno"> 8877</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l08878"></a><span class="lineno"> 8878</span>  <span class="comment">/* av = ALLOC_N(Tcl_Obj *, argc+1);*/</span> <span class="comment">/* XXXXXXXXXX */</span></div><div class="line"><a name="l08879"></a><span class="lineno"> 8879</span>  av = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(Tcl_Obj *, (<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>+1));</div><div class="line"><a name="l08880"></a><span class="lineno"> 8880</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="l08881"></a><span class="lineno"> 8881</span>  Tcl_Preserve((ClientData)av); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08882"></a><span class="lineno"> 8882</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08883"></a><span class="lineno"> 8883</span>  <span class="keywordflow">for</span> (i = 0; i < <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>; ++i) {</div><div class="line"><a name="l08884"></a><span class="lineno"> 8884</span>  av[i] = get_obj_from_str(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[i]);</div><div class="line"><a name="l08885"></a><span class="lineno"> 8885</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(av[i]);</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>  av[<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>] = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08888"></a><span class="lineno"> 8888</span> </div><div class="line"><a name="l08889"></a><span class="lineno"> 8889</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l08890"></a><span class="lineno"> 8890</span>  <span class="comment">/* string interface */</span></div><div class="line"><a name="l08891"></a><span class="lineno"> 8891</span>  <span class="comment">/* av = ALLOC_N(char *, argc+1); */</span></div><div class="line"><a name="l08892"></a><span class="lineno"> 8892</span>  av = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(<span class="keywordtype">char</span> *, (<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>+1));</div><div class="line"><a name="l08893"></a><span class="lineno"> 8893</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="l08894"></a><span class="lineno"> 8894</span>  Tcl_Preserve((ClientData)av); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08895"></a><span class="lineno"> 8895</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08896"></a><span class="lineno"> 8896</span>  <span class="keywordflow">for</span> (i = 0; i < <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>; ++i) {</div><div class="line"><a name="l08897"></a><span class="lineno"> 8897</span>  av[i] = <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>(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[i]));</div><div class="line"><a name="l08898"></a><span class="lineno"> 8898</span>  }</div><div class="line"><a name="l08899"></a><span class="lineno"> 8899</span>  av[<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>] = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08900"></a><span class="lineno"> 8900</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08901"></a><span class="lineno"> 8901</span> </div><div class="line"><a name="l08902"></a><span class="lineno"> 8902</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l08903"></a><span class="lineno"> 8903</span> </div><div class="line"><a name="l08904"></a><span class="lineno"> 8904</span>  <span class="keywordflow">return</span> av;</div><div class="line"><a name="l08905"></a><span class="lineno"> 8905</span> }</div><div class="line"><a name="l08906"></a><span class="lineno"> 8906</span> </div><div class="line"><a name="l08907"></a><span class="lineno"> 8907</span> <span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line"><a name="l08908"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0a1859b3a5ea76d143c6ddcdb7d87b82"> 8908</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0a1859b3a5ea76d143c6ddcdb7d87b82">free_invoke_arguments</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, av)</div><div class="line"><a name="l08909"></a><span class="lineno"> 8909</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l08910"></a><span class="lineno"> 8910</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l08911"></a><span class="lineno"> 8911</span>  Tcl_Obj **av;</div><div class="line"><a name="l08912"></a><span class="lineno"> 8912</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l08913"></a><span class="lineno"> 8913</span>  <span class="keywordtype">char</span> **av;</div><div class="line"><a name="l08914"></a><span class="lineno"> 8914</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08915"></a><span class="lineno"> 8915</span> {</div><div class="line"><a name="l08916"></a><span class="lineno"> 8916</span>  <span class="keywordtype">int</span> i;</div><div class="line"><a name="l08917"></a><span class="lineno"> 8917</span> </div><div class="line"><a name="l08918"></a><span class="lineno"> 8918</span>  <span class="keywordflow">for</span> (i = 0; i < <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>; ++i) {</div><div class="line"><a name="l08919"></a><span class="lineno"> 8919</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l08920"></a><span class="lineno"> 8920</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(av[i]);</div><div class="line"><a name="l08921"></a><span class="lineno"> 8921</span>  av[i] = (Tcl_Obj*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08922"></a><span class="lineno"> 8922</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l08923"></a><span class="lineno"> 8923</span>  <a class="code" href="../../d2/d99/win32ole_8c.html#a18100522f0b19b5e9b9875f5737a9386">free</a>(av[i]);</div><div class="line"><a name="l08924"></a><span class="lineno"> 8924</span>  av[i] = (<span class="keywordtype">char</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08925"></a><span class="lineno"> 8925</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08926"></a><span class="lineno"> 8926</span>  }</div><div class="line"><a name="l08927"></a><span class="lineno"> 8927</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l08928"></a><span class="lineno"> 8928</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l08929"></a><span class="lineno"> 8929</span>  Tcl_EventuallyFree((ClientData)av, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08930"></a><span class="lineno"> 8930</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08931"></a><span class="lineno"> 8931</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="l08932"></a><span class="lineno"> 8932</span>  Tcl_Release((ClientData)av); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08933"></a><span class="lineno"> 8933</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08934"></a><span class="lineno"> 8934</span>  ckfree((<span class="keywordtype">char</span>*)av);</div><div class="line"><a name="l08935"></a><span class="lineno"> 8935</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08936"></a><span class="lineno"> 8936</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08937"></a><span class="lineno"> 8937</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l08938"></a><span class="lineno"> 8938</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l08939"></a><span class="lineno"> 8939</span>  Tcl_EventuallyFree((ClientData)av, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08940"></a><span class="lineno"> 8940</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08941"></a><span class="lineno"> 8941</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="l08942"></a><span class="lineno"> 8942</span>  Tcl_Release((ClientData)av); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l08943"></a><span class="lineno"> 8943</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l08944"></a><span class="lineno"> 8944</span>  <span class="comment">/* free(av); */</span></div><div class="line"><a name="l08945"></a><span class="lineno"> 8945</span>  ckfree((<span class="keywordtype">char</span>*)av);</div><div class="line"><a name="l08946"></a><span class="lineno"> 8946</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08947"></a><span class="lineno"> 8947</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08948"></a><span class="lineno"> 8948</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08949"></a><span class="lineno"> 8949</span> }</div><div class="line"><a name="l08950"></a><span class="lineno"> 8950</span> </div><div class="line"><a name="l08951"></a><span class="lineno"> 8951</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l08952"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a66202a95d332ce6cd9f69921873ae7c0"> 8952</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a66202a95d332ce6cd9f69921873ae7c0">ip_invoke_real</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, interp)</div><div class="line"><a name="l08953"></a><span class="lineno"> 8953</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l08954"></a><span class="lineno"> 8954</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l08955"></a><span class="lineno"> 8955</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</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>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> v;</div><div class="line"><a name="l08958"></a><span class="lineno"> 8958</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr; <span class="comment">/* tcltkip data struct */</span></div><div class="line"><a name="l08959"></a><span class="lineno"> 8959</span> </div><div class="line"><a name="l08960"></a><span class="lineno"> 8960</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l08961"></a><span class="lineno"> 8961</span>  Tcl_Obj **av = (Tcl_Obj **)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08962"></a><span class="lineno"> 8962</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l08963"></a><span class="lineno"> 8963</span>  <span class="keywordtype">char</span> **av = (<span class="keywordtype">char</span> **)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l08964"></a><span class="lineno"> 8964</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l08965"></a><span class="lineno"> 8965</span> </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">"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="l08967"></a><span class="lineno"> 8967</span> </div><div class="line"><a name="l08968"></a><span class="lineno"> 8968</span>  <span class="comment">/* get the data struct */</span></div><div class="line"><a name="l08969"></a><span class="lineno"> 8969</span>  ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</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="comment">/* ip is deleted? */</span></div><div class="line"><a name="l08972"></a><span class="lineno"> 8972</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l08973"></a><span class="lineno"> 8973</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l08974"></a><span class="lineno"> 8974</span>  }</div><div class="line"><a name="l08975"></a><span class="lineno"> 8975</span> </div><div class="line"><a name="l08976"></a><span class="lineno"> 8976</span>  <span class="comment">/* allocate memory for arguments */</span></div><div class="line"><a name="l08977"></a><span class="lineno"> 8977</span>  av = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae148015393811a58ebcacc8780449454">alloc_invoke_arguments</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l08978"></a><span class="lineno"> 8978</span> </div><div class="line"><a name="l08979"></a><span class="lineno"> 8979</span>  <span class="comment">/* Invoke the C procedure */</span></div><div class="line"><a name="l08980"></a><span class="lineno"> 8980</span>  Tcl_ResetResult(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l08981"></a><span class="lineno"> 8981</span>  v = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9f3054e32c0839d178977ff18158150e">ip_invoke_core</a>(interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, av);</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>  <span class="comment">/* free allocated memory */</span></div><div class="line"><a name="l08984"></a><span class="lineno"> 8984</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0a1859b3a5ea76d143c6ddcdb7d87b82">free_invoke_arguments</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, av);</div><div class="line"><a name="l08985"></a><span class="lineno"> 8985</span> </div><div class="line"><a name="l08986"></a><span class="lineno"> 8986</span>  <span class="keywordflow">return</span> v;</div><div class="line"><a name="l08987"></a><span class="lineno"> 8987</span> }</div><div class="line"><a name="l08988"></a><span class="lineno"> 8988</span> </div><div class="line"><a name="l08989"></a><span class="lineno"> 8989</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l08990"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a78b517f7037cf561fcd763f7f5fe81e1"> 8990</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a78b517f7037cf561fcd763f7f5fe81e1">ivq_safelevel_handler</a>(arg, ivq)</div><div class="line"><a name="l08991"></a><span class="lineno"> 8991</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> arg;</div><div class="line"><a name="l08992"></a><span class="lineno"> 8992</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ivq;</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="keyword">struct </span><a class="code" href="../../df/d4d/structinvoke__queue.html">invoke_queue</a> *q;</div><div class="line"><a name="l08995"></a><span class="lineno"> 8995</span> </div><div class="line"><a name="l08996"></a><span class="lineno"> 8996</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="l08997"></a><span class="lineno"> 8997</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="l08998"></a><span class="lineno"> 8998</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5e959fe5d6961caa34f52e0369506659">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="l08999"></a><span class="lineno"> 8999</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9f3054e32c0839d178977ff18158150e">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="l09000"></a><span class="lineno"> 9000</span> }</div><div class="line"><a name="l09001"></a><span class="lineno"> 9001</span> </div><div class="line"><a name="l09002"></a><span class="lineno"> 9002</span> <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a76bf8d04c151d213518a6475d089913b">invoke_queue_handler</a> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a>((Tcl_Event *, <span class="keywordtype">int</span>));</div><div class="line"><a name="l09003"></a><span class="lineno"> 9003</span> <span class="keywordtype">int</span></div><div class="line"><a name="l09004"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a76bf8d04c151d213518a6475d089913b"> 9004</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a76bf8d04c151d213518a6475d089913b">invoke_queue_handler</a>(evPtr, flags)</div><div class="line"><a name="l09005"></a><span class="lineno"> 9005</span>  Tcl_Event *evPtr;</div><div class="line"><a name="l09006"></a><span class="lineno"> 9006</span>  <span class="keywordtype">int</span> flags;</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="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="l09009"></a><span class="lineno"> 9009</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ret;</div><div class="line"><a name="l09010"></a><span class="lineno"> 9010</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> q_dat;</div><div class="line"><a name="l09011"></a><span class="lineno"> 9011</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../df/d4d/structinvoke__queue.html#adb618602021c5bdf5f6d973eefc7b983">thread</a> = q-><a class="code" href="../../df/d4d/structinvoke__queue.html#adb618602021c5bdf5f6d973eefc7b983">thread</a>;</div><div class="line"><a name="l09012"></a><span class="lineno"> 9012</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</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>  <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="l09015"></a><span class="lineno"> 9015</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="l09016"></a><span class="lineno"> 9016</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="l09017"></a><span class="lineno"> 9017</span> </div><div class="line"><a name="l09018"></a><span class="lineno"> 9018</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="l09019"></a><span class="lineno"> 9019</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="l09020"></a><span class="lineno"> 9020</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l09021"></a><span class="lineno"> 9021</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l09022"></a><span class="lineno"> 9022</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="l09023"></a><span class="lineno"> 9023</span>  }</div><div class="line"><a name="l09024"></a><span class="lineno"> 9024</span> </div><div class="line"><a name="l09025"></a><span class="lineno"> 9025</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#a598f7c4cee4b8028312b375364ac55b4">rb_thread_alive_p</a>(thread))</div><div class="line"><a name="l09026"></a><span class="lineno"> 9026</span>  && ! <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a117741045763c090b26e30a85bd0e0a6">RTEST</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(thread, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3146c23bbdd4311489cbe8cb76c7aebb">ID_stop_p</a>, 0))) {</div><div class="line"><a name="l09027"></a><span class="lineno"> 9027</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="l09028"></a><span class="lineno"> 9028</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l09029"></a><span class="lineno"> 9029</span>  }</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>  <span class="comment">/* process it */</span></div><div class="line"><a name="l09032"></a><span class="lineno"> 9032</span>  *(q-><a class="code" href="../../df/d4d/structinvoke__queue.html#a7e8a38587f5a0a3177d86c3d0abba76f">done</a>) = 1;</div><div class="line"><a name="l09033"></a><span class="lineno"> 9033</span> </div><div class="line"><a name="l09034"></a><span class="lineno"> 9034</span>  <span class="comment">/* deleted ipterp ? */</span></div><div class="line"><a name="l09035"></a><span class="lineno"> 9035</span>  ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(q-><a class="code" href="../../df/d4d/structinvoke__queue.html#acf486aed957a1768a4a80a7a057912df">interp</a>);</div><div class="line"><a name="l09036"></a><span class="lineno"> 9036</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l09037"></a><span class="lineno"> 9037</span>  <span class="comment">/* deleted IP --> ignore */</span></div><div class="line"><a name="l09038"></a><span class="lineno"> 9038</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l09039"></a><span class="lineno"> 9039</span>  }</div><div class="line"><a name="l09040"></a><span class="lineno"> 9040</span> </div><div class="line"><a name="l09041"></a><span class="lineno"> 9041</span>  <span class="comment">/* incr internal handler mark */</span></div><div class="line"><a name="l09042"></a><span class="lineno"> 9042</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef1359e3bae2745050e68ee7c53d2c6e">rbtk_internal_eventloop_handler</a>++;</div><div class="line"><a name="l09043"></a><span class="lineno"> 9043</span> </div><div class="line"><a name="l09044"></a><span class="lineno"> 9044</span>  <span class="comment">/* check safe-level */</span></div><div class="line"><a name="l09045"></a><span class="lineno"> 9045</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="l09046"></a><span class="lineno"> 9046</span>  <span class="comment">/* q_dat = Data_Wrap_Struct(rb_cData,0,0,q); */</span></div><div class="line"><a name="l09047"></a><span class="lineno"> 9047</span>  q_dat = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a27705a261a9addb9ed4cb65dd5a61b1c">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="l09048"></a><span class="lineno"> 9048</span>  ret = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(<a class="code" href="../../db/d2e/intern_8h.html#a8a4a55d3f2ed6d9ece055553e48755d5">rb_proc_new</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a78b517f7037cf561fcd763f7f5fe81e1">ivq_safelevel_handler</a>, q_dat),</div><div class="line"><a name="l09049"></a><span class="lineno"> 9049</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a31a624c57e908d47f2aeb7209e7db3e7">ID_call</a>, 0);</div><div class="line"><a name="l09050"></a><span class="lineno"> 9050</span>  <a class="code" href="../../d8/d16/gc_8c.html#a53016811c87ff4c3ea839c9e85a9a9a4">rb_gc_force_recycle</a>(q_dat);</div><div class="line"><a name="l09051"></a><span class="lineno"> 9051</span>  q_dat = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l09052"></a><span class="lineno"> 9052</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l09053"></a><span class="lineno"> 9053</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="l09054"></a><span class="lineno"> 9054</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="l09055"></a><span class="lineno"> 9055</span>  ret = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9f3054e32c0839d178977ff18158150e">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="l09056"></a><span class="lineno"> 9056</span>  }</div><div class="line"><a name="l09057"></a><span class="lineno"> 9057</span> </div><div class="line"><a name="l09058"></a><span class="lineno"> 9058</span>  <span class="comment">/* set result */</span></div><div class="line"><a name="l09059"></a><span class="lineno"> 9059</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4e8fe9b7653d67be2401a8b85049e525">RARRAY_PTR</a>(q-><a class="code" href="../../df/d4d/structinvoke__queue.html#a3ee770c57941395252ce8a0673d40914">result</a>)[0] = ret;</div><div class="line"><a name="l09060"></a><span class="lineno"> 9060</span>  ret = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l09061"></a><span class="lineno"> 9061</span> </div><div class="line"><a name="l09062"></a><span class="lineno"> 9062</span>  <span class="comment">/* decr internal handler mark */</span></div><div class="line"><a name="l09063"></a><span class="lineno"> 9063</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef1359e3bae2745050e68ee7c53d2c6e">rbtk_internal_eventloop_handler</a>--;</div><div class="line"><a name="l09064"></a><span class="lineno"> 9064</span> </div><div class="line"><a name="l09065"></a><span class="lineno"> 9065</span>  <span class="comment">/* complete */</span></div><div class="line"><a name="l09066"></a><span class="lineno"> 9066</span>  *(q-><a class="code" href="../../df/d4d/structinvoke__queue.html#a7e8a38587f5a0a3177d86c3d0abba76f">done</a>) = -1;</div><div class="line"><a name="l09067"></a><span class="lineno"> 9067</span> </div><div class="line"><a name="l09068"></a><span class="lineno"> 9068</span>  <span class="comment">/* unlink ruby objects */</span></div><div class="line"><a name="l09069"></a><span class="lineno"> 9069</span>  q-><a class="code" href="../../df/d4d/structinvoke__queue.html#acf486aed957a1768a4a80a7a057912df">interp</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l09070"></a><span class="lineno"> 9070</span>  q-><a class="code" href="../../df/d4d/structinvoke__queue.html#a3ee770c57941395252ce8a0673d40914">result</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l09071"></a><span class="lineno"> 9071</span>  q-><a class="code" href="../../df/d4d/structinvoke__queue.html#adb618602021c5bdf5f6d973eefc7b983">thread</a> = (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a>)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</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>  <span class="comment">/* back to caller */</span></div><div class="line"><a name="l09074"></a><span class="lineno"> 9074</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#a598f7c4cee4b8028312b375364ac55b4">rb_thread_alive_p</a>(thread))) {</div><div class="line"><a name="l09075"></a><span class="lineno"> 9075</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="l09076"></a><span class="lineno"> 9076</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="l09077"></a><span class="lineno"> 9077</span> <span class="preprocessor">#if CONTROL_BY_STATUS_OF_RB_THREAD_WAITING_FOR_VALUE</span></div><div class="line"><a name="l09078"></a><span class="lineno"> 9078</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a36aff997f6e550b516224b18bfe5bd25">have_rb_thread_waiting_for_value</a> = 1;</div><div class="line"><a name="l09079"></a><span class="lineno"> 9079</span>  <a class="code" href="../../db/d2e/intern_8h.html#a5ec55864056da2a01e4b87fde4c807b9">rb_thread_wakeup</a>(thread);</div><div class="line"><a name="l09080"></a><span class="lineno"> 9080</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l09081"></a><span class="lineno"> 9081</span>  <a class="code" href="../../db/d2e/intern_8h.html#a466749a3498fa8fbb48f7fc783a7cf34">rb_thread_run</a>(thread);</div><div class="line"><a name="l09082"></a><span class="lineno"> 9082</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09083"></a><span class="lineno"> 9083</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="l09084"></a><span class="lineno"> 9084</span> <span class="preprocessor">#if DO_THREAD_SCHEDULE_AT_CALLBACK_DONE</span></div><div class="line"><a name="l09085"></a><span class="lineno"> 9085</span>  <a class="code" href="../../db/d2e/intern_8h.html#ad1fe299d3b5a492259ab4e733832868c">rb_thread_schedule</a>();</div><div class="line"><a name="l09086"></a><span class="lineno"> 9086</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09087"></a><span class="lineno"> 9087</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l09088"></a><span class="lineno"> 9088</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="l09089"></a><span class="lineno"> 9089</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="l09090"></a><span class="lineno"> 9090</span>  }</div><div class="line"><a name="l09091"></a><span class="lineno"> 9091</span> </div><div class="line"><a name="l09092"></a><span class="lineno"> 9092</span>  <span class="comment">/* end of handler : remove it */</span></div><div class="line"><a name="l09093"></a><span class="lineno"> 9093</span>  <span class="keywordflow">return</span> 1;</div><div class="line"><a name="l09094"></a><span class="lineno"> 9094</span> }</div><div class="line"><a name="l09095"></a><span class="lineno"> 9095</span> </div><div class="line"><a name="l09096"></a><span class="lineno"> 9096</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09097"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a6f3a24bb704d7b2c89ef9423cd219e78"> 9097</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f3a24bb704d7b2c89ef9423cd219e78">ip_invoke_with_position</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, obj, position)</div><div class="line"><a name="l09098"></a><span class="lineno"> 9098</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l09099"></a><span class="lineno"> 9099</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l09100"></a><span class="lineno"> 9100</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> obj;</div><div class="line"><a name="l09101"></a><span class="lineno"> 9101</span>  Tcl_QueuePosition position;</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="keyword">struct </span><a class="code" href="../../df/d4d/structinvoke__queue.html">invoke_queue</a> *ivq;</div><div class="line"><a name="l09104"></a><span class="lineno"> 9104</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l09105"></a><span class="lineno"> 9105</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div><div class="line"><a name="l09106"></a><span class="lineno"> 9106</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09107"></a><span class="lineno"> 9107</span>  <span class="keywordtype">int</span> *alloc_done;</div><div class="line"><a name="l09108"></a><span class="lineno"> 9108</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l09109"></a><span class="lineno"> 9109</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> current = <a class="code" href="../../db/d2e/intern_8h.html#ac41dd89ae3df1fc1d9968c8239659ce3">rb_thread_current</a>();</div><div class="line"><a name="l09110"></a><span class="lineno"> 9110</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ip_obj = obj;</div><div class="line"><a name="l09111"></a><span class="lineno"> 9111</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>;</div><div class="line"><a name="l09112"></a><span class="lineno"> 9112</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ret;</div><div class="line"><a name="l09113"></a><span class="lineno"> 9113</span>  <span class="keyword">struct </span><a class="code" href="../../d1/d1b/structtimeval.html">timeval</a> <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>;</div><div class="line"><a name="l09114"></a><span class="lineno"> 9114</span> </div><div class="line"><a name="l09115"></a><span class="lineno"> 9115</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l09116"></a><span class="lineno"> 9116</span>  Tcl_Obj **av = (Tcl_Obj **)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l09117"></a><span class="lineno"> 9117</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l09118"></a><span class="lineno"> 9118</span>  <span class="keywordtype">char</span> **av = (<span class="keywordtype">char</span> **)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l09119"></a><span class="lineno"> 9119</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09120"></a><span class="lineno"> 9120</span> </div><div class="line"><a name="l09121"></a><span class="lineno"> 9121</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a> < 1) {</div><div class="line"><a name="l09122"></a><span class="lineno"> 9122</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="l09123"></a><span class="lineno"> 9123</span>  }</div><div class="line"><a name="l09124"></a><span class="lineno"> 9124</span> </div><div class="line"><a name="l09125"></a><span class="lineno"> 9125</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l09126"></a><span class="lineno"> 9126</span>  ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(ip_obj);</div><div class="line"><a name="l09127"></a><span class="lineno"> 9127</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="l09128"></a><span class="lineno"> 9128</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="l09129"></a><span class="lineno"> 9129</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l09130"></a><span class="lineno"> 9130</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="l09131"></a><span class="lineno"> 9131</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09132"></a><span class="lineno"> 9132</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"status: eventloopt_thread %lx"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>);</div><div class="line"><a name="l09133"></a><span class="lineno"> 9133</span> </div><div class="line"><a name="l09134"></a><span class="lineno"> 9134</span>  <span class="keywordflow">if</span> (</div><div class="line"><a name="l09135"></a><span class="lineno"> 9135</span> #ifdef RUBY_USE_NATIVE_THREAD</div><div class="line"><a name="l09136"></a><span class="lineno"> 9136</span>  (ptr->tk_thread_id == 0 || ptr->tk_thread_id == Tcl_GetCurrentThread())</div><div class="line"><a name="l09137"></a><span class="lineno"> 9137</span>  &&</div><div class="line"><a name="l09138"></a><span class="lineno"> 9138</span> #endif</div><div class="line"><a name="l09139"></a><span class="lineno"> 9139</span>  (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>) || current == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)</div><div class="line"><a name="l09140"></a><span class="lineno"> 9140</span>  ) {</div><div class="line"><a name="l09141"></a><span class="lineno"> 9141</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#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)) {</div><div class="line"><a name="l09142"></a><span class="lineno"> 9142</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="l09143"></a><span class="lineno"> 9143</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l09144"></a><span class="lineno"> 9144</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="l09145"></a><span class="lineno"> 9145</span>  }</div><div class="line"><a name="l09146"></a><span class="lineno"> 9146</span>  <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a66202a95d332ce6cd9f69921873ae7c0">ip_invoke_real</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, ip_obj);</div><div class="line"><a name="l09147"></a><span class="lineno"> 9147</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="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>, <a class="code" href="../../db/dcc/error_8c.html#ac5bd9245454f935493c41daa4f2651ae">rb_eException</a>)) {</div><div class="line"><a name="l09148"></a><span class="lineno"> 9148</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>);</div><div class="line"><a name="l09149"></a><span class="lineno"> 9149</span>  }</div><div class="line"><a name="l09150"></a><span class="lineno"> 9150</span>  <span class="keywordflow">return</span> <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>;</div><div class="line"><a name="l09151"></a><span class="lineno"> 9151</span>  }</div><div class="line"><a name="l09152"></a><span class="lineno"> 9152</span> </div><div class="line"><a name="l09153"></a><span class="lineno"> 9153</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="l09154"></a><span class="lineno"> 9154</span> </div><div class="line"><a name="l09155"></a><span class="lineno"> 9155</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l09156"></a><span class="lineno"> 9156</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l09157"></a><span class="lineno"> 9157</span> </div><div class="line"><a name="l09158"></a><span class="lineno"> 9158</span>  <span class="comment">/* allocate memory (for arguments) */</span></div><div class="line"><a name="l09159"></a><span class="lineno"> 9159</span>  av = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae148015393811a58ebcacc8780449454">alloc_invoke_arguments</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>);</div><div class="line"><a name="l09160"></a><span class="lineno"> 9160</span> </div><div class="line"><a name="l09161"></a><span class="lineno"> 9161</span>  <span class="comment">/* allocate memory (keep result) */</span></div><div class="line"><a name="l09162"></a><span class="lineno"> 9162</span>  <span class="comment">/* alloc_done = (int*)ALLOC(int); */</span></div><div class="line"><a name="l09163"></a><span class="lineno"> 9163</span>  alloc_done = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(<span class="keywordtype">int</span>, 1);</div><div class="line"><a name="l09164"></a><span class="lineno"> 9164</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="l09165"></a><span class="lineno"> 9165</span>  Tcl_Preserve((ClientData)alloc_done); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l09166"></a><span class="lineno"> 9166</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09167"></a><span class="lineno"> 9167</span>  *alloc_done = 0;</div><div class="line"><a name="l09168"></a><span class="lineno"> 9168</span> </div><div class="line"><a name="l09169"></a><span class="lineno"> 9169</span>  <span class="comment">/* allocate memory (freed by Tcl_ServiceEvent) */</span></div><div class="line"><a name="l09170"></a><span class="lineno"> 9170</span>  <span class="comment">/* ivq = (struct invoke_queue *)Tcl_Alloc(sizeof(struct invoke_queue)); */</span></div><div class="line"><a name="l09171"></a><span class="lineno"> 9171</span>  ivq = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(<span class="keyword">struct</span> <a class="code" href="../../df/d4d/structinvoke__queue.html">invoke_queue</a>, 1);</div><div class="line"><a name="l09172"></a><span class="lineno"> 9172</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="l09173"></a><span class="lineno"> 9173</span>  Tcl_Preserve((ClientData)ivq); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l09174"></a><span class="lineno"> 9174</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09175"></a><span class="lineno"> 9175</span> </div><div class="line"><a name="l09176"></a><span class="lineno"> 9176</span>  <span class="comment">/* allocate result obj */</span></div><div class="line"><a name="l09177"></a><span class="lineno"> 9177</span>  <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a> = <a class="code" href="../../db/d2e/intern_8h.html#a8f3988bb25848bb4e4519a29876b2d55">rb_ary_new3</a>(1, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>);</div><div class="line"><a name="l09178"></a><span class="lineno"> 9178</span> </div><div class="line"><a name="l09179"></a><span class="lineno"> 9179</span>  <span class="comment">/* construct event data */</span></div><div class="line"><a name="l09180"></a><span class="lineno"> 9180</span>  ivq->done = alloc_done;</div><div class="line"><a name="l09181"></a><span class="lineno"> 9181</span>  ivq->argc = <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l09182"></a><span class="lineno"> 9182</span>  ivq->argv = av;</div><div class="line"><a name="l09183"></a><span class="lineno"> 9183</span>  ivq->interp = ip_obj;</div><div class="line"><a name="l09184"></a><span class="lineno"> 9184</span>  ivq->result = <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>;</div><div class="line"><a name="l09185"></a><span class="lineno"> 9185</span>  ivq->thread = current;</div><div class="line"><a name="l09186"></a><span class="lineno"> 9186</span>  ivq->safe_level = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f520624fabb8332dc98fd223491bf8d">rb_safe_level</a>();</div><div class="line"><a name="l09187"></a><span class="lineno"> 9187</span>  ivq->ev.proc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a76bf8d04c151d213518a6475d089913b">invoke_queue_handler</a>;</div><div class="line"><a name="l09188"></a><span class="lineno"> 9188</span> </div><div class="line"><a name="l09189"></a><span class="lineno"> 9189</span>  <span class="comment">/* add the handler to Tcl event queue */</span></div><div class="line"><a name="l09190"></a><span class="lineno"> 9190</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="l09191"></a><span class="lineno"> 9191</span> <span class="preprocessor">#ifdef RUBY_USE_NATIVE_THREAD</span></div><div class="line"><a name="l09192"></a><span class="lineno"> 9192</span>  <span class="keywordflow">if</span> (ptr->tk_thread_id) {</div><div class="line"><a name="l09193"></a><span class="lineno"> 9193</span>  <span class="comment">/* Tcl_ThreadQueueEvent(ptr->tk_thread_id, &(ivq->ev), position); */</span></div><div class="line"><a name="l09194"></a><span class="lineno"> 9194</span>  Tcl_ThreadQueueEvent(ptr->tk_thread_id, (Tcl_Event*)ivq, position);</div><div class="line"><a name="l09195"></a><span class="lineno"> 9195</span>  Tcl_ThreadAlert(ptr->tk_thread_id);</div><div class="line"><a name="l09196"></a><span class="lineno"> 9196</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (tk_eventloop_thread_id) {</div><div class="line"><a name="l09197"></a><span class="lineno"> 9197</span>  <span class="comment">/* Tcl_ThreadQueueEvent(tk_eventloop_thread_id,</span></div><div class="line"><a name="l09198"></a><span class="lineno"> 9198</span> <span class="comment"> &(ivq->ev), position); */</span></div><div class="line"><a name="l09199"></a><span class="lineno"> 9199</span>  Tcl_ThreadQueueEvent(tk_eventloop_thread_id,</div><div class="line"><a name="l09200"></a><span class="lineno"> 9200</span>  (Tcl_Event*)ivq, position);</div><div class="line"><a name="l09201"></a><span class="lineno"> 9201</span>  Tcl_ThreadAlert(tk_eventloop_thread_id);</div><div class="line"><a name="l09202"></a><span class="lineno"> 9202</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l09203"></a><span class="lineno"> 9203</span>  <span class="comment">/* Tcl_QueueEvent(&(ivq->ev), position); */</span></div><div class="line"><a name="l09204"></a><span class="lineno"> 9204</span>  Tcl_QueueEvent((Tcl_Event*)ivq, position);</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> <span class="preprocessor">#else</span></div><div class="line"><a name="l09207"></a><span class="lineno"> 9207</span>  <span class="comment">/* Tcl_QueueEvent(&(ivq->ev), position); */</span></div><div class="line"><a name="l09208"></a><span class="lineno"> 9208</span>  Tcl_QueueEvent((Tcl_Event*)ivq, position);</div><div class="line"><a name="l09209"></a><span class="lineno"> 9209</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09210"></a><span class="lineno"> 9210</span> </div><div class="line"><a name="l09211"></a><span class="lineno"> 9211</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l09212"></a><span class="lineno"> 9212</span> </div><div class="line"><a name="l09213"></a><span class="lineno"> 9213</span>  <span class="comment">/* wait for the handler to be processed */</span></div><div class="line"><a name="l09214"></a><span class="lineno"> 9214</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_sec = 0;</div><div class="line"><a name="l09215"></a><span class="lineno"> 9215</span>  <a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>.tv_usec = (long)((<a class="code" href="../../d5/d9d/tcltklib_8c.html#afbd2530678e6262a587dd99dedeb053b">EVENT_HANDLER_TIMEOUT</a>)*1000.0);</div><div class="line"><a name="l09216"></a><span class="lineno"> 9216</span> </div><div class="line"><a name="l09217"></a><span class="lineno"> 9217</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="l09218"></a><span class="lineno"> 9218</span>  <span class="keywordflow">while</span>(*alloc_done >= 0) {</div><div class="line"><a name="l09219"></a><span class="lineno"> 9219</span>  <span class="comment">/* rb_thread_stop(); */</span></div><div class="line"><a name="l09220"></a><span class="lineno"> 9220</span>  <span class="comment">/* rb_thread_sleep_forever(); */</span></div><div class="line"><a name="l09221"></a><span class="lineno"> 9221</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0187a1eb4a4d01a4c9ef6b36b51faa6f">rb_thread_wait_for</a>(<a class="code" href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a>);</div><div class="line"><a name="l09222"></a><span class="lineno"> 9222</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="l09223"></a><span class="lineno"> 9223</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a23725dc14d120e279b18bae302dbfd01">DUMP2</a>(<span class="stringliteral">"*** (eventloop thread:%lx)"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>);</div><div class="line"><a name="l09224"></a><span class="lineno"> 9224</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#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>)) {</div><div class="line"><a name="l09225"></a><span class="lineno"> 9225</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="l09226"></a><span class="lineno"> 9226</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l09227"></a><span class="lineno"> 9227</span>  }</div><div class="line"><a name="l09228"></a><span class="lineno"> 9228</span>  }</div><div class="line"><a name="l09229"></a><span class="lineno"> 9229</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="l09230"></a><span class="lineno"> 9230</span> </div><div class="line"><a name="l09231"></a><span class="lineno"> 9231</span>  <span class="comment">/* get result & free allocated memory */</span></div><div class="line"><a name="l09232"></a><span class="lineno"> 9232</span>  ret = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4e8fe9b7653d67be2401a8b85049e525">RARRAY_PTR</a>(<a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>)[0];</div><div class="line"><a name="l09233"></a><span class="lineno"> 9233</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l09234"></a><span class="lineno"> 9234</span>  Tcl_EventuallyFree((ClientData)alloc_done, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l09235"></a><span class="lineno"> 9235</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l09236"></a><span class="lineno"> 9236</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="l09237"></a><span class="lineno"> 9237</span>  Tcl_Release((ClientData)alloc_done); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l09238"></a><span class="lineno"> 9238</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l09239"></a><span class="lineno"> 9239</span>  <span class="comment">/* free(alloc_done); */</span></div><div class="line"><a name="l09240"></a><span class="lineno"> 9240</span>  ckfree((<span class="keywordtype">char</span>*)alloc_done);</div><div class="line"><a name="l09241"></a><span class="lineno"> 9241</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09242"></a><span class="lineno"> 9242</span> <span class="preprocessor">#endif</span></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> <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="l09245"></a><span class="lineno"> 9245</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l09246"></a><span class="lineno"> 9246</span>  Tcl_EventuallyFree((ClientData)ivq, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l09247"></a><span class="lineno"> 9247</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l09248"></a><span class="lineno"> 9248</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="l09249"></a><span class="lineno"> 9249</span>  Tcl_Release(ivq);</div><div class="line"><a name="l09250"></a><span class="lineno"> 9250</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l09251"></a><span class="lineno"> 9251</span>  ckfree((<span class="keywordtype">char</span>*)ivq);</div><div class="line"><a name="l09252"></a><span class="lineno"> 9252</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09253"></a><span class="lineno"> 9253</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09254"></a><span class="lineno"> 9254</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09255"></a><span class="lineno"> 9255</span> </div><div class="line"><a name="l09256"></a><span class="lineno"> 9256</span>  <span class="comment">/* free allocated memory */</span></div><div class="line"><a name="l09257"></a><span class="lineno"> 9257</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0a1859b3a5ea76d143c6ddcdb7d87b82">free_invoke_arguments</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, av);</div><div class="line"><a name="l09258"></a><span class="lineno"> 9258</span> </div><div class="line"><a name="l09259"></a><span class="lineno"> 9259</span>  <span class="comment">/* exception? */</span></div><div class="line"><a name="l09260"></a><span class="lineno"> 9260</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="l09261"></a><span class="lineno"> 9261</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="l09262"></a><span class="lineno"> 9262</span>  <span class="comment">/* rb_exc_raise(ret); */</span></div><div class="line"><a name="l09263"></a><span class="lineno"> 9263</span>  <a class="code" href="../../d3/d57/eval_8c.html#a237939d28c83950b84fb6a45ccca53a0">rb_exc_raise</a>(<a class="code" href="../../db/d2e/intern_8h.html#a9853d1348e5a26b4802117aa465f65bc">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="l09264"></a><span class="lineno"> 9264</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(ret, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2876182790d4d4deb29d00b4048d7565">ID_to_s</a>, 0, 0)));</div><div class="line"><a name="l09265"></a><span class="lineno"> 9265</span>  }</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>  <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="l09268"></a><span class="lineno"> 9268</span>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l09269"></a><span class="lineno"> 9269</span> }</div><div class="line"><a name="l09270"></a><span class="lineno"> 9270</span> </div><div class="line"><a name="l09271"></a><span class="lineno"> 9271</span> </div><div class="line"><a name="l09272"></a><span class="lineno"> 9272</span> <span class="comment">/* get return code from Tcl_Eval() */</span></div><div class="line"><a name="l09273"></a><span class="lineno"> 9273</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09274"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a1689b48d2965d2e14643f0f1e658e35d"> 9274</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1689b48d2965d2e14643f0f1e658e35d">ip_retval</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l09275"></a><span class="lineno"> 9275</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</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">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr; <span class="comment">/* tcltkip data struct */</span></div><div class="line"><a name="l09278"></a><span class="lineno"> 9278</span> </div><div class="line"><a name="l09279"></a><span class="lineno"> 9279</span>  <span class="comment">/* get the data strcut */</span></div><div class="line"><a name="l09280"></a><span class="lineno"> 9280</span>  ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(<span class="keyword">self</span>);</div><div class="line"><a name="l09281"></a><span class="lineno"> 9281</span> </div><div class="line"><a name="l09282"></a><span class="lineno"> 9282</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l09283"></a><span class="lineno"> 9283</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l09284"></a><span class="lineno"> 9284</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l09285"></a><span class="lineno"> 9285</span>  }</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>  <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="l09288"></a><span class="lineno"> 9288</span> }</div><div class="line"><a name="l09289"></a><span class="lineno"> 9289</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#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09291"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a249b6faeea478c4d28399a5d7dba272d"> 9291</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a249b6faeea478c4d28399a5d7dba272d">ip_invoke</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, obj)</div><div class="line"><a name="l09292"></a><span class="lineno"> 9292</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l09293"></a><span class="lineno"> 9293</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l09294"></a><span class="lineno"> 9294</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> obj;</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="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f3a24bb704d7b2c89ef9423cd219e78">ip_invoke_with_position</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, obj, TCL_QUEUE_TAIL);</div><div class="line"><a name="l09297"></a><span class="lineno"> 9297</span> }</div><div class="line"><a name="l09298"></a><span class="lineno"> 9298</span> </div><div class="line"><a name="l09299"></a><span class="lineno"> 9299</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09300"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ac53621394fecfe0c7571f4b7c2451727"> 9300</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac53621394fecfe0c7571f4b7c2451727">ip_invoke_immediate</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, obj)</div><div class="line"><a name="l09301"></a><span class="lineno"> 9301</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l09302"></a><span class="lineno"> 9302</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l09303"></a><span class="lineno"> 9303</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> obj;</div><div class="line"><a name="l09304"></a><span class="lineno"> 9304</span> {</div><div class="line"><a name="l09305"></a><span class="lineno"> 9305</span>  <span class="comment">/* POTENTIALY INSECURE : can create infinite loop */</span></div><div class="line"><a name="l09306"></a><span class="lineno"> 9306</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6f3a24bb704d7b2c89ef9423cd219e78">ip_invoke_with_position</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, obj, TCL_QUEUE_HEAD);</div><div class="line"><a name="l09307"></a><span class="lineno"> 9307</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> </div><div class="line"><a name="l09310"></a><span class="lineno"> 9310</span> <span class="comment">/* access Tcl variables */</span></div><div class="line"><a name="l09311"></a><span class="lineno"> 9311</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09312"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a1b07760263b333c6e92789d2918c9b19"> 9312</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1b07760263b333c6e92789d2918c9b19">ip_get_variable2_core</a>(interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l09313"></a><span class="lineno"> 9313</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l09314"></a><span class="lineno"> 9314</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l09315"></a><span class="lineno"> 9315</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</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="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</div><div class="line"><a name="l09318"></a><span class="lineno"> 9318</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l09319"></a><span class="lineno"> 9319</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> varname, index, flag;</div><div class="line"><a name="l09320"></a><span class="lineno"> 9320</span> </div><div class="line"><a name="l09321"></a><span class="lineno"> 9321</span>  varname = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[0];</div><div class="line"><a name="l09322"></a><span class="lineno"> 9322</span>  index = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1];</div><div class="line"><a name="l09323"></a><span class="lineno"> 9323</span>  flag = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[2];</div><div class="line"><a name="l09324"></a><span class="lineno"> 9324</span> </div><div class="line"><a name="l09325"></a><span class="lineno"> 9325</span>  <span class="comment">/*</span></div><div class="line"><a name="l09326"></a><span class="lineno"> 9326</span> <span class="comment"> StringValue(varname);</span></div><div class="line"><a name="l09327"></a><span class="lineno"> 9327</span> <span class="comment"> if (!NIL_P(index)) StringValue(index);</span></div><div class="line"><a name="l09328"></a><span class="lineno"> 9328</span> <span class="comment"> */</span></div><div class="line"><a name="l09329"></a><span class="lineno"> 9329</span> </div><div class="line"><a name="l09330"></a><span class="lineno"> 9330</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l09331"></a><span class="lineno"> 9331</span>  {</div><div class="line"><a name="l09332"></a><span class="lineno"> 9332</span>  Tcl_Obj *ret;</div><div class="line"><a name="l09333"></a><span class="lineno"> 9333</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> strval;</div><div class="line"><a name="l09334"></a><span class="lineno"> 9334</span> </div><div class="line"><a name="l09335"></a><span class="lineno"> 9335</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l09336"></a><span class="lineno"> 9336</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l09337"></a><span class="lineno"> 9337</span> </div><div class="line"><a name="l09338"></a><span class="lineno"> 9338</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l09339"></a><span class="lineno"> 9339</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l09340"></a><span class="lineno"> 9340</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l09341"></a><span class="lineno"> 9341</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l09342"></a><span class="lineno"> 9342</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l09343"></a><span class="lineno"> 9343</span>  <span class="comment">/* Tcl_Preserve(ptr->ip); */</span></div><div class="line"><a name="l09344"></a><span class="lineno"> 9344</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a55dbead056a35cc4c3bcdaefe23e6252">rbtk_preserve_ip</a>(ptr);</div><div class="line"><a name="l09345"></a><span class="lineno"> 9345</span>  ret = Tcl_GetVar2Ex(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(varname),</div><div class="line"><a name="l09346"></a><span class="lineno"> 9346</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(index) ? <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a> : <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(index),</div><div class="line"><a name="l09347"></a><span class="lineno"> 9347</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(flag));</div><div class="line"><a name="l09348"></a><span class="lineno"> 9348</span>  }</div><div class="line"><a name="l09349"></a><span class="lineno"> 9349</span> </div><div class="line"><a name="l09350"></a><span class="lineno"> 9350</span>  <span class="keywordflow">if</span> (ret == (Tcl_Obj*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l09351"></a><span class="lineno"> 9351</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> exc;</div><div class="line"><a name="l09352"></a><span class="lineno"> 9352</span>  <span class="comment">/* exc = rb_exc_new2(rb_eRuntimeError,</span></div><div class="line"><a name="l09353"></a><span class="lineno"> 9353</span> <span class="comment"> Tcl_GetStringResult(ptr->ip)); */</span></div><div class="line"><a name="l09354"></a><span class="lineno"> 9354</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l09355"></a><span class="lineno"> 9355</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="l09356"></a><span class="lineno"> 9356</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div><div class="line"><a name="l09357"></a><span class="lineno"> 9357</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(ptr);</div><div class="line"><a name="l09358"></a><span class="lineno"> 9358</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l09359"></a><span class="lineno"> 9359</span>  <span class="keywordflow">return</span> exc;</div><div class="line"><a name="l09360"></a><span class="lineno"> 9360</span>  }</div><div class="line"><a name="l09361"></a><span class="lineno"> 9361</span> </div><div class="line"><a name="l09362"></a><span class="lineno"> 9362</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(ret);</div><div class="line"><a name="l09363"></a><span class="lineno"> 9363</span>  strval = get_str_from_obj(ret);</div><div class="line"><a name="l09364"></a><span class="lineno"> 9364</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832">RbTk_OBJ_UNTRUST</a>(strval);</div><div class="line"><a name="l09365"></a><span class="lineno"> 9365</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(ret);</div><div class="line"><a name="l09366"></a><span class="lineno"> 9366</span> </div><div class="line"><a name="l09367"></a><span class="lineno"> 9367</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div><div class="line"><a name="l09368"></a><span class="lineno"> 9368</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(ptr);</div><div class="line"><a name="l09369"></a><span class="lineno"> 9369</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l09370"></a><span class="lineno"> 9370</span>  <span class="keywordflow">return</span>(strval);</div><div class="line"><a name="l09371"></a><span class="lineno"> 9371</span>  }</div><div class="line"><a name="l09372"></a><span class="lineno"> 9372</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l09373"></a><span class="lineno"> 9373</span>  {</div><div class="line"><a name="l09374"></a><span class="lineno"> 9374</span>  <span class="keywordtype">char</span> *ret;</div><div class="line"><a name="l09375"></a><span class="lineno"> 9375</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> strval;</div><div class="line"><a name="l09376"></a><span class="lineno"> 9376</span> </div><div class="line"><a name="l09377"></a><span class="lineno"> 9377</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l09378"></a><span class="lineno"> 9378</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l09379"></a><span class="lineno"> 9379</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l09380"></a><span class="lineno"> 9380</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l09381"></a><span class="lineno"> 9381</span>  <span class="comment">/* Tcl_Preserve(ptr->ip); */</span></div><div class="line"><a name="l09382"></a><span class="lineno"> 9382</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a55dbead056a35cc4c3bcdaefe23e6252">rbtk_preserve_ip</a>(ptr);</div><div class="line"><a name="l09383"></a><span class="lineno"> 9383</span>  ret = Tcl_GetVar2(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(varname),</div><div class="line"><a name="l09384"></a><span class="lineno"> 9384</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(index) ? <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a> : <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(index),</div><div class="line"><a name="l09385"></a><span class="lineno"> 9385</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(flag));</div><div class="line"><a name="l09386"></a><span class="lineno"> 9386</span>  }</div><div class="line"><a name="l09387"></a><span class="lineno"> 9387</span> </div><div class="line"><a name="l09388"></a><span class="lineno"> 9388</span>  <span class="keywordflow">if</span> (ret == (<span class="keywordtype">char</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l09389"></a><span class="lineno"> 9389</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> exc;</div><div class="line"><a name="l09390"></a><span class="lineno"> 9390</span>  exc = <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">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="l09391"></a><span class="lineno"> 9391</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div><div class="line"><a name="l09392"></a><span class="lineno"> 9392</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(ptr);</div><div class="line"><a name="l09393"></a><span class="lineno"> 9393</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l09394"></a><span class="lineno"> 9394</span>  <span class="keywordflow">return</span> exc;</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> </div><div class="line"><a name="l09397"></a><span class="lineno"> 9397</span>  strval = <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(ret);</div><div class="line"><a name="l09398"></a><span class="lineno"> 9398</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div><div class="line"><a name="l09399"></a><span class="lineno"> 9399</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(ptr);</div><div class="line"><a name="l09400"></a><span class="lineno"> 9400</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l09401"></a><span class="lineno"> 9401</span> </div><div class="line"><a name="l09402"></a><span class="lineno"> 9402</span>  <span class="keywordflow">return</span>(strval);</div><div class="line"><a name="l09403"></a><span class="lineno"> 9403</span>  }</div><div class="line"><a name="l09404"></a><span class="lineno"> 9404</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09405"></a><span class="lineno"> 9405</span> }</div><div class="line"><a name="l09406"></a><span class="lineno"> 9406</span> </div><div class="line"><a name="l09407"></a><span class="lineno"> 9407</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09408"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a58191d3b453f95d98a2ab1ee27fa2857"> 9408</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a58191d3b453f95d98a2ab1ee27fa2857">ip_get_variable2</a>(<span class="keyword">self</span>, varname, index, flag)</div><div class="line"><a name="l09409"></a><span class="lineno"> 9409</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l09410"></a><span class="lineno"> 9410</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> varname;</div><div class="line"><a name="l09411"></a><span class="lineno"> 9411</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> index;</div><div class="line"><a name="l09412"></a><span class="lineno"> 9412</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> flag;</div><div class="line"><a name="l09413"></a><span class="lineno"> 9413</span> {</div><div class="line"><a name="l09414"></a><span class="lineno"> 9414</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[3];</div><div class="line"><a name="l09415"></a><span class="lineno"> 9415</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> retval;</div><div class="line"><a name="l09416"></a><span class="lineno"> 9416</span> </div><div class="line"><a name="l09417"></a><span class="lineno"> 9417</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(varname);</div><div class="line"><a name="l09418"></a><span class="lineno"> 9418</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="l09419"></a><span class="lineno"> 9419</span> </div><div class="line"><a name="l09420"></a><span class="lineno"> 9420</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[0] = varname;</div><div class="line"><a name="l09421"></a><span class="lineno"> 9421</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1] = index;</div><div class="line"><a name="l09422"></a><span class="lineno"> 9422</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[2] = flag;</div><div class="line"><a name="l09423"></a><span class="lineno"> 9423</span> </div><div class="line"><a name="l09424"></a><span class="lineno"> 9424</span>  retval = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1cec8ebc4c54249136da6b6df38fb723">tk_funcall</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a1b07760263b333c6e92789d2918c9b19">ip_get_variable2_core</a>, 3, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>);</div><div class="line"><a name="l09425"></a><span class="lineno"> 9425</span> </div><div class="line"><a name="l09426"></a><span class="lineno"> 9426</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="l09427"></a><span class="lineno"> 9427</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l09428"></a><span class="lineno"> 9428</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l09429"></a><span class="lineno"> 9429</span>  <span class="keywordflow">return</span> retval;</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> }</div><div class="line"><a name="l09432"></a><span class="lineno"> 9432</span> </div><div class="line"><a name="l09433"></a><span class="lineno"> 9433</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09434"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7a4270e161e4f43948d987ba0eafc670"> 9434</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7a4270e161e4f43948d987ba0eafc670">ip_get_variable</a>(<span class="keyword">self</span>, varname, flag)</div><div class="line"><a name="l09435"></a><span class="lineno"> 9435</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l09436"></a><span class="lineno"> 9436</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> varname;</div><div class="line"><a name="l09437"></a><span class="lineno"> 9437</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> flag;</div><div class="line"><a name="l09438"></a><span class="lineno"> 9438</span> {</div><div class="line"><a name="l09439"></a><span class="lineno"> 9439</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a58191d3b453f95d98a2ab1ee27fa2857">ip_get_variable2</a>(<span class="keyword">self</span>, varname, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>, flag);</div><div class="line"><a name="l09440"></a><span class="lineno"> 9440</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="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09443"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aff7f5e9084d311c6fc0505391b745029"> 9443</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aff7f5e9084d311c6fc0505391b745029">ip_set_variable2_core</a>(interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l09444"></a><span class="lineno"> 9444</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l09445"></a><span class="lineno"> 9445</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l09446"></a><span class="lineno"> 9446</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l09447"></a><span class="lineno"> 9447</span> {</div><div class="line"><a name="l09448"></a><span class="lineno"> 9448</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</div><div class="line"><a name="l09449"></a><span class="lineno"> 9449</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l09450"></a><span class="lineno"> 9450</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> varname, index, value, flag;</div><div class="line"><a name="l09451"></a><span class="lineno"> 9451</span> </div><div class="line"><a name="l09452"></a><span class="lineno"> 9452</span>  varname = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[0];</div><div class="line"><a name="l09453"></a><span class="lineno"> 9453</span>  index = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1];</div><div class="line"><a name="l09454"></a><span class="lineno"> 9454</span>  value = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[2];</div><div class="line"><a name="l09455"></a><span class="lineno"> 9455</span>  flag = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[3];</div><div class="line"><a name="l09456"></a><span class="lineno"> 9456</span> </div><div class="line"><a name="l09457"></a><span class="lineno"> 9457</span>  <span class="comment">/*</span></div><div class="line"><a name="l09458"></a><span class="lineno"> 9458</span> <span class="comment"> StringValue(varname);</span></div><div class="line"><a name="l09459"></a><span class="lineno"> 9459</span> <span class="comment"> if (!NIL_P(index)) StringValue(index);</span></div><div class="line"><a name="l09460"></a><span class="lineno"> 9460</span> <span class="comment"> StringValue(value);</span></div><div class="line"><a name="l09461"></a><span class="lineno"> 9461</span> <span class="comment"> */</span></div><div class="line"><a name="l09462"></a><span class="lineno"> 9462</span> </div><div class="line"><a name="l09463"></a><span class="lineno"> 9463</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></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>  Tcl_Obj *valobj, *ret;</div><div class="line"><a name="l09466"></a><span class="lineno"> 9466</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> strval;</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>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l09469"></a><span class="lineno"> 9469</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l09470"></a><span class="lineno"> 9470</span> </div><div class="line"><a name="l09471"></a><span class="lineno"> 9471</span>  valobj = get_obj_from_str(value);</div><div class="line"><a name="l09472"></a><span class="lineno"> 9472</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(valobj);</div><div class="line"><a name="l09473"></a><span class="lineno"> 9473</span> </div><div class="line"><a name="l09474"></a><span class="lineno"> 9474</span>  <span class="comment">/* ip is deleted? */</span></div><div class="line"><a name="l09475"></a><span class="lineno"> 9475</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_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#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(valobj);</div><div class="line"><a name="l09477"></a><span class="lineno"> 9477</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l09478"></a><span class="lineno"> 9478</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l09479"></a><span class="lineno"> 9479</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l09480"></a><span class="lineno"> 9480</span>  <span class="comment">/* Tcl_Preserve(ptr->ip); */</span></div><div class="line"><a name="l09481"></a><span class="lineno"> 9481</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a55dbead056a35cc4c3bcdaefe23e6252">rbtk_preserve_ip</a>(ptr);</div><div class="line"><a name="l09482"></a><span class="lineno"> 9482</span>  ret = Tcl_SetVar2Ex(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(varname),</div><div class="line"><a name="l09483"></a><span class="lineno"> 9483</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(index) ? <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a> : <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(index),</div><div class="line"><a name="l09484"></a><span class="lineno"> 9484</span>  valobj, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(flag));</div><div class="line"><a name="l09485"></a><span class="lineno"> 9485</span>  }</div><div class="line"><a name="l09486"></a><span class="lineno"> 9486</span> </div><div class="line"><a name="l09487"></a><span class="lineno"> 9487</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(valobj);</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">if</span> (ret == (Tcl_Obj*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l09490"></a><span class="lineno"> 9490</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> exc;</div><div class="line"><a name="l09491"></a><span class="lineno"> 9491</span>  <span class="comment">/* exc = rb_exc_new2(rb_eRuntimeError,</span></div><div class="line"><a name="l09492"></a><span class="lineno"> 9492</span> <span class="comment"> Tcl_GetStringResult(ptr->ip)); */</span></div><div class="line"><a name="l09493"></a><span class="lineno"> 9493</span>  exc = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l09494"></a><span class="lineno"> 9494</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="l09495"></a><span class="lineno"> 9495</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div><div class="line"><a name="l09496"></a><span class="lineno"> 9496</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(ptr);</div><div class="line"><a name="l09497"></a><span class="lineno"> 9497</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l09498"></a><span class="lineno"> 9498</span>  <span class="keywordflow">return</span> exc;</div><div class="line"><a name="l09499"></a><span class="lineno"> 9499</span>  }</div><div class="line"><a name="l09500"></a><span class="lineno"> 9500</span> </div><div class="line"><a name="l09501"></a><span class="lineno"> 9501</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(ret);</div><div class="line"><a name="l09502"></a><span class="lineno"> 9502</span>  strval = get_str_from_obj(ret);</div><div class="line"><a name="l09503"></a><span class="lineno"> 9503</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832">RbTk_OBJ_UNTRUST</a>(strval);</div><div class="line"><a name="l09504"></a><span class="lineno"> 9504</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(ret);</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>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div><div class="line"><a name="l09507"></a><span class="lineno"> 9507</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(ptr);</div><div class="line"><a name="l09508"></a><span class="lineno"> 9508</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</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>  <span class="keywordflow">return</span>(strval);</div><div class="line"><a name="l09511"></a><span class="lineno"> 9511</span>  }</div><div class="line"><a name="l09512"></a><span class="lineno"> 9512</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l09513"></a><span class="lineno"> 9513</span>  {</div><div class="line"><a name="l09514"></a><span class="lineno"> 9514</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> *ret;</div><div class="line"><a name="l09515"></a><span class="lineno"> 9515</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> strval;</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="comment">/* ip is deleted? */</span></div><div class="line"><a name="l09518"></a><span class="lineno"> 9518</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l09519"></a><span class="lineno"> 9519</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l09520"></a><span class="lineno"> 9520</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l09521"></a><span class="lineno"> 9521</span>  <span class="comment">/* Tcl_Preserve(ptr->ip); */</span></div><div class="line"><a name="l09522"></a><span class="lineno"> 9522</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a55dbead056a35cc4c3bcdaefe23e6252">rbtk_preserve_ip</a>(ptr);</div><div class="line"><a name="l09523"></a><span class="lineno"> 9523</span>  ret = Tcl_SetVar2(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(varname),</div><div class="line"><a name="l09524"></a><span class="lineno"> 9524</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(index) ? <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a> : <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(index),</div><div class="line"><a name="l09525"></a><span class="lineno"> 9525</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(value), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(flag));</div><div class="line"><a name="l09526"></a><span class="lineno"> 9526</span>  }</div><div class="line"><a name="l09527"></a><span class="lineno"> 9527</span> </div><div class="line"><a name="l09528"></a><span class="lineno"> 9528</span>  <span class="keywordflow">if</span> (ret == (<span class="keywordtype">char</span>*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l09529"></a><span class="lineno"> 9529</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">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="l09530"></a><span class="lineno"> 9530</span>  }</div><div class="line"><a name="l09531"></a><span class="lineno"> 9531</span> </div><div class="line"><a name="l09532"></a><span class="lineno"> 9532</span>  strval = <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(ret);</div><div class="line"><a name="l09533"></a><span class="lineno"> 9533</span> </div><div class="line"><a name="l09534"></a><span class="lineno"> 9534</span>  <span class="comment">/* Tcl_Release(ptr->ip); */</span></div><div class="line"><a name="l09535"></a><span class="lineno"> 9535</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a>(ptr);</div><div class="line"><a name="l09536"></a><span class="lineno"> 9536</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l09537"></a><span class="lineno"> 9537</span> </div><div class="line"><a name="l09538"></a><span class="lineno"> 9538</span>  <span class="keywordflow">return</span>(strval);</div><div class="line"><a name="l09539"></a><span class="lineno"> 9539</span>  }</div><div class="line"><a name="l09540"></a><span class="lineno"> 9540</span> <span class="preprocessor">#endif</span></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> </div><div class="line"><a name="l09543"></a><span class="lineno"> 9543</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09544"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0434b143d141ef59372a35f95aa41f82"> 9544</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0434b143d141ef59372a35f95aa41f82">ip_set_variable2</a>(<span class="keyword">self</span>, varname, index, value, flag)</div><div class="line"><a name="l09545"></a><span class="lineno"> 9545</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l09546"></a><span class="lineno"> 9546</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> varname;</div><div class="line"><a name="l09547"></a><span class="lineno"> 9547</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> index;</div><div class="line"><a name="l09548"></a><span class="lineno"> 9548</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> value;</div><div class="line"><a name="l09549"></a><span class="lineno"> 9549</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> flag;</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>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[4];</div><div class="line"><a name="l09552"></a><span class="lineno"> 9552</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> retval;</div><div class="line"><a name="l09553"></a><span class="lineno"> 9553</span> </div><div class="line"><a name="l09554"></a><span class="lineno"> 9554</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(varname);</div><div class="line"><a name="l09555"></a><span class="lineno"> 9555</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="l09556"></a><span class="lineno"> 9556</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(value);</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>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[0] = varname;</div><div class="line"><a name="l09559"></a><span class="lineno"> 9559</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1] = index;</div><div class="line"><a name="l09560"></a><span class="lineno"> 9560</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[2] = value;</div><div class="line"><a name="l09561"></a><span class="lineno"> 9561</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[3] = flag;</div><div class="line"><a name="l09562"></a><span class="lineno"> 9562</span> </div><div class="line"><a name="l09563"></a><span class="lineno"> 9563</span>  retval = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1cec8ebc4c54249136da6b6df38fb723">tk_funcall</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aff7f5e9084d311c6fc0505391b745029">ip_set_variable2_core</a>, 4, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>);</div><div class="line"><a name="l09564"></a><span class="lineno"> 9564</span> </div><div class="line"><a name="l09565"></a><span class="lineno"> 9565</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="l09566"></a><span class="lineno"> 9566</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l09567"></a><span class="lineno"> 9567</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l09568"></a><span class="lineno"> 9568</span>  <span class="keywordflow">return</span> retval;</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> }</div><div class="line"><a name="l09571"></a><span class="lineno"> 9571</span> </div><div class="line"><a name="l09572"></a><span class="lineno"> 9572</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09573"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a4d808b443ed297690a9e9df396a0b26b"> 9573</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4d808b443ed297690a9e9df396a0b26b">ip_set_variable</a>(<span class="keyword">self</span>, varname, value, flag)</div><div class="line"><a name="l09574"></a><span class="lineno"> 9574</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l09575"></a><span class="lineno"> 9575</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> varname;</div><div class="line"><a name="l09576"></a><span class="lineno"> 9576</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> value;</div><div class="line"><a name="l09577"></a><span class="lineno"> 9577</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> flag;</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="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0434b143d141ef59372a35f95aa41f82">ip_set_variable2</a>(<span class="keyword">self</span>, varname, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>, value, flag);</div><div class="line"><a name="l09580"></a><span class="lineno"> 9580</span> }</div><div class="line"><a name="l09581"></a><span class="lineno"> 9581</span> </div><div class="line"><a name="l09582"></a><span class="lineno"> 9582</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09583"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a4642c8006f803b2226088d68ae0a5d7f"> 9583</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4642c8006f803b2226088d68ae0a5d7f">ip_unset_variable2_core</a>(interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l09584"></a><span class="lineno"> 9584</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l09585"></a><span class="lineno"> 9585</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l09586"></a><span class="lineno"> 9586</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</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="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</div><div class="line"><a name="l09589"></a><span class="lineno"> 9589</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> varname, index, flag;</div><div class="line"><a name="l09590"></a><span class="lineno"> 9590</span> </div><div class="line"><a name="l09591"></a><span class="lineno"> 9591</span>  varname = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[0];</div><div class="line"><a name="l09592"></a><span class="lineno"> 9592</span>  index = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1];</div><div class="line"><a name="l09593"></a><span class="lineno"> 9593</span>  flag = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[2];</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="comment">/*</span></div><div class="line"><a name="l09596"></a><span class="lineno"> 9596</span> <span class="comment"> StringValue(varname);</span></div><div class="line"><a name="l09597"></a><span class="lineno"> 9597</span> <span class="comment"> if (!NIL_P(index)) StringValue(index);</span></div><div class="line"><a name="l09598"></a><span class="lineno"> 9598</span> <span class="comment"> */</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="comment">/* ip is deleted? */</span></div><div class="line"><a name="l09601"></a><span class="lineno"> 9601</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l09602"></a><span class="lineno"> 9602</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l09603"></a><span class="lineno"> 9603</span>  }</div><div class="line"><a name="l09604"></a><span class="lineno"> 9604</span> </div><div class="line"><a name="l09605"></a><span class="lineno"> 9605</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="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(varname),</div><div class="line"><a name="l09606"></a><span class="lineno"> 9606</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(index) ? <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a> : <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(index),</div><div class="line"><a name="l09607"></a><span class="lineno"> 9607</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a9444c431b3cb1184e7523fc572f2c758">FIX2INT</a>(flag));</div><div class="line"><a name="l09608"></a><span class="lineno"> 9608</span> </div><div class="line"><a name="l09609"></a><span class="lineno"> 9609</span>  <span class="keywordflow">if</span> (ptr-><a class="code" href="../../db/d19/structtcltkip.html#a448db6c03cf35448208ebce2f3eb6727">return_value</a> == TCL_ERROR) {</div><div class="line"><a name="l09610"></a><span class="lineno"> 9610</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="l09611"></a><span class="lineno"> 9611</span>  <span class="comment">/* return rb_exc_new2(rb_eRuntimeError,</span></div><div class="line"><a name="l09612"></a><span class="lineno"> 9612</span> <span class="comment"> Tcl_GetStringResult(ptr->ip)); */</span></div><div class="line"><a name="l09613"></a><span class="lineno"> 9613</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a>(interp, <a class="code" href="../../db/dcc/error_8c.html#a95ad3953d535707e2cf2b1d837f5e253">rb_eRuntimeError</a>,</div><div class="line"><a name="l09614"></a><span class="lineno"> 9614</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="l09615"></a><span class="lineno"> 9615</span>  }</div><div class="line"><a name="l09616"></a><span class="lineno"> 9616</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>;</div><div class="line"><a name="l09617"></a><span class="lineno"> 9617</span>  }</div><div class="line"><a name="l09618"></a><span class="lineno"> 9618</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l09619"></a><span class="lineno"> 9619</span> }</div><div class="line"><a name="l09620"></a><span class="lineno"> 9620</span> </div><div class="line"><a name="l09621"></a><span class="lineno"> 9621</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09622"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a0c7850986e4bfef62d6860e12ea90c40"> 9622</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c7850986e4bfef62d6860e12ea90c40">ip_unset_variable2</a>(<span class="keyword">self</span>, varname, index, flag)</div><div class="line"><a name="l09623"></a><span class="lineno"> 9623</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l09624"></a><span class="lineno"> 9624</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> varname;</div><div class="line"><a name="l09625"></a><span class="lineno"> 9625</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> index;</div><div class="line"><a name="l09626"></a><span class="lineno"> 9626</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> flag;</div><div class="line"><a name="l09627"></a><span class="lineno"> 9627</span> {</div><div class="line"><a name="l09628"></a><span class="lineno"> 9628</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[3];</div><div class="line"><a name="l09629"></a><span class="lineno"> 9629</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> retval;</div><div class="line"><a name="l09630"></a><span class="lineno"> 9630</span> </div><div class="line"><a name="l09631"></a><span class="lineno"> 9631</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(varname);</div><div class="line"><a name="l09632"></a><span class="lineno"> 9632</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="l09633"></a><span class="lineno"> 9633</span> </div><div class="line"><a name="l09634"></a><span class="lineno"> 9634</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[0] = varname;</div><div class="line"><a name="l09635"></a><span class="lineno"> 9635</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1] = index;</div><div class="line"><a name="l09636"></a><span class="lineno"> 9636</span>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[2] = flag;</div><div class="line"><a name="l09637"></a><span class="lineno"> 9637</span> </div><div class="line"><a name="l09638"></a><span class="lineno"> 9638</span>  retval = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1cec8ebc4c54249136da6b6df38fb723">tk_funcall</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4642c8006f803b2226088d68ae0a5d7f">ip_unset_variable2_core</a>, 3, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, <span class="keyword">self</span>);</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">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(retval)) {</div><div class="line"><a name="l09641"></a><span class="lineno"> 9641</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l09642"></a><span class="lineno"> 9642</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l09643"></a><span class="lineno"> 9643</span>  <span class="keywordflow">return</span> retval;</div><div class="line"><a name="l09644"></a><span class="lineno"> 9644</span>  }</div><div class="line"><a name="l09645"></a><span class="lineno"> 9645</span> }</div><div class="line"><a name="l09646"></a><span class="lineno"> 9646</span> </div><div class="line"><a name="l09647"></a><span class="lineno"> 9647</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09648"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a469264067776bdec259cbed88b2dac33"> 9648</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a469264067776bdec259cbed88b2dac33">ip_unset_variable</a>(<span class="keyword">self</span>, varname, flag)</div><div class="line"><a name="l09649"></a><span class="lineno"> 9649</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l09650"></a><span class="lineno"> 9650</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> varname;</div><div class="line"><a name="l09651"></a><span class="lineno"> 9651</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> flag;</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>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c7850986e4bfef62d6860e12ea90c40">ip_unset_variable2</a>(<span class="keyword">self</span>, varname, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>, flag);</div><div class="line"><a name="l09654"></a><span class="lineno"> 9654</span> }</div><div class="line"><a name="l09655"></a><span class="lineno"> 9655</span> </div><div class="line"><a name="l09656"></a><span class="lineno"> 9656</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09657"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a10bea1ebd451dae673bda0647aafaf34"> 9657</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a10bea1ebd451dae673bda0647aafaf34">ip_get_global_var</a>(<span class="keyword">self</span>, varname)</div><div class="line"><a name="l09658"></a><span class="lineno"> 9658</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l09659"></a><span class="lineno"> 9659</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> varname;</div><div class="line"><a name="l09660"></a><span class="lineno"> 9660</span> {</div><div class="line"><a name="l09661"></a><span class="lineno"> 9661</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7a4270e161e4f43948d987ba0eafc670">ip_get_variable</a>(<span class="keyword">self</span>, varname,</div><div class="line"><a name="l09662"></a><span class="lineno"> 9662</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="l09663"></a><span class="lineno"> 9663</span> }</div><div class="line"><a name="l09664"></a><span class="lineno"> 9664</span> </div><div class="line"><a name="l09665"></a><span class="lineno"> 9665</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09666"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a3be36efcd7b93c3d219e29450c9d86b0"> 9666</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be36efcd7b93c3d219e29450c9d86b0">ip_get_global_var2</a>(<span class="keyword">self</span>, varname, index)</div><div class="line"><a name="l09667"></a><span class="lineno"> 9667</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l09668"></a><span class="lineno"> 9668</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> varname;</div><div class="line"><a name="l09669"></a><span class="lineno"> 9669</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> index;</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> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a58191d3b453f95d98a2ab1ee27fa2857">ip_get_variable2</a>(<span class="keyword">self</span>, varname, index,</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#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09676"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a95f3a04393fe2d69b01a89e31609ae35"> 9676</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a95f3a04393fe2d69b01a89e31609ae35">ip_set_global_var</a>(<span class="keyword">self</span>, varname, value)</div><div class="line"><a name="l09677"></a><span class="lineno"> 9677</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l09678"></a><span class="lineno"> 9678</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> varname;</div><div class="line"><a name="l09679"></a><span class="lineno"> 9679</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> value;</div><div class="line"><a name="l09680"></a><span class="lineno"> 9680</span> {</div><div class="line"><a name="l09681"></a><span class="lineno"> 9681</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4d808b443ed297690a9e9df396a0b26b">ip_set_variable</a>(<span class="keyword">self</span>, varname, value,</div><div class="line"><a name="l09682"></a><span class="lineno"> 9682</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="l09683"></a><span class="lineno"> 9683</span> }</div><div class="line"><a name="l09684"></a><span class="lineno"> 9684</span> </div><div class="line"><a name="l09685"></a><span class="lineno"> 9685</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09686"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a8510743a4f48d31db83b79f12c70e28b"> 9686</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8510743a4f48d31db83b79f12c70e28b">ip_set_global_var2</a>(<span class="keyword">self</span>, varname, index, value)</div><div class="line"><a name="l09687"></a><span class="lineno"> 9687</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l09688"></a><span class="lineno"> 9688</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> varname;</div><div class="line"><a name="l09689"></a><span class="lineno"> 9689</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> index;</div><div class="line"><a name="l09690"></a><span class="lineno"> 9690</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> value;</div><div class="line"><a name="l09691"></a><span class="lineno"> 9691</span> {</div><div class="line"><a name="l09692"></a><span class="lineno"> 9692</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0434b143d141ef59372a35f95aa41f82">ip_set_variable2</a>(<span class="keyword">self</span>, varname, index, value,</div><div class="line"><a name="l09693"></a><span class="lineno"> 9693</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="l09694"></a><span class="lineno"> 9694</span> }</div><div class="line"><a name="l09695"></a><span class="lineno"> 9695</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#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09697"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ace40b11f20bc1b04af185c9a64cb2c67"> 9697</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ace40b11f20bc1b04af185c9a64cb2c67">ip_unset_global_var</a>(<span class="keyword">self</span>, varname)</div><div class="line"><a name="l09698"></a><span class="lineno"> 9698</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l09699"></a><span class="lineno"> 9699</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> varname;</div><div class="line"><a name="l09700"></a><span class="lineno"> 9700</span> {</div><div class="line"><a name="l09701"></a><span class="lineno"> 9701</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a469264067776bdec259cbed88b2dac33">ip_unset_variable</a>(<span class="keyword">self</span>, varname,</div><div class="line"><a name="l09702"></a><span class="lineno"> 9702</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="l09703"></a><span class="lineno"> 9703</span> }</div><div class="line"><a name="l09704"></a><span class="lineno"> 9704</span> </div><div class="line"><a name="l09705"></a><span class="lineno"> 9705</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09706"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa869cbefaaa2e186ef1a97ceaea5d190"> 9706</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa869cbefaaa2e186ef1a97ceaea5d190">ip_unset_global_var2</a>(<span class="keyword">self</span>, varname, index)</div><div class="line"><a name="l09707"></a><span class="lineno"> 9707</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l09708"></a><span class="lineno"> 9708</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> varname;</div><div class="line"><a name="l09709"></a><span class="lineno"> 9709</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> index;</div><div class="line"><a name="l09710"></a><span class="lineno"> 9710</span> {</div><div class="line"><a name="l09711"></a><span class="lineno"> 9711</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c7850986e4bfef62d6860e12ea90c40">ip_unset_variable2</a>(<span class="keyword">self</span>, varname, index,</div><div class="line"><a name="l09712"></a><span class="lineno"> 9712</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="l09713"></a><span class="lineno"> 9713</span> }</div><div class="line"><a name="l09714"></a><span class="lineno"> 9714</span> </div><div class="line"><a name="l09715"></a><span class="lineno"> 9715</span> </div><div class="line"><a name="l09716"></a><span class="lineno"> 9716</span> <span class="comment">/* treat Tcl_List */</span></div><div class="line"><a name="l09717"></a><span class="lineno"> 9717</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09718"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a884ff98bc016ae1c7063f8f78338350e"> 9718</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a884ff98bc016ae1c7063f8f78338350e">lib_split_tklist_core</a>(ip_obj, list_str)</div><div class="line"><a name="l09719"></a><span class="lineno"> 9719</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ip_obj;</div><div class="line"><a name="l09720"></a><span class="lineno"> 9720</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> list_str;</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>  Tcl_Interp *interp;</div><div class="line"><a name="l09723"></a><span class="lineno"> 9723</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ary, elem;</div><div class="line"><a name="l09724"></a><span class="lineno"> 9724</span>  <span class="keywordtype">int</span> idx;</div><div class="line"><a name="l09725"></a><span class="lineno"> 9725</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="l09726"></a><span class="lineno"> 9726</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l09727"></a><span class="lineno"> 9727</span>  <span class="keywordtype">int</span> list_enc_idx;</div><div class="line"><a name="l09728"></a><span class="lineno"> 9728</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> list_ivar_enc;</div><div class="line"><a name="l09729"></a><span class="lineno"> 9729</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09730"></a><span class="lineno"> 9730</span>  <span class="keywordtype">int</span> <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>;</div><div class="line"><a name="l09731"></a><span class="lineno"> 9731</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> old_gc;</div><div class="line"><a name="l09732"></a><span class="lineno"> 9732</span> </div><div class="line"><a name="l09733"></a><span class="lineno"> 9733</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acc6e437a3e4205736d8cb9b4888762fc">tcl_stubs_check</a>();</div><div class="line"><a name="l09734"></a><span class="lineno"> 9734</span> </div><div class="line"><a name="l09735"></a><span class="lineno"> 9735</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="l09736"></a><span class="lineno"> 9736</span>  interp = (Tcl_Interp *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l09737"></a><span class="lineno"> 9737</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(ip_obj) == (<span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l09738"></a><span class="lineno"> 9738</span>  interp = (Tcl_Interp *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l09739"></a><span class="lineno"> 9739</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l09740"></a><span class="lineno"> 9740</span>  interp = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(ip_obj)-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>;</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> </div><div class="line"><a name="l09743"></a><span class="lineno"> 9743</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(list_str);</div><div class="line"><a name="l09744"></a><span class="lineno"> 9744</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l09745"></a><span class="lineno"> 9745</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="l09746"></a><span class="lineno"> 9746</span>  list_ivar_enc = <a class="code" href="../../db/d2e/intern_8h.html#a35a10b958666c1b330238eea7b7f3a8a">rb_ivar_get</a>(list_str, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>);</div><div class="line"><a name="l09747"></a><span class="lineno"> 9747</span> <span class="preprocessor">#endif</span></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> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l09751"></a><span class="lineno"> 9751</span>  <span class="comment">/* object style interface */</span></div><div class="line"><a name="l09752"></a><span class="lineno"> 9752</span>  Tcl_Obj *listobj;</div><div class="line"><a name="l09753"></a><span class="lineno"> 9753</span>  <span class="keywordtype">int</span> objc;</div><div class="line"><a name="l09754"></a><span class="lineno"> 9754</span>  Tcl_Obj **objv;</div><div class="line"><a name="l09755"></a><span class="lineno"> 9755</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l09756"></a><span class="lineno"> 9756</span> </div><div class="line"><a name="l09757"></a><span class="lineno"> 9757</span>  listobj = get_obj_from_str(list_str);</div><div class="line"><a name="l09758"></a><span class="lineno"> 9758</span> </div><div class="line"><a name="l09759"></a><span class="lineno"> 9759</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(listobj);</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>  <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a> = Tcl_ListObjGetElements(interp, listobj, &objc, &objv);</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">if</span> (<a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a> == TCL_ERROR) {</div><div class="line"><a name="l09764"></a><span class="lineno"> 9764</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(listobj);</div><div class="line"><a name="l09765"></a><span class="lineno"> 9765</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l09766"></a><span class="lineno"> 9766</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="l09767"></a><span class="lineno"> 9767</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l09768"></a><span class="lineno"> 9768</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="l09769"></a><span class="lineno"> 9769</span>  }</div><div class="line"><a name="l09770"></a><span class="lineno"> 9770</span>  }</div><div class="line"><a name="l09771"></a><span class="lineno"> 9771</span> </div><div class="line"><a name="l09772"></a><span class="lineno"> 9772</span>  <span class="keywordflow">for</span>(idx = 0; idx < objc; idx++) {</div><div class="line"><a name="l09773"></a><span class="lineno"> 9773</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(objv[idx]);</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> </div><div class="line"><a name="l09776"></a><span class="lineno"> 9776</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l09777"></a><span class="lineno"> 9777</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</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>  ary = <a class="code" href="../../db/d2e/intern_8h.html#aec80847cff5250fc99e223d1966a2153">rb_ary_new2</a>(objc);</div><div class="line"><a name="l09780"></a><span class="lineno"> 9780</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="l09781"></a><span class="lineno"> 9781</span> </div><div class="line"><a name="l09782"></a><span class="lineno"> 9782</span>  old_gc = <a class="code" href="../../d8/d16/gc_8c.html#a27a2dbb7307d5ea8e096ce4357f6ece6">rb_gc_disable</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>  <span class="keywordflow">for</span>(idx = 0; idx < objc; idx++) {</div><div class="line"><a name="l09785"></a><span class="lineno"> 9785</span>  elem = get_str_from_obj(objv[idx]);</div><div class="line"><a name="l09786"></a><span class="lineno"> 9786</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="l09787"></a><span class="lineno"> 9787</span> </div><div class="line"><a name="l09788"></a><span class="lineno"> 9788</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l09789"></a><span class="lineno"> 9789</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/db5/encoding_8c.html#a0ee8da2e6cc01567488e318854a3d9c0">rb_enc_get_index</a>(elem) == <a class="code" href="../../d5/d9d/tcltklib_8c.html#a76a58884428d17b0ae0736d9d16ade61">ENCODING_INDEX_BINARY</a>) {</div><div class="line"><a name="l09790"></a><span class="lineno"> 9790</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ad5df62bd02b6d06037baef7ad68bcae3">rb_enc_associate_index</a>(elem, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a76a58884428d17b0ae0736d9d16ade61">ENCODING_INDEX_BINARY</a>);</div><div class="line"><a name="l09791"></a><span class="lineno"> 9791</span>  <a class="code" href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a>(elem, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a233859a1dce4fae0b33d1ea0243b0d47">ENCODING_NAME_BINARY</a>);</div><div class="line"><a name="l09792"></a><span class="lineno"> 9792</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l09793"></a><span class="lineno"> 9793</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="l09794"></a><span class="lineno"> 9794</span>  <a class="code" href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a>(elem, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a>, list_ivar_enc);</div><div class="line"><a name="l09795"></a><span class="lineno"> 9795</span>  }</div><div class="line"><a name="l09796"></a><span class="lineno"> 9796</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09797"></a><span class="lineno"> 9797</span>  <span class="comment">/* RARRAY(ary)->ptr[idx] = elem; */</span></div><div class="line"><a name="l09798"></a><span class="lineno"> 9798</span>  <a class="code" href="../../dc/dcc/array_8c.html#a59d553a8cd781364b8bcb0deae25cca2">rb_ary_push</a>(ary, elem);</div><div class="line"><a name="l09799"></a><span class="lineno"> 9799</span>  }</div><div class="line"><a name="l09800"></a><span class="lineno"> 9800</span> </div><div class="line"><a name="l09801"></a><span class="lineno"> 9801</span>  <span class="comment">/* RARRAY(ary)->len = objc; */</span></div><div class="line"><a name="l09802"></a><span class="lineno"> 9802</span> </div><div class="line"><a name="l09803"></a><span class="lineno"> 9803</span>  <span class="keywordflow">if</span> (old_gc == <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>) <a class="code" href="../../d8/d16/gc_8c.html#a3cbc64cc9d74c437c08a5dc923d1c7dd">rb_gc_enable</a>();</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>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l09806"></a><span class="lineno"> 9806</span> </div><div class="line"><a name="l09807"></a><span class="lineno"> 9807</span>  <span class="keywordflow">for</span>(idx = 0; idx < objc; idx++) {</div><div class="line"><a name="l09808"></a><span class="lineno"> 9808</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(objv[idx]);</div><div class="line"><a name="l09809"></a><span class="lineno"> 9809</span>  }</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>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(listobj);</div><div class="line"><a name="l09812"></a><span class="lineno"> 9812</span> </div><div class="line"><a name="l09813"></a><span class="lineno"> 9813</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l09814"></a><span class="lineno"> 9814</span>  <span class="comment">/* string style interface */</span></div><div class="line"><a name="l09815"></a><span class="lineno"> 9815</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l09816"></a><span class="lineno"> 9816</span>  <span class="keywordtype">char</span> **<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l09817"></a><span class="lineno"> 9817</span> </div><div class="line"><a name="l09818"></a><span class="lineno"> 9818</span>  <span class="keywordflow">if</span> (Tcl_SplitList(interp, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(list_str),</div><div class="line"><a name="l09819"></a><span class="lineno"> 9819</span>  &<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, &<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>) == TCL_ERROR) {</div><div class="line"><a name="l09820"></a><span class="lineno"> 9820</span>  <span class="keywordflow">if</span> (interp == (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l09821"></a><span class="lineno"> 9821</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="l09822"></a><span class="lineno"> 9822</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l09823"></a><span class="lineno"> 9823</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="l09824"></a><span class="lineno"> 9824</span>  }</div><div class="line"><a name="l09825"></a><span class="lineno"> 9825</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>  ary = <a class="code" href="../../db/d2e/intern_8h.html#aec80847cff5250fc99e223d1966a2153">rb_ary_new2</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>);</div><div class="line"><a name="l09828"></a><span class="lineno"> 9828</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="l09829"></a><span class="lineno"> 9829</span> </div><div class="line"><a name="l09830"></a><span class="lineno"> 9830</span>  old_gc = <a class="code" href="../../d8/d16/gc_8c.html#a27a2dbb7307d5ea8e096ce4357f6ece6">rb_gc_disable</a>();</div><div class="line"><a name="l09831"></a><span class="lineno"> 9831</span> </div><div class="line"><a name="l09832"></a><span class="lineno"> 9832</span>  <span class="keywordflow">for</span>(idx = 0; idx < <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>; idx++) {</div><div class="line"><a name="l09833"></a><span class="lineno"> 9833</span>  <span class="keywordflow">if</span> (taint_flag) {</div><div class="line"><a name="l09834"></a><span class="lineno"> 9834</span>  elem = <a class="code" href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a>(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[idx]);</div><div class="line"><a name="l09835"></a><span class="lineno"> 9835</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l09836"></a><span class="lineno"> 9836</span>  elem = <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[idx]);</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>  <span class="comment">/* rb_ivar_set(elem, ID_at_enc, rb_str_new2("binary")); */</span></div><div class="line"><a name="l09839"></a><span class="lineno"> 9839</span>  <span class="comment">/* RARRAY(ary)->ptr[idx] = elem; */</span></div><div class="line"><a name="l09840"></a><span class="lineno"> 9840</span>  <a class="code" href="../../dc/dcc/array_8c.html#a59d553a8cd781364b8bcb0deae25cca2">rb_ary_push</a>(ary, elem)</div><div class="line"><a name="l09841"></a><span class="lineno"> 9841</span>  }</div><div class="line"><a name="l09842"></a><span class="lineno"> 9842</span>  <span class="comment">/* RARRAY(ary)->len = argc; */</span></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">if</span> (old_gc == <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>) <a class="code" href="../../d8/d16/gc_8c.html#a3cbc64cc9d74c437c08a5dc923d1c7dd">rb_gc_enable</a>();</div><div class="line"><a name="l09845"></a><span class="lineno"> 9845</span> <span class="preprocessor">#endif</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> </div><div class="line"><a name="l09848"></a><span class="lineno"> 9848</span>  <span class="keywordflow">return</span> ary;</div><div class="line"><a name="l09849"></a><span class="lineno"> 9849</span> }</div><div class="line"><a name="l09850"></a><span class="lineno"> 9850</span> </div><div class="line"><a name="l09851"></a><span class="lineno"> 9851</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09852"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad829d59da9ccaa0434b8b54d58825ee5"> 9852</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad829d59da9ccaa0434b8b54d58825ee5">lib_split_tklist</a>(<span class="keyword">self</span>, list_str)</div><div class="line"><a name="l09853"></a><span class="lineno"> 9853</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l09854"></a><span class="lineno"> 9854</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> list_str;</div><div class="line"><a name="l09855"></a><span class="lineno"> 9855</span> {</div><div class="line"><a name="l09856"></a><span class="lineno"> 9856</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a884ff98bc016ae1c7063f8f78338350e">lib_split_tklist_core</a>(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>, list_str);</div><div class="line"><a name="l09857"></a><span class="lineno"> 9857</span> }</div><div class="line"><a name="l09858"></a><span class="lineno"> 9858</span> </div><div class="line"><a name="l09859"></a><span class="lineno"> 9859</span> </div><div class="line"><a name="l09860"></a><span class="lineno"> 9860</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09861"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a7ab9e0914c68c612e61d95cb79e3bce2"> 9861</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7ab9e0914c68c612e61d95cb79e3bce2">ip_split_tklist</a>(<span class="keyword">self</span>, list_str)</div><div class="line"><a name="l09862"></a><span class="lineno"> 9862</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l09863"></a><span class="lineno"> 9863</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> list_str;</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>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a884ff98bc016ae1c7063f8f78338350e">lib_split_tklist_core</a>(<span class="keyword">self</span>, list_str);</div><div class="line"><a name="l09866"></a><span class="lineno"> 9866</span> }</div><div class="line"><a name="l09867"></a><span class="lineno"> 9867</span> </div><div class="line"><a name="l09868"></a><span class="lineno"> 9868</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09869"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a5c522d1704764fcb93ad2b4b911385ee"> 9869</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5c522d1704764fcb93ad2b4b911385ee">lib_merge_tklist</a>(<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, obj)</div><div class="line"><a name="l09870"></a><span class="lineno"> 9870</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l09871"></a><span class="lineno"> 9871</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</div><div class="line"><a name="l09872"></a><span class="lineno"> 9872</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> obj;</div><div class="line"><a name="l09873"></a><span class="lineno"> 9873</span> {</div><div class="line"><a name="l09874"></a><span class="lineno"> 9874</span>  <span class="keywordtype">int</span> num, len;</div><div class="line"><a name="l09875"></a><span class="lineno"> 9875</span>  <span class="keywordtype">int</span> *flagPtr;</div><div class="line"><a name="l09876"></a><span class="lineno"> 9876</span>  <span class="keywordtype">char</span> *dst, *<a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>;</div><div class="line"><a name="l09877"></a><span class="lineno"> 9877</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> str;</div><div class="line"><a name="l09878"></a><span class="lineno"> 9878</span>  <span class="keywordtype">int</span> taint_flag = 0;</div><div class="line"><a name="l09879"></a><span class="lineno"> 9879</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l09880"></a><span class="lineno"> 9880</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> old_gc;</div><div class="line"><a name="l09881"></a><span class="lineno"> 9881</span> </div><div class="line"><a name="l09882"></a><span class="lineno"> 9882</span>  <span class="keywordflow">if</span> (<a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a> == 0) <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">""</span>);</div><div class="line"><a name="l09883"></a><span class="lineno"> 9883</span> </div><div class="line"><a name="l09884"></a><span class="lineno"> 9884</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acc6e437a3e4205736d8cb9b4888762fc">tcl_stubs_check</a>();</div><div class="line"><a name="l09885"></a><span class="lineno"> 9885</span> </div><div class="line"><a name="l09886"></a><span class="lineno"> 9886</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l09887"></a><span class="lineno"> 9887</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>;</div><div class="line"><a name="l09888"></a><span class="lineno"> 9888</span>  old_gc = <a class="code" href="../../d8/d16/gc_8c.html#a27a2dbb7307d5ea8e096ce4357f6ece6">rb_gc_disable</a>();</div><div class="line"><a name="l09889"></a><span class="lineno"> 9889</span> </div><div class="line"><a name="l09890"></a><span class="lineno"> 9890</span>  <span class="comment">/* based on Tcl/Tk's Tcl_Merge() */</span></div><div class="line"><a name="l09891"></a><span class="lineno"> 9891</span>  <span class="comment">/* flagPtr = ALLOC_N(int, argc); */</span></div><div class="line"><a name="l09892"></a><span class="lineno"> 9892</span>  flagPtr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a>(<span class="keywordtype">int</span>, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>);</div><div class="line"><a name="l09893"></a><span class="lineno"> 9893</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="l09894"></a><span class="lineno"> 9894</span>  Tcl_Preserve((ClientData)flagPtr); <span class="comment">/* XXXXXXXXXX */</span></div><div class="line"><a name="l09895"></a><span class="lineno"> 9895</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09896"></a><span class="lineno"> 9896</span> </div><div class="line"><a name="l09897"></a><span class="lineno"> 9897</span>  <span class="comment">/* pass 1 */</span></div><div class="line"><a name="l09898"></a><span class="lineno"> 9898</span>  len = 1;</div><div class="line"><a name="l09899"></a><span class="lineno"> 9899</span>  <span class="keywordflow">for</span>(num = 0; num < <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>; num++) {</div><div class="line"><a name="l09900"></a><span class="lineno"> 9900</span>  <span class="keywordflow">if</span> (<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a621bc62b1fd82640c1078daf90e1c061">OBJ_TAINTED</a>(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[num])) taint_flag = 1;</div><div class="line"><a name="l09901"></a><span class="lineno"> 9901</span>  dst = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a2665a51abbd5b49c15abff3df00fa9db">StringValuePtr</a>(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[num]);</div><div class="line"><a name="l09902"></a><span class="lineno"> 9902</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l09903"></a><span class="lineno"> 9903</span>  len += Tcl_ScanCountedElement(dst, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[num]),</div><div class="line"><a name="l09904"></a><span class="lineno"> 9904</span>  &flagPtr[num]) + 1;</div><div class="line"><a name="l09905"></a><span class="lineno"> 9905</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l09906"></a><span class="lineno"> 9906</span>  len += Tcl_ScanElement(dst, &flagPtr[num]) + 1;</div><div class="line"><a name="l09907"></a><span class="lineno"> 9907</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09908"></a><span class="lineno"> 9908</span>  }</div><div class="line"><a name="l09909"></a><span class="lineno"> 9909</span> </div><div class="line"><a name="l09910"></a><span class="lineno"> 9910</span>  <span class="comment">/* pass 2 */</span></div><div class="line"><a name="l09911"></a><span class="lineno"> 9911</span>  <span class="comment">/* result = (char *)Tcl_Alloc(len); */</span></div><div class="line"><a name="l09912"></a><span class="lineno"> 9912</span>  <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a> = (<span class="keywordtype">char</span> *)ckalloc(len);</div><div class="line"><a name="l09913"></a><span class="lineno"> 9913</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="l09914"></a><span class="lineno"> 9914</span>  Tcl_Preserve((ClientData)<a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>);</div><div class="line"><a name="l09915"></a><span class="lineno"> 9915</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09916"></a><span class="lineno"> 9916</span>  dst = <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>;</div><div class="line"><a name="l09917"></a><span class="lineno"> 9917</span>  <span class="keywordflow">for</span>(num = 0; num < <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>; num++) {</div><div class="line"><a name="l09918"></a><span class="lineno"> 9918</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l09919"></a><span class="lineno"> 9919</span>  len = Tcl_ConvertCountedElement(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[num]),</div><div class="line"><a name="l09920"></a><span class="lineno"> 9920</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[num]),</div><div class="line"><a name="l09921"></a><span class="lineno"> 9921</span>  dst, flagPtr[num]);</div><div class="line"><a name="l09922"></a><span class="lineno"> 9922</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l09923"></a><span class="lineno"> 9923</span>  len = Tcl_ConvertElement(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[num]), dst, flagPtr[num]);</div><div class="line"><a name="l09924"></a><span class="lineno"> 9924</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09925"></a><span class="lineno"> 9925</span>  dst += len;</div><div class="line"><a name="l09926"></a><span class="lineno"> 9926</span>  *dst = <span class="charliteral">' '</span>;</div><div class="line"><a name="l09927"></a><span class="lineno"> 9927</span>  dst++;</div><div class="line"><a name="l09928"></a><span class="lineno"> 9928</span>  }</div><div class="line"><a name="l09929"></a><span class="lineno"> 9929</span>  <span class="keywordflow">if</span> (dst == <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>) {</div><div class="line"><a name="l09930"></a><span class="lineno"> 9930</span>  *dst = 0;</div><div class="line"><a name="l09931"></a><span class="lineno"> 9931</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l09932"></a><span class="lineno"> 9932</span>  dst[-1] = 0;</div><div class="line"><a name="l09933"></a><span class="lineno"> 9933</span>  }</div><div class="line"><a name="l09934"></a><span class="lineno"> 9934</span> </div><div class="line"><a name="l09935"></a><span class="lineno"> 9935</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l09936"></a><span class="lineno"> 9936</span>  Tcl_EventuallyFree((ClientData)flagPtr, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l09937"></a><span class="lineno"> 9937</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l09938"></a><span class="lineno"> 9938</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="l09939"></a><span class="lineno"> 9939</span>  Tcl_Release((ClientData)flagPtr);</div><div class="line"><a name="l09940"></a><span class="lineno"> 9940</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l09941"></a><span class="lineno"> 9941</span>  <span class="comment">/* free(flagPtr); */</span></div><div class="line"><a name="l09942"></a><span class="lineno"> 9942</span>  ckfree((<span class="keywordtype">char</span>*)flagPtr);</div><div class="line"><a name="l09943"></a><span class="lineno"> 9943</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09944"></a><span class="lineno"> 9944</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09945"></a><span class="lineno"> 9945</span> </div><div class="line"><a name="l09946"></a><span class="lineno"> 9946</span>  <span class="comment">/* create object */</span></div><div class="line"><a name="l09947"></a><span class="lineno"> 9947</span>  str = <a class="code" href="../../db/d2e/intern_8h.html#a48b2b873adb8b6a04254bd631c4b03c5">rb_str_new</a>(<a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>, dst - <a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a> - 1);</div><div class="line"><a name="l09948"></a><span class="lineno"> 9948</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="l09949"></a><span class="lineno"> 9949</span> <span class="preprocessor">#if 0 </span><span class="comment">/* use Tcl_EventuallyFree */</span><span class="preprocessor"></span></div><div class="line"><a name="l09950"></a><span class="lineno"> 9950</span>  Tcl_EventuallyFree((ClientData)<a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>, TCL_DYNAMIC); <span class="comment">/* XXXXXXXX */</span></div><div class="line"><a name="l09951"></a><span class="lineno"> 9951</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l09952"></a><span class="lineno"> 9952</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="l09953"></a><span class="lineno"> 9953</span>  Tcl_Release((ClientData)<a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>); <span class="comment">/* XXXXXXXXXXX */</span></div><div class="line"><a name="l09954"></a><span class="lineno"> 9954</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l09955"></a><span class="lineno"> 9955</span>  <span class="comment">/* Tcl_Free(result); */</span></div><div class="line"><a name="l09956"></a><span class="lineno"> 9956</span>  ckfree(<a class="code" href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a>);</div><div class="line"><a name="l09957"></a><span class="lineno"> 9957</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09958"></a><span class="lineno"> 9958</span> <span class="preprocessor">#endif</span></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>  <span class="keywordflow">if</span> (old_gc == <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a>) <a class="code" href="../../d8/d16/gc_8c.html#a3cbc64cc9d74c437c08a5dc923d1c7dd">rb_gc_enable</a>();</div><div class="line"><a name="l09961"></a><span class="lineno"> 9961</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l09962"></a><span class="lineno"> 9962</span> </div><div class="line"><a name="l09963"></a><span class="lineno"> 9963</span>  <span class="keywordflow">return</span> str;</div><div class="line"><a name="l09964"></a><span class="lineno"> 9964</span> }</div><div class="line"><a name="l09965"></a><span class="lineno"> 9965</span> </div><div class="line"><a name="l09966"></a><span class="lineno"> 9966</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l09967"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a78444cea8a98d1a5dfec81befd3dedf5"> 9967</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a78444cea8a98d1a5dfec81befd3dedf5">lib_conv_listelement</a>(<span class="keyword">self</span>, src)</div><div class="line"><a name="l09968"></a><span class="lineno"> 9968</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <span class="keyword">self</span>;</div><div class="line"><a name="l09969"></a><span class="lineno"> 9969</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> src;</div><div class="line"><a name="l09970"></a><span class="lineno"> 9970</span> {</div><div class="line"><a name="l09971"></a><span class="lineno"> 9971</span>  <span class="keywordtype">int</span> len, scan_flag;</div><div class="line"><a name="l09972"></a><span class="lineno"> 9972</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> dst;</div><div class="line"><a name="l09973"></a><span class="lineno"> 9973</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="l09974"></a><span class="lineno"> 9974</span>  <span class="keywordtype">int</span> thr_crit_bup;</div><div class="line"><a name="l09975"></a><span class="lineno"> 9975</span> </div><div class="line"><a name="l09976"></a><span class="lineno"> 9976</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acc6e437a3e4205736d8cb9b4888762fc">tcl_stubs_check</a>();</div><div class="line"><a name="l09977"></a><span class="lineno"> 9977</span> </div><div class="line"><a name="l09978"></a><span class="lineno"> 9978</span>  thr_crit_bup = <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a>;</div><div class="line"><a name="l09979"></a><span class="lineno"> 9979</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</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>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(src);</div><div class="line"><a name="l09982"></a><span class="lineno"> 9982</span> </div><div class="line"><a name="l09983"></a><span class="lineno"> 9983</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l09984"></a><span class="lineno"> 9984</span>  len = Tcl_ScanCountedElement(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(src), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(src),</div><div class="line"><a name="l09985"></a><span class="lineno"> 9985</span>  &scan_flag);</div><div class="line"><a name="l09986"></a><span class="lineno"> 9986</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="l09987"></a><span class="lineno"> 9987</span>  len = Tcl_ConvertCountedElement(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(src), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a>(src),</div><div class="line"><a name="l09988"></a><span class="lineno"> 9988</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(dst), scan_flag);</div><div class="line"><a name="l09989"></a><span class="lineno"> 9989</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION < 8 */</span><span class="preprocessor"></span></div><div class="line"><a name="l09990"></a><span class="lineno"> 9990</span>  len = Tcl_ScanElement(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(src), &scan_flag);</div><div class="line"><a name="l09991"></a><span class="lineno"> 9991</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="l09992"></a><span class="lineno"> 9992</span>  len = Tcl_ConvertElement(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(src), <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(dst), scan_flag);</div><div class="line"><a name="l09993"></a><span class="lineno"> 9993</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l09994"></a><span class="lineno"> 9994</span> </div><div class="line"><a name="l09995"></a><span class="lineno"> 9995</span>  <a class="code" href="../../db/d2e/intern_8h.html#a0a133856edb99f69eae3cb5a9e275ac9">rb_str_resize</a>(dst, len);</div><div class="line"><a name="l09996"></a><span class="lineno"> 9996</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="l09997"></a><span class="lineno"> 9997</span> </div><div class="line"><a name="l09998"></a><span class="lineno"> 9998</span>  <a class="code" href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a> = thr_crit_bup;</div><div class="line"><a name="l09999"></a><span class="lineno"> 9999</span> </div><div class="line"><a name="l10000"></a><span class="lineno">10000</span>  <span class="keywordflow">return</span> dst;</div><div class="line"><a name="l10001"></a><span class="lineno">10001</span> }</div><div class="line"><a name="l10002"></a><span class="lineno">10002</span> </div><div class="line"><a name="l10003"></a><span class="lineno">10003</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10004"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aed87299455aeaf9e0caab263ce05ae35">10004</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed87299455aeaf9e0caab263ce05ae35">lib_getversion</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l10005"></a><span class="lineno">10005</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l10006"></a><span class="lineno">10006</span> {</div><div class="line"><a name="l10007"></a><span class="lineno">10007</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a171a0d27738b86387c3b5d7a5ff075e8">set_tcltk_version</a>();</div><div class="line"><a name="l10008"></a><span class="lineno">10008</span> </div><div class="line"><a name="l10009"></a><span class="lineno">10009</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a8f3988bb25848bb4e4519a29876b2d55">rb_ary_new3</a>(4, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a7bce65407b21f6812267e8d5426201f0">INT2NUM</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4afd20af9587a4711046697f7730d727">tcltk_version</a>.major),</div><div class="line"><a name="l10010"></a><span class="lineno">10010</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a7bce65407b21f6812267e8d5426201f0">INT2NUM</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4afd20af9587a4711046697f7730d727">tcltk_version</a>.minor),</div><div class="line"><a name="l10011"></a><span class="lineno">10011</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a7bce65407b21f6812267e8d5426201f0">INT2NUM</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4afd20af9587a4711046697f7730d727">tcltk_version</a>.type),</div><div class="line"><a name="l10012"></a><span class="lineno">10012</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a7bce65407b21f6812267e8d5426201f0">INT2NUM</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4afd20af9587a4711046697f7730d727">tcltk_version</a>.patchlevel));</div><div class="line"><a name="l10013"></a><span class="lineno">10013</span> }</div><div class="line"><a name="l10014"></a><span class="lineno">10014</span> </div><div class="line"><a name="l10015"></a><span class="lineno">10015</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10016"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a425d422eaab0de27ede50498550e0f19">10016</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a425d422eaab0de27ede50498550e0f19">lib_get_reltype_name</a>(<span class="keyword">self</span>)</div><div class="line"><a name="l10017"></a><span class="lineno">10017</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> self;</div><div class="line"><a name="l10018"></a><span class="lineno">10018</span> {</div><div class="line"><a name="l10019"></a><span class="lineno">10019</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a171a0d27738b86387c3b5d7a5ff075e8">set_tcltk_version</a>();</div><div class="line"><a name="l10020"></a><span class="lineno">10020</span> </div><div class="line"><a name="l10021"></a><span class="lineno">10021</span>  <span class="keywordflow">switch</span>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4afd20af9587a4711046697f7730d727">tcltk_version</a>.type) {</div><div class="line"><a name="l10022"></a><span class="lineno">10022</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="l10023"></a><span class="lineno">10023</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">"alpha"</span>);</div><div class="line"><a name="l10024"></a><span class="lineno">10024</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="l10025"></a><span class="lineno">10025</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">"beta"</span>);</div><div class="line"><a name="l10026"></a><span class="lineno">10026</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="l10027"></a><span class="lineno">10027</span>  <span class="keywordflow">return</span> <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">"final"</span>);</div><div class="line"><a name="l10028"></a><span class="lineno">10028</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l10029"></a><span class="lineno">10029</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="l10030"></a><span class="lineno">10030</span>  }</div><div class="line"><a name="l10031"></a><span class="lineno">10031</span> </div><div class="line"><a name="l10032"></a><span class="lineno">10032</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3af99897b60119951af8961dbd52dd3f">UNREACHABLE</a>;</div><div class="line"><a name="l10033"></a><span class="lineno">10033</span> }</div><div class="line"><a name="l10034"></a><span class="lineno">10034</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> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10037"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aedbcc28fcbb1d229b51954633635b29a">10037</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aedbcc28fcbb1d229b51954633635b29a">tcltklib_compile_info</a>()</div><div class="line"><a name="l10038"></a><span class="lineno">10038</span> {</div><div class="line"><a name="l10039"></a><span class="lineno">10039</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> ret;</div><div class="line"><a name="l10040"></a><span class="lineno">10040</span>  <span class="keywordtype">size_t</span> <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>;</div><div class="line"><a name="l10041"></a><span class="lineno">10041</span>  <span class="keyword">static</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c33b494a68ce28497e7ce8e5e95feff">CONST</a> <span class="keywordtype">char</span> form[]</div><div class="line"><a name="l10042"></a><span class="lineno">10042</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="l10043"></a><span class="lineno">10043</span>  <span class="keywordtype">char</span> *info;</div><div class="line"><a name="l10044"></a><span class="lineno">10044</span> </div><div class="line"><a name="l10045"></a><span class="lineno">10045</span>  <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a> = <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(form)</div><div class="line"><a name="l10046"></a><span class="lineno">10046</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="l10047"></a><span class="lineno">10047</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="l10048"></a><span class="lineno">10048</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="l10049"></a><span class="lineno">10049</span>  + <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(<span class="stringliteral">"without"</span>)</div><div class="line"><a name="l10050"></a><span class="lineno">10050</span>  + <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(TCL_PATCH_LEVEL)</div><div class="line"><a name="l10051"></a><span class="lineno">10051</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="l10052"></a><span class="lineno">10052</span>  + <a class="code" href="../../d6/d7b/strchr_8c.html#a219836f542ce53545052bed5353820ca">strlen</a>(TK_PATCH_LEVEL)</div><div class="line"><a name="l10053"></a><span class="lineno">10053</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="l10054"></a><span class="lineno">10054</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="l10055"></a><span class="lineno">10055</span> </div><div class="line"><a name="l10056"></a><span class="lineno">10056</span>  info = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a79041aa2bc7439c11906a86f82a52eb6">ALLOC_N</a>(<span class="keywordtype">char</span>, <a class="code" href="../../d5/db5/encoding_8c.html#a439227feff9d7f55384e8780cfc2eb82">size</a>);</div><div class="line"><a name="l10057"></a><span class="lineno">10057</span>  <span class="comment">/* info = ckalloc(sizeof(char) * size); */</span> <span class="comment">/* SEGV */</span></div><div class="line"><a name="l10058"></a><span class="lineno">10058</span> </div><div class="line"><a name="l10059"></a><span class="lineno">10059</span>  sprintf(info, form,</div><div class="line"><a name="l10060"></a><span class="lineno">10060</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1e2eb8512f9421fa7485556a9e3bf439">TCLTKLIB_RELEASE_DATE</a>,</div><div class="line"><a name="l10061"></a><span class="lineno">10061</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="l10062"></a><span class="lineno">10062</span> #ifdef <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aa4f826fc17b461cf70c6dafc9d3d0027">HAVE_NATIVETHREAD</a></div><div class="line"><a name="l10063"></a><span class="lineno">10063</span>  <span class="stringliteral">"with"</span>,</div><div class="line"><a name="l10064"></a><span class="lineno">10064</span> #<span class="keywordflow">else</span></div><div class="line"><a name="l10065"></a><span class="lineno">10065</span>  <span class="stringliteral">"without"</span>,</div><div class="line"><a name="l10066"></a><span class="lineno">10066</span> #endif</div><div class="line"><a name="l10067"></a><span class="lineno">10067</span>  TCL_PATCH_LEVEL,</div><div class="line"><a name="l10068"></a><span class="lineno">10068</span> #ifdef USE_TCL_STUBS</div><div class="line"><a name="l10069"></a><span class="lineno">10069</span>  <span class="stringliteral">"with stub"</span>,</div><div class="line"><a name="l10070"></a><span class="lineno">10070</span> #<span class="keywordflow">else</span></div><div class="line"><a name="l10071"></a><span class="lineno">10071</span>  <span class="stringliteral">"without stub"</span>,</div><div class="line"><a name="l10072"></a><span class="lineno">10072</span> #endif</div><div class="line"><a name="l10073"></a><span class="lineno">10073</span>  TK_PATCH_LEVEL,</div><div class="line"><a name="l10074"></a><span class="lineno">10074</span> #ifdef USE_TK_STUBS</div><div class="line"><a name="l10075"></a><span class="lineno">10075</span>  <span class="stringliteral">"with stub"</span>,</div><div class="line"><a name="l10076"></a><span class="lineno">10076</span> #<span class="keywordflow">else</span></div><div class="line"><a name="l10077"></a><span class="lineno">10077</span>  <span class="stringliteral">"without stub"</span>,</div><div class="line"><a name="l10078"></a><span class="lineno">10078</span> #endif</div><div class="line"><a name="l10079"></a><span class="lineno">10079</span> #ifdef WITH_TCL_ENABLE_THREAD</div><div class="line"><a name="l10080"></a><span class="lineno">10080</span> # <span class="keywordflow">if</span> WITH_TCL_ENABLE_THREAD</div><div class="line"><a name="l10081"></a><span class="lineno">10081</span>  <span class="stringliteral">"with tcl_threads"</span></div><div class="line"><a name="l10082"></a><span class="lineno">10082</span> # <span class="keywordflow">else</span></div><div class="line"><a name="l10083"></a><span class="lineno">10083</span>  <span class="stringliteral">"without tcl_threads"</span></div><div class="line"><a name="l10084"></a><span class="lineno">10084</span> # endif</div><div class="line"><a name="l10085"></a><span class="lineno">10085</span> #<span class="keywordflow">else</span></div><div class="line"><a name="l10086"></a><span class="lineno">10086</span>  <span class="stringliteral">"unknown tcl_threads"</span></div><div class="line"><a name="l10087"></a><span class="lineno">10087</span> #endif</div><div class="line"><a name="l10088"></a><span class="lineno">10088</span>  );</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>  ret = <a class="code" href="../../db/d2e/intern_8h.html#a8ea3742679211f408cb5769de6cf0d46">rb_obj_freeze</a>(<a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(info));</div><div class="line"><a name="l10091"></a><span class="lineno">10091</span> </div><div class="line"><a name="l10092"></a><span class="lineno">10092</span>  <a class="code" href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a>(info);</div><div class="line"><a name="l10093"></a><span class="lineno">10093</span>  <span class="comment">/* ckfree(info); */</span></div><div class="line"><a name="l10094"></a><span class="lineno">10094</span> </div><div class="line"><a name="l10095"></a><span class="lineno">10095</span>  <span class="keywordflow">return</span> ret;</div><div class="line"><a name="l10096"></a><span class="lineno">10096</span> }</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="comment">/*###############################################*/</span></div><div class="line"><a name="l10100"></a><span class="lineno">10100</span> </div><div class="line"><a name="l10101"></a><span class="lineno">10101</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10102"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae6ec1143806ca777011fe0786cebce56">10102</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae6ec1143806ca777011fe0786cebce56">create_dummy_encoding_for_tk_core</a>(interp, <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>, error_mode)</div><div class="line"><a name="l10103"></a><span class="lineno">10103</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l10104"></a><span class="lineno">10104</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>;</div><div class="line"><a name="l10105"></a><span class="lineno">10105</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> error_mode;</div><div class="line"><a name="l10106"></a><span class="lineno">10106</span> {</div><div class="line"><a name="l10107"></a><span class="lineno">10107</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</div><div class="line"><a name="l10108"></a><span class="lineno">10108</span> </div><div class="line"><a name="l10109"></a><span class="lineno">10109</span> </div><div class="line"><a name="l10110"></a><span class="lineno">10110</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</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> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION >= 1)</span></div><div class="line"><a name="l10113"></a><span class="lineno">10113</span>  <span class="keywordflow">if</span> (Tcl_GetEncoding((Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>)) == (Tcl_Encoding)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l10114"></a><span class="lineno">10114</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="l10115"></a><span class="lineno">10115</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="l10116"></a><span class="lineno">10116</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>));</div><div class="line"><a name="l10117"></a><span class="lineno">10117</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l10118"></a><span class="lineno">10118</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l10119"></a><span class="lineno">10119</span>  }</div><div class="line"><a name="l10120"></a><span class="lineno">10120</span>  }</div><div class="line"><a name="l10121"></a><span class="lineno">10121</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l10122"></a><span class="lineno">10122</span> </div><div class="line"><a name="l10123"></a><span class="lineno">10123</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l10124"></a><span class="lineno">10124</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="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>)))) {</div><div class="line"><a name="l10125"></a><span class="lineno">10125</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>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>));</div><div class="line"><a name="l10126"></a><span class="lineno">10126</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="l10127"></a><span class="lineno">10127</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l10128"></a><span class="lineno">10128</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="l10129"></a><span class="lineno">10129</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="l10130"></a><span class="lineno">10130</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>));</div><div class="line"><a name="l10131"></a><span class="lineno">10131</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l10132"></a><span class="lineno">10132</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l10133"></a><span class="lineno">10133</span>  }</div><div class="line"><a name="l10134"></a><span class="lineno">10134</span>  }</div><div class="line"><a name="l10135"></a><span class="lineno">10135</span> </div><div class="line"><a name="l10136"></a><span class="lineno">10136</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3af99897b60119951af8961dbd52dd3f">UNREACHABLE</a>;</div><div class="line"><a name="l10137"></a><span class="lineno">10137</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l10138"></a><span class="lineno">10138</span>  <span class="keywordflow">return</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>;</div><div class="line"><a name="l10139"></a><span class="lineno">10139</span> <span class="preprocessor">#endif</span></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="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10142"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a05dbfa32ebb9e97e1336c127185806b3">10142</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a05dbfa32ebb9e97e1336c127185806b3">create_dummy_encoding_for_tk</a>(interp, <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>)</div><div class="line"><a name="l10143"></a><span class="lineno">10143</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l10144"></a><span class="lineno">10144</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>;</div><div class="line"><a name="l10145"></a><span class="lineno">10145</span> {</div><div class="line"><a name="l10146"></a><span class="lineno">10146</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae6ec1143806ca777011fe0786cebce56">create_dummy_encoding_for_tk_core</a>(interp, <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>);</div><div class="line"><a name="l10147"></a><span class="lineno">10147</span> }</div><div class="line"><a name="l10148"></a><span class="lineno">10148</span> </div><div class="line"><a name="l10149"></a><span class="lineno">10149</span> </div><div class="line"><a name="l10150"></a><span class="lineno">10150</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l10151"></a><span class="lineno">10151</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l10152"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ae03aba704fe4920a72cc87c1eaf6e28d">10152</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae03aba704fe4920a72cc87c1eaf6e28d">update_encoding_table</a>(table, interp, error_mode)</div><div class="line"><a name="l10153"></a><span class="lineno">10153</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> table;</div><div class="line"><a name="l10154"></a><span class="lineno">10154</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l10155"></a><span class="lineno">10155</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> error_mode;</div><div class="line"><a name="l10156"></a><span class="lineno">10156</span> {</div><div class="line"><a name="l10157"></a><span class="lineno">10157</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div><div class="line"><a name="l10158"></a><span class="lineno">10158</span>  <span class="keywordtype">int</span> retry = 0;</div><div class="line"><a name="l10159"></a><span class="lineno">10159</span>  <span class="keywordtype">int</span> i, idx, objc;</div><div class="line"><a name="l10160"></a><span class="lineno">10160</span>  Tcl_Obj **objv;</div><div class="line"><a name="l10161"></a><span class="lineno">10161</span>  Tcl_Obj *<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>;</div><div class="line"><a name="l10162"></a><span class="lineno">10162</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> encname = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l10163"></a><span class="lineno">10163</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> encobj = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l10164"></a><span class="lineno">10164</span> </div><div class="line"><a name="l10165"></a><span class="lineno">10165</span>  <span class="comment">/* interpreter check */</span></div><div class="line"><a name="l10166"></a><span class="lineno">10166</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="l10167"></a><span class="lineno">10167</span>  ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</div><div class="line"><a name="l10168"></a><span class="lineno">10168</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="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l10169"></a><span class="lineno">10169</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l10170"></a><span class="lineno">10170</span> </div><div class="line"><a name="l10171"></a><span class="lineno">10171</span>  <span class="comment">/* get Tcl's encoding list */</span></div><div class="line"><a name="l10172"></a><span class="lineno">10172</span>  Tcl_GetEncodingNames(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l10173"></a><span class="lineno">10173</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a> = Tcl_GetObjResult(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l10174"></a><span class="lineno">10174</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>);</div><div class="line"><a name="l10175"></a><span class="lineno">10175</span> </div><div class="line"><a name="l10176"></a><span class="lineno">10176</span>  <span class="keywordflow">if</span> (Tcl_ListObjGetElements(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>,</div><div class="line"><a name="l10177"></a><span class="lineno">10177</span>  &objc, &objv) != TCL_OK) {</div><div class="line"><a name="l10178"></a><span class="lineno">10178</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>);</div><div class="line"><a name="l10179"></a><span class="lineno">10179</span>  <span class="comment">/* rb_raise(rb_eRuntimeError, "failt to get Tcl's encoding names");*/</span></div><div class="line"><a name="l10180"></a><span class="lineno">10180</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l10181"></a><span class="lineno">10181</span>  }</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>  <span class="comment">/* check each encoding name */</span></div><div class="line"><a name="l10184"></a><span class="lineno">10184</span>  <span class="keywordflow">for</span>(i = 0; i < objc; i++) {</div><div class="line"><a name="l10185"></a><span class="lineno">10185</span>  encname = <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(Tcl_GetString(objv[i]));</div><div class="line"><a name="l10186"></a><span class="lineno">10186</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="l10187"></a><span class="lineno">10187</span>  <span class="comment">/* new Tk encoding -> add to table */</span></div><div class="line"><a name="l10188"></a><span class="lineno">10188</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="l10189"></a><span class="lineno">10189</span>  <span class="keywordflow">if</span> (idx < 0) {</div><div class="line"><a name="l10190"></a><span class="lineno">10190</span>  encobj = <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae6ec1143806ca777011fe0786cebce56">create_dummy_encoding_for_tk_core</a>(interp,encname,error_mode);</div><div class="line"><a name="l10191"></a><span class="lineno">10191</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l10192"></a><span class="lineno">10192</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="l10193"></a><span class="lineno">10193</span>  }</div><div class="line"><a name="l10194"></a><span class="lineno">10194</span>  encname = <a class="code" href="../../db/d2e/intern_8h.html#a8ea3742679211f408cb5769de6cf0d46">rb_obj_freeze</a>(encname);</div><div class="line"><a name="l10195"></a><span class="lineno">10195</span>  <a class="code" href="../../d1/d04/hash_8c.html#ac477edf136d86a33bc06d1fbea67bb9a">rb_hash_aset</a>(table, encname, encobj);</div><div class="line"><a name="l10196"></a><span class="lineno">10196</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="l10197"></a><span class="lineno">10197</span>  <a class="code" href="../../d1/d04/hash_8c.html#ac477edf136d86a33bc06d1fbea67bb9a">rb_hash_aset</a>(table, encobj, encname);</div><div class="line"><a name="l10198"></a><span class="lineno">10198</span>  }</div><div class="line"><a name="l10199"></a><span class="lineno">10199</span>  retry = 1;</div><div class="line"><a name="l10200"></a><span class="lineno">10200</span>  }</div><div class="line"><a name="l10201"></a><span class="lineno">10201</span>  }</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>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>);</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="keywordflow">return</span> retry;</div><div class="line"><a name="l10206"></a><span class="lineno">10206</span> }</div><div class="line"><a name="l10207"></a><span class="lineno">10207</span> </div><div class="line"><a name="l10208"></a><span class="lineno">10208</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10209"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a4d98bdf167c716047f13e19cafbf1978">10209</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4d98bdf167c716047f13e19cafbf1978">encoding_table_get_name_core</a>(table, <a class="code" href="../../d3/d26/transcode_8c.html#a87f3c41a3f6c759a2a71313985efa202">enc_arg</a>, error_mode)</div><div class="line"><a name="l10210"></a><span class="lineno">10210</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> table;</div><div class="line"><a name="l10211"></a><span class="lineno">10211</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d3/d26/transcode_8c.html#a87f3c41a3f6c759a2a71313985efa202">enc_arg</a>;</div><div class="line"><a name="l10212"></a><span class="lineno">10212</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> error_mode;</div><div class="line"><a name="l10213"></a><span class="lineno">10213</span> {</div><div class="line"><a name="l10214"></a><span class="lineno">10214</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> enc = <a class="code" href="../../d3/d26/transcode_8c.html#a87f3c41a3f6c759a2a71313985efa202">enc_arg</a>;</div><div class="line"><a name="l10215"></a><span class="lineno">10215</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l10216"></a><span class="lineno">10216</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> tmp = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l10217"></a><span class="lineno">10217</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp = <a class="code" href="../../db/d2e/intern_8h.html#a35a10b958666c1b330238eea7b7f3a8a">rb_ivar_get</a>(table, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a32f224f962b50f1a6445c52ef1ceeb6a">ID_at_interp</a>);</div><div class="line"><a name="l10218"></a><span class="lineno">10218</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> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l10219"></a><span class="lineno">10219</span>  <span class="keywordtype">int</span> idx;</div><div class="line"><a name="l10220"></a><span class="lineno">10220</span> </div><div class="line"><a name="l10221"></a><span class="lineno">10221</span>  <span class="comment">/* deleted interp ? */</span></div><div class="line"><a name="l10222"></a><span class="lineno">10222</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="l10223"></a><span class="lineno">10223</span>  ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</div><div class="line"><a name="l10224"></a><span class="lineno">10224</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) {</div><div class="line"><a name="l10225"></a><span class="lineno">10225</span>  ptr = (<span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l10226"></a><span class="lineno">10226</span>  }</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="comment">/* encoding argument check */</span></div><div class="line"><a name="l10230"></a><span class="lineno">10230</span>  <span class="comment">/* 1st: default encoding setting of interp */</span></div><div class="line"><a name="l10231"></a><span class="lineno">10231</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="l10232"></a><span class="lineno">10232</span>  <span class="keywordflow">if</span> (<a class="code" href="../../db/d2e/intern_8h.html#a5c6c63c2619b8c03df2e173ef1e73846">rb_respond_to</a>(interp, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9e67df28d1db2fd86f0db8c34dc73275">ID_encoding_name</a>)) {</div><div class="line"><a name="l10233"></a><span class="lineno">10233</span>  enc = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(interp, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9e67df28d1db2fd86f0db8c34dc73275">ID_encoding_name</a>, 0, 0);</div><div class="line"><a name="l10234"></a><span class="lineno">10234</span>  }</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>  <span class="comment">/* 2nd: Encoding.default_internal */</span></div><div class="line"><a name="l10237"></a><span class="lineno">10237</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="l10238"></a><span class="lineno">10238</span>  enc = <a class="code" href="../../d5/db5/encoding_8c.html#ab349505ca2fad4f5b219b2acf2dae38d">rb_enc_default_internal</a>();</div><div class="line"><a name="l10239"></a><span class="lineno">10239</span>  }</div><div class="line"><a name="l10240"></a><span class="lineno">10240</span>  <span class="comment">/* 3rd: encoding system of Tcl/Tk */</span></div><div class="line"><a name="l10241"></a><span class="lineno">10241</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="l10242"></a><span class="lineno">10242</span>  enc = <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(Tcl_GetEncodingName((Tcl_Encoding)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>));</div><div class="line"><a name="l10243"></a><span class="lineno">10243</span>  }</div><div class="line"><a name="l10244"></a><span class="lineno">10244</span>  <span class="comment">/* 4th: Encoding.default_external */</span></div><div class="line"><a name="l10245"></a><span class="lineno">10245</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="l10246"></a><span class="lineno">10246</span>  enc = <a class="code" href="../../d5/db5/encoding_8c.html#a7a76bad982a033dc3a83c916df6e4c36">rb_enc_default_external</a>();</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">/* 5th: Encoding.locale_charmap */</span></div><div class="line"><a name="l10249"></a><span class="lineno">10249</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="l10250"></a><span class="lineno">10250</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="l10251"></a><span class="lineno">10251</span>  }</div><div class="line"><a name="l10252"></a><span class="lineno">10252</span> </div><div class="line"><a name="l10253"></a><span class="lineno">10253</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, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4fad8dd77dc5ba9e6be36191c82a272e">cRubyEncoding</a>))) {</div><div class="line"><a name="l10254"></a><span class="lineno">10254</span>  <span class="comment">/* Ruby's Encoding object */</span></div><div class="line"><a name="l10255"></a><span class="lineno">10255</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table, enc);</div><div class="line"><a name="l10256"></a><span class="lineno">10256</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>)) {</div><div class="line"><a name="l10257"></a><span class="lineno">10257</span>  <span class="comment">/* find */</span></div><div class="line"><a name="l10258"></a><span class="lineno">10258</span>  <span class="keywordflow">return</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>;</div><div class="line"><a name="l10259"></a><span class="lineno">10259</span>  }</div><div class="line"><a name="l10260"></a><span class="lineno">10260</span> </div><div class="line"><a name="l10261"></a><span class="lineno">10261</span>  <span class="comment">/* is it new ? */</span></div><div class="line"><a name="l10262"></a><span class="lineno">10262</span>  <span class="comment">/* update check of Tk encoding names */</span></div><div class="line"><a name="l10263"></a><span class="lineno">10263</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae03aba704fe4920a72cc87c1eaf6e28d">update_encoding_table</a>(table, interp, error_mode)) {</div><div class="line"><a name="l10264"></a><span class="lineno">10264</span>  <span class="comment">/* add new relations to the table */</span></div><div class="line"><a name="l10265"></a><span class="lineno">10265</span>  <span class="comment">/* RETRY: registered Ruby encoding? */</span></div><div class="line"><a name="l10266"></a><span class="lineno">10266</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table, enc);</div><div class="line"><a name="l10267"></a><span class="lineno">10267</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>)) {</div><div class="line"><a name="l10268"></a><span class="lineno">10268</span>  <span class="comment">/* find */</span></div><div class="line"><a name="l10269"></a><span class="lineno">10269</span>  <span class="keywordflow">return</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>;</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>  }</div><div class="line"><a name="l10272"></a><span class="lineno">10272</span>  <span class="comment">/* fail to find */</span></div><div class="line"><a name="l10273"></a><span class="lineno">10273</span> </div><div class="line"><a name="l10274"></a><span class="lineno">10274</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l10275"></a><span class="lineno">10275</span>  <span class="comment">/* String or Symbol? */</span></div><div class="line"><a name="l10276"></a><span class="lineno">10276</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(enc, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2876182790d4d4deb29d00b4048d7565">ID_to_s</a>, 0, 0);</div><div class="line"><a name="l10277"></a><span class="lineno">10277</span> </div><div class="line"><a name="l10278"></a><span class="lineno">10278</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, <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>))) {</div><div class="line"><a name="l10279"></a><span class="lineno">10279</span>  <span class="comment">/* find */</span></div><div class="line"><a name="l10280"></a><span class="lineno">10280</span>  <span class="keywordflow">return</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>;</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> </div><div class="line"><a name="l10283"></a><span class="lineno">10283</span>  <span class="comment">/* is it new ? */</span></div><div class="line"><a name="l10284"></a><span class="lineno">10284</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>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>));</div><div class="line"><a name="l10285"></a><span class="lineno">10285</span>  <span class="keywordflow">if</span> (idx >= 0) {</div><div class="line"><a name="l10286"></a><span class="lineno">10286</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="l10287"></a><span class="lineno">10287</span> </div><div class="line"><a name="l10288"></a><span class="lineno">10288</span>  <span class="comment">/* registered Ruby encoding? */</span></div><div class="line"><a name="l10289"></a><span class="lineno">10289</span>  tmp = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table, enc);</div><div class="line"><a name="l10290"></a><span class="lineno">10290</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="l10291"></a><span class="lineno">10291</span>  <span class="comment">/* find */</span></div><div class="line"><a name="l10292"></a><span class="lineno">10292</span>  <span class="keywordflow">return</span> tmp;</div><div class="line"><a name="l10293"></a><span class="lineno">10293</span>  }</div><div class="line"><a name="l10294"></a><span class="lineno">10294</span> </div><div class="line"><a name="l10295"></a><span class="lineno">10295</span>  <span class="comment">/* update check of Tk encoding names */</span></div><div class="line"><a name="l10296"></a><span class="lineno">10296</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae03aba704fe4920a72cc87c1eaf6e28d">update_encoding_table</a>(table, interp, error_mode)) {</div><div class="line"><a name="l10297"></a><span class="lineno">10297</span>  <span class="comment">/* add new relations to the table */</span></div><div class="line"><a name="l10298"></a><span class="lineno">10298</span>  <span class="comment">/* RETRY: registered Ruby encoding? */</span></div><div class="line"><a name="l10299"></a><span class="lineno">10299</span>  tmp = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table, enc);</div><div class="line"><a name="l10300"></a><span class="lineno">10300</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="l10301"></a><span class="lineno">10301</span>  <span class="comment">/* find */</span></div><div class="line"><a name="l10302"></a><span class="lineno">10302</span>  <span class="keywordflow">return</span> tmp;</div><div class="line"><a name="l10303"></a><span class="lineno">10303</span>  }</div><div class="line"><a name="l10304"></a><span class="lineno">10304</span>  }</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>  <span class="comment">/* fail to find */</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> </div><div class="line"><a name="l10309"></a><span class="lineno">10309</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="l10310"></a><span class="lineno">10310</span>  enc = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(<a class="code" href="../../d3/d26/transcode_8c.html#a87f3c41a3f6c759a2a71313985efa202">enc_arg</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2876182790d4d4deb29d00b4048d7565">ID_to_s</a>, 0, 0);</div><div class="line"><a name="l10311"></a><span class="lineno">10311</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="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(enc));</div><div class="line"><a name="l10312"></a><span class="lineno">10312</span>  }</div><div class="line"><a name="l10313"></a><span class="lineno">10313</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l10314"></a><span class="lineno">10314</span> }</div><div class="line"><a name="l10315"></a><span class="lineno">10315</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10316"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#afe59232eba6d9dea4401c9c5376f3e0d">10316</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#afe59232eba6d9dea4401c9c5376f3e0d">encoding_table_get_obj_core</a>(table, enc, error_mode)</div><div class="line"><a name="l10317"></a><span class="lineno">10317</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> table;</div><div class="line"><a name="l10318"></a><span class="lineno">10318</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> enc;</div><div class="line"><a name="l10319"></a><span class="lineno">10319</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> error_mode;</div><div class="line"><a name="l10320"></a><span class="lineno">10320</span> {</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#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> obj = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">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>  obj = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table,</div><div class="line"><a name="l10324"></a><span class="lineno">10324</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4d98bdf167c716047f13e19cafbf1978">encoding_table_get_name_core</a>(table, enc, error_mode));</div><div class="line"><a name="l10325"></a><span class="lineno">10325</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, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4fad8dd77dc5ba9e6be36191c82a272e">cRubyEncoding</a>))) {</div><div class="line"><a name="l10326"></a><span class="lineno">10326</span>  <span class="keywordflow">return</span> obj;</div><div class="line"><a name="l10327"></a><span class="lineno">10327</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l10328"></a><span class="lineno">10328</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l10329"></a><span class="lineno">10329</span>  }</div><div class="line"><a name="l10330"></a><span class="lineno">10330</span> }</div><div class="line"><a name="l10331"></a><span class="lineno">10331</span> </div><div class="line"><a name="l10332"></a><span class="lineno">10332</span> <span class="preprocessor">#else </span><span class="comment">/* ! HAVE_RUBY_ENCODING_H */</span><span class="preprocessor"></span></div><div class="line"><a name="l10333"></a><span class="lineno">10333</span> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION >= 1)</span></div><div class="line"><a name="l10334"></a><span class="lineno">10334</span> <span class="keyword">static</span> <span class="keywordtype">int</span></div><div class="line"><a name="l10335"></a><span class="lineno">10335</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae03aba704fe4920a72cc87c1eaf6e28d">update_encoding_table</a>(table, interp, error_mode)</div><div class="line"><a name="l10336"></a><span class="lineno">10336</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> table;</div><div class="line"><a name="l10337"></a><span class="lineno">10337</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l10338"></a><span class="lineno">10338</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> error_mode;</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="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr;</div><div class="line"><a name="l10341"></a><span class="lineno">10341</span>  <span class="keywordtype">int</span> retry = 0;</div><div class="line"><a name="l10342"></a><span class="lineno">10342</span>  <span class="keywordtype">int</span> i, objc;</div><div class="line"><a name="l10343"></a><span class="lineno">10343</span>  Tcl_Obj **objv;</div><div class="line"><a name="l10344"></a><span class="lineno">10344</span>  Tcl_Obj *<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>;</div><div class="line"><a name="l10345"></a><span class="lineno">10345</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> encname = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l10346"></a><span class="lineno">10346</span> </div><div class="line"><a name="l10347"></a><span class="lineno">10347</span>  <span class="comment">/* interpreter check */</span></div><div class="line"><a name="l10348"></a><span class="lineno">10348</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="l10349"></a><span class="lineno">10349</span>  ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</div><div class="line"><a name="l10350"></a><span class="lineno">10350</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="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l10351"></a><span class="lineno">10351</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a>(ptr)) <span class="keywordflow">return</span> 0;</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="comment">/* get Tcl's encoding list */</span></div><div class="line"><a name="l10354"></a><span class="lineno">10354</span>  Tcl_GetEncodingNames(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l10355"></a><span class="lineno">10355</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a> = Tcl_GetObjResult(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l10356"></a><span class="lineno">10356</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>);</div><div class="line"><a name="l10357"></a><span class="lineno">10357</span> </div><div class="line"><a name="l10358"></a><span class="lineno">10358</span>  <span class="keywordflow">if</span> (Tcl_ListObjGetElements(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>, &objc, &objv) != TCL_OK) {</div><div class="line"><a name="l10359"></a><span class="lineno">10359</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>);</div><div class="line"><a name="l10360"></a><span class="lineno">10360</span>  <span class="comment">/* rb_raise(rb_eRuntimeError, "failt to get Tcl's encoding names"); */</span></div><div class="line"><a name="l10361"></a><span class="lineno">10361</span>  <span class="keywordflow">return</span> 0;</div><div class="line"><a name="l10362"></a><span class="lineno">10362</span>  }</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>  <span class="comment">/* get encoding name and set it to table */</span></div><div class="line"><a name="l10365"></a><span class="lineno">10365</span>  <span class="keywordflow">for</span>(i = 0; i < objc; i++) {</div><div class="line"><a name="l10366"></a><span class="lineno">10366</span>  encname = <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(Tcl_GetString(objv[i]));</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>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table, encname))) {</div><div class="line"><a name="l10368"></a><span class="lineno">10368</span>  <span class="comment">/* new Tk encoding -> add to table */</span></div><div class="line"><a name="l10369"></a><span class="lineno">10369</span>  encname = <a class="code" href="../../db/d2e/intern_8h.html#a8ea3742679211f408cb5769de6cf0d46">rb_obj_freeze</a>(encname);</div><div class="line"><a name="l10370"></a><span class="lineno">10370</span>  <a class="code" href="../../d1/d04/hash_8c.html#ac477edf136d86a33bc06d1fbea67bb9a">rb_hash_aset</a>(table, encname, encname);</div><div class="line"><a name="l10371"></a><span class="lineno">10371</span>  retry = 1;</div><div class="line"><a name="l10372"></a><span class="lineno">10372</span>  }</div><div class="line"><a name="l10373"></a><span class="lineno">10373</span>  }</div><div class="line"><a name="l10374"></a><span class="lineno">10374</span> </div><div class="line"><a name="l10375"></a><span class="lineno">10375</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>);</div><div class="line"><a name="l10376"></a><span class="lineno">10376</span> </div><div class="line"><a name="l10377"></a><span class="lineno">10377</span>  <span class="keywordflow">return</span> retry;</div><div class="line"><a name="l10378"></a><span class="lineno">10378</span> }</div><div class="line"><a name="l10379"></a><span class="lineno">10379</span> </div><div class="line"><a name="l10380"></a><span class="lineno">10380</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10381"></a><span class="lineno">10381</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4d98bdf167c716047f13e19cafbf1978">encoding_table_get_name_core</a>(table, enc, error_mode)</div><div class="line"><a name="l10382"></a><span class="lineno">10382</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> table;</div><div class="line"><a name="l10383"></a><span class="lineno">10383</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> enc;</div><div class="line"><a name="l10384"></a><span class="lineno">10384</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> error_mode;</div><div class="line"><a name="l10385"></a><span class="lineno">10385</span> {</div><div class="line"><a name="l10386"></a><span class="lineno">10386</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l10387"></a><span class="lineno">10387</span> </div><div class="line"><a name="l10388"></a><span class="lineno">10388</span>  enc = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(enc, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2876182790d4d4deb29d00b4048d7565">ID_to_s</a>, 0, 0);</div><div class="line"><a name="l10389"></a><span class="lineno">10389</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table, enc);</div><div class="line"><a name="l10390"></a><span class="lineno">10390</span> </div><div class="line"><a name="l10391"></a><span class="lineno">10391</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>)) {</div><div class="line"><a name="l10392"></a><span class="lineno">10392</span>  <span class="comment">/* find */</span></div><div class="line"><a name="l10393"></a><span class="lineno">10393</span>  <span class="keywordflow">return</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>;</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> </div><div class="line"><a name="l10396"></a><span class="lineno">10396</span>  <span class="comment">/* update check */</span></div><div class="line"><a name="l10397"></a><span class="lineno">10397</span>  <span class="keywordflow">if</span> (<a class="code" href="../../d5/d9d/tcltklib_8c.html#ae03aba704fe4920a72cc87c1eaf6e28d">update_encoding_table</a>(table, <a class="code" href="../../db/d2e/intern_8h.html#a35a10b958666c1b330238eea7b7f3a8a">rb_ivar_get</a>(table, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a32f224f962b50f1a6445c52ef1ceeb6a">ID_at_interp</a>),</div><div class="line"><a name="l10398"></a><span class="lineno">10398</span>  error_mode)) {</div><div class="line"><a name="l10399"></a><span class="lineno">10399</span>  <span class="comment">/* add new relations to the table */</span></div><div class="line"><a name="l10400"></a><span class="lineno">10400</span>  <span class="comment">/* RETRY: registered Ruby encoding? */</span></div><div class="line"><a name="l10401"></a><span class="lineno">10401</span>  <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a> = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6896905f9ab15ac1ea4ce9aec1df54b">rb_hash_lookup</a>(table, enc);</div><div class="line"><a name="l10402"></a><span class="lineno">10402</span>  <span class="keywordflow">if</span> (!<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a4832bad8845a35fc50f7a160901854a1">NIL_P</a>(<a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>)) {</div><div class="line"><a name="l10403"></a><span class="lineno">10403</span>  <span class="comment">/* find */</span></div><div class="line"><a name="l10404"></a><span class="lineno">10404</span>  <span class="keywordflow">return</span> <a class="code" href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">name</a>;</div><div class="line"><a name="l10405"></a><span class="lineno">10405</span>  }</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> </div><div class="line"><a name="l10408"></a><span class="lineno">10408</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="l10409"></a><span class="lineno">10409</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="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(enc));</div><div class="line"><a name="l10410"></a><span class="lineno">10410</span>  }</div><div class="line"><a name="l10411"></a><span class="lineno">10411</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</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="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10414"></a><span class="lineno">10414</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#afe59232eba6d9dea4401c9c5376f3e0d">encoding_table_get_obj_core</a>(table, enc, error_mode)</div><div class="line"><a name="l10415"></a><span class="lineno">10415</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> table;</div><div class="line"><a name="l10416"></a><span class="lineno">10416</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> enc;</div><div class="line"><a name="l10417"></a><span class="lineno">10417</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> error_mode;</div><div class="line"><a name="l10418"></a><span class="lineno">10418</span> {</div><div class="line"><a name="l10419"></a><span class="lineno">10419</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4d98bdf167c716047f13e19cafbf1978">encoding_table_get_name_core</a>(table, enc, error_mode);</div><div class="line"><a name="l10420"></a><span class="lineno">10420</span> }</div><div class="line"><a name="l10421"></a><span class="lineno">10421</span> </div><div class="line"><a name="l10422"></a><span class="lineno">10422</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="l10423"></a><span class="lineno">10423</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10424"></a><span class="lineno">10424</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4d98bdf167c716047f13e19cafbf1978">encoding_table_get_name_core</a>(table, enc, error_mode)</div><div class="line"><a name="l10425"></a><span class="lineno">10425</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> table;</div><div class="line"><a name="l10426"></a><span class="lineno">10426</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> enc;</div><div class="line"><a name="l10427"></a><span class="lineno">10427</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> error_mode;</div><div class="line"><a name="l10428"></a><span class="lineno">10428</span> {</div><div class="line"><a name="l10429"></a><span class="lineno">10429</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l10430"></a><span class="lineno">10430</span> }</div><div class="line"><a name="l10431"></a><span class="lineno">10431</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10432"></a><span class="lineno">10432</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#afe59232eba6d9dea4401c9c5376f3e0d">encoding_table_get_obj_core</a>(table, enc, error_mode)</div><div class="line"><a name="l10433"></a><span class="lineno">10433</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> table;</div><div class="line"><a name="l10434"></a><span class="lineno">10434</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> enc;</div><div class="line"><a name="l10435"></a><span class="lineno">10435</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> error_mode;</div><div class="line"><a name="l10436"></a><span class="lineno">10436</span> {</div><div class="line"><a name="l10437"></a><span class="lineno">10437</span>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</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="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="l10440"></a><span class="lineno">10440</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l10441"></a><span class="lineno">10441</span> </div><div class="line"><a name="l10442"></a><span class="lineno">10442</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10443"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#af9d2d13e936db54fa70bbf1cba698321">10443</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#af9d2d13e936db54fa70bbf1cba698321">encoding_table_get_name</a>(table, enc)</div><div class="line"><a name="l10444"></a><span class="lineno">10444</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> table;</div><div class="line"><a name="l10445"></a><span class="lineno">10445</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> enc;</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="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4d98bdf167c716047f13e19cafbf1978">encoding_table_get_name_core</a>(table, enc, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>);</div><div class="line"><a name="l10448"></a><span class="lineno">10448</span> }</div><div class="line"><a name="l10449"></a><span class="lineno">10449</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10450"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad4888e9518ae5e8a1ef95e4ae45583f2">10450</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad4888e9518ae5e8a1ef95e4ae45583f2">encoding_table_get_obj</a>(table, enc)</div><div class="line"><a name="l10451"></a><span class="lineno">10451</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> table;</div><div class="line"><a name="l10452"></a><span class="lineno">10452</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> enc;</div><div class="line"><a name="l10453"></a><span class="lineno">10453</span> {</div><div class="line"><a name="l10454"></a><span class="lineno">10454</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#afe59232eba6d9dea4401c9c5376f3e0d">encoding_table_get_obj_core</a>(table, enc, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a>);</div><div class="line"><a name="l10455"></a><span class="lineno">10455</span> }</div><div class="line"><a name="l10456"></a><span class="lineno">10456</span> </div><div class="line"><a name="l10457"></a><span class="lineno">10457</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l10458"></a><span class="lineno">10458</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10459"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aff5599e34d732668a1b62ffeb7e8440b">10459</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aff5599e34d732668a1b62ffeb7e8440b">create_encoding_table_core</a>(arg, interp)</div><div class="line"><a name="l10460"></a><span class="lineno">10460</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> arg;</div><div class="line"><a name="l10461"></a><span class="lineno">10461</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l10462"></a><span class="lineno">10462</span> {</div><div class="line"><a name="l10463"></a><span class="lineno">10463</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</div><div class="line"><a name="l10464"></a><span class="lineno">10464</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> table = <a class="code" href="../../d1/d04/hash_8c.html#af1da586524a3a1739fd5b91272037815">rb_hash_new</a>();</div><div class="line"><a name="l10465"></a><span class="lineno">10465</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> encname = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l10466"></a><span class="lineno">10466</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> encobj = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l10467"></a><span class="lineno">10467</span>  <span class="keywordtype">int</span> i, idx, objc;</div><div class="line"><a name="l10468"></a><span class="lineno">10468</span>  Tcl_Obj **objv;</div><div class="line"><a name="l10469"></a><span class="lineno">10469</span>  Tcl_Obj *<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>;</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> <span class="preprocessor">#ifdef HAVE_RB_SET_SAFE_LEVEL_FORCE</span></div><div class="line"><a name="l10472"></a><span class="lineno">10472</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="l10473"></a><span class="lineno">10473</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l10474"></a><span class="lineno">10474</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a5e959fe5d6961caa34f52e0369506659">rb_set_safe_level</a>(0);</div><div class="line"><a name="l10475"></a><span class="lineno">10475</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l10476"></a><span class="lineno">10476</span> </div><div class="line"><a name="l10477"></a><span class="lineno">10477</span>  <span class="comment">/* set 'binary' encoding */</span></div><div class="line"><a name="l10478"></a><span class="lineno">10478</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>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a76a58884428d17b0ae0736d9d16ade61">ENCODING_INDEX_BINARY</a>));</div><div class="line"><a name="l10479"></a><span class="lineno">10479</span>  <a class="code" href="../../d1/d04/hash_8c.html#ac477edf136d86a33bc06d1fbea67bb9a">rb_hash_aset</a>(table, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a233859a1dce4fae0b33d1ea0243b0d47">ENCODING_NAME_BINARY</a>, encobj);</div><div class="line"><a name="l10480"></a><span class="lineno">10480</span>  <a class="code" href="../../d1/d04/hash_8c.html#ac477edf136d86a33bc06d1fbea67bb9a">rb_hash_aset</a>(table, encobj, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a233859a1dce4fae0b33d1ea0243b0d47">ENCODING_NAME_BINARY</a>);</div><div class="line"><a name="l10481"></a><span class="lineno">10481</span> </div><div class="line"><a name="l10482"></a><span class="lineno">10482</span> </div><div class="line"><a name="l10483"></a><span class="lineno">10483</span>  <span class="comment">/* Tcl stub check */</span></div><div class="line"><a name="l10484"></a><span class="lineno">10484</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acc6e437a3e4205736d8cb9b4888762fc">tcl_stubs_check</a>();</div><div class="line"><a name="l10485"></a><span class="lineno">10485</span> </div><div class="line"><a name="l10486"></a><span class="lineno">10486</span>  <span class="comment">/* get Tcl's encoding list */</span></div><div class="line"><a name="l10487"></a><span class="lineno">10487</span>  Tcl_GetEncodingNames(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l10488"></a><span class="lineno">10488</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a> = Tcl_GetObjResult(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l10489"></a><span class="lineno">10489</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>);</div><div class="line"><a name="l10490"></a><span class="lineno">10490</span> </div><div class="line"><a name="l10491"></a><span class="lineno">10491</span>  <span class="keywordflow">if</span> (Tcl_ListObjGetElements(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>, &objc, &objv) != TCL_OK) {</div><div class="line"><a name="l10492"></a><span class="lineno">10492</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>);</div><div class="line"><a name="l10493"></a><span class="lineno">10493</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="l10494"></a><span class="lineno">10494</span>  }</div><div class="line"><a name="l10495"></a><span class="lineno">10495</span> </div><div class="line"><a name="l10496"></a><span class="lineno">10496</span>  <span class="comment">/* get encoding name and set it to table */</span></div><div class="line"><a name="l10497"></a><span class="lineno">10497</span>  <span class="keywordflow">for</span>(i = 0; i < objc; i++) {</div><div class="line"><a name="l10498"></a><span class="lineno">10498</span>  <span class="keywordtype">int</span> name2obj, obj2name;</div><div class="line"><a name="l10499"></a><span class="lineno">10499</span> </div><div class="line"><a name="l10500"></a><span class="lineno">10500</span>  name2obj = 1; obj2name = 1;</div><div class="line"><a name="l10501"></a><span class="lineno">10501</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#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(Tcl_GetString(objv[i])));</div><div class="line"><a name="l10502"></a><span class="lineno">10502</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="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">/* fail to find ruby encoding -> check known encoding */</span></div><div class="line"><a name="l10505"></a><span class="lineno">10505</span>  <span class="keywordflow">if</span> (strcmp(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(encname), <span class="stringliteral">"identity"</span>) == 0) {</div><div class="line"><a name="l10506"></a><span class="lineno">10506</span>  name2obj = 1; obj2name = 0;</div><div class="line"><a name="l10507"></a><span class="lineno">10507</span>  idx = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a76a58884428d17b0ae0736d9d16ade61">ENCODING_INDEX_BINARY</a>;</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>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (strcmp(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(encname), <span class="stringliteral">"shiftjis"</span>) == 0) {</div><div class="line"><a name="l10510"></a><span class="lineno">10510</span>  name2obj = 1; obj2name = 0;</div><div class="line"><a name="l10511"></a><span class="lineno">10511</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="l10512"></a><span class="lineno">10512</span> </div><div class="line"><a name="l10513"></a><span class="lineno">10513</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (strcmp(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(encname), <span class="stringliteral">"unicode"</span>) == 0) {</div><div class="line"><a name="l10514"></a><span class="lineno">10514</span>  name2obj = 1; obj2name = 0;</div><div class="line"><a name="l10515"></a><span class="lineno">10515</span>  idx = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a154b1f5c9c90acef2a0b248f861fea29">ENCODING_INDEX_UTF8</a>;</div><div class="line"><a name="l10516"></a><span class="lineno">10516</span> </div><div class="line"><a name="l10517"></a><span class="lineno">10517</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (strcmp(<a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(encname), <span class="stringliteral">"symbol"</span>) == 0) {</div><div class="line"><a name="l10518"></a><span class="lineno">10518</span>  name2obj = 1; obj2name = 0;</div><div class="line"><a name="l10519"></a><span class="lineno">10519</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="l10520"></a><span class="lineno">10520</span> </div><div class="line"><a name="l10521"></a><span class="lineno">10521</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l10522"></a><span class="lineno">10522</span>  <span class="comment">/* regist dummy encoding */</span></div><div class="line"><a name="l10523"></a><span class="lineno">10523</span>  name2obj = 1; obj2name = 1;</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>  }</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>  <span class="keywordflow">if</span> (idx < 0) {</div><div class="line"><a name="l10528"></a><span class="lineno">10528</span>  <span class="comment">/* unknown encoding -> create dummy */</span></div><div class="line"><a name="l10529"></a><span class="lineno">10529</span>  encobj = <a class="code" href="../../d5/d9d/tcltklib_8c.html#a05dbfa32ebb9e97e1336c127185806b3">create_dummy_encoding_for_tk</a>(interp, encname);</div><div class="line"><a name="l10530"></a><span class="lineno">10530</span>  } <span class="keywordflow">else</span> {</div><div class="line"><a name="l10531"></a><span class="lineno">10531</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="l10532"></a><span class="lineno">10532</span>  }</div><div class="line"><a name="l10533"></a><span class="lineno">10533</span> </div><div class="line"><a name="l10534"></a><span class="lineno">10534</span>  <span class="keywordflow">if</span> (name2obj) {</div><div class="line"><a name="l10535"></a><span class="lineno">10535</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="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(encname));</div><div class="line"><a name="l10536"></a><span class="lineno">10536</span>  <a class="code" href="../../d1/d04/hash_8c.html#ac477edf136d86a33bc06d1fbea67bb9a">rb_hash_aset</a>(table, encname, encobj);</div><div class="line"><a name="l10537"></a><span class="lineno">10537</span>  }</div><div class="line"><a name="l10538"></a><span class="lineno">10538</span>  <span class="keywordflow">if</span> (obj2name) {</div><div class="line"><a name="l10539"></a><span class="lineno">10539</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="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(encname));</div><div class="line"><a name="l10540"></a><span class="lineno">10540</span>  <a class="code" href="../../d1/d04/hash_8c.html#ac477edf136d86a33bc06d1fbea67bb9a">rb_hash_aset</a>(table, encobj, encname);</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>  }</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>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>);</div><div class="line"><a name="l10545"></a><span class="lineno">10545</span> </div><div class="line"><a name="l10546"></a><span class="lineno">10546</span>  <a class="code" href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a>(table, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a32f224f962b50f1a6445c52ef1ceeb6a">ID_at_interp</a>, interp);</div><div class="line"><a name="l10547"></a><span class="lineno">10547</span>  <a class="code" href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a>(interp, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5931ac85aa7a5070c6cf3514b353b989">ID_encoding_table</a>, table);</div><div class="line"><a name="l10548"></a><span class="lineno">10548</span> </div><div class="line"><a name="l10549"></a><span class="lineno">10549</span>  <span class="keywordflow">return</span> table;</div><div class="line"><a name="l10550"></a><span class="lineno">10550</span> }</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="preprocessor">#else </span><span class="comment">/* ! HAVE_RUBY_ENCODING_H */</span><span class="preprocessor"></span></div><div class="line"><a name="l10553"></a><span class="lineno">10553</span> <span class="preprocessor">#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION >= 1)</span></div><div class="line"><a name="l10554"></a><span class="lineno">10554</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10555"></a><span class="lineno">10555</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aff5599e34d732668a1b62ffeb7e8440b">create_encoding_table_core</a>(arg, interp)</div><div class="line"><a name="l10556"></a><span class="lineno">10556</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> arg;</div><div class="line"><a name="l10557"></a><span class="lineno">10557</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l10558"></a><span class="lineno">10558</span> {</div><div class="line"><a name="l10559"></a><span class="lineno">10559</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</div><div class="line"><a name="l10560"></a><span class="lineno">10560</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> table = <a class="code" href="../../d1/d04/hash_8c.html#af1da586524a3a1739fd5b91272037815">rb_hash_new</a>();</div><div class="line"><a name="l10561"></a><span class="lineno">10561</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> encname = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l10562"></a><span class="lineno">10562</span>  <span class="keywordtype">int</span> i, objc;</div><div class="line"><a name="l10563"></a><span class="lineno">10563</span>  Tcl_Obj **objv;</div><div class="line"><a name="l10564"></a><span class="lineno">10564</span>  Tcl_Obj *<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>;</div><div class="line"><a name="l10565"></a><span class="lineno">10565</span> </div><div class="line"><a name="l10566"></a><span class="lineno">10566</span> </div><div class="line"><a name="l10567"></a><span class="lineno">10567</span>  <span class="comment">/* set 'binary' encoding */</span></div><div class="line"><a name="l10568"></a><span class="lineno">10568</span>  <a class="code" href="../../d1/d04/hash_8c.html#ac477edf136d86a33bc06d1fbea67bb9a">rb_hash_aset</a>(table, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a233859a1dce4fae0b33d1ea0243b0d47">ENCODING_NAME_BINARY</a>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a233859a1dce4fae0b33d1ea0243b0d47">ENCODING_NAME_BINARY</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>  <span class="comment">/* get Tcl's encoding list */</span></div><div class="line"><a name="l10571"></a><span class="lineno">10571</span>  Tcl_GetEncodingNames(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l10572"></a><span class="lineno">10572</span>  <a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a> = Tcl_GetObjResult(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>);</div><div class="line"><a name="l10573"></a><span class="lineno">10573</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a432360bae83494182898ff63e4b4511b">Tcl_IncrRefCount</a>(<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>);</div><div class="line"><a name="l10574"></a><span class="lineno">10574</span> </div><div class="line"><a name="l10575"></a><span class="lineno">10575</span>  <span class="keywordflow">if</span> (Tcl_ListObjGetElements(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>, &objc, &objv) != TCL_OK) {</div><div class="line"><a name="l10576"></a><span class="lineno">10576</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>);</div><div class="line"><a name="l10577"></a><span class="lineno">10577</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="l10578"></a><span class="lineno">10578</span>  }</div><div class="line"><a name="l10579"></a><span class="lineno">10579</span> </div><div class="line"><a name="l10580"></a><span class="lineno">10580</span>  <span class="comment">/* get encoding name and set it to table */</span></div><div class="line"><a name="l10581"></a><span class="lineno">10581</span>  <span class="keywordflow">for</span>(i = 0; i < objc; i++) {</div><div class="line"><a name="l10582"></a><span class="lineno">10582</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#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(Tcl_GetString(objv[i])));</div><div class="line"><a name="l10583"></a><span class="lineno">10583</span>  <a class="code" href="../../d1/d04/hash_8c.html#ac477edf136d86a33bc06d1fbea67bb9a">rb_hash_aset</a>(table, encname, encname);</div><div class="line"><a name="l10584"></a><span class="lineno">10584</span>  }</div><div class="line"><a name="l10585"></a><span class="lineno">10585</span> </div><div class="line"><a name="l10586"></a><span class="lineno">10586</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a030724c77d77ddc4860e1ff0ef74e480">Tcl_DecrRefCount</a>(<a class="code" href="../../d5/db5/encoding_8c.html#ae95abb7558ad4027cb2a2054df8baf75">enc_list</a>);</div><div class="line"><a name="l10587"></a><span class="lineno">10587</span> </div><div class="line"><a name="l10588"></a><span class="lineno">10588</span>  <a class="code" href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a>(table, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a32f224f962b50f1a6445c52ef1ceeb6a">ID_at_interp</a>, interp);</div><div class="line"><a name="l10589"></a><span class="lineno">10589</span>  <a class="code" href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a>(interp, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5931ac85aa7a5070c6cf3514b353b989">ID_encoding_table</a>, table);</div><div class="line"><a name="l10590"></a><span class="lineno">10590</span> </div><div class="line"><a name="l10591"></a><span class="lineno">10591</span>  <span class="keywordflow">return</span> table;</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> </div><div class="line"><a name="l10594"></a><span class="lineno">10594</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="l10595"></a><span class="lineno">10595</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10596"></a><span class="lineno">10596</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aff5599e34d732668a1b62ffeb7e8440b">create_encoding_table_core</a>(arg, interp)</div><div class="line"><a name="l10597"></a><span class="lineno">10597</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> arg;</div><div class="line"><a name="l10598"></a><span class="lineno">10598</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l10599"></a><span class="lineno">10599</span> {</div><div class="line"><a name="l10600"></a><span class="lineno">10600</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> table = <a class="code" href="../../d1/d04/hash_8c.html#af1da586524a3a1739fd5b91272037815">rb_hash_new</a>();</div><div class="line"><a name="l10601"></a><span class="lineno">10601</span>  <a class="code" href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a>(interp, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5931ac85aa7a5070c6cf3514b353b989">ID_encoding_table</a>, table);</div><div class="line"><a name="l10602"></a><span class="lineno">10602</span>  <span class="keywordflow">return</span> table;</div><div class="line"><a name="l10603"></a><span class="lineno">10603</span> }</div><div class="line"><a name="l10604"></a><span class="lineno">10604</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l10605"></a><span class="lineno">10605</span> <span class="preprocessor">#endif</span></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> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10608"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#aa6231e0ff0954bae6e8cf3ece6319334">10608</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6231e0ff0954bae6e8cf3ece6319334">create_encoding_table</a>(interp)</div><div class="line"><a name="l10609"></a><span class="lineno">10609</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</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>  <span class="keywordflow">return</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a>(<a class="code" href="../../db/d2e/intern_8h.html#a8a4a55d3f2ed6d9ece055553e48755d5">rb_proc_new</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aff5599e34d732668a1b62ffeb7e8440b">create_encoding_table_core</a>, interp),</div><div class="line"><a name="l10612"></a><span class="lineno">10612</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a31a624c57e908d47f2aeb7209e7db3e7">ID_call</a>, 0);</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> </div><div class="line"><a name="l10615"></a><span class="lineno">10615</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10616"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a71caa788c630a6c4ebbe79ab8bfb57f6">10616</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a71caa788c630a6c4ebbe79ab8bfb57f6">ip_get_encoding_table</a>(interp)</div><div class="line"><a name="l10617"></a><span class="lineno">10617</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l10618"></a><span class="lineno">10618</span> {</div><div class="line"><a name="l10619"></a><span class="lineno">10619</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> table = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l10620"></a><span class="lineno">10620</span> </div><div class="line"><a name="l10621"></a><span class="lineno">10621</span>  table = <a class="code" href="../../db/d2e/intern_8h.html#a35a10b958666c1b330238eea7b7f3a8a">rb_ivar_get</a>(interp, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5931ac85aa7a5070c6cf3514b353b989">ID_encoding_table</a>);</div><div class="line"><a name="l10622"></a><span class="lineno">10622</span> </div><div class="line"><a name="l10623"></a><span class="lineno">10623</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="l10624"></a><span class="lineno">10624</span>  <span class="comment">/* initialize encoding_table */</span></div><div class="line"><a name="l10625"></a><span class="lineno">10625</span>  table = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa6231e0ff0954bae6e8cf3ece6319334">create_encoding_table</a>(interp);</div><div class="line"><a name="l10626"></a><span class="lineno">10626</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gaacfe6a2ec444bdc7f573afb75ea251fe">rb_define_singleton_method</a>(table, <span class="stringliteral">"get_name"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#af9d2d13e936db54fa70bbf1cba698321">encoding_table_get_name</a>, 1);</div><div class="line"><a name="l10627"></a><span class="lineno">10627</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gaacfe6a2ec444bdc7f573afb75ea251fe">rb_define_singleton_method</a>(table, <span class="stringliteral">"get_obj"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad4888e9518ae5e8a1ef95e4ae45583f2">encoding_table_get_obj</a>, 1);</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="keywordflow">return</span> table;</div><div class="line"><a name="l10631"></a><span class="lineno">10631</span> }</div><div class="line"><a name="l10632"></a><span class="lineno">10632</span> </div><div class="line"><a name="l10633"></a><span class="lineno">10633</span> </div><div class="line"><a name="l10634"></a><span class="lineno">10634</span> <span class="comment">/*###############################################*/</span></div><div class="line"><a name="l10635"></a><span class="lineno">10635</span> </div><div class="line"><a name="l10636"></a><span class="lineno">10636</span> <span class="comment">/*</span></div><div class="line"><a name="l10637"></a><span class="lineno">10637</span> <span class="comment"> * The following is based on tkMenu.[ch]</span></div><div class="line"><a name="l10638"></a><span class="lineno">10638</span> <span class="comment"> * of Tcl/Tk (Tk8.0 -- Tk8.5b1) source code.</span></div><div class="line"><a name="l10639"></a><span class="lineno">10639</span> <span class="comment"> */</span></div><div class="line"><a name="l10640"></a><span class="lineno">10640</span> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</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> <span class="preprocessor">#define MASTER_MENU 0</span></div><div class="line"><a name="l10643"></a><span class="lineno">10643</span> <span class="preprocessor">#define TEAROFF_MENU 1</span></div><div class="line"><a name="l10644"></a><span class="lineno">10644</span> <span class="preprocessor">#define MENUBAR 2</span></div><div class="line"><a name="l10645"></a><span class="lineno">10645</span> </div><div class="line"><a name="l10646"></a><span class="lineno">10646</span> <span class="keyword">struct </span>dummy_TkMenuEntry {</div><div class="line"><a name="l10647"></a><span class="lineno">10647</span>  <span class="keywordtype">int</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac765329451135abec74c45e1897abf26">type</a>;</div><div class="line"><a name="l10648"></a><span class="lineno">10648</span>  <span class="keyword">struct </span>dummy_TkMenu *menuPtr;</div><div class="line"><a name="l10649"></a><span class="lineno">10649</span>  <span class="comment">/* , and etc. */</span></div><div class="line"><a name="l10650"></a><span class="lineno">10650</span> };</div><div class="line"><a name="l10651"></a><span class="lineno">10651</span> </div><div class="line"><a name="l10652"></a><span class="lineno">10652</span> <span class="keyword">struct </span>dummy_TkMenu {</div><div class="line"><a name="l10653"></a><span class="lineno">10653</span>  Tk_Window tkwin;</div><div class="line"><a name="l10654"></a><span class="lineno">10654</span>  Display *display;</div><div class="line"><a name="l10655"></a><span class="lineno">10655</span>  Tcl_Interp *interp;</div><div class="line"><a name="l10656"></a><span class="lineno">10656</span>  Tcl_Command widgetCmd;</div><div class="line"><a name="l10657"></a><span class="lineno">10657</span>  <span class="keyword">struct </span>dummy_TkMenuEntry **entries;</div><div class="line"><a name="l10658"></a><span class="lineno">10658</span>  <span class="keywordtype">int</span> numEntries;</div><div class="line"><a name="l10659"></a><span class="lineno">10659</span>  <span class="keywordtype">int</span> active;</div><div class="line"><a name="l10660"></a><span class="lineno">10660</span>  <span class="keywordtype">int</span> menuType; <span class="comment">/* MASTER_MENU, TEAROFF_MENU, or MENUBAR */</span></div><div class="line"><a name="l10661"></a><span class="lineno">10661</span>  Tcl_Obj *menuTypePtr;</div><div class="line"><a name="l10662"></a><span class="lineno">10662</span>  <span class="comment">/* , and etc. */</span></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> </div><div class="line"><a name="l10665"></a><span class="lineno">10665</span> <span class="keyword">struct </span>dummy_TkMenuRef {</div><div class="line"><a name="l10666"></a><span class="lineno">10666</span>  <span class="keyword">struct </span>dummy_TkMenu *menuPtr;</div><div class="line"><a name="l10667"></a><span class="lineno">10667</span>  <span class="keywordtype">char</span> *dummy1;</div><div class="line"><a name="l10668"></a><span class="lineno">10668</span>  <span class="keywordtype">char</span> *dummy2;</div><div class="line"><a name="l10669"></a><span class="lineno">10669</span>  <span class="keywordtype">char</span> *dummy3;</div><div class="line"><a name="l10670"></a><span class="lineno">10670</span> };</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> <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="l10673"></a><span class="lineno">10673</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="l10674"></a><span class="lineno">10674</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="l10675"></a><span class="lineno">10675</span> <span class="preprocessor">#define MENU_HASH_KEY "tkMenus"</span></div><div class="line"><a name="l10676"></a><span class="lineno">10676</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l10677"></a><span class="lineno">10677</span> </div><div class="line"><a name="l10678"></a><span class="lineno">10678</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l10679"></a><span class="lineno">10679</span> </div><div class="line"><a name="l10680"></a><span class="lineno">10680</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10681"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#a887378e0a847c703fe7ffc69520c1eab">10681</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a887378e0a847c703fe7ffc69520c1eab">ip_make_menu_embeddable_core</a>(interp, <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>)</div><div class="line"><a name="l10682"></a><span class="lineno">10682</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l10683"></a><span class="lineno">10683</span>  <span class="keywordtype">int</span> <a class="code" href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a>;</div><div class="line"><a name="l10684"></a><span class="lineno">10684</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> *<a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>;</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> <span class="preprocessor">#if TCL_MAJOR_VERSION >= 8</span></div><div class="line"><a name="l10687"></a><span class="lineno">10687</span>  <span class="keyword">volatile</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> menu_path;</div><div class="line"><a name="l10688"></a><span class="lineno">10688</span>  <span class="keyword">struct </span><a class="code" href="../../db/d19/structtcltkip.html">tcltkip</a> *ptr = <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a>(interp);</div><div class="line"><a name="l10689"></a><span class="lineno">10689</span>  <span class="keyword">struct </span>dummy_TkMenuRef *menuRefPtr = <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</div><div class="line"><a name="l10690"></a><span class="lineno">10690</span>  XEvent event;</div><div class="line"><a name="l10691"></a><span class="lineno">10691</span>  Tcl_HashTable *menuTablePtr;</div><div class="line"><a name="l10692"></a><span class="lineno">10692</span>  Tcl_HashEntry *hashEntryPtr;</div><div class="line"><a name="l10693"></a><span class="lineno">10693</span> </div><div class="line"><a name="l10694"></a><span class="lineno">10694</span>  menu_path = <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[0];</div><div class="line"><a name="l10695"></a><span class="lineno">10695</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a0e80f207eb41e9010ec9f0f5f9419fea">StringValue</a>(menu_path);</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> <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="l10698"></a><span class="lineno">10698</span>  menuRefPtr = TkFindMenuReferences(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(menu_path));</div><div class="line"><a name="l10699"></a><span class="lineno">10699</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="l10700"></a><span class="lineno">10700</span>  <span class="keywordflow">if</span> ((menuTablePtr</div><div class="line"><a name="l10701"></a><span class="lineno">10701</span>  = (Tcl_HashTable *) Tcl_GetAssocData(ptr-><a class="code" href="../../db/d19/structtcltkip.html#aa8b6837b35e5e71b69e3aaaf7c159272">ip</a>, MENU_HASH_KEY, <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>))</div><div class="line"><a name="l10702"></a><span class="lineno">10702</span>  != <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l10703"></a><span class="lineno">10703</span>  <span class="keywordflow">if</span> ((hashEntryPtr</div><div class="line"><a name="l10704"></a><span class="lineno">10704</span>  = Tcl_FindHashEntry(menuTablePtr, <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(menu_path)))</div><div class="line"><a name="l10705"></a><span class="lineno">10705</span>  != <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l10706"></a><span class="lineno">10706</span>  menuRefPtr = (<span class="keyword">struct </span>dummy_TkMenuRef *) Tcl_GetHashValue(hashEntryPtr);</div><div class="line"><a name="l10707"></a><span class="lineno">10707</span>  }</div><div class="line"><a name="l10708"></a><span class="lineno">10708</span>  }</div><div class="line"><a name="l10709"></a><span class="lineno">10709</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l10710"></a><span class="lineno">10710</span> </div><div class="line"><a name="l10711"></a><span class="lineno">10711</span>  <span class="keywordflow">if</span> (menuRefPtr == (<span class="keyword">struct</span> dummy_TkMenuRef *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l10712"></a><span class="lineno">10712</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="l10713"></a><span class="lineno">10713</span>  }</div><div class="line"><a name="l10714"></a><span class="lineno">10714</span> </div><div class="line"><a name="l10715"></a><span class="lineno">10715</span>  <span class="keywordflow">if</span> (menuRefPtr->menuPtr == (<span class="keyword">struct</span> dummy_TkMenu *) <a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>) {</div><div class="line"><a name="l10716"></a><span class="lineno">10716</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="l10717"></a><span class="lineno">10717</span>  <span class="stringliteral">"invalid menu widget (maybe already destroyed)"</span>);</div><div class="line"><a name="l10718"></a><span class="lineno">10718</span>  }</div><div class="line"><a name="l10719"></a><span class="lineno">10719</span> </div><div class="line"><a name="l10720"></a><span class="lineno">10720</span>  <span class="keywordflow">if</span> ((menuRefPtr->menuPtr)->menuType != MENUBAR) {</div><div class="line"><a name="l10721"></a><span class="lineno">10721</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="l10722"></a><span class="lineno">10722</span>  <span class="stringliteral">"target menu widget must be a MENUBAR type"</span>);</div><div class="line"><a name="l10723"></a><span class="lineno">10723</span>  }</div><div class="line"><a name="l10724"></a><span class="lineno">10724</span> </div><div class="line"><a name="l10725"></a><span class="lineno">10725</span>  (menuRefPtr->menuPtr)->menuType = TEAROFF_MENU;</div><div class="line"><a name="l10726"></a><span class="lineno">10726</span> <span class="preprocessor">#if 0 </span><span class="comment">/* cause SEGV */</span><span class="preprocessor"></span></div><div class="line"><a name="l10727"></a><span class="lineno">10727</span>  {</div><div class="line"><a name="l10728"></a><span class="lineno">10728</span>  <span class="comment">/* char *s = "tearoff"; */</span></div><div class="line"><a name="l10729"></a><span class="lineno">10729</span>  <span class="keywordtype">char</span> *s = <span class="stringliteral">"normal"</span>;</div><div class="line"><a name="l10730"></a><span class="lineno">10730</span>  <span class="comment">/* Tcl_SetStringObj((menuRefPtr->menuPtr)->menuTypePtr, s, strlen(s));*/</span></div><div class="line"><a name="l10731"></a><span class="lineno">10731</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="l10732"></a><span class="lineno">10732</span>  <span class="comment">/* Tcl_IncrRefCount((menuRefPtr->menuPtr)->menuTypePtr); */</span></div><div class="line"><a name="l10733"></a><span class="lineno">10733</span>  <span class="comment">/* (menuRefPtr->menuPtr)->menuType = TEAROFF_MENU; */</span></div><div class="line"><a name="l10734"></a><span class="lineno">10734</span>  (menuRefPtr->menuPtr)->menuType = MASTER_MENU;</div><div class="line"><a name="l10735"></a><span class="lineno">10735</span>  }</div><div class="line"><a name="l10736"></a><span class="lineno">10736</span> <span class="preprocessor">#endif</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="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="l10739"></a><span class="lineno">10739</span>  TkEventuallyRecomputeMenu(menuRefPtr->menuPtr);</div><div class="line"><a name="l10740"></a><span class="lineno">10740</span>  TkEventuallyRedrawMenu(menuRefPtr->menuPtr,</div><div class="line"><a name="l10741"></a><span class="lineno">10741</span>  (<span class="keyword">struct</span> dummy_TkMenuEntry *)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>);</div><div class="line"><a name="l10742"></a><span class="lineno">10742</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="l10743"></a><span class="lineno">10743</span>  memset((<span class="keywordtype">void</span> *) &event, 0, <span class="keyword">sizeof</span>(event));</div><div class="line"><a name="l10744"></a><span class="lineno">10744</span>  <span class="keyword">event</span>.xany.type = ConfigureNotify;</div><div class="line"><a name="l10745"></a><span class="lineno">10745</span>  <span class="keyword">event</span>.xany.serial = NextRequest(Tk_Display((menuRefPtr->menuPtr)->tkwin));</div><div class="line"><a name="l10746"></a><span class="lineno">10746</span>  <span class="keyword">event</span>.xany.send_event = 0; <span class="comment">/* FALSE */</span></div><div class="line"><a name="l10747"></a><span class="lineno">10747</span>  <span class="keyword">event</span>.xany.window = Tk_WindowId((menuRefPtr->menuPtr)->tkwin);</div><div class="line"><a name="l10748"></a><span class="lineno">10748</span>  <span class="keyword">event</span>.xany.display = Tk_Display((menuRefPtr->menuPtr)->tkwin);</div><div class="line"><a name="l10749"></a><span class="lineno">10749</span>  <span class="keyword">event</span>.xconfigure.window = <span class="keyword">event</span>.xany.window;</div><div class="line"><a name="l10750"></a><span class="lineno">10750</span>  Tk_HandleEvent(&event);</div><div class="line"><a name="l10751"></a><span class="lineno">10751</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l10752"></a><span class="lineno">10752</span> </div><div class="line"><a name="l10753"></a><span class="lineno">10753</span> <span class="preprocessor">#else </span><span class="comment">/* TCL_MAJOR_VERSION <= 7 */</span><span class="preprocessor"></span></div><div class="line"><a name="l10754"></a><span class="lineno">10754</span>  <a class="code" href="../../db/dcc/error_8c.html#a0083d327c582acc3300d59e8fe257c27">rb_notimplement</a>();</div><div class="line"><a name="l10755"></a><span class="lineno">10755</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l10756"></a><span class="lineno">10756</span> </div><div class="line"><a name="l10757"></a><span class="lineno">10757</span>  <span class="keywordflow">return</span> interp;</div><div class="line"><a name="l10758"></a><span class="lineno">10758</span> }</div><div class="line"><a name="l10759"></a><span class="lineno">10759</span> </div><div class="line"><a name="l10760"></a><span class="lineno">10760</span> <span class="keyword">static</span> <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a></div><div class="line"><a name="l10761"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ad56a7c90180bf0919ca7c14530b38f44">10761</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad56a7c90180bf0919ca7c14530b38f44">ip_make_menu_embeddable</a>(interp, menu_path)</div><div class="line"><a name="l10762"></a><span class="lineno">10762</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> interp;</div><div class="line"><a name="l10763"></a><span class="lineno">10763</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> menu_path;</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>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">VALUE</a> <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[1];</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>  <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>[0] = menu_path;</div><div class="line"><a name="l10768"></a><span class="lineno">10768</span>  <span class="keywordflow">return</span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1cec8ebc4c54249136da6b6df38fb723">tk_funcall</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a887378e0a847c703fe7ffc69520c1eab">ip_make_menu_embeddable_core</a>, 1, <a class="code" href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a>, interp);</div><div class="line"><a name="l10769"></a><span class="lineno">10769</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> </div><div class="line"><a name="l10772"></a><span class="lineno">10772</span> <span class="comment">/*###############################################*/</span></div><div class="line"><a name="l10773"></a><span class="lineno">10773</span> </div><div class="line"><a name="l10774"></a><span class="lineno">10774</span> <span class="comment">/*---- initialization ----*/</span></div><div class="line"><a name="l10775"></a><span class="lineno">10775</span> <span class="keywordtype">void</span></div><div class="line"><a name="l10776"></a><span class="lineno"><a class="line" href="../../d5/d9d/tcltklib_8c.html#ada3ac1e5a6678c4ec73e09cd08d13202">10776</a></span> <a class="code" href="../../d5/d9d/tcltklib_8c.html#ada3ac1e5a6678c4ec73e09cd08d13202">Init_tcltklib</a>()</div><div class="line"><a name="l10777"></a><span class="lineno">10777</span> {</div><div class="line"><a name="l10778"></a><span class="lineno">10778</span>  <span class="keywordtype">int</span> ret;</div><div class="line"><a name="l10779"></a><span class="lineno">10779</span> </div><div class="line"><a name="l10780"></a><span class="lineno">10780</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">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="l10781"></a><span class="lineno">10781</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">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="l10782"></a><span class="lineno">10782</span> </div><div class="line"><a name="l10783"></a><span class="lineno">10783</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">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="l10784"></a><span class="lineno">10784</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">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="l10785"></a><span class="lineno">10785</span>  <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">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="l10786"></a><span class="lineno">10786</span> </div><div class="line"><a name="l10787"></a><span class="lineno">10787</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l10788"></a><span class="lineno">10788</span> </div><div class="line"><a name="l10789"></a><span class="lineno">10789</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9da382a32faf00a1e9fa10aa11c5fb1b">tcltkip_class</a> = ip;</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>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l10792"></a><span class="lineno">10792</span> </div><div class="line"><a name="l10793"></a><span class="lineno">10793</span> <span class="preprocessor">#ifdef HAVE_RUBY_ENCODING_H</span></div><div class="line"><a name="l10794"></a><span class="lineno">10794</span>  <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&<a class="code" href="../../d5/d9d/tcltklib_8c.html#a4fad8dd77dc5ba9e6be36191c82a272e">cRubyEncoding</a>);</div><div class="line"><a name="l10795"></a><span class="lineno">10795</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4fad8dd77dc5ba9e6be36191c82a272e">cRubyEncoding</a> = <a class="code" href="../../db/d2e/intern_8h.html#a28a7241d8742ac74f2a914c222c8efc9">rb_path2class</a>(<span class="stringliteral">"Encoding"</span>);</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>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a154b1f5c9c90acef2a0b248f861fea29">ENCODING_INDEX_UTF8</a> = <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="l10798"></a><span class="lineno">10798</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a76a58884428d17b0ae0736d9d16ade61">ENCODING_INDEX_BINARY</a> = <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="l10799"></a><span class="lineno">10799</span> <span class="preprocessor">#endif</span></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="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&<a class="code" href="../../d5/d9d/tcltklib_8c.html#a8b1d6a68739d2f40636d9a8f3aea4253">ENCODING_NAME_UTF8</a>);</div><div class="line"><a name="l10802"></a><span class="lineno">10802</span>  <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&<a class="code" href="../../d5/d9d/tcltklib_8c.html#a233859a1dce4fae0b33d1ea0243b0d47">ENCODING_NAME_BINARY</a>);</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="../../d5/d9d/tcltklib_8c.html#a8b1d6a68739d2f40636d9a8f3aea4253">ENCODING_NAME_UTF8</a> = <a class="code" href="../../db/d2e/intern_8h.html#a8ea3742679211f408cb5769de6cf0d46">rb_obj_freeze</a>(<a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">"utf-8"</span>));</div><div class="line"><a name="l10805"></a><span class="lineno">10805</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a233859a1dce4fae0b33d1ea0243b0d47">ENCODING_NAME_BINARY</a> = <a class="code" href="../../db/d2e/intern_8h.html#a8ea3742679211f408cb5769de6cf0d46">rb_obj_freeze</a>(<a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<span class="stringliteral">"binary"</span>));</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>  <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&<a class="code" href="../../d5/d9d/tcltklib_8c.html#a7a2cabfa69c181ac17f416e6c78f4fd9">eTkCallbackReturn</a>);</div><div class="line"><a name="l10810"></a><span class="lineno">10810</span>  <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&<a class="code" href="../../d5/d9d/tcltklib_8c.html#a7fefdc0a0bdb479dcd15d610533497d6">eTkCallbackBreak</a>);</div><div class="line"><a name="l10811"></a><span class="lineno">10811</span>  <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&<a class="code" href="../../d5/d9d/tcltklib_8c.html#a5ae51f46018b1ae0a423aca2b89bf7ab">eTkCallbackContinue</a>);</div><div class="line"><a name="l10812"></a><span class="lineno">10812</span> </div><div class="line"><a name="l10813"></a><span class="lineno">10813</span>  <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&<a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a>);</div><div class="line"><a name="l10814"></a><span class="lineno">10814</span>  <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&<a class="code" href="../../d5/d9d/tcltklib_8c.html#a606d7647537ea0c5a15818642b884f6b">eventloop_stack</a>);</div><div class="line"><a name="l10815"></a><span class="lineno">10815</span>  <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&<a class="code" href="../../d5/d9d/tcltklib_8c.html#a73ffc5e8c3f30a29963a2df64361b93a">watchdog_thread</a>);</div><div class="line"><a name="l10816"></a><span class="lineno">10816</span> </div><div class="line"><a name="l10817"></a><span class="lineno">10817</span>  <a class="code" href="../../d8/d16/gc_8c.html#a5196f826932fd0ac9b923d35816e8e1d">rb_global_variable</a>(&<a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a>);</div><div class="line"><a name="l10818"></a><span class="lineno">10818</span> </div><div class="line"><a name="l10819"></a><span class="lineno">10819</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l10820"></a><span class="lineno">10820</span> </div><div class="line"><a name="l10821"></a><span class="lineno">10821</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="l10822"></a><span class="lineno">10822</span> </div><div class="line"><a name="l10823"></a><span class="lineno">10823</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="l10824"></a><span class="lineno">10824</span>  <a class="code" href="../../db/d2e/intern_8h.html#a8ea3742679211f408cb5769de6cf0d46">rb_obj_freeze</a>(<a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aeaf38a8920ce34eb9aa64dead5cf2cd1">tcltklib_release_date</a>)));</div><div class="line"><a name="l10825"></a><span class="lineno">10825</span> </div><div class="line"><a name="l10826"></a><span class="lineno">10826</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="l10827"></a><span class="lineno">10827</span>  <a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a6a0604a3645e14c4d8c8272cfb51bb05">finalize_hook_name</a>));</div><div class="line"><a name="l10828"></a><span class="lineno">10828</span> </div><div class="line"><a name="l10829"></a><span class="lineno">10829</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l10830"></a><span class="lineno">10830</span> </div><div class="line"><a name="l10831"></a><span class="lineno">10831</span> <span class="preprocessor">#ifdef __WIN32__</span></div><div class="line"><a name="l10832"></a><span class="lineno">10832</span> <span class="preprocessor"># define TK_WINDOWING_SYSTEM "win32"</span></div><div class="line"><a name="l10833"></a><span class="lineno">10833</span> <span class="preprocessor">#else</span></div><div class="line"><a name="l10834"></a><span class="lineno">10834</span> <span class="preprocessor"># ifdef MAC_TCL</span></div><div class="line"><a name="l10835"></a><span class="lineno">10835</span> <span class="preprocessor"># define TK_WINDOWING_SYSTEM "classic"</span></div><div class="line"><a name="l10836"></a><span class="lineno">10836</span> <span class="preprocessor"># else</span></div><div class="line"><a name="l10837"></a><span class="lineno">10837</span> <span class="preprocessor"># ifdef MAC_OSX_TK</span></div><div class="line"><a name="l10838"></a><span class="lineno">10838</span> <span class="preprocessor"># define TK_WINDOWING_SYSTEM "aqua"</span></div><div class="line"><a name="l10839"></a><span class="lineno">10839</span> <span class="preprocessor"># else</span></div><div class="line"><a name="l10840"></a><span class="lineno">10840</span> <span class="preprocessor"># define TK_WINDOWING_SYSTEM "x11"</span></div><div class="line"><a name="l10841"></a><span class="lineno">10841</span> <span class="preprocessor"># endif</span></div><div class="line"><a name="l10842"></a><span class="lineno">10842</span> <span class="preprocessor"># endif</span></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>  <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="l10845"></a><span class="lineno">10845</span>  <a class="code" href="../../db/d2e/intern_8h.html#a8ea3742679211f408cb5769de6cf0d46">rb_obj_freeze</a>(<a class="code" href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac9cc32b5242f9dac9caaaf3fb1f7d2dc">TK_WINDOWING_SYSTEM</a>)));</div><div class="line"><a name="l10846"></a><span class="lineno">10846</span> </div><div class="line"><a name="l10847"></a><span class="lineno">10847</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l10848"></a><span class="lineno">10848</span> </div><div class="line"><a name="l10849"></a><span class="lineno">10849</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="l10850"></a><span class="lineno">10850</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="l10851"></a><span class="lineno">10851</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="l10852"></a><span class="lineno">10852</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="l10853"></a><span class="lineno">10853</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="l10854"></a><span class="lineno">10854</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="l10855"></a><span class="lineno">10855</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="l10856"></a><span class="lineno">10856</span> </div><div class="line"><a name="l10857"></a><span class="lineno">10857</span>  <span class="comment">/* --------------------------------------------------------------- */</span></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>(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="l10860"></a><span class="lineno">10860</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="l10861"></a><span class="lineno">10861</span> <span class="preprocessor">#ifdef TCL_NAMESPACE_ONLY</span></div><div class="line"><a name="l10862"></a><span class="lineno">10862</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="l10863"></a><span class="lineno">10863</span> <span class="preprocessor">#else </span><span class="comment">/* probably Tcl7.6 */</span><span class="preprocessor"></span></div><div class="line"><a name="l10864"></a><span class="lineno">10864</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="l10865"></a><span class="lineno">10865</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l10866"></a><span class="lineno">10866</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="l10867"></a><span class="lineno">10867</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="l10868"></a><span class="lineno">10868</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="l10869"></a><span class="lineno">10869</span> <span class="preprocessor">#ifdef TCL_PARSE_PART1</span></div><div class="line"><a name="l10870"></a><span class="lineno">10870</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="l10871"></a><span class="lineno">10871</span> <span class="preprocessor">#else </span><span class="comment">/* probably Tcl7.6 */</span><span class="preprocessor"></span></div><div class="line"><a name="l10872"></a><span class="lineno">10872</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="l10873"></a><span class="lineno">10873</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l10874"></a><span class="lineno">10874</span> </div><div class="line"><a name="l10875"></a><span class="lineno">10875</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l10876"></a><span class="lineno">10876</span> </div><div class="line"><a name="l10877"></a><span class="lineno">10877</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"get_version"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aed87299455aeaf9e0caab263ce05ae35">lib_getversion</a>, -1);</div><div class="line"><a name="l10878"></a><span class="lineno">10878</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="l10879"></a><span class="lineno">10879</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a425d422eaab0de27ede50498550e0f19">lib_get_reltype_name</a>, -1);</div><div class="line"><a name="l10880"></a><span class="lineno">10880</span> </div><div class="line"><a name="l10881"></a><span class="lineno">10881</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="l10882"></a><span class="lineno">10882</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="l10883"></a><span class="lineno">10883</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="l10884"></a><span class="lineno">10884</span> </div><div class="line"><a name="l10885"></a><span class="lineno">10885</span>  <span class="comment">/* --------------------------------------------------------------- */</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>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7a2cabfa69c181ac17f416e6c78f4fd9">eTkCallbackReturn</a> = <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="l10888"></a><span class="lineno">10888</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7fefdc0a0bdb479dcd15d610533497d6">eTkCallbackBreak</a> = <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="l10889"></a><span class="lineno">10889</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5ae51f46018b1ae0a423aca2b89bf7ab">eTkCallbackContinue</a> = <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="l10890"></a><span class="lineno">10890</span>  <a class="code" href="../../db/dcc/error_8c.html#a3fc1bd0a9e1211aef38f81d600345ed9">rb_eStandardError</a>);</div><div class="line"><a name="l10891"></a><span class="lineno">10891</span> </div><div class="line"><a name="l10892"></a><span class="lineno">10892</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l10893"></a><span class="lineno">10893</span> </div><div class="line"><a name="l10894"></a><span class="lineno">10894</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a03b95ffac44da77386f3add147e7958c">eLocalJumpError</a> = <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="l10895"></a><span class="lineno">10895</span> </div><div class="line"><a name="l10896"></a><span class="lineno">10896</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a86edc457c880e8c17e678380e174902c">eTkLocalJumpError</a> = <a class="code" href="../../de/ddf/group__class.html#ga15d068dbe88a3bab3700b03bebb7fbac">rb_define_class</a>(<span class="stringliteral">"TkLocalJumpError"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a03b95ffac44da77386f3add147e7958c">eLocalJumpError</a>);</div><div class="line"><a name="l10897"></a><span class="lineno">10897</span> </div><div class="line"><a name="l10898"></a><span class="lineno">10898</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7725cc78dab5aa1a2e8eed31d3ce2f7d">eTkCallbackRetry</a> = <a class="code" href="../../de/ddf/group__class.html#ga15d068dbe88a3bab3700b03bebb7fbac">rb_define_class</a>(<span class="stringliteral">"TkCallbackRetry"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a86edc457c880e8c17e678380e174902c">eTkLocalJumpError</a>);</div><div class="line"><a name="l10899"></a><span class="lineno">10899</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae96487c8a7974cdd45d90c8e447ee19d">eTkCallbackRedo</a> = <a class="code" href="../../de/ddf/group__class.html#ga15d068dbe88a3bab3700b03bebb7fbac">rb_define_class</a>(<span class="stringliteral">"TkCallbackRedo"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a86edc457c880e8c17e678380e174902c">eTkLocalJumpError</a>);</div><div class="line"><a name="l10900"></a><span class="lineno">10900</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a27579641fb4a7546a1d98f37a30fcef6">eTkCallbackThrow</a> = <a class="code" href="../../de/ddf/group__class.html#ga15d068dbe88a3bab3700b03bebb7fbac">rb_define_class</a>(<span class="stringliteral">"TkCallbackThrow"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a86edc457c880e8c17e678380e174902c">eTkLocalJumpError</a>);</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>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l10903"></a><span class="lineno">10903</span> </div><div class="line"><a name="l10904"></a><span class="lineno">10904</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9a99ae96c946b550b60a7f345103e408">ID_at_enc</a> = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"@encoding"</span>);</div><div class="line"><a name="l10905"></a><span class="lineno">10905</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a32f224f962b50f1a6445c52ef1ceeb6a">ID_at_interp</a> = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"@interp"</span>);</div><div class="line"><a name="l10906"></a><span class="lineno">10906</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9e67df28d1db2fd86f0db8c34dc73275">ID_encoding_name</a> = <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="l10907"></a><span class="lineno">10907</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5931ac85aa7a5070c6cf3514b353b989">ID_encoding_table</a> = <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="l10908"></a><span class="lineno">10908</span> </div><div class="line"><a name="l10909"></a><span class="lineno">10909</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3146c23bbdd4311489cbe8cb76c7aebb">ID_stop_p</a> = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"stop?"</span>);</div><div class="line"><a name="l10910"></a><span class="lineno">10910</span> <span class="preprocessor">#ifndef HAVE_RB_THREAD_ALIVE_P</span></div><div class="line"><a name="l10911"></a><span class="lineno">10911</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aaf12d7f0762fc1a9607b435cabce20b9">ID_alive_p</a> = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"alive?"</span>);</div><div class="line"><a name="l10912"></a><span class="lineno">10912</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l10913"></a><span class="lineno">10913</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa0338a6024357b513fd58ebd112be7db">ID_kill</a> = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"kill"</span>);</div><div class="line"><a name="l10914"></a><span class="lineno">10914</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4f4b8818725098180b9d71be7c020e6a">ID_join</a> = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"join"</span>);</div><div class="line"><a name="l10915"></a><span class="lineno">10915</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab120af30b98a101b13e07722999f6e60">ID_value</a> = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"value"</span>);</div><div class="line"><a name="l10916"></a><span class="lineno">10916</span> </div><div class="line"><a name="l10917"></a><span class="lineno">10917</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a31a624c57e908d47f2aeb7209e7db3e7">ID_call</a> = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"call"</span>);</div><div class="line"><a name="l10918"></a><span class="lineno">10918</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acd0c08166926d1e4b90b5f6b811733bd">ID_backtrace</a> = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"backtrace"</span>);</div><div class="line"><a name="l10919"></a><span class="lineno">10919</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad6092a7044451d4e36f1a65618c9b4fc">ID_message</a> = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"message"</span>);</div><div class="line"><a name="l10920"></a><span class="lineno">10920</span> </div><div class="line"><a name="l10921"></a><span class="lineno">10921</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a189bd2ac1c121d796cb2d123c7adc599">ID_at_reason</a> = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"@reason"</span>);</div><div class="line"><a name="l10922"></a><span class="lineno">10922</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9361a0096f960a099dac9a504d008765">ID_return</a> = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"return"</span>);</div><div class="line"><a name="l10923"></a><span class="lineno">10923</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a14e7d89ffd600ee06f033277ba33a51f">ID_break</a> = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"break"</span>);</div><div class="line"><a name="l10924"></a><span class="lineno">10924</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a265eab0dd3b7a7e51f7872c3c6d820c6">ID_next</a> = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"next"</span>);</div><div class="line"><a name="l10925"></a><span class="lineno">10925</span> </div><div class="line"><a name="l10926"></a><span class="lineno">10926</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a2876182790d4d4deb29d00b4048d7565">ID_to_s</a> = <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="l10927"></a><span class="lineno">10927</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1e8954156fff89f02ed89339cb91d368">ID_inspect</a> = <a class="code" href="../../dc/dcc/array_8c.html#a9cfa42d4b79c89d68c53be8b2150a503">rb_intern</a>(<span class="stringliteral">"inspect"</span>);</div><div class="line"><a name="l10928"></a><span class="lineno">10928</span> </div><div class="line"><a name="l10929"></a><span class="lineno">10929</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l10930"></a><span class="lineno">10930</span> </div><div class="line"><a name="l10931"></a><span class="lineno">10931</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"mainloop"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9fbe12119a2f37b103a041490d037b85">lib_mainloop</a>, -1);</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">"mainloop_thread?"</span>,</div><div class="line"><a name="l10933"></a><span class="lineno">10933</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab129e3e196eaea678bc471e3ef375ede">lib_evloop_thread_p</a>, 0);</div><div class="line"><a name="l10934"></a><span class="lineno">10934</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="l10935"></a><span class="lineno">10935</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ae977a1cc3c4fe5396d83e62d9cd84768">lib_mainloop_watchdog</a>, -1);</div><div class="line"><a name="l10936"></a><span class="lineno">10936</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="l10937"></a><span class="lineno">10937</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3e277c7839c769dbda6f519c443eed20">lib_thread_callback</a>, -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">"do_one_event"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7354a37a34ef9099af49f1328f3f1016">lib_do_one_event</a>, -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">"mainloop_abort_on_exception"</span>,</div><div class="line"><a name="l10940"></a><span class="lineno">10940</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a26761b7bba4295953f2ac116ce22e9c1">lib_evloop_abort_on_exc</a>, 0);</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">"mainloop_abort_on_exception="</span>,</div><div class="line"><a name="l10942"></a><span class="lineno">10942</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad9976bd3f0e23394b60b6b5f9ac807a0">lib_evloop_abort_on_exc_set</a>, 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">"set_eventloop_window_mode"</span>,</div><div class="line"><a name="l10944"></a><span class="lineno">10944</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a32cab3889f06a8a2cd1bd19a21cafacd">set_eventloop_window_mode</a>, 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">"get_eventloop_window_mode"</span>,</div><div class="line"><a name="l10946"></a><span class="lineno">10946</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aff53058299740e6e65bdfdf16cfea00a">get_eventloop_window_mode</a>, 0);</div><div class="line"><a name="l10947"></a><span class="lineno">10947</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#a27686a7bb4f8c4edefcae08f76d63aae">set_eventloop_tick</a>,1);</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">"get_eventloop_tick"</span>,<a class="code" href="../../d5/d9d/tcltklib_8c.html#ac8db9fd449201bae8181612e747785eb">get_eventloop_tick</a>,0);</div><div class="line"><a name="l10949"></a><span class="lineno">10949</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#a554381cf6d59dce54dfe1302356852a2">set_no_event_wait</a>, 1);</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">"get_no_event_wait"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9728e6326ce0c625758692060db84929">get_no_event_wait</a>, 0);</div><div class="line"><a name="l10951"></a><span class="lineno">10951</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="l10952"></a><span class="lineno">10952</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9126b68acdeb075206c33efa9162398c">set_eventloop_weight</a>, 2);</div><div class="line"><a name="l10953"></a><span class="lineno">10953</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>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a30f011b2db868d6e9248624460528261">set_max_block_time</a>,1);</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">"get_eventloop_weight"</span>,</div><div class="line"><a name="l10955"></a><span class="lineno">10955</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a79be545f6246bed648026db350f5ba9e">get_eventloop_weight</a>, 0);</div><div class="line"><a name="l10956"></a><span class="lineno">10956</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="l10957"></a><span class="lineno">10957</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad41041b63389250c18db126fe8e484eb">lib_num_of_mainwindows</a>, 0);</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>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l10960"></a><span class="lineno">10960</span> </div><div class="line"><a name="l10961"></a><span class="lineno">10961</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"_split_tklist"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad829d59da9ccaa0434b8b54d58825ee5">lib_split_tklist</a>, 1);</div><div class="line"><a name="l10962"></a><span class="lineno">10962</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"_merge_tklist"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5c522d1704764fcb93ad2b4b911385ee">lib_merge_tklist</a>, -1);</div><div class="line"><a name="l10963"></a><span class="lineno">10963</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="l10964"></a><span class="lineno">10964</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a78444cea8a98d1a5dfec81befd3dedf5">lib_conv_listelement</a>, 1);</div><div class="line"><a name="l10965"></a><span class="lineno">10965</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"_toUTF8"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a01a6de6a1215a803584201ab4b55f2f0">lib_toUTF8</a>, -1);</div><div class="line"><a name="l10966"></a><span class="lineno">10966</span>  <a class="code" href="../../d7/d19/group__defmethod.html#gafc7122dde38ecff13de3e9d19a30aaeb">rb_define_module_function</a>(lib, <span class="stringliteral">"_fromUTF8"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a393d343aab434d9bb0cf1e27ae6f0f89">lib_fromUTF8</a>, -1);</div><div class="line"><a name="l10967"></a><span class="lineno">10967</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="l10968"></a><span class="lineno">10968</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad24910a290409c576d362d4125cb12e5">lib_UTF_backslash</a>, 1);</div><div class="line"><a name="l10969"></a><span class="lineno">10969</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="l10970"></a><span class="lineno">10970</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0323d248d302426ccb53a73749823b7d">lib_Tcl_backslash</a>, 1);</div><div class="line"><a name="l10971"></a><span class="lineno">10971</span> </div><div class="line"><a name="l10972"></a><span class="lineno">10972</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="l10973"></a><span class="lineno">10973</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4f692b38fb45e52602bbc57f132836c">lib_get_system_encoding</a>, 0);</div><div class="line"><a name="l10974"></a><span class="lineno">10974</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="l10975"></a><span class="lineno">10975</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aeeb6a476660d7ec93557e9ccedde18dc">lib_set_system_encoding</a>, 1);</div><div class="line"><a name="l10976"></a><span class="lineno">10976</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="l10977"></a><span class="lineno">10977</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac4f692b38fb45e52602bbc57f132836c">lib_get_system_encoding</a>, 0);</div><div class="line"><a name="l10978"></a><span class="lineno">10978</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="l10979"></a><span class="lineno">10979</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#aeeb6a476660d7ec93557e9ccedde18dc">lib_set_system_encoding</a>, 1);</div><div class="line"><a name="l10980"></a><span class="lineno">10980</span> </div><div class="line"><a name="l10981"></a><span class="lineno">10981</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l10982"></a><span class="lineno">10982</span> </div><div class="line"><a name="l10983"></a><span class="lineno">10983</span>  <a class="code" href="../../db/d2e/intern_8h.html#a6c99ed7f070458b961026d43d27d0642">rb_define_alloc_func</a>(ip, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad42860501d76c1b7b98d62647da16712">ip_alloc</a>);</div><div class="line"><a name="l10984"></a><span class="lineno">10984</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"initialize"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a76aecd7fcd37d851e304827104fe1d83">ip_init</a>, -1);</div><div class="line"><a name="l10985"></a><span class="lineno">10985</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"create_slave"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0b5edc1367cecaabf7aded34aeb9e570">ip_create_slave</a>, -1);</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">"slave_of?"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a6afd959b5c225f5fb614a77749f86280">ip_is_slave_of_p</a>, 1);</div><div class="line"><a name="l10987"></a><span class="lineno">10987</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"make_safe"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a35f1dffc672795ce3d938184a81e5580">ip_make_safe</a>, 0);</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">"safe?"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab150321a746700b39420f8b6fa40d29a">ip_is_safe_p</a>, 0);</div><div class="line"><a name="l10989"></a><span class="lineno">10989</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"allow_ruby_exit?"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad5f7e585527b297dd62440f0ef749249">ip_allow_ruby_exit_p</a>, 0);</div><div class="line"><a name="l10990"></a><span class="lineno">10990</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"allow_ruby_exit="</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a63b0b31e96100a5676c4fd51783fc498">ip_allow_ruby_exit_set</a>, 1);</div><div class="line"><a name="l10991"></a><span class="lineno">10991</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"delete"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ab569b91e16f4f01e23e8001c1a767737">ip_delete</a>, 0);</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">"deleted?"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a16caf63f211ddb58e34d7fea73c8f8b8">ip_is_deleted_p</a>, 0);</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">"has_mainwindow?"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5453a353691a18219b5dd3e160a2a146">ip_has_mainwindow_p</a>, 0);</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">"invalid_namespace?"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a26fc7fcdf650154d948f3bb5334f7906">ip_has_invalid_namespace_p</a>, 0);</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">"_eval"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a05b4c4302380cf16a80770983ccba5bf">ip_eval</a>, 1);</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">"_cancel_eval"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a452874d0514b81b3089a59e08b6a0959">ip_cancel_eval</a>, -1);</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">"_cancel_eval_unwind"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a329be50b55827b0b70889787d9527c62">ip_cancel_eval_unwind</a>, -1);</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">"_toUTF8"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1dd0705e9361b7d3cd04de4296964330">ip_toUTF8</a>, -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">"_fromUTF8"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a49f5f61641a0a4c22b079c28bdcec19f">ip_fromUTF8</a>, -1);</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">"_thread_vwait"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a88f2eac7c5925475e0bc985959852d99">ip_thread_vwait</a>, 1);</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">"_thread_tkwait"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a31f0d49512e1c6c15cce7c7855fdcb71">ip_thread_tkwait</a>, 2);</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">"_invoke"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a249b6faeea478c4d28399a5d7dba272d">ip_invoke</a>, -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">"_immediate_invoke"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ac53621394fecfe0c7571f4b7c2451727">ip_invoke_immediate</a>, -1);</div><div class="line"><a name="l11004"></a><span class="lineno">11004</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_return_value"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a1689b48d2965d2e14643f0f1e658e35d">ip_retval</a>, 0);</div><div class="line"><a name="l11005"></a><span class="lineno">11005</span> </div><div class="line"><a name="l11006"></a><span class="lineno">11006</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_create_console"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aef40fa1c994b74c38cf0b7f838d47824">ip_create_console</a>, 0);</div><div class="line"><a name="l11007"></a><span class="lineno">11007</span> </div><div class="line"><a name="l11008"></a><span class="lineno">11008</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l11009"></a><span class="lineno">11009</span> </div><div class="line"><a name="l11010"></a><span class="lineno">11010</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="l11011"></a><span class="lineno">11011</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a05dbfa32ebb9e97e1336c127185806b3">create_dummy_encoding_for_tk</a>, 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">"encoding_table"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a71caa788c630a6c4ebbe79ab8bfb57f6">ip_get_encoding_table</a>, 0);</div><div class="line"><a name="l11013"></a><span class="lineno">11013</span> </div><div class="line"><a name="l11014"></a><span class="lineno">11014</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l11015"></a><span class="lineno">11015</span> </div><div class="line"><a name="l11016"></a><span class="lineno">11016</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_get_variable"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7a4270e161e4f43948d987ba0eafc670">ip_get_variable</a>, 2);</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">"_get_variable2"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a58191d3b453f95d98a2ab1ee27fa2857">ip_get_variable2</a>, 3);</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">"_set_variable"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a4d808b443ed297690a9e9df396a0b26b">ip_set_variable</a>, 3);</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">"_set_variable2"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0434b143d141ef59372a35f95aa41f82">ip_set_variable2</a>, 4);</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">"_unset_variable"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a469264067776bdec259cbed88b2dac33">ip_unset_variable</a>, 2);</div><div class="line"><a name="l11021"></a><span class="lineno">11021</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_unset_variable2"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0c7850986e4bfef62d6860e12ea90c40">ip_unset_variable2</a>, 3);</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">"_get_global_var"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a10bea1ebd451dae673bda0647aafaf34">ip_get_global_var</a>, 1);</div><div class="line"><a name="l11023"></a><span class="lineno">11023</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_get_global_var2"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a3be36efcd7b93c3d219e29450c9d86b0">ip_get_global_var2</a>, 2);</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_global_var"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a95f3a04393fe2d69b01a89e31609ae35">ip_set_global_var</a>, 2);</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">"_set_global_var2"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a8510743a4f48d31db83b79f12c70e28b">ip_set_global_var2</a>, 3);</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">"_unset_global_var"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ace40b11f20bc1b04af185c9a64cb2c67">ip_unset_global_var</a>, 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">"_unset_global_var2"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa869cbefaaa2e186ef1a97ceaea5d190">ip_unset_global_var2</a>, 2);</div><div class="line"><a name="l11028"></a><span class="lineno">11028</span> </div><div class="line"><a name="l11029"></a><span class="lineno">11029</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l11030"></a><span class="lineno">11030</span> </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">"_make_menu_embeddable"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad56a7c90180bf0919ca7c14530b38f44">ip_make_menu_embeddable</a>, 1);</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>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_split_tklist"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a7ab9e0914c68c612e61d95cb79e3bce2">ip_split_tklist</a>, 1);</div><div class="line"><a name="l11036"></a><span class="lineno">11036</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_merge_tklist"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a5c522d1704764fcb93ad2b4b911385ee">lib_merge_tklist</a>, -1);</div><div class="line"><a name="l11037"></a><span class="lineno">11037</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"_conv_listelement"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a78444cea8a98d1a5dfec81befd3dedf5">lib_conv_listelement</a>, 1);</div><div class="line"><a name="l11038"></a><span class="lineno">11038</span> </div><div class="line"><a name="l11039"></a><span class="lineno">11039</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l11040"></a><span class="lineno">11040</span> </div><div class="line"><a name="l11041"></a><span class="lineno">11041</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"mainloop"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#abe42e2876c470464dea5b16fd5763de5">ip_mainloop</a>, -1);</div><div class="line"><a name="l11042"></a><span class="lineno">11042</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"mainloop_watchdog"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#aa4890e0e98d5502c6ea43aa6a29bad38">ip_mainloop_watchdog</a>, -1);</div><div class="line"><a name="l11043"></a><span class="lineno">11043</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"do_one_event"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#af1362a3075b310b2695b19dea8ae3324">ip_do_one_event</a>, -1);</div><div class="line"><a name="l11044"></a><span class="lineno">11044</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="l11045"></a><span class="lineno">11045</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a74a8e3c8ce14b5e3bc0afc3afd0de65a">ip_evloop_abort_on_exc</a>, 0);</div><div class="line"><a name="l11046"></a><span class="lineno">11046</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="l11047"></a><span class="lineno">11047</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a70253bb7c75ee32a4acfbbc813742d07">ip_evloop_abort_on_exc_set</a>, 1);</div><div class="line"><a name="l11048"></a><span class="lineno">11048</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"set_eventloop_tick"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#afa5dc85d9ac38f133348564cc314fcf2">ip_set_eventloop_tick</a>, 1);</div><div class="line"><a name="l11049"></a><span class="lineno">11049</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"get_eventloop_tick"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#af66c3331d93fdb16484b85d18d502b06">ip_get_eventloop_tick</a>, 0);</div><div class="line"><a name="l11050"></a><span class="lineno">11050</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"set_no_event_wait"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a0131e60372d95e3115ba5ce8da507c38">ip_set_no_event_wait</a>, 1);</div><div class="line"><a name="l11051"></a><span class="lineno">11051</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"get_no_event_wait"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#af9a1342eb45e94901edad8f0b29402b2">ip_get_no_event_wait</a>, 0);</div><div class="line"><a name="l11052"></a><span class="lineno">11052</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"set_eventloop_weight"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a292583c700a005045a3d17b66e3801ed">ip_set_eventloop_weight</a>, 2);</div><div class="line"><a name="l11053"></a><span class="lineno">11053</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"get_eventloop_weight"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9d9430b2f796c0619bc9d62f22788b9a">ip_get_eventloop_weight</a>, 0);</div><div class="line"><a name="l11054"></a><span class="lineno">11054</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"set_max_block_time"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a30f011b2db868d6e9248624460528261">set_max_block_time</a>, 1);</div><div class="line"><a name="l11055"></a><span class="lineno">11055</span>  <a class="code" href="../../d7/d19/group__defmethod.html#ga118dc7abcdb97f56fe35727ac0ff6eb8">rb_define_method</a>(ip, <span class="stringliteral">"restart"</span>, <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9b17a18e847d33308d64879ac1dbd515">ip_restart</a>, 0);</div><div class="line"><a name="l11056"></a><span class="lineno">11056</span> </div><div class="line"><a name="l11057"></a><span class="lineno">11057</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l11058"></a><span class="lineno">11058</span> </div><div class="line"><a name="l11059"></a><span class="lineno">11059</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">eventloop_thread</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l11060"></a><span class="lineno">11060</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a09520768374a3d97d15bad5db2dd06d8">eventloop_interp</a> = (Tcl_Interp*)<a class="code" href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a>;</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> <span class="preprocessor">#ifndef DEFAULT_EVENTLOOP_DEPTH</span></div><div class="line"><a name="l11063"></a><span class="lineno">11063</span> <span class="preprocessor">#define DEFAULT_EVENTLOOP_DEPTH 7</span></div><div class="line"><a name="l11064"></a><span class="lineno">11064</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l11065"></a><span class="lineno">11065</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a606d7647537ea0c5a15818642b884f6b">eventloop_stack</a> = <a class="code" href="../../db/d2e/intern_8h.html#aec80847cff5250fc99e223d1966a2153">rb_ary_new2</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#aa90d2934300f61708abfaf993b994f47">DEFAULT_EVENTLOOP_DEPTH</a>);</div><div class="line"><a name="l11066"></a><span class="lineno">11066</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#ad2269b9fd3158763c15c181fca11b832">RbTk_OBJ_UNTRUST</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a606d7647537ea0c5a15818642b884f6b">eventloop_stack</a>);</div><div class="line"><a name="l11067"></a><span class="lineno">11067</span> </div><div class="line"><a name="l11068"></a><span class="lineno">11068</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a73ffc5e8c3f30a29963a2df64361b93a">watchdog_thread</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l11069"></a><span class="lineno">11069</span> </div><div class="line"><a name="l11070"></a><span class="lineno">11070</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">rbtk_pending_exception</a> = <a class="code" href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a>;</div><div class="line"><a name="l11071"></a><span class="lineno">11071</span> </div><div class="line"><a name="l11072"></a><span class="lineno">11072</span>  <span class="comment">/* --------------------------------------------------------------- */</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="preprocessor">#ifdef HAVE_NATIVETHREAD</span></div><div class="line"><a name="l11075"></a><span class="lineno">11075</span>  <span class="comment">/* if ruby->nativethread-supprt and tcltklib->doen't,</span></div><div class="line"><a name="l11076"></a><span class="lineno">11076</span> <span class="comment"> the following will cause link-error. */</span></div><div class="line"><a name="l11077"></a><span class="lineno">11077</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#a9e7d742a9c52a78b9b3dc81df878e2ed">ruby_native_thread_p</a>();</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> </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>  <a class="code" href="../../d6/d9b/eval__jump_8c.html#a59c976d93f8b1b2766e4fe7e01ac1ee7">rb_set_end_proc</a>(<a class="code" href="../../d5/d9d/tcltklib_8c.html#a67448108787dbc8ff0220daad052bb96">lib_mark_at_exit</a>, 0);</div><div class="line"><a name="l11083"></a><span class="lineno">11083</span> </div><div class="line"><a name="l11084"></a><span class="lineno">11084</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l11085"></a><span class="lineno">11085</span> </div><div class="line"><a name="l11086"></a><span class="lineno">11086</span>  ret = <a class="code" href="../../d5/d30/stubs_8c.html#ad512bbc74cab1e92a3e9d1c80bf9c657">ruby_open_tcl_dll</a>(<a class="code" href="../../db/d2e/intern_8h.html#a70f81ab8c056ec13134cc7a35868d565">rb_argv0</a> ? <a class="code" href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a>(<a class="code" href="../../db/d2e/intern_8h.html#a70f81ab8c056ec13134cc7a35868d565">rb_argv0</a>) : 0);</div><div class="line"><a name="l11087"></a><span class="lineno">11087</span>  <span class="keywordflow">switch</span>(ret) {</div><div class="line"><a name="l11088"></a><span class="lineno">11088</span>  <span class="keywordflow">case</span> <a class="code" href="../../df/d55/stubs_8h.html#ad0f6a4b19a2cd67ce370a5c22d95f0d3">TCLTK_STUBS_OK</a>:</div><div class="line"><a name="l11089"></a><span class="lineno">11089</span>  <span class="keywordflow">break</span>;</div><div class="line"><a name="l11090"></a><span class="lineno">11090</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="l11091"></a><span class="lineno">11091</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="l11092"></a><span class="lineno">11092</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="l11093"></a><span class="lineno">11093</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="l11094"></a><span class="lineno">11094</span>  <span class="keywordflow">default</span>:</div><div class="line"><a name="l11095"></a><span class="lineno">11095</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="l11096"></a><span class="lineno">11096</span>  }</div><div class="line"><a name="l11097"></a><span class="lineno">11097</span> </div><div class="line"><a name="l11098"></a><span class="lineno">11098</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l11099"></a><span class="lineno">11099</span> </div><div class="line"><a name="l11100"></a><span class="lineno">11100</span> <span class="preprocessor">#if defined CREATE_RUBYTK_KIT || defined CREATE_RUBYKIT</span></div><div class="line"><a name="l11101"></a><span class="lineno">11101</span>  setup_rubytkkit();</div><div class="line"><a name="l11102"></a><span class="lineno">11102</span> <span class="preprocessor">#endif</span></div><div class="line"><a name="l11103"></a><span class="lineno">11103</span> </div><div class="line"><a name="l11104"></a><span class="lineno">11104</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l11105"></a><span class="lineno">11105</span> </div><div class="line"><a name="l11106"></a><span class="lineno">11106</span>  <span class="comment">/* Tcl stub check */</span></div><div class="line"><a name="l11107"></a><span class="lineno">11107</span>  <a class="code" href="../../d5/d9d/tcltklib_8c.html#acc6e437a3e4205736d8cb9b4888762fc">tcl_stubs_check</a>();</div><div class="line"><a name="l11108"></a><span class="lineno">11108</span> </div><div class="line"><a name="l11109"></a><span class="lineno">11109</span>  Tcl_ObjType_ByteArray = Tcl_GetObjType(Tcl_ObjTypeName_ByteArray);</div><div class="line"><a name="l11110"></a><span class="lineno">11110</span>  Tcl_ObjType_String = Tcl_GetObjType(Tcl_ObjTypeName_String);</div><div class="line"><a name="l11111"></a><span class="lineno">11111</span> </div><div class="line"><a name="l11112"></a><span class="lineno">11112</span>  <span class="comment">/* --------------------------------------------------------------- */</span></div><div class="line"><a name="l11113"></a><span class="lineno">11113</span> </div><div class="line"><a name="l11114"></a><span class="lineno">11114</span>  (void)<a class="code" href="../../d5/d9d/tcltklib_8c.html#acb5e2917d06a1219dfb5d721db43f9b9">call_original_exit</a>;</div><div class="line"><a name="l11115"></a><span class="lineno">11115</span> }</div><div class="line"><a name="l11116"></a><span class="lineno">11116</span> </div><div class="line"><a name="l11117"></a><span class="lineno">11117</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#l01591">ruby.h:1591</a></div></div> <div class="ttc" id="tcltklib_8c_html_a1cec8ebc4c54249136da6b6df38fb723"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a1cec8ebc4c54249136da6b6df38fb723">tk_funcall</a></div><div class="ttdeci">static VALUE tk_funcall(VALUE(*func)(), int argc, VALUE *argv, VALUE obj)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07103">tcltklib.c:7103</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#l00752">vm_eval.c:752</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#l00558">tcltklib.c:558</a></div></div> <div class="ttc" id="tcltklib_8c_html_a393d343aab434d9bb0cf1e27ae6f0f89"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a393d343aab434d9bb0cf1e27ae6f0f89">lib_fromUTF8</a></div><div class="ttdeci">static VALUE lib_fromUTF8(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08303">tcltklib.c:8303</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#l00555">tcltklib.c:555</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#l00494">ruby.h:494</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#l00546">error.c:546</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#l00445">tcltklib.c:445</a></div></div> <div class="ttc" id="intern_8h_html_ad1fe299d3b5a492259ab4e733832868c"><div class="ttname"><a href="../../db/d2e/intern_8h.html#ad1fe299d3b5a492259ab4e733832868c">rb_thread_schedule</a></div><div class="ttdeci">void rb_thread_schedule(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/de7/thread_8c_source.html#l01191">thread.c:1191</a></div></div> <div class="ttc" id="structcall__queue_html_a540c5867e3e06f497722e95e8b6d0d73"><div class="ttname"><a href="../../df/db5/structcall__queue.html#a540c5867e3e06f497722e95e8b6d0d73">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#l00434">tcltklib.c:434</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#l00739">encoding.c:739</a></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#l02902">tcltklib.c:2902</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#l00217">tcltklib.c:217</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#l01568">ruby.h:1568</a></div></div> <div class="ttc" id="tcltklib_8c_html_a959d87e76e7c29f41ee1d8ddb46d5ee1"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a959d87e76e7c29f41ee1d8ddb46d5ee1">lib_restart</a></div><div class="ttdeci">static VALUE lib_restart(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07902">tcltklib.c:7902</a></div></div> <div class="ttc" id="tcltklib_8c_html_acc6e437a3e4205736d8cb9b4888762fc"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#acc6e437a3e4205736d8cb9b4888762fc">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#l01284">tcltklib.c:1284</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#l02901">tcltklib.c:2901</a></div></div> <div class="ttc" id="tcltklib_8c_html_a067558608d86b7cda4a19dadf6533e26"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a067558608d86b7cda4a19dadf6533e26">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#l00485">tcltklib.c:485</a></div></div> <div class="ttc" id="tcltklib_8c_html_a67448108787dbc8ff0220daad052bb96"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a67448108787dbc8ff0220daad052bb96">lib_mark_at_exit</a></div><div class="ttdeci">static void lib_mark_at_exit(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05625">tcltklib.c:5625</a></div></div> <div class="ttc" id="intern_8h_html_a660d41e068182114c09a44b0ec00cd38"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a660d41e068182114c09a44b0ec00cd38">rb_exc_new2</a></div><div class="ttdeci">#define rb_exc_new2</div><div class="ttdef"><b>Definition:</b> <a href="../../db/d2e/intern_8h_source.html#l00247">intern.h:247</a></div></div> <div class="ttc" id="tcltklib_8c_html_a26fc7fcdf650154d948f3bb5334f7906"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a26fc7fcdf650154d948f3bb5334f7906">ip_has_invalid_namespace_p</a></div><div class="ttdeci">static VALUE ip_has_invalid_namespace_p(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06828">tcltklib.c:6828</a></div></div> <div class="ttc" id="tcltklib_8c_html_a16ec218b5beacb3a41f577d7e4982f34"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a16ec218b5beacb3a41f577d7e4982f34">WaitVisibilityProc</a></div><div class="ttdeci">static void WaitVisibilityProc(ClientData clientData, XEvent *eventPtr)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04423">tcltklib.c:4423</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#l00944">array.c:944</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#l00106">tcltklib.c:106</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 class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04860">tcltklib.c:4860</a></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#l00327">error.c:327</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#l00533">stubs.c:533</a></div></div> <div class="ttc" id="tcltklib_8c_html_a8510743a4f48d31db83b79f12c70e28b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a8510743a4f48d31db83b79f12c70e28b">ip_set_global_var2</a></div><div class="ttdeci">static VALUE ip_set_global_var2(VALUE self, VALUE varname, VALUE index, VALUE value)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09686">tcltklib.c:9686</a></div></div> <div class="ttc" id="tcltklib_8c_html_afa5dc85d9ac38f133348564cc314fcf2"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#afa5dc85d9ac38f133348564cc314fcf2">ip_set_eventloop_tick</a></div><div class="ttdeci">static VALUE ip_set_eventloop_tick(VALUE self, VALUE tick)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01733">tcltklib.c:1733</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#l00239">tcltklib.c:239</a></div></div> <div class="ttc" id="st_8c_html_aeb205b1461b511358d0bdd0a457b6428"><div class="ttname"><a href="../../d4/d71/st_8c.html#aeb205b1461b511358d0bdd0a457b6428">tail</a></div><div class="ttdeci">#define tail</div><div class="ttdef"><b>Definition:</b> <a href="../../d4/d71/st_8c_source.html#l00108">st.c:108</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#l00428">tcltklib.c:428</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#l00269">tcltklib.c:269</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#l00160">tcltklib.c:160</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#l00218">tcltklib.c:218</a></div></div> <div class="ttc" id="tcltklib_8c_html_a95f3a04393fe2d69b01a89e31609ae35"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a95f3a04393fe2d69b01a89e31609ae35">ip_set_global_var</a></div><div class="ttdeci">static VALUE ip_set_global_var(VALUE self, VALUE varname, VALUE value)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09676">tcltklib.c:9676</a></div></div> <div class="ttc" id="tcltklib_8c_html_ac958fa40a0230a89556ffb7eea35b256"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac958fa40a0230a89556ffb7eea35b256">lib_UTF_backslash_core</a></div><div class="ttdeci">static VALUE lib_UTF_backslash_core(VALUE self, VALUE str, int all_bs)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08331">tcltklib.c:8331</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_af3e6f9a2db4741e3208aeedae20c97cd"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af3e6f9a2db4741e3208aeedae20c97cd">ip_finalize</a></div><div class="ttdeci">static void ip_finalize(Tcl_Interp *ip)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05661">tcltklib.c:5661</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a7bce65407b21f6812267e8d5426201f0"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a7bce65407b21f6812267e8d5426201f0">INT2NUM</a></div><div class="ttdeci">#define INT2NUM(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01296">ruby.h:1296</a></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#l00769">tcltklib.c:769</a></div></div> <div class="ttc" id="tcltklib_8c_html_a49f5f61641a0a4c22b079c28bdcec19f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a49f5f61641a0a4c22b079c28bdcec19f">ip_fromUTF8</a></div><div class="ttdeci">static VALUE ip_fromUTF8(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08317">tcltklib.c:8317</a></div></div> <div class="ttc" id="tcltklib_8c_html_a7a4270e161e4f43948d987ba0eafc670"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a7a4270e161e4f43948d987ba0eafc670">ip_get_variable</a></div><div class="ttdeci">static VALUE ip_get_variable(VALUE self, VALUE varname, VALUE flag)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09434">tcltklib.c:9434</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#l00489">ruby.h:489</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_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#l00104">tcltklib.c:104</a></div></div> <div class="ttc" id="tcltklib_8c_html_abe42e2876c470464dea5b16fd5763de5"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#abe42e2876c470464dea5b16fd5763de5">ip_mainloop</a></div><div class="ttdeci">static VALUE ip_mainloop(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02751">tcltklib.c:2751</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#l08467">tcltklib.c:8467</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#l03181">tcltklib.c:3181</a></div></div> <div class="ttc" id="tcltklib_8c_html_a74a8e3c8ce14b5e3bc0afc3afd0de65a"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a74a8e3c8ce14b5e3bc0afc3afd0de65a">ip_evloop_abort_on_exc</a></div><div class="ttdeci">static VALUE ip_evloop_abort_on_exc(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01926">tcltklib.c:1926</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#l00037">encoding.c:37</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#l00224">tcltklib.c:224</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#l00111">tcltklib.c:111</a></div></div> <div class="ttc" id="tcltklib_8c_html_a9728e6326ce0c625758692060db84929"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a9728e6326ce0c625758692060db84929">get_no_event_wait</a></div><div class="ttdeci">static VALUE get_no_event_wait(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01777">tcltklib.c:1777</a></div></div> <div class="ttc" id="tcltklib_8c_html_a9fbe12119a2f37b103a041490d037b85"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a9fbe12119a2f37b103a041490d037b85">lib_mainloop</a></div><div class="ttdeci">static VALUE lib_mainloop(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02731">tcltklib.c:2731</a></div></div> <div class="ttc" id="tcltklib_8c_html_a11b5ffc78d9ecba8b638e6ac2821c401"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a11b5ffc78d9ecba8b638e6ac2821c401">lib_eventloop_core</a></div><div class="ttdeci">static int lib_eventloop_core(int check_root, int update_flag, int *check_var, Tcl_Interp *interp)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02184">tcltklib.c:2184</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#l00241">tcltklib.c:241</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#l00630">ruby.h:630</a></div></div> <div class="ttc" id="tcltklib_8c_html_a554381cf6d59dce54dfe1302356852a2"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a554381cf6d59dce54dfe1302356852a2">set_no_event_wait</a></div><div class="ttdeci">static VALUE set_no_event_wait(VALUE self, VALUE wait)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01759">tcltklib.c:1759</a></div></div> <div class="ttc" id="tcltklib_8c_html_a26761b7bba4295953f2ac116ce22e9c1"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a26761b7bba4295953f2ac116ce22e9c1">lib_evloop_abort_on_exc</a></div><div class="ttdeci">static VALUE lib_evloop_abort_on_exc(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01913">tcltklib.c:1913</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#l00221">tcltklib.c:221</a></div></div> <div class="ttc" id="tcltklib_8c_html_a16e54a52941869f32517fc7f0e438513"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a16e54a52941869f32517fc7f0e438513">WaitVariableProc</a></div><div class="ttdeci">static char * WaitVariableProc(ClientData clientData, Tcl_Interp *interp, char *name1, char *name2, int flags)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04407">tcltklib.c:4407</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#l01036">ruby.h:1036</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#l01646">class.c:1646</a></div></div> <div class="ttc" id="tcltklib_8c_html_aca15514270a006b5a1eda592c0d0ee75"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aca15514270a006b5a1eda592c0d0ee75">rb_threadWaitVisibilityProc</a></div><div class="ttdeci">static void rb_threadWaitVisibilityProc(ClientData clientData, XEvent *eventPtr)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04865">tcltklib.c:4865</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#l00527">tcltklib.c:527</a></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#l08468">tcltklib.c:8468</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#l02552">tcltklib.c:2552</a></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#l02903">tcltklib.c:2903</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#l00296">tcltklib.c:296</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#l00157">tcltklib.c:157</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#l00440">ruby.h:440</a></div></div> <div class="ttc" id="tcltklib_8c_html_aae0e06e43d2d7bf10fec3114b39b7866"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aae0e06e43d2d7bf10fec3114b39b7866">ip_has_mainwindow_p_core</a></div><div class="ttdeci">static VALUE ip_has_mainwindow_p_core(VALUE self, int argc, VALUE *argv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06863">tcltklib.c:6863</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#l02553">tcltklib.c:2553</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="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#l01135">encoding.c:1135</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#l00423">tcltklib.c:423</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#l03993">tcltklib.c:3993</a></div></div> <div class="ttc" id="tcltklib_8c_html_a5397f07b7cd5249e5cc6cf1a1d5eb14f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a5397f07b7cd5249e5cc6cf1a1d5eb14f">ip_ruby_cmd_receiver_get</a></div><div class="ttdeci">static VALUE ip_ruby_cmd_receiver_get(char *str)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03538">tcltklib.c:3538</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_aacea3516b33941ce8149098e223a7466"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#aacea3516b33941ce8149098e223a7466">Qtrue</a></div><div class="ttdeci">#define Qtrue</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_a69dfe84ee096c35fae385ff59fbc95d9"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a69dfe84ee096c35fae385ff59fbc95d9">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#l00533">tcltklib.c:533</a></div></div> <div class="ttc" id="tcltklib_8c_html_aab0fce189f0f9c11438fa9020bb18be8"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aab0fce189f0f9c11438fa9020bb18be8">watchdog_evloop_launcher</a></div><div class="ttdeci">static VALUE watchdog_evloop_launcher(VALUE check_rootwidget)</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="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#l01999">tcltklib.c:1999</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#l00461">tcltklib.c:461</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#l02612">transcode.c:2612</a></div></div> <div class="ttc" id="tcltklib_8c_html_a1dd0705e9361b7d3cd04de4296964330"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a1dd0705e9361b7d3cd04de4296964330">ip_toUTF8</a></div><div class="ttdeci">static VALUE ip_toUTF8(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08115">tcltklib.c:8115</a></div></div> <div class="ttc" id="tcltklib_8c_html_a4cb3bb492242e5a0724d255d4b34a70a"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a4cb3bb492242e5a0724d255d4b34a70a">tcl_eval</a></div><div class="ttdeci">static int tcl_eval(Tcl_Interp *interp, const char *cmd)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00281">tcltklib.c:281</a></div></div> <div class="ttc" id="tcltklib_8c_html_a2b24b25dc88d0bb76c8b6feca2ca67f4"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a2b24b25dc88d0bb76c8b6feca2ca67f4">rb_threadUpdateProc</a></div><div class="ttdeci">static void rb_threadUpdateProc(ClientData clientData)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04000">tcltklib.c:4000</a></div></div> <div class="ttc" id="tcltklib_8c_html_aef1359e3bae2745050e68ee7c53d2c6e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aef1359e3bae2745050e68ee7c53d2c6e">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#l01381">tcltklib.c:1381</a></div></div> <div class="ttc" id="tcltklib_8c_html_a7c8f904c8246d8a1c9daaa67b887722e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a7c8f904c8246d8a1c9daaa67b887722e">call_queue_handler</a></div><div class="ttdeci">static int call_queue_handler(Tcl_Event *evPtr, int flags)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07009">tcltklib.c:7009</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#l00767">tcltklib.c:767</a></div></div> <div class="ttc" id="error_8c_html_ab2597cb97e6531c286d7b76b49be946e"><div class="ttname"><a href="../../db/dcc/error_8c.html#ab2597cb97e6531c286d7b76b49be946e">rb_exc_new_str</a></div><div class="ttdeci">VALUE rb_exc_new_str(VALUE etype, VALUE str)</div><div class="ttdef"><b>Definition:</b> <a href="../../db/dcc/error_8c_source.html#l00585">error.c:585</a></div></div> <div class="ttc" id="ruby_8h_html"><div class="ttname"><a href="../../d9/d3f/ruby_8h.html">ruby.h</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_aaa83a0f54c991cb4a4b1dec49eea22d6"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aaa83a0f54c991cb4a4b1dec49eea22d6">get_ip</a></div><div class="ttdeci">static struct tcltkip * get_ip(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00775">tcltklib.c:775</a></div></div> <div class="ttc" id="tcltklib_8c_html_ac7dc62d7648c1a3b4f1e39053d0073c4"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac7dc62d7648c1a3b4f1e39053d0073c4">ip_replace_wait_commands</a></div><div class="ttdeci">static void ip_replace_wait_commands(Tcl_Interp *interp, Tk_Window mainWin)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05863">tcltklib.c:5863</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#l01610">tcltklib.c:1610</a></div></div> <div class="ttc" id="tcltklib_8c_html_a8a799d2eb1758e37f3d53a9685db4b5b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a8a799d2eb1758e37f3d53a9685db4b5b">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#l00532">tcltklib.c:532</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#l04823">tcltklib.c:4823</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_a3e277c7839c769dbda6f519c443eed20"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a3e277c7839c769dbda6f519c443eed20">lib_thread_callback</a></div><div class="ttdeci">static VALUE lib_thread_callback(int argc, VALUE *argv, VALUE self)</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_a05b4c4302380cf16a80770983ccba5bf"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a05b4c4302380cf16a80770983ccba5bf">ip_eval</a></div><div class="ttdeci">static VALUE ip_eval(VALUE self, VALUE str)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07594">tcltklib.c:7594</a></div></div> <div class="ttc" id="tcltklib_8c_html_a08bba8786c84798961e0c5d04343a65c"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a08bba8786c84798961e0c5d04343a65c">delete_slaves</a></div><div class="ttdeci">static void delete_slaves(Tcl_Interp *ip)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05578">tcltklib.c:5578</a></div></div> <div class="ttc" id="tcltklib_8c_html_a30f011b2db868d6e9248624460528261"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a30f011b2db868d6e9248624460528261">set_max_block_time</a></div><div class="ttdeci">static VALUE set_max_block_time(VALUE self, VALUE time)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01864">tcltklib.c:1864</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#l00226">tcltklib.c:226</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#l00417">tcltklib.c:417</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="ruby_2ruby_8h_html_a3af99897b60119951af8961dbd52dd3f"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a3af99897b60119951af8961dbd52dd3f">UNREACHABLE</a></div><div class="ttdeci">#define UNREACHABLE</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00042">ruby.h:42</a></div></div> <div class="ttc" id="tcltklib_8c_html_ab00abfb735d3f312974208b69126b6d9"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ab00abfb735d3f312974208b69126b6d9">ip_CallWhenDeleted</a></div><div class="ttdeci">static void ip_CallWhenDeleted(ClientData clientData, Tcl_Interp *ip)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06134">tcltklib.c:6134</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#l00900">array.c:900</a></div></div> <div class="ttc" id="tcltklib_8c_html_a67d357ff1473c4a6aa8484256f66051d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a67d357ff1473c4a6aa8484256f66051d">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#l00475">tcltklib.c:475</a></div></div> <div class="ttc" id="tcltklib_8c_html_a3be23e7291525181f463338c6c4e3dd1"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a3be23e7291525181f463338c6c4e3dd1">rbtk_release_ip</a></div><div class="ttdeci">static int rbtk_release_ip(struct tcltkip *ptr)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00823">tcltklib.c:823</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#l00140">file.c:140</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="ossl__ssl_8c_html_a86771351f4ef469ab9c94739a64fd7ea"><div class="ttname"><a href="../../dc/dd1/ossl__ssl_8c.html#a86771351f4ef469ab9c94739a64fd7ea">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#l00113">ossl_ssl.c:113</a></div></div> <div class="ttc" id="tcltklib_8c_html_a1b07760263b333c6e92789d2918c9b19"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a1b07760263b333c6e92789d2918c9b19">ip_get_variable2_core</a></div><div class="ttdeci">static VALUE ip_get_variable2_core(VALUE interp, int argc, VALUE *argv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09312">tcltklib.c:9312</a></div></div> <div class="ttc" id="tcltklib_8c_html_ae6ec1143806ca777011fe0786cebce56"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae6ec1143806ca777011fe0786cebce56">create_dummy_encoding_for_tk_core</a></div><div class="ttdeci">static VALUE create_dummy_encoding_for_tk_core(VALUE interp, VALUE name, VALUE error_mode)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10102">tcltklib.c:10102</a></div></div> <div class="ttc" id="tcltklib_8c_html_a2c752c3113a4e3d5f552842910dc2ac6"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a2c752c3113a4e3d5f552842910dc2ac6">ip_wrap_namespace_command</a></div><div class="ttdeci">static void ip_wrap_namespace_command(Tcl_Interp *interp)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06096">tcltklib.c:6096</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#l02994">thread.c:2994</a></div></div> <div class="ttc" id="tcltklib_8c_html_a0b5edc1367cecaabf7aded34aeb9e570"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a0b5edc1367cecaabf7aded34aeb9e570">ip_create_slave</a></div><div class="ttdeci">static VALUE ip_create_slave(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06519">tcltklib.c:6519</a></div></div> <div class="ttc" id="tcltklib_8c_html_ace40b11f20bc1b04af185c9a64cb2c67"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ace40b11f20bc1b04af185c9a64cb2c67">ip_unset_global_var</a></div><div class="ttdeci">static VALUE ip_unset_global_var(VALUE self, VALUE varname)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09697">tcltklib.c:9697</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a5a8a0a36dbacb1ec73a860b8fd6a61a1"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a5a8a0a36dbacb1ec73a860b8fd6a61a1">SYM2ID</a></div><div class="ttdeci">#define SYM2ID(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00356">ruby.h:356</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#l00453">tcltklib.c:453</a></div></div> <div class="ttc" id="tcltklib_8c_html_ae03aba704fe4920a72cc87c1eaf6e28d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae03aba704fe4920a72cc87c1eaf6e28d">update_encoding_table</a></div><div class="ttdeci">static int update_encoding_table(VALUE table, VALUE interp, VALUE error_mode)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10152">tcltklib.c:10152</a></div></div> <div class="ttc" id="intern_8h_html_a5ec55864056da2a01e4b87fde4c807b9"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a5ec55864056da2a01e4b87fde4c807b9">rb_thread_wakeup</a></div><div class="ttdeci">VALUE rb_thread_wakeup(VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/de7/thread_8c_source.html#l02276">thread.c:2276</a></div></div> <div class="ttc" id="tcltklib_8c_html_a04aca966ccbbc51fd5d317cd8e7076c8"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a04aca966ccbbc51fd5d317cd8e7076c8">lib_eventloop_ensure</a></div><div class="ttdeci">VALUE lib_eventloop_ensure(VALUE args)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02615">tcltklib.c:2615</a></div></div> <div class="ttc" id="tcltklib_8c_html_affbf8d8c64c287a609d914f5ac9660ce"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#affbf8d8c64c287a609d914f5ac9660ce">lib_num_of_mainwindows_core</a></div><div class="ttdeci">static VALUE lib_num_of_mainwindows_core(VALUE self, int argc, VALUE *argv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01966">tcltklib.c:1966</a></div></div> <div class="ttc" id="tcltklib_8c_html_a19128ae2c34cb86eeda84fdc1ad3a582"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a19128ae2c34cb86eeda84fdc1ad3a582">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#l00537">tcltklib.c:537</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#l00760">tcltklib.c:760</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 class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04861">tcltklib.c:4861</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a6a973fe624aa9aa9ba0cdeb6792d3187"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a6a973fe624aa9aa9ba0cdeb6792d3187">rb_funcall</a></div><div class="ttdeci">VALUE rb_funcall(VALUE, ID, int,...)</div><div class="ttdoc">Calls a method. </div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d80/vm__eval_8c_source.html#l00781">vm_eval.c:781</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a7e5b0d4c40fecb26c1ac946f674a690e"><div class="ttname"><a href="../../de/de6/ruby_2ruby_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#l02612">variable.c:2612</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#l00233">tcltklib.c:233</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#l08474">tcltklib.c:8474</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#l00424">tcltklib.c:424</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#l00807">eval.c:807</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#l00433">tcltklib.c:433</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#l01380">tcltklib.c:1380</a></div></div> <div class="ttc" id="tcltklib_8c_html_a8889e269c13930f6ca02a4d8034834a9"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a8889e269c13930f6ca02a4d8034834a9">ip_create_slave_core</a></div><div class="ttdeci">static VALUE ip_create_slave_core(VALUE interp, int argc, VALUE *argv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06408">tcltklib.c:6408</a></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#l00532">ruby.h:532</a></div></div> <div class="ttc" id="tcltklib_8c_html_a4fad8dd77dc5ba9e6be36191c82a272e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a4fad8dd77dc5ba9e6be36191c82a272e">cRubyEncoding</a></div><div class="ttdeci">static VALUE cRubyEncoding</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00189">tcltklib.c:189</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#l01857">error.c:1857</a></div></div> <div class="ttc" id="tcltklib_8c_html_a329be50b55827b0b70889787d9527c62"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a329be50b55827b0b70889787d9527c62">ip_cancel_eval_unwind</a></div><div class="ttdeci">static VALUE ip_cancel_eval_unwind(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07819">tcltklib.c:7819</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#l01115">variable.c:1115</a></div></div> <div class="ttc" id="tcltklib_8c_html_a76a58884428d17b0ae0736d9d16ade61"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a76a58884428d17b0ae0736d9d16ade61">ENCODING_INDEX_BINARY</a></div><div class="ttdeci">static int ENCODING_INDEX_BINARY</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00193">tcltklib.c:193</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="tcltklib_8c_html_a31f0d49512e1c6c15cce7c7855fdcb71"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a31f0d49512e1c6c15cce7c7855fdcb71">ip_thread_tkwait</a></div><div class="ttdeci">static VALUE ip_thread_tkwait(VALUE self, VALUE mode, VALUE target)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05507">tcltklib.c:5507</a></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="tcltklib_8c_html_a306f46e41cb264c3e0247760b6fd1a8d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a306f46e41cb264c3e0247760b6fd1a8d">WaitWindowProc</a></div><div class="ttdeci">static void WaitWindowProc(ClientData clientData, XEvent *eventPtr)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04439">tcltklib.c:4439</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#l00646">object.c:646</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#l02127">variable.c:2127</a></div></div> <div class="ttc" id="tcltklib_8c_html_aa869cbefaaa2e186ef1a97ceaea5d190"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa869cbefaaa2e186ef1a97ceaea5d190">ip_unset_global_var2</a></div><div class="ttdeci">static VALUE ip_unset_global_var2(VALUE self, VALUE varname, VALUE index)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09706">tcltklib.c:9706</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#l02551">tcltklib.c:2551</a></div></div> <div class="ttc" id="tcltklib_8c_html_aa6313a173a762dd8a2a94b0d9b0ce8aa"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa6313a173a762dd8a2a94b0d9b0ce8aa">_thread_call_proc</a></div><div class="ttdeci">static VALUE _thread_call_proc(VALUE arg)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02930">tcltklib.c:2930</a></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="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#l00557">error.c:557</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_abb509cfdf6560a9f795b1f6932d93691"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#abb509cfdf6560a9f795b1f6932d93691">DATA_PTR</a></div><div class="ttdeci">#define DATA_PTR(dta)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00992">ruby.h:992</a></div></div> <div class="ttc" id="tcltklib_8c_html_af37170bd6947038f223541fd8b2d1212"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af37170bd6947038f223541fd8b2d1212">invoke_tcl_proc</a></div><div class="ttdeci">static VALUE invoke_tcl_proc(VALUE arg)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08482">tcltklib.c:8482</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="../../d2/d9b/localeinit_8c_source.html#l00023">localeinit.c:23</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#l00214">tcltklib.c:214</a></div></div> <div class="ttc" id="tcltklib_8c_html_aae8dad6d56978437346551c280310720"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aae8dad6d56978437346551c280310720">ip_ruby_cmd_receiver_const_get</a></div><div class="ttdeci">static VALUE ip_ruby_cmd_receiver_const_get(char *name)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03486">tcltklib.c:3486</a></div></div> <div class="ttc" id="gc_8c_html_a98250264e6adf4924cf2becf80122325"><div class="ttname"><a href="../../d8/d16/gc_8c.html#a98250264e6adf4924cf2becf80122325">rb_gc_mark</a></div><div class="ttdeci">void rb_gc_mark(VALUE ptr)</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d16/gc_8c_source.html#l03607">gc.c:3607</a></div></div> <div class="ttc" id="tcltklib_8c_html_a45917d46e06b178597a556ea1237d43a"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a45917d46e06b178597a556ea1237d43a">lib_fromUTF8_core</a></div><div class="ttdeci">static VALUE lib_fromUTF8_core(VALUE ip_obj, VALUE src, VALUE encodename)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08129">tcltklib.c:8129</a></div></div> <div class="ttc" id="tcltklib_8c_html_a4afd20af9587a4711046697f7730d727"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a4afd20af9587a4711046697f7730d727">tcltk_version</a></div><div class="ttdeci">static struct @96 tcltk_version</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#l00484">ruby.h:484</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#l00230">tcltklib.c:230</a></div></div> <div class="ttc" id="tcltklib_8c_html_a4a637ca8a762090680e727e293544aea"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a4a637ca8a762090680e727e293544aea">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#l00543">tcltklib.c:543</a></div></div> <div class="ttc" id="tcltklib_8c_html_a73077b7b97d6e3f263fcc7bee1e2960f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a73077b7b97d6e3f263fcc7bee1e2960f">lib_watchdog_ensure</a></div><div class="ttdeci">VALUE lib_watchdog_ensure(VALUE arg)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02844">tcltklib.c:2844</a></div></div> <div class="ttc" id="tcltklib_8c_html_a5cd666e3d3aacd7c40e7f8132f0f2db6"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a5cd666e3d3aacd7c40e7f8132f0f2db6">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#l00534">tcltklib.c:534</a></div></div> <div class="ttc" id="tcltklib_8c_html_a3be36efcd7b93c3d219e29450c9d86b0"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a3be36efcd7b93c3d219e29450c9d86b0">ip_get_global_var2</a></div><div class="ttdeci">static VALUE ip_get_global_var2(VALUE self, VALUE varname, VALUE index)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09666">tcltklib.c:9666</a></div></div> <div class="ttc" id="tcltklib_8c_html_a249b6faeea478c4d28399a5d7dba272d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a249b6faeea478c4d28399a5d7dba272d">ip_invoke</a></div><div class="ttdeci">static VALUE ip_invoke(int argc, VALUE *argv, VALUE obj)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09291">tcltklib.c:9291</a></div></div> <div class="ttc" id="tcltklib_8c_html_a34a4e30596fa823b890b12d95811cad6"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a34a4e30596fa823b890b12d95811cad6">ip_rb_threadTkWaitCommand</a></div><div class="ttdeci">static int ip_rb_threadTkWaitCommand(ClientData clientData, Tcl_Interp *interp, int objc, objv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05060">tcltklib.c:5060</a></div></div> <div class="ttc" id="tcltklib_8c_html_a43ecbe84f17e5753c0899c1237ab62a3"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a43ecbe84f17e5753c0899c1237ab62a3">deleted_ip</a></div><div class="ttdeci">static int deleted_ip(struct tcltkip *ptr)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00793">tcltklib.c:793</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#l00379">variable.c:379</a></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#l00435">tcltklib.c:435</a></div></div> <div class="ttc" id="tcltklib_8c_html_a27686a7bb4f8c4edefcae08f76d63aae"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a27686a7bb4f8c4edefcae08f76d63aae">set_eventloop_tick</a></div><div class="ttdeci">static VALUE set_eventloop_tick(VALUE self, VALUE tick)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01692">tcltklib.c:1692</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#l01257">encoding.c:1257</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#l00117">tcltklib.c:117</a></div></div> <div class="ttc" id="tcltklib_8c_html_ad56a7c90180bf0919ca7c14530b38f44"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad56a7c90180bf0919ca7c14530b38f44">ip_make_menu_embeddable</a></div><div class="ttdeci">static VALUE ip_make_menu_embeddable(VALUE interp, VALUE menu_path)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10761">tcltklib.c:10761</a></div></div> <div class="ttc" id="tcltklib_8c_html_a469264067776bdec259cbed88b2dac33"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a469264067776bdec259cbed88b2dac33">ip_unset_variable</a></div><div class="ttdeci">static VALUE ip_unset_variable(VALUE self, VALUE varname, VALUE flag)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09648">tcltklib.c:9648</a></div></div> <div class="ttc" id="tcltklib_8c_html_a63b0b31e96100a5676c4fd51783fc498"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a63b0b31e96100a5676c4fd51783fc498">ip_allow_ruby_exit_set</a></div><div class="ttdeci">static VALUE ip_allow_ruby_exit_set(VALUE self, VALUE val)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06741">tcltklib.c:6741</a></div></div> <div class="ttc" id="win32_8c_html_a6655447bab00753d59759423bf28e22e"><div class="ttname"><a href="../../d5/df2/win32_8c.html#a6655447bab00753d59759423bf28e22e">wait</a></div><div class="ttdeci">int wait(int *status)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/df2/win32_8c_source.html#l04621">win32.c:4621</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#l02653">numeric.c:2653</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#l00163">tcltklib.c:163</a></div></div> <div class="ttc" id="tcltklib_8c_html_ae977a1cc3c4fe5396d83e62d9cd84768"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae977a1cc3c4fe5396d83e62d9cd84768">lib_mainloop_watchdog</a></div><div class="ttdeci">static VALUE lib_mainloop_watchdog(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02855">tcltklib.c:2855</a></div></div> <div class="ttc" id="tcltklib_8c_html_a598f7c4cee4b8028312b375364ac55b4"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a598f7c4cee4b8028312b375364ac55b4">rb_thread_alive_p</a></div><div class="ttdeci">#define rb_thread_alive_p(thread)</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="tcltklib_8c_html_a9d1b4009a0af0bde4902670d7b306568"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a9d1b4009a0af0bde4902670d7b306568">call_DoOneEvent</a></div><div class="ttdeci">static VALUE call_DoOneEvent(VALUE flag_val)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02040">tcltklib.c:2040</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#l00327">tcltklib.c:327</a></div></div> <div class="ttc" id="tcltklib_8c_html_a0614494bd697c4f5fa620fe67a7f411e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a0614494bd697c4f5fa620fe67a7f411e">rb_threadVwaitProc</a></div><div class="ttdeci">static char * rb_threadVwaitProc(ClientData clientData, Tcl_Interp *interp, char *name1, char *name2, int flags)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04840">tcltklib.c:4840</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#l01182">ruby.h:1182</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#l00685">ruby.h:685</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#l04900">gc.c:4900</a></div></div> <div class="ttc" id="intern_8h_html_aec80847cff5250fc99e223d1966a2153"><div class="ttname"><a href="../../db/d2e/intern_8h.html#aec80847cff5250fc99e223d1966a2153">rb_ary_new2</a></div><div class="ttdeci">#define rb_ary_new2</div><div class="ttdef"><b>Definition:</b> <a href="../../db/d2e/intern_8h_source.html#l00090">intern.h:90</a></div></div> <div class="ttc" id="st_8c_html_a6d1197264c8235ebd5bda57ba423914e"><div class="ttname"><a href="../../d4/d71/st_8c.html#a6d1197264c8235ebd5bda57ba423914e">head</a></div><div class="ttdeci">#define head</div><div class="ttdef"><b>Definition:</b> <a href="../../d4/d71/st_8c_source.html#l00107">st.c:107</a></div></div> <div class="ttc" id="tcltklib_8c_html_a7ab9e0914c68c612e61d95cb79e3bce2"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a7ab9e0914c68c612e61d95cb79e3bce2">ip_split_tklist</a></div><div class="ttdeci">static VALUE ip_split_tklist(VALUE self, VALUE list_str)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09861">tcltklib.c:9861</a></div></div> <div class="ttc" id="tcltklib_8c_html_a16caf63f211ddb58e34d7fea73c8f8b8"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a16caf63f211ddb58e34d7fea73c8f8b8">ip_is_deleted_p</a></div><div class="ttdeci">static VALUE ip_is_deleted_p(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06850">tcltklib.c:6850</a></div></div> <div class="ttc" id="tcltklib_8c_html_a0131e60372d95e3115ba5ce8da507c38"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a0131e60372d95e3115ba5ce8da507c38">ip_set_no_event_wait</a></div><div class="ttdeci">static VALUE ip_set_no_event_wait(VALUE self, VALUE wait)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01784">tcltklib.c:1784</a></div></div> <div class="ttc" id="isinf_8c_html_ac0a1df65d96ba51ed5a71cca0992d03f"><div class="ttname"><a href="../../d9/d89/isinf_8c.html#ac0a1df65d96ba51ed5a71cca0992d03f">inf</a></div><div class="ttdeci">static double inf(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d89/isinf_8c_source.html#l00053">isinf.c:53</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#l00105">tcltklib.c:105</a></div></div> <div class="ttc" id="tcltklib_8c_html_a9f3054e32c0839d178977ff18158150e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a9f3054e32c0839d178977ff18158150e">ip_invoke_core</a></div><div class="ttdeci">static VALUE ip_invoke_core(VALUE interp, int argc, char **argv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08577">tcltklib.c:8577</a></div></div> <div class="ttc" id="tcltklib_8c_html_ac4f692b38fb45e52602bbc57f132836c"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac4f692b38fb45e52602bbc57f132836c">lib_get_system_encoding</a></div><div class="ttdeci">static VALUE lib_get_system_encoding(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08427">tcltklib.c:8427</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a27705a261a9addb9ed4cb65dd5a61b1c"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a27705a261a9addb9ed4cb65dd5a61b1c">Data_Wrap_Struct</a></div><div class="ttdeci">#define Data_Wrap_Struct(klass, mark, free, sval)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01018">ruby.h:1018</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#l00182">tcltklib.c:182</a></div></div> <div class="ttc" id="tcltklib_8c_html_ab569b91e16f4f01e23e8001c1a767737"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ab569b91e16f4f01e23e8001c1a767737">ip_delete</a></div><div class="ttdeci">static VALUE ip_delete(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06796">tcltklib.c:6796</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#l04965">gc.c:4965</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#l00523">tcltklib.c:523</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#l00567">eval.c:567</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#l00440">tcltklib.c:440</a></div></div> <div class="ttc" id="tcltklib_8c_html_ad42860501d76c1b7b98d62647da16712"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad42860501d76c1b7b98d62647da16712">ip_alloc</a></div><div class="ttdeci">static VALUE ip_alloc(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05856">tcltklib.c:5856</a></div></div> <div class="ttc" id="tcltklib_8c_html_a6afd959b5c225f5fb614a77749f86280"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a6afd959b5c225f5fb614a77749f86280">ip_is_slave_of_p</a></div><div class="ttdeci">static VALUE ip_is_slave_of_p(VALUE self, VALUE master)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06553">tcltklib.c:6553</a></div></div> <div class="ttc" id="tcltklib_8c_html_a887378e0a847c703fe7ffc69520c1eab"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a887378e0a847c703fe7ffc69520c1eab">ip_make_menu_embeddable_core</a></div><div class="ttdeci">static VALUE ip_make_menu_embeddable_core(VALUE interp, int argc, VALUE *argv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10681">tcltklib.c:10681</a></div></div> <div class="ttc" id="tcltklib_8c_html_a78b517f7037cf561fcd763f7f5fe81e1"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a78b517f7037cf561fcd763f7f5fe81e1">ivq_safelevel_handler</a></div><div class="ttdeci">VALUE ivq_safelevel_handler(VALUE arg, VALUE ivq)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08990">tcltklib.c:8990</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#l00406">object.c:406</a></div></div> <div class="ttc" id="tcltklib_8c_html_a5453a353691a18219b5dd3e160a2a146"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a5453a353691a18219b5dd3e160a2a146">ip_has_mainwindow_p</a></div><div class="ttdeci">static VALUE ip_has_mainwindow_p(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06880">tcltklib.c:6880</a></div></div> <div class="ttc" id="tcltklib_8c_html_aff7f5e9084d311c6fc0505391b745029"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aff7f5e9084d311c6fc0505391b745029">ip_set_variable2_core</a></div><div class="ttdeci">static VALUE ip_set_variable2_core(VALUE interp, int argc, VALUE *argv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09443">tcltklib.c:9443</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#l00400">tcltklib.c:400</a></div></div> <div class="ttc" id="tcltklib_8c_html_aa6231e0ff0954bae6e8cf3ece6319334"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa6231e0ff0954bae6e8cf3ece6319334">create_encoding_table</a></div><div class="ttdeci">static VALUE create_encoding_table(VALUE interp)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10608">tcltklib.c:10608</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#l00553">error.c:553</a></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#l00525">tcltklib.c:525</a></div></div> <div class="ttc" id="tcltklib_8c_html_a6cdd1d7d9dd22a3a2e72665d22edead4"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a6cdd1d7d9dd22a3a2e72665d22edead4">ip_rb_replaceSlaveTkCmdsCommand</a></div><div class="ttdeci">static int ip_rb_replaceSlaveTkCmdsCommand(ClientData clientData, Tcl_Interp *interp, int objc, objv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05944">tcltklib.c:5944</a></div></div> <div class="ttc" id="tcltklib_8c_html_adfbce001ba6144f79af292dd345f4f83"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#adfbce001ba6144f79af292dd345f4f83">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#l01379">tcltklib.c:1379</a></div></div> <div class="ttc" id="tcltklib_8c_html_aff53058299740e6e65bdfdf16cfea00a"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aff53058299740e6e65bdfdf16cfea00a">get_eventloop_window_mode</a></div><div class="ttdeci">static VALUE get_eventloop_window_mode(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01681">tcltklib.c:1681</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#l00044">tcltklib.c:44</a></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#l00819">variable.c:819</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a5e959fe5d6961caa34f52e0369506659"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a5e959fe5d6961caa34f52e0369506659">rb_set_safe_level</a></div><div class="ttdeci">void rb_set_safe_level(int)</div><div class="ttdef"><b>Definition:</b> <a href="../../da/d2d/safe_8c_source.html#l00049">safe.c:49</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#l00432">tcltklib.c:432</a></div></div> <div class="ttc" id="tcltklib_8c_html_ac53621394fecfe0c7571f4b7c2451727"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac53621394fecfe0c7571f4b7c2451727">ip_invoke_immediate</a></div><div class="ttdeci">static VALUE ip_invoke_immediate(int argc, VALUE *argv, VALUE obj)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09300">tcltklib.c:9300</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#l00171">encoding.c:171</a></div></div> <div class="ttc" id="tcltklib_8c_html_af9d2d13e936db54fa70bbf1cba698321"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af9d2d13e936db54fa70bbf1cba698321">encoding_table_get_name</a></div><div class="ttdeci">static VALUE encoding_table_get_name(VALUE table, VALUE enc)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10443">tcltklib.c:10443</a></div></div> <div class="ttc" id="tcltklib_8c_html_ad9976bd3f0e23394b60b6b5f9ac807a0"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad9976bd3f0e23394b60b6b5f9ac807a0">lib_evloop_abort_on_exc_set</a></div><div class="ttdeci">static VALUE lib_evloop_abort_on_exc_set(VALUE self, VALUE val)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01933">tcltklib.c:1933</a></div></div> <div class="ttc" id="tcltklib_8c_html_ad4888e9518ae5e8a1ef95e4ae45583f2"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad4888e9518ae5e8a1ef95e4ae45583f2">encoding_table_get_obj</a></div><div class="ttdeci">static VALUE encoding_table_get_obj(VALUE table, VALUE enc)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10450">tcltklib.c:10450</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#l00504">tcltklib.c:504</a></div></div> <div class="ttc" id="openssl_2conftest_8c_html_ad2c584e6472d5514c2fa94aea1697bb7"><div class="ttname"><a href="../../d8/dac/openssl_2conftest_8c.html#ad2c584e6472d5514c2fa94aea1697bb7">t</a></div><div class="ttdeci">int t(void)</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/dac/openssl_2conftest_8c_source.html#l00013">conftest.c:13</a></div></div> <div class="ttc" id="tcltklib_8c_html_a6579e4c538bc36332874a0e3fcbf0e07"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a6579e4c538bc36332874a0e3fcbf0e07">ip_create_console_core</a></div><div class="ttdeci">static VALUE ip_create_console_core(VALUE interp, int argc, VALUE *argv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06587">tcltklib.c:6587</a></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#l02556">tcltklib.c:2556</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#l00416">tcltklib.c:416</a></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#l03994">tcltklib.c:3994</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#l01123">ruby.h:1123</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#l00438">tcltklib.c:438</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#l01341">ruby.h:1341</a></div></div> <div class="ttc" id="hash_8c_html_ac477edf136d86a33bc06d1fbea67bb9a"><div class="ttname"><a href="../../d1/d04/hash_8c.html#ac477edf136d86a33bc06d1fbea67bb9a">rb_hash_aset</a></div><div class="ttdeci">VALUE rb_hash_aset(VALUE hash, VALUE key, VALUE val)</div><div class="ttdef"><b>Definition:</b> <a href="../../d1/d04/hash_8c_source.html#l01402">hash.c:1402</a></div></div> <div class="ttc" id="tcltklib_8c_html_a6a4bf2b5a79b438ef4ba5e7a6495b05c"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a6a4bf2b5a79b438ef4ba5e7a6495b05c">ip_rbUpdateCommand</a></div><div class="ttdeci">static int ip_rbUpdateCommand(ClientData clientData, Tcl_Interp *interp, int objc, objv)</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_a66202a95d332ce6cd9f69921873ae7c0"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a66202a95d332ce6cd9f69921873ae7c0">ip_invoke_real</a></div><div class="ttdeci">static VALUE ip_invoke_real(int argc, VALUE *argv, VALUE interp)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08952">tcltklib.c:8952</a></div></div> <div class="ttc" id="vm__exec_8c_html"><div class="ttname"><a href="../../df/d38/vm__exec_8c.html">level</a></div><div class="ttdeci">#define level</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#l01561">ruby.h:1561</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#l00547">error.c:547</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#l01710">ruby.h:1710</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#l00162">tcltklib.c:162</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="ttdoc">Evaluates the given string in an isolated binding. </div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d80/vm__eval_8c_source.html#l01427">vm_eval.c:1427</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#l00407">tcltklib.c:407</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#l00476">ruby.h:476</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#l00406">tcltklib.c:406</a></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#l01011">string.c:1011</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#l00490">ruby.h:490</a></div></div> <div class="ttc" id="tcltklib_8c_html_a446cc9f4e8ae143fbbbb835a0cd3af23"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a446cc9f4e8ae143fbbbb835a0cd3af23">VwaitVarProc</a></div><div class="ttdeci">static char * VwaitVarProc(ClientData clientData, Tcl_Interp *interp, char *name1, char *name2, int flags)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04196">tcltklib.c:4196</a></div></div> <div class="ttc" id="tcltklib_8c_html_a05dbfa32ebb9e97e1336c127185806b3"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a05dbfa32ebb9e97e1336c127185806b3">create_dummy_encoding_for_tk</a></div><div class="ttdeci">static VALUE create_dummy_encoding_for_tk(VALUE interp, VALUE name)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10142">tcltklib.c:10142</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#l01380">encoding.c:1380</a></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#l02405">thread.c:2405</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#l00438">ruby.h:438</a></div></div> <div class="ttc" id="encoding_8c_html_aa020a886cff98ea2edead4231ff72973"><div class="ttname"><a href="../../d5/db5/encoding_8c.html#aa020a886cff98ea2edead4231ff72973">enc_name</a></div><div class="ttdeci">static VALUE enc_name(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/db5/encoding_8c_source.html#l01079">encoding.c:1079</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#l00611">class.c:611</a></div></div> <div class="ttc" id="strerror_8c_html_ae4f3f55be5de649fd367081b9d1b4b0c"><div class="ttname"><a href="../../d5/d04/strerror_8c.html#ae4f3f55be5de649fd367081b9d1b4b0c">msg</a></div><div class="ttdeci">static char msg[50]</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d04/strerror_8c_source.html#l00008">strerror.c:8</a></div></div> <div class="ttc" id="tcltklib_8c_html_add644d94ab52340375fda4f35eb8847b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#add644d94ab52340375fda4f35eb8847b">ip_get_result_string_obj</a></div><div class="ttdeci">static VALUE ip_get_result_string_obj(Tcl_Interp *interp)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06974">tcltklib.c:6974</a></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#l00480">tcltklib.c:480</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#l02228">variable.c:2228</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#l00321">tcltklib.c:321</a></div></div> <div class="ttc" id="tcltklib_8c_html_af3e1e17b0ba1a5761dd984e57771955e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af3e1e17b0ba1a5761dd984e57771955e">ip_RubyExitCommand</a></div><div class="ttdeci">static int ip_RubyExitCommand(ClientData clientData, Tcl_Interp *interp, int argc, argv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03763">tcltklib.c:3763</a></div></div> <div class="ttc" id="tcltklib_8c_html_a58f3a974e555518cd87217db5273de57"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a58f3a974e555518cd87217db5273de57">ip_rb_threadVwaitCommand</a></div><div class="ttdeci">static int ip_rb_threadVwaitCommand(ClientData clientData, Tcl_Interp *interp, int objc, objv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04903">tcltklib.c:4903</a></div></div> <div class="ttc" id="tcltklib_8c_html_a302248e971b4839713a2a9f95c3aeb15"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a302248e971b4839713a2a9f95c3aeb15">ip_rb_threadUpdateCommand</a></div><div class="ttdeci">static int ip_rb_threadUpdateCommand(ClientData clientData, Tcl_Interp *interp, int objc, objv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04025">tcltklib.c:4025</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="ttdoc">Evaluates the given string in an isolated binding. </div><div class="ttdef"><b>Definition:</b> <a href="../../d3/d80/vm__eval_8c_source.html#l01411">vm_eval.c:1411</a></div></div> <div class="ttc" id="signal_8c_html_a6f2334d7e90694f211f708b860dfa486"><div class="ttname"><a href="../../d8/d36/signal_8c.html#a6f2334d7e90694f211f708b860dfa486">cnt</a></div><div class="ttdeci">rb_atomic_t cnt[RUBY_NSIG]</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d36/signal_8c_source.html#l00496">signal.c:496</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#l00227">tcltklib.c:227</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#l03995">tcltklib.c:3995</a></div></div> <div class="ttc" id="tcltklib_8c_html_ac8db9fd449201bae8181612e747785eb"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac8db9fd449201bae8181612e747785eb">get_eventloop_tick</a></div><div class="ttdeci">static VALUE get_eventloop_tick(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01726">tcltklib.c:1726</a></div></div> <div class="ttc" id="tcltklib_8c_html_a09520768374a3d97d15bad5db2dd06d8"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a09520768374a3d97d15bad5db2dd06d8">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#l00476">tcltklib.c:476</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#l00481">ruby.h:481</a></div></div> <div class="ttc" id="tcltklib_8c_html_aed5576b12eec97d8314b7aae8903d64b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aed5576b12eec97d8314b7aae8903d64b">lib_eventloop_launcher</a></div><div class="ttdeci">static VALUE lib_eventloop_launcher(int check_root, int update_flag, int *check_var, Tcl_Interp *interp)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02677">tcltklib.c:2677</a></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#l00505">ruby.h:505</a></div></div> <div class="ttc" id="ruby_8c_html_ad1447518f4372828b8435ae82e48499e"><div class="ttname"><a href="../../df/d77/ruby_8c.html#ad1447518f4372828b8435ae82e48499e">argc</a></div><div class="ttdeci">int argc</div><div class="ttdef"><b>Definition:</b> <a href="../../df/d77/ruby_8c_source.html#l00131">ruby.c:131</a></div></div> <div class="ttc" id="tcltklib_8c_html_a58191d3b453f95d98a2ab1ee27fa2857"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a58191d3b453f95d98a2ab1ee27fa2857">ip_get_variable2</a></div><div class="ttdeci">static VALUE ip_get_variable2(VALUE self, VALUE varname, VALUE index, VALUE flag)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09408">tcltklib.c:9408</a></div></div> <div class="ttc" id="tcltklib_8c_html_a7354a37a34ef9099af49f1328f3f1016"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a7354a37a34ef9099af49f1328f3f1016">lib_do_one_event</a></div><div class="ttdeci">static VALUE lib_do_one_event(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03067">tcltklib.c:3067</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_aba0717d2689eb68797421a02ab9295c6"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#aba0717d2689eb68797421a02ab9295c6">Qfalse</a></div><div class="ttdeci">#define Qfalse</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="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#l00481">tcltklib.c:481</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#l00098">tcltklib.c:98</a></div></div> <div class="ttc" id="tcltklib_8c_html_a73ffc5e8c3f30a29963a2df64361b93a"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a73ffc5e8c3f30a29963a2df64361b93a">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#l00483">tcltklib.c:483</a></div></div> <div class="ttc" id="tcltklib_8c_html_a3e0b4532e0b5bc79cfcace968e320f13"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a3e0b4532e0b5bc79cfcace968e320f13">_</a></div><div class="ttdeci">static void ip_finalize _((Tcl_Interp *))</div></div> <div class="ttc" id="tcltklib_8c_html_a9d9430b2f796c0619bc9d62f22788b9a"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a9d9430b2f796c0619bc9d62f22788b9a">ip_get_eventloop_weight</a></div><div class="ttdeci">static VALUE ip_get_eventloop_weight(VALUE self)</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="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_aa80d79dc72b2728dfb12274b613630ee"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa80d79dc72b2728dfb12274b613630ee">evq_safelevel_handler</a></div><div class="ttdeci">static VALUE evq_safelevel_handler(VALUE arg, VALUE evq)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07482">tcltklib.c:7482</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#l00487">ruby.h:487</a></div></div> <div class="ttc" id="tcltklib_8c_html_ad24910a290409c576d362d4125cb12e5"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad24910a290409c576d362d4125cb12e5">lib_UTF_backslash</a></div><div class="ttdeci">static VALUE lib_UTF_backslash(VALUE self, VALUE str)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08411">tcltklib.c:8411</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#l01360">ruby.h:1360</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#l00164">tcltklib.c:164</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#l00244">tcltklib.c:244</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#l00798">encoding.c:798</a></div></div> <div class="ttc" id="intern_8h_html_a03acd62c0b1edebbe1d61f957c19b7ac"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a03acd62c0b1edebbe1d61f957c19b7ac">rb_str_new2</a></div><div class="ttdeci">#define rb_str_new2</div><div class="ttdef"><b>Definition:</b> <a href="../../db/d2e/intern_8h_source.html#l00840">intern.h:840</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#l00237">tcltklib.c:237</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#l00556">tcltklib.c:556</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#l00564">error.c:564</a></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#l00167">tcltklib.c:167</a></div></div> <div class="ttc" id="tcltklib_8c_html_afe59232eba6d9dea4401c9c5376f3e0d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#afe59232eba6d9dea4401c9c5376f3e0d">encoding_table_get_obj_core</a></div><div class="ttdeci">static VALUE encoding_table_get_obj_core(VALUE table, VALUE enc, VALUE error_mode)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10316">tcltklib.c:10316</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#l00441">tcltklib.c:441</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#l00113">tcltklib.c:113</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#l01342">ruby.h:1342</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#l00557">tcltklib.c:557</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#l00322">tcltklib.c:322</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#l02024">string.c:2024</a></div></div> <div class="ttc" id="tcltklib_8c_html_a01a6de6a1215a803584201ab4b55f2f0"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a01a6de6a1215a803584201ab4b55f2f0">lib_toUTF8</a></div><div class="ttdeci">static VALUE lib_toUTF8(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08101">tcltklib.c:8101</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#l00179">tcltklib.c:179</a></div></div> <div class="ttc" id="tcltklib_8c_html_a0c7850986e4bfef62d6860e12ea90c40"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a0c7850986e4bfef62d6860e12ea90c40">ip_unset_variable2</a></div><div class="ttdeci">static VALUE ip_unset_variable2(VALUE self, VALUE varname, VALUE index, VALUE flag)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09622">tcltklib.c:9622</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#l01880">variable.c:1880</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#l10037">tcltklib.c:10037</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#l00242">tcltklib.c:242</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a0d1c6e4431397f8bd285073af0d98d77"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a0d1c6e4431397f8bd285073af0d98d77">RSTRING_LEN</a></div><div class="ttdeci">#define RSTRING_LEN(str)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00841">ruby.h:841</a></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#l08466">tcltklib.c:8466</a></div></div> <div class="ttc" id="tcltklib_8c_html_a19d7bb32bbc3c14b7b717e079c94de2b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a19d7bb32bbc3c14b7b717e079c94de2b">tcl_protect</a></div><div class="ttdeci">static int tcl_protect(Tcl_Interp *interp, VALUE(*proc)(), VALUE data)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03357">tcltklib.c:3357</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#l00429">tcltklib.c:429</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#l01661">class.c:1661</a></div></div> <div class="ttc" id="tcltklib_8c_html_a93291afcb7ee52da109bc8967a61d81f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a93291afcb7ee52da109bc8967a61d81f">pending_exception_check1</a></div><div class="ttdeci">static int pending_exception_check1(int thr_crit_bup, struct tcltkip *ptr)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01419">tcltklib.c:1419</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#l00408">tcltklib.c:408</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#l08473">tcltklib.c:8473</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_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#l00524">tcltklib.c:524</a></div></div> <div class="ttc" id="tcltklib_8c_html_abd8f4f15b673d6e4b8870870639ad5dc"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#abd8f4f15b673d6e4b8870870639ad5dc">_thread_call_proc_ensure</a></div><div class="ttdeci">static VALUE _thread_call_proc_ensure(VALUE arg)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02921">tcltklib.c:2921</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#l00426">tcltklib.c:426</a></div></div> <div class="ttc" id="tcltklib_8c_html_a0323d248d302426ccb53a73749823b7d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a0323d248d302426ccb53a73749823b7d">lib_Tcl_backslash</a></div><div class="ttdeci">static VALUE lib_Tcl_backslash(VALUE self, VALUE str)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08419">tcltklib.c:8419</a></div></div> <div class="ttc" id="tcltklib_8c_html_a9126b68acdeb075206c33efa9162398c"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a9126b68acdeb075206c33efa9162398c">set_eventloop_weight</a></div><div class="ttdeci">static VALUE set_eventloop_weight(VALUE self, VALUE loop_max, VALUE no_event)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01810">tcltklib.c:1810</a></div></div> <div class="ttc" id="tcltklib_8c_html_af9aa6db946b929642dc853475e21bb3f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af9aa6db946b929642dc853475e21bb3f">TkStringValue</a></div><div class="ttdeci">static VALUE TkStringValue(VALUE obj)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03149">tcltklib.c:3149</a></div></div> <div class="ttc" id="tcltklib_8c_html_a884ff98bc016ae1c7063f8f78338350e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a884ff98bc016ae1c7063f8f78338350e">lib_split_tklist_core</a></div><div class="ttdeci">static VALUE lib_split_tklist_core(VALUE ip_obj, VALUE list_str)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09718">tcltklib.c:9718</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#l00437">tcltklib.c:437</a></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#l00307">hash.c:307</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#l00067">util.h:67</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#l01719">class.c:1719</a></div></div> <div class="ttc" id="tcltklib_8c_html_af1362a3075b310b2695b19dea8ae3324"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af1362a3075b310b2695b19dea8ae3324">ip_do_one_event</a></div><div class="ttdeci">static VALUE ip_do_one_event(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03076">tcltklib.c:3076</a></div></div> <div class="ttc" id="tcltklib_8c_html_a911e3c9a05a97f9086b95383c6a7d000"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a911e3c9a05a97f9086b95383c6a7d000">create_ip_exc</a></div><div class="ttdeci">static VALUE create_ip_exc(interp, VALUE interp:VALUE exc, const char *fmt, va_alist)</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="intern_8h_html_acee88ad0375c8a9080e2283db494d257"><div class="ttname"><a href="../../db/d2e/intern_8h.html#acee88ad0375c8a9080e2283db494d257">rb_ivar_set</a></div><div class="ttdeci">VALUE rb_ivar_set(VALUE, ID, VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d2a/variable_8c_source.html#l01133">variable.c:1133</a></div></div> <div class="ttc" id="nkf-utf8_2nkf_8c_html_ac37f17a60c8b5533aac4840c681f62b8"><div class="ttname"><a href="../../d6/da0/nkf-utf8_2nkf_8c.html#ac37f17a60c8b5533aac4840c681f62b8">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#l04308">nkf.c:4308</a></div></div> <div class="ttc" id="tcltklib_8c_html_ad829d59da9ccaa0434b8b54d58825ee5"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad829d59da9ccaa0434b8b54d58825ee5">lib_split_tklist</a></div><div class="ttdeci">static VALUE lib_split_tklist(VALUE self, VALUE list_str)</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="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#l00543">error.c:543</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_8c_html_ae259dede289f05f3c16979fee73fd604"><div class="ttname"><a href="../../d5/d30/stubs_8c.html#ae259dede289f05f3c16979fee73fd604">ruby_tk_stubs_safeinit</a></div><div class="ttdeci">int ruby_tk_stubs_safeinit(Tcl_Interp *tcl_ip)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d30/stubs_8c_source.html#l00563">stubs.c:563</a></div></div> <div class="ttc" id="stubs_8c_html_aab3e675e71476824bc345c6cc4d9e402"><div class="ttname"><a href="../../d5/d30/stubs_8c.html#aab3e675e71476824bc345c6cc4d9e402">ruby_tk_stubs_init</a></div><div class="ttdeci">int ruby_tk_stubs_init(Tcl_Interp *tcl_ip)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d30/stubs_8c_source.html#l00542">stubs.c:542</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_aba03c3c4ff187bbda6c4459e2dc9f6c6"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#aba03c3c4ff187bbda6c4459e2dc9f6c6">Qnil</a></div><div class="ttdeci">#define Qnil</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="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#l00427">tcltklib.c:427</a></div></div> <div class="ttc" id="tkutil_8c_html_a309b293a13e50075ed47c39fbd09903c"><div class="ttname"><a href="../../d9/dee/tkutil_8c.html#a309b293a13e50075ed47c39fbd09903c">rb_thread_critical</a></div><div class="ttdeci">static int rb_thread_critical</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/dee/tkutil_8c_source.html#l00015">tkutil.c:15</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#l00112">tcltklib.c:112</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#l00437">encoding.c:437</a></div></div> <div class="ttc" id="nkf-utf8_2nkf_8c_html_ad2d8a938168dc85041b2bac532a7cf75"><div class="ttname"><a href="../../d6/da0/nkf-utf8_2nkf_8c.html#ad2d8a938168dc85041b2bac532a7cf75">options</a></div><div class="ttdeci">static int options(unsigned char *cp)</div><div class="ttdef"><b>Definition:</b> <a href="../../d6/da0/nkf-utf8_2nkf_8c_source.html#l06357">nkf.c:6357</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#l00768">tcltklib.c:768</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#l00771">tcltklib.c:771</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a3c1d4bfc6a81af60bdcb48744c35f760"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a3c1d4bfc6a81af60bdcb48744c35f760">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_ab129e3e196eaea678bc471e3ef375ede"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ab129e3e196eaea678bc471e3ef375ede">lib_evloop_thread_p</a></div><div class="ttdeci">static VALUE lib_evloop_thread_p(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01900">tcltklib.c:1900</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#l00212">tcltklib.c:212</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#l00540">tcltklib.c:540</a></div></div> <div class="ttc" id="nkf_8c_html_a5ea5ac7abf5cce39283e422add1067d5"><div class="ttname"><a href="../../d8/d90/nkf_8c.html#a5ea5ac7abf5cce39283e422add1067d5">result</a></div><div class="ttdeci">static VALUE result</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d90/nkf_8c_source.html#l00040">nkf.c:40</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#l00425">tcltklib.c:425</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#l00632">ruby.h:632</a></div></div> <div class="ttc" id="tcltklib_8c_html_ac4673b9cb370cab8a05ff34c1a54b7bc"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac4673b9cb370cab8a05ff34c1a54b7bc">RbTk_ALLOC_N</a></div><div class="ttdeci">#define RbTk_ALLOC_N(type, n)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00048">tcltklib.c:48</a></div></div> <div class="ttc" id="tcltklib_8c_html_aed87299455aeaf9e0caab263ce05ae35"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aed87299455aeaf9e0caab263ce05ae35">lib_getversion</a></div><div class="ttdeci">static VALUE lib_getversion(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10004">tcltklib.c:10004</a></div></div> <div class="ttc" id="tcltklib_8c_html_a88f2eac7c5925475e0bc985959852d99"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a88f2eac7c5925475e0bc985959852d99">ip_thread_vwait</a></div><div class="ttdeci">static VALUE ip_thread_vwait(VALUE self, VALUE var)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05493">tcltklib.c:5493</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#l00422">tcltklib.c:422</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#l00930">encoding.c:930</a></div></div> <div class="ttc" id="intern_8h_html_a8f3988bb25848bb4e4519a29876b2d55"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a8f3988bb25848bb4e4519a29876b2d55">rb_ary_new3</a></div><div class="ttdeci">#define rb_ary_new3</div><div class="ttdef"><b>Definition:</b> <a href="../../db/d2e/intern_8h_source.html#l00091">intern.h:91</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#l05641">gc.c:5641</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#l00235">tcltklib.c:235</a></div></div> <div class="ttc" id="tcltklib_8c_html_a4d98bdf167c716047f13e19cafbf1978"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a4d98bdf167c716047f13e19cafbf1978">encoding_table_get_name_core</a></div><div class="ttdeci">static VALUE encoding_table_get_name_core(VALUE table, VALUE enc_arg, VALUE error_mode)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10209">tcltklib.c:10209</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#l00839">eval.c:839</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#l00168">tcltklib.c:168</a></div></div> <div class="ttc" id="intern_8h_html_ad16405ca7b4baa5da742798d500f00e6"><div class="ttname"><a href="../../db/d2e/intern_8h.html#ad16405ca7b4baa5da742798d500f00e6">rb_tainted_str_new2</a></div><div class="ttdeci">#define rb_tainted_str_new2</div><div class="ttdef"><b>Definition:</b> <a href="../../db/d2e/intern_8h_source.html#l00844">intern.h:844</a></div></div> <div class="ttc" id="tcltklib_8c_html_aed786a74627a6420a58f515327351758"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aed786a74627a6420a58f515327351758">ip_null_proc</a></div><div class="ttdeci">static int ip_null_proc(ClientData clientData, Tcl_Interp *interp, int argc, argv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05648">tcltklib.c:5648</a></div></div> <div class="ttc" id="tcltklib_8c_html_ad09137e93e6fd9828100ba236f6aeb2b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad09137e93e6fd9828100ba236f6aeb2b">lib_eventloop_main</a></div><div class="ttdeci">VALUE lib_eventloop_main(VALUE args)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02580">tcltklib.c:2580</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#l00565">tcltklib.c:565</a></div></div> <div class="ttc" id="tcltklib_8c_html_a35f1dffc672795ce3d938184a81e5580"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a35f1dffc672795ce3d938184a81e5580">ip_make_safe</a></div><div class="ttdeci">static VALUE ip_make_safe(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06688">tcltklib.c:6688</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#l00245">tcltklib.c:245</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#l00254">defines.h:254</a></div></div> <div class="ttc" id="tcltklib_8c_html_a531b4cda232013cf16217ff379ac4aa5"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a531b4cda232013cf16217ff379ac4aa5">lib_eventloop_main_core</a></div><div class="ttdeci">VALUE lib_eventloop_main_core(VALUE args)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02560">tcltklib.c:2560</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#l00706">eval.c:706</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#l02555">tcltklib.c:2555</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#l00231">tcltklib.c:231</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#l02141">tcltklib.c:2141</a></div></div> <div class="ttc" id="tcltklib_8c_html_a659ab12358313d8e66d50854f534f667"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a659ab12358313d8e66d50854f534f667">ip_set_exc_message</a></div><div class="ttdeci">static void ip_set_exc_message(Tcl_Interp *interp, VALUE exc)</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="tcltklib_8c_html_a32cab3889f06a8a2cd1bd19a21cafacd"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a32cab3889f06a8a2cd1bd19a21cafacd">set_eventloop_window_mode</a></div><div class="ttdeci">static VALUE set_eventloop_window_mode(VALUE self, VALUE mode)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01666">tcltklib.c:1666</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="ruby_2ruby_8h_html_a854de1c520ed24a625d5a29f36a08f7a"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a854de1c520ed24a625d5a29f36a08f7a">LONG2NUM</a></div><div class="ttdeci">#define LONG2NUM(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01317">ruby.h:1317</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="tcltklib_8c_html_a9c2bd05fb4f432989cabce5a81d692b0"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a9c2bd05fb4f432989cabce5a81d692b0">_timer_for_tcl</a></div><div class="ttdeci">static void _timer_for_tcl(ClientData clientData)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01615">tcltklib.c:1615</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#l01651">vm_method.c:1651</a></div></div> <div class="ttc" id="tcltklib_8c_html_a0f7b07ccc6e87abaec80e30ad6780189"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a0f7b07ccc6e87abaec80e30ad6780189">ip_free</a></div><div class="ttdeci">static void ip_free(struct tcltkip *ptr)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l05803">tcltklib.c:5803</a></div></div> <div class="ttc" id="tcltklib_8c_html_a9649e91a7475facf32db7a1e06d170cd"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a9649e91a7475facf32db7a1e06d170cd">ip_ruby_eval</a></div><div class="ttdeci">static int ip_ruby_eval(ClientData clientData, Tcl_Interp *interp, int argc, argv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03394">tcltklib.c:3394</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#l00747">class.c:747</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#l07816">tcltklib.c:7816</a></div></div> <div class="ttc" id="tcltklib_8c_html_a79be545f6246bed648026db350f5ba9e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a79be545f6246bed648026db350f5ba9e">get_eventloop_weight</a></div><div class="ttdeci">static VALUE get_eventloop_weight(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01830">tcltklib.c:1830</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#l00541">ruby.h:541</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#l00043">safe.c:43</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#l00216">tcltklib.c:216</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a3f0e4e2b6d073369cc1c2ddde00b13bb"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a3f0e4e2b6d073369cc1c2ddde00b13bb">RSTRING_PTR</a></div><div class="ttdeci">#define RSTRING_PTR(str)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00845">ruby.h:845</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#l00062">tcltklib.c:62</a></div></div> <div class="ttc" id="intern_8h_html_a9853d1348e5a26b4802117aa465f65bc"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a9853d1348e5a26b4802117aa465f65bc">rb_exc_new3</a></div><div class="ttdeci">#define rb_exc_new3</div><div class="ttdef"><b>Definition:</b> <a href="../../db/d2e/intern_8h_source.html#l00248">intern.h:248</a></div></div> <div class="ttc" id="intern_8h_html_a0187a1eb4a4d01a4c9ef6b36b51faa6f"><div class="ttname"><a href="../../db/d2e/intern_8h.html#a0187a1eb4a4d01a4c9ef6b36b51faa6f">rb_thread_wait_for</a></div><div class="ttdeci">void rb_thread_wait_for(struct timeval)</div><div class="ttdef"><b>Definition:</b> <a href="../../d3/de7/thread_8c_source.html#l01119">thread.c:1119</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#l00196">tcltklib.c:196</a></div></div> <div class="ttc" id="tcltklib_8c_html_acb5e2917d06a1219dfb5d721db43f9b9"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#acb5e2917d06a1219dfb5d721db43f9b9">call_original_exit</a></div><div class="ttdeci">static void call_original_exit(struct tcltkip *ptr, int state)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01464">tcltklib.c:1464</a></div></div> <div class="ttc" id="tcltklib_8c_html_af158659d1ee3311b27cce980fa40e257"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af158659d1ee3311b27cce980fa40e257">lib_watchdog_core</a></div><div class="ttdeci">static VALUE lib_watchdog_core(VALUE check_rootwidget)</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_a0434b143d141ef59372a35f95aa41f82"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a0434b143d141ef59372a35f95aa41f82">ip_set_variable2</a></div><div class="ttdeci">static VALUE ip_set_variable2(VALUE self, VALUE varname, VALUE index, VALUE value, VALUE flag)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09544">tcltklib.c:9544</a></div></div> <div class="ttc" id="tcltklib_8c_html_a8042cd4a5f945f9b8436ee00724eaa2b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a8042cd4a5f945f9b8436ee00724eaa2b">lib_restart_core</a></div><div class="ttdeci">static VALUE lib_restart_core(VALUE interp, int argc, VALUE *argv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07841">tcltklib.c:7841</a></div></div> <div class="ttc" id="tcltklib_8c_html_ad41041b63389250c18db126fe8e484eb"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad41041b63389250c18db126fe8e484eb">lib_num_of_mainwindows</a></div><div class="ttdeci">static VALUE lib_num_of_mainwindows(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01979">tcltklib.c:1979</a></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#l00049">encoding.c:49</a></div></div> <div class="ttc" id="tcltklib_8c_html_a3b56c2ca4a23c4296f7b38db44424a3d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a3b56c2ca4a23c4296f7b38db44424a3d">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#l00535">tcltklib.c:535</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#l00231">ruby.h:231</a></div></div> <div class="ttc" id="stubs_8h_html_ad0f6a4b19a2cd67ce370a5c22d95f0d3"><div class="ttname"><a href="../../df/d55/stubs_8h.html#ad0f6a4b19a2cd67ce370a5c22d95f0d3">TCLTK_STUBS_OK</a></div><div class="ttdeci">#define TCLTK_STUBS_OK</div><div class="ttdef"><b>Definition:</b> <a href="../../df/d55/stubs_8h_source.html#l00015">stubs.h:15</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#l01385">tcltklib.c:1385</a></div></div> <div class="ttc" id="tcltklib_8c_html_a723e68c456dbef62ddda9c3aed60c548"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a723e68c456dbef62ddda9c3aed60c548">ip_rbVwaitCommand</a></div><div class="ttdeci">static int ip_rbVwaitCommand(ClientData clientData, Tcl_Interp *interp, int objc, objv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04219">tcltklib.c:4219</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#l00186">tcltklib.c:186</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#l02136">tcltklib.c:2136</a></div></div> <div class="ttc" id="stubs_8c_html_a328823f52192576f76c025d37ead8f3b"><div class="ttname"><a href="../../d5/d30/stubs_8c.html#a328823f52192576f76c025d37ead8f3b">ruby_tcl_create_ip_and_stubs_init</a></div><div class="ttdeci">Tcl_Interp * ruby_tcl_create_ip_and_stubs_init(int *st)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d30/stubs_8c_source.html#l00509">stubs.c:509</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#l00211">tcltklib.c:211</a></div></div> <div class="ttc" id="tcltklib_8c_html_aa4890e0e98d5502c6ea43aa6a29bad38"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa4890e0e98d5502c6ea43aa6a29bad38">ip_mainloop_watchdog</a></div><div class="ttdeci">static VALUE ip_mainloop_watchdog(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02880">tcltklib.c:2880</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#l00494">stubs.c:494</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#l00620">proc.c:620</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#l00415">tcltklib.c:415</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#l01990">tcltklib.c:1990</a></div></div> <div class="ttc" id="tcltklib_8c_html_ad5f7e585527b297dd62440f0ef749249"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ad5f7e585527b297dd62440f0ef749249">ip_allow_ruby_exit_p</a></div><div class="ttdeci">static VALUE ip_allow_ruby_exit_p(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06722">tcltklib.c:6722</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#l00530">tcltklib.c:530</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#l00098">defines.h:98</a></div></div> <div class="ttc" id="tcltklib_8c_html_a78444cea8a98d1a5dfec81befd3dedf5"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a78444cea8a98d1a5dfec81befd3dedf5">lib_conv_listelement</a></div><div class="ttdeci">static VALUE lib_conv_listelement(VALUE self, VALUE src)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09967">tcltklib.c:9967</a></div></div> <div class="ttc" id="tcltklib_8c_html_ac039247bd36850b582d929b1d204a35d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ac039247bd36850b582d929b1d204a35d">ip_InterpExitCommand</a></div><div class="ttdeci">static int ip_InterpExitCommand(ClientData clientData, Tcl_Interp *interp, int argc, argv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03718">tcltklib.c:3718</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#l00170">tcltklib.c:170</a></div></div> <div class="ttc" id="tcltklib_8c_html_a581f007ce5b3d556b3d97c06de928260"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a581f007ce5b3d556b3d97c06de928260">lib_do_one_event_core</a></div><div class="ttdeci">static VALUE lib_do_one_event_core(int argc, VALUE *argv, VALUE self, int is_ip)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03010">tcltklib.c:3010</a></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#l00229">tcltklib.c:229</a></div></div> <div class="ttc" id="tcltklib_8c_html_a76bf8d04c151d213518a6475d089913b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a76bf8d04c151d213518a6475d089913b">invoke_queue_handler</a></div><div class="ttdeci">int invoke_queue_handler(Tcl_Event *evPtr, int flags)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09004">tcltklib.c:9004</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a4e8fe9b7653d67be2401a8b85049e525"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a4e8fe9b7653d67be2401a8b85049e525">RARRAY_PTR</a></div><div class="ttdeci">#define RARRAY_PTR(a)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00907">ruby.h:907</a></div></div> <div class="ttc" id="tcltklib_8c_html_aff5599e34d732668a1b62ffeb7e8440b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aff5599e34d732668a1b62ffeb7e8440b">create_encoding_table_core</a></div><div class="ttdeci">static VALUE create_encoding_table_core(VALUE arg, VALUE interp)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10459">tcltklib.c:10459</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#l00536">tcltklib.c:536</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#l02554">tcltklib.c:2554</a></div></div> <div class="ttc" id="tcltklib_8c_html_a0a1859b3a5ea76d143c6ddcdb7d87b82"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a0a1859b3a5ea76d143c6ddcdb7d87b82">free_invoke_arguments</a></div><div class="ttdeci">static void free_invoke_arguments(int argc, char **av)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08908">tcltklib.c:8908</a></div></div> <div class="ttc" id="tcltklib_8c_html_a76aecd7fcd37d851e304827104fe1d83"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a76aecd7fcd37d851e304827104fe1d83">ip_init</a></div><div class="ttdeci">static VALUE ip_init(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06156">tcltklib.c:6156</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#l00223">tcltklib.c:223</a></div></div> <div class="ttc" id="tcltklib_8c_html_af9a1342eb45e94901edad8f0b29402b2"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af9a1342eb45e94901edad8f0b29402b2">ip_get_no_event_wait</a></div><div class="ttdeci">static VALUE ip_get_no_event_wait(VALUE self)</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="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="tcltklib_8c_html_aeeb6a476660d7ec93557e9ccedde18dc"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aeeb6a476660d7ec93557e9ccedde18dc">lib_set_system_encoding</a></div><div class="ttdeci">static VALUE lib_set_system_encoding(VALUE self, VALUE enc_name)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08439">tcltklib.c:8439</a></div></div> <div class="ttc" id="tcltklib_8c_html_a9b17a18e847d33308d64879ac1dbd515"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a9b17a18e847d33308d64879ac1dbd515">ip_restart</a></div><div class="ttdeci">static VALUE ip_restart(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07920">tcltklib.c:7920</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#l00437">ruby.h:437</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#l02312">proc.c:2312</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#l01143">thread.c:1143</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#l00482">ruby.h:482</a></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#l00539">tcltklib.c:539</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#l00144">tcltklib.c:144</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#l02322">thread.c:2322</a></div></div> <div class="ttc" id="tcltklib_8c_html_a4c5cda5114e0653b26e5fa8cb3881762"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a4c5cda5114e0653b26e5fa8cb3881762">tcl_global_eval</a></div><div class="ttdeci">static int tcl_global_eval(Tcl_Interp *interp, const char *cmd)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00302">tcltklib.c:302</a></div></div> <div class="ttc" id="tcltklib_8c_html_a5c522d1704764fcb93ad2b4b911385ee"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a5c522d1704764fcb93ad2b4b911385ee">lib_merge_tklist</a></div><div class="ttdeci">static VALUE lib_merge_tklist(int argc, VALUE *argv, VALUE obj)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09869">tcltklib.c:9869</a></div></div> <div class="ttc" id="tcltklib_8c_html_aa1cc4fb1e40a147c166a6639894cec69"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa1cc4fb1e40a147c166a6639894cec69">ip_ruby_cmd</a></div><div class="ttdeci">static int ip_ruby_cmd(ClientData clientData, Tcl_Interp *interp, int argc, argv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03585">tcltklib.c:3585</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#l00195">tcltklib.c:195</a></div></div> <div class="ttc" id="tcltklib_8c_html_aa63d6966a11e92b8fed41f4c188a6f1c"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aa63d6966a11e92b8fed41f4c188a6f1c">lib_toUTF8_core</a></div><div class="ttdeci">static VALUE lib_toUTF8_core(VALUE ip_obj, VALUE src, 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="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#l00755">string.c:755</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#l00491">ruby.h:491</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#l00210">tcltklib.c:210</a></div></div> <div class="ttc" id="tcltklib_8c_html_ae148015393811a58ebcacc8780449454"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ae148015393811a58ebcacc8780449454">alloc_invoke_arguments</a></div><div class="ttdeci">static char ** alloc_invoke_arguments(int argc, VALUE *argv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l08860">tcltklib.c:8860</a></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#l00436">tcltklib.c:436</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#l01903">error.c:1903</a></div></div> <div class="ttc" id="tcltklib_8c_html_a10bea1ebd451dae673bda0647aafaf34"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a10bea1ebd451dae673bda0647aafaf34">ip_get_global_var</a></div><div class="ttdeci">static VALUE ip_get_global_var(VALUE self, VALUE varname)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09657">tcltklib.c:9657</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#l02006">array.c:2006</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#l00558">error.c:558</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#l01460">encoding.c:1460</a></div></div> <div class="ttc" id="tcltklib_8c_html_a6ede5243c724a8f6d416af4f54ba7a9e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a6ede5243c724a8f6d416af4f54ba7a9e">ip_cancel_eval_core</a></div><div class="ttdeci">static int ip_cancel_eval_core(Tcl_Interp *interp, VALUE msg, int flag)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07773">tcltklib.c:7773</a></div></div> <div class="ttc" id="tcltklib_8c_html_a292583c700a005045a3d17b66e3801ed"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a292583c700a005045a3d17b66e3801ed">ip_set_eventloop_weight</a></div><div class="ttdeci">static VALUE ip_set_eventloop_weight(VALUE self, VALUE loop_max, VALUE no_event)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01837">tcltklib.c:1837</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#l00158">tcltklib.c:158</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#l00095">tcltklib.c:95</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#l04821">tcltklib.c:4821</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#l04822">tcltklib.c:4822</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#l00522">tcltklib.c:522</a></div></div> <div class="ttc" id="tcltklib_8c_html_a549faab10d1f93364421a77ea1699e65"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a549faab10d1f93364421a77ea1699e65">tcltkip_init_tk</a></div><div class="ttdeci">static VALUE tcltkip_init_tk(VALUE interp)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01311">tcltklib.c:1311</a></div></div> <div class="ttc" id="tcltklib_8c_html_a452874d0514b81b3089a59e08b6a0959"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a452874d0514b81b3089a59e08b6a0959">ip_cancel_eval</a></div><div class="ttdeci">static VALUE ip_cancel_eval(int argc, VALUE *argv, VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07798">tcltklib.c:7798</a></div></div> <div class="ttc" id="tcltklib_8c_html_a2e5f0962283cff538726b7aceb5599a9"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a2e5f0962283cff538726b7aceb5599a9">callq_safelevel_handler</a></div><div class="ttdeci">static VALUE callq_safelevel_handler(VALUE arg, VALUE callq)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06995">tcltklib.c:6995</a></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#l00219">tcltklib.c:219</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a01ed2eb085103197c53c2b5c63b8f637"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a01ed2eb085103197c53c2b5c63b8f637">ruby_debug</a></div><div class="ttdeci">#define ruby_debug</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01484">ruby.h:1484</a></div></div> <div class="ttc" id="nkf-utf8_2nkf_8c_html_a8f8f80d37794cde9472343e4487ba3eb"><div class="ttname"><a href="../../d6/da0/nkf-utf8_2nkf_8c.html#a8f8f80d37794cde9472343e4487ba3eb">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_a70253bb7c75ee32a4acfbbc813742d07"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a70253bb7c75ee32a4acfbbc813742d07">ip_evloop_abort_on_exc_set</a></div><div class="ttdeci">static VALUE ip_evloop_abort_on_exc_set(VALUE self, VALUE val)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01947">tcltklib.c:1947</a></div></div> <div class="ttc" id="tcltklib_8c_html_afc2f1f2ea51cf8f475b7075cf1052bd9"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#afc2f1f2ea51cf8f475b7075cf1052bd9">ip_rbTkWaitCommand</a></div><div class="ttdeci">static int ip_rbTkWaitCommand(ClientData clientData, Tcl_Interp *interp, int objc, objv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04459">tcltklib.c:4459</a></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#l00090">tcltklib.c:90</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#l00143">tcltklib.c:143</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#l00540">ruby.h:540</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#l00545">error.c:545</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#l00317">tcltklib.c:317</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#l00083">tcltklib.c:83</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#l00152">tcltklib.c:152</a></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#l10776">tcltklib.c:10776</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#l00418">tcltklib.c:418</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#l00161">tcltklib.c:161</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#l00077">encoding.h:77</a></div></div> <div class="ttc" id="tcltklib_8c_html_a539158e19be012e60d742245117808b1"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a539158e19be012e60d742245117808b1">eval_queue_handler</a></div><div class="ttdeci">int eval_queue_handler(Tcl_Event *evPtr, int flags)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07496">tcltklib.c:7496</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#l00759">tcltklib.c:759</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#l00770">tcltklib.c:770</a></div></div> <div class="ttc" id="tcltklib_8c_html_aef40fa1c994b74c38cf0b7f838d47824"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aef40fa1c994b74c38cf0b7f838d47824">ip_create_console</a></div><div class="ttdeci">static VALUE ip_create_console(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06635">tcltklib.c:6635</a></div></div> <div class="ttc" id="tcltklib_8c_html_abbc576c100b4422fdc8e8fb384d56c36"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#abbc576c100b4422fdc8e8fb384d56c36">_thread_call_proc_core</a></div><div class="ttdeci">static VALUE _thread_call_proc_core(VALUE arg)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02913">tcltklib.c:2913</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#l00236">error.c:236</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#l00684">encoding.c:684</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a5133348f689646af76f8fe8e0af547f5"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a5133348f689646af76f8fe8e0af547f5">RSTRING_LENINT</a></div><div class="ttdeci">#define RSTRING_LENINT(str)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00853">ruby.h:853</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="stubs_8c_html_ad512bbc74cab1e92a3e9d1c80bf9c657"><div class="ttname"><a href="../../d5/d30/stubs_8c.html#ad512bbc74cab1e92a3e9d1c80bf9c657">ruby_open_tcl_dll</a></div><div class="ttdeci">int ruby_open_tcl_dll(char *appname)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d30/stubs_8c_source.html#l00457">stubs.c:457</a></div></div> <div class="ttc" id="tcltklib_8c_html_af545c646fb42a4dc301363b3afa0c01c"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af545c646fb42a4dc301363b3afa0c01c">ip_make_safe_core</a></div><div class="ttdeci">static VALUE ip_make_safe_core(VALUE interp, int argc, VALUE *argv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06650">tcltklib.c:6650</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#l05619">gc.c:5619</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#l01070">object.c:1070</a></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#l02907">tcltklib.c:2907</a></div></div> <div class="ttc" id="tcltklib_8c_html_a55dbead056a35cc4c3bcdaefe23e6252"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a55dbead056a35cc4c3bcdaefe23e6252">rbtk_preserve_ip</a></div><div class="ttdeci">static int rbtk_preserve_ip(struct tcltkip *ptr)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00809">tcltklib.c:809</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#l00110">tcltklib.c:110</a></div></div> <div class="ttc" id="tcltklib_8c_html_af66c3331d93fdb16484b85d18d502b06"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af66c3331d93fdb16484b85d18d502b06">ip_get_eventloop_tick</a></div><div class="ttdeci">static VALUE ip_get_eventloop_tick(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l01752">tcltklib.c:1752</a></div></div> <div class="ttc" id="defines_8h_html_a6ff69f8866ae756cb246b3eebf7a4fce"><div class="ttname"><a href="../../d8/db0/defines_8h.html#a6ff69f8866ae756cb246b3eebf7a4fce">xfree</a></div><div class="ttdeci">void void xfree(void *)</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 class="ttdef"><b>Definition:</b> <a href="../../d1/db0/string_8c_source.html#l00589">string.c:589</a></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#l00727">class.c:727</a></div></div> <div class="ttc" id="tcltklib_8c_html_a1689b48d2965d2e14643f0f1e658e35d"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a1689b48d2965d2e14643f0f1e658e35d">ip_retval</a></div><div class="ttdeci">static VALUE ip_retval(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09274">tcltklib.c:9274</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_a4642c8006f803b2226088d68ae0a5d7f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a4642c8006f803b2226088d68ae0a5d7f">ip_unset_variable2_core</a></div><div class="ttdeci">static VALUE ip_unset_variable2_core(VALUE interp, int argc, VALUE *argv)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09583">tcltklib.c:9583</a></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#l00236">tcltklib.c:236</a></div></div> <div class="ttc" id="tcltklib_8c_html_a6f3a24bb704d7b2c89ef9423cd219e78"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a6f3a24bb704d7b2c89ef9423cd219e78">ip_invoke_with_position</a></div><div class="ttdeci">static VALUE ip_invoke_with_position(int argc, VALUE *argv, VALUE obj, Tcl_QueuePosition position)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09097">tcltklib.c:9097</a></div></div> <div class="ttc" id="tcltklib_8c_html_a4d808b443ed297690a9e9df396a0b26b"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a4d808b443ed297690a9e9df396a0b26b">ip_set_variable</a></div><div class="ttdeci">static VALUE ip_set_variable(VALUE self, VALUE varname, VALUE value, VALUE flag)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l09573">tcltklib.c:9573</a></div></div> <div class="ttc" id="tcltklib_8c_html_a2212c740c8836eec937d1aca9a21332f"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a2212c740c8836eec937d1aca9a21332f">rb_threadWaitWindowProc</a></div><div class="ttdeci">static void rb_threadWaitWindowProc(ClientData clientData, XEvent *eventPtr)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l04882">tcltklib.c:4882</a></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#l01244">sprintf.c:1244</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#l00041">rubysig.h:41</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#l00542">error.c:542</a></div></div> <div class="ttc" id="__sdbm_8c_html_a070d2ce7b6bb7e5c05602aa8c308d0c4"><div class="ttname"><a href="../../d4/db0/__sdbm_8c.html#a070d2ce7b6bb7e5c05602aa8c308d0c4">NULL</a></div><div class="ttdeci">#define NULL</div><div class="ttdef"><b>Definition:</b> <a href="../../d4/db0/__sdbm_8c_source.html#l00102">_sdbm.c:102</a></div></div> <div class="ttc" id="tcltklib_8c_html_a71caa788c630a6c4ebbe79ab8bfb57f6"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a71caa788c630a6c4ebbe79ab8bfb57f6">ip_get_encoding_table</a></div><div class="ttdeci">static VALUE ip_get_encoding_table(VALUE interp)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10616">tcltklib.c:10616</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#l00414">tcltklib.c:414</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#l02171">tcltklib.c:2171</a></div></div> <div class="ttc" id="tcltklib_8c_html_ab150321a746700b39420f8b6fa40d29a"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#ab150321a746700b39420f8b6fa40d29a">ip_is_safe_p</a></div><div class="ttdeci">static VALUE ip_is_safe_p(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l06703">tcltklib.c:6703</a></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#l00439">tcltklib.c:439</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#l00745">thread.c:745</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#l00500">stubs.c:500</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#l01479">class.c:1479</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_a56087d5316e4c73027105c023006cb15"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#a56087d5316e4c73027105c023006cb15">ruby_verbose</a></div><div class="ttdeci">#define ruby_verbose</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l01483">ruby.h:1483</a></div></div> <div class="ttc" id="intern_8h_html_ab592dcd9e193dea76fb0ff58b5d907e4"><div class="ttname"><a href="../../db/d2e/intern_8h.html#ab592dcd9e193dea76fb0ff58b5d907e4">rb_str_append</a></div><div class="ttdeci">VALUE rb_str_append(VALUE, VALUE)</div><div class="ttdef"><b>Definition:</b> <a href="../../d1/db0/string_8c_source.html#l02297">string.c:2297</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#l00223">error.c:223</a></div></div> <div class="ttc" id="win32ole_8c_html_a18100522f0b19b5e9b9875f5737a9386"><div class="ttname"><a href="../../d2/d99/win32ole_8c.html#a18100522f0b19b5e9b9875f5737a9386">free</a></div><div class="ttdeci">free(psz)</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#l00549">error.c:549</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#l00541">tcltklib.c:541</a></div></div> <div class="ttc" id="ruby_2ruby_8h_html_aebbec3f6980955bf51d9962ef99a5c13"><div class="ttname"><a href="../../de/de6/ruby_2ruby_8h.html#aebbec3f6980955bf51d9962ef99a5c13">NUM2LONG</a></div><div class="ttdeci">#define NUM2LONG(x)</div><div class="ttdef"><b>Definition:</b> <a href="../../de/de6/ruby_2ruby_8h_source.html#l00600">ruby.h:600</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#l00159">tcltklib.c:159</a></div></div> <div class="ttc" id="tcltklib_8c_html_a425d422eaab0de27ede50498550e0f19"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a425d422eaab0de27ede50498550e0f19">lib_get_reltype_name</a></div><div class="ttdeci">static VALUE lib_get_reltype_name(VALUE self)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l10016">tcltklib.c:10016</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#l02784">tcltklib.c:2784</a></div></div> <div class="ttc" id="tcltklib_8c_html_a154b1f5c9c90acef2a0b248f861fea29"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a154b1f5c9c90acef2a0b248f861fea29">ENCODING_INDEX_UTF8</a></div><div class="ttdeci">static int ENCODING_INDEX_UTF8</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00192">tcltklib.c:192</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_a41e6a95a134b13d63c516923d0a66f91"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a41e6a95a134b13d63c516923d0a66f91">rb_thread_check_trap_pending</a></div><div class="ttdeci">#define rb_thread_check_trap_pending()</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l00028">tcltklib.c:28</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#l00240">tcltklib.c:240</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#l00412">tcltklib.c:412</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#l01127">variable.c:1127</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#l00232">tcltklib.c:232</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#l00421">tcltklib.c:421</a></div></div> <div class="ttc" id="ruby_8c_html_af2efa898e9eed6fe6715279cb1ec35b0"><div class="ttname"><a href="../../df/d77/ruby_8c.html#af2efa898e9eed6fe6715279cb1ec35b0">argv</a></div><div class="ttdeci">char ** argv</div><div class="ttdef"><b>Definition:</b> <a href="../../df/d77/ruby_8c_source.html#l00132">ruby.c:132</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#l00539">ruby.h:539</a></div></div> <div class="ttc" id="tcltklib_8c_html_a10f530f1dec144f7f740a7e3b78def0e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#a10f530f1dec144f7f740a7e3b78def0e">_thread_call_proc_value</a></div><div class="ttdeci">static VALUE _thread_call_proc_value(VALUE th)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l02943">tcltklib.c:2943</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#l00541">error.c:541</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#l00526">tcltklib.c:526</a></div></div> <div class="ttc" id="tcltklib_8c_html_aac60f81a7a47a728e6c471f3297e814e"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#aac60f81a7a47a728e6c471f3297e814e">ip_ruby_cmd_core</a></div><div class="ttdeci">static VALUE ip_ruby_cmd_core(struct cmd_body_arg *arg)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l03466">tcltklib.c:3466</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#l00590">encoding.c:590</a></div></div> <div class="ttc" id="tcltklib_8c_html_af132ec97e540b14453af8ac96fec0fb6"><div class="ttname"><a href="../../d5/d9d/tcltklib_8c.html#af132ec97e540b14453af8ac96fec0fb6">ip_eval_real</a></div><div class="ttdeci">static VALUE ip_eval_real(VALUE self, char *cmd_str, int cmd_len)</div><div class="ttdef"><b>Definition:</b> <a href="../../d5/d9d/tcltklib_8c_source.html#l07321">tcltklib.c:7321</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#l00682">intern.h:682</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#l01073">thread.c:1073</a></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#l00534">string.c:534</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#l00226">object.c:226</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.14 </small></address> </body> </html>
💾 Save Changes
❌ Cancel