home · contact · privacy
3bbd5035c6fa2f4c1bb5e10424db0619f6e64a35
[plomrogue] / src / server / init.c
1 /* src/server/init.c */
2
3 #include "init.h"
4 #include <errno.h> /* global errno, EEXIST */
5 #include <stddef.h> /* NULL */
6 #include <stdint.h> /* uint32_t */
7 #include <stdio.h> /* sprintf(), fflush() */
8 #include <stdlib.h> /* exit(), free() */
9 #include <string.h> /* atoi(), strlen() */
10 #include <sys/stat.h> /* mkdir() */
11 #include <sys/types.h> /* defines pid_t, time_t */
12 #include <time.h> /* time() */
13 #include <unistd.h> /* optarg, getopt(), access(), unlink(), getpid() */
14 #include "../common/readwrite.h" /* try_fopen(), try_fclose(), textfile_width(),
15                                   * try_fgets(), try_fwrite()
16                                   */
17 #include "../common/rexit.h" /* exit_err() */
18 #include "../common/try_malloc.h" /* try_malloc() */
19 #include "cleanup.h" /* set_cleanup_flag(), CLEANUP_MAP_OBJ_DEFS,
20                       * CLEANUP_MAP_OBJ_ACTS
21                       */
22 #include "io.h" /* read_config_file(), struct EntrySkeleton */
23 #include "map.h" /* init_map() */
24 #include "map_object_actions.h" /* struct MapObjAct, read_map_object_action() */
25 #include "map_objects.h" /* struct MapObjDef, free_map_objects(),
26                           * add_map_objects(), read_map_object_def()
27                           */
28 #include "rrand.h" /* rrand() */
29 #include "run.h" /* obey_msg(), io_loop() */
30 #include "world.h" /* global world */
31
32
33
34 extern void obey_argv(int argc, char * argv[])
35 {
36     int opt;
37     while (-1 != (opt = getopt(argc, argv, "vs::")))
38     {
39         if      ('v' == opt)
40         {
41             world.is_verbose = 1;
42         }
43         else if ('s' == opt)
44         {
45             world.replay = 1;
46             if (optarg)
47             {
48                 world.replay = atoi(optarg);
49             }
50         }
51         else
52         {
53             exit(EXIT_FAILURE);
54         }
55     }
56 }
57
58
59
60 extern void init_map_and_map_objects_configs()
61 {
62     world.map.size.x = 64;
63     world.map.size.y = 64;
64     world.map.dist_orthogonal = 5;
65     world.map.dist_diagonal   = 7;
66     char * err_mod = "No map object definitions file.";
67     char * err_moa = "No map object actions file.";
68     exit_err(access(world.path_map_obj_defs, F_OK), err_mod);
69     exit_err(access(world.path_map_obj_acts, F_OK), err_moa);
70     read_config_file(world.path_map_obj_defs, CLEANUP_MAP_OBJECT_DEFS,
71                      read_map_object_def, sizeof(struct MapObjDef),
72                      (struct EntrySkeleton **) &world.map_obj_defs);
73     read_config_file(world.path_map_obj_acts, CLEANUP_MAP_OBJECT_ACTS,
74                      read_map_object_action, sizeof(struct MapObjAct),
75                      (struct EntrySkeleton **) &world.map_obj_acts);
76 }
77
78
79
80 extern void setup_server_io()
81 {
82     char * f_name = "setup_server_io()";
83     int test = mkdir("server", 0700);
84     exit_trouble(test && EEXIST != errno, f_name, "mkdir()");
85     world.file_out = try_fopen(world.path_out, "w", f_name);
86     world.server_test = try_malloc(10 + 1 + 10 + 1 + 1, f_name);
87     sprintf(world.server_test, "%d %d\n", getpid(), (int) time(0));
88     try_fwrite(world.server_test, strlen(world.server_test), 1,
89                world.file_out, f_name);
90     fflush(world.file_out);
91     set_cleanup_flag(CLEANUP_OUT);
92     if (!access(world.path_in, F_OK))  /* This keeps out input from old input */
93     {                                  /* file streams of clients             */
94         unlink(world.path_in);         /* communicating with server processes */
95     }                                  /* superseded by this current one.     */
96     world.file_in = try_fopen(world.path_in, "w", f_name);
97     try_fclose(world.file_in, f_name);
98     world.file_in = try_fopen(world.path_in, "r", f_name);
99     set_cleanup_flag(CLEANUP_IN);
100 }
101
102
103
104 extern void remake_world(uint32_t seed)
105 {
106     char * f_name = "remake_world()";
107     free(world.log);
108     world.log = NULL;  /* map_object_action.c's update_log() checks for this. */
109     world.seed = seed;
110     world.map_obj_count = 0;
111     free(world.map.cells);
112     free_map_objects(world.map_objs);
113     world.last_update_turn = 0;
114     init_map();
115     add_map_objects(0, 1);
116     add_map_objects(1, 1 + rrand() % 27);
117     add_map_objects(2, 1 + rrand() % 9);
118     add_map_objects(3, 1 + rrand() % 3);
119     add_map_objects(4, 1 + rrand() % 3);
120     add_map_objects(5, 1 + rrand() % 3);
121     set_cleanup_flag(CLEANUP_MAP_OBJECTS);
122     if (world.turn)
123     {
124         exit_trouble(unlink(world.path_record), f_name, "unlink()");
125     }
126     world.turn = 1;
127 }
128
129
130
131 extern void run_game()
132 {
133     char * f_name = "run_game()";
134     if (!access(world.path_record, F_OK))
135     {
136         FILE * file = try_fopen(world.path_record, "r", f_name);
137         uint32_t linemax = textfile_width(file);
138         char line[linemax + 1];
139         while (   (!world.replay || (world.turn < world.replay))
140                && NULL != try_fgets(line, linemax + 1, file, f_name))
141         {
142             obey_msg(line, 0);
143         }
144         if (!world.replay)
145         {
146             try_fclose(file, f_name);
147             io_loop();
148             return;
149         }
150         uint8_t end = 0;
151         while (!io_loop())
152         {
153             if (!end)
154             {
155                 end = (NULL == try_fgets(line, linemax + 1, file, f_name));
156                 if (!end)
157                 {
158                     obey_msg(line, 0);
159                 }
160             }
161         }
162         try_fclose(file, f_name);
163         return;
164     }
165     exit_err(world.replay, "No record file found to replay.");
166     char * command = "seed";
167     char msg[strlen(command) + 1 + 11 + 1];
168     sprintf(msg, "%s %d", command, (int) time(NULL));
169     obey_msg(msg, 1);
170     io_loop();
171 }