Adapt IRC-MSG to use decoded ASCII
This commit is contained in:
parent
0f900e868e
commit
ce02ac8f23
1 changed files with 8 additions and 9 deletions
17
IRC-MSG.COB
17
IRC-MSG.COB
|
@ -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.
|
||||||
|
|
Loading…
Reference in a new issue