From 49bf27fad57eb492416638ae357522bebe9d2ae1 Mon Sep 17 00:00:00 2001 From: Geert Janssens Date: Sat, 5 Oct 2019 16:01:44 +0200 Subject: [PATCH] core-utils - use one command to export all swig wrapped symbols via the (gnucash core-utils) module --- bindings/guile/core-utils.scm | 35 +++-------------------------------- 1 file changed, 3 insertions(+), 32 deletions(-) diff --git a/bindings/guile/core-utils.scm b/bindings/guile/core-utils.scm index 5feaf1420e..82cb17c631 100644 --- a/bindings/guile/core-utils.scm +++ b/bindings/guile/core-utils.scm @@ -30,39 +30,10 @@ (eval-when (compile load eval expand) (load-extension "libgnucash-guile" "gnc_guile_bindings_init")) - (use-modules (sw_core_utils)) -(re-export gnc-path-get-bindir) -(re-export gnc-path-get-scmdir) -(re-export gnc-path-get-reportsdir) -(re-export gnc-path-get-stdreportsdir) -(re-export gnc-path-find-localized-html-file) -(re-export gnc-build-userdata-path) -(re-export gnc-build-scm-path) -(re-export gnc-build-report-path) -(re-export gnc-build-stdreports-path) -(re-export gnc-build-reports-path) -(re-export gnc-file-path-absolute) -(re-export gnc-utf8?) -(re-export gnc-utf8-strip-invalid-strdup) -(re-export gnc-locale-from-utf8) -(re-export gnc-locale-to-utf8) -(re-export gnc-scm-log-warn) -(re-export gnc-scm-log-error) -(re-export gnc-scm-log-msg) -(re-export gnc-scm-log-debug) -(re-export gnc-locale-default-iso-currency-code) -(re-export gnc-locale-name) - -(re-export gnc-prefs-set-bool) -(re-export gnc-prefs-set-int) -(re-export gnc-prefs-set-int64) -(re-export gnc-prefs-set-float) -(re-export gnc-prefs-set-string) -(re-export gnc-prefs-set-coords) -(re-export gnc-prefs-get-string) -(re-export gnc-prefs-is-extra-enabled) -(re-export gnc-prefs-is-debugging-enabled) +; Export the swig-wrapped symbols in the public interface of this module +(let ((i (module-public-interface (current-module)))) + (module-use! i (resolve-interface '(sw_core_utils)))) (define-public gnc:version (gnc-version))