static EVCardAttribute *
contacts_add_attr (EVCard *contact, const gchar *vcard_field)
{
const ContactsField *field = contacts_get_contacts_field (vcard_field);
if (field) {
guint j;
/* Create missing attribute */
EVCardAttribute *attr = e_vcard_attribute_new (
"", vcard_field);
/* Initialise values */
for (j = contacts_get_structured_field_size (
e_vcard_attribute_get_name (attr));
j > 0; j--)
e_vcard_attribute_add_value (attr, "");
/* Add to contact */
e_vcard_add_attribute (contact, attr);
return attr;
}
return NULL;
}
static void
contacts_entry_changed (GtkWidget *widget, EContactChangeData *data)
{
GList *v, *values = contacts_entries_get_values (data->widget, NULL);
e_vcard_attribute_remove_values (data->attr);
/* Note: First element of a structured field is type, so remove it */
if (g_list_length (values) > 1) {
GList *type = g_list_last (values);
values = g_list_remove_link (values, type);
g_free (type->data);
g_list_free (type);
}
for (v = g_list_last (values); v; v = v->prev) {
e_vcard_attribute_add_value (data->attr,
(const gchar *)v->data);
}
if (!g_ascii_strcasecmp (e_vcard_attribute_get_name (data->attr), EVC_FN))
{
/* add N and X-EVOLUTION-FILE-AS attributes */
ENameWestern *name;
gchar *file_as;
EVCardAttribute *attr;
EVCard *evc = E_VCARD (data->contact);
name = e_name_western_parse ((char*)values->data);
/* Add "N" attribute */
attr = e_vcard_get_attribute (evc, EVC_N);
if (attr)
e_vcard_attribute_remove_values (attr);
else
{
attr = e_vcard_attribute_new ("", EVC_N);
e_vcard_add_attribute (evc, attr);
}
#define SAFESTR(x) (x) ? x : ""
e_vcard_attribute_add_value (attr, SAFESTR (name->last));
e_vcard_attribute_add_value (attr, SAFESTR (name->first));
e_vcard_attribute_add_value (attr, SAFESTR (name->middle));
e_vcard_attribute_add_value (attr, SAFESTR (name->prefix));
e_vcard_attribute_add_value (attr, SAFESTR (name->suffix));
/* Add file-as attribute for evolution */
file_as = g_strdup_printf ("%s, %s", name->last, name->first);
attr = e_vcard_get_attribute (evc, EVC_X_FILE_AS);
if (attr)
e_vcard_remove_attribute (evc, attr);
attr = e_vcard_attribute_new ("", EVC_X_FILE_AS);
e_vcard_add_attribute_with_value (evc, attr, file_as);
g_free (file_as);
g_free (name);
}
g_list_foreach (values, (GFunc)g_free, NULL);
g_list_free (values);
*data->changed = TRUE;
}
static void
read_attribute_value (EVCardAttribute *attr, char **p, gboolean quoted_printable)
{
char *lp = *p;
GString *str;
/* read in the value */
str = g_string_new ("");
for( lp = skip_newline( *p, quoted_printable );
*lp != '\n' && *lp != '\r' && *lp != '\0';
lp = skip_newline( lp, quoted_printable ) ) {
if (*lp == '=' && quoted_printable) {
char a, b;
if ((a = *(++lp)) == '\0') break;
if ((b = *(++lp)) == '\0') break;
if (isxdigit(a) && isxdigit (b)) {
char c;
a = tolower (a);
b = tolower (b);
c = (((a>='a'?a-'a'+10:a-'0')&0x0f) << 4)
| ((b>='a'?b-'a'+10:b-'0')&0x0f);
g_string_append_c (str, c); /* add decoded byte (this is not a unicode yet) */
}
else
{
g_string_append_c (str, a);
g_string_append_c (str, b);
}
lp++;
} else if (*lp == '\\') {
/* convert back to the non-escaped version of
the characters */
lp = g_utf8_next_char(lp);
if (*lp == '\0') {
g_string_append_c (str, '\\');
break;
}
/* beware, there might be a line break due to folding,
* need next real character
*/
lp = skip_newline (lp, quoted_printable);
switch (*lp) {
case 'n': g_string_append_c (str, '\n'); break;
case 'N': g_string_append_c (str, '\n'); break;
case 'r': g_string_append_c (str, '\r'); break;
case 'R': g_string_append_c (str, '\r'); break;
case ';': g_string_append_c (str, ';'); break;
case ',': g_string_append_c (str, ','); break;
case '\\': g_string_append_c (str, '\\'); break;
default:
g_warning ("invalid escape, passing it through");
g_string_append_c (str, '\\');
g_string_append_unichar (str, g_utf8_get_char(lp));
break;
}
lp = g_utf8_next_char(lp);
}
else if ((*lp == ';') ||
(*lp == ',' && !g_ascii_strcasecmp (attr->name, "CATEGORIES"))) {
e_vcard_attribute_add_value (attr, str->str);
g_string_assign (str, "");
lp = g_utf8_next_char(lp);
}
else {
g_string_append_unichar (str, g_utf8_get_char (lp));
lp = g_utf8_next_char(lp);
}
}
if (str) {
e_vcard_attribute_add_value (attr, str->str);
g_string_free (str, TRUE);
}
skip_to_next_line( &lp );
*p = lp;
}
