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

Change parameter separator from space to "$"

This commit is contained in:
Quinn "heddwch" Evans 2018-09-11 16:50:21 -06:00
parent 3576df48f7
commit 1b463ab788
1 changed files with 33 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
WOPO.COB
View File

@ -313,7 +313,7 @@
ADD 1 TO NUM-PARAMS OF WOPO.
MOVE PTR(DEST) TO PARAM OF WOPO(NUM-PARAMS OF WOPO).
MOVE SPACES TO R(DEST).
UNSTRING R(SRC) DELIMITED BY SPACE
UNSTRING R(SRC) DELIMITED BY "$$" OR "$NUL$"
INTO R(DEST)
WITH POINTER PTR(DEST).
IF R(DEST) IS EQUAL TO SPACES THEN
@ -324,7 +324,7 @@
GET-PARAM.
MOVE PARAM OF WOPO(PTR(SRC)) TO PTR(DEST).
UNSTRING R(SRC) DELIMITED BY SPACES OR "$NUL$"
UNSTRING R(SRC) DELIMITED BY "$$" OR "$NUL$"
INTO R(DEST)
WITH POINTER PTR(DEST).
@ -339,6 +339,31 @@
PERFORM RECEIVE-LINE UNTIL
COMMAND OF IRC-STATE IS EQUAL TO WAITING-COMMAND.
INDEX-NICKSERV-PARAMS.
MOVE 0 TO NUM-PARAMS OF WOPO, STATE.
MOVE 1 TO PTR(DEST)
PERFORM INDEX-NICKSERV-PARAM UNTIL DONE.
D DISPLAY "NUM-PARAMS. ", NUM-PARAMS OF WOPO.
INDEX-NICKSERV-PARAM.
ADD 1 TO NUM-PARAMS OF WOPO.
MOVE PTR(DEST) TO PARAM OF WOPO(NUM-PARAMS OF WOPO).
MOVE SPACES TO R(DEST).
UNSTRING R(SRC) DELIMITED BY SPACES OR "$NUL$"
INTO R(DEST)
WITH POINTER PTR(DEST).
IF R(DEST) IS EQUAL TO SPACES THEN
SUBTRACT 1 FROM NUM-PARAMS OF WOPO
MOVE 99 TO STATE.
IF NUM-PARAMS OF WOPO IS NOT LESS THAN 9 THEN
MOVE 99 TO STATE.
GET-NICKSERV-PARAM.
MOVE PARAM OF WOPO(PTR(SRC)) TO PTR(DEST).
UNSTRING R(SRC) DELIMITED BY SPACES OR "$NUL$"
INTO R(DEST)
WITH POINTER PTR(DEST).
VALIDATE-USER.
D DISPLAY "ENTERED VALIDATE-USER".
MOVE NICK OF IRC-STATE TO USER-NAME.
@ -359,21 +384,21 @@
PERFORM GET-MSG-CONTENTS.
MOVE 2 TO SRC.
MOVE 1 TO DEST.
PERFORM INDEX-PARAMS.
PERFORM INDEX-NICKSERV-PARAMS.
MOVE 1 TO PTR(2).
PERFORM GET-PARAM.
PERFORM GET-NICKSERV-PARAM.
IF R(1) IS EQUAL TO USER-NAME THEN
MOVE 4 TO PTR(2)
PERFORM GET-PARAM
PERFORM GET-NICKSERV-PARAM
IF R(1) IS EQUAL TO "ACC" THEN
MOVE 99 TO STATE
MOVE 5 TO PTR(2)
PERFORM GET-PARAM
PERFORM GET-NICKSERV-PARAM
IF R(1) IS NOT EQUAL TO "3" THEN
MOVE 0 TO USER-LEVEL
ELSE
MOVE 3 TO PTR(2)
PERFORM GET-PARAM
PERFORM GET-NICKSERV-PARAM
MOVE R(1) TO USER-NAME
READ USERS RECORD
INVALID KEY MOVE 0 TO USER-LEVEL.
@ -523,7 +548,7 @@
ELSE
D DISPLAY "ADDRESSED MESSAGE DETECTED."
MOVE 1 TO PTR(2)
UNSTRING R(2) DELIMITED BY "$COLN$ "
UNSTRING R(2) DELIMITED BY "$COLN$ " OR "$$"
INTO R(1)
WITH POINTER PTR(2)
D DISPLAY "NICK ADDRESSED. ", R(1)