Google
 

Trailing-Edge - PDP-10 Archives - BB-H138F-BM_1988 - 7-sources/edt.bli
There are 11 other files named edt.bli in the archive. Click here to see a list.
!GREEN:<EDT20.EDT>EDT.BLI 17-JUL-87 ,Edit by PERKINS
!EDIT 50, Don't delete more than one <CR> from the input file. This breaks
!	  recovery mode.  If the input line has 20 characters the <CR> that
!	  belongs in the text gets deleted.
!	  Fixes to IOMOD.BLI
!GREEN:<EDT20.EDT>EDT.BLI 15-APR-87 ,Edit by PERKINS
!EDIT 47, Set the command buffer point to the end of the command after the
!	  command is executed from a macro call.
!	  Fixes to MACCAL.BLI
!GREEN:<EDT20.EDT>EDT.BLI 01-Apr-87 ,Edit by PERKINS
!EDIT 46, Set the terminal width and length to zero so that the wrap around
!	  works correctly when displaying the help keypad on VT100's or later.
!	  Fixes to IOMOD.BLI.
!GREEN:<EDT20.EDT>EDT.BLI 1-APR-87      , Edit by PERKINS
!EDIT 45, Remove the part of edit 36 that changed TTBIN to TTATE.  It seems
!	  that TOPS-20 V6.1 fixed the problem with 7 bit terminals. But with
!	  the TTBIN changed to TTATE 7 bit terminals don't work with V6.1.
!	  On KS's running V4.1, 7 bit terminals don't seem to be affected
!	  with or with out the patch.  Also with edit 36, PUSHing and POPing
!	  back (in CHANGE mode) into EDT screws up the wrap around.
!	  Fixes to IOMOD.BLI.
!GREEN:<EDT20.EDT>EDT.BLI 26-MAR-87      , Edit by PERKINS
!EDIT 44, Fixes to SETCOMMAN.BLI for reading EDTINI.EDT
!	  from the users loing directory.
!GREEN:<EDT20.EDT>EDT.BLI 10-NOV-86 11:20, Edit by PERKINS
!EDIT 43, Fix XDDT command parsing. Fixes to PARDATA.REQ 
!GREEN:<EDT20.EDT>EDT.BLI.7 24-Feb-86 15:59:11, Edit by MERRILL
!EDIT 42, Add VT200 type to type table in IOMOD.
!GREEN:<ZBRAD.20784>EDT.BLI.2  9-Jan-86 11:35:15, Edit by MERRILL
!EDIT 41, If user types REENTER, give them a reasonable error message.
!	  Fixes to COMAND.MAC
!GREEN:<ZBRAD.20981>EDT.BLI.2 25-Nov-85 12:46:20, Edit by MERRILL
!EDIT 40, if an error occurs during write, delete tmp output file
!	  Fixes to LWRITE
!GREEN:<ZBRAD.CS00066>EDT.BLI.2 25-Nov-85 11:24:17, Edit by MERRILL
!Edit 37, Fixes to HELP.BLI
!GREEN:<ZBRAD.20808>EDT.BLI.2 20-Nov-85 13:40:41, Edit by MERRILL
!Edit 36, Fixes to IOMOD and DATA.
!GREEN:<ZBRAD.20790>EDT.BLI.2  4-Nov-85 13:52:51, Edit by MERRILL
!Edit 35, Fixes up SETCOMMAN, and PRFILE.
%TITLE	'EDT - STARTUP MODULE'
MODULE EDT (
		IDENT = '1-005',		! File: EDT.B36 Edit: GB1005
		MAIN = EDIT$,
		VERSION = '1(50)'		! EDT's version number
		) =
BEGIN
!
! COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 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 WHICH IS NOT SUPPLIED BY DIGITAL.
!

!++
! FACILITY:	EDT -- The DEC Standard Editor
!
! ABSTRACT:
!
!	This is the startup module for EDT
!
! ENVIRONMENT:	Runs on TOPS20
!
! AUTHOR: Chris Gill, CREATION DATE: 13-Jun-1983
!
! MODIFIED BY:
!
! 1-001 - Original. This module was created by combining MAIN and STARTEDT
!	  both modified for TOPS20 operation. CJG 13-Jun-1983
! 1-002 - Move EDT$$PA_CMDLN to INIT to prevent parsed data being lost. CJG 27-Jun-1983
! 1-003 - Deal with the CREATE command (EDT$M_NEWFILE). CJG 12-Jul-1983
! 1-004 - Add EDT$$GET_LOGDIR so that we search the login directory. CJG 7-Oct-1983
! 1-005 - Add a VERSION parameter to the MODULE declaration. GB 19-Jul-1984
!--

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

REQUIRE 'EDTSRC:TRAROUNAM';

FORWARD ROUTINE
    EDIT$;

!
! INCLUDE FILES:
!

REQUIRE 'EDTSRC:EDTREQ';

!
! MACROS:
!
!	NONE
!

!<BLF/FORMAT>
!
! EQUATED SYMBOLS:
!

EXTERNAL LITERAL
    EDT$M_NOCREATE,
    EDT$M_NOJOURNAL,
    EDT$M_COMMAND,
    EDT$M_NOCOMMAND,
    EDT$M_NEWFILE,
    EDT$K_OPEN_IN_OUT,
    EDT$K_OPEN_INPUT,
    EDT$K_INPUT_FILE,
    EDT$K_JOURNAL_FILE,
    EDT$K_OPEN_OUTPUT_NOSEQ,
    EDT$K_COMMAND_FILE,
    EDT$K_CLOSE;

!
! OWN STORAGE:
!
!	NONE
!
! EXTERNAL REFERENCES:
!
! Inside the routine.
!-
%SBTTL 'EDIT$ - set up and call EDT'
ROUTINE EDIT$ 				! set up and call EDT
    =

!++
! FUNCTIONAL DESCRIPTION:
!
!	The main entry point for the editor.
!
! FORMAL PARAMETERS:
!
!	NONE
!
! IMPLICIT INPUTS:
!
!	NONE
!
! IMPLICIT OUTPUTS:
!
!	INP_NAM
!	OUT_NAM
!	CMD_NAM
!	COM_NAM
!	JOU_NAM
!	LASTMSG
!	CMD_BUF
!	CMD_END
!
! ROUTINE VALUE:
!
!	Normally 1 or EDT$_EDITORABO
!
! SIDE EFFECTS:
!
!	Performs an edit.
!
! NOTES:
!
!	OPTIONS
!		bit 0 = /RECOVER
!		bit 1 = /COMMAND
!		bit 2 = /NOJOURNAL
!		bit 3 = /NOOUTPUT
!		bit 4 = /NOCOMMAND
! 		bit 5 = /NOCREATE
!		bit 6 = CREATE command
!--

    BEGIN


    EXTERNAL ROUTINE
	EDT$$SYS_EXI,			! Return to system (with status)
	EDT$FILEIO,			! Perform file io
	EDT$$EXE_CMD,			! Execute a command
	EDT$$TERMIN_RCOVMOD : NOVALUE,	! Handle end of journal file during /RECOVER
	EDT$$INIT,			! Do the initial processing
	EDT$$TERMIN,			! Do the final processing
	EDT$$FIOPN_ERR : NOVALUE,	! Print a message about a file error, with file name
	EDT$$TY_CURLN,			! Type out the current line
	EDT$$FMT_MSG : NOVALUE,		! Format and print a message
	EDT$$GET_LOGDIR : NOVALUE,	! Get login directory and device
	EDT$$SET_COMFNAM;		! Open and close command files


    EXTERNAL
	CMD_NAM : BLOCK,		! Command file name
	OUT_NAM : BLOCK,		! Output file name
	INP_NAM : BLOCK,		! input file name
	JOU_NAM : BLOCK,		! Name of journal file
	CMD_NAM_DEF1 : REF BLOCK,	! First default command spec
	CMD_NAM_DEF2 : REF BLOCK,	! Second default command spec
	CMD_DFLT : REF BLOCK,		! Alternative form of CMD_NAM_DEF2
	EXITD,				! Did we exit with the last command?
	RCOV_MOD,			! do a recovery flag
	EDIT_MOD,			! Current editing mode
	EDIT_DFLTMOD,			! Default editing mode
	FNF_MSGFLG,			! File not found message flag
	IOFI_NFND,			! 1 = open failed due to file not found
	OPTIONS : BITVECTOR [36],	! Options bits
	LASTMSG,			! Message for change mode to print
	CMD_PTR,			! Pointer to current location in command buffer
	CMD_BUF,			! Command buffer
	CMD_END,			! Pointer to end of command buffer
	CC_DONE;			! 1 = control C actually aborted something

    MESSAGES ((COMFILNEX, COMFILNOP, COMFILCLO, NOJNLFIL, INPFILNEX,
	ABOBYCC, CTRC__IGN, EDITORABO));

    LOCAL
	STATUS,
	PRIMARY_FILE_CONDITION,
	STRING_LENGTH;

!+
! Do the initial processing.
!-

    PRIMARY_FILE_CONDITION = EDT$$INIT ();

!+
! If initialization failed, abort right now.
!-

    IF (.PRIMARY_FILE_CONDITION EQL 3) THEN EDT$$SYS_EXI (EDT$_EDITORABO);

!+
! If /NOCREATE was specified then exit if file was not found
!-

    IF ((.PRIMARY_FILE_CONDITION EQL 0) AND ((.OPTIONS AND EDT$M_NOCREATE) NEQ 0))
    THEN
	BEGIN
	IF .FNF_MSGFLG THEN EDT$$FMT_MSG (EDT$_INPFILNEX);
	EDT$$SYS_EXI (-1);
	END;

!+
! Open the journal file.  If recovery was specified, open it so we can read
! from it.
!-

    IF .RCOV_MOD
    THEN
	BEGIN
	STATUS = EDT$FILEIO (EDT$K_OPEN_IN_OUT, EDT$K_JOURNAL_FILE, JOU_NAM);

	IF ( NOT .STATUS)
	THEN
	    BEGIN
	    EDT$$FIOPN_ERR (EDT$_NOJNLFIL, JOU_NAM);
	    EDT$$SYS_EXI (EDT$_NOJNLFIL);
	    END;

	END
    ELSE
!+
! We are not in recovery mode; just open the journal file for write.
!-

	IF ((.OPTIONS AND EDT$M_NOJOURNAL) EQL 0)	! NOT /NOJOURNAL
	THEN
	    BEGIN
	    STATUS = EDT$FILEIO (EDT$K_OPEN_OUTPUT_NOSEQ, EDT$K_JOURNAL_FILE, JOU_NAM);
	    END;

!+
! Make sure the journal file was opened.
!-

    IF (( NOT .STATUS) AND (.OPTIONS AND EDT$M_NOJOURNAL) EQL 0)
    THEN
	BEGIN
	EDT$$FIOPN_ERR (EDT$_NOJNLFIL, JOU_NAM);
	EDT$$SYS_EXI (EDT$_NOJNLFIL);
	END;

!+
! Execute the startup file, if one was provided.  The startup file is always executed
! in line mode.
!-
    EDIT_MOD = LINE_MODE;

    IF ((.OPTIONS AND EDT$M_NOCOMMAND) EQL 0)
    THEN
	BEGIN

	IF (.CMD_NAM [DSC$W_LENGTH] EQL 0)
	THEN
	    BEGIN
!+
! No command file name was provided, use the default.  Note that there are
! two default names; if the first is not found we try the second.
!-
	    STATUS = EDT$$SET_COMFNAM (CMD_NAM_DEF1);

	    IF ( NOT .STATUS)
	    THEN
		BEGIN
		STATUS = EDT$$SET_COMFNAM (CMD_NAM_DEF2);

		IF ( NOT .STATUS)
		THEN
		    BEGIN
		    EDT$$GET_LOGDIR (CMD_DFLT, CMD_NAM);
		    STATUS = EDT$$SET_COMFNAM (CMD_NAM);
		    END;
		END;
	    END
	ELSE
	    STATUS = EDT$$SET_COMFNAM (CMD_NAM);

	IF .STATUS
	THEN
	    BEGIN

	    IF (EDT$$EXE_CMD (INP_COMMAND) EQL 2)
	    THEN
		BEGIN
!+
! The startup file was terminated by control C.
!-

		IF .CC_DONE THEN EDT$$FMT_MSG (EDT$_ABOBYCC) ELSE EDT$$FMT_MSG (EDT$_CTRC__IGN);

		CMD_PTR = CH$PTR (CMD_BUF, 0, BYTE_SIZE);
		CMD_END = .CMD_PTR;
!+
! Make sure we stay in line mode so the message is visible.
!-
		EDIT_DFLTMOD = LINE_MODE;
		END;

	    END
	ELSE

	    IF ((.OPTIONS AND EDT$M_COMMAND) NEQ 0)
	    THEN
		BEGIN
		EDT$$FIOPN_ERR (IF .IOFI_NFND
				THEN EDT$_COMFILNEX
				ELSE EDT$_COMFILNOP, CMD_NAM);
		EDT$$SYS_EXI (EDT$_COMFILNOP)
		END;

	END;

!+
! Make sure the command file is closed, and the name is null.
!-
    STATUS = EDT$$SET_COMFNAM (0);		! Close the command file

    IF ( NOT .STATUS) THEN EDT$$SYS_EXI (EDT$_COMFILCLO);

!+
! Use the default mode setting.
!-

    EDIT_MOD = .EDIT_DFLTMOD;

!+
! Give an error message if the primary file was not found or does not have standard format.
! unless we are about to enter change mode, in which case defer the message.
! The message is not needed if the original command was CREATE.
!-

    IF ((.OPTIONS AND EDT$M_NEWFILE) EQL 0)
    THEN
	BEGIN

	CASE .PRIMARY_FILE_CONDITION FROM 0 TO 2 OF
	    SET

	    [0] :

		IF (.EDIT_MOD EQL LINE_MODE)
		THEN
		    BEGIN

		    IF .FNF_MSGFLG THEN EDT$$FMT_MSG (EDT$_INPFILNEX);

		    END
		ELSE

		    IF .FNF_MSGFLG THEN LASTMSG = EDT$_INPFILNEX;

	    [1] :
		BEGIN
		0
		END;

	    [2] :
		BEGIN
		0
		END;

	    TES;

	END;

!+
! If we are in recovery mode, execute the remainder of the journal file.
! (Part of the journal file may have been used to respond to SUBSTITUTE/QUERY
! commands in the startup file.)
!-

    IF (.RCOV_MOD)
    THEN
	BEGIN
	IF (EDT$$EXE_CMD (INP_JOURNAL) EQL 2)
	THEN
	    BEGIN
!+
! The recovery process was interrupted by a control C.  Bail out.
!-

	    IF .CC_DONE THEN RETURN (EDT$_ABOBYCC) ELSE EDT$$SYS_EXI (EDT$_CTRC__IGN);

	    END;

	EDT$$TERMIN_RCOVMOD ();
	END;

!+
! If we are in line mode, then print the current line.
!-

    IF (.EDIT_MOD EQL LINE_MODE)
    THEN
	BEGIN
	EDT$$TY_CURLN ();
	END;

!+
! And execute the main stream of commands.
!-

    EDT$$EXE_CMD (INP_TERM);

!+
! Do the finalization processing.
!-

    EDT$$TERMIN ();

    RETURN (1);
    END;					! of routine EDIT$

END						! of module EDT

ELUDOM