static gint
default_sort (gnc_commodity *comm_a, gnc_commodity *comm_b)
{
gint fraction_a, fraction_b, result;
result = safe_utf8_collate (gnc_commodity_get_namespace (comm_a),
gnc_commodity_get_namespace (comm_b));
if (result != 0) return result;
result = safe_utf8_collate (gnc_commodity_get_mnemonic (comm_a),
gnc_commodity_get_mnemonic (comm_b));
if (result != 0) return result;
result = safe_utf8_collate (gnc_commodity_get_fullname (comm_a),
gnc_commodity_get_fullname (comm_b));
if (result != 0) return result;
result = safe_utf8_collate (gnc_commodity_get_cusip (comm_a),
gnc_commodity_get_cusip (comm_b));
if (result != 0) return result;
fraction_a = gnc_commodity_get_fraction (comm_a);
fraction_b = gnc_commodity_get_fraction (comm_b);
if (fraction_a < fraction_b)
return -1;
if (fraction_b < fraction_a)
return 1;
return 0;
}
xmlNodePtr
gnc_commodity_dom_tree_create(const gnc_commodity *com)
{
gnc_quote_source *source;
const char *string;
xmlNodePtr ret;
gboolean currency = gnc_commodity_is_iso(com);
xmlNodePtr slotsnode =
qof_instance_slots_to_dom_tree(cmdty_slots, QOF_INSTANCE(com));
if (currency && !gnc_commodity_get_quote_flag(com) && !slotsnode)
return NULL;
ret = xmlNewNode(NULL, BAD_CAST gnc_commodity_string);
xmlSetProp(ret, BAD_CAST "version", BAD_CAST commodity_version_string);
xmlAddChild(ret, text_to_dom_tree(cmdty_namespace,
gnc_commodity_get_namespace_compat(com)));
xmlAddChild(ret, text_to_dom_tree(cmdty_id,
gnc_commodity_get_mnemonic(com)));
if (!currency)
{
if (gnc_commodity_get_fullname(com))
{
xmlAddChild(ret, text_to_dom_tree(cmdty_name,
gnc_commodity_get_fullname(com)));
}
if (gnc_commodity_get_cusip(com) &&
strlen(gnc_commodity_get_cusip(com)) > 0)
{
xmlAddChild(ret, text_to_dom_tree(
cmdty_xcode,
gnc_commodity_get_cusip(com)));
}
xmlAddChild(ret, int_to_dom_tree(cmdty_fraction,
gnc_commodity_get_fraction(com)));
}
if (gnc_commodity_get_quote_flag(com))
{
xmlNewChild(ret, NULL, BAD_CAST cmdty_get_quotes, NULL);
source = gnc_commodity_get_quote_source(com);
if (source)
xmlAddChild(ret, text_to_dom_tree(cmdty_quote_source,
gnc_quote_source_get_internal_name(source)));
string = gnc_commodity_get_quote_tz(com);
if (string)
xmlAddChild(ret, text_to_dom_tree(cmdty_quote_tz, string));
}
if (slotsnode)
xmlAddChild(ret, slotsnode);
return ret;
}
static const char*
node_and_commodity_equal (xmlNodePtr node, const gnc_commodity* com)
{
xmlNodePtr mark;
while (g_strcmp0 ((char*)node->name, "text") == 0)
node = node->next;
if (!check_dom_tree_version (node, "2.0.0"))
{
return "version wrong. Not 2.0.0 or not there";
}
if (!node->name || g_strcmp0 ((char*)node->name, "gnc:commodity"))
{
return "Name of toplevel node is bad";
}
for (mark = node->xmlChildrenNode; mark; mark = mark->next)
{
if (g_strcmp0 ((char*)mark->name, "text") == 0)
{
}
else if (g_strcmp0 ((char*)mark->name, "cmdty:space") == 0)
{
if (!equals_node_val_vs_string (
mark, gnc_commodity_get_namespace_compat (com)))
{
return "namespaces differ";
}
}
else if (g_strcmp0 ((char*)mark->name, "cmdty:id") == 0)
{
if (!equals_node_val_vs_string (
mark, gnc_commodity_get_mnemonic (com)))
{
return "mnemonic differ";
}
}
else if (g_strcmp0 ((char*)mark->name, "cmdty:name") == 0)
{
if (!equals_node_val_vs_string (
mark, gnc_commodity_get_fullname (com)))
{
return "names differ";
}
}
else if (g_strcmp0 ((char*)mark->name, "cmdty:xcode") == 0)
{
if (!equals_node_val_vs_string (
mark, gnc_commodity_get_cusip (com)))
{
return "exchange codes differ";
}
}
else if (g_strcmp0 ((char*)mark->name, "cmdty:fraction") == 0)
{
gchar* txt;
gint64 type;
txt = dom_tree_to_text (mark);
if (!txt)
{
return "couldn't get fraction string";
}
else if (!string_to_gint64 (txt, &type))
{
g_free (txt);
return "couldn't convert fraction string to int";
}
else if (type != gnc_commodity_get_fraction (com))
{
g_free (txt);
return "fractions differ";
}
else
{
g_free (txt);
}
}
else if (g_strcmp0 ((char*)mark->name, "cmdty:slots") == 0)
{
if (!equals_node_val_vs_kvp_frame (mark,
gnc_commodity_get_kvp_frame (com)))
return "slots differ";
}
/* Legitimate tags which we don't yet have tests */
else if (g_strcmp0 ((char*)mark->name, "cmdty:get_quotes") == 0 ||
g_strcmp0 ((char*)mark->name, "cmdty:quote_source") == 0 ||
g_strcmp0 ((char*)mark->name, "cmdty:quote_tz") == 0)
{
continue;
}
else
{
return "unknown node";
}
}
return NULL;
}
gnc_commodity * gnc_import_select_commodity(const char * cusip,
gboolean ask_on_unknown,
const char * default_fullname,
const char * default_mnemonic)
{
const gnc_commodity_table * commodity_table = gnc_get_current_commodities ();
gnc_commodity * retval = NULL;
gnc_commodity * tmp_commodity = NULL;
char * tmp_namespace = NULL;
GList * commodity_list = NULL;
GList * namespace_list = NULL;
DEBUG("Default fullname received: %s",
default_fullname ? default_fullname : "(null)");
DEBUG("Default mnemonic received: %s",
default_mnemonic ? default_mnemonic : "(null)");
g_return_val_if_fail(cusip, NULL);
DEBUG("Looking for commodity with exchange_code: %s", cusip);
g_assert(commodity_table);
namespace_list = gnc_commodity_table_get_namespaces(commodity_table);
namespace_list = g_list_first(namespace_list);
while ( namespace_list != NULL && retval == NULL)
{
tmp_namespace = namespace_list->data;
DEBUG("Looking at namespace %s", tmp_namespace);
commodity_list = gnc_commodity_table_get_commodities(commodity_table,
tmp_namespace);
commodity_list = g_list_first(commodity_list);
while ( commodity_list != NULL && retval == NULL)
{
const char* tmp_cusip = NULL;
tmp_commodity = commodity_list->data;
DEBUG("Looking at commodity %s",
gnc_commodity_get_fullname(tmp_commodity));
tmp_cusip = gnc_commodity_get_cusip(tmp_commodity);
if (tmp_cusip != NULL && cusip != NULL)
{
int len = strlen(cusip) > strlen(tmp_cusip) ? strlen(cusip) :
strlen(tmp_cusip);
if (strncmp(tmp_cusip, cusip, len) == 0)
{
retval = tmp_commodity;
DEBUG("Commodity %s%s",
gnc_commodity_get_fullname(retval), " matches.");
}
}
commodity_list = g_list_next(commodity_list);
}
namespace_list = g_list_next(namespace_list);
}
g_list_free(commodity_list);
g_list_free(namespace_list);
if (retval == NULL && ask_on_unknown != 0)
{
const gchar *message =
_("Please select a commodity to match the following exchange "
"specific code. Please note that the exchange code of the "
"commodity you select will be overwritten.");
retval = gnc_ui_select_commodity_modal_full(NULL,
NULL,
DIAG_COMM_ALL,
message,
cusip,
default_fullname,
default_mnemonic);
}
/* There seems to be a problem here - if the matched commodity does not
have a cusip defined (gnc_commodity_get_cusip returns NULL) then
it does not get overwritten - which is not consistent with the
message - so Im adding it to do this. Looks like this is all
that was needed to fix the cash value used as stock units problem
for pre-defined commodities which didnt have the cusip defined! */
if (retval != NULL &&
gnc_commodity_get_cusip(retval) != NULL &&
cusip != NULL &&
(strncmp(gnc_commodity_get_cusip(retval), cusip, strlen(cusip)) != 0))
{
gnc_commodity_set_cusip(retval, cusip);
}
else if (gnc_commodity_get_cusip(retval) == NULL && cusip != NULL)
{
gnc_commodity_set_cusip(retval, cusip);
}
return retval;
};
