version 1.51, 2004/03/05 06:14:50 |
version 1.53, 2004/03/09 07:18:26 |
|
|
* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY |
* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* $OpenXM: OpenXM_contrib2/asir2000/io/tcpf.c,v 1.50 2003/12/13 08:03:56 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/tcpf.c,v 1.52 2004/03/09 05:33:10 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 1237 void Pox_execute_string(NODE arg,Obj *rp) |
|
Line 1237 void Pox_execute_string(NODE arg,Obj *rp) |
|
int s; |
int s; |
int index = QTOS((Q)ARG0(arg)); |
int index = QTOS((Q)ARG0(arg)); |
|
|
|
asir_assert(ARG1(arg),O_STR,"ox_execute_string"); |
valid_mctab_index(index); |
valid_mctab_index(index); |
s = m_c_tab[index].c; |
s = m_c_tab[index].c; |
ox_send_data(s,ARG1(arg)); |
ox_send_data(s,ARG1(arg)); |