Fix more reports.

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

src/backend/file/test/Makefile.am

@@ -1,8 +1,7 @@
-TESTS = test-load-module
-#TESTS = test-load-module test-dom-converters1 test-kvp-frames	\
-#  test-string-converters test-xml-account test-xml2-is-file	\
-#  test-load-xml2 test-load-example-account			\
-#  test-xml-commodity test-xml-transaction test-real-data.sh
+TESTS = test-load-module test-dom-converters1 test-kvp-frames	\
+  test-string-converters test-xml-account test-xml2-is-file	\
+  test-load-xml2 test-load-example-account			\
+  test-xml-commodity test-xml-transaction test-real-data.sh
 
 TESTS_ENVIRONMENT = \
   GNC_MODULE_PATH="${top_srcdir}/src/engine:${top_srcdir}/src/gnc-module:${top_srcdir}/src/backend/file" \

src/engine/Account.c

@@ -537,7 +537,13 @@ Account *
 xaccAccountLookup (const GUID *guid)
 {
   if (!guid) return NULL;
-  return xaccLookupEntity(guid, GNC_ID_ACCOUNT);
+  return xaccLookupEntity (guid, GNC_ID_ACCOUNT);
+}
+
+Account *
+xaccAccountLookupDirect (GUID guid)
+{
+  return xaccLookupEntity (&guid, GNC_ID_ACCOUNT);
 }
 
 /********************************************************************\

src/engine/Account.h

@@ -146,10 +146,13 @@ void xaccAccountSetSlots_nc(Account *account, kvp_frame *frame);
  * The xaccAccountLookup() subroutine will return the
  *    account associated with the given id, or NULL
  *    if there is no such account.
+ *    xaccAccountLookupDirect performs the same
+ *    function but takes a GUID struct directly.
  */
 const GUID * xaccAccountGetGUID (Account *account);
 GUID         xaccAccountReturnGUID (Account *account);
 Account    * xaccAccountLookup (const GUID *guid);
+Account    * xaccAccountLookupDirect (GUID guid);
 
 /*
  * The xaccAccountInsertSplit() method will insert the indicated

src/engine/Transaction.c

@@ -324,6 +324,13 @@ xaccSplitGetGUID (Split *split)
   return &split->guid;
 }
 
+GUID
+xaccSplitReturnGUID (Split *split)
+{
+  if (!split) return *xaccGUIDNULL();
+  return split->guid;
+}
+
 /********************************************************************\
 \********************************************************************/
 
@@ -831,6 +838,13 @@ xaccTransGetGUID (Transaction *trans)
   return &trans->guid;
 }
 
+GUID
+xaccTransReturnGUID (Transaction *trans)
+{
+  if (!trans) return *xaccGUIDNULL();
+  return trans->guid;
+}
+
 /********************************************************************\
 \********************************************************************/
 

src/engine/Transaction.h

@@ -122,12 +122,15 @@ gboolean      xaccTransIsOpen (Transaction *trans);
 /*
  * The xaccTransGetGUID() subroutine will return the
  *    globally unique id associated with that transaction.
+ *    xaccTransReturnGUID() does the same thing but
+ *    returns a GUID struct.
  *
  * The xaccTransLookup() subroutine will return the
  *    transaction associated with the given id, or NULL
  *    if there is no such transaction.
  */
 const GUID  * xaccTransGetGUID (Transaction *trans);
+GUID          xaccTransReturnGUID (Transaction *trans);
 Transaction * xaccTransLookup (const GUID *guid);
 
 
@@ -257,12 +260,15 @@ void xaccSplitSetSlots_nc(Split *s, kvp_frame *frm);
 
 /* The xaccSplitGetGUID() subroutine will return the
  *    globally unique id associated with that split.
+ *    xaccSplitReturnGUID also returns the guid, but
+ *    in a GUID struct.
  *
  * The xaccSplitLookup() subroutine will return the
  *    split associated with the given id, or NULL
  *    if there is no such split.
  */
 const GUID * xaccSplitGetGUID (Split *split);
+GUID         xaccSplitReturnGUID (Split *split);
 Split      * xaccSplitLookup (const GUID *guid);
 
 /* The memo is an arbitrary string associated with a split.

src/engine/gw-engine-spec.scm

@@ -455,6 +455,14 @@
 ;;     (gw:enum-add-value! we "ERR_RPC_NOT_ADDED" 'rpc_not_added)
     #t)
 
+  (gw:wrap-function
+   mod
+   'gnc:split-get-guid
+   '<gnc:guid-scm>
+   "xaccSplitReturnGUID"
+   '((<gnc:Split*> s))
+   "Return the GUID of Split s.")
+
   (gw:wrap-function
    mod
    'gnc:split-get-balance
@@ -603,6 +611,13 @@ gnc:split-get-corr-account-full-name in src/scm/report-utilities.scm")
    "Find the split on the other side of the transaction, and return the 
 code of its account")
 
+  (gw:wrap-function
+   mod
+   'gnc:transaction-get-guid
+   '<gnc:guid-scm>
+   "xaccTransReturnGUID"
+   '((<gnc:Transaction*> t))
+   "Return the GUID of Transaction t.")
 
   (gw:wrap-function
    mod
@@ -855,6 +870,14 @@ description of the nature of a particular account.")
    '((<gnc:Account*> a))
    "Get the GUID of Account a.")
 
+  (gw:wrap-function
+   mod
+   'gnc:account-lookup
+   '<gnc:Account*>
+   "xaccAccountLookupDirect"
+   '((<gnc:guid-scm> guid))
+   "Lookup the account with GUID guid.")
+
   (gw:wrap-function
    mod
    'gnc:account-get-type-string
@@ -2305,6 +2328,3 @@ of having a parent transaction with which one is working...")
    "gnc_run_rpc_server"
    '()
    "Run the RPC Server"))
-
-
-

src/register/register-core/Makefile.am

@@ -1,5 +1,7 @@
 lib_LTLIBRARIES = libgncmod-register-core.la
 
+libgncmod_register_core_la_LDFLAGS = -module
+
 libgncmod_register_core_la_SOURCES = \
   gncmod-register-core.c \
   QuickFill.c \

src/register/register-gnome/Makefile.am

@@ -1,5 +1,7 @@
 lib_LTLIBRARIES = libgncmod-register-gnome.la
 
+libgncmod_register_gnome_la_LDFLAGS = -module
+
 libgncmod_register_gnome_la_SOURCES = \
   gncmod-register-gnome.c \
   combocell-gnome.c \

src/scm/bootstrap.scm.in

@@ -104,7 +104,7 @@
       (cons (string-append gnc:_share-dir-default_ "/guile-modules")
             %load-path))
 
-(simple-format #t "load-path == ~S\n" %load-path)
+;(simple-format #t "load-path == ~S\n" %load-path)
 
 ;; These will be converted to config vars later (see prefs.scm)
 (define gnc:*load-path* #f)