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

Converted tabs to spaces some more! Whoo!

This commit is contained in:
Quinn Evans 2015-10-01 00:40:59 -06:00
parent d50717767c
commit 7ae57c76c0
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
IRC-MSG.COB
View File

@ -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.