cvs commit: parrot Configure.pl

[brentdax]

cvsuser     02/01/07 03:53:02

  Modified:    .        Configure.pl
  Log:
  Fixes the + thing in prompts, plus adds a synonym (:add{foo}) and a new deleting 
thing (:rem{foo})
  
  Revision  Changes    Path
  1.75      +16 -5     parrot/Configure.pl
  
  Index: Configure.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/Configure.pl,v
  retrieving revision 1.74
  retrieving revision 1.75
  diff -u -w -r1.74 -r1.75
  --- Configure.pl      7 Jan 2002 11:43:42 -0000       1.74
  +++ Configure.pl      7 Jan 2002 11:53:02 -0000       1.75
  @@ -2,7 +2,7 @@
   #
   # Configure.pl
   #
  -# $Id: Configure.pl,v 1.74 2002/01/07 11:43:42 simon Exp $
  +# $Id: Configure.pl,v 1.75 2002/01/07 11:53:02 brentdax Exp $
   #
   # Author: Brent Dax
   #
  @@ -42,7 +42,7 @@
   
   if($opt_version) {
       print "Parrot Version $parrot_version Configure\n";
  -    print '$Id: Configure.pl,v 1.74 2002/01/07 11:43:42 simon Exp $' . "\n";
  +    print '$Id: Configure.pl,v 1.75 2002/01/07 11:53:02 brentdax Exp $' . "\n";
       exit;
   }
   
  @@ -634,8 +634,19 @@
       if($input =~ s/^\+//) {
                $input="$c{$field} $input";
        }
  +    else {
  +        if($input =~ s/:rem\{(.*?)\}//) {
  +            $c{$field} =~ s/$_//g for split / /, $1;
  +        }
  +
  +        if($input =~ s/:add\{(.*?)\}//) {
  +            $input="$c{$field} $1 $input";
  +        }
  +    }
   
        $c{$field}=$input||$c{$field};
  +
  +    print "$field=$c{$field}\n";
   }