TEACL is a fork of TECOC created for the purpose of describing diffs in a document being collaboratively edited
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

38 lines
1.6 KiB

/*****************************************************************************
DoFlag()
This function gets or sets the value of a TECO mode control flag.
The TECO mode control flags are ED, EH, ES, ET, EU, EV, EZ and ^X.
The EO flag can only be examined, not set, so ExeEO does not call this
function.
*****************************************************************************/
#include "zport.h" /* define portability identifiers */
#include "tecoc.h" /* define general identifiers */
#include "defext.h" /* define external global variables */
DEFAULT DoFlag(Flag) /* handle a mode control flag */
WORD *Flag;
{
DBGFEN(2,"DoFlag",NULL);
if ((EStTop == EStBot) || /* if no numeric arg or */
(EStack[EStTop].ElType != OPERAND)) { /* partial expression */
DBGFEX(2,DbgFNm,"PushEx");
return PushEx((LONG)*Flag, OPERAND); /* return the flag */
}
if (GetNmA() == FAILURE) { /* get the numeric argument */
DBGFEX(2,DbgFNm,"FAILURE, GetNmA() failed");
return FAILURE;
}
if ((CmdMod & MARGIS) == '\0') { /* if it's n<flag> */
*Flag = (WORD)NArgmt; /* set the flag to n */
} else if (MArgmt && NArgmt) { /* else if it's m,n<flag> */
*Flag &= (WORD)~MArgmt; /* turn off m bits */
*Flag |= (WORD)NArgmt; /* turn on n bits */
} else if ((MArgmt == 0) && NArgmt) { /* else if it's 0,n<flag> */
*Flag |= (WORD)NArgmt; /* turn on n bits */
} else if ((MArgmt) && (NArgmt == 0)) { /* else if it's m,0<flag> */
*Flag &= (WORD)~MArgmt; /* turn off m bits */
}
EStTop = EStBot; /* clear expression stack */
CmdMod = '\0'; /* clear modifiers flags */
DBGFEX(2,DbgFNm,"SUCCESS");
return SUCCESS;
}