Re: Daniel Kluss - tdll
- Posted by "codepilot Gmail Account" <codepilot at gmail.com> Jan 17, 2007
- 582 views
------=_Part_67773_8397924.1169002813531 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: quoted-printable Content-Disposition: inline Try using APC_dll, http://www.rapideuphoria.com/apc_2006_05_09_v2.zip, it has some examples. Daniel On 1/16/07, codepilot Gmail Account <codepilot at gmail.com> wrote: > > That is pretty weird, check to see if request_handle is modified > elsewhere, because euphoria can't modify arguments passed in routines. > > On 1/16/07, Jonas Temple <guest at rapideuphoria.com> wrote: > > > > > > posted by: Jonas Temple <jtemple at yhti.net> > > > > Daniel, > > > > I've been working with tdll.e for a few days and have come across > > something odd when using t_func to call a routine. The parameters pass= ed in > > to the function via t_func are changed during the call. Here's a scree= n > > dump of the trace screen with shots before and after the call. Note th= e > > value of "request_handle" before and after the call. > > > > *** Before t_func call *** > > > > cwbdb.ew F1=main F2=trace Enter down-arrow ? q Q ! > > 3199: -- cwbSV_ErrHandle errorHandle)= ; > > 3200: global atom xcwbDB_Fetch > > 3201: -- xcwbDB_Fetch = define_c_func(cwbdb, > > 3202: -- "cwbDB_Fetch", {C_ULONG, C_ULONG}, C_UINT) > > 3203: xcwbDB_Fetch = define_t_func(cwbdb, > > 3204: "cwbDB_Fetch", {C_ULONG, C_ULONG}, C_UINT) > > 3205: global function cwbDB_Fetch(atom request_handle, atom > > error_handle) > > 3206: -- cwbDB_EURtnCode = c_func(xcwbDB_Fetch, > > 3207: -- {request_handle, error_handle}) > > 3208==> cwbDB_EURtnCode = t_func(xcwbDB_Fetch, > > 3209: {request_handle, error_handle}) > > 3210: return {cwbDB_EURtnCode} > > 3211: end function > > 3212: > > > > 3213: --**************************************************************= *****/ > > 3214: -- = */ > > > > 3215: -- > > API: */ > > 3216: -- > > cwbDB_GetColumnCCSID */ > > 3217: -- = */ > > > > > > sys_conn=34" request_handle=38& error_handle=0 row_c= ount=0 > > statement={82R,84T,86V,74J,79O,66B} > > > > sql_stmt={115s,101e,108l,101e,99c,116t,32=A6,74J,79O,66B,95_,73I,78N,= 70F,79O,... > > parms={} > > > > *** After t_func call *** > > > > cwbdb.ew F1=main F2=trace Enter down-arrow ? q Q ! > > 3201: -- xcwbDB_Fetch = define_c_func(cwbdb, > > 3202: -- "cwbDB_Fetch", {C_ULONG, C_ULONG}, C_UINT) > > 3203: xcwbDB_Fetch = define_t_func(cwbdb, > > 3204: "cwbDB_Fetch", {C_ULONG, C_ULONG}, C_UINT) > > 3205: global function cwbDB_Fetch(atom request_handle, atom > > error_handle) > > 3206: -- cwbDB_EURtnCode = c_func(xcwbDB_Fetch, > > 3207: -- {request_handle, error_handle}) > > 3208: cwbDB_EURtnCode = t_func(xcwbDB_Fetch, > > 3209: {request_handle, error_handle}) > > 3210==> return {cwbDB_EURtnCode} > > 3211: end function > > 3212: > > > > 3213: --**************************************************************= *****/ > > > > 3214: -- = */ > > 3215: -- > > API: */ > > 3216: -- > > cwbDB_GetColumnCCSID */ > > > > 3217: -- = */ > > 3218: -- > > Purpose: */ > > 3219: -- Returns the Coded Character Set Identifier (CCSID) for > > a */ > > > > sys_conn=34" request_handle=28 error_handle=0 row_c= ount=0 > > statement={82R,84T,86V,74J,79O,66B} > > sql_stmt={115s,101e,108l,101e,99c,116t,32=A6,74J,79O,66B,95_,73I,78N,= 70F,79O,... > > > > parms={} > > > > If you need more information please let me know. > > > > Jonas Temple > > http://www.yhti.net/~jktemple > > > > p > > > > Or send an email to: EUforum-unsubscribe at topica.com > > > > ------=_Part_67773_8397924.1169002813531 Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable Content-Disposition: inline <div>Try using APC_dll, <a href="http://www.rapideuphoria.com/apc_2006_05= _09_v2.zip">http://www.rapideuphoria.com/apc_2006_05_09_v2.zip</a>, it has = some examples.</div> <div>Daniel<br> </div> <div><span class="gmail_quote">On 1/16/07, <b class="gmail_sendername">= codepilot Gmail Account</b> <<a href="mailto:codepilot at gmail.com">code= pilot at gmail.com</a>> wrote:</span> <blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0= px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">That is pretty weird, check to s= ee if request_handle is modified elsewhere, because euphoria can't modi= fy arguments passed in routines.=20 <div><span class="e" id="q_1102dfdb6a2b71f5_1"><br><br> <div><span class="gmail_quote">On 1/16/07, <b class="gmail_sendername">= Jonas Temple</b> <<a onclick="return top.js.OpenExtLink(window,event,t= his)" href="mailto:guest at rapideuphoria.com" target="_blank">guest@rapid= euphoria.com </a>> wrote:</span>=20 <blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0= px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">=========== == The Euphoria Mailing List ============<br><b= r><br>posted by: Jonas Temple <jtemple at <a onclick="return top.js.Op= enExtLink(window,event,this)" href="http://yhti.net/" target="_blank"> yhti.net</a>><br><br>Daniel,<br><br>I've been working with tdll.e fo= r a few days and have come across something odd when using t_func to call a= routine. The parameters passed in to the function via t_func ar= e changed during the call. Here's a screen dump of the trace= screen with shots before and after the call. Note the value of = "request_handle" before and after the call.=20 <br><br>*** Before t_func call ***<br><br>cwbdb.ew F1=main&nbs= p; F2=trace Enter down-arrow ? = ; q Q !<br>3199: -- = &nb= sp; = cwbSV_ErrHandle errorHandle);<br>3200:&= nbsp; global atom xcwbDB_Fetch<br>3201: -- xcwbD= B_Fetch = define_c_func(cwbdb,=20 <br>3202: -- &nbs= p; "cwbDB_Fetch", {C_ULONG, C_ULONG}, C_UINT)<br>3203: = xcwbDB_Fetch = define_t_func(cwbdb,<br>3204= : &n= bsp; "cwbDB_Fetch", {C_ULONG, C_ULONG}, C_UINT)<br>3205:&nbs= p; global function cwbDB_Fetch(atom request_handle, atom error_handle)= <br>3206: -- cwbDB_EURtnCode = c_func(xcwbDB_Fetch,= <br>3207: -- &nbs= p; {request_handle, error_handle})<br>3208== => cwbDB_EURtnCode = t_func(xcwbDB_Fetch,<br>= 3209: &nbs= p; {request_handle, error_handle}) <br>3210: return {cwbDB_EURtnCode}<br>32= 11: end function<br>3212:<br>3213: --****************= ***************************************************/<br>3214: --= &nb= sp; = &nb= sp; = &nb= sp; */=20 <br>3215: -- API:  = ; &n= bsp;  = ; &n= bsp;  = ; */<br>3216: -- cwbDB_GetColumnCCSID&nb= sp; = &nb= sp; = */<br>3217: -- &= nbsp; &nbs= p; &= nbsp; &nbs= p; &= nbsp; */= <br><br>sys_conn=34" = request_handle=38& error_handle=0  = ; row_count=0<br>statement={82R,84T,86V,74J,79O,66B}<br>sql_= stmt={115s,101e,108l,101e,99c,116t,32=A6,74J,79O,66B,95_,73I,78N,70F,79O,= ...<br>parms={}=20 <br><br>*** After t_func call ***<br><br>cwbdb.ew F1=main = ; F2=trace Enter down-arrow ? = q Q !<br>3201: -- xcwbDB_= Fetch = define_c_func(cwbdb,<br>3202: -- &nbs= p; "cwbDB_Fetch", {C_ULONG, C_= ULONG}, C_UINT)=20 <br>3203: xcwbDB_Fetch = define_t_func= (cwbdb,<br>3204:  = ; "cwbDB_Fetch", {C_ULONG, C_ULONG}, C_UIN= T)<br>3205: global function cwbDB_Fetch(atom request_handle, ato= m error_handle)<br>3206: -- cwbDB_EURtnCode = c_fun= c(xcwbDB_Fetch,=20 <br>3207: -- &nbs= p; {request_handle, error_handle})<br>3208:&nb= sp; cwbDB_EURtnCode = t_func(xcwbDB_Fetch,<b= r>3209: &n= bsp; {request_handle, error_handle})<br>= 3210==> return {cwbDB_EURtnCode}<br>3211:&nbs= p; end function=20 <br>3212:<br>3213: --*******************************************= ************************/<br>3214: -- &nb= sp; = &nb= sp; = &nb= sp; */<br>= 3215: -- API: &nb= sp; = &nb= sp; = &nb= sp; */=20 <br>3216: -- cwbDB_GetColumnCCSID &= nbsp; &nbs= p; &= nbsp; &nbs= p; */<br>3217: --  = ; &n= bsp;  = ; &n= bsp;  = ; */<br>3218: &nb= sp;-- Purpose: &= nbsp; &nbs= p; &= nbsp; &nbs= p; */=20 <br>3219: -- Returns the Coded Character Set Identif= ier (CCSID) for a */<br><br>sys_conn== 34" request_handle=28= error_handle=0 row_count= =0<br>statement={82R,84T,86V,74J,79O,66B}<br>sql_stmt={115s,101e,108l= ,101e,99c,116t,32=A6,74J,79O,66B,95_,73I,78N,70F,79O,... <br>parms={}<br><br>If you need more information please let me know.<br><= br>Jonas Temple<br><a onclick="return top.js.OpenExtLink(window,event,thi= s)" href="http://www.yhti.net/~jktemple" target="_blank">http://www.yht= i.net/~jktemple </a><br><br>--^------------------------------------------------------------= ---- <br>This email was sent to: <a onclick="return top.js.OpenExtLink(wi= ndow,event,this)" href="mailto:codepilot at gmail.com" target="_blank">cod= epilot at gmail.com </a><br><br>EASY UNSUBSCRIBE click here: <a onclick="return top.js.OpenEx= tLink(window,event,this)" href="http://topica.com/u/?b1dd66.bS57FK.Y29kZX= Bp" target="_blank">http://topica.com/u/?b1dd66.bS57FK.Y29kZXBp </a><br>O= r send an email to:=20 <a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:= EUforum-unsubscribe at topica.com" target="_blank">EUforum-unsubscribe@topic= a.com</a><br><br>For Topica's complete suite of email marketing solutio= ns visit: <br><a onclick="return top.js.OpenExtLink(window,event,this)" href="htt= p://www.topica.com/?p=TEXFOOTER" target="_blank">http://www.topica.com/= ?p=TEXFOOTER</a><br>--^--------------------------------------------------= -------------- <br><br></blockquote></div><br></span></div></blockquote></div><br> ------=_Part_67773_8397924.1169002813531--