/*
* Empire - A multi-player, client/server Internet based war game.
- * Copyright (C) 1986-2000, Dave Pare, Jeff Bailey, Thomas Ruschak,
+ * Copyright (C) 1986-2004, Dave Pare, Jeff Bailey, Thomas Ruschak,
* Ken Stevens, Steve McClure
*
* This program is free software; you can redistribute it and/or modify
*
*/
+#include <assert.h>
+#include <errno.h>
#include <stdio.h>
-#include <stdlib.h> /* atoi free atol */
-#ifdef Rel4
+#include <stdlib.h> /* atoi free atol */
#include <string.h>
-#endif /* Rel4 */
#include "misc.h"
#include "com.h"
#include "match.h"
#include "file.h"
#include "optlist.h"
-#include "gen.h" /* parse */
+#include "tel.h"
+#include "gen.h" /* parse */
/* for systems without strdup */
#ifdef NOSTRDUP
extern char *strdup();
#endif /* NOSTRDUP */
-/* All the configurable variables ... */
-extern s_char *infodir, *datadir, *gamedir, *loginport, *privname, *privlog;
-
-extern double buil_tower_bt, buil_tower_bc;
-extern double buytax, flakscale, maxmult, minmult, tradetax, uwbrate;
-extern double buil_bc, buil_bt, combat_mob, edu_cons, hap_cons, money_civ;
-extern double money_land, money_mil, money_plane, money_res, money_ship;
-extern double money_uw, people_damage, powe_cost, unit_damage, babyeat;
-extern double collateral_dam, assault_penalty;
-extern double bankint, eatrate, fcrate, fgrate, obrate, mission_mob_cost;
-
-extern float btu_build_rate, easy_tech, hard_tech, land_mob_scale;
-extern float level_age_rate, plane_mob_scale, sect_mob_scale;
-extern float ship_mob_scale, tech_log_base, ally_factor, edu_avg, hap_avg;
-
-extern int buil_tower_bh;
-extern int startmob, at_least_one_100, buil_bh, etu_per_update;
-extern int land_grow_scale, land_mob_max, m_m_p_d, max_btus, max_idle;
-extern int plane_grow_scale, plane_mob_max, players_at_00, sect_mob_max;
-extern int ship_grow_scale, ship_mob_max, torpedo_damage;
-extern int fort_max_interdiction_range;
-extern int land_max_interdiction_range;
-extern int ship_max_interdiction_range;
-extern int sect_mob_neg_factor;
-extern int lost_items_timeout;
-extern int WORLD_X;
-extern int WORLD_Y;
-extern int MARK_DELAY;
-extern int TRADE_DELAY;
-
-extern int morale_base;
-extern float fire_range_factor;
-
-extern long adj_update;
-extern long s_p_etu;
-extern int update_policy;
-extern s_char *update_times;
-extern int hourslop;
-extern int update_window;
-extern int blitz_time;
-extern int update_demandpolicy;
-extern s_char *update_demandtimes;
-extern int update_wantmin;
-extern int update_missed;
-extern s_char *game_days;
-extern s_char *game_hours;
-
-/* conditional ones */
-extern double decay_per_etu, fallout_spread;
-
-extern int fuel_mult;
-
-extern int War_Cost;
-extern long last_demand_update;
-
-extern float drnuke_const;
-extern float start_education, start_happiness;
-extern float start_technology, start_research;
-
-extern int trade_1_dist, trade_2_dist, trade_3_dist;
-extern float trade_1, trade_2, trade_3, trade_ally_bonus, trade_ally_cut;
-
/* Dummy one */
static int emp_config_dummy;
/* things that can be changed */
struct keymatch configkeys[] = {
-{ "", intset, (caddr_t)&emp_config_dummy, 0, "\n### Server configuration and information" },
-{ "data", optstrset, (caddr_t) &datadir, 0,
- "Directory the data is stored in" },
-{ "info", optstrset, (caddr_t) &infodir, 0,
- "Directory the info pages are stored in" },
-{ "port", optstrset, (caddr_t) &loginport, 0,
- "TCP/IP port the server will start up on" },
-{ "privname", optstrset, (caddr_t) &privname, 0,
- "Name of the deity" },
-{ "privlog", optstrset, (caddr_t) &privlog, 0,
- "E-mail of the deity" },
-{ "WORLD_X", worldxset, (caddr_t) &WORLD_X, 0,
- "World size X dimension (enforced to be even by subtracting 1 if necessary)" },
-{ "WORLD_Y", intset, (caddr_t) &WORLD_Y, 0,
- "World size Y dimension" },
-
-{ "", intset, (caddr_t)&emp_config_dummy, 0, "\n\n### Update policy" },
-{ "update_policy", intset, (caddr_t) &update_policy, 0,
- "0 - normal, 1 - update_times, 2 - blitz, 3 - demand only" },
-{ "etu_per_update", intset, (caddr_t) &etu_per_update, 0,
- "Number of ETUs per update" },
-{ "s_p_etu", longset, (caddr_t) &s_p_etu, 0,
- "Seconds per etu, updates will occur every s_p_etu * etu_per_update seconds" },
-{ "adj_update", longset, (caddr_t) &adj_update, 0,
- "Move the update forward or backward (in seconds)" },
-{ "update_window", intset, (caddr_t) &update_window, 0,
- "Window the update will occur in (in seconds) before and after the update time" },
-{ "update_times", optstrset, (caddr_t) &update_times, 0,
- "Times when updates occur under policy #1. Must coincide with schedule." },
-{ "hourslop", intset, (caddr_t) &hourslop, 0,
- "Number of minutes update check can slip to match update_times" },
-{ "blitz_time", intset, (caddr_t) &blitz_time, 0,
- "Number of minutes between updates under policy #2." },
-
-{ "", intset, (caddr_t)&emp_config_dummy, 0, "\n\n### Demand update policy" },
-{ "update_demandpolicy",intset, (caddr_t) &update_demandpolicy, 0,
- "0 - emp_tm checks, 1 - after setting, 2 - demand updates disabled" },
-{ "update_wantmin", intset, (caddr_t) &update_wantmin, 0,
- "number of requests needed for demand update" },
-{ "update_missed", intset, (caddr_t) &update_missed, 0,
- "number of demand updates country can miss before veto update" },
-{ "update_demandtimes", optstrset, (caddr_t) &update_demandtimes, 0,
- "Times when demand updates can occur. Ranges CANNOT cross midnight." },
-
-{ "", intset, (caddr_t)&emp_config_dummy, 0, "\n\n### Game hours restrictions" },
-{ "game_days", optstrset, (caddr_t) &game_days, 0,
- "Days game is up and running (Su Mo Tu We Th Fr Sa)" },
-{ "game_hours", optstrset, (caddr_t) &game_hours, 0,
- "Hours game is up and running (6:00-18:00)" },
-
-{ "", intset, (caddr_t)&emp_config_dummy, 0, "\n\n### Options\n" },
-{ "option", optionset, (caddr_t) NULL, 0, NULL },
-{ "nooption", optiondel, (caddr_t) NULL, 0, NULL },
-
-
-{ "", intset, (caddr_t)&emp_config_dummy, 0, "\n\n### Countries" },
-{ "btu_build_rate", floatset, (caddr_t) &btu_build_rate, 0,
- "Rate at which BTUs accumulate (etu * civ * eff * btu_build_rate)" },
-{ "m_m_p_d", intset, (caddr_t) &m_m_p_d, 0,
- "Maximum minutes per day a country is allowed to be logged in" },
-{ "max_btus", intset, (caddr_t) &max_btus, 0,
- "Maximum number of BTUs a country can have" },
-{ "max_idle", intset, (caddr_t) &max_idle, 0,
- "Maximum number of minutes a player can sit idle while logged in" },
-{ "players_at_00", intset, (caddr_t) &players_at_00, 0,
- "Players have their coordinate system at deity 0,0 (0 - no, 1 - yes)" },
-{ "at_least_one_100", intset, (caddr_t) &at_least_one_100, 0,
- "Initialize new countries with at least one sector with 100 of all resource" },
-{ "powe_cost", doubleset, (caddr_t) &powe_cost, 0,
- "Number of BTUs needed to generate a new power report" },
-{ "war_cost", intset, (caddr_t) &War_Cost, 0,
- "Cost to declare war (if SLOW_WAR is on)" },
-
-{ "", intset, (caddr_t)&emp_config_dummy, 0, "\n\n### Technology/Research/Education/Happiness" },
-{ "easy_tech", floatset, (caddr_t) &easy_tech, 0,
- "Amount of tech built with no penalty" },
-{ "hard_tech", floatset, (caddr_t) &hard_tech, 0,
- "Amount of in-efficiently built tech" },
-{ "start_tech", floatset, (caddr_t) &start_technology, 0,
- "Starting technology for new countries" },
-{ "start_happy", floatset, (caddr_t) &start_happiness, 0,
- "Starting happiness for new countries" },
-{ "start_research", floatset, (caddr_t) &start_research, 0,
- "Starting research for new countries" },
-{ "start_edu", floatset, (caddr_t) &start_education, 0,
- "Starting education for new countries" },
-{ "level_age_rate", floatset, (caddr_t) &level_age_rate, 0,
- "ETU rate at which tech decays (0 -> no decline)" },
-{ "tech_log_base", floatset, (caddr_t) &tech_log_base, 0,
- "Log base to apply to tech breakthroughs above the easy tech level" },
-{ "ally_factor", floatset, (caddr_t) &ally_factor, 0,
- "Shared tech with allies (1 / ally_factor)" },
-{ "edu_avg", floatset, (caddr_t) &edu_avg, 0,
- "Number of ETUs education is averaged over" },
-{ "hap_avg", floatset, (caddr_t) &hap_avg, 0,
- "Number of ETUs happiness is averaged over" },
-{ "edu_cons", doubleset, (caddr_t) &edu_cons, 0,
- "Education consumption (1 breakthrough per edu_cons)" },
-{ "hap_cons", doubleset, (caddr_t) &hap_cons, 0,
- "Happiness consumption (1 breakthrough per hap_cons)" },
-
-{ "", intset, (caddr_t)&emp_config_dummy, 0, "\n\n### Sectors" },
-{ "startmob", intset, (caddr_t) &startmob, 0,
- "Starting mobility for sanctuaries" },
-{ "sect_mob_scale", floatset, (caddr_t) §_mob_scale, 0,
- "Sector mobility accumulation (sect_mob_scale * ETUs per update)" },
-{ "sect_mob_max", intset, (caddr_t) §_mob_max, 0,
- "Maximum mobility for sectors" },
-{ "buil_bh", intset, (caddr_t) &buil_bh, 0,
- "Number of hcms required to build a bridge span" },
-{ "buil_bc", doubleset, (caddr_t) &buil_bc, 0,
- "Cash required to build a bridge span" },
-{ "buil_bt", doubleset, (caddr_t) &buil_bt, 0,
- "Technology required to build a bridge span" },
-{ "buil_tower_bh", intset, (caddr_t) &buil_tower_bh, 0,
- "Number of hcms required to build a bridge tower" },
-{ "buil_tower_bc", doubleset, (caddr_t) &buil_tower_bc, 0,
- "Cash required to build a bridge tower" },
-{ "buil_tower_bt", doubleset, (caddr_t) &buil_tower_bt, 0,
- "Technology required to build a bridge tower" },
-
-{ "", intset, (caddr_t)&emp_config_dummy, 0, "\n\n### Land Units" },
-{ "land_mob_scale", floatset, (caddr_t) &land_mob_scale, 0,
- "Land unit mobility accumulation (land_mob_scale * ETUs per update)" },
-{ "land_grow_scale", intset, (caddr_t) &land_grow_scale, 0,
- "How fast efficiency grows for land units each update (* ETUs)" },
-{ "land_mob_max", intset, (caddr_t) &land_mob_max, 0,
- "Maximum mobility for land units" },
-{ "money_land", doubleset, (caddr_t) &money_land, 0,
- "Cost per ETU to maintain land units (percentage of unit price)" },
-{ "morale_base", intset, (caddr_t) &morale_base, 0,
- "Base level for setting morale of land units" },
-
-{ "", intset, (caddr_t)&emp_config_dummy, 0, "\n\n### Planes" },
-{ "plane_mob_scale", floatset, (caddr_t) &plane_mob_scale, 0,
- "Plane mobility accumulation (plane_mob_scale * ETUs per update)" },
-{ "plane_grow_scale", intset, (caddr_t) &plane_grow_scale, 0,
- "How fast efficiency grows for planes each update (* ETUs)" },
-{ "plane_mob_max", intset, (caddr_t) &plane_mob_max, 0,
- "Maximum mobility for planes" },
-{ "money_plane", doubleset, (caddr_t) &money_plane, 0,
- "Cost per ETU to maintain planes (percentage of plane price)" },
-
-{ "", intset, (caddr_t)&emp_config_dummy, 0, "\n\n### Ships" },
-{ "ship_mob_scale", floatset, (caddr_t) &ship_mob_scale, 0,
- "Ship mobility accumulation (ship_mob_scale * ETUs per update)" },
-{ "ship_grow_scale", intset, (caddr_t) &ship_grow_scale, 0,
- "How fast efficiency grows for ships each update (* ETUs)" },
-{ "ship_mob_max", intset, (caddr_t) &ship_mob_max, 0,
- "Maximum mobility for ships" },
-{ "money_ship", doubleset, (caddr_t) &money_ship, 0,
- "Cost per ETU to maintain ships (percentage of ship price)" },
-{ "torpedo_damage", intset, (caddr_t) &torpedo_damage, 0,
- "Torpedo damage (damage is X + 1dX + 1dX)" },
-
-{ "", intset, (caddr_t)&emp_config_dummy, 0, "\n\n### Combat/Damage" },
-{ "fort_max_interdiction_range", intset, (caddr_t)&fort_max_interdiction_range, 0,
- "Maximum range (in sectors) a fort will try to interdict another country" },
-{ "land_max_interdiction_range", intset, (caddr_t)&land_max_interdiction_range, 0,
- "Maximum range (in sectors) a land unit will try to interdict another country" },
-{ "ship_max_interdiction_range", intset, (caddr_t)&ship_max_interdiction_range, 0,
- "Maximum range (in sectors) a ship will try to interdict another country" },
-{ "flakscale", doubleset, (caddr_t) &flakscale, 0,
- "Scale factor for flak damage" },
-{ "combat_mob", doubleset, (caddr_t) &combat_mob, 0,
- "How much mobility do units spend for combat (* casualties/bodies)" },
-{ "people_damage", doubleset, (caddr_t) &people_damage, 0,
- "People take this amount of normal damage" },
-{ "unit_damage", doubleset, (caddr_t) &unit_damage, 0,
- "Land units take this amount of normal damage" },
-{ "collateral_dam", doubleset, (caddr_t) &collateral_dam, 0,
- "Side effect damage amount done to sector" },
-{ "assault_penalty", doubleset, (caddr_t) &assault_penalty, 0,
- "Amount of normal attacking efficiency for paratroopers and assaulting" },
-{ "fire_range_factor", floatset, (caddr_t) &fire_range_factor, 0,
- "Scale normal firing ranges by this amount" },
-{ "sect_mob_neg_factor", intset, (caddr_t) §_mob_neg_factor, 0,
- "Amount of negative mobility a sector has after takeover (ETU / x) (MOB_ACCESS)" },
-{ "mission_mob_cost", doubleset, (caddr_t) &mission_mob_cost, 0,
- "Cost to put something on a mission (percentage of max mob)" },
-
-{ "", intset, (caddr_t)&emp_config_dummy, 0, "\n\n### Populace" },
-{ "uwbrate", doubleset, (caddr_t) &uwbrate, 0,
- "Birth rate for uw's" },
-{ "money_civ", doubleset, (caddr_t) &money_civ, 0,
- "Money gained from taxes on a civilian in one ETU" },
-{ "money_mil", doubleset, (caddr_t) &money_mil, 0,
- "Money gained from taxes on an active soldier in one ETU" },
-{ "money_res", doubleset, (caddr_t) &money_res, 0,
- "Money gained from taxes on a soldier on active reserve in one ETU" },
-{ "money_uw", doubleset, (caddr_t) &money_uw, 0,
- "Money gained from taxes on an uncompensated worker in one ETU" },
-{ "babyeat", doubleset, (caddr_t) &babyeat, 0,
- "Amount of food to mature 1 baby into a civilian" },
-{ "bankint", doubleset, (caddr_t) &bankint, 0,
- "Bank dollar gain (per bar per etu)" },
-{ "eatrate", doubleset, (caddr_t) &eatrate, 0,
- "Food eating rate for mature people" },
-{ "fcrate", doubleset, (caddr_t) &fcrate, 0,
- "Food cultivation rate (* workforce in sector)" },
-{ "fgrate", doubleset, (caddr_t) &fgrate, 0,
- "Food growth rate (* fertility of sector)" },
-{ "obrate", doubleset, (caddr_t) &obrate, 0,
- "Civilian birth rate" },
-
-{ "", intset, (caddr_t)&emp_config_dummy, 0, "\n\n### Nukes" },
-{ "decay_per_etu", doubleset, (caddr_t) &decay_per_etu, 0,
- "Decay of fallout per ETU" },
-{ "fallout_spread", doubleset, (caddr_t) &fallout_spread, 0,
- "Amount of fallout that leaks into surrounding sectors" },
-{ "drnuke_const", floatset, (caddr_t) &drnuke_const, 0,
- "Amount of research to tech needed to build a nuke (if DR_NUKE is on)" },
-
-{ "", intset, (caddr_t)&emp_config_dummy, 0, "\n\n### Market/Trade" },
-{ "MARK_DELAY", intset, (caddr_t) &MARK_DELAY, 0,
- "Number of seconds commodities stay on the market for bidding" },
-{ "TRADE_DELAY", intset, (caddr_t) &TRADE_DELAY, 0,
- "Number of seconds ships, planes, and units stay on the market for bidding" },
-{ "maxmult", doubleset, (caddr_t) &maxmult, 0,
- "Maximum trade multiple (used for mult command)" },
-{ "minmult", doubleset, (caddr_t) &minmult, 0,
- "Minimum trade multiple (used for mult command)" },
-{ "buytax", doubleset, (caddr_t) &buytax, 0,
- "Tax (in percentage points) charged to the buyer on market purchases" },
-{ "tradetax", doubleset, (caddr_t) &tradetax, 0,
- "Amount of a trade transaction the seller makes (the rest is tax)" },
-
-{ "", intset, (caddr_t)&emp_config_dummy, 0, "\n\n### Trade ships" },
-{ "trade_1_dist", intset, (caddr_t) &trade_1_dist, 0,
- "Less than this distance no money for cashing in" },
-{ "trade_2_dist", intset, (caddr_t) &trade_2_dist, 0,
- "Less than this distance gets trade_1 money for cashing in" },
-{ "trade_3_dist", intset, (caddr_t) &trade_3_dist, 0,
- "Less than this distance gets trade_2 money for cashing in (>= gets trade_3" },
-{ "trade_1", floatset, (caddr_t) &trade_1, 0,
- "Return per sector on trade_1 distance amount" },
-{ "trade_2", floatset, (caddr_t) &trade_2, 0,
- "Return per sector on trade_2 distance amount" },
-{ "trade_3", floatset, (caddr_t) &trade_3, 0,
- "Return per sector on trade_3 distance amount" },
-{ "trade_ally_bonus", floatset, (caddr_t) &trade_ally_bonus, 0,
- "Bonus you get for cashing in with an ally" },
-{ "trade_ally_cut", floatset, (caddr_t) &trade_ally_cut, 0,
- "Bonus your ally gets for you cashing in with them" },
-
-{ "", intset, (caddr_t)&emp_config_dummy, 0, "\n\n### Misc." },
-{ "fuel_mult", intset, (caddr_t) &fuel_mult, 0,
- "Multiplier for fuel to mobility calculation" },
-{ "lost_items_timeout", intset, (caddr_t) &lost_items_timeout, 0,
- "Seconds before a lost item is timed out of the database" },
-{ "last_demand_update", longset, (caddr_t) &last_demand_update, 0,
- "When was the last demand update occured" },
-
-{ NULL, NULL, (caddr_t)0, 0, NULL }
+#define EMP_CONFIG_C_OUTPUT
+#include "econfig-spec.h"
+#undef EMP_CONFIG_C_OUTPUT
};
-static void fixup_files _PROTO((void));
-static struct keymatch *keylookup _PROTO((s_char *key, struct keymatch tbl[]));
-
+static void fixup_files(void);
+static struct keymatch *keylookup(s_char *key, struct keymatch tbl[]);
+static int set_option(const char *, int);
/*
* read in empire configuration
*/
int
-emp_config (char *file)
+emp_config(char *file)
{
- FILE *fp;
- s_char scanspace[1024];
- s_char *av[65];
- char buf[BUFSIZ];
- struct keymatch *kp;
-
- if (file == NULL || (fp = fopen (file, "r")) == NULL) {
- fixup_files ();
- return RET_OK;
+ FILE *fp;
+ char scanspace[1024];
+ char *av[65];
+ char buf[BUFSIZ];
+ struct keymatch *kp;
+ int lno = 0;
+ int errors = 0;
+ int i;
+
+ if (file == NULL) {
+ fixup_files();
+ return 0;
+ }
+ if ((fp = fopen(file, "r")) == NULL) {
+ fprintf(stderr, "Can't open %s for reading (%s)\n",
+ file, strerror(errno));
+ return -1;
+ }
+
+ while (fgets(buf, sizeof buf, fp) != NULL) {
+ ++lno;
+ for (i = 0; buf[i] && isspace(buf[i]); ++i) ;
+ if (!buf[i] || buf[i] == '#')
+ continue;
+ if (parse(buf, av, 0, scanspace, 0) < 0) {
+ fprintf(stderr, "%s:%d: Can't parse line %s", file, lno, buf);
+ errors = 1;
+ continue;
}
- while (fgets (buf, sizeof buf, fp) != NULL) {
- if (buf[0] == '#' || buf[0] == '\n')
- continue;
- if (parse (buf, av, 0, scanspace, 0) < 0) {
- fprintf (stderr, "Can't parse line %s", buf);
- continue;
- }
- if ((kp = keylookup (av[0], configkeys)) != NULL) {
- (*kp -> km_func) (kp, av + 1);
- }
- else {
- fprintf (stderr, "Unknown config key %s\n", av[0]);
+ if ((kp = keylookup(av[0], configkeys)) == NULL) {
+ fprintf(stderr, "%s:%d: Unknown config key %s\n",
+ file, lno, av[0]);
+ errors = 1;
+ continue;
+ }
+ if (av[1] == NULL) {
+ fprintf(stderr, "%s:%d: Config key %s needs a value\n",
+ file, lno, av[0]);
+ errors = 1;
+ continue;
+ }
+ i = 2;
+ switch (kp->km_type) {
+ case NSC_INT:
+ *(int *)kp->km_data = atoi(av[1]);
+ break;
+ case NSC_FLOAT:
+ *(float *)kp->km_data = atof(av[1]);
+ break;
+ case NSC_DOUBLE:
+ *(double *)kp->km_data = atof(av[1]);
+ break;
+ case NSC_LONG:
+ *(long *)kp->km_data = atol(av[1]);
+ break;
+ case NSC_STRING:
+ if (kp->km_flags & KM_ALLOC)
+ free(*(char **)kp->km_data);
+ *(char **)kp->km_data = strdup(av[1]);
+ kp->km_flags |= KM_ALLOC;
+ break;
+ case NSC_NOTYPE:
+ for (i = 1; av[i]; ++i) {
+ if (set_option(av[i], kp->km_key[0] != 'n') < 0) {
+ fprintf(stderr, "%s:%d: Unknown option %s\n",
+ file, lno, av[i]);
+ errors = 1;
}
+ }
+ break;
+ default:
+ assert(0);
}
- fclose (fp);
- fixup_files ();
+ if (av[i] != NULL) {
+ fprintf(stderr, "%s:%d: Junk after value of config key %s\n",
+ file, lno, av[0]);
+ errors = 1;
+ }
+ }
+ fclose(fp);
+ fixup_files();
+ WORLD_X &= ~1; /* make even */
- return RET_OK;
+ return -errors;
}
struct otherfiles {
- s_char **files;
- char *name;
+ char **files;
+ char *name;
};
-extern s_char *upfil, *downfil, *disablefil, *banfil, *authfil;
-extern s_char *commfil, *annfil, *telfil, *teldir, *timestampfil;
-
/* list of other well known files... -maybe tailor these oneday
* anyway - meantime they are all relative to datadir */
static struct otherfiles ofiles[] = {
-{ &upfil, "up" },
-{ &downfil, "down"},
-{ &disablefil, "disable"},
-{ &banfil, "ban" },
-{ &authfil, "auth" },
-{ &commfil, "comm" },
-{ &annfil, "ann" },
-{ ×tampfil, "timestamp" },
-{ &teldir, "tel" },
+ {&upfil, "up"},
+ {&downfil, "down"},
+ {&disablefil, "disable"},
+ {&banfil, "ban"},
+ {&authfil, "auth"},
+ {&annfil, "ann"},
+ {×tampfil, "timestamp"},
+ {&teldir, "tel"},
#if !defined(_WIN32)
-{ &telfil, "tel/tel" },
+ {&telfil, "tel/tel"},
#else
-{ &telfil, "tel\\tel" },
+ {&telfil, "tel\\tel"},
#endif
-{ NULL, NULL }
+ {NULL, NULL}
};
/* fix up the empfile struct to reference full path names */
-static void fixup_files (void)
+static void
+fixup_files(void)
{
- struct empfile *ep;
- struct otherfiles *op;
- s_char buf[1024];
+ struct empfile *ep;
+ struct otherfiles *op;
+ s_char buf[1024];
- for (ep = empfile; ep < &empfile[EF_MAX]; ep ++) {
+ for (ep = empfile; ep < &empfile[EF_MAX]; ep++) {
#if !defined(_WIN32)
- sprintf (buf, "%s/%s", datadir, ep->name);
+ sprintf(buf, "%s/%s", datadir, ep->name);
#else
- sprintf (buf, "%s\\%s", datadir, ep->name);
+ sprintf(buf, "%s\\%s", datadir, ep->name);
#endif
- ep->file = strdup (buf);
- }
+ ep->file = strdup(buf);
+ }
- for (op = ofiles; op -> files; op ++) {
+ for (op = ofiles; op->files; op++) {
#if !defined(_WIN32)
- sprintf (buf, "%s/%s", datadir, op -> name);
+ sprintf(buf, "%s/%s", datadir, op->name);
#else
- sprintf (buf, "%s\\%s", datadir, op -> name);
+ sprintf(buf, "%s\\%s", datadir, op->name);
#endif
- *op -> files = strdup (buf);
- }
+ *op->files = strdup(buf);
+ }
}
/* find the key in the table */
-static struct keymatch *keylookup (register s_char *command, struct keymatch *tbl)
+static struct keymatch *
+keylookup(register s_char *command, struct keymatch *tbl)
{
- register struct keymatch *kp;
-
- if (command == 0 || *command == 0)
- return 0;
- for (kp = tbl; kp->km_key != 0; kp++) {
- if (strcmp (kp -> km_key, command) == 0)
- return kp;
- }
- return NULL;
-}
-
-/* worldx int setting function */
-void worldxset (struct keymatch *kp, s_char **av)
-{
- int *intptr = (int *)kp -> km_data;
-
- if (*av == NULL || intptr == NULL)
- return;
- *intptr = atoi (*av);
- if (!((*intptr % 2) == 0)) {
- /* Must be div / 2, so subtract one */
- *intptr = *intptr - 1;
- }
-}
-
-/* generic int setting function */
-void intset (struct keymatch *kp, s_char **av)
-{
- int *intptr = (int *)kp -> km_data;
-
- if (*av == NULL || intptr == NULL)
- return;
- *intptr = atoi (*av);
-}
-
-/* generic float set function */
-void floatset (struct keymatch *kp, s_char **av)
-{
- float *floatptr = (float *)kp -> km_data;
-
- if (*av == NULL || floatptr == NULL)
- return;
- *floatptr = atof (*av);
-}
-
-
-
-/* generic string set function */
-void optstrset (struct keymatch *kp, s_char **av)
-{
- s_char **confstrp = (s_char **)kp -> km_data;
-
- if (*av == NULL || confstrp == NULL)
- return;
- if (kp -> km_flags & KM_ALLOC)
- free (*confstrp);
- *confstrp = strdup (*av);
- kp -> km_flags |= KM_ALLOC;
-}
-
-/* generic double set function */
-void doubleset (struct keymatch *kp, s_char **av)
-{
- double *doublep = (double *)kp -> km_data;
-
- if (*av == NULL || doublep == NULL)
- return;
- *doublep = atof (*av);
-}
-
-/* generic long set function */
-void longset (struct keymatch *kp, s_char **av)
-{
- long int *longp = (long int *)kp -> km_data;
-
- if (*av == NULL || longp == NULL)
- return;
- *longp = atol (*av);
+ register struct keymatch *kp;
+
+ if (command == 0 || *command == 0)
+ return 0;
+ for (kp = tbl; kp->km_key != 0; kp++) {
+ if (strcmp(kp->km_key, command) == 0)
+ return kp;
+ }
+ return NULL;
}
void
-print_config (FILE *fp)
+print_config(FILE *fp)
{
- struct empfile *ep;
- struct otherfiles *op;
- struct keymatch *kp;
-
- fprintf(fp, "# Empire Configuration File:\n");
- for (kp = configkeys; kp -> km_key; kp ++) {
- /* We print a few special things here */
- if (kp->km_comment) {
- if (kp->km_comment[0]) {
- if (kp->km_comment[0] != '\n')
- fprintf(fp, "\n# ");
- fprintf(fp, "%s\n", kp->km_comment);
- }
- }
- if (!kp->km_key[0])
- continue;
- if (kp -> km_func == optstrset) {
- fprintf (fp, "%s \"%s\"\n", kp -> km_key,
- *(s_char **)kp -> km_data);
- }
- else if (kp -> km_func == intset) {
- fprintf (fp, "%s %d\n", kp -> km_key,
- *(int *)kp -> km_data);
- }
- else if (kp -> km_func == worldxset) {
- fprintf (fp, "%s %d\n", kp -> km_key,
- *(int *)kp -> km_data);
- }
- else if (kp -> km_func == floatset) {
- fprintf (fp, "%s %g\n", kp -> km_key,
- *(float *)kp -> km_data);
- }
- else if (kp -> km_func == doubleset) {
- fprintf (fp, "%s %g\n", kp -> km_key,
- *(double *)kp -> km_data);
- }
- else if (kp -> km_func == longset) {
- fprintf (fp, "%s %ld\n", kp -> km_key,
- *(long *)kp -> km_data);
- }
- else if (kp -> km_func == optionset) {
- struct option_list *op;
-
- for (op = Options; op -> opt_key; op++) {
- if (*op -> opt_valuep)
- fprintf (fp, "%s %s\n", kp -> km_key,
- op -> opt_key);
- }
- }
- else if (kp -> km_func == optiondel) {
- struct option_list *op;
-
- for (op = Options; op -> opt_key; op++) {
- if (*op -> opt_valuep == 0)
- fprintf (fp, "%s %s\n", kp -> km_key,
- op -> opt_key);
- }
- }
- else fprintf (fp, "# Unknown format %s\n", kp -> km_key);
+ struct empfile *ep;
+ struct option_list *op;
+ struct otherfiles *ofp;
+ struct keymatch *kp;
+
+ fprintf(fp, "# Empire Configuration File:\n");
+ for (kp = configkeys; kp->km_key; kp++) {
+ if (kp->km_comment)
+ fprintf(fp, "\n# %s\n", kp->km_comment);
+ if (!kp->km_key[0])
+ continue;
+ switch (kp->km_type) {
+ case NSC_STRING:
+ fprintf(fp, "%s \"%s\"\n", kp->km_key, *(char **)kp->km_data);
+ break;
+ case NSC_INT:
+ fprintf(fp, "%s %d\n", kp->km_key, *(int *)kp->km_data);
+ break;
+ case NSC_FLOAT:
+ fprintf(fp, "%s %g\n", kp->km_key, *(float *)kp->km_data);
+ break;
+ case NSC_DOUBLE:
+ fprintf(fp, "%s %g\n", kp->km_key, *(double *)kp->km_data);
+ break;
+ case NSC_LONG:
+ fprintf(fp, "%s %ld\n", kp->km_key, *(long *)kp->km_data);
+ break;
+ case NSC_NOTYPE:
+ for (op = Options; op->opt_key; op++)
+ if (*op->opt_valuep != (kp->km_key[0] == 'n'))
+ fprintf(fp, "%s %s\n", kp->km_key, op->opt_key);
+ break;
+ default:
+ assert(0);
}
+ }
- fprintf(fp, "\n");
- for (ep = empfile; ep < &empfile[EF_MAX]; ep ++)
- fprintf (fp, "# File %s -> %s\n", ep -> name, ep -> file);
- for (op = ofiles; op -> files; op ++)
- fprintf (fp, "# File %s -> %s\n", op -> name, *(op -> files));
+ fprintf(fp, "\n");
+ for (ep = empfile; ep < &empfile[EF_MAX]; ep++)
+ fprintf(fp, "# File %s -> %s\n", ep->name, ep->file);
+ for (ofp = ofiles; ofp->files; ofp++)
+ fprintf(fp, "# File %s -> %s\n", ofp->name, *(ofp->files));
}
-
-/* add an option to the list */
-void set_option (const char *s)
-{
- struct option_list *op;
-
- for (op = Options; op -> opt_key; op++) {
- if (strcmp (op -> opt_key, s) == 0)
- *op -> opt_valuep = 1;
- }
-}
-/* delete an option from the list */
-void delete_option (const char *s)
+/* Set option S to value VAL; return 0 on success, -1 on failure. */
+static int
+set_option(const char *s, int val)
{
- struct option_list *op;
+ struct option_list *op;
- for (op = Options; op -> opt_key; op++) {
- if (strcmp (op -> opt_key, s) == 0)
- *op -> opt_valuep = 0;
+ for (op = Options; op->opt_key; op++) {
+ if (strcmp(op->opt_key, s) == 0) {
+ *op->opt_valuep = val;
+ return 0;
}
-}
-
-/* config interface */
-void optionset (struct keymatch *kp, s_char **av)
- /* unused - we have a well known global */
-
-{
- char **cpp;
-
- for (cpp = (char **)av; *cpp; cpp++)
- set_option (*cpp);
-}
-
-/* config interface */
-void optiondel (struct keymatch *kp, s_char **av)
- /* unused - we have a well known global */
-
-{
- char **cpp;
-
- for (cpp = (char **)av; *cpp; cpp++)
- delete_option (*cpp);
+ }
+ return -1;
}