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()17 DEFAULT 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