Move handling of "rest" argument colon to IRC-MSG, delete extra colon.
This commit is contained in:
parent
bc6c250aa3
commit
4c26e61448
2 changed files with 13 additions and 9 deletions
17
IRC-MSG.COB
17
IRC-MSG.COB
|
@ -3,7 +3,7 @@
|
||||||
|
|
||||||
DATA DIVISION.
|
DATA DIVISION.
|
||||||
WORKING-STORAGE SECTION.
|
WORKING-STORAGE SECTION.
|
||||||
01 PREFIX-WORK PIC X(96).
|
01 WORK PIC X(480).
|
||||||
01 MSG-POINTER PIC 9(3).
|
01 MSG-POINTER PIC 9(3).
|
||||||
|
|
||||||
LINKAGE SECTION.
|
LINKAGE SECTION.
|
||||||
|
@ -21,9 +21,11 @@
|
||||||
03 PARAMETERS.
|
03 PARAMETERS.
|
||||||
05 TARGET PIC X(50).
|
05 TARGET PIC X(50).
|
||||||
05 REST PIC X(480).
|
05 REST PIC X(480).
|
||||||
|
05 REST-PREFIX REDEFINES REST PIC X.
|
||||||
|
88 REST-PARAM VALUE ":".
|
||||||
|
|
||||||
PROCEDURE DIVISION USING BUFFER, IRC-MESSAGE.
|
PROCEDURE DIVISION USING BUFFER, IRC-MESSAGE.
|
||||||
INITIALIZE IRC-MESSAGE, PREFIX-WORK, MSG-POINTER.
|
INITIALIZE IRC-MESSAGE, WORK, MSG-POINTER.
|
||||||
IF HAS-PREFIX THEN
|
IF HAS-PREFIX THEN
|
||||||
PERFORM WITH-PREFIX
|
PERFORM WITH-PREFIX
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -33,17 +35,22 @@
|
||||||
INTO COMMAND, TARGET
|
INTO COMMAND, TARGET
|
||||||
WITH POINTER MSG-POINTER.
|
WITH POINTER MSG-POINTER.
|
||||||
UNSTRING MSG-BODY,
|
UNSTRING MSG-BODY,
|
||||||
DELIMITED BY " ",
|
|
||||||
INTO REST,
|
INTO REST,
|
||||||
WITH POINTER MSG-POINTER.
|
WITH POINTER MSG-POINTER.
|
||||||
|
IF REST-PARAM THEN
|
||||||
|
MOVE REST TO WORK
|
||||||
|
MOVE 2 TO MSG-POINTER
|
||||||
|
UNSTRING WORK
|
||||||
|
INTO REST
|
||||||
|
WITH POINTER MSG-POINTER.
|
||||||
|
|
||||||
WITH-PREFIX.
|
WITH-PREFIX.
|
||||||
MOVE 2 TO MSG-POINTER.
|
MOVE 2 TO MSG-POINTER.
|
||||||
UNSTRING MSG-BODY,
|
UNSTRING MSG-BODY,
|
||||||
DELIMITED BY SPACES,
|
DELIMITED BY SPACES,
|
||||||
INTO PREFIX-WORK,
|
INTO WORK,
|
||||||
WITH POINTER MSG-POINTER.
|
WITH POINTER MSG-POINTER.
|
||||||
UNSTRING PREFIX-WORK,
|
UNSTRING WORK,
|
||||||
DELIMITED BY "!" OR "@",
|
DELIMITED BY "!" OR "@",
|
||||||
INTO NICK,
|
INTO NICK,
|
||||||
IDENT,
|
IDENT,
|
||||||
|
|
5
WOPO.COB
5
WOPO.COB
|
@ -55,7 +55,6 @@
|
||||||
03 WORK PIC X(50).
|
03 WORK PIC X(50).
|
||||||
03 WORK-PREFIX REDEFINES WORK PIC X.
|
03 WORK-PREFIX REDEFINES WORK PIC X.
|
||||||
88 IS-COMMAND VALUE "$".
|
88 IS-COMMAND VALUE "$".
|
||||||
88 REST-PARAM VALUE ":".
|
|
||||||
03 PARAM PIC X(50) OCCURS 5 TIMES.
|
03 PARAM PIC X(50) OCCURS 5 TIMES.
|
||||||
03 REG PIC X(50) OCCURS 5 TIMES.
|
03 REG PIC X(50) OCCURS 5 TIMES.
|
||||||
|
|
||||||
|
@ -168,8 +167,6 @@
|
||||||
PARAM(4)
|
PARAM(4)
|
||||||
PARAM(5).
|
PARAM(5).
|
||||||
MOVE PARAM(1) TO WORK.
|
MOVE PARAM(1) TO WORK.
|
||||||
IF REST-PARAM THEN
|
|
||||||
UNSTRING WORK DELIMITED BY ":" INTO PARAM(1), PARAM(1).
|
|
||||||
|
|
||||||
VALIDATE-USER.
|
VALIDATE-USER.
|
||||||
MOVE NICK TO USER-NAME.
|
MOVE NICK TO USER-NAME.
|
||||||
|
@ -267,7 +264,7 @@
|
||||||
|
|
||||||
HANDLE-SOURCE.
|
HANDLE-SOURCE.
|
||||||
PERFORM BEGIN-REPLY.
|
PERFORM BEGIN-REPLY.
|
||||||
STRING ":HTTPS://GITHUB.COM/HEDDWCH/WOPO"
|
STRING "HTTPS://GITHUB.COM/HEDDWCH/WOPO"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY
|
||||||
WITH POINTER MSG-LENGTH.
|
WITH POINTER MSG-LENGTH.
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
Loading…
Reference in a new issue