// computer.cd -- class dictionary for Computer example

Computer = <parts> List(Equipment).

List(X) ~ { X }.

Equipment : Card | Drive | FloppyDisk | CompositeEquipment
    *common* <netPrice> Currency "discount" <discountPrice> Currency.
Card = "card" .
Drive = "drive" .
FloppyDisk = "floppy" .

CompositeEquipment : Cabinet | Chassis | Bus
    *common* "(" <parts> List(Equipment) ")".
Cabinet = "cabinet" .
Chassis = "chassis" .
Bus = "bus" .

PricingVisitor = <total> Currency.
Currency = "$" <dollars> Integer.

InventoryVisitor = Inventory.
Inventory = <equipment> List(Equipment).

Main = .
Test(S) = <s> S.