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

More fixes related to switch to ASCII for IRC

This commit is contained in:
Quinn Evans 2015-10-02 21:07:07 -06:00
parent 7467212f53
commit 24f84f02b6
2 changed files with 27 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
IRC-MSG.COB
View File

@ -35,7 +35,7 @@
DELIMITED BY SPACES, DELIMITED BY SPACES,
INTO COMMAND, TARGET INTO COMMAND, TARGET
WITH POINTER MSG-POINTER. WITH POINTER MSG-POINTER.
UNSTRING MSG-BODY, UNSTRING MSG-BODY DELIMITED BY "$NUL$",
INTO REST, INTO REST,
WITH POINTER MSG-POINTER. WITH POINTER MSG-POINTER.
IF REST-PARAM THEN IF REST-PARAM THEN

43
WOPO.COB
View File

@ -35,7 +35,8 @@
88 DONE VALUE 99. 88 DONE VALUE 99.
01 ASCII-MSG. 01 ASCII-MSG.
03 MSG-BODY PIC X(999). 03 MSG-BODY PIC X(999).
03 ASCII-TABLE PIC 999 OCCURS 999 TIMES. 03 ASCII-TABLE.
05 ASCII-CELL PIC 999 OCCURS 999 TIMES.
01 WOPO. 01 WOPO.
03 WOPO-NICK PIC X(16). 03 WOPO-NICK PIC X(16).
01 IRC-MESSAGE. 01 IRC-MESSAGE.
@ -55,8 +56,8 @@
01 PARAMS. 01 PARAMS.
03 WORK PIC X(480). 03 WORK PIC X(480).
03 WORK-PREFIX REDEFINES WORK PIC X. 03 WORK-PREFIX REDEFINES WORK PIC XX.
88 IS-COMMAND VALUE "$". 88 IS-COMMAND VALUE "$$".
03 WORK-PTR PIC 999 USAGE COMPUTATIONAL. 03 WORK-PTR PIC 999 USAGE COMPUTATIONAL.
03 PARAM PIC X(480) OCCURS 5 TIMES. 03 PARAM PIC X(480) OCCURS 5 TIMES.
03 REG PIC X(480) OCCURS 5 TIMES. 03 REG PIC X(480) OCCURS 5 TIMES.
@ -86,7 +87,7 @@
"$NUL$" "$NUL$"
INTO MSG-BODY, INTO MSG-BODY,
CALL "ENCODE-STRING" USING ASCII-MSG. CALL "ENCODE-STRING" USING ASCII-MSG.
CALL "CHANNEL-OPEN" USING ASCII-MSG, STATE. CALL "CHANNEL-OPEN" USING ASCII-TABLE, STATE.
IF NOT SUCCESS THEN DISPLAY MSG-BODY IF NOT SUCCESS THEN DISPLAY MSG-BODY
GO TO DIE. GO TO DIE.
MOVE "PASS" TO CONFIG-KEY. MOVE "PASS" TO CONFIG-KEY.
@ -152,15 +153,20 @@
GO TO DIE. GO TO DIE.
SEND-LINE. SEND-LINE.
CALL "ENCODE-STRING" USING ASCII-MSG D DISPLAY "ENCODING TO ASCII. ", MSG-BODY.
CALL "CHANNEL-SEND" USING ASCII-MSG, STATE. CALL "ENCODE-STRING" USING ASCII-MSG.
IF NOT SUCCESS THEN DISPLAY MSG-BODY CALL "CHANNEL-SEND" USING ASCII-TABLE, STATE.
IF NOT SUCCESS THEN CALL "DECODE-STRING" USING ASCII-MSG
DISPLAY MSG-BODY
GO TO DIE. GO TO DIE.
RECEIVE-LINE. RECEIVE-LINE.
CALL "CHANNEL-RECV" USING ASCII-MSG, STATE. CALL "CHANNEL-RECV" USING ASCII-TABLE, STATE.
CALL "DECODE-STRING" USING ASCII-MSG D DISPLAY "RECEIVED LINE FROM CHANNEL".
IF NOT SUCCESS THEN GO TO DIE. MOVE SPACES TO MSG-BODY.
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 "IRC-MSG" USING MSG-BODY, IRC-MESSAGE.
WAIT-FOR-COMMAND. WAIT-FOR-COMMAND.
@ -290,7 +296,7 @@
HANDLE-MESSAGE. HANDLE-MESSAGE.
PERFORM GET-PARAMS. PERFORM GET-PARAMS.
IF IS-COMMAND THEN IF IS-COMMAND THEN
MOVE 2 TO WORK-PTR MOVE 3 TO WORK-PTR
UNSTRING WORK INTO PARAM(1) UNSTRING WORK INTO PARAM(1)
WITH POINTER WORK-PTR WITH POINTER WORK-PTR
D DISPLAY "COMMAND BODY ", PARAM(1) D DISPLAY "COMMAND BODY ", PARAM(1)
@ -322,16 +328,17 @@
HANDLE-HELP. HANDLE-HELP.
PERFORM BEGIN-REPLY. PERFORM BEGIN-REPLY.
STRING "$BF-INPUT $BF-CODE $BF-OUTPUT $BF-RUN " STRING "$$BF-INPUT $$BF-CODE $$BF-OUTPUT $$BF-RUN "
- "$HELP $LEVEL $JOIN $PART $QUIT $RELEVEL $SHITFED " - "$$HELP $$LEVEL $$JOIN $$PART $$QUIT $$RELEVEL "
- "$SOURCE" - "$$SHITFED $$SOURCE"
- "$NUL$"
INTO MSG-BODY INTO MSG-BODY
WITH POINTER WORK-PTR. WITH POINTER WORK-PTR.
PERFORM SEND-LINE. PERFORM SEND-LINE.
HANDLE-SHITFED. HANDLE-SHITFED.
PERFORM BEGIN-REPLY. PERFORM BEGIN-REPLY.
STRING "LEAVE MY CASE ALONE, ASSHOLE." STRING "$002$LEAVE MY CASE ALONE, ASSHOLE."
INTO MSG-BODY INTO MSG-BODY
WITH POINTER WORK-PTR. WITH POINTER WORK-PTR.
PERFORM SEND-LINE. PERFORM SEND-LINE.
@ -450,10 +457,11 @@
IF PARAM(2) IS EQUAL TO SPACES THEN IF PARAM(2) IS EQUAL TO SPACES THEN
PERFORM BEGIN-REPLY PERFORM BEGIN-REPLY
STRING "CODE. " DELIMITED BY SIZE, STRING "CODE. " DELIMITED BY SIZE,
BF-CODE DELIMITED BY " ", BF-CODE DELIMITED BY "$$",
"$NUL$" "$NUL$" DELIMITED BY SIZE
INTO MSG-BODY INTO MSG-BODY
WITH POINTER WORK-PTR WITH POINTER WORK-PTR
D DISPLAY "BF-CODE. ", BF-CODE
PERFORM SEND-LINE PERFORM SEND-LINE
ELSE ELSE
MOVE PARAM(2) TO REG(1) MOVE PARAM(2) TO REG(1)
@ -477,6 +485,7 @@
STRING "INPUT. ", STRING "INPUT. ",
BF-INPUT BF-INPUT
INTO MSG-BODY INTO MSG-BODY
WITH POINTER WORK-PTR
D DISPLAY "INPUT. ", BF-INPUT D DISPLAY "INPUT. ", BF-INPUT
D DISPLAY "MSG-BODY. ", MSG-BODY D DISPLAY "MSG-BODY. ", MSG-BODY
PERFORM SEND-LINE PERFORM SEND-LINE