+extern void setup_server_io()
+{
+ char * f_name = "setup_server_io()";
+ int test = mkdir("server", 0700);
+ exit_trouble(test && EEXIST != errno, f_name, "mkdir()");
+ world.file_out = try_fopen(s[PATH_OUT], "w", f_name);
+ world.server_test = try_malloc(10 + 1 + 10 + 1 + 1, f_name);
+ sprintf(world.server_test, "%d %d\n", getpid(), (int) time(0));
+ try_fwrite(world.server_test, strlen(world.server_test), 1,
+ world.file_out, f_name);
+ fflush(world.file_out);
+ set_cleanup_flag(CLEANUP_OUT);
+ char * path_in = s[PATH_IN];
+ if (!access(path_in, F_OK)) /* This keeps out input from old input */
+ { /* file streams of clients */
+ unlink(path_in) ; /* communicating with server processes */
+ } /* superseded by this current one. */
+ world.file_in = try_fopen(path_in, "w", f_name);
+ try_fclose(world.file_in, f_name);
+ world.file_in = try_fopen(path_in, "r", f_name);
+ set_cleanup_flag(CLEANUP_IN);
+}
+
+
+
+extern void remake_world()