-/* src/client/io.c */
+/* src/client/io.c
+ *
+ * This file is part of PlomRogue. PlomRogue is licensed under the GPL version 3
+ * or any later version. For details on its copyright, license, and warranties,
+ * see the file NOTICE in the root directory of the PlomRogue source package.
+ */
+#define _POSIX_C_SOURCE 1 /* PIPE_BUF */
#include "io.h"
-#include <errno.h> /* global errno */
-#include <fcntl.h> /* open() */
#include <limits.h> /* PIPE_BUF */
-#include <ncurses.h> /* halfdelay(), getch() */
+#include <ncurses.h> /* timeout(), getch() */
#include <stddef.h> /* NULL */
-#include <stdint.h> /* uint8_t, uint16_t, uint32_t */
-#include <stdio.h> /* FILE, sprintf(), fseek() */
+#include <stdint.h> /* uint8_t, uint16_t, uint32_t, UINT32_MAX */
+#include <stdio.h> /* FILE, sprintf(), fseek(), fflush() */
#include <string.h> /* strcmp(), strlen(), memcpy() */
#include <stdlib.h> /* free(), atoi() */
#include <sys/stat.h> /* stat() */
-#include <unistd.h> /* access(), write() */
+#include <sys/types.h> /* time_t */
+#include <time.h> /* time() */
+#include <unistd.h> /* access() */
#include "../common/try_malloc.h" /* try_malloc() */
#include "../common/rexit.h" /* exit_trouble(), exit_err() */
#include "../common/readwrite.h" /* try_fopen(), try_fclose(), try_fgets(),
- * try_fgetc()
+ * try_fgetc(), textfile_width(), try_fputc(),
+ * read_file_into_queue(),
+ * get_message_from_queue(),
*/
+#include "../common/yx_uint8.h" /* yx_uint8 */
#include "control.h" /* try_key() */
-#include "map.h" /* map_center() */
-#include "misc.h" /* reset_windows() */
-#include "windows.h" /* reset_windows_on_winch(), draw_all_wins() */
+#include "map.h" /* query_mapcell() */
+#include "windows.h" /* Win, reset_windows_on_winch(), draw_all_wins(),
+ * get_win_by_id()
+ */
#include "world.h" /* world global */
*/
static void read_inventory(char * read_buf, uint32_t linemax, FILE * file);
-/* Read the next characters in "file" into world.map.cells. In detail: Read
- * world.map.size.y times world.map.size.x characters, followed by one ignored
+/* Read the next characters in "file" into "map". In detail: Read
+ * world.map.length times world.map.length characters, followed by one ignored
* character (that we assume is a newline).
*/
-static void read_map_cells(FILE * file);
-
-/* Repeatedly use try_fgets() with given arguments to read the remaining lines
- * of "file" into the world.log string.
- */
-static void read_log(char * read_buf, uint32_t linemax, FILE * file);
+static void read_map_cells(FILE * file, char ** map);
/* Return value seen by atoi() in next line of "file" when passed to try_fgets()
* with the given arguments.
*/
-static uint16_t read_value_from_line(char * read_buf, uint32_t linemax,
- FILE * file);
+static int32_t read_value_from_line(char* read_buf,int32_t linemax,FILE* file);
-/* If the server's out file has changed since the last read_world(), return a
- * pointer to its file descriptor; else, return NULL.
+/* If the server's worldstate file has changed since the last read_worldstate(),
+ * return a pointer to its file descriptor; else, return NULL.
*
* Two tests are performed to check for a file change. The file's last data
* modification time in seconds via stat() is compared against world.last_update
* the new world also starts in turn 1, not signifying any world change to the
* turn check. The stat() check detects this change with at most 1 second delay.
*/
-static FILE * changed_server_out_file(char * path);
+static FILE * changed_worldstate_file(char * path);
-/* Attempt to read the server's out file as representation of the game world in
- * a hard-coded serialization format. Returns 1 on success and 0 if the out file
- * wasn't read for supposedly not having changed since a last read_world() call.
- *
- * map_center() is triggered by the first successful read_world() or on turn 1,
- * so the client focuses the map window on the player on client and world start.
+/* Attempt to read the server's worldstate file as representation of the game
+ * world in a hard-coded serialization format. Returns 1 on success, or 0 if the
+ * out file wasn't read for supposedly not having changed since a last
+ * read_worldstate() call.
+ */
+static uint8_t read_worldstate();
+
+/* Poll server for queue input. If no new input, send ping, or, if ping already
+ * sent but unanswered for some time, abort.
*/
-static uint8_t read_world();
+static void test_and_poll_server();
+
+/* If "string", append \n-prefixed "append", else write "append" as "string". */
+static void nl_append_string(char * append, char ** string);
+
+/* Read messages from queue, act on them. */
+static uint8_t read_queue();
static void read_inventory(char * read_buf, uint32_t linemax, FILE * file)
{
- char * f_name = "read_inventory()";
char * delimiter = "%\n";
free(world.player_inventory);
world.player_inventory = NULL; /* Avoids illegal strlen() below. */
while (1)
{
- try_fgets(read_buf, linemax + 1, file, f_name);
+ try_fgets(read_buf, linemax + 1, file, __func__);
if (!(strcmp(read_buf, delimiter)))
{
break;
}
int old_size = 0;
- if (NULL != world.player_inventory)
+ if (world.player_inventory)
{
old_size = strlen(world.player_inventory);
}
int new_size = strlen(read_buf);
- char * new_inventory = try_malloc(old_size + new_size + 1, f_name);
+ char * new_inventory = try_malloc(old_size + new_size + 1, __func__);
memcpy(new_inventory, world.player_inventory, old_size);
- sprintf(new_inventory + old_size, "%s", read_buf);
+ int test = sprintf(new_inventory + old_size, "%s", read_buf);
+ exit_trouble(test < 0, __func__, "sprintf");
free(world.player_inventory);
world.player_inventory = new_inventory;
}
-static void read_map_cells(FILE * file)
+static void read_map_cells(FILE * file, char ** map)
{
- char * f_name = "read_map_cells()";
- free(world.map.cells);
- world.map.cells = try_malloc(world.map.size.y * world.map.size.x, f_name);
- uint8_t y, x;
- for (y = 0; y < world.map.size.y; y++)
+ if (*map)
{
- for (x = 0; x < world.map.size.x; x++)
- {
- char c = try_fgetc(file, f_name);
- world.map.cells[(y * world.map.size.x) + x] = c;
- }
- try_fgetc(file, f_name);
+ free(*map);
+ *map = NULL;
}
-}
-
-
-
-static void read_log(char * read_buf, uint32_t linemax, FILE * file)
-{
- char * f_name = "read_log()";
- free(world.log);
- world.log = NULL;
- while (try_fgets(read_buf, linemax + 1, file, f_name))
+ *map = try_malloc(world.map.length * world.map.length, __func__);
+ char * map_cells = *map;
+ uint16_t y, x;
+ for (y = 0; y < world.map.length; y++)
{
- int old_size = 0;
- if (NULL != world.log)
+ for (x = 0; x < world.map.length; x++)
{
- old_size = strlen(world.log);
+ char c = try_fgetc(file, __func__);
+ map_cells[y * world.map.length + x] = c;
}
- int new_size = strlen(read_buf);
- char * new_log = try_malloc(old_size + new_size + 1, f_name);
- memcpy(new_log, world.log, old_size);
- sprintf(new_log + old_size, "%s", read_buf);
- free(world.log);
- world.log = new_log;
+ try_fgetc(file, __func__);
}
}
-static uint16_t read_value_from_line(char * read_buf, uint32_t linemax,
- FILE * file)
+static int32_t read_value_from_line(char * read_buf,int32_t linemax,FILE * file)
{
- char * f_name = "read_value_from_line()";
- try_fgets(read_buf, linemax + 1, file, f_name);
+ try_fgets(read_buf, linemax + 1, file, __func__);
return atoi(read_buf);
}
-static FILE * changed_server_out_file(char * path)
+static FILE * changed_worldstate_file(char * path)
{
- char * f_name = "changed_server_out_file()";
struct stat stat_buf;
- exit_trouble(stat(path, &stat_buf), f_name, "stat()");
+ exit_trouble(stat(path, &stat_buf), __func__, "stat");
if (stat_buf.st_mtime != world.last_update)
{
world.last_update = stat_buf.st_mtime;
- return try_fopen(path, "r", f_name);
+ return try_fopen(path, "r", __func__);
}
- FILE * file = try_fopen(path, "r", f_name);
+ FILE * file = try_fopen(path, "r", __func__);
char turn_string[6];
- try_fgets(turn_string, 6, file, f_name);
+ try_fgets(turn_string, 6, file, __func__);
if (world.turn == atoi(turn_string))
{
- try_fclose(file, f_name);
+ try_fclose(file, __func__);
return NULL;
}
- exit_trouble(fseek(file, 0, SEEK_SET), f_name, "fseek()");
+ exit_trouble(fseek(file, 0, SEEK_SET), __func__, "fseek");
return file;
}
-static uint8_t read_world()
+static uint8_t read_worldstate()
{
- char * f_name = "read_world()";
- char * path = "server/out";
- char * quit_msg = "No server out file found to read. Server may be down.";
- static uint8_t first_read = 1;
+ char * path = "server/worldstate";
+ char * quit_msg = "No worldstate file found to read. Server may be down.";
exit_err(access(path, F_OK), quit_msg);
- FILE * file = changed_server_out_file(path);
+ FILE * file = changed_worldstate_file(path);
if (!file)
{
return 0;
}
- uint32_t linemax = textfile_sizes(file, NULL);
- char * read_buf = try_malloc(linemax + 1, f_name);
- world.turn = read_value_from_line(read_buf, linemax, file);
- world.player_score = read_value_from_line(read_buf, linemax, file);
- world.player_lifepoints = read_value_from_line(read_buf, linemax, file);
+ uint32_t linemax = textfile_width(file);
+ char * read_buf = try_malloc(linemax + 1, __func__);
+ world.turn = (uint16_t) read_value_from_line(read_buf, linemax, file);
+ world.player_lifepoints = (uint16_t) read_value_from_line(read_buf, linemax,
+ file);
+ world.player_satiation = (int16_t) read_value_from_line(read_buf, linemax,
+ file);
read_inventory(read_buf, linemax, file);
- world.player_pos.y = read_value_from_line(read_buf, linemax, file);
- world.player_pos.x = read_value_from_line(read_buf, linemax, file);
- if (1 == world.turn || first_read)
- {
- map_center();
- first_read = 0;
- }
- world.map.size.y = read_value_from_line(read_buf, linemax, file);
- world.map.size.x = read_value_from_line(read_buf, linemax, file);
- read_map_cells(file);
- read_log(read_buf, linemax, file);
+ world.player_pos.y = (uint8_t) read_value_from_line(read_buf,linemax,file);
+ world.player_pos.x = (uint8_t) read_value_from_line(read_buf,linemax,file);
+ world.map.length = (uint16_t) read_value_from_line(read_buf, linemax, file);
+ read_map_cells(file, &world.map.cells);
+ read_map_cells(file, &world.mem_map);
free(read_buf);
- try_fclose(file, f_name);
+ try_fclose(file, __func__);
return 1;
}
-extern void try_send(char * msg)
+static void test_and_poll_server()
{
- char * f_name = "try_send()";
- uint32_t msg_size = strlen(msg) + 1;
- char * err = "try_send() tries to send message larger than PIPE_BUF bytes.";
- exit_err(msg_size > PIPE_BUF, err);
- int fd_out;
- uint16_t j = 1;
- while (0 != j)
+ static time_t last_server_answer_time = 0;
+ static time_t last_pong_time = 0;
+ static uint8_t ping_sent = 0;
+ if (read_file_into_queue(world.file_server_out, &world.queue))
{
- fd_out = open(world.path_server_in, O_WRONLY | O_NONBLOCK);
- if (fd_out > 0)
- {
- break;
- }
- exit_err(-1 == fd_out && ENXIO != errno, "Server fifo not found.");
- j++;
+ last_server_answer_time = time(0);
+ return;
+ }
+ time_t now = time(0);
+ if (ping_sent && last_server_answer_time > now - 5) /* Re-set if last */
+ { /* ping was answered */
+ ping_sent = 0; /* with server */
+ return; /* activity. */
}
- exit_err(0 == j, "Failed to open server fifo for writing.");
- j = 1;
- while (0 != j)
+ if (!ping_sent && last_server_answer_time < now - 5)
{
- int test = write(fd_out, msg, msg_size);
- if (test > 0)
+ send("PING");
+ ping_sent = 1;
+ last_pong_time = now;
+ return;
+ }
+ exit_err(ping_sent && last_pong_time < now - 5, "Server not answering.");
+}
+
+
+
+static void nl_append_string(char * append, char ** string)
+{
+ char * err = "too large sizes";
+ exit_trouble(UINT32_MAX < strlen(append), __func__, err);
+ uint32_t new_size = strlen(append);
+ uint32_t old_size = 0;
+ uint8_t add_nl = 0;
+ if (*string)
+ {
+ exit_trouble(UINT32_MAX < new_size + strlen(*string), __func__, err);
+ old_size = strlen(*string);
+ add_nl = 1;
+ }
+ char * new_string = try_malloc(old_size + add_nl + new_size + 1, __func__);
+ memcpy(new_string, *string, old_size);
+ char * pattern = add_nl ? "\n%s" : "%s";
+ int test = sprintf(new_string + old_size, pattern, append);
+ exit_trouble(test < 0, __func__, "sprintf");
+ free(*string);
+ *string = new_string;
+}
+
+
+
+static uint8_t read_queue()
+{
+ static uint8_t things_here_parsing = 0;
+ uint8_t ret = 0;
+ char * msg;
+ while (NULL != (msg = get_message_from_queue(&world.queue)))
+ {
+ char * log_prefix = "LOG ";
+ if (!strcmp(msg, "THINGS_HERE START"))
{
- break;
+ ret = 1;
+ things_here_parsing = 1;
+ free(world.things_here);
+ world.things_here = NULL;
+ }
+ else if (!strcmp(msg, "THINGS_HERE END"))
+ {
+ things_here_parsing = 0;
+ if (!world.things_here)
+ {
+ nl_append_string("(none known)", &world.things_here);
+ }
+ }
+ else if (things_here_parsing)
+ {
+ ret = 1;
+ nl_append_string(msg, &world.things_here);
+ }
+ else if (!strncmp(msg, log_prefix, strlen(log_prefix)))
+ {
+ ret = 1;
+ nl_append_string(msg + strlen(log_prefix), &world.log);
+ }
+ else if (!strcmp(msg, "NEW_WORLD"))
+ {
+ ret = 1;
+ free(world.log);
+ world.log = NULL;
+ }
+ else if (!strcmp(msg, "WORLD_UPDATED"))
+ {
+ query_mapcell();
}
- j++;
+ free(msg);
}
- exit_err(0 == j, "Failed to write to server fifo.");
- exit_trouble(-1 == close(fd_out), f_name, "close()");
+ return ret;
+}
+
+
+
+extern void send(char * msg)
+{
+ uint32_t msg_size = strlen(msg) + 1;
+ char * err = "send() tried to send message larger than PIPE_BUF bytes.";
+ exit_err(msg_size > PIPE_BUF, err);
+ try_fwrite(msg, strlen(msg), 1, world.file_server_in, __func__);
+ try_fputc('\n', world.file_server_in, __func__);
+ fflush(world.file_server_in);
}
extern char * io_loop()
{
- world.halfdelay = 1; /* Ensures read_world() is only called 10 */
- halfdelay(world.halfdelay); /* times a second during user inactivity. */
+ uint16_t delay = 1; /* Greater delay: less redundant server files reading.*/
uint8_t change_in_client = 0;
while (1)
{
+ timeout(delay);
+ delay = delay < 1000 ? delay * 2 : delay;
+ test_and_poll_server();
if (world.winch)
{
reset_windows_on_winch();
world.winch = 0;
change_in_client++;
}
- if (read_world() || change_in_client)
+ if (change_in_client || read_worldstate() || read_queue())
{
+ delay = 1; /* Keep client alert even if it's not getch()'d. */
+ struct Win * win_map = get_win_by_id('m');
+ if (0 == win_map->view) /* So the map window's winconfig views */
+ { /* don't get confused by the centering. */
+ struct yx_uint8 pos=world.look?world.look_pos:world.player_pos;
+ win_map->center.y = pos.y;
+ win_map->center.x = pos.x * 2 + (pos.y % 2);
+ }
draw_all_wins();
}
change_in_client = 0;
int key = getch();
if (ERR != key)
{
+ delay = 1; /* Alert client if it's getch()'d. */
change_in_client = try_key((uint16_t) key);
if (2 == change_in_client)
{
}
}
}
- try_send("QUIT");
+ send("QUIT");
return "Sent QUIT to server.";
}