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

Adapt IRC-MSG to use decoded ASCII

This commit is contained in:
Quinn Evans 2015-10-02 14:31:29 -06:00
parent 0f900e868e
commit ce02ac8f23
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
IRC-MSG.COB
View File

@ -8,10 +8,9 @@
LINKAGE SECTION. LINKAGE SECTION.
01 BUFFER. 01 BUFFER.
03 MSG-LENGTH PIC 9(3). 03 MSG-BODY PIC X(999).
03 MSG-BODY PIC X(512). 03 MSG-BODY-1 REDEFINES MSG-BODY PIC X(6).
03 MSG-BODY-1 REDEFINES MSG-BODY PIC X. 88 HAS-PREFIX VALUE "$COLN$".
88 HAS-PREFIX VALUE ";".
01 IRC-MESSAGE. 01 IRC-MESSAGE.
03 PREFIX. 03 PREFIX.
05 NICK PIC X(16). 05 NICK PIC X(16).
@ -21,8 +20,8 @@
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. 05 REST-PREFIX REDEFINES REST PIC X(6).
88 REST-PARAM VALUE ";". 88 REST-PARAM VALUE "$COLN$".
PROCEDURE DIVISION USING BUFFER, IRC-MESSAGE. PROCEDURE DIVISION USING BUFFER, IRC-MESSAGE.
MOVE SPACES TO IRC-MESSAGE. MOVE SPACES TO IRC-MESSAGE.
@ -41,19 +40,19 @@
WITH POINTER MSG-POINTER. WITH POINTER MSG-POINTER.
IF REST-PARAM THEN IF REST-PARAM THEN
MOVE REST TO WORK MOVE REST TO WORK
MOVE 2 TO MSG-POINTER MOVE 7 TO MSG-POINTER
UNSTRING WORK UNSTRING WORK
INTO REST INTO REST
WITH POINTER MSG-POINTER. WITH POINTER MSG-POINTER.
WITH-PREFIX. WITH-PREFIX.
MOVE 2 TO MSG-POINTER. MOVE 7 TO MSG-POINTER.
UNSTRING MSG-BODY, UNSTRING MSG-BODY,
DELIMITED BY SPACES, DELIMITED BY SPACES,
INTO WORK, INTO WORK,
WITH POINTER MSG-POINTER. WITH POINTER MSG-POINTER.
UNSTRING WORK, UNSTRING WORK,
DELIMITED BY "!" OR "@", DELIMITED BY "$EXC$" OR "$AT$",
INTO NICK, INTO NICK,
IDENT, IDENT,
HOST. HOST.