[ViewVC] Diff of: cvs/deliantra/server/server/init.C

Comparing deliantra/server/server/init.C (file contents):
Revision 1.24 by root, Sat Dec 30 15:07:59 2006 UTC vs.
Revision 1.64 by root, Tue Apr 22 23:50:24 2008 UTC

…		…
1	/*	1	/*
2	CrossFire, A Multiplayer game for X-windows	2	* This file is part of Deliantra, the Roguelike Realtime MMORPG.
3		3	*
		4	* Copyright (©) 2005,2006,2007,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
4	Copyright (C) 2002 Mark Wedel & Crossfire Development Team	5	* Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
5	Copyright (C) 1992 Frank Tore Johansen	6	* Copyright (©) 1992,2007 Frank Tore Johansen
6		7	*
7	This program is free software; you can redistribute it and/or modify	8	* Deliantra is free software: you can redistribute it and/or modify
8	it under the terms of the GNU General Public License as published by	9	* it under the terms of the GNU General Public License as published by
9	the Free Software Foundation; either version 2 of the License, or	10	* the Free Software Foundation, either version 3 of the License, or
10	(at your option) any later version.	11	* (at your option) any later version.
11		12	*
12	This program is distributed in the hope that it will be useful,	13	* This program is distributed in the hope that it will be useful,
13	but WITHOUT ANY WARRANTY; without even the implied warranty of	14	* but WITHOUT ANY WARRANTY; without even the implied warranty of
14	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the	15	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15	GNU General Public License for more details.	16	* GNU General Public License for more details.
16		17	*
17	You should have received a copy of the GNU General Public License	18	* You should have received a copy of the GNU General Public License
18	along with this program; if not, write to the Free Software	19	* along with this program. If not, see <http://www.gnu.org/licenses/>.
19	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	20	*
20		21	* The authors can be reached via e-mail to <support@deliantra.net>
21	The authors can be reached via e-mail at <crossfire@schmorp.de>
22	*/	22	*/
23		23
24	#include <global.h>	24	#include <global.h>
25	#include <material.h>	25	#include <material.h>
26	#include <loader.h>	26	#include <loader.h>
27	#include <sproto.h>	27	#include <sproto.h>
236	* pass system very easy, and it is very easy to add in new options.	236	* pass system very easy, and it is very easy to add in new options.
237	*/	237	*/
238	struct Command_Line_Options options[] = {	238	struct Command_Line_Options options[] = {
239		239
240	/* Pass 1 functions - STuff that can/should be called before we actually	240	/* Pass 1 functions - STuff that can/should be called before we actually
241	* initialize any data.	241	* initialise any data.
242	*/	242	*/
243	{"-h", 0, 1, help},	243	{"-h", 0, 1, help},
244		244
245	/* Honor -help also, since it is somewhat common */	245	/* Honor -help also, since it is somewhat common */
246	{"-help", 0, 1, help},	246	{"-help", 0, 1, help},
…		…
268	{"-detach", 0, 2, set_daemon},	268	{"-detach", 0, 2, set_daemon},
269		269
270	/* Start of pass 3 information. In theory, by pass 3, all data paths	270	/* Start of pass 3 information. In theory, by pass 3, all data paths
271	* and defaults should have been set up.	271	* and defaults should have been set up.
272	*/	272	*/
273	{"-o", 0, 3, compile_info},
274	{"-m", 0, 3, set_dumpmon1},	273	{"-m", 0, 3, set_dumpmon1},
275	{"-m2", 0, 3, set_dumpmon2},	274	{"-m2", 0, 3, set_dumpmon2},
276	{"-m3", 0, 3, set_dumpmon3},	275	{"-m3", 0, 3, set_dumpmon3},
277	{"-m4", 0, 3, set_dumpmon4},	276	{"-m4", 0, 3, set_dumpmon4},
278	{"-m5", 0, 3, set_dumpmon5},	277	{"-m5", 0, 3, set_dumpmon5},
279	{"-m6", 0, 3, set_dumpmon6},	278	{"-m6", 0, 3, set_dumpmon6},
280	{"-m7", 0, 3, set_dumpmon7},	279	{"-m7", 0, 3, set_dumpmon7},
281	{"-m8", 0, 3, set_dumpmon8},	280	{"-m8", 0, 3, set_dumpmon8},
282	{"-m9", 0, 3, set_dumpmon9},	281	{"-m9", 0, 3, set_dumpmon9},
283	{"-mt", 1, 3, (void (*)()) set_dumpmont},	282	{"-mt", 1, 3, (void (*)()) set_dumpmont},
284	{"-mexp", 0, 3, dump_experience},
285	{"-s", 0, 3, showscores},	283	{"-s", 0, 3, showscores},
286	{"-score", 1, 3, (void (*)()) showscoresparm}	284	{"-score", 1, 3, (void (*)()) showscoresparm}
287	};	285	};
288		286
289		287
290	/* Note since this may be called before the library has been set up,	288	/* Note since this may be called before the library has been set up,
291	* we don't use any of crossfires built in logging functions.	289	* we don't use any of deliantras built in logging functions.
292	*/	290	*/
293	static void	291	static void
294	parse_args (int argc, char *argv[], int pass)	292	parse_args (int argc, char *argv[], int pass)
295	{	293	{
296	size_t i;	294	size_t i;
…		…
373	}	371	}
374		372
375	static void	373	static void
376	load_materials (void)	374	load_materials (void)
377	{	375	{
378	char buf[MAX_BUF], filename[MAX_BUF], cp, next;	376	char filename[MAX_BUF];
379	FILE *fp;
380	materialtype_t *mt;	377	materialtype_t *mt;
381	int i, value;
382		378
383	sprintf (filename, "%s/materials", settings.datadir);	379	sprintf (filename, "%s/materials", settings.datadir);
384	LOG (llevDebug, "Reading material type data from %s...", filename);	380	LOG (llevDebug, "Reading material type data from %s...\n", filename);
385	if ((fp = fopen (filename, "r")) == NULL)	381
		382	object_thawer thawer (filename);
		383
		384	if (!thawer)
386	{	385	{
387	LOG (llevError, "Cannot open %s for reading\n", filename);	386	LOG (llevError, "Cannot open %s for reading\n", filename);
388	mt = get_empty_mat ();	387	mt = get_empty_mat ();
389	mt->next = NULL;	388	mt->next = 0;
390	materialt = mt;	389	materialt = mt;
391	return;	390	return;
392	}	391	}
		392
393	mt = get_empty_mat ();	393	mt = get_empty_mat ();
394	materialt = mt;	394	materialt = mt;
395	while (fgets (buf, MAX_BUF, fp) != NULL)	395
		396	for (;;)
396	{	397	{
397	if (*buf == '#')	398	thawer.next ();
398	continue;	399
399	if ((cp = strchr (buf, '\n')) != NULL)	400	switch (thawer.kw)
400	*cp = '\0';
401	cp = buf;
402	while (cp == ' ') / Skip blanks */
403	cp++;
404	if (!strncmp (cp, "name", 4))
405	{	401	{
		402	case KW_name:
406	/* clean up the previous entry */	403	/* clean up the previous entry */
407	if (mt->next != NULL)	404	if (mt->next)
408	{	405	{
409	if (mt->description == NULL)	406	if (!mt->description)
410	mt->description = mt->name;	407	mt->description = mt->name;
		408
411	mt = mt->next;	409	mt = mt->next;
412	}	410	}
		411
413	mt->next = get_empty_mat ();	412	mt->next = get_empty_mat ();
414	mt->name = strchr (cp, ' ') + 1;	413	thawer.get (mt->name);
415	}	414	break;
416	else if (!strncmp (cp, "description", 11))	415
		416	case KW_description:
		417	thawer.get (mt->description);
		418	break;
		419
		420	case KW_material:
		421	thawer.get (mt->material);
		422	break;
		423
		424	case KW_saves:
417	{	425	{
418	mt->description = strchr (cp, ' ') + 1;	426	const char *cp = thawer.get_str () - 1;
419	}	427
420	else if (sscanf (cp, "material %d", &value))
421	{
422	mt->material = value;
423	}
424	else if (!strncmp (cp, "saves", 5))
425	{
426	cp = strchr (cp, ' ') + 1;
427	for (i = 0; i < NROFATTACKS; i++)	428	for (int i = 0; i < NROFATTACKS; i++)
428	{
429	if (cp == NULL)
430	{	429	{
		430	if (!cp)
		431	{
431	mt->save[i] = 0;	432	mt->save[i] = 0;
432	continue;	433	continue;
		434	}
		435
		436	int value;
		437	++cp;
		438	sscanf (cp, "%d", &value);
		439	mt->save[i] = (sint8) value;
		440	cp = strchr (cp, ',');
433	}	441	}
434	if ((next = strchr (cp, ',')) != NULL)
435	*(next++) = '\0';
436	sscanf (cp, "%d", &value);
437	mt->save[i] = (sint8) value;
438	cp = next;
439	}
440	}
441	else if (!strncmp (cp, "mods", 4))
442	{
443	cp = strchr (cp, ' ') + 1;
444	for (i = 0; i < NROFATTACKS; i++)
445	{	442	}
446	if (cp == NULL)	443	break;
		444
		445	case KW_mods:
		446	{
		447	const char *cp = thawer.get_str () - 1;
		448
		449	for (int i = 0; i < NROFATTACKS; i++)
447	{	450	{
		451	if (!cp)
		452	{
448	mt->save[i] = 0;	453	mt->save[i] = 0;
449	continue;	454	continue;
		455	}
		456
		457	++cp;
		458	int value;
		459	sscanf (cp, "%d", &value);
		460	mt->mod[i] = (sint8) value;
		461	cp = strchr (cp, ',');
450	}	462	}
451	if ((next = strchr (cp, ',')) != NULL)
452	*(next++) = '\0';
453	sscanf (cp, "%d", &value);
454	mt->mod[i] = (sint8) value;
455	cp = next;
456	}
457	}	463	}
458	else if (sscanf (cp, "chance %d\n", &value))	464	break;
		465
		466	case KW_chance: thawer.get (mt->chance); break;
		467	case KW_difficulty: // cf+ alias, not original cf
		468	case KW_diff: thawer.get (mt->difficulty); break;
		469	case KW_magic: thawer.get (mt->magic); break;
		470	case KW_dam: // cf+ alias, not original cf
		471	case KW_damage: thawer.get (mt->damage); break;
		472	case KW_wc: thawer.get (mt->wc); break;
		473	case KW_ac: thawer.get (mt->ac); break;
		474	case KW_sp: thawer.get (mt->sp); break;
		475	case KW_weight: thawer.get (mt->weight); break;
		476	case KW_value: thawer.get (mt->value); break;
		477	case KW_density: thawer.get (mt->density); break;
		478
		479	case KW_EOF:
		480	goto done;
		481
		482	default:
		483	if (!thawer.parse_error ("materials file", "materials"))
		484	goto done;
		485	break;
459	{	486	}
460	mt->chance = (sint8) value;
461	}
462	else if (sscanf (cp, "diff %d\n", &value))
463	{
464	mt->difficulty = (sint8) value;
465	}
466	else if (sscanf (cp, "magic %d\n", &value))
467	{
468	mt->magic = (sint8) value;
469	}
470	else if (sscanf (cp, "damage %d\n", &value))
471	{
472	mt->damage = (sint8) value;
473	}
474	else if (sscanf (cp, "wc %d\n", &value))
475	{
476	mt->wc = (sint8) value;
477	}
478	else if (sscanf (cp, "ac %d\n", &value))
479	{
480	mt->ac = (sint8) value;
481	}
482	else if (sscanf (cp, "sp %d\n", &value))
483	{
484	mt->sp = (sint8) value;
485	}
486	else if (sscanf (cp, "weight %d\n", &value))
487	{
488	mt->weight = value;
489	}
490	else if (sscanf (cp, "value %d\n", &value))
491	{
492	mt->value = value;
493	}
494	}	487	}
		488
		489	done:
495	if (mt->next)	490	if (mt->next)
496	{	491	{
497	delete mt->next;	492	delete mt->next;
498		493
499	mt->next = NULL;	494	mt->next = 0;
500	}	495	}
		496
501	LOG (llevDebug, "Done.\n");	497	LOG (llevDebug, "Done.\n");
502	fclose (fp);
503	}	498	}
504		499
505	/* This loads the settings file. There could be debate whether this should	500	/* This loads the settings file. There could be debate whether this should
506	* be here or in the common directory - but since only the server needs this	501	* be here or in the common directory - but since only the server needs this
507	* information, having it here probably makes more sense.	502	* information, having it here probably makes more sense.
…		…
517		512
518	/* We don't require a settings file at current time, but down the road,	513	/* We don't require a settings file at current time, but down the road,
519	* there will probably be so many values that not having a settings file	514	* there will probably be so many values that not having a settings file
520	* will not be a good thing.	515	* will not be a good thing.
521	*/	516	*/
522	if ((fp = open_and_uncompress (buf, 0, &comp)) == NULL)	517	if (!(fp = open_and_uncompress (buf, 0, &comp)))
523	{	518	{
524	LOG (llevError, "Warning: No settings file found\n");	519	LOG (llevError, "Error: No settings file found\n");
525	return;	520	exit (1);
526	}	521	}
		522
527	while (fgets (buf, MAX_BUF - 1, fp) != NULL)	523	while (fgets (buf, MAX_BUF - 1, fp) != NULL)
528	{	524	{
529	if (buf[0] == '#')	525	if (buf[0] == '#')
530	continue;	526	continue;
531	/* eliminate newline */	527	/* eliminate newline */
…		…
545	*cp++ = 0;	541	*cp++ = 0;
546	has_val = 1;	542	has_val = 1;
547	}	543	}
548	else	544	else
549	{	545	{
550	cp = "";	546	cp = (char *)"";
551	has_val = 0;	547	has_val = 0;
552	}	548	}
553		549
554	if (!strcasecmp (buf, "motd"))	550	if (!strcasecmp (buf, "motd"))
555	{	551	{
…		…
725	else	721	else
726	{	722	{
727	LOG (llevError, "load_settings: Unknown value for " "spell_failure_effects: %s\n", cp);	723	LOG (llevError, "load_settings: Unknown value for " "spell_failure_effects: %s\n", cp);
728	}	724	}
729	}	725	}
730	else if (!strcasecmp (buf, "casting_time"))
731	{
732	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
733	{
734	settings.casting_time = TRUE;
735	}
736	else if (!strcasecmp (cp, "off") \|\| !strcasecmp (cp, "false"))
737	{
738	settings.casting_time = FALSE;
739	}
740	else
741	{
742	LOG (llevError, "load_settings: Unknown value for " "casting_time: %s\n", cp);
743	}
744	}
745	else if (!strcasecmp (buf, "real_wiz"))
746	{
747	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
748	{
749	settings.real_wiz = TRUE;
750	}
751	else if (!strcasecmp (cp, "off") \|\| !strcasecmp (cp, "false"))
752	{
753	settings.real_wiz = FALSE;
754	}
755	else
756	{
757	LOG (llevError, "load_settings: Unknown value for " "real_wiz: %s\n", cp);
758	}
759	}
760	else if (!strcasecmp (buf, "explore_mode"))
761	{
762	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
763	{
764	settings.explore_mode = TRUE;
765	}
766	else if (!strcasecmp (cp, "off") \|\| !strcasecmp (cp, "false"))
767	{
768	settings.explore_mode = FALSE;
769	}
770	else
771	{
772	LOG (llevError, "load_settings: Unknown value for " "explore_mode: %s\n", cp);
773	}
774	}
775	else if (!strcasecmp (buf, "spellpoint_level_depend"))	726	else if (!strcasecmp (buf, "spellpoint_level_depend"))
776	{	727	{
777	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))	728	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
778	{	729	{
779	settings.spellpoint_level_depend = TRUE;	730	settings.spellpoint_level_depend = TRUE;
…		…
883	}	834	}
884	else if (!strcasecmp (buf, "set_friendly_fire"))	835	else if (!strcasecmp (buf, "set_friendly_fire"))
885	{	836	{
886	int val = atoi (cp);	837	int val = atoi (cp);
887		838
888	#if COZY_SERVER
889	if (val < 0 \|\| val > 100)	839	if (val < 0 \|\| val > 100)
890	LOG (llevError, "load_settings: set_friendly_fire must be between 0 an 100" ", %d is invalid\n", val);	840	LOG (llevError, "load_settings: set_friendly_fire must be between 0 an 100" ", %d is invalid\n", val);
891	#else
892	if (val < 1 \|\| val > 100)
893	LOG (llevError, "load_settings: set_friendly_fire must be between 1 an 100" ", %d is invalid\n", val);
894	#endif
895	else	841	else
896	settings.set_friendly_fire = val;	842	settings.set_friendly_fire = val;
897	}	843	}
898	else if (!strcasecmp (buf, "armor_max_enchant"))	844	else if (!strcasecmp (buf, "armor_max_enchant"))
899	{	845	{
…		…
952	{	898	{
953	LOG (llevError, "load_settings: unknown value for armor_speed_linear: %s\n", cp);	899	LOG (llevError, "load_settings: unknown value for armor_speed_linear: %s\n", cp);
954	}	900	}
955		901
956	}	902	}
957	else if (!strcasecmp (buf, "no_player_stealing"))
958	{
959	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
960	{
961	settings.no_player_stealing = TRUE;
962	}
963	else if (!strcasecmp (cp, "off") \|\| !strcasecmp (cp, "false"))
964	{
965	settings.no_player_stealing = FALSE;
966	}
967	else
968	{
969	LOG (llevError, "load_settings: unknown value for no_player_stealing: %s\n", cp);
970	}
971
972	}
973	else if (!strcasecmp (buf, "create_home_portals"))
974	{
975	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
976	{
977	settings.create_home_portals = TRUE;
978	}
979	else if (!strcasecmp (cp, "off") \|\| !strcasecmp (cp, "false"))
980	{
981	settings.create_home_portals = FALSE;
982	}
983	else
984	{
985	LOG (llevError, "load_settings: Unknown value for create_home_portals: %s\n", cp);
986	}
987
988	}
989	else	903	else
990	{
991	LOG (llevError, "Unknown value in settings file: %s\n", buf);	904	LOG (llevError, "Unknown value in settings file: %s\n", buf);
992	}
993	}	905	}
994		906
995	close_and_delete (fp, comp);	907	close_and_delete (fp, comp);
996	}	908	}
997
998		909
999	/*	910	/*
1000	* init() is called only once, when starting the program.	911	* init() is called only once, when starting the program.
1001	*/	912	*/
1002
1003	void	913	void
1004	init (int argc, char **argv)	914	init (int argc, char **argv)
1005	{	915	{
1006	init_done = 0; /* Must be done before init_signal() */	916	init_done = 0; /* Must be done before init_signal() */
1007	logfile = stderr;	917	rndm.seed (time (0));
		918
		919	init_environ ();
1008	parse_args (argc, argv, 1); /* First arg pass - right now it does	920	parse_args (argc, argv, 1); /* First arg pass - right now it does
1009	* nothing, but in future specifying the	921	* nothing, but in future specifying the
1010	* LibDir in this pass would be reasonable*/	922	* LibDir in this pass would be reasonable*/
1011		923
		924	init_anim (); // Must be called before perl
		925	init_globals ();
		926	init_experience ();
		927	init_attackmess ();
		928	init_dynamic ();
		929	init_block ();
1012	cfperl_init ();	930	cfperl_init ();
1013	init_library (); /* Must be called early */
1014	load_settings (); /* Load the settings file */	931	load_settings (); /* Load the settings file */
1015	load_materials ();	932	load_materials ();
1016	parse_args (argc, argv, 2);	933	parse_args (argc, argv, 2);
1017	fprintf (logfile, "Welcome to CrossFire, v%s\n", VERSION);	934	LOG (llevInfo, "Welcome to Deliantra, v" VERSION);
		935	LOG (llevInfo, "Copyright (C) Marc Alexander Lehmann / Robin Redeker / the Deliantra team.");
1018	fprintf (logfile, "Copyright (C) 1994 Mark Wedel.\n");	936	LOG (llevInfo, "Copyright (C) 1994 Mark Wedel.");
1019	fprintf (logfile, "Copyright (C) 1992 Frank Tore Johansen.\n");	937	LOG (llevInfo, "Copyright (C) 1992 Frank Tore Johansen.");
1020		938
1021	if (strcmp (settings.dm_mail, "") != 0)	939	if (strcmp (settings.dm_mail, "") != 0)
1022	{	940	{
1023	fprintf (logfile, "Maintained locally by: %s\n", settings.dm_mail);	941	LOG (llevInfo, "Maintained locally by: %s\n", settings.dm_mail);
1024	fprintf (logfile, "Questions and bugs should be mailed to above address.\n");	942	LOG (llevInfo, "Questions and bugs should be mailed to above address.\n");
1025	}	943	}
1026		944
1027	SRANDOM (time (NULL));	945	UUID::init ();
1028
1029	init_startup (); /* Write (C), check shutdown/forbid files */
1030	init_uuid ();
1031	init_signals (); /* Sets up signal interceptions */	946	init_signals (); /* Sets up signal interceptions */
1032	init_commands (); /* Sort command tables */	947	init_commands (); /* Sort command tables */
1033	init_skills ();	948	init_skills ();
1034		949
1035	parse_args (argc, argv, 3);	950	parse_args (argc, argv, 3);
1036		951
1037	if (settings.daemonmode)
1038	logfile = BecomeDaemon (settings.logfilename[0] == '\0' ? "logfile" : settings.logfilename);
1039
1040	init_beforeplay ();	952	init_beforeplay ();
1041	init_ericserver ();
1042	init_done = 1;	953	init_done = 1;
1043	}	954	}
1044		955
1045	void	956	void
1046	usage (void)	957	usage (void)
1047	{	958	{
1048	(void) fprintf (logfile, "Usage: crossfire [-h] [-<flags>]...\n");	959	fprintf (stderr, "Usage: deliantra-server [-h] [-<flags>]...\n");
1049	}	960	}
1050		961
1051	void	962	void
1052	help (void)	963	help (void)
1053	{	964	{
…		…
1094	}	1005	}
1095		1006
1096	void	1007	void
1097	init_beforeplay (void)	1008	init_beforeplay (void)
1098	{	1009	{
1099	init_archetypes (); /* If not called before, reads all archetypes from file */
1100	init_artifacts (); /* If not called before, reads all artifacts from file */	1010	init_artifacts (); /* If not called before, reads all artifacts from file */
1101	init_spells (); /* If not called before, links archtypes used by spells */
1102	init_regions (); /* If not called before, reads all regions from file */
1103	init_archetype_pointers (); /* Setup global pointers to archetypes */
1104	init_races (); /* overwrite race designations using entries in lib/races file */	1011	init_races (); /* overwrite race designations using entries in lib/races file */
1105	init_gods (); /* init linked list of gods from archs */	1012	init_gods (); /* init linked list of gods from archs */
1106	init_readable (); /* inits useful arrays for readable texts */	1013	init_readable (); /* inits useful arrays for readable texts */
1107	init_formulae (); /* If not called before, reads formulae from file */	1014	init_formulae (); /* If not called before, reads formulae from file */
1108
1109	switch (settings.dumpvalues)
1110	{
1111	case 1:
1112	print_monsters ();
1113	exit (0);
1114	case 2:
1115	dump_abilities ();
1116	exit (0);
1117	case 3:
1118	dump_artifacts ();
1119	exit (0);
1120	case 4:
1121	dump_spells ();
1122	exit (0);
1123	case 5:
1124	exit (0);
1125	case 6:
1126	dump_races ();
1127	exit (0);
1128	case 7:
1129	dump_alchemy ();
1130	exit (0);
1131	case 9:
1132	dump_alchemy_costs ();
1133	exit (0);
1134	case 10:
1135	dump_monster_treasure (settings.dumparg);
1136	exit (0);
1137	}
1138	}
1139
1140	void
1141	init_startup (void)
1142	{
1143	char buf[MAX_BUF];
1144	FILE *fp;
1145	int comp;
1146
1147	#ifdef SHUTDOWN_FILE
1148	sprintf (buf, "%s/%s", settings.confdir, SHUTDOWN_FILE);
1149	if ((fp = open_and_uncompress (buf, 0, &comp)) != NULL)
1150	{
1151	while (fgets (buf, MAX_BUF - 1, fp) != NULL)
1152	printf ("%s", buf);
1153	close_and_delete (fp, comp);
1154	exit (1);
1155	}
1156	#endif
1157
1158	if (forbid_play ())
1159	{ /* Maybe showing highscore should be allowed? */
1160	LOG (llevError, "CrossFire: Playing not allowed.\n");
1161	exit (-1);
1162	}
1163	}
1164
1165	/*
1166	* compile_info(): activated with the -o flag.
1167	* It writes out information on how Imakefile and config.h was configured
1168	* at compile time.
1169	*/
1170
1171	void
1172	compile_info (void)
1173	{
1174	int i = 0;
1175
1176	printf ("Non-standard include files:\n");
1177	#if !defined (__STRICT_ANSI__) \|\| defined (__sun__)
1178	# if !defined (Mips)
1179	printf ("<stdlib.h>\n");
1180	i = 1;
1181	# endif
1182	# if !defined (MACH) && !defined (sony)
1183	printf ("<malloc.h>\n");
1184	i = 1;
1185	# endif
1186	#endif
1187	#ifndef __STRICT_ANSI__
1188	# ifndef MACH
1189	printf ("<memory.h\n");
1190	i = 1;
1191	# endif
1192	#endif
1193	#ifndef sgi
1194	printf ("<sys/timeb.h>\n");
1195	i = 1;
1196	#endif
1197	if (!i)
1198	printf ("(none)\n");
1199	printf ("Datadir:\t\t%s\n", settings.datadir);
1200	printf ("Localdir:\t\t%s\n", settings.localdir);
1201	#ifdef PERM_FILE
1202	printf ("Perm file:\t<ETC>/%s\n", PERM_FILE);
1203	#endif
1204	#ifdef SHUTDOWN_FILE
1205	printf ("Shutdown file:\t<ETC>/%s\n", SHUTDOWN_FILE);
1206	#endif
1207	printf ("Save player:\t<true>\n");
1208	printf ("Save mode:\t%4.4o\n", SAVE_MODE);
1209	printf ("Playerdir:\t<VAR>/%s\n", settings.playerdir);
1210	printf ("Itemsdir:\t<VAR>/%s\n", settings.uniquedir);
1211	printf ("Tmpdir:\t\t%s\n", settings.tmpdir);
1212	#ifdef USE_CALLOC
1213	printf ("Use_calloc:\t<true>\n");
1214	#else
1215	printf ("Use_calloc:\t<false>\n");
1216	#endif
1217
1218	#ifdef X_EDITOR
1219	printf ("Editor:\t\t%s\n", X_EDITOR);
1220	#endif
1221
1222	printf ("Max_time:\t%d\n", MAX_TIME);
1223
1224	execl ("/bin/uname", "uname", "-a", NULL);
1225	LOG (llevError, "Oops, shouldn't have gotten here: execl(/bin/uname) failed: %s\n", strerror (errno));
1226	exit (-1);
1227	}	1015	}
1228		1016
1229	/* Signal handlers: */	1017	/* Signal handlers: */
1230		1018
1231	void	1019	static void
		1020	rec_sigabrt (int i)
		1021	{
		1022	signal (SIGABRT, SIG_DFL);
		1023
		1024	LOG (llevError, "SIGABRT received.\n");
		1025	cleanup ("SIGABRT received", 1);
		1026	}
		1027
		1028	static void
1232	rec_sigsegv (int i)	1029	rec_sigsegv (int i)
1233	{	1030	{
		1031	signal (SIGSEGV, SIG_DFL);
		1032
1234	LOG (llevError, "SIGSEGV received.\n");	1033	LOG (llevError, "SIGSEGV received.\n");
1235	fatal_signal (1, 1);	1034	cleanup ("SIGSEGV received", 1);
1236	}	1035	}
1237		1036
1238	void	1037	static void
1239	rec_sigint (int i)
1240	{
1241	LOG (llevInfo, "SIGINT received.\n");
1242	fatal_signal (0, 1);
1243	}
1244
1245	void
1246	rec_sighup (int i)
1247	{
1248	LOG (llevInfo, "SIGHUP received\n");
1249
1250	if (init_done)
1251	cleanup (0);
1252
1253	exit (0);
1254	}
1255
1256	void
1257	rec_sigquit (int i)	1038	rec_sigquit (int i)
1258	{	1039	{
		1040	signal (SIGQUIT, SIG_IGN);
		1041
1259	LOG (llevInfo, "SIGQUIT received\n");	1042	LOG (llevInfo, "SIGQUIT received\n");
1260	fatal_signal (1, 1);	1043	cleanup ("SIGQUIT received", 1);
1261	}	1044	}
1262		1045
1263	void	1046	static void
1264	rec_sigbus (int i)	1047	rec_sigbus (int i)
1265	{	1048	{
1266	#ifdef SIGBUS	1049	signal (SIGBUS, SIG_DFL);
		1050
1267	LOG (llevError, "SIGBUS received\n");	1051	LOG (llevError, "SIGBUS received\n");
1268	fatal_signal (1, 1);	1052	cleanup ("SIGBUS received", 1);
1269	#endif
1270	}	1053	}
1271		1054
1272	void	1055	void
1273	rec_sigterm (int i)	1056	reset_signals ()
1274	{	1057	{
1275	LOG (llevInfo, "SIGTERM received\n");	1058	signal (SIGABRT, SIG_DFL);
1276	fatal_signal (0, 1);	1059	signal (SIGQUIT, SIG_DFL);
1277	}	1060	signal (SIGSEGV, SIG_DFL);
1278		1061	signal (SIGBUS , SIG_DFL);
1279	void	1062	signal (SIGINT , SIG_DFL);
1280	fatal_signal (int make_core, int close_sockets)	1063	signal (SIGTERM, SIG_DFL);
1281	{
1282	cleanup (make_core);
1283	}	1064	}
1284		1065
1285	void	1066	void
1286	init_signals (void)	1067	init_signals (void)
1287	{	1068	{
1288	signal (SIGHUP, rec_sighup);	1069	// large stack, but it's important data we want to save, and it is not usually
1289	signal (SIGINT, rec_sigint);	1070	// being physically allocated anyways
1290	signal (SIGQUIT, rec_sigquit);	1071	const size_t stacksize = 8 * 1024 * 1024 + SIGSTKSZ;
1291	signal (SIGSEGV, rec_sigsegv);	1072
1292	signal (SIGPIPE, SIG_IGN);	1073	stack_t ss;
1293	#ifdef SIGBUS	1074	ss.ss_sp = malloc (stacksize);
1294	signal (SIGBUS, rec_sigbus);	1075	ss.ss_flags = 0;
1295	#endif	1076	ss.ss_size = stacksize;
1296	signal (SIGTERM, rec_sigterm);	1077	sigaltstack (&ss, 0);
		1078
		1079	struct sigaction sa;
		1080
		1081	sigfillset (&sa.sa_mask);
		1082	sa.sa_flags = SA_RESTART;
		1083
		1084	sa.sa_handler = SIG_IGN; sigaction (SIGPIPE, &sa, 0);
		1085	sa.sa_handler = rec_sigabrt; sigaction (SIGABRT, &sa, 0);
		1086	sa.sa_handler = rec_sigquit; sigaction (SIGQUIT, &sa, 0);
		1087	sa.sa_handler = rec_sigbus; sigaction (SIGBUS, &sa, 0);
		1088
		1089	sa.sa_flags \|= SA_ONSTACK;
		1090	sa.sa_handler = rec_sigsegv; sigaction (SIGSEGV, &sa, 0);
1297	}	1091	}
1298		1092
1299	/* init_races() - reads the races file in the lib/ directory, then	1093	/* init_races() - reads the races file in the lib/ directory, then
1300	* overwrites old 'race' entries. This routine allow us to quickly	1094	* overwrites old 'race' entries. This routine allow us to quickly
1301	* re-configure the 'alignment' of monsters, objects. Useful for	1095	* re-configure the 'alignment' of monsters, objects. Useful for
1302	* putting together lists of creatures, etc that belong to gods.	1096	* putting together lists of creatures, etc that belong to gods.
1303	*/	1097	*/
1304
1305	void	1098	void
1306	init_races (void)	1099	init_races (void)
1307	{	1100	{
1308	FILE *file;	1101	FILE *file;
1309	char race[MAX_BUF], fname[MAX_BUF], buf[MAX_BUF], *cp, variable[MAX_BUF];	1102	char race[MAX_BUF], fname[MAX_BUF], buf[MAX_BUF], *cp, variable[MAX_BUF];
…		…
1314	return;	1107	return;
1315	init_done = 1;	1108	init_done = 1;
1316	first_race = 0;	1109	first_race = 0;
1317		1110
1318	sprintf (fname, "%s/races", settings.datadir);	1111	sprintf (fname, "%s/races", settings.datadir);
1319	LOG (llevDebug, "Reading races from %s...", fname);	1112	LOG (llevDebug, "Reading races from %s...\n", fname);
1320	if (!(file = fopen (fname, "r")))	1113	if (!(file = fopen (fname, "r")))
1321	{	1114	{
1322	LOG (llevError, "Cannot open races file %s: %s\n", fname, strerror (errno));	1115	LOG (llevError, "Cannot open races file %s: %s\n", fname, strerror (errno));
1323	return;	1116	return;
1324	}	1117	}
…		…
1342	set_list = 0;	1135	set_list = 0;
1343	cp++;	1136	cp++;
1344	}	1137	}
1345		1138
1346	if (sscanf (cp, "RACE %s", variable))	1139	if (sscanf (cp, "RACE %s", variable))
1347	{ /* set new race value */	1140	/* set new race value */
1348	strcpy (race, variable);	1141	strcpy (race, variable);
1349	}
1350	else	1142	else
1351	{	1143	{
1352	char *cp1;	1144	char *cp1;
1353		1145
1354	/* Take out beginning spaces */	1146	/* Take out beginning spaces */
…		…
1365	if (cp[strlen (cp) - 1] == '\n')	1157	if (cp[strlen (cp) - 1] == '\n')
1366	cp[strlen (cp) - 1] = '\0';	1158	cp[strlen (cp) - 1] = '\0';
1367		1159
1368	/* set creature race to race value */	1160	/* set creature race to race value */
1369	if ((mon = archetype::find (cp)) == NULL)	1161	if ((mon = archetype::find (cp)) == NULL)
1370	LOG (llevError, "\nCreature %s in race file lacks archetype", cp);	1162	LOG (llevError, "Creature %s in race file lacks archetype\n", cp);
1371	else	1163	else
1372	{	1164	{
1373	if (set_race && (!mon->clone.race \|\| strcmp (mon->clone.race, race)))	1165	if (set_race && (!mon->race \|\| strcmp (mon->race, race)))
1374	{	1166	{
1375	if (mon->clone.race)	1167	if (mon->race)
1376	LOG (llevDebug, "\n Resetting race to %s from %s for archetype %s", race, &mon->clone.race, &mon->name);	1168	LOG (llevDebug, "Resetting race to %s from %s for archetype %s\n", race, &mon->race, &mon->archname);
1377		1169
1378	mon->clone.race = race;	1170	mon->race = race;
1379	}	1171	}
1380		1172
1381	/* if the arch is a monster, add it to the race list */	1173	/* if the arch is a monster, add it to the race list */
1382	if (set_list && QUERY_FLAG (&mon->clone, FLAG_MONSTER))	1174	if (set_list && QUERY_FLAG (mon, FLAG_MONSTER))
1383	add_to_racelist (race, &mon->clone);	1175	add_to_racelist (race, mon);
1384	}	1176	}
1385	}	1177	}
1386	}	1178	}
1387		1179
1388	fclose (file);	1180	fclose (file);
…		…
1397		1189
1398	for (list = first_race; list; list = list->next)	1190	for (list = first_race; list; list = list->next)
1399	{	1191	{
1400	fprintf (stderr, "\nRACE %s:\t", &list->name);	1192	fprintf (stderr, "\nRACE %s:\t", &list->name);
1401	for (tmp = list->member; tmp; tmp = tmp->next)	1193	for (tmp = list->member; tmp; tmp = tmp->next)
1402	fprintf (stderr, "%s(%d), ", &tmp->ob->arch->name, tmp->ob->level);	1194	fprintf (stderr, "%s(%d), ", &tmp->ob->arch->archname, tmp->ob->level);
1403	}	1195	}
1404		1196
1405	fprintf (stderr, "\n");	1197	fprintf (stderr, "\n");
1406	}	1198	}
1407		1199

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing deliantra/server/server/init.C (file contents): Revision 1.24 by root, Sat Dec 30 15:07:59 2006 UTC vs. Revision 1.64 by root, Tue Apr 22 23:50:24 2008 UTC

Diff Legend

Comparing deliantra/server/server/init.C (file contents):
Revision 1.24 by root, Sat Dec 30 15:07:59 2006 UTC vs.
Revision 1.64 by root, Tue Apr 22 23:50:24 2008 UTC