Subversion Repositories connect-6

 
/*
 
connectk -- a program to play the connect-k family of games
Copyright (C) 2007 Michael Levin
 
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
 
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
 
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
 
*/
 
#include "config.h"
#include <glib.h>
#include "shared.h"
#include "connectk.h"
 
int load_moves_list(const char *filename)
{
        GIOChannel *ioc;
        GIOStatus status;
        GError *error = NULL;
        gchar *line = NULL;
        gsize len, term;
        int size = 0;
 
        ioc = g_io_channel_new_file(filename, "r", &error);
        if (!ioc) {
                g_warning("Failed to open file '%s' for reading: %s", filename,
                          error->message);
                return 0;
        }
 
        connect_k = 0;
        place_p = 0;
        start_q = 0;
 
        /* Read the first non-blank line */
        do {
                g_free(line);
                status = g_io_channel_read_line(ioc, &line, &len, &term,
                                                &error);
                if (error) {
                        g_warning("Error reading from file '%s': %s",
                                  filename, error->message);
                        return 0;
                }
                if (!line)
                        continue;
                line[term] = 0;
                g_strchug(line);
        } while(status == G_IO_STATUS_NORMAL && *line == 0);
 
        /* Read "size k p q" header */
        if (g_ascii_isdigit(*line)) {
                size = g_ascii_strtoull(line, &line, 10);
                g_strchug(line);
                connect_k = g_ascii_strtoull(line, &line, 10);
                g_strchug(line);
                place_p = g_ascii_strtoull(line, &line, 10);
                g_strchug(line);
                start_q = g_ascii_strtoull(line, &line, 10);
                g_strchug(line);
                /* Game victor is skipped */
        }
 
        /* Default to connect-6 */
        if (!size)
                size = 19;
        if (!connect_k)
                connect_k = 6;
        if (!place_p)
                place_p = 2;
        if (!start_q)
                start_q = 1;
        new_game(size);
 
        /* Read moves list in Ba1 format */
        while (g_io_channel_read_line(ioc, &line, &len, &term, &error) ==
               G_IO_STATUS_NORMAL) {
                BCOORD x, y;
 
                if (!line)
                        continue;
                line[term] = 0;
                g_strchug(line);
                string_to_bcoords(line, &x, &y);
                make_move(x, y);
                g_free(line);
        }
 
        g_io_channel_unref(ioc);
        return 1;
}
 
int save_moves_list(const char *filename)
{
        GIOChannel *ioc;
        GError *error = NULL;
        Board *last_b;
        PIECE winner = PIECE_NONE;
        int i;
        char *buf;
 
        ioc = g_io_channel_new_file(filename, "w", &error);
        if (!ioc) {
                g_warning("Failed to open file '%s' for writing: %s", filename,
                          error->message);
                return 0;
        }
 
        /* Find the winner */
        last_b = board_at(move_last);
        if (last_b && last_b->won)
                winner = last_b->turn;
 
        buf = va("%d %d %d %d %d\n", board_size, connect_k, place_p, start_q,
                 winner);
        g_io_channel_write_chars(ioc, buf, -1, NULL, &error);
        if (error) {
                g_warning("Error writing to file '%s': %s",
                          filename, error->message);
                return 0;
        }
        for (i = 0; i < move_last; i++) {
                Board *b;
 
                b = board_at(i);
                if (b->won)
                        break;
                buf = va("%s\n", bcoords_to_string(b->move_x, b->move_y));
                g_io_channel_write_chars(ioc, buf, -1, NULL, &error);
                if (error) {
                        g_warning("Error writing to file '%s': %s",
                                  filename, error->message);
                        return 0;
                }
        }
        g_io_channel_unref(ioc);
        return 1;
}