/* ****************************************************************************
 * link/seven_mcs/list.c -- list files on a protocol seven main memory.
 * Copyright (C) 2017 Thomas "Cakeisalie5" Touhey <thomas@touhey.fr>
 *
 * This file is part of libcasio.
 * libcasio is free software; you can redistribute it and/or modify it
 * under the terms of the GNU Lesser General Public License as published by
 * the Free Software Foundation; either version 3.0 of the License,
 * or (at your option) any later version.
 *
 * libcasio 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 Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public License
 * along with libcasio; if not, see <http://www.gnu.org/licenses/>.
 * ************************************************************************* */
#include "seven_mcs.h"

struct thecookie {
	casio_mcslist_t *_mcslist;
	void            *_mcookie;
};

/**
 *	file_info:
 *	The file information callback.
 *
 *	@arg	cookie		the cookie.
 *	@arg	handle		the link handle.
 *	@return				the error code (0 if ok).
 */

CASIO_LOCAL int file_info(struct thecookie *cookie, casio_link_t *handle)
{
	casio_mcshead_t head;

	/* Copy the raw information. */
	head.casio_mcshead_flags = casio_mcsfor_mcs;
	head.casio_mcshead_size = response.casio_seven_packet_filesize;
	head.casio_mcshead_rawtype = response.casio_seven_packet_mcstype;
	if (response.casio_seven_packet_args[0]) {
		strncpy(head.casio_mcshead_dirname,
			response.casio_seven_packet_args[0], 8);
		head.casio_mcshead_dirname[8] = 0;
	} else head.casio_mcshead_dirname[0] = 0;
	if (response.casio_seven_packet_args[1]) {
		strncpy(head.casio_mcshead_name,
			response.casio_seven_packet_args[1], 12);
		head.casio_mcshead_name[12] = 0;
	} else head.casio_mcshead_name[0] = 0;
	if (response.casio_seven_packet_args[2]) {
		strncpy(head.casio_mcshead_group,
			response.casio_seven_packet_args[2], 16);
		head.casio_mcshead_group[16] = 0;
	} else head.casio_mcshead_group[0] = 0;

	/* Try to make abstract information out of the raw information. */
	casio_correct_mcshead(&head, 0);

	/* If these are not special files we want to ignore,
	 * return this head to the user, and end the command response. */
	if (!(head.casio_mcshead_type
	  & (casio_mcstype_alpha | casio_mcstype_setup)))
		(*cookie->_mcslist)(cookie->_mcookie, &head);

	/* Don't forget the ack! */
	return (casio_seven_send_ack(handle, 1));
}

/* Alpha memory and settings are two special entries that are not explicitely
 * listed and got/sent as files, we ought to make an abstraction powerful
 * enough to treat them as they are. */

const casio_mcshead_t CASIO_EXPORT casio_sevenmcs_list_alpha_entry = {
	0, casio_mcstype_alphamem, 0,
	/* count: */ 29, 0, 0, 0,
	/* rawtype: */ 0x00, 0, 0,
	/* name: */ "ALPHA MEM", "",
	/* group: */ "ALPHA MEM",
	/* dirname: */ "$GLOBAL",
	"", ""
};
const casio_mcshead_t CASIO_EXPORT casio_sevenmcs_list_setup_entry = {
	0, casio_mcstype_setup, 0,
	0, 0, 0, 100,
	/* rawtype: */ 0x14, 0, 0,
	/* name: */ "SETUP", "",
	/* group: */ "SETUP",
	/* dirname: */ "$GLOBAL",
	"", ""
};

/**
 *	casio_sevenmcs_list:
 *	List a Protocol 7.00 MCS.
 *
 *	@arg	cookie		the cookie.
 *	@arg	mcslist		the listing callback.
 *	@arg	mcookie		the listing callback cookie.
 *	@return				the error code (0 if ok).
 */

int CASIO_EXPORT casio_sevenmcs_list(sevenmcs_t *cookie,
	casio_mcslist_t *mcslist, void *mcookie)
{
	int err; casio_link_t *handle = cookie->sevenmcs_link;
	struct thecookie thecookie;

	msg((ll_info, "Sending the file info transfer all request."));
	err = casio_seven_send_cmdmcs_reqallinfo(handle);
	if (err) return (err);
	if (response.casio_seven_packet_type != casio_seven_type_ack)
		return (casio_error_unknown);

	/* Prepare the cookie. */
	thecookie._mcslist = mcslist;
	thecookie._mcookie = mcookie;

	/* Call the callbacks with the default entries. */
	(*mcslist)(mcookie, &casio_sevenmcs_list_alpha_entry);
	(*mcslist)(mcookie, &casio_sevenmcs_list_setup_entry);

	msg((ll_info, "Preparing the callbacks and running the server."));
	memset(handle->casio_link_seven_callbacks, 0,
		256 * sizeof(casio_seven_server_func_t*));
	handle->casio_link_seven_callbacks[casio_seven_cmdmcs_fileinfo] =
		(casio_seven_server_func_t*)&file_info;
	err = casio_seven_serve(handle, handle->casio_link_seven_callbacks,
		&thecookie);
	return (err);
}