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

Comparing deliantra/server/server/init.C (file contents):
Revision 1.17 by root, Wed Dec 13 02:55:51 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	#ifndef __CEXTRACT__
28	# include <sproto.h>	27	#include <sproto.h>
29	#endif
30
31	/* global weathermap */
32	weathermap_t **weathermap;
33		28
34	void	29	void
35	set_logfile (char *val)	30	set_logfile (char *val)
36	{	31	{
37	settings.logfilename = val;	32	settings.logfilename = val;
241	* 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.
242	*/	237	*/
243	struct Command_Line_Options options[] = {	238	struct Command_Line_Options options[] = {
244		239
245	/* 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
246	* initialize any data.	241	* initialise any data.
247	*/	242	*/
248	{"-h", 0, 1, help},	243	{"-h", 0, 1, help},
249		244
250	/* Honor -help also, since it is somewhat common */	245	/* Honor -help also, since it is somewhat common */
251	{"-help", 0, 1, help},	246	{"-help", 0, 1, help},
…		…
273	{"-detach", 0, 2, set_daemon},	268	{"-detach", 0, 2, set_daemon},
274		269
275	/* 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
276	* and defaults should have been set up.	271	* and defaults should have been set up.
277	*/	272	*/
278	{"-o", 0, 3, compile_info},
279	{"-m", 0, 3, set_dumpmon1},	273	{"-m", 0, 3, set_dumpmon1},
280	{"-m2", 0, 3, set_dumpmon2},	274	{"-m2", 0, 3, set_dumpmon2},
281	{"-m3", 0, 3, set_dumpmon3},	275	{"-m3", 0, 3, set_dumpmon3},
282	{"-m4", 0, 3, set_dumpmon4},	276	{"-m4", 0, 3, set_dumpmon4},
283	{"-m5", 0, 3, set_dumpmon5},	277	{"-m5", 0, 3, set_dumpmon5},
284	{"-m6", 0, 3, set_dumpmon6},	278	{"-m6", 0, 3, set_dumpmon6},
285	{"-m7", 0, 3, set_dumpmon7},	279	{"-m7", 0, 3, set_dumpmon7},
286	{"-m8", 0, 3, set_dumpmon8},	280	{"-m8", 0, 3, set_dumpmon8},
287	{"-m9", 0, 3, set_dumpmon9},	281	{"-m9", 0, 3, set_dumpmon9},
288	{"-mt", 1, 3, (void (*)()) set_dumpmont},	282	{"-mt", 1, 3, (void (*)()) set_dumpmont},
289	{"-mexp", 0, 3, dump_experience},
290	{"-s", 0, 3, showscores},	283	{"-s", 0, 3, showscores},
291	{"-score", 1, 3, (void (*)()) showscoresparm}	284	{"-score", 1, 3, (void (*)()) showscoresparm}
292	};	285	};
293		286
294		287
295	/* 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,
296	* we don't use any of crossfires built in logging functions.	289	* we don't use any of deliantras built in logging functions.
297	*/	290	*/
298	static void	291	static void
299	parse_args (int argc, char *argv[], int pass)	292	parse_args (int argc, char *argv[], int pass)
300	{	293	{
301	size_t i;	294	size_t i;
…		…
378	}	371	}
379		372
380	static void	373	static void
381	load_materials (void)	374	load_materials (void)
382	{	375	{
383	char buf[MAX_BUF], filename[MAX_BUF], cp, next;	376	char filename[MAX_BUF];
384	FILE *fp;
385	materialtype_t *mt;	377	materialtype_t *mt;
386	int i, value;
387		378
388	sprintf (filename, "%s/materials", settings.datadir);	379	sprintf (filename, "%s/materials", settings.datadir);
389	LOG (llevDebug, "Reading material type data from %s...", filename);	380	LOG (llevDebug, "Reading material type data from %s...\n", filename);
390	if ((fp = fopen (filename, "r")) == NULL)	381
		382	object_thawer thawer (filename);
		383
		384	if (!thawer)
391	{	385	{
392	LOG (llevError, "Cannot open %s for reading\n", filename);	386	LOG (llevError, "Cannot open %s for reading\n", filename);
393	mt = get_empty_mat ();	387	mt = get_empty_mat ();
394	mt->next = NULL;	388	mt->next = 0;
395	materialt = mt;	389	materialt = mt;
396	return;	390	return;
397	}	391	}
		392
398	mt = get_empty_mat ();	393	mt = get_empty_mat ();
399	materialt = mt;	394	materialt = mt;
400	while (fgets (buf, MAX_BUF, fp) != NULL)	395
		396	for (;;)
401	{	397	{
402	if (*buf == '#')	398	thawer.next ();
403	continue;	399
404	if ((cp = strchr (buf, '\n')) != NULL)	400	switch (thawer.kw)
405	*cp = '\0';
406	cp = buf;
407	while (cp == ' ') / Skip blanks */
408	cp++;
409	if (!strncmp (cp, "name", 4))
410	{	401	{
		402	case KW_name:
411	/* clean up the previous entry */	403	/* clean up the previous entry */
412	if (mt->next != NULL)	404	if (mt->next)
413	{	405	{
414	if (mt->description == NULL)	406	if (!mt->description)
415	mt->description = mt->name;	407	mt->description = mt->name;
		408
416	mt = mt->next;	409	mt = mt->next;
417	}	410	}
		411
418	mt->next = get_empty_mat ();	412	mt->next = get_empty_mat ();
419	mt->name = strchr (cp, ' ') + 1;	413	thawer.get (mt->name);
420	}	414	break;
421	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:
422	{	425	{
423	mt->description = strchr (cp, ' ') + 1;	426	const char *cp = thawer.get_str () - 1;
424	}	427
425	else if (sscanf (cp, "material %d", &value))
426	{
427	mt->material = value;
428	}
429	else if (!strncmp (cp, "saves", 5))
430	{
431	cp = strchr (cp, ' ') + 1;
432	for (i = 0; i < NROFATTACKS; i++)	428	for (int i = 0; i < NROFATTACKS; i++)
433	{
434	if (cp == NULL)
435	{	429	{
		430	if (!cp)
		431	{
436	mt->save[i] = 0;	432	mt->save[i] = 0;
437	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, ',');
438	}	441	}
439	if ((next = strchr (cp, ',')) != NULL)
440	*(next++) = '\0';
441	sscanf (cp, "%d", &value);
442	mt->save[i] = (sint8) value;
443	cp = next;
444	}
445	}
446	else if (!strncmp (cp, "mods", 4))
447	{
448	cp = strchr (cp, ' ') + 1;
449	for (i = 0; i < NROFATTACKS; i++)
450	{	442	}
451	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++)
452	{	450	{
		451	if (!cp)
		452	{
453	mt->save[i] = 0;	453	mt->save[i] = 0;
454	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, ',');
455	}	462	}
456	if ((next = strchr (cp, ',')) != NULL)
457	*(next++) = '\0';
458	sscanf (cp, "%d", &value);
459	mt->mod[i] = (sint8) value;
460	cp = next;
461	}
462	}	463	}
463	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;
464	{	486	}
465	mt->chance = (sint8) value;
466	}
467	else if (sscanf (cp, "diff %d\n", &value))
468	{
469	mt->difficulty = (sint8) value;
470	}
471	else if (sscanf (cp, "magic %d\n", &value))
472	{
473	mt->magic = (sint8) value;
474	}
475	else if (sscanf (cp, "damage %d\n", &value))
476	{
477	mt->damage = (sint8) value;
478	}
479	else if (sscanf (cp, "wc %d\n", &value))
480	{
481	mt->wc = (sint8) value;
482	}
483	else if (sscanf (cp, "ac %d\n", &value))
484	{
485	mt->ac = (sint8) value;
486	}
487	else if (sscanf (cp, "sp %d\n", &value))
488	{
489	mt->sp = (sint8) value;
490	}
491	else if (sscanf (cp, "weight %d\n", &value))
492	{
493	mt->weight = value;
494	}
495	else if (sscanf (cp, "value %d\n", &value))
496	{
497	mt->value = value;
498	}
499	}	487	}
		488
		489	done:
500	if (mt->next)	490	if (mt->next)
501	{	491	{
502	delete mt->next;	492	delete mt->next;
503		493
504	mt->next = NULL;	494	mt->next = 0;
505	}	495	}
		496
506	LOG (llevDebug, "Done.\n");	497	LOG (llevDebug, "Done.\n");
507	fclose (fp);
508	}	498	}
509		499
510	/* 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
511	* 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
512	* information, having it here probably makes more sense.	502	* information, having it here probably makes more sense.
…		…
522		512
523	/* 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,
524	* 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
525	* will not be a good thing.	515	* will not be a good thing.
526	*/	516	*/
527	if ((fp = open_and_uncompress (buf, 0, &comp)) == NULL)	517	if (!(fp = open_and_uncompress (buf, 0, &comp)))
528	{	518	{
529	LOG (llevError, "Warning: No settings file found\n");	519	LOG (llevError, "Error: No settings file found\n");
530	return;	520	exit (1);
531	}	521	}
		522
532	while (fgets (buf, MAX_BUF - 1, fp) != NULL)	523	while (fgets (buf, MAX_BUF - 1, fp) != NULL)
533	{	524	{
534	if (buf[0] == '#')	525	if (buf[0] == '#')
535	continue;	526	continue;
536	/* eliminate newline */	527	/* eliminate newline */
…		…
550	*cp++ = 0;	541	*cp++ = 0;
551	has_val = 1;	542	has_val = 1;
552	}	543	}
553	else	544	else
554	{	545	{
555	cp = "";	546	cp = (char *)"";
556	has_val = 0;	547	has_val = 0;
557	}	548	}
558		549
559	if (!strcasecmp (buf, "motd"))	550	if (!strcasecmp (buf, "motd"))
560	{	551	{
…		…
730	else	721	else
731	{	722	{
732	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);
733	}	724	}
734	}	725	}
735	else if (!strcasecmp (buf, "casting_time"))
736	{
737	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
738	{
739	settings.casting_time = TRUE;
740	}
741	else if (!strcasecmp (cp, "off") \|\| !strcasecmp (cp, "false"))
742	{
743	settings.casting_time = FALSE;
744	}
745	else
746	{
747	LOG (llevError, "load_settings: Unknown value for " "casting_time: %s\n", cp);
748	}
749	}
750	else if (!strcasecmp (buf, "real_wiz"))
751	{
752	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
753	{
754	settings.real_wiz = TRUE;
755	}
756	else if (!strcasecmp (cp, "off") \|\| !strcasecmp (cp, "false"))
757	{
758	settings.real_wiz = FALSE;
759	}
760	else
761	{
762	LOG (llevError, "load_settings: Unknown value for " "real_wiz: %s\n", cp);
763	}
764	}
765	else if (!strcasecmp (buf, "recycle_tmp_maps"))
766	{
767	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
768	{
769	settings.recycle_tmp_maps = TRUE;
770	}
771	else if (!strcasecmp (cp, "off") \|\| !strcasecmp (cp, "false"))
772	{
773	settings.recycle_tmp_maps = FALSE;
774	}
775	else
776	{
777	LOG (llevError, "load_settings: Unknown value for " "recycle_tmp_maps: %s\n", cp);
778	}
779	}
780	else if (!strcasecmp (buf, "explore_mode"))
781	{
782	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
783	{
784	settings.explore_mode = TRUE;
785	}
786	else if (!strcasecmp (cp, "off") \|\| !strcasecmp (cp, "false"))
787	{
788	settings.explore_mode = FALSE;
789	}
790	else
791	{
792	LOG (llevError, "load_settings: Unknown value for " "explore_mode: %s\n", cp);
793	}
794	}
795	else if (!strcasecmp (buf, "spellpoint_level_depend"))	726	else if (!strcasecmp (buf, "spellpoint_level_depend"))
796	{	727	{
797	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))	728	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
798	{	729	{
799	settings.spellpoint_level_depend = TRUE;	730	settings.spellpoint_level_depend = TRUE;
…		…
903	}	834	}
904	else if (!strcasecmp (buf, "set_friendly_fire"))	835	else if (!strcasecmp (buf, "set_friendly_fire"))
905	{	836	{
906	int val = atoi (cp);	837	int val = atoi (cp);
907		838
908	#if COZY_SERVER
909	if (val < 0 \|\| val > 100)	839	if (val < 0 \|\| val > 100)
910	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);
911	#else
912	if (val < 1 \|\| val > 100)
913	LOG (llevError, "load_settings: set_friendly_fire must be between 1 an 100" ", %d is invalid\n", val);
914	#endif
915	else	841	else
916	settings.set_friendly_fire = val;	842	settings.set_friendly_fire = val;
917	}	843	}
918	else if (!strcasecmp (buf, "armor_max_enchant"))	844	else if (!strcasecmp (buf, "armor_max_enchant"))
919	{	845	{
…		…
972	{	898	{
973	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);
974	}	900	}
975		901
976	}	902	}
977	else if (!strcasecmp (buf, "no_player_stealing"))
978	{
979	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
980	{
981	settings.no_player_stealing = TRUE;
982	}
983	else if (!strcasecmp (cp, "off") \|\| !strcasecmp (cp, "false"))
984	{
985	settings.no_player_stealing = FALSE;
986	}
987	else
988	{
989	LOG (llevError, "load_settings: unknown value for no_player_stealing: %s\n", cp);
990	}
991
992	}
993	else if (!strcasecmp (buf, "create_home_portals"))
994	{
995	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
996	{
997	settings.create_home_portals = TRUE;
998	}
999	else if (!strcasecmp (cp, "off") \|\| !strcasecmp (cp, "false"))
1000	{
1001	settings.create_home_portals = FALSE;
1002	}
1003	else
1004	{
1005	LOG (llevError, "load_settings: Unknown value for create_home_portals: %s\n", cp);
1006	}
1007
1008	}
1009	else	903	else
1010	{
1011	LOG (llevError, "Unknown value in settings file: %s\n", buf);	904	LOG (llevError, "Unknown value in settings file: %s\n", buf);
1012	}
1013	}	905	}
		906
1014	close_and_delete (fp, comp);	907	close_and_delete (fp, comp);
1015	}	908	}
1016
1017		909
1018	/*	910	/*
1019	* init() is called only once, when starting the program.	911	* init() is called only once, when starting the program.
1020	*/	912	*/
1021
1022	void	913	void
1023	init (int argc, char **argv)	914	init (int argc, char **argv)
1024	{	915	{
1025	init_done = 0; /* Must be done before init_signal() */	916	init_done = 0; /* Must be done before init_signal() */
1026	logfile = stderr;	917	rndm.seed (time (0));
		918
		919	init_environ ();
1027	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
1028	* nothing, but in future specifying the	921	* nothing, but in future specifying the
1029	* LibDir in this pass would be reasonable*/	922	* LibDir in this pass would be reasonable*/
1030		923
		924	init_anim (); // Must be called before perl
		925	init_globals ();
		926	init_experience ();
		927	init_attackmess ();
		928	init_dynamic ();
		929	init_block ();
1031	cfperl_init ();	930	cfperl_init ();
1032	init_library (); /* Must be called early */
1033	load_settings (); /* Load the settings file */	931	load_settings (); /* Load the settings file */
1034	init_weather ();
1035	load_materials ();	932	load_materials ();
1036	parse_args (argc, argv, 2);	933	parse_args (argc, argv, 2);
1037	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.");
1038	fprintf (logfile, "Copyright (C) 1994 Mark Wedel.\n");	936	LOG (llevInfo, "Copyright (C) 1994 Mark Wedel.");
1039	fprintf (logfile, "Copyright (C) 1992 Frank Tore Johansen.\n");	937	LOG (llevInfo, "Copyright (C) 1992 Frank Tore Johansen.");
1040		938
1041	if (strcmp (settings.dm_mail, "") != 0)	939	if (strcmp (settings.dm_mail, "") != 0)
1042	{	940	{
1043	fprintf (logfile, "Maintained locally by: %s\n", settings.dm_mail);	941	LOG (llevInfo, "Maintained locally by: %s\n", settings.dm_mail);
1044	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");
1045	}	943	}
1046		944
1047	SRANDOM (time (NULL));	945	UUID::init ();
1048
1049	init_startup (); /* Write (C), check shutdown/forbid files */
1050	init_uuid ();
1051	init_signals (); /* Sets up signal interceptions */	946	init_signals (); /* Sets up signal interceptions */
1052	init_commands (); /* Sort command tables */	947	init_commands (); /* Sort command tables */
1053	read_map_log (); /* Load up the old temp map files */
1054	init_skills ();	948	init_skills ();
1055		949
1056	parse_args (argc, argv, 3);	950	parse_args (argc, argv, 3);
1057		951
1058	if (settings.daemonmode)
1059	logfile = BecomeDaemon (settings.logfilename[0] == '\0' ? "logfile" : settings.logfilename);
1060
1061	init_beforeplay ();	952	init_beforeplay ();
1062	init_ericserver ();
1063	init_done = 1;	953	init_done = 1;
1064	}	954	}
1065		955
1066	void	956	void
1067	usage (void)	957	usage (void)
1068	{	958	{
1069	(void) fprintf (logfile, "Usage: crossfire [-h] [-<flags>]...\n");	959	fprintf (stderr, "Usage: deliantra-server [-h] [-<flags>]...\n");
1070	}	960	}
1071		961
1072	void	962	void
1073	help (void)	963	help (void)
1074	{	964	{
…		…
1115	}	1005	}
1116		1006
1117	void	1007	void
1118	init_beforeplay (void)	1008	init_beforeplay (void)
1119	{	1009	{
1120	init_archetypes (); /* If not called before, reads all archetypes from file */
1121	init_artifacts (); /* If not called before, reads all artifacts from file */	1010	init_artifacts (); /* If not called before, reads all artifacts from file */
1122	init_spells (); /* If not called before, links archtypes used by spells */
1123	init_regions (); /* If not called before, reads all regions from file */
1124	init_archetype_pointers (); /* Setup global pointers to archetypes */
1125	init_races (); /* overwrite race designations using entries in lib/races file */	1011	init_races (); /* overwrite race designations using entries in lib/races file */
1126	init_gods (); /* init linked list of gods from archs */	1012	init_gods (); /* init linked list of gods from archs */
1127	init_readable (); /* inits useful arrays for readable texts */	1013	init_readable (); /* inits useful arrays for readable texts */
1128	init_formulae (); /* If not called before, reads formulae from file */	1014	init_formulae (); /* If not called before, reads formulae from file */
1129
1130	switch (settings.dumpvalues)
1131	{
1132	case 1:
1133	print_monsters ();
1134	exit (0);
1135	case 2:
1136	dump_abilities ();
1137	exit (0);
1138	case 3:
1139	dump_artifacts ();
1140	exit (0);
1141	case 4:
1142	dump_spells ();
1143	exit (0);
1144	case 5:
1145	exit (0);
1146	case 6:
1147	dump_races ();
1148	exit (0);
1149	case 7:
1150	dump_alchemy ();
1151	exit (0);
1152	case 9:
1153	dump_alchemy_costs ();
1154	exit (0);
1155	case 10:
1156	dump_monster_treasure (settings.dumparg);
1157	exit (0);
1158	}
1159	}
1160
1161	void
1162	init_startup (void)
1163	{
1164	char buf[MAX_BUF];
1165	FILE *fp;
1166	int comp;
1167
1168	#ifdef SHUTDOWN_FILE
1169	sprintf (buf, "%s/%s", settings.confdir, SHUTDOWN_FILE);
1170	if ((fp = open_and_uncompress (buf, 0, &comp)) != NULL)
1171	{
1172	while (fgets (buf, MAX_BUF - 1, fp) != NULL)
1173	printf ("%s", buf);
1174	close_and_delete (fp, comp);
1175	exit (1);
1176	}
1177	#endif
1178
1179	if (forbid_play ())
1180	{ /* Maybe showing highscore should be allowed? */
1181	LOG (llevError, "CrossFire: Playing not allowed.\n");
1182	exit (-1);
1183	}
1184	}
1185
1186	/*
1187	* compile_info(): activated with the -o flag.
1188	* It writes out information on how Imakefile and config.h was configured
1189	* at compile time.
1190	*/
1191
1192	void
1193	compile_info (void)
1194	{
1195	int i = 0;
1196
1197	printf ("Non-standard include files:\n");
1198	#if !defined (__STRICT_ANSI__) \|\| defined (__sun__)
1199	# if !defined (Mips)
1200	printf ("<stdlib.h>\n");
1201	i = 1;
1202	# endif
1203	# if !defined (MACH) && !defined (sony)
1204	printf ("<malloc.h>\n");
1205	i = 1;
1206	# endif
1207	#endif
1208	#ifndef __STRICT_ANSI__
1209	# ifndef MACH
1210	printf ("<memory.h\n");
1211	i = 1;
1212	# endif
1213	#endif
1214	#ifndef sgi
1215	printf ("<sys/timeb.h>\n");
1216	i = 1;
1217	#endif
1218	if (!i)
1219	printf ("(none)\n");
1220	printf ("Datadir:\t\t%s\n", settings.datadir);
1221	printf ("Localdir:\t\t%s\n", settings.localdir);
1222	#ifdef PERM_FILE
1223	printf ("Perm file:\t<ETC>/%s\n", PERM_FILE);
1224	#endif
1225	#ifdef SHUTDOWN_FILE
1226	printf ("Shutdown file:\t<ETC>/%s\n", SHUTDOWN_FILE);
1227	#endif
1228	printf ("Save player:\t<true>\n");
1229	printf ("Save mode:\t%4.4o\n", SAVE_MODE);
1230	printf ("Playerdir:\t<VAR>/%s\n", settings.playerdir);
1231	printf ("Itemsdir:\t<VAR>/%s\n", settings.uniquedir);
1232	printf ("Tmpdir:\t\t%s\n", settings.tmpdir);
1233	printf ("Map max timeout:\t%d\n", MAP_MAXTIMEOUT);
1234	printf ("Max objects:\t%d\n", MAX_OBJECTS);
1235	#ifdef USE_CALLOC
1236	printf ("Use_calloc:\t<true>\n");
1237	#else
1238	printf ("Use_calloc:\t<false>\n");
1239	#endif
1240
1241	#ifdef X_EDITOR
1242	printf ("Editor:\t\t%s\n", X_EDITOR);
1243	#endif
1244
1245	printf ("Max_time:\t%d\n", MAX_TIME);
1246
1247	execl ("/bin/uname", "uname", "-a", NULL);
1248	LOG (llevError, "Oops, shouldn't have gotten here: execl(/bin/uname) failed: %s\n", strerror (errno));
1249	exit (-1);
1250	}	1015	}
1251		1016
1252	/* Signal handlers: */	1017	/* Signal handlers: */
1253		1018
1254	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
1255	rec_sigsegv (int i)	1029	rec_sigsegv (int i)
1256	{	1030	{
		1031	signal (SIGSEGV, SIG_DFL);
		1032
1257	LOG (llevError, "\nSIGSEGV received.\n");	1033	LOG (llevError, "SIGSEGV received.\n");
1258	fatal_signal (1, 1);	1034	cleanup ("SIGSEGV received", 1);
1259	}	1035	}
1260		1036
1261	void	1037	static void
1262	rec_sigint (int i)
1263	{
1264	LOG (llevInfo, "\nSIGINT received.\n");
1265	fatal_signal (0, 1);
1266	}
1267
1268	void
1269	rec_sighup (int i)
1270	{
1271	LOG (llevInfo, "\nSIGHUP received\n");
1272	if (init_done)
1273	{
1274	emergency_save (0);
1275	cleanup ();
1276	}
1277	exit (0);
1278	}
1279
1280	void
1281	rec_sigquit (int i)	1038	rec_sigquit (int i)
1282	{	1039	{
		1040	signal (SIGQUIT, SIG_IGN);
		1041
1283	LOG (llevInfo, "\nSIGQUIT received\n");	1042	LOG (llevInfo, "SIGQUIT received\n");
1284	fatal_signal (1, 1);	1043	cleanup ("SIGQUIT received", 1);
1285	}	1044	}
1286		1045
1287	void	1046	static void
1288	rec_sigbus (int i)	1047	rec_sigbus (int i)
1289	{	1048	{
1290	#ifdef SIGBUS	1049	signal (SIGBUS, SIG_DFL);
		1050
1291	LOG (llevError, "\nSIGBUS received\n");	1051	LOG (llevError, "SIGBUS received\n");
1292	fatal_signal (1, 1);	1052	cleanup ("SIGBUS received", 1);
1293	#endif
1294	}	1053	}
1295		1054
1296	void	1055	void
1297	rec_sigterm (int i)	1056	reset_signals ()
1298	{	1057	{
1299	LOG (llevInfo, "\nSIGTERM received\n");	1058	signal (SIGABRT, SIG_DFL);
1300	fatal_signal (0, 1);	1059	signal (SIGQUIT, SIG_DFL);
1301	}	1060	signal (SIGSEGV, SIG_DFL);
1302		1061	signal (SIGBUS , SIG_DFL);
1303	void	1062	signal (SIGINT , SIG_DFL);
1304	fatal_signal (int make_core, int close_sockets)	1063	signal (SIGTERM, SIG_DFL);
1305	{
1306	if (init_done)
1307	{
1308	emergency_save (0);
1309	clean_tmp_files ();
1310	}
1311	if (make_core)
1312	abort ();
1313	exit (0);
1314	}	1064	}
1315		1065
1316	void	1066	void
1317	init_signals (void)	1067	init_signals (void)
1318	{	1068	{
1319	signal (SIGHUP, rec_sighup);	1069	// large stack, but it's important data we want to save, and it is not usually
1320	signal (SIGINT, rec_sigint);	1070	// being physically allocated anyways
1321	signal (SIGQUIT, rec_sigquit);	1071	const size_t stacksize = 8 * 1024 * 1024 + SIGSTKSZ;
1322	signal (SIGSEGV, rec_sigsegv);	1072
1323	signal (SIGPIPE, SIG_IGN);	1073	stack_t ss;
1324	#ifdef SIGBUS	1074	ss.ss_sp = malloc (stacksize);
1325	signal (SIGBUS, rec_sigbus);	1075	ss.ss_flags = 0;
1326	#endif	1076	ss.ss_size = stacksize;
1327	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);
1328	}	1091	}
1329		1092
1330	/* init_races() - reads the races file in the lib/ directory, then	1093	/* init_races() - reads the races file in the lib/ directory, then
1331	* overwrites old 'race' entries. This routine allow us to quickly	1094	* overwrites old 'race' entries. This routine allow us to quickly
1332	* re-configure the 'alignment' of monsters, objects. Useful for	1095	* re-configure the 'alignment' of monsters, objects. Useful for
1333	* putting together lists of creatures, etc that belong to gods.	1096	* putting together lists of creatures, etc that belong to gods.
1334	*/	1097	*/
1335
1336	void	1098	void
1337	init_races (void)	1099	init_races (void)
1338	{	1100	{
1339	FILE *file;	1101	FILE *file;
1340	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];
…		…
1345	return;	1107	return;
1346	init_done = 1;	1108	init_done = 1;
1347	first_race = 0;	1109	first_race = 0;
1348		1110
1349	sprintf (fname, "%s/races", settings.datadir);	1111	sprintf (fname, "%s/races", settings.datadir);
1350	LOG (llevDebug, "Reading races from %s...", fname);	1112	LOG (llevDebug, "Reading races from %s...\n", fname);
1351	if (!(file = fopen (fname, "r")))	1113	if (!(file = fopen (fname, "r")))
1352	{	1114	{
1353	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));
1354	return;	1116	return;
1355	}	1117	}
…		…
1373	set_list = 0;	1135	set_list = 0;
1374	cp++;	1136	cp++;
1375	}	1137	}
1376		1138
1377	if (sscanf (cp, "RACE %s", variable))	1139	if (sscanf (cp, "RACE %s", variable))
1378	{ /* set new race value */	1140	/* set new race value */
1379	strcpy (race, variable);	1141	strcpy (race, variable);
1380	}
1381	else	1142	else
1382	{	1143	{
1383	char *cp1;	1144	char *cp1;
1384		1145
1385	/* Take out beginning spaces */	1146	/* Take out beginning spaces */
…		…
1396	if (cp[strlen (cp) - 1] == '\n')	1157	if (cp[strlen (cp) - 1] == '\n')
1397	cp[strlen (cp) - 1] = '\0';	1158	cp[strlen (cp) - 1] = '\0';
1398		1159
1399	/* set creature race to race value */	1160	/* set creature race to race value */
1400	if ((mon = archetype::find (cp)) == NULL)	1161	if ((mon = archetype::find (cp)) == NULL)
1401	LOG (llevError, "\nCreature %s in race file lacks archetype", cp);	1162	LOG (llevError, "Creature %s in race file lacks archetype\n", cp);
1402	else	1163	else
1403	{	1164	{
1404	if (set_race && (!mon->clone.race \|\| strcmp (mon->clone.race, race)))	1165	if (set_race && (!mon->race \|\| strcmp (mon->race, race)))
1405	{	1166	{
1406	if (mon->clone.race)	1167	if (mon->race)
1407	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);
1408		1169
1409	mon->clone.race = race;	1170	mon->race = race;
1410	}	1171	}
1411		1172
1412	/* 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 */
1413	if (set_list && QUERY_FLAG (&mon->clone, FLAG_MONSTER))	1174	if (set_list && QUERY_FLAG (mon, FLAG_MONSTER))
1414	add_to_racelist (race, &mon->clone);	1175	add_to_racelist (race, mon);
1415	}	1176	}
1416	}	1177	}
1417	}	1178	}
1418		1179
1419	fclose (file);	1180	fclose (file);
…		…
1428		1189
1429	for (list = first_race; list; list = list->next)	1190	for (list = first_race; list; list = list->next)
1430	{	1191	{
1431	fprintf (stderr, "\nRACE %s:\t", &list->name);	1192	fprintf (stderr, "\nRACE %s:\t", &list->name);
1432	for (tmp = list->member; tmp; tmp = tmp->next)	1193	for (tmp = list->member; tmp; tmp = tmp->next)
1433	fprintf (stderr, "%s(%d), ", &tmp->ob->arch->name, tmp->ob->level);	1194	fprintf (stderr, "%s(%d), ", &tmp->ob->arch->archname, tmp->ob->level);
1434	}	1195	}
1435		1196
1436	fprintf (stderr, "\n");	1197	fprintf (stderr, "\n");
1437	}	1198	}
1438		1199

Diff Legend

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

Comparing deliantra/server/server/init.C (file contents): Revision 1.17 by root, Wed Dec 13 02:55:51 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.17 by root, Wed Dec 13 02:55:51 2006 UTC vs.
Revision 1.64 by root, Tue Apr 22 23:50:24 2008 UTC