Converted tabs to spaces some more! Whoo!
This commit is contained in:
parent
d50717767c
commit
7ae57c76c0
1 changed files with 18 additions and 18 deletions
36
IRC-MSG.COB
36
IRC-MSG.COB
|
@ -9,7 +9,7 @@
|
||||||
LINKAGE SECTION.
|
LINKAGE SECTION.
|
||||||
01 BUFFER.
|
01 BUFFER.
|
||||||
03 MSG-LENGTH PIC 9(3).
|
03 MSG-LENGTH PIC 9(3).
|
||||||
03 MSG-BODY PIC X(512).
|
03 MSG-BODY PIC X(512).
|
||||||
03 MSG-BODY-1 REDEFINES MSG-BODY PIC X.
|
03 MSG-BODY-1 REDEFINES MSG-BODY PIC X.
|
||||||
88 HAS-PREFIX VALUE ";".
|
88 HAS-PREFIX VALUE ";".
|
||||||
01 IRC-MESSAGE.
|
01 IRC-MESSAGE.
|
||||||
|
@ -21,13 +21,13 @@
|
||||||
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.
|
||||||
88 REST-PARAM VALUE ";".
|
88 REST-PARAM VALUE ";".
|
||||||
|
|
||||||
PROCEDURE DIVISION USING BUFFER, IRC-MESSAGE.
|
PROCEDURE DIVISION USING BUFFER, IRC-MESSAGE.
|
||||||
MOVE SPACES TO IRC-MESSAGE.
|
MOVE SPACES TO IRC-MESSAGE.
|
||||||
MOVE SPACES TO WORK.
|
MOVE SPACES TO WORK.
|
||||||
MOVE 1 TO MSG-POINTER.
|
MOVE 1 TO MSG-POINTER.
|
||||||
IF HAS-PREFIX THEN
|
IF HAS-PREFIX THEN
|
||||||
PERFORM WITH-PREFIX
|
PERFORM WITH-PREFIX
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -39,21 +39,21 @@
|
||||||
UNSTRING MSG-BODY,
|
UNSTRING MSG-BODY,
|
||||||
INTO REST,
|
INTO REST,
|
||||||
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 2 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 2 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 "!" OR "@",
|
||||||
INTO NICK,
|
INTO NICK,
|
||||||
IDENT,
|
IDENT,
|
||||||
HOST.
|
HOST.
|
||||||
|
|
Loading…
Reference in a new issue