Google
 

Trailing-Edge - PDP-10 Archives - BB-H138F-BM_1988 - 7-sources/lquery.bli
There are 10 other files named lquery.bli in the archive. Click here to see a list.
 %TITLE 'LQUERY - do /QUERY processing'
MODULE LQUERY (				! Do /QUERY processing
		IDENT = '3-002'			! File: LQUERY.BLI Edit: CJG3002
		) =
BEGIN
!COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1981, 1988.  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 THAT IS NOT SUPPLIED BY DIGITAL.
!
!
!++
! FACILITY:	EDT -- The DEC Standard Editor
!
! ABSTRACT:
!
!	This module handles the user interface of the /QUERY
!	option on various line mode commands, such as SUBSTITUTE.
!
! ENVIRONMENT:	Runs at any access mode - AST reentrant
!
! AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978
!
! MODIFIED BY:
!
! 1-001	- Original.  DJS 02-FEB-1981.  This module was created by
!	extracting the routine EDT$$PROC_QRYQAL  from the module EXEC.BLI.
! 1-002	- Regularize headers.  JBS 20-Mar-1981
! 1-003	- Use the ASSERT macro and fix up some comments mangled by converting QUERY
!	   to EDT$$PROC_QRYQAL .  JBS 01-Jun-1981
! 1-004	- Revise journaling.  JBS 22-Jun-1981
! 1-005	- Use new message codes.  JBS 04-Aug-1981
! 1-006	- Make empty responses illegal.  JBS 16-Aug-1981
! 1-007	- Prompt from a global.  JBS 23-Oct-1981
! 1-008	- Use heap storage instead of the stack to hold the constructed
!	   line.  JBS 27-Jan-1982
! 1-009	- Add a missing dot.  JBS 28-Jan-1982
! 1-010	- Add JOU_VALID.  JBS 09-Apr-1982
! 1-011	- Refresh the screen after a query.  JBS 05-Jul-1982
! 1-012	- If the journal file ends at a query response, treat the response
!	   as "Q", to return to command level.  Note that the "Q" must
!	   be journaled.  JBS 10-Jul-1982
! 3-001 - Fix various string pointers and add BYTE_SIZE for larger than
!	  7 bit bytes.  GB 1-Mar-1983
! 3-002 - Clear CC in case the user tried to ^C out. CJG 5-Jan-1984
!--

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

REQUIRE 'EDTSRC:TRAROUNAM';

FORWARD ROUTINE
    EDT$$PROC_QRYQAL;				! Process the EDT$$PROC_QRYQAL  qualifier

!
! INCLUDE FILES:
!

REQUIRE 'EDTSRC:EDTREQ';

!
! MACROS:
!
!	NONE
!
! EQUATED SYMBOLS:
!

LITERAL
    QUERY_LEN = 80,
    LINE_LEN = LIN_FIXED_SIZE*BYTES_PER_WORD + 255;

!
! OWN STORAGE:
!
!	NONE
!
! EXTERNAL REFERENCES:
!
!	In the routine
%SBTTL 'EDT$$PROC_QRYQAL  - do /QUERY processing'

GLOBAL ROUTINE EDT$$PROC_QRYQAL (		! Do /QUERY processing
    WPTR, 					! Used to reconstruct line for SUBSTITUTE
    WEND					! Used to reconstruct line for SUBSTITUTE
    ) =

!++
! FUNCTIONAL DESCRIPTION:
!
!	EDT$$PROC_QRYQAL  processing routine.  This routine is called before operating on
!	each line by those commands which can take a /QUERY qualifier.
!
!	The options bits are checked to see if the /QUERY qualifier was used.
!	If not the routine returns success immediately.  If it was specified,
!	then the user is prompted for verification.  The actions for each
!	possible answer are:
!
!		Y - Return a 1 to indcate operation should be performed.
!		N - Return a 0 to indicate operation should not be performed.
!		Q - The global flag EXE_QRYQUIT  is set to stop further processing.
!		A - The /QUERY option bit is cleared so no more queries are done.
!
!	If the answer is not one of the above, then a message is displayed and the
!	user is prompted again.
!
! FORMAL PARAMETERS:
!
!  WPTR			Used to reconstruct line for SUBSTITUTE, 0 otherwise
!
!  WEND			Used to reconstruct line for SUBSTITUTE, 0 otherwise
!
! IMPLICIT INPUTS:
!
!	RCOV_MOD
!	LN_BUF
!	LN_LEN
!	WK_LN
!	EXE_QRYQUIT
!	EXE_SBITS
!	PMT_QUERY
!
! IMPLICIT OUTPUTS:
!
!	JOU_VALID
!
! ROUTINE VALUE:
!
!	1 = do the operation
!	0 = don't do the operation
!
! SIDE EFFECTS:
!
!	NONE
!
!--

    BEGIN

    EXTERNAL ROUTINE
	EDT$$FMT_MSG,			! Place the text of a message in the format buffer
	EDT$$RD_CMDLN,			! Read a command line
	EDT$$RD_JOUTXT,			! Read a text record from the journal file
	EDT$$TI_FLUSHJOUFI : NOVALUE,	! Write current journal buffer on journal file
	EDT$$TI_BUFCH : NOVALUE,	! Store a character in the journal buffer
	EDT$$CNV_UPC,			! Convert to upper case
	EDT$$TY_CURLN,			! Display the current line
	EDT$$ALO_HEAP,			! Allocate heap storage
	EDT$$DEA_HEAP : NOVALUE,	! Deallocate heap storage
	EDT$$FMT_CRLF;			! Terminate a formatted line

    EXTERNAL
	RCOV_MOD,
	LN_BUF : VECTOR [CH$ALLOCATION (255, BYTE_SIZE)],
	LN_LEN,
	WK_LN : REF LIN_BLOCK,
	CC,				! Control-C flag
	EXE_QRYQUIT,			! Quit flag  for /QUERY operations.
	EXE_SBITS,			! The options switches.
	PMT_QUERY : VECTOR,		! Counted ASCII string for /QUERY prompt
	JOU_VALID,			! 1 = journal record is valid
	FMT_BOT;			! We are printing at the bottom of the screen

    MESSAGES ((PLSANSYNQ, INSMEM));

    LOCAL
	QUERY_RESP : REF BLOCK [CH$ALLOCATION (QUERY_LEN)],
	QUERY_RESP_PTR,			! String ptr to response
	QUERY_RESP_COMPLETE,		! 1 = response is complete
	RET_VAL,			! Return value
	LEN,
	SW_LINE,			! Save WK_LN
	IN,				! Input char ptr
	OUT,				! Output char ptr
	WLEN,				! Length of rest of line
	L_WPTR,				! Local copy of WPTR
	T_LINE : REF LIN_BLOCK;		! Current line with substitutions

!+
! Check for the /QUERY bit.  If it is clear then return 1.
!-

    IF .EXE_SBITS<OPB_QUERY>
    THEN
	BEGIN
!+
! Display the line so the user can see what he is verifying.
!-

	IF (.WPTR EQL 0)
	THEN
	    EDT$$TY_CURLN ()
	ELSE
!+
! During a SUBSTITUTE command, the current line is in various
! pieces which are here reconstructed so that any substitution
! already made on the line are shown.
!-
	    BEGIN
!+
! Allocate enough space for a maximum-length line.
!-

	    IF EDT$$ALO_HEAP (%REF (LINE_LEN), T_LINE)
	    THEN
		BEGIN
!+
! Initialize the description for the line to be constructed.
!-
		EDT$$CPY_MEM (LIN_FIXED_SIZE, .WK_LN, .T_LINE);
!+
! Copy the line up to the last substitution.
!-
		IN = CH$PTR (LN_BUF, 0, BYTE_SIZE);
		OUT = CH$PTR (T_LINE [LIN_TEXT], 0, BYTE_SIZE);

		DECR I FROM .LN_LEN - 1 TO 0 DO
		    CH$WCHAR_A (CH$RCHAR_A (IN), OUT);

!+
! Copy the current line from the last match to the end.
!-
		WLEN = CH$DIFF (.WEND, .WPTR);

		IF ((.LN_LEN + .WLEN) GTR 255) THEN WLEN = MAX (0, 255 - .LN_LEN);

		L_WPTR = .WPTR;

		DECR I FROM .WLEN - 1 TO 0 DO
		    CH$WCHAR_A (CH$RCHAR_A (L_WPTR), OUT);

!+
! Fixup the description of the fake current line.
!-
		T_LINE [LIN_LENGTH] = .LN_LEN + .WLEN;
!+
! Type the line.
!-
		SW_LINE = .WK_LN;	! Save the current line description
		WK_LN = .T_LINE;		! Make the constructed line the current one
		EDT$$TY_CURLN ();		! Format and output this line
		WK_LN = .SW_LINE;	! Restore the current line description
!+
! Deallocate the heap storage used to hold the line.
!-
		EDT$$DEA_HEAP (%REF (LINE_LEN), T_LINE);
		END
	    ELSE
		BEGIN
!+
! There is not enough heap storage to print the line.  Don't do this operation
! and stop the whole command.  Also, give an appropriate error message.
!-
		EDT$$FMT_MSG (EDT$_INSMEM);	! Give an appropriate error message
		EXE_QRYQUIT = 1;		! Stop the command
		RETURN (0);			! Don't do this substitution
		END;

	    END;

!+
! Allocate space to hold the response to the query.
!-

	IF ( NOT EDT$$ALO_HEAP (%REF (QUERY_LEN), QUERY_RESP))
	THEN
	    BEGIN
!+
! There is not enough storage to accept the response.  Don't do this
! operation and stop the whole command.  Also, give an appropriate error message.
!-
	    EDT$$FMT_MSG (EDT$_INSMEM);		! Give an appropriate message
	    EXE_QRYQUIT = 1;			! Stop the command
	    RETURN (0);				! Don't do this substitution
	    END;

	QUERY_RESP_COMPLETE = 0;
	QUERY_RESP_PTR = CH$PTR (.QUERY_RESP,, BYTE_SIZE);

	WHILE ( NOT .QUERY_RESP_COMPLETE) DO
	    BEGIN
!+
! Get the line from either the terminal or the journal file.
!-

	    IF .RCOV_MOD
	    THEN
		BEGIN

		IF ( NOT EDT$$RD_JOUTXT (.QUERY_RESP, LEN))
		THEN
		    BEGIN
!+
! We have reached the end of the journal file.  Fake a "Q" response so that
! we will terminate this command without making any more changes to the buffer.
!-
		    LEN = 1;
		    CH$WCHAR (%C'Q', .QUERY_RESP_PTR);
!+
! We must journal the fake response, in case we do another /RECOVER during this session.
!-
		    EDT$$TI_BUFCH (CH$RCHAR (.QUERY_RESP_PTR));
		    JOU_VALID = 1;
		    END;

		END
	    ELSE
		BEGIN
!+
! Make sure the journal buffer has been written to the journal file,
! since we are about to wait for terminal input.
!-
		EDT$$TI_FLUSHJOUFI (%C'T');
!+
! If all the text is being concentrated at the bottom of the screen, then be sure we are prompting
! on a blank line.
!-

		IF .FMT_BOT THEN EDT$$FMT_CRLF ();

		EDT$$RD_CMDLN (PMT_QUERY [1], .PMT_QUERY [0], .QUERY_RESP, LEN, QUERY_LEN);
!+
! Make sure the response is journaled.  Only the first character of the response is journaled
! because only the first character is important.
!-

		IF (.LEN GEQ 1) THEN EDT$$TI_BUFCH (CH$RCHAR (.QUERY_RESP_PTR));

		JOU_VALID = 1;
		END;

!+
! Check out the answer.
!-

	    IF (.LEN LSS 1)
	    THEN
		BEGIN
		CC = 0;
		EDT$$FMT_MSG (EDT$_PLSANSYNQ);
		END
	    ELSE
		BEGIN
		EDT$$CNV_UPC (.QUERY_RESP_PTR, 1);

		SELECTONE CH$RCHAR (.QUERY_RESP_PTR) OF
		    SET

		    [%C'Y'] :
			BEGIN
			RET_VAL = 1;
			QUERY_RESP_COMPLETE = 1;
			END;

		    [%C'N'] :
			BEGIN
			RET_VAL = 0;
			QUERY_RESP_COMPLETE = 1;
			END;

		    [%C'A'] :
			BEGIN
			EXE_SBITS<OPB_QUERY> = 0;
			RET_VAL = 1;
			QUERY_RESP_COMPLETE = 1;
			END;

		    [%C'Q'] :
			BEGIN
			EXE_QRYQUIT = 1;
			RET_VAL = 0;
			QUERY_RESP_COMPLETE = 1;
			END;

		    [OTHERWISE] :
			EDT$$FMT_MSG (EDT$_PLSANSYNQ);
		    TES;

		END;

	    END;

!+
! Come here when the query response is complete.  RET_VAL contains the
! value to return.  Deallocate the heap storage used to hold the responses
! to the query.
!-
	EDT$$DEA_HEAP (%REF (QUERY_LEN), QUERY_RESP);
	END
    ELSE
	RET_VAL = 1;

    RETURN (.RET_VAL);
    END;					! of routine EDT$$PROC_QRYQAL


END
ELUDOM