ZTEDIT4.m

ZTEDIT4 ;SF/RWF - VA EDITOR ? help message ;7/9/90  07:47 ; [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1001,1002,1003,1004,1005,1007**;APR 1, 2003

 ;;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

 Q

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

 Q

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 #

ZTEDIT4   ;SF/RWF - VA EDITOR ? help message ;7/9/90  07:47 ; [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1001,1002,1003,1004,1005,1007**;APR 1, 2003

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

 +3        KILL ^%Z("?")

           SET %X=$TEXT(QUES)

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

           SET %X=$TEXT(QUESA)

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

 +4        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

 +5        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 #