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.
|
||||
01 BUFFER.
|
||||
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.
|
||||
88 HAS-PREFIX VALUE ";".
|
||||
01 IRC-MESSAGE.
|
||||
|
@ -21,13 +21,13 @@
|
|||
03 PARAMETERS.
|
||||
05 TARGET PIC X(50).
|
||||
05 REST PIC X(480).
|
||||
05 REST-PREFIX REDEFINES REST PIC X.
|
||||
88 REST-PARAM VALUE ";".
|
||||
05 REST-PREFIX REDEFINES REST PIC X.
|
||||
88 REST-PARAM VALUE ";".
|
||||
|
||||
PROCEDURE DIVISION USING BUFFER, IRC-MESSAGE.
|
||||
MOVE SPACES TO IRC-MESSAGE.
|
||||
MOVE SPACES TO WORK.
|
||||
MOVE 1 TO MSG-POINTER.
|
||||
MOVE SPACES TO WORK.
|
||||
MOVE 1 TO MSG-POINTER.
|
||||
IF HAS-PREFIX THEN
|
||||
PERFORM WITH-PREFIX
|
||||
ELSE
|
||||
|
@ -39,21 +39,21 @@
|
|||
UNSTRING MSG-BODY,
|
||||
INTO REST,
|
||||
WITH POINTER MSG-POINTER.
|
||||
IF REST-PARAM THEN
|
||||
MOVE REST TO WORK
|
||||
MOVE 2 TO MSG-POINTER
|
||||
UNSTRING WORK
|
||||
INTO REST
|
||||
WITH POINTER MSG-POINTER.
|
||||
IF REST-PARAM THEN
|
||||
MOVE REST TO WORK
|
||||
MOVE 2 TO MSG-POINTER
|
||||
UNSTRING WORK
|
||||
INTO REST
|
||||
WITH POINTER MSG-POINTER.
|
||||
|
||||
WITH-PREFIX.
|
||||
MOVE 2 TO MSG-POINTER.
|
||||
UNSTRING MSG-BODY,
|
||||
DELIMITED BY SPACES,
|
||||
INTO WORK,
|
||||
WITH POINTER MSG-POINTER.
|
||||
DELIMITED BY SPACES,
|
||||
INTO WORK,
|
||||
WITH POINTER MSG-POINTER.
|
||||
UNSTRING WORK,
|
||||
DELIMITED BY "!" OR "@",
|
||||
INTO NICK,
|
||||
IDENT,
|
||||
HOST.
|
||||
DELIMITED BY "!" OR "@",
|
||||
INTO NICK,
|
||||
IDENT,
|
||||
HOST.
|
||||
|
|
Loading…
Reference in a new issue