/* libgsmd tool
 *
 * (C) 2006-2007 by OpenMoko, Inc.
 * Written by Harald Welte <laforge@openmoko.org>
 * All Rights Reserved
 *
 * 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 <stdio.h>
#include <string.h>

#include <common/linux_list.h>
#include <libgsmd/libgsmd.h>
#include <libgsmd/event.h>
#include <libgsmd/sms.h>

static int incall_handler(struct lgsm_handle *lh, int evt, struct gsmd_evt_auxdata *aux)
{
	printf("EVENT: Incoming call type = %u\n", aux->u.call.type);

	return 0;
}

static int insms_handler(struct lgsm_handle *lh, int evt,
		struct gsmd_evt_auxdata *aux)
{
	struct gsmd_sms_list *sms;
	char payload[GSMD_SMS_DATA_MAXLEN];
	if (aux->u.sms.inlined) {
		sms = (struct gsmd_sms_list *) aux->data;
		printf("EVENT: Incoming SMS from/to %s%s, at %i%i-%i%i-%i%i "
				"%i%i:%i%i:%i%i, GMT%c%i\n",
				((sms->addr.type & __GSMD_TOA_TON_MASK) ==
				 GSMD_TOA_TON_INTERNATIONAL) ? "+" : "",
				sms->addr.number,
				sms->time_stamp[0] & 0xf,
				sms->time_stamp[0] >> 4,
				sms->time_stamp[1] & 0xf,
				sms->time_stamp[1] >> 4,
				sms->time_stamp[2] & 0xf,
				sms->time_stamp[2] >> 4,
				sms->time_stamp[3] & 0xf,
				sms->time_stamp[3] >> 4,
				sms->time_stamp[4] & 0xf,
				sms->time_stamp[4] >> 4,
				sms->time_stamp[5] & 0xf,
				sms->time_stamp[5] >> 4,
				(sms->time_stamp[6] & 8) ? '-' : '+',
				(((sms->time_stamp[6] << 4) |
				  (sms->time_stamp[6] >> 4)) & 0x3f) >> 2);
		if (sms->payload.coding_scheme == ALPHABET_DEFAULT) {
			unpacking_7bit_character(&sms->payload, payload);
			printf("\"%s\"\n", payload);
		} else if (sms->payload.coding_scheme == ALPHABET_8BIT)
			printf("8-bit encoded data\n");
		else if (sms->payload.coding_scheme == ALPHABET_UCS2)
			printf("Unicode-16 encoded text\n");
	} else
		printf("EVENT: Incoming SMS stored at location %i\n",
				aux->u.sms.index);
	return 0;
}

static int incbm_handler(struct lgsm_handle *lh, int evt,
		struct gsmd_evt_auxdata *aux)
{
	struct gsmd_cbm *msg;
	char payload[95];
	static const char *scope_name[] = {
		[GSMD_SCOPE_CELL_WIDE_OPER] = "immediate-display cell",
		[GSMD_SCOPE_PLMN_WIDE] = "PLMN",
		[GSMD_SCOPE_LOC_AREA_WIDE] = "Location Area",
		[GSMD_SCOPE_CELL_WIDE] = "cell",
	};
	static const char *lang_name[] = {
		[GSMD_LANG_GERMAN] = "German",
		[GSMD_LANG_ENGLISH] = "English",
		[GSMD_LANG_ITALIAN] = "Italian",
		[GSMD_LANG_FRENCH] = "French",
		[GSMD_LANG_SPANISH] = "Spanish",
		[GSMD_LANG_DUTCH] = "Dutch",
		[GSMD_LANG_SWEDISH] = "Swedish",
		[GSMD_LANG_DANISH] = "Danish",
		[GSMD_LANG_PORTUGUESE] = "Portuguese",
		[GSMD_LANG_FINNISH] = "Finnish",
		[GSMD_LANG_NORWEGIAN] = "Norwegian",
		[GSMD_LANG_GREEK] = "Greek",
		[GSMD_LANG_TURKISH] = "Turkish",
		[GSMD_LANG_HUNGARIAN] = "Hungarian",
		[GSMD_LANG_POLISH] = "Polish",
		[GSMD_LANG_UNSPECIFIED] = "an unspecified language",
	};
	if (aux->u.cbm.inlined) {
		msg = (struct gsmd_cbm *) aux->data;
		printf("EVENT: Incoming %s-wide Cell Broadcast message in "
				"%s (page %i of %i)\n",
				scope_name[msg->serial.scope],
				lang_name[msg->language],
				msg->page, msg->pages);

		if (msg->coding_scheme == ALPHABET_DEFAULT) {
			cbm_unpacking_7bit_character(msg->data, payload);
			printf("\"%s\"\n", payload);
		} else if (msg->coding_scheme == ALPHABET_8BIT)
			printf("8-bit encoded data\n");
		else if (msg->coding_scheme == ALPHABET_UCS2)
			printf("Unicode-16 encoded text\n");
	} else
		printf("EVENT: Incoming Cell Broadcast message stored at "
				"location %i\n", aux->u.cbm.index);
	return 0;
}

static int inds_handler(struct lgsm_handle *lh, int evt,
		struct gsmd_evt_auxdata *aux)
{
	if (aux->u.ds.inlined)
		printf("EVENT: Incoming Status Report\n");
	else
		printf("EVENT: Incoming Status Report stored at location %i\n",
				aux->u.ds.index);
	return 0;
}

static int clip_handler(struct lgsm_handle *lh, int evt, struct gsmd_evt_auxdata *aux)
{
	printf("EVENT: Incoming call clip = %s\n", aux->u.clip.addr.number);

	return 0;
}

static int colp_handler(struct lgsm_handle *lh, int evt, struct gsmd_evt_auxdata *aux)
{
	printf("EVENT: Outgoing call colp = %s\n", aux->u.colp.addr.number);

	return 0;
}

static int netreg_handler(struct lgsm_handle *lh, int evt, struct gsmd_evt_auxdata *aux)
{
	printf("EVENT: Netreg ");

	switch (aux->u.netreg.state) {
	case GSMD_NETREG_UNREG:
		printf("not searching for network ");
		break;
	case GSMD_NETREG_REG_HOME:
		printf("registered (home network) ");
		break;
	case GSMD_NETREG_UNREG_BUSY:
		printf("searching for network ");
		break;
	case GSMD_NETREG_DENIED:
		printf("registration denied ");
		break;
	case GSMD_NETREG_REG_ROAMING:
		printf("registered (roaming) ");
		break;
	}

	if (aux->u.netreg.lac)
		printf("LocationAreaCode = 0x%04X ", aux->u.netreg.lac);
	if (aux->u.netreg.ci)
		printf("CellID = 0x%04X ", aux->u.netreg.ci);
	
	printf("\n");

	return 0;
}

static int sigq_handler(struct lgsm_handle *lh, int evt, struct gsmd_evt_auxdata *aux)
{
	printf("EVENT: Signal Quality: %u\n", aux->u.signal.sigq.rssi);
	return 0;
}

static const char *cprog_names[] = {
	[GSMD_CALLPROG_SETUP]		= "SETUP",
	[GSMD_CALLPROG_DISCONNECT]	= "DISCONNECT",
	[GSMD_CALLPROG_ALERT]		= "ALERT",
	[GSMD_CALLPROG_CALL_PROCEED]	= "PROCEED",
	[GSMD_CALLPROG_SYNC]		= "SYNC",
	[GSMD_CALLPROG_PROGRESS]	= "PROGRESS",
	[GSMD_CALLPROG_CONNECTED]	= "CONNECTED",
	[GSMD_CALLPROG_RELEASE]		= "RELEASE",
	[GSMD_CALLPROG_REJECT]		= "REJECT",
	[GSMD_CALLPROG_UNKNOWN]		= "UNKNOWN",
};

static const char *cdir_names[] = {
	[GSMD_CALL_DIR_MO]		= "Outgoing",
	[GSMD_CALL_DIR_MT]		= "Incoming",
	[GSMD_CALL_DIR_CCBS]		= "CCBS",
	[GSMD_CALL_DIR_MO_REDIAL]	= "Outgoing Redial",
};

static int cprog_handler(struct lgsm_handle *lh, int evt, struct gsmd_evt_auxdata *aux)
{
	const char *name, *dir;

	if (aux->u.call_status.prog >= ARRAY_SIZE(cprog_names))
		name = "UNDEFINED";
	else
		name = cprog_names[aux->u.call_status.prog];

	if (aux->u.call_status.dir >= ARRAY_SIZE(cdir_names))
		dir = "";
	else
		dir = cdir_names[aux->u.call_status.dir];

	printf("EVENT: %s Call Progress: %s\n", dir, name);

	return 0;
}

int event_init(struct lgsm_handle *lh)
{
	int rc;

	rc  = lgsm_evt_handler_register(lh, GSMD_EVT_IN_CALL, &incall_handler);
	rc |= lgsm_evt_handler_register(lh, GSMD_EVT_IN_CLIP, &clip_handler);
	rc |= lgsm_evt_handler_register(lh, GSMD_EVT_IN_SMS, &insms_handler);
	rc |= lgsm_evt_handler_register(lh, GSMD_EVT_IN_CBM, &incbm_handler);
	rc |= lgsm_evt_handler_register(lh, GSMD_EVT_IN_DS, &inds_handler);
	rc |= lgsm_evt_handler_register(lh, GSMD_EVT_OUT_COLP, &colp_handler);
	rc |= lgsm_evt_handler_register(lh, GSMD_EVT_NETREG, &netreg_handler);
	rc |= lgsm_evt_handler_register(lh, GSMD_EVT_SIGNAL, &sigq_handler);
	rc |= lgsm_evt_handler_register(lh, GSMD_EVT_OUT_STATUS, &cprog_handler);

	return rc;
}