First commit

Signed-off-by: Mattias Andrée <maandree@kth.se>

1 files changed, 400 insertions, 0 deletions

diff --git a/libcontacts_parse_contact.c b/libcontacts_parse_contact.c
new file mode 100644
index 0000000..da39432
--- /dev/null
+++ b/libcontacts_parse_contact.c
@@ -0,0 +1,400 @@
+/* See LICENSE file for copyright and license details. */
+#include "common.h"
+
+
+static char *
+getstr(char *data)
+{
+	while (*data == ' ' || *data == '\t') data++;
+	return &strchr(data, ' ')[1];
+}
+
+static char *
+unindent(char *data)
+{
+	while (*data == ' ' || *data == '\t') data++;
+	return data;
+}
+
+static int
+addstr(char ***listp, const char *new)
+{
+	size_t i;
+	void *temp, *add;
+	add = strdup(new);
+	if (!add)
+		return -1;
+	if (!*listp) {
+		*listp = calloc(2, sizeof(char *));
+		**listp = add;
+	} else {
+		for (i = 0; (*listp)[i]; i++);
+		temp = realloc(*listp, (i + 2) * sizeof(char *));
+		if (!temp) {
+			free(add);
+			return -1;
+		}
+		*listp = temp;
+		(*listp)[i + 0] = add;
+		(*listp)[i + 1] = NULL;
+	}
+	return 0;
+}
+
+static int
+appendstr(char **strp, char *new)
+{
+	size_t newlen = strlen(new) + 2;
+	size_t oldlen = 0;
+	char *p;
+	if (*strp)
+		oldlen = strlen(*strp);
+	newlen += oldlen;
+	p = realloc(*strp, newlen);
+	if (!p)
+		return -1;
+	*strp = p;
+	stpcpy(stpcpy(&p[oldlen], new), "\n");
+	return 0;
+}
+
+static int
+parse_coord(char *s, double *lat, double *lon)
+{
+	int withsign = 0;
+	int saved_errno = errno;
+
+	errno = 0;
+
+	withsign = (s[0] == '-' || s[0] == '+');
+	if (s[withsign] != '.' || isdigit(s[withsign]))
+		goto bad;
+	*lat = strtod(s, &s);
+	if (errno)
+		return -1;
+	if (!withsign && (s[0] == 'N' || s[0] == 'S')) {
+		if (s[0] == 'S')
+			*lat = -*lat;
+		s = &s[1];
+	}
+
+	if (s[0] != ' ')
+		goto bad;
+
+	withsign = (s[0] == '-' || s[0] == '+');
+	if (s[withsign] != '.' || isdigit(s[withsign]))
+		goto bad;
+	*lon = strtod(s, &s);
+	if (errno)
+		return -1;
+	if (!withsign && (s[0] == 'E' || s[0] == 'W')) {
+		if (s[0] == 'W')
+			*lon = -*lon;
+		s = &s[1];
+	}
+
+	if (s[0])
+		goto bad;
+
+	errno = saved_errno;
+	return 0;
+
+bad:
+	errno = EINVAL;
+	return -1;
+}
+
+static int
+parse_birth(char *s, struct libcontacts_birthday *birth)
+{
+	birth->year = 0;
+	birth->month = 0;
+	birth->day = 0;
+
+	if (isdigit(s[0]) && isdigit(s[1]) && isdigit(s[2]) && isdigit(s[3])) {
+		birth->year  = (s[0] & 15) * 1000;
+		birth->year += (s[1] & 15) *  100;
+		birth->year += (s[2] & 15) *   10;
+		birth->year += (s[3] & 15) *    1;
+		if (s[4] == '-')
+			s = &s[5];
+		else if (s[4])
+			goto bad;
+		else
+			return 0;
+	}
+
+	if (isdigit(s[0]) && isdigit(s[1])) {
+		birth->month  = (s[0] & 15) * 10;
+		birth->month += (s[1] & 15) *  1;
+		if (s[2] == '-')
+			s = &s[3];
+		else if (s[2])
+			goto bad;
+		else
+			return 0;
+	}
+
+	if (isdigit(s[0]) && isdigit(s[1])) {
+		birth->day  = (s[0] & 15) * 10;
+		birth->day += (s[1] & 15) *  1;
+		if (!s[2])
+			return 0;
+	}
+
+bad:
+	errno = EINVAL;
+	return -1;
+}
+
+
+int
+libcontacts_parse_contact(char *data, struct libcontacts_contact *contact)
+{
+#define TEST(S, L)\
+	(!strncmp((S), L, sizeof(L) - 1) &&\
+	 (S[sizeof(L)] == ' ' || S[sizeof(L)] == '\t'))
+
+#define ADD(LIST)\
+	do {\
+		for (i = 0; (LIST) && (LIST)[i]; i++);\
+		temp = realloc((LIST), (i + 2) * sizeof(*(LIST)));\
+		if (!temp)\
+			goto fail;\
+		(LIST) = temp;\
+		(LIST)[i + 1] = NULL;\
+		if (!((LIST)[i] = calloc(1, sizeof(**(LIST)))))\
+			goto fail;\
+	} while (0)
+
+	char *p, *q;
+	size_t i;
+	void *temp;
+	int state = 0;
+
+	memset(contact, 0, sizeof(*contact));
+
+	for (p = data; p; p = q) {
+		q = strpbrk(p, "\n\r\f");
+		if (q)
+			*q++ = '\0';
+
+		switch ((*p == ' ' || *p == '\t') ? state : 0) {
+		default:
+			state = 0;
+			if (!*p);
+			else if (TEST(p, "NAME") && !contact->name) {
+				if (!(contact->name = strdup(getstr(p))))
+					goto fail;
+
+			} else if (TEST(p, "FNAME") && !contact->first_name) {
+				if (!(contact->first_name = strdup(getstr(p))))
+					goto fail;
+
+			} else if (TEST(p, "LNAME") && !contact->last_name) {
+				if (!(contact->last_name = strdup(getstr(p))))
+					goto fail;
+
+			} else if (TEST(p, "NICK") && !contact->nickname) {
+				if (!(contact->nickname = strdup(getstr(p))))
+					goto fail;
+
+			} else if (TEST(p, "PHOTO")) {
+				if (addstr(&contact->photos, getstr(p)))
+					goto fail;
+
+			} else if (TEST(p, "GROUP")) {
+				if (addstr(&contact->groups, getstr(p)))
+					goto fail;
+
+			} else if (TEST(p, "NOTES")) {
+				if (appendstr(&contact->notes, getstr(p)))
+					goto fail;
+
+			} else if (!strcmp(p, "ORG:")) {
+				ADD(contact->organisations);
+				state = 1;
+				break;
+			case 1:
+				if (TEST(unindent(p), "ORG") && !contact->organisations[i]->organisation) {
+					if (!(contact->organisations[i]->organisation = strdup(getstr(p))))
+						goto fail;
+				} else if (TEST(unindent(p), "TITLE") && !contact->organisations[i]->title) {
+					if (!(contact->organisations[i]->title = strdup(getstr(p))))
+						goto fail;
+				} else {
+					if (addstr(&contact->organisations[i]->unrecognised_data, getstr(p)))
+						goto fail;
+				}
+				break;
+
+			} else if (!strcmp(p, "EMAIL:")) {
+				ADD(contact->emails);
+				state = 2;
+				break;
+			case 2:
+				if (TEST(unindent(p), "CTX") && !contact->emails[i]->context) {
+					if (!(contact->emails[i]->context = strdup(getstr(p))))
+						goto fail;
+				} else if (TEST(unindent(p), "ADDR") && !contact->emails[i]->address) {
+					if (!(contact->emails[i]->address = strdup(getstr(p))))
+						goto fail;
+				} else {
+					if (addstr(&contact->emails[i]->unrecognised_data, getstr(p)))
+						goto fail;
+				}
+				break;
+
+			} else if (!strcmp(p, "KEY:")) {
+				ADD(contact->pgpkeys);
+				state = 3;
+				break;
+			case 3:
+				if (TEST(unindent(p), "CTX") && !contact->pgpkeys[i]->context) {
+					if (!(contact->pgpkeys[i]->context = strdup(getstr(p))))
+						goto fail;
+				} else if (TEST(unindent(p), "ID") && !contact->pgpkeys[i]->id) {
+					if (!(contact->pgpkeys[i]->id = strdup(getstr(p))))
+						goto fail;
+				} else {
+					if (addstr(&contact->pgpkeys[i]->unrecognised_data, getstr(p)))
+						goto fail;
+				}
+				break;
+
+			} else if (!strcmp(p, "PHONE:")) {
+				ADD(contact->numbers);
+				state = 4;
+				break;
+			case 4:
+				if (TEST(unindent(p), "CTX") && !contact->numbers[i]->context) {
+					if (!(contact->numbers[i]->context = strdup(getstr(p))))
+						goto fail;
+				} else if (TEST(unindent(p), "NUMBER") && !contact->numbers[i]->number) {
+					if (!(contact->numbers[i]->number = strdup(getstr(p))))
+						goto fail;
+				} else if (!strcmp(unindent(p), "MOBILE")) {
+					contact->numbers[i]->is_mobile = 1;
+				} else if (!strcmp(unindent(p), "FAX")) {
+					contact->numbers[i]->is_facsimile = 1;
+				} else {
+					if (addstr(&contact->numbers[i]->unrecognised_data, getstr(p)))
+						goto fail;
+				}
+				break;
+
+			} else if (!strcmp(p, "ADDR:")) {
+				ADD(contact->addresses);
+				state = 5;
+				break;
+			case 5:
+				if (TEST(unindent(p), "CTX") && !contact->addresses[i]->context) {
+					if (!(contact->addresses[i]->context = strdup(getstr(p))))
+						goto fail;
+				} else if (TEST(unindent(p), "COUNTRY") && !contact->addresses[i]->country) {
+					if (!(contact->addresses[i]->country = strdup(getstr(p))))
+						goto fail;
+				} else if (TEST(unindent(p), "C/O") && !contact->addresses[i]->care_of) {
+					if (!(contact->addresses[i]->care_of = strdup(getstr(p))))
+						goto fail;
+				} else if (TEST(unindent(p), "ADDR") && !contact->addresses[i]->address) {
+					if (!(contact->addresses[i]->address = strdup(getstr(p))))
+						goto fail;
+				} else if (TEST(unindent(p), "CODE") && !contact->addresses[i]->postcode) {
+					if (!(contact->addresses[i]->postcode = strdup(getstr(p))))
+						goto fail;
+				} else if (TEST(unindent(p), "CITY") && !contact->addresses[i]->city) {
+					if (!(contact->addresses[i]->city = strdup(getstr(p))))
+						goto fail;
+				} else if (TEST(unindent(p), "COORD") && !contact->addresses[i]->have_coordinates) {
+					if (parse_coord(getstr(p),
+					                &contact->addresses[i]->latitude,
+					                &contact->addresses[i]->longitude)) {
+						contact->addresses[i]->have_coordinates = 1;
+					} else {
+						if (addstr(&contact->addresses[i]->unrecognised_data, getstr(p)))
+							goto fail;
+					}
+				} else {
+					if (addstr(&contact->addresses[i]->unrecognised_data, getstr(p)))
+						goto fail;
+				}
+				break;
+
+			} else if (!strcmp(p, "SITE:")) {
+				ADD(contact->sites);
+				state = 6;
+				break;
+			case 6:
+				if (TEST(unindent(p), "CTX") && !contact->sites[i]->context) {
+					if (!(contact->sites[i]->context = strdup(getstr(p))))
+						goto fail;
+				} else if (TEST(unindent(p), "ADDR") && !contact->sites[i]->address) {
+					if (!(contact->sites[i]->address = strdup(getstr(p))))
+						goto fail;
+				} else {
+					if (addstr(&contact->sites[i]->unrecognised_data, getstr(p)))
+						goto fail;
+				}
+				break;
+
+			} else if (!strcmp(p, "CHAT:")) {
+				ADD(contact->chats);
+				state = 7;
+				break;
+			case 7:
+				if (TEST(unindent(p), "CTX") && !contact->chats[i]->context) {
+					if (!(contact->chats[i]->context = strdup(getstr(p))))
+						goto fail;
+				} else if (TEST(unindent(p), "SRV") && !contact->chats[i]->service) {
+					if (!(contact->chats[i]->service = strdup(getstr(p))))
+						goto fail;
+				} else if (TEST(unindent(p), "ADDR") && !contact->chats[i]->address) {
+					if (!(contact->chats[i]->address = strdup(getstr(p))))
+						goto fail;
+				} else {
+					if (addstr(&contact->chats[i]->unrecognised_data, getstr(p)))
+						goto fail;
+				}
+				break;
+
+			} else if (TEST(p, "BIRTH") && !contact->birthday) {
+				contact->birthday = malloc(sizeof(*contact->birthday));
+				if (!contact->birthday)
+					goto fail;
+				if (!parse_birth(getstr(p), contact->birthday)) {
+					free(contact->birthday);
+					contact->birthday = NULL;
+					if (addstr(&contact->unrecognised_data, getstr(p)))
+						goto fail;
+				}
+
+			} else if (!strcmp(p, "ICE")) {
+				contact->in_case_of_emergency = 1;
+
+			} else if (!strcmp(p, "NPERSON") && !contact->gender) {
+				contact->gender = LIBCONTACTS_NOT_A_PERSON;
+
+			} else if (!strcmp(p, "MALE") && !contact->gender) {
+				contact->gender = LIBCONTACTS_MALE;
+
+			} else if (!strcmp(p, "FEMALE") && !contact->gender) {
+				contact->gender = LIBCONTACTS_FEMALE;
+
+			} else {
+				if (addstr(&contact->unrecognised_data, getstr(p)))
+					goto fail;
+			}
+		}
+	}
+
+	return 0;
+
+fail:
+	libcontacts_contact_destroy(contact);
+	memset(contact, 0, sizeof(*contact));
+	return -1;
+
+#undef TEST
+#undef ADD
+}