examples/rules/Regexp-Common.pm

   1 grammar Regexp::Common::ws {
   2     regex crop { [ ^ \s+ ] | [ \s+ $ ] }
   3 }
   4
   5 grammar Regexp::Common::lingua {
   6     regex palindrome (Regex :$chars = /<alpha>/) {
   7         <$chars> | [ <$chars> <~~>? $0 ]
   8             # XXX not quite certain this is right :-)
   9     }
  10 }
  11
  12 grammar Regexp::Common::list {
  13     regex list (Regex :$pat = /.*? \S/, Str|Regex :$sep = /\s* ',' \s*/, Str|Regex :$lsep = $sep) {
  14         [
  15             [ <$pet> <$sep> ]*
  16             <$pat> <$lsep> <$pat>
  17         ]
  18     }
  19
  20     regex conj (Regex :$pat, Str|Regex :$sep, Regex :$word = /and | or/) {
  21         <list(:pat($pat) :sep($sep) :lsep(/\s* ','? \s* <$word> \s*/))>
  22     }
  23
  24     regex and (Regex :$pat, Str|Regex :$sep) {
  25         <conj(:pat($pat) :sep($sep) :word(/and/))>
  26     }
  27
  28     regex or (Regex :$pat, Str|Regex :$sep) {
  29         <conj(:pat($pat) :sep($sep) :word(/or/))>
  30     }
  31 }