int
clip_QOUT(ClipMachine * ClipMachineMemory)
{
char *pEol = (char *) _clip_fetch_item(ClipMachineMemory, _clip_hashstr("PRINTER_EOL"));
if (pEol == NULL || *pEol == 0)
out_any(ClipMachineMemory, "\n", 1, _clip_colorSelect(ClipMachineMemory), DEV_DEVS);
else
out_any(ClipMachineMemory, pEol, strlen(pEol), _clip_colorSelect(ClipMachineMemory), DEV_DEVS);
clip_QQOUT(ClipMachineMemory);
sync_mp(ClipMachineMemory);
return 0;
}
void
Test_Fixed_Array::dii_req_invoke (CORBA::Request *req)
{
req->add_in_arg ("s1") <<= Param_Test::Fixed_Array_forany (this->in_);
req->add_inout_arg ("s2") <<= Param_Test::Fixed_Array_forany (this->inout_);
req->add_out_arg ("s3") <<= Param_Test::Fixed_Array_forany (this->out_);
req->set_return_type (Param_Test::_tc_Fixed_Array);
req->invoke ();
Param_Test::Fixed_Array_forany forany;
req->return_value () >>= forany;
Param_Test::Fixed_Array_copy (this->ret_, forany.in ());
CORBA::NamedValue_ptr arg2 =
req->arguments ()->item (1);
*arg2->value () >>= forany;
Param_Test::Fixed_Array_copy (this->inout_, forany.in ());
CORBA::NamedValue_ptr arg3 =
req->arguments ()->item (2);
Param_Test::Fixed_Array_forany out_any (this->out_);
*arg3->value () >>= forany;
Param_Test::Fixed_Array_copy (this->out_, forany.in ());
}
int
clip_OUTERR(ClipMachine * ClipMachineMemory)
{
int i;
for (i = 1; i <= ClipMachineMemory->argc; ++i)
{
ClipVar *vp = _clip_par(ClipMachineMemory, i);
if (i > 1)
out_any(ClipMachineMemory, " ", 1, _clip_colorSelect(ClipMachineMemory), DEV_ERR);
print_var(ClipMachineMemory, vp, _clip_colorSelect(ClipMachineMemory), DEV_ERR, 0);
}
return 0;
}
int
clip_QQOUT(ClipMachine * ClipMachineMemory)
{
int i;
for (i = 1; i <= ClipMachineMemory->argc; ++i)
{
ClipVar *vp = _clip_par(ClipMachineMemory, i);
if (i > 1)
out_any(ClipMachineMemory, " ", 1, _clip_colorSelect(ClipMachineMemory), DEV_DEVS);
if (!vp)
continue;
print_var(ClipMachineMemory, vp, _clip_colorSelect(ClipMachineMemory), DEV_DEVS, 0);
}
sync_mp(ClipMachineMemory);
return 0;
}
static void
print_var(ClipMachine * ClipMachineMemory, ClipVar * vp, int attr, int dev, int level)
{
if (level >= ClipMachineMemory->print_max_deep)
{
char b[64];
int l;
sprintf(b, "Max print level reached: %d ", level);
l = strlen(b);
if (dev != DEV_LOG)
out_dev(ClipMachineMemory, b, l, attr, dev);
_clip_out_log(b, l);
return;
}
vp = _clip_vptr(vp);
switch (vp->ClipType_t_of_ClipVar.ClipVartype_type_of_ClipType)
{
case UNDEF_type_of_ClipVarType:
out_any(ClipMachineMemory, "NIL", 3, attr, dev);
break;
case NUMERIC_type_of_ClipVarType:
{
if (vp->ClipType_t_of_ClipVar.memo_of_ClipType)
{
char *buf;
if (vp->ClipType_t_of_ClipVar.dec_of_ClipType)
buf = rational_toString(vp->ClipRationalVar_r_of_ClipVar.Struc_rational_of_ClipRationalVar, 10, vp->ClipType_t_of_ClipVar.dec_of_ClipType, 0);
else
buf = rational_toString(vp->ClipRationalVar_r_of_ClipVar.Struc_rational_of_ClipRationalVar, 10, ClipMachineMemory->decimals, 0);
out_any(ClipMachineMemory, buf, strlen(buf), attr, dev);
free(buf);
}
else
{
char buf[48];
char *s;
if (vp->ClipType_t_of_ClipVar.len_of_ClipType < sizeof(buf))
snprintf(buf, sizeof(buf), "%*.*f", vp->ClipType_t_of_ClipVar.len_of_ClipType, vp->ClipType_t_of_ClipVar.dec_of_ClipType, vp->ClipNumVar_n_of_ClipVar.double_of_ClipNumVar);
else
_clip_dtos(vp->ClipNumVar_n_of_ClipVar.double_of_ClipNumVar, buf, sizeof(buf), 0);
for (s = buf + strlen(buf); s > buf; --s)
if ((*s) == ',')
(*s) = '.';
out_any(ClipMachineMemory, buf, strlen(buf), attr, dev);
}
}
break;
case CHARACTER_type_of_ClipVarType:
out_any(ClipMachineMemory, vp->ClipStrVar_s_of_ClipVar.ClipBuf_str_of_ClipStrVar.buf_of_ClipBuf, vp->ClipStrVar_s_of_ClipVar.ClipBuf_str_of_ClipStrVar.len_of_ClipBuf, attr, dev);
break;
case LOGICAL_type_of_ClipVarType:
if (vp->ClipLogVar_l_of_ClipVar.value_of_ClipLogVar)
out_any(ClipMachineMemory, ".T.", 3, attr, dev);
else
out_any(ClipMachineMemory, ".F.", 3, attr, dev);
break;
case DATE_type_of_ClipVarType:
{
char *s = _clip_date_to_str(vp->ClipDateVar_d_of_ClipVar.julian_of_ClipDateVar, ClipMachineMemory->date_format);
out_any(ClipMachineMemory, s, strlen(s), attr, dev);
free(s);
}
break;
case DATETIME_type_of_ClipVarType:
{
int len;
char *s = _clip_ttoc(ClipMachineMemory, vp->ClipDateTimeVar_dt_of_ClipVar.julian_of_ClipDateTimeVar,
vp->ClipDateTimeVar_dt_of_ClipVar.time_of_ClipDateTimeVar, &len,
ClipMachineMemory->date_format, ClipMachineMemory->hours,
ClipMachineMemory->seconds);
out_any(ClipMachineMemory, s, len, attr, dev);
free(s);
}
break;
case OBJECT_type_of_ClipVarType:
vp->ClipObjVar_o_of_ClipVar.rtti_of_ClipObjVar->print_of_ClipObjRtti(ClipMachineMemory,
vp->ClipObjVar_o_of_ClipVar.obj_of_ClipObjVar,
vp->ClipObjVar_o_of_ClipVar.rtti_of_ClipObjVar, &ClipMachineMemory->buf, &ClipMachineMemory->buflen);
out_any(ClipMachineMemory, ClipMachineMemory->buf, ClipMachineMemory->buflen, attr, dev);
break;
case PCODE_type_of_ClipVarType:
case CCODE_type_of_ClipVarType:
out_any(ClipMachineMemory, "CODE", 4, attr, dev);
break;
case ARRAY_type_of_ClipVarType:
{
int i;
out_any(ClipMachineMemory, "{", 1, attr, dev);
for (i = 0; i < vp->ClipArrVar_a_of_ClipVar.count_of_ClipArrVar; ++i)
{
if (i)
out_any(ClipMachineMemory, ", ", 2, attr, dev);
print_var(ClipMachineMemory, vp->ClipArrVar_a_of_ClipVar.ClipVar_items_of_ClipArrVar + i, attr, dev, level + 1);
}
out_any(ClipMachineMemory, "}", 1, attr, dev);
}
break;
case MAP_type_of_ClipVarType:
{
int i;
out_any(ClipMachineMemory, "{", 1, attr, dev);
for (i = 0; i < vp->ClipMapVar_m_of_ClipVar.count_of_ClipMapVar; ++i)
{
char buf[64];
int l;
if (i)
out_any(ClipMachineMemory, ", ", 2, attr, dev);
_clip_hash_name(ClipMachineMemory, vp->ClipMapVar_m_of_ClipVar.ClipVarEl_items_of_ClipMapVar[i].no_of_ClipVarEl, buf, sizeof(buf));
l = strlen(buf);
snprintf(buf + l, sizeof(buf) - l, ":");
l += 1;
out_any(ClipMachineMemory, buf, l, attr, dev);
print_var(ClipMachineMemory, &vp->ClipMapVar_m_of_ClipVar.ClipVarEl_items_of_ClipMapVar[i].ClipVar_var_of_ClipVarEl, attr, dev, level + 1);
}
out_any(ClipMachineMemory, "}", 1, attr, dev);
}
break;
default:
break;
}
}
