TakeV
/
guile-toml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

feat(encoder): nested tables

This commit is contained in:
hylo 2022-12-30 17:53:13 +01:00
parent c3c73e1a10
commit c61c79812b
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
toml/builder.scm
View File

@ -45,14 +45,20 @@
;; (av? #t) ;; (av? #t)
;; (bv? #f)))) ;; (bv? #f))))
(define (build-table scm port)
(define (build-keys lst port)
;; TODO unicode keys
(put-string port (string-join lst ".")))
(define (build-table scm port current-table)
(define new-table (append current-table (list (car scm))))
(put-string port "[") (put-string port "[")
(put-string port (car scm)) (build-keys new-table port)
(put-string port "]") (put-string port "]")
(newline port) (newline port)
(toml-build (cdr scm) port)) (toml-build (cdr scm) port new-table))
(define (toml-build-object scm port) (define (toml-build-tree scm port current-table)
(let ((pairs scm)) (let ((pairs scm))
(unless (null? pairs) (unless (null? pairs)
(receive (keyvals tables) (receive (keyvals tables)
@ -61,7 +67,7 @@
(build-object-pair kv port)) (build-object-pair kv port))
keyvals) keyvals)
(for-each (lambda (t) (for-each (lambda (t)
(build-table t port)) (build-table t port current-table))
tables))))) tables)))))
;; (build-object-pair (car pairs) port) ;; (build-object-pair (car pairs) port)
@ -70,7 +76,7 @@
;; (cdr pairs)) ;; (cdr pairs))
;; (newline port)))) ;; (newline port))))
(define (toml-build scm port) (define* (toml-build scm port #:optional (current-table '()))
;; (log-exprs scm) ;; (log-exprs scm)
(cond (cond
;; ((eq? scm null) (toml-build-null port)) ;; ((eq? scm null) (toml-build-null port))
@ -80,7 +86,7 @@
((string? scm) (toml-build-string scm port)) ((string? scm) (toml-build-string scm port))
;; ((vector? scm) (toml-build-array scm port)) ;; ((vector? scm) (toml-build-array scm port))
((or (pair? scm) (null? scm)) ((or (pair? scm) (null? scm))
(toml-build-object scm port)))) (toml-build-tree scm port current-table))))
;; (else (throw 'toml-invalid scm)))) ;; (else (throw 'toml-invalid scm))))
(define* (scm->toml scm (define* (scm->toml scm
@ -89,7 +95,10 @@
;; (scm->toml '(("a" . "b") ("c" . "d"))) ;; (scm->toml '(("a" . "b") ("c" . "d")))
;; (scm->toml '(("yo" ("a" . "b")))) ;; (scm->toml '(("yo" ("a" . "b"))))
;; (scm->toml '(("yo" ("a" . "b") ("c" . "d")) ("e" . "f"))) (scm->toml '(("hi"
("yo" ("a" . "b") ("c" . "d"))
("e" . "f"))
("g" . "p")))
'(("servers" '(("servers"
("beta" ("role" . "backend") ("ip" . "10.0.0.2")) ("beta" ("role" . "backend") ("ip" . "10.0.0.2"))