/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/*
* Authors:
* Arturo Espinosa (arturo@nuclecu.unam.mx)
* Nat Friedman (nat@ximian.com)
*
* Copyright (C) 2000 Ximian, Inc.
* Copyright (C) 1999 The Free Software Foundation
*/
#include <config.h>
#include "e-card.h"
#include <gal/util/e-i18n.h>
#include <gal/widgets/e-unicode.h>
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <math.h>
#include <gtk/gtkobject.h>
#include <bonobo/bonobo-object-client.h>
#include <gal/util/e-util.h>
#include <libversit/vcc.h>
#include "e-util/ename/e-name-western.h"
#include "e-util/ename/e-address-western.h"
#include "e-book.h"
#include "e-destination.h"
#define is_a_prop_of(obj,prop) (isAPropertyOf ((obj),(prop)))
#define str_val(obj) (the_str = (vObjectValueType (obj))? fakeCString (vObjectUStringZValue (obj)) : calloc (1, 1))
#define has(obj,prop) (vo = isAPropertyOf ((obj), (prop)))
#define XEV_WANTS_HTML "X-MOZILLA-HTML"
#define XEV_ARBITRARY "X-EVOLUTION-ARBITRARY"
#define XEV_LIST "X-EVOLUTION-LIST"
#define XEV_LIST_SHOW_ADDRESSES "X-EVOLUTION-LIST-SHOW_ADDRESSES"
#define XEV_RELATED_CONTACTS "X-EVOLUTION-RELATED_CONTACTS"
/* Object argument IDs */
enum {
ARG_0,
ARG_FILE_AS,
ARG_FULL_NAME,
ARG_NAME,
ARG_ADDRESS,
ARG_ADDRESS_LABEL,
ARG_PHONE,
ARG_EMAIL,
ARG_BIRTH_DATE,
ARG_URL,
ARG_ORG,
ARG_ORG_UNIT,
ARG_OFFICE,
ARG_TITLE,
ARG_ROLE,
ARG_MANAGER,
ARG_ASSISTANT,
ARG_NICKNAME,
ARG_SPOUSE,
ARG_ANNIVERSARY,
ARG_MAILER,
ARG_CALURI,
ARG_FBURL,
ARG_NOTE,
ARG_RELATED_CONTACTS,
ARG_CATEGORIES,
ARG_CATEGORY_LIST,
ARG_WANTS_HTML,
ARG_WANTS_HTML_SET,
ARG_EVOLUTION_LIST,
ARG_EVOLUTION_LIST_SHOW_ADDRESSES,
ARG_ARBITRARY,
ARG_ID,
ARG_LAST_USE,
ARG_USE_SCORE,
};
#if 0
static VObject *card_convert_to_vobject (ECard *crd);
#endif
static void parse(ECard *card, VObject *vobj, char *default_charset);
static void e_card_init (ECard *card);
static void e_card_class_init (ECardClass *klass);
static void e_card_destroy (GtkObject *object);
static void e_card_set_arg (GtkObject *object, GtkArg *arg, guint arg_id);
static void e_card_get_arg (GtkObject *object, GtkArg *arg, guint arg_id);
static void assign_string(VObject *vobj, char *default_charset, char **string);
char *e_v_object_get_child_value(VObject *vobj, char *name, char *default_charset);
static ECardDate e_card_date_from_string (char *str);
static void parse_bday(ECard *card, VObject *object, char *default_charset);
static void parse_full_name(ECard *card, VObject *object, char *default_charset);
static void parse_file_as(ECard *card, VObject *object, char *default_charset);
static void parse_name(ECard *card, VObject *object, char *default_charset);
static void parse_email(ECard *card, VObject *object, char *default_charset);
static void parse_phone(ECard *card, VObject *object, char *default_charset);
static void parse_address(ECard *card, VObject *object, char *default_charset);
static void parse_address_label(ECard *card, VObject *object, char *default_charset);
static void parse_url(ECard *card, VObject *object, char *default_charset);
static void parse_org(ECard *card, VObject *object, char *default_charset);
static void parse_office(ECard *card, VObject *object, char *default_charset);
static void parse_title(ECard *card, VObject *object, char *default_charset);
static void parse_role(ECard *card, VObject *object, char *default_charset);
static void parse_manager(ECard *card, VObject *object, char *default_charset);
static void parse_assistant(ECard *card, VObject *object, char *default_charset);
static void parse_nickname(ECard *card, VObject *object, char *default_charset);
static void parse_spouse(ECard *card, VObject *object, char *default_charset);
static void parse_anniversary(ECard *card, VObject *object, char *default_charset);
static void parse_mailer(ECard *card, VObject *object, char *default_charset);
static void parse_caluri(ECard *card, VObject *object, char *default_charset);
static void parse_fburl(ECard *card, VObject *object, char *default_charset);
static void parse_note(ECard *card, VObject *object, char *default_charset);
static void parse_related_contacts(ECard *card, VObject *object, char *default_charset);
static void parse_categories(ECard *card, VObject *object, char *default_charset);
static void parse_wants_html(ECard *card, VObject *object, char *default_charset);
static void parse_list(ECard *card, VObject *object, char *default_charset);
static void parse_list_show_addresses(ECard *card, VObject *object, char *default_charset);
static void parse_arbitrary(ECard *card, VObject *object, char *default_charset);
static void parse_id(ECard *card, VObject *object, char *default_charset);
static void parse_last_use(ECard *card, VObject *object, char *default_charset);
static void parse_use_score(ECard *card, VObject *object, char *default_charset);
static ECardPhoneFlags get_phone_flags (VObject *vobj);
static void set_phone_flags (VObject *vobj, ECardPhoneFlags flags);
static ECardAddressFlags get_address_flags (VObject *vobj);
static void set_address_flags (VObject *vobj, ECardAddressFlags flags);
typedef void (* ParsePropertyFunc) (ECard *card, VObject *object, char *default_charset);
struct {
char *key;
ParsePropertyFunc function;
} attribute_jump_array[] =
{
{ VCFullNameProp, parse_full_name },
{ "X-EVOLUTION-FILE-AS", parse_file_as },
{ VCNameProp, parse_name },
{ VCBirthDateProp, parse_bday },
{ VCEmailAddressProp, parse_email },
{ VCTelephoneProp, parse_phone },
{ VCAdrProp, parse_address },
{ VCDeliveryLabelProp, parse_address_label },
{ VCURLProp, parse_url },
{ VCOrgProp, parse_org },
{ "X-EVOLUTION-OFFICE", parse_office },
{ VCTitleProp, parse_title },
{ VCBusinessRoleProp, parse_role },
{ "X-EVOLUTION-MANAGER", parse_manager },
{ "X-EVOLUTION-ASSISTANT", parse_assistant },
{ "NICKNAME", parse_nickname },
{ "X-EVOLUTION-SPOUSE", parse_spouse },
{ "X-EVOLUTION-ANNIVERSARY", parse_anniversary },
{ VCMailerProp, parse_mailer },
{ "CALURI", parse_caluri },
{ "FBURL", parse_fburl },
{ VCNoteProp, parse_note },
{ XEV_RELATED_CONTACTS, parse_related_contacts },
{ "CATEGORIES", parse_categories },
{ XEV_WANTS_HTML, parse_wants_html },
{ XEV_ARBITRARY, parse_arbitrary },
{ VCUniqueStringProp, parse_id },
{ "X-EVOLUTION-LAST-USE", parse_last_use },
{ "X-EVOLUTION-USE-SCORE", parse_use_score },
{ XEV_LIST, parse_list },
{ XEV_LIST_SHOW_ADDRESSES, parse_list_show_addresses },
{ VCUniqueStringProp, parse_id }
};
/**
* e_card_get_type:
* @void:
*
* Registers the &ECard class if necessary, and returns the type ID
* associated to it.
*
* Return value: The type ID of the &ECard class.
**/
GtkType
e_card_get_type (void)
{
static GtkType card_type = 0;
if (!card_type) {
GtkTypeInfo card_info = {
"ECard",
sizeof (ECard),
sizeof (ECardClass),
(GtkClassInitFunc) e_card_class_init,
(GtkObjectInitFunc) e_card_init,
NULL, /* reserved_1 */
NULL, /* reserved_2 */
(GtkClassInitFunc) NULL
};
card_type = gtk_type_unique (gtk_object_get_type (), &card_info);
}
return card_type;
}
ECard *
e_card_new_with_default_charset (char *vcard, char *default_charset)
{
ECard *card = E_CARD(gtk_type_new(e_card_get_type()));
VObject *vobj = Parse_MIME(vcard, strlen(vcard));
while(vobj) {
VObject *next;
parse(card, vobj, default_charset);
next = nextVObjectInList(vobj);
cleanVObject(vobj);
vobj = next;
}
if (card->name == NULL)
card->name = e_card_name_new();
if (card->file_as == NULL)
card->file_as = g_strdup("");
if (card->fname == NULL)
card->fname = g_strdup("");
return card;
}
/**
* e_card_new:
* @vcard: a string in vCard format
*
* Returns: a new #ECard that wraps the @vcard.
*/
ECard *
e_card_new (char *vcard)
{
return e_card_new_with_default_charset (vcard, "UTF-8");
}
ECard *
e_card_duplicate(ECard *card)
{
char *vcard = e_card_get_vcard_assume_utf8(card);
ECard *new_card = e_card_new(vcard);
g_free (vcard);
if (card->book) {
new_card->book = card->book;
gtk_object_ref (GTK_OBJECT (new_card->book));
}
return new_card;
}
static void
e_card_get_today (GDate *dt)
{
time_t now;
struct tm *now_tm;
if (dt == NULL)
return;
time (&now);
now_tm = localtime (&now);
g_date_set_dmy (dt, now_tm->tm_mday, now_tm->tm_mon + 1, now_tm->tm_year + 1900);
}
float
e_card_get_use_score(ECard *card)
{
GDate today, last_use;
gint days_since_last_use;
g_return_val_if_fail (card != NULL && E_IS_CARD (card), 0);
if (card->last_use == NULL)
return 0.0;
e_card_get_today (&today);
g_date_set_dmy (&last_use, card->last_use->day, card->last_use->month, card->last_use->year);
days_since_last_use = g_date_julian (&today) - g_date_julian (&last_use);
/* Apply a seven-day "grace period" to the use score decay. */
days_since_last_use -= 7;
if (days_since_last_use < 0)
days_since_last_use = 0;
return MAX (card->raw_use_score, 0) * exp (- days_since_last_use / 30.0);
}
void
e_card_touch(ECard *card)
{
GDate today;
double use_score;
g_return_if_fail (card != NULL && E_IS_CARD (card));
e_card_get_today (&today);
use_score = e_card_get_use_score (card);
if (card->last_use == NULL)
card->last_use = g_new (ECardDate, 1);
card->last_use->day = g_date_day (&today);
card->last_use->month = g_date_month (&today);
card->last_use->year = g_date_year (&today);
card->raw_use_score = use_score + 1.0;
}
/**
* e_card_get_id:
* @card: an #ECard
*
* Returns: a string representing the id of the card, which is unique
* within its book.
*/
const char *
e_card_get_id (ECard *card)
{
g_return_val_if_fail (card && E_IS_CARD (card), NULL);
return card->id;
}
/**
* e_card_get_id:
* @card: an #ECard
* @id: a id in string format
*
* Sets the identifier of a card, which should be unique within its
* book.
*/
void
e_card_set_id (ECard *card, const char *id)
{
g_return_if_fail (card && E_IS_CARD (card));
if ( card->id )
g_free(card->id);
card->id = g_strdup(id);
}
EBook *
e_card_get_book (ECard *card)
{
g_return_val_if_fail (card && E_IS_CARD (card), NULL);
return card->book;
}
void
e_card_set_book (ECard *card, EBook *book)
{
g_return_if_fail (card && E_IS_CARD (card));
if (card->book)
gtk_object_unref (GTK_OBJECT (card->book));
card->book = book;
if (card->book)
gtk_object_ref (GTK_OBJECT (card->book));
}
static gchar *
e_card_date_to_string (ECardDate *dt)
{
if (dt)
return g_strdup_printf ("%04d-%02d-%02d",
CLAMP(dt->year, 1000, 9999),
CLAMP(dt->month, 1, 12),
CLAMP(dt->day, 1, 31));
else
return NULL;
}
static VObject *
addPropValueUTF8(VObject *o, const char *p, const char *v)
{
VObject *prop = addPropValue (o, p, v);
for (; *v; v++) {
if ((*v) & 0x80) {
addPropValue (prop, "CHARSET", "UTF-8");
for (; *v; v++) {
if (*v == '\n') {
addProp(prop, VCQuotedPrintableProp);
return prop;
}
}
return prop;
}
if (*v == '\n') {
addProp(prop, VCQuotedPrintableProp);
for (; *v; v++) {
if ((*v) & 0x80) {
addPropValue (prop, "CHARSET", "UTF-8");
return prop;
}
}
return prop;
}
}
return prop;
}
static VObject *
addPropValueQP(VObject *o, const char *p, const char *v)
{
VObject *prop = addPropValue (o, p, v);
for (; *v; v++) {
if (*v == '\n') {
addProp(prop, VCQuotedPrintableProp);
break;
}
}
return prop;
}
static void
addPropValueSets (VObject *o, char *p, char *v, gboolean assumeUTF8, gboolean *is_ascii, gboolean *has_return)
{
addPropValue (o, p, v);
if (*has_return && (assumeUTF8 || !*is_ascii))
return;
if (*has_return) {
for (; *v; v++) {
if (*v & 0x80) {
*is_ascii = FALSE;
return;
}
}
return;
}
if (assumeUTF8 || !*is_ascii) {
for (; *v; v++) {
if (*v == '\n') {
*has_return = TRUE;
return;
}
}
return;
}
for (; *v; v++) {
if (*v & 0x80) {
*is_ascii = FALSE;
for (; *v; v++) {
if (*v == '\n') {
*has_return = TRUE;
return;
}
}
return;
}
if (*v == '\n') {
*has_return = TRUE;
for (; *v; v++) {
if (*v & 0x80) {
*is_ascii = FALSE;
return;
}
}
return;
}
}
return;
}
#define ADD_PROP_VALUE(o, p, v) (assumeUTF8 ? (addPropValueQP ((o), (p), (v))) : addPropValueUTF8 ((o), (p), (v)))
#define ADD_PROP_VALUE_SET_IS_ASCII(o, p, v) (addPropValueSets ((o), (p), (v), assumeUTF8, &is_ascii, &has_return))
static VObject *
e_card_get_vobject (ECard *card, gboolean assumeUTF8)
{
VObject *vobj;
vobj = newVObject (VCCardProp);
if (card->file_as && *card->file_as)
ADD_PROP_VALUE(vobj, "X-EVOLUTION-FILE-AS", card->file_as);
else if (card->file_as)
addProp(vobj, "X-EVOLUTION-FILE_AS");
if (card->fname && *card->fname)
ADD_PROP_VALUE(vobj, VCFullNameProp, card->fname);
else if (card->fname)
addProp(vobj, VCFullNameProp);
if ( card->name && (card->name->prefix || card->name->given || card->name->additional || card->name->family || card->name->suffix) ) {
VObject *nameprop;
gboolean is_ascii = TRUE;
gboolean has_return = FALSE;
nameprop = addProp(vobj, VCNameProp);
if ( card->name->prefix )
ADD_PROP_VALUE_SET_IS_ASCII(nameprop, VCNamePrefixesProp, card->name->prefix);
if ( card->name->given )
ADD_PROP_VALUE_SET_IS_ASCII(nameprop, VCGivenNameProp, card->name->given);
if ( card->name->additional )
ADD_PROP_VALUE_SET_IS_ASCII(nameprop, VCAdditionalNamesProp, card->name->additional);
if ( card->name->family )
ADD_PROP_VALUE_SET_IS_ASCII(nameprop, VCFamilyNameProp, card->name->family);
if ( card->name->suffix )
ADD_PROP_VALUE_SET_IS_ASCII(nameprop, VCNameSuffixesProp, card->name->suffix);
if (has_return)
addProp(nameprop, VCQuotedPrintableProp);
if (!(is_ascii || assumeUTF8))
addPropValue (nameprop, "CHARSET", "UTF-8");
}
else if (card->name)
addProp(vobj, VCNameProp);
if ( card->address ) {
EIterator *iterator = e_list_get_iterator(card->address);
for ( ; e_iterator_is_valid(iterator) ;e_iterator_next(iterator) ) {
VObject *addressprop;
ECardDeliveryAddress *address = (ECardDeliveryAddress *) e_iterator_get(iterator);
gboolean is_ascii = TRUE;
gboolean has_return = FALSE;
addressprop = addProp(vobj, VCAdrProp);
set_address_flags (addressprop, address->flags);
if ( address->po )
ADD_PROP_VALUE_SET_IS_ASCII(addressprop, VCPostalBoxProp, address->po);
if ( address->ext )
ADD_PROP_VALUE_SET_IS_ASCII(addressprop, VCExtAddressProp, address->ext);
if ( address->street )
ADD_PROP_VALUE_SET_IS_ASCII(addressprop, VCStreetAddressProp, address->street);
if ( address->city )
ADD_PROP_VALUE_SET_IS_ASCII(addressprop, VCCityProp, address->city);
if ( address->region )
ADD_PROP_VALUE_SET_IS_ASCII(addressprop, VCRegionProp, address->region);
if ( address->code )
ADD_PROP_VALUE_SET_IS_ASCII(addressprop, VCPostalCodeProp, address->code);
if ( address->country )
ADD_PROP_VALUE_SET_IS_ASCII(addressprop, VCCountryNameProp, address->country);
if (has_return)
addProp(addressprop, VCQuotedPrintableProp);
if (!(is_ascii || assumeUTF8))
addPropValue (addressprop, "CHARSET", "UTF-8");
}
gtk_object_unref(GTK_OBJECT(iterator));
}
if ( card->address_label ) {
EIterator *iterator = e_list_get_iterator(card->address_label);
for ( ; e_iterator_is_valid(iterator) ;e_iterator_next(iterator) ) {
VObject *labelprop;
ECardAddrLabel *address_label = (ECardAddrLabel *) e_iterator_get(iterator);
if (address_label->data)
labelprop = ADD_PROP_VALUE(vobj, VCDeliveryLabelProp, address_label->data);
else
labelprop = addProp(vobj, VCDeliveryLabelProp);
set_address_flags (labelprop, address_label->flags);
}
gtk_object_unref(GTK_OBJECT(iterator));
}
if ( card->phone ) {
EIterator *iterator = e_list_get_iterator(card->phone);
for ( ; e_iterator_is_valid(iterator) ;e_iterator_next(iterator) ) {
VObject *phoneprop;
ECardPhone *phone = (ECardPhone *) e_iterator_get(iterator);
phoneprop = ADD_PROP_VALUE(vobj, VCTelephoneProp, phone->number);
set_phone_flags (phoneprop, phone->flags);
}
gtk_object_unref(GTK_OBJECT(iterator));
}
if ( card->email ) {
EIterator *iterator = e_list_get_iterator(card->email);
for ( ; e_iterator_is_valid(iterator) ;e_iterator_next(iterator) ) {
VObject *emailprop;
emailprop = ADD_PROP_VALUE(vobj, VCEmailAddressProp, (char *) e_iterator_get(iterator));
addProp (emailprop, VCInternetProp);
}
gtk_object_unref(GTK_OBJECT(iterator));
}
if ( card->bday ) {
char *value;
value = e_card_date_to_string (card->bday);
ADD_PROP_VALUE(vobj, VCBirthDateProp, value);
g_free(value);
}
if (card->url)
ADD_PROP_VALUE(vobj, VCURLProp, card->url);
if (card->org || card->org_unit) {
VObject *orgprop;
gboolean is_ascii = TRUE;
gboolean has_return = FALSE;
orgprop = addProp(vobj, VCOrgProp);
if (card->org)
ADD_PROP_VALUE_SET_IS_ASCII(orgprop, VCOrgNameProp, card->org);
if (card->org_unit)
ADD_PROP_VALUE_SET_IS_ASCII(orgprop, VCOrgUnitProp, card->org_unit);
if (has_return)
addProp(orgprop, VCQuotedPrintableProp);
if (!(is_ascii || assumeUTF8))
addPropValue (orgprop, "CHARSET", "UTF-8");
}
if (card->office)
ADD_PROP_VALUE(vobj, "X-EVOLUTION-OFFICE", card->office);
if (card->title)
ADD_PROP_VALUE(vobj, VCTitleProp, card->title);
if (card->role)
ADD_PROP_VALUE(vobj, VCBusinessRoleProp, card->role);
if (card->manager)
ADD_PROP_VALUE(vobj, "X-EVOLUTION-MANAGER", card->manager);
if (card->assistant)
ADD_PROP_VALUE(vobj, "X-EVOLUTION-ASSISTANT", card->assistant);
if (card->nickname)
ADD_PROP_VALUE(vobj, "NICKNAME", card->nickname);
if (card->spouse)
ADD_PROP_VALUE(vobj, "X-EVOLUTION-SPOUSE", card->spouse);
if ( card->anniversary ) {
char *value;
value = e_card_date_to_string (card->anniversary);
ADD_PROP_VALUE(vobj, "X-EVOLUTION-ANNIVERSARY", value);
g_free(value);
}
if (card->mailer) {
ADD_PROP_VALUE(vobj, VCMailerProp, card->mailer);
}
if (card->caluri)
addPropValue(vobj, "CALURI", card->caluri);
if (card->fburl)
ADD_PROP_VALUE(vobj, "FBURL", card->fburl);
if (card->note) {
VObject *noteprop;
noteprop = ADD_PROP_VALUE(vobj, VCNoteProp, card->note);
}
if (card->last_use) {
char *value;
value = e_card_date_to_string (card->last_use);
ADD_PROP_VALUE (vobj, "X-EVOLUTION-LAST-USE", value);
g_free (value);
}
if (card->raw_use_score > 0) {
char *value;
value = g_strdup_printf ("%f", card->raw_use_score);
ADD_PROP_VALUE (vobj, "X-EVOLUTION-USE-SCORE", value);
g_free (value);
}
if (card->related_contacts && *card->related_contacts) {
ADD_PROP_VALUE(vobj, XEV_RELATED_CONTACTS, card->related_contacts);
}
if (card->categories) {
EIterator *iterator;
int length = 0;
char *string;
char *stringptr;
for (iterator = e_list_get_iterator(card->categories); e_iterator_is_valid(iterator); e_iterator_next(iterator)) {
length += strlen(e_iterator_get(iterator)) + 1;
}
string = g_new(char, length + 1);
stringptr = string;
*stringptr = 0;
for (e_iterator_reset(iterator); e_iterator_is_valid(iterator); e_iterator_next(iterator)) {
strcpy(stringptr, e_iterator_get(iterator));
stringptr += strlen(stringptr);
*stringptr = ',';
stringptr++;
*stringptr = 0;
}
if (stringptr > string) {
stringptr --;
*stringptr = 0;
}
ADD_PROP_VALUE (vobj, "CATEGORIES", string);
g_free(string);
}
if (card->wants_html_set) {
ADD_PROP_VALUE (vobj, XEV_WANTS_HTML, card->wants_html ? "TRUE" : "FALSE");
}
if (card->list) {
ADD_PROP_VALUE (vobj, XEV_LIST, "TRUE");
ADD_PROP_VALUE (vobj, XEV_LIST_SHOW_ADDRESSES, card->list_show_addresses ? "TRUE" : "FALSE");
}
if (card->arbitrary) {
EIterator *iterator;
for (iterator = e_list_get_iterator(card->arbitrary); e_iterator_is_valid(iterator); e_iterator_next(iterator)) {
const ECardArbitrary *arbitrary = e_iterator_get(iterator);
VObject *arb_object;
if (arbitrary->value) {
arb_object = ADD_PROP_VALUE (vobj, XEV_ARBITRARY, arbitrary->value);
} else {
arb_object = addProp (vobj, XEV_ARBITRARY);
}
if (arbitrary->type) {
ADD_PROP_VALUE (arb_object, "TYPE", arbitrary->type);
}
if (arbitrary->key) {
addProp (arb_object, arbitrary->key);
}
}
}
ADD_PROP_VALUE (vobj, VCUniqueStringProp, card->id);
#if 0
if (crd->photo.prop.used) {
vprop = addPropSizedValue (vobj, VCPhotoProp,
crd->photo.data, crd->photo.size);
add_PhotoType (vprop, crd->photo.type);
add_CardProperty (vprop, &crd->photo.prop);
}
if (crd->xtension.l) {
GList *node;
for (node = crd->xtension.l; node; node = node->next) {
CardXProperty *xp = (CardXProperty *) node->data;
ADD_PROP_VALUE (vobj, xp->name, xp->data);
add_CardProperty (vobj, &xp->prop);
}
}
if (crd->timezn.prop.used) {
char *str;
str = card_timezn_str (crd->timezn);
vprop = ADD_PROP_VALUE (vobj, VCTimeZoneProp, str);
free (str);
add_CardProperty (vprop, &crd->timezn.prop);
}
if (crd->geopos.prop.used) {
char *str;
str = card_geopos_str (crd->geopos);
vprop = ADD_PROP_VALUE (vobj, VCGeoLocationProp, str);
free (str);
add_CardProperty (vprop, &crd->geopos.prop);
}
if (crd->logo.prop.used) {
vprop = addPropSizedValue (vobj, VCLogoProp,
crd->logo.data, crd->logo.size);
add_PhotoType (vprop, crd->logo.type);
add_CardProperty (vprop, &crd->logo.prop);
}
if (crd->agent)
addVObjectProp (vobj, card_convert_to_vobject (crd->agent));
if (crd->sound.prop.used) {
if (crd->sound.type != SOUND_PHONETIC)
vprop = addPropSizedValue (vobj, VCPronunciationProp,
crd->sound.data, crd->sound.size);
else
vprop = ADD_PROP_VALUE (vobj, VCPronunciationProp,
crd->sound.data);
add_SoundType (vprop, crd->sound.type);
add_CardProperty (vprop, &crd->sound.prop);
}
if (crd->key.prop.used) {
vprop = ADD_PROP_VALUE (vobj, VCPublicKeyProp, crd->key.data);
add_KeyType (vprop, crd->key.type);
add_CardProperty (vprop, &crd->key.prop);
}
#endif
return vobj;
}
/**
* e_card_get_vcard:
* @card: an #ECard
*
* Returns: a string in vCard format, which is wrapped by the @card.
*/
char *
e_card_get_vcard (ECard *card)
{
VObject *vobj;
char *temp, *ret_val;
vobj = e_card_get_vobject (card, FALSE);
temp = writeMemVObject(NULL, NULL, vobj);
ret_val = g_strdup(temp);
free(temp);
cleanVObject(vobj);
return ret_val;
}
char *
e_card_get_vcard_assume_utf8 (ECard *card)
{
VObject *vobj;
char *temp, *ret_val;
vobj = e_card_get_vobject (card, TRUE);
temp = writeMemVObject(NULL, NULL, vobj);
ret_val = g_strdup(temp);
free(temp);
cleanVObject(vobj);
return ret_val;
}
/**
* e_card_list_get_vcard:
* @list: a list of #ECards
*
* Returns: a string in vCard format.
*/
char *
e_card_list_get_vcard (GList *list)
{
VObject *vobj;
char *temp, *ret_val;
vobj = NULL;
for (; list; list = list->next) {
VObject *tempvobj;
ECard *card = list->data;
tempvobj = e_card_get_vobject (card, FALSE);
addList (&vobj, tempvobj);
}
temp = writeMemVObjects(NULL, NULL, vobj);
ret_val = g_strdup(temp);
free(temp);
cleanVObjects(vobj);
return ret_val;
}
static void
parse_file_as(ECard *card, VObject *vobj, char *default_charset)
{
if ( card->file_as )
g_free(card->file_as);
assign_string(vobj, default_charset, &(card->file_as));
}
static void
parse_name(ECard *card, VObject *vobj, char *default_charset)
{
e_card_name_unref(card->name);
card->name = e_card_name_new();
card->name->family = e_v_object_get_child_value (vobj, VCFamilyNameProp, default_charset);
card->name->given = e_v_object_get_child_value (vobj, VCGivenNameProp, default_charset);
card->name->additional = e_v_object_get_child_value (vobj, VCAdditionalNamesProp, default_charset);
card->name->prefix = e_v_object_get_child_value (vobj, VCNamePrefixesProp, default_charset);
card->name->suffix = e_v_object_get_child_value (vobj, VCNameSuffixesProp, default_charset);
}
static void
parse_full_name(ECard *card, VObject *vobj, char *default_charset)
{
if ( card->fname )
g_free(card->fname);
assign_string(vobj, default_charset, &(card->fname));
}
static void
parse_email(ECard *card, VObject *vobj, char *default_charset)
{
char *next_email;
EList *list;
assign_string(vobj, default_charset, &next_email);
gtk_object_get(GTK_OBJECT(card),
"email", &list,
NULL);
e_list_append(list, next_email);
g_free (next_email);
}
/* Deal with charset */
static void
parse_bday(ECard *card, VObject *vobj, char *default_charset)
{
if ( vObjectValueType (vobj) ) {
char *str = fakeCString (vObjectUStringZValue (vobj));
if ( card->bday )
g_free(card->bday);
card->bday = g_new(ECardDate, 1);
*(card->bday) = e_card_date_from_string(str);
free(str);
}
}
static void
parse_phone(ECard *card, VObject *vobj, char *default_charset)
{
ECardPhone *next_phone = e_card_phone_new ();
EList *list;
assign_string(vobj, default_charset, &(next_phone->number));
next_phone->flags = get_phone_flags(vobj);
gtk_object_get(GTK_OBJECT(card),
"phone", &list,
NULL);
e_list_append(list, next_phone);
e_card_phone_unref (next_phone);
}
static void
parse_address(ECard *card, VObject *vobj, char *default_charset)
{
ECardDeliveryAddress *next_addr = e_card_delivery_address_new ();
EList *list;
next_addr->flags = get_address_flags (vobj);
next_addr->po = e_v_object_get_child_value (vobj, VCPostalBoxProp, default_charset);
next_addr->ext = e_v_object_get_child_value (vobj, VCExtAddressProp, default_charset);
next_addr->street = e_v_object_get_child_value (vobj, VCStreetAddressProp, default_charset);
next_addr->city = e_v_object_get_child_value (vobj, VCCityProp, default_charset);
next_addr->region = e_v_object_get_child_value (vobj, VCRegionProp, default_charset);
next_addr->code = e_v_object_get_child_value (vobj, VCPostalCodeProp, default_charset);
next_addr->country = e_v_object_get_child_value (vobj, VCCountryNameProp, default_charset);
gtk_object_get(GTK_OBJECT(card),
"address", &list,
NULL);
e_list_append(list, next_addr);
e_card_delivery_address_unref (next_addr);
}
static void
parse_address_label(ECard *card, VObject *vobj, char *default_charset)
{
ECardAddrLabel *next_addr = e_card_address_label_new ();
EList *list;
next_addr->flags = get_address_flags (vobj);
assign_string(vobj, default_charset, &next_addr->data);
gtk_object_get(GTK_OBJECT(card),
"address_label", &list,
NULL);
e_list_append(list, next_addr);
e_card_address_label_unref (next_addr);
}
static void
parse_url(ECard *card, VObject *vobj, char *default_charset)
{
if (card->url)
g_free(card->url);
assign_string(vobj, default_charset, &(card->url));
}
static void
parse_org(ECard *card, VObject *vobj, char *default_charset)
{
char *temp;
temp = e_v_object_get_child_value(vobj, VCOrgNameProp, default_charset);
g_free(card->org);
card->org = temp;
temp = e_v_object_get_child_value(vobj, VCOrgUnitProp, default_charset);
g_free(card->org_unit);
card->org_unit = temp;
}
static void
parse_office(ECard *card, VObject *vobj, char *default_charset)
{
if ( card->office )
g_free(card->office);
assign_string(vobj, default_charset, &(card->office));
}
static void
parse_title(ECard *card, VObject *vobj, char *default_charset)
{
if ( card->title )
g_free(card->title);
assign_string(vobj, default_charset, &(card->title));
}
static void
parse_role(ECard *card, VObject *vobj, char *default_charset)
{
if (card->role)
g_free(card->role);
assign_string(vobj, default_charset, &(card->role));
}
static void
parse_manager(ECard *card, VObject *vobj, char *default_charset)
{
if ( card->manager )
g_free(card->manager);
assign_string(vobj, default_charset, &(card->manager));
}
static void
parse_assistant(ECard *card, VObject *vobj, char *default_charset)
{
if ( card->assistant )
g_free(card->assistant);
assign_string(vobj, default_charset, &(card->assistant));
}
static void
parse_nickname(ECard *card, VObject *vobj, char *default_charset)
{
if (card->nickname)
g_free(card->nickname);
assign_string(vobj, default_charset, &(card->nickname));
}
static void
parse_spouse(ECard *card, VObject *vobj, char *default_charset)
{
if ( card->spouse )
g_free(card->spouse);
assign_string(vobj, default_charset, &(card->spouse));
}
/* Deal with charset */
static void
parse_anniversary(ECard *card, VObject *vobj, char *default_charset)
{
if ( vObjectValueType (vobj) ) {
char *str = fakeCString (vObjectUStringZValue (vobj));
if (card->anniversary)
g_free(card->anniversary);
card->anniversary = g_new(ECardDate, 1);
*(card->anniversary) = e_card_date_from_string(str);
free(str);
}
}
static void
parse_mailer(ECard *card, VObject *vobj, char *default_charset)
{
if ( card->mailer )
g_free(card->mailer);
assign_string(vobj, default_charset, &(card->mailer));
}
static void
parse_caluri(ECard *card, VObject *vobj, char *default_charset)
{
g_free(card->caluri);
assign_string(vobj, default_charset, &(card->caluri));
}
static void
parse_fburl(ECard *card, VObject *vobj, char *default_charset)
{
g_free(card->fburl);
assign_string(vobj, default_charset, &(card->fburl));
}
static void
parse_note(ECard *card, VObject *vobj, char *default_charset)
{
g_free(card->note);
assign_string(vobj, default_charset, &(card->note));
}
static void
parse_related_contacts(ECard *card, VObject *vobj, char *default_charset)
{
g_free(card->related_contacts);
assign_string(vobj, default_charset, &(card->related_contacts));
}
static void
add_list_unique(ECard *card, EList *list, char *string)
{
char *temp = e_strdup_strip(string);
EIterator *iterator;
if (!*temp) {
g_free(temp);
return;
}
for ( iterator = e_list_get_iterator(list); e_iterator_is_valid(iterator); e_iterator_next(iterator)) {
if (!strcmp(e_iterator_get(iterator), temp)) {
break;
}
}
if (!e_iterator_is_valid(iterator)) {
e_list_append(list, temp);
}
g_free(temp);
gtk_object_unref(GTK_OBJECT(iterator));
}
static void
do_parse_categories(ECard *card, char *str)
{
int length = strlen(str);
char *copy = g_new(char, length + 1);
int i, j;
EList *list;
gtk_object_get(GTK_OBJECT(card),
"category_list", &list,
NULL);
for (i = 0, j = 0; str[i]; i++, j++) {
switch (str[i]) {
case '\\':
i++;
if (str[i]) {
copy[j] = str[i];
} else
i--;
break;
case ',':
copy[j] = 0;
add_list_unique(card, list, copy);
j = -1;
break;
default:
copy[j] = str[i];
break;
}
}
copy[j] = 0;
add_list_unique(card, list, copy);
g_free(copy);
}
/* Deal with charset */
static void
parse_categories(ECard *card, VObject *vobj, char *default_charset)
{
if ( vObjectValueType (vobj) ) {
char *str = fakeCString (vObjectUStringZValue (vobj));
do_parse_categories(card, str);
free(str);
}
}
/* Deal with charset */
static void
parse_wants_html(ECard *card, VObject *vobj, char *default_charset)
{
if ( vObjectValueType (vobj) ) {
char *str = fakeCString (vObjectUStringZValue (vobj));
if (!strcasecmp(str, "true")) {
card->wants_html = TRUE;
card->wants_html_set = TRUE;
}
if (!strcasecmp(str, "false")) {
card->wants_html = FALSE;
card->wants_html_set = TRUE;
}
free(str);
}
}
/* Deal with charset */
static void
parse_list(ECard *card, VObject *vobj, char *default_charset)
{
if ( vObjectValueType (vobj) ) {
char *str = fakeCString (vObjectUStringZValue (vobj));
if (!strcasecmp(str, "true")) {
card->list = TRUE;
}
if (!strcasecmp(str, "false")) {
card->list = FALSE;
}
free(str);
}
}
/* Deal with charset */
static void
parse_list_show_addresses(ECard *card, VObject *vobj, char *default_charset)
{
if ( vObjectValueType (vobj) ) {
char *str = fakeCString (vObjectUStringZValue (vobj));
if (!strcasecmp(str, "true")) {
card->list_show_addresses = TRUE;
}
if (!strcasecmp(str, "false")) {
card->list_show_addresses = FALSE;
}
free(str);
}
}
typedef union ValueItem {
const char *strs;
const wchar_t *ustrs;
unsigned int i;
unsigned long l;
void *any;
VObject *vobj;
} ValueItem;
struct VObject {
VObject *next;
const char *id;
VObject *prop;
unsigned short valType;
ValueItem val;
};
static void
parse_arbitrary(ECard *card, VObject *vobj, char *default_charset)
{
ECardArbitrary *arbitrary = e_card_arbitrary_new();
VObjectIterator iterator;
EList *list;
for ( initPropIterator (&iterator, vobj); moreIteration(&iterator); ) {
VObject *temp = nextVObject(&iterator);
const char *name = vObjectName(temp);
if (name && !strcmp(name, "TYPE")) {
g_free(arbitrary->type);
assign_string(temp, default_charset, &(arbitrary->type));
} else {
g_free(arbitrary->key);
arbitrary->key = g_strdup(name);
}
}
assign_string(vobj, default_charset, &(arbitrary->value));
gtk_object_get(GTK_OBJECT(card),
"arbitrary", &list,
NULL);
e_list_append(list, arbitrary);
e_card_arbitrary_unref(arbitrary);
}
static void
parse_id(ECard *card, VObject *vobj, char *default_charset)
{
g_free(card->id);
assign_string(vobj, default_charset, &(card->id));
}
/* Deal with charset */
static void
parse_last_use(ECard *card, VObject *vobj, char *default_charset)
{
if ( vObjectValueType (vobj) ) {
char *str = fakeCString (vObjectUStringZValue (vobj));
if ( card->last_use )
g_free(card->last_use);
card->last_use = g_new(ECardDate, 1);
*(card->last_use) = e_card_date_from_string(str);
free(str);
}
}
/* Deal with charset */
static void
parse_use_score(ECard *card, VObject *vobj, char *default_charset)
{
card->raw_use_score = 0;
if ( vObjectValueType (vobj) ) {
char *str = fakeCString (vObjectUStringZValue (vobj));
card->raw_use_score = MAX(0, atof (str));
free (str);
}
}
static void
parse_attribute(ECard *card, VObject *vobj, char *default_charset)
{
ParsePropertyFunc function = g_hash_table_lookup(E_CARD_CLASS(GTK_OBJECT(card)->klass)->attribute_jump_table, vObjectName(vobj));
if ( function )
function(card, vobj, default_charset);
}
static void
parse(ECard *card, VObject *vobj, char *default_charset)
{
VObjectIterator iterator;
initPropIterator(&iterator, vobj);
while(moreIteration (&iterator)) {
parse_attribute(card, nextVObject(&iterator), default_charset);
}
if (!card->fname) {
card->fname = g_strdup("");
}
if (!card->name) {
card->name = e_card_name_from_string(card->fname);
}
if (!card->file_as) {
ECardName *name = card->name;
char *strings[3], **stringptr;
char *string;
stringptr = strings;
if (name->family && *name->family)
*(stringptr++) = name->family;
if (name->given && *name->given)
*(stringptr++) = name->given;
*stringptr = NULL;
string = g_strjoinv(", ", strings);
card->file_as = string;
}
}
static void
e_card_class_init (ECardClass *klass)
{
int i;
GtkObjectClass *object_class;
object_class = GTK_OBJECT_CLASS(klass);
klass->attribute_jump_table = g_hash_table_new(g_str_hash, g_str_equal);
for ( i = 0; i < sizeof(attribute_jump_array) / sizeof(attribute_jump_array[0]); i++ ) {
g_hash_table_insert(klass->attribute_jump_table, attribute_jump_array[i].key, attribute_jump_array[i].function);
}
gtk_object_add_arg_type ("ECard::file_as",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_FILE_AS);
gtk_object_add_arg_type ("ECard::full_name",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_FULL_NAME);
gtk_object_add_arg_type ("ECard::name",
GTK_TYPE_POINTER, GTK_ARG_READWRITE, ARG_NAME);
gtk_object_add_arg_type ("ECard::address",
GTK_TYPE_OBJECT, GTK_ARG_READABLE, ARG_ADDRESS);
gtk_object_add_arg_type ("ECard::address_label",
GTK_TYPE_OBJECT, GTK_ARG_READABLE, ARG_ADDRESS_LABEL);
gtk_object_add_arg_type ("ECard::phone",
GTK_TYPE_OBJECT, GTK_ARG_READABLE, ARG_PHONE);
gtk_object_add_arg_type ("ECard::email",
GTK_TYPE_OBJECT, GTK_ARG_READABLE, ARG_EMAIL);
gtk_object_add_arg_type ("ECard::birth_date",
GTK_TYPE_POINTER, GTK_ARG_READWRITE, ARG_BIRTH_DATE);
gtk_object_add_arg_type ("ECard::url",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_URL);
gtk_object_add_arg_type ("ECard::org",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_ORG);
gtk_object_add_arg_type ("ECard::org_unit",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_ORG_UNIT);
gtk_object_add_arg_type ("ECard::office",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_OFFICE);
gtk_object_add_arg_type ("ECard::title",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_TITLE);
gtk_object_add_arg_type ("ECard::role",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_ROLE);
gtk_object_add_arg_type ("ECard::manager",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_MANAGER);
gtk_object_add_arg_type ("ECard::assistant",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_ASSISTANT);
gtk_object_add_arg_type ("ECard::nickname",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_NICKNAME);
gtk_object_add_arg_type ("ECard::spouse",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_SPOUSE);
gtk_object_add_arg_type ("ECard::anniversary",
GTK_TYPE_POINTER, GTK_ARG_READWRITE, ARG_ANNIVERSARY);
gtk_object_add_arg_type ("ECard::mailer",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_MAILER);
gtk_object_add_arg_type ("ECard::caluri",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_CALURI);
gtk_object_add_arg_type ("ECard::fburl",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_FBURL);
gtk_object_add_arg_type ("ECard::note",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_NOTE);
gtk_object_add_arg_type ("ECard::related_contacts",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_RELATED_CONTACTS);
gtk_object_add_arg_type ("ECard::categories",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_CATEGORIES);
gtk_object_add_arg_type ("ECard::category_list",
GTK_TYPE_OBJECT, GTK_ARG_READWRITE, ARG_CATEGORY_LIST);
gtk_object_add_arg_type ("ECard::wants_html",
GTK_TYPE_BOOL, GTK_ARG_READWRITE, ARG_WANTS_HTML);
gtk_object_add_arg_type ("ECard::wants_html_set",
GTK_TYPE_BOOL, GTK_ARG_READABLE, ARG_WANTS_HTML);
gtk_object_add_arg_type ("ECard::list",
GTK_TYPE_BOOL, GTK_ARG_READWRITE, ARG_EVOLUTION_LIST);
gtk_object_add_arg_type ("ECard::list_show_addresses",
GTK_TYPE_BOOL, GTK_ARG_READWRITE, ARG_EVOLUTION_LIST_SHOW_ADDRESSES);
gtk_object_add_arg_type ("ECard::arbitrary",
GTK_TYPE_OBJECT, GTK_ARG_READWRITE, ARG_ARBITRARY);
gtk_object_add_arg_type ("ECard::id",
GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_ID);
gtk_object_add_arg_type ("ECard::last_use",
GTK_TYPE_POINTER, GTK_ARG_READWRITE, ARG_LAST_USE);
gtk_object_add_arg_type ("ECard::use_score",
GTK_TYPE_FLOAT, GTK_ARG_READWRITE, ARG_USE_SCORE);
object_class->destroy = e_card_destroy;
object_class->get_arg = e_card_get_arg;
object_class->set_arg = e_card_set_arg;
}
ECardPhone *
e_card_phone_new (void)
{
ECardPhone *newphone = g_new(ECardPhone, 1);
newphone->ref_count = 1;
newphone->number = NULL;
newphone->flags = 0;
return newphone;
}
void
e_card_phone_unref (ECardPhone *phone)
{
if (phone) {
phone->ref_count --;
if (phone->ref_count == 0) {
g_free(phone->number);
g_free(phone);
}
}
}
ECardPhone *
e_card_phone_ref (const ECardPhone *phone)
{
ECardPhone *phone_mutable = (ECardPhone *) phone;
if (phone_mutable)
phone_mutable->ref_count ++;
return phone_mutable;
}
ECardPhone *
e_card_phone_copy (const ECardPhone *phone)
{
if ( phone ) {
ECardPhone *phone_copy = e_card_phone_new();
phone_copy->number = g_strdup(phone->number);
phone_copy->flags = phone->flags;
return phone_copy;
} else
return NULL;
}
ECardDeliveryAddress *
e_card_delivery_address_new (void)
{
ECardDeliveryAddress *newaddr = g_new(ECardDeliveryAddress, 1);
newaddr->ref_count = 1;
newaddr->po = NULL;
newaddr->ext = NULL;
newaddr->street = NULL;
newaddr->city = NULL;
newaddr->region = NULL;
newaddr->code = NULL;
newaddr->country = NULL;
newaddr->flags = 0;
return newaddr;
}
void
e_card_delivery_address_unref (ECardDeliveryAddress *addr)
{
if ( addr ) {
addr->ref_count --;
if (addr->ref_count == 0) {
g_free(addr->po);
g_free(addr->ext);
g_free(addr->street);
g_free(addr->city);
g_free(addr->region);
g_free(addr->code);
g_free(addr->country);
g_free(addr);
}
}
}
ECardDeliveryAddress *
e_card_delivery_address_ref (const ECardDeliveryAddress *addr)
{
ECardDeliveryAddress *addr_mutable = (ECardDeliveryAddress *) addr;
if (addr_mutable)
addr_mutable->ref_count ++;
return addr_mutable;
}
ECardDeliveryAddress *
e_card_delivery_address_copy (const ECardDeliveryAddress *addr)
{
if ( addr ) {
ECardDeliveryAddress *addr_copy = e_card_delivery_address_new ();
addr_copy->po = g_strdup(addr->po );
addr_copy->ext = g_strdup(addr->ext );
addr_copy->street = g_strdup(addr->street );
addr_copy->city = g_strdup(addr->city );
addr_copy->region = g_strdup(addr->region );
addr_copy->code = g_strdup(addr->code );
addr_copy->country = g_strdup(addr->country);
addr_copy->flags = addr->flags;
return addr_copy;
} else
return NULL;
}
gboolean
e_card_delivery_address_is_empty (const ECardDeliveryAddress *addr)
{
return (((addr->po == NULL) || (*addr->po == 0)) &&
((addr->ext == NULL) || (*addr->ext == 0)) &&
((addr->street == NULL) || (*addr->street == 0)) &&
((addr->city == NULL) || (*addr->city == 0)) &&
((addr->region == NULL) || (*addr->region == 0)) &&
((addr->code == NULL) || (*addr->code == 0)) &&
((addr->country == NULL) || (*addr->country == 0)));
}
ECardDeliveryAddress *
e_card_delivery_address_from_label(const ECardAddrLabel *label)
{
ECardDeliveryAddress *addr = e_card_delivery_address_new ();
EAddressWestern *western = e_address_western_parse (label->data);
addr->po = g_strdup (western->po_box );
addr->ext = g_strdup (western->extended );
addr->street = g_strdup (western->street );
addr->city = g_strdup (western->locality );
addr->region = g_strdup (western->region );
addr->code = g_strdup (western->postal_code);
addr->country = g_strdup (western->country );
addr->flags = label->flags;
e_address_western_free(western);
return addr;
}
char *
e_card_delivery_address_to_string(const ECardDeliveryAddress *addr)
{
char *strings[5], **stringptr = strings;
char *line1, *line22, *line2;
char *final;
if (addr->po && *addr->po)
*(stringptr++) = addr->po;
if (addr->street && *addr->street)
*(stringptr++) = addr->street;
*stringptr = NULL;
line1 = g_strjoinv(" ", strings);
stringptr = strings;
if (addr->region && *addr->region)
*(stringptr++) = addr->region;
if (addr->code && *addr->code)
*(stringptr++) = addr->code;
*stringptr = NULL;
line22 = g_strjoinv(" ", strings);
stringptr = strings;
if (addr->city && *addr->city)
*(stringptr++) = addr->city;
if (line22 && *line22)
*(stringptr++) = line22;
*stringptr = NULL;
line2 = g_strjoinv(", ", strings);
stringptr = strings;
if (line1 && *line1)
*(stringptr++) = line1;
if (addr->ext && *addr->ext)
*(stringptr++) = addr->ext;
if (line2 && *line2)
*(stringptr++) = line2;
if (addr->country && *addr->country)
*(stringptr++) = addr->country;
*stringptr = NULL;
final = g_strjoinv("\n", strings);
g_free(line1);
g_free(line22);
g_free(line2);
return final;
}
ECardAddrLabel *
e_card_delivery_address_to_label (const ECardDeliveryAddress *addr)
{
ECardAddrLabel *label;
label = e_card_address_label_new();
label->flags = addr->flags;
label->data = e_card_delivery_address_to_string(addr);
return label;
}
ECardAddrLabel *
e_card_address_label_new (void)
{
ECardAddrLabel *newaddr = g_new(ECardAddrLabel, 1);
newaddr->ref_count = 1;
newaddr->data = NULL;
newaddr->flags = 0;
return newaddr;
}
void
e_card_address_label_unref (ECardAddrLabel *addr)
{
if (addr) {
addr->ref_count --;
if (addr->ref_count == 0) {
g_free(addr->data);
g_free(addr);
}
}
}
ECardAddrLabel *
e_card_address_label_ref (const ECardAddrLabel *addr)
{
ECardAddrLabel *addr_mutable = (ECardAddrLabel *) addr;
if (addr_mutable)
addr_mutable->ref_count ++;
return addr_mutable;
}
ECardAddrLabel *
e_card_address_label_copy (const ECardAddrLabel *addr)
{
if ( addr ) {
ECardAddrLabel *addr_copy = e_card_address_label_new ();
addr_copy->data = g_strdup(addr->data);
addr_copy->flags = addr->flags;
return addr_copy;
} else
return NULL;
}
ECardName *e_card_name_new(void)
{
ECardName *newname = g_new(ECardName, 1);
newname->ref_count = 1;
newname->prefix = NULL;
newname->given = NULL;
newname->additional = NULL;
newname->family = NULL;
newname->suffix = NULL;
return newname;
}
void
e_card_name_unref(ECardName *name)
{
if (name) {
name->ref_count --;
if (name->ref_count == 0) {
g_free (name->prefix);
g_free (name->given);
g_free (name->additional);
g_free (name->family);
g_free (name->suffix);
g_free (name);
}
}
}
ECardName *
e_card_name_ref(const ECardName *name)
{
ECardName *name_mutable = (ECardName *) name;
if (name_mutable)
name_mutable->ref_count ++;
return name_mutable;
}
ECardName *
e_card_name_copy(const ECardName *name)
{
if (name) {
ECardName *newname = e_card_name_new ();
newname->prefix = g_strdup(name->prefix);
newname->given = g_strdup(name->given);
newname->additional = g_strdup(name->additional);
newname->family = g_strdup(name->family);
newname->suffix = g_strdup(name->suffix);
return newname;
} else
return NULL;
}
char *
e_card_name_to_string(const ECardName *name)
{
char *strings[6], **stringptr = strings;
g_return_val_if_fail (name != NULL, NULL);
if (name->prefix && *name->prefix)
*(stringptr++) = name->prefix;
if (name->given && *name->given)
*(stringptr++) = name->given;
if (name->additional && *name->additional)
*(stringptr++) = name->additional;
if (name->family && *name->family)
*(stringptr++) = name->family;
if (name->suffix && *name->suffix)
*(stringptr++) = name->suffix;
*stringptr = NULL;
return g_strjoinv(" ", strings);
}
ECardName *
e_card_name_from_string(const char *full_name)
{
ECardName *name = e_card_name_new ();
ENameWestern *western = e_name_western_parse (full_name);
name->prefix = g_strdup (western->prefix);
name->given = g_strdup (western->first );
name->additional = g_strdup (western->middle);
name->family = g_strdup (western->last );
name->suffix = g_strdup (western->suffix);
e_name_western_free(western);
return name;
}
ECardArbitrary *
e_card_arbitrary_new(void)
{
ECardArbitrary *arbitrary = g_new(ECardArbitrary, 1);
arbitrary->ref_count = 1;
arbitrary->key = NULL;
arbitrary->type = NULL;
arbitrary->value = NULL;
return arbitrary;
}
void
e_card_arbitrary_unref(ECardArbitrary *arbitrary)
{
if (arbitrary) {
arbitrary->ref_count --;
if (arbitrary->ref_count == 0) {
g_free(arbitrary->key);
g_free(arbitrary->type);
g_free(arbitrary->value);
g_free(arbitrary);
}
}
}
ECardArbitrary *
e_card_arbitrary_copy(const ECardArbitrary *arbitrary)
{
if (arbitrary) {
ECardArbitrary *arb_copy = e_card_arbitrary_new ();
arb_copy->key = g_strdup(arbitrary->key);
arb_copy->type = g_strdup(arbitrary->type);
arb_copy->value = g_strdup(arbitrary->value);
return arb_copy;
} else
return NULL;
}
ECardArbitrary *
e_card_arbitrary_ref(const ECardArbitrary *arbitrary)
{
ECardArbitrary *arbitrary_mutable = (ECardArbitrary *) arbitrary;
if (arbitrary_mutable)
arbitrary_mutable->ref_count ++;
return arbitrary_mutable;
}
/* EMail matching */
static gboolean
e_card_email_match_single_string (const gchar *a, const gchar *b)
{
const gchar *xa = NULL, *xb = NULL;
gboolean match = TRUE;
for (xa=a; *xa && *xa != '@'; ++xa);
for (xb=b; *xb && *xb != '@'; ++xb);
if (xa-a != xb-b || *xa != *xb || g_strncasecmp (a, b, xa-a))
return FALSE;
if (*xa == '\0')
return TRUE;
/* Find the end of the string, then walk through backwards comparing.
This is so that we'll match joe@foobar.com and joe@mail.foobar.com.
*/
while (*xa)
++xa;
while (*xb)
++xb;
while (match && *xa != '@' && *xb != '@') {
match = (*xa == *xb);
--xa;
--xb;
}
match = match && ((*xa == *xb) || (*xa == '.') || (*xb == '.'));
return match;
}
gboolean
e_card_email_match_string (const ECard *card, const gchar *str)
{
EIterator *iter;
g_return_val_if_fail (card && E_IS_CARD (card), FALSE);
g_return_val_if_fail (str != NULL, FALSE);
iter = e_list_get_iterator (card->email);
for (e_iterator_reset (iter); e_iterator_is_valid (iter); e_iterator_next (iter)) {
if (e_card_email_match_single_string (e_iterator_get (iter), str))
return TRUE;
}
gtk_object_unref (GTK_OBJECT (iter));
return FALSE;
}
gint
e_card_email_find_number (const ECard *card, const gchar *email)
{
EIterator *iter;
gint count = 0;
g_return_val_if_fail (E_IS_CARD (card), -1);
g_return_val_if_fail (email != NULL, -1);
iter = e_list_get_iterator (card->email);
for (e_iterator_reset (iter); e_iterator_is_valid (iter); e_iterator_next (iter)) {
if (!strcmp (e_iterator_get (iter), email))
goto finished;
++count;
}
count = -1;
finished:
gtk_object_unref (GTK_OBJECT (iter));
return count;
}
/*
* ECard lifecycle management and vCard loading/saving.
*/
static void
e_card_destroy (GtkObject *object)
{
ECard *card = E_CARD(object);
g_free(card->id);
if (card->book)
gtk_object_unref (GTK_OBJECT (card->book));
g_free(card->file_as);
g_free(card->fname);
e_card_name_unref(card->name);
g_free(card->bday);
g_free(card->url);
g_free(card->org);
g_free(card->org_unit);
g_free(card->office);
g_free(card->title);
g_free(card->role);
g_free(card->manager);
g_free(card->assistant);
g_free(card->nickname);
g_free(card->spouse);
g_free(card->anniversary);
g_free(card->caluri);
g_free(card->fburl);
g_free(card->note);
g_free(card->related_contacts);
if (card->categories)
gtk_object_unref(GTK_OBJECT(card->categories));
if (card->email)
gtk_object_unref(GTK_OBJECT(card->email));
if (card->phone)
gtk_object_unref(GTK_OBJECT(card->phone));
if (card->address)
gtk_object_unref(GTK_OBJECT(card->address));
if (card->address_label)
gtk_object_unref(GTK_OBJECT(card->address_label));
}
/* Set_arg handler for the card */
static void
e_card_set_arg (GtkObject *object, GtkArg *arg, guint arg_id)
{
ECard *card;
card = E_CARD (object);
switch (arg_id) {
case ARG_FILE_AS:
g_free(card->file_as);
card->file_as = g_strdup(GTK_VALUE_STRING(*arg));
if (card->file_as == NULL)
card->file_as = g_strdup("");
break;
case ARG_FULL_NAME:
g_free(card->fname);
card->fname = g_strdup(GTK_VALUE_STRING(*arg));
if (card->fname == NULL)
card->fname = g_strdup("");
e_card_name_unref (card->name);
card->name = e_card_name_from_string (card->fname);
break;
case ARG_NAME:
e_card_name_unref (card->name);
card->name = e_card_name_ref(GTK_VALUE_POINTER(*arg));
if (card->name == NULL)
card->name = e_card_name_new();
if (card->fname == NULL) {
card->fname = e_card_name_to_string(card->name);
}
if (card->file_as == NULL) {
ECardName *name = card->name;
char *strings[3], **stringptr;
char *string;
stringptr = strings;
if (name->family && *name->family)
*(stringptr++) = name->family;
if (name->given && *name->given)
*(stringptr++) = name->given;
*stringptr = NULL;
string = g_strjoinv(", ", strings);
card->file_as = string;
}
break;
case ARG_CATEGORIES:
if (card->categories)
gtk_object_unref(GTK_OBJECT(card->categories));
card->categories = NULL;
if (GTK_VALUE_STRING(*arg))
do_parse_categories(card, GTK_VALUE_STRING(*arg));
break;
case ARG_CATEGORY_LIST:
if (card->categories)
gtk_object_unref(GTK_OBJECT(card->categories));
card->categories = E_LIST(GTK_VALUE_OBJECT(*arg));
if (card->categories)
gtk_object_ref(GTK_OBJECT(card->categories));
break;
case ARG_BIRTH_DATE:
g_free(card->bday);
if (GTK_VALUE_POINTER (*arg)) {
card->bday = g_new (ECardDate, 1);
memcpy (card->bday, GTK_VALUE_POINTER (*arg), sizeof (ECardDate));
} else {
card->bday = NULL;
}
break;
case ARG_URL:
g_free(card->url);
card->url = g_strdup(GTK_VALUE_STRING(*arg));
break;
case ARG_ORG:
g_free(card->org);
card->org = g_strdup(GTK_VALUE_STRING(*arg));
break;
case ARG_ORG_UNIT:
g_free(card->org_unit);
card->org_unit = g_strdup(GTK_VALUE_STRING(*arg));
break;
case ARG_OFFICE:
g_free(card->office);
card->office = g_strdup(GTK_VALUE_STRING(*arg));
break;
case ARG_TITLE:
g_free(card->title);
card->title = g_strdup(GTK_VALUE_STRING(*arg));
break;
case ARG_ROLE:
g_free(card->role);
card->role = g_strdup(GTK_VALUE_STRING(*arg));
break;
case ARG_MANAGER:
g_free(card->manager);
card->manager = g_strdup(GTK_VALUE_STRING(*arg));
break;
case ARG_ASSISTANT:
g_free(card->assistant);
card->assistant = g_strdup(GTK_VALUE_STRING(*arg));
break;
case ARG_NICKNAME:
g_free(card->nickname);
card->nickname = g_strdup(GTK_VALUE_STRING(*arg));
break;
case ARG_SPOUSE:
g_free(card->spouse);
card->spouse = g_strdup(GTK_VALUE_STRING(*arg));
break;
case ARG_ANNIVERSARY:
g_free(card->anniversary);
if (GTK_VALUE_POINTER (*arg)) {
card->anniversary = g_new (ECardDate, 1);
memcpy (card->anniversary, GTK_VALUE_POINTER (*arg), sizeof (ECardDate));
} else {
card->anniversary = NULL;
}
break;
case ARG_MAILER:
g_free(card->mailer);
card->mailer = g_strdup(GTK_VALUE_STRING(*arg));
break;
case ARG_CALURI:
g_free(card->caluri);
card->caluri = g_strdup(GTK_VALUE_STRING(*arg));
break;
case ARG_FBURL:
g_free(card->fburl);
card->fburl = g_strdup(GTK_VALUE_STRING(*arg));
break;
case ARG_NOTE:
g_free (card->note);
card->note = g_strdup(GTK_VALUE_STRING(*arg));
break;
case ARG_RELATED_CONTACTS:
g_free (card->related_contacts);
card->related_contacts = g_strdup(GTK_VALUE_STRING(*arg));
break;
case ARG_WANTS_HTML:
card->wants_html = GTK_VALUE_BOOL(*arg);
card->wants_html_set = TRUE;
break;
case ARG_ARBITRARY:
if (card->arbitrary)
gtk_object_unref(GTK_OBJECT(card->arbitrary));
card->arbitrary = E_LIST(GTK_VALUE_OBJECT(*arg));
if (card->arbitrary)
gtk_object_ref(GTK_OBJECT(card->arbitrary));
break;
case ARG_ID:
g_free(card->id);
card->id = g_strdup(GTK_VALUE_STRING(*arg));
break;
case ARG_LAST_USE:
g_free(card->last_use);
if (GTK_VALUE_POINTER (*arg)) {
card->last_use = g_new (ECardDate, 1);
memcpy (card->last_use, GTK_VALUE_POINTER (*arg), sizeof (ECardDate));
} else {
card->last_use = NULL;
}
break;
case ARG_USE_SCORE:
card->raw_use_score = GTK_VALUE_FLOAT(*arg);
break;
case ARG_EVOLUTION_LIST:
card->list = GTK_VALUE_BOOL(*arg);
break;
case ARG_EVOLUTION_LIST_SHOW_ADDRESSES:
card->list_show_addresses = GTK_VALUE_BOOL(*arg);
break;
default:
return;
}
}
/* Get_arg handler for the card */
static void
e_card_get_arg (GtkObject *object, GtkArg *arg, guint arg_id)
{
ECard *card;
card = E_CARD (object);
switch (arg_id) {
case ARG_FILE_AS:
GTK_VALUE_STRING (*arg) = card->file_as;
break;
case ARG_FULL_NAME:
GTK_VALUE_STRING (*arg) = card->fname;
break;
case ARG_NAME:
GTK_VALUE_POINTER(*arg) = card->name;
break;
case ARG_ADDRESS:
if (!card->address)
card->address = e_list_new((EListCopyFunc) e_card_delivery_address_ref,
(EListFreeFunc) e_card_delivery_address_unref,
NULL);
GTK_VALUE_OBJECT(*arg) = GTK_OBJECT(card->address);
break;
case ARG_ADDRESS_LABEL:
if (!card->address_label)
card->address_label = e_list_new((EListCopyFunc) e_card_address_label_ref,
(EListFreeFunc) e_card_address_label_unref,
NULL);
GTK_VALUE_OBJECT(*arg) = GTK_OBJECT(card->address_label);
break;
case ARG_PHONE:
if (!card->phone)
card->phone = e_list_new((EListCopyFunc) e_card_phone_ref,
(EListFreeFunc) e_card_phone_unref,
NULL);
GTK_VALUE_OBJECT(*arg) = GTK_OBJECT(card->phone);
break;
case ARG_EMAIL:
if (!card->email)
card->email = e_list_new((EListCopyFunc) g_strdup,
(EListFreeFunc) g_free,
NULL);
GTK_VALUE_OBJECT(*arg) = GTK_OBJECT(card->email);
break;
case ARG_CATEGORIES:
{
int i;
char ** strs;
int length;
EIterator *iterator;
if (!card->categories)
card->categories = e_list_new((EListCopyFunc) g_strdup,
(EListFreeFunc) g_free,
NULL);
length = e_list_length(card->categories);
strs = g_new(char *, length + 1);
for (iterator = e_list_get_iterator(card->categories), i = 0; e_iterator_is_valid(iterator); e_iterator_next(iterator), i++) {
strs[i] = (char *)e_iterator_get(iterator);
}
strs[i] = 0;
GTK_VALUE_STRING(*arg) = g_strjoinv(", ", strs);
g_free(strs);
}
break;
case ARG_CATEGORY_LIST:
if (!card->categories)
card->categories = e_list_new((EListCopyFunc) g_strdup,
(EListFreeFunc) g_free,
NULL);
GTK_VALUE_OBJECT(*arg) = GTK_OBJECT(card->categories);
break;
case ARG_BIRTH_DATE:
GTK_VALUE_POINTER(*arg) = card->bday;
break;
case ARG_URL:
GTK_VALUE_STRING(*arg) = card->url;
break;
case ARG_ORG:
GTK_VALUE_STRING(*arg) = card->org;
break;
case ARG_ORG_UNIT:
GTK_VALUE_STRING(*arg) = card->org_unit;
break;
case ARG_OFFICE:
GTK_VALUE_STRING(*arg) = card->office;
break;
case ARG_TITLE:
GTK_VALUE_STRING(*arg) = card->title;
break;
case ARG_ROLE:
GTK_VALUE_STRING(*arg) = card->role;
break;
case ARG_MANAGER:
GTK_VALUE_STRING(*arg) = card->manager;
break;
case ARG_ASSISTANT:
GTK_VALUE_STRING(*arg) = card->assistant;
break;
case ARG_NICKNAME:
GTK_VALUE_STRING(*arg) = card->nickname;
break;
case ARG_SPOUSE:
GTK_VALUE_STRING(*arg) = card->spouse;
break;
case ARG_ANNIVERSARY:
GTK_VALUE_POINTER(*arg) = card->anniversary;
break;
case ARG_MAILER:
GTK_VALUE_STRING(*arg) = card->mailer;
break;
case ARG_CALURI:
GTK_VALUE_STRING(*arg) = card->caluri;
break;
case ARG_FBURL:
GTK_VALUE_STRING(*arg) = card->fburl;
break;
case ARG_NOTE:
GTK_VALUE_STRING(*arg) = card->note;
break;
case ARG_RELATED_CONTACTS:
GTK_VALUE_STRING(*arg) = card->related_contacts;
break;
case ARG_WANTS_HTML:
GTK_VALUE_BOOL(*arg) = card->wants_html;
break;
case ARG_WANTS_HTML_SET:
GTK_VALUE_BOOL(*arg) = card->wants_html_set;
break;
case ARG_ARBITRARY:
if (!card->arbitrary)
card->arbitrary = e_list_new((EListCopyFunc) e_card_arbitrary_ref,
(EListFreeFunc) e_card_arbitrary_unref,
NULL);
GTK_VALUE_OBJECT(*arg) = GTK_OBJECT(card->arbitrary);
break;
case ARG_ID:
GTK_VALUE_STRING(*arg) = card->id;
break;
case ARG_LAST_USE:
GTK_VALUE_POINTER(*arg) = card->last_use;
break;
case ARG_USE_SCORE:
GTK_VALUE_FLOAT(*arg) = e_card_get_use_score (card);
break;
case ARG_EVOLUTION_LIST:
GTK_VALUE_BOOL(*arg) = card->list;
break;
case ARG_EVOLUTION_LIST_SHOW_ADDRESSES:
GTK_VALUE_BOOL(*arg) = card->list_show_addresses;
break;
default:
arg->type = GTK_TYPE_INVALID;
break;
}
}
/**
* e_card_init:
*/
static void
e_card_init (ECard *card)
{
card->id = g_strdup("");
card->file_as = NULL;
card->fname = NULL;
card->name = NULL;
card->bday = NULL;
card->email = NULL;
card->phone = NULL;
card->address = NULL;
card->address_label = NULL;
card->url = NULL;
card->org = NULL;
card->org_unit = NULL;
card->office = NULL;
card->title = NULL;
card->role = NULL;
card->manager = NULL;
card->assistant = NULL;
card->nickname = NULL;
card->spouse = NULL;
card->anniversary = NULL;
card->mailer = NULL;
card->caluri = NULL;
card->fburl = NULL;
card->note = NULL;
card->related_contacts = NULL;
card->categories = NULL;
card->wants_html = FALSE;
card->wants_html_set = FALSE;
card->list = FALSE;
card->list_show_addresses = FALSE;
card->arbitrary = NULL;
card->last_use = NULL;
card->raw_use_score = 0;
#if 0
c = g_new0 (ECard, 1);
c->fname =
c->mailer =
c->role =
c->comment =
c->categories =
c->uid = e_card_prop_str_empty ();
c->photo.type = PHOTO_JPEG;
c->logo.type = PHOTO_JPEG;
c->rev.utc = -1;
c->sound.type = SOUND_PHONETIC;
c->key.type = KEY_PGP;
c->categories.prop.encod = ENC_QUOTED_PRINTABLE;
c->comment.prop.encod = ENC_QUOTED_PRINTABLE;
c->name.prop = c->photo.prop = c->bday.prop = c->timezn.prop =
c->geopos.prop = c->logo.prop = c->org.prop = c->rev.prop =
c->sound.prop = c->key.prop = c->deladdr.prop = c->dellabel.prop =
c->phone.prop = c->email.prop = c->xtension.prop = c->prop = e_card_prop_empty ();
c->prop.type = PROP_CARD;
c->fname.prop.type = PROP_FNAME;
c->name.prop.type = PROP_NAME;
c->photo.prop.type = PROP_PHOTO;
c->bday.prop.type = PROP_BDAY;
c->deladdr.prop.type = PROP_DELADDR_LIST;
c->dellabel.prop.type = PROP_DELLABEL_LIST;
c->phone.prop.type = PROP_PHONE_LIST;
c->email.prop.type = PROP_EMAIL_LIST;
c->xtension.prop.type = PROP_XTENSION_LIST;
c->mailer.prop.type = PROP_MAILER;
c->timezn.prop.type = PROP_TIMEZN;
c->geopos.prop.type = PROP_GEOPOS;
c->role.prop.type = PROP_ROLE;
c->logo.prop.type = PROP_LOGO;
c->org.prop.type = PROP_ORG;
c->categories.prop.type = PROP_CATEGORIES;
c->comment.prop.type = PROP_COMMENT;
c->rev.prop.type = PROP_REV;
c->sound.prop.type = PROP_SOUND;
c->uid.prop.type = PROP_UID;
c->key.prop.type = PROP_KEY;
return c;
#endif
}
GList *
e_card_load_cards_from_file_with_default_charset(const char *filename, char *default_charset)
{
VObject *vobj = Parse_MIME_FromFileName((char *) filename);
GList *list = NULL;
while(vobj) {
VObject *next;
ECard *card = E_CARD(gtk_type_new(e_card_get_type()));
parse(card, vobj, default_charset);
next = nextVObjectInList(vobj);
cleanVObject(vobj);
vobj = next;
list = g_list_prepend(list, card);
}
list = g_list_reverse(list);
return list;
}
GList *
e_card_load_cards_from_file(const char *filename)
{
return e_card_load_cards_from_file_with_default_charset (filename, "UTF-8");
}
GList *
e_card_load_cards_from_string_with_default_charset(const char *str, char *default_charset)
{
VObject *vobj = Parse_MIME(str, strlen (str));
GList *list = NULL;
while(vobj) {
VObject *next;
ECard *card = E_CARD(gtk_type_new(e_card_get_type()));
parse(card, vobj, default_charset);
next = nextVObjectInList(vobj);
cleanVObject(vobj);
vobj = next;
list = g_list_prepend(list, card);
}
list = g_list_reverse(list);
return list;
}
GList *
e_card_load_cards_from_string(const char *str)
{
return e_card_load_cards_from_string_with_default_charset (str, "UTF-8");
}
void
e_card_free_empty_lists (ECard *card)
{
if (card->address && e_list_length (card->address) == 0) {
gtk_object_unref (GTK_OBJECT (card->address));
card->address = NULL;
}
if (card->address_label && e_list_length (card->address_label) == 0) {
gtk_object_unref (GTK_OBJECT (card->address_label));
card->address_label = NULL;
}
if (card->phone && e_list_length (card->phone) == 0) {
gtk_object_unref (GTK_OBJECT (card->phone));
card->phone = NULL;
}
if (card->email && e_list_length (card->email) == 0) {
gtk_object_unref (GTK_OBJECT (card->email));
card->email = NULL;
}
if (card->categories && e_list_length (card->categories) == 0) {
gtk_object_unref (GTK_OBJECT (card->categories));
card->categories = NULL;
}
if (card->arbitrary && e_list_length (card->arbitrary) == 0) {
gtk_object_unref (GTK_OBJECT (card->arbitrary));
card->arbitrary = NULL;
}
}
static void
assign_string(VObject *vobj, char *default_charset, char **string)
{
int type = vObjectValueType(vobj);
char *str;
char *charset = default_charset;
gboolean free_charset = FALSE;
VObject *charset_obj;
if ((charset_obj = isAPropertyOf (vobj, "CHARSET"))) {
switch (vObjectValueType (charset_obj)) {
case VCVT_STRINGZ:
charset = (char *) vObjectStringZValue(charset_obj);
break;
case VCVT_USTRINGZ:
charset = fakeCString (vObjectUStringZValue (charset_obj));
free_charset = TRUE;
break;
}
}
switch(type) {
case VCVT_STRINGZ:
if (strcmp (charset, "UTF-8"))
*string = e_utf8_from_charset_string (charset, vObjectStringZValue(vobj));
else
*string = g_strdup(vObjectStringZValue(vobj));
break;
case VCVT_USTRINGZ:
str = fakeCString (vObjectUStringZValue (vobj));
if (strcmp (charset, "UTF-8"))
*string = e_utf8_from_charset_string (charset, str);
else
*string = g_strdup(str);
free(str);
break;
default:
*string = g_strdup("");
break;
}
if (free_charset) {
free (charset);
}
}
#if 0
static void
e_card_str_free (CardStrProperty *sp)
{
g_free (sp->str);
e_card_prop_free (sp->prop);
}
static void
e_card_photo_free (CardPhoto *photo)
{
g_free (photo->data);
e_card_prop_free (photo->prop);
}
/**
* e_card_free:
*/
void
e_card_free (ECard *card)
{
GList *l;
g_return_if_fail (card != NULL);
e_card_name_free (& card->name);
e_card_str_free (& card->fname);
e_card_photo_free (card->photo);
e_card_logo_free (card->logo);
e_card_org_free (card->org);
e_card_key_free (card->key);
e_card_sound_free (card->sound);
e_card_prop_str_free (& card->mailer);
e_card_prop_str_free (& card->role);
e_card_prop_str_free (& card->categories);
e_card_prop_str_free (& card->comment);
e_card_prop_str_free (& card->uid);
/* address is a little more complicated */
card_prop_free (card->deladdr.prop);
while ((l = card->deladdr.l)) {
e_card_deladdr_free ((CardDelAddr *) l->data);
card->deladdr.l = g_list_remove_link (card->deladdr.l, l);
g_list_free (l);
}
g_free (card);
}
typedef struct
{
char c;
int id;
GList *sons;
} tree;
extern CardProperty
e_card_prop_empty (void)
{
CardProperty prop;
prop.used = FALSE;
prop.type = PROP_NONE;
prop.encod = ENC_7BIT;
prop.value = VAL_INLINE;
prop.charset = NULL;
prop.lang = NULL;
prop.grp = NULL;
prop.xtension = NULL;
prop.user_data = NULL;
return prop;
}
static CardStrProperty
e_card_prop_str_empty (void)
{
CardStrProperty strprop;
strprop.prop = card_prop_empty ();
strprop.str = NULL;
return strprop;
}
/* Intended to check asserts. */
extern int card_check_prop (ECardProperty prop)
{
if (((prop.used == FALSE) || (prop.used == TRUE)) &&
((prop.type >= PROP_NONE) && (prop.type <= PROP_LAST)) &&
((prop.encod >= ENC_NONE) && (prop.encod <= ENC_LAST)) &&
((prop.value >= VAL_NONE) && (prop.value <= VAL_LAST)))
return TRUE;
return FALSE;
}
extern void
card_prop_free (CardProperty prop)
{
GList *l;
g_free (prop.charset);
g_free (prop.lang);
for (l = prop.xtension; l; l = l->next) {
CardXAttribute *xa = (CardXAttribute *) l->data;
g_free (xa->name);
g_free (xa->data);
}
g_list_free (l);
prop.used = FALSE;
}
e_card_deladdr_free (ECardDelAddr *c)
{
card_prop_free (c->prop);
g_free (p->pobox);
g_free (p->ext);
g_free (p->street);
g_free (p->city);
g_free (p->region);
g_free (p->code);
g_free (p->country);
}
void
card_free (Card *crd)
{
}
static tree *
new_tree (char c, int id)
{
tree *t;
t = malloc (sizeof (tree));
t->c = c;
t->id = id;
t->sons = NULL;
return t;
}
static void
add_branch (tree *t, char *str, int id)
{
tree *tmp;
char *end;
end = str + strlen (str) + 1;
while (str != end) {
tmp = new_tree (*str, id);
t->sons = g_list_append (t->sons, (gpointer) tmp);
t = tmp;
str ++;
}
}
static tree *
add_to_tree (tree *t, struct pair p)
{
GList *node;
char *c, *end;
tree *tmp;
c = p.str;
end = c + strlen (c) + 1;
tmp = t;
while (c != end) {
for (node = tmp->sons; node; node = node->next)
if (((tree *) node->data)->c == *c) {
break;
}
if (node) {
tmp = (tree *) node->data;
tmp->id = 0;
c++;
}
else {
add_branch (tmp, c, p.id);
break;
}
}
return t;
}
static tree *
create_search_tree (void)
{
tree *t;
int i;
t = new_tree (0, 0);
for (i = 0; prop_lookup[i].str; i++)
t = add_to_tree (t, prop_lookup[i]);
return t;
}
static int
card_lookup_name (const char *c)
{
static tree *search_tree = NULL;
GList *node;
tree *tmp;
const char *end;
if (!search_tree)
search_tree = create_search_tree ();
tmp = search_tree;
end = c + strlen (c) + 1;
while (tmp->id == 0 && c != end) {
for (node = tmp->sons; node; node = node->next)
if (((tree *) node->data)->c == *c) {
break;
}
if (node) {
tmp = (tree *) node->data;
c++;
}
else
return 0;
}
return tmp->id;
}
static enum PhotoType
get_photo_type (VObject *o)
{
VObject *vo;
int i;
for (i = 0; photo_pairs[i].str; i++)
if (has (o, photo_pairs[i].str))
return photo_pairs[i].id;
g_warning ("? < No PhotoType for Photo property. Falling back to JPEG.");
return PHOTO_JPEG;
}
static CardProperty
get_CardProperty (VObject *o)
{
VObjectIterator i;
CardProperty prop;
prop = card_prop_empty ();
prop.used = TRUE;
initPropIterator (&i, o);
while (moreIteration (&i)) {
VObject *vo = nextVObject (&i);
const char *n = vObjectName (vo);
int propid;
propid = card_lookup_name (n);
switch (propid) {
case PROP_VALUE:
if (has (vo, VCContentIDProp))
prop.value = VAL_CID;
break;
case PROP_ENCODING:
if (has (vo, VCQuotedPrintableProp))
prop.encod = ENC_QUOTED_PRINTABLE;
else if (has (vo, VC8bitProp))
prop.encod = ENC_8BIT;
else if (has (vo, VCBase64Prop))
prop.encod = ENC_BASE64;
break;
case PROP_QUOTED_PRINTABLE:
prop.encod = ENC_QUOTED_PRINTABLE;
break;
case PROP_8BIT:
prop.encod = ENC_8BIT;
break;
case PROP_BASE64:
prop.encod = ENC_BASE64;
break;
case PROP_LANG:
if (vObjectValueType (vo)) {
prop.lang =
g_strdup (vObjectStringZValue (vo));
} else
g_warning ("? < No value for LANG attribute.");
break;
case PROP_CHARSET:
if (vObjectValueType (vo)) {
prop.charset =
g_strdup (vObjectStringZValue (vo));
g_warning (prop.charset);
} else
g_warning ("? < No value for CHARSET attribute.");
break;
default:
{
CardXAttribute *c;
c = malloc (sizeof (CardXAttribute));
c->name = g_strdup (n);
if (vObjectValueType (vo))
c->data =
g_strdup (vObjectStringZValue (vo));
else
c->data = NULL;
prop.xtension =
g_list_append (prop.xtension, c);
}
}
}
return prop;
}
static gboolean
e_card_prop_has (VObject *o,
const char *id)
{
g_assert (o != NULL);
g_assert (id != NULL);
if (isAPropertyOf (o, id) == NULL)
return FALSE;
return TRUE;
}
static const char *
e_card_prop_get_str (VObject *o,
const char *id)
{
VObject *strobj;
g_assert (o != NULL);
g_assert (id != NULL);
strobj = isAPropertyOf (o, id);
if (strobj == NULL)
return g_strdup ("");
if (vObjectValueType (strobj) != NULL) {
char *str;
char *g_str;
str = fakeCString (vObjectStringZValue (strobj));
g_str = g_strdup (str);
free (str);
return g_str;
}
return g_strdup ("");
}
static ECardName *
e_card_get_name (VObject *o)
{
CardName *name;
VObject *vo;
char *the_str;
name = e_card_name_new ();
name->family = e_card_prop_get_substr (o, VCFamilyNameProp);
name->given = e_card_prop_get_substr (o, VCGivenNameProp);
name->additional = e_card_prop_get_substr (o, VCAdditionalNamesProp);
name->prefix = e_card_prop_get_substr (o, VCNamePrefixesProp);
name->suffix = e_card_prop_get_substr (o, VCNameSuffixesProp);
return name;
}
static CardDelLabel *
get_CardDelLabel (VObject *o)
{
CardDelLabel *dellabel;
char *the_str;
dellabel = malloc (sizeof (CardDelLabel));
dellabel->type = get_addr_type (o);
dellabel->data = g_strdup (str_val (o));
free (the_str);
return dellabel;
}
static CardPhone *
get_CardPhone (VObject *o)
{
CardPhone *ret;
char *the_str;
ret = malloc (sizeof (CardPhone));
ret->type = get_phone_type (o);
ret->data = g_strdup (str_val (o));
free (the_str);
return ret;
}
static CardEMail *
get_CardEMail (VObject *o)
{
CardEMail *ret;
char *the_str;
ret = malloc (sizeof (CardEMail));
ret->type = get_email_type (o);
ret->data = g_strdup (str_val (o));
free (the_str);
return ret;
}
static CardTimeZone
strtoCardTimeZone (char *str)
{
char s[3];
CardTimeZone tz;
if (*str == '-') {
tz.sign = -1;
str++;
} else
tz.sign = 1;
tz.hours = 0;
tz.mins = 0;
s[2] = 0;
if (strlen (str) > 2) {
s[0] = str[0];
s[1] = str[1];
tz.hours = atoi (s);
} else {
g_warning ("? < TimeZone value is too short.");
return tz;
}
str += 2;
if (*str == ':')
str++;
if (strlen (str) >= 2) {
s[0] = str[0];
s[1] = str[1];
tz.mins = atoi (s);
} else {
g_warning ("? < TimeZone value is too short.");
return tz;
}
if (strlen (str) > 3)
g_warning ("? < TimeZone value is too long.");
return tz;
}
static CardGeoPos
strtoCardGeoPos (char *str)
{
CardGeoPos gp;
char *s;
gp.lon = 0;
gp.lat = 0;
s = strchr (str, ',');
if (! s) {
g_warning ("? < Bad format for GeoPos property.");
return gp;
}
*s = 0;
s++;
gp.lon = atof (str);
gp.lat = atof (s);
return gp;
}
static CardOrg *
e_card_vobject_to_org (VObject *o)
{
VObject *vo;
char *the_str;
CardOrg *org;
org = g_new0 (CardOrg, 1);
if (has (o, VCOrgNameProp)) {
org.name = g_strdup (str_val (vo));
free (the_str);
}
if (has (o, VCOrgUnitProp)) {
org.unit1 = g_strdup (str_val (vo));
free (the_str);
}
if (has (o, VCOrgUnit2Prop)) {
org.unit2 = g_strdup (str_val (vo));
free (the_str);
}
if (has (o, VCOrgUnit3Prop)) {
org.unit3 = g_strdup (str_val (vo));
free (the_str);
}
if (has (o, VCOrgUnit4Prop)) {
org.unit4 = g_strdup (str_val (vo));
free (the_str);
}
return org;
}
static CardXProperty *
get_XProp (VObject *o)
{
char *the_str;
CardXProperty *ret;
ret = malloc (sizeof (CardXProperty));
ret->name = g_strdup (vObjectName (o));
ret->data = g_strdup (str_val (o));
free (the_str);
return ret;
}
static CardRev
strtoCardRev (char *str)
{
char s[3], *t, *ss;
int len, i;
CardRev rev;
rev.utc = 0;
len = strlen (str);
if (str[len] == 'Z') { /* Is it UTC? */
rev.utc = 1;
str[len] = 0;
}
s[2] = 0;
t = strchr (str, 'T');
if (t) { /* Take the Time */
*t = 0;
t++;
if (strlen (t) > 2) {
s[0] = t[0];
s[1] = t[1];
rev.tm.tm_hour = atoi (s);
} else {
g_warning ("? < Rev value is too short.");
return rev;
}
t += 2;
if (*t == ':') /* Ignore ':' separator */
t++;
if (strlen (t) > 2) {
s[0] = t[0];
s[1] = t[1];
rev.tm.tm_min = atoi (s);
} else {
g_warning ("? < Rev value is too short.");
return rev;
}
t += 2;
if (*t == ':')
t++;
if (strlen (t) > 2) {
s[0] = t[0];
s[1] = t[1];
rev.tm.tm_sec = atoi (s);
} else {
g_warning ("? < Rev value is too short.");
return rev;
}
if (strlen (str) > 3)
g_warning ("? < Rev value is too long.");
} else {
g_warning ("? < No time value for Rev property.");
}
/* Now the date (the part before the T) */
if (strchr (str, '-')) { /* extended iso 8601 */
for (ss = strtok (str, "-"), i = 0; ss;
ss = strtok (NULL, "-"), i++)
switch (i) {
case 0:
rev.tm.tm_year = atoi (ss);
break;
case 1:
rev.tm.tm_mon = atoi (ss);
break;
case 2:
rev.tm.tm_mday = atoi (ss);
break;
default:
g_warning ("? < Too many values for Rev property.");
}
if (i < 2)
g_warning ("? < Too few values for Rev property.");
} else {
if (strlen (str) >= 8) { /* short representation */
rev.tm.tm_mday = atoi (str + 6);
str[6] = 0;
rev.tm.tm_mon = atoi (str + 4);
str[4] = 0;
rev.tm.tm_year = atoi (str);
} else
g_warning ("? < Bad format for Rev property.");
}
return rev;
}
static enum KeyType
get_key_type (VObject *o)
{
VObject *vo;
int i;
for (i = 0; key_pairs[i].str; i++)
if (has (o, key_pairs[i].str))
return key_pairs[i].id;
g_warning ("? < No KeyType for Key property. Falling back to PGP.");
return KEY_PGP;
}
static CardPhoto
get_CardPhoto (VObject *o)
{
VObject *vo;
char *the_str;
CardPhoto photo;
photo.type = get_photo_type (o);
if (has (o, VCDataSizeProp)) {
photo.size = vObjectIntegerValue (vo);
photo.data = malloc (photo.size);
memcpy (photo.data, vObjectAnyValue (o), photo.size);
} else {
photo.size = strlen (str_val (o)) + 1;
photo.data = g_strdup (the_str);
free (the_str);
}
return photo;
}
static enum SoundType
get_sound_type (VObject *o)
{
VObject *vo;
int i;
for (i = 0; sound_pairs[i].str; i++)
if (has (o, sound_pairs[i].str))
return sound_pairs[i].id;
return SOUND_PHONETIC;
}
static CardSound
get_CardSound (VObject *o)
{
VObject *vo;
char *the_str;
CardSound sound;
sound.type = get_sound_type (o);
if (has (o, VCDataSizeProp)) {
sound.size = vObjectIntegerValue (vo);
sound.data = malloc (sound.size);
memcpy (sound.data, vObjectAnyValue (o), sound.size);
} else {
sound.size = strlen (str_val (o));
sound.data = g_strdup (the_str);
free (the_str);
}
return sound;
}
/* Loads our card contents from a VObject */
static ECard *
e_card_construct_from_vobject (ECard *card,
VObject *vcrd)
{
VObjectIterator i;
Card *crd;
char *the_str;
initPropIterator (&i, vcrd);
crd = card_new ();
while (moreIteration (&i)) {
VObject *o = nextVObject (&i);
const char *n = vObjectName (o);
int propid;
CardProperty *prop = NULL;
propid = card_lookup_name (n);
switch (propid) {
case PROP_FNAME:
prop = &crd->fname.prop;
crd->fname.str = g_strdup (str_val (o));
free (the_str);
break;
case PROP_NAME:
prop = &crd->name.prop;
crd->name = e_card_get_name (o);
break;
case PROP_PHOTO:
prop = &crd->photo.prop;
crd->photo = get_CardPhoto (o);
break;
case PROP_BDAY:
prop = &crd->bday.prop;
crd->bday = strtoCardBDay (str_val (o));
free (the_str);
break;
case PROP_DELADDR:
{
CardDelAddr *c;
c = get_CardDelAddr (o);
prop = &c->prop;
crd->deladdr.l = g_list_append (crd->deladdr.l, c);
}
break;
case PROP_DELLABEL:
{
CardDelLabel *c;
c = get_CardDelLabel (o);
prop = &c->prop;
crd->dellabel.l = g_list_append (crd->dellabel.l, c);
}
break;
case PROP_PHONE:
{
CardPhone *c;
c = get_CardPhone (o);
prop = &c->prop;
crd->phone.l = g_list_append (crd->phone.l, c);
}
break;
case PROP_EMAIL:
{
CardEMail *c;
c = get_CardEMail (o);
prop = &c->prop;
crd->email.l = g_list_append (crd->email.l, c);
}
break;
case PROP_MAILER:
prop = &crd->mailer.prop;
crd->mailer.str = g_strdup (str_val (o));
free (the_str);
break;
case PROP_TIMEZN:
prop = &crd->timezn.prop;
crd->timezn = strtoCardTimeZone (str_val (o));
free (the_str);
break;
case PROP_GEOPOS:
prop = &crd->geopos.prop;
crd->geopos = strtoCardGeoPos (str_val (o));
break;
case PROP_ROLE:
prop = &crd->role.prop;
crd->role.str = g_strdup (str_val (o));
free (the_str);
break;
case PROP_LOGO:
prop = &crd->logo.prop;
crd->logo = get_CardPhoto (o);
break;
case PROP_AGENT:
crd->agent = card_create_from_vobject (o);
break;
case PROP_ORG:
prop = &crd->org.prop;
crd->org = get_CardOrg (o);
break;
case PROP_CATEGORIES:
prop = &crd->categories.prop;
crd->categories.str = g_strdup (str_val (o));
crd->categories.prop.encod = ENC_QUOTED_PRINTABLE;
free (the_str);
break;
case PROP_COMMENT:
prop = &crd->comment.prop;
crd->comment.str = g_strdup (str_val (o));
crd->comment.prop.encod = ENC_QUOTED_PRINTABLE;
free (the_str);
break;
case PROP_REV:
prop = &crd->rev.prop;
crd->rev = strtoCardRev (str_val (o));
free (the_str);
break;
case PROP_SOUND:
prop = &crd->sound.prop;
crd->sound = get_CardSound (o);
break;
case PROP_VERSION:
{
char *str;
str = str_val (o);
if (strcmp (str, "2.1"))
g_warning ("? < Version doesn't match.");
free (the_str);
}
break;
case PROP_KEY:
prop = &crd->key.prop;
crd->key.type = get_key_type (o);
crd->key.data = g_strdup (str_val (o));
free (the_str);
break;
default:
{
CardXProperty *c;
c = get_XProp (o);
prop = &c->prop;
crd->xtension.l = g_list_append (crd->xtension.l, c);
}
break;
}
if (prop) {
*prop = get_CardProperty (o);
prop->type = propid;
}
}
return crd;
}
/* Loads a card from a file */
GList *
card_load (GList *crdlist, char *fname)
{
VObject *vobj, *tmp;
vobj = Parse_MIME_FromFileName (fname);
if (!vobj) {
g_warning ("Could not load the cardfile");
return NULL;
}
while (vobj) {
const char *n = vObjectName (vobj);
if (strcmp (n, VCCardProp) == 0) {
crdlist = g_list_append (crdlist, (gpointer)
card_create_from_vobject (vobj));
}
tmp = vobj;
vobj = nextVObjectInList (vobj);
cleanVObject (tmp);
}
cleanVObject (vobj);
cleanStrTbl ();
return crdlist;
}
static VObject *
add_strProp (VObject *o, const char *id, char *val)
{
VObject *vo = NULL;
if (val)
vo = addPropValue (o, id, val);
return vo;
}
static VObject *
add_CardProperty (VObject *o, CardProperty *prop)
{
GList *node;
switch (prop->encod) {
case ENC_BASE64:
addProp (o, VCBase64Prop);
break;
case ENC_QUOTED_PRINTABLE:
addProp (o, VCQuotedPrintableProp);
break;
case ENC_8BIT:
addProp (o, VC8bitProp);
break;
case ENC_7BIT:
/* Do nothing: 7BIT is the default. Avoids file clutter. */
break;
default:
g_warning ("? < Card had invalid encoding type.");
}
switch (prop->value) {
case VAL_CID:
addProp (o, VCContentIDProp);
break;
case VAL_INLINE:
/* Do nothing: INLINE is the default. Avoids file clutter. */
break;
default:
g_warning ("? < Card had invalid value type.");
}
for (node = prop->xtension; node; node = node->next) {
CardXAttribute *xa = (CardXAttribute *) node->data;
if (xa->data)
addPropValue (o, xa->name, xa->data);
else
addProp (o, xa->name);
}
add_strProp (o, VCCharSetProp, prop->charset);
add_strProp (o, VCLanguageProp, prop->lang);
return o;
}
static VObject *
add_CardStrProperty (VObject *vobj, const char *id, CardStrProperty *strprop)
{
VObject *vprop;
if (strprop->prop.used) {
vprop = add_strProp (vobj, id, strprop->str);
add_CardProperty (vprop, &strprop->prop);
}
return vobj;
}
static VObject *
add_PhotoType (VObject *o, enum PhotoType photo_type)
{
int i;
for (i = 0; photo_pairs[i].str; i++)
if (photo_type == photo_pairs[i].id) {
addProp (o, photo_pairs[i].str);
return o;
}
g_warning ("? > No PhotoType for Photo property. Falling back to JPEG.");
addProp (o, VCJPEGProp);
return o;
}
static VObject *
add_AddrType (VObject *o, int addr_type)
{
int i;
for (i = 0; addr_pairs[i].str; i++)
if (addr_type & addr_pairs[i].id)
addProp (o, addr_pairs[i].str);
return o;
}
static void
add_strAddrType (GString *string, int addr_type)
{
int i, first = 1;
char *str;
if (addr_type) {
g_string_append (string, " (");
for (i = 0; addr_pairs[i].str; i++)
if (addr_type & addr_pairs[i].id) {
if (!first)
g_string_append (string, ", ");
first = 0;
str = my_cap (addr_pairs[i].str);
g_string_append (string, str);
g_free (str);
}
g_string_append_c (string, ')');
}
}
static VObject *
add_PhoneType (VObject *o, int phone_type)
{
int i;
for (i = 0; phone_pairs[i].str; i++)
if (phone_type & phone_pairs[i].id)
addProp (o, phone_pairs[i].str);
return o;
}
static void
add_strPhoneType (GString *string, int phone_type)
{
int i, first = 1;
char *str;
if (phone_type) {
g_string_append (string, " (");
for (i = 0; phone_pairs[i].str; i++)
if (phone_type & phone_pairs[i].id) {
if (!first)
g_string_append (string, ", ");
first = 0;
str = my_cap (phone_pairs[i].str);
g_string_append (string, str);
g_free (str);
}
g_string_append_c (string, ')');
}
}
static VObject *
add_EMailType (VObject *o, enum EMailType email_type)
{
int i;
for (i = 0; email_pairs[i].str; i++)
if (email_type == email_pairs[i].id) {
addProp (o, email_pairs[i].str);
return o;
}
g_warning ("? > No EMailType for EMail property. Falling back to INET.");
addProp (o, VCInternetProp);
return o;
}
static void
add_strEMailType (GString *string, int email_type)
{
int i;
char *str;
if (email_type) {
g_string_append (string, " (");
for (i = 0; email_pairs[i].str; i++)
if (email_type == email_pairs[i].id) {
str = my_cap (email_pairs[i].str);
g_string_append (string, str);
g_free (str);
break;
}
g_string_append_c (string, ')');
}
}
static VObject *
add_KeyType (VObject *o, enum KeyType key_type)
{
int i;
for (i = 0; key_pairs[i].str; i++)
if (key_type == key_pairs[i].id) {
addProp (o, key_pairs[i].str);
return o;
}
g_warning ("? > No KeyType for Key property. Falling back to PGP.");
addProp (o, VCPGPProp);
return o;
}
static void
add_strKeyType (GString *string, int key_type)
{
int i;
char *str;
if (key_type) {
g_string_append (string, " (");
for (i = 0; key_pairs[i].str; i++)
if (key_type == key_pairs[i].id) {
str = my_cap (key_pairs[i].str);
g_string_append (string, str);
g_free (str);
break;
}
g_string_append_c (string, ')');
}
}
static VObject *
add_SoundType (VObject *o, enum SoundType sound_type)
{
int i;
for (i = 0; sound_pairs[i].str; i++)
if (sound_type == sound_pairs[i].id) {
addProp (o, sound_pairs[i].str);
return o;
}
return o;
}
char *card_timezn_str (CardTimeZone timezn)
{
char *str;
str = malloc (7);
snprintf (str, 7, (timezn.sign == -1)? "-%02d:%02d" : "%02d:%02d",
timezn.hours, timezn.mins);
return str;
}
char *card_geopos_str (CardGeoPos geopos)
{
char *str;
str = malloc (15);
snprintf (str, 15, "%03.02f,%03.02f", geopos.lon, geopos.lat);
return str;
}
static void add_CardStrProperty_to_string (GString *string, char *prop_name,
CardStrProperty *strprop)
{
if (strprop->prop.used) {
if (prop_name)
g_string_append (string, prop_name);
g_string_append (string, strprop->str);
}
}
static void add_strProp_to_string (GString *string, char *prop_name, char *val)
{
if (val) {
if (prop_name)
g_string_append (string, prop_name);
g_string_append (string, val);
}
}
static void addProp_to_string (GString *string, char *prop_name)
{
if (prop_name)
g_string_append (string, prop_name);
}
char *
card_to_string (Card *crd)
{
GString *string;
char *ret;
string = g_string_new ("");
add_CardStrProperty_to_string (string, _("Card: "), &crd->fname);
if (crd->name.prop.used) {
addProp_to_string (string, N_("\nName: "));
add_strProp_to_string (string, N_("\n Prefix: "), crd->name.prefix);
add_strProp_to_string (string, N_("\n Given: "), crd->name.given);
add_strProp_to_string (string, N_("\n Additional: "), crd->name.additional);
add_strProp_to_string (string, N_("\n Family: "), crd->name.family);
add_strProp_to_string (string, N_("\n Suffix: "), crd->name.suffix);
g_string_append_c (string, '\n');
}
/* if (crd->photo.prop.used) {
addPropSizedValue (string, _ ("\nPhoto: "),
crd->photo.data, crd->photo.size);
add_PhotoType (string, crd->photo.type);
}*/
if (crd->bday.prop.used) {
char *date_str;
date_str = card_bday_str (crd->bday);
add_strProp_to_string (string, N_("\nBirth Date: "), date_str);
free (date_str);
}
if (crd->deladdr.l) {
GList *node;
for (node = crd->deladdr.l; node; node = node->next) {
CardDelAddr *deladdr = (CardDelAddr *) node->data;
if (deladdr->prop.used) {
addProp_to_string (string, N_("\nAddress:"));
add_strAddrType (string, deladdr->type);
add_strProp_to_string (string, N_("\n Postal Box: "), deladdr->po);
add_strProp_to_string (string, N_("\n Ext: "), deladdr->ext);
add_strProp_to_string (string, N_("\n Street: "), deladdr->street);
add_strProp_to_string (string, N_("\n City: "), deladdr->city);
add_strProp_to_string (string, N_("\n Region: "), deladdr->region);
add_strProp_to_string (string, N_("\n Postal Code: "), deladdr->code);
add_strProp_to_string (string, N_("\n Country: "), deladdr->country);
}
}
g_string_append_c (string, '\n');
}
if (crd->dellabel.l) {
GList *node;
for (node = crd->dellabel.l; node; node = node->next) {
CardDelLabel *dellabel = (CardDelLabel *) node->data;
add_strProp_to_string (string, N_("\nDelivery Label: "),
dellabel->data);
add_strAddrType (string, dellabel->type);
}
}
if (crd->phone.l) {
GList *node;
char *sep;
if (crd->phone.l->next) {
sep = " ";
g_string_append (string, N_("\nTelephones:\n"));
} else {
sep = " ";
g_string_append (string, N_("\nTelephone:"));
}
for (node = crd->phone.l; node; node = node->next) {
CardPhone *phone = (CardPhone *) node->data;
if (phone->prop.used) {
g_string_append (string, sep);
g_string_append (string, phone->data);
add_strPhoneType (string, phone->type);
g_string_append_c (string, '\n');
}
}
if (crd->phone.l->next)
g_string_append_c (string, '\n');
}
if (crd->email.l) {
GList *node;
char *sep;
if (crd->email.l->next) {
sep = " ";
g_string_append (string, N_("\nE-mail:\n"));
} else {
sep = " ";
g_string_append (string, N_("\nE-mail:"));
}
for (node = crd->email.l; node; node = node->next) {
CardEMail *email = (CardEMail *) node->data;
if (email->prop.used) {
g_string_append (string, sep);
g_string_append (string, email->data);
add_strEMailType (string, email->type);
g_string_append_c (string, '\n');
}
}
if (crd->email.l->next)
g_string_append_c (string, '\n');
}
add_CardStrProperty_to_string (string, N_("\nMailer: "), &crd->mailer);
if (crd->timezn.prop.used) {
char *str;
str = card_timezn_str (crd->timezn);
add_strProp_to_string (string, N_("\nTime Zone: "), str);
free (str);
}
if (crd->geopos.prop.used) {
char *str;
str = card_geopos_str (crd->geopos);
add_strProp_to_string (string, N_("\nGeo Location: "), str);
free (str);
}
add_CardStrProperty_to_string (string, N_("\nBusiness Role: "), &crd->role);
/* if (crd->logo.prop.used) {
addPropSizedValue (string, _ ("\nLogo: "),
crd->logo.data, crd->logo.size);
add_PhotoType (string, crd->logo.type);
}*/
/* if (crd->agent)
addstringectProp (string, card_convert_to_stringect (crd->agent));*/
if (crd->org.prop.used) {
addProp_to_string (string, N_("\nOrg: "));
add_strProp_to_string (string, N_("\n Name: "), crd->org.name);
add_strProp_to_string (string, N_("\n Unit: "), crd->org.unit1);
add_strProp_to_string (string, N_("\n Unit2: "), crd->org.unit2);
add_strProp_to_string (string, N_("\n Unit3: "), crd->org.unit3);
add_strProp_to_string (string, N_("\n Unit4: "), crd->org.unit4);
g_string_append_c (string, '\n');
}
add_CardStrProperty_to_string (string, N_("\nCategories: "), &crd->categories);
add_CardStrProperty_to_string (string, N_("\nComment: "), &crd->comment);
/* if (crd->sound.prop.used) {
if (crd->sound.type != SOUND_PHONETIC)
addPropSizedValue (string, _ ("\nPronunciation: "),
crd->sound.data, crd->sound.size);
else
add_strProp_to_string (string, _ ("\nPronunciation: "),
crd->sound.data);
add_SoundType (string, crd->sound.type);
}*/
add_CardStrProperty_to_string (string, N_("\nUnique String: "), &crd->uid);
if (crd->key.prop.used) {
add_strProp_to_string (string, N_("\nPublic Key: "), crd->key.data);
add_strKeyType (string, crd->key.type);
}
ret = g_strdup (string->str);
g_string_free (string, TRUE);
return ret;
}
#endif
static ECardDate
e_card_date_from_string (char *str)
{
ECardDate date;
int length;
date.year = 0;
date.month = 0;
date.day = 0;
length = strlen(str);
if (length == 10 ) {
date.year = str[0] * 1000 + str[1] * 100 + str[2] * 10 + str[3] - '0' * 1111;
date.month = str[5] * 10 + str[6] - '0' * 11;
date.day = str[8] * 10 + str[9] - '0' * 11;
} else if ( length == 8 ) {
date.year = str[0] * 1000 + str[1] * 100 + str[2] * 10 + str[3] - '0' * 1111;
date.month = str[4] * 10 + str[5] - '0' * 11;
date.day = str[6] * 10 + str[7] - '0' * 11;
}
return date;
}
char *
e_v_object_get_child_value(VObject *vobj, char *name, char *default_charset)
{
char *ret_val;
VObjectIterator iterator;
gboolean free_charset = FALSE;
VObject *charset_obj;
if ((charset_obj = isAPropertyOf (vobj, "CHARSET"))) {
switch (vObjectValueType (charset_obj)) {
case VCVT_STRINGZ:
default_charset = (char *) vObjectStringZValue(charset_obj);
break;
case VCVT_USTRINGZ:
default_charset = fakeCString (vObjectUStringZValue (charset_obj));
free_charset = TRUE;
break;
}
}
initPropIterator(&iterator, vobj);
while(moreIteration (&iterator)) {
VObject *attribute = nextVObject(&iterator);
const char *id = vObjectName(attribute);
if ( ! strcmp(id, name) ) {
assign_string(attribute, default_charset, &ret_val);
return ret_val;
}
}
if (free_charset)
free (default_charset);
return NULL;
}
static ECardPhoneFlags
get_phone_flags (VObject *vobj)
{
ECardPhoneFlags ret = 0;
int i;
struct {
char *id;
ECardPhoneFlags flag;
} phone_pairs[] = {
{ VCPreferredProp, E_CARD_PHONE_PREF },
{ VCWorkProp, E_CARD_PHONE_WORK },
{ VCHomeProp, E_CARD_PHONE_HOME },
{ VCVoiceProp, E_CARD_PHONE_VOICE },
{ VCFaxProp, E_CARD_PHONE_FAX },
{ VCMessageProp, E_CARD_PHONE_MSG },
{ VCCellularProp, E_CARD_PHONE_CELL },
{ VCPagerProp, E_CARD_PHONE_PAGER },
{ VCBBSProp, E_CARD_PHONE_BBS },
{ VCModemProp, E_CARD_PHONE_MODEM },
{ VCCarProp, E_CARD_PHONE_CAR },
{ VCISDNProp, E_CARD_PHONE_ISDN },
{ VCVideoProp, E_CARD_PHONE_VIDEO },
{ "X-EVOLUTION-ASSISTANT", E_CARD_PHONE_ASSISTANT },
{ "X-EVOLUTION-CALLBACK", E_CARD_PHONE_CALLBACK },
{ "X-EVOLUTION-RADIO", E_CARD_PHONE_RADIO },
{ "X-EVOLUTION-TELEX", E_CARD_PHONE_TELEX },
{ "X-EVOLUTION-TTYTDD", E_CARD_PHONE_TTYTDD },
};
for (i = 0; i < sizeof(phone_pairs) / sizeof(phone_pairs[0]); i++) {
if (isAPropertyOf (vobj, phone_pairs[i].id)) {
ret |= phone_pairs[i].flag;
}
}
return ret;
}
static void
set_phone_flags (VObject *vobj, ECardPhoneFlags flags)
{
int i;
struct {
char *id;
ECardPhoneFlags flag;
} phone_pairs[] = {
{ VCPreferredProp, E_CARD_PHONE_PREF },
{ VCWorkProp, E_CARD_PHONE_WORK },
{ VCHomeProp, E_CARD_PHONE_HOME },
{ VCVoiceProp, E_CARD_PHONE_VOICE },
{ VCFaxProp, E_CARD_PHONE_FAX },
{ VCMessageProp, E_CARD_PHONE_MSG },
{ VCCellularProp, E_CARD_PHONE_CELL },
{ VCPagerProp, E_CARD_PHONE_PAGER },
{ VCBBSProp, E_CARD_PHONE_BBS },
{ VCModemProp, E_CARD_PHONE_MODEM },
{ VCCarProp, E_CARD_PHONE_CAR },
{ VCISDNProp, E_CARD_PHONE_ISDN },
{ VCVideoProp, E_CARD_PHONE_VIDEO },
{ "X-EVOLUTION-ASSISTANT", E_CARD_PHONE_ASSISTANT },
{ "X-EVOLUTION-CALLBACK", E_CARD_PHONE_CALLBACK },
{ "X-EVOLUTION-RADIO", E_CARD_PHONE_RADIO },
{ "X-EVOLUTION-TELEX", E_CARD_PHONE_TELEX },
{ "X-EVOLUTION-TTYTDD", E_CARD_PHONE_TTYTDD },
};
for (i = 0; i < sizeof(phone_pairs) / sizeof(phone_pairs[0]); i++) {
if (flags & phone_pairs[i].flag) {
addProp (vobj, phone_pairs[i].id);
}
}
}
static ECardAddressFlags
get_address_flags (VObject *vobj)
{
ECardAddressFlags ret = 0;
int i;
struct {
char *id;
ECardAddressFlags flag;
} addr_pairs[] = {
{ VCDomesticProp, E_CARD_ADDR_DOM },
{ VCInternationalProp, E_CARD_ADDR_INTL },
{ VCPostalProp, E_CARD_ADDR_POSTAL },
{ VCParcelProp, E_CARD_ADDR_PARCEL },
{ VCHomeProp, E_CARD_ADDR_HOME },
{ VCWorkProp, E_CARD_ADDR_WORK },
};
for (i = 0; i < sizeof(addr_pairs) / sizeof(addr_pairs[0]); i++) {
if (isAPropertyOf (vobj, addr_pairs[i].id)) {
ret |= addr_pairs[i].flag;
}
}
return ret;
}
static void
set_address_flags (VObject *vobj, ECardAddressFlags flags)
{
int i;
struct {
char *id;
ECardAddressFlags flag;
} addr_pairs[] = {
{ VCDomesticProp, E_CARD_ADDR_DOM },
{ VCInternationalProp, E_CARD_ADDR_INTL },
{ VCPostalProp, E_CARD_ADDR_POSTAL },
{ VCParcelProp, E_CARD_ADDR_PARCEL },
{ VCHomeProp, E_CARD_ADDR_HOME },
{ VCWorkProp, E_CARD_ADDR_WORK },
};
for (i = 0; i < sizeof(addr_pairs) / sizeof(addr_pairs[0]); i++) {
if (flags & addr_pairs[i].flag) {
addProp (vobj, addr_pairs[i].id);
}
}
}
#include <Evolution-Composer.h>
#define COMPOSER_OAFID "OAFIID:GNOME_Evolution_Mail_Composer"
void
e_card_list_send (GList *cards, ECardDisposition disposition)
{
BonoboObjectClient *bonobo_server;
GNOME_Evolution_Composer composer_server;
CORBA_Environment ev;
if (cards == NULL)
return;
/* First, I obtain an object reference that represents the Composer. */
bonobo_server = bonobo_object_activate (COMPOSER_OAFID, 0);
g_return_if_fail (bonobo_server != NULL);
composer_server = bonobo_object_corba_objref (BONOBO_OBJECT (bonobo_server));
CORBA_exception_init (&ev);
if (disposition == E_CARD_DISPOSITION_AS_TO) {
GNOME_Evolution_Composer_RecipientList *to_list, *cc_list, *bcc_list;
CORBA_char *subject;
int to_i, bcc_i;
GList *iter;
gint to_length = 0, bcc_length = 0;
/* Figure out how many addresses of each kind we have. */
for (iter = cards; iter != NULL; iter = g_list_next (iter)) {
ECard *card = E_CARD (iter->data);
if (e_card_evolution_list (card)) {
gint len = card->email ? e_list_length (card->email) : 0;
if (e_card_evolution_list_show_addresses (card))
to_length += len;
else
bcc_length += len;
} else {
if (card->email != NULL)
++to_length;
}
}
/* Now I have to make a CORBA sequences that represents a recipient list with
the right number of entries, for the cards. */
to_list = GNOME_Evolution_Composer_RecipientList__alloc ();
to_list->_maximum = to_length;
to_list->_length = to_length;
if (to_length > 0) {
to_list->_buffer = CORBA_sequence_GNOME_Evolution_Composer_Recipient_allocbuf (to_length);
}
cc_list = GNOME_Evolution_Composer_RecipientList__alloc ();
cc_list->_maximum = cc_list->_length = 0;
bcc_list = GNOME_Evolution_Composer_RecipientList__alloc ();
bcc_list->_maximum = bcc_length;
bcc_list->_length = bcc_length;
if (bcc_length > 0) {
bcc_list->_buffer = CORBA_sequence_GNOME_Evolution_Composer_Recipient_allocbuf (bcc_length);
}
to_i = 0;
bcc_i = 0;
while (cards != NULL) {
ECard *card = cards->data;
EIterator *iterator;
gchar *name, *addr;
gboolean is_list, is_hidden, free_name_addr;
GNOME_Evolution_Composer_Recipient *recipient;
if (card->email != NULL) {
is_list = e_card_evolution_list (card);
is_hidden = is_list && !e_card_evolution_list_show_addresses (card);
for (iterator = e_list_get_iterator (card->email); e_iterator_is_valid (iterator); e_iterator_next (iterator)) {
if (is_hidden) {
recipient = &(bcc_list->_buffer[bcc_i]);
++bcc_i;
} else {
recipient = &(to_list->_buffer[to_i]);
++to_i;
}
name = "";
addr = "";
free_name_addr = FALSE;
if (e_iterator_is_valid (iterator)) {
if (is_list) {
/* We need to decode the list entries, which are XMLified EDestinations. */
EDestination *dest = e_destination_import (e_iterator_get (iterator));
if (dest != NULL) {
name = g_strdup (e_destination_get_name (dest));
addr = g_strdup (e_destination_get_email (dest));
free_name_addr = TRUE;
gtk_object_unref (GTK_OBJECT (dest));
}
} else { /* is just a plain old card */
if (card->name)
name = e_card_name_to_string (card->name);
addr = g_strdup ((char *) e_iterator_get (iterator));
free_name_addr = TRUE;
}
}
recipient->name = CORBA_string_dup (name ? name : "");
recipient->address = CORBA_string_dup (addr ? addr : "");
if (free_name_addr) {
g_free ((gchar *) name);
g_free ((gchar *) addr);
}
/* If this isn't a list, we quit after the first (i.e. the default) address. */
if (!is_list)
break;
}
gtk_object_unref (GTK_OBJECT (iterator));
}
cards = g_list_next (cards);
}
subject = CORBA_string_dup ("");
GNOME_Evolution_Composer_setHeaders (composer_server, to_list, cc_list, bcc_list, subject, &ev);
if (ev._major != CORBA_NO_EXCEPTION) {
g_printerr ("gui/e-meeting-edit.c: I couldn't set the composer headers via CORBA! Aagh.\n");
CORBA_exception_free (&ev);
return;
}
CORBA_free (to_list);
CORBA_free (cc_list);
CORBA_free (bcc_list);
CORBA_free (subject);
}
if (disposition == E_CARD_DISPOSITION_AS_ATTACHMENT) {
CORBA_char *content_type, *filename, *description;
GNOME_Evolution_Composer_AttachmentData *attach_data;
CORBA_boolean show_inline;
char *tempstr;
content_type = CORBA_string_dup ("text/x-vcard");
filename = CORBA_string_dup ("");
if (cards->next) {
description = CORBA_string_dup (_("Multiple VCards"));
} else {
char *file_as;
gtk_object_get(GTK_OBJECT(cards->data),
"file_as", &file_as,
NULL);
tempstr = g_strdup_printf (_("VCard for %s"), file_as);
description = CORBA_string_dup (tempstr);
g_free (tempstr);
}
show_inline = FALSE;
tempstr = e_card_list_get_vcard (cards);
attach_data = GNOME_Evolution_Composer_AttachmentData__alloc();
attach_data->_maximum = attach_data->_length = strlen (tempstr);
attach_data->_buffer = CORBA_sequence_CORBA_char_allocbuf (attach_data->_length);
strcpy (attach_data->_buffer, tempstr);
g_free (tempstr);
GNOME_Evolution_Composer_attachData (composer_server,
content_type, filename, description,
show_inline, attach_data,
&ev);
if (ev._major != CORBA_NO_EXCEPTION) {
g_printerr ("gui/e-meeting-edit.c: I couldn't attach data to the composer via CORBA! Aagh.\n");
CORBA_exception_free (&ev);
return;
}
CORBA_free (content_type);
CORBA_free (filename);
CORBA_free (description);
CORBA_free (attach_data);
}
GNOME_Evolution_Composer_show (composer_server, &ev);
if (ev._major != CORBA_NO_EXCEPTION) {
g_printerr ("gui/e-meeting-edit.c: I couldn't show the composer via CORBA! Aagh.\n");
CORBA_exception_free (&ev);
return;
}
CORBA_exception_free (&ev);
}
void
e_card_send (ECard *card, ECardDisposition disposition)
{
GList *list;
list = g_list_prepend (NULL, card);
e_card_list_send (list, disposition);
g_list_free (list);
}
gboolean
e_card_evolution_list (ECard *card)
{
g_return_val_if_fail (card && E_IS_CARD (card), FALSE);
return card->list;
}
gboolean
e_card_evolution_list_show_addresses (ECard *card)
{
g_return_val_if_fail (card && E_IS_CARD (card), FALSE);
return card->list_show_addresses;
}
typedef struct _CardLoadData CardLoadData;
struct _CardLoadData {
gchar *card_id;
ECardCallback cb;
gpointer closure;
};
static void
get_card_cb (EBook *book, EBookStatus status, ECard *card, gpointer closure)
{
CardLoadData *data = (CardLoadData *) closure;
if (data->cb != NULL) {
if (status == E_BOOK_STATUS_SUCCESS)
data->cb (card, data->closure);
else
data->cb (NULL, data->closure);
}
g_free (data->card_id);
g_free (data);
}
static void
card_load_cb (EBook *book, EBookStatus status, gpointer closure)
{
CardLoadData *data = (CardLoadData *) closure;
if (status == E_BOOK_STATUS_SUCCESS)
e_book_get_card (book, data->card_id, get_card_cb, closure);
else {
data->cb (NULL, data->closure);
g_free (data->card_id);
g_free (data);
}
}
void
e_card_load_uri (const gchar *book_uri, const gchar *uid, ECardCallback cb, gpointer closure)
{
CardLoadData *data;
EBook *book;
data = g_new (CardLoadData, 1);
data->card_id = g_strdup (uid);
data->cb = cb;
data->closure = closure;
book = e_book_new ();
e_book_load_uri (book, book_uri, card_load_cb, data);
}