plomlompom.com Git - plomrogue/blob - src/server/init.c

   1 /* src/server/init.c
   2  *
   3  * This file is part of PlomRogue. PlomRogue is licensed under the GPL version 3
   4  * or any later version. For details on its copyright, license, and warranties,
   5  * see the file NOTICE in the root directory of the PlomRogue source package.
   6  */
   7
   8 #define _POSIX_C_SOURCE 2 /* getopt(), optarg */
   9 #include "init.h"
  10 #include <errno.h> /* global errno, EEXIST */
  11 #include <stddef.h> /* NULL */
  12 #include <stdint.h> /* uint32_t */
  13 #include <stdio.h> /* FILE, sprintf(), fflush() */
  14 #include <stdlib.h> /* exit(), free(), atoi() */
  15 #include <string.h> /* strlen() */
  16 #include <sys/stat.h> /* mkdir() */
  17 #include <sys/types.h> /* defines pid_t, time_t */
  18 #include <time.h> /* time() */
  19 #include <unistd.h> /* optarg, getopt(), access(), getpid() */
  20 #include "../common/parse_file.h" /* err_line_zero(), err_line_inc() */
  21 #include "../common/readwrite.h" /* try_fopen(), try_fclose(), textfile_width(),
  22                                   * try_fgets(), try_fwrite(),
  23                                   * detect_atomic_leftover()
  24                                   */
  25 #include "../common/rexit.h" /* exit_err(), exit_trouble() */
  26 #include "../common/try_malloc.h" /* try_malloc() */
  27 #include "cleanup.h" /* set_cleanup_flag() */
  28 #include "field_of_view.h" /* update_map_memory() */
  29 #include "hardcoded_strings.h" /* s */
  30 #include "map.h" /* remake_map() */
  31 #include "things.h" /* Thing, ThingType, free_things(), add_things(),
  32                      * get_thing_id_action_id_by_name(), get_player()
  33                      */
  34 #include "run.h" /* obey_msg(), io_loop(), record(), send_to_outfile() */
  35 #include "world.h" /* global world */
  36
  37
  38
  39
  40 /* Pass to obey_msg() lines from file at "path", on "record" write to same. Do
  41  * not pass lines that consist only of a newline character. Transform newline
  42  * in the line passed to \0.
  43  */
  44 static void obey_lines_from_file(char * path, uint8_t record);
  45
  46 /* Replay game from record file up to the turn named in world.replay, then turn
  47  * over to manual replay via io_loop().
  48  */
  49 static void replay_game();
  50
  51 /* Return 1 if the type defined by world.player_type has a .start_n of 0.
  52  * Return 2 if no thing action with .name of s[S_CMD_WAIT] is defined.
  53  * Else, return 0.
  54  */
  55 static uint8_t world_cannot_be_made();
  56
  57
  58 static void obey_lines_from_file(char * path, uint8_t record)
  59 {
  60     FILE * file = try_fopen(path, "r", __func__);
  61     uint32_t linemax = textfile_width(file);
  62     char * line = try_malloc(linemax + 1, __func__);
  63     while (try_fgets(line, linemax + 1, file, __func__))
  64     {
  65         if (strlen(line))
  66         {
  67             if (strcmp("\n", line))
  68             {
  69                 char * nl = strchr(line, '\n');
  70                 if (nl)
  71                 {
  72                     *nl = '\0';
  73                 }
  74                 obey_msg(line, record);
  75             }
  76             err_line_inc();
  77         }
  78     }
  79     free(line);
  80     try_fclose(file, __func__);
  81 }
  82
  83
  84
  85 static void replay_game()
  86 {
  87     exit_err(access(s[S_PATH_RECORD], F_OK), "No record found to replay.");
  88     FILE * file = try_fopen(s[S_PATH_RECORD], "r", __func__);
  89     uint32_t linemax = textfile_width(file);
  90     char * line = try_malloc(linemax + 1, __func__);
  91     while (   world.turn < world.replay
  92            && try_fgets(line, linemax + 1, file, __func__))
  93     {
  94         obey_msg(line, 0);
  95         err_line_inc();
  96     }
  97     uint8_t end = 0;
  98     while (3 == io_loop(2))
  99     {
 100         if (!end)
 101         {
 102             end = (NULL == try_fgets(line, linemax + 1, file, __func__));
 103             if (!end)
 104             {
 105                 obey_msg(line, 0);
 106                 err_line_inc();
 107             }
 108         }
 109     }
 110     free(line);
 111     try_fclose(file, __func__);
 112 }
 113
 114
 115
 116 static uint8_t world_cannot_be_made()
 117 {
 118     uint8_t player_will_be_generated = 0;
 119     struct ThingType * tt;
 120     for (tt = world.thing_types; tt; tt = tt->next)
 121     {
 122         if (world.player_type == tt->id)
 123         {
 124             player_will_be_generated = 0 < tt->start_n;
 125             break;
 126         }
 127     }
 128     if (!player_will_be_generated)
 129     {
 130         return 1;
 131     }
 132     if (!get_thing_action_id_by_name(s[S_CMD_WAIT]))
 133     {
 134         return 2;
 135     }
 136     return 0;
 137 }
 138
 139
 140
 141 extern void obey_argv(int argc, char * argv[])
 142 {
 143     int opt;
 144     while (-1 != (opt = getopt(argc, argv, "vs::")))
 145     {
 146         if      ('v' == opt)
 147         {
 148             world.is_verbose = 1;
 149         }
 150         else if ('s' == opt)
 151         {
 152             world.replay = 1;
 153             if (optarg)
 154             {
 155                 world.replay = atoi(optarg);
 156             }
 157         }
 158         else
 159         {
 160             exit(EXIT_FAILURE);
 161         }
 162     }
 163 }
 164
 165
 166
 167 extern void setup_server_io()
 168 {
 169     int test = mkdir("server", 0700);
 170     exit_trouble(test && EEXIST != errno, __func__, "mkdir");
 171     world.file_out = try_fopen(s[S_PATH_OUT], "w", __func__);
 172     world.server_test = try_malloc(10 + 1 + 10 + 1 + 1, __func__);
 173     test = sprintf(world.server_test, "%d %d\n", getpid(), (int) time(0));
 174     exit_trouble(test < 0, __func__, s[S_FCN_SPRINTF]);
 175     try_fwrite(world.server_test, strlen(world.server_test), 1,
 176                world.file_out, __func__);
 177     fflush(world.file_out);
 178     set_cleanup_flag(CLEANUP_OUT);
 179     char * path_in = s[S_PATH_IN];
 180     if (!access(path_in, F_OK))        /* This keeps out input from old input */
 181     {                                  /* file streams of clients             */
 182         unlink(path_in)   ;            /* communicating with server processes */
 183     }                                  /* superseded by this current one.     */
 184     world.file_in = try_fopen(path_in, "w", __func__);
 185     try_fclose(world.file_in, __func__);
 186     world.file_in = try_fopen(path_in, "r", __func__);
 187     set_cleanup_flag(CLEANUP_IN);
 188 }
 189
 190
 191
 192 extern uint8_t remake_world()
 193 {
 194     uint8_t test = world_cannot_be_made();
 195     if (test)
 196     {
 197         return test;
 198     }
 199     world.seed_map = world.seed;
 200     free_things(world.things);
 201     remake_map();
 202     world.exists = 1;
 203     struct ThingType * tt;
 204     for (tt = world.thing_types; tt; tt = tt->next)
 205     {
 206         if (world.player_type == tt->id)
 207         {
 208             add_things(tt->id, tt->start_n);
 209             break;
 210         }
 211     }
 212     update_map_memory(get_player(), 1);
 213     for (tt = world.thing_types; tt; tt = tt->next)
 214     {
 215         if (world.player_type != tt->id)
 216         {
 217             add_things(tt->id, tt->start_n);
 218         }
 219     }
 220     world.turn = 1;
 221     send_to_outfile("NEW_WORLD\n", 1);
 222     return 0;
 223 }
 224
 225
 226
 227 extern void run_game()
 228 {
 229     detect_atomic_leftover(s[S_PATH_SAVE]);
 230     detect_atomic_leftover(s[S_PATH_RECORD]);
 231     err_line_zero();
 232     if (world.replay)
 233     {
 234         replay_game();
 235         return;
 236     }
 237     if (!access(s[S_PATH_SAVE], F_OK))
 238     {
 239         obey_lines_from_file(s[S_PATH_SAVE], 0);
 240     }
 241     else
 242     {
 243         char * err = "No world config file from which to start a new world.";
 244         exit_err(access(s[S_PATH_CONFIG], F_OK), err);
 245         obey_lines_from_file(s[S_PATH_CONFIG], 1);
 246         err_line_zero();
 247         char * command = s[S_CMD_MAKE_WORLD];
 248         char * msg = try_malloc(strlen(command) + 1 + 11 + 1, __func__);
 249         int test = sprintf(msg, "%s %d", command, (int) time(NULL));
 250         exit_trouble(test < 0, __func__, s[S_FCN_SPRINTF]);
 251         obey_msg(msg, 1);
 252         free(msg);
 253     }
 254     err_line_zero();
 255     io_loop(1);
 256     record(NULL, 1);
 257 }