suzanne.soy/racket-udelim
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add a default meaning for ｢｣

Browse Source
This commit is contained in:
William G Hatch 2016-10-07 13:08:47 -06:00
parent dcaad607ab
commit b743a31cff
2 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
udelim/defaults.rkt
View File

@ -24,5 +24,8 @@
(define-syntax (pass-through-one stx)
(syntax-case stx ()
[(ptm e) #'e]))
(define-syntax #%cjk-corner-quotes (make-rename-transformer #'pass-through-one))
;(define-syntax (#%cjk-corner-quotes) (make-rename-transformer #'pass-through-one))
(define-syntax (#%cjk-corner-quotes stx)
(syntax-case stx ()
[(ccq str) #'(pregexp str)]))

24
udelim/udelim.scrbl
View File

@ -74,7 +74,21 @@ In addition to simply being a nice additional option to make literal strings, it
(open-input-string #<<EOS
«this is a string with nested «string delimiters.» No \n escape interpreting.»
EOS
)))]
)))
]
It's great for regexps:
@codeblock{
(regexp-match (pregexp "\\w*\\.+\\s\\d+\\w*") "foo.. 97bar")
(regexp-match (pregexp «\w*\.+\s\d+\w*») "foo.. 97bar")
}
It's great for using macros that embed code in another syntax:
@codeblock{
(format "I am ~a, these files are here:~n~a!!!"
(rash/trim "whoami")
(rash/out «ls -a $(rash/trim «pwd»)»))
}
}
@defproc[(make-string-delim-readtable/wrap
@ -83,15 +97,15 @@ EOS
[wrapper-sym symbol?]
[#:base-readtable base-readtable readtable? #f])
readtable?]{
Like @racket[make-string-delim-readtable], except that the result will be wrapped in a form with @racket[wrapper-sym]. This makes it easy to use @racket[make-rename-transformer] to make #%guillemets an alias for your string-reading macro, allowing you to invoke it implicitly with strings wrapped in «».
Like @racket[make-string-delim-readtable], except that the result will be wrapped in a form with @racket[wrapper-sym]. This makes it easy to use @racket[make-rename-transformer] to make #%cjk-corner-quotes an alias for your string-reading macro, allowing you to invoke it implicitly with strings wrapped in ｢｣.
@examples[#:eval my-evaluator
(require udelim)
(parameterize ([current-readtable
(make-string-delim-readtable/wrap #\« #\» '#%guillemets)])
(make-string-delim-readtable/wrap #\｢ #\｣ '#%cjk-corner-quotes)])
(read
(open-input-string #<<EOS
«this is a string with nested «string delimiters.» No \n escape interpreting.»
｢this is a string with nested ｢string delimiters.｣ No \n escape interpreting.｣
EOS
)))]
}
@ -101,7 +115,7 @@ Returns the readtable given, but extended with several more delimiters (the same
Specifically: «» are nestable non-escaping string delimiters (IE «foo «bar»» reads as "foo «bar»"), ｢｣ are like «» but wrapped so ｢foo bar｣ produces (#%cjk-corner-quotes "foo bar"), ﴾foo bar﴿ reads as (#%ornate-parens foo bar), ⦓foo bar⦔ reads as (#%inequality-brackets foo bar), ⦕foo bar⦖ reads as (#%double-inequality-brackets foo bar), 🌜foo bar🌛 reads as (#%moon-faces foo bar), and ⟅foo bar⟆ reads as (#%s-shaped-bag-delim foo bar).
To get default meanings for the #% identifiers (currently just pass-through macros), use @code{(require udelim/defaults)}.
To get default meanings for the #% identifiers (currently mostly pass-through macros), use @code{(require udelim/defaults)}. The only one that has a non-passthrough default is #%cjk-corner-quotes (given by ｢｣, defaults to @racket[pregexp]).
}