From f2aab8ba35f05910685ee1e6114c0b6e8173e71c Mon Sep 17 00:00:00 2001
From: Linas Vepstas <linas@linas.org>
Date: Fri, 20 Mar 1998 08:07:07 +0000
Subject: [PATCH] more utilities for data hiding

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@678 57a11ea4-9604-0410-9ed3-97b8803252fd
---
 src/engine/Account.c | 28 ++++++++++++++++++++++++++++
 src/engine/Account.h |  6 ++++++
 2 files changed, 34 insertions(+)

diff --git a/src/engine/Account.c b/src/engine/Account.c
index c2ba3135b5..e29514f4f7 100644
--- a/src/engine/Account.c
+++ b/src/engine/Account.c
@@ -695,4 +695,32 @@ xaccAccountGetNotes (Account *acc)
    return (acc->notes);
 }
 
+double
+xaccAccountGetBalance (Account *acc)
+{
+   return (acc->balance);
+}
+
+double
+xaccAccountGetReconciledBalance (Account *acc)
+{
+   return (acc->reconciled_balance);
+}
+
+Split *
+xaccAccountGetSplit (Account *acc, int i)
+{
+   if (!acc) return NULL;
+   if (!(acc->splits)) return NULL;
+
+   return (acc->splits[i]);
+}
+
+Split **
+xaccAccountGetSplitList (Account *acc)
+{
+   if (!acc) return NULL;
+   return (acc->splits);
+}
+
 /*************************** END OF FILE **************************** */
diff --git a/src/engine/Account.h b/src/engine/Account.h
index ab7525d12b..a0f5aa442f 100644
--- a/src/engine/Account.h
+++ b/src/engine/Account.h
@@ -119,6 +119,12 @@ char *         xaccAccountGetNotes (Account *);
 AccountGroup * xaccAccountGetChildren (Account *);
 AccountGroup * xaccAccountGetParent (Account *);
 
+double         xaccAccountGetBalance (Account *);
+double         xaccAccountGetReconciledBalance (Account *);
+Split *        xaccAccountGetSplit (Account *acc, int i);
+Split **       xaccAccountGetSplitList (Account *acc);
+
+
 /** GLOBALS *********************************************************/
 
 extern int next_free_unique_account_id;