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

Finish removing return values; actually works now.

This commit is contained in:
Quinn Evans 2015-09-27 15:17:56 -06:00
parent b57a27e08b
commit 4757ae2fe0
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
WOPO.COB
View File

@ -63,7 +63,7 @@
CALL "PRINT-CONFIG".
MOVE LENGTH OF MSG-BODY TO MSG-LENGTH.
CALL "CHANNEL-INIT"
USING BUFFER.
USING BUFFER, STATE.
OPEN INPUT CONFIG.
MOVE "SERVER" TO CONFIG-KEY.
PERFORM READ-CONFIG-ENTRY.
@ -72,7 +72,7 @@
CONFIG-VALUE, DELIMITED BY SPACE,
INTO MSG-BODY,
WITH POINTER MSG-LENGTH.
CALL "CHANNEL-OPEN", GIVING STATE.
CALL "CHANNEL-OPEN".
IF NOT SUCCESS THEN DISPLAY MSG-BODY
GO TO DIE.
MOVE "PASS" TO CONFIG-KEY.
@ -146,13 +146,13 @@
GO TO DIE.
SEND-LINE.
CALL "CHANNEL-SEND" GIVING STATE.
CALL "CHANNEL-SEND".
IF NOT SUCCESS THEN DISPLAY MSG-BODY
GO TO DIE.
RECEIVE-LINE.
INITIALIZE MSG-BODY.
CALL "CHANNEL-RECV" GIVING STATE.
CALL "CHANNEL-RECV".
IF NOT SUCCESS THEN GO TO DIE.
CALL "IRC-MSG" USING BUFFER, IRC-MESSAGE.

14
channel.c
View File

@ -42,7 +42,7 @@ int channel_message_length(void)
void channel_set_status(int value)
{
char buf[9];
sprintf(buf, "%8u", value);
sprintf(buf, "%08u", value);
memcpy(channel_status, buf + 6, 2);
return;
@ -169,13 +169,13 @@ void CHANNEL__SEND(void)
perror("send");
close(sockfd);
channel_string_to_cobol("Hung up");
set_channel_status(EHUP);
channel_set_status(EHUP);
return;
}
sent += status;
}
set_channel_status(0);
channel_set_status(0);
return;
}
@ -189,7 +189,7 @@ void CHANNEL__RECV(void)
size_t message_size = message_end - recv_buf;
if (message_size > msg_body_len) {
channel_string_to_cobol("Server sent too-long message");
set_channel_status(ESERV);
channel_set_status(ESERV);
return;
}
memcpy(msg_body, recv_buf, message_size);
@ -200,7 +200,7 @@ void CHANNEL__RECV(void)
recv_buf[i] = message_end[i];
}
channel_to_cobol();
set_channel_status(0);
channel_set_status(0);
return;
}
if(recv_buf_pos < RECV_BUF_SIZE - 1) {
@ -211,12 +211,12 @@ void CHANNEL__RECV(void)
}
perror("recv");
channel_string_to_cobol("Hung up");
set_channel_status(EHUP);
channel_set_status(EHUP);
return;
}
channel_string_to_cobol("Server failed to send newline");
set_channel_status(ESERV);
channel_set_status(ESERV);
return;
}