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

angle-hiding in parser

Browse Source
This commit is contained in:
Matthew Butterick 2016-05-06 10:55:04 -07:00
parent 8dea96894b
commit f072c9f808
2 changed files with 17 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
beautiful-racket/br/demo/txtadv/expander.rkt
View File

@ -35,7 +35,7 @@
#'(module-begin _section ...))
(provide verb-section)
(define-inverting #'(verb-section _heading _verb-item ...)
(define-inverting #'(verb-section _verb-item ...)
(inject-syntax ([#'in-verbs (shared-syntax 'in-verbs)])
#'(define-verbs in-verbs
_verb-item ...)))
@ -47,14 +47,11 @@
(provide verb-name)
(define-cases #'verb-name
;; cases with literals go first, so they're not caught by wildcards
[#'(_ "," _id) #'(_id #f)]
[#'(_ "," _id _underscore) #'(_id #t)]
[#'(_ _id) #'(_id #f)]
[#'(_ _id _underscore) #'(_id #t)])
(provide everywhere-section)
(define-inverting #'(everywhere-section _heading [_name _desc] ...)
(define-inverting #'(everywhere-section [_name _desc] ...)
#'(define-everywhere everywhere-actions
([_name _desc] ...)))
@ -63,7 +60,7 @@
#'(_id _desc))
(provide things-section)
(define-inverting #'(things-section _heading _thing ...)
(define-inverting #'(things-section _thing ...)
#'(begin _thing ...))
(provide thing-item)
@ -71,7 +68,7 @@
#'(define-thing _thingname [_actionname _actiondesc] ...))
(provide places-section)
(define-inverting #'(places-section _heading _placeitem ...)
(define-inverting #'(places-section _placeitem ...)
#'(begin _placeitem ...))
(provide place-item)
@ -82,18 +79,17 @@
(define #'(place-descrip _desc) #'_desc)
(provide place-items)
(define-inverting #'(place-items "[" _id ... "]") #'(_id ...))
(define-inverting #'(place-items _id ...) #'(_id ...))
(provide place-name)
(define-cases #'place-name
[#'(_ "," _id) #'_id]
[#'(_ _id) #'_id])
(provide s-exp)
(define-cases-inverting #'s-exp
[#'(_ "(" _sx ... ")") #'(_sx ...)]
[#'(_ _sx) #'_sx])
[#'(_ _sx) #'_sx]
[#'(_ _sx ... ) #'(_sx ...)])
;; todo: consolidate the game-starters.
@ -107,7 +103,7 @@
everywhere-actions)))
(provide start-section)
(define #'(start-section _heading _where)
(define #'(start-section _where)
(inject-syntax ([#'in-verbs (shared-syntax 'in-verbs)])
#'(init-game _where
in-verbs

18
beautiful-racket/br/demo/txtadv/parser.rkt
View File

@ -2,30 +2,30 @@
txtadv-program : verb-section everywhere-section things-section places-section start-section
verb-section : "===VERBS===" verb-item+
verb-section : <"===VERBS==="> verb-item+
verb-item : verb-name+ s-exp
verb-name : [","] ID ["_"]
verb-name : [<",">] ID ["_"]
everywhere-section : "===EVERYWHERE===" id-desc+
everywhere-section : <"===EVERYWHERE==="> id-desc+
things-section : "===THINGS===" thing-item+
things-section : <"===THINGS==="> thing-item+
thing-item : DASHED-NAME id-desc+
places-section : "===PLACES===" place-item+
places-section : <"===PLACES==="> place-item+
place-item : DASHED-NAME place-descrip place-items id-desc+
place-descrip : STRING ; `place-desc` is already used in expander
place-items : "[" place-name* "]" ; `place-things` is already used
place-items : <"["> place-name* <"]"> ; `place-things` is already used
place-name : [","] ID
place-name : [<",">] ID
start-section : "===START===" place-name
start-section : <"===START==="> place-name
id-desc : ID s-exp
s-exp : ID | STRING | "(" s-exp* ")"
s-exp : ID | STRING | <"("> s-exp* <")">