Select Code to Download

#!/usr/bin/perl

...

Parse::RecDescent->Precompile($grammar, 'Grammar')
    or die("Bad grammar\n");

#!/usr/bin/perl

...
nested-square [ [ param ] ]
multi-child { foo <foo> | bar <bar> }
partially-optimisable { <foo> | [<bar>] | [<cat>] [<dog>] }

$ perl make_parser.pl && perl test.pl
>> dfpm dataset add [-D] [-N <node-name>] <data-set-name-or-id> { [<vo
+lume-name-or-id>] | [<qtree-name-or-id>] | [<ossv-dir-name-or-id>] | 
+[<storage-system-name-or-id>] | [<host-name-or-id>] }
...
    ]
  }
];