void TypESt() /* type erroneous command str */
{
TypBuf(CStBeg,CBfPtr);
ZDspBf("?\r\n", 3);
}
static DEFAULT VSetW() /* execute an m,n:W command */
{
DBGFEN(1,"VSetW",NULL);
/*
* Use an if here instead of a "default" case because doing a switch will
* cast the variable to an "int", causing Turbo-C to warn about types.
*/
if ((NArgmt < 0) || (NArgmt > 9)) {
return ExeNYI();
}
switch ((int)NArgmt) {
case 0:
if ((MArgmt < 0) || (MArgmt > 13) || (MArgmt == 3) ||
(MArgmt == 5) ||
(MArgmt == 7) ||
(MArgmt == 9)) {
ZDspBf("Illegal terminal type.", 22);
ZDspBf(" Terminal types are:\r\n", 23);
ZDspBf("\t0\t= VT52\r\n", 11);
ZDspBf("\t1\t= VT61\r\n", 11);
ZDspBf("\t2\t= VT100 in VT52 mode\r\n", 25);
ZDspBf("\t4\t= VT100 in VT100 mode\r\n", 26);
ZDspBf("\t6\t= VT05\r\n", 11);
ZDspBf("\t8\t= VT102\r\n", 12);
ZDspBf("\t10\t= VK100\r\n", 13);
ZDspBf("\t11\t= VT200 in VT200 mode\r\n", 27);
ZDspBf("\t12\t= VT200 in ANSI (VT100) mode\r\n", 34);
ZDspBf("\t13\t= VT200 in VT52 mode\r\n", 26);
CrType = (DEFAULT)MArgmt;
return FAILURE;
}
CrType = (DEFAULT)MArgmt;
break;
case 1:
if (MArgmt < 1) {
ErrMsg(ERR_ARG);
return FAILURE;
}
if (ZSetTT(TTWIDTH, (DEFAULT)MArgmt) == FAILURE)
return FAILURE;
HtSize = (DEFAULT)MArgmt;
break;
case 2:
if (MArgmt < 1) {
ErrMsg(ERR_ARG);
return FAILURE;
}
if (ZSetTT(TTHEIGHT, (DEFAULT)MArgmt) == FAILURE)
return FAILURE;
VtSize = (DEFAULT)MArgmt;
break;
case 3:
SeeAll = (DEFAULT)MArgmt;
break;
case 4:
MrkFlg = (DEFAULT)MArgmt;
break;
case 5:
HldFlg = (DEFAULT)MArgmt;
break;
case 6:
#if CURSES
scope_start = (int)MArgmt;
p_scope_start = (scope_start > GapBeg - EBfBeg)
? (scope_start - (GapBeg - EBfBeg)) + GapEnd
: EBfBeg + scope_start;
#else
TopDot = (DEFAULT)MArgmt;
#endif
break;
case 7:
ScroLn = (DEFAULT)MArgmt;
#if CURSES
Scope(ScroLn);
#endif
break;
#if CURSES
case 8:
SpcMrk = (DEFAULT)MArgmt;
break;
case 9:
KeyPad = (DEFAULT)MArgmt;
break;
#endif
} /* end of switch */
DBGFEX(1,DbgFNm,"SUCCESS");
return (PushEx(MArgmt, OPERAND));
}
