Google
 

Trailing-Edge - PDP-10 Archives - BB-H138F-BM_1988 - 7-sources/chmspllin.bli
There are 11 other files named chmspllin.bli in the archive. Click here to see a list.
 %TITLE 'CHMSPLLIN - split line'
MODULE CHMSPLLIN (				! Split line
		IDENT = '3-001'			! File: CHMSPLLIN.BLI Edit: GB3001
		) =
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 splits a line of text at the current cursor position.
!
! ENVIRONMENT:	Runs at any access mode - AST reentrant
!
! AUTHOR: Bob Kushlis, CREATION DATE: Unknown
!
! MODIFIED BY:
!
! 1-001	- Original.  DJS 04-Feb-1981.  This module was created by
!	extracting the routines EDT$$SPLT_LN  and SPLIT_LINE from
!	module CHANGE.BLI.
! 1-002	- Regularize headers.  JBS 03-Mar-1981
! 1-003	- Change SPLIT_LINE to EDT$$SPLT_LNINS .  JBS 27-Mar-1981
! 1-004	- Use the ASSERT macro.  JBS 01-Jun-1981
! 1-005	- EDT$$SEL_RNGPOS  has 3 values.  JBS 02-Jun-1981
! 1-006	- New screen update logic.  JBS 13-Sep-1982
! 1-007	- Remove EDT$$G_LN_NO for new screen update logic.  JBS 29-Sep-1982
! 1-008 - Make code dependent on length of inserted line.  SMB 16-Nov-1982
! 1-009 - Reorganize to fix bugs in line numbering.  SMB 17-Nov-1982
! 1-010	- Save the end of the old line in heap storage rather than
!	   on the stack.  Saving it on the stack uses too much
!	   stack on the PDP-11.  JBS 18-Nov-1982
! 1-011	- Change the call to EDT$$MRK_LNCHG.  JBS 27-Dec-1982
! 1-012	- Do things the stupid way if there is a select active, so tha.
!	   the select range will be updated properly.  JBS 22-Feb-1983
! 3-001 - Add updates from V3 sources.  GB 27-Apr-1983
!--
%SBTTL 'Declarations'
!
! TABLE OF CONTENTS:
!

REQUIRE 'EDTSRC:TRAROUNAM';

FORWARD ROUTINE
    EDT$$SPLT_LN : NOVALUE,			! Split a line of text at the current cursor position
    EDT$$SPLT_LNINS : NOVALUE;			! Split a line of text at the current cursor position

!
! INCLUDE FILES:
!

REQUIRE 'EDTSRC:EDTREQ';

!
! MACROS:
!
!	NONE
!
! EQUATED SYMBOLS:
!
!	NONE
!
! OWN STORAGE:
!
!	NONE
!
! EXTERNAL REFERENCES:
!
!	In the routines
%SBTTL 'EDT$$SPLT_LN  - split line'

GLOBAL ROUTINE EDT$$SPLT_LN 			! Split line
    : NOVALUE =

!++
! FUNCTIONAL DESCRIPTION:
!
!	Split a line of text at the current cursor position.
!
!	The characters in front of the cursor become a new line, inserted
!	in front of the current one.  The cursor is left on the original
!	line.
!
! FORMAL PARAMETERS:
!
!	NONE
!
! IMPLICIT INPUTS:
!
!	LN_BUF
!	LN_END
!	LN_PTR
!
! IMPLICIT OUTPUTS:
!
!	LN_PTR
!
! ROUTINE VALUE:
!
!	NONE
!
! SIDE EFFECTS:
!
!	NONE
!
!--

    BEGIN

    EXTERNAL ROUTINE
	EDT$$MRK_LNCHG : NOVALUE,		! Track line update bounds
	EDT$$UPD_LNLEN : NOVALUE,		! Update the length of the current line
	EDT$$INS_LN;				! Insert a line into buffer
    EXTERNAL
	LN_BUF,				! Current line buffer
	LN_END,				! End of current line pointer
	LN_PTR;				! Current character pointer

    LOCAL
	LEN;

!+
! Get length of the new line.
!-
    LEN = CH$DIFF (.LN_PTR, CH$PTR (LN_BUF, 0, BYTE_SIZE));

!+
! Insert the new line.
!-
    EDT$$INS_LN (CH$PTR (LN_BUF, 0, BYTE_SIZE), .LEN);

    IF (.LEN NEQ 0)
    THEN
	BEGIN
	EDT$$CPY_STR (CH$DIFF (.LN_END, .LN_PTR), .LN_PTR, CH$PTR (LN_BUF, 0, BYTE_SIZE));
	EDT$$MRK_LNCHG (SCR_EDIT_MODIFY, 0);
	EDT$$UPD_LNLEN (-.LEN);
	END;

    LN_PTR = CH$PTR (LN_BUF, 0, BYTE_SIZE);
    END;
%SBTTL 'EDT$$SPLT_LNINS  - split a line'

GLOBAL ROUTINE EDT$$SPLT_LNINS (		! Split a line
    LENGTH_OPT					! 1 = use length optimizer
    ) : NOVALUE =

!++
! FUNCTIONAL DESCRIPTION:
!
!	Split a line of text at the current cursor position.
!
! FORMAL PARAMETERS:
!
!	LENGTH_OPT		! 1 = length is greater than zero so insert
!				! after current line
!
!
! IMPLICIT INPUTS:
!
!	LN_LEN
!	LN_BUF
!	LN_END
!	LN_PTR
!	WK_LN
!	EOB_LN
!
! IMPLICIT OUTPUTS:
!
!	LN_LEN
!	LN_BUF
!	LN_END
!	LN_PTR
!
! ROUTINE VALUE:
!
!	NONE
!
! SIDE EFFECTS:
!
!	Calls EDT$$SPLT_LN
!
!--

    BEGIN

    EXTERNAL ROUTINE
	EDT$$MRK_LNCHG : NOVALUE,		! Track line updates
	EDT$$UPD_LNLEN : NOVALUE,		! Update the length of the current line
	EDT$$INS_LN : NOVALUE,			! Insert a line into buffer
	EDT$$RPL_CHGDLN : NOVALUE,		! Replace a changed workfile line
	EDT$$RD_NXTLN,				! Read next work file record
	EDT$$RD_PRVLN,				! Read previous record
	EDT$$START_INS : NOVALUE,		! Start an insert sequence
	EDT$$END_INS : NOVALUE,			! End an insert sequence
	EDT$$ALO_HEAP,				! Allocate heap storage
	EDT$$DEA_HEAP : NOVALUE;		! Deallocate heap storage

    EXTERNAL
	LN_LEN,				! Length of the current line
	LN_BUF,				! Current line buffer
	LN_END,				! End of current line pointer
	LN_PTR,				! Current character pointer
	WK_LN,				! Current work line
	EOB_LN,				! EOB line
	SEL_BUF : REF TBCB_BLOCK;	! Select buffer, 0 = none

    LOCAL
	LEN,					! New length of old line
	ENDLEN,					! Ending line length
	INSERT_AFTER,				! Insert after current record
	INSERT_DONE;				! 1 = the insert has been done

    INSERT_DONE = 0;
!+
! Don't do the length optinization if we are at [EOB] or if there is an active select.
!-

    IF ((.WK_LN EQLA EOB_LN) OR (.SEL_BUF NEQA 0))
    THEN
	INSERT_AFTER = 0
    ELSE
	INSERT_AFTER = .LENGTH_OPT;

    IF (.INSERT_AFTER NEQ 0)
    THEN
	BEGIN
	LEN = CH$DIFF (.LN_PTR, CH$PTR (LN_BUF, 0, BYTE_SIZE));
	ENDLEN = CH$DIFF (.LN_END, .LN_PTR);
!+
! Use the length optimizer, which says insert below the current line
! if we're positioned anywhere except at the beginning of a line.
!-

	IF (.LEN EQL 0)
	THEN
	    BEGIN
!+
! We are at the beginning of the line.  Just insert a 0-length line before this one.
!-
	    EDT$$START_INS ();			! Perform initialization for text insertion
	    EDT$$INS_LN (CH$PTR (LN_BUF, 0, BYTE_SIZE), 0);
	    EDT$$END_INS ();			! End the insertion sequence
	    LN_PTR = CH$PTR (LN_BUF, 0, BYTE_SIZE);
	    INSERT_DONE = 1;
	    END
	ELSE
	    BEGIN
!+
! Adjust the old line and mark for repaint.
!-

	    LOCAL
		SAV_LN_BUF,			! Place to save the end of the old line
		GOT_HEAP;			! 1 = we got (or don't need) heap storage

!+
! Copy the end of the old line into heap storage, so we can insert it later.
!-

	    IF (.ENDLEN NEQ 0) THEN GOT_HEAP = EDT$$ALO_HEAP (ENDLEN, SAV_LN_BUF) ELSE GOT_HEAP = 1;

	    IF .GOT_HEAP
	    THEN
		BEGIN

		IF (.ENDLEN NEQ 0)
		THEN
		    BEGIN
		    EDT$$CPY_STR (.ENDLEN, .LN_PTR, CH$PTR (.SAV_LN_BUF, 0, BYTE_SIZE));
!+
! Shorten the current line
!-
		    EDT$$UPD_LNLEN (-.ENDLEN);
		    EDT$$MRK_LNCHG (SCR_EDIT_MODIFY, .LEN);
		    END;

		EDT$$RPL_CHGDLN ();
!+
! Insert the tail as the new line.
!-

		IF (.ENDLEN NEQ 0)
		THEN
		    BEGIN
		    EDT$$CPY_STR (.ENDLEN, CH$PTR (.SAV_LN_BUF, 0, BYTE_SIZE),
			 CH$PTR (LN_BUF, 0, BYTE_SIZE));
		    EDT$$DEA_HEAP (ENDLEN, SAV_LN_BUF);
		    END;

		EDT$$RD_NXTLN ();
		EDT$$START_INS ();		! Perform initialization for text insertion
!+
! Adjust the line pointer to the new line.
!-
		EDT$$INS_LN (CH$PTR (LN_BUF, 0, BYTE_SIZE), .ENDLEN);
		LN_LEN = .ENDLEN + .LEN;
		EDT$$UPD_LNLEN (-.LEN);
		EDT$$END_INS ();		! End the insertion sequence
		EDT$$RD_PRVLN ();
		LN_PTR = CH$PTR (LN_BUF, 0, BYTE_SIZE);
		INSERT_DONE = 1;
		END;

	    END;

	END;

!+
! If we haven't done the insert, perhaps because we have run out of heap storage,
! do it the stupid way.
!-

    IF ( NOT .INSERT_DONE)
    THEN
	BEGIN
	EDT$$START_INS ();			! Perform initialization for text insertion
	EDT$$SPLT_LN ();			! Split the line
	EDT$$END_INS ();			! End the insertion sequence
	END;

    END;					! of routine EDT$$SPLT_LNINS

!<BLF/PAGE>
END						! of module EDT$CHMSPLLIN

ELUDOM