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:
Geert Janssens 2019-06-08 18:45:02 +02:00
parent 53f59f7794
commit 8d24252860
7 changed files with 27 additions and 15 deletions

View File

@ -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)

View File

@ -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

View File

@ -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

View File

@ -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)

View File

@ -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)

View File

@ -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))

View File

@ -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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;