DEFAULT ExeJ() /* execute J command */ { DBGFEN(1,"ExeJ",NULL); if (EStTop == EStBot) { /* if no numeric argument */ NArgmt = 0; /* default is 0J */ } else { if (GetNmA() == FAILURE) { /* get numeric argument */ DBGFEX(1,DbgFNm,"FAILURE"); return FAILURE; } } DBGFEX(1,DbgFNm,"DoCJR()"); return DoCJR(EBfBeg-GapBeg+NArgmt); }
DEFAULT ExeR() /* execute a R command */ { DBGFEN(1,"ExeR",NULL); if (EStTop == EStBot) { /* if no numeric argument */ NArgmt = 1; /* default is 1R */ } else { UMinus(); /* if it's -R, make it -1R */ if (GetNmA() == FAILURE) { DBGFEX(1,DbgFNm,"FAILURE"); return FAILURE; } } DBGFEX(1,DbgFNm,"DoCJR()"); return DoCJR(-NArgmt); }
integer ExeC() /* execute a C command */ { DBGFEN(1,"ExeC",NULL); if (EStTop == EStBot) { /* if no numeric argument */ NArgmt = 1; /* default is 1C */ } else { UMinus(); /* if it's -C, make it -1C */ if (GetNmA() == FAILURE) { DBGFEX(1,DbgFNm,"FAILURE"); return FAILURE; } } DBGFEX(1,DbgFNm,"DoCJR"); return DoCJR(NArgmt); }