Routine: ZTEDIT4

ZTEDIT4 ;SF/RWF - VA EDITOR ? help message ;7/9/90  07:47 ;

 ;;7.3;TOOLKIT;**16,120**;Apr 25, 1995

 K ^%Z("?") S %X=$T(QUES),^%Z("?")=$P(%X," ",2,99),%X=$T(QUESA),^%Z("?A")=$P(%X," ",2,99)

 F %I=1:1 S %X=$T(%+%I),%Y=$P(%X,";;",2,999) S:%X %Z=+%X,%1=1 Q:%X=""  S ^%Z("?",%Z,%1)=%Y,%1=%1+1

CHECK W !,"Checking ZTEDIT4" S A="I %Y]"""",%Y'=%X W !,""Tag: ?,"",%I,"","",%I1,"" is not the same"""

 S %I1=1,%I="",%X=$P($T(QUES)," ",2,99),%Y=$S($D(^%Z("?")):^("?"),1:"") X A

 F %=1:1 S %Z=$T(%+%) Q:%Z=""  S:%Z %I=+%Z,%I1=1 S %X=$P(%Z,";;",2,99),%Y=$S($D(^%Z("?",%I,%I1)):^(%I1),1:" ") X A S %I1=%I1+1

QUES S %NX=1 F %X=1,$S(XY]"":2,1:3) F %=0:0 S %=$O(^%Z("?",%X,%)) Q:%=""  W !,^(%)

QUESA S %NX="ACTION" F %=0:0 S %=$O(^%Z("?",99,%)) Q:%=""  W !,^(%)

% ;;

1 ;;.ACTION menu              .BREAK line              .CHANGE every

 ;;.FILE routine             .INSERT after            .JOIN lines

 ;;.MOVE lines               .REMOVE lines            .SEARCH for

 ;;.TERMinal type            .XY change to/from replace-with

 ;;. -TO EXIT THE EDITOR

 ;;""+n Absolute line n    +n To advance n lines   -n To backup n lines

 ;; use '*' to get last line

;;

 ;;^NAME - to edit a GLOBAL node             *NAME - to edit a LOCAL variable

 ;;MUMPS command line (mumps command <space> or Z command <space>)

;;

2 ;;In the line mode,

 ;;Spacebar moves to the next space or comma. Dot to the next char.

 ;;'>' To move forward 80 char or to end of line.

 ;;Backspace to back up one char. E to enter new char's at the cursor.

 ;;CR to exit enter mode, return to start of line or EDIT prompt.

 ;;D to delete from the cursor to the next space or comma.

 ;;Delete (Rub) to delete the char under the cursor.

 ;;CTRL-R to restore line and start back at the beginning.

;;

3 ;;In the replace/with mode,

 ;;SPECIAL <REPLACE> STRINGS:

 ;;  END    -to add to the END of a line

 ;;  ...    -to replace a line

 ;;  A...B  -to specify a string that begins with "A" and ends with "B"

 ;;  A...   -to specify a string that begins with "A" to the end of the line

 ;;CTRL-R to restore line.

99 ;;Bytes in routine           Checksum                 Restore lines

 ;;Save lines                 Version #

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZTEDIT4   2210     printed  Feb 19, 2025@00:09:15                                                                                                                                                                                                     Page 2

ZTEDIT4   ;SF/RWF - VA EDITOR ? help message ;7/9/90  07:47 ;

 +1       ;;7.3;TOOLKIT;**16,120**;Apr 25, 1995

 +2        KILL ^%Z("?")

           SET %X=$TEXT(QUES)

           SET ^%Z("?")=$PIECE(%X," ",2,99)

           SET %X=$TEXT(QUESA)

           SET ^%Z("?A")=$PIECE(%X," ",2,99)

 +3        FOR %I=1:1

               SET %X=$TEXT(%+%I)

               SET %Y=$PIECE(%X,";;",2,999)

               if %X

                   SET %Z=+%X

                   SET %1=1

               if %X=""

                   QUIT

               SET ^%Z("?",%Z,%1)=%Y

               SET %1=%1+1

 +4        QUIT

CHECK      WRITE !,"Checking ZTEDIT4"

           SET A="I %Y]"""",%Y'=%X W !,""Tag: ?,"",%I,"","",%I1,"" is not the same"""

 +1        SET %I1=1

           SET %I=""

           SET %X=$PIECE($TEXT(QUES)," ",2,99)

           SET %Y=$SELECT($DATA(^%Z("?")):^("?"),1:"")

           XECUTE A

 +2        FOR %=1:1

               SET %Z=$TEXT(%+%)

               if %Z=""

                   QUIT

               if %Z

                   SET %I=+%Z

                   SET %I1=1

               SET %X=$PIECE(%Z,";;",2,99)

               SET %Y=$SELECT($DATA(^%Z("?",%I,%I1)):^(%I1),1:" ")

               XECUTE A

               SET %I1=%I1+1

 +3        QUIT

QUES       SET %NX=1

           FOR %X=1,$SELECT(XY]"":2,1:3)

               FOR %=0:0

                   SET %=$ORDER(^%Z("?",%X,%))

                   if %=""

                       QUIT

                   WRITE !,^(%)

QUESA      SET %NX="ACTION"

           FOR %=0:0

               SET %=$ORDER(^%Z("?",99,%))

               if %=""

                   QUIT

               WRITE !,^(%)

%         ;;

1         ;;.ACTION menu              .BREAK line              .CHANGE every

 +1       ;;.FILE routine             .INSERT after            .JOIN lines

 +2       ;;.MOVE lines               .REMOVE lines            .SEARCH for

 +3       ;;.TERMinal type            .XY change to/from replace-with

 +4       ;;. -TO EXIT THE EDITOR

 +5       ;;""+n Absolute line n    +n To advance n lines   -n To backup n lines

 +6       ;; use '*' to get last line

 +7       ;;

 +8       ;;^NAME - to edit a GLOBAL node             *NAME - to edit a LOCAL variable

 +9       ;;MUMPS command line (mumps command <space> or Z command <space>)

 +10      ;;

2         ;;In the line mode,

 +1       ;;Spacebar moves to the next space or comma. Dot to the next char.

 +2       ;;'>' To move forward 80 char or to end of line.

 +3       ;;Backspace to back up one char. E to enter new char's at the cursor.

 +4       ;;CR to exit enter mode, return to start of line or EDIT prompt.

 +5       ;;D to delete from the cursor to the next space or comma.

 +6       ;;Delete (Rub) to delete the char under the cursor.

 +7       ;;CTRL-R to restore line and start back at the beginning.

 +8       ;;

3         ;;In the replace/with mode,

 +1       ;;SPECIAL <REPLACE> STRINGS:

 +2       ;;  END    -to add to the END of a line

 +3       ;;  ...    -to replace a line

 +4       ;;  A...B  -to specify a string that begins with "A" and ends with "B"

 +5       ;;  A...   -to specify a string that begins with "A" to the end of the line

 +6       ;;CTRL-R to restore line.

99        ;;Bytes in routine           Checksum                 Restore lines

 +1       ;;Save lines                 Version #

ZTEDIT4.m