ZTEDIT ;SF/RWF - VA EDITOR, Generic routine editor ;9/29/92 11:41 ;
;;7.3;TOOLKIT;**16,120**;Apr 25, 1995
;K ^%Z
A S %A=$T(%),^%Z=$P(%A," ",2,256) F %I=1:1 S %A=$T(%+%I),%T=$P(%A," ",1),%B=$P(%A," ",2,256) Q:%T="END" I $L(%T) S ^%Z(%T)=%B
D ^ZTEDIT1 S ^%Z("VR")=$P($T(+2),";",3)
Q
; This and the other ZTEDIT* routines set up the ^%Z global by
; copying lines into them from within these routines themselves. A
; line here with tag "x" is copied into ^%Z(x), for instance. Untagged
; lines aren't copied, and therefore are comments.
;
% N %RN S %NX="LOCK" X ^%Z(0) F %IED=0:0 X ^%Z(%NX) Q:'$D(%NX)
0 S %9=84000,%SL=0,%RM=80,XY="",%S=0,%ST="" X ^%Z("TERM1"),^%Z("TERM3") W !,"%Z Editing: ",$T(+0)," Terminal type: ",%ST I $D(%TG) S %T=%TG X ^%Z("TAG") K:%L="" %TG
;EDIT;Same line; Execute; +N; Absolute N; Global; *Local; -N; Zexecute; .Function; Question; tag-N; Edit line
1 S %NX=2 R !,"Edit: ",%X:%9
2 S %NX=$S(%X="":31,%X?1A1" ".E:"EXEC",%X?1"+".N:10,%X?1"""""+".N:35,%X?1"^".E:"GLO",%X="*":"GT3",%X?1"*".E:"LOCAL",%X?1"-".N:26,%X?1"Z"1A1" ".E:"EXEC",%X?1".".E:"FUNC",%X?1"?".E:"?",%X["-":25,1:"EDIT")
;+
10 S %NX=32 S:%X="+" %X="+1" I $D(%TG),%TG'?1"+".E S %A=$P(%TG,"+",2)+$E(%X,2,9),%TG=$P(%TG,"+",1),%NX=31 S:%A %TG=%TG_"+"_%A
;-
25 S %NX=27,%B=$P(%X,"-",1),%A=0-$P(%X,"-",2)
26 S %NX=32 S:%X="-" %X="-1" I $D(%TG),%TG'?1"+".E S %A=$P(%TG,"+",2)-$E(%X,2,9),%B=$P(%TG,"+",1),%NX=27 I %A'<0 S %TG=%B,%NX=31 I %A S %TG=%TG_"+"_%A
27 S %NX="what" F %I=1:1 S %C=$T(+%I) Q:%C="" I $P($P(%C," "),"(")=%B S %A=%I+%A S:%A>0 %NX=28 Q
28 S %NX=29,%B=0 F %I=1:1:%A S %C=$P($P($T(+%I)," "),"("),%B=%B+1 I %C]"" S %TG=%C,%B=0
29 S %NX=31 I %B S %TG=%TG_"+"_%B
;SAME LINE
31 S:'$D(%TG) %TG="+1" W " ",%TG S %X=%TG,%NX="EDIT"
32 S:'$D(%TG)&(%X<0) %NX="what" S:'$D(%TG) %TG="" S %TG=%TG+%X S:%TG<0 %NX="what" S:%TG'<0 %TG="+"_%TG,%NX=31
35 S %X=$E(%X,3,99),%NX=$S(%X>0:"EDIT",1:"what") I %X="+0" W !,$T(+0) S %NX=1
LOCK S %NX=1,%RN=$T(+0) Q:'$L(%RN) L +@%RN:1 E S %NX="EXIT" W !,"This routine is being edited by another user."
LOCKX I %RN]"" L -@%RN
STORE ZR @%TG ZI:%L]"" %L S %A=$P($P(%L," "),"("),%NX=1 S:%A]"" %TG=%A
BREAK S %NX="what" W "reak line: " X ^%Z("GTAG") Q:%L="" S %NX="BR2" W:%X'=%T " ",%T S %TG=%T
BR2 S %NX=1 R " after characters: ",%R:%9 I %R'="",%L[%R S %LS=$P(%L,%R,2,999),%LS=$E(" ",%LS'?1" ".E)_%LS,%L=$P(%L,%R,1)_%R ZR @%TG ZI %L,%LS W !,%L,!,%LS
EXEC W ! S %A=%X_" W *0" X %A,^%Z(0):'$D(%RM) S %NX=1,%IED=0
;Functions;Insert,Change,Search,Remove,File,Move,Break,Join,X-mode,Action,Terminal
FUNC S %A=$E(%X,2),%A=$S(%A?1L:$C($A(%A)-32),1:%A),%NX=$S(%A="":"EXIT",%A="I":"INSERT",%A="C":"CHANGE",%A="S":"SEARCH",%A="R":"REMOVE",%A="F":"FILE",%A="M":"MV",%A="B":"BREAK",1:"FUNC2")
FUNC2 S %NX=$S(%A="J":"JOIN",%A="X":"MODE",%A="T":"TERM",%A="A":"ACTION",1:"what")
EXIT X ^%Z("LOCKX") S X=%RM+1 X ^%ZOSF("RM") K %,%A,%B,%C,%CTG,%D,%DT,%E,%F,%FI,%GLO,%I,%IED,%J,%K,%L,%LCL,%LO,%LS,%M,%N,%NX,%POP,%R,%RM,%RN,%S,%SL,%ST,%SX,%SY,%T,%W,%X,%XY,%Y,%Z,DX,DY
INSERT S %NX=1 W "nsert after: " X ^%Z("GTAG") Q:%L="" ZR @%T ZI %L S %NX="IN2",%TG=%T
IN2 S %NX=1 R !,"Line: ",%L:%9 Q:%L="" X ^%Z("LN1") S %NX="IN2" W:%POP *7,!,?5,"[tag syntax]" I '%POP ZI %L S %A=$P(%L," "),%B=$S(%A]"":$P(%A,"("),1:$P(%TG,"+")_"+"_($P(%TG,"+",2)+1)),%TG=%B
CHANGE S %NX=1 R "hange every: ",%R:%9 Q:%R="" R " to: ",%W:%9,! X ^%Z("SELALL") S %D=$L(%W)-$L(%R),%NX=$S(%POP:"what",1:"CH2")
CH2 S %NX=1 F %A=%A:1:%I S %L=$T(+%A),%F=$F(%L,%R),%X=%F X:%X>0 ^%Z("CH3") S:$P(%L," ")]"" %T=$P(%L," "),%C=0,%B=$P(%T,"(") S %T=$S(%C:%B_"+"_%C,1:%T),%C=%C+1 W:%X>0 !,%T,?6," ",$P(%L," ",2,99)
CH3 X ^%Z("CH4") ZR +%A ZI %L
CH4 F %IED=0:0 S %L=$E(%L,0,%F-$L(%R)-1)_%W_$E(%L,%F,999),%F=$F(%L,%R,%F+%D) Q:%F<1
END ;
;%T= current tag
;%TG= save last/current tag
;%L= current line
;%LO= save current line for restore
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZTEDIT 3858 printed Oct 16, 2024@18:43:19 Page 2
ZTEDIT ;SF/RWF - VA EDITOR, Generic routine editor ;9/29/92 11:41 ;
+1 ;;7.3;TOOLKIT;**16,120**;Apr 25, 1995
+2 ;K ^%Z
A SET %A=$TEXT(%)
SET ^%Z=$PIECE(%A," ",2,256)
FOR %I=1:1
SET %A=$TEXT(%+%I)
SET %T=$PIECE(%A," ",1)
SET %B=$PIECE(%A," ",2,256)
if %T="END"
QUIT
IF $LENGTH(%T)
SET ^%Z(%T)=%B
+1 DO ^ZTEDIT1
SET ^%Z("VR")=$PIECE($TEXT(+2),";",3)
+2 QUIT
+3 ; This and the other ZTEDIT* routines set up the ^%Z global by
+4 ; copying lines into them from within these routines themselves. A
+5 ; line here with tag "x" is copied into ^%Z(x), for instance. Untagged
+6 ; lines aren't copied, and therefore are comments.
+7 ;
% NEW %RN
SET %NX="LOCK"
XECUTE ^%Z(0)
FOR %IED=0:0
XECUTE ^%Z(%NX)
if '$DATA(%NX)
QUIT
0 SET %9=84000
SET %SL=0
SET %RM=80
SET XY=""
SET %S=0
SET %ST=""
XECUTE ^%Z("TERM1")
XECUTE ^%Z("TERM3")
WRITE !,"%Z Editing: ",$TEXT(+0)," Terminal type: ",%ST
IF $DATA(%TG)
SET %T=%TG
XECUTE ^%Z("TAG")
if %L=""
KILL %TG
+1 ;EDIT;Same line; Execute; +N; Absolute N; Global; *Local; -N; Zexecute; .Function; Question; tag-N; Edit line
1 SET %NX=2
READ !,"Edit: ",%X:%9
2 SET %NX=$SELECT(%X="":31,%X?1A1" ".E:"EXEC",%X?1"+".N:10,%X?1"""""+".N:35,%X?1"^".E:"GLO",%X="*":"GT3",%X?1"*".E:"LOCAL",%X?1"-".N:26,%X?1"Z"1A1" ".E:"EXEC",%X?1".".E:"FUNC",%X?1"?".E:"?",%X["-":25,1:"EDIT")
+1 ;+
10 SET %NX=32
if %X="+"
SET %X="+1"
IF $DATA(%TG)
IF %TG'?1"+".E
SET %A=$PIECE(%TG,"+",2)+$EXTRACT(%X,2,9)
SET %TG=$PIECE(%TG,"+",1)
SET %NX=31
if %A
SET %TG=%TG_"+"_%A
+1 ;-
25 SET %NX=27
SET %B=$PIECE(%X,"-",1)
SET %A=0-$PIECE(%X,"-",2)
26 SET %NX=32
if %X="-"
SET %X="-1"
IF $DATA(%TG)
IF %TG'?1"+".E
SET %A=$PIECE(%TG,"+",2)-$EXTRACT(%X,2,9)
SET %B=$PIECE(%TG,"+",1)
SET %NX=27
IF %A'<0
SET %TG=%B
SET %NX=31
IF %A
SET %TG=%TG_"+"_%A
27 SET %NX="what"
FOR %I=1:1
SET %C=$TEXT(+%I)
if %C=""
QUIT
IF $PIECE($PIECE(%C," "),"(")=%B
SET %A=%I+%A
if %A>0
SET %NX=28
QUIT
28 SET %NX=29
SET %B=0
FOR %I=1:1:%A
SET %C=$PIECE($PIECE($TEXT(+%I)," "),"(")
SET %B=%B+1
IF %C]""
SET %TG=%C
SET %B=0
29 SET %NX=31
IF %B
SET %TG=%TG_"+"_%B
+1 ;SAME LINE
31 if '$DATA(%TG)
SET %TG="+1"
WRITE " ",%TG
SET %X=%TG
SET %NX="EDIT"
32 if '$DATA(%TG)&(%X<0)
SET %NX="what"
if '$DATA(%TG)
SET %TG=""
SET %TG=%TG+%X
if %TG<0
SET %NX="what"
if %TG'<0
SET %TG="+"_%TG
SET %NX=31
35 SET %X=$EXTRACT(%X,3,99)
SET %NX=$SELECT(%X>0:"EDIT",1:"what")
IF %X="+0"
WRITE !,$TEXT(+0)
SET %NX=1
LOCK SET %NX=1
SET %RN=$TEXT(+0)
if '$LENGTH(%RN)
QUIT
LOCK +@%RN:1
IF '$TEST
SET %NX="EXIT"
WRITE !,"This routine is being edited by another user."
LOCKX IF %RN]""
LOCK -@%RN
STORE
*** ERROR ***
BREAK SET %NX="what"
WRITE "reak line: "
XECUTE ^%Z("GTAG")
if %L=""
QUIT
SET %NX="BR2"
if %X'=%T
WRITE " ",%T
SET %TG=%T
BR2 SET %NX=1
READ " after characters: ",%R:%9
IF %R'=""
IF %L[%R
SET %LS=$PIECE(%L,%R,2,999)
SET %LS=$EXTRACT(" ",%LS'?1" ".E)_%LS
SET %L=$PIECE(%L,%R,1)_%R
