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.
 
 

64 lines
1.8 KiB

/*****************************************************************************
ExeK()
This function executes a K command.
nK Kill n lines
m,nK Delete between m and n
*****************************************************************************/
#include "zport.h" /* define portability identifiers */
#include "tecoc.h" /* define general identifiers */
#include "defext.h" /* define external global variables */
DEFAULT ExeK() /* execute a K command */
{
ptrdiff_t HowFar;
DBGFEN(1,"ExeK",NULL);
if (EStTop == EStBot) { /* if no numeric argument */
NArgmt = 1; /* default is 1K */
} else {
UMinus(); /* if it's -K, make it -1K */
if (GetNmA() == FAILURE) { /* get numeric argument */
DBGFEX(1,DbgFNm,"FALURE");
return FAILURE;
}
}
if (CmdMod & MARGIS) { /* if it's m,nK */
if (NArgmt == MArgmt) { /* if n equals m */
CmdMod = '\0'; /* clear modifiers flags */
DBGFEX(1,DbgFNm,"SUCCESS");
return SUCCESS;
}
MEMMOVE(ErrTxt,
(*CBfPtr == 'D' || *CBfPtr=='d') ? "m,nD" : "m,nK",
5);
if (GetAra() == FAILURE) {
DBGFEX(1,DbgFNm,"FAILURE");
return FAILURE;
}
if ((AraBeg < GapBeg) && (AraEnd > GapEnd)) {
GapBeg = AraBeg;
GapEnd = AraEnd;
} else {
if (AraEnd < GapEnd) {
HowFar = (GapBeg-1) - AraEnd;
GapBeg -= HowFar;
GapEnd -= HowFar;
MEMMOVE(GapEnd+1, GapBeg, (SIZE_T)HowFar);
GapBeg = AraBeg;
} else {
HowFar = AraBeg - (GapEnd+1);
MEMMOVE(GapBeg, GapEnd+1, (SIZE_T)HowFar);
GapBeg += HowFar;
GapEnd = AraEnd;
}
}
} else { /* else it's nK */
NArgmt = Ln2Chr(NArgmt); /* cvt line to char offset */
if (NArgmt > 0) {
GapEnd += NArgmt;
} else {
GapBeg += NArgmt;
}
}
CmdMod = '\0'; /* clear modifiers flags */
DBGFEX(1,DbgFNm,"SUCCESS");
return SUCCESS;
}