[Gnucash-changes] r13457 - gnucash/trunk/src/engine - Splits can
now keep track of their own rollback state.
Chris Shoemaker
chris at cvs.gnucash.org
Fri Mar 3 19:09:03 EST 2006
Author: chris
Date: 2006-03-03 19:09:03 -0500 (Fri, 03 Mar 2006)
New Revision: 13457
Trac: http://svn.gnucash.org/trac/changeset/13457
Modified:
gnucash/trunk/src/engine/Split.c
gnucash/trunk/src/engine/Split.h
gnucash/trunk/src/engine/SplitP.h
Log:
Splits can now keep track of their own rollback state.
The Split <-> Account and Split <-> Transaction relationships are now
treated as properties of the Split. In terms of the BeginEdit/CommitEdit
block, Splits are subordinate to Transactions. There is no public
BeginEdit/CommitEdit block for Splits; changes to Splits should be wrapped
in their Transaction's Edit-block.
In the case of the Split <-> Account relationship, the call to
xaccSplitSetAccount() will be immediately visible from
xaccSplitGetAccount(), but the Account does not learn about the
Split until and if the edit is committed.
In the case of the Split <-> Transaction relationship, calling
xaccSplitSetParent() will immediately add the Split to the
Transactions split list. This is because the Split's Transaction
owns the reference to the Split. However, see the Transaction.c
patch for how to distinguish pre-edit state from in-edit state.
In both cases, events are not generated until the edits are committed.
Most of this new logic is in an engine-private helper xaccSplitCommitEdit(),
which is called from xaccTransCommitEdit().
Incidental:
Increased error-checking in xaccSplitSetValue().
Internalize a Transaction Begin/Commit edit-block in every setter func.
Modified: gnucash/trunk/src/engine/Split.c
===================================================================
--- gnucash/trunk/src/engine/Split.c 2006-03-04 00:08:16 UTC (rev 13456)
+++ gnucash/trunk/src/engine/Split.c 2006-03-04 00:09:03 UTC (rev 13457)
@@ -65,6 +65,7 @@
{
/* fill in some sane defaults */
split->acc = NULL;
+ split->orig_acc = NULL;
split->parent = NULL;
split->lot = NULL;
@@ -94,6 +95,7 @@
{
/* fill in some sane defaults */
split->acc = NULL;
+ split->orig_acc = NULL;
split->parent = NULL;
split->lot = NULL;
@@ -148,17 +150,18 @@
{
Split *split = g_new0 (Split, 1);
- /* Trash the guid and entity table. We don't want to mistake
- * the cloned splits as something official. If we ever use this
- * split, we'll have to fix this up.
+ /* Trash the entity table. We don't want to mistake the cloned
+ * splits as something official. If we ever use this split, we'll
+ * have to fix this up.
*/
split->inst.entity.e_type = NULL;
- split->inst.entity.guid = *guid_null();
split->inst.entity.collection = NULL;
+ split->inst.entity.guid = s->inst.entity.guid;
split->inst.book = s->inst.book;
split->parent = s->parent;
split->acc = s->acc;
+ split->orig_acc = s->orig_acc;
split->lot = s->lot;
split->memo = CACHE_INSERT(s->memo);
@@ -266,6 +269,7 @@
split->parent = NULL;
split->lot = NULL;
split->acc = NULL;
+ split->orig_acc = NULL;
split->date_reconciled.tv_sec = 0;
split->date_reconciled.tv_nsec = 0;
@@ -276,6 +280,22 @@
g_free(split);
}
+static void mark_acc(Account *acc)
+{
+ if (acc && !acc->inst.do_free) {
+ acc->balance_dirty = TRUE;
+ acc->sort_dirty = TRUE;
+ }
+}
+
+void mark_split (Split *s)
+{
+ mark_acc(s->acc);
+
+ /* set dirty flag on lot too. */
+ if (s->lot) s->lot->is_closed = -1;
+}
+
/*
* Helper routine for xaccSplitEqual.
*/
@@ -452,6 +472,112 @@
return s ? s->acc : NULL;
}
+void
+xaccSplitSetAccount (Split *s, Account *acc)
+{
+ Transaction *trans;
+
+ g_return_if_fail(s && acc);
+ g_return_if_fail(acc->inst.book == s->inst.book);
+
+ trans = s->parent;
+ if (trans)
+ xaccTransBeginEdit(trans);
+
+ s->acc = acc;
+ qof_instance_set_dirty(QOF_INSTANCE(s));
+
+ if (trans)
+ xaccTransCommitEdit(trans);
+}
+
+/* An engine-private helper for completing xaccTransCommitEdit(). */
+void
+xaccSplitCommitEdit(Split *s)
+{
+ Account *acc, *orig_acc;
+
+ g_return_if_fail(s);
+ if (!qof_instance_is_dirty(QOF_INSTANCE(s)))
+ return;
+
+ orig_acc = s->orig_acc;
+ acc = s->acc;
+
+ /* Possibly remove the split from the original account... */
+ if (orig_acc && (orig_acc != acc || s->inst.do_free)) {
+ GList *node = g_list_find (orig_acc->splits, s);
+ if (node) {
+ orig_acc->splits = g_list_delete_link (orig_acc->splits, node);
+ /* Remove from lot (but only if it hasn't been moved to
+ new lot already) */
+ if (s->lot && s->lot->account == orig_acc)
+ gnc_lot_remove_split (s->lot, s);
+ //FIXME: probably not needed.
+ xaccGroupMarkNotSaved (orig_acc->parent);
+ //FIXME: find better event type
+ gnc_engine_gen_event (&orig_acc->inst.entity, GNC_EVENT_MODIFY);
+ } else PERR("Account lost track of moved or deleted split.");
+ orig_acc->balance_dirty = TRUE;
+ xaccAccountRecomputeBalance(orig_acc);
+ }
+
+ /* ... and insert it into the new account if needed */
+ if (orig_acc != s->acc && !s->inst.do_free) {
+ if (!g_list_find(acc->splits, s)) {
+ if (acc->inst.editlevel == 0) {
+ acc->splits = g_list_insert_sorted(
+ acc->splits, s, (GCompareFunc)xaccSplitDateOrder);
+ } else {
+ acc->splits = g_list_prepend(acc->splits, s);
+ acc->sort_dirty = TRUE;
+ }
+
+ /* If the split's lot belonged to some other account, we
+ leave it so. */
+ if (s->lot && (NULL == s->lot->account))
+ xaccAccountInsertLot (acc, s->lot);
+
+ xaccGroupMarkNotSaved (acc->parent); //FIXME: probably not needed.
+ //FIXME: find better event
+ gnc_engine_gen_event (&acc->inst.entity, GNC_EVENT_MODIFY);
+ } else PERR("Account grabbed split prematurely.");
+ acc->balance_dirty = TRUE;
+ xaccSplitSetAmount(s, xaccSplitGetAmount(s));
+ }
+
+ if (s->orig_parent && s->parent != s->orig_parent) {
+ //FIXME: find better event
+ gnc_engine_gen_event (&s->orig_parent->inst.entity, GNC_EVENT_MODIFY);
+ }
+ if (s->lot) {
+ /* A change of value/amnt affects gains display, etc. */
+ gnc_engine_gen_event (&s->lot->inst.entity, GNC_EVENT_MODIFY);
+ }
+
+ /* Important: we save off the original parent transaction and account
+ so that when we commit, we can generate signals for both the
+ original and new transactions, for the _next_ begin/commit cycle. */
+ s->orig_acc = s->acc;
+ s->orig_parent = s->parent;
+ qof_instance_mark_clean(QOF_INSTANCE(s));
+
+ mark_acc(acc);
+ //FIXME: should really be in xaccAccountCommitEdit
+ xaccAccountSortSplits (acc, TRUE);
+ xaccAccountRecomputeBalance(acc);
+ if (s->inst.do_free)
+ xaccFreeSplit(s);
+}
+
+/* An engine-private helper for completing xaccTransRollbackEdit(). */
+void
+xaccSplitRollbackEdit(Split *s)
+{
+ s->acc = s->orig_acc; /* Don't use setters, we want to allow NULL */
+ s->parent = s->orig_parent;
+}
+
/********************************************************************\
\********************************************************************/
@@ -508,44 +634,6 @@
}
}
-void mark_split (Split *s)
-{
- Account *account = s->acc;
-
- if (account && !account->inst.do_free)
- {
- account->balance_dirty = TRUE;
- account->sort_dirty = TRUE;
- }
-
- /* set dirty flag on lot too. */
- if (s->lot) s->lot->is_closed = -1;
-}
-
-void gen_event (const Split *split)
-{
- Account *account = split->acc;
- Transaction *trans = split->parent;
- GNCLot *lot = split->lot;
-
- if (account)
- {
- xaccGroupMarkNotSaved (account->parent);
- gnc_engine_gen_event (&account->inst.entity, GNC_EVENT_MODIFY);
- }
-
- if (trans)
- {
- gnc_engine_gen_event (&trans->inst.entity, GNC_EVENT_MODIFY);
- }
-
- if (lot)
- {
- /* A change of value/amnt affects gains displat, etc. */
- gnc_engine_gen_event (&lot->inst.entity, GNC_EVENT_MODIFY);
- }
-}
-
/********************************************************************\
\********************************************************************/
@@ -597,9 +685,10 @@
xaccSplitSetSlots_nc(Split *s, KvpFrame *frm)
{
if (!s || !frm) return;
- check_open (s->parent);
+ xaccTransBeginEdit(s->parent);
+ qof_instance_set_slots(QOF_INSTANCE(s), frm);
+ xaccTransCommitEdit(s->parent);
- qof_instance_set_slots(QOF_INSTANCE(s), frm);
}
/********************************************************************\
@@ -610,7 +699,7 @@
{
if (!s) return;
ENTER (" ");
- check_open (s->parent);
+ xaccTransBeginEdit (s->parent);
s->amount = double_to_gnc_numeric(amt, get_commodity_denom(s),
GNC_HOW_RND_ROUND);
@@ -620,6 +709,8 @@
SET_GAINS_A_VDIRTY(s);
mark_split (s);
qof_instance_set_dirty(QOF_INSTANCE(s));
+ xaccTransCommitEdit(s->parent);
+
}
void
@@ -627,7 +718,7 @@
{
if (!s) return;
ENTER (" ");
- check_open (s->parent);
+ xaccTransBeginEdit (s->parent);
s->amount = gnc_numeric_convert(amt, get_commodity_denom(s),
GNC_HOW_RND_ROUND);
@@ -637,6 +728,7 @@
SET_GAINS_A_VDIRTY(s);
mark_split (s);
qof_instance_set_dirty(QOF_INSTANCE(s));
+ xaccTransCommitEdit(s->parent);
}
static void
@@ -653,7 +745,7 @@
{
if (!s) return;
ENTER (" ");
- check_open (s->parent);
+ xaccTransBeginEdit (s->parent);
s->value = gnc_numeric_mul(xaccSplitGetAmount(s),
price, get_currency_denom(s),
@@ -662,6 +754,7 @@
SET_GAINS_VDIRTY(s);
mark_split (s);
qof_instance_set_dirty(QOF_INSTANCE(s));
+ xaccTransCommitEdit(s->parent);
}
void
@@ -673,7 +766,7 @@
GNC_HOW_RND_ROUND);
if (!s) return;
ENTER (" ");
- check_open (s->parent);
+ xaccTransBeginEdit (s->parent);
old_amt = xaccSplitGetAmount (s);
if (!gnc_numeric_zero_p(old_amt))
@@ -694,6 +787,7 @@
SET_GAINS_A_VDIRTY(s);
mark_split (s);
qof_instance_set_dirty(QOF_INSTANCE(s));
+ xaccTransCommitEdit(s->parent);
}
static void
@@ -718,7 +812,7 @@
" new amt=%" G_GINT64_FORMAT "/%" G_GINT64_FORMAT, s,
s->amount.num, s->amount.denom, amt.num, amt.denom);
- check_open (s->parent);
+ xaccTransBeginEdit (s->parent);
if (s->acc)
s->amount = gnc_numeric_convert(amt, get_commodity_denom(s),
GNC_HOW_RND_ROUND);
@@ -728,6 +822,7 @@
SET_GAINS_ADIRTY(s);
mark_split (s);
qof_instance_set_dirty(QOF_INSTANCE(s));
+ xaccTransCommitEdit(s->parent);
LEAVE("");
}
@@ -743,6 +838,7 @@
void
xaccSplitSetValue (Split *s, gnc_numeric amt)
{
+ gnc_numeric new_val;
if (!s) return;
g_return_if_fail(gnc_numeric_check(amt) == GNC_ERROR_OK);
@@ -750,13 +846,17 @@
" new val=%" G_GINT64_FORMAT "/%" G_GINT64_FORMAT, s,
s->value.num, s->value.denom, amt.num, amt.denom);
- check_open (s->parent);
- s->value = gnc_numeric_convert(amt, get_currency_denom(s),
- GNC_HOW_RND_ROUND);
+ xaccTransBeginEdit (s->parent);
+ new_val = gnc_numeric_convert(amt, get_currency_denom(s),
+ GNC_HOW_RND_ROUND);
+ if (gnc_numeric_check(new_val) == GNC_ERROR_OK)
+ s->value = new_val;
+ else PERR("numeric error in converting the split value's denominator");
SET_GAINS_VDIRTY(s);
mark_split (s);
qof_instance_set_dirty(QOF_INSTANCE(s));
+ xaccTransCommitEdit(s->parent);
LEAVE ("");
}
@@ -789,7 +889,7 @@
const gnc_commodity *commodity;
if (!s) return;
- check_open (s->parent);
+ xaccTransBeginEdit (s->parent);
if (!s->acc)
{
@@ -829,6 +929,7 @@
SET_GAINS_A_VDIRTY(s);
mark_split (s);
qof_instance_set_dirty(QOF_INSTANCE(s));
+ xaccTransCommitEdit(s->parent);
}
gnc_numeric
@@ -980,35 +1081,11 @@
if (acc && !acc->inst.do_free && xaccTransGetReadOnly (trans))
return FALSE;
- check_open (trans);
+ xaccTransBeginEdit(trans);
+ qof_instance_set_dirty(QOF_INSTANCE(split));
+ split->inst.do_free = TRUE;
+ xaccTransCommitEdit(trans);
- mark_split (split);
-
- if (trans)
- {
- if (g_list_find(trans->splits, split))
- xaccTransRemoveSplit (trans, split);
- else
- PERR ("split not in transaction");
- }
-
- /* Note: split is removed from lot when it's removed from account */
- xaccAccountRemoveSplit (acc, split);
-
- /* If we're shutting down then destroy the transaction, too, and
- * don't recompute the balance.
- */
- if (qof_book_shutting_down (split->parent->inst.book))
- /* This seems like an odd place to do this. Transactions have
- to be opened to destroy them. */
- xaccTransDestroy (trans);
- else
- /* This seems a bit eager. Isn't there a lazy way to do this? */
- xaccAccountRecomputeBalance (acc);
-
-
- gen_event (split);
- xaccFreeSplit (split);
return TRUE;
}
@@ -1230,10 +1307,12 @@
xaccSplitSetMemo (Split *split, const char *memo)
{
if (!split || !memo) return;
- check_open (split->parent);
+ xaccTransBeginEdit (split->parent);
CACHE_REPLACE(split->memo, memo);
qof_instance_set_dirty(QOF_INSTANCE(split));
+ xaccTransCommitEdit(split->parent);
+
}
static void
@@ -1247,10 +1326,12 @@
xaccSplitSetAction (Split *split, const char *actn)
{
if (!split || !actn) return;
- check_open (split->parent);
+ xaccTransBeginEdit (split->parent);
CACHE_REPLACE(split->action, actn);
qof_instance_set_dirty(QOF_INSTANCE(split));
+ xaccTransCommitEdit(split->parent);
+
}
static void
@@ -1277,7 +1358,7 @@
xaccSplitSetReconcile (Split *split, char recn)
{
if (!split || split->reconciled == recn) return;
- check_open (split->parent);
+ xaccTransBeginEdit (split->parent);
switch (recn)
{
@@ -1294,27 +1375,33 @@
default:
PERR("Bad reconciled flag");
}
+ xaccTransCommitEdit(split->parent);
+
}
void
xaccSplitSetDateReconciledSecs (Split *split, time_t secs)
{
if (!split) return;
- check_open (split->parent);
+ xaccTransBeginEdit (split->parent);
split->date_reconciled.tv_sec = secs;
split->date_reconciled.tv_nsec = 0;
qof_instance_set_dirty(QOF_INSTANCE(split));
+ xaccTransCommitEdit(split->parent);
+
}
void
xaccSplitSetDateReconciledTS (Split *split, Timespec *ts)
{
if (!split || !ts) return;
- check_open (split->parent);
+ xaccTransBeginEdit (split->parent);
split->date_reconciled = *ts;
qof_instance_set_dirty(QOF_INSTANCE(split));
+ xaccTransCommitEdit(split->parent);
+
}
void
@@ -1341,6 +1428,32 @@
return split ? split->parent : NULL;
}
+void
+xaccSplitSetParent(Split *s, Transaction *t)
+{
+ Transaction *old_trans;
+ g_return_if_fail(s && t);
+ if (s->parent == t) return;
+
+ if (s->parent != s->orig_parent)
+ PERR("You may not add the split to more than one transaction"
+ " during the BeginEdit/CommitEdit block.");
+ xaccTransBeginEdit(t);
+ old_trans = s->parent;
+ xaccTransBeginEdit(old_trans);
+ s->parent = t;
+ qof_instance_set_dirty(QOF_INSTANCE(s));
+ /* Convert split to new transaction's commodity denominator */
+ xaccSplitSetValue(s, xaccSplitGetValue(s));
+
+ /* add ourselves to the new transaction's list of pending splits. */
+ if (NULL == g_list_find(t->splits, s))
+ t->splits = g_list_append(t->splits, s);
+ xaccTransCommitEdit(old_trans);
+ xaccTransCommitEdit(t);
+}
+
+
GNCLot *
xaccSplitGetLot (const Split *split)
{
@@ -1442,13 +1555,14 @@
void
xaccSplitMakeStockSplit(Split *s)
{
- check_open (s->parent);
+ xaccTransBeginEdit (s->parent);
s->value = gnc_numeric_zero();
kvp_frame_set_str(s->inst.kvp_data, "split-type", "stock-split");
SET_GAINS_VDIRTY(s);
mark_split(s);
qof_instance_set_dirty(QOF_INSTANCE(s));
+ xaccTransCommitEdit(s->parent);
}
@@ -1601,19 +1715,19 @@
static void
qofSplitSetParentTrans(Split *s, QofEntity *ent)
{
- Transaction *trans = (Transaction*)ent;
+ Transaction *trans = (Transaction*)ent;
- g_return_if_fail(trans);
- xaccTransAppendSplit(trans, s);
+ g_return_if_fail(trans);
+ xaccSplitSetParent(s, trans);
}
static void
qofSplitSetAccount(Split *s, QofEntity *ent)
{
- Account *acc = (Account*)ent;
+ Account *acc = (Account*)ent;
- g_return_if_fail(acc);
- xaccAccountInsertSplit(acc, s);
+ g_return_if_fail(acc);
+ xaccSplitSetAccount(s, acc);
}
gboolean xaccSplitRegister (void)
Modified: gnucash/trunk/src/engine/Split.h
===================================================================
--- gnucash/trunk/src/engine/Split.h 2006-03-04 00:08:16 UTC (rev 13456)
+++ gnucash/trunk/src/engine/Split.h 2006-03-04 00:09:03 UTC (rev 13457)
@@ -103,10 +103,11 @@
/** Returns the account of this split, which was set through
* xaccAccountInsertSplit(). */
Account * xaccSplitGetAccount (const Split *split);
+void xaccSplitSetAccount (Split *s, Account *acc);
-/** Returns the parent transaction of the split, which was set through
- * xaccTransAppendSplit(). */
+/** Returns the parent transaction of the split. */
Transaction * xaccSplitGetParent (const Split *split);
+void xaccSplitSetParent (Split *split, Transaction *trans);
/** Returns the pointer to the debited/credited Lot where this split
* belongs to, or NULL if it doesn't belong to any. */
@@ -161,7 +162,7 @@
* time as time_t. */
void xaccSplitSetDateReconciledSecs (Split *split, time_t time);
/** Set the date on which this split was reconciled by specifying the
- * time as Timespec. */
+ * time as Timespec. Caller still owns *ts! */
void xaccSplitSetDateReconciledTS (Split *split, Timespec *ts);
/** Get the date on which this split was reconciled by having it
* written into the Timespec that 'ts' is pointing to. */
Modified: gnucash/trunk/src/engine/SplitP.h
===================================================================
--- gnucash/trunk/src/engine/SplitP.h 2006-03-04 00:08:16 UTC (rev 13456)
+++ gnucash/trunk/src/engine/SplitP.h 2006-03-04 00:09:03 UTC (rev 13457)
@@ -75,10 +75,11 @@
QofInstance inst;
Account *acc; /* back-pointer to debited/credited account */
-
+ Account *orig_acc;
GNCLot *lot; /* back-pointer to debited/credited lot */
Transaction *parent; /* parent of split */
+ Transaction *orig_parent;
/* The memo field is an arbitrary user-assiged value.
* It is intended to hold a short (zero to forty character) string
@@ -150,10 +151,11 @@
Split *xaccDupeSplit (const Split *s);
G_INLINE_FUNC void mark_split (Split *s);
-G_INLINE_FUNC void gen_event (const Split *split);
void xaccSplitVoid(Split *split);
void xaccSplitUnvoid(Split *split);
+void xaccSplitCommitEdit(Split *s);
+void xaccSplitRollbackEdit(Split *s);
/* Compute the value of a list of splits in the given currency,
* excluding the skip_me split. */
More information about the gnucash-changes
mailing list