/* See LICENSE file for copyright and license details. */
#include "common.h"


int
libcontacts_format_contact(const struct libcontacts_contact *contact, char **datap)
{
	FILE *fp;
	size_t siz = 0;
	char **list, *p, *q;
	const char *suffix;
	struct libcontacts_block **blocks, *block;
	struct libcontacts_organisation **organisations, *organisation;
	struct libcontacts_email **emails, *email;
	struct libcontacts_pgpkey **pgpkeys, *pgpkey;
	struct libcontacts_number **numbers, *number;
	struct libcontacts_address **addresses, *address;
	struct libcontacts_site **sites, *site;
	struct libcontacts_chat **chats, *chat;

	*datap = NULL;
	fp = open_memstream(datap, &siz);
	if (!fp)
		return -1;

	if (contact->name)
		fprintf(fp, "NAME %s\n", contact->name);

	if (contact->first_name)
		fprintf(fp, "FNAME %s\n", contact->first_name);

	if (contact->last_name)
		fprintf(fp, "LNAME %s\n", contact->last_name);

	if (contact->full_name)
		fprintf(fp, "FLNAME %s\n", contact->full_name);

	if (contact->nickname)
		fprintf(fp, "NICK %s\n", contact->nickname);

	if ((list = contact->photos))
		for (; *list; list++)
			fprintf(fp, "PHOTO %s\n", *list);

	if ((list = contact->groups))
		for (; *list; list++)
			fprintf(fp, "GROUP %s\n", *list);

	if ((p = contact->notes)) {
		for (; *p; p = q) {
			q = strchr(p, '\n');
			suffix = q ? "" : "\n";
			q = q ? &q[1] : strchr(p, '\0');
			fprintf(fp, "NOTES %.*s%s", (int)(q - p), p, suffix);
		}
	}

	if ((blocks = contact->blocks)) {
		for (; (block = *blocks); blocks++) {
			fprintf(fp, "BLOCK:\n");
			if (block->service)
				fprintf(fp, "\tSRV %s\n", block->service);
			if (block->explicit)
				fprintf(fp, "\tEXPLICIT\n");
			if (block->soft_unblock > 0)
				fprintf(fp, "\tASK %ji\n", block->soft_unblock);
			if (block->hard_unblock > 0)
				fprintf(fp, "\tREMOVE %ji\n", block->hard_unblock);
			if (block->shadow_block == LIBCONTACTS_BLOCK_OFF)
				fprintf(fp, "\tOFF\n");
			else if (block->shadow_block == LIBCONTACTS_BLOCK_BUSY)
				fprintf(fp, "\tBUSY\n");
			else if (block->shadow_block == LIBCONTACTS_BLOCK_IGNORE)
				fprintf(fp, "\tIGNORE\n");
			if ((list = block->unrecognised_data))
				for (; *list; list++)
					fprintf(fp, "\t%s\n", *list);
		}
	}

	if ((organisations = contact->organisations)) {
		for (; (organisation = *organisations); organisations++) {
			fprintf(fp, "ORG:\n");
			if (organisation->organisation)
				fprintf(fp, "\tORG %s\n", organisation->organisation);
			if (organisation->title)
				fprintf(fp, "\tTITLE %s\n", organisation->title);
			if ((list = organisation->unrecognised_data))
				for (; *list; list++)
					fprintf(fp, "\t%s\n", *list);
		}
	}

	if ((emails = contact->emails)) {
		for (; (email = *emails); emails++) {
			fprintf(fp, "EMAIL:\n");
			if (email->context)
				fprintf(fp, "\tCTX %s\n", email->context);
			if (email->address)
				fprintf(fp, "\tADDR %s\n", email->address);
			if ((list = email->unrecognised_data))
				for (; *list; list++)
					fprintf(fp, "\t%s\n", *list);
		}
	}

	if ((pgpkeys = contact->pgpkeys)) {
		for (; (pgpkey = *pgpkeys); pgpkeys++) {
			fprintf(fp, "KEY:\n");
			if (pgpkey->context)
				fprintf(fp, "\tCTX %s\n", pgpkey->context);
			if (pgpkey->id)
				fprintf(fp, "\tID %s\n", pgpkey->id);
			if ((list = pgpkey->unrecognised_data))
				for (; *list; list++)
					fprintf(fp, "\t%s\n", *list);
		}
	}

	if ((numbers = contact->numbers)) {
		for (; (number = *numbers); numbers++) {
			fprintf(fp, "PHONE:\n");
			if (number->context)
				fprintf(fp, "\tCTX %s\n", number->context);
			if (number->number)
				fprintf(fp, "\tNUMBER %s\n", number->number);
			if (number->is_mobile)
				fprintf(fp, "\tMOBILE\n");
			if (number->is_facsimile)
				fprintf(fp, "\tFAX\n");
			if ((list = number->unrecognised_data))
				for (; *list; list++)
					fprintf(fp, "\t%s\n", *list);
		}
	}

	if ((addresses = contact->addresses)) {
		for (; (address = *addresses); addresses++) {
			fprintf(fp, "ADDR:\n");
			if (address->context)
				fprintf(fp, "\tCTX %s\n", address->context);
			if (address->country)
				fprintf(fp, "\tCOUNTRY %s\n", address->country);
			if (address->care_of)
				fprintf(fp, "\tC/O %s\n", address->care_of);
			if (address->address)
				fprintf(fp, "\tADDR %s\n", address->address);
			if (address->postcode)
				fprintf(fp, "\tCODE %s\n", address->postcode);
			if (address->city)
				fprintf(fp, "\tCITY %s\n", address->city);
			if (address->have_coordinates)
				fprintf(fp, "\tCOORD %.20lg %.20lg\n", address->latitude, address->longitude);
			if ((list = address->unrecognised_data))
				for (; *list; list++)
					fprintf(fp, "\t%s\n", *list);
		}
	}

	if ((sites = contact->sites)) {
		for (; (site = *sites); sites++) {
			fprintf(fp, "SITE:\n");
			if (site->context)
				fprintf(fp, "\tCTX %s\n", site->context);
			if (site->address)
				fprintf(fp, "\tADDR %s\n", site->address);
			if ((list = site->unrecognised_data))
				for (; *list; list++)
					fprintf(fp, "\t%s\n", *list);
		}
	}

	if ((chats = contact->chats)) {
		for (; (chat = *chats); chats++) {
			fprintf(fp, "CHAT:\n");
			if (chat->context)
				fprintf(fp, "\tCTX %s\n", chat->context);
			if (chat->service)
				fprintf(fp, "\tSRV %s\n", chat->service);
			if (chat->address)
				fprintf(fp, "\tADDR %s\n", chat->address);
			if ((list = chat->unrecognised_data))
				for (; *list; list++)
					fprintf(fp, "\t%s\n", *list);
		}
	}

	if (contact->birthday) {
		fprintf(fp, "BIRTH:\n");
		if (contact->birthday->year)
			fprintf(fp, "\tYEAR %u\n", contact->birthday->year);
		if (contact->birthday->month)
			fprintf(fp, "\tMONTH %u\n", (unsigned int)contact->birthday->month);
		if (contact->birthday->day)
			fprintf(fp, "\tDAY %u\n", (unsigned int)contact->birthday->day);
		if (contact->birthday->before_on_common)
			fprintf(fp, "\tEARLY\n");
		if ((list = contact->birthday->unrecognised_data))
			for (; *list; list++)
				fprintf(fp, "\t%s\n", *list);
	}

	if (contact->in_case_of_emergency)
		fprintf(fp, "ICE\n");

	if (contact->gender == LIBCONTACTS_NOT_A_PERSON)
		fprintf(fp, "NPERSON\n");
	else if (contact->gender == LIBCONTACTS_MALE)
		fprintf(fp, "MALE\n");
	else if (contact->gender == LIBCONTACTS_FEMALE)
		fprintf(fp, "FEMALE\n");

	if ((list = contact->unrecognised_data))
		for (; *list; list++)
			fprintf(fp, "%s\n", *list);

	if (fclose(fp)) {
		free(*datap);
		*datap = NULL;
		return -1;
	}

	return 0;
}