Remove ** cruft.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3340 57a11ea4-9604-0410-9ed3-97b8803252fd

src/engine/Account.c

@@ -835,45 +835,6 @@ xaccAccountAutoCode (Account *acc, int digits) {
 /********************************************************************\
 \********************************************************************/
 
-int
-xaccIsAccountInList (Account * acc, Account **list)
-{
-   Account * chk;
-   int nacc = 0;
-   int nappearances = 0;
-   if (!acc) return 0;
-   if (!list) return 0;
-
-   chk = list[0];
-   while (chk) {
-      if (acc == chk) nappearances ++;
-      nacc++;
-      chk = list[nacc];
-   }
-   return nappearances;
-}
-
-/********************************************************************\
-\********************************************************************/
-
-void
-xaccAccountRecomputeBalances( Account **list )
-{
-   Account * acc;
-   int nacc = 0;
-   if (!list) return;
-
-   acc = list[0];
-   while (acc) {
-      xaccAccountRecomputeBalance (acc);
-      nacc++;
-      acc = list[nacc];
-   }
-}
-
-/********************************************************************\
-\********************************************************************/
-
 void 
 xaccAccountSetType (Account *acc, int tip) {
 
@@ -1382,16 +1343,6 @@ xaccAccountSetTaxRelated (Account *account, gboolean tax_related)
 /********************************************************************\
 \********************************************************************/
 
-Account *
-IthAccount (Account **list, int i)
-{
-   if (!list || 0 > i) return NULL;
-   return list[i];
-}
-
-/********************************************************************\
-\********************************************************************/
-
 gboolean
 xaccAccountsHaveCommonCurrency(Account *account_1, Account *account_2)
 {

src/engine/Account.h

@@ -165,11 +165,6 @@ void         xaccAccountInsertSplit (Account *account, Split *split);
 void         xaccAccountFixSplitDateOrder (Account *account, Split *split);
 void         xaccTransFixSplitDateOrder (Transaction *trans);
 
-/* The xaccIsAccountInList() subroutine returns the number of times
- *    that an account appears in the account list. 
- */
-int          xaccIsAccountInList (Account * account, Account **list);
-
 /* The xaccAccountOrder() subroutine defines a sorting order 
  *    on accounts.  It takes pointers to two accounts, and
  *    returns -1 if the first account is "less than" the second,
@@ -254,12 +249,6 @@ void            xaccAccountSetTaxRelated (Account *account,
  */
 char *         xaccAccountGetFullName (Account *account, const char separator);
 
-/* The IthAccount() routine merely dereferences: the returned
- *    value is just list[i].  This routine is needed for the perl 
- *    swig wrappers, which cannot dereference a list.
- */
-Account *      IthAccount (Account **list, int i);
-
 /* xaccAccountsHaveCommonCurrency returns true if the two given accounts
  * have a currency in common, i.e., if they can have common transactions.
  * Useful for UI sanity checks.

src/engine/AccountP.h

@@ -162,11 +162,10 @@ void         xaccAccountRemoveSplit (Account *, Split *);
 /* the following recompute the partial balances (stored with the
  * transaction) and the total balance, for this account */
 void         xaccAccountRecomputeBalance (Account *);
-void         xaccAccountRecomputeBalances (Account **);
 
 /* Set the account's GUID. This should only be done when reading
  * an account from a datafile, or some other external source. Never
  * call this on an existing account! */
-void xaccAccountSetGUID (Account *account, GUID *guid);
+void         xaccAccountSetGUID (Account *account, GUID *guid);
 
 #endif /* __XACC_ACCOUNT_P_H__ */

src/engine/Transaction.c

@@ -320,22 +320,6 @@ mark_trans (Transaction *trans)
 /********************************************************************\
 \********************************************************************/
 
-int
-xaccCountSplits (Split **tarray)
-{
-   Split *split;
-   int nsplit = 0;
-
-   if (!tarray) return 0;
-
-   split = tarray[0];
-   while (split) {
-      nsplit ++;
-      split = tarray[nsplit];
-   }
-   return nsplit;
-}
-
 static int
 get_currency_denom(Split * s) {  
   if(!s) return 0;
@@ -2138,15 +2122,5 @@ xaccIsPeerSplit (Split *sa, Split *sb)
    return 0;
 }
 
-/********************************************************************\
-\********************************************************************/
-
-Split *
-IthSplit (Split **list, int i)
-{
-   if (!list || 0 > i) return NULL;
-   return list[i];
-}
-
 /************************ END OF ************************************\
 \************************* FILE *************************************/

src/engine/Transaction.h

@@ -457,9 +457,6 @@ int  xaccSplitDateOrder (Split *sa, Split *sb);
  * Miscellaneous utility routines.
 \********************************************************************/
 
-/* count the number of splits in the indicated array */
-int xaccCountSplits (Split **sarray);
-
 /* 
  * The xaccGetAccountByName() is a convenience routine that 
  *    is essentially identical to xaccGetPeerAccountFromName(),
@@ -486,11 +483,4 @@ Split * xaccGetOtherSplit (Split *split);
  */
 int xaccIsPeerSplit (Split *split_1, Split *split_2);
 
-/* The IthSplit() routine merely dereferences
- *    the list supplied as argument; i.e. it returns list[i].
- *    This routine is needed by the perl swig wrappers, which
- *    is unable to dereference on their own.
- */
-Split       * IthSplit (Split **sarray, int i);
-
 #endif /* __XACC_TRANSACTION_H__ */

src/scm/report-utilities.scm

@@ -104,17 +104,6 @@
 		 (thunk (gnc:account-get-split account x)))
 	       0 (gnc:account-get-split-count account) 1))
 
-;; Pull a scheme list of splits from a C array
-(define (gnc:convert-split-list split-array)
-  (let loop ((index 0)
-             (split (gnc:ith-split split-array 0))
-             (slist '()))
-    (if (not split)
-        (reverse slist)
-        (loop (+ index 1)
-              (gnc:ith-split split-array (+ index 1))
-              (cons split slist)))))
-
 ; (define (gnc:account-transactions-for-each thunk account)
 ;   ;; You must call gnc:group-reset-write-flags on the account group
 ;   ;; before using this...