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

xform: accomodate tokens like "10_1"

Browse Source 
Those show up in the Mac OS X 10.11 SDK in `availability`
annotations.

Closes PR 15154
This commit is contained in:
Matthew Flatt 2015-09-19 09:17:02 -06:00
parent 9768f632a2
commit 1ddaad8d58
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/collects/compiler/private/xform.rkt
View File

@ -234,6 +234,9 @@
(define symbol-complex (trans (seqs L (arbno (alt L D))))) (define symbol-complex (trans (seqs L (arbno (alt L D)))))
;; Accomodate things like 10_1 in `availability` attributes:
(define pseudo-symbol-complex (trans (seqs (arbno D) "_" (arbno D))))
(define number-complex (define number-complex
(trans (alt* (trans (alt*
(seqs (arbno/ D) "[.]" (one+/ D) (maybe E) (maybe/ FS)) (seqs (arbno/ D) "[.]" (one+/ D) (maybe E) (maybe/ FS))
@ -376,6 +379,11 @@
(loop (cdar m) (loop (cdar m)
(cons (symbol (subbytes s (caar m) (cdar m))) (cons (symbol (subbytes s (caar m) (cdar m)))
result)))] result)))]
[(regexp-match-positions pseudo-symbol-complex s p)
=> (lambda (m)
(loop (cdar m)
(cons (symbol (subbytes s (caar m) (cdar m)))
result)))]
[(regexp-match-positions number-complex s p) [(regexp-match-positions number-complex s p)
=> (lambda (m) => (lambda (m)
(loop (cdar m) (loop (cdar m)