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

utils.rkt: Copy read-org-sexp and unorg.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-12-06 22:28:45 +01:00
parent f80dc7f28e
commit 5943e2f6c7
3 changed files with 30 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
scribblings/utils.scrbl
View file

@ -169,6 +169,19 @@ violation for func will be generated.
@examples[#:eval utils-evaluator @examples[#:eval utils-evaluator
(map-sexp (λ (x) (add1 (cast x Number))) '(1 2 (4 10) 3)) (map-sexp (λ (x) (add1 (cast x Number))) '(1 2 (4 10) 3))
]} ]}
@defproc*[([(read-org-sexp [str String]) Any]
[(unorg [str String]) Any])]{
Reads a @racket[sexp] from a string produced by Org-mode for a named table.
@racket[unorg] is a shortcut for @racket[read-org-sexp].
@examples[#:eval utils-evaluator
(unorg "(#t \"#t\" \"#t \" '(1 2 \"#f\"))")
]}
@section{Additional graph utilities} @section{Additional graph utilities}
@section{Pretty printing} @section{Pretty printing}

4
utils-untyped.rkt
View file

@ -10,9 +10,7 @@
(provide (provide
;; Functions ;; Functions
(contract-out [read-org-sexp (-> string? (listof any/c))] (contract-out [unstringify-pairs (-> (listof (general-pair/c string? any/c))
[unorg (-> string? (listof 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?)]
[unorgv (-> string? variable-mapping?)] [unorgv (-> string? variable-mapping?)]

16
utils.rkt
View file

@ -6,6 +6,7 @@
eval-with eval1-with eval-with eval1-with
extract-symbols extract-symbols
any->string stringify-variable-mapping string->any map-sexp any->string stringify-variable-mapping string->any map-sexp
read-org-sexp unorg
;; Syntax ;; Syntax
auto-hash-ref/explicit auto-hash-ref/:) auto-hash-ref/explicit auto-hash-ref/:)
@ -185,3 +186,18 @@
(test-case "map-sexp" (test-case "map-sexp"
(check-equal? (map-sexp (λ (x) (add1 (cast x Number))) '(1 2 (4 10) 3)) (check-equal? (map-sexp (λ (x) (add1 (cast x Number))) '(1 2 (4 10) 3))
'(2 3 (5 11) 4)))) '(2 3 (5 11) 4))))
(: read-org-sexp (-> String Any))
(define read-org-sexp
(compose ((curry map-sexp) (match-lambda
[(and (? string?) str) (string->any str)]
[x x]))
string->any))
(define unorg read-org-sexp)
(module+ test
(test-case "read-org-sexp"
(check-equal? (read-org-sexp "((\"a\" \"(and a b)\") (\"b\" \"(or b (not a))\"))")
'((a (and a b)) (b (or b (not a)))))
(check-equal? (unorg "(#t \"#t\" \"#t \" '(1 2 \"#f\"))")
'(#t #t #t '(1 2 #f)))))