+ return 0;
+}
+
+/*
+ * State of the restore parser
+ */
+static int restore_version;
+static enum {
+ RI_NONE,
+ RI_PLAYER,
+ RI_DECK,
+ RI_SQUARE
+} restore_item;
+static int restore_itemnum;
+
+/*
+ * Reset the restore parser
+ */
+static void
+restore_reset(void)
+{
+ restore_version = -1;
+ restore_item = RI_NONE;
+ restore_itemnum = -1;
+}
+
+/*
+ * Handle one line of the save file
+ */
+static int
+restore_parseline(char *txt)
+{
+ char *attribute;
+ char *s;
+
+ if (restore_version < 0) {
+ /* Haven't seen the header yet. Demand it right away. */
+ if (!strncmp(txt, "NetBSD monop format v", 21)) {
+ return getnum("format version", txt+21,
+ MIN_FORMAT_VERSION,
+ MAX_FORMAT_VERSION,
+ &restore_version);
+ }
+ printf("file is not a monop save file.\n");
+ return -1;
+ }
+
+ /* Check for lines that are right braces. */
+ if (!strcmp(txt, "}")) {
+ if (restore_item == RI_NONE) {
+ printf("mismatched close brace.\n");
+ return -1;
+ }
+ restore_item = RI_NONE;
+ restore_itemnum = -1;
+ return 0;
+ }
+
+ /* Any other line must begin with a word, which is the attribute. */
+ s = txt;
+ while (*s==' ')
+ s++;
+ attribute = s;
+ s = strchr(attribute, ' ');
+ if (s == NULL) {
+ printf("file is corrupt: attribute %s lacks value.\n",
+ attribute);
+ return -1;
+ }
+ *(s++) = '\0';
+ while (*s==' ')
+ s++;
+ /* keep the remaining text for further handling */
+ txt = s;
+
+ switch (restore_item) {
+ case RI_NONE:
+ /* toplevel attributes */
+ return restore_toplevel_attr(attribute, txt);
+
+ case RI_PLAYER:
+ /* player attributes */
+ return restore_player_attr(attribute, txt);
+
+ case RI_DECK:
+ /* deck attributes */
+ return restore_deck_attr(attribute, txt);
+
+ case RI_SQUARE:
+ /* board square attributes */
+ return restore_square_attr(attribute, txt);
+ }
+ /* NOTREACHED */
+ printf("internal logic error\n");
+ return -1;
+}
+
+static int
+restore_toplevel_attr(const char *attribute, char *txt)
+{
+ if (!strcmp(attribute, "time")) {
+ /* nothing */
+ } else if (!strcmp(attribute, "numplayers")) {
+ if (getnum("numplayers", txt, 2, MAX_PL, &num_play) < 0) {
+ return -1;
+ }
+ if (play != NULL) {
+ printf("numplayers: multiple settings\n");
+ return -1;
+ }
+ play = calloc((size_t)num_play, sizeof(play[0]));
+ if (play == NULL) {
+ err(1, "calloc");
+ }
+ } else if (!strcmp(attribute, "currentplayer")) {
+ if (getnum("currentplayer", txt, 0, num_play-1, &player) < 0) {
+ return -1;
+ }
+ if (play == NULL) {
+ printf("currentplayer: before numplayers\n");
+ return -1;
+ }
+ cur_p = &play[player];
+ } else if (!strcmp(attribute, "doubles")) {
+ if (getnum("doubles", txt, 0, 2, &num_doub) < 0) {
+ return -1;
+ }
+ } else if (!strcmp(attribute, "player")) {
+ if (getnum_withbrace("player", txt, 0, num_play-1,
+ &restore_itemnum) < 0) {
+ return -1;
+ }
+ restore_item = RI_PLAYER;
+ } else if (!strcmp(attribute, "deck")) {
+ if (getnum_withbrace("deck", txt, 0, 1,
+ &restore_itemnum) < 0) {
+ return -1;
+ }
+ restore_item = RI_DECK;
+ } else if (!strcmp(attribute, "square")) {
+ if (getnum_withbrace("square", txt, 0, N_SQRS-1,
+ &restore_itemnum) < 0) {
+ return -1;
+ }
+ restore_item = RI_SQUARE;
+ } else {
+ printf("unknown attribute %s\n", attribute);
+ return -1;
+ }
+ return 0;
+}
+
+static int
+restore_player_attr(const char *attribute, char *txt)
+{
+ PLAY *pp;
+ int tmp;
+
+ if (play == NULL) {
+ printf("player came before numplayers.\n");
+ return -1;
+ }
+ pp = &play[restore_itemnum];
+
+ if (!strcmp(attribute, "name")) {
+ if (pp->name != NULL) {
+ printf("player has multiple names.\n");
+ return -1;
+ }
+ /* XXX should really systematize the max name length */
+ if (strlen(txt) > 256) {
+ txt[256] = 0;
+ }
+ pp->name = strdup(txt);
+ if (pp->name == NULL)
+ err(1, "strdup");
+ name_list[restore_itemnum] = pp->name;
+ } else if (!strcmp(attribute, "money")) {
+ if (getnum(attribute, txt, 0, INT_MAX, &pp->money) < 0) {
+ return -1;
+ }
+ } else if (!strcmp(attribute, "loc")) {
+ /* note: not N_SQRS-1 */
+ if (getnum(attribute, txt, 0, N_SQRS, &tmp) < 0) {
+ return -1;
+ }
+ pp->loc = tmp;
+ } else if (!strcmp(attribute, "num_gojf")) {
+ if (getnum(attribute, txt, 0, 2, &tmp) < 0) {
+ return -1;
+ }
+ pp->num_gojf = tmp;
+ } else if (!strcmp(attribute, "in_jail")) {
+ if (getnum(attribute, txt, 0, 3, &tmp) < 0) {
+ return -1;
+ }
+ pp->in_jail = tmp;
+ if (pp->in_jail > 0 && pp->loc != JAIL) {
+ printf("player escaped from jail?\n");
+ return -1;
+ }
+ } else {
+ printf("unknown attribute %s\n", attribute);
+ return -1;
+ }
+ return 0;
+}
+
+static int
+restore_deck_attr(const char *attribute, char *txt)
+{
+ int tmp, j;
+ char *s;
+ DECK *dp;
+
+ dp = &deck[restore_itemnum];
+
+ if (!strcmp(attribute, "numcards")) {
+ if (getnum(attribute, txt, dp->num_cards, dp->num_cards,
+ &tmp) < 0) {
+ return -1;
+ }
+ } else if (!strcmp(attribute, "topcard")) {
+ if (getnum(attribute, txt, 0, dp->num_cards,
+ &dp->top_card) < 0) {
+ return -1;
+ }
+ } else if (!strcmp(attribute, "gojf_used")) {
+ if (getnum(attribute, txt, 0, 1, &tmp) < 0) {
+ return -1;
+ }
+ dp->gojf_used = tmp;
+ } else if (!strcmp(attribute, "cards")) {
+ errno = 0;
+ s = txt;
+ for (j = 0; j<dp->num_cards; j++) {
+ tmp = strtol(s, &s, 10);
+ if (tmp < 0 || tmp >= dp->num_cards) {
+ printf("cards: out of range value\n");
+ return -1;
+ }
+ dp->cards[j] = tmp;
+ }
+ if (errno) {
+ printf("cards: invalid values\n");
+ return -1;
+ }
+ } else {
+ printf("unknown attribute %s\n", attribute);
+ return -1;
+ }
+ return 0;
+}
+
+static int
+restore_square_attr(const char *attribute, char *txt)
+{
+ SQUARE *sp = &board[restore_itemnum];
+ int tmp;
+
+ if (!strcmp(attribute, "owner")) {
+ if (getnum(attribute, txt, -1, num_play-1, &tmp) < 0) {
+ return -1;
+ }
+ sp->owner = tmp;
+ if (tmp >= 0)
+ add_list(tmp, &play[tmp].own_list, restore_itemnum);
+ } else if (!strcmp(attribute, "morg")) {
+ if (sp->type != PRPTY && sp->type != RR && sp->type != UTIL) {
+ printf("unownable property is mortgaged.\n");
+ return -1;
+ }
+ if (getnum(attribute, txt, 0, 1, &tmp) < 0) {
+ return -1;
+ }
+ sp->desc->morg = tmp;
+ } else if (!strcmp(attribute, "houses")) {
+ if (sp->type != PRPTY) {
+ printf("unbuildable property has houses.\n");
+ return -1;
+ }
+ if (getnum(attribute, txt, 0, 5, &tmp) < 0) {
+ return -1;
+ }
+ sp->desc->houses = tmp;
+ } else {
+ printf("unknown attribute %s\n", attribute);
+ return -1;
+ }
+ return 0;
+}
+
+static int
+getnum(const char *what, char *txt, int min, int max, int *ret)
+{
+ char *s;
+ long l;
+
+ errno = 0;
+ l = strtol(txt, &s, 10);
+ if (errno || strlen(s)>0) {
+ printf("%s: not a number.\n", what);
+ return -1;
+ }
+ if (l < min || l > max) {
+ printf("%s: out of range.\n", what);
+ }
+ *ret = l;
+ return 0;
+}
+
+static int
+getnum_withbrace(const char *what, char *txt, int min, int max, int *ret)
+{
+ char *s;
+ s = strchr(txt, ' ');
+ if (s == NULL) {
+ printf("%s: expected open brace\n", what);
+ return -1;
+ }
+ *(s++) = '\0';
+ while (*s == ' ')
+ s++;
+ if (*s != '{') {
+ printf("%s: expected open brace\n", what);
+ return -1;
+ }
+ if (s[1] != 0) {
+ printf("%s: garbage after open brace\n", what);
+ return -1;
+ }
+ return getnum(what, txt, min, max, ret);
git.ckatri.com / bsdgames-darwin.git / blobdiff