src/syntactic-sugar/refex-expr

   1 # vim: syn=perl:
   2
   3 # "sugar script" (syntactic sugar helper) for gitolite3
   4 # ----------------------------------------------------------------------
   5 # see src/VREF/refex-expr for instructions and WARNINGS!
   6
   7 my $perm = qr(-|R|RW\+?C?D?M?);
   8
   9 my $seq = 1;
  10
  11 sub sugar_script {
  12     my $lines = shift;
  13
  14     # my @out  = ();
  15     for my $l (@$lines) {
  16         push @out, $l;
  17
  18         # quick check
  19         next unless $l =~ /^($perm) /;
  20         # more detailed check
  21         next unless $l =~ /^($perm) (\S.*) = (\S.*)$/;
  22         my ( $perm, $refexes, $users ) = ( $1, $2, $3 );
  23         next unless $refexes =~ / (and|not|or|xor|\+|-|==|-lt|-gt|-eq|-le|-ge|-ne) /;
  24
  25         print STDERR ">>>> $l\n";
  26         pop @out;    # we need to replace that last line
  27
  28         push @out, "option refex-expr.sugar$seq = $refexes";
  29         push @out, "$perm VREF/refex-expr/sugar$seq = $users";
  30
  31         $seq++;
  32     }
  33
  34     return \@out;
  35 }