uplime/WOPO
uplime
/
WOPO
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Adapt WOPO to use new PARSE-IRC-MESSAGE.

This commit is contained in:
Quinn Evans 2015-10-03 20:20:19 -06:00
parent a857d0b8e6
commit db8f2611f7
1 changed files with 76 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

119
WOPO.COB
View File

@ -42,22 +42,6 @@
05 ASCII-CELL PIC 999 OCCURS 999 TIMES.
01 WOPO.
03 WOPO-NICK PIC X(16).
01 IRC-MESSAGE.
03 PREFIX.
05 NICK PIC X(16).
05 IDENT PIC X(16).
05 HOST PIC X(64).
03 COMMAND PIC X(16).
88 KICK VALUE "KICK".
88 PING VALUE "PING".
88 PRIVMSG VALUE "PRIVMSG".
88 NOTICE VALUE "NOTICE".
03 PARAMETERS.
05 TARGET PIC X(50).
05 REST PIC X(480).
01 WAITING-COMMAND PIC X(16).
01 PARAMS.
03 WORK PIC X(480).
03 WORK-PREFIX REDEFINES WORK PIC XX.
88 IS-COMMAND VALUE "$$".
@ -65,6 +49,27 @@
03 PARAM PIC X(480) OCCURS 5 TIMES.
03 REG PIC X(480) OCCURS 5 TIMES.
01 IRC-PARAMETERS.
03 NUM-PARAMS PIC 99.
03 PREFIX.
05 MSG-SRC PIC 999.
88 GOT-PREFIX VALUES 1 THROUGH 999.
05 IDENT PIC 999.
05 HOST PIC 999.
03 COMMAND PIC 999.
03 PARAMS.
05 PARAM-PTR PIC 999 OCCURS 15 TIMES.
01 IRC-STATE.
03 NICK PIC X(16).
03 COMMAND PIC X(16).
88 KICK VALUE "KICK".
88 PING VALUE "PING".
88 PRIVMSG VALUE "PRIVMSG".
88 NOTICE VALUE "NOTICE".
03 TARGET PIC X(50).
03 WAITING-COMMAND PIC X(16).
01 BF-I-O.
03 BF-INPUT PIC X(999)
VALUE "$NUL$".
@ -170,13 +175,38 @@
CALL "DECODE-STRING" USING ASCII-MSG.
IF NOT SUCCESS THEN DISPLAY MSG-BODY
GO TO DIE.
CALL "IRC-MSG" USING MSG-BODY, IRC-MESSAGE.
CALL "PARSE-IRC-MSG" USING MSG-BODY, IRC-PARAMETERS.
IF GOT-PREFIX THEN
MOVE MSG-SRC TO WORK-PTR
UNSTRING MSG-BODY
DELIMITED BY "$EXC$" OR "$AT$" OR SPACES
INTO NICK
WITH POINTER WORK-PTR.
MOVE COMMAND OF IRC-PARAMETERS TO WORK-PTR.
UNSTRING MSG-BODY
DELIMITED BY SPACES
INTO COMMAND OF IRC-STATE
WITH POINTER WORK-PTR.
IF NUM-PARAMS IS NOT LESS THAN 1 THEN
MOVE PARAM-PTR(1) TO WORK-PTR
UNSTRING MSG-BODY
DELIMITED BY SPACES
INTO TARGET
WITH POINTER WORK-PTR
ELSE
MOVE SPACES TO TARGET.
WAIT-FOR-COMMAND.
PERFORM RECEIVE-LINE UNTIL COMMAND EQUALS WAITING-COMMAND.
PERFORM RECEIVE-LINE UNTIL
COMMAND OF IRC-STATE EQUALS WAITING-COMMAND.
GET-PARAMS.
UNSTRING REST DELIMITED BY SPACE INTO
MOVE PARAM-PTR(NUM-PARAMS) TO WORK-PTR.
UNSTRING MSG-BODY DELIMITED BY "$NUL$"
INTO WORK
WITH POINTER WORK-PTR.
UNSTRING WORK DELIMITED BY SPACE
INTO
PARAM(1)
PARAM(2)
PARAM(3)
@ -214,10 +244,13 @@
IF PARAM(3) IS NOT EQUAL TO "3" THEN
MOVE 0 TO USER-LEVEL
ELSE NEXT SENTENCE
ELSE MOVE SPACES TO COMMAND.
ELSE MOVE SPACES TO COMMAND OF IRC-STATE.
MAIN.
PERFORM RECEIVE-LINE.
D DISPLAY "NICK. ", NICK,
D "COMMAND. ", COMMAND OF IRC-STATE,
D "TARGET. ", TARGET.
IF PING THEN
PERFORM PONG
ELSE IF PRIVMSG THEN
@ -234,7 +267,7 @@
BEGIN-REPLY.
MOVE SPACES TO MSG-BODY.
MOVE 1 TO WORK-PTR.
STRING COMMAND DELIMITED BY SPACES
STRING COMMAND OF IRC-STATE DELIMITED BY SPACES
INTO MSG-BODY
WITH POINTER WORK-PTR.
ADD 1 TO WORK-PTR.
@ -277,11 +310,11 @@
"$NUL$"
INTO MSG-BODY
PERFORM SEND-LINE
MOVE 1 TO WORK-PTR
UNSTRING REST DELIMITED BY "$COLN$"
MOVE PARAM-PTR(NUM-PARAMS) TO WORK-PTR
UNSTRING MSG-BODY DELIMITED BY "$COLN$"
INTO WORK
WITH POINTER WORK-PTR
UNSTRING REST
UNSTRING MSG-BODY
INTO WORK
WITH POINTER WORK-PTR
IF WORK IS NOT EQUAL TO WOPO-NICK THEN
@ -370,7 +403,7 @@
MOVE PARAM(2) TO REG(1).
* PRESERVE VARIABLES FOR REPLY
MOVE NICK TO REG(2).
MOVE COMMAND TO REG(3).
MOVE COMMAND OF IRC-STATE TO REG(3).
MOVE TARGET TO REG(4).
PERFORM VALIDATE-USER.
IF USER-LEVEL IS GREATER THAN 80 AND
@ -383,7 +416,7 @@
PERFORM SEND-LINE
* RESTORE NICK AND TARGET, THEN REPLY.
MOVE REG(2) TO NICK
MOVE REG(3) TO COMMAND
MOVE REG(3) TO COMMAND OF IRC-STATE
MOVE REG(4) TO TARGET
PERFORM REPLY-ACK.
@ -391,7 +424,7 @@
MOVE PARAM(2) TO REG(1).
* PRESERVE VARIABLES FOR REPLY
MOVE NICK TO REG(2).
MOVE COMMAND TO REG(3).
MOVE COMMAND OF IRC-STATE TO REG(3).
MOVE TARGET TO REG(4).
IF REG(1) EQUALS SPACES THEN
MOVE TARGET TO REG(1).
@ -399,7 +432,7 @@
IF USER-LEVEL IS GREATER THAN 80 THEN
* RESTORE NICK AND TARGET, THEN REPLY.
MOVE REG(2) TO NICK
MOVE REG(3) TO COMMAND
MOVE REG(3) TO COMMAND OF IRC-STATE
MOVE REG(4) TO TARGET
PERFORM REPLY-ACK
MOVE SPACES TO MSG-BODY
@ -412,7 +445,7 @@
HANDLE-QUIT.
* PRESERVE VARIABLES FOR REPLY
MOVE NICK TO REG(1).
MOVE COMMAND TO REG(2).
MOVE COMMAND OF IRC-STATE TO REG(2).
MOVE TARGET TO REG(3).
MOVE "QUIT-MESSAGE" TO CONFIG-KEY.
READ CONFIG RECORD
@ -421,7 +454,7 @@
IF USER-LEVEL IS GREATER THAN 90 THEN
* RESTORE NICK AND TARGET, THEN REPLY.
MOVE REG(1) TO NICK
MOVE REG(2) TO COMMAND
MOVE REG(2) TO COMMAND OF IRC-STATE
MOVE REG(3) TO TARGET
PERFORM REPLY-ACK
MOVE SPACES TO MSG-BODY
@ -436,7 +469,7 @@
MOVE PARAM(3) TO REG(2).
* PRESERVE VARIABLES FOR REPLY
MOVE NICK TO REG(3).
MOVE COMMAND TO REG(4).
MOVE COMMAND OF IRC-STATE TO REG(4).
MOVE TARGET TO REG(5).
PERFORM VALIDATE-USER.
MOVE REG(1) TO USER-NAME.
@ -448,7 +481,7 @@
INVALID KEY MOVE 0 TO USER-LEVEL.
* RESTORE NICK AND TARGET, THEN REPLY.
MOVE REG(3) TO NICK.
MOVE REG(4) TO COMMAND.
MOVE REG(4) TO COMMAND OF IRC-STATE.
MOVE REG(5) TO TARGET.
PERFORM BEGIN-REPLY.
STRING USER-RECORD
@ -470,13 +503,13 @@
MOVE PARAM(2) TO REG(1)
* PRESERVE VARIABLES FOR REPLY.
MOVE NICK TO REG(2)
MOVE COMMAND TO REG(3)
MOVE COMMAND OF IRC-STATE TO REG(3)
MOVE TARGET TO REG(4)
PERFORM VALIDATE-USER
IF USER-LEVEL > 60 THEN
* RESTORE NICK AND TARGET, THEN REPLY.
MOVE REG(2) TO NICK
MOVE REG(3) TO COMMAND
MOVE REG(3) TO COMMAND OF IRC-STATE
MOVE REG(4) TO TARGET
MOVE SPACES TO BF-CODE
MOVE REG(1) TO BF-CODE
@ -493,22 +526,22 @@
D DISPLAY "MSG-BODY. ", MSG-BODY
PERFORM SEND-LINE
ELSE
MOVE 1 TO WORK-PTR
UNSTRING REST DELIMITED BY SPACE
INTO PARAM(1),
WITH POINTER WORK-PTR
UNSTRING REST
MOVE PARAM-PTR(NUM-PARAMS) TO WORK-PTR
UNSTRING MSG-BODY DELIMITED BY SPACE
INTO PARAM(1),
WITH POINTER WORK-PTR
UNSTRING MSG-BODY
INTO REG(1)
WITH POINTER WORK-PTR
* PRESERVE VARIABLES FOR REPLY.
MOVE NICK TO REG(2)
MOVE COMMAND TO REG(3)
MOVE COMMAND OF IRC-STATE TO REG(3)
MOVE TARGET TO REG(4)
PERFORM VALIDATE-USER
IF USER-LEVEL > 50 THEN
* RESTORE NICK AND TARGET, THEN REPLY
MOVE REG(2) TO NICK
MOVE REG(3) TO COMMAND
MOVE REG(3) TO COMMAND OF IRC-STATE
MOVE REG(4) TO TARGET
MOVE REG(1) TO BF-INPUT
PERFORM REPLY-ACK.
@ -530,7 +563,7 @@
MOVE PARAM(2) TO REG(1).
* PRESERVE VARIABLES FOR REPLY
MOVE NICK TO REG(2).
MOVE COMMAND TO REG(3).
MOVE COMMAND OF IRC-STATE TO REG(3).
MOVE TARGET TO REG(4).
PERFORM VALIDATE-USER.
IF REG(1) IS EQUAL TO SPACES THEN
@ -540,7 +573,7 @@
D DISPLAY "CYCLE LIMIT. ", CYCLE-LIMIT.
* RESTORE NICK AND TARGET, THEN REPLY.
MOVE REG(2) TO NICK
MOVE REG(3) TO COMMAND
MOVE REG(3) TO COMMAND OF IRC-STATE
MOVE REG(4) TO TARGET
IF USER-LEVEL > 50 THEN
PERFORM REPLY-ACK