ZTEDIT.m

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 ---ZTEDIT   3858     printed  Apr 09, 2024@21:42:54                                                                                                                                                                                                      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