int MmeGrabber::command(int argc, const char*const* argv)
{
Tcl& tcl = Tcl::instance();
if (argc == 3) {
if(strcmp(argv[1], "decimate") == 0) {
int d = atoi(argv[2]);
/* fprintf(stderr, "vic: Called MmeGrabber::command with %s %s\n",
argv[1],argv[2]); */
if (d == 0) {
tcl.resultf("%s: divide by zero", argv[0], 0);
return (TCL_ERROR);
}
x_decimate_ = d;
y_decimate_ = d;
if(running_) {
shutdown();
SetComp();
startup();
}
else
SetComp();
return (TCL_OK);
}
else if (strcmp(argv[1], "port") == 0) {
setport(argv[2]);
return(TCL_OK);
}
else if (strcmp(argv[1], "type") == 0) {
setstandard(argv[2]);
return(TCL_OK);
}
}
return (Grabber::command(argc, argv));
}
/** Set the bound multipliers all in one shot. Sets the pointers,
* does not copy data. */
void Set_bound_mult(const Vector& z_L, const Vector& z_U, const Vector& v_L, const Vector& v_U)
{
SetComp(4, z_L);
SetComp(5, z_U);
SetComp(6, v_L);
SetComp(7, v_U);
}
/** Set the x iterate (const). Sets the pointer, does NOT copy
* data. */
void Set_x(const Vector& vec)
{
SetComp(0, vec);
}
/** Set the eq multipliers all in one shot. Sets the pointers,
* does not copy data. */
void Set_eq_mult(const Vector& y_c, const Vector& y_d)
{
SetComp(2, y_c);
SetComp(3, y_d);
}
/** Set the primal variables all in one shot. Sets the pointers,
* does NOT copy data */
void Set_primal(const Vector& x, const Vector& s)
{
SetComp(0, x);
SetComp(1, s);
}
/** Set the v_U iterate (const). Sets the pointer, does NOT copy
* data. */
void Set_v_U(const Vector& vec)
{
SetComp(7, vec);
}
/** Set the v_L iterate (const). Sets the pointer, does NOT copy
* data. */
void Set_v_L(const Vector& vec)
{
SetComp(6, vec);
}
/** Set the z_U iterate (const). Sets the pointer, does NOT copy
* data. */
void Set_z_U(const Vector& vec)
{
SetComp(5, vec);
}
/** Set the z_L iterate (const). Sets the pointer, does NOT copy
* data. */
void Set_z_L(const Vector& vec)
{
SetComp(4, vec);
}
/** Set the y_d iterate (const). Sets the pointer, does NOT copy
* data. */
void Set_y_d(const Vector& vec)
{
SetComp(3, vec);
}
/** Set the y_c iterate (const). Sets the pointer, does NOT copy
* data. */
void Set_y_c(const Vector& vec)
{
SetComp(2, vec);
}
/** Set the s iterate (const). Sets the pointer, does NOT copy
* data. */
void Set_s(const Vector& vec)
{
SetComp(1, vec);
}