scolobb/dds
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

utils: read-org-table -> read-org-sexp.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-03-02 18:42:54 +01:00
parent a9fc272c13
commit dbfa560081
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
utils-tests.rkt
View file

@ -46,7 +46,7 @@
(check-equal? (hash-ref mp 'b) "(not b)")) (check-equal? (hash-ref mp 'b) "(not b)"))
(check-equal? (string->any "(or b (not a))") '(or b (not a))) (check-equal? (string->any "(or b (not a))") '(or b (not a)))
(check-equal? (string->any "14") 14) (check-equal? (string->any "14") 14)
(check-equal? (read-org-table "((\"a\" \"(and a b)\") (\"b\" \"(or b (not a))\"))") (check-equal? (read-org-sexp "((\"a\" \"(and a b)\") (\"b\" \"(or b (not a))\"))")
'(("a" "(and a b)") ("b" "(or b (not a))"))) '(("a" "(and a b)") ("b" "(or b (not a))")))
(check-equal? (unstringify-pairs '(("a" . "1") ("b" . "(and a (not b))"))) (check-equal? (unstringify-pairs '(("a" . "1") ("b" . "(and a (not b))")))
'((a . 1) (b . (and a (not b))))) '((a . 1) (b . (and a (not b)))))

10
utils.rkt
View file

@ -15,7 +15,7 @@
[any->string (-> any/c string?)] [any->string (-> any/c string?)]
[stringify-variable-mapping (-> variable-mapping? string-variable-mapping?)] [stringify-variable-mapping (-> variable-mapping? string-variable-mapping?)]
[string->any (-> string? any/c)] [string->any (-> string? any/c)]
[read-org-table (-> string? (listof any/c))] [read-org-sexp (-> string? (listof any/c))]
[unstringify-pairs (-> (listof (general-pair/c string? any/c)) [unstringify-pairs (-> (listof (general-pair/c string? any/c))
(listof (general-pair/c symbol? any/c)))] (listof (general-pair/c symbol? any/c)))]
[read-org-variable-mapping (-> string? variable-mapping?)] [read-org-variable-mapping (-> string? variable-mapping?)]
@ -183,9 +183,9 @@
(define (string->any str) (define (string->any str)
(with-input-from-string str (λ () (read)))) (with-input-from-string str (λ () (read))))
;;; Reads a table from a string produced by Org-mode for a named ;;; Reads a sexp from a string produced by Org-mode for a named table.
;;; table. See example.org for examples. ;;; See example.org for examples.
(define (read-org-table str) (string->any str)) (define (read-org-sexp str) (string->any str))
;;; A contract allowing pairs constructed via cons or via list. ;;; A contract allowing pairs constructed via cons or via list.
(define (general-pair/c key-contract val-contract) (define (general-pair/c key-contract val-contract)
@ -211,7 +211,7 @@
;;; Reads a variable mapping from a string, such as the one which ;;; Reads a variable mapping from a string, such as the one which
;;; Org-mode produces from tables. ;;; Org-mode produces from tables.
(define (read-org-variable-mapping str) (define (read-org-variable-mapping str)
(make-hash (unstringify-pairs (read-org-table str)))) (make-hash (unstringify-pairs (read-org-sexp str))))
;;; A synonym for read-org-variable-mapping. ;;; A synonym for read-org-variable-mapping.
(define-syntax-rule (unorg str) (read-org-variable-mapping str)) (define-syntax-rule (unorg str) (read-org-variable-mapping str))