1 /***************************************************************************** 2 3 ExeCtZ() 4 5 This function executes a control-Z command. 6 7 ^Z <CTRL/Z> (caret/Z) is equivalent to the total space 8 occupied by text in the Q-registers (including the 9 command line currently being executed). 10 11 *****************************************************************************/ 12 13 #include "zport.h" /* define portability identifiers */ 14 #include "tecoc.h" /* define general identifiers */ 15 #include "defext.h" /* define external global variables */ 16 ExeCtZ()17DEFAULT ExeCtZ() /* execute a ^Z (control-Z) command */ 18 { 19 LONG TmpLng; 20 WORD TmpWrd; 21 22 DBGFEN(1,"ExeCtZ",NULL); 23 TmpLng = (CStEnd - CStBeg) + 1; 24 for (TmpWrd = 0; TmpWrd < 36; ++TmpWrd) { 25 TmpLng += QRgstr[TmpWrd].End_P1 - QRgstr[TmpWrd].Start; 26 } 27 28 #if DEBUGGING 29 sprintf(DbgSBf,"PushEx(%ld)", TmpLng); 30 DbgFEx(1,DbgFNm,DbgSBf); 31 #endif 32 return PushEx(TmpLng,OPERAND); 33 } 34