r14977 - gnucash/branches/swig-redo/src - Remove some unused engine functions.

[Chris Shoemaker]

Author: chris
Date: 2006-10-09 20:08:08 -0400 (Mon, 09 Oct 2006)
New Revision: 14977
Trac: http://svn.gnucash.org/trac/changeset/14977

Modified:
   gnucash/branches/swig-redo/src/engine/engine-helpers.h
   gnucash/branches/swig-redo/src/engine/gnc-numeric.scm
   gnucash/branches/swig-redo/src/engine/gw-engine-spec.scm
   gnucash/branches/swig-redo/src/import-export/qif-import/qif-guess-map.scm
Log:
Remove some unused engine functions.
Remove some gwrap-specific guile type-checking code.



Modified: gnucash/branches/swig-redo/src/engine/engine-helpers.h
===================================================================
--- gnucash/branches/swig-redo/src/engine/engine-helpers.h	2006-10-10 00:07:32 UTC (rev 14976)
+++ gnucash/branches/swig-redo/src/engine/engine-helpers.h	2006-10-10 00:08:08 UTC (rev 14977)
@@ -62,15 +62,6 @@
 SCM gnc_query2scm (Query * q);
 Query * gnc_scm2query (SCM query_scm);
 
-/* See Group.h for info about traversals. */
-
-gboolean gnc_scmGroupStagedTransactionTraversal(AccountGroup *grp,
-                                                unsigned int stage,
-                                                SCM thunk);
-
-gboolean gnc_scmAccountStagedTransactionTraversal(Account *a,
-                                                  unsigned int stage,
-                                                  SCM thunk);
 SCM gnc_gint64_to_scm(const gint64 x);
 gint64 gnc_scm_to_gint64(SCM num);
 int gnc_gh_gint64_p(SCM num);

Modified: gnucash/branches/swig-redo/src/engine/gnc-numeric.scm
===================================================================
--- gnucash/branches/swig-redo/src/engine/gnc-numeric.scm	2006-10-10 00:07:32 UTC (rev 14976)
+++ gnucash/branches/swig-redo/src/engine/gnc-numeric.scm	2006-10-10 00:08:08 UTC (rev 14977)
@@ -74,7 +74,9 @@
 
 ;; Constructor; takes one <gnc:commodity*> and one <gnc-numeric>
 (define (gnc:make-gnc-monetary c a)
-  (if (and (gw:wcp-is-of-type? <gnc:commodity*> c) (gnc:gnc-numeric? a))
+  ;;FIXME: we used to type-check the values, like:
+  ;; (gw:wcp-is-of-type? <gnc:commodity*> c)
+  (if (and #t (gnc:gnc-numeric? a))
       ((record-constructor <gnc-monetary>) c a)
       (warn "wrong arguments for gnc:make-gnc-monetary: " c a)))
 

Modified: gnucash/branches/swig-redo/src/engine/gw-engine-spec.scm
===================================================================
--- gnucash/branches/swig-redo/src/engine/gw-engine-spec.scm	2006-10-10 00:07:32 UTC (rev 14976)
+++ gnucash/branches/swig-redo/src/engine/gw-engine-spec.scm	2006-10-10 00:08:08 UTC (rev 14977)
@@ -1112,26 +1112,6 @@
 
 (gw:wrap-function
  ws
- 'gnc:group-staged-transaction-traversal
- '<gw:bool>
- "gnc_scmGroupStagedTransactionTraversal"
- '((<gnc:AccountGroup*> group)
-   (<gw:unsigned-int> stage)
-   (<gw:scm> thunk))
- "FIXME: For now, see Group.h for info...")
-
-(gw:wrap-function
- ws
- 'gnc:account-staged-transaction-traversal
- '<gw:bool>
- "gnc_scmAccountStagedTransactionTraversal"
- '((<gnc:Account*> account)
-   (<gw:unsigned-int> stage)
-   (<gw:scm> thunk))
- "FIXME: For now, see Group.h for info...")
-
-(gw:wrap-function
- ws
  'gnc:account-get-lot-list
  '(gw:glist-of <gnc:Lot*> callee-owned)
  "xaccAccountGetLotList"

Modified: gnucash/branches/swig-redo/src/import-export/qif-import/qif-guess-map.scm
===================================================================
--- gnucash/branches/swig-redo/src/import-export/qif-import/qif-guess-map.scm	2006-10-10 00:07:32 UTC (rev 14976)
+++ gnucash/branches/swig-redo/src/import-export/qif-import/qif-guess-map.scm	2006-10-10 00:08:08 UTC (rev 14977)
@@ -163,7 +163,9 @@
   (let ((table '()))
     (hash-fold
      (lambda (key value p)
-       (if (and value (gw:wcp-is-of-type? <gnc:commodity*> value))
+       ;;FIXME: we used to type-check the values, like:
+       ;; (gw:wcp-is-of-type? <gnc:commodity*> value)
+       (if (and value #t)
            (set! table
                  (cons (list key 
                              (gnc:commodity-get-namespace value)