Google
 

Trailing-Edge - PDP-10 Archives - BB-R775C-BM - sources/tichar.bli
There are 10 other files named tichar.bli in the archive. Click here to see a list.
 %TITLE 'TICHAR - input a character'
MODULE TICHAR (				! Input a character
		IDENT = '3-003'			! File: TICHAR.BLI Edit: CJG3003
		) =
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:
!
!	Input a character.
!
! ENVIRONMENT:	Runs at any access mode - AST reentrant
!
! AUTHOR: Bob Kushlis, CREATION DATE: June 9, 1979
!
! MODIFIED BY:
!
! 1-001	- Original.  DJS 18-FEB-1981.  This module was created by
!	extracting routine EDT$$TI_INPCH  from module TINPUT.
! 1-002	- Regularize headers.  JBS 10-Mar-1981
! 1-003	- Revise journaling.  JBS 22-Jun-1981
! 1-004	- Fix reading journal file.  JBS 08-Jul-1981
! 1-005	- Don't flush the journal record in the middle of an escape sequence.
!	   JBS 08-Jul-1981
! 1-006	- Return 0 if the journal file ends.  JBS 01-Oct-1981
! 1-007	- Use the global prompt string, if specified.  JBS 21-Oct-1981
! 1-008	- Remove length of prompt string.  JBS 23-Oct-1981
! 1-009	- Revise autorepeat logic, putting it in a subroutine.  JBS 30-Jan-1982
! 1-010	- Flush the terminal buffer after turning off Autorepeat.
!	   JBS 31-Jan-1982
! 1-011	- Add JOU_VALID.  JBS 09-Apr-1982
! 1-012	- Allow for 8-bit keyboards.  JBS 17-Aug-1982
! 1-013	- Add SS3 for 8-bit keyboards.  JBS 20-Aug-1982
! 1-014	- Revise read-ahead logic.  JBS 02-Sep-1982
! 1-015 - Don't write out to the journal file here. 07-Oct-1982
! 1-016	- Add VT220 support conditional.  JBS 11-Feb-1983
! 3-001 - Make argument to FLUSHJOUFI %C.  GB 08-Mar-1983
! 3-002 - Remove VT220 conditional to speed up code. CJG 25-Nov-1983
! 3-003 - Check for VT52 and clear parity bit if it is a VT52. CJG 26-Jan-84
!--

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

REQUIRE 'EDTSRC:TRAROUNAM';

FORWARD ROUTINE
    EDT$$TI_INPCH;

!
! INCLUDE FILES:
!

REQUIRE 'EDTSRC:EDTREQ';

LIBRARY 'EDTSRC:TRANSLATE';

!
! MACROS:
!
!	NONE
!
! EQUATED SYMBOLS:
!
!	NONE
!
! OWN STORAGE:
!
!	NONE
!
! EXTERNAL REFERENCES:
!
!	In the routine
%SBTTL 'EDT$$TI_INPCH  - input a character'

GLOBAL ROUTINE EDT$$TI_INPCH (			! Input a character
    BUF						! Where to store character
    ) =

!++
! FUNCTIONAL DESCRIPTION:
!
!	This routine gets the next character from input.  If recovery mode is on
!	then the character is read from the journal file.   If not, then we check
!	to see if the character was read previously, and take it from the type-
!	ahead character; otherwise, we read a chraracter from the terminal.  If the
!	character is not coming from the journal file, it is written to it.
!
! FORMAL PARAMETERS:
!
!  BUF 			the address of a fullword in which the character is returned.
!
! IMPLICIT INPUTS:
!
!	RCOV_MOD
!	K_AUTRPT
!	TIN_IRECEND
!	RDAHEDBF
!	RDAHED
!	TIN_INREC
!	TIN_IBUFPTR
!	PMT_KPD
!	PMT_NOKPD
!	KPAD
!
! IMPLICIT OUTPUTS:
!
!	TIN_IRECLEN
!	RDAHED
!	TIN_IBUFPTR
!	JOU_VALID
!
! ROUTINE VALUE:
!
!	1 = got a character, 0 = end of journal file
!
! SIDE EFFECTS:
!
!	May turn off auto-repeat.
!
!--

    BEGIN

    EXTERNAL ROUTINE
	EDT$$RD_JOUTXT,				! Read a text record from the journal file
	EDT$$OUT_FMTBUF,
	EDT$$FMT_LIT,
	EDT$$TI_GETCH,
	EDT$$TI_BUFCH : NOVALUE,
	EDT$$TI_ENBLAUTREP : NOVALUE;		! Enable and disable autorepeat

    EXTERNAL
	RCOV_MOD,			! Recovery mode flag
	K_AUTRPT,			! Auto repeat flag
	RDAHED,				! Type ahead counter
	RDAHEDBF,			! Type ahead buffer
	TIN_IBUFPTR : REF VECTOR,	! Pointer into journal input buffer
	TIN_IRECLEN,			! Length of journal input record
	TIN_INREC,			! Journal input record buffer
	TIN_IRECEND,			! Pointer to end of journal input buffer
	PMT_KPD : VECTOR,		! Counted ASCII string for keypad mode prompt
	PMT_NOKPD : VECTOR,		! Counted ASCII string for nokeypad mode prompt
	KPAD,				! 1 = keypad change mode, 0 = nokeypad change mode
	TI_TYPE,			! Terminal type
	JOU_VALID,			! 1 = journal record is valid
	CHAR_INFO : BLOCKVECTOR [256, 1];	! Information about characters

!+
! Check for recovery mode.
!-

    IF .RCOV_MOD
    THEN
	BEGIN

!+
! Make sure we have a character in the buffer.
!-

	WHILE (CH$PTR_EQL (.TIN_IBUFPTR, .TIN_IRECEND) OR (.TIN_IBUFPTR EQL 0)) DO
	    BEGIN

!+
! No characters left, try to read a new record from the journal
! file.
!+

	    IF EDT$$RD_JOUTXT (TIN_INREC, TIN_IRECLEN)
	    THEN
		BEGIN
		TIN_IRECEND = CH$PTR (TIN_INREC, .TIN_IRECLEN, BYTE_SIZE);
		TIN_IBUFPTR = CH$PTR (TIN_INREC, 0, BYTE_SIZE);
		END
	    ELSE

!+
! No more records in the journal file, arrange to return to the root.
!-

		RETURN (0);

	    END;

!+
! Return next character from the journal buffer.
!-

	.BUF = CH$RCHAR_A (TIN_IBUFPTR);
	END
    ELSE

!+
! Not in recovery mode, check for type ahead.
!-

	BEGIN

!+
! If there are any characters in the type-ahead buffer, use the first.
! Otherwise block waiting for the user to type something.
!-

	IF (.RDAHED GTR 0)
	THEN
	    BEGIN

!+
! Return the oldest typed ahead character, and shuffle the buffer.
!-

	    RDAHED = .RDAHED - 1;
	    .BUF = CH$RCHAR (CH$PTR (RDAHEDBF,, BYTE_SIZE));

	    IF (.RDAHED GTR 0)		!
	    THEN
		CH$MOVE (.RDAHED, CH$PTR (RDAHEDBF, 1, BYTE_SIZE),
				  CH$PTR (RDAHEDBF, 0, BYTE_SIZE));

	    END
	ELSE
	    BEGIN

!+
! Read the character from the terminal.  Prompt first if requested.
!-

	    LOCAL
		PROMPT_ADDR : REF VECTOR [8];

	    PROMPT_ADDR = (IF .KPAD THEN PMT_KPD ELSE PMT_NOKPD);

	    IF (.PROMPT_ADDR [0] GTR 0)
	    THEN
		BEGIN
		EDT$$FMT_LIT (CH$PTR (PROMPT_ADDR [1],, BYTE_SIZE), .PROMPT_ADDR [0]);
		EDT$$OUT_FMTBUF ();
		END;

	    EDT$$TI_GETCH (.BUF);
	    END;

!+
! Make sure the character is journaled.
!-

	IF (.TI_TYPE EQL TERM_VT52) THEN .BUF = ..BUF AND %O'177';
	EDT$$TI_BUFCH (..BUF);
	JOU_VALID = 1;

!+
! If the character was an escape, CSI or SS3, turn auto-repeat off.
! This also disables dumping the journal buffer, so that a
! journal record can contain an entire escape or control sequence.
!-

	IF .CHAR_INFO [..BUF, CI_ESC]
	THEN
	    BEGIN
	    EDT$$TI_ENBLAUTREP (0);
	    EDT$$OUT_FMTBUF ();
	    END;

	END;

    RETURN (1);
    END;					! of routine EDT$$TI_INPCH


END
ELUDOM