gnucash/borrowed/guile-json/json/syntax.scm

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