r14987 - gnucash/branches/swig-redo/src - Delete all the gw-*-spec.scm files. Don't need 'em no mo'.
Chris Shoemaker
chris at cvs.gnucash.org
Mon Oct 9 20:37:34 EDT 2006
Author: chris
Date: 2006-10-09 20:37:33 -0400 (Mon, 09 Oct 2006)
New Revision: 14987
Trac: http://svn.gnucash.org/trac/changeset/14987
Removed:
gnucash/branches/swig-redo/src/app-utils/gw-app-utils-spec.scm
gnucash/branches/swig-redo/src/business/business-core/gw-business-core-spec.scm
gnucash/branches/swig-redo/src/business/business-gnome/gw-business-gnome-spec.scm
gnucash/branches/swig-redo/src/business/dialog-tax-table/gw-dialog-tax-table-spec.scm
gnucash/branches/swig-redo/src/core-utils/gw-core-utils-spec.scm
gnucash/branches/swig-redo/src/engine/gw-engine-spec.scm
gnucash/branches/swig-redo/src/engine/gw-kvp-spec.scm
gnucash/branches/swig-redo/src/gnc-module/gw-gnc-module-spec.scm
gnucash/branches/swig-redo/src/gnome-utils/gw-gnome-utils-spec.scm
gnucash/branches/swig-redo/src/gnome/gw-gnc-spec.scm
gnucash/branches/swig-redo/src/register/register-core/gw-register-core-spec.scm
gnucash/branches/swig-redo/src/report/report-gnome/gw-report-gnome-spec.scm
gnucash/branches/swig-redo/src/report/report-system/gw-report-system-spec.scm
Log:
Delete all the gw-*-spec.scm files. Don't need 'em no mo'.
Deleted: gnucash/branches/swig-redo/src/app-utils/gw-app-utils-spec.scm
===================================================================
--- gnucash/branches/swig-redo/src/app-utils/gw-app-utils-spec.scm 2006-10-10 00:34:29 UTC (rev 14986)
+++ gnucash/branches/swig-redo/src/app-utils/gw-app-utils-spec.scm 2006-10-10 00:37:33 UTC (rev 14987)
@@ -1,386 +0,0 @@
-(define-module (g-wrapped gw-app-utils-spec))
-
-(debug-set! maxdepth 100000)
-(debug-set! stack 200000)
-
-(use-modules (g-wrap))
-(use-modules (g-wrap simple-type))
-
-(use-modules (g-wrap gw-standard-spec))
-(use-modules (g-wrap gw-wct-spec))
-(use-modules (g-wrap gw-glib-spec))
-
-(use-modules (g-wrapped gw-engine-spec))
-
-(let ((ws (gw:new-wrapset "gw-app-utils")))
-
- (gw:wrapset-depends-on ws "gw-standard")
- (gw:wrapset-depends-on ws "gw-wct")
- (gw:wrapset-depends-on ws "gw-glib")
-
- (gw:wrapset-depends-on ws "gw-engine")
-
- (gw:wrapset-set-guile-module! ws '(g-wrapped gw-app-utils))
-
- (gw:wrapset-add-cs-declarations!
- ws
- (lambda (wrapset client-wrapset)
- (list
- "#include <config.h>\n"
- "#include <option-util.h>\n"
- "#include <gnc-euro.h>\n"
- "#include <gnc-exp-parser.h>\n"
- "#include <gnc-ui-util.h>\n"
- "#include <gnc-gettext-util.h>\n"
- "#include <gnc-helpers.h>\n"
- "#include <gnc-accounting-period.h>\n"
- "#include <gnc-session.h>\n"
- "#include <gnc-component-manager.h>\n")))
-
- (gw:wrap-simple-type ws '<gnc:print-amount-info-scm> "GNCPrintAmountInfo"
- '("gnc_printinfo_p(" scm-var ")")
- '(c-var " = gnc_scm2printinfo(" scm-var ");\n")
- '(scm-var " = gnc_printinfo2scm(" c-var ");\n"))
-
- (gw:wrap-simple-type ws '<gnc:quote-info-scm> "gnc_commodity *"
- '("FALSE")
- '(c-var " = NULL;\n")
- '(scm-var " = gnc_quoteinfo2scm(" c-var ");\n"))
-
- (gw:wrap-as-wct ws
- '<gnc:OptionChangeCallback>
- "GNCOptionChangeCallback" "const GNCOptionChangeCallback")
-
- (gw:wrap-as-wct ws '<gnc:OptionDB*> "GNCOptionDB*" "const GNCOptionDB*")
-
- (gw:wrap-function
- ws
- 'gnc:get-current-group
- '<gnc:AccountGroup*>
- "gnc_get_current_group"
- '()
- "Get the current top-level group.")
-
- (gw:wrap-function
- ws
- 'gnc-get-current-book
- '<gnc:Book*>
- "gnc_get_current_book"
- '()
- "Get the current top-level book.")
-
- (gw:wrap-function
- ws
- 'gnc:get-current-session
- '<gnc:Session*>
- "gnc_get_current_session"
- '()
- "Get the current session.")
-
- (gw:wrap-function
- ws
- 'gnc:parse-amount
- '<gw:scm>
- "gnc_parse_amount_helper"
- '(((<gw:mchars> caller-owned const) str)
- (<gw:bool> monetary))
- "Parse the expression and return either a gnc numeric or #f.")
-
- (gw:wrap-function
- ws
- 'gnc-gettext-helper
- '(<gw:mchars> caller-owned const)
- "gnc_gettext_helper"
- '(((<gw:mchars> caller-owned const) str))
- "Returns the translated version of string")
-
- (gw:wrap-function
- ws
- 'gnc-option-db-new
- '<gnc:OptionDB*>
- "gnc_option_db_new"
- '((<gw:scm> guile-options))
- "Create an option DB with the set of guile options")
-
- (gw:wrap-function
- ws
- 'gnc-option-db-destroy
- '<gw:void>
- "gnc_option_db_destroy"
- '((<gnc:OptionDB*> option-db))
- "Destroy the OptionDB")
-
- (gw:wrap-function
- ws
- 'gnc-option-db-set-option-selectable-by-name
- '<gw:void>
- "gnc_option_db_set_option_selectable_by_name"
- '((<gw:scm> guile-options)
- ((<gw:mchars> caller-owned const) section)
- ((<gw:mchars> caller-owned const) name)
- (<gw:bool> selectable))
- "Set the appropriate option widget to be selectable or not selectable, depending on if <gw:bool> selectable is true or false respectively.")
-
- (gw:wrap-function
- ws
- 'gnc-default-currency
- '(<gnc:commodity*> const)
- "gnc_default_currency"
- '()
- "Return the new-account default currency set by the user.")
-
- (gw:wrap-function
- ws
- 'gnc-default-report-currency
- '(<gnc:commodity*> const)
- "gnc_default_report_currency"
- '()
- "Return the default report currency set by the user.")
-
- (gw:wrap-function
- ws
- 'gnc:amount->string
- '(<gw:mchars> callee-owned const)
- "xaccPrintAmount"
- '((<gnc:numeric> amount)
- (<gnc:print-amount-info-scm> info))
- "Print amount using current locale. The info argument
-determines formatting details.")
-
- (gw:wrap-function
- ws
- 'gncp_option_invoke_callback
- '<gw:void>
- "gncp_option_invoke_callback"
- '((<gnc:OptionChangeCallback> callback) (<gw:void*> data))
- "Invoke the c option callback on the given data.")
-
- (gw:wrap-function
- ws
- 'gnc-option-db-register-option
- '<gw:void>
- "gncp_option_db_register_option"
- '((<gw:int> db_handle) (<gw:scm> option))
- "Register the option with the option database db_handle.")
-
- (gw:wrap-function
- ws
- 'gnc:locale-decimal-places
- '<gw:int>
- "gnc_locale_decimal_places"
- '()
- "Return the number of decimal places for this locale.")
-
- (gw:wrap-function
- ws
- 'gnc:locale-default-currency
- '(<gnc:commodity*> const)
- "gnc_locale_default_currency"
- '()
- "Return the default currency for the current locale.")
-
- (gw:wrap-function
- ws
- 'gnc-locale-default-iso-currency-code
- '(<gw:mchars> callee-owned const)
- "gnc_locale_default_iso_currency_code"
- '()
- "Return the default iso currency code for the current locale.")
-
- (gw:wrap-function
- ws
- 'gnc:register-gui-component
- '<gw:int>
- "gnc_register_gui_component_scm"
- '(((<gw:mchars> caller-owned const) component-class)
- (<gw:scm> refresh-handler)
- (<gw:scm> close-handler))
- "Register a gui component with the component manager.")
-
- (gw:wrap-function
- ws
- 'gnc:gui-component-watch-entity
- '<gw:void>
- "gnc_gui_component_watch_entity_direct"
- '((<gw:int> component-id)
- (<gnc:guid-scm> entity)
- (<gnc:event-type> event-type-mask))
- "Watch the events for a particular entity.")
-
- (gw:wrap-function
- ws
- 'gnc:gui-component-watch-entity-type
- '<gw:void>
- "gnc_gui_component_watch_entity_type"
- '((<gw:int> component-id)
- ((<gw:mchars> caller-owned const) id-type)
- (<gnc:event-type> event-type-mask))
- "Watch the events for a particular entity type.")
-
- (gw:wrap-function
- ws
- 'gnc:unregister-gui-component
- '<gw:void>
- "gnc_unregister_gui_component"
- '((<gw:int> component-id))
- "Unregister a gui component by id.")
-
- (gw:wrap-function
- ws
- 'gnc:close-gui-component
- '<gw:void>
- "gnc_close_gui_component"
- '((<gw:int> component-id))
- "Close a gui component by id.")
-
- (gw:wrap-function
- ws
- 'gnc-account-get-full-name
- '(<gw:mchars> caller-owned)
- "gnc_account_get_full_name"
- '((<gnc:Account*> account))
- "Return the fully-qualified name of the account.")
-
- (gw:wrap-function
- ws
- 'gnc-default-print-info
- '<gnc:print-amount-info-scm>
- "gnc_default_print_info"
- '((<gw:bool> use_symbol))
- "Return the default print info object.")
-
- (gw:wrap-function
- ws
- 'gnc-commodity-print-info
- '<gnc:print-amount-info-scm>
- "gnc_commodity_print_info"
- '((<gnc:commodity*> commodity) (<gw:bool> use_symbol))
- "Return the default print info for commodity.")
-
- (gw:wrap-function
- ws
- 'gnc-account-print-info
- '<gnc:print-amount-info-scm>
- "gnc_account_print_info"
- '((<gnc:Account*> account) (<gw:bool> use_symbol))
- "Return a print info for printing account balances.")
-
- (gw:wrap-function
- ws
- 'gnc:split-amount-print-info
- '<gnc:print-amount-info-scm>
- "gnc_split_amount_print_info"
- '((<gnc:Split*> split) (<gw:bool> use_symbol))
- "Return a print info for printing split amounts.")
-
- (gw:wrap-function
- ws
- 'gnc:split-value-print-info
- '<gnc:print-amount-info-scm>
- "gnc_split_value_print_info"
- '((<gnc:Split*> split) (<gw:bool> use_symbol))
- "Return a print info for print split value quantities.")
-
- (gw:wrap-function
- ws
- 'gnc-share-print-info-places
- '<gnc:print-amount-info-scm>
- "gnc_share_print_info_places"
- '((<gw:int> decplaces))
- "Return a print info for printing share quantities to 'n' places.")
-
- (gw:wrap-function
- ws
- 'gnc:default-share-print-info
- '<gnc:print-amount-info-scm>
- "gnc_default_share_print_info"
- '()
- "Return a print info for printing generic share quantities.")
-
- (gw:wrap-function
- ws
- 'gnc:default-price-print-info
- '<gnc:print-amount-info-scm>
- "gnc_default_price_print_info"
- '()
- "Return a print info for printing generic price quantities.")
-
- (gw:wrap-function
- ws
- 'gnc-reverse-balance
- '<gw:bool>
- "gnc_reverse_balance"
- '((<gnc:Account*> account))
- "Given an account, find out whether the balance should be reversed for display")
-
- (gw:wrap-function
- ws
- 'gnc-is-euro-currency
- '<gw:bool>
- "gnc_is_euro_currency"
- '((<gnc:commodity*> currency))
- "Check if a given currency is a EURO currency")
-
- (gw:wrap-function
- ws
- 'gnc:is-euro-currency-code
- '<gw:bool>
- "gnc_is_euro_currency_code"
- '(((<gw:mchars> caller-owned const) str))
- "Check if a given currency is a EURO currency")
-
- (gw:wrap-function
- ws
- 'gnc-convert-to-euro
- '<gnc:numeric>
- "gnc_convert_to_euro"
- '((<gnc:commodity*> currency) (<gnc:numeric> value))
- "Convert the value from the given currency to EURO")
-
- (gw:wrap-function
- ws
- 'gnc-convert-from-euro
- '<gnc:numeric>
- "gnc_convert_from_euro"
- '((<gnc:commodity*> currency) (<gnc:numeric> value))
- "Convert the value from EURO to the given currency")
-
- (gw:wrap-function
- ws
- 'gnc:euro-currency-get-rate
- '<gnc:numeric>
- "gnc_euro_currency_get_rate"
- '((<gnc:commodity*> currency))
- "Returns the exchange rate from the given currency to EURO")
-
- (gw:wrap-function
- ws
- 'gnc:get-euro
- '<gnc:commodity*>
- "gnc_get_euro"
- '()
- "Returns the commodity EURO")
-
- (gw:wrap-function
- ws
- 'gnc:commodity-table-get-quotable-commodities-info
- '(gw:glist-of <gnc:quote-info-scm> caller-owned)
- "gnc_commodity_table_get_quotable_commodities"
- '((<gnc:commodity-table*> table))
- "Return a list of all the quotable commodities in a given namespace in the table.")
-
- (gw:wrap-function
- ws
- 'gnc_accounting_period_fiscal_start
- '<gw:int>
- "gnc_accounting_period_fiscal_start"
- '()
- "Returns the beginning of the preferred accounting period")
-
- (gw:wrap-function
- ws
- 'gnc_accounting_period_fiscal_end
- '<gw:int>
- "gnc_accounting_period_fiscal_end"
- '()
- "Returns the end of the preferred accounting period"))
Deleted: gnucash/branches/swig-redo/src/business/business-core/gw-business-core-spec.scm
===================================================================
--- gnucash/branches/swig-redo/src/business/business-core/gw-business-core-spec.scm 2006-10-10 00:34:29 UTC (rev 14986)
+++ gnucash/branches/swig-redo/src/business/business-core/gw-business-core-spec.scm 2006-10-10 00:37:33 UTC (rev 14987)
@@ -1,1179 +0,0 @@
-;;; -*-scheme-*-
-
-;(debug-enable 'backtrace)
-;(debug-enable 'debug)
-;(read-enable 'positions)
-
-(debug-set! maxdepth 100000)
-(debug-set! stack 200000)
-
-(define-module (g-wrapped gw-business-core-spec)
- :use-module (g-wrap))
-
-(use-modules (g-wrap))
-(use-modules (g-wrap simple-type))
-
-(use-modules (g-wrap gw-standard-spec))
-(use-modules (g-wrap gw-wct-spec))
-
-(use-modules (g-wrapped gw-engine-spec))
-(use-modules (g-wrap gw-wct-spec))
-(use-modules (g-wrap gw-glib-spec))
-
-(let ((ws (gw:new-wrapset "gw-business-core")))
-
- (gw:wrapset-depends-on ws "gw-standard")
- (gw:wrapset-depends-on ws "gw-wct")
- (gw:wrapset-depends-on ws "gw-glib")
-
- (gw:wrapset-depends-on ws "gw-engine")
-
- (gw:wrapset-set-guile-module! ws '(g-wrapped gw-business-core))
-
- (gw:wrapset-add-cs-declarations!
- ws
- (lambda (wrapset client-wrapset)
- (list
- "#include <gncAddress.h>\n"
- "#include <gncBillTerm.h>\n"
- "#include <gncCustomer.h>\n"
- "#include <gncEmployee.h>\n"
- "#include <gncEntry.h>\n"
- "#include <gncInvoice.h>\n"
- "#include <gncJob.h>\n"
- "#include <gncOrder.h>\n"
- "#include <gncOwner.h>\n"
- "#include <gncTaxTable.h>\n"
- "#include <gncVendor.h>\n"
- "#include <gncBusGuile.h>\n")))
-
- (gw:wrapset-add-cs-initializers!
- ws
- (lambda (wrapset client-wrapset status-var)
- (if client-wrapset
- '()
- (gw:inline-scheme '(use-modules (gnucash business-core))))))
-
- ;; The core Business Object Types
-
- (gw:wrap-as-wct ws '<gnc:GncAddress*> "GncAddress*" "const GncAddress*")
- (gw:wrap-as-wct ws '<gnc:GncBillTerm*> "GncBillTerm*" "const GncBillTerm*")
- (gw:wrap-as-wct ws '<gnc:GncCustomer*> "GncCustomer*" "const GncCustomer*")
- (gw:wrap-as-wct ws '<gnc:GncEmployee*> "GncEmployee*" "const GncEmployee*")
- (gw:wrap-as-wct ws '<gnc:GncEntry*> "GncEntry*" "const GncEntry*")
- (gw:wrap-as-wct ws '<gnc:GncInvoice*> "GncInvoice*" "const GncInvoice*")
- (gw:wrap-as-wct ws '<gnc:GncJob*> "GncJob*" "const GncJob*")
- (gw:wrap-as-wct ws '<gnc:GncOrder*> "GncOrder*" "const GncOrder*")
- (gw:wrap-as-wct ws '<gnc:GncOwner*> "GncOwner*" "const GncOwner*")
- (gw:wrap-as-wct ws '<gnc:GncTaxTable*> "GncTaxTable*" "const GncTaxTable*")
- (gw:wrap-as-wct ws '<gnc:GncVendor*> "GncVendor*" "const GncVendor*")
-
- (let ((wt (gw:wrap-enumeration ws '<gnc:GncOwnerType> "GncOwnerType")))
- (gw:enum-add-value! wt "GNC_OWNER_NONE" 'gnc-owner-none)
- (gw:enum-add-value! wt "GNC_OWNER_UNDEFINED" 'gnc-owner-undefined)
- (gw:enum-add-value! wt "GNC_OWNER_CUSTOMER" 'gnc-owner-customer)
- (gw:enum-add-value! wt "GNC_OWNER_JOB" 'gnc-owner-job)
- (gw:enum-add-value! wt "GNC_OWNER_VENDOR" 'gnc-owner-vendor)
- (gw:enum-add-value! wt "GNC_OWNER_EMPLOYEE" 'gnc-owner-employee)
- #t)
-
- (let ((wt (gw:wrap-enumeration ws '<gnc:GncAmountType> "GncAmountType")))
- (gw:enum-add-value! wt "GNC_AMT_TYPE_VALUE" 'gnc-amount-type-value)
- (gw:enum-add-value! wt "GNC_AMT_TYPE_PERCENT" 'gnc-amount-type-percent)
- #t)
-
- (let ((wt (gw:wrap-enumeration ws '<gnc:GncTaxIncluded> "GncTaxIncluded")))
- (gw:enum-add-value! wt "GNC_TAXINCLUDED_YES" 'gnc-tax-included-yes)
- (gw:enum-add-value! wt "GNC_TAXINCLUDED_NO" 'gnc-tax-included-no)
- (gw:enum-add-value! wt "GNC_TAXINCLUDED_USEGLOBAL" 'gnc-tax-included-useglobal)
- #t)
-
- (let ((wt (gw:wrap-enumeration ws '<gnc:GncBillTermType> "GncBillTermType")))
- (gw:enum-add-value! wt "GNC_TERM_TYPE_DAYS" 'gnc-term-type-days)
- (gw:enum-add-value! wt "GNC_TERM_TYPE_PROXIMO" 'gnc-term-type-proximo)
- #t)
-
- ;; Wrap the GncAccountValue type (gncTaxTable.h)
- (gw:wrap-simple-type
- ws
- '<gnc:GncAccountValue*> "GncAccountValue*"
- '("gnc_account_value_pointer_p(" scm-var ")")
- '(c-var " = gnc_scm_to_account_value_ptr(" scm-var ");\n")
- '(scm-var " = gnc_account_value_ptr_to_scm(" c-var ");\n"))
-
- ;;
- ;; Define business Query parameters
- ;;
-
- (gw:wrap-value ws 'gnc:invoice-from-lot '<gnc:id-type> "INVOICE_FROM_LOT")
- (gw:wrap-value ws 'gnc:invoice-from-txn '<gnc:id-type> "INVOICE_FROM_TXN")
- (gw:wrap-value ws 'gnc:invoice-owner '<gnc:id-type> "INVOICE_OWNER")
-
- (gw:wrap-value ws 'gnc:owner-from-lot '<gnc:id-type> "OWNER_FROM_LOT")
- (gw:wrap-value ws 'gnc:owner-parentg '<gnc:id-type> "OWNER_PARENTG")
-
- ;;
- ;; gncAddress.h
- ;;
-
- ; Set Functions
-
- (gw:wrap-function
- ws
- 'gnc:address-set-name
- '<gw:void>
- "gncAddressSetName"
- '((<gnc:GncAddress*> address) ((<gw:mchars> callee-owned const) name))
- "Set the address name")
-
- (gw:wrap-function
- ws
- 'gnc:address-set-addr1
- '<gw:void>
- "gncAddressSetAddr1"
- '((<gnc:GncAddress*> address) ((<gw:mchars> callee-owned const) addr1))
- "Set the address's addr1")
-
- (gw:wrap-function
- ws
- 'gnc:address-set-addr2
- '<gw:void>
- "gncAddressSetAddr2"
- '((<gnc:GncAddress*> address) ((<gw:mchars> callee-owned const) addr2))
- "Set the address's addr2")
-
- (gw:wrap-function
- ws
- 'gnc:address-set-addr3
- '<gw:void>
- "gncAddressSetAddr3"
- '((<gnc:GncAddress*> address) ((<gw:mchars> callee-owned const) addr3))
- "Set the address's addr3")
-
- (gw:wrap-function
- ws
- 'gnc:address-set-addr4
- '<gw:void>
- "gncAddressSetAddr4"
- '((<gnc:GncAddress*> address) ((<gw:mchars> callee-owned const) addr4))
- "Set the address's addr4")
-
- ; Get Functions
-
- (gw:wrap-function
- ws
- 'gnc:address-get-name
- '(<gw:mchars> callee-owned const)
- "gncAddressGetName"
- '((<gnc:GncAddress*> address))
- "Return the Address's Name Entry")
-
- (gw:wrap-function
- ws
- 'gnc:address-get-addr1
- '(<gw:mchars> callee-owned const)
- "gncAddressGetAddr1"
- '((<gnc:GncAddress*> address))
- "Return the Address's Addr1 Entry")
-
- (gw:wrap-function
- ws
- 'gnc:address-get-addr2
- '(<gw:mchars> callee-owned const)
- "gncAddressGetAddr2"
- '((<gnc:GncAddress*> address))
- "Return the Address's Addr2 Entry")
-
- (gw:wrap-function
- ws
- 'gnc:address-get-addr3
- '(<gw:mchars> callee-owned const)
- "gncAddressGetAddr3"
- '((<gnc:GncAddress*> address))
- "Return the Address's Addr3 Entry")
-
- (gw:wrap-function
- ws
- 'gnc:address-get-addr4
- '(<gw:mchars> callee-owned const)
- "gncAddressGetAddr4"
- '((<gnc:GncAddress*> address))
- "Return the Address's Addr4 Entry")
-
- (gw:wrap-function
- ws
- 'gnc:address-get-phone
- '(<gw:mchars> callee-owned const)
- "gncAddressGetPhone"
- '((<gnc:GncAddress*> address))
- "Return the Address's Phone Entry")
-
- (gw:wrap-function
- ws
- 'gnc:address-get-fax
- '(<gw:mchars> callee-owned const)
- "gncAddressGetFax"
- '((<gnc:GncAddress*> address))
- "Return the Address's Fax Entry")
-
- (gw:wrap-function
- ws
- 'gnc:address-get-email
- '(<gw:mchars> callee-owned const)
- "gncAddressGetEmail"
- '((<gnc:GncAddress*> address))
- "Return the Address's Email Entry")
-
- ;;
- ;; gncBillTerm.h
- ;;
-
- (gw:wrap-function
- ws
- 'gnc:bill-term-get-name
- '(<gw:mchars> callee-owned const)
- "gncBillTermGetName"
- '((<gnc:GncBillTerm*> term))
- "Return the Bill-term name")
-
- (gw:wrap-function
- ws
- 'gnc:bill-term-get-description
- '(<gw:mchars> callee-owned const)
- "gncBillTermGetDescription"
- '((<gnc:GncBillTerm*> term))
- "Return the printable Bill-term description")
-
- ;;
- ;; gncCustomer.h
- ;;
-
- ; Set Functions
-
- (gw:wrap-function
- ws
- 'gnc:customer-create
- '<gnc:GncCustomer*>
- "gncCustomerCreate"
- '((<gnc:Book*> book))
- "Create a new customer")
-
- (gw:wrap-function
- ws
- 'gnc:customer-set-id
- '<gw:void>
- "gncCustomerSetID"
- '((<gnc:GncCustomer*> customer) ((<gw:mchars> callee-owned const) id))
- "Set the customer ID")
-
- (gw:wrap-function
- ws
- 'gnc:customer-set-name
- '<gw:void>
- "gncCustomerSetName"
- '((<gnc:GncCustomer*> customer) ((<gw:mchars> callee-owned const) name))
- "Set the customer Name")
-
- (gw:wrap-function
- ws
- 'gnc:customer-set-currency
- '<gw:void>
- "gncCustomerSetCurrency"
- '((<gnc:GncCustomer*> customer) (<gnc:commodity*> currency))
- "Set the Customer Currency")
-
- ; Get Functions
-
- (gw:wrap-function
- ws
- 'gnc:customer-get-guid
- '<gnc:guid-scm>
- "gncCustomerRetGUID"
- '((<gnc:GncCustomer*> customer))
- "Return the GUID of the customer")
-
- (gw:wrap-function
- ws
- 'gnc:customer-lookup
- '<gnc:GncCustomer*>
- "gncCustomerLookupDirect"
- '((<gnc:guid-scm> guid) (<gnc:Book*> book))
- "Lookup the customer with GUID guid.")
-
- (gw:wrap-function
- ws
- 'gnc:customer-get-id
- '(<gw:mchars> callee-owned const)
- "gncCustomerGetID"
- '((<gnc:GncCustomer*> customer))
- "Return the Customer's ID")
-
- (gw:wrap-function
- ws
- 'gnc:customer-get-name
- '(<gw:mchars> callee-owned const)
- "gncCustomerGetName"
- '((<gnc:GncCustomer*> customer))
- "Return the Customer's Name")
-
- (gw:wrap-function
- ws
- 'gnc:customer-get-addr
- '<gnc:GncAddress*>
- "gncCustomerGetAddr"
- '((<gnc:GncCustomer*> customer))
- "Return the Customer's Billing Address")
-
- (gw:wrap-function
- ws
- 'gnc:customer-get-shipaddr
- '<gnc:GncAddress*>
- "gncCustomerGetShipAddr"
- '((<gnc:GncCustomer*> customer))
- "Return the Customer's Shipping Address")
-
- (gw:wrap-function
- ws
- 'gnc:customer-get-notes
- '(<gw:mchars> callee-owned const)
- "gncCustomerGetNotes"
- '((<gnc:GncCustomer*> customer))
- "Return the Customer's Notes")
-
- (gw:wrap-function
- ws
- 'gnc:customer-get-currency
- '<gnc:commodity*>
- "gncCustomerGetCurrency"
- '((<gnc:GncCustomer*> customer))
- "Get the Customer Currency")
-
- ;;
- ;; gncEmployee.h
- ;;
-
- (gw:wrap-function
- ws
- 'gnc:employee-get-guid
- '<gnc:guid-scm>
- "gncEmployeeRetGUID"
- '((<gnc:GncEmployee*> employee))
- "Return the GUID of the employee")
-
- (gw:wrap-function
- ws
- 'gnc:employee-lookup
- '<gnc:GncEmployee*>
- "gncEmployeeLookupDirect"
- '((<gnc:guid-scm> guid) (<gnc:Book*> book))
- "Lookup the employee with GUID guid.")
-
- (gw:wrap-function
- ws
- 'gnc:employee-get-id
- '(<gw:mchars> callee-owned const)
- "gncEmployeeGetID"
- '((<gnc:GncEmployee*> employee))
- "Return the Employee's ID")
-
- (gw:wrap-function
- ws
- 'gnc:customer-get-username
- '(<gw:mchars> callee-owned const)
- "gncEmployeeGetUsername"
- '((<gnc:GncEmployee*> employee))
- "Return the Employee's Username")
-
- (gw:wrap-function
- ws
- 'gnc:employee-get-addr
- '<gnc:GncAddress*>
- "gncEmployeeGetAddr"
- '((<gnc:GncEmployee*> employee))
- "Return the Employee's Address")
-
- ;;
- ;; gncEntry.h
- ;;
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-date
- '<gnc:time-pair>
- "gncEntryGetDate"
- '((<gnc:GncEntry*> entry))
- "Return the entry's date")
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-description
- '(<gw:mchars> callee-owned const)
- "gncEntryGetDescription"
- '((<gnc:GncEntry*> entry))
- "Return the Entry's Description")
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-action
- '(<gw:mchars> callee-owned const)
- "gncEntryGetAction"
- '((<gnc:GncEntry*> entry))
- "Return the Entry's Action")
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-quantity
- '<gnc:numeric>
- "gncEntryGetQuantity"
- '((<gnc:GncEntry*> entry))
- "Return the Entry's Quantity")
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-inv-price
- '<gnc:numeric>
- "gncEntryGetInvPrice"
- '((<gnc:GncEntry*> entry))
- "Return the Entry's Price")
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-inv-discount
- '<gnc:numeric>
- "gncEntryGetInvDiscount"
- '((<gnc:GncEntry*> entry))
- "Return the Entry's Discount")
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-inv-discount-type
- '<gw:int>
- "gncEntryGetInvDiscountType"
- '((<gnc:GncEntry*> entry))
- "Return the Entry's discount type")
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-bill-price
- '<gnc:numeric>
- "gncEntryGetBillPrice"
- '((<gnc:GncEntry*> entry))
- "Return the Entry's Price")
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-inv-taxable
- '<gw:bool>
- "gncEntryGetInvTaxable"
- '((<gnc:GncEntry*> entry))
- "Return the Entry's Taxable value")
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-inv-tax-table
- '<gnc:GncTaxTable*>
- "gncEntryGetInvTaxTable"
- '((<gnc:GncEntry*> entry))
- "Return the Entry's Invoice Tax Table")
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-bill-taxable
- '<gw:bool>
- "gncEntryGetBillTaxable"
- '((<gnc:GncEntry*> entry))
- "Return the Entry's Taxable value")
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-bill-tax-table
- '<gnc:GncTaxTable*>
- "gncEntryGetBillTaxTable"
- '((<gnc:GncEntry*> entry))
- "Return the Entry's Bill Tax Table")
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-value
- '<gnc:numeric>
- "gncEntryReturnValue"
- '((<gnc:GncEntry*> entry) (<gw:bool> invoice?))
- "Return the Entry's computed Value (after discount)")
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-tax-value
- '<gnc:numeric>
- "gncEntryReturnTaxValue"
- '((<gnc:GncEntry*> entry) (<gw:bool> invoice?))
- "Return the Entry's computed Tax Value")
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-discount-value
- '<gnc:numeric>
- "gncEntryReturnDiscountValue"
- '((<gnc:GncEntry*> entry) (<gw:bool> invoice?))
- "Return the Entry's computed Discount Value")
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-tax-values
- '(gw:glist-of <gnc:GncAccountValue*> callee-owned)
- "gncEntryReturnTaxValues"
- '((<gnc:GncEntry*> entry) (<gw:bool> invoice?))
- "Return the Entry's list of computed Tax Values for each Tax account")
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-invoice
- '<gnc:GncInvoice*>
- "gncEntryGetInvoice"
- '((<gnc:GncEntry*> entry))
- "Return the Entry's Invoice")
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-bill
- '<gnc:GncInvoice*>
- "gncEntryGetBill"
- '((<gnc:GncEntry*> entry))
- "Return the Entry's Bill")
-
- (gw:wrap-function
- ws
- 'gnc:entry-get-order
- '<gnc:GncOrder*>
- "gncEntryGetOrder"
- '((<gnc:GncEntry*> entry))
- "Return the Entry's Order")
-
- ;;
- ;; gncInvoice.h
- ;;
-
- ; Set Functions
-
- (gw:wrap-function
- ws
- 'gnc:invoice-get-guid
- '<gnc:guid-scm>
- "gncInvoiceRetGUID"
- '((<gnc:GncInvoice*> invoice))
- "Return the GUID of the invoice")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-lookup
- '<gnc:GncInvoice*>
- "gncInvoiceLookupDirect"
- '((<gnc:guid-scm> guid) (<gnc:Book*> book))
- "Lookup the invoice with GUID guid.")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-create
- '<gnc:GncInvoice*>
- "gncInvoiceCreate"
- '((<gnc:Book*> book))
- "Create a new invoice")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-set-id
- '<gw:void>
- "gncInvoiceSetID"
- '((<gnc:GncInvoice*> invoice) ((<gw:mchars> callee-owned const) id))
- "Set the Invoice ID")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-set-owner
- '<gw:void>
- "gncInvoiceSetOwner"
- '((<gnc:GncInvoice*> invoice) (<gnc:GncOwner*> owner))
- "Set the Invoice Owner")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-set-date-opened
- '<gw:void>
- "gncInvoiceSetDateOpened"
- '((<gnc:GncInvoice*> invoice) (<gnc:time-pair> date))
- "Set the Invoice-Opened Date")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-set-terms
- '<gw:void>
- "gncInvoiceSetTerms"
- '((<gnc:GncInvoice*> invoice) (<gnc:GncBillTerm*> term))
- "Set the Invoice Terms")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-set-currency
- '<gw:void>
- "gncInvoiceSetCurrency"
- '((<gnc:GncInvoice*> invoice) (<gnc:commodity*> currency))
- "Set the Invoice Currency")
-
- ; Get Functions
-
- (gw:wrap-function
- ws
- 'gnc:invoice-get-book
- '<gnc:Book*>
- "gncInvoiceGetBook"
- '((<gnc:GncInvoice*> invoice))
- "Return the invoice's book")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-get-id
- '(<gw:mchars> callee-owned const)
- "gncInvoiceGetID"
- '((<gnc:GncInvoice*> invoice))
- "Return the invoice's ID")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-get-owner
- '<gnc:GncOwner*>
- "gncInvoiceGetOwner"
- '((<gnc:GncInvoice*> invoice))
- "Return the invoice's Owner")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-get-date-opened
- '<gnc:time-pair>
- "gncInvoiceGetDateOpened"
- '((<gnc:GncInvoice*> invoice))
- "Return the Date the invoice was opened")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-get-date-posted
- '<gnc:time-pair>
- "gncInvoiceGetDatePosted"
- '((<gnc:GncInvoice*> invoice))
- "Return the Date the invoice was posted")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-get-date-due
- '<gnc:time-pair>
- "gncInvoiceGetDateDue"
- '((<gnc:GncInvoice*> invoice))
- "Return the Date the invoice is due")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-get-terms
- '(<gnc:GncBillTerm*>)
- "gncInvoiceGetTerms"
- '((<gnc:GncInvoice*> invoice))
- "Return the invoice's Terms")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-get-billing-id
- '(<gw:mchars> callee-owned const)
- "gncInvoiceGetBillingID"
- '((<gnc:GncInvoice*> invoice))
- "Return the invoice's Billing ID")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-get-notes
- '(<gw:mchars> callee-owned const)
- "gncInvoiceGetNotes"
- '((<gnc:GncInvoice*> invoice))
- "Return the invoice's Notes")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-get-currency
- '<gnc:commodity*>
- "gncInvoiceGetCurrency"
- '((<gnc:GncInvoice*> invoice))
- "Return the invoice's currency")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-get-entries
- '(gw:glist-of <gnc:GncEntry*> callee-owned)
- "gncInvoiceGetEntries"
- '((<gnc:GncInvoice*> invoice))
- "Return the invoice's list of Entries")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-get-posted-lot
- '<gnc:Lot*>
- "gncInvoiceGetPostedLot"
- '((<gnc:GncInvoice*> invoice))
- "Return the posted Lot for this Invoice.")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-get-posted-account
- '<gnc:Account*>
- "gncInvoiceGetPostedAcc"
- '((<gnc:GncInvoice*> invoice))
- "Return the posted Account for this Invoice.")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-get-posted-txn
- '<gnc:Transaction*>
- "gncInvoiceGetPostedTxn"
- '((<gnc:GncInvoice*> invoice))
- "Return the posted Transaction for this Invoice.")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-get-invoice-from-lot
- '<gnc:GncInvoice*>
- "gncInvoiceGetInvoiceFromLot"
- '((<gnc:Lot*> lot))
- "Return the Invoice attached to a Lot.")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-get-invoice-from-txn
- '<gnc:GncInvoice*>
- "gncInvoiceGetInvoiceFromTxn"
- '((<gnc:Transaction*> txn))
- "Return the Invoice attached to a Txn.")
-
- ;;
- ;; gncJob.h
- ;;
-
- ; Set Functions
-
- (gw:wrap-function
- ws
- 'gnc:job-create
- '<gnc:GncJob*>
- "gncJobCreate"
- '((<gnc:Book*> book))
- "Create a new Job")
-
- (gw:wrap-function
- ws
- 'gnc:job-set-id
- '<gw:void>
- "gncJobSetID"
- '((<gnc:GncJob*> job) ((<gw:mchars> callee-owned const) id))
- "Set the job ID")
-
- (gw:wrap-function
- ws
- 'gnc:job-set-name
- '<gw:void>
- "gncJobSetName"
- '((<gnc:GncJob*> job) ((<gw:mchars> callee-owned const) name))
- "Set the job Name")
-
- (gw:wrap-function
- ws
- 'gnc:job-set-reference
- '<gw:void>
- "gncJobSetReference"
- '((<gnc:GncJob*> job) ((<gw:mchars> callee-owned const) reference))
- "Set the job Reference")
-
- (gw:wrap-function
- ws
- 'gnc:job-set-owner
- '<gw:void>
- "gncJobSetOwner"
- '((<gnc:GncJob*> job) (<gnc:GncOwner*> owner))
- "Set the job Owner")
-
- ; Get Functions
-
- (gw:wrap-function
- ws
- 'gnc:job-get-id
- '(<gw:mchars> callee-owned const)
- "gncJobGetID"
- '((<gnc:GncJob*> job))
- "Return the Job's ID")
-
- (gw:wrap-function
- ws
- 'gnc:job-get-name
- '(<gw:mchars> callee-owned const)
- "gncJobGetName"
- '((<gnc:GncJob*> job))
- "Return the Job's Name")
-
- (gw:wrap-function
- ws
- 'gnc:job-get-reference
- '(<gw:mchars> callee-owned const)
- "gncJobGetReference"
- '((<gnc:GncJob*> job))
- "Return the Job's Reference")
-
- (gw:wrap-function
- ws
- 'gnc:job-get-owner
- '<gnc:GncOwner*>
- "gncJobGetOwner"
- '((<gnc:GncJob*> job))
- "Return the Job's Owner")
-
- (gw:wrap-function
- ws
- 'gnc:job-get-guid
- '<gnc:guid-scm>
- "gncJobRetGUID"
- '((<gnc:GncJob*> job))
- "Return the guid of the job")
-
- (gw:wrap-function
- ws
- 'gnc:job-lookup
- '<gnc:GncJob*>
- "gncJobLookupDirect"
- '((<gnc:guid-scm> guid) (<gnc:Book*> book))
- "Lookup the job with GUID guid.")
-
- ;;
- ;; gncOrder.h
- ;;
-
- ; Set Functions
-
- (gw:wrap-function
- ws
- 'gnc:order-create
- '<gnc:GncOrder*>
- "gncOrderCreate"
- '((<gnc:Book*> book))
- "Create a new order")
-
- (gw:wrap-function
- ws
- 'gnc:order-set-id
- '<gw:void>
- "gncOrderSetID"
- '((<gnc:GncOrder*> order) ((<gw:mchars> callee-owned const) id))
- "Set the Order ID")
-
- (gw:wrap-function
- ws
- 'gnc:order-set-owner
- '<gw:void>
- "gncOrderSetOwner"
- '((<gnc:GncOrder*> order) (<gnc:GncOwner*> owner))
- "Set the Order Owner")
-
- (gw:wrap-function
- ws
- 'gnc:order-set-date-opened
- '<gw:void>
- "gncOrderSetDateOpened"
- '((<gnc:GncOrder*> order) (<gnc:time-pair> date))
- "Set the Order's Opened Date")
-
- (gw:wrap-function
- ws
- 'gnc:order-set-reference
- '<gw:void>
- "gncOrderSetReference"
- '((<gnc:GncOrder*> order) ((<gw:mchars> callee-owned const) id))
- "Set the Order Reference")
-
- ; Get Functions
-
- (gw:wrap-function
- ws
- 'gnc:order-get-id
- '(<gw:mchars> callee-owned const)
- "gncOrderGetID"
- '((<gnc:GncOrder*> order))
- "Return the Order's ID")
-
- (gw:wrap-function
- ws
- 'gnc:order-get-owner
- '<gnc:GncOwner*>
- "gncOrderGetOwner"
- '((<gnc:GncOrder*> order))
- "Return the Order's Owner")
-
- (gw:wrap-function
- ws
- 'gnc:order-get-date-opened
- '<gnc:time-pair>
- "gncOrderGetDateOpened"
- '((<gnc:GncOrder*> order))
- "Return the Date the order was opened")
-
- (gw:wrap-function
- ws
- 'gnc:order-get-date-closed
- '<gnc:time-pair>
- "gncOrderGetDateClosed"
- '((<gnc:GncOrder*> order))
- "Return the Date the order was closed")
-
- (gw:wrap-function
- ws
- 'gnc:order-get-notes
- '(<gw:mchars> callee-owned const)
- "gncOrderGetNotes"
- '((<gnc:GncOrder*> order))
- "Return the Order's Notes")
-
- (gw:wrap-function
- ws
- 'gnc:order-get-reference
- '(<gw:mchars> callee-owned const)
- "gncOrderGetReference"
- '((<gnc:GncOrder*> order))
- "Return the Order's Reference")
-
- (gw:wrap-function
- ws
- 'gnc:order-get-entries
- '(gw:glist-of <gnc:GncEntry*> callee-owned)
- "gncOrderGetEntries"
- '((<gnc:GncOrder*> order))
- "Return the Order's list of Entries")
-
- ;;
- ;; gncOwner.h
- ;;
-
- (gw:wrap-function
- ws
- 'gnc:owner-create
- '<gnc:GncOwner*>
- "gncOwnerCreate"
- '()
- "Create a GncOwner object")
-
- (gw:wrap-function
- ws
- 'gnc:owner-destroy
- '<gw:void>
- "gncOwnerDestroy"
- '((<gnc:GncOwner*> owner))
- "Destroy a GncOwner object")
-
- (gw:wrap-function
- ws
- 'gnc:owner-init-customer
- '<gw:void>
- "gncOwnerInitCustomer"
- '((<gnc:GncOwner*> owner) (<gnc:GncCustomer*> customer))
- "Initialize an owner to hold a Customer. The Customer may be NULL.")
-
- (gw:wrap-function
- ws
- 'gnc:owner-init-job
- '<gw:void>
- "gncOwnerInitJob"
- '((<gnc:GncOwner*> owner) (<gnc:GncJob*> job))
- "Initialize an owner to hold a Job. The Job may be NULL.")
-
- (gw:wrap-function
- ws
- 'gnc:owner-init-vendor
- '<gw:void>
- "gncOwnerInitVendor"
- '((<gnc:GncOwner*> owner) (<gnc:GncVendor*> vendor))
- "Initialize an owner to hold a Vendor. The Vendor may be NULL.")
-
- (gw:wrap-function
- ws
- 'gnc:owner-init-employee
- '<gw:void>
- "gncOwnerInitEmployee"
- '((<gnc:GncOwner*> owner) (<gnc:GncEmployee*> employee))
- "Initialize an owner to hold a Employee. The Employee may be NULL.")
-
- (gw:wrap-function
- ws
- 'gnc:owner-get-type
- '<gnc:GncOwnerType>
- "gncOwnerGetType"
- '((<gnc:GncOwner*> owner))
- "Return the type of this owner.")
-
- (gw:wrap-function
- ws
- 'gnc:owner-get-customer
- '<gnc:GncCustomer*>
- "gncOwnerGetCustomer"
- '((<gnc:GncOwner*> owner))
- "Return the customer of this owner.")
-
- (gw:wrap-function
- ws
- 'gnc:owner-get-job
- '<gnc:GncJob*>
- "gncOwnerGetJob"
- '((<gnc:GncOwner*> owner))
- "Return the job of this owner.")
-
- (gw:wrap-function
- ws
- 'gnc:owner-get-vendor
- '<gnc:GncVendor*>
- "gncOwnerGetVendor"
- '((<gnc:GncOwner*> owner))
- "Return the vendor of this owner.")
-
- (gw:wrap-function
- ws
- 'gnc:owner-get-employee
- '<gnc:GncEmployee*>
- "gncOwnerGetEmployee"
- '((<gnc:GncOwner*> owner))
- "Return the employee of this owner.")
-
- (gw:wrap-function
- ws
- 'gnc:owner-equal
- '<gw:bool>
- "gncOwnerEqual"
- '((<gnc:GncOwner*> owner1) (<gnc:GncOwner*> owner2))
- "Compare owner1 and owner2 and return if they are equal")
-
- (gw:wrap-function
- ws
- 'gnc:owner-get-end-owner
- '<gnc:GncOwner*>
- "gncOwnerGetEndOwner"
- '((<gnc:GncOwner*> owner))
- "Returns the End Owner of this owner")
-
- (gw:wrap-function
- ws
- 'gnc:owner-get-owner-from-lot
- '<gw:bool>
- "gncOwnerGetOwnerFromLot"
- '((<gnc:Lot*> lot) (<gnc:GncOwner*> owner))
- "Compute the owner from the Lot, and fills in owner. Returns TRUE if successful.")
-
- (gw:wrap-function
- ws
- 'gnc:owner-get-guid
- '<gnc:guid-scm>
- "gncOwnerRetGUID"
- '((<gnc:GncOwner*> owner))
- "Return the GUID of this owner")
-
- (gw:wrap-function
- ws
- 'gnc:owner-get-name
- '(<gw:mchars> callee-owned const)
- "gncOwnerGetName"
- '((<gnc:GncOwner*> owner))
- "Return the Name of this owner")
-
- (gw:wrap-function
- ws
- 'gnc:owner-copy-into-owner
- '<gw:void>
- "gncOwnerCopy"
- '((<gnc:GncOwner*> src-owner) (<gnc:GncOwner*> dest-owner))
- "Copy the src-owner to the dest-owner")
-
- (gw:wrap-function
- ws
- 'gnc:owner-is-valid?
- '<gw:bool>
- "gncOwnerIsValid"
- '((<gnc:GncOwner*> owner))
- "Is this a real owner? Return TRUE IFF there is an actual owner.")
-
- (gw:wrap-function
- ws
- 'gnc:owner-get-currency
- '<gnc:commodity*>
- "gncOwnerGetCurrency"
- '((<gnc:GncOwner*> owner))
- "Return the owner's currency")
-
- ;;
- ;; gncTaxTable.h
- ;;
-
- (gw:wrap-function
- ws
- 'gnc:taxtable-get-guid
- '<gnc:guid-scm>
- "gncTaxTableRetGUID"
- '((<gnc:GncTaxTable*> taxtable))
- "Return the GUID of the taxtable")
-
- (gw:wrap-function
- ws
- 'gnc:taxtable-lookup
- '<gnc:GncTaxTable*>
- "gncTaxTableLookupDirect"
- '((<gnc:guid-scm> guid) (<gnc:Book*> book))
- "Lookup the tax table with GUID guid.")
-
- ;;
- ;; gncVendor.h
- ;;
-
- (gw:wrap-function
- ws
- 'gnc:vendor-get-guid
- '<gnc:guid-scm>
- "gncVendorRetGUID"
- '((<gnc:GncVendor*> vendor))
- "Return the GUID of the vendor")
-
- (gw:wrap-function
- ws
- 'gnc:vendor-lookup
- '<gnc:GncVendor*>
- "gncVendorLookupDirect"
- '((<gnc:guid-scm> guid) (<gnc:Book*> book))
- "Lookup the vendor with GUID guid.")
-
- (gw:wrap-function
- ws
- 'gnc:vendor-get-id
- '(<gw:mchars> callee-owned const)
- "gncVendorGetID"
- '((<gnc:GncVendor*> vendor))
- "Return the Vendor's ID")
-
- (gw:wrap-function
- ws
- 'gnc:vendor-get-name
- '(<gw:mchars> callee-owned const)
- "gncVendorGetName"
- '((<gnc:GncVendor*> vendor))
- "Return the Vendor's Name")
-
- (gw:wrap-function
- ws
- 'gnc:vendor-get-addr
- '<gnc:GncAddress*>
- "gncVendorGetAddr"
- '((<gnc:GncVendor*> vendor))
- "Return the Vendor's Billing Address")
-
- (gw:wrap-function
- ws
- 'gnc:vendor-get-notes
- '(<gw:mchars> callee-owned const)
- "gncVendorGetNotes"
- '((<gnc:GncVendor*> vendor))
- "Return the Vendor's Notes")
-
-)
Deleted: gnucash/branches/swig-redo/src/business/business-gnome/gw-business-gnome-spec.scm
===================================================================
--- gnucash/branches/swig-redo/src/business/business-gnome/gw-business-gnome-spec.scm 2006-10-10 00:34:29 UTC (rev 14986)
+++ gnucash/branches/swig-redo/src/business/business-gnome/gw-business-gnome-spec.scm 2006-10-10 00:37:33 UTC (rev 14987)
@@ -1,267 +0,0 @@
-;;; -*-scheme-*-
-
-;(debug-enable 'backtrace)
-;(debug-enable 'debug)
-;(read-enable 'positions)
-
-(debug-set! maxdepth 100000)
-(debug-set! stack 200000)
-
-(define-module (g-wrapped gw-business-gnome-spec)
- :use-module (g-wrap))
-
-(use-modules (g-wrap))
-
-(use-modules (g-wrap gw-standard-spec))
-(use-modules (g-wrap gw-wct-spec))
-
-(use-modules (g-wrapped gw-business-core-spec))
-(use-modules (g-wrapped gw-gnome-utils-spec))
-
-(let ((ws (gw:new-wrapset "gw-business-gnome")))
-
- (gw:wrapset-depends-on ws "gw-standard")
-
- (gw:wrapset-depends-on ws "gw-business-core")
- (gw:wrapset-depends-on ws "gw-engine")
- (gw:wrapset-depends-on ws "gw-gnome-utils")
-
- (gw:wrapset-set-guile-module! ws '(g-wrapped gw-business-gnome))
-
- (gw:wrapset-add-cs-declarations!
- ws
- (lambda (wrapset client-wrapset)
- (list
- "#include <config.h>\n"
- "#include <gtk/gtk.h>\n"
- "#include <business-urls.h>\n"
- "#include <dialog-billterms.h>\n"
- "#include <dialog-customer.h>\n"
- "#include <dialog-employee.h>\n"
- "#include <dialog-invoice.h>\n"
- "#include <dialog-job.h>\n"
- "#include <dialog-order.h>\n"
- "#include <dialog-payment.h>\n"
- "#include <dialog-vendor.h>\n"
- )))
-
- (gw:wrapset-add-cs-initializers!
- ws
- (lambda (wrapset client-wrapset status-var)
- (if client-wrapset
- '()
- (gw:inline-scheme '(use-modules (gnucash business-gnome))))))
-
- ;;
- ;; Business URL Types
- ;;
- (gw:wrap-value ws 'gnc:url-type-customer '<gnc:url-type>
- "GNC_CUSTOMER_MODULE_NAME")
- (gw:wrap-value ws 'gnc:url-type-vendor '<gnc:url-type>
- "GNC_VENDOR_MODULE_NAME")
- (gw:wrap-value ws 'gnc:url-type-employee '<gnc:url-type>
- "GNC_EMPLOYEE_MODULE_NAME")
- (gw:wrap-value ws 'gnc:url-type-invoice '<gnc:url-type>
- "GNC_INVOICE_MODULE_NAME")
- (gw:wrap-value ws 'gnc:url-type-ownerreport '<gnc:url-type>
- "URL_TYPE_OWNERREPORT")
-
-
- ;;
- ;; dialog-billterms.h
- ;;
-
- (gw:wrap-function
- ws
- 'gnc:billterms-new
- '<gw:void>
- "gnc_ui_billterms_window_new"
- '((<gnc:Book*> book))
- "Dialog: view and edit the available Billing Terms.")
-
- ;;
- ;; dialog-customer.h
- ;;
-
- (gw:wrap-function
- ws
- 'gnc:customer-new
- '<gw:void>
- "gnc_ui_customer_new"
- '((<gnc:Book*> book))
- "Dialog: create a new GncCustomer.")
-
- (gw:wrap-function
- ws
- 'gnc:customer-edit
- '<gw:void>
- "gnc_ui_customer_edit"
- '((<gnc:GncCustomer*> customer))
- "Dialog: Edit a GncCustomer.")
-
- (gw:wrap-function
- ws
- 'gnc:customer-search
- '<gw:void>
- "gnc_customer_search"
- '((<gnc:GncCustomer*> start_selection) (<gnc:Book*> book) )
- "Dialog: Find a GncCustomer. Start_selection may be NULL.")
-
- ;;
- ;; dialog-employee.h
- ;;
-
- (gw:wrap-function
- ws
- 'gnc:employee-new
- '<gw:void>
- "gnc_ui_employee_new"
- '((<gnc:Book*> book))
- "Dialog: create a new GncEmployee.")
-
- (gw:wrap-function
- ws
- 'gnc:employee-edit
- '<gw:void>
- "gnc_ui_employee_edit"
- '((<gnc:GncEmployee*> employee))
- "Dialog: Edit a GncEmployee.")
-
- (gw:wrap-function
- ws
- 'gnc:employee-search
- '<gw:void>
- "gnc_employee_search"
- '((<gnc:GncEmployee*> start_selection) (<gnc:Book*> book))
- "Dialog: Find a GncEmployee. Start_selection may be NULL.")
-
- ;;
- ;; dialog-invoice.h
- ;;
-
- (gw:wrap-function
- ws
- 'gnc:invoice-new
- '<gw:void>
- "gnc_ui_invoice_new"
- '((<gnc:GncOwner*> owner) (<gnc:Book*> book))
- "Dialog: create a new GncInvoice.")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-edit
- '<gw:void>
- "gnc_ui_invoice_edit"
- '((<gnc:GncInvoice*> invoice))
- "Dialog: Edit a GncInvoice.")
-
- (gw:wrap-function
- ws
- 'gnc:invoice-search
- '<gw:void>
- "gnc_invoice_search"
- '((<gnc:GncInvoice*> start_selection) (<gnc:GncOwner*> owner)
- (<gnc:Book*> book))
- "Dialog: Select a GncInvoice. Either start_selection or "
- "owner may be NULL.")
-
- ;;
- ;; dialog-job.h
- ;;
-
- (gw:wrap-function
- ws
- 'gnc:job-new
- '<gw:void>
- "gnc_ui_job_new"
- '((<gnc:GncOwner*> default_owner) (<gnc:Book*> book))
- "Dialog: create a new GncJob. Owner may be NULL.")
-
- (gw:wrap-function
- ws
- 'gnc:job-edit
- '<gw:void>
- "gnc_ui_job_edit"
- '((<gnc:GncJob*> job))
- "Dialog: Edit a GncJob.")
-
- (gw:wrap-function
- ws
- 'gnc:job-search
- '<gw:void>
- "gnc_job_search"
- '((<gnc:GncJob*> job) (<gnc:GncOwner*> owner) (<gnc:Book*> book))
- "Dialog: Search for a job. Job and Owner may be NULL.")
-
- ;;
- ;; dialog-order.h
- ;;
-
- (gw:wrap-function
- ws
- 'gnc:order-new
- '<gw:void>
- "gnc_ui_order_new"
- '((<gnc:GncOwner*> owner) (<gnc:Book*> book))
- "Dialog: create a new GncOrder.")
-
- (gw:wrap-function
- ws
- 'gnc:order-edit
- '<gw:void>
- "gnc_ui_order_edit"
- '((<gnc:GncOrder*> order))
- "Dialog: Edit a GncOrder.")
-
-
- (gw:wrap-function
- ws
- 'gnc:order-search
- '<gw:void>
- "gnc_order_search"
- '((<gnc:GncOrder*> start_selection) (<gnc:GncOwner*> order_owner)
- (<gnc:Book*> book) )
- "Dialog: Select a GncOrder. Either start_selection or "
- "order_owner may be NULL.")
-
- ;;
- ;; dialog-payment.h
- ;;
-
- (gw:wrap-function
- ws
- 'gnc:payment-new
- '<gw:void>
- "gnc_ui_payment_new"
- '((<gnc:GncOwner*> owner) (<gnc:Book*> book))
- "Dialog: Enter a payment. The owner may be NULL.")
-
- ;;
- ;; dialog-vendor.h
- ;;
-
- (gw:wrap-function
- ws
- 'gnc:vendor-new
- '<gw:void>
- "gnc_ui_vendor_new"
- '((<gnc:Book*> book))
- "Dialog: create a new GncVendor.")
-
- (gw:wrap-function
- ws
- 'gnc:vendor-edit
- '<gw:void>
- "gnc_ui_vendor_edit"
- '((<gnc:GncVendor*> vendor))
- "Dialog: Edit a GncVendor.")
-
- (gw:wrap-function
- ws
- 'gnc:vendor-search
- '<gw:void>
- "gnc_vendor_search"
- '((<gnc:GncVendor*> start_selection) (<gnc:Book*> book))
- "Dialog: Select a GncVendor. Start_selection may be NULL.")
-
-)
Deleted: gnucash/branches/swig-redo/src/business/dialog-tax-table/gw-dialog-tax-table-spec.scm
===================================================================
--- gnucash/branches/swig-redo/src/business/dialog-tax-table/gw-dialog-tax-table-spec.scm 2006-10-10 00:34:29 UTC (rev 14986)
+++ gnucash/branches/swig-redo/src/business/dialog-tax-table/gw-dialog-tax-table-spec.scm 2006-10-10 00:37:33 UTC (rev 14987)
@@ -1,57 +0,0 @@
-;;; -*-scheme-*-
-
-;(debug-enable 'backtrace)
-;(debug-enable 'debug)
-;(read-enable 'positions)
-
-(debug-set! maxdepth 100000)
-(debug-set! stack 200000)
-
-(define-module (g-wrapped gw-dialog-tax-table-spec)
- :use-module (g-wrap))
-
-(use-modules (g-wrap))
-
-(use-modules (g-wrap gw-standard-spec))
-(use-modules (g-wrap gw-wct-spec))
-
-(use-modules (g-wrapped gw-business-core-spec))
-(use-modules (g-wrapped gw-gnome-utils-spec))
-
-(let ((ws (gw:new-wrapset "gw-dialog-tax-table")))
-
- (gw:wrapset-depends-on ws "gw-standard")
-
- (gw:wrapset-depends-on ws "gw-business-core")
- (gw:wrapset-depends-on ws "gw-engine")
- (gw:wrapset-depends-on ws "gw-gnome-utils")
-
- (gw:wrapset-set-guile-module! ws '(g-wrapped gw-dialog-tax-table))
-
- (gw:wrapset-add-cs-declarations!
- ws
- (lambda (wrapset client-wrapset)
- (list
- "#include <config.h>\n"
- "#include <dialog-tax-table.h>\n"
- )))
-
- (gw:wrapset-add-cs-initializers!
- ws
- (lambda (wrapset client-wrapset status-var)
- (if client-wrapset
- '()
- (gw:inline-scheme '(use-modules (gnucash dialog-tax-table))))))
-
- ;;
- ;; dialog-tax-table.h
- ;;
-
- (gw:wrap-function
- ws
- 'gnc:tax-table-new
- '<gw:void>
- "gnc_ui_tax_table_window_new"
- '((<gnc:Book*> book))
- "Dialog: Edit the Tax Tables.")
-)
Deleted: gnucash/branches/swig-redo/src/core-utils/gw-core-utils-spec.scm
===================================================================
--- gnucash/branches/swig-redo/src/core-utils/gw-core-utils-spec.scm 2006-10-10 00:34:29 UTC (rev 14986)
+++ gnucash/branches/swig-redo/src/core-utils/gw-core-utils-spec.scm 2006-10-10 00:37:33 UTC (rev 14987)
@@ -1,64 +0,0 @@
-;;; -*-scheme-*-
-
-(debug-set! maxdepth 100000)
-(debug-set! stack 200000)
-
-(define-module (g-wrapped gw-core-utils-spec))
-
-(use-modules (g-wrap))
-(use-modules (g-wrap simple-type))
-
-(use-modules (g-wrap gw-standard-spec))
-(use-modules (g-wrap gw-wct-spec))
-(use-modules (g-wrap gw-glib-spec))
-
-(let ((ws (gw:new-wrapset "gw-core-utils")))
-
- (gw:wrapset-depends-on ws "gw-standard")
- (gw:wrapset-depends-on ws "gw-wct")
- (gw:wrapset-depends-on ws "gw-glib")
-
- (gw:wrapset-set-guile-module! ws '(g-wrapped gw-core-utils))
-
- (gw:wrapset-add-cs-declarations!
- ws
- (lambda (wrapset client-wrapset)
- (list
- "#include <gnc-gconf-utils.h>\n"
- "#include <gnc-glib-utils.h>\n"
- "#include <gnc-main.h>\n")))
-
- (gw:wrap-function
- ws
- 'gnc:gconf-get-bool
- '<gw:bool>
- "gnc_gconf_get_bool_no_error"
- '(((<gw:mchars> caller-owned) section)
- ((<gw:mchars> caller-owned) name))
- "Get a boolean value from gconf.")
-
- (gw:wrap-function
- ws
- 'gnc:debugging?
- '<gw:bool>
- "gnc_is_debugging"
- '()
- "Is debugging mode on?")
-
- (gw:wrap-function
- ws
- 'g:find-program-in-path
- '(<gw:mchars> callee-owned const)
- "g_find_program_in_path"
- '(((<gw:mchars> caller-owned) program))
- "Get a boolean value from gconf.")
-
- (gw:wrap-function
- ws
- 'gnc:utf8-strip-invalid
- '<gw:void>
- "gnc_utf8_strip_invalid"
- '(((<gw:mchars> caller-owned) program))
- "Strip string of non-utf8 characters.")
-
-)
Deleted: gnucash/branches/swig-redo/src/engine/gw-engine-spec.scm
===================================================================
--- gnucash/branches/swig-redo/src/engine/gw-engine-spec.scm 2006-10-10 00:34:29 UTC (rev 14986)
+++ gnucash/branches/swig-redo/src/engine/gw-engine-spec.scm 2006-10-10 00:37:33 UTC (rev 14987)
@@ -1,2647 +0,0 @@
-(define-module (g-wrapped gw-engine-spec))
-(debug-set! maxdepth 100000)
-(debug-set! stack 200000)
-
-(use-modules (g-wrap))
-(use-modules (g-wrap simple-type))
-
-(use-modules (g-wrap gw-standard-spec))
-(use-modules (g-wrap gw-wct-spec))
-(use-modules (g-wrap gw-glib-spec))
-
-(define ws (gw:new-wrapset "gw-engine"))
-
-(gw:wrapset-depends-on ws "gw-standard")
-(gw:wrapset-depends-on ws "gw-wct")
-(gw:wrapset-depends-on ws "gw-glib")
-
-(gw:wrapset-set-guile-module! ws '(g-wrapped gw-engine))
-
-(gw:wrapset-add-cs-declarations!
- ws
- (lambda (wrapset client-wrapset)
- (list
- "#include <config.h>\n"
- "#include <glib.h>\n"
- "#include <qof.h>\n"
- "#include <Group.h>\n"
- "#include <Query.h>\n"
- "#include <gnc-budget.h>\n"
- "#include <gnc-commodity.h>\n"
- "#include <gnc-engine.h>\n"
- "#include <gnc-filepath-utils.h>\n"
- "#include <gnc-pricedb.h>\n"
- "#include <gnc-lot.h>\n"
- "#include <gnc-session-scm.h>\n"
- "#include <gnc-hooks-scm.h>\n"
- "#include <engine-helpers.h>\n"
- "#include <SX-book.h>\n")))
-
-(gw:wrapset-add-cs-initializers!
- ws
- (lambda (wrapset client-wrapset status-var)
- (if client-wrapset
- '()
- (gw:inline-scheme '(use-modules (gnucash engine))))))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; <gnc:time-pair>
-(gw:wrap-simple-type ws
- '<gnc:time-pair> "Timespec"
- '("gnc_timepair_p(" scm-var ")")
- '(c-var " = gnc_timepair2timespec(" scm-var ");\n")
- '(scm-var " = gnc_timespec2timepair(" c-var ");\n"))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; <gnc:guid-scm>
-(gw:wrap-simple-type ws
- '<gnc:guid-scm> "GUID"
- '("gnc_guid_p(" scm-var ")")
- '(c-var " = gnc_scm2guid(" scm-var ");\n")
- '(scm-var " = gnc_guid2scm(" c-var ");\n"))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; <gnc:numeric>
-(gw:wrap-simple-type ws
- '<gnc:numeric> "gnc_numeric"
- '("gnc_numeric_p(" scm-var ")")
- '(c-var " = gnc_scm_to_numeric(" scm-var ");\n")
- '(scm-var " = gnc_numeric_to_scm(" c-var ");\n"))
-
-;; Equivalencies
-;;
-;; <gnc:list-of-commodity*> -> (gw:glist-of <gnc:commodity*> caller-owned)
-;; <gnc:list-of-price*> -> (gw:glist-of <gnc:Price*> caller-owned)
-;;
-;; <gnc:list-of-split*-caller-owned> -> (gw:glist-of <gnc:Split*> caller-owned)
-;; <gnc:list-of-split*-callee-owned> -> (gw:glist-of <gnc:Split*> callee-owned)
-;;
-;; <gnc:list-of-transaction*-callee-owned> ->
-;; (gw:glist-of <gnc:Transaction*> callee-owned)
-;; <gnc:list-of-transaction*-caller-owned> ->
-;; (gw:glist-of <gnc:Transaction*> caller-owned)
-;;
-;; <gnc:list-of-account*-callee-owned> ->
-;; (gw:glist-of <gnc:Account*> callee-owned)
-;; <gnc:list-of-account*-caller-owned> ->
-;; (gw:glist-of <gnc:Account*> caller-owned)
-;;
-;; <gnc:list-of-string> -> '(gw:glist-of (<gw:mchars> callee-owned) callee-owned)
-
-
-(gw:wrap-as-wct ws '<gnc:GList*> "GList*" "const GList*")
-
-(gw:wrap-as-wct ws '<gnc:id-type> "QofIdType" "QofIdTypeConst")
-(gw:wrap-as-wct ws '<gnc:Account*> "Account*" "const Account*")
-(gw:wrap-as-wct ws '<gnc:Account**> "Account**" "const Account**")
-(gw:wrap-as-wct ws '<gnc:AccountGroup*> "AccountGroup*" "const AccountGroup*")
-(gw:wrap-as-wct ws '<gnc:Book*> "QofBook*" "const QofBook*")
-(gw:wrap-as-wct ws '<gnc:Lot*> "GNCLot*" "const GNCLot*")
-(gw:wrap-as-wct ws '<gnc:Session*> "QofSession*" "const QofSession**")
-(gw:wrap-as-wct ws '<gnc:Split*> "Split*" "const Split*")
-(gw:wrap-as-wct ws '<gnc:Transaction*> "Transaction*" "const Transaction*")
-(gw:wrap-as-wct ws '<gnc:commodity*> "gnc_commodity*" "const gnc_commodity*")
-(gw:wrap-as-wct ws '<gnc:commodity-namespace*>
- "gnc_commodity_namespace*"
- "const gnc_commodity_namespace*")
-(gw:wrap-as-wct ws '<gnc:commodity-table*>
- "gnc_commodity_table*"
- "const gnc_commodity_table*")
-
-(gw:wrap-as-wct ws '<gnc:Query*> "Query *" "const Query *")
-
-(let ((wt (gw:wrap-enumeration ws '<gnc:event-type> "QofEventId")))
-
- (gw:enum-add-value! wt "QOF_EVENT_NONE" 'qof-event-none)
- (gw:enum-add-value! wt "QOF_EVENT_CREATE" 'qof-event-create)
- (gw:enum-add-value! wt "QOF_EVENT_MODIFY" 'qof-event-modify)
- (gw:enum-add-value! wt "QOF_EVENT_DESTROY" 'qof-event-destroy)
- (gw:enum-add-value! wt "QOF_EVENT_ALL" 'qof-event-all))
-
-(let ((wt (gw:wrap-enumeration ws '<gnc:query-op> "QofQueryOp")))
-
- (gw:enum-add-value! wt "QOF_QUERY_AND" 'query-and)
- (gw:enum-add-value! wt "QOF_QUERY_OR" 'query-or)
- (gw:enum-add-value! wt "QOF_QUERY_NAND" 'query-nand)
- (gw:enum-add-value! wt "QOF_QUERY_NOR" 'query-nor)
- (gw:enum-add-value! wt "QOF_QUERY_XOR" 'query-xor))
-
-(let ((wt (gw:wrap-enumeration ws '<gnc:query-compare-how> "QofQueryCompare")))
- (gw:enum-add-value! wt "QOF_COMPARE_LT" 'query-compare-lt)
- (gw:enum-add-value! wt "QOF_COMPARE_LTE" 'query-compare-lte)
- (gw:enum-add-value! wt "QOF_COMPARE_EQUAL" 'query-compare-equal)
- (gw:enum-add-value! wt "QOF_COMPARE_GT" 'query-compare-gt)
- (gw:enum-add-value! wt "QOF_COMPARE_GTE" 'query-compare-gte)
- (gw:enum-add-value! wt "QOF_COMPARE_NEQ" 'query-compare-neq)
- #t)
-
-(let ((wt (gw:wrap-enumeration ws '<gnc:string-match-how> "QofStringMatch")))
- (gw:enum-add-value! wt "QOF_STRING_MATCH_NORMAL" 'string-match-normal)
- (gw:enum-add-value! wt "QOF_STRING_MATCH_CASEINSENSITIVE" 'string-match-caseinsensitive)
- #t)
-
-(let ((wt (gw:wrap-enumeration ws '<gnc:date-match-how> "QofDateMatch")))
- (gw:enum-add-value! wt "QOF_DATE_MATCH_NORMAL" 'date-match-normal)
- (gw:enum-add-value! wt "QOF_DATE_MATCH_DAY" 'date-match-rounded)
- #t)
-
-(let ((wt (gw:wrap-enumeration ws '<gnc:numeric-match-how> "QofNumericMatch")))
- (gw:enum-add-value! wt "QOF_NUMERIC_MATCH_ANY" 'amt-sgn-match-either)
- (gw:enum-add-value! wt "QOF_NUMERIC_MATCH_CREDIT" 'amt-sgn-match-credit)
- (gw:enum-add-value! wt "QOF_NUMERIC_MATCH_DEBIT" 'amt-sgn-match-debit)
- #t)
-
-(let ((wt (gw:wrap-enumeration ws '<gnc:cleared-match-how> "cleared_match_t")))
- (gw:enum-add-value! wt "CLEARED_NO" 'cleared-match-no)
- (gw:enum-add-value! wt "CLEARED_CLEARED" 'cleared-match-cleared)
- (gw:enum-add-value! wt "CLEARED_RECONCILED" 'cleared-match-reconciled)
- (gw:enum-add-value! wt "CLEARED_FROZEN" 'cleared-match-frozen)
- (gw:enum-add-value! wt "CLEARED_VOIDED" 'cleared-match-voided)
- #t)
-
-(let ((wt (gw:wrap-enumeration ws '<gnc:guid-match-how> "QofGuidMatch")))
- (gw:enum-add-value! wt "QOF_GUID_MATCH_ALL" 'guid-match-all)
- (gw:enum-add-value! wt "QOF_GUID_MATCH_ANY" 'guid-match-any)
- (gw:enum-add-value! wt "QOF_GUID_MATCH_NULL" 'guid-match-null)
- (gw:enum-add-value! wt "QOF_GUID_MATCH_NONE" 'guid-match-none)
- (gw:enum-add-value! wt "QOF_GUID_MATCH_LIST_ANY" 'guid-match-list-any)
- #t)
-
-(let ((wt (gw:wrap-enumeration ws '<gnc:char-match-how> "QofCharMatch")))
- (gw:enum-add-value! wt "QOF_CHAR_MATCH_ANY" 'char-match-any)
- (gw:enum-add-value! wt "QOF_CHAR_MATCH_NONE" 'char-match-none)
- #t)
-
-(let ((wt (gw:wrap-enumeration ws '<gnc:query-txn-match-t> "query_txn_match_t")))
- (gw:enum-add-value! wt "QUERY_TXN_MATCH_ALL" 'query-txn-match-all)
- (gw:enum-add-value! wt "QUERY_TXN_MATCH_ANY" 'query-txn-match-any)
- #t)
-
-(let ((wt (gw:wrap-enumeration ws '<gnc:kvp-value-t> "KvpValueType")))
- (gw:enum-add-value! wt "KVP_TYPE_GINT64" 'kvp-type-gint64)
- (gw:enum-add-value! wt "KVP_TYPE_DOUBLE" 'kvp-type-double)
- (gw:enum-add-value! wt "KVP_TYPE_NUMERIC" 'kvp-type-numeric)
- (gw:enum-add-value! wt "KVP_TYPE_STRING" 'kvp-type-string)
- (gw:enum-add-value! wt "KVP_TYPE_GUID" 'kvp-type-guid)
- (gw:enum-add-value! wt "KVP_TYPE_TIMESPEC" 'kvp-type-timespec)
- (gw:enum-add-value! wt "KVP_TYPE_BINARY" 'kvp-type-binary)
- (gw:enum-add-value! wt "KVP_TYPE_GLIST" 'kvp-type-glist)
- (gw:enum-add-value! wt "KVP_TYPE_FRAME" 'kvp-type-frame)
- #t)
-
-(let ((we (gw:wrap-enumeration ws '<gnc:AccountType> "GNCAccountType")))
- ;; From Account.h
- (gw:enum-add-value! we "ACCT_TYPE_INVALID" 'bad-type)
- (gw:enum-add-value! we "ACCT_TYPE_NONE" 'no-type)
- (gw:enum-add-value! we "ACCT_TYPE_BANK" 'bank)
- (gw:enum-add-value! we "ACCT_TYPE_CASH" 'cash)
- (gw:enum-add-value! we "ACCT_TYPE_CREDIT" 'credit)
- (gw:enum-add-value! we "ACCT_TYPE_ASSET" 'asset)
- (gw:enum-add-value! we "ACCT_TYPE_LIABILITY" 'liability)
- (gw:enum-add-value! we "ACCT_TYPE_STOCK" 'stock)
- (gw:enum-add-value! we "ACCT_TYPE_MUTUAL" 'mutual-fund)
- (gw:enum-add-value! we "ACCT_TYPE_CURRENCY" 'currency)
- (gw:enum-add-value! we "ACCT_TYPE_INCOME" 'income)
- (gw:enum-add-value! we "ACCT_TYPE_EXPENSE" 'expense)
- (gw:enum-add-value! we "ACCT_TYPE_EQUITY" 'equity)
- (gw:enum-add-value! we "ACCT_TYPE_RECEIVABLE" 'receivable)
- (gw:enum-add-value! we "ACCT_TYPE_PAYABLE" 'payable)
- (gw:enum-add-value! we "NUM_ACCOUNT_TYPES" 'num-account-types)
- (gw:enum-add-value! we "ACCT_TYPE_CHECKING" 'checking)
- (gw:enum-add-value! we "ACCT_TYPE_SAVINGS" 'savings)
- (gw:enum-add-value! we "ACCT_TYPE_MONEYMRKT" 'money-market)
- (gw:enum-add-value! we "ACCT_TYPE_CREDITLINE" 'credit-line)
- #t)
-
-(let ((we (gw:wrap-enumeration ws '<gnc:BackendError> "QofBackendError")))
-
- (gw:enum-add-value! we "ERR_BACKEND_NO_ERR" 'no-err)
- (gw:enum-add-value! we "ERR_BACKEND_NO_BACKEND" 'no-backend)
- (gw:enum-add-value! we "ERR_BACKEND_BAD_URL" 'bad-url)
- (gw:enum-add-value! we "ERR_BACKEND_CANT_CONNECT" 'cant-connect)
- (gw:enum-add-value! we "ERR_BACKEND_CONN_LOST" 'connection-lost)
- (gw:enum-add-value! we "ERR_BACKEND_NO_SUCH_DB" 'no-such-db)
- (gw:enum-add-value! we "ERR_BACKEND_LOCKED" 'locked)
- (gw:enum-add-value! we "ERR_BACKEND_READONLY" 'read-only)
- (gw:enum-add-value! we "ERR_BACKEND_DATA_CORRUPT" 'data-corrupt)
- (gw:enum-add-value! we "ERR_BACKEND_SERVER_ERR" 'server-error)
- (gw:enum-add-value! we "ERR_BACKEND_ALLOC" 'alloc)
- (gw:enum-add-value! we "ERR_BACKEND_MISC" 'misc)
-
- ;; (gw:enum-add-value! we "ERR_FILEIO_FILE_BAD_READ" 'file-bad-read)
- ;; (gw:enum-add-value! we "ERR_FILEIO_FILE_EMPTY" 'file-empty)
- ;; (gw:enum-add-value! we "ERR_FILEIO_FILE_LOCKERR" 'file-lockerr)
- ;; (gw:enum-add-value! we "ERR_FILEIO_FILE_NOT_FOUND" 'file-not-found)
- ;; (gw:enum-add-value! we "ERR_FILEIO_FILE_TOO_NEW" 'file-too-new)
- ;; (gw:enum-add-value! we "ERR_FILEIO_FILE_TOO_OLD" 'file-too-old)
-
- ;; (gw:enum-add-value! we "ERR_NETIO_SHORT_READ" 'netio-short-read)
- ;; (gw:enum-add-value! we "ERR_NETIO_WRONG_CONTENT_TYPE"
- ;; 'netio-wrong-content-type)
- ;; (gw:enum-add-value! we "ERR_NETIO_NOT_GNCXML" 'netio-not-gncxml)
-
- ;; (gw:enum-add-value! we "ERR_SQL_MISSING_DATA" 'sql-missing-data)
-
- #t)
-
-;
-; Definitions from gnc-engine.h
-;
-(gw:wrap-value ws 'gnc:id-account '<gnc:id-type> "GNC_ID_ACCOUNT")
-(gw:wrap-value ws 'gnc:id-book '<gnc:id-type> "GNC_ID_BOOK")
-(gw:wrap-value ws 'gnc:id-budget '<gnc:id-type> "GNC_ID_BUDGET")
-(gw:wrap-value ws 'gnc:id-lot '<gnc:id-type> "GNC_ID_LOT")
-(gw:wrap-value ws 'gnc:id-price '<gnc:id-type> "GNC_ID_PRICE")
-(gw:wrap-value ws 'gnc:id-split '<gnc:id-type> "GNC_ID_SPLIT")
-(gw:wrap-value ws 'gnc:id-schedxaction '<gnc:id-type> "GNC_ID_SCHEDXACTION")
-(gw:wrap-value ws 'gnc:id-session '<gnc:id-type> "GNC_ID_SESSION")
-(gw:wrap-value ws 'gnc:id-trans '<gnc:id-type> "GNC_ID_TRANS")
-
-;
-; Definitions for query parameter names
-;
-(gw:wrap-value ws 'gnc:query-default-sort '<gnc:id-type> "QUERY_DEFAULT_SORT")
-(gw:wrap-value ws 'gnc:split-lot '<gnc:id-type> "SPLIT_LOT")
-(gw:wrap-value ws 'gnc:split-trans '<gnc:id-type> "SPLIT_TRANS")
-(gw:wrap-value ws 'gnc:split-account '<gnc:id-type> "SPLIT_ACCOUNT")
-(gw:wrap-value ws 'gnc:split-value '<gnc:id-type> "SPLIT_VALUE")
-(gw:wrap-value ws 'gnc:split-memo '<gnc:id-type> "SPLIT_MEMO")
-(gw:wrap-value ws 'gnc:split-date-reconciled '<gnc:id-type> "SPLIT_DATE_RECONCILED")
-
-(gw:wrap-value ws 'gnc:trans-date-posted '<gnc:id-type> "TRANS_DATE_POSTED")
-(gw:wrap-value ws 'gnc:trans-desc '<gnc:id-type> "TRANS_DESCRIPTION")
-(gw:wrap-value ws 'gnc:trans-num '<gnc:id-type> "TRANS_NUM")
-
-(gw:wrap-value ws 'gnc:account-name '<gnc:id-type> "ACCOUNT_NAME_")
-(gw:wrap-value ws 'gnc:account-code '<gnc:id-type> "ACCOUNT_CODE_")
-
-;
-; Special query parameter "sort" types
-;
-(gw:wrap-value ws 'gnc:split-account-fullname '<gnc:id-type>
- "SPLIT_ACCT_FULLNAME")
-(gw:wrap-value ws 'gnc:split-corr-account-fullname '<gnc:id-type>
- "SPLIT_CORR_ACCT_NAME")
-(gw:wrap-value ws 'gnc:split-corr-account-code '<gnc:id-type>
- "SPLIT_CORR_ACCT_CODE")
-
-;
-; Transaction Types
-;
-(gw:wrap-value ws 'gnc:transaction-type-none '<gw:char> "TXN_TYPE_NONE")
-(gw:wrap-value ws 'gnc:transaction-type-invoice '<gw:char> "TXN_TYPE_INVOICE")
-(gw:wrap-value ws 'gnc:transaction-type-payment '<gw:char> "TXN_TYPE_PAYMENT")
-
-
-(gw:wrap-function
- ws
- 'gnc:guid-new
- '<gnc:guid-scm>
- "guid_new_return"
- '()
- "Return a newly-generated GUID.")
-
-(gw:wrap-function
- ws
- 'gnc:split-get-guid
- '<gnc:guid-scm>
- "xaccSplitReturnGUID"
- '((<gnc:Split*> s))
- "Return the GUID of Split s.")
-
-(gw:wrap-function
- ws
- 'gnc:split-lookup
- '<gnc:Split*>
- "xaccSplitLookupDirect"
- '((<gnc:guid-scm> guid)
- (<gnc:Book*> book))
- "Lookup a split with its GUID.")
-
-(gw:wrap-function
- ws
- 'gnc:split-get-balance
- '<gnc:numeric>
- "xaccSplitGetBalance"
- '((<gnc:Split*> s))
- "Return balance at split.")
-
-(gw:wrap-function
- ws
- 'gnc:split-get-memo
- '(<gw:mchars> callee-owned const)
- "xaccSplitGetMemo"
- '((<gnc:Split*> s))
- "Return split's memo.")
-
-(gw:wrap-function
- ws
- 'gnc:split-get-action
- '(<gw:mchars> callee-owned const)
- "xaccSplitGetAction"
- '((<gnc:Split*> s))
- "Return split's action.")
-
-(gw:wrap-function
- ws
- 'gnc:split-get-reconcile-state
- '<gw:char>
- "xaccSplitGetReconcile"
- '((<gnc:Split*> s))
- "Return split's reconcile state.")
-
-(gw:wrap-function
- ws
- 'gnc:split-get-reconciled-date
- '<gnc:time-pair>
- "gnc_split_get_date_reconciled"
- '((<gnc:Split*> s))
- "Return split's reconciliation date.")
-
-(gw:wrap-function
- ws
- 'gnc:split-get-amount
- '<gnc:numeric>
- "xaccSplitGetAmount"
- '((<gnc:Split*> s))
- "Return split's amount.")
-
-(gw:wrap-function
- ws
- 'gnc:split-get-share-price
- '<gnc:numeric>
- "xaccSplitGetSharePrice"
- '((<gnc:Split*> s))
- "Return split's share price.")
-
-(gw:wrap-function
- ws
- 'gnc:split-get-value
- '<gnc:numeric>
- "xaccSplitGetValue"
- '((<gnc:Split*> s))
- "Return split's value.")
-
-
-(gw:wrap-function
- ws
- 'gnc:account-separator-string
- '(<gw:mchars> callee-owned const)
- "gnc_get_account_separator_string"
- '()
- "Returns a string with the user-selected account separator")
-
-(gw:wrap-function
- ws
- 'gnc:split-get-account
- '<gnc:Account*>
- "xaccSplitGetAccount"
- '((<gnc:Split*> s))
- "Return split's account.")
-
-(gw:wrap-function
- ws
- 'gnc:split-get-parent
- '<gnc:Transaction*>
- "xaccSplitGetParent"
- '((<gnc:Split*> s))
- "Return the parent transaction of the split.")
-
-(gw:wrap-function
- ws
- 'gnc:split-get-other-split
- '<gnc:Split*>
- "xaccSplitGetOtherSplit"
- '((<gnc:Split*> s))
- "Return the 'other' split of the parent transaction or NULL.")
-
-(gw:wrap-function
- ws
- 'gnc:split-compare-account-full-names
- '<gw:int>
- "xaccSplitCompareAccountFullNames"
- '((<gnc:Split*> sa) (<gnc:Split*> sb))
- "Compare two splits on the full names of their parent accounts")
-
-(gw:wrap-function
- ws
- 'gnc:split-compare-account-codes
- '<gw:int>
- "xaccSplitCompareAccountCodes"
- '((<gnc:Split*> sa) (<gnc:Split*> sb))
- "Compare two splits on the codes of their parent accounts")
-
-(gw:wrap-function
- ws
- 'gnc:split-compare-other-account-full-names
- '<gw:int>
- "xaccSplitCompareOtherAccountFullNames"
- '((<gnc:Split*> sa) (<gnc:Split*> sb))
- "Compare two splits on the full names of the *other*
-split in the transaction")
-
-(gw:wrap-function
- ws
- 'gnc:split-compare-other-account-codes
- '<gw:int>
- "xaccSplitCompareOtherAccountCodes"
- '((<gnc:Split*> sa) (<gnc:Split*> sb))
- "Compare two splits on the codes of the *other* split in the transaction")
-
-(gw:wrap-function
- ws
- 'gnc:split-get-corr-account-name
- '(<gw:mchars> callee-owned const)
- "xaccSplitGetCorrAccountName"
- '((<gnc:Split*> sa))
- "Find the split on the other side of the transaction, and return the name of
-its account")
-
-(gw:wrap-function
- ws
- 'gnc:split-get-corr-account-full-name-internal
- '(<gw:gchars> caller-owned)
- "xaccSplitGetCorrAccountFullName"
- '((<gnc:Split*> sa))
- "Find the split on the other side of the transaction, and return the
-name of its account. Don't use directly, use
-gnc:split-get-corr-account-full-name in src/scm/report-utilities.scm")
-(gw:wrap-function
- ws
- 'gnc:split-get-corr-account-code
- '(<gw:mchars> callee-owned const)
- "xaccSplitGetCorrAccountCode"
- '((<gnc:Split*> sa))
- "Find the split on the other side of the transaction, and return the
-code of its account")
-
-(gw:wrap-function
- ws
- 'gnc:split-get-lot
- '<gnc:Lot*>
- "xaccSplitGetLot"
- '((<gnc:Split*> s))
- "Return the LOT of Split s.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-get-guid
- '<gnc:guid-scm>
- "xaccTransReturnGUID"
- '((<gnc:Transaction*> t))
- "Return the GUID of Transaction t.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-lookup
- '<gnc:Transaction*>
- "xaccTransLookupDirect"
- '((<gnc:guid-scm> guid)
- (<gnc:Book*> book))
- "Lookup a transaction with its GUID.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-get-split
- '<gnc:Split*>
- "xaccTransGetSplit"
- '((<gnc:Transaction*> t) (<gw:int> i))
- "Returns a pointer to each of the splits in this transaction. Valid
-values for i are zero to (number_of__splits-1). An invalid value of i
-will cause NULL to be returned. A convenient way of cycling through
-all splits is to start at zero, and kep incrementing until a null
-pointer is returned.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-get-splits
- '(gw:glist-of <gnc:Split*> callee-owned)
- "xaccTransGetSplitList"
- '((<gnc:Transaction*> t))
- "Returns a list of the splits in t.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-get-num
- '(<gw:mchars> callee-owned const)
- "xaccTransGetNum"
- '((<gnc:Transaction*> t))
- "Return the transaction's num, an arbitrary user-assigned field. It
-is intended to store a short id number, typically the check number,
-deposit number, invoice number or other tracking number.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-get-description
- '(<gw:mchars> callee-owned const)
- "xaccTransGetDescription"
- '((<gnc:Transaction*> t))
- "Return the transaction description, an arbitrary user-assigned
-value. It is meant to be a short descriptive phrase.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-get-notes
- '(<gw:mchars> callee-owned const)
- "xaccTransGetNotes"
- '((<gnc:Transaction*> t))
- "Return the transaction notes field.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-void
- '<gw:void>
- "xaccTransVoid"
- '((<gnc:Transaction*> transaction)
- ((<gw:mchars> caller-owned const) reason))
- "Void a transaction")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-get-void-status
- '<gw:bool>
- "xaccTransGetVoidStatus"
- '((<gnc:Transaction*> transaction))
- "Return true if a transaction has been voided")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-get-void-reason
- '(<gw:mchars> callee-owned const)
- "xaccTransGetVoidReason"
- '((<gnc:Transaction*> transaction))
- "return a string indicating reason for voiding")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-order
- '<gw:int>
- "xaccTransOrder"
- '((<gnc:Transaction*> ta) (<gnc:Transaction*> tb))
- "Return an integer for ta,tb ordering. <0 is ta is before tb, >0 if ta is after tb")
-
-(gw:wrap-function
- ws
- 'gnc:split-void-former-amount
- '<gnc:numeric>
- "xaccSplitVoidFormerAmount"
- '((<gnc:Split*> split))
- "get what the split's amount before voiding")
-
-(gw:wrap-function
- ws
- 'gnc:split-void-former-value
- '<gnc:numeric>
- "xaccSplitVoidFormerValue"
- '((<gnc:Split*> split))
- "get what the split's value was before voiding")
-
-(gw:wrap-function
- ws
- 'gnc:dmy2timespec
- '<gnc:time-pair>
- "gnc_dmy2timespec"
- '((<gw:int> day) (<gw:int> month) (<gw:int> year))
- "Return a given day, month, and year as a pair where the car is the
-number of seconds and the cdr is the number of nanoseconds.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-get-date-posted
- '<gnc:time-pair>
- "gnc_transaction_get_date_posted"
- '((<gnc:Transaction*> t))
- "Return the date the transaction was posted at the bank as a pair of
-integers. The car is the number of seconds and the cdr is the number
-of nanoseconds.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-get-date-entered
- '<gnc:time-pair>
- "gnc_transaction_get_date_entered"
- '((<gnc:Transaction*> t))
- "Return the date the transaction was entered into the register as a
-pair of integers. The car is the number of seconds and the cdr is the
-number of nanoseconds.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-set-date-posted
- '<gw:void>
- "gnc_transaction_set_date_posted"
- '((<gnc:Transaction*> t) (<gnc:time-pair> date))
- "Modifies the posted date of the transaction. Footnote: this
-shouldn't matter to a user, but anyone modifying the engine should
-understand that when the transaction is committed, the date order of
-each of the component splits will be checked, and they will be
-restored in ascending date order. The date given should be a pair of
-integers. The car is the number of seconds and the cdr is the number
-of nanoseconds.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-set-date-entered
- '<gw:void>
- "gnc_transaction_set_date_entered"
- '((<gnc:Transaction*> t) (<gnc:time-pair> date))
- "Modifies entered date of the transaction. The date given should be a
-pair of integers. The car is the number of seconds and the cdr is the
-number of nanoseconds.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-get-split-count
- '<gw:int>
- "xaccTransCountSplits"
- '((<gnc:Transaction*> t))
- "Return the number of splits in the transaction.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-get-currency
- '<gnc:commodity*>
- "xaccTransGetCurrency"
- '((<gnc:Transaction*> trans))
- "Returns the commodity common for this transaction. ATM it gives the same result as xaccTransFindCommonCurrency.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-set-currency
- '<gw:void>
- "xaccTransSetCurrency"
- '((<gnc:Transaction*> trans) (<gnc:commodity*> comm))
- "Sets the commodity common for this transaction.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-get-account-value
- '<gnc:numeric>
- "xaccTransGetAccountValue"
- '((<gnc:Transaction*> trans) (<gnc:Account*> acc))
- "Compute the sum of all Splits in trans that are applied to Account acc.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-get-txn-type
- '<gw:char>
- "xaccTransGetTxnType"
- '((<gnc:Transaction*> trans))
- "Return the transaction type.")
-
-(gw:wrap-function
- ws
- 'gnc:malloc-account
- '<gnc:Account*>
- "xaccMallocAccount"
- '((<gnc:Book*> book))
- "Allocate a new account structure.")
-
-(gw:wrap-function
- ws
- 'gnc:account-destroy
- '<gw:void>
- "xaccAccountDestroy"
- '((<gnc:Account*> account))
- "Free an account structure. (Must call gnc:account-begin-edit first)")
-
-(let ((docstr
- "The gnc:account-begin-edit and gnc:account-commit-edit
- subroutines provide a two-phase-commit wrapper for account updates."))
- (gw:wrap-function
- ws
- 'gnc:account-begin-edit
- '<gw:void>
- "xaccAccountBeginEdit"
- '((<gnc:Account*> a))
- docstr)
- (gw:wrap-function
- ws
- 'gnc:account-commit-edit
- '<gw:void>
- "xaccAccountCommitEdit"
- '((<gnc:Account*> a))
- docstr))
-
-(gw:wrap-function
- ws
- 'gnc:account-insert-split
- '<gw:void>
- "xaccAccountInsertSplit"
- '((<gnc:Account*> a) (<gnc:Split*> s))
- "Insert the split s into account a. If the split already belongs
-to another account, it will be removed from that account first.")
-
-;; (gw:wrap-function
-;; ws
-;; 'gnc:account-order
-;; '<gw:int>
-;; "xaccAccountOrder_gwrap"
-;; '(
-;; (<gnc:Account**> a1)
-;; (<gnc:Account**> a2)
-;; )
-;; "Defines a sorting order on accounts. Returns -1 if a1 is \"less
-;; than\" the second, +1 if the a1 is \"greater than\" the second, and 0
-;; if they are equal. To determine the sort order, the account codes are
-;; compared, and if these are equal, then account types, and, if these
-;; are equal, then account names.")
-
-(gw:wrap-function
- ws
- 'gnc:account-set-type
- '<gw:void>
- "xaccAccountSetType"
- '((<gnc:Account*> a) (<gnc:AccountType> type))
- "Set Account type. See definition of scheme GNCAccountType for values.")
-
-(gw:wrap-function
- ws
- 'gnc:account-set-name
- '<gw:void>
- "xaccAccountSetName"
- '((<gnc:Account*> a) ((<gw:mchars> caller-owned const) name))
- "Set account name")
-
-(gw:wrap-function
- ws
- 'gnc:account-set-code
- '<gw:void>
- "xaccAccountSetCode"
- '((<gnc:Account*> a) ((<gw:mchars> caller-owned const) code))
- "Set whatever cryptic code we wish to use as the alternative to\n"
- "the account name.\n"
- "\n"
- "Commonly these codes are numeric, and organize asset accounts together\n"
- "in one number range, liability accounts in another number range, and\n"
- "so forth...\n")
-
-(gw:wrap-function
- ws
- 'gnc:account-set-description
- '<gw:void>
- "xaccAccountSetDescription"
- '((<gnc:Account*> a) ((<gw:mchars> caller-owned const) description))
- "Set a slightly-more-verbose description for the account.")
-
-(gw:wrap-function
- ws
- 'gnc:account-set-notes
- '<gw:void>
- "xaccAccountSetNotes"
- '((<gnc:Account*> a) ((<gw:mchars> caller-owned const) notes))
- "Set up a longer set of notes that provide a perhaps-very-verbose
-description of the nature of a particular account.")
-
-(gw:wrap-function
- ws
- 'gnc:account-set-tax-related
- '<gw:void>
- "xaccAccountSetTaxRelated"
- '((<gnc:Account*> a) (<gw:bool> tax-related))
- "Set the tax-related flag of the account.")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-guid
- '<gnc:guid-scm>
- "xaccAccountReturnGUID"
- '((<gnc:Account*> a))
- "Get the GUID of Account a.")
-
-(gw:wrap-function
- ws
- 'gnc:account-lookup
- '<gnc:Account*>
- "xaccAccountLookupDirect"
- '((<gnc:guid-scm> guid) (<gnc:Book*> book))
- "Lookup the account with GUID guid.")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-type-string
- '(<gw:mchars> callee-owned const)
- "xaccAccountGetTypeStr"
- '((<gnc:AccountType> type))
- "What's the account type's name.")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-type
- '<gnc:AccountType>
- "xaccAccountGetType"
- '((<gnc:Account*> a))
- "What's the account type? See scheme GNCAccountType enum def values.")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-name
- '(<gw:mchars> callee-owned const)
- "xaccAccountGetName"
- '((<gnc:Account*> a))
- "Get the brief name for the account.")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-code
- '(<gw:mchars> callee-owned const)
- "xaccAccountGetCode"
- '((<gnc:Account*> a))
- "Get the account's ``account code.''
-
-Commonly this is used to provide a hierarchy where accounts with
-similar classifications (e.g. - Assets, Liabilities, Equity, Income,
-Expenses) are given numeric codes in corresponding ``number ranges.''")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-description
- '(<gw:mchars> callee-owned const)
- "xaccAccountGetDescription"
- '((<gnc:Account*> a))
- "Get the slightly-verbose description of the account.")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-notes
- '(<gw:mchars> callee-owned const)
- "xaccAccountGetNotes"
- '((<gnc:Account*> a))
- "Get the fully-verbose description of the account.")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-commodity
- '(<gnc:commodity*> const)
- "xaccAccountGetCommodity"
- '((<gnc:Account*> a))
- "Get the commodity in which the account is denominated.")
-
-(gw:wrap-function
- ws
- 'gnc:account-set-commodity
- '<gw:void>
- "xaccAccountSetCommodity"
- '((<gnc:Account*> a) (<gnc:commodity*> comm))
- "Set the commodity in which the account is denominated.")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-tax-related
- '<gw:bool>
- "xaccAccountGetTaxRelated"
- '((<gnc:Account*> a))
- "Get the tax related flag of the account.")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-tax-US-code
- '(<gw:mchars> callee-owned const)
- "xaccAccountGetTaxUSCode"
- '((<gnc:Account*> a))
- "Get the tax code set on the account.")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-tax-US-payer-name-source
- '(<gw:mchars> callee-owned const)
- "xaccAccountGetTaxUSPayerNameSource"
- '((<gnc:Account*> a))
- "Get the tax payer name source set on the account.")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-children
- '<gnc:AccountGroup*>
- "xaccAccountGetChildren"
- '((<gnc:Account*> a))
- "Get a pointer to an AccountGroup that represents the set of
-children to this account.")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-parent
- '<gnc:AccountGroup*>
- "xaccAccountGetParent"
- '((<gnc:Account*> a))
- "Get the pointer to the account's parent.")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-parent-account
- '<gnc:Account*>
- "xaccAccountGetParentAccount"
- '((<gnc:Account*> a))
- "Get the pointer to the account's parent account.")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-balance
- '<gnc:numeric>
- "xaccAccountGetBalance"
- '((<gnc:Account*> a))
- "Undocumented.")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-cleared-balance
- '<gnc:numeric>
- "xaccAccountGetClearedBalance"
- '((<gnc:Account*> a))
- "Undocumented.")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-reconciled-balance
- '<gnc:numeric>
- "xaccAccountGetReconciledBalance"
- '((<gnc:Account*> a))
- "Undocumented.")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-split-list
- '(gw:glist-of <gnc:Split*> callee-owned)
- "xaccAccountGetSplitList"
- '((<gnc:Account*> a))
- "Get a list of the of splits in account a.")
-
-(gw:wrap-function
- ws
- 'gnc:malloc-account-group
- '<gnc:AccountGroup*>
- "xaccMallocAccountGroup"
- '((<gnc:Book*> book))
- "Create a new account group.")
-
-(gw:wrap-function
- ws
- 'gnc:account-group-begin-edit
- '<gw:void>
- "xaccAccountGroupBeginEdit"
- '((<gnc:AccountGroup*> g))
- "Open an account group for editing.")
-
-(gw:wrap-function
- ws
- 'gnc:account-group-commit-edit
- '<gw:void>
- "xaccAccountGroupCommitEdit"
- '((<gnc:AccountGroup*> g))
- "Commit all changes to an account group.")
-
-(gw:wrap-function
- ws
- 'gnc:account-group-destroy
- '<gw:void>
- "xaccAccountGroupDestroy"
- '((<gnc:AccountGroup*> g))
- "Free an account group. (Must call gnc:account-group-begin-edit first)")
-
-(gw:wrap-function
- ws
- 'gnc:group-get-book
- '<gnc:Book*>
- "xaccGroupGetBook"
- '((<gnc:AccountGroup*> g))
- "Return the QofBook of group g.")
-
-(gw:wrap-function
- ws
- 'gnc:group-merge-accounts
- '<gw:void>
- "xaccGroupMergeAccounts"
- '((<gnc:AccountGroup*> g))
- "Merge accounts which have the same name and description. Used in
-importing Quicken files.")
-
-(gw:wrap-function
- ws
- 'gnc:group-concat-group
- '<gw:void>
- "xaccGroupConcatGroup"
- '((<gnc:AccountGroup*> old)
- (<gnc:AccountGroup*> new))
- "Catenate accounts from one group into another. Used in Quicken
-import.")
-
-(gw:wrap-function
- ws
- 'gnc:group-get-num-subaccounts
- '<gw:int>
- "xaccGroupGetNumSubAccounts"
- '((<gnc:AccountGroup*> g))
- "Return the number of accounts, including subaccounts, in the account
-group")
-
-(gw:wrap-function
- ws
- 'gnc:group-get-num-accounts
- '<gw:int>
- "xaccGroupGetNumAccounts"
- '((<gnc:AccountGroup*> g))
- "Return the number of accounts in the indicated group only"
- "(children not counted).")
-
-(gw:wrap-function
- ws
- 'gnc:group-get-account
- '<gnc:Account*>
- "xaccGroupGetAccount"
- '((<gnc:AccountGroup*> g) (<gw:int> n))
- "Return account number n in account group g.")
-
-(gw:wrap-function
- ws
- 'gnc:get-account-from-full-name
- '<gnc:Account*>
- "xaccGetAccountFromFullName"
- '((<gnc:AccountGroup*> g)
- ((<gw:mchars> caller-owned const) name))
- "Return account named name in group g. full path with separators.")
-
-(gw:wrap-function
- ws
- 'gnc:group-get-parent
- '<gnc:Account*>
- "xaccGroupGetParentAccount"
- '((<gnc:AccountGroup*> g))
- "Return the parent acount for the group.")
-
-(gw:wrap-function
- ws
- 'gnc:group-insert-account
- '<gw:void>
- "xaccGroupInsertAccount"
- '((<gnc:AccountGroup*> g) (<gnc:Account*> a))
- "Add account a to group g.")
-
-(gw:wrap-function
- ws
- 'gnc:account-insert-subaccount
- '<gw:void>
- "xaccAccountInsertSubAccount"
- '((<gnc:Account*> p) (<gnc:Account*> c))
- "Add a child account c to parent p")
-
-(gw:wrap-function
- ws
- 'gnc:group-get-subaccounts
- '(gw:glist-of <gnc:Account*> caller-owned)
- "xaccGroupGetSubAccountsSorted"
- '((<gnc:AccountGroup*> g))
- "Return a list containing all of the accounts, including
-subaccounts, in the account group. The returned array should be freed
-when no longer needed.")
-
-(gw:wrap-function
- ws
- 'gnc:group-get-account-list
- '(gw:glist-of <gnc:Account*> caller-owned)
- "xaccGroupGetAccountListSorted"
- '((<gnc:AccountGroup*> g))
- "Return a list containing the immediate children of g.")
-
-(gw:wrap-function
- ws
- 'gnc:group-begin-staged-transaction-traversals
- '<gw:void>
- "xaccGroupBeginStagedTransactionTraversals"
- '((<gnc:AccountGroup*> group))
- "Sets things up to begin a sequence of staged traversals.")
-
-(gw:wrap-function
- ws
- 'gnc:account-get-lot-list
- '(gw:glist-of <gnc:Lot*> callee-owned)
- "xaccAccountGetLotList"
- '((<gnc:Account*> account))
- "Return the list of Lots for this account.")
-
-;;============
-;; GNCPriceDB
-
-(gw:wrap-as-wct ws '<gnc:PriceDB*> "GNCPriceDB *" "const GNCPriceDB *")
-(gw:wrap-as-wct ws '<gnc:Price*> "GNCPrice *" "const GNCPrice *")
-
-(gw:wrap-function
- ws
- 'gnc:price-create
- '<gnc:Price*>
- "gnc_price_create"
- '((<gnc:Book*> book))
- "Create and return a new price.")
-
-(gw:wrap-function
- ws
- 'gnc:price-get-guid
- '<gnc:guid-scm>
- "gnc_price_return_guid"
- '((<gnc:Price*> a))
- "Get the GUID of a price.")
-
-(gw:wrap-function
- ws
- 'gnc:price-unref
- '<gw:void>
- "gnc_price_unref"
- '((<gnc:Price*> p))
- "Indicate you're finished with this price.")
-
-(gw:wrap-function
- ws
- 'gnc:price-set-commodity
- '<gw:void>
- "gnc_price_set_commodity"
- '((<gnc:Price*> p) (<gnc:commodity*> c))
- "Set the price's commodity.")
-
-(gw:wrap-function
- ws
- 'gnc:price-set-currency
- '<gw:void>
- "gnc_price_set_currency"
- '((<gnc:Price*> p) (<gnc:commodity*> c))
- "Set the price's currency.")
-
-(gw:wrap-function
- ws
- 'gnc:price-set-time
- '<gw:void>
- "gnc_price_set_time"
- '((<gnc:Price*> p) (<gnc:time-pair> t))
- "Set the price's time stamp.")
-
-(gw:wrap-function
- ws
- 'gnc:price-set-source
- '<gw:void>
- "gnc_price_set_source"
- '((<gnc:Price*> p) ((<gw:mchars> caller-owned) src))
- "Set the price's source.")
-
-(gw:wrap-function
- ws
- 'gnc:price-set-type
- '<gw:void>
- "gnc_price_set_type"
- '((<gnc:Price*> p) ((<gw:mchars> caller-owned) type))
- "Set the price's type.")
-
-(gw:wrap-function
- ws
- 'gnc:price-set-value
- '<gw:void>
- "gnc_price_set_value"
- '((<gnc:Price*> p) (<gnc:numeric> value))
- "Set the price's value.")
-
-(gw:wrap-function
- ws
- 'gnc:price-get-value
- '<gnc:numeric>
- "gnc_price_get_value"
- '((<gnc:Price*> p))
- "Get the price's value")
-
-(gw:wrap-function
- ws
- 'gnc:price-get-commodity
- '<gnc:commodity*>
- "gnc_price_get_commodity"
- '((<gnc:Price*> p))
- "Get the commodity this price is for.")
-
-(gw:wrap-function
- ws
- 'gnc:price-get-currency
- '<gnc:commodity*>
- "gnc_price_get_currency"
- '((<gnc:Price*> p))
- "Get the currency (commodity) this price's value is denominated in.")
-
-(gw:wrap-function
- ws
- 'gnc:price-get-time
- '<gnc:time-pair>
- "gnc_price_get_time"
- '((<gnc:Price*> p))
- "Get the time stamp of this price.")
-
-(gw:wrap-function
- ws
- 'gnc:pricedb-add-price
- '<gw:bool>
- "gnc_pricedb_add_price"
- '((<gnc:PriceDB*> db) (<gnc:Price*> p))
- "Add a price to the DB. Unref the price when you're finished with it.")
-
-(gw:wrap-function
- ws
- 'gnc:price-list-destroy
- '<gw:void>
- "gnc_price_list_destroy"
- '(((gw:glist-of <gnc:Price*> callee-owned) prices))
- "Destroys a gnc price list unrefing the prices included in the list")
-
-(gw:wrap-function
- ws
- 'gnc:pricedb-lookup-latest
- '<gnc:Price*>
- "gnc_pricedb_lookup_latest"
- '((<gnc:PriceDB*> db)
- (<gnc:commodity*> commodity) (<gnc:commodity*> currency))
- "Returns the latest price. Unref the price when you're finished with it.")
-
-(gw:wrap-function
- ws
- 'gnc:pricedb-lookup-latest-any-currency
- '(gw:glist-of <gnc:Price*> caller-owned)
- "gnc_pricedb_lookup_latest_any_currency"
- '((<gnc:PriceDB*> db)
- (<gnc:commodity*> commodity))
- "Returns the latest price(s) in any currency available.")
-
-(gw:wrap-function
- ws
- 'gnc:pricedb-lookup-nearest-in-time
- '<gnc:Price*>
- "gnc_pricedb_lookup_nearest_in_time"
- '((<gnc:PriceDB*> db)
- (<gnc:commodity*> commodity) (<gnc:commodity*> currency)
- (<gnc:time-pair> t))
- "Returns the price quote nearest to t. Unref price when finished with it.")
-
-(gw:wrap-function
- ws
- 'gnc:pricedb-lookup-nearest-in-time-any-currency
- '(gw:glist-of <gnc:Price*> caller-owned)
- "gnc_pricedb_lookup_nearest_in_time_any_currency"
- '((<gnc:PriceDB*> db)
- (<gnc:commodity*> commodity) (<gnc:time-pair> t))
- "Returns the price(s) nearest to t in any currency available.")
-
-
-(gw:wrap-function
-ws
-'gnc:pricedb-lookup-latest-before
-'<gnc:Price*>
-"gnc_pricedb_lookup_latest_before"
-'((<gnc:PriceDB*> db)
- (<gnc:commodity*> commodity) (<gnc:commodity*> currency)
- (<gnc:time-pair> t))
-"Returns the latest price quote <= t. Unref price when finished with it.")
-
-(gw:wrap-function
-ws
-'gnc:pricedb-lookup-latest-before-any-currency
-'(gw:glist-of <gnc:Price*> caller-owned)
-"gnc_pricedb_lookup_latest_before_any_currency"
-'((<gnc:PriceDB*> db)
- (<gnc:commodity*> commodity) (<gnc:time-pair> t))
-"Returns the latest price quote(s) <= t in any currency available.")
-
-
-(gw:wrap-function
- ws
- 'gnc:pricedb-get-prices
- '(gw:glist-of <gnc:Price*> caller-owned)
- "gnc_pricedb_get_prices"
- '((<gnc:PriceDB*> db)
- (<gnc:commodity*> commodity)
- (<gnc:commodity*> currency))
- "Get all prices for commodity in currency.")
-
-(gw:wrap-function
- ws
- 'gnc:pricedb-lookup-at-time
- '(gw:glist-of <gnc:Price*> caller-owned)
- "gnc_pricedb_lookup_at_time"
- '((<gnc:PriceDB*> db)
- (<gnc:commodity*> commodity) (<gnc:commodity*> currency)
- (<gnc:time-pair> t))
- "Lookup a price at time t.")
-
-(gw:wrap-function
- ws
- 'gnc:pricedb-lookup-day
- '(gw:glist-of <gnc:Price*> caller-owned)
- "gnc_pricedb_lookup_day"
- '((<gnc:PriceDB*> db)
- (<gnc:commodity*> commodity) (<gnc:commodity*> currency)
- (<gnc:time-pair> t))
- "Lookup a price on the day specified by time t.")
-
-(gw:wrap-function
- ws
- 'gnc:pricedb-convert-balance-latest-price
- '<gnc:numeric>
- "gnc_pricedb_convert_balance_latest_price"
- '((<gnc:PriceDB*> db)
- (<gnc:numeric> balance)
- (<gnc:commodity*> balance_commodity) (<gnc:commodity*> new_currency))
- "convert balance in commodity balance_commodity to new_currency using latest price.")
-
-(gw:wrap-function
- ws
- 'gnc:pricedb-convert-balance-nearest-price
- '<gnc:numeric>
- "gnc_pricedb_convert_balance_nearest_price"
- '((<gnc:PriceDB*> db)
- (<gnc:numeric> balance)
- (<gnc:commodity*> balance_commodity) (<gnc:commodity*> new_currency)
- (<gnc:time-pair> t))
- "convert balance in commodity balance_commodity to new_currency using nearest price
-to time t.")
-
-
-(gw:wrap-function
- ws
- 'gnc:pricedb-convert-balance-latest-before
- '<gnc:numeric>
- "gnc_pricedb_convert_balance_latest_before"
- '((<gnc:PriceDB*> db)
- (<gnc:numeric> balance)
- (<gnc:commodity*> balance_commodity) (<gnc:commodity*> new_currency)
- (<gnc:time-pair> t))
- "convert balance in commodity balance_commodity to new_currency using latest price
-prior to time t.")
-
-
-;;===========
-;; QofSession
-
-(gw:wrap-function
- ws
- 'gnc:session-new
- '<gnc:Session*>
- "qof_session_new" '()
- "Create a new session.")
-
-(gw:wrap-function
- ws
- 'gnc:session-destroy
- '<gw:void>
- "qof_session_destroy"
- '((<gnc:Session*> session))
- "Destroy the given session.")
-
-(gw:wrap-function
- ws
- 'gnc:session-get-book
- '<gnc:Book*>
- "qof_session_get_book"
- '((<gnc:Session*> session))
- "Get the book of the given session.")
-
-(gw:wrap-function
- ws
- 'gnc:session-begin
- '<gw:void>
- "qof_session_begin"
- '((<gnc:Session*> session)
- ((<gw:mchars> caller-owned const) id)
- (<gw:bool> ignore-lock?)
- (<gw:bool> create-if-nonexistent?))
- "Setup the session for use.")
-
-(gw:wrap-function
- ws
- 'gnc:session-load
- '<gw:void>
- "gnc_session_scm_load"
- '((<gnc:Session*> session))
- "Load the data associated with the given session.")
-
-(gw:wrap-function
- ws
- 'gnc:session-save
- '<gw:void>
- "gnc_session_scm_save"
- '((<gnc:Session*> session))
- "Save the data in the session.")
-
-(gw:wrap-function
- ws
- 'gnc:session-set-callback
- '<gw:void>
- "gnc_session_scm_set_callback"
- '((<gw:scm> callback))
- "Setup a callback for the load/save functions to provide progress
-reports. This function will be called with a string and an integer
-argument between 0 and 100 (inclusive).")
-
-(gw:wrap-function
- ws
- 'gnc:session-end
- '<gw:void>
- "qof_session_end"
- '((<gnc:Session*> session))
- "Indicate you're finished with the session.")
-
-(gw:wrap-function
- ws
- 'gnc:book-get-group
- '<gnc:AccountGroup*>
- "xaccGetAccountGroup"
- '((<gnc:Book*> book))
- "Get the book's account group.")
-
-(gw:wrap-function
- ws
- 'gnc:book-get-template-group
- '<gnc:AccountGroup*>
- "gnc_book_get_template_group"
- '((<gnc:Book*> book))
- "Get the book's template account group.")
-
-(gw:wrap-function
- ws
- 'gnc:book-get-commodity-table
- '<gnc:commodity-table*>
- "gnc_commodity_table_get_table"
- '((<gnc:Book*> book))
- "Get the book's commodity table.")
-
-(gw:wrap-function
- ws
- 'gnc:book-get-pricedb
- '<gnc:PriceDB*>
- "gnc_pricedb_get_db"
- '((<gnc:Book*> book))
- "Get the book's pricedb.")
-
-(gw:wrap-function
- ws
- 'gnc:book-kvp-changed
- '<gw:void>
- "qof_book_kvp_changed"
- '((<gnc:Book*> book))
- "Set the flag that the Book's kvp changed.")
-
-(gw:wrap-function
- ws
- 'gnc:session-get-error
- '<gnc:BackendError>
- "qof_session_get_error"
- '((<gnc:Session*> session))
- "Check for a pending error.")
-
-(gw:wrap-function
- ws
- 'gnc:session-get-url
- '(<gw:mchars> callee-owned const)
- "qof_session_get_url"
- '((<gnc:Session*> session))
- "Return the URL of the opened session.")
-
-(gw:wrap-function
- ws
- 'gnc:session-pop-error
- '<gnc:BackendError>
- "qof_session_pop_error"
- '((<gnc:Session*> session))
- "Remove an error, if any, from the error stack.")
-
-(gw:wrap-function
- ws
- 'gnc:set-log-level-global
- '<gw:void>
- "qof_log_set_level_registered"
- '((<gw:int> level))
- "Set the logging level for all modules to level.")
-
-(gw:wrap-function
- ws
- 'gnc:print-date
- '(<gw:mchars> callee-owned const)
- "gnc_print_date"
- '((<gnc:time-pair> date))
- "Returns a string with the date formatted according to the
-current settings")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-destroy
- '<gw:void>
- "xaccTransDestroy"
- '((<gnc:Transaction*> t))
- "Destroys the transaction in question.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-begin-edit
- '<gw:void>
- "xaccTransBeginEdit"
- '((<gnc:Transaction*> t))
- "Start an edit session on a transaction.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-commit-edit
- '<gw:void>
- "xaccTransCommitEdit"
- '((<gnc:Transaction*> t))
- "Commit edits to a transaction.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-is-open
- '<gw:bool>
- "xaccTransIsOpen"
- '((<gnc:Transaction*> t))
- "Returns true if the transaction t is open for editing.")
-
-(gw:wrap-function
- ws
- 'gnc:split-destroy
- '<gw:void>
- "xaccSplitDestroy"
- '((<gnc:Split*> s))
- "Destroys the split in question. Probably only useful inside the context
-of having a parent transaction with which one is working...")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-append-split
- '<gw:void>
- "xaccTransAppendSplit"
- '((<gnc:Transaction*> t) (<gnc:Split*> s))
- "Adds a split to a transaction.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-set-date
- '<gw:void>
- "xaccTransSetDate"
- '((<gnc:Transaction*> t)
- (<gw:int> day)
- (<gw:int> month)
- (<gw:int> year))
- "Set date on transaction based on day, month, year values")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-set-date-time-pair
- '<gw:void>
- "gnc_transaction_set_date"
- '((<gnc:Transaction*> t) (<gnc:time-pair> date))
- "Set date on transaction based on the time-pair")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-set-xnum
- '<gw:void>
- "xaccTransSetNum"
- '((<gnc:Transaction*> t) ((<gw:mchars> caller-owned const) xnum))
- "Set the XNUM - e.g. - cheque number or other identifier")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-set-description
- '<gw:void>
- "xaccTransSetDescription"
- '((<gnc:Transaction*> t) ((<gw:mchars> caller-owned const) desc))
- "Set the transaction description.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-set-notes
- '<gw:void>
- "xaccTransSetNotes"
- '((<gnc:Transaction*> t) ((<gw:mchars> caller-owned const) notes))
- "Set the transaction notes field.")
-
-(gw:wrap-function
- ws
- 'gnc:transaction-create
- '<gnc:Transaction*>
- "xaccMallocTransaction"
- '((<gnc:Book*> book>))
- "Create a Transaction structure")
-
-(gw:wrap-function
- ws
- 'gnc:split-create
- '<gnc:Split*>
- "xaccMallocSplit"
- '((<gnc:Book*> book>>))
- "Create a Split structure")
-
-(gw:wrap-function
- ws
- 'gnc:split-set-value
- '<gw:void>
- "xaccSplitSetValue"
- '((<gnc:Split*> s) (<gnc:numeric> amount))
- "Set value for split")
-
-(gw:wrap-function
- ws
- 'gnc:split-set-base-value
- '<gw:void>
- "xaccSplitSetBaseValue"
- '((<gnc:Split*> s)
- (<gnc:numeric> amount)
- (<gnc:commodity*> currency))
- "Set value for split with currency")
-
-(gw:wrap-function
- ws
- 'gnc:split-set-memo
- '<gw:void>
- "xaccSplitSetMemo"
- '((<gnc:Split*> s) ((<gw:mchars> caller-owned const) memo))
- "Set memo for a split")
-
-(gw:wrap-function
- ws
- 'gnc:split-set-action
- '<gw:void>
- "xaccSplitSetAction"
- '((<gnc:Split*> s) ((<gw:mchars> caller-owned const) action))
- "Set Action for a split.")
-
-(gw:wrap-function
- ws
- 'gnc:split-set-reconcile
- '<gw:void>
- "xaccSplitSetReconcile"
- '((<gnc:Split*> s) (<gw:char> value))
- "Set reconcile state for split entry")
-
-(gw:wrap-function
- ws
- 'gnc:split-set-share-price
- '<gw:void>
- "xaccSplitSetSharePrice"
- '((<gnc:Split*> s) (<gnc:numeric> value))
- "Set share price for split entry")
-
-(gw:wrap-function
- ws
- 'gnc:split-set-amount
- '<gw:void>
- "xaccSplitSetAmount"
- '((<gnc:Split*> s) (<gnc:numeric> value))
- "Set amount for split entry")
-
-(gw:wrap-function
- ws
- 'gnc:split-set-share-price-and-amount
- '<gw:void>
- "xaccSplitSetSharePriceAndAmount"
- '((<gnc:Split*> s)
- (<gnc:numeric> price)
- (<gnc:numeric> amount))
- "Set the share price and amount for split entry")
-
-(gw:wrap-function
- ws
- 'gnc:malloc-query
- '<gnc:Query*>
- "xaccMallocQuery"
- '()
- "Create a new (empty) Query structure to search for splits.")
-
-(gw:wrap-function
- ws
- 'gnc:query-create
- '<gnc:Query*>
- "qof_query_create"
- '()
- "Create a new (empty) Query structure.")
-
-(gw:wrap-function
- ws
- 'gnc:query-create-for
- '<gnc:Query*>
- "qof_query_create_for"
- '((<gnc:id-type> obj-type))
- "Create a new (empty) Query structure to search for the supplied type.")
-
-(gw:wrap-function
- ws
- 'gnc:query-search-for
- '<gw:void>
- "qof_query_search_for"
- '((<gnc:Query*> q) (<gnc:id-type> obj-type))
- "Set the object-type to search for.")
-
-(gw:wrap-function
- ws
- 'gnc:free-query
- '<gw:void>
- "xaccFreeQuery"
- '((<gnc:Query*> q))
- "Delete the Query and its terms.")
-
-(gw:wrap-function
- ws
- 'gnc:query-set-book
- '<gw:void>
- "xaccQuerySetBook"
- '((<gnc:Query*> q) (<gnc:Book*> book))
- "Set the book that a query pertains to.")
-
-(gw:wrap-function
- ws
- 'gnc:query-invert
- '<gnc:Query*>
- "xaccQueryInvert"
- '((<gnc:Query*> q))
- "Logically invert a Query (returns a newly-allocated Query object)")
-
-(gw:wrap-function
- ws
- 'gnc:query-merge
- '<gnc:Query*>
- "xaccQueryMerge"
- '((<gnc:Query*> q1) (<gnc:Query*> q2) (<gnc:query-op> qop))
- "Merge two queries (returns a newly allocated object")
-
-(gw:wrap-function
- ws
- 'gnc:query-clear
- '<gw:void>
- "xaccQueryClear"
- '((<gnc:Query*> q))
- "Clear the terms from a query object")
-
-(gw:wrap-function
- ws
- 'gnc:query-purge-terms
- '<gw:void>
- "qof_query_purge_terms"
- '((<gnc:Query*> q) ((gw:gslist-of <gnc:id-type> caller-owned) param-path))
- "Remove query terms of a particular parameter-path.")
-
-(gw:wrap-function
- ws
- 'gnc:query-has-terms?
- '<gw:bool>
- "xaccQueryHasTerms"
- '((<gnc:Query*> q))
- "Check if a Query is clear or has terms.")
-
-(gw:wrap-function
- ws
- 'gnc:query-get-splits
- '(gw:glist-of <gnc:Split*> callee-owned)
- "xaccQueryGetSplits"
- '((<gnc:Query*> q))
- "Return a list of splits matching the Query.")
-
-(gw:wrap-function
- ws
- 'gnc:query-get-splits-unique-trans
- '(gw:glist-of <gnc:Split*> caller-owned)
- "xaccQueryGetSplitsUniqueTrans"
- '((<gnc:Query*> q))
- "Return a list of splits matching the Query, but at most one per transaction")
-
-(gw:wrap-function
- ws
- 'gnc:query-get-transactions
- '(gw:glist-of <gnc:Transaction*> caller-owned)
- "xaccQueryGetTransactions"
- '((<gnc:Query*> q) (<gnc:query-txn-match-t> rt))
- "Find transactions with splits matching the Query.")
-
-(gw:wrap-function
- ws
- 'gnc:query-get-lots
- '(gw:glist-of <gnc:Lot*> caller-owned)
- "xaccQueryGetLots"
- '((<gnc:Query*> q) (<gnc:query-txn-match-t> rt))
- "Find lots with splits matching the Query.")
-
-(gw:wrap-function
- ws
- 'gnc:query-add-account-match
- '<gw:void>
- "xaccQueryAddAccountMatch"
- '((<gnc:Query*> q)
- ((gw:glist-of <gnc:Account*> caller-owned) accts)
- (<gnc:guid-match-how> acctmatch)
- (<gnc:query-op> how))
- "Match splits against one or all of a set of accounts.")
-
-(gw:wrap-function
- ws
- 'gnc:query-add-single-account-match
- '<gw:void>
- "xaccQueryAddSingleAccountMatch"
- '((<gnc:Query*> q) (<gnc:Account*> acct) (<gnc:query-op> how))
- "Match splits against a single account.")
-
-(gw:wrap-function
- ws
- 'gnc:query-add-description-match
- '<gw:void>
- "xaccQueryAddDescriptionMatch"
- '((<gnc:Query*> q)
- ((<gw:mchars> caller-owned const) mstring)
- (<gw:int> case-sens)
- (<gw:int> use-regexp)
- (<gnc:query-op> how))
- "Match splits against the transaction description.")
-
-(gw:wrap-function
- ws
- 'gnc:query-add-number-match
- '<gw:void>
- "xaccQueryAddNumberMatch"
- '((<gnc:Query*> q)
- ((<gw:mchars> caller-owned const) mstring)
- (<gw:int> case-sens)
- (<gw:int> use-regexp)
- (<gnc:query-op> how))
- "Match splits against the Number field.")
-
-(gw:wrap-function
- ws
- 'gnc:query-add-action-match
- '<gw:void>
- "xaccQueryAddActionMatch"
- '((<gnc:Query*> q)
- ((<gw:mchars> caller-owned const) mstring)
- (<gw:int> case-sens)
- (<gw:int> use-regexp)
- (<gnc:query-op> how))
- "Match splits against the Action field (a string).")
-
-(gw:wrap-function
- ws
- 'gnc:query-add-share-price-match
- '<gw:void>
- "xaccQueryAddSharePriceMatch"
- '((<gnc:Query*> q)
- (<gnc:numeric> amount)
- (<gnc:query-compare-how> mhow)
- (<gnc:query-op> how))
- "Match splits against the share price (including inequalities)")
-
-(gw:wrap-function
- ws
- 'gnc:query-add-shares-match
- '<gw:void>
- "xaccQueryAddSharesMatch"
- '((<gnc:Query*> q)
- (<gnc:numeric> amount)
- (<gnc:query-compare-how> mhow)
- (<gnc:query-op> how))
- "Match splits against the share price (including inequalities)")
-
-(gw:wrap-function
- ws
- 'gnc:query-add-value-match
- '<gw:void>
- "xaccQueryAddValueMatch"
- '((<gnc:Query*> q)
- (<gnc:numeric> amount)
- (<gnc:numeric-match-how> match-sign)
- (<gnc:query-compare-how> mhow)
- (<gnc:query-op> how))
- "Match splits against the value (including inequalities)")
-
-(gw:wrap-function
- ws
- 'gnc:query-add-date-match
- '<gw:void>
- "xaccQueryAddDateMatch"
- '((<gnc:Query*> q)
- (<gw:bool> use-start)
- (<gw:int> st-day)
- (<gw:int> st-mon)
- (<gw:int> st-year)
- (<gw:bool> use-end)
- (<gw:int> end-day)
- (<gw:int> end-mon)
- (<gw:int> end-year)
- (<gnc:query-op> how))
- "Match the transaction date.")
-
-(gw:wrap-function
- ws
- 'gnc:query-add-date-match-timepair
- '<gw:void>
- "xaccQueryAddDateMatchTS"
- '((<gnc:Query*> q)
- (<gw:bool> use-start)
- (<gnc:time-pair> start)
- (<gw:bool> use-end)
- (<gnc:time-pair> end)
- (<gnc:query-op> how))
- "Match the transaction date.")
-
-(gw:wrap-function
- ws
- 'gnc:query-add-memo-match
- '<gw:void>
- "xaccQueryAddMemoMatch"
- '((<gnc:Query*> q)
- ((<gw:mchars> caller-owned const) mstring)
- (<gw:int> case-sens)
- (<gw:int> use-regexp)
- (<gnc:query-op> how))
- "Match splits against the Memo field.")
-
-(gw:wrap-function
- ws
- 'gnc:query-add-cleared-match
- '<gw:void>
- "xaccQueryAddClearedMatch"
- '((<gnc:Query*> q) (<gnc:cleared-match-how> cleared-how) (<gnc:query-op> how))
- "match splits against the cleared state.")
-
-(gw:wrap-function
- ws
- 'gnc:query-add-guid-match
- '<gw:void>
- "xaccQueryAddGUIDMatchGL"
- '((<gnc:Query*> q) ((gw:glist-of <gnc:id-type> callee-owned) param_path)
- (<gnc:guid-scm> guid) (<gnc:query-op> how))
- "Add a GUID match against the specified param_path")
-
-(gw:wrap-function
- ws
- 'gnc:query-set-sort-order
- '<gw:void>
- "qof_query_set_sort_order"
- '((<gnc:Query*> q)
- ((gw:gslist-of <gnc:id-type> callee-owned) primary)
- ((gw:gslist-of <gnc:id-type> callee-owned) secondary)
- ((gw:gslist-of <gnc:id-type> callee-owned) tertiary))
- "set sort order.")
-
-(gw:wrap-function
- ws
- 'gnc:query-set-sort-increasing
- '<gw:void>
- "xaccQuerySetSortIncreasing"
- '((<gnc:Query*> q)
- (<gw:bool> prim-increasing)
- (<gw:bool> sec-increasing)
- (<gw:bool> tert-increasing))
- "sort in increasing rather than decreasing order.")
-
-(gw:wrap-function
- ws
- 'gnc:query-set-max-results
- '<gw:void>
- "qof_query_set_max_results"
- '((<gnc:Query*> q) (<gw:int> n))
- "Set the max number of results to be returned by a query.")
-
-(gw:wrap-function
- ws
- 'gnc:query->scm
- '<gw:scm>
- "gnc_query2scm"
- '((<gnc:Query*> q))
- "Convert a query to an scm representation.")
-
-(gw:wrap-function
- ws
- 'gnc:scm->query
- '<gnc:Query*>
- "gnc_scm2query"
- '((<gw:scm> query_scm))
- "Convert an scm representation of a query to a real query.")
-
-
-;;=============
-;; gnc-commodity
-
-(gw:wrap-function
- ws
- 'gnc:commodity-create
- '<gnc:commodity*>
- "gnc_commodity_new"
- '((<gnc:Book*> book)
- ((<gw:mchars> caller-owned const) fullname)
- ((<gw:mchars> caller-owned const) namespace)
- ((<gw:mchars> caller-owned const) mnemonic)
- ((<gw:mchars> caller-owned const) exchange-code)
- (<gw:int> smallest-fraction) )
- "Create a new gnc_commodity object.")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-destroy
- '<gw:void>
- "gnc_commodity_destroy"
- '((<gnc:commodity*> comm))
- "Delete a gnc_commodity structure.")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-get-mnemonic
- '(<gw:mchars> callee-owned const)
- "gnc_commodity_get_mnemonic"
- '((<gnc:commodity*> comm))
- "Get the mnemonic (ISO 3-letter string, ticker symbol, etc)")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-get-namespace
- '(<gw:mchars> callee-owned const)
- "gnc_commodity_get_namespace"
- '((<gnc:commodity*> comm))
- "Get the mnemonic's namespace (ISO-4217, NASDAQ, NYSE, etc)")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-get-printname
- '(<gw:mchars> callee-owned const)
- "gnc_commodity_get_printname"
- '((<gnc:commodity*> comm))
- "Get the currency's printable name .. 'USD (US Dollars)'")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-get-fullname
- '(<gw:mchars> callee-owned const)
- "gnc_commodity_get_fullname"
- '((<gnc:commodity*> comm))
- "Get the currency's full name (US Dollars).")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-get-exchange-code
- '(<gw:mchars> callee-owned const)
- "gnc_commodity_get_cusip"
- '((<gnc:commodity*> comm))
- "Get the cusip (exchange specific data, not the stock ticker)")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-get-fraction
- '<gw:int>
- "gnc_commodity_get_fraction"
- '((<gnc:commodity*> comm))
- "Get the number of smallest transactional units per unit of the currency")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-is-currency?
- '<gw:bool>
- "gnc_commodity_is_currency"
- '((<gnc:commodity*> comm))
- "return true if the commodity is an ISO4217 currency")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-equiv?
- '<gw:bool>
- "gnc_commodity_equiv"
- '((<gnc:commodity*> comm1) (<gnc:commodity*> comm2))
- "Return true if the two commodities are equivalent.")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-table-new
- '<gnc:commodity-table*>
- "gnc_commodity_table_new"
- '()
- "Return a new commodity table.");
-
-(gw:wrap-function
- ws
- 'gnc:commodity-table-lookup
- '<gnc:commodity*>
- "gnc_commodity_table_lookup"
- '((<gnc:commodity-table*> table)
- ((<gw:mchars> caller-owned const) namespace)
- ((<gw:mchars> caller-owned const) mnemonic))
- "Find a known gnc_commodity structure.")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-table-find-full
- '<gnc:commodity*>
- "gnc_commodity_table_find_full"
- '((<gnc:commodity-table*> table)
- ((<gw:mchars> caller-owned const) namespace)
- ((<gw:mchars> caller-owned const) printname))
- "Find a gnc_commodity structure from its printable name.")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-table-insert
- '<gnc:commodity*>
- "gnc_commodity_table_insert"
- '((<gnc:commodity-table*> table)
- (<gnc:commodity*> commodity))
- "Add a commodity to the table.")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-table-has-namespace
- '<gw:bool>
- "gnc_commodity_table_has_namespace"
- '((<gnc:commodity-table*> table)
- ((<gw:mchars> caller-owned const) namespace))
- "Predicate to test for existence of a namespace.")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-table-get-namespaces
- '(gw:glist-of (<gw:mchars> callee-owned) callee-owned)
- "gnc_commodity_table_get_namespaces"
- '((<gnc:commodity-table*> table))
- "Return a list of all the namespaces in the table.")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-table-add-namespace
- '<gnc:commodity-namespace*>
- "gnc_commodity_table_add_namespace"
- '((<gnc:commodity-table*> table)
- ((<gw:mchars> caller-owned const) namespace)
- (<gnc:Book*> book))
- "Add a new namespace to the commodity table")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-table-delete-namespace
- '<gw:void>
- "gnc_commodity_table_delete_namespace"
- '((<gnc:commodity-table*> table)
- ((<gw:mchars> caller-owned const) namespace))
- "Delete a namespace from the commodity table")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-table-get-commodities
- '(gw:glist-of <gnc:commodity*> caller-owned)
- "gnc_commodity_table_get_commodities"
- '((<gnc:commodity-table*> table)
- ((<gw:mchars> caller-owned const) namespace))
- "Return a list of all the commodities in a given namespace in the table.")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-table-get-quotable-commodities
- '(gw:glist-of <gnc:commodity*> caller-owned)
- "gnc_commodity_table_get_quotable_commodities"
- '((<gnc:commodity-table*> table))
- "Return a list of all the quotable commodities in a given namespace in the table.")
-
-(gw:wrap-function
- ws
- 'gnc:commodity-table-add-default-data
- '<gw:bool>
- "gnc_commodity_table_add_default_data"
- '((<gnc:commodity-table*> table)
- (<gnc:Book*> book))
- "Add default commodities to the commodity table.")
-
-;;=========
-
-(gw:wrap-function
- ws
- 'gnc:engine-shutdown
- '<gw:void>
- "gnc_engine_shutdown"
- '()
- "Shutdown the gnucash engine.")
-
-;;============
-;; gnc_numeric
-
-(gw:wrap-function
- ws
- 'gnc:numeric-create
- '<gnc:numeric>
- "gnc_numeric_create"
- '((<gw:gint64> num) (<gw:gint64> denom))
- "Create a new gnc_numeric object")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-zero
- '<gnc:numeric>
- "gnc_numeric_zero"
- '()
- "Create a zero-valued gnc_numeric")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-error
- '<gnc:numeric>
- "gnc_numeric_error"
- '((<gw:int> code))
- "Create an error-signaling gnc_numeric")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-check
- '<gw:int>
- "gnc_numeric_check"
- '((<gnc:numeric> val))
- "Check for error code in a gnc_numeric")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-num
- '<gw:gint64>
- "gnc_numeric_num"
- '((<gnc:numeric> arg))
- "Return the numerator of a gnc_numeric")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-denom
- '<gw:gint64>
- "gnc_numeric_denom"
- '((<gnc:numeric> arg))
- "Return the denominator of a gnc_numeric")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-zero-p
- '<gw:bool>
- "gnc_numeric_zero_p"
- '((<gnc:numeric> arg))
- "Check for zero.")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-compare
- '<gw:int>
- "gnc_numeric_compare"
- '((<gnc:numeric> arg1) (<gnc:numeric> arg2))
- "Compare 2 gnc_numeric (1 if a>b, 0 if a==b, -1 if a<b)")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-negative-p
- '<gw:bool>
- "gnc_numeric_negative_p"
- '((<gnc:numeric> arg))
- "Check for arg < 0")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-positive-p
- '<gw:bool>
- "gnc_numeric_positive_p"
- '((<gnc:numeric> arg))
- "Check for arg > 0")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-eq
- '<gw:bool>
- "gnc_numeric_eq"
- '((<gnc:numeric> arg1) (<gnc:numeric> arg2))
- "Check for arg1 exactly arg2")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-equal
- '<gw:bool>
- "gnc_numeric_equal"
- '((<gnc:numeric> arg1) (<gnc:numeric> arg2))
- "Check for arg1 same number as arg2")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-same
- '<gw:bool>
- "gnc_numeric_same"
- '((<gnc:numeric> arg1)
- (<gnc:numeric> arg2)
- (<gw:gint64> denom)
- (<gw:int> how))
- "Check for arg1 same number as arg2 if converted to common denom")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-add
- '<gnc:numeric>
- "gnc_numeric_add"
- '((<gnc:numeric> arg1)
- (<gnc:numeric> arg2)
- (<gw:gint64> denom)
- (<gw:int> how))
- "Return a+b")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-sub
- '<gnc:numeric>
- "gnc_numeric_sub"
- '((<gnc:numeric> arg1)
- (<gnc:numeric> arg2)
- (<gw:gint64> denom)
- (<gw:int> how))
- "Return a-b")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-mul
- '<gnc:numeric>
- "gnc_numeric_mul"
- '((<gnc:numeric> arg1)
- (<gnc:numeric> arg2)
- (<gw:gint64> denom)
- (<gw:int> how))
- "Return a*b")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-div
- '<gnc:numeric>
- "gnc_numeric_div"
- '((<gnc:numeric> arg1)
- (<gnc:numeric> arg2)
- (<gw:gint64> denom)
- (<gw:int> how))
- "Return a/b")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-neg
- '<gnc:numeric>
- "gnc_numeric_neg"
- '((<gnc:numeric> arg))
- "Return -a")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-abs
- '<gnc:numeric>
- "gnc_numeric_abs"
- '((<gnc:numeric> arg))
- "Return |a|")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-add-fixed
- '<gnc:numeric>
- "gnc_numeric_add_fixed"
- '((<gnc:numeric> arg1) (<gnc:numeric> arg2))
- "Return a+b under strict fixed-denom rules")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-sub-fixed
- '<gnc:numeric>
- "gnc_numeric_sub_fixed"
- '((<gnc:numeric> arg1) (<gnc:numeric> arg2))
- "Return a-b under strict fixed-denom rules")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-convert
- '<gnc:numeric>
- "gnc_numeric_convert"
- '((<gnc:numeric> arg) (<gw:gint64> denom) (<gw:int> how))
- "Convert a gnc_numeric to a new denominator")
-
-(gw:wrap-function
- ws
- 'gnc:double-to-gnc-numeric
- '<gnc:numeric>
- "double_to_gnc_numeric"
- '((<gw:double> in) (<gw:gint64> denom) (<gw:int> how))
- "Convert <gw:double> to gnc_numeric")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-to-double
- '<gw:double>
- "gnc_numeric_to_double"
- '((<gnc:numeric> in))
- "Convert gnc_numeric to double")
-
-(gw:wrap-function
- ws
- 'gnc:numeric-to-string
- '(<gw:mchars> caller-owned const)
- "gnc_numeric_to_string"
- '((<gnc:numeric> arg))
- "Convert gnc_numeric to a printable string")
-
-;; gnc-date.h
-
-(gw:wrap-function
- ws
- 'gnc:timepair-canonical-day-time
- '<gnc:time-pair>
- "timespecCanonicalDayTime"
- '((<gnc:time-pair> tp))
- "Convert a timepair on a certain day (localtime) to\
-the timepair representing midday on that day")
-
-;;
-;; gnc-filepath-utils.h
-;;
-
-(gw:wrap-function
- ws
- 'gnc:build-dotgnucash-path
- '(<gw:mchars> caller-owned)
- "gnc_build_dotgnucash_path"
- '(((<gw:mchars> caller-owned) filename))
- "Convert a relative path name into a full path name in the .gnucash directory")
-
-(gw:wrap-function
- ws
- 'gnc:build-book-path
- '(<gw:mchars> caller-owned)
- "gnc_build_book_path"
- '(((<gw:mchars> caller-owned) filename))
- "Convert a relative path name into a full path name in the .gnucash/books directory")
-
-;;
-;; gnc-lot.h
-;;
-
-(gw:wrap-function
- ws
- 'gnc:lot-get-balance
- '<gnc:numeric>
- "gnc_lot_get_balance"
- '((<gnc:Lot*> lot))
- "Return the balance of the lot")
-
-(gw:wrap-function
- ws
- 'gnc:lot-closed?
- '<gw:bool>
- "gnc_lot_is_closed"
- '((<gnc:Lot*> lot))
- "Is this Lot closed (is the balance zero)?")
-
-(gw:wrap-function
- ws
- 'gnc:lot-get-splits
- '(gw:glist-of <gnc:Split*> callee-owned)
- "gnc_lot_get_split_list"
- '((<gnc:Lot*> lot))
- "Return the list of splits attached to this lot.")
-
-(gw:wrap-function
- ws
- 'qof:event-suspend
- '<gw:void>
- "qof_event_suspend"
- '()
- "Suspend all engine events.")
-
-(gw:wrap-function
- ws
- 'qof:event-resume
- '<gw:void>
- "qof_event_resume"
- '()
- "Resume engine event generation.")
-
-(gw:wrap-function
- ws
- 'gnc:quote-source-set-fq-installed
- '<gw:void>
- "gnc_quote_source_set_fq_installed"
- '(((gw:glist-of (<gw:mchars> callee-owned) callee-owned) choices))
- "Takes a list of installed Finance::Quote souces and records it internally.")
-
-
-;; Budget functions
-
-(gw:wrap-as-wct ws '<gnc:Budget*> "GncBudget *" "const GncBudget *")
-
-(gw:wrap-function
- ws
- 'gnc:budget-get-guid
- '<gnc:guid-scm>
- "gnc_budget_return_guid"
- '((<gnc:Budget*> budget))
- "Gets the guid of the budget")
-
-
-(gw:wrap-function
- ws
- 'gnc:budget-lookup
- '<gnc:Budget*>
- "gnc_budget_lookup_direct"
- '((<gnc:guid-scm> guid)
- (<gnc:Book*> book))
- "Lookup a budget from its GUID.")
-
-
-(gw:wrap-function
- ws
- 'gnc:budget-get-default
- '<gnc:Budget*>
- "gnc_budget_get_default"
- '((<gnc:Book*> book))
- "Get the default budget for the book.")
-
-
-(gw:wrap-function
- ws
- 'gnc:budget-get-name
- '(<gw:mchars> callee-owned const)
- "gnc_budget_get_name"
- '((<gnc:Budget*> budget))
- "Get the brief name for the budget.")
-
-(gw:wrap-function
- ws
- 'gnc:budget-get-num-periods
- '<gw:unsigned-int>
- "gnc_budget_get_num_periods"
- '((<gnc:Budget*> budget))
- "Get the number of periods in a budget.")
-
-(gw:wrap-function
- ws
- 'gnc:budget-get-account-period-value
- '<gnc:numeric>
- "gnc_budget_get_account_period_value"
- '((<gnc:Budget*> budget)
- (<gnc:Account*> acct)
- (<gw:unsigned-int> period_num)
- )
- "Get the budgeted value for the given account and budget period.")
-
-(gw:wrap-function
- ws
- 'gnc:budget-get-account-period-actual-value
- '<gnc:numeric>
- "gnc_budget_get_account_period_actual_value"
- '((<gnc:Budget*> budget)
- (<gnc:Account*> acct)
- (<gw:unsigned-int> period_num)
- )
- "Get the actual account value for the given account and budget period.")
-
-(gw:wrap-function
- ws
- 'gnc:budget-get-period-start-date
- '<gnc:time-pair>
- "gnc_budget_get_period_start_date"
- '((<gnc:Budget*> budget)
- (<gw:unsigned-int> period_num)
- )
- "Get the date that the given period begins.")
-
-;;
-;; gnc-hooks-scm.h
-;; (and gnc-hooks.h)
-;;
-(gw:wrap-function
- ws
- 'gnc:hook-define
- '(<gw:mchars> caller-owned)
- "gnc_hook_create"
- '(((<gw:mchars> caller-owned) name) (<gw:int> how) ((<gw:mchars> caller-owned) desc))
- "Define (create) a new hook")
-
-(gw:wrap-function
- ws
- 'gnc:hook-get-description
- '(<gw:mchars> callee-owned)
- "gnc_hook_get_description"
- '(((<gw:mchars> caller-owned) hook))
- "Get the description of a hook")
-
-(gw:wrap-function
- ws
- 'gnc:hook-add-dangler
- '<gw:void>
- "gnc_hook_add_scm_dangler"
- '(((<gw:mchars> caller-owned) hook) (<gw:scm> procedure))
- "Add a hook dangler to an existing hook")
-
-(gw:wrap-function
- ws
- 'gnc:hook-remove-dangler
- '<gw:void>
- "gnc_hook_del_scm_dangler"
- '(((<gw:mchars> caller-owned) hook) (<gw:scm> procedure))
- "Remove a hook dangler from an existing hook")
-
-(gw:wrap-function
- ws
- 'gnc:hook-run-danglers-real
- '<gw:void>
- "gnc_hook_run"
- '(((<gw:mchars> caller-owned) name) (<gnc:Session*> arg))
- "Run the danglers on a hook.")
-
-; Now wrap all the 'known' hooks
-(gw:wrap-value ws 'gnc:*new-book-hook*
- '(<gw:mchars> callee-owned) "HOOK_NEW_BOOK")
-(gw:wrap-value ws 'gnc:*report-hook*
- '(<gw:mchars> callee-owned) "HOOK_REPORT")
-(gw:wrap-value ws 'gnc:*save-options-hook*
- '(<gw:mchars> callee-owned) "HOOK_SAVE_OPTIONS")
-(gw:wrap-value ws 'gnc:*book-opened-hook*
- '(<gw:mchars> callee-owned) "HOOK_BOOK_OPENED")
-(gw:wrap-value ws 'gnc:*book-closed-hook*
- '(<gw:mchars> callee-owned) "HOOK_BOOK_CLOSED")
Deleted: gnucash/branches/swig-redo/src/engine/gw-kvp-spec.scm
===================================================================
--- gnucash/branches/swig-redo/src/engine/gw-kvp-spec.scm 2006-10-10 00:34:29 UTC (rev 14986)
+++ gnucash/branches/swig-redo/src/engine/gw-kvp-spec.scm 2006-10-10 00:37:33 UTC (rev 14987)
@@ -1,107 +0,0 @@
-(define-module (g-wrapped gw-kvp-spec))
-
-;; g-wrap modules
-(use-modules (g-wrap))
-(use-modules (g-wrap simple-type))
-
-;; g-wrap wrapped modules
-(use-modules (g-wrap gw-standard-spec))
-(use-modules (g-wrap gw-wct-spec))
-(use-modules (g-wrap gw-glib-spec))
-
-;; other wrapped modules
-(use-modules (g-wrapped gw-engine-spec))
-
-(let ((ws (gw:new-wrapset "gw-kvp")))
-
- (gw:wrapset-depends-on ws "gw-standard")
- (gw:wrapset-depends-on ws "gw-wct")
- (gw:wrapset-depends-on ws "gw-glib")
-
- (gw:wrapset-depends-on ws "gw-engine")
-
- (gw:wrapset-set-guile-module! ws '(g-wrapped gw-kvp))
-
- (gw:wrapset-add-cs-declarations!
- ws
- (lambda (wrapset client-wrapset)
- (list
- "#include <qof.h>\n"
- "#include <kvp-scm.h>\n"
- "#include <Transaction.h>\n")))
-
- (gw:wrap-as-wct ws '<gnc:kvp-frame*> "KvpFrame*" "const KvpFrame*")
-
- (gw:wrap-simple-type
- ws
- '<gnc:kvp-value*> "KvpValue*"
- '("gnc_kvp_value_ptr_p(" scm-var ")")
- '(c-var " = gnc_scm_to_kvp_value_ptr(" scm-var ");\n")
- '(scm-var " = gnc_kvp_value_ptr_to_scm(" c-var ");\n"))
-
- (gw:wrap-function
- ws
- 'gnc:kvp-frame-delete-at-path
- '<gw:void>
- "gnc_kvp_frame_delete_at_path"
- '((<gnc:kvp-frame*> f)
- ((gw:gslist-of (<gw:mchars> caller-owned const) caller-owned) key-path))
- "Deletes the KvpFrame at the key-path in frame f")
-
- (gw:wrap-function
- ws
- 'gnc:kvp-frame-set-slot
- '<gw:void>
- "kvp_frame_set_slot"
- '((<gnc:kvp-frame*> k)
- ((<gw:mchars> caller-owned const) c)
- (<gnc:kvp-value*> v))
- "Sets the slot c in frame k to the value v")
-
- (gw:wrap-function
- ws
- 'gnc:kvp-frame-get-slot
- '<gnc:kvp-value*>
- "kvp_frame_get_slot"
- '((<gnc:kvp-frame*> k) ((<gw:mchars> caller-owned const) c))
- "Gets the slot c from frame k")
-
- (gw:wrap-function
- ws
- 'gnc:kvp-frame-set-slot-path
- '<gw:void>
- "kvp_frame_set_slot_path_gslist"
- '((<gnc:kvp-frame*> k) (<gnc:kvp-value*> v)
- ((gw:gslist-of (<gw:mchars> caller-owned const) caller-owned) key-path))
- "Sets the path key-path in frame k to the value v")
-
- (gw:wrap-function
- ws
- 'gnc:kvp-frame-get-slot-path
- '<gnc:kvp-value*>
- "kvp_frame_get_slot_path_gslist"
- '((<gnc:kvp-frame*> k)
- ((gw:gslist-of (<gw:mchars> caller-owned const) caller-owned) key-path))
- "Gets the value at slots key-path in frame k")
-
- ;;
- ;; functions to get kvp-frames
- ;;
-
- (gw:wrap-function
- ws
- 'gnc:transaction-get-slots
- '<gnc:kvp-frame*>
- "xaccTransGetSlots"
- '((<gnc:Transaction*> s))
- "Get the transaction's slots.")
-
- (gw:wrap-function
- ws
- 'gnc:book-get-slots
- '<gnc:kvp-frame*>
- "qof_book_get_slots"
- '((<gnc:Book*> b))
- "Get the book's slots.")
-)
-
Deleted: gnucash/branches/swig-redo/src/gnc-module/gw-gnc-module-spec.scm
===================================================================
--- gnucash/branches/swig-redo/src/gnc-module/gw-gnc-module-spec.scm 2006-10-10 00:34:29 UTC (rev 14986)
+++ gnucash/branches/swig-redo/src/gnc-module/gw-gnc-module-spec.scm 2006-10-10 00:37:33 UTC (rev 14987)
@@ -1,48 +0,0 @@
-(define-module (g-wrapped gw-gnc-module-spec))
-(debug-set! maxdepth 100000)
-(debug-set! stack 200000)
-
-(use-modules (g-wrap))
-
-(use-modules (g-wrap gw-standard-spec))
-(use-modules (g-wrap gw-wct-spec))
-
-(let ((ws (gw:new-wrapset "gw-gnc-module")))
-
- (gw:wrapset-depends-on ws "gw-standard")
- (gw:wrapset-depends-on ws "gw-wct")
-
- (gw:wrapset-set-guile-module! ws '(g-wrapped gw-gnc-module))
-
- (gw:wrap-as-wct ws '<gnc:module> "GNCModule" "const GNCModule")
-
- (gw:wrapset-add-cs-declarations!
- ws
- (lambda (wrapset client-wrapset)
- (list "#include \"gnc-module.h\"\n")))
-
- (gw:wrap-function
- ws 'gnc:module-system-refresh
- '<gw:void> "gnc_module_system_refresh"
- '() "Reload the database of modules in the GNC_MODULE_PATH.")
-
- (gw:wrap-function
- ws 'gnc:module-load
- '<gnc:module> "gnc_module_load"
- '(((<gw:mchars> caller-owned) module-name) (<gw:int> interface))
- "Load and initialize a gnc-module")
-
- (gw:wrap-function
- ws 'gnc:module-load-optional
- '<gnc:module> "gnc_module_load_optional"
- '(((<gw:mchars> caller-owned) module-name) (<gw:int> interface))
- "Load and initialize a gnc-module if present")
-
- (gw:wrap-function
- ws 'gnc:module-unload
- '<gw:bool> "gnc_module_unload"
- '((<gnc:module> module))
- "Unreference a gnc-module. Module will unload when refcount goes to 0")
-
-)
-
Deleted: gnucash/branches/swig-redo/src/gnome/gw-gnc-spec.scm
===================================================================
--- gnucash/branches/swig-redo/src/gnome/gw-gnc-spec.scm 2006-10-10 00:34:29 UTC (rev 14986)
+++ gnucash/branches/swig-redo/src/gnome/gw-gnc-spec.scm 2006-10-10 00:37:33 UTC (rev 14987)
@@ -1,136 +0,0 @@
-(define-module (g-wrapped gw-gnc-spec))
-(debug-set! maxdepth 100000)
-(debug-set! stack 200000)
-
-(use-modules (g-wrap))
-
-(use-modules (g-wrap gw-standard-spec))
-(use-modules (g-wrap gw-wct-spec))
-(use-modules (g-wrap gw-glib-spec))
-
-(use-modules (g-wrapped gw-engine-spec))
-(use-modules (g-wrapped gw-gnome-utils-spec))
-
-(let ((ws (gw:new-wrapset "gw-gnc")))
-
- (gw:wrapset-depends-on ws "gw-standard")
- (gw:wrapset-depends-on ws "gw-wct")
- (gw:wrapset-depends-on ws "gw-glib")
-
- (gw:wrapset-depends-on ws "gw-engine")
- (gw:wrapset-depends-on ws "gw-gnome-utils")
-
- (gw:wrapset-set-guile-module! ws '(g-wrapped gw-gnc))
-
- (gw:wrapset-add-cs-declarations!
- ws
- (lambda (wrapset client-wrapset)
- (list
- "#include <config.h>\n"
- "#include <glib.h>\n"
- "#include <gnc-ui.h>\n"
- "#include <gnc-ui-util.h>\n"
- "#include <gnc-menu-extensions.h>\n"
- "#include <guile-util.h>\n"
- "#include <gnc-engine.h>\n"
- "#include <gnc-commodity.h>\n"
- "#include <dialog-totd.h>\n"
- "#include <gnc-gui-query.h>\n"
- "#include <dialog-new-user.h>\n"
- "#include <dialog-progress.h>\n"
- "#include <dialog-commodity.h>\n"
- "#include <druid-hierarchy.h>\n"
- "#include <top-level.h>\n"
- "#include <gnc-html.h>\n"
- "#include <gnc-main-window.h>\n"
- "#include <gnc-window.h>\n"
- "#include <gnc-plugin-account-tree.h>\n"
- "#include <gnc-splash.h>\n"
- "#include <dialog-scheduledxaction.h>\n"
- "#include <dialog-sxsincelast.h>\n" )))
-
- (gw:wrap-function
- ws
- 'gnc:new-user-dialog
- '<gw:void>
- "gnc_ui_new_user_dialog"
- '()
- "Show the new user dialog.")
-
- (gw:wrap-as-wct ws
- '<gnc:ProgressDialog*>
- "GNCProgressDialog *" "const GNCProgressDialog *")
-
- (gw:wrap-function
- ws
- 'gnc:progress-dialog-new
- '<gnc:ProgressDialog*>
- "gnc_progress_dialog_new"
- '((<gnc:UIWidget> parent) (<gw:bool> use_ok_button))
- "Create and return a progress dialog. The parent may be NULL.")
-
- (gw:wrap-function
- ws
- 'gnc:progress-dialog-set-title
- '<gw:void>
- "gnc_progress_dialog_set_title"
- '((<gnc:ProgressDialog*> progress)
- ((<gw:mchars> caller-owned const) title))
- "Set the title of 'progress' to 'title'.")
-
- (gw:wrap-function
- ws
- 'gnc:progress-dialog-set-heading
- '<gw:void>
- "gnc_progress_dialog_set_heading"
- '((<gnc:ProgressDialog*> progress)
- ((<gw:mchars> caller-owned const) heading))
- "Set the heading of 'progress' to 'heading'.")
-
- (gw:wrap-function
- ws
- 'gnc:progress-dialog-set-cancel-scm-func
- '<gw:void>
- "gnc_progress_dialog_set_cancel_scm_func"
- '((<gnc:ProgressDialog*> progress)
- (<gw:scm> cancel_func))
- "Set the guile cancel callback function. This callback is invoked
-with no arguments when the user hits the cancel button. If the callback
-returns #t, the dialog is closed, but not destroyed.")
-
- (gw:wrap-function
- ws
- 'gnc:progress-dialog-set-value
- '<gw:void>
- "gnc_progress_dialog_set_value"
- '((<gnc:ProgressDialog*> progress) (<gw:double> value))
- "Set the value of the progress dialog to 'value'.")
-
- (gw:wrap-function
- ws
- 'gnc:progress-dialog-update
- '<gw:void>
- "gnc_progress_dialog_update"
- '((<gnc:ProgressDialog*> progress))
- "Update the progress bar, calling any pending cancel callback.")
-
- (gw:wrap-function
- ws
- 'gnc:progress-dialog-finish
- '<gw:void>
- "gnc_progress_dialog_finish"
- '((<gnc:ProgressDialog*> progress))
- "Set the progress dialog to the finished state. The OK button becomes
-sensitive and the dialog closes after the user clicks it.")
-
- (gw:wrap-function
- ws
- 'gnc:progress-dialog-destroy
- '<gw:void>
- "gnc_progress_dialog_destroy"
- '((<gnc:ProgressDialog*> progress))
- "Destroy the progess dialog. You must call this function in
-order to destroy the dialog. The dialog will not be destroyed
-by the user closing the window.")
-
-)
Deleted: gnucash/branches/swig-redo/src/gnome-utils/gw-gnome-utils-spec.scm
===================================================================
--- gnucash/branches/swig-redo/src/gnome-utils/gw-gnome-utils-spec.scm 2006-10-10 00:34:29 UTC (rev 14986)
+++ gnucash/branches/swig-redo/src/gnome-utils/gw-gnome-utils-spec.scm 2006-10-10 00:37:33 UTC (rev 14987)
@@ -1,494 +0,0 @@
-(debug-set! maxdepth 100000)
-(debug-set! stack 200000)
-
-(define-module (g-wrapped gw-gnome-utils-spec))
-
-(use-modules (g-wrap))
-
-(use-modules (g-wrap gw-standard-spec))
-(use-modules (g-wrap gw-wct-spec))
-(use-modules (g-wrap gw-glib-spec))
-
-(use-modules (g-wrapped gw-engine-spec))
-(use-modules (g-wrapped gw-app-utils-spec))
-
-(let ((ws (gw:new-wrapset "gw-gnome-utils")))
-
- (gw:wrapset-depends-on ws "gw-standard")
- (gw:wrapset-depends-on ws "gw-wct")
- (gw:wrapset-depends-on ws "gw-glib")
-
- (gw:wrapset-depends-on ws "gw-engine")
- (gw:wrapset-depends-on ws "gw-app-utils")
-
- (gw:wrapset-set-guile-module! ws '(g-wrapped gw-gnome-utils))
-
- (gw:wrap-value ws 'gnc:additional-menus-placeholder '(<gw:mchars> callee-owned const) "ADDITIONAL_MENUS_PLACEHOLDER")
-
- (gw:wrapset-add-cs-declarations!
- ws
- (lambda (wrapset client-wrapset)
- (list
- "#include <config.h>\n"
- "#include <dialog-options.h>\n"
- "#include <dialog-utils.h>\n"
- "#include <druid-utils.h>\n"
- "#include <gtk/gtk.h>\n"
- "#include <gnc-amount-edit.h>\n"
- "#include <gnc-date-edit.h>\n"
- "#include <gnc-file.h>\n"
- "#include <gnc-gconf-utils.h>\n"
- "#include <gnc-gnome-utils.h>\n"
- "#include <gnc-gui-query.h>\n"
- "#include <gnc-html.h>\n"
- "#include <gnc-main-window.h>\n"
- "#include <gnc-window.h>\n"
- "#include <gnc-menu-extensions.h>\n"
- "#include <gnc-plugin-file-history.h>\n"
- "#include <gnc-ui.h>\n"
- "#include <print-session.h>\n"
- "#include <gnc-splash.h>\n"
- )))
-
-
- (gw:wrap-as-wct ws '<gtk:Widget*> "GtkWidget*" "const GtkWidget*")
- (gw:wrap-as-wct ws '<gtk:Window*> "GtkWindow*" "const GtkWindow*")
- (gw:wrap-as-wct ws '<gnc:UIWidget> "gncUIWidget" "const gncUIWidget")
- (gw:wrap-as-wct ws '<gnc:OptionWin*> "GNCOptionWin*" "const GNCOptionWin*")
- (gw:wrap-as-wct ws '<gnc:url-type> "URLType" "const URLType")
- (gw:wrap-as-wct ws '<gnc:Window*> "GncWindow *" "const GncWindow *")
- (gw:wrap-as-wct ws '<gnc:MainWindow*> "GncMainWindow *" "const GncMainWindow *")
-
- ;;
- ;; URLTypes
- ;;
- (gw:wrap-value ws 'gnc:url-type-file '<gnc:url-type> "URL_TYPE_FILE")
- (gw:wrap-value ws 'gnc:url-type-jump '<gnc:url-type> "URL_TYPE_JUMP")
- (gw:wrap-value ws 'gnc:url-type-http '<gnc:url-type> "URL_TYPE_HTTP")
- (gw:wrap-value ws 'gnc:url-type-ftp '<gnc:url-type> "URL_TYPE_FTP")
- (gw:wrap-value ws 'gnc:url-type-secure '<gnc:url-type> "URL_TYPE_SECURE")
- (gw:wrap-value ws 'gnc:url-type-register '<gnc:url-type> "URL_TYPE_REGISTER")
- (gw:wrap-value ws 'gnc:url-type-accttree '<gnc:url-type> "URL_TYPE_ACCTTREE")
- (gw:wrap-value ws 'gnc:url-type-report '<gnc:url-type> "URL_TYPE_REPORT")
- (gw:wrap-value ws 'gnc:url-type-options '<gnc:url-type> "URL_TYPE_OPTIONS")
- (gw:wrap-value ws 'gnc:url-type-scheme '<gnc:url-type> "URL_TYPE_SCHEME")
- (gw:wrap-value ws 'gnc:url-type-help '<gnc:url-type> "URL_TYPE_HELP")
- (gw:wrap-value ws 'gnc:url-type-xmldata '<gnc:url-type> "URL_TYPE_XMLDATA")
- (gw:wrap-value ws 'gnc:url-type-price '<gnc:url-type> "URL_TYPE_PRICE")
- (gw:wrap-value ws 'gnc:url-type-other '<gnc:url-type> "URL_TYPE_OTHER")
-
-
- (gw:wrap-function
- ws
- 'gnc:option-dialog-new
- '<gnc:OptionWin*>
- "gnc_options_dialog_new"
- '(((<gw:mchars> caller-owned) title))
- "Create a new option dialog")
-
- (gw:wrap-function
- ws
- 'gnc:option-dialog-destroy
- '<gw:void>
- "gnc_options_dialog_destroy"
- '((<gnc:OptionWin*> option-window))
- "Destroy an option dialog")
-
- (gw:wrap-function
- ws
- 'gnc:option-dialog-build-contents
- '<gw:void>
- "gnc_build_options_dialog_contents"
- '((<gnc:OptionWin*> option-window) (<gnc:OptionDB*> option-db))
- "Fill in the option window with the provided option db")
-
- (gw:wrap-function
- ws
- 'gnc:option-dialog-set-callbacks
- '<gw:void>
- "gnc_options_dialog_set_scm_callbacks"
- '((<gnc:OptionWin*> option-window) (<gw:scm> apply-cb) (<gw:scm> close-cb))
- "Setup callbacks for the option window.")
-
-
- (gw:wrap-as-wct ws '<gnc:PrintSession*> "PrintSession*" "const PrintSession*")
-
- (gw:wrap-function
- ws
- 'gnc:print-session-create
- '<gnc:PrintSession*>
- "gnc_print_session_create"
- '((<gw:bool> yes_is_default))
- "Start a new print session. This will display a dialog asking for "
- "number of copies, print vs. preview, etc.")
-
- (gw:wrap-function
- ws
- 'gnc:print-session-destroy
- '<gw:void>
- "gnc_print_session_destroy"
- '((<gnc:PrintSession*> p))
- "Free a print session's resources")
-
- (gw:wrap-function
- ws
- 'gnc:print-session-moveto
- '<gw:void>
- "gnc_print_session_moveto"
- '((<gnc:PrintSession*> p) (<gw:double> x) (<gw:double> y))
- "Move the current point")
-
- (gw:wrap-function
- ws
- 'gnc:print-session-text
- '<gw:void>
- "gnc_print_session_text"
- '((<gnc:PrintSession*> p) ((<gw:mchars> caller-owned const) text))
- "Show some text in Courier 16")
-
- (gw:wrap-function
- ws
- 'gnc:print-session-rotate
- '<gw:void>
- "gnc_print_session_rotate"
- '((<gnc:PrintSession*> p) (<gw:double> theta_in_degrees))
- "Rotate the image by X degrees")
-
- (gw:wrap-function
- ws
- 'gnc:print-session-translate
- '<gw:void>
- "gnc_print_session_translate"
- '((<gnc:PrintSession*> p) (<gw:double> x) (<gw:double> y))
- "Translate the image to point x,y")
-
- (gw:wrap-function
- ws
- 'gnc:print-session-gsave
- '<gw:void>
- "gnc_print_session_gsave"
- '((<gnc:PrintSession*> p))
- "Save the current print-session state")
-
- (gw:wrap-function
- ws
- 'gnc:print-session-grestore
- '<gw:void>
- "gnc_print_session_grestore"
- '((<gnc:PrintSession*> p))
- "Restore the current print-session state")
-
- (gw:wrap-function
- ws
- 'gnc:print-session-done
- '<gw:void>
- "gnc_print_session_done"
- '((<gnc:PrintSession*> p))
- "Let the print context know you're finished with it.")
-
- (gw:wrap-function
- ws
- 'gnc:error-dialog
- '<gw:void>
- "gnc_error_dialog"
- '((<gtk:Widget*> window)
- ((<gw:mchars> caller-owned const) message))
- "Show ok dialog box with given error message.")
-
- (gw:wrap-function
- ws
- 'gnc:verify-dialog
- '<gw:bool>
- "gnc_verify_dialog"
- '((<gtk:Widget*> window)
- (<gw:bool> yes_is_default)
- ((<gw:mchars> caller-owned const) message))
- "Show yes/no dialog box with given message.")
-
- (gw:wrap-function
- ws
- 'gnc:info-dialog
- '<gw:void>
- "gnc_info_dialog"
- '((<gtk:Widget*> window)
- ((<gw:mchars> caller-owned const) message))
- "Show ok dialog box with given message.")
-
- (gw:wrap-function
- ws
- 'gnc:warning-dialog
- '<gw:void>
- "gnc_warning_dialog"
- '((<gtk:Widget*> window)
- ((<gw:mchars> caller-owned const) message))
- "Show warning dialog box with given message.")
-
- (gw:wrap-function
- ws
- 'gnc:add-extension
- '<gw:void>
- "gnc_add_scm_extension"
- '((<gw:scm> extension))
- "Add a menu extension.")
-
- (gw:wrap-function
- ws
- 'gnc:choose-radio-option-dialog
- '<gw:int>
- "gnc_choose_radio_option_dialog"
- '((<gnc:UIWidget> parent)
- ((<gw:mchars> caller-owned const) title)
- ((<gw:mchars> caller-owned const) msg)
- ((<gw:mchars> caller-owned const) button-name)
- (<gw:int> default-choice)
- ((gw:glist-of (<gw:mchars> callee-owned) callee-owned) choices))
- "Show a dialog offering different mutually exclusive choices
-in a radio list.")
-
- ;;
- ;; gnc-html.h
- ;;
-
- (gw:wrap-function
- ws
- 'gnc:html-encode-string
- '(<gw:gchars> caller-owned)
- "gnc_html_encode_string"
- '(((<gw:mchars> caller-owned const) bookname)))
-
- (gw:wrap-function
- ws
- 'gnc:html-build-url
- '(<gw:gchars> caller-owned)
- "gnc_build_url"
- '((<gnc:url-type> url-type) ((<gw:mchars> caller-owned const) location)
- ((<gw:mchars> caller-owned const) label))
- "Build a GNC URL based on the URL Type and location. The label may
-be left empty")
-
-
- ;; gnc-amount-edit.h
- (gw:wrap-as-wct ws
- '<gnc:GNCAmountEdit>
- "GNCAmountEdit*" "const GNCAmountEdit*")
-
- (gw:wrap-function
- ws
- 'gnc:amount-edit-new
- '<gnc:UIWidget>
- "gnc_amount_edit_new"
- '()
- "Return a new amount edit widget.")
-
- (gw:wrap-function
- ws
- 'gnc:amount-edit-gtk-entry
- '<gnc:UIWidget>
- "gnc_amount_edit_gtk_entry"
- '((<gnc:GNCAmountEdit> amount-edit))
- "Return the gtk entry for a gnc amount edit widget.")
-
- (gw:wrap-function
- ws
- 'gnc:amount-edit-set-amount
- '<gw:void>
- "gnc_amount_edit_set_amount"
- '((<gnc:GNCAmountEdit> amount-edit)
- (<gnc:numeric> amount))
- "Set the amount of an amount edit widget.")
-
- (gw:wrap-function
- ws
- 'gnc:amount-edit-get-amount
- '<gnc:numeric>
- "gnc_amount_edit_get_amount"
- '((<gnc:GNCAmountEdit> amount-edit))
- "Return the amount in an amount edit widget.")
-
- (gw:wrap-function
- ws
- 'gnc:amount-edit-evaluate
- '<gw:bool>
- "gnc_amount_edit_evaluate"
- '((<gnc:GNCAmountEdit> amount-edit))
- "Evaluate the contents of an amount edit widget and return
-#t if it is a valid entry.")
-
- (gw:wrap-function
- ws
- 'gnc:amount-edit-set-print-info
- '<gw:void>
- "gnc_amount_edit_set_print_info"
- '((<gnc:GNCAmountEdit> amount-edit)
- (<gnc:print-amount-info-scm> print-info))
- "Set the print info used by the amount edit.")
-
- (gw:wrap-function
- ws
- 'gnc:amount-edit-set-fraction
- '<gw:void>
- "gnc_amount_edit_set_fraction"
- '((<gnc:GNCAmountEdit> amount-edit)
- (<gw:int> fraction))
- "Set the fraction used by the amount edit widget.")
-
- (gw:wrap-function
- ws
- 'gnc:amount-edit-set-evaluate-on-enter
- '<gw:void>
- "gnc_amount_edit_set_evaluate_on_enter"
- '((<gnc:GNCAmountEdit> amount-edit)
- (<gw:bool> evaluate-on-enter))
- "Set whether the edit widget evaluates on enter.")
-
-
- ;; gnc-date-edit.h
- (gw:wrap-as-wct ws '<gnc:GNCDateEdit> "GNCDateEdit*" "const GNCDateEdit*")
-
- (gw:wrap-function
- ws
- 'gnc:date-edit-new
- '<gnc:UIWidget>
- "gnc_date_edit_new_ts"
- '((<gnc:time-pair> date) (<gw:bool> show-time) (<gw:bool> use-24-hour-format))
- "Return a new date edit widget.")
-
- (gw:wrap-function
- ws
- 'gnc:date-edit-set-time
- '<gw:void>
- "gnc_date_edit_set_time_ts"
- '((<gnc:GNCDateEdit> date-edit)
- (<gnc:time-pair> time))
- "Set the time used by the date edit widget.")
-
- (gw:wrap-function
- ws
- 'gnc:date-edit-get-date
- '<gnc:time-pair>
- "gnc_date_edit_get_date_ts"
- '((<gnc:GNCDateEdit> date-edit))
- "Return the date of the date-edit widget.")
-
- (gw:wrap-function
- ws
- 'gnc:date-edit-get-date-end
- '<gnc:time-pair>
- "gnc_date_edit_get_date_end_ts"
- '((<gnc:GNCDateEdit> date-edit))
- "Return the date of the date-edit widget at the end of the day.")
-
-
- ;; druid-utils.h
- (gw:wrap-as-wct ws '<gnc:GnomeDruid> "GnomeDruid*" "const GnomeDruid*")
-
- (gw:wrap-function
- ws
- 'gnc:druid-set-colors
- '<gw:void>
- "gnc_druid_set_colors"
- '((<gnc:GnomeDruid> druid))
- "Set the colors of a druid.")
-
-
- ;; dialog-utils.h
- (gw:wrap-function
- ws
- 'gnc:set-busy-cursor
- '<gw:void>
- "gnc_set_busy_cursor"
- '((<gtk:Widget*> window)
- (<gw:bool> update_now))
- "Set a busy cursor for a specific window. If null, the busy cursor will be set on all windows.")
-
- (gw:wrap-function
- ws
- 'gnc:unset-busy-cursor
- '<gw:void>
- "gnc_unset_busy_cursor"
- '((<gtk:Widget*> window))
- "Remove a busy cursor for a specific window. If null, the busy cursor will be removed on all windows.")
-
- (gw:wrap-function
- ws
- 'gnc:gconf-get-bool
- '<gw:bool>
- "gnc_gconf_get_bool_no_error"
- '(((<gw:mchars> caller-owned) section)
- ((<gw:mchars> caller-owned) name))
- "Get a boolean value from gconf.")
-
- (gw:wrap-function
- ws
- 'gnc:file-quit
- '<gw:void>
- "gnc_file_quit"
- '()
- "Stop working with the current file.")
-
- (gw:wrap-function
- ws
- 'gnc:file-open-file
- '<gw:bool>
- "gnc_file_open_file"
- '(((<gw:mchars> caller-owned const) filename))
- "Open filename.")
-
- (gw:wrap-function
- ws
- 'gnc:history-get-last
- '(<gw:mchars> caller-owned)
- "gnc_history_get_last"
- '()
- "Get the last file opened by the user.")
-
- (gw:wrap-function
- ws
- 'gnc:main-window-set-progressbar-window
- '<gw:void>
- "gnc_main_window_set_progressbar_window"
- '((<gnc:MainWindow*> window))
- "Set the progressbar window from the given GncMainWindow; does the cast. :p")
-
- (gw:wrap-function
- ws
- 'gnc:window-set-progressbar-window
- '<gw:void>
- "gnc_window_set_progressbar_window"
- '((<gnc:Window*> window))
- "Set the progressbar window from the given GncWindow.")
-
- (gw:wrap-function
- ws
- 'gnc:window-show-progress
- '<gw:void>
- "gnc_window_show_progress"
- '(((<gw:mchars> caller-owned const) message)
- (<gw:double> percentage))
- "Set the progressbar window from the given GncWindow.")
-
- (gw:wrap-function
- ws
- 'gnc:gnome-locate-data-file
- '(<gw:mchars> caller-owned)
- "gnc_gnome_locate_data_file"
- '(((<gw:mchars> caller-owned const) name))
- "Find the file in the application data directory.")
-
- (gw:wrap-function
- ws
- 'gnc:ui-is-running?
- '<gw:bool>
- "gnucash_ui_is_running"
- '()
- "Predicate to determine if the UI is running.")
-
- (gw:wrap-function
- ws
- 'gnc:update-splash-screen
- '<gw:void>
- "gnc_update_splash_screen"
- '(((<gw:mchars> caller-owned const) string))
- "Update the progress box on the splash screen dialog.")
-
-)
Deleted: gnucash/branches/swig-redo/src/register/register-core/gw-register-core-spec.scm
===================================================================
--- gnucash/branches/swig-redo/src/register/register-core/gw-register-core-spec.scm 2006-10-10 00:34:29 UTC (rev 14986)
+++ gnucash/branches/swig-redo/src/register/register-core/gw-register-core-spec.scm 2006-10-10 00:37:33 UTC (rev 14987)
@@ -1,33 +0,0 @@
-(define-module (g-wrapped gw-register-core-spec))
-
-(debug-set! maxdepth 100000)
-(debug-set! stack 200000)
-
-(use-modules (g-wrap))
-
-(use-modules (g-wrap gw-standard-spec))
-(use-modules (g-wrap gw-wct-spec))
-
-(let ((ws (gw:new-wrapset "gw-register-core")))
-
- (gw:wrapset-depends-on ws "gw-standard")
- (gw:wrapset-depends-on ws "gw-wct")
-
- (gw:wrapset-set-guile-module! ws '(g-wrapped gw-register-core))
-
- (gw:wrapset-add-cs-declarations!
- ws
- (lambda (wrapset client-wrapset)
- (list
- "#include <config.h>\n"
- "#include <basiccell.h>\n" )))
-
- (gw:wrap-as-wct ws '<gnc:basic-cell> "BasicCell*" "const BasicCell*")
-
- (gw:wrap-function
- ws
- 'gnc:basic-cell-get-value
- '(<gw:mchars> callee-owned const)
- "gnc_basic_cell_get_value"
- '((<gnc:basic-cell> cell))
- "Return the value of the cell."))
Deleted: gnucash/branches/swig-redo/src/report/report-gnome/gw-report-gnome-spec.scm
===================================================================
--- gnucash/branches/swig-redo/src/report/report-gnome/gw-report-gnome-spec.scm 2006-10-10 00:34:29 UTC (rev 14986)
+++ gnucash/branches/swig-redo/src/report/report-gnome/gw-report-gnome-spec.scm 2006-10-10 00:37:33 UTC (rev 14987)
@@ -1,86 +0,0 @@
-(define-module (g-wrapped gw-report-gnome-spec))
-
-(debug-set! maxdepth 100000)
-(debug-set! stack 200000)
-
-(use-modules (g-wrap))
-
-(use-modules (g-wrap gw-standard-spec))
-(use-modules (g-wrap gw-wct-spec))
-(use-modules (g-wrap gw-glib-spec))
-
-(use-modules (g-wrapped gw-engine-spec))
-(use-modules (g-wrapped gw-gnome-utils-spec))
-
-(let ((ws (gw:new-wrapset "gw-report-gnome")))
-
- (gw:wrapset-depends-on ws "gw-standard")
- (gw:wrapset-depends-on ws "gw-wct")
- (gw:wrapset-depends-on ws "gw-glib")
-
- (gw:wrapset-depends-on ws "gw-engine")
- (gw:wrapset-depends-on ws "gw-gnome-utils")
-
- (gw:wrapset-set-guile-module! ws '(g-wrapped gw-report-gnome))
-
- (gw:wrapset-add-cs-declarations!
- ws
- (lambda (wrapset client-wrapset)
- (list
- "#include <config.h>\n"
- "#include <gtk/gtk.h>\n"
- "#include <dialog-column-view.h>\n"
- "#include <gnc-plugin-page-report.h>\n"
- "#include <window-report.h>\n")))
-
- (gw:wrap-function
- ws
- 'gnc:report-window
- '<gw:void>
- "reportWindow"
- '((<gw:int> report-id))
- "Show report window")
-
- (gw:wrap-function
- ws
- 'gnc:print-report
- '<gw:void>
- "gnc_print_report"
- '((<gw:int> report-id))
- "Print a report with dialog support")
-
- (gw:wrap-function
- ws
- 'gnc:report-raise-editor
- '<gw:void>
- "gnc_report_raise_editor"
- '((<gw:scm> report))
- "Raise the report's editor window")
-
- (gw:wrap-function
- ws
- 'gnc:main-window-open-report
- '<gw:void>
- "gnc_main_window_open_report"
- '((<gw:int> report-id) (<gnc:MainWindow*> window))
- "Show report window")
-
-
-;; This is the function that's responsible for creating and returning
-;; the editor widget for a report's options.
- (gw:wrap-function
- ws
- 'gnc:default-options-editor
- '<gnc:UIWidget>
- "gnc_report_window_default_params_editor"
- '((<gw:scm> options) (<gw:scm> report))
- "Default options editor window for reports")
-
- (gw:wrap-function
- ws
- 'gnc:column-view-edit-options
- '<gnc:UIWidget>
- "gnc_column_view_edit_options"
- '((<gw:scm> options) (<gw:scm> view))
- "Create an editor for a column-view options object")
- )
Deleted: gnucash/branches/swig-redo/src/report/report-system/gw-report-system-spec.scm
===================================================================
--- gnucash/branches/swig-redo/src/report/report-system/gw-report-system-spec.scm 2006-10-10 00:34:29 UTC (rev 14986)
+++ gnucash/branches/swig-redo/src/report/report-system/gw-report-system-spec.scm 2006-10-10 00:37:33 UTC (rev 14987)
@@ -1,45 +0,0 @@
-(define-module (g-wrapped gw-report-system-spec))
-
-(debug-set! maxdepth 100000)
-(debug-set! stack 200000)
-
-(use-modules (g-wrap))
-
-(use-modules (g-wrap gw-standard-spec))
-(use-modules (g-wrap gw-wct-spec))
-(use-modules (g-wrap gw-glib-spec))
-
-(use-modules (g-wrapped gw-engine-spec))
-
-(let ((ws (gw:new-wrapset "gw-report-system")))
-
- (gw:wrapset-depends-on ws "gw-standard")
- (gw:wrapset-depends-on ws "gw-wct")
- (gw:wrapset-depends-on ws "gw-glib")
-
- (gw:wrapset-set-guile-module! ws '(g-wrapped gw-report-system))
-
- (gw:wrapset-add-cs-declarations!
- ws
- (lambda (wrapset client-wrapset)
- (list
- "#include <gnc-report.h>\n"
- )))
-
- (gw:wrap-function
- ws
- 'gnc:find-report
- '<gw:scm>
- "gnc_report_find"
- '((<gw:int> id))
- "Find report by id")
-
- (gw:wrap-function
- ws
- 'gnc:report-add
- '<gw:int>
- "gnc_report_add"
- '((<gw:scm> report))
- "Add report, returns id")
-
- )
More information about the gnucash-changes
mailing list