78 lines
2.6 KiB
COBOL
78 lines
2.6 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. "RE-ESCAPE".
|
|
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
01 PTRS.
|
|
03 IN-PTR PIC 999.
|
|
03 OUT-PTR PIC 999.
|
|
03 TEMP-PTR PIC 999.
|
|
01 CURRENT-CHAR PIC X.
|
|
88 ESCAPE-CHAR VALUE "$".
|
|
01 ESCAPE-TEMP PIC XXX.
|
|
88 STRING-TERMINATED VALUE "NUL".
|
|
01 LOOP-STATE PIC 99.
|
|
88 DONE VALUE 99.
|
|
|
|
LINKAGE SECTION.
|
|
01 INPUT-BUFFER PIC X(999).
|
|
01 OUTPUT-BUFFER PIC X(999).
|
|
|
|
PROCEDURE DIVISION USING INPUT-BUFFER, OUTPUT-BUFFER.
|
|
MOVE 0 TO LOOP-STATE.
|
|
MOVE 1 TO IN-PTR, OUT-PTR.
|
|
PERFORM MAYBE-ESCAPE-CHAR UNTIL DONE.
|
|
* IF THE STRING WAS UNTERMINATED, THE POINTER WILL HAVE WRAPPED
|
|
IF OUT-PTR IS GREATER THAN 0 THEN
|
|
MOVE 0 TO LOOP-STATE
|
|
PERFORM BLANK-REST UNTIL DONE.
|
|
EXIT PROGRAM.
|
|
|
|
MAYBE-ESCAPE-CHAR.
|
|
IF IN-PTR IS LESS THAN 999 AND
|
|
OUT-PTR IS LESS THAN 999 THEN
|
|
UNSTRING INPUT-BUFFER
|
|
INTO CURRENT-CHAR
|
|
WITH POINTER IN-PTR
|
|
IF ESCAPE-CHAR THEN
|
|
MOVE IN-PTR TO TEMP-PTR
|
|
UNSTRING INPUT-BUFFER DELIMITED BY "$"
|
|
INTO ESCAPE-TEMP
|
|
WITH POINTER TEMP-PTR
|
|
IF STRING-TERMINATED THEN
|
|
MOVE 99 TO LOOP-STATE
|
|
IF OUT-PTR IS LESS THAN 995 THEN
|
|
STRING "$NUL$"
|
|
INTO OUTPUT-BUFFER
|
|
WITH POINTER OUT-PTR
|
|
ELSE
|
|
NEXT SENTENCE
|
|
ELSE
|
|
STRING "$$"
|
|
INTO OUTPUT-BUFFER
|
|
WITH POINTER OUT-PTR
|
|
ELSE
|
|
STRING CURRENT-CHAR
|
|
INTO OUTPUT-BUFFER
|
|
WITH POINTER OUT-PTR
|
|
ELSE
|
|
MOVE 99 TO LOOP-STATE
|
|
UNSTRING INPUT-BUFFER
|
|
INTO CURRENT-CHAR
|
|
WITH POINTER IN-PTR
|
|
IF ESCAPE-CHAR THEN
|
|
STRING SPACE
|
|
INTO OUTPUT-BUFFER
|
|
WITH POINTER OUT-PTR
|
|
ELSE
|
|
STRING CURRENT-CHAR
|
|
INTO OUTPUT-BUFFER
|
|
WITH POINTER OUT-PTR.
|
|
|
|
BLANK-REST.
|
|
IF OUT-PTR IS EQUAL TO 999 THEN
|
|
MOVE 99 TO LOOP-STATE.
|
|
STRING SPACE
|
|
INTO OUTPUT-BUFFER
|
|
WITH POINTER OUT-PTR.
|