Restore $SHOW-ESCAPES functionality. (Better than ever!)

2017-03-21 23:21:31 -06:00 · 2017-03-21 23:21:31 -06:00 · 77bd5f9f6b
parent 129bc881d6
commit 77bd5f9f6b
1 changed files with 5 additions and 0 deletions
--- a/WOPO.COB
+++ b/WOPO.COB
@ -404,8 +404,13 @@
                  WITH POINTER PTR(SRC).
           PERFORM SEND-LINE.

+       MAYBE-SHOW-ESCAPES.
+           IF SHOULD-SHOW-ESCAPES THEN
+               CALL "RE-ESCAPE" USING R(SRC).
+
       DO-OUTPUT.
           IF STANDARD-OUTPUT THEN
+               PERFORM MAYBE-SHOW-ESCAPES
               STRING R(SRC) DELIMITED BY "$NUL$",
                      "$NUL$"
                      INTO MSG-BODY OF OUTPUT-BUFFER