+ /* Create server directory if it does not exist yet. */
+ int test = mkdir("server", 0700);
+ exit_trouble(test && EEXIST != errno, f_name, "mkdir()");
+
+ /* Create server out file and start it with server process test string. */
+ world.file_out = try_fopen(world.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);
+
+ /* Create server in file, switch to reading it. */
+ if (!access(world.path_in, F_OK)) /* This keeps out input from old input */
+ { /* file streams of clients */
+ unlink(world.path_in); /* communicating with server processes */
+ } /* superseded by this current one. */
+ world.file_in = try_fopen(world.path_in, "w", f_name);
+ try_fclose(world.file_in, f_name);
+ world.file_in = try_fopen(world.path_in, "r", f_name);
+ set_cleanup_flag(CLEANUP_IN);
+