Google
 

Trailing-Edge - PDP-10 Archives - BB-R775C-BM - sources/lshow.bli
There are 10 other files named lshow.bli in the archive. Click here to see a list.
 %TITLE 'LSHOW - SHOW line-mode command'
MODULE LSHOW (				! SHOW line-mode command
		IDENT = '3-007'			! File: LSHOW.B36 Edit: CJG3007
		) =
BEGIN
!
!			  COPYRIGHT (c) 1981, 1985 BY
!	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!		ALL RIGHTS RESERVED.
!
! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
! ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
! INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
! COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
! OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
! TRANSFERRED.
!
! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
! AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
! CORPORATION.
!
! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
!

!++
! FACILITY:	EDT -- The DEC Standard Editor
!
! ABSTRACT:
!
!	This module executes the line mode SHOW command.
!
! ENVIRONMENT:	Runs at any access mode - AST reentrant
!
! AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978
!
! MODIFIED BY:
!
! 1-001	- Original.  DJS 30-JAN-1981.  This module was created by
!	extracting the routine EDT$$SHW_CMD  from the module EXEC.BLI.
! 1-002	- Regularize headers.  JBS 20-Mar-1981
! 1-003	- Change E_VERSION to VER .  JBS 31-Mar-1981
! 1-004	- Use the ASSERT macro.  JBS 01-Jun-1981
! 1-005	- Use new message codes.  JBS 06-Aug-1981
! 1-006 - Add show command for REPEAT. STS 26-Aug-1981
! 1-007 - Add show command for FNF. TMV 10-Sept-1981
! 1-008 - Add show command for WPS search type and SUMMARY.
!	  Also a stub for PROMPT. STS 01-Oct-1981
! 1-009 - Add show command for the text of page and end. STS 06-Oct-1981
! 1-010	- Implement SHOW PROMPT.  JBS 21-Oct-1981
! 1-011 - Add show word and show para.  STS 22-Oct-1981
! 1-012	- Add four more prompts and don't document their lengths.  JBS 23-Oct-1981
! 1-013 - remove external reference to INI_TXT.  It was never used here
!         anyway.  STS 06-Nov-1981
! 1-014 - Add SHOW HELP command.  SMB 18-Dec-1981
! 1-015 - Change SHO BUF to call 48-bit count display module.  SMB 5-Feb-1982
! 1-016 - Add show autorepeat. JBS 09-Feb-1982
! 1-017 - Use VERSION.REQ to define the version number of EDT  JBS 09-Mar-1982
! 1-018	- Add SHOW COMMAND.  JBS 04-May-1982
! 1-019 - Change format of SHOW HELP.  SMB 25-May-1982
! 1-020 - Change SHOW HELP for the 11's.  SMB 2-Jun-1982
! 1-021	- Track changes to SET COMMAND in SHOW COMMAND.  JBS 07-Jun-1982
! 1-022 - Make all the show messages look alike. STS 08-Jun-1982
! 1-023	- Correct counts in SHOW WORD and SHOW PARA messages.  JBS 09-Jun-1982
! 1-024 - Modify for new message processing.  SMB 29-Jun-1982
! 1-025 - Add CRLF to SHOW BUFFER if using TI_WRSTR.  SMB 02-Jun-1982
! 1-026	- Use EDT$$FMT_CRLF instead of EDT$$OUT_FMTBUF.  JBS 05-Jul-1982
! 1-027 - Remove prompt PRTC. 07-Jul-1982
! 1-028	- Add two new SHOW SEARCH possibilities.  JBS 20-Jul-1982
! 1-029 - Add the SHOW FILES command.  SMB 04-Aug-1982
! 1-030 - Add a check for READONLY output files to edit 1-029.  SMB 09-Aug-1982
! 1-031	- New design for defined keys.  JBS 13-Aug-1982
! 1-032 - Make use of the bit masks for the options word. 17-Aug-1982
! 1-033	- Fix up references to the EDT$M_ symbols.  JBS 23-Aug-1982
! 1-034	- Add information to SHOW TERM.  JBS 02-Sep-1982
! 1-035	- Improve SHOW TERM printout and add copyright statement to SHOW VERSION.  JBS 17-Sep-1982
! 1-036	- More improvements to SHOW TERMINAL.  JBS 29-Oct-1982
! 1-037 - Change placement of colons in SHOW FILES.  SMB 20-Dec-1982
! 1-038	- Add conditionals for WPS support and VT220 support.  JBS 10-Feb-1983
! 1-039	- Correct the sense of SHOW WORD.  JBS 11-Feb-1983
! 1-040	- Print key definitions in segments.  JBS 07-Mar-1983
! 3-001 - Fix various string ptrs, %C's and string constants. Make this
!	  a 10/20 specific module.  GB 28-Feb-1983
! 3-002 - Change numbers to symbols to make the module more readable.
!	  CJG Ides of March, 1983
! 3-003 - Fix EDT$$FMT_STR and EDT$$FMT_STRCNT. CJG 22-Mar-1983
! 3-004 - Add SHOW CONTROL-T command. CJG 25-Sep-1983
! 3-005 - Add new message for SHOW FILES when invoked with CREATE. CJG 12-Oct-1983
! 3-006 - Add ignore string to SHOW SEARCH. CJG 2-Nov-1983
! 3-007 - Modify ASSERT macro to include error code. CJG 30-Jan-1984
!--

%SBTTL 'Declarations'
!
! TABLE OF CONTENTS:
!

REQUIRE 'EDTSRC:TRAROUNAM';

FORWARD ROUTINE
    EDT$$SHW_CMD : NOVALUE;			! Process the SHOW command

!
! INCLUDE FILES:
!

LIBRARY 'EDTSRC:SUPPORTS';

LIBRARY 'EDTSRC:KEYPADDEF';

REQUIRE 'EDTSRC:EDTREQ';

REQUIRE 'EDTSRC:PARLITS';

REQUIRE 'EDTSRC:VERSION';

!
! MACROS:
!
!	NONE
!
! EQUATED SYMBOLS:
!
!	NONE
!
! OWN STORAGE:
!
!	NONE
!
! EXTERNAL REFERENCES:
!
!	In the routine
%SBTTL 'EDT$$SHW_CMD  - SHOW line-mode command'

GLOBAL ROUTINE EDT$$SHW_CMD 			! SHOW line-mode command
    : NOVALUE =

!++
! FUNCTIONAL DESCRIPTION:
!
!	Command processing routine for SHOW.  The current command node
!	field SET_TYPE gives an index for the type of SHOW which is
!	being done.  Case on this and put the stuff out.
!
! FORMAL PARAMETERS:
!
!	NONE
!
! IMPLICIT INPUTS:
!
!	TRN_TBLINIT
!	BUF_LST
!	CAS_FLG
!	EDIT_DFLTMOD
!	US_ENT
!	CMD_NAM
!	EXCT_MATCH
!	FNF_MSGFLG
!	US_TXT
!	KPAD
!	NOS
!	QUIET
!	SEA_BEG
!	RPT
!	SEA_BNDD
!	SCR_LNS
!	SCLL_BOT
!	SCLL_TOP
!	TAB_SIZ
!	CUR_BUF
!	TAB_LVL
!	TRUN
!	TI_TYP
!	TI_WID
!	VFY
!	WD_WRAP
!	EXE_CURCMD
!	SUMRY
!	ENB_AUTRPT
!	PARTYP
!	WRDTYP
!	PMT_LINE
!	PMT_KPD
!	PMT_NOKPD
!	PMT_HCCHG
!	PMT_INS
!	PMT_INSN
!	PMT_QUERY
!	CTRL_T
!
! IMPLICIT OUTPUTS:
!
!	NONE
!
! ROUTINE VALUE:
!
!	NONE
!
! SIDE EFFECTS:
!
!	NONE
!
!--

    BEGIN

    EXTERNAL ROUTINE
	EDT$$FMT_CRLF,				! Terminate an output line
	EDT$$TI_WRSTR,
	EDT$$SET_HLPFNAM,
	EDT$$FMT_STRCNT,
	EDT$$TST_BADK,
	EDT$$FMT_CH,
	EDT$$FMT_DCML,
	EDT$$FMT_STR,
	EDT$$OUT_FMTBUF,
	EDT$$MSG_TOSTR,
	EDT$$FIND_KEY,				! Find a key's definition
	EDT$$DEF_DFLTK,				! Define the default keypad
	EDT$$FMT_CHWID;				! Compute the width of a character

    EXTERNAL LITERAL
	EDT$M_NOOUTPUT;

    EXTERNAL
	OPTIONS : BITVECTOR [36],		! bit 3 = /NOOUTPUT
	INP_NAM : BLOCK,			! Input file name
	OUT_NAM : BLOCK,			! Output file name
	TRN_TBLINIT,				! True if translation table has been initialized
	BUF_LST,
	CAS_FLG,
	IGN_LEN,				! Ignore length
	IGN_PTR,				! Ignore pointer
	EDIT_DFLTMOD,
	US_ENT : VECTOR,
	EXCT_MATCH,
	US_TXT : VECTOR,			! user defined text
	FNF_MSGFLG,
	KPAD,
	NOS,
	QUIET,
	SEA_BEG,
	RPT,
	SEA_BNDD,
	SCR_LNS,
	SCLL_BOT,
	SCLL_TOP,
	TAB_SIZ,
	CUR_BUF : REF TBCB_BLOCK,
	TAB_LVL,
	TRUN,
	TI_TYP,
	TI_WID,
	VFY,
	CTRL_T,				! Control-T flag
	WD_WRAP,
	HELP_NAM,			! help file name
	HELP_NAMLEN,			! help file name length
	HELP_SET,			! flag for help file name set
	CMD_NAM : BLOCK,		! Name of command file
	TI_SCROLL,			! 1 = terminal has scrolling regions

%IF SUPPORT_VT220
%THEN
	EIGHT_BIT,			! 1 = this is an eight-bit terminal
%FI

	TI_EDIT,			! 1 = this terminal has 'edit' features (ICM, DCH, IL, DL)
	FMT_LNPOS,			! Current line position
	SUMRY,				! summary flag
	ENB_AUTRPT,			! 1 = manipulate autorepeat in VT100, 0 = don't
	WRDTYP,				! type of word flag
	PARTYP,				! type of para flag
	EXE_CURCMD : REF NODE_BLOCK,	! Pointer to the current command.
	PMT_LINE : VECTOR,		! Counted ASCII string of line-mode prompt
	PMT_KPD : VECTOR,		! Counted ASCII string of keypad prompt
	PMT_NOKPD : VECTOR,		! Counted ASCII string of nokeypad prompt
	PMT_HCCHG : VECTOR,		! Counted ASCII string of hard copy change mode prompt
	PMT_INS : VECTOR,		! Counted ASCII string of line-mode insert prompt
	PMT_INSN : VECTOR,		! Counted ASCII string of line-mode insert nonumbers prompt
	PMT_QUERY : VECTOR;		! Counted ASCII string of /QUERY prompt

    MESSAGES ((KEYNOTDEF, NODEFN, INVPARFOR));

    CASE .EXE_CURCMD [SET_TYPE] FROM SHO_BUFF TO MAX_SHO OF
	SET

	[SHO_BUFF] : 					! Show buffers
	    BEGIN

	    LOCAL
		BUF : REF TBCB_BLOCK;

!+
! Point to first buffer.
!-
	    BUF = .BUF_LST;
!+
! Loop through all buffers, displaying the number of lines
! in each.
!-

	    WHILE (.BUF NEQA 0) DO
		BEGIN
!+
! Put an equal sign before the current buffer.
!-

		IF (.BUF EQL .CUR_BUF) THEN EDT$$FMT_CH (%C'=') ELSE EDT$$FMT_CH (%C' ');

		EDT$$FMT_STR (CH$PTR (BUF [TBCB_NAME],, BYTE_SIZE), .BUF [TBCB_NAME_LEN]);
		EDT$$FMT_CH (ASC_K_TAB);
		EDT$$FMT_STRCNT (BUF [TBCB_LINE_COUNT], CH$PTR (UPLIT (%C' ')), 0);
!+
! If the buffer still has a file attached to it, then print
! an asterisk after the count to indicate there may be more
! lines than we have indicated.
!-

		IF (.BUF [TBCB_INPUT_RAB] NEQ 0) THEN EDT$$FMT_CH (%C'*');

		EDT$$FMT_STR (CH$PTR (UPLIT('	lines')), 6);
		EDT$$FMT_CRLF ();
		BUF = .BUF [TBCB_NEXT_BUF];
		END;

	    END;

	[SHO_CASE] : 					! Show case
	    BEGIN

!+
! The following code relies on there being 5 bytes for each case type
!  and also that they are stored 5 bytes/word  (ie. 10/20 only)
!-
	    BIND
		CASE_STRING = UPLIT('None UpperLower') : VECTOR [3];

	    EDT$$FMT_STR (CH$PTR (CASE_STRING [.CAS_FLG]), 5);
	    EDT$$FMT_CRLF ();
	    END;

	[SHO_CTRLT] :					! Show control-T
	    BEGIN

	    IF (.CTRL_T EQL 0)
	    THEN
		EDT$$FMT_STR (CH$PTR (UPLIT ('nocontrol-T')), 11)
	    ELSE
		EDT$$FMT_STR (CH$PTR (UPLIT ('control-T')), 9);
	    EDT$$FMT_CRLF ();
	    END;

	[SHO_SRCH] : 					! Show search
	    BEGIN

	    CASE .EXCT_MATCH FROM 0 TO 4 OF
		SET

		[0]:
		    EDT$$FMT_STR (CH$PTR (UPLIT ('general')), 7);

		[1]:
		    EDT$$FMT_STR (CH$PTR (UPLIT ('exact')), 5);

		[2]:
		    EDT$$FMT_STR (CH$PTR (UPLIT ('wps')), 3);

		[3]:
		    EDT$$FMT_STR (CH$PTR (UPLIT ('case insensitive')), 16);

		[4]:
		    EDT$$FMT_STR (CH$PTR (UPLIT ('diacritical insensitive')), 25);

		[OUTRANGE]:
		    ASSERT (16, 0);

		TES;

	    IF .SEA_BEG
	    THEN
		EDT$$FMT_STR (CH$PTR (UPLIT(' begin ')), 7)
	    ELSE
		EDT$$FMT_STR (CH$PTR (UPLIT(' end ')), 5);

	    IF (.SEA_BNDD EQL 0)
	    THEN
		EDT$$FMT_STR (CH$PTR (UPLIT('unbounded')), 9)
	    ELSE
		EDT$$FMT_STR (CH$PTR (UPLIT('bounded')), 7);

	    IF (.IGN_LEN NEQ 0)
	    THEN
		BEGIN
		EDT$$FMT_STR (CH$PTR (UPLIT (' ignore: "')), 10);
		EDT$$FMT_STR (.IGN_PTR, .IGN_LEN);
		EDT$$FMT_STR (CH$PTR (UPLIT ('"')), 1);
		END;

	    EDT$$FMT_CRLF ();
	    END;

	[SHO_TERM] : 					! Show terminal
	    BEGIN

	    CASE .TI_TYP FROM 0 TO 3 OF
		SET
		[ 0 ] : EDT$$FMT_STR (CH$PTR (UPLIT ('Unknown')), 7);
		[ 1 ] : EDT$$FMT_STR (CH$PTR (UPLIT ('VT52')), 4);
		[ 2 ] : EDT$$FMT_STR (CH$PTR (UPLIT ('VT100')), 5);
		[ 3 ] : EDT$$FMT_STR (CH$PTR (UPLIT ('Hardcopy')), 8);
		TES;

	    IF .TI_SCROLL
	    THEN
		EDT$$FMT_STR (CH$PTR (UPLIT (', scroll')), 8)
	    ELSE
		EDT$$FMT_STR (CH$PTR (UPLIT (', noscroll')), 10);

%IF SUPPORT_VT220
%THEN
	    IF .EIGHT_BIT
	    THEN
		EDT$$FMT_STR (CH$PTR (UPLIT (', eightbit')), 10)
	    ELSE
		EDT$$FMT_STR (CH$PTR (UPLIT (', noeightbit')), 12);
%FI

	    IF .TI_EDIT
	    THEN
		EDT$$FMT_STR (CH$PTR (UPLIT (', edit')), 6)
	    ELSE
		EDT$$FMT_STR (CH$PTR (UPLIT (', noedit')), 8);

	    EDT$$FMT_CRLF ();
	    END;

	[SHO_VERS] : 					! Show version
	    BEGIN
	    EDT$$FMT_STR (CH$PTR (VERSION_TEXT), VERSION_TEXT_LEN);

!+
! Show the copyright statement. If we have an eightbit terminal, we use the
! international copyright symbol, otherwise we simulate it using (C). The
! copyright statement goes on the same line as the version number.
!-

%IF SUPPORT_VT220
%THEN
	    IF .EIGHT_BIT
	    THEN
		EDT$$FMT_STR (CH$PTR (COPYRIGHT_TEXT_8,, BYTE_SIZE), COPYRIGHT_TEXT_8_LEN)
	    ELSE
%FI
		EDT$$FMT_STR (CH$PTR (COPYRIGHT_TEXT_7), COPYRIGHT_TEXT_7_LEN);

	    EDT$$FMT_CRLF ();
	    END;

	[SHO_NTITY] : 					! Show entity
	    BEGIN

	    LOCAL
		LEN,
		ENT;

	    ENT = .US_ENT [.EXE_CURCMD [SET_VAL] - 1];
	    LEN = ..ENT;
	    EDT$$FMT_STR (CH$PTR (.ENT + 1,, BYTE_SIZE), .LEN);
	    EDT$$FMT_CRLF ();
	    END;

	[SHO_KEY] : 					! Show key
	    BEGIN

	    LOCAL
		KEY_PTR : REF BLOCK FIELD (KEY_DEF_FIELD),
		STATUS;

	    IF ( NOT .TRN_TBLINIT) THEN STATUS = EDT$$DEF_DFLTK () ELSE STATUS = 1;

	    IF .STATUS
	    THEN
		BEGIN
!+
! Get a pointer to the key definition.  If the key has been defined,
! show that; if the keypad has been defined already, the
! definition is in TRN_TBL ; otherwise use the appropriate
! default keypad tables.
!-
		IF EDT$$TST_BADK (.EXE_CURCMD [KEY_VAL])
		THEN
		    EDT$$MSG_TOSTR (EDT$_KEYNOTDEF)
		ELSE

		    IF EDT$$FIND_KEY (.EXE_CURCMD [KEY_VAL], KEY_PTR)
		    THEN
			BEGIN
!+
! If the key definition is long, show it in pieces.
!-
			LOCAL
			    KEY_P,
			    KEY_L,
			    CH;

			KEY_P = CH$PTR (KEY_PTR [KEY_DEF_TEXT],, BYTE_SIZE);
			KEY_L = .KEY_PTR [KEY_DEF_LEN];
			FMT_LNPOS = 0;
			CH = CH$RCHAR_A (KEY_P);
			KEY_L = .KEY_L - 1;

			WHILE (.KEY_L GEQ 0) DO
			    BEGIN
			    IF ((.FMT_LNPOS + EDT$$FMT_CHWID (.CH, .FMT_LNPOS)) GEQ
				 .TI_WID)
			    THEN
				EDT$$FMT_CRLF ();

			    EDT$$FMT_CH (.CH);
			    CH = CH$RCHAR_A (KEY_P);
			    KEY_L = .KEY_L - 1;
			    END;
			END
		    ELSE
			EDT$$MSG_TOSTR (EDT$_NODEFN);
		END
	    ELSE
		EDT$$MSG_TOSTR (.STATUS);

		EDT$$FMT_CRLF ();
		END;

	[SHO_CURSR] : 					! Show cursor
	    BEGIN
	    EDT$$FMT_DCML (.SCLL_TOP);
	    EDT$$FMT_CH (%C':');
	    EDT$$FMT_DCML (.SCLL_BOT);
	    EDT$$FMT_CRLF ();
	    END;

	[SHO_SCRN] : 					! Show screen.
	    BEGIN
	    EDT$$FMT_DCML (.TI_WID);
	    EDT$$OUT_FMTBUF ();
	    EDT$$FMT_CRLF ();
	    END;

	[SHO_NUM] : 					! Show numbers.
	    BEGIN

	    IF (.NOS EQL 1)
	    THEN
		EDT$$FMT_STR (CH$PTR (UPLIT ('numbers')), 7)
	    ELSE
		EDT$$FMT_STR (CH$PTR (UPLIT ('nonumbers')), 9);
	    EDT$$FMT_CRLF ();
	    END;

	[SHO_VRFY] : 					! Show verify
	    BEGIN

	    IF (.VFY EQL 1)
	    THEN
		EDT$$FMT_STR (CH$PTR (UPLIT ('verify')), 6)
	    ELSE
		EDT$$FMT_STR (CH$PTR (UPLIT ('noverify')), 8);
	    EDT$$FMT_CRLF ();
	    END;

	[SHO_TRUNC] : 					! Show truncate
	    BEGIN

	    IF (.TRUN EQL 1)
	    THEN
		EDT$$FMT_STR (CH$PTR (UPLIT ('truncate')), 8)
	    ELSE
		EDT$$FMT_STR (CH$PTR (UPLIT ('notruncate')), 10);
	    EDT$$FMT_CRLF ();
	    END;

	[SHO_KEYPD] : 					! Show keypad
	    BEGIN

	    IF (.KPAD EQL 1)
	    THEN
		EDT$$FMT_STR (CH$PTR (UPLIT ('keypad')), 6)
	    ELSE
		EDT$$FMT_STR (CH$PTR (UPLIT ('nokeypad')), 8);
	    EDT$$FMT_CRLF ();
	    END;

	[SHO_WRAP] : 					! Show wrap
	    BEGIN

	    IF (.WD_WRAP EQL 256)
	    THEN
		EDT$$FMT_STR (CH$PTR (UPLIT('nowrap')), 6)
	    ELSE
		EDT$$FMT_DCML (.WD_WRAP);

	    EDT$$FMT_CRLF ();
	    END;

	[SHO_MODE] : 					! Show mode
	    BEGIN
!+
! The following code relies on there being 10 bytes for each edit mode
!  and also that they are stored 5 bytes/word  (ie. 10/20 only)
!-

	    BIND
		MODE_STRING = UPLIT('Change    Line      ') : BLOCKVECTOR [, 2];

	    EDT$$FMT_STR (CH$PTR (MODE_STRING [.EDIT_DFLTMOD, 0, 0, 0, 0]), 6);
	    EDT$$FMT_CRLF ();
	    END;

	[SHO_LINES] : 					! Show lines
	    BEGIN
	    EDT$$FMT_DCML (.SCR_LNS);
	    EDT$$FMT_CRLF ();
	    END;

	[SHO_QUIET] : 					! Show quiet
	    BEGIN

	    IF (.QUIET EQL 1)
	    THEN
		EDT$$FMT_STR (CH$PTR (UPLIT ('quiet')), 5)
	    ELSE
		EDT$$FMT_STR (CH$PTR (UPLIT ('noquiet')), 7);
	    EDT$$FMT_CRLF ();
	    END;

	[SHO_TAB] : 					! Show tab
	    BEGIN

	    IF (.TAB_SIZ EQL 0)
	    THEN
		BEGIN
		EDT$$FMT_STR (CH$PTR (UPLIT('notab')), 5);
		EDT$$FMT_CRLF ();
		END
	    ELSE
		BEGIN
		EDT$$FMT_STR (CH$PTR (UPLIT('tab size ')), 9);
		EDT$$FMT_DCML (.TAB_SIZ);
		EDT$$FMT_STR (CH$PTR (UPLIT('; tab level ')), 12);
		EDT$$FMT_DCML (.TAB_LVL);
		EDT$$FMT_CRLF ();
		END;

	    END;

	[SHO_REPT] : 					! Show repeat
	    BEGIN

	    IF (.RPT EQL 1)
	    THEN
		EDT$$FMT_STR (CH$PTR (UPLIT('repeat')), 6)
	    ELSE
		EDT$$FMT_STR (CH$PTR (UPLIT('norepeat')), 8);
	    EDT$$FMT_CRLF ();
	    END;

	[SHO_FNF] : 					! Show file_not_found
	    BEGIN

	    IF (.FNF_MSGFLG EQL 1)
	    THEN
		EDT$$FMT_STR (CH$PTR (UPLIT ('fnf')), 3)
	    ELSE
		EDT$$FMT_STR (CH$PTR (UPLIT ('nofnf')), 5);
	    EDT$$FMT_CRLF ();
	    END;

	[SHO_SUMM] : 					! show summary
	    BEGIN

	    IF (.SUMRY EQL 1)
	    THEN
		EDT$$FMT_STR (CH$PTR (UPLIT('summary')), 7)
	    ELSE
		EDT$$FMT_STR (CH$PTR (UPLIT('nosummary')), 9);

	    EDT$$FMT_CRLF ();
	    END;

	[SHO_PROMPT] : 					! Show Prompt
	    BEGIN

	    LOCAL
		LEN,				! Length of the string
		TXT,				! Address of string contents
		PROMPT_NUM;			! Which prompt string

	    PROMPT_NUM = .EXE_CURCMD [SET_VAL];
	    TXT = (CASE .PROMPT_NUM FROM SET_PLINE TO MAX_SET_PROMPT OF
		SET
		[SET_PLINE] : PMT_LINE;
		[SET_PKEY]  : PMT_KPD;
		[SET_PNKEY] : PMT_NOKPD;
		[SET_PHCCH] : PMT_HCCHG;
		[SET_PINS]  : PMT_INS;
		[SET_PNINS] : PMT_INSN;
		[SET_PQRY]  : PMT_QUERY;
		[OUTRANGE]  :
		    BEGIN
		    ASSERT (16, 0);
		    0
		    END;
		TES);
	    LEN = ..TXT;
	    EDT$$FMT_STR (CH$PTR (.TXT + 1,, BYTE_SIZE), .LEN);
	    EDT$$FMT_CRLF ();
	    END;

	[SHO_TEXT] : 					! show text
	    BEGIN

	    LOCAL
		LEN,
		TXT;

	    TXT = .US_TXT [.EXE_CURCMD [SET_VAL] - 1];
	    LEN = ..TXT;
	    EDT$$FMT_STR (CH$PTR (.TXT + 1,, BYTE_SIZE), .LEN);
	    EDT$$FMT_CRLF ();
	    END;

	[SHO_WORD] : 					! show word type
	    BEGIN

	    IF .WRDTYP
	    THEN
		EDT$$FMT_STR (CH$PTR (UPLIT('nodelimiter ')), 12)
	    ELSE
		EDT$$FMT_STR (CH$PTR (UPLIT('delimiter ')), 10);

	    EDT$$FMT_CRLF ();
	    END;

	[SHO_PARA] : 					! show word
	    BEGIN

	    IF .PARTYP
	    THEN
		EDT$$FMT_STR (CH$PTR (UPLIT('nowps ')), 6)
	    ELSE
		EDT$$FMT_STR (CH$PTR (UPLIT('wps ')), 4);

	    EDT$$FMT_CRLF ();
	    END;

	[SHO_HELP] : 					! Show Help File Name
	    BEGIN

	    LOCAL
		STATUS;

!+
! If the help file name has not been parsed, call SET HELP so
! that the resultant file name will appear in the message.
!-
	    STATUS = 1;

	    IF (.HELP_SET EQL 0)
	    THEN
		STATUS = EDT$$SET_HLPFNAM (CH$PTR (HELP_NAM), .HELP_NAMLEN);

	    IF (.STATUS)
	    THEN
		BEGIN
		EDT$$FMT_STR (CH$PTR (UPLIT ('Help file name : ')), 17);

		EDT$$FMT_STR (CH$PTR (HELP_NAM), .HELP_NAMLEN);

		EDT$$FMT_CRLF ();
		END;

	    END;

	[SHO_AUTO] : 					! show autorepeat
	    BEGIN

	    IF (.ENB_AUTRPT EQL 1)
	    THEN
		EDT$$FMT_STR (CH$PTR (UPLIT('autorepeat')), 10)
	    ELSE
		EDT$$FMT_STR (CH$PTR (UPLIT('noautorepeat')), 12);

	    EDT$$FMT_CRLF ();
	    END;

	[SHO_COMND] : 					! show command

	    BEGIN
	    IF (.CMD_NAM [DSC$A_POINTER] NEQ 0) THEN
		    EDT$$FMT_STR (CH$PTR (.CMD_NAM [DSC$A_POINTER]), .CMD_NAM [DSC$W_LENGTH]);
	    EDT$$FMT_CRLF ();
	    END;

	[SHO_FILES] :

	    BEGIN					! show input/output files
	    LOCAL
		LEN,
		TXT;

	    TXT = CH$PTR (.INP_NAM [DSC$A_POINTER]);
	    LEN = .INP_NAM [DSC$W_LENGTH];
	    EDT$$FMT_STR (CH$PTR (UPLIT ('Input  file: ')), 13);
	    IF (.LEN NEQ 0)
	    THEN
		EDT$$FMT_STR (.TXT, .LEN)
	    ELSE
		EDT$$FMT_STR (CH$PTR (UPLIT ('**Creating new file**')), 21);
	    EDT$$FMT_CRLF ();
	    EDT$$FMT_STR (CH$PTR (UPLIT ('Output file: ')), 13);
	    IF (.OUT_NAM [DSC$W_LENGTH] EQL 0)
	    THEN
		IF ((.OPTIONS AND EDT$M_NOOUTPUT) NEQ 0)
		THEN
		    EDT$$FMT_STR (CH$PTR (UPLIT ('**Readonly**')), 12)
		ELSE
		    EDT$$FMT_STR (.TXT, .LEN)
	    ELSE
		EDT$$FMT_STR (CH$PTR (.OUT_NAM [DSC$A_POINTER]), .OUT_NAM [DSC$W_LENGTH]);

	    EDT$$FMT_CRLF ();
	    END;

	[OUTRANGE] :
	    ASSERT (16, 0);

	TES;

    END;					! of routine EDT$$SHW_CMD


END
ELUDOM