beautiful-racket/beautiful-racket-demo/basic-demo/parser.rkt

#lang brag

basic-program : line*

line: NUMBER statement [/":" statement]*

statement : "def" id /"(" id /")" /"=" expr
| "dim" id-expr [/"," id-expr]*
| "end" | "stop"
| "gosub" expr
| "goto" expr
| "on" expr ("gosub" | "goto") expr [/"," expr]*
| "if" expr /"then" (statement | expr) [/"else" (statement | expr)]
| "input" [print-list /";"] id [/"," id]*
| [/"let"] id-expr "=" expr
| "print" [print-list]
| "return"
| "for" id /"=" expr /"to" expr [/"step" expr]
| "next" [id]

print-list : expr [[";"] [print-list]]

expr : comp-expr [("and" | "or") expr]

comp-expr : sum [("=" | ">" | ">=" | "<" | "<=" | "<>") comp-expr]

sum : [sum ("+" | "-")] product

product : [product ("*" | "/")] power

power : value [/"^" value]

@value : maybe-negative-val
| id-expr
| /"(" expr /")"
| STRING

id-expr : id [/"(" expr [/"," expr]* /")"]

@id : ID

maybe-negative-val : ["-"] (id-expr | NUMBER)