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.
40 lines
1.4 KiB
Racket
40 lines
1.4 KiB
Racket
#lang brag
|
|
;; program & lines
|
|
b-program : [b-line] (/NEWLINE [b-line])*
|
|
b-line : b-line-num [b-statement] (/":" [b-statement])* [b-rem]
|
|
@b-line-num : INTEGER
|
|
b-rem : REM
|
|
@b-statement : b-end | b-print | b-goto
|
|
| b-let | b-input | b-if
|
|
| b-gosub | b-return | b-for | b-next
|
|
| b-def | b-require
|
|
b-end : /"end"
|
|
b-print : /"print" [b-printable] (/";" [b-printable])*
|
|
@b-printable : STRING | b-expr
|
|
b-goto : /"goto" b-expr
|
|
b-let : [/"let"] b-id /"=" (STRING | b-expr)
|
|
b-if : /"if" b-expr /"then" (b-statement | b-expr)
|
|
[/"else" (b-statement | b-expr)]
|
|
b-input : /"input" b-id
|
|
@b-id : ID
|
|
b-gosub : /"gosub" b-expr
|
|
b-return : /"return"
|
|
b-for : /"for" b-id /"=" b-expr /"to" b-expr [/"step" b-expr]
|
|
b-next : /"next" b-id
|
|
b-def : /"def" b-id /"(" b-var-list /")" /"=" b-expr
|
|
@b-var-list : ID [/"," ID]*
|
|
b-require : /"require" b-require-spec
|
|
@b-require-spec : ID | STRING
|
|
b-expr : b-or-expr
|
|
b-or-expr : [b-or-expr "or"] b-and-expr
|
|
b-and-expr : [b-and-expr "and"] b-not-expr
|
|
b-not-expr : ["not"] b-comp-expr
|
|
b-comp-expr : [b-comp-expr ("="|"<"|">"|"<>")] b-sum
|
|
b-sum : [b-sum ("+"|"-")] b-product
|
|
b-product : [b-product ("*"|"/"|"mod")] b-neg
|
|
b-neg : ["-"] b-expt
|
|
b-expt : [b-expt ("^")] b-value
|
|
@b-value : b-number | b-id | /"(" b-expr /")" | b-func
|
|
b-func : ID /"(" b-input-list /")"
|
|
@b-input-list : (ID | b-expr) [/"," (ID | b-expr)]*
|
|
@b-number : INTEGER | DECIMAL |