You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
721 B
Racket
36 lines
721 B
Racket
#lang brag
|
|
|
|
;; recursive rules destucture easily in the expander
|
|
program : [CR]* [line [CR line]*] [CR]*
|
|
|
|
line: NUMBER statement-list
|
|
|
|
statement-list : statement [":" statement-list]
|
|
|
|
statement : "END"
|
|
| "GOSUB" NUMBER
|
|
| "GOTO" expr
|
|
| "IF" expr "THEN" (statement | expr) ["ELSE" (statement | expr)]
|
|
| "INPUT" [print-list ";"] ID
|
|
| ID "=" expr ; change: make "LET" opt
|
|
| "PRINT" print-list
|
|
| "RETURN"
|
|
|
|
print-list : [expr [";" [print-list]]]
|
|
|
|
expr : comp-expr [("AND" | "OR") expr]
|
|
|
|
comp-expr : sum [("=" | ">" | ">=" | "<" | "<=" | "<>") comp-expr]
|
|
|
|
sum : product [("+" | "-") sum]
|
|
|
|
product : value [("*" | "/") product]
|
|
|
|
expr-list : expr ["," expr-list]*
|
|
|
|
value : ID ["(" expr-list ")"]
|
|
| "(" expr ")"
|
|
| STRING
|
|
| NUMBER
|
|
|