mirror of
https://github.com/Gnucash/gnucash.git
synced 2024-12-01 13:09:41 -06:00
8d24252860
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.
77 lines
2.4 KiB
Scheme
77 lines
2.4 KiB
Scheme
;;; (json syntax) --- Guile JSON implementation.
|
|
|
|
;; Copyright (C) 2013-2017 Aleix Conchillo Flaque <aconchillo@gmail.com>
|
|
;;
|
|
;; This file is part of guile-json.
|
|
;;
|
|
;; guile-json is free software; you can redistribute it and/or
|
|
;; modify it under the terms of the GNU Lesser General Public
|
|
;; License as published by the Free Software Foundation; either
|
|
;; version 3 of the License, or (at your option) any later version.
|
|
;;
|
|
;; guile-json is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
;; Lesser General Public License for more details.
|
|
;;
|
|
;; You should have received a copy of the GNU Lesser General Public
|
|
;; License along with guile-json; if not, write to the Free Software
|
|
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
|
|
;; 02110-1301 USA
|
|
|
|
;;; Commentary:
|
|
|
|
;; JSON module for Guile
|
|
|
|
;;; Code:
|
|
|
|
(define-module (gnucash json syntax)
|
|
#:use-module (ice-9 deprecated)
|
|
#:use-module (ice-9 match)
|
|
#:export (json))
|
|
|
|
(define (list->hash-table lst)
|
|
(let loop ((table (make-hash-table))
|
|
(lst lst))
|
|
(match lst
|
|
(((key value) . rest)
|
|
(hash-set! table key value)
|
|
(loop table rest))
|
|
(() table))))
|
|
|
|
(define-syntax json
|
|
(syntax-rules (unquote unquote-splicing array object)
|
|
((_ (unquote val))
|
|
(begin
|
|
(issue-deprecation-warning
|
|
"`json' macro is deprecated. Use scheme data types instead.")
|
|
val))
|
|
((_ ((unquote-splicing val) . rest))
|
|
(begin
|
|
(issue-deprecation-warning
|
|
"`json' macro is deprecated. Use scheme data types instead.")
|
|
(append val (json rest))))
|
|
((_ (array val . rest))
|
|
(begin
|
|
(issue-deprecation-warning
|
|
"`json' macro is deprecated. Use scheme data types instead.")
|
|
(cons (json val) (json rest))))
|
|
((_ (object key+val ...))
|
|
(begin
|
|
(issue-deprecation-warning
|
|
"`json' macro is deprecated. Use scheme data types instead.")
|
|
(list->hash-table
|
|
(json (array key+val ...)))))
|
|
((_ (val . rest))
|
|
(begin
|
|
(issue-deprecation-warning
|
|
"`json' macro is deprecated. Use scheme data types instead.")
|
|
(cons (json val) (json rest))))
|
|
((_ val)
|
|
(begin
|
|
(issue-deprecation-warning
|
|
"`json' macro is deprecated. Use scheme data types instead.")
|
|
(quote val)))))
|
|
|
|
;;; (json syntax) ends here
|