From a76b69ea888641285893ed3376746a4f3c94e551 Mon Sep 17 00:00:00 2001 From: Quinn Evans Date: Tue, 21 Mar 2017 20:45:01 -0600 Subject: [PATCH] Minor refactor. --- WOPO.COB | 35 +++++++++++++++++------------------ 1 file changed, 17 insertions(+), 18 deletions(-) diff --git a/WOPO.COB b/WOPO.COB index 03c2bf9..d24fc27 100644 --- a/WOPO.COB +++ b/WOPO.COB @@ -458,29 +458,28 @@ PERFORM GET-MSG-CONTENTS. IF IS-CTCP(2) THEN PERFORM HANDLE-CTCP - ELSE IF IS-COMMAND(2) THEN - MOVE COMMAND-BODY(2) TO R(1) - D DISPLAY "COMMAND BODY ", R(1) - PERFORM INIT-REPLY - PERFORM HANDLE-COMMAND - ELSE IF TARGET OF IRC-STATE IS EQUAL TO NICK OF WOPO THEN - MOVE R(2) TO R(1) - PERFORM INIT-REPLY - PERFORM HANDLE-COMMAND ELSE - MOVE 1 TO PTR(2) - UNSTRING R(2) DELIMITED BY "$COLN$ " - INTO R(1) - WITH POINTER PTR(2) - IF R(1) IS EQUAL TO NICK OF WOPO THEN - UNSTRING R(2) + MOVE 0 TO INPUT-SOURCE, OUTPUT-DEST. + PERFORM INIT-REPLY + IF IS-COMMAND(2) THEN + MOVE COMMAND-BODY(2) TO R(1) + D DISPLAY "COMMAND BODY ", R(1) + PERFORM HANDLE-COMMAND + ELSE IF TARGET OF IRC-STATE IS EQUAL TO NICK OF WOPO THEN + MOVE R(2) TO R(1) + PERFORM HANDLE-COMMAND + ELSE + MOVE 1 TO PTR(2) + UNSTRING R(2) DELIMITED BY "$COLN$ " INTO R(1) WITH POINTER PTR(2) - PERFORM INIT-REPLY - PERFORM HANDLE-COMMAND. + IF R(1) IS EQUAL TO NICK OF WOPO THEN + UNSTRING R(2) + INTO R(1) + WITH POINTER PTR(2) + PERFORM HANDLE-COMMAND. HANDLE-COMMAND. - MOVE 0 TO INPUT-SOURCE, OUTPUT-DEST. MOVE 1 TO SRC. MOVE 2 TO DEST. PERFORM INDEX-PARAMS.