mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
RptCleanup - Internalize guile-json module
This is in preparation of the final guile restructuring step: install gnucash scm files directly in guile's default site module directory. Internalizing json is done to prevent an install clash with a potentially system installed guile-json module.
This commit is contained in:
parent
53f59f7794
commit
8d24252860
@ -1,9 +1,20 @@
|
||||
add_subdirectory(json)
|
||||
set (scm-guile-json-details
|
||||
json/builder.scm
|
||||
json/parser.scm
|
||||
json/syntax.scm
|
||||
)
|
||||
|
||||
gnc_add_scheme_targets (guile-json-details
|
||||
"${scm-guile-json-details}"
|
||||
gnucash/json
|
||||
""
|
||||
TRUE
|
||||
)
|
||||
|
||||
gnc_add_scheme_targets (guile-json
|
||||
json.scm
|
||||
""
|
||||
""
|
||||
"gnucash"
|
||||
"guile-json-details"
|
||||
FALSE
|
||||
)
|
||||
|
||||
@ -12,8 +23,9 @@ set_local_dist(guile-json_DIST_LOCAL
|
||||
CMakeLists.txt
|
||||
COPYING
|
||||
json.scm
|
||||
${scm-guile-json-details}
|
||||
NEWS
|
||||
README.org
|
||||
)
|
||||
|
||||
set(guile-json_DIST ${guile-json_DIST_LOCAL} ${guile-json-details_DIST} PARENT_SCOPE)
|
||||
set(guile-json_DIST ${guile-json_DIST_LOCAL} PARENT_SCOPE)
|
||||
|
@ -23,9 +23,9 @@
|
||||
|
||||
;;; Code:
|
||||
|
||||
(define-module (json)
|
||||
#:use-module (json builder)
|
||||
#:use-module (json parser))
|
||||
(define-module (gnucash json)
|
||||
#:use-module (gnucash json builder)
|
||||
#:use-module (gnucash json parser))
|
||||
|
||||
(define-syntax re-export-modules
|
||||
(syntax-rules ()
|
||||
@ -35,7 +35,7 @@
|
||||
(resolve-interface '(mod ...)))
|
||||
...))))
|
||||
|
||||
(re-export-modules (json builder)
|
||||
(json parser))
|
||||
(re-export-modules (gnucash json builder)
|
||||
(gnucash json parser))
|
||||
|
||||
;;; (json) ends here
|
||||
|
@ -6,9 +6,9 @@ set (scm-guile-json-details
|
||||
|
||||
gnc_add_scheme_targets (guile-json-details
|
||||
"${scm-guile-json-details}"
|
||||
json
|
||||
gnucash/json
|
||||
""
|
||||
FALSE
|
||||
TRUE
|
||||
)
|
||||
|
||||
set_dist_list (guile-json-details_DIST
|
||||
|
@ -24,7 +24,7 @@
|
||||
|
||||
;;; Code:
|
||||
|
||||
(define-module (json builder)
|
||||
(define-module (gnucash json builder)
|
||||
#:use-module (ice-9 format)
|
||||
#:use-module (srfi srfi-1)
|
||||
#:use-module (rnrs bytevectors)
|
||||
|
@ -23,7 +23,7 @@
|
||||
|
||||
;;; Code:
|
||||
|
||||
(define-module (json parser)
|
||||
(define-module (gnucash json parser)
|
||||
#:use-module (ice-9 rdelim)
|
||||
#:use-module (rnrs bytevectors)
|
||||
#:use-module (srfi srfi-9)
|
||||
|
@ -25,7 +25,7 @@
|
||||
|
||||
;;; Code:
|
||||
|
||||
(define-module (json syntax)
|
||||
(define-module (gnucash json syntax)
|
||||
#:use-module (ice-9 deprecated)
|
||||
#:use-module (ice-9 match)
|
||||
#:export (json))
|
||||
|
@ -24,7 +24,7 @@
|
||||
;; Boston, MA 02110-1301, USA gnu@gnu.org
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(use-modules (json builder)) ;for building JSON options
|
||||
(use-modules (gnucash json builder)) ;for building JSON options
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;
|
||||
|
Loading…
Reference in New Issue
Block a user