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

#lang ragg

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

pin-spec-in : "IN" ID ["," ID]* ";"

pin-spec-out : "OUT" ID ["," ID]* ";"


part-spec : "PARTS:" [ID "(" ID "=" ID "," [ ID "=" ID ","]* "out" "=" ID ")" ";"]+
improve 8 years ago			`#lang ragg`

and more 8 years ago			`chip-program : "CHIP" ID "{" pin-spec-in pin-spec-out part-spec "}"`
improve 8 years ago
sort of works 8 years ago			`pin-spec-in : "IN" ID ["," ID]* ";"`
improve 8 years ago
sort of works 8 years ago			`pin-spec-out : "OUT" ID ["," ID]* ";"`
improve 8 years ago

and more 8 years ago			`part-spec : "PARTS:" [ID "(" ID "=" ID "," [ ID "=" ID ","]* "out" "=" ID ")" ";"]+`