beautiful-racket/beautiful-racket/br/demo/hdl/parser.rkt

#lang ragg

chip-program : "CHIP" ID "{" pin-spec pin-spec part-spec "}"

pin-spec : ("IN" | "OUT") pin-list ";"

pin-list : ID another-id*

another-id : "," ID

part-spec : "PARTS:" part-list

part-list : part+

part : ID "(" ID "=" ID another-id-pair* ")" ";"

another-id-pair : "," ID "=" ID
improve 8 years ago			`#lang ragg`

ugly but effective 8 years ago			`chip-program : "CHIP" ID "{" pin-spec pin-spec part-spec "}"`
improve 8 years ago
ugly but effective 8 years ago			`pin-spec : ("IN" \| "OUT") pin-list ";"`
improve 8 years ago
refine 8 years ago			`pin-list : ID another-id*`
convert to `define-inverting` 8 years ago
refine 8 years ago			`another-id : "," ID`
improve 8 years ago
works better 8 years ago			`part-spec : "PARTS:" part-list`

convert to `define-inverting` 8 years ago			`part-list : part+`

refine 8 years ago			`part : ID "(" ID "=" ID another-id-pair* ")" ";"`
works better 8 years ago
refine 8 years ago			`another-id-pair : "," ID "=" ID`