Google
 

Trailing-Edge - PDP-10 Archives - BB-M080Y-SM - exec/execed.mac
There are 47 other files named execed.mac in the archive. Click here to see a list.
; Edit= 4441 to EXECED.MAC on 21-May-90 by GSCOTT
;Clear flags in Z in EDXITB to prevent bad flags passed to EXEC0 to run the
;editor (thanks MRC). 
; Edit= 4434 to EXECED.MAC on 11-May-90 by GSCOTT
;Pass device and directory as well as filename to EMACS in rescan buffer. 
; Edit= 4433 to EXECED.MAC on 7-May-90 by GSCOTT
;Default EMCSSW on, reuse old EMACS fork at .EMCSF+2.
; UPD ID= 4116, RIP:<7.EXEC>EXECED.MAC.2,   7-Mar-88 18:22:51 by GSCOTT
;TCO 7.1255 - Update copyright notice.
; Edit 3009 to EXECED.MAC by SANTIAGO on 12-Aug-85, for SPR #15502 (TCO 6-1-1513)
; Make EDIT require confirmation if file to be edited has archive status 
; UPD ID= 226, SNARK:<6.1.EXEC>EXECED.MAC.7,  10-Jun-85 08:43:35 by DMCDANIEL
; UPD ID= 169, SNARK:<6.1.EXEC>EXECED.MAC.6,   3-May-85 08:30:19 by DMCDANIEL
;Update copyrights for 6.1.
; UPD ID= 17, SNARK:<6.1.EXEC>EXECED.MAC.5,  29-Sep-84 21:06:55 by PRATT
;TCO 6.1.1018 - Move ASOUT to EXECSU since it's globally usefull.
; UPD ID= 387, SNARK:<6.EXEC>EXECED.MAC.13,  22-Feb-84 09:38:20 by PAETZOLD
;More TCO 6.1977 - Fix up edit history from last change
; UPD ID= 386, SNARK:<6.EXEC>EXECED.MAC.12,  21-Feb-84 18:21:15 by PAETZOLD
;TCO 6.1977 - Add SEDX as another name for SED
; UPD ID= 241, SNARK:<6.EXEC>EXECED.MAC.11,  15-Jan-83 19:24:39 by CHALL
;TCO 6.1464 - UPDATE COPYRIGHT NOTICE
; UPD ID= 191, SNARK:<6.EXEC>EXECED.MAC.10,   8-Nov-82 15:39:40 by LOMARTIRE
;TCO 6.1347 - Make error routine at EDLOST: place EDITOR: name in ATMBUF
; UPD ID= 184, SNARK:<6.EXEC>EXECED.MAC.9,  21-Oct-82 00:17:15 by CHALL
;TCO 6.1323 - FIX NON-RECOG ON "ED FOO$$" (GIVES OUTPUT FILE AS NEXT GEN)
; UPD ID= 179, SNARK:<6.EXEC>EXECED.MAC.8,   8-Oct-82 18:12:58 by CHALL
;TCO 6.1305 ADD CODE FOR THE "PERUSE" (READ-ONLY) COMMAND
;MAKE GENERAL CODE AND FORMATTING IMPROVEMENTS
; UPD ID= 92, SNARK:<6.EXEC>EXECED.MAC.5,   8-Jan-82 15:51:26 by CHALL
;TCO 6.1052 - UPDATE COPYRIGHT NOTICE AND DELETE PRE-V4.1 EDIT HISTORY
; UPD ID= 79, SNARK:<6.EXEC>EXECED.MAC.4,   6-Nov-81 12:59:46 by CHALL
;TCO 5.1606 .EMCSA- ADD SETZM STAYF BEFORE JRST ..CONT
; UPD ID= 62, SNARK:<6.EXEC>EXECED.MAC.3,   2-Oct-81 10:44:49 by CHALL
;TCO 5.1540 - PUT EMACS CODE UNDER EMCSSW (NOT XTND)
; UPD ID= 33, SNARK:<6.EXEC>EXECED.MAC.2,  17-Aug-81 13:25:59 by CHALL
;TCO 5.1454 CHANGE NAMES FROM CANDE TO EXECED AND XDEF TO EXECDE
; UPD ID= 1073, SNARK:<5.EXEC>EXECED.MAC.6,  30-Sep-80 14:49:38 by OSMAN
;More 1068 - Change $NAME ($EMACS) to ENAME (EEMACS), GLXLIB conflict on $NAME
; UPD ID= 1068, SNARK:<5.EXEC>EXECED.MAC.5,  30-Sep-80 13:56:06 by HESS
; Check FDB (.FBUSW) for ITS-TECO based editor
; UPD ID= 983, SNARK:<5.EXEC>EXECED.MAC.4,   3-Sep-80 12:43:33 by HESS
; Don't call ERESET for new EMACS invocation
; UPD ID= 550, SNARK:<5.EXEC>EXECED.MAC.3,  23-May-80 13:35:58 by MURPHY
;MAKE CREATE/START USE SAME LOGIC AS IMPLICIT RUN
;<4.1.EXEC>EXECED.MAC.4, 27-Feb-80 08:34:45, EDIT BY OSMAN
;tco 4.1.1090 - Improve error messages
; UPD ID= 199, SNARK:<4.1.EXEC>EXECED.MAC.3,  10-Jan-80 14:01:54 by OSMAN
;tco 4.1.1063 - Make ;X in TV ask for filespec on "EDIT FOO.BAR$" command
;<4.1.EXEC>EXECED.MAC.2, 31-Oct-79 10:08:48, EDIT BY OSMAN
;tco 4.1.1002 - Fix "EDIT /ISAVE:5 FOO.BAR" followed by "EDIT"

;	COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1976, 1990.
;	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.
	SEARCH EXECDE
	TTITLE EXECED - CREATE READ AND EDIT COMMANDS

;PROCESSOR/COMMAND TABLES

;MACRO TO DEFINE THE EDITOR NAME, ITS SWITCHES, AND WHEN SWITCHES ARE LEGAL
;THE ARGUMENTS ARE (NAME,SWITCH-ADDR,SWITCH-FLAG,ROUTINE)
;NAME		ASCIZ EDITOR NAME
;SWITCH-ADDR	COMND BLOCK TO PARSE SWITCHES
;SWITCH-FLAG	 0==SWITCHES ARE LEGAL ONLY AFTER COMMAND NAME (EDIT, CREATE)
;		-1==SWITCHES ARE LEGAL ANYWHERE IN THE COMMAND
;ROUTINE	ADDRESS OF ROUTINE BLOCK DESCRIBED BELOW
;THE LABEL OF THE ARGUMENT LIST FOR EACH EDITOR IS E'NAME:

;THE ROUTINES AT ADDRESS "ROUTINE" ARE:
;ENTRY IS AT OFFSET:
; 0 := EDIT "INFILE"	(NON-SKIP TO IGNORE OUTPUT SPEC)
; 1 := EDIT "INFILE" "OUTFILE"
; 2 := JUST BEFORE FORK CREATE (EDITOR IN EDJFN), C(A) := RESCAN PNTR
; 3 := EDIT<CR> TYPED
DEFINE EDLIST <
ED (EDIT,SWEDIT,-1,.EDSOS)	;SWITCHES ARE ONLY LEGAL AFTER COMMAND NAME
ED (EMACS,    0, 0,.EMCS)	;NO SWITCHES
ED (SED,  SWSED, 0,.EDSED)	;SWITCHES ARE LEGAL ANYWHERE
ED (SEDX, SWSED, 0,.EDSED)	;SAME AS SED
ED (TV,       0, 0,.EDTV)	;NO SWITCHES
>

SWEDIT:	FLDDB. .CMSWI,,$ETBL
SWSED:	FLDDB. .CMSWI,,$STBL

;GENERAL ERROR MESSAGES

ERRIFS:	ASCIZ /Invalid switch or input filespec - %?/
ERROFS:	ASCIZ /Invalid switch or output filespec - %?/
ERRIFL:	ASCIZ /Invalid input filespec - %?/
ERROFL:	ASCIZ /Invalid output filespec - %?/

DEFINE ED (NAME,SWHADR,SWHFLG,ROUTIN),<
E'NAME:![ASCIZ "NAME"],,[ROUTIN,,[SWHFLG,,SWHADR]]
>
EDTAB:	TABLE
	EDLIST
	TEND

EDELS:	0,,[.EDTV,,[0,,0]]	;DEFAULT IF EDITOR: IS NOT DEFINED
EDLOST:	PUSH P,A
	MOVE A,.LNSJB
	HRROI B,[ASCIZ/EDITOR/]
	HRROI C,ATMBUF
	LNMST
	ERJMP .+1
	POP P,A
	CMERRX <Can't find editor>

;PERUSE COMMAND

.EDITP::HRLI P5,1		;LOOKS LIKE CREATE UNTIL THE END,
	JRST EDIT0		; WHEN THE COMMAND IS "PERUSE", NOT "EDIT"

;CREATE COMMAND

.EDITC::TLOA P5,-1		;SET THE CREATE FLAG. AND SKIP

;EDIT COMMAND

.EDIT::	SETZ P5,
EDIT0:	TLZ Z,F1!F2		;CLEAR TEMP FLAGS
	TRVAR <EDJFN,EINJFN,EOJFN,EDCNT,EDPTR,<ARCINF,.FBBBT-.FBCTL+1>>
	SETZM EINJFN
	SETOM EOJFN
	UDEXT [GETSAVE()]	;SET UP CJFNBK FOR DEFAULT EXTENSION
	MOVX A,GJ%OLD		;OLD FILE ONLY
	MOVEM A,CJFNBK+.GJGEN	;SAVE FLAGS
	MOVE A,[.NULIO,,.NULIO]
	MOVEM A,CJFNBK+.GJSRC	;NO INPUT
	MOVEI A,CJFNBK		;LONG GTJFN BLOCK
	HRROI B,[ASCIZ /EDITOR:/]
	CALL GTJFS		;LOOK FOR IT
	  JRST EDLOST
	MOVEM A,EDJFN		;SAVE EDITOR JFN HERE
	MOVE A,JBUFP
	MOVEM A,.JBUFP		;SAVE THIS JFN FOR LATER
	MOVE A,CSBUFP
	MOVE B,EDJFN
	MOVX C,FLD(.JSAOF,JS%NAM)
	JFNS
	MOVEI A,EDTAB		;TABLE OF EDITORS
	MOVE B,CSBUFP		;FIND THE NAME OF THE EDITOR
	TBLUK
	TXNN B,TL%EXM		;MATCH?
	 CALL EDITNM		;NO - CHECK FDB(.FBUSW)
	HRRZ A,0(A)		;POINT TO MORE INFO
	HLR P5,0(A)		;SAVE ROUTINE ADDRS
	HRRZ Q2,0(A)		;GET ADDRESS OF SWITCH BLOCK
	NOISE (FILE)
	MOVE A,CMPTR		;GET POINTER TO REST OF COMMAND
	MOVEM A,EDPTR		;REMEMBER IT
	MOVE A,CMCNT		;GET CURRENT COUNT
	MOVEM A,EDCNT		;AND REMEMBER IT
EDIT1:	MOVEI B,EDTINF		;SET TO PARSE EDIT'S INPUT FILESPEC, ETC.
	CAIGE P5,0		;REALLY WANT CREATE?
	MOVEI B,EDTOUF		;YES - SET UP CREATE'S INSTEAD
	HRRZ A,(Q2)		;SET UP SWITCH ADDRESS OR ZERO
	MOVE C,(B)
	MOVE C,(B)
	HRRM A,(C)
	MOVE Q1,CMCNT		;SAVE COUNT JUST BEFORE FILE
	CALL FLDSKP		;GET SOMETHING
	 CAIA			;ON ERROR, CHECK FOR NEW FILE
	JRST EDIT1A
	JUMPL P5,EDIT2A		;NO OTHER CHOICES IF CREATE
	MOVEI B,EDTOUF		;OTHERWISE ALLOW CREATE OPTIONS AS SECOND CHOICE
	HRRZ A,(Q2)		;SET UP SWITCH ADDRESS OR ZERO
	MOVE C,(B)		;YES - PUT EDITOR'S SWITCH BLOCK AFTER THE REST
	MOVE C,(B)
	HRRM A,(C)
	CALL FLDSKP
	 JRST EDIT2A		;NO MORE CHANCES
EDIT1A:	LDB C,[POINTR <0(C)>,CM%FNC] ;GET CODE USED
	CAIN C,.CMCFM		;CR TYPED?
	JRST EDAGN		;YES - USE LAST
	CAIN C,.CMSWI		;SWITCH?
	JRST [CALL EDSWT	;YES - HANDLE IT
	       RET
	      JRST EDIT1]	;AND SEE WHAT'S NEXT
	CAIE C,.CMIFI		;INPUT FILESPEC?
	CAIN C,.CMOFI		;OR OUTPUT
	JRST EDIT3		;YES - PROCEED

;HERE IF THE COMMAND IS FLAKY - GIVE SOME KIND OF ERROR MESSAGE

EDIT2A:	JUMPGE P5,EDT2A2	;JUMP IF CREATING
	MOVEI A,ERRIFS		;PERUSE OR EDIT - ASSUME THERE ARE SWITCHES
	SKIPN (Q2)		;ARE THERE REALLY?
	MOVEI A,ERRIFL		;OF COURSE NOT - SET FOR NO SWITCHES
EDT2A1:	UERR (A)		;PRINT THE CORRECT ERROR

EDT2A2:	MOVEI A,ERROFS		;CREATE - ASSUME THERE ARE SWITCHES
	SKIPN (Q2)		;ARE THERE REALLY?
	MOVEI A,ERROFL		;OF COURSE NOT - SET FOR NO SWITCHES
	JRST EDT2A1		;GO PRINT THE CORRECT ERROR
EDIT3:	SUBM	Q1,EDCNT	;COMPUTE -# CHARS IN SWITCHES
	MOVEM	B,EINJFN	;REMEMBER INPUT JFN
	SKIPL	P5		;CREATE COMMAND?
	TXNE	A,CM%EOC	;NO - ALL DONE?
	JRST	EDXIT		;YES - EXIT
	CALL	@0(P5)		;INVOKE ROUTINE TO HANDLE INPUT FILESPEC
	 JRST	EDXIT		;EXIT IF NON-SKIP GIVEN
	TLNE	P5,1		;PERUSE COMMAND?
	JRST	EDXIT		;YES - EXIT
	NOISE	(OUTPUT AS)
	MOVE	B,EINJFN	;GET JFN BACK
	SETZM	CJFNBK+.GJDIR	;USE STANDARD DEFAULT FOR OUTPUT DIRECTORY
	MOVSI	C,(1B8)		;READ FILENAME
	CALL	EDJFNS
	MOVEM	A,CJFNBK+.GJNAM
	MOVSI	C,(1B11)	;READ EXTENSION
	CALL	EDJFNS
	MOVEM	A,CJFNBK+.GJEXT
	LDF	A,GJ%FOU!GJ%MSG
	MOVEM	A,CJFNBK

;NOW ASK FOR NAME OF OUTPUT FILE

EDXXX:	MOVEI B,EDTFIL		;(USE .CMFIL SO DEFAULTING WILL WORK)
	SKIPG A,(Q2)		;WANT TO ASK FOR SWITCHES TOO?
	SETZ A,			;NO - CLEAR SWITCH BLOCK ADDRESS
	MOVE C,(B)		;YES - PUT EDITOR'S SWITCH BLOCK AFTER THE REST
	MOVE C,(B)
	HRRM A,(C)
	CALL FLDSKP		;GET OUTPUT SPEC; DETECT CONFIRMATION
	 CMERRX
	LOAD D,CM%FNC,.CMFNP(C)	;SEE WHAT GOT TYPED
	CAIN D,.CMSWI		;SWITCH?
	JRST [CALL EDSWT	;YES - HANDLE IT
	       RET
	      JRST EDXXX]	;AND SEE WHAT'S NEXT
	CAIN D,.CMCFM		;CONFIRMATION?
	JRST EDXIT2		;YES, NO FILESPEC
	MOVEM B,EOJFN		;SAVE OUTPUT JFN
	CALL @1(P5)		;ROUTINE TO HANDLE OUTPUT FILESPEC
	 NOP			;NO ALTERNATE PATH

	;;; FALL INTO EDXIT
EDXIT:	MOVEI B,EDTCFM
	SKIPG A,(Q2)		;WANT TO ASK FOR SWITCHES TOO?
	SETZ A,			;NO - CLEAR SWITCH BLOCK ADDRESS
	HRRM A,(B)
	CALL FLDSKP		;GET CONFIRMATION OR MAYBE SWITCHES
	 CMERRX
	LOAD D,CM%FNC,.CMFNP(C)	;SEE WHAT GOT TYPED
	CAIE D,.CMSWI		;SWITCH?
	JRST EDXIT2		;NO - CONFIRMATION - FINISH THE COMMAND
	CALL EDSWT		;YES - HANDLE IT
	 RET
	JRST EDXIT		;AND SEE WHAT'S NEXT

EDXIT2:	MOVE A,EINJFN		;GET JFN OF INPUT FILE
	MOVE B,[.FBBBT-.FBCTL+1,,.FBCTL] ;LENGTH, START OF FDB INFO
	MOVEI C,ARCINF		;PUT IT HERE
	GTFDB%			;GET WORDS FROM FDB
	 ERJMP EDX22		;CAN'T GET FDB, SO DON'T DO TESTING
	MOVE A,ARCINF		;GET WORD .FBCTL
	MOVEI B,ARCINF
	MOVE B,.FBBBT-.FBCTL(B)	;GET WORD .FBBBT
	TXNN B,<AR%1ST!AR%RAR!AR%RIV>
	TXNE A,<FB%OFF!FB%ARC>	;ARE ANY OF THE ARCHIVE BITS SET?
	 JRST [	MOVE A,EINJFN	;YES... WARN USER
		ETYPE <%%File has Archive status - %1S%%_>
		PROMPT <[Confirm to edit anyway]>
		CALL CONF	;BUT LET HIM DO IT IF HE REALLY WANTS TO 
		JRST .+1 ]
EDX22:	MOVE B,EDPTR		;GET POINTER TO USER'S COMMAND
	CALL EDEDIT		;REMOVE THE NOISY PARTS
	MOVE A,CSBUFP		;BUILD DEFAULT STRING IN SCRATCH SPACE
	MOVE B,EDPTR		;GET POINTER TO USER'S COMMAND AGAIN
	SKIPE C,EDCNT		;ANY SWITCH PART?
	JRST [	CALL ASOUT	;YES, COPY THE STRING
		MOVEI B,.CHSPC	;SEPARATE SWITCHES FROM FILESPEC WITH SPACE
		IDPB B,A
		JRST .+1]
	MOVE C,[FLD(1,JS%DEV)!FLD(1,JS%DIR)!FLD(1,JS%NAM)!FLD(1,JS%TYP)!JS%PAF]
	MOVE B,EINJFN		;FIRST FILE
	JFNS			;TO STRING
	MOVE B,EOJFN		;OUTPUT SPEC?
	CAMN B,[-1]
	JRST EDXIT1		;NO
	MOVEI B," "
	IDPB B,A		;SEPARATE BY SPACE
	MOVE B,EOJFN		;GET OUTPUT JFN AGAIN
	JFNS			;YES, DO IT TOO
EDXIT1:	MOVE B,[POINT 7,[ASCIZ /
/]]
	MOVEI C,0
	CALL ASOUT		;FINISH SAVED LINE WITH CRLF
	CALL PIOFF		;DON'T ALLOW ^C WHILE CHANGING HORSES
	SKIPE A,EDSVB		;GET POINTER TO SAVED EDIT COMMAND
	CALL STREM		;RELEASE OLD STORAGE IF THERE WAS ANY
	SETZM EDSVB		;DO NOW SINCE XBUFFS MIGHT FAIL
	CALL PION		;ALLOW ^C AGAIN
	MOVE A,CSBUFP		;POINT TO CREATED DEFAULT STRING
	CALL XBUFFS		;GET SOME PERMANENT SPACE FOR IT
	MOVEM A,EDSVB		;REMEMBER POINTER TO NEW DEFAULT STRING
	MOVE D,EDPTR		;USE ACTUAL COMMAND STRING THIS TIME
EDXITB:	MOVE A,CSBUFP		;CREATE STRING FOR PROGRAM
	HLRE B,P5		;GET -1=CREATE, 0=EDIT, 1=PERUSE
	MOVE B,@[[POINT 7,[ASCIZ /CREATE /]]
		 [POINT 7,[ASCIZ /EDIT /]]
		 [POINT 7,[ASCIZ /PERUSE /]]]+1(B)
	MOVEI C,0
	CALL ASOUT		;START WITH CORRECT COMMAND NAME
	MOVE B,D		;USE REST OF COMMAND OR SAVED COMMAND
	CALL ASOUT
	MOVE A,CSBUFP		;GET COMMAND LINE
	CALL BUFFS		;SAVE THE STRING
	CALL @2(P5)		;ROUTINE TO HANDLE FORK CREATE/START
	 RET			;ALL DONE - RETURN
	MOVEM A,RSPTR		;STORE RESCAN POINTER
	CALL RLJFNS		;FLUSH EXTRA JFNS
	MOVE B,EDJFN		;GET JFN FOR EDITOR FILE
	SETZ Z,			;[4441] Insure no flags passed to EXEC0
	JRST CIN3		;JOIN IMPLICIT RUN CODE IN EXEC0
;SUBROUTINE FOR WHEN TBLUK FINDS NO MATCH ON EDITOR NAME

EDITNM:	MOVE A,EDJFN		;NO - CHECK FDB(.FBUSW)
	MOVE B,[1,,.FBUSW]
	MOVEI C,C
	GTFDB
	HLRZS C			;=> 'TEC',,VERS#
	MOVEI A,EDELS		;WHAT TO USE FOR DEFAULT
	CAIN C,'TEC'
	 MOVEI A,EEMACS		;USE EMACS INTERFACE
	RET

;SUBROUTINE TO REMOVE "()" AND "!!" NOISE FROM THE COMMAND LINE
;CALL WITH B/ POINTER TO COMMAND STRING; USES A, C

EDEDIT:	MOVE C,B		;GET THE POINTER TO THE LINE IN B AND C
EDEDT0:	ILDB A,B		;GET A CHARACTER
	CAIN A,"!"		;START OF NOISE?
	JRST EDEDT1		;YES - SKIP IT
	CAIN A,"("		;START OF NOISE?
	JRST EDEDT2		;YES - SKIP IT
	IDPB A,C		;NO - SAVE THE CHARACTER
	JUMPN A,EDEDT0		;AND LOOP UNTIL NULL,
	RET			;THEN RETURN

EDEDT1:	ILDB A,B		;SKIP NOISE - UNTIL "!"
	CAIE A,"!"
	JUMPN A,EDEDT1
	JRST EDEDT0

EDEDT2:	ILDB A,B		;SKIP NOISE - UNTIL ")"
	CAIE A,")"
	JUMPN A,EDEDT2
	JRST EDEDT0
;SUBROUTINE TO HANDLE SWITCHES
;RETURNS +2 IF SWITCH IS O.K., ELSE +1

EDSWT:	TLO	Z,F2		;NOTE THAT SWITCH WAS SEEN
	HRRZ	C,0(B)		;GET DISPATCH ADDRESS
	JUMPE	C,EDSWT1	;IF ZERO, THERE'S NO ARGUMENT
	TXNE	A,CM%SWT	;ARGUMENT - WAS A COLON TYPED?
	JRST	0(C)		;YES - GOT /SW: -  DISPATCH TO READ ARGUMENT
	CAIE	C,EDSWNX	;NO - IS THE ARGUMENT OPTIONAL?
	CAIN	C,EDSWSX
	RETSKP			;YES - THERE'S NO ARGUMENT, THEN - DONE
	TYPE	<?Switch must have a value - >
	JRST	EDSWT2		;FINISH OFF THE ERROR

EDSWT1:	TXNN	A,CM%SWT	;HERE IF NO ARGUMENT - WAS A COLON TYPED?
	RETSKP			;NO - O.K. - DONE
	TYPE	<?Switch does not allow argument - >
EDSWT2:	HLRO	B,0(B)		;OUTPUT THE SWITCH NAME WITH THE ERROR
	MOVEI	C,0
	MOVE	A,COJFN
	SOUT
	ETYPE	<%_>
	RET			;AND RETURN

;HERE TO PARSE AN OPTIONAL STRING OR NUMERIC ARGUMENT

EDSWSX:	SKIPA	B,[[FLDDB. .CMFLD,,,<STRING ARGUMENT>]]
EDSWNX:	MOVEI	B,[FLDDB. .CMNUM,,^D10]	;GET OPTIONAL DECIMAL NUMBER
	JRST	EDSW1

;HERE TO PARSE FILESPECS OR DECIMAL ARGUMENT

EDSWFL:	SKIPA	B,[[FLDDB. .CMIFI]]	;GET INPUT FILESPEC
EDSWFO:	MOVEI	B,[FLDDB. .CMOFI]	;GET OUTPUT FILESPEC
	JRST	EDSW1

EDSWNM:	MOVEI	B,[FLDDB. .CMNUM,,^D10]	;GET DECIMAL NUMBER
EDSW1:	CALL	FLDSKP
	 CMERRX
	RETSKP

;HERE TO PARSE A STRING OR OPTION ARGUMENT

EDSWST:	SKIPA	B,[[FLDDB. .CMFLD,,,<STRING ARGUMENT>]]
EDSWOP:	MOVEI	B,[FLDDB. .CMFLD,,,<OPTION NAME .LE. 6 CHARACTERS>]
	CALL	FLDSKP		;JUST GET ATOM
	 CMERRX <String required>
	RETSKP
;HERE IF THE USER JUST TYPED "EDIT<CR>"

EDAGN:	CALL	@3(P5)		;CALL THIS EDITOR'S ROUTINE FOR "EDIT<CR>"
	 NOP			;DONE - RETURN
	JRST	EDXITB		;JOIN COMMON CODE
;SWITCH DEFINITIONS FOR EDIT

DEFINE NAMES <
X	(BAK,0)
X	(C128,0)
X	(C64,0)
X	(DECIDE,0)
X	(DPY,0)
X	(EXPERT,0)
X	(INCREMENT:,EDSWNM)
X	(ISAVE:,EDSWNM)
X	(LOWER,0)
X	(M33,0)
X	(M37,0)
X	(NOBAK,0)
X	(NODECIDE,0)
X	(NONSEPARATORS,0)
X	(NONUMBER,0)
X	(NOVICE,0)
X	(NUMBER,0)
X	(OLD,0)
X	(OPTION:,EDSWOP)
X	(PLINES:,EDSWNM)
X	(R,0)
X	(READONLY,0)
X	(RONLY,0)
X	(RUN:,EDSWFL)
X	(SAVE:,EDSWNM)
X	(SEPARATORS,0)
X	(SEQUENCE,0)
X	(START:,EDSWNM)
X	(STEP:,EDSWNM)
X	(UNSEQUENCE,0)
X	(UPPER,0)
X	(WINDOW:,EDSWNM)
>

DEFINE X(A,B) <[ASCIZ \A\],,B>

$ETBL:	0
	NAMES
..Z==.
RELOC $ETBL
	..Z-$ETBL-1,,..Z-$ETBL-1
RELOC ..Z
SED,<
;SWITCHES FOR SED

DEFINE NAMES <
X	(ALT,0)
X	(BACKUP,0)
X	(BEEP,0)
X	(CASE,0)
X	(CREATE,0)
X	(DTABS,0)
X	(GOTO:,EDSWNX)
X	(ICR,0)
X	(ID,0)
X	(IMODE,0)
X	(INVRT,0)
X	(ISAVE:,EDSWNM)
X	(ITABS,0)
X	(JOURN,0)
X	(LENG:,EDSWNM)
X	(LMAR:,EDSWNM)
X	(NOBACKUP,0)
X	(NOBEEP,0)
X	(NOCASE,0)
X	(NOFENCE,0)
X	(NOICR,0)
X	(NOID,0)
X	(NOIMODE,0)
X	(NOINVRT,0)
X	(NOITABS,0)
X	(NOJOURN,0)
X	(NOMESSA,0)
X	(NOPAGE,0)
X	(NORAISE,0)
X	(NORESET,0)
X	(NOROLL,0)
X	(NOSHOW,0)
X	(NOSTRIP,0)
X	(NOUPPER,0)
X	(OUT:,EDSWFO)
X	(PAGE,0)
X	(PROG:,EDSWFL)
X	(QUICK,0)
X	(RAISE,0)
X	(READ,0)
X	(RECOV,0)
X	(RESET,0)
X	(RMAR:,EDSWNM)
X	(ROLL,0)
X	(SAVE:,EDSWNM)
X	(SHOW,0)
X	(SLIDE:,EDSWNX)
X	(STRIP,0)
X	(TABS:,EDSWSX)
X	(TSET:,EDSWNM)
X	(UPPER,0)
X	(WIDTH:,EDSWNM)
X	(WRITE,0)
>
$STBL:	0
	NAMES
..Z==.
RELOC $STBL
	..Z-$STBL-1,,..Z-$STBL-1
RELOC ..Z

> ;END SED
;SUBROUTINES

;SUBROUTINE TO DO A JFNS. CALL WITH C/ FLAGS, B/ JFN
;THIS ROUTINE PRESERVES JFN IN B

EDJFNS:	STKVAR <SAVBBB>
	MOVE A,CSBUFP		;POINTER TO STRING SPACE
	JFNS
	MOVE A,CSBUFP		;GET POINTER TO STRING JUST CREATED
	MOVEM B,SAVBBB
	CALL BUFFS		;SAVE THE STRING
	MOVSI B,774000		;MASK FOR FIRST CHARACTER
	TDNN B,(A)		;SEE IF STRING IS NULL
	MOVEI A,0		;RETURN 0 INSTEAD OF POINTER IF FIELD IS NULL
	MOVE B,SAVBBB
	RET
;AUXILIARY ROUTINES FOR VARIOUS EDITORS
;ENTRY IS AT OFFSET:
; 0 := EDIT "INFILE"	(NON-SKIP TO IGNORE OUTPUT SPEC)
; 1 := EDIT "INFILE" "OUTFILE"
; 2 := JUST BEFORE FORK CREATE (EDITOR IN EDJFN), A/ POINTER TO COMMAND STRING
; 3 := EDIT<CR> TYPED

NOEMCS,<
.EMCS:
>
NOSED,<
.EDSED:
>
.EDSOS:
.EDTV:	RSKP			;0 - INPUT FILE
	RSKP			;1 - OUTPUT FILE
	RSKP			;2 - FORK CREATE
	EDITCR			;3 - EDIT<CR>

;HERE FOR "NORMAL" EDITORS, ON "EDIT<CR>"
;DON'T ALLOW SWITCHES WITHOUT A FILESPEC

EDITCR:	SKIPN	D,EDSVB		;PREVIOUS STRING?
	JRST	EDICRX		;NO - OUTPUT ERROR MESSAGE
	TLNE	Z,F2		;EDIT/SW<CR> IS AN ERROR:
	ERROR	<Must have filespec>
	RETSKP			;OTHERWISE RETURN SUCCESS

EDICRX:	TYPE <%No saved filespec
>
	MOVE	D,[POINT 7,[ASCIZ /
/]]
	RET			;GIVE NORMAL RETURN
SED,<
;DISPATCH TABLE AND ROUTINES FOR SED

.EDSED:	RSKP			;0 - INPUT FILE
	RSKP			;1 - OUTPUT FILE
	RSKP			;2 - FORK CREATE
	EDISCR			;3 - EDIT<CR>

;HERE WHEN USER TYPED "EDIT<CR>"
;ALLOW SWITCHES; DON'T USE PREVIOUS FILESPEC LINE

EDISCR:	MOVE D,EDPTR		;JUST SET UP THE STRING AS THE USER TYPED IT
	RETSKP			;THAT'S ALL
>
EMCS,<
.EMCS:	.EMCSI			;0 - INPUT FILE (OR CREATE)
	RSKP			;1 - OUTPUT FILE (CAN'T HAPPEN)
	.EMCSF			;2 - FORK CREATE
	.EMCSA			;3 - EDIT AGAIN

;COME HERE WITH FILESPEC JFN IN EINJFN

.EMCSI:	JUMPGE P5,R		;DONE UNLESS COMMAND WAS CREATE
	MOVE A,EINJFN		;GET JFN
	MOVE B,[7B5+OF%WR]	;CREATE A FILE
	OPENF
	 JRST CERR
	TXO A,CO%NRJ		;KEEP JFN
	CLOSF			;FILE NOW EXISTS
	 NOP
	RET

;HERE TO RE-EDIT OLD FILE

.EMCSA: SKIPG A,EDFORK		;HAVE AN EDITOR FORK?
	JRST .EMCSF		;[4434] No, go create a fork for EMACS
	SETZM RSPTR		;[4434] Know that there is no rescan string

;[4434] Here to continue existing EMACS fork, enter with A/ EMACS fork handle.
;Note that the rescan buffer has already been set up if it is needed.
;If the old EMACS fork is OK, continue the fork.  If not, get a new fork.

.EMCSC:	MOVE A,EDFORK		;[4434] Get the editor fork handle today
	RFSTS			;SEE IF FORK IS AROUND
	 ERJMP .EMCSN		;[4434] Owie, get a new emacs fork please
	TXZ A,RF%FRZ		;MUST BE FROZEN
	HLRZS A
	CAIN A,.RFFPT		;CHECK VALID TERMINATION
	JRST .EMCSN		;[4434] Ick, kill it a get a new fork please
	MOVE A,EDFORK
	MOVEM A,FORK		;MAKE EDITOR CURRENT FORK
	MOVEM A,RUNFK
	SETZM STAYF		;DON'T STAY AT COMMAND LEVEL
	JRST ..CONT		;AND RESUME IT
;[4434] Here to kill off old EMACS fork (if any) and get a new EMACS fork.

.EMCSN:	SKIPLE A,EDFORK		;[4434] Any fork there?
	CALL KEFORK		;[4434] (A/) Yes, kill it off
	SETOM EDFORK		;[4434] No longer is there an EMACS editor fork
;	CALLRET .EMCSF		;[4434] Now start a new EMACS fork

;CREATE AN EDIT FORK AND START EDITOR

.EMCSF:	MOVE A,CSBUFP		;[4434] Build the rescan string in usual spot
	MOVE B,[POINT 7,[ASCIZ/EDIT /]]	;[4434] Load pointer to command
	SETZ C,			;[4434] Stop on null
	CALL ASOUT		;[4434] (A,B,C/A,B,C) Copy the command name
	SKIPN B,EDSVB		;[4434] Use supplied filespec if any
	MOVE B,[POINT 7,[BYTE (7).CHCRT,.CHLFD]] ;[4434] No filespec, use CRLF 
	CALL ASOUT		;[4434] (A,B,C/A,B,C) Supply the filename
	MOVE A,CSBUFP		;[4434] Point to string we just built
	CALL BUFFS		;[4434] (A/A) Copy it to temp safe place and
	MOVEM A,RSPTR		;[4434] Set it as the rescan string

	SKIPLE A,EDFORK		;[4433] Already have a EMACS fork today?
	JRST .EMCSC		;[4434] Yes, just continue the existing one

	CALL ECFORK		;[4434] (/A) Make a new fork
	MOVX B,FK%KPT		;MARK IT KEPT
	IORM B,SLFTAB(A)
	MOVE B,EDJFN		;JFN ON EDITOR
	CALL SFKNAM		;SET ITS NAME
	MOVE A,EDJFN
	HRL A,FORK		;GET PROGRAM INTO FORK
	GET
	 ERJMP GETILI
	CALL RLJFNS		;FLUSH XTRA JFNS
	SETZM .JBUFP		;NO LONGER SAVING PROGRAM JFN
	SETZM STAYF		;DON'T STAY AT COMMAND LEVEL
	MOVE A,FORK
	MOVEM A,EDFORK		;SET EDITOR FORK
	MOVEI B,0		;OFFSET 0 FOR START
	JRST ..STCR
> ;END EMCS
       END