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

Proper space handling for BF-INPUT.

Browse source
This commit is contained in:
Quinn Evans 2015-09-30 12:50:54 -06:00
parent edd956a86c
commit 0316aaefe0
1 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
WOPO.COB
View file

@ -454,13 +454,21 @@
HANDLE-BF-INPUT. HANDLE-BF-INPUT.
IF PARAM(2) IS EQUAL TO SPACES THEN IF PARAM(2) IS EQUAL TO SPACES THEN
PERFORM BEGIN-REPLY PERFORM BEGIN-REPLY
STRING "INPUT. " DELIMITED BY SIZE, STRING "INPUT. ",
BF-INPUT DELIMITED BY " " BF-INPUT
INTO MSG-BODY INTO MSG-BODY
WITH POINTER MSG-LENGTH WITH POINTER MSG-LENGTH
D DISPLAY "INPUT. ", BF-INPUT
D DISPLAY "MSG-BODY. ", MSG-BODY
PERFORM SEND-LINE PERFORM SEND-LINE
ELSE ELSE
MOVE PARAM(2) TO REG(1) MOVE 1 TO MSG-LENGTH
UNSTRING REST DELIMITED BY SPACE
INTO PARAM(1)
WITH POINTER MSG-LENGTH
UNSTRING REST
INTO REG(1)
WITH POINTER MSG-LENGTH
* PRESERVE VARIABLES FOR REPLY. * PRESERVE VARIABLES FOR REPLY.
MOVE NICK TO REG(2) MOVE NICK TO REG(2)
MOVE COMMAND TO REG(3) MOVE COMMAND TO REG(3)
@ -471,12 +479,12 @@
MOVE REG(2) TO NICK MOVE REG(2) TO NICK
MOVE REG(3) TO COMMAND MOVE REG(3) TO COMMAND
MOVE REG(4) TO TARGET MOVE REG(4) TO TARGET
MOVE SPACES TO BF-INPUT
MOVE REG(1) TO BF-INPUT MOVE REG(1) TO BF-INPUT
PERFORM REPLY-ACK. PERFORM REPLY-ACK.
HANDLE-BF-OUTPUT. HANDLE-BF-OUTPUT.
PERFORM BEGIN-REPLY. PERFORM BEGIN-REPLY.
D DISPLAY "BF OUTPUT. ", BF-OUTPUT.
D DISPLAY "STRINGING BF OUTPUT". D DISPLAY "STRINGING BF OUTPUT".
STRING "OUTPUT. " DELIMITED BY SIZE, STRING "OUTPUT. " DELIMITED BY SIZE,
BF-OUTPUT DELIMITED BY "$NUL$" BF-OUTPUT DELIMITED BY "$NUL$"