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.
 
 

23 lines
853 B

/*****************************************************************************
ExeCtP()
This function executes a ^P (control-P or caret-P) command. ^P
is not a TECO command and is used to set TECO-C debugging parameters. For
more information on the debugging routines, see the DEBUGGING lines in
Tecoc.c.
*****************************************************************************/
#include "zport.h" /* define portability identifiers */
#include "tecoc.h" /* define general identifiers */
#include "defext.h" /* define external global variables */
DEFAULT ExeCtP() /* execute a ^P (control-P) command */
{
#if DEBUGGING
if (DbgDsp() == FAILURE) {
return FAILURE;
}
EStTop = EStBot; /* clear expression stack */
CmdMod = '\0'; /* clear modifiers flags */
return SUCCESS;
#else
return (ExeIll ()); /* Illegal command */
#endif
}