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