gnc-sx-instance-model.h File Reference

#include <config.h>
#include <glib.h>
#include <glib-object.h>
#include "gnc-numeric.h"
#include "SchedXaction.h"

Go to the source code of this file.

Data Structures
struct	GncSxInstances
struct	GncSxVariable
struct	GncSxInstance
struct	GncSxVariableNeeded
struct	GncSxSummary

Macros
#define	GNC_TYPE_SX_INSTANCE_MODEL   (gnc_sx_instance_model_get_type ())

Enumerations
enum	GncSxInstanceState {   SX_INSTANCE_STATE_IGNORED , SX_INSTANCE_STATE_POSTPONED , SX_INSTANCE_STATE_TO_CREATE , SX_INSTANCE_STATE_REMINDER ,   SX_INSTANCE_STATE_CREATED , SX_INSTANCE_STATE_MAX_STATE }

Functions
GncSxInstanceModel *	gnc_sx_get_current_instances (void)
	Shorthand for get_instances(now, FALSE);.
GncSxInstanceModel *	gnc_sx_get_instances (const GDate *range_end, gboolean include_disabled)
	Allocates a new SxInstanceModel and fills it with generated instances for all scheduled transactions up to the given range_end date.
GncSxInstanceModel *	gnc_sx_get_select_instances (GList *sel_sxes)
	Allocates a new SxInstanceModel and fills it with generated instances for the given scheduled transactions up to now.
void	gnc_sx_instance_model_update_sx_instances (GncSxInstanceModel *model, SchedXaction *sx)
	Regenerates and updates the GncSxInstances* for the given SX.
void	gnc_sx_instance_model_remove_sx_instances (GncSxInstanceModel *model, SchedXaction *sx)
void	gnc_sx_scrub_split_numerics (gpointer psplit, gpointer user)
	Fix up numerics where they've gotten out-of-sync with the formulas.
GList *	gnc_sx_instance_get_variables (GncSxInstance *inst)
Account *	gnc_sx_get_template_transaction_account (const SchedXaction *sx)
GHashTable *	gnc_sx_instance_get_variables_for_parser (GHashTable *instance_var_hash)
GncSxVariable *	gnc_sx_variable_new_full (gchar *name, gnc_numeric value, gboolean editable)
void	gnc_sx_variable_free (GncSxVariable *var)
void	gnc_sx_instance_model_change_instance_state (GncSxInstanceModel *model, GncSxInstance *instance, GncSxInstanceState new_state)
	There is a constraint around a sequence of upcoming instance states.
void	gnc_sx_instance_model_set_variable (GncSxInstanceModel *model, GncSxInstance *instance, GncSxVariable *variable, gnc_numeric *new_value)
GList *	gnc_sx_instance_model_check_variables (GncSxInstanceModel *model)
void	gnc_sx_instance_model_effect_change (GncSxInstanceModel *model, gboolean auto_create_only, GList **created_transaction_guids, GList **creation_errors)
	Really ("effectively") create the transactions from the SX instances in the given model.
void	gnc_sx_instance_model_summarize (GncSxInstanceModel *model, GncSxSummary *summary)
void	gnc_sx_summary_print (const GncSxSummary *summary)
	Debug output to trace file.
void	gnc_sx_get_variables (SchedXaction *sx, GHashTable *var_hash)
int	gnc_sx_parse_vars_from_formula (const char *formula, GHashTable *var_hash, gnc_numeric *result)
void	gnc_sx_randomize_variables (GHashTable *vars)
GHashTable *	gnc_g_hash_new_guid_numeric (void)
	Returns a GHashTable<GUID*, gnc_numeric*> with no destructor for the key, but a destructor for the value set.
void	gnc_sx_all_instantiate_cashflow (GList *all_sxes, const GDate *range_start, const GDate *range_end, GHashTable *map, GList **creation_errors)
	Instantiates the cash flow of all given SXs (in the given GList<SchedXAction*>) into the GHashTable<GUID*, gnc_numeric*> for the given date range.
GHashTable *	gnc_sx_all_instantiate_cashflow_all (GDate range_start, GDate range_end)
	Simplified wrapper around gnc_sx_all_instantiate_cashflow(): Run that function on all SX of the current book for the given date range.
GList *	gnc_sx_instance_model_get_sx_instances_list (GncSxInstanceModel *model)
	Returns the list of GncSxInstances in the model (Each element in the list has type GncSxInstances)

Macro Definition Documentation

GNC_TYPE_SX_INSTANCE_MODEL

#define GNC_TYPE_SX_INSTANCE_MODEL   (gnc_sx_instance_model_get_type ())

Definition at line 37 of file gnc-sx-instance-model.h.

Enumeration Type Documentation

GncSxInstanceState

enum GncSxInstanceState

Definition at line 52 of file gnc-sx-instance-model.h.

{
    SX_INSTANCE_STATE_IGNORED,
    SX_INSTANCE_STATE_POSTPONED,
    SX_INSTANCE_STATE_TO_CREATE,
    SX_INSTANCE_STATE_REMINDER,
    SX_INSTANCE_STATE_CREATED,
    SX_INSTANCE_STATE_MAX_STATE
} GncSxInstanceState;

Function Documentation

gnc_g_hash_new_guid_numeric()

GHashTable * gnc_g_hash_new_guid_numeric

(

void

)

Returns a GHashTable<GUID*, gnc_numeric*> with no destructor for the key, but a destructor for the value set.

The returned value must be free'd with g_hash_table_destroy or g_hash_table_unref.

Definition at line 1720 of file gnc-sx-instance-model.c.

{
    return g_hash_table_new_full (guid_hash_to_guint, guid_g_hash_table_equal,
                                  NULL, gnc_numeric_free);
}

gnc_sx_all_instantiate_cashflow()

void gnc_sx_all_instantiate_cashflow	(	GList *	all_sxes,
		const GDate *	range_start,
		const GDate *	range_end,
		GHashTable *	map,
		GList **	creation_errors
	)

Instantiates the cash flow of all given SXs (in the given GList<SchedXAction*>) into the GHashTable<GUID*, gnc_numeric*> for the given date range.

Each SX is counted with multiplicity as it has occurrences in the given date range.

The creation_errors list, if non-NULL, receive any errors that occurred during creation, similar as in gnc_sx_instance_model_effect_change().

Definition at line 1953 of file gnc-sx-instance-model.c.

{
    SxAllCashflow userdata;
    userdata.hash = map;
    userdata.creation_errors = creation_errors;
    userdata.range_start = range_start;
    userdata.range_end = range_end;
 
    /* The work is done in the callback for each SX */
    g_list_foreach(all_sxes, instantiate_cashflow_cb, &userdata);
}

gnc_sx_all_instantiate_cashflow_all()

GHashTable * gnc_sx_all_instantiate_cashflow_all	(	GDate	range_start,
		GDate	range_end
	)

Simplified wrapper around gnc_sx_all_instantiate_cashflow(): Run that function on all SX of the current book for the given date range.

Ignore any potential error messages. Returns a newly allocated GHashTable with the result, which is a GHashTable<GUID*, gnc_numeric*>, identical to what gnc_g_hash_new_guid_numeric() would return. The returned value must be free'd with g_hash_table_destroy.

Definition at line 1968 of file gnc-sx-instance-model.c.

{
    GHashTable *result_map = gnc_g_hash_new_guid_numeric();
    GList *all_sxes = gnc_book_get_schedxactions(gnc_get_current_book())->sx_list;
    gnc_sx_all_instantiate_cashflow(all_sxes,
                                    &range_start, &range_end,
                                    result_map, NULL);
    return result_map;
}

gnc_sx_get_current_instances()

GncSxInstanceModel * gnc_sx_get_current_instances

(

void

)

Shorthand for get_instances(now, FALSE);.

Definition at line 594 of file gnc-sx-instance-model.c.

{
    GDate now;
    g_date_clear(&now, 1);
    gnc_gdate_set_time64 (&now, gnc_time (NULL));
    return gnc_sx_get_instances(&now, FALSE);
}

gnc_sx_get_instances()

GncSxInstanceModel * gnc_sx_get_instances	(	const GDate *	range_end,
		gboolean	include_disabled
	)

Allocates a new SxInstanceModel and fills it with generated instances for all scheduled transactions up to the given range_end date.

The caller must unref the returned object by g_object_unref(G_OBJECT(inst_model)); when no longer in use.

Definition at line 603 of file gnc-sx-instance-model.c.

{
    GList *all_sxes = gnc_book_get_schedxactions(gnc_get_current_book())->sx_list;
    GncSxInstanceModel *instances;
 
    g_assert(range_end != NULL);
    g_assert(g_date_valid(range_end));
 
    instances = gnc_sx_instance_model_new();
    instances->include_disabled = include_disabled;
    instances->range_end = *range_end;
 
    if (include_disabled)
    {
        instances->sx_instance_list = gnc_g_list_map(all_sxes, (GncGMapFunc)_gnc_sx_gen_instances, (gpointer)range_end);
    }
    else
    {
        GList *sx_iter = g_list_first(all_sxes);
        GList *enabled_sxes = NULL;
 
        for (; sx_iter != NULL; sx_iter = sx_iter->next)
        {
            SchedXaction *sx = (SchedXaction*)sx_iter->data;
            if (xaccSchedXactionGetEnabled(sx))
            {
                enabled_sxes = g_list_prepend (enabled_sxes, sx);
            }
        }
        enabled_sxes = g_list_reverse (enabled_sxes);
        instances->sx_instance_list = gnc_g_list_map(enabled_sxes, (GncGMapFunc)_gnc_sx_gen_instances, (gpointer)range_end);
        g_list_free(enabled_sxes);
    }
 
    return instances;
}

gnc_sx_get_select_instances()

GncSxInstanceModel * gnc_sx_get_select_instances

(

GList *

sel_sxes

)

Allocates a new SxInstanceModel and fills it with generated instances for the given scheduled transactions up to now.

If no instance exists for a given scheduled transaction, the next instance is generated.

The caller must unref the returned object by g_object_unref(G_OBJECT(inst_model)); when no longer in use.

Definition at line 641 of file gnc-sx-instance-model.c.

{
    GncSxInstanceModel *instances;
    GDate now;
 
    g_date_clear(&now, 1);
    gnc_gdate_set_time64(&now, gnc_time(NULL));
 
    instances = gnc_sx_instance_model_new();
    instances->include_disabled = TRUE;
    instances->range_end = now;
 
    instances->sx_instance_list = gnc_g_list_map(sel_sxes, (GncGMapFunc)sx_gen_select_instances, (gpointer)&now);
 
    return instances;
}

gnc_sx_get_template_transaction_account()

Account * gnc_sx_get_template_transaction_account

(

const SchedXaction *

sx

)

Definition at line 379 of file gnc-sx-instance-model.c.

{
    Account *template_root, *sx_template_acct;
    char sx_guid_str[GUID_ENCODING_LENGTH+1];
 
    template_root = gnc_book_get_template_root(gnc_get_current_book());
    guid_to_string_buff(xaccSchedXactionGetGUID(sx), sx_guid_str);
    sx_template_acct = gnc_account_lookup_by_name(template_root, sx_guid_str);
    return sx_template_acct;
}

gnc_sx_get_variables()

void gnc_sx_get_variables	(	SchedXaction *	sx,
		GHashTable *	var_hash
	)

Definition at line 391 of file gnc-sx-instance-model.c.

{
    Account *sx_template_acct = gnc_sx_get_template_transaction_account(sx);
    xaccAccountForEachTransaction(sx_template_acct, _get_vars_helper, var_hash);
}

gnc_sx_instance_get_variables()

GList * gnc_sx_instance_get_variables

(

GncSxInstance *

inst

)

Returns

GList<GncSxVariable*>. Caller owns the list, but not the items.

Definition at line 475 of file gnc-sx-instance-model.c.

{
    GList *vars = NULL;
    g_hash_table_foreach(inst->variable_bindings, _build_list_from_hash_elts, &vars);
    return g_list_sort (vars, _compare_GncSxVariables);
}

gnc_sx_instance_get_variables_for_parser()

GHashTable * gnc_sx_instance_get_variables_for_parser

(

GHashTable *

instance_var_hash

)

Returns

caller-owned data struct.

caller-owned.

Definition at line 225 of file gnc-sx-instance-model.c.

{
    GHashTable *parser_vars;
 
    parser_vars = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, NULL);
    g_hash_table_foreach(instance_var_hash, (GHFunc)_sx_var_to_raw_numeric, parser_vars);
    return parser_vars;
}

gnc_sx_instance_model_change_instance_state()

void gnc_sx_instance_model_change_instance_state	(	GncSxInstanceModel *	model,
		GncSxInstance *	instance,
		GncSxInstanceState	new_state
	)

There is a constraint around a sequence of upcoming instance states.

In short: the last-created state and a list of postponed instances are modeled, but upcoming reminders are not. As such, a reminder can never be before any other (modeled) instance type. For instance, the following sequences are disallowed:

[...] remind <- will be lost/skipped over; must be converted to postponed. to-create <- this will be the last-recorded state. [...]

[...] remind <- same as previous; will be lost/skipped; must be postponed. postponed [...]

remind <- same... ignore [...]

As such, the SinceLastRun model will enforce that there are no previous remind instances at every state change. They will be silently converted to postponed-state transactions.

Definition at line 1557 of file gnc-sx-instance-model.c.

{
    if (instance->state == new_state)
        return;
 
    instance->state = new_state;
 
    // ensure 'remind' constraints are met:
    {
        GList *inst_iter;
        inst_iter = g_list_find(instance->parent->instance_list, instance);
        g_assert(inst_iter != NULL);
        if (instance->state != SX_INSTANCE_STATE_REMINDER)
        {
            // iterate backwards, making sure reminders are changed to 'postponed'
            for (inst_iter = inst_iter->prev; inst_iter != NULL; inst_iter = inst_iter->prev)
            {
                GncSxInstance *prev_inst = (GncSxInstance*)inst_iter->data;
                if (prev_inst->state != SX_INSTANCE_STATE_REMINDER)
                    continue;
                prev_inst->state = SX_INSTANCE_STATE_POSTPONED;
            }
        }
        else
        {
            // iterate forward, make sure transactions are set to 'remind'
            for (inst_iter = inst_iter->next; inst_iter != NULL; inst_iter = inst_iter->next)
            {
                GncSxInstance *next_inst = (GncSxInstance*)inst_iter->data;
                if (next_inst->state == SX_INSTANCE_STATE_REMINDER)
                    continue;
                next_inst->state = SX_INSTANCE_STATE_REMINDER;
            }
        }
    }
 
    g_signal_emit_by_name(model, "updated", (gpointer)instance->parent->sx);
}

gnc_sx_instance_model_check_variables()

GList * gnc_sx_instance_model_check_variables

(

GncSxInstanceModel *

model

)

Returns

List<GncSxVariableNeeded> of unbound {instance,variable} pairs; the caller owns the list and the items.

Definition at line 1618 of file gnc-sx-instance-model.c.

{
    GList *rtn = NULL;
    GList *sx_iter, *inst_iter, *var_list = NULL, *var_iter;
 
    for (sx_iter = model->sx_instance_list; sx_iter != NULL; sx_iter = sx_iter->next)
    {
        GncSxInstances *instances = (GncSxInstances*)sx_iter->data;
        for (inst_iter = instances->instance_list; inst_iter != NULL; inst_iter = inst_iter->next)
        {
            GncSxInstance *inst = (GncSxInstance*)inst_iter->data;
 
            if (inst->state != SX_INSTANCE_STATE_TO_CREATE)
                continue;
 
            g_hash_table_foreach(inst->variable_bindings, (GHFunc)_list_from_hash_elts, &var_list);
            for (var_iter = var_list; var_iter != NULL; var_iter = var_iter->next)
            {
                GncSxVariable *var = (GncSxVariable*)var_iter->data;
                if (gnc_numeric_check(var->value) != GNC_ERROR_OK)
                {
                    GncSxVariableNeeded *need = g_new0(GncSxVariableNeeded, 1);
                    need->instance = inst;
                    need->variable = var;
                    rtn = g_list_prepend (rtn, need);
                }
            }
            g_list_free(var_list);
            var_list = NULL;
        }
    }
    return rtn;
}

gnc_sx_instance_model_effect_change()

void gnc_sx_instance_model_effect_change	(	GncSxInstanceModel *	model,
		gboolean	auto_create_only,
		GList **	created_transaction_guids,
		GList **	creation_errors
	)

Really ("effectively") create the transactions from the SX instances in the given model.

Definition at line 1446 of file gnc-sx-instance-model.c.

{
    GList *iter;
 
    if (qof_book_is_readonly(gnc_get_current_book()))
    {
        /* Is the book read-only? Then don't change anything here. */
        return;
    }
 
    for (iter = model->sx_instance_list; iter != NULL; iter = iter->next)
    {
        GList *instance_iter;
        GncSxInstances *instances = (GncSxInstances*)iter->data;
        GDate *last_occur_date;
        gint instance_count = 0;
        gint remain_occur_count = 0;
 
        // If there are no instances, then skip; specifically, skip
        // re-setting SchedXaction fields, which will dirty the book
        // spuriously.
        if (g_list_length(instances->instance_list) == 0)
            continue;
 
        last_occur_date = (GDate*) xaccSchedXactionGetLastOccurDate(instances->sx);
        instance_count = gnc_sx_get_instance_count(instances->sx, NULL);
        remain_occur_count = xaccSchedXactionGetRemOccur(instances->sx);
 
        for (instance_iter = instances->instance_list; instance_iter != NULL; instance_iter = instance_iter->next)
        {
            GncSxInstance *inst = (GncSxInstance*)instance_iter->data;
            gboolean sx_is_auto_create;
            GList *instance_errors = NULL;
 
            xaccSchedXactionGetAutoCreate(inst->parent->sx, &sx_is_auto_create, NULL);
            if (auto_create_only && !sx_is_auto_create)
            {
                if (inst->state != SX_INSTANCE_STATE_TO_CREATE)
                {
                    break;
                }
                continue;
            }
 
            if (inst->orig_state == SX_INSTANCE_STATE_POSTPONED
                && inst->state != SX_INSTANCE_STATE_POSTPONED)
            {
                // remove from postponed list
                g_assert(inst->temporal_state != NULL);
                gnc_sx_remove_defer_instance(inst->parent->sx,
                                             inst->temporal_state);
            }
 
            switch (inst->state)
            {
                case SX_INSTANCE_STATE_CREATED:
                    // nop: we've already processed this.
                    break;
                case SX_INSTANCE_STATE_IGNORED:
                    increment_sx_state(inst, &last_occur_date, &instance_count, &remain_occur_count);
                    break;
                case SX_INSTANCE_STATE_POSTPONED:
                    if (inst->orig_state != SX_INSTANCE_STATE_POSTPONED)
                    {
                        gnc_sx_add_defer_instance(instances->sx,
                                                  gnc_sx_clone_temporal_state (inst->temporal_state));
                    }
                    increment_sx_state(inst, &last_occur_date, &instance_count, &remain_occur_count);
                    break;
                case SX_INSTANCE_STATE_TO_CREATE:
                    create_transactions_for_instance (inst,
                                                      created_transaction_guids,
                                                      &instance_errors);
                    if (instance_errors == NULL)
                    {
                        increment_sx_state (inst, &last_occur_date,
                                            &instance_count,
                                            &remain_occur_count);
                        gnc_sx_instance_model_change_instance_state
                            (model, inst, SX_INSTANCE_STATE_CREATED);
                    }
                    else if (creation_errors)
                    {
                        *creation_errors = g_list_concat (*creation_errors,
                                                          instance_errors);
                        instance_errors = NULL;
                    }
                    break;
                case SX_INSTANCE_STATE_REMINDER:
                    // do nothing
                    // assert no non-remind instances after this?
                    break;
                default:
                    g_assert_not_reached();
                    break;
            }
 
            if (instance_errors)
                g_list_free_full (instance_errors, g_free);
        }
 
        xaccSchedXactionSetLastOccurDate(instances->sx, last_occur_date);
        gnc_sx_set_instance_count(instances->sx, instance_count);
        xaccSchedXactionSetRemOccur(instances->sx, remain_occur_count);
    }
}

gnc_sx_instance_model_get_sx_instances_list()

GList * gnc_sx_instance_model_get_sx_instances_list

(

GncSxInstanceModel *

model

)

Returns the list of GncSxInstances in the model (Each element in the list has type GncSxInstances)

The returned list is owned by the model

Definition at line 1978 of file gnc-sx-instance-model.c.

{
    return model->sx_instance_list;
}

gnc_sx_instance_model_remove_sx_instances()

void gnc_sx_instance_model_remove_sx_instances	(	GncSxInstanceModel *	model,
		SchedXaction *	sx
	)

Definition at line 1027 of file gnc-sx-instance-model.c.

{
    GList *instance_link = NULL;
 
    instance_link = g_list_find_custom(model->sx_instance_list, sx, (GCompareFunc)_gnc_sx_instance_find_by_sx);
    if (instance_link == NULL)
    {
        g_warning("instance not found!\n");
        return;
    }
 
    model->sx_instance_list = g_list_remove_link(model->sx_instance_list, instance_link);
    gnc_sx_instances_free((GncSxInstances*)instance_link->data);
}

gnc_sx_instance_model_set_variable()

void gnc_sx_instance_model_set_variable	(	GncSxInstanceModel *	model,
		GncSxInstance *	instance,
		GncSxVariable *	variable,
		gnc_numeric *	new_value
	)

Definition at line 1599 of file gnc-sx-instance-model.c.

{
 
    if (gnc_numeric_equal(variable->value, *new_value))
        return;
    variable->value = *new_value;
    g_signal_emit_by_name(model, "updated", (gpointer)instance->parent->sx);
}

gnc_sx_instance_model_summarize()

void gnc_sx_instance_model_summarize	(	GncSxInstanceModel *	model,
		GncSxSummary *	summary
	)

Parameters

summary

Caller-provided, populated with a summarization of the state of the model. Specifically, used to determine if there are SLR SXes that need either auto-creation or user-interaction.

Definition at line 1653 of file gnc-sx-instance-model.c.

{
    GList *sx_iter, *inst_iter;
 
    g_return_if_fail(model != NULL);
    g_return_if_fail(summary != NULL);
 
    summary->need_dialog = FALSE;
    summary->num_instances = 0;
    summary->num_to_create_instances = 0;
    summary->num_auto_create_instances = 0;
    summary->num_auto_create_no_notify_instances = 0;
 
    for (sx_iter = model->sx_instance_list; sx_iter != NULL; sx_iter = sx_iter->next)
    {
        GncSxInstances *instances = (GncSxInstances*)sx_iter->data;
        gboolean sx_is_auto_create = FALSE, sx_notify = FALSE;
        xaccSchedXactionGetAutoCreate(instances->sx, &sx_is_auto_create, &sx_notify);
        for (inst_iter = instances->instance_list; inst_iter != NULL; inst_iter = inst_iter->next)
        {
            GncSxInstance *inst = (GncSxInstance*)inst_iter->data;
            summary->num_instances++;
 
            if (inst->state == SX_INSTANCE_STATE_TO_CREATE)
            {
                if (sx_is_auto_create)
                {
                    if (!sx_notify)
                    {
                        summary->num_auto_create_no_notify_instances++;
                    }
                    else
                    {
                        summary->num_auto_create_instances++;
                    }
                }
                else
                {
                    summary->num_to_create_instances++;
                }
            }
        }
    }
 
    // if all the instances are 'auto-create, no-notify', then we don't need
    // the dialog.
    summary->need_dialog
        = (summary->num_instances != 0
           && summary->num_auto_create_no_notify_instances != summary->num_instances);
}

gnc_sx_instance_model_update_sx_instances()

void gnc_sx_instance_model_update_sx_instances	(	GncSxInstanceModel *	model,
		SchedXaction *	sx
	)

Regenerates and updates the GncSxInstances* for the given SX.

Model consumers are probably going to call this in response to seeing the "update" signal, unless they need to be doing something else like finishing an iteration over an existing GncSxInstances*.

Definition at line 899 of file gnc-sx-instance-model.c.

{
    GncSxInstances *existing, *new_instances;
    GList *link;
 
    link = g_list_find_custom(model->sx_instance_list, sx, (GCompareFunc)_gnc_sx_instance_find_by_sx);
    if (link == NULL)
    {
        g_critical("couldn't find sx [%p]\n", sx);
        return;
    }
 
    // merge the new instance data into the existing structure, mutating as little as possible.
    existing = (GncSxInstances*)link->data;
    new_instances = sx_instances(model, sx);
    existing->sx = new_instances->sx;
    existing->next_instance_date = new_instances->next_instance_date;
    {
        GList *existing_iter, *new_iter;
        gboolean existing_remain, new_remain;
 
        // step through the lists pairwise, and retain the existing
        // instance if the dates align, as soon as they don't stop and
        // cleanup.
        existing_iter = existing->instance_list;
        new_iter = new_instances->instance_list;
        for (; existing_iter != NULL && new_iter != NULL; existing_iter = existing_iter->next, new_iter = new_iter->next)
        {
            GncSxInstance *existing_inst, *new_inst;
            gboolean same_instance_date;
            existing_inst = (GncSxInstance*)existing_iter->data;
            new_inst = (GncSxInstance*)new_iter->data;
 
            same_instance_date = g_date_compare(&existing_inst->date, &new_inst->date) == 0;
            if (!same_instance_date)
                break;
        }
 
        existing_remain = (existing_iter != NULL);
        new_remain = (new_iter != NULL);
 
        if (existing_remain)
        {
            // delete excess
            gnc_g_list_cut(&existing->instance_list, existing_iter);
            g_list_foreach(existing_iter, (GFunc)gnc_sx_instance_free, NULL);
        }
 
        if (new_remain)
        {
            // append new
            GList *new_iter_iter;
            gnc_g_list_cut(&new_instances->instance_list, new_iter);
 
            for (new_iter_iter = new_iter; new_iter_iter != NULL; new_iter_iter = new_iter_iter->next)
            {
                GncSxInstance *inst = (GncSxInstance*)new_iter_iter->data;
                inst->parent = existing;
                existing->instance_list = g_list_append(existing->instance_list, new_iter_iter->data);
            }
            g_list_free(new_iter);
        }
    }
 
    // handle variables
    {
        GList *removed_var_names = NULL, *added_var_names = NULL;
        GList *inst_iter = NULL;
 
        if (existing->variable_names != NULL)
        {
            HashListPair removed_cb_data;
            removed_cb_data.hash = new_instances->variable_names;
            removed_cb_data.list = NULL;
            g_hash_table_foreach(existing->variable_names, (GHFunc)_find_unreferenced_vars, &removed_cb_data);
            removed_var_names = g_list_reverse (removed_cb_data.list);
        }
        DEBUG("%d removed variables", g_list_length(removed_var_names));
 
        if (new_instances->variable_names != NULL)
        {
            HashListPair added_cb_data;
            added_cb_data.hash = existing->variable_names;
            added_cb_data.list = NULL;
            g_hash_table_foreach(new_instances->variable_names, (GHFunc)_find_unreferenced_vars, &added_cb_data);
            added_var_names = g_list_reverse (added_cb_data.list);
        }
        DEBUG("%d added variables", g_list_length(added_var_names));
 
        if (existing->variable_names != NULL)
        {
            g_hash_table_destroy(existing->variable_names);
        }
        existing->variable_names = new_instances->variable_names;
        new_instances->variable_names = NULL;
 
        for (inst_iter = existing->instance_list; inst_iter != NULL; inst_iter = inst_iter->next)
        {
            GList *var_iter;
            GncSxInstance *inst = (GncSxInstance*)inst_iter->data;
 
            for (var_iter = removed_var_names; var_iter != NULL; var_iter = var_iter->next)
            {
                gchar *to_remove_key = (gchar*)var_iter->data;
                g_hash_table_remove(inst->variable_bindings, to_remove_key);
            }
 
            for (var_iter = added_var_names; var_iter != NULL; var_iter = var_iter->next)
            {
                gchar *to_add_key = (gchar*)var_iter->data;
                if (!g_hash_table_lookup_extended(
                        inst->variable_bindings, to_add_key, NULL, NULL))
                {
                    GncSxVariable *parent_var
                        = g_hash_table_lookup(existing->variable_names, to_add_key);
                    GncSxVariable *var_copy;
 
                    g_assert(parent_var != NULL);
                    var_copy = gnc_sx_variable_new_copy(parent_var);
                    g_hash_table_insert(inst->variable_bindings, g_strdup(to_add_key), var_copy);
                }
            }
        }
    }
    gnc_sx_instances_free(new_instances);
}

gnc_sx_parse_vars_from_formula()

int gnc_sx_parse_vars_from_formula	(	const char *	formula,
		GHashTable *	var_hash,
		gnc_numeric *	result
	)

Definition at line 235 of file gnc-sx-instance-model.c.

{
    gnc_numeric num;
    char *errLoc = NULL;
    int toRet = 0;
    GHashTable *parser_vars;
 
    // convert var_hash -> variables for the parser.
    parser_vars = gnc_sx_instance_get_variables_for_parser(var_hash);
 
    num = gnc_numeric_zero();
    if (!gnc_exp_parser_parse_separate_vars(formula, &num, &errLoc, parser_vars))
    {
        toRet = -1;
    }
 
    // convert back.
    g_hash_table_foreach(parser_vars, (GHFunc)_var_numeric_to_sx_var, var_hash);
    g_hash_table_destroy(parser_vars);
 
    if (result != NULL)
    {
        *result = num;
    }
 
    return toRet;
}

gnc_sx_randomize_variables()

void gnc_sx_randomize_variables

(

GHashTable *

vars

)

Definition at line 410 of file gnc-sx-instance-model.c.

{
    g_hash_table_foreach(vars, (GHFunc)_set_var_to_random_value, NULL);
}

gnc_sx_scrub_split_numerics()

void gnc_sx_scrub_split_numerics	(	gpointer	psplit,
		gpointer	user
	)

Fix up numerics where they've gotten out-of-sync with the formulas.

Ideally this would be done at load time, but it requires gnc_exp_parser to work and neither engine nor the backends can depend on it.

Definition at line 154 of file gnc-sx-instance-model.c.

{
    Split *split = GNC_SPLIT (psplit);
    Transaction *trans = xaccSplitGetParent (split);
    GList *changes = NULL;
    scrub_sx_split_numeric (split, TRUE, &changes);
    scrub_sx_split_numeric (split, FALSE, &changes);
    if (!changes)
        return;
 
    xaccTransBeginEdit (trans);
    for (GList *n = changes; n; n = n->next)
    {
        ScrubItem *change = n->data;
        qof_instance_set (QOF_INSTANCE (split),
                          change->name, &change->amount,
                          NULL);
    }
    xaccTransCommitEdit (trans);
    g_list_free_full (changes, g_free);
}

gnc_sx_summary_print()

void gnc_sx_summary_print

(

const GncSxSummary *

summary

)

Debug output to trace file.

Definition at line 1705 of file gnc-sx-instance-model.c.

{
    PINFO("num_instances: %d", summary->num_instances);
    PINFO("num_to_create: %d", summary->num_to_create_instances);
    PINFO("num_auto_create_instances: %d", summary->num_auto_create_instances);
    PINFO("num_auto_create_no_notify_instances: %d", summary->num_auto_create_no_notify_instances);
    PINFO("need dialog? %s", summary->need_dialog ? "true" : "false");
}

gnc_sx_variable_free()

void gnc_sx_variable_free

(

GncSxVariable *

var

)

Definition at line 294 of file gnc-sx-instance-model.c.

{
    g_free(var->name);
    g_free(var);
}

gnc_sx_variable_new_full()

GncSxVariable * gnc_sx_variable_new_full	(	gchar *	name,
		gnc_numeric	value,
		gboolean	editable
	)

Definition at line 276 of file gnc-sx-instance-model.c.

{
    GncSxVariable *var = gnc_sx_variable_new(name);
    var->value = value;
    var->editable = editable;
    return var;
}